cdc:nos2.source:opl.opl871:deck:list80
Deck LIST80
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.list80 +++| IDENT LIST80,FETS 00002 M00S00002.list80 +++| ABS 00003 M00S00003.list80 +++| SYSCOM B1 DEFINE (B1) = 1 00004 M00S00004.list80 +++| SPACE 4,10 00005 M00S00005.list80 +++|*COMMENT LIST80 - COMPRESS COMPASS LISTINGS.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. , 1971.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.list80 +++| SPACE 4,10 00009 M00S00008.list80 +++| ENTRY LIST80 00010 M00S00009.list80 +++| ENTRY RFL= 00011 M00S00010.list80 +++| TITLE LIST80 - COMPRESS COMPASS LISTINGS. 00012 M00S00011.list80 +++| TITLE 00013 M00S00012.list80 +++|*** LIST80 - COMPRESS COMPASS LISTINGS. 00014 M00S00013.list80 +++|* G. R. MANSFIELD. 00015 M00S00014.list80 +++|* D. R. HILGREN. 79/04/25. RESEQUENCED. 00016 M00S00015.list80 +++| SPACE 4,10 00017 M00S00016.list80 +++|*** *LIST80* READS A FILE CONTAINING LIST OUTPUT 00018 M00S00017.list80 +++|* PRODUCED BY THE COMPASS COMPILER AND COMPRESSES IT TO 80 00019 M00S00018.list80 +++|* COLUMNS. 00020 M00S00019.list80 +++| SPACE 4,10 00021 M00S00020.list80 +++|*** CONTROL CARD CALL. 00022 M00S00021.list80 +++|* 00023 M00S00022.list80 +++|* LIST80(IFILE,OFILE,NR) 00024 M00S00023.list80 +++|* IFILE FILE TO COPY FROM. 00025 M00S00024.list80 +++|* OFILE FILE TO COPY TO. 00026 M00S00025.list80 +++|* NR IF PRESENT, *IFILE* WILL NOT BE REWOUND. 00027 M00S00026.list80 +++|* 00028 M00S00027.list80 +++|* ASSUMED PARAMETERS. 00029 M00S00028.list80 +++|* IFILE = *LIST* 00030 M00S00029.list80 +++|* OFILE = *OUTPUT*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00001.ns22000 +++|* 00032 M01S00002.ns22000 +++|* PAGE SIZE AND PRINT DENSITY WILL BE BASED 00033 M01S00003.ns22000 +++|* ON THE PRINT FILE TO BE PROCESSED. 00034 M01S00004.ns22000 +++|* 00035 M00S00030.list80 +++| SPACE 4,10 00036 M00S00031.list80 +++|*** DAYFILE MESSAGES. 00037 M00S00032.list80 +++|* 00038 M00S00033.list80 +++|* * CONVERSION COMPLETE.* - *LIST80* COMPLETED. 00039 M00S00034.list80 +++|* 00040 M00S00035.list80 +++|* * FILE NAME CONFLICT.* - *IFILE* AND *OFILE* HAVE THE SAME 00041 M00S00036.list80 +++|* NAME. 00042 M00S00037.list80 +++|* 00043 M00S00038.list80 +++|* * FL TOO SHORT FOR LIST.* - NOT ENOUGH STORAGE FOR LIST. 00044 M00S00039.list80 +++| SPACE 4,10 00045 M00S00040.list80 +++|**** ASSEMBLY CONSTANTS. 00046 M00S00041.list80 +++| 00047 M00S00042.list80 +++| 00048 M00S00043.list80 +++| IBUFL EQU 2001B 00049 M00S00044.list80 +++| OBUFL EQU 2001B 00050 M00S00045.list80 +++| 00051 M00S00046.list80 +++|**** 00052 M00S00047.list80 +++| SPACE 4,10 00053 M00S00048.list80 +++|* COMMON DECKS. 00054 M00S00049.list80 +++| 00055 M00S00050.list80 +++| 00056 M00S00051.list80 +++|*CALL COMCMAC
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00057 M01S00005.ns22000 +++|*CALL COMCCMD 00058 M00S00052.list80 +++|**** 00059 M00S00053.list80 +++| TITLE STORAGE ASSIGNMENT. 00060 M00S00054.list80 +++|* STORAGE ASSIGNMENT. 00061 M00S00055.list80 +++| 00062 M00S00056.list80 +++| 00063 M00S00057.list80 +++| ORG 110B 00064 M00S00058.list80 +++| FETS BSS 0 00065 M00S00059.list80 +++| 00066 M00S00060.list80 +++| I BSS 0 *IFILE* 00067 M00S00061.list80 +++| LIST FILEC IBUF,IBUFL 00068 M00S00062.list80 +++| 00069 M00S00063.list80 +++| O BSS 0 *OFILE*
| Line S00064 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00064.ns22000 ---| OUTPUT FILEC OBUF,OBUFL
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00006.ns22000 +++| OUTPUT FILEC OBUF,OBUFL,(FET=6) 00072 M00S00065.list80 +++| 00073 M00S00066.list80 +++| MBUF BSS 136 WORKING READ BUFFER 00074 M00S00067.list80 +++| MBUFL EQU *-MBUF 00075 M00S00068.list80 +++| 00076 M00S00069.list80 +++| SBUF BSS 80 WORKING WRITE BUFFER 00077 M00S00070.list80 +++| SBUFL EQU *-SBUF 00078 M00S00071.list80 +++| BSS 10 00079 M00S00072.list80 +++| SPACE 4,10 00080 M00S00073.list80 +++|* PROGRAM CONSTANTS. 00081 M00S00074.list80 +++|
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00007.ns22000 +++| PD CON 1LS,0 PRINT DENSITY / CONTROL WORD 00083 M01S00008.ns22000 +++| PL CON 0 PAGE LENGTH 00084 M00S00075.list80 +++| 00085 M00S00076.list80 +++| BLANKS BSS 0 BLANKS 00086 M00S00077.list80 +++| DUP 10,1 00087 M00S00078.list80 +++| CON 1R 00088 M00S00079.list80 +++| LIST80 TITLE LIST80 - MAIN PROGRAM. 00089 M00S00080.list80 +++| 00090 M00S00081.list80 +++| 00091 M00S00082.list80 +++| LIST80 SB1 1 ENTRY 00092 M00S00083.list80 +++| RJ ARG PROCESS ARGUMENTS 00093 M00S00084.list80 +++| LST1 READ I 00094 M00S00085.list80 +++| SX6 LSL SET LINE LIST 00095 M00S00086.list80 +++| SA0 SRN SET INITIAL LIST DISABLE 00096 M00S00087.list80 +++| SA6 CKSAE+1 00097 M00S00088.list80 +++| EQ LST3 READ FIRST LINE OF *IFILE* 00098 M00S00089.list80 +++| 00099 M00S00090.list80 +++| LST2 WRITES O,SBUF,SBUFL 00100 M00S00091.list80 +++| LST3 READS I,MBUF,MBUFL 00101 M00S00092.list80 +++| NG X1,LST4 IF EOF 00102 M00S00093.list80 +++| NZ X1,LST1 IF EOR 00103 M00S00094.list80 +++| SA1 MBUF 00104 M00S00095.list80 +++| SX6 X1-1R1 00105 M00S00096.list80 +++| ZR X6,PEJ IF PAGE EJECT 00106 M00S00097.list80 +++| SB2 A0 00107 M00S00098.list80 +++| JP B2 PROCESS LINE 00108 M00S00099.list80 +++| 00109 M00S00100.list80 +++| LST4 WRITER O 00110 M00S00101.list80 +++| MESSAGE (=C* CONVERSION COMPLETE.*),3 00111 M00S00102.list80 +++| ENDRUN 00112 M00S00103.list80 +++| TITLE SUBROUTINES. 00113 M00S00104.list80 +++| CKS SPACE 4,10 00114 M00S00105.list80 +++|** CKS - CHECK SUBTITLE. 00115 M00S00106.list80 +++|* 00116 M00S00107.list80 +++|* EXIT TO *LST2*. 00117 M00S00108.list80 +++|* 00118 M00S00109.list80 +++|* USES A - 0, 1, 2, 6. 00119 M00S00110.list80 +++|* X - 1, 2, 4, 6, 7. 00120 M00S00111.list80 +++|* B - 2. 00121 M00S00112.list80 +++|* 00122 M00S00113.list80 +++|* MACROS MOVE. 00123 M00S00114.list80 +++| 00124 M00S00115.list80 +++| 00125 M00S00116.list80 +++| CKS SA1 MBUF+8 ASSEMBLE 10 CHARACTERS 00126 M00S00117.list80 +++| MX4 1 00127 M00S00118.list80 +++| BX6 X6-X6 00128 M00S00119.list80 +++| CKS1 LX6 6 00129 M00S00120.list80 +++| BX6 X1+X6 00130 M00S00121.list80 +++| LX4 6 00131 M00S00122.list80 +++| SA1 A1+B1 00132 M00S00123.list80 +++| PL X4,CKS1 IF NOT END OF WORD 00133 M00S00124.list80 +++| SA6 CKSAE 00134 M00S00125.list80 +++| SA2 CKSA 00135 M00S00126.list80 +++| SB2 B1+B1 00136 M00S00127.list80 +++| CKS2 BX7 X6-X2 00137 M00S00128.list80 +++| SA1 A2+B1 00138 M00S00129.list80 +++| SA2 A2+B2 00139 M00S00130.list80 +++| SA0 X1 00140 M00S00131.list80 +++| NZ X7,CKS2 IF NOT SUBTITLE 00141 M00S00132.list80 +++| SX6 1R 00142 M00S00133.list80 +++| SA6 SBUF 00143 M00S00134.list80 +++| SA6 A6+B1 00144 M00S00135.list80 +++| MOVE 46,MBUF+8,A6+B1 MOVE SUBTITLE 00145 M00S00136.list80 +++| MOVE 31,MBUF+69,SBUF+48 MOVE SUB-SUBTITLE 00146 M00S00137.list80 +++| EQ LST2 WRITE LINE 00147 M00S00138.list80 +++| 00148 M00S00139.list80 +++| CKSA BSS 0 00149 M00S00140.list80 +++| CON 10HSTORAGE AL,STA 00150 M00S00141.list80 +++| CON 10HSYMBOLIC R,REF 00151 M00S00142.list80 +++| CON 10HERROR DIRE,ERD 00152 M00S00143.list80 +++| CKSAE CON 0,LSL 00153 M00S00144.list80 +++| ERD SPACE 4,10 00154 M00S00145.list80 +++|** ERD - LIST ERROR DIRECTORY. 00155 M00S00146.list80 +++|* 00156 M00S00147.list80 +++|* EXIT TO *LST2*. 00157 M00S00148.list80 +++|* 00158 M00S00149.list80 +++|* USES A - 1, 6. 00159 M00S00150.list80 +++|* X - 1, 6. 00160 M00S00151.list80 +++|* B - 2, 3, 4. 00161 M00S00152.list80 +++|* 00162 M00S00153.list80 +++|* MACROS MOVE. 00163 M00S00154.list80 +++| 00164 M00S00155.list80 +++| 00165 M00S00156.list80 +++| ERD SA1 MBUF+16 00166 M00S00157.list80 +++| SX6 X1-1R 00167 M00S00158.list80 +++| ZR X6,ERD1 IF NOT TYPE EXPLANATION 00168 M00S00159.list80 +++| MOVE 16,MBUF+12,SBUF 00169 M00S00160.list80 +++| MOVE 64,MBUF+40,SBUF+16 00170 M00S00161.list80 +++| EQ LST2 WRITE LINE 00171 M00S00162.list80 +++| 00172 M00S00163.list80 +++| ERD1 MOVE 21,MBUF+19,SBUF 00173 M00S00164.list80 +++| SB2 9 NUMBER OF FIELDS TO MOVE 00174 M00S00165.list80 +++| SB3 MBUF+44 00175 M00S00166.list80 +++| SB4 SBUF+21 00176 M00S00167.list80 +++| ERD2 MOVE 6,B3,B4 MOVE FIELD 00177 M00S00168.list80 +++| SB3 B3+10 00178 M00S00169.list80 +++| SB4 B4+6 00179 M00S00170.list80 +++| SB2 B2-1 00180 M00S00171.list80 +++| NZ B2,ERD2 IF NOT END OF LINE 00181 M00S00172.list80 +++| MOVE 4,BLANKS,SBUF+75 CLEAR LAST PART OF LINE 00182 M00S00173.list80 +++| SX6 LSL 00183 M00S00174.list80 +++| SA6 CKSAE+1 RESET LINE LIST 00184 M00S00175.list80 +++| EQ LST2 WRITE LINE 00185 M00S00176.list80 +++| LSL SPACE 4,10 00186 M00S00177.list80 +++|** LSL - LIST LINE. 00187 M00S00178.list80 +++|* 00188 M00S00179.list80 +++|* EXIT TO *LST2*. 00189 M00S00180.list80 +++|* 00190 M00S00181.list80 +++|* USES A - 0, 1, 2, 6, 7. 00191 M00S00182.list80 +++|* X - 1, 2, 3, 4, 6, 7. 00192 M00S00183.list80 +++|* B - 2. 00193 M00S00184.list80 +++|* 00194 M00S00185.list80 +++|* MACROS MOVE. 00195 M00S00186.list80 +++| 00196 M00S00187.list80 +++| 00197 M00S00188.list80 +++| LSL MOVE 7,MBUF+7,SBUF+1 LOCATION FIELD 00198 M00S00189.list80 +++| MOVE 64,MBUF+40,SBUF+8 CARD IMAGE 00199 M00S00190.list80 +++| MOVE 6,MBUF+120,SBUF+72 SEQUENCE NUMBER 00200 M00S00191.list80 +++| SA1 MBUF+1 FIRST ERROR CODE (IF ANY) 00201 M00S00192.list80 +++| MX4 1 00202 M00S00193.list80 +++| BX6 X1 00203 M00S00194.list80 +++| SA6 SBUF+1 00204 M00S00195.list80 +++| SA1 MBUF+112 ASSEMBLE CARD NAME 00205 M00S00196.list80 +++| SB2 X1-1R 00206 M00S00197.list80 +++| ZR B2,LSL2 IF BLANK NAME 00207 M00S00198.list80 +++| BX6 X6-X6 00208 M00S00199.list80 +++| LX4 3*6 00209 M00S00200.list80 +++| SA2 LSLA 00210 M00S00201.list80 +++| LSL1 LX6 6 00211 M00S00202.list80 +++| BX6 X6+X1 00212 M00S00203.list80 +++| LX4 6 00213 M00S00204.list80 +++| SA1 A1+B1 00214 M00S00205.list80 +++| PL X4,LSL1 IF NOT END OF WORD 00215 M00S00206.list80 +++| BX3 X2-X6 00216 M00S00207.list80 +++| ZR X3,LSL2 IF SAME CARD NAME 00217 M00S00208.list80 +++| SA6 A2 SET NEW NAME 00218 M00S00209.list80 +++| SX7 1R 00219 M00S00210.list80 +++| SA7 SBUF+65 00220 M00S00211.list80 +++| MOVE 7,MBUF+112,SBUF+66 00221 M00S00212.list80 +++| LSL2 SA1 MBUF+40 CHECK CARD TYPE 00222 M00S00213.list80 +++| SX6 X1-1R* 00223 M00S00214.list80 +++| SB2 X1-1R, 00224 M00S00215.list80 +++| ZR X6,LST2 IF COMMENT 00225 M00S00216.list80 +++| ZR B2,LST2 IF CONTINUATION 00226 M00S00217.list80 +++| SA1 MBUF+50 ASSEMBLE OPCODE 00227 M00S00218.list80 +++| MX4 1 00228 M00S00219.list80 +++| BX6 X6-X6 00229 M00S00220.list80 +++| SA2 LSLB 00230 M00S00221.list80 +++| LX4 3*6 00231 M00S00222.list80 +++| LSL3 LX6 6 00232 M00S00223.list80 +++| BX6 X6+X1 00233 M00S00224.list80 +++| LX4 6 00234 M00S00225.list80 +++| SA1 A1+B1 00235 M00S00226.list80 +++| PL X4,LSL3 IF NOT END OF WORD 00236 M00S00227.list80 +++| BX7 X2-X6 00237 M00S00228.list80 +++| ZR X7,LSL5 IF *END* 00238 M00S00229.list80 +++| LSL4 SA2 A2+B1 00239 M00S00230.list80 +++| BX7 X2-X6 00240 M00S00231.list80 +++| ZR X2,LST2 IF EOL 00241 M00S00232.list80 +++| NZ X7,LSL4 IF NOT *EQU* TYPE 00242 M00S00233.list80 +++| MOVE 7,MBUF+29,SBUF 00243 M00S00234.list80 +++| SX6 1R 00244 M00S00235.list80 +++| SA6 SBUF 00245 M00S00236.list80 +++| EQ LST2 WRITE LINE 00246 M00S00237.list80 +++| 00247 M00S00238.list80 +++|* PROCESS STATISTICS. 00248 M00S00239.list80 +++| 00249 M00S00240.list80 +++| LSL5 SA0 LSL6 SET STATISTICS LIST 00250 M00S00241.list80 +++| SX6 A0+ 00251 M00S00242.list80 +++| SA6 CKSAE+1 00252 M00S00243.list80 +++| EQ LST2 WRITE LINE 00253 M00S00244.list80 +++| 00254 M00S00245.list80 +++| LSL6 MX4 1 CHECK FOR NEW IDENT 00255 M00S00246.list80 +++| SA1 MBUF+50 00256 M00S00247.list80 +++| BX6 X6-X6 00257 M00S00248.list80 +++| LX4 3*6 00258 M00S00249.list80 +++| SA2 LSLC 00259 M00S00250.list80 +++| LSL7 LX6 6 00260 M00S00251.list80 +++| BX6 X1+X6 00261 M00S00252.list80 +++| LX4 6 00262 M00S00253.list80 +++| SA1 A1+B1 00263 M00S00254.list80 +++| PL X4,LSL7 IF NOT YET 7 CHARACTERS 00264 M00S00255.list80 +++| SX7 LSL 00265 M00S00256.list80 +++| BX6 X6-X2 00266 M00S00257.list80 +++| NZ X6,LSL8 IF NOT *IDENT* 00267 M00S00258.list80 +++| SA0 X7 00268 M00S00259.list80 +++| SA7 CKSAE+1 00269 M00S00260.list80 +++| EQ LSL PROCESS IDENT 00270 M00S00261.list80 +++| 00271 M00S00262.list80 +++| LSL8 MOVE 75,MBUF+27,SBUF 00272 M00S00263.list80 +++| MOVE 5,BLANKS,SBUF+75 00273 M00S00264.list80 +++| EQ LST2 WRITE LINE 00274 M00S00265.list80 +++| 00275 M00S00266.list80 +++| LSLA CON 1H 00276 M00S00267.list80 +++| 00277 M00S00268.list80 +++| LSLB BSS 0 00278 M00S00269.list80 +++| CON 7REND 00279 M00S00270.list80 +++| LSLC CON 7RIDENT 00280 M00S00271.list80 +++| CON 7REQU 00281 M00S00272.list80 +++| CON 7RSET 00282 M00S00273.list80 +++| CON 7RDUP 00283 M00S00274.list80 +++| CON 7RMAX 00284 M00S00275.list80 +++| CON 7RMIN 00285 M00S00276.list80 +++| CON 7RCOL 00286 M00S00277.list80 +++| CON 7RBASE 00287 M00S00278.list80 +++| CON 0 00288 M00S00279.list80 +++| PEJ SPACE 4,10 00289 M00S00280.list80 +++|** PEJ - PROCESS EJECT. 00290 M00S00281.list80 +++|* 00291 M00S00282.list80 +++|* EXIT (A0) = LINE PROCESSOR. 00292 M00S00283.list80 +++|* EXIT TO *LST2*. 00293 M00S00284.list80 +++|* 00294 M00S00285.list80 +++|* USES A - 0, 1, 6, 7. 00295 M00S00286.list80 +++|* X - 1, 6, 7. 00296 M00S00287.list80 +++|* 00297 M00S00288.list80 +++|* MACROS MOVE. 00298 M00S00289.list80 +++| 00299 M00S00290.list80 +++| 00300 M00S00291.list80 +++| PEJ SA0 CKS SET SUBTITLE CHECK 00301 M00S00292.list80 +++| SX6 1R1 SET EJECT 00302 M00S00293.list80 +++| SX7 1R 00303 M00S00294.list80 +++| SA6 SBUF 00304 M00S00295.list80 +++| SA7 A6+1 00305 M00S00296.list80 +++| MOVE 46,MBUF+8,A7+B1 TITLE 00306 M00S00297.list80 +++| MOVE 21,MBUF+89,SBUF+47 DATE/TIME 00307 M00S00298.list80 +++| MOVE 5,MBUF+115,SBUF+68 * PAGE* 00308 M00S00299.list80 +++| MOVE 7,MBUF+121,SBUF+73 PAGE NUMBER 00309 M00S00300.list80 +++| SA1 =1H CLEAR CARD NAME 00310 M00S00301.list80 +++| BX6 X1 00311 M00S00302.list80 +++| SA6 LSLA
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00312 M01S00009.ns22000 +++| SA1 PD+1 GET *PD* CONTROL WORD 00313 M01S00010.ns22000 +++| BX6 X6-X6 DISABLE USE OF *PD* 00314 M01S00011.ns22000 +++| SA6 A1 00315 M01S00012.ns22000 +++| WRITEW O,PD,X1 WRITE PRINT DENSITY FORMAT CONTROL 00316 M00S00303.list80 +++| EQ LST2 WRITE LINE 00317 M00S00304.list80 +++| REF SPACE 4,10 00318 M00S00305.list80 +++|** REF - LIST CROSS REFERENCE TABLE. 00319 M00S00306.list80 +++|* 00320 M00S00307.list80 +++|* EXIT TO *LST2*. 00321 M00S00308.list80 +++|* 00322 M00S00309.list80 +++|* USES A - 1, 6. 00323 M00S00310.list80 +++|* X - 1, 6. 00324 M00S00311.list80 +++|* B - 2, 3, 4. 00325 M00S00312.list80 +++|* 00326 M00S00313.list80 +++|* MACROS MOVE. 00327 M00S00314.list80 +++| 00328 M00S00315.list80 +++| 00329 M00S00316.list80 +++| REF SA1 MBUF+67 00330 M00S00317.list80 +++| SX6 X1-1R= 00331 M00S00318.list80 +++| NZ X6,REF1 IF NOT QUALIFIER LINE 00332 M00S00319.list80 +++| MOVE 30,MBUF+50,SBUF+18 00333 M00S00320.list80 +++| EQ LST2 WRITE LINE 00334 M00S00321.list80 +++| 00335 M00S00322.list80 +++| REF1 MOVE 9,MBUF+7,SBUF SYMBOL NAME 00336 M00S00323.list80 +++| MOVE 7,MBUF+17,SBUF+9 SYMBOL VALUE 00337 M00S00324.list80 +++| SB3 MBUF+42 00338 M00S00325.list80 +++| SB2 8 NUMBER OF FIELDS TO MOVE 00339 M00S00326.list80 +++| SB4 SBUF+16 00340 M00S00327.list80 +++| REF2 MOVE 8,B3,B4 MOVE FIELD *PPP/LL F* 00341 M00S00328.list80 +++| SB3 B3+10 00342 M00S00329.list80 +++| SB4 B4+8 00343 M00S00330.list80 +++| SB2 B2-1 00344 M00S00331.list80 +++| NZ B2,REF2 IF NOT END OF LINE 00345 M00S00332.list80 +++| SX6 LSL RESET LINE LIST 00346 M00S00333.list80 +++| SA6 CKSAE+1 00347 M00S00334.list80 +++| EQ LST2 WRITE LINE 00348 M00S00335.list80 +++| SRN SPACE 4,10 00349 M00S00336.list80 +++|** SRN - SET RECORD NAME. 00350 M00S00337.list80 +++|* 00351 M00S00338.list80 +++|* EXIT TO *LST3*. 00352 M00S00339.list80 +++|* 00353 M00S00340.list80 +++|* USES A - 1, 6.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00013.ns22000 +++|* B - 3. 00355 M00S00341.list80 +++|* X - 1, 4, 6. 00356 M00S00342.list80 +++|* 00357 M00S00343.list80 +++|* MACROS MESSAGE. 00358 M00S00344.list80 +++| 00359 M00S00345.list80 +++| 00360 M00S00346.list80 +++| SRN SA1 MBUF
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00361 M01S00014.ns22000 +++| SB3 X1-1RS 00362 M01S00015.ns22000 +++| ZR B3,SRN2 IF 6 LPI PRINT DENSITY IMAGE 00363 M01S00016.ns22000 +++| EQ B3,B1,SRN2 IF 8 LPI PRINT DENSITY IMAGE 00364 M00S00347.list80 +++| SX6 B0 00365 M00S00348.list80 +++| MX4 10 00366 M00S00349.list80 +++| SRN1 LX6 6 00367 M00S00350.list80 +++| BX6 X6+X1 00368 M00S00351.list80 +++| LX4 1 00369 M00S00352.list80 +++| SA1 A1+B1 00370 M00S00353.list80 +++| NG X4,SRN1 IF NOT 7 CHARACTERS CHECKED 00371 M00S00354.list80 +++| LX6 -6 00372 M00S00355.list80 +++| SA6 SRNA+1 00373 M00S00356.list80 +++| MESSAGE A6-B1,1 00374 M00S00357.list80 +++| EQ LST3 READ NEXT LINE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00375 M01S00017.ns22000 +++| 00376 M01S00018.ns22000 +++| SRN2 SX6 X1 00377 M01S00019.ns22000 +++| LX6 -6 00378 M01S00020.ns22000 +++| SA6 PD 00379 M01S00021.ns22000 +++| EQ LST3 READ NEXT LINE 00380 M00S00358.list80 +++| 00381 M00S00359.list80 +++| SRNA DATA 10HCONVERTING 00382 M00S00360.list80 +++| DATA 0,0 00383 M00S00361.list80 +++| STA SPACE 4,10 00384 M00S00362.list80 +++|** STA - LIST STORAGE ALLOCATION. 00385 M00S00363.list80 +++|* 00386 M00S00364.list80 +++|* EXIT TO *LST2*. 00387 M00S00365.list80 +++|* 00388 M00S00366.list80 +++|* USES A - 1. 00389 M00S00367.list80 +++|* X - 1, 6. 00390 M00S00368.list80 +++|* 00391 M00S00369.list80 +++|* MACROS MOVE. 00392 M00S00370.list80 +++| 00393 M00S00371.list80 +++| 00394 M00S00372.list80 +++| STA SA1 MBUF+26 CHECK LINE TYPE 00395 M00S00373.list80 +++| SX6 X1-1R 00396 M00S00374.list80 +++| ZR X6,STA1 IF NOT ALLOCATION 00397 M00S00375.list80 +++| MOVE 76,MBUF+18,SBUF 00398 M00S00376.list80 +++| EQ LST2 WRITE LINE 00399 M00S00377.list80 +++| 00400 M00S00378.list80 +++| STA1 MOVE 76,MBUF+38,SBUF 00401 M00S00379.list80 +++| EQ LST2 WRITE LINE 00402 M00S00380.list80 +++| SPACE 4,10 00403 M00S00381.list80 +++|** COMMON DECKS. 00404 M00S00382.list80 +++| 00405 M00S00383.list80 +++| 00406 M00S00384.list80 +++|*CALL COMCCIO 00407 M00S00385.list80 +++|*CALL COMCMVE 00408 M00S00386.list80 +++|*CALL COMCRDS 00409 M00S00387.list80 +++|*CALL COMCRDW 00410 M00S00388.list80 +++|*CALL COMCSYS 00411 M00S00389.list80 +++|*CALL COMCWTS 00412 M00S00390.list80 +++|*CALL COMCWTW 00413 M00S00391.list80 +++| BUFFERS SPACE 4,10 00414 M00S00392.list80 +++|** BUFFERS. 00415 M00S00393.list80 +++| 00416 M00S00394.list80 +++| 00417 M00S00395.list80 +++| ENDS BSS 0 00418 M00S00396.list80 +++| USE // 00419 M00S00397.list80 +++| IBUF BSS IBUFL 00420 M00S00398.list80 +++| OBUF BSS OBUFL 00421 M00S00399.list80 +++| END BSS 0 00422 M00S00400.list80 +++| RFL= BSS 0 00423 M00S00401.list80 +++| USE * 00424 M00S00402.list80 +++| ARG SPACE 4,10 00425 M00S00403.list80 +++|** ARG - PROCESS ARGUMENTS. 00426 M00S00404.list80 +++|* 00427 M00S00405.list80 +++|* USES A - 1, 2, 6, 7. 00428 M00S00406.list80 +++|* X - 0, 1, 2, 3, 4, 6, 7. 00429 M00S00407.list80 +++|* B - 2, 7. 00430 M00S00408.list80 +++|*
| Line S00409 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00431 M01S00409.ns22000 ---|* MACROS ABORT, MESSAGE.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00432 M01S00022.ns22000 +++|* CALLS IPP. 00433 M01S00023.ns22000 +++|* 00434 M01S00024.ns22000 +++|* MACROS ABORT, MESSAGE, REWIND. 00435 M00S00410.list80 +++| 00436 M00S00411.list80 +++| 00437 M00S00412.list80 +++| ORG IBUF 00438 M00S00413.list80 +++| SEG 00439 M00S00414.list80 +++|
| Line S00415 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00440 M01S00415.ns22000 ---| ARG5 NZ X0,ARGX IF NO REWIND
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00441 M01S00025.ns22000 +++| ARG5 NZ X0,ARG6 IF NO REWIND 00442 M00S00416.list80 +++| REWIND I
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00443 M01S00026.ns22000 +++| ARG6 RJ IPP INITIALIZE PAGE PARAMETERS 00444 M00S00417.list80 +++| 00445 M00S00418.list80 +++| ARG SUBR ENTRY/EXIT 00446 M00S00419.list80 +++| SX7 A0-END CHECK FL 00447 M00S00420.list80 +++| PL X7,ARG1 IF ENOUGH FIELD LENGTH 00448 M00S00421.list80 +++| MESSAGE ARGA * FL TOO SHORT FOR LIST, NEED XXXXB.* 00449 M00S00422.list80 +++| ABORT ABORT 00450 M00S00423.list80 +++| 00451 M00S00424.list80 +++| ARG1 SB2 IBUF SPLIT FL BETWEEN BUFFERS 00452 M00S00425.list80 +++| BX0 X0-X0 CLEAR NO REWIND 00453 M00S00426.list80 +++| SX1 A0-B2 00454 M00S00427.list80 +++| AX1 1 00455 M00S00428.list80 +++| SX6 X1+B2 LIMIT FOR I = FIRST FOR O 00456 M00S00429.list80 +++| SX7 A0+ LIMIT FOR O = FL 00457 M00S00430.list80 +++| SA6 I+4 00458 M00S00431.list80 +++| SA7 O+4 00459 M00S00432.list80 +++| SA6 A7-B1 00460 M00S00433.list80 +++| SA6 A6-B1
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00027.ns22000 +++| SX7 B1 00462 M01S00028.ns22000 +++| LX7 18 00463 M01S00029.ns22000 +++| BX6 X6+X7 SET FET SIZE TO 1+MINIMUM 00464 M00S00434.list80 +++| SA6 A6-B1 00465 M00S00435.list80 +++| SX7 B2 (0) = POINTER TO I BUFFER 00466 M00S00436.list80 +++| SA7 B0 00467 M00S00437.list80 +++| SA1 ACTR CHECK ARGUMENT COUNT 00468 M00S00438.list80 +++| MX4 42 00469 M00S00439.list80 +++| 00470 M00S00440.list80 +++|* PROCESS *IFILE* NAME. 00471 M00S00441.list80 +++| 00472 M00S00442.list80 +++| SB7 X1 00473 M00S00443.list80 +++| ZR B7,ARG5 IF NO ARGUMENTS 00474 M00S00444.list80 +++| SA1 B1+B1 SET *IFILE* NAME 00475 M00S00445.list80 +++| SA2 I 00476 M00S00446.list80 +++| BX7 X4*X1 00477 M00S00447.list80 +++| SX3 X2 00478 M00S00448.list80 +++| ZR X7,ARG2 IF BLANK ARGUMENT 00479 M00S00449.list80 +++| IX7 X7+X3 00480 M00S00450.list80 +++| SA7 A2 00481 M00S00451.list80 +++| 00482 M00S00452.list80 +++|* PROCESS *OFILE* NAME. 00483 M00S00453.list80 +++| 00484 M00S00454.list80 +++| ARG2 SB7 B7-B1 00485 M00S00455.list80 +++| ZR B7,ARG4 IF 1 ARGUMENT 00486 M00S00456.list80 +++| SA1 A1+B1 SET *OFILE* NAME 00487 M00S00457.list80 +++| SA2 O 00488 M00S00458.list80 +++| BX7 X4*X1 00489 M00S00459.list80 +++| ZR X7,ARG3 IF BLANK ARGUMENT 00490 M00S00460.list80 +++| IX7 X7+X3 00491 M00S00461.list80 +++| SA7 A2 00492 M00S00462.list80 +++| 00493 M00S00463.list80 +++|* CHECK FOR NO REWIND. 00494 M00S00464.list80 +++| 00495 M00S00465.list80 +++| ARG3 SX0 B7-B1 00496 M00S00466.list80 +++| 00497 M00S00467.list80 +++|* CHECK FILE NAMES. 00498 M00S00468.list80 +++| 00499 M00S00469.list80 +++| ARG4 SA1 I CHECK FILE NAMES 00500 M00S00470.list80 +++| SA2 O 00501 M00S00471.list80 +++| BX7 X1-X2 00502 M00S00472.list80 +++| AX7 18 00503 M00S00473.list80 +++| NZ X7,ARG5 IF *IFILE* NE. *OFILE* 00504 M00S00474.list80 +++| MESSAGE ARGB * FILE NAME CONFLICT.* 00505 M00S00475.list80 +++| ABORT ABORT 00506 M00S00476.list80 +++| 00507 M00S00477.list80 +++| .1 OCTMIC ENDS+END-IBUF+20 00508 M00S00478.list80 +++| ARGA DATA C* FL TOO SHORT FOR LIST, NEED ".1"B.* 00509 M00S00479.list80 +++| 00510 M00S00480.list80 +++| ARGB DATA C* FILE NAME CONFLICT.*
| Line S00481 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00511 M01S00481.ns22000 ---| SPACE 4
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00512 M01S00030.ns22000 +++|IPP SPACE 4,15 00513 M01S00031.ns22000 +++|** IPP - INITIALIZE PAGE PARAMETERS. 00514 M01S00032.ns22000 +++|* 00515 M01S00033.ns22000 +++|* ENTRY NONE. 00516 M01S00034.ns22000 +++|* 00517 M01S00035.ns22000 +++|* EXIT PRINT DENSITY SET UP IF NOT TTY. 00518 M01S00036.ns22000 +++|* 00519 M01S00037.ns22000 +++|* USES A - 6. 00520 M01S00038.ns22000 +++|* B - NONE. 00521 M01S00039.ns22000 +++|* X - 2, 6. 00522 M01S00040.ns22000 +++|* 00523 M01S00041.ns22000 +++|* CALLS STF. 00524 M01S00042.ns22000 +++|* 00525 M01S00043.ns22000 +++|* MACROS GETPP. 00526 M01S00044.ns22000 +++| 00527 M01S00045.ns22000 +++| 00528 M01S00046.ns22000 +++| IPP SUBR ENTRY/EXIT 00529 M01S00047.ns22000 +++| SX2 O FET ADDRESS OF PRINT FILE 00530 M01S00048.ns22000 +++| RJ STF 00531 M01S00049.ns22000 +++| ZR X6,IPPX IF TTY PRINT FILE 00532 M01S00050.ns22000 +++| GETPP IPPA,PL,PD 00533 M01S00051.ns22000 +++| SX6 B1+ 00534 M01S00052.ns22000 +++| SA6 PD+1 SET CONTROL WORD TO USE *PD* 00535 M01S00053.ns22000 +++| EQ IPPX RETURN 00536 M01S00054.ns22000 +++| 00537 M01S00055.ns22000 +++| IPPA BSSZ 2 GETPAGE RESPONSE BLOCK 00538 M01S00056.ns22000 +++| SPACE 4,5 00539 M01S00057.ns22000 +++|* COMMON DECKS FOR PRESET. 00540 M01S00058.ns22000 +++| 00541 M01S00059.ns22000 +++|*CALL COMCCPM 00542 M01S00060.ns22000 +++|*CALL COMCSTF 00543 M01S00061.ns22000 +++| 00544 M00S00482.list80 +++| END
cdc/nos2.source/opl.opl871/deck/list80.txt · Last modified: by 127.0.0.1