Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comcssn +++| CTEXT COMCSSN - SKIP SEQUENCE NUMBER.
00002 M00S00002.comcssn +++| SSN SPACE 4
00003 M00S00003.comcssn +++| IF -DEF,QUAL$,1
00004 M00S00004.comcssn +++| QUAL COMCSSN
00005 M00S00005.comcssn +++| BASE D
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.comcssn +++| SSN SPACE 4
00009 M00S00008.comcssn +++|*** SSN - SKIP SEQUENCE NUMBER.
00010 M00S00009.comcssn +++|* G. R. MANSFIELD. 70/10/25.
00011 M00S00010.comcssn +++| SSN SPACE 4
00012 M00S00011.comcssn +++|*** SSN SKIPS A SEQUENCE NUMBER ON A CODED LINE IF
00013 M00S00012.comcssn +++|* PRESENT. A SEQUENCE NUMBER IS DEFINED AS 1 TO 5 DIGITS
00014 M00S00013.comcssn +++|* FOLLOWED BY A SPACE.
00015 M00S00014.comcssn +++|*
00016 M00S00015.comcssn +++|* ENTRY (A1) = FIRST CHARACTER ADDRESS.
00017 M00S00016.comcssn +++|* (X1) = FIRST CHARACTER.
00018 M00S00017.comcssn +++|* (B1) = 1.
00019 M00S00018.comcssn +++|*
00020 M00S00019.comcssn +++|* EXIT (A1) = ADDRESS OF FIRST CHARACTER AFTER SEQUENCE
00021 M00S00020.comcssn +++|* NUMBER.
00022 M00S00021.comcssn +++|*
00023 M00S00022.comcssn +++|* USES X - 1, 2, 6, 7.
00024 M00S00023.comcssn +++|* B - 2, 3, 4.
00025 M00S00024.comcssn +++|* A - 1.
00026 M00S00025.comcssn +++|*
00027 M00S00026.comcssn +++|* CALLS NONE.
00028 M00S00027.comcssn +++|
00029 M00S00028.comcssn +++|
00030 M00S00029.comcssn +++| SSN PS ENTRY/EXIT
00031 M00S00030.comcssn +++| SA2 SSNA MASK FOR <0123456789>
00032 M00S00031.comcssn +++| SB2 A1 SAVE ORIGINAL POSITION
00033 M00S00032.comcssn +++| SB3 -B1 CLEAR CHARACTER COUNT
00034 M00S00033.comcssn +++| SSN1 SB4 X1 CHECK CHARACTER
00035 M00S00034.comcssn +++| LX6 X2,B4
00036 M00S00035.comcssn +++| SB3 B3+B1 COUNT CHARACTER
00037 M00S00036.comcssn +++| SA1 A1+B1 NEXT CHARACTER
00038 M00S00037.comcssn +++| NG X6,SSN1 LOOP IF DIGIT
00039 M00S00038.comcssn +++| ZR B3,SSN2 IF NO LEADING DIGIT
00040 M00S00039.comcssn +++| SX6 B4-1R CHECK CHARACTER
00041 M00S00040.comcssn +++| NZ X6,SSN2 IF NOT SPACE
00042 M00S00041.comcssn +++| SB3 B3-6
00043 M00S00042.comcssn +++| NG B3,SSN RETURN IF 5 OR LESS DIGITS
00044 M00S00043.comcssn +++| SSN2 SA1 B2 RESET CHARACTER ADDRESS
00045 M00S00044.comcssn +++| EQ SSN RETURN
00046 M00S00045.comcssn +++|
00047 M00S00046.comcssn +++| SSNA CON 1777BS23
00048 M00S00047.comcssn +++| SPACE 4
00049 M00S00048.comcssn +++| BASE *
00050 M00S00049.comcssn +++| QUAL$ IF -DEF,QUAL$
00051 M00S00050.comcssn +++| QUAL *
00052 M00S00051.comcssn +++| SSN EQU /COMCSSN/SSN
00053 M00S00052.comcssn +++| QUAL$ ENDIF
00054 M00S00053.comcssn +++| ENDX