cdc:nos2.source:opl.opl871:deck:list80
Deck LIST80
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.list80 +++| IDENT LIST80,FETS 00002 M01S00002.list80 +++| ABS 00003 M01S00003.list80 +++| SYSCOM B1 DEFINE (B1) = 1 00004 M01S00004.list80 +++| SPACE 4,10 00005 M01S00005.list80 +++|*COMMENT LIST80 - COMPRESS COMPASS LISTINGS.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | list80 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. , 1971. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.list80 +++| SPACE 4,10 00009 M01S00008.list80 +++| ENTRY LIST80 00010 M01S00009.list80 +++| ENTRY RFL= 00011 M01S00010.list80 +++| TITLE LIST80 - COMPRESS COMPASS LISTINGS. 00012 M01S00011.list80 +++| TITLE 00013 M01S00012.list80 +++|*** LIST80 - COMPRESS COMPASS LISTINGS. 00014 M01S00013.list80 +++|* G. R. MANSFIELD. 00015 M01S00014.list80 +++|* D. R. HILGREN. 79/04/25. RESEQUENCED. 00016 M01S00015.list80 +++| SPACE 4,10 00017 M01S00016.list80 +++|*** *LIST80* READS A FILE CONTAINING LIST OUTPUT 00018 M01S00017.list80 +++|* PRODUCED BY THE COMPASS COMPILER AND COMPRESSES IT TO 80 00019 M01S00018.list80 +++|* COLUMNS. 00020 M01S00019.list80 +++| SPACE 4,10 00021 M01S00020.list80 +++|*** CONTROL CARD CALL. 00022 M01S00021.list80 +++|* 00023 M01S00022.list80 +++|* LIST80(IFILE,OFILE,NR) 00024 M01S00023.list80 +++|* IFILE FILE TO COPY FROM. 00025 M01S00024.list80 +++|* OFILE FILE TO COPY TO. 00026 M01S00025.list80 +++|* NR IF PRESENT, *IFILE* WILL NOT BE REWOUND. 00027 M01S00026.list80 +++|* 00028 M01S00027.list80 +++|* ASSUMED PARAMETERS. 00029 M01S00028.list80 +++|* IFILE = *LIST* 00030 M01S00029.list80 +++|* OFILE = *OUTPUT* 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 M01S00030.list80 +++| SPACE 4,10 00036 M01S00031.list80 +++|*** DAYFILE MESSAGES. 00037 M01S00032.list80 +++|* 00038 M01S00033.list80 +++|* * CONVERSION COMPLETE.* - *LIST80* COMPLETED. 00039 M01S00034.list80 +++|* 00040 M01S00035.list80 +++|* * FILE NAME CONFLICT.* - *IFILE* AND *OFILE* HAVE THE SAME 00041 M01S00036.list80 +++|* NAME. 00042 M01S00037.list80 +++|* 00043 M01S00038.list80 +++|* * FL TOO SHORT FOR LIST.* - NOT ENOUGH STORAGE FOR LIST. 00044 M01S00039.list80 +++| SPACE 4,10 00045 M01S00040.list80 +++|**** ASSEMBLY CONSTANTS. 00046 M01S00041.list80 +++| 00047 M01S00042.list80 +++| 00048 M01S00043.list80 +++| IBUFL EQU 2001B 00049 M01S00044.list80 +++| OBUFL EQU 2001B 00050 M01S00045.list80 +++| 00051 M01S00046.list80 +++|**** 00052 M01S00047.list80 +++| SPACE 4,10 00053 M01S00048.list80 +++|* COMMON DECKS. 00054 M01S00049.list80 +++| 00055 M01S00050.list80 +++| 00056 M01S00051.list80 +++|*CALL COMCMAC 00057 M01S00005.ns22000 +++|*CALL COMCCMD 00058 M01S00052.list80 +++|**** 00059 M01S00053.list80 +++| TITLE STORAGE ASSIGNMENT. 00060 M01S00054.list80 +++|* STORAGE ASSIGNMENT. 00061 M01S00055.list80 +++| 00062 M01S00056.list80 +++| 00063 M01S00057.list80 +++| ORG 110B 00064 M01S00058.list80 +++| FETS BSS 0 00065 M01S00059.list80 +++| 00066 M01S00060.list80 +++| I BSS 0 *IFILE* 00067 M01S00061.list80 +++| LIST FILEC IBUF,IBUFL 00068 M01S00062.list80 +++| 00069 M01S00063.list80 +++| O BSS 0 *OFILE*
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | list80 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00064.ns22000 ---| OUTPUT FILEC OBUF,OBUFL 00071 M01S00006.ns22000 +++| OUTPUT FILEC OBUF,OBUFL,(FET=6) 00072 M01S00065.list80 +++| 00073 M01S00066.list80 +++| MBUF BSS 136 WORKING READ BUFFER 00074 M01S00067.list80 +++| MBUFL EQU *-MBUF 00075 M01S00068.list80 +++| 00076 M01S00069.list80 +++| SBUF BSS 80 WORKING WRITE BUFFER 00077 M01S00070.list80 +++| SBUFL EQU *-SBUF 00078 M01S00071.list80 +++| BSS 10 00079 M01S00072.list80 +++| SPACE 4,10 00080 M01S00073.list80 +++|* PROGRAM CONSTANTS. 00081 M01S00074.list80 +++| 00082 M01S00007.ns22000 +++| PD CON 1LS,0 PRINT DENSITY / CONTROL WORD 00083 M01S00008.ns22000 +++| PL CON 0 PAGE LENGTH 00084 M01S00075.list80 +++| 00085 M01S00076.list80 +++| BLANKS BSS 0 BLANKS 00086 M01S00077.list80 +++| DUP 10,1 00087 M01S00078.list80 +++| CON 1R 00088 M01S00079.list80 +++| LIST80 TITLE LIST80 - MAIN PROGRAM. 00089 M01S00080.list80 +++| 00090 M01S00081.list80 +++| 00091 M01S00082.list80 +++| LIST80 SB1 1 ENTRY 00092 M01S00083.list80 +++| RJ ARG PROCESS ARGUMENTS 00093 M01S00084.list80 +++| LST1 READ I 00094 M01S00085.list80 +++| SX6 LSL SET LINE LIST 00095 M01S00086.list80 +++| SA0 SRN SET INITIAL LIST DISABLE 00096 M01S00087.list80 +++| SA6 CKSAE+1 00097 M01S00088.list80 +++| EQ LST3 READ FIRST LINE OF *IFILE* 00098 M01S00089.list80 +++| 00099 M01S00090.list80 +++| LST2 WRITES O,SBUF,SBUFL 00100 M01S00091.list80 +++| LST3 READS I,MBUF,MBUFL 00101 M01S00092.list80 +++| NG X1,LST4 IF EOF 00102 M01S00093.list80 +++| NZ X1,LST1 IF EOR 00103 M01S00094.list80 +++| SA1 MBUF 00104 M01S00095.list80 +++| SX6 X1-1R1 00105 M01S00096.list80 +++| ZR X6,PEJ IF PAGE EJECT 00106 M01S00097.list80 +++| SB2 A0 00107 M01S00098.list80 +++| JP B2 PROCESS LINE 00108 M01S00099.list80 +++| 00109 M01S00100.list80 +++| LST4 WRITER O 00110 M01S00101.list80 +++| MESSAGE (=C* CONVERSION COMPLETE.*),3 00111 M01S00102.list80 +++| ENDRUN 00112 M01S00103.list80 +++| TITLE SUBROUTINES. 00113 M01S00104.list80 +++| CKS SPACE 4,10 00114 M01S00105.list80 +++|** CKS - CHECK SUBTITLE. 00115 M01S00106.list80 +++|* 00116 M01S00107.list80 +++|* EXIT TO *LST2*. 00117 M01S00108.list80 +++|* 00118 M01S00109.list80 +++|* USES A - 0, 1, 2, 6. 00119 M01S00110.list80 +++|* X - 1, 2, 4, 6, 7. 00120 M01S00111.list80 +++|* B - 2. 00121 M01S00112.list80 +++|* 00122 M01S00113.list80 +++|* MACROS MOVE. 00123 M01S00114.list80 +++| 00124 M01S00115.list80 +++| 00125 M01S00116.list80 +++| CKS SA1 MBUF+8 ASSEMBLE 10 CHARACTERS 00126 M01S00117.list80 +++| MX4 1 00127 M01S00118.list80 +++| BX6 X6-X6 00128 M01S00119.list80 +++| CKS1 LX6 6 00129 M01S00120.list80 +++| BX6 X1+X6 00130 M01S00121.list80 +++| LX4 6 00131 M01S00122.list80 +++| SA1 A1+B1 00132 M01S00123.list80 +++| PL X4,CKS1 IF NOT END OF WORD 00133 M01S00124.list80 +++| SA6 CKSAE 00134 M01S00125.list80 +++| SA2 CKSA 00135 M01S00126.list80 +++| SB2 B1+B1 00136 M01S00127.list80 +++| CKS2 BX7 X6-X2 00137 M01S00128.list80 +++| SA1 A2+B1 00138 M01S00129.list80 +++| SA2 A2+B2 00139 M01S00130.list80 +++| SA0 X1 00140 M01S00131.list80 +++| NZ X7,CKS2 IF NOT SUBTITLE 00141 M01S00132.list80 +++| SX6 1R 00142 M01S00133.list80 +++| SA6 SBUF 00143 M01S00134.list80 +++| SA6 A6+B1 00144 M01S00135.list80 +++| MOVE 46,MBUF+8,A6+B1 MOVE SUBTITLE 00145 M01S00136.list80 +++| MOVE 31,MBUF+69,SBUF+48 MOVE SUB-SUBTITLE 00146 M01S00137.list80 +++| EQ LST2 WRITE LINE 00147 M01S00138.list80 +++| 00148 M01S00139.list80 +++| CKSA BSS 0 00149 M01S00140.list80 +++| CON 10HSTORAGE AL,STA 00150 M01S00141.list80 +++| CON 10HSYMBOLIC R,REF 00151 M01S00142.list80 +++| CON 10HERROR DIRE,ERD 00152 M01S00143.list80 +++| CKSAE CON 0,LSL 00153 M01S00144.list80 +++| ERD SPACE 4,10 00154 M01S00145.list80 +++|** ERD - LIST ERROR DIRECTORY. 00155 M01S00146.list80 +++|* 00156 M01S00147.list80 +++|* EXIT TO *LST2*. 00157 M01S00148.list80 +++|* 00158 M01S00149.list80 +++|* USES A - 1, 6. 00159 M01S00150.list80 +++|* X - 1, 6. 00160 M01S00151.list80 +++|* B - 2, 3, 4. 00161 M01S00152.list80 +++|* 00162 M01S00153.list80 +++|* MACROS MOVE. 00163 M01S00154.list80 +++| 00164 M01S00155.list80 +++| 00165 M01S00156.list80 +++| ERD SA1 MBUF+16 00166 M01S00157.list80 +++| SX6 X1-1R 00167 M01S00158.list80 +++| ZR X6,ERD1 IF NOT TYPE EXPLANATION 00168 M01S00159.list80 +++| MOVE 16,MBUF+12,SBUF 00169 M01S00160.list80 +++| MOVE 64,MBUF+40,SBUF+16 00170 M01S00161.list80 +++| EQ LST2 WRITE LINE 00171 M01S00162.list80 +++| 00172 M01S00163.list80 +++| ERD1 MOVE 21,MBUF+19,SBUF 00173 M01S00164.list80 +++| SB2 9 NUMBER OF FIELDS TO MOVE 00174 M01S00165.list80 +++| SB3 MBUF+44 00175 M01S00166.list80 +++| SB4 SBUF+21 00176 M01S00167.list80 +++| ERD2 MOVE 6,B3,B4 MOVE FIELD 00177 M01S00168.list80 +++| SB3 B3+10 00178 M01S00169.list80 +++| SB4 B4+6 00179 M01S00170.list80 +++| SB2 B2-1 00180 M01S00171.list80 +++| NZ B2,ERD2 IF NOT END OF LINE 00181 M01S00172.list80 +++| MOVE 4,BLANKS,SBUF+75 CLEAR LAST PART OF LINE 00182 M01S00173.list80 +++| SX6 LSL 00183 M01S00174.list80 +++| SA6 CKSAE+1 RESET LINE LIST 00184 M01S00175.list80 +++| EQ LST2 WRITE LINE 00185 M01S00176.list80 +++| LSL SPACE 4,10 00186 M01S00177.list80 +++|** LSL - LIST LINE. 00187 M01S00178.list80 +++|* 00188 M01S00179.list80 +++|* EXIT TO *LST2*. 00189 M01S00180.list80 +++|* 00190 M01S00181.list80 +++|* USES A - 0, 1, 2, 6, 7. 00191 M01S00182.list80 +++|* X - 1, 2, 3, 4, 6, 7. 00192 M01S00183.list80 +++|* B - 2. 00193 M01S00184.list80 +++|* 00194 M01S00185.list80 +++|* MACROS MOVE. 00195 M01S00186.list80 +++| 00196 M01S00187.list80 +++| 00197 M01S00188.list80 +++| LSL MOVE 7,MBUF+7,SBUF+1 LOCATION FIELD 00198 M01S00189.list80 +++| MOVE 64,MBUF+40,SBUF+8 CARD IMAGE 00199 M01S00190.list80 +++| MOVE 6,MBUF+120,SBUF+72 SEQUENCE NUMBER 00200 M01S00191.list80 +++| SA1 MBUF+1 FIRST ERROR CODE (IF ANY) 00201 M01S00192.list80 +++| MX4 1 00202 M01S00193.list80 +++| BX6 X1 00203 M01S00194.list80 +++| SA6 SBUF+1 00204 M01S00195.list80 +++| SA1 MBUF+112 ASSEMBLE CARD NAME 00205 M01S00196.list80 +++| SB2 X1-1R 00206 M01S00197.list80 +++| ZR B2,LSL2 IF BLANK NAME 00207 M01S00198.list80 +++| BX6 X6-X6 00208 M01S00199.list80 +++| LX4 3*6 00209 M01S00200.list80 +++| SA2 LSLA 00210 M01S00201.list80 +++| LSL1 LX6 6 00211 M01S00202.list80 +++| BX6 X6+X1 00212 M01S00203.list80 +++| LX4 6 00213 M01S00204.list80 +++| SA1 A1+B1 00214 M01S00205.list80 +++| PL X4,LSL1 IF NOT END OF WORD 00215 M01S00206.list80 +++| BX3 X2-X6 00216 M01S00207.list80 +++| ZR X3,LSL2 IF SAME CARD NAME 00217 M01S00208.list80 +++| SA6 A2 SET NEW NAME 00218 M01S00209.list80 +++| SX7 1R 00219 M01S00210.list80 +++| SA7 SBUF+65 00220 M01S00211.list80 +++| MOVE 7,MBUF+112,SBUF+66 00221 M01S00212.list80 +++| LSL2 SA1 MBUF+40 CHECK CARD TYPE 00222 M01S00213.list80 +++| SX6 X1-1R* 00223 M01S00214.list80 +++| SB2 X1-1R, 00224 M01S00215.list80 +++| ZR X6,LST2 IF COMMENT 00225 M01S00216.list80 +++| ZR B2,LST2 IF CONTINUATION 00226 M01S00217.list80 +++| SA1 MBUF+50 ASSEMBLE OPCODE 00227 M01S00218.list80 +++| MX4 1 00228 M01S00219.list80 +++| BX6 X6-X6 00229 M01S00220.list80 +++| SA2 LSLB 00230 M01S00221.list80 +++| LX4 3*6 00231 M01S00222.list80 +++| LSL3 LX6 6 00232 M01S00223.list80 +++| BX6 X6+X1 00233 M01S00224.list80 +++| LX4 6 00234 M01S00225.list80 +++| SA1 A1+B1 00235 M01S00226.list80 +++| PL X4,LSL3 IF NOT END OF WORD 00236 M01S00227.list80 +++| BX7 X2-X6 00237 M01S00228.list80 +++| ZR X7,LSL5 IF *END* 00238 M01S00229.list80 +++| LSL4 SA2 A2+B1 00239 M01S00230.list80 +++| BX7 X2-X6 00240 M01S00231.list80 +++| ZR X2,LST2 IF EOL 00241 M01S00232.list80 +++| NZ X7,LSL4 IF NOT *EQU* TYPE 00242 M01S00233.list80 +++| MOVE 7,MBUF+29,SBUF 00243 M01S00234.list80 +++| SX6 1R 00244 M01S00235.list80 +++| SA6 SBUF 00245 M01S00236.list80 +++| EQ LST2 WRITE LINE 00246 M01S00237.list80 +++| 00247 M01S00238.list80 +++|* PROCESS STATISTICS. 00248 M01S00239.list80 +++| 00249 M01S00240.list80 +++| LSL5 SA0 LSL6 SET STATISTICS LIST 00250 M01S00241.list80 +++| SX6 A0+ 00251 M01S00242.list80 +++| SA6 CKSAE+1 00252 M01S00243.list80 +++| EQ LST2 WRITE LINE 00253 M01S00244.list80 +++| 00254 M01S00245.list80 +++| LSL6 MX4 1 CHECK FOR NEW IDENT 00255 M01S00246.list80 +++| SA1 MBUF+50 00256 M01S00247.list80 +++| BX6 X6-X6 00257 M01S00248.list80 +++| LX4 3*6 00258 M01S00249.list80 +++| SA2 LSLC 00259 M01S00250.list80 +++| LSL7 LX6 6 00260 M01S00251.list80 +++| BX6 X1+X6 00261 M01S00252.list80 +++| LX4 6 00262 M01S00253.list80 +++| SA1 A1+B1 00263 M01S00254.list80 +++| PL X4,LSL7 IF NOT YET 7 CHARACTERS 00264 M01S00255.list80 +++| SX7 LSL 00265 M01S00256.list80 +++| BX6 X6-X2 00266 M01S00257.list80 +++| NZ X6,LSL8 IF NOT *IDENT* 00267 M01S00258.list80 +++| SA0 X7 00268 M01S00259.list80 +++| SA7 CKSAE+1 00269 M01S00260.list80 +++| EQ LSL PROCESS IDENT 00270 M01S00261.list80 +++| 00271 M01S00262.list80 +++| LSL8 MOVE 75,MBUF+27,SBUF 00272 M01S00263.list80 +++| MOVE 5,BLANKS,SBUF+75 00273 M01S00264.list80 +++| EQ LST2 WRITE LINE 00274 M01S00265.list80 +++| 00275 M01S00266.list80 +++| LSLA CON 1H 00276 M01S00267.list80 +++| 00277 M01S00268.list80 +++| LSLB BSS 0 00278 M01S00269.list80 +++| CON 7REND 00279 M01S00270.list80 +++| LSLC CON 7RIDENT 00280 M01S00271.list80 +++| CON 7REQU 00281 M01S00272.list80 +++| CON 7RSET 00282 M01S00273.list80 +++| CON 7RDUP 00283 M01S00274.list80 +++| CON 7RMAX 00284 M01S00275.list80 +++| CON 7RMIN 00285 M01S00276.list80 +++| CON 7RCOL 00286 M01S00277.list80 +++| CON 7RBASE 00287 M01S00278.list80 +++| CON 0 00288 M01S00279.list80 +++| PEJ SPACE 4,10 00289 M01S00280.list80 +++|** PEJ - PROCESS EJECT. 00290 M01S00281.list80 +++|* 00291 M01S00282.list80 +++|* EXIT (A0) = LINE PROCESSOR. 00292 M01S00283.list80 +++|* EXIT TO *LST2*. 00293 M01S00284.list80 +++|* 00294 M01S00285.list80 +++|* USES A - 0, 1, 6, 7. 00295 M01S00286.list80 +++|* X - 1, 6, 7. 00296 M01S00287.list80 +++|* 00297 M01S00288.list80 +++|* MACROS MOVE. 00298 M01S00289.list80 +++| 00299 M01S00290.list80 +++| 00300 M01S00291.list80 +++| PEJ SA0 CKS SET SUBTITLE CHECK 00301 M01S00292.list80 +++| SX6 1R1 SET EJECT 00302 M01S00293.list80 +++| SX7 1R 00303 M01S00294.list80 +++| SA6 SBUF 00304 M01S00295.list80 +++| SA7 A6+1 00305 M01S00296.list80 +++| MOVE 46,MBUF+8,A7+B1 TITLE 00306 M01S00297.list80 +++| MOVE 21,MBUF+89,SBUF+47 DATE/TIME 00307 M01S00298.list80 +++| MOVE 5,MBUF+115,SBUF+68 * PAGE* 00308 M01S00299.list80 +++| MOVE 7,MBUF+121,SBUF+73 PAGE NUMBER 00309 M01S00300.list80 +++| SA1 =1H CLEAR CARD NAME 00310 M01S00301.list80 +++| BX6 X1 00311 M01S00302.list80 +++| SA6 LSLA 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 M01S00303.list80 +++| EQ LST2 WRITE LINE 00317 M01S00304.list80 +++| REF SPACE 4,10 00318 M01S00305.list80 +++|** REF - LIST CROSS REFERENCE TABLE. 00319 M01S00306.list80 +++|* 00320 M01S00307.list80 +++|* EXIT TO *LST2*. 00321 M01S00308.list80 +++|* 00322 M01S00309.list80 +++|* USES A - 1, 6. 00323 M01S00310.list80 +++|* X - 1, 6. 00324 M01S00311.list80 +++|* B - 2, 3, 4. 00325 M01S00312.list80 +++|* 00326 M01S00313.list80 +++|* MACROS MOVE. 00327 M01S00314.list80 +++| 00328 M01S00315.list80 +++| 00329 M01S00316.list80 +++| REF SA1 MBUF+67 00330 M01S00317.list80 +++| SX6 X1-1R= 00331 M01S00318.list80 +++| NZ X6,REF1 IF NOT QUALIFIER LINE 00332 M01S00319.list80 +++| MOVE 30,MBUF+50,SBUF+18 00333 M01S00320.list80 +++| EQ LST2 WRITE LINE 00334 M01S00321.list80 +++| 00335 M01S00322.list80 +++| REF1 MOVE 9,MBUF+7,SBUF SYMBOL NAME 00336 M01S00323.list80 +++| MOVE 7,MBUF+17,SBUF+9 SYMBOL VALUE 00337 M01S00324.list80 +++| SB3 MBUF+42 00338 M01S00325.list80 +++| SB2 8 NUMBER OF FIELDS TO MOVE 00339 M01S00326.list80 +++| SB4 SBUF+16 00340 M01S00327.list80 +++| REF2 MOVE 8,B3,B4 MOVE FIELD *PPP/LL F* 00341 M01S00328.list80 +++| SB3 B3+10 00342 M01S00329.list80 +++| SB4 B4+8 00343 M01S00330.list80 +++| SB2 B2-1 00344 M01S00331.list80 +++| NZ B2,REF2 IF NOT END OF LINE 00345 M01S00332.list80 +++| SX6 LSL RESET LINE LIST 00346 M01S00333.list80 +++| SA6 CKSAE+1 00347 M01S00334.list80 +++| EQ LST2 WRITE LINE 00348 M01S00335.list80 +++| SRN SPACE 4,10 00349 M01S00336.list80 +++|** SRN - SET RECORD NAME. 00350 M01S00337.list80 +++|* 00351 M01S00338.list80 +++|* EXIT TO *LST3*. 00352 M01S00339.list80 +++|* 00353 M01S00340.list80 +++|* USES A - 1, 6. 00354 M01S00013.ns22000 +++|* B - 3. 00355 M01S00341.list80 +++|* X - 1, 4, 6. 00356 M01S00342.list80 +++|* 00357 M01S00343.list80 +++|* MACROS MESSAGE. 00358 M01S00344.list80 +++| 00359 M01S00345.list80 +++| 00360 M01S00346.list80 +++| SRN SA1 MBUF 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 M01S00347.list80 +++| SX6 B0 00365 M01S00348.list80 +++| MX4 10 00366 M01S00349.list80 +++| SRN1 LX6 6 00367 M01S00350.list80 +++| BX6 X6+X1 00368 M01S00351.list80 +++| LX4 1 00369 M01S00352.list80 +++| SA1 A1+B1 00370 M01S00353.list80 +++| NG X4,SRN1 IF NOT 7 CHARACTERS CHECKED 00371 M01S00354.list80 +++| LX6 -6 00372 M01S00355.list80 +++| SA6 SRNA+1 00373 M01S00356.list80 +++| MESSAGE A6-B1,1 00374 M01S00357.list80 +++| EQ LST3 READ NEXT LINE 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 M01S00358.list80 +++| 00381 M01S00359.list80 +++| SRNA DATA 10HCONVERTING 00382 M01S00360.list80 +++| DATA 0,0 00383 M01S00361.list80 +++| STA SPACE 4,10 00384 M01S00362.list80 +++|** STA - LIST STORAGE ALLOCATION. 00385 M01S00363.list80 +++|* 00386 M01S00364.list80 +++|* EXIT TO *LST2*. 00387 M01S00365.list80 +++|* 00388 M01S00366.list80 +++|* USES A - 1. 00389 M01S00367.list80 +++|* X - 1, 6. 00390 M01S00368.list80 +++|* 00391 M01S00369.list80 +++|* MACROS MOVE. 00392 M01S00370.list80 +++| 00393 M01S00371.list80 +++| 00394 M01S00372.list80 +++| STA SA1 MBUF+26 CHECK LINE TYPE 00395 M01S00373.list80 +++| SX6 X1-1R 00396 M01S00374.list80 +++| ZR X6,STA1 IF NOT ALLOCATION 00397 M01S00375.list80 +++| MOVE 76,MBUF+18,SBUF 00398 M01S00376.list80 +++| EQ LST2 WRITE LINE 00399 M01S00377.list80 +++| 00400 M01S00378.list80 +++| STA1 MOVE 76,MBUF+38,SBUF 00401 M01S00379.list80 +++| EQ LST2 WRITE LINE 00402 M01S00380.list80 +++| SPACE 4,10 00403 M01S00381.list80 +++|** COMMON DECKS. 00404 M01S00382.list80 +++| 00405 M01S00383.list80 +++| 00406 M01S00384.list80 +++|*CALL COMCCIO 00407 M01S00385.list80 +++|*CALL COMCMVE 00408 M01S00386.list80 +++|*CALL COMCRDS 00409 M01S00387.list80 +++|*CALL COMCRDW 00410 M01S00388.list80 +++|*CALL COMCSYS 00411 M01S00389.list80 +++|*CALL COMCWTS 00412 M01S00390.list80 +++|*CALL COMCWTW 00413 M01S00391.list80 +++| BUFFERS SPACE 4,10 00414 M01S00392.list80 +++|** BUFFERS. 00415 M01S00393.list80 +++| 00416 M01S00394.list80 +++| 00417 M01S00395.list80 +++| ENDS BSS 0 00418 M01S00396.list80 +++| USE // 00419 M01S00397.list80 +++| IBUF BSS IBUFL 00420 M01S00398.list80 +++| OBUF BSS OBUFL 00421 M01S00399.list80 +++| END BSS 0 00422 M01S00400.list80 +++| RFL= BSS 0 00423 M01S00401.list80 +++| USE * 00424 M01S00402.list80 +++| ARG SPACE 4,10 00425 M01S00403.list80 +++|** ARG - PROCESS ARGUMENTS. 00426 M01S00404.list80 +++|* 00427 M01S00405.list80 +++|* USES A - 1, 2, 6, 7. 00428 M01S00406.list80 +++|* X - 0, 1, 2, 3, 4, 6, 7. 00429 M01S00407.list80 +++|* B - 2, 7. 00430 M01S00408.list80 +++|*
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | list80 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00431 M02S00409.ns22000 ---|* MACROS ABORT, MESSAGE. 00432 M01S00022.ns22000 +++|* CALLS IPP. 00433 M01S00023.ns22000 +++|* 00434 M01S00024.ns22000 +++|* MACROS ABORT, MESSAGE, REWIND. 00435 M01S00410.list80 +++| 00436 M01S00411.list80 +++| 00437 M01S00412.list80 +++| ORG IBUF 00438 M01S00413.list80 +++| SEG 00439 M01S00414.list80 +++|
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | list80 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00440 M02S00415.ns22000 ---| ARG5 NZ X0,ARGX IF NO REWIND 00441 M01S00025.ns22000 +++| ARG5 NZ X0,ARG6 IF NO REWIND 00442 M01S00416.list80 +++| REWIND I 00443 M01S00026.ns22000 +++| ARG6 RJ IPP INITIALIZE PAGE PARAMETERS 00444 M01S00417.list80 +++| 00445 M01S00418.list80 +++| ARG SUBR ENTRY/EXIT 00446 M01S00419.list80 +++| SX7 A0-END CHECK FL 00447 M01S00420.list80 +++| PL X7,ARG1 IF ENOUGH FIELD LENGTH 00448 M01S00421.list80 +++| MESSAGE ARGA * FL TOO SHORT FOR LIST, NEED XXXXB.* 00449 M01S00422.list80 +++| ABORT ABORT 00450 M01S00423.list80 +++| 00451 M01S00424.list80 +++| ARG1 SB2 IBUF SPLIT FL BETWEEN BUFFERS 00452 M01S00425.list80 +++| BX0 X0-X0 CLEAR NO REWIND 00453 M01S00426.list80 +++| SX1 A0-B2 00454 M01S00427.list80 +++| AX1 1 00455 M01S00428.list80 +++| SX6 X1+B2 LIMIT FOR I = FIRST FOR O 00456 M01S00429.list80 +++| SX7 A0+ LIMIT FOR O = FL 00457 M01S00430.list80 +++| SA6 I+4 00458 M01S00431.list80 +++| SA7 O+4 00459 M01S00432.list80 +++| SA6 A7-B1 00460 M01S00433.list80 +++| SA6 A6-B1 00461 M01S00027.ns22000 +++| SX7 B1 00462 M01S00028.ns22000 +++| LX7 18 00463 M01S00029.ns22000 +++| BX6 X6+X7 SET FET SIZE TO 1+MINIMUM 00464 M01S00434.list80 +++| SA6 A6-B1 00465 M01S00435.list80 +++| SX7 B2 (0) = POINTER TO I BUFFER 00466 M01S00436.list80 +++| SA7 B0 00467 M01S00437.list80 +++| SA1 ACTR CHECK ARGUMENT COUNT 00468 M01S00438.list80 +++| MX4 42 00469 M01S00439.list80 +++| 00470 M01S00440.list80 +++|* PROCESS *IFILE* NAME. 00471 M01S00441.list80 +++| 00472 M01S00442.list80 +++| SB7 X1 00473 M01S00443.list80 +++| ZR B7,ARG5 IF NO ARGUMENTS 00474 M01S00444.list80 +++| SA1 B1+B1 SET *IFILE* NAME 00475 M01S00445.list80 +++| SA2 I 00476 M01S00446.list80 +++| BX7 X4*X1 00477 M01S00447.list80 +++| SX3 X2 00478 M01S00448.list80 +++| ZR X7,ARG2 IF BLANK ARGUMENT 00479 M01S00449.list80 +++| IX7 X7+X3 00480 M01S00450.list80 +++| SA7 A2 00481 M01S00451.list80 +++| 00482 M01S00452.list80 +++|* PROCESS *OFILE* NAME. 00483 M01S00453.list80 +++| 00484 M01S00454.list80 +++| ARG2 SB7 B7-B1 00485 M01S00455.list80 +++| ZR B7,ARG4 IF 1 ARGUMENT 00486 M01S00456.list80 +++| SA1 A1+B1 SET *OFILE* NAME 00487 M01S00457.list80 +++| SA2 O 00488 M01S00458.list80 +++| BX7 X4*X1 00489 M01S00459.list80 +++| ZR X7,ARG3 IF BLANK ARGUMENT 00490 M01S00460.list80 +++| IX7 X7+X3 00491 M01S00461.list80 +++| SA7 A2 00492 M01S00462.list80 +++| 00493 M01S00463.list80 +++|* CHECK FOR NO REWIND. 00494 M01S00464.list80 +++| 00495 M01S00465.list80 +++| ARG3 SX0 B7-B1 00496 M01S00466.list80 +++| 00497 M01S00467.list80 +++|* CHECK FILE NAMES. 00498 M01S00468.list80 +++| 00499 M01S00469.list80 +++| ARG4 SA1 I CHECK FILE NAMES 00500 M01S00470.list80 +++| SA2 O 00501 M01S00471.list80 +++| BX7 X1-X2 00502 M01S00472.list80 +++| AX7 18 00503 M01S00473.list80 +++| NZ X7,ARG5 IF *IFILE* NE. *OFILE* 00504 M01S00474.list80 +++| MESSAGE ARGB * FILE NAME CONFLICT.* 00505 M01S00475.list80 +++| ABORT ABORT 00506 M01S00476.list80 +++| 00507 M01S00477.list80 +++| .1 OCTMIC ENDS+END-IBUF+20 00508 M01S00478.list80 +++| ARGA DATA C* FL TOO SHORT FOR LIST, NEED ".1"B.* 00509 M01S00479.list80 +++| 00510 M01S00480.list80 +++| ARGB DATA C* FILE NAME CONFLICT.*
| Line S00481 Modification History | |
|---|---|
M01 (Added by) | list80 |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00511 M02S00481.ns22000 ---| SPACE 4 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 M01S00482.list80 +++| END
cdc/nos2.source/opl.opl871/deck/list80.txt · Last modified: by 127.0.0.1