Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comccpt +++| CTEXT COMCCPT - COPY PREFIX TABLE.
00002 M00S00002.comccpt +++| CPT SPACE 4
00003 M00S00003.comccpt +++| IF -DEF,QUAL$,1
00004 M00S00004.comccpt +++| QUAL COMCCPT
00005 M00S00005.comccpt +++| BASE D
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.comccpt +++| CPT SPACE 4
00009 M00S00008.comccpt +++|*** CPT - COPY PREFIX TABLE.
00010 M00S00009.comccpt +++|* P. D. HAAS. 73/10/12.
00011 M00S00010.comccpt +++| CPT SPACE 4
00012 M00S00011.comccpt +++|*** CPT EXTRACTS COMMENTS FROM THE 7700 TABLE
00013 M00S00012.comccpt +++|* TO A PRINT LINE. GARBAGE IN THE TABLE IS DISCARDED
00014 M00S00013.comccpt +++|* AND COPY TERMINATES ON A ZERO BYTE OR *COPYRIGHT*.
00015 M00S00014.comccpt +++|*
00016 M00S00015.comccpt +++|* ENTRY (A1) = PREFIX TABLE ADDRESS.
00017 M00S00016.comccpt +++|* (X1) = CONTROL WORD.
00018 M00S00017.comccpt +++|* (A6) = ADDRESS OF WORKING STORAGE.
00019 M00S00018.comccpt +++|* (B1) = 1.
00020 M00S00019.comccpt +++|*
00021 M00S00020.comccpt +++|* EXIT NONE.
00022 M00S00021.comccpt +++|*
00023 M00S00022.comccpt +++|* USES A - 3, 4, 6.
00024 M00S00023.comccpt +++|* B - 3, 4.
00025 M00S00024.comccpt +++|* X - 1, 2, 3, 4, 6.
00026 M00S00025.comccpt +++|*
00027 M00S00026.comccpt +++|* CALLS NONE.
00028 M00S00027.comccpt +++|
00029 M00S00028.comccpt +++|
00030 M00S00029.comccpt +++| CPT PS 0 ENTRY/EXIT
00031 M00S00030.comccpt +++| LX1 18
00032 M00S00031.comccpt +++| SX3 X1-770000B CHECK FOR PREFIX TABLE
00033 M00S00032.comccpt +++| LX1 6
00034 M00S00033.comccpt +++| NZ X3,CPT2 IF NO PREFIX TABLE
00035 M00S00034.comccpt +++| SB4 B1+B1
00036 M00S00035.comccpt +++| SB3 X1+B1 SET LENGTH OF TABLE
00037 M00S00036.comccpt +++| SA3 CPTA
00038 M00S00037.comccpt +++| LE B3,B4,CPT2 IF TOO SHORT TO COPY
00039 M00S00038.comccpt +++| SA4 A1+B4 COPY DATE
00040 M00S00039.comccpt +++| BX6 X4
00041 M00S00040.comccpt +++| SB4 X1-10B CHECK LENGTH
00042 M00S00041.comccpt +++| SA6 A6+B1
00043 M00S00042.comccpt +++| NG B4,CPT2 IF TABLE .LT. 10B WORDS LONG
00044 M00S00043.comccpt +++| SB4 10B
00045 M00S00044.comccpt +++| SA4 A1+B4
00046 M00S00045.comccpt +++| MX1 -12
00047 M00S00046.comccpt +++| CPT1 BX2 X4-X3
00048 M00S00047.comccpt +++| LX6 X4
00049 M00S00048.comccpt +++| ZR X2,CPT2 IF *COPYRIGHT*
00050 M00S00049.comccpt +++| BX4 -X1*X4
00051 M00S00050.comccpt +++| SA6 A6+B1
00052 M00S00051.comccpt +++| ZR X4,CPT IF END OF DATA
00053 M00S00052.comccpt +++| SB4 B4+B1
00054 M00S00053.comccpt +++| SA4 A1+B4 READ NEXT ENTRY
00055 M00S00054.comccpt +++| NE B4,B3,CPT1
00056 M00S00055.comccpt +++| CPT2 BX6 X6-X6 CLEAR END OF BUFFER
00057 M00S00056.comccpt +++| SA6 A6+B1
00058 M00S00057.comccpt +++| EQ CPT RETURN
00059 M00S00058.comccpt +++|
00060 M00S00059.comccpt +++| CPTA DATA 10HCOPYRIGHT
00061 M00S00060.comccpt +++| SPACE 4
00062 M00S00061.comccpt +++| BASE *
00063 M00S00062.comccpt +++| QUAL$ IF -DEF,QUAL$
00064 M00S00063.comccpt +++| QUAL *
00065 M00S00064.comccpt +++| CPT EQU /COMCCPT/CPT
00066 M00S00065.comccpt +++| QUAL$ ENDIF
00067 M00S00066.comccpt +++| ENDX