cdc:nos2.source:opl.opl871:deck:lo72
Deck LO72
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.lo72 +++| IDENT LO72,FETS,LO72 00002 M00S00002.lo72 +++|*COMMENT LO72 - COMPASS REFORMATTER.
| Line S00003 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00003.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP., 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M00S00004.lo72 +++| ABS 00006 M00S00005.lo72 +++| SST 00007 M00S00006.lo72 +++| ENTRY LO72 00008 M00S00007.lo72 +++| ENTRY RFL= 00009 M00S00008.lo72 +++| SYSCOM B1 DEFINE (B1) = 1 00010 M00S00009.lo72 +++| TITLE LO72 - COMPRESS OUTPUT FILES. 00011 M00S00010.lo72 +++| TITLE PROGRAM DOCUMENTATION. 00012 M00S00011.lo72 +++|*** LO72 - LIST OUTPUT 72 COLUMNS. 00013 M00S00012.lo72 +++|* 00014 M00S00013.lo72 +++|* J. K. DOWTY, JR. 70/08/01. 00015 M00S00014.lo72 +++|* 00016 M00S00015.lo72 +++| SPACE 4 00017 M00S00016.lo72 +++|*** LIST OUTPUT 72 (LO72) IS A UTILITY PROGRAM WHICH CAN 00018 M00S00017.lo72 +++|* BE USED TO RE-FORMAT FILES ORIGINALLY INTENDED FOR A 00019 M00S00018.lo72 +++|* LINE PRINTER. PROPER USE OF THE PARAMETERS ALLOWS THE 00020 M00S00019.lo72 +++|* USER TO REARRANGE EACH OUTPUT LINE AS HE DESIRES, OR 00021 M00S00020.lo72 +++|* THE PROGRAM WILL SELECT DEFAULT VALUES ACCORDING TO 00022 M00S00021.lo72 +++|* THE TYPE OF SOURCE INPUT. THE DEFAULT VALUES COMPRESS 00023 M00S00022.lo72 +++|* ALL OUTPUT TO 72 COLUMNS FOR LISTING ON A TELETYPE. 00024 M00S00023.lo72 +++|* IF THE JOB ORIGINATED FROM A TELETYPE, LO72 WILL 00025 M00S00024.lo72 +++|* ASK THE ORIGINATOR IF HE DESIRES TO CHANGE ANY OF THE 00026 M00S00025.lo72 +++|* RE-FORMAT PARAMETERS. IF HE ENTERS *YES* THE PROGRAM 00027 M00S00026.lo72 +++|* PRINTS THE CURRENT NAME OF THE INPUT FILE ON HIS TTY AND 00028 M00S00027.lo72 +++|* THE USER CAN THEN ENTER THE NEW FILE NAME OR JUST *CR* 00029 M00S00028.lo72 +++|* (CARRIAGE RETURN). THE *CR* WILL NOT CHANGE ANYTHING AND 00030 M00S00029.lo72 +++|* THE PROGRAM WILL OUTPUT THE NEXT VALUE. THIS PROCEDURE 00031 M00S00030.lo72 +++|* CONTINUES UNTIL ALL THE PARAMETERS HAVE BEEN COVERED. 00032 M00S00031.lo72 +++|* IF AN *I* PARAMETER IS SPECIFIED, I.E. LO72(I=FNAME), 00033 M00S00032.lo72 +++|* THEN EACH RECORD OF FILE *FNAME* MUST END WITH A 00034 M00S00033.lo72 +++|* TERMINATOR CHARACTER. THE FOLLOWING EXAMPLE OF FILE 00035 M00S00034.lo72 +++|* *FNAME* REQUESTS LO72 TO READ A COMPASS TYPE SOURCE FILE 00036 M00S00035.lo72 +++|* *SOURCE*, RE-FORMAT IT TO WRITE A 105 CHARACTER LINE 00037 M00S00036.lo72 +++|* CONTAINING THE "P" ADDRESS (N1), THE OCTAL WORD
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00038 M01S00037.v23l617 ---|* REPRESENTATION (N2), AND THE CONTENTS OF EACH CARD (N3)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00039 M01S00001.v23l617 +++|* REPRESENTATION (N2), AND THE CONTENTS OF EACH COMMAND (N3) 00040 M00S00038.lo72 +++|* TO THE OUTPUT FILE *OUTFILE*. THE OUTPUT FILE WILL 00041 M00S00039.lo72 +++|* EVENTUALLY BE LISTED ON A LINE PRINTER(LP), BUT IT IS NOT 00042 M00S00040.lo72 +++|* TO BE REWOUND AT THIS TIME(NR). 00043 M00S00041.lo72 +++|* 00044 M00S00042.lo72 +++|* COL. NO. 1 2 3 00045 M00S00043.lo72 +++|* 1 1 1 1 00046 M00S00044.lo72 +++|* S=SOURCE,O=OUTFILE,T=C,H=105,LP,NR. 00047 M00S00045.lo72 +++|* N1=7,N2=21,N3=73. 00048 M00S00046.lo72 +++|* I1=9,I2=16,I3=40. 00049 M00S00047.lo72 +++|* O1=1,O2=8,O3=29. 00050 M00S00048.lo72 +++|* EOF. 00051 M00S00049.lo72 +++|* 00052 M00S00050.lo72 +++| SPACE 4
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00053 M01S00051.v23l617 ---|*** CONTROL CARD CALLS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00054 M01S00002.v23l617 +++|*** THE COMMAND. 00055 M00S00052.lo72 +++|* 00056 M00S00053.lo72 +++|* LO72(I,S,L,T,H,NR) 00057 M00S00054.lo72 +++| SPACE 4 00058 M00S00055.lo72 +++|*** PARAMETERS. 00059 M00S00056.lo72 +++|* 00060 M00S00057.lo72 +++|* I RE-FORMAT PARAMETERS ARE ON FILE *INPUT*. 00061 M00S00058.lo72 +++|* I=FNAME RE-FORMAT PARAMETERS ARE ON FILE *FNAME*.
| Line S00059 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00059.v23l617 ---|* I=0 RE-FORMAT PARAMETERS ARE ON THE CONTROL CARD OR
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00063 M01S00003.v23l617 +++|* I=0 RE-FORMAT PARAMETERS ARE ON THE COMMAND OR 00064 M00S00060.lo72 +++|* SELECT THE APPROPRIATE DEFAULT VALUES. 00065 M00S00061.lo72 +++|* 00066 M00S00062.lo72 +++|* S DATA TO BE RE-FORMATTED IS ON FILE *SCR*. 00067 M00S00063.lo72 +++|* S=FNAME DATA TO BE RE-FORMATTED IS ON FILE *FNAME*. 00068 M00S00064.lo72 +++|* 00069 M00S00065.lo72 +++|* L RE-FORMATTED DATA LISTED TO FILE *OUTPUT*. 00070 M00S00066.lo72 +++|* L=FNAME RE-FORMATTED DATA LISTED TO FILE *FNAME*. 00071 M00S00067.lo72 +++|* 00072 M00S00068.lo72 +++|* T FILE TO BE RE-FORMATTED IS OF TYPE B(BATCH). 00073 M00S00069.lo72 +++|* T=X FILE TO BE RE-FORMATTED IS OF TYPE X, WHERE X 00074 M00S00070.lo72 +++|* CAN BE: M FOR MODIFY SOURCE DATA, 00075 M00S00071.lo72 +++|* C FOR COMPASS SOURCE DATA, OR 00076 M00S00072.lo72 +++|* B FOR MISCELLANEOUS SOURCE DATA. 00077 M00S00073.lo72 +++|* T=0 FILE TYPE IS NOT GIVEN. 00078 M00S00074.lo72 +++|* 00079 M00S00075.lo72 +++|* H NUMBER OF CHARACTERS PER OUTPUT LINE IS 72. 00080 M00S00076.lo72 +++|* H=X-X NUMBER OF CHARACTERS PER OUTPUT LINE IS X-X 00081 M00S00077.lo72 +++|* (MAXIMUM ALLOWED IS 150 CHARACTERS). 00082 M00S00078.lo72 +++|* 00083 M00S00079.lo72 +++|* LP OUTPUT WILL BE FORMATTED FOR THE LINE PRINTER. 00084 M00S00080.lo72 +++|* 00085 M00S00081.lo72 +++|* NR OUTPUT FILE WILL NOT BE REWOUND. 00086 M00S00082.lo72 +++|* 00087 M00S00083.lo72 +++|* NX=Y SPECIFY NUMBER OF CHARACTERS TO BE MOVED. 00088 M00S00084.lo72 +++|* X=1 THRU 6; Y = NUMBER OF CHARACTERS. 00089 M00S00085.lo72 +++|* 00090 M00S00086.lo72 +++|* IX=Y SPECIFY FIRST COLUMN OF DATA TO BE MOVED. 00091 M00S00087.lo72 +++|* X=1 THRU 6; Y = COLUMN NUMBER. 00092 M00S00088.lo72 +++|* 00093 M00S00089.lo72 +++|* OX=Y SPECIFY FIRST COLUMN TO RECEIVE THE DATA. 00094 M00S00090.lo72 +++|* X=1 THRU 6; Y = COLUMN NUMBER. 00095 M00S00091.lo72 +++|* 00096 M00S00092.lo72 +++|* IT IGNORE TERMINAL. IF SET, THE TERMINAL OPTION TO
| Line S00093 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00093.v23l617 ---|* ALTER CONTROL CARD PARAMETERS WILL BE SUPPRESSED.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00098 M01S00004.v23l617 +++|* ALTER COMMAND PARAMETERS WILL BE SUPPRESSED. 00099 M00S00094.lo72 +++|* 00100 M00S00095.lo72 +++|* NOTE: N1+N2+...+N6 MUST BE LESS THAN OR EQUAL TO H. 00101 M00S00096.lo72 +++|* 00102 M00S00097.lo72 +++| EJECT 00103 M00S00098.lo72 +++|*** PARAMETER DEFAULT VALUES LISTED BY SOURCE FILE TYPES. 00104 M00S00099.lo72 +++|* B(BATCH) C(COMPASS) M(MODIFY) 00105 M00S00100.lo72 +++|* 00106 M00S00101.lo72 +++|* I=0 I=0 I=0 00107 M00S00102.lo72 +++|* S=SCR S=SCR S=SCR 00108 M00S00103.lo72 +++|* L=OUTPUT L=OUTPUT L=OUTPUT 00109 M00S00104.lo72 +++|* T=B T=C T=M 00110 M00S00105.lo72 +++|* H=72 H=72 H=72 00111 M00S00106.lo72 +++|* NR NOT SET NR NOT SET NR NOT SET 00112 M00S00107.lo72 +++|* LP NOT SET LP NOT SET LP NOT SET 00113 M00S00108.lo72 +++|* N1=72 N1=7 N1=2 00114 M00S00109.lo72 +++|* N2 THRU N6=0 N2=50 N2=48 00115 M00S00110.lo72 +++|* I1=1 N3=15 N3=22 00116 M00S00111.lo72 +++|* I2 THRU I6=0 N4 THRU N6=0 N4 THRU N6=0 00117 M00S00112.lo72 +++|* O1=1 I1=9 I1=6 00118 M00S00113.lo72 +++|* O2 THRU O6=0 I2=41 I2=10 00119 M00S00114.lo72 +++|* I3=112 I3=82 00120 M00S00115.lo72 +++|* I4 THRU I6=0 I4 THRU I6=0 00121 M00S00116.lo72 +++|* O1=1 O1=1 00122 M00S00117.lo72 +++|* O2=8 O2=3 00123 M00S00118.lo72 +++|* O3=58 O3=51 00124 M00S00119.lo72 +++|* O4 THRU O6=0 O4 THRU O6=0 00125 M00S00120.lo72 +++|* 00126 M00S00121.lo72 +++| SPACE 4 00127 M00S00122.lo72 +++|*** DAYFILE MESSAGES. 00128 M00S00123.lo72 +++|* 00129 M00S00124.lo72 +++|* *ARGUMENT ERROR.* = ARGUMENT PROCESSOR *COMCARG* RETURNED AN 00130 M00S00125.lo72 +++|* ERROR STATUS. CORRECT AND RE-SUBMIT THE JOB. 00131 M00S00126.lo72 +++|* *INPUT FILE ERROR.* = AN ERROR WAS ENCOUNTERED BY *COMCUPC*
| Line S00127 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00132 M01S00127.v23l617 ---|* (UNPACK CONTROL CARD) WHILE UNPACKING AN INPUT RECORD.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00005.v23l617 +++|* (UNPACK COMMAND) WHILE UNPACKING AN INPUT RECORD. 00134 M00S00128.lo72 +++|* *UNRECOGNIZABLE TYPE SPECIFIED.* = THE TYPE SPECIFIED WAS 00135 M00S00129.lo72 +++|* NOT *B*, *C*, OR *M*. 00136 M00S00130.lo72 +++|* *FILE NAME CONFLICT.* = SOURCE AND OUTPUT FILE NAMES 00137 M00S00131.lo72 +++|* ARE THE SAME. 00138 M00S00132.lo72 +++|* *IX OR OX NOT DEFINED.* = THE *I* OR *O* PARAMETER WAS 00139 M00S00133.lo72 +++|* NOT SPECIFIED FOR A SPECIFIED *N*, AND THERE ARE 00140 M00S00134.lo72 +++|* NO DEFAULTS.
| Line S00135 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00135.v23l617 ---|* *INVALID PARAMETER.* = THE *S* OR *L* PARAMETER
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00142 M01S00006.v23l617 +++|* *INCORRECT PARAMETER.* = THE *S* OR *L* PARAMETER 00143 M00S00136.lo72 +++|* WERE ENTERED AS ZERO.
| Line S00137 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00144 M01S00137.v23l617 ---|* *H VALUE INVALID.* = THE *H* PARAMETER ENTERED WAS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00145 M01S00007.v23l617 +++|* *H VALUE INCORRECT.* = THE *H* PARAMETER ENTERED WAS 00146 M00S00138.lo72 +++|* ZERO OR GREATER THAN BUFFER LENGTH.
| Line S00139 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00139.v23l617 ---|* *INVALID LINE LENGTH.* = ONE OF THE FOLLOWING OUT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00008.v23l617 +++|* *INCORRECT LINE LENGTH.* = ONE OF THE FOLLOWING OUT 00149 M00S00140.lo72 +++|* OF BOUNDS CONDITIONS EXISTS WITH RESPECT TO 00150 M00S00141.lo72 +++|* *IX*, *NX*, *OX* AND *H*. 00151 M00S00142.lo72 +++|* WHERE X = 1...6. 00152 M00S00143.lo72 +++|* ( O(X) + N(X) .GT. H ) OR 00153 M00S00144.lo72 +++|* ( I(X) + N(X) .GT. BUFFER LENGTH ). 00154 M00S00145.lo72 +++| 00155 M00S00146.lo72 +++| TITLE MACROS AND ASSEMBLY CONSTANTS. 00156 M00S00147.lo72 +++|**** ASSEMBLY CONSTANTS. 00157 M00S00148.lo72 +++| IBUFL EQU 1001B 00158 M00S00149.lo72 +++| OBUFL EQU 1001B 00159 M00S00150.lo72 +++| IBUFF EQU 101B 00160 M00S00151.lo72 +++| NPM EQU 6 NUMBER OF MOVES POSSIBLE 00161 M00S00152.lo72 +++|**** 00162 M00S00153.lo72 +++| SPACE 4 00163 M00S00154.lo72 +++|* COMMON DECKS. 00164 M00S00155.lo72 +++| 00165 M00S00156.lo72 +++| 00166 M00S00157.lo72 +++|*CALL COMCMAC 00167 M00S00158.lo72 +++|*CALL COMSTCM 00168 M00S00159.lo72 +++| TITLE FETS, BUFFERS, AND STORAGE AREAS. 00169 M00S00160.lo72 +++|**** FETS AND BUFFERS. 00170 M00S00161.lo72 +++| ORG 103B 00171 M00S00162.lo72 +++| FETS BSS 0 00172 M00S00163.lo72 +++| 00173 M00S00164.lo72 +++| S BSS 0 00174 M00S00165.lo72 +++| SCR FILEC IBUF,IBUFL 00175 M00S00166.lo72 +++| 00176 M00S00167.lo72 +++| O BSS 0 00177 M00S00168.lo72 +++| OUTPUT FILEC OBUF,OBUFL 00178 M00S00169.lo72 +++| 00179 M00S00170.lo72 +++| XBUF BSS 150 00180 M00S00171.lo72 +++| XBUFL EQU *-XBUF 00181 M00S00172.lo72 +++| 00182 M00S00173.lo72 +++| YBUF BSS 150 00183 M00S00174.lo72 +++| YBUFL EQU *-YBUF 00184 M00S00175.lo72 +++| 00185 M00S00176.lo72 +++| FETSL BSS 0 00186 M00S00177.lo72 +++|**** 00187 M00S00178.lo72 +++| 00188 M00S00179.lo72 +++|** STORAGE AREA FOR INPUT VALUES. 00189 M00S00180.lo72 +++| N1 CON 1R* 00190 M00S00181.lo72 +++| N2 CON 1R* 00191 M00S00182.lo72 +++| N3 CON 1R* 00192 M00S00183.lo72 +++| N4 CON 1R* 00193 M00S00184.lo72 +++| N5 CON 1R* 00194 M00S00185.lo72 +++| N6 CON 1R* 00195 M00S00186.lo72 +++| I1 DATA 0 00196 M00S00187.lo72 +++| I2 DATA 0 00197 M00S00188.lo72 +++| I3 DATA 0 00198 M00S00189.lo72 +++| I4 DATA 0 00199 M00S00190.lo72 +++| I5 DATA 0 00200 M00S00191.lo72 +++| I6 DATA 0 00201 M00S00192.lo72 +++| O1 DATA 0 00202 M00S00193.lo72 +++| O2 DATA 0 00203 M00S00194.lo72 +++| O3 DATA 0 00204 M00S00195.lo72 +++| O4 DATA 0 00205 M00S00196.lo72 +++| O5 DATA 0 00206 M00S00197.lo72 +++| O6 DATA 0 00207 M00S00198.lo72 +++| 00208 M00S00199.lo72 +++| T VFD 60D/1LB TYPE 00209 M00S00200.lo72 +++| H VFD 60D/2L72 NUMBER OF CHARS./LINE 00210 M00S00201.lo72 +++| LP DATA 0 LINE PRINTER FLAG 00211 M00S00202.lo72 +++| NR DATA 0 NO REWIND FLAG(OUTPUT FILE ONLY) 00212 M00S00203.lo72 +++| TITLE LO72 - MAIN PROGRAM. 00213 M00S00204.lo72 +++|** LO72 - MAIN PROGRAM LOOP. 00214 M00S00205.lo72 +++|* 00215 M00S00206.lo72 +++|* EXIT- OUTPUT STRING BUFFER WRITTEN TO CIO BUFFER. 00216 M00S00207.lo72 +++|* 00217 M00S00208.lo72 +++|* USES- X - 1, 6. 00218 M00S00209.lo72 +++|* B - 1, 2. 00219 M00S00210.lo72 +++|* A - 0, 1. 00220 M00S00211.lo72 +++| 00221 M00S00212.lo72 +++| 00222 M00S00213.lo72 +++| LO721 READ S,R 00223 M00S00214.lo72 +++| EQ LO723 00224 M00S00215.lo72 +++| 00225 M00S00216.lo72 +++| LO722 SA1 H 00226 M00S00217.lo72 +++| WRITES O,YBUF,X1 00227 M00S00218.lo72 +++| LO723 READS S,XBUF,XBUFL 00228 M00S00219.lo72 +++| NG X1,LO724 IF EOF 00229 M00S00220.lo72 +++| NZ X1,LO721 IF EOR 00230 M00S00221.lo72 +++| SA1 XBUF 00231 M00S00222.lo72 +++| SX6 X1-1R1 00232 M00S00223.lo72 +++| ZR X6,PEJ 00233 M00S00224.lo72 +++| SB2 A0 PROCESS A LINE 00234 M00S00225.lo72 +++| JP B2 00235 M00S00226.lo72 +++| 00236 M00S00227.lo72 +++| LO724 WRITEF O 00237 M00S00228.lo72 +++| SA1 NR 00238 M00S00229.lo72 +++| NZ X1,LO725 00239 M00S00230.lo72 +++| REWIND O 00240 M00S00231.lo72 +++| LO725 MESSAGE (=C* LO72 COMPLETE.*) 00241 M00S00232.lo72 +++| ENDRUN R 00242 M00S00233.lo72 +++| EJECT 00243 M00S00234.lo72 +++| 00244 M00S00235.lo72 +++|** PEJ - PAGE EJECT AND SET HEADER LINE. 00245 M00S00236.lo72 +++|* 00246 M00S00237.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00247 M00S00238.lo72 +++|* PAGE EJECT AND HEADER LINE IN OUTPUT STRING BUFFER. 00248 M00S00239.lo72 +++|* USES X - 1, 2, 3, 5, 7. 00249 M00S00240.lo72 +++|* B - 1, 2, 7. 00250 M00S00241.lo72 +++|* A - 0, 1, 2, 3, 5. 00251 M00S00242.lo72 +++| 00252 M00S00243.lo72 +++| 00253 M00S00244.lo72 +++| PEJ RJ BOB BLANK OUTPUT BUFFER 00254 M00S00245.lo72 +++| SA5 LP 00255 M00S00246.lo72 +++| ZR X5,PEJ0 IF FLAG NOT SET 00256 M00S00247.lo72 +++| MOVE 1,XBUF,YBUF 00257 M00S00248.lo72 +++| EQ PEJ0.5 00258 M00S00249.lo72 +++| 00259 M00S00250.lo72 +++| PEJ0 WRITEC O,EJCT 00260 M00S00251.lo72 +++| PEJ0.5 MOVE 42,XBUF+8,YBUF+X5 00261 M00S00252.lo72 +++| MOVE 20,XBUF+90,YBUF+42 00262 M00S00253.lo72 +++| MOVE 5,XBUF+115,YBUF+62 00263 M00S00254.lo72 +++| MOVE 5,XBUF+121,YBUF+67 00264 M00S00255.lo72 +++| SA1 T 00265 M00S00256.lo72 +++| SB2 X1 00266 M00S00257.lo72 +++| JP B2 00267 M00S00258.lo72 +++| 00268 M00S00259.lo72 +++| PEJ1 SA0 CKS CHECK SUBTITLE LINE 00269 M00S00260.lo72 +++| EQ LO722 00270 M00S00261.lo72 +++| PEJ2 SB7 XBUF+10 SET ADDRESS 00271 M00S00262.lo72 +++| RJ ASC ASSEMBLE CHARACTERS 00272 M00S00263.lo72 +++| SA2 PEJA GET FIRST LIST AREA 00273 M00S00264.lo72 +++| SB2 B1+B1 00274 M00S00265.lo72 +++| PEJ3 BX7 X1-X2 00275 M00S00266.lo72 +++| SA3 A2+B1 00276 M00S00267.lo72 +++| ZR X2,PEJ4 IF CHARACTERS MATCH AREA 00277 M00S00268.lo72 +++| SA2 A2+B2 00278 M00S00269.lo72 +++| NZ X7,PEJ3 00279 M00S00270.lo72 +++| PEJ4 SA0 X3 SET THE ADDRESS 00280 M00S00271.lo72 +++| EQ LO722 00281 M00S00272.lo72 +++| 00282 M00S00273.lo72 +++| PEJ5 SA0 BAT1 SET BATCH ADDRESS 00283 M00S00274.lo72 +++| EQ LO722 00284 M00S00275.lo72 +++| 00285 M00S00276.lo72 +++| EJCT CON 0 00286 M00S00277.lo72 +++| PEJA VFD 24D/4LDECK,36D/0 00287 M00S00278.lo72 +++| VFD 42D/0,18D/DKS 00288 M00S00279.lo72 +++| CON 10HSTATISTICS,STS 00289 M00S00280.lo72 +++| CON 0,LMO 00290 M00S00281.lo72 +++| TITLE BATCH SUBROUTINES. 00291 M00S00282.lo72 +++| 00292 M00S00283.lo72 +++|** BAT1 - SET UP MISC. SOURCE INPUT. 00293 M00S00284.lo72 +++|* 00294 M00S00285.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00295 M00S00286.lo72 +++|* SUBTITLE LINE IN OUTPUT STRING BUFFER. 00296 M00S00287.lo72 +++|* USES X - 5. 00297 M00S00288.lo72 +++|* B - NONE. 00298 M00S00289.lo72 +++|* A - 0, 5. 00299 M00S00290.lo72 +++| 00300 M00S00291.lo72 +++| 00301 M00S00292.lo72 +++| BAT1 RJ BOB 00302 M00S00293.lo72 +++| SA5 LP 00303 M00S00294.lo72 +++| MOVE 43,XBUF+8,YBUF+X5 SET UP SUBTITLE LINE 00304 M00S00295.lo72 +++| SA0 BAT2 00305 M00S00296.lo72 +++| MOVE 29,XBUF+70,YBUF+43 00306 M00S00297.lo72 +++| EQ LO722 00307 M00S00298.lo72 +++| 00308 M00S00299.lo72 +++| BAT2 RJ MMS 00309 M00S00300.lo72 +++| EQ LO722 00310 M00S00301.lo72 +++| TITLE COMPASS SUBROUTINES. 00311 M00S00302.lo72 +++| 00312 M00S00303.lo72 +++|** CKS - CHECK SUBTITLE. 00313 M00S00304.lo72 +++|* 00314 M00S00305.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00315 M00S00306.lo72 +++|* SUBTITLE LINE IN OUTPUT STRING BUFFER. 00316 M00S00307.lo72 +++|* USES - X - 1, 2, 3, 5, 7. 00317 M00S00308.lo72 +++|* B - 1, 2, 7. 00318 M00S00309.lo72 +++|* A - 0, 2, 3, 5. 00319 M00S00310.lo72 +++| 00320 M00S00311.lo72 +++| 00321 M00S00312.lo72 +++| CKS RJ BOB 00322 M00S00313.lo72 +++| SA5 LP 00323 M00S00314.lo72 +++| MOVE 43,XBUF+8,YBUF+X5 00324 M00S00315.lo72 +++| MOVE 29,XBUF+70,YBUF+43 00325 M00S00316.lo72 +++| SB7 XBUF+8 SET ADDRESS 00326 M00S00317.lo72 +++| RJ ASC ASSEMBLE CHARACTERS 00327 M00S00318.lo72 +++| SA2 CKSA GET SUBTITLE 00328 M00S00319.lo72 +++| SB2 B1+B1 00329 M00S00320.lo72 +++| CKS1 BX7 X1-X2 00330 M00S00321.lo72 +++| SA3 A2+B1 GET ASSOCIATED ADDRESS 00331 M00S00322.lo72 +++| ZR X2,CKS2 IF LAST WORD 00332 M00S00323.lo72 +++| SA2 A2+B2 00333 M00S00324.lo72 +++| NZ X7,CKS1 IF SUBTITLES NOT EQUAL 00334 M00S00325.lo72 +++| CKS2 SA0 X3 00335 M00S00326.lo72 +++| EQ LO722 00336 M00S00327.lo72 +++| 00337 M00S00328.lo72 +++| CKSA VFD 42D/7LSTORAGE,18D/0 00338 M00S00329.lo72 +++| VFD 42D/0,18D/STA 00339 M00S00330.lo72 +++| VFD 48D/8LSYMBOLIC,12D/0 00340 M00S00331.lo72 +++| VFD 42D/0,18D/REF 00341 M00S00332.lo72 +++| CKSB VFD 30D/5LERROR,30D/0 00342 M00S00333.lo72 +++| VFD 42D/0,18D/LSL7 00343 M00S00334.lo72 +++| CON 0,LSL 00344 M00S00335.lo72 +++| 00345 M00S00336.lo72 +++| LSL SPACE 4 00346 M00S00337.lo72 +++|** LSL - LIST A LINE FROM COMPASS. 00347 M00S00338.lo72 +++|* 00348 M00S00339.lo72 +++|* EXIT (A0) = ADDRESS OF NEXT ROUTINE IF END CARD NOT FOUND. 00349 M00S00340.lo72 +++|* A LINE OF COMPASS SOURCE CODE PROCESSED. 00350 M00S00341.lo72 +++|* USES X - 0, 1, 2, 5, 6, 7. 00351 M00S00342.lo72 +++|* B - 2, 3, 7. 00352 M00S00343.lo72 +++|* A - 0, 1, 2, 5. 00353 M00S00344.lo72 +++| 00354 M00S00345.lo72 +++| 00355 M00S00346.lo72 +++| LSL RJ MMS 00356 M00S00347.lo72 +++| SB7 XBUF+50 00357 M00S00348.lo72 +++| RJ ASC ASSEMBLE OP-CODE 00358 M00S00349.lo72 +++| SA2 LSLA 00359 M00S00350.lo72 +++| BX7 X1-X2 00360 M00S00351.lo72 +++| NZ X7,LO722 IF NOT *END* 00361 M00S00352.lo72 +++| 00362 M00S00353.lo72 +++|** PROCESS -STORAGE USED-, ETC. 00363 M00S00354.lo72 +++|* 00364 M00S00355.lo72 +++| SA0 LSL2 00365 M00S00356.lo72 +++| EQ LO722 00366 M00S00357.lo72 +++| 00367 M00S00358.lo72 +++| LSL2 RJ BOB 00368 M00S00359.lo72 +++| SB7 XBUF+40 00369 M00S00360.lo72 +++| RJ ASC 00370 M00S00361.lo72 +++| SA2 CKSA 00371 M00S00362.lo72 +++| BX6 X1-X2 00372 M00S00363.lo72 +++| NZ X6,LSL3 IF NOT -STORAGE USED- LINE 00373 M00S00364.lo72 +++| MOVE 17,XBUF+80,2 SAVE -XXXXXXXXX SYMBOLS- 00374 M00S00365.lo72 +++| SA5 LP 00375 M00S00366.lo72 +++| MOVE 9,XBUF+27,YBUF+X5 -STORAGE USED- 00376 M00S00367.lo72 +++| MOVE 13,XBUF+39,YBUF+10 00377 M00S00368.lo72 +++| MOVE 22,XBUF+58,YBUF+23 -STATEMENTS- 00378 M00S00369.lo72 +++| MOVE 27,XBUF+99,YBUF+45 -INVENTED SYMBOLS- 00379 M00S00370.lo72 +++| EQ LO722 00380 M00S00371.lo72 +++| 00381 M00S00372.lo72 +++| LSL3 SB7 XBUF+51 00382 M00S00373.lo72 +++| RJ ASC 00383 M00S00374.lo72 +++| ZR X1,LMO 00384 M00S00375.lo72 +++| MX0 30 00385 M00S00376.lo72 +++| BX1 X0*X1 MASK THE *S* IN *ERRORS* 00386 M00S00377.lo72 +++| SA2 CKSB 00387 M00S00378.lo72 +++| BX6 X1-X2 00388 M00S00379.lo72 +++| ZR X6,LSL5 IF THERE WERE ASSEMBLY ERRORS 00389 M00S00380.lo72 +++| SA5 LP 00390 M00S00381.lo72 +++| MOVE 15,XBUF+38,YBUF+X5 -ASSEMBLY- 00391 M00S00382.lo72 +++| MOVE 18,XBUF+59,YBUF+16 -SECONDS- 00392 M00S00383.lo72 +++| MOVE 21,XBUF+80,YBUF+34 -REFERENCES- 00393 M00S00384.lo72 +++| MOVE 17,2,YBUF+55 -SYMBOLS- 00394 M00S00385.lo72 +++| MOVE 8,XBUF+29,2 00395 M00S00386.lo72 +++| EQ LO722 00396 M00S00387.lo72 +++| 00397 M00S00388.lo72 +++| LSL5 SA5 LP 00398 M00S00389.lo72 +++| MOVE 55,XBUF+40,YBUF+X5 -ERRORS IN- 00399 M00S00390.lo72 +++| EQ LO722 00400 M00S00391.lo72 +++| 00401 M00S00392.lo72 +++|** PROCESS ERROR DIRECTORY 00402 M00S00393.lo72 +++|* 00403 M00S00394.lo72 +++| LSL7 SA1 XBUF+21 00404 M00S00395.lo72 +++| SX1 X1-1R 00405 M00S00396.lo72 +++| ZR X1,LMO 00406 M00S00397.lo72 +++| RJ BOB 00407 M00S00398.lo72 +++| SA5 LP 00408 M00S00399.lo72 +++| MOVE 13,XBUF+14,YBUF+X5 -TYPE ERROR- 00409 M00S00400.lo72 +++| MOVE 59,XBUF+40,YBUF+14 DESCRIPTION OF ERROR 00410 M00S00401.lo72 +++| SA0 LSL8 00411 M00S00402.lo72 +++| EQ LO722 00412 M00S00403.lo72 +++| 00413 M00S00404.lo72 +++| LSL8 SB7 XBUF+21 00414 M00S00405.lo72 +++| RJ ASC 00415 M00S00406.lo72 +++| SA2 CKSB 00416 M00S00407.lo72 +++| BX6 X1-X2 00417 M00S00408.lo72 +++| ZR X6,LSL7 IF *ERROR* 00418 M00S00409.lo72 +++| RJ BOB 00419 M00S00410.lo72 +++| SA5 LP 00420 M00S00411.lo72 +++| MOVE 18,XBUF+21,YBUF+X5 00421 M00S00412.lo72 +++| MX0 1 00422 M00S00413.lo72 +++| LX0 6 00423 M00S00414.lo72 +++| SB2 XBUF+44 00424 M00S00415.lo72 +++| SB3 YBUF+18 00425 M00S00416.lo72 +++| LSL9 MOVE 6,B2,B3 MOVE THE PAGE NUMBERS 00426 M00S00417.lo72 +++| LX0 6 00427 M00S00418.lo72 +++| SB2 B2+10 00428 M00S00419.lo72 +++| SB3 B3+6 00429 M00S00420.lo72 +++| PL X0,LSL9 00430 M00S00421.lo72 +++| EQ LO722 00431 M00S00422.lo72 +++| 00432 M00S00423.lo72 +++| LSLA VFD 18D/3LEND,42D/0 00433 M00S00424.lo72 +++| 00434 M00S00425.lo72 +++| STA SPACE 4 00435 M00S00426.lo72 +++|** STA - LIST STORAGE ALLOCATION 00436 M00S00427.lo72 +++|* 00437 M00S00428.lo72 +++|* EXIT STORAGE ALLOCATION CODE PROCESSED. 00438 M00S00429.lo72 +++|* USES X - 1, 5, 6. 00439 M00S00430.lo72 +++|* B - NONE. 00440 M00S00431.lo72 +++|* A - 1, 5. 00441 M00S00432.lo72 +++| 00442 M00S00433.lo72 +++| 00443 M00S00434.lo72 +++| STA RJ BOB 00444 M00S00435.lo72 +++| SA5 LP 00445 M00S00436.lo72 +++| SA1 XBUF+26 CHECK LINE TYPE 00446 M00S00437.lo72 +++| SX6 X1-1R 00447 M00S00438.lo72 +++| ZR X6,STA1 IF NOT ALLOCATION 00448 M00S00439.lo72 +++| MOVE 72,XBUF+18,YBUF+X5 00449 M00S00440.lo72 +++| EQ LO722 00450 M00S00441.lo72 +++| 00451 M00S00442.lo72 +++| STA1 MOVE 72,XBUF+38,YBUF+X5 00452 M00S00443.lo72 +++| EQ LO722 00453 M00S00444.lo72 +++| 00454 M00S00445.lo72 +++| REF SPACE 4 00455 M00S00446.lo72 +++|** REF - LIST CROSS REFERENCE TABLE. 00456 M00S00447.lo72 +++|* 00457 M00S00448.lo72 +++|* EXIT CROSS REFERENCE TABLE CODE PROCESSED. 00458 M00S00449.lo72 +++|* USES X - 1, 5, 6, 7. 00459 M00S00450.lo72 +++|* B - 1, 2, 3, 4. 00460 M00S00451.lo72 +++|* A - 1, 5, 7. 00461 M00S00452.lo72 +++| 00462 M00S00453.lo72 +++| 00463 M00S00454.lo72 +++| REF RJ BOB 00464 M00S00455.lo72 +++| SA1 6 CHECK FOR EXTRA PAGE/LINE 00465 M00S00456.lo72 +++| SX6 X1-1R 00466 M00S00457.lo72 +++| ZR X6,REF2 IF NONE SAVED 00467 M00S00458.lo72 +++| SA1 XBUF+22 00468 M00S00459.lo72 +++| SX6 X1-1R 00469 M00S00460.lo72 +++| ZR X6,REF1 IF NOT NEW SYMBOL LINE 00470 M00S00461.lo72 +++| MOVE 8,2,YBUF+16 00471 M00S00462.lo72 +++| SA1 H 00472 M00S00463.lo72 +++| WRITES O,YBUF,X1 00473 M00S00464.lo72 +++| EQ REF2 00474 M00S00465.lo72 +++| 00475 M00S00466.lo72 +++| REF1 MOVE 8,2,XBUF+15 00476 M00S00467.lo72 +++| REF2 MOVE 8,XBUF+29,2 BLANK OUT THE SAVE AREA 00477 M00S00468.lo72 +++| SA1 XBUF+67 00478 M00S00469.lo72 +++| SX6 X1-1R= 00479 M00S00470.lo72 +++| NZ X6,REF3 IF NOT QUALIFIER LINE 00480 M00S00471.lo72 +++| SA5 LP 00481 M00S00472.lo72 +++| MOVE 24,XBUF,YBUF+X5 00482 M00S00473.lo72 +++| MOVE 48,XBUF+49,YBUF+24 00483 M00S00474.lo72 +++| EQ LO722 00484 M00S00475.lo72 +++| 00485 M00S00476.lo72 +++| REF3 SA5 LP 00486 M00S00477.lo72 +++| MOVE 16,XBUF+8,YBUF+X5 00487 M00S00478.lo72 +++| SB2 XBUF+40 00488 M00S00479.lo72 +++| SB3 7 SET COUNTER 00489 M00S00480.lo72 +++| SB4 YBUF+16 00490 M00S00481.lo72 +++| REF4 SA1 B2+9 00491 M00S00482.lo72 +++| SX6 X1-1R 00492 M00S00483.lo72 +++| ZR X6,REF5 IF NOT DEFINITION 00493 M00S00484.lo72 +++| SX7 1R 00494 M00S00485.lo72 +++| SA7 B2+5 BLANK OUT THE */* 00495 M00S00486.lo72 +++| SA7 A7+B1 AND LINE NUMBER. 00496 M00S00487.lo72 +++| SA7 A7+B1 00497 M00S00488.lo72 +++| REF5 ZR B3,REF6 IF SEVEN PAGE/LINES LISTED 00498 M00S00489.lo72 +++| MOVE 8,B2,B4 00499 M00S00490.lo72 +++| SB2 B2+10 INCREMENT XBUF ADDRESS 00500 M00S00491.lo72 +++| SB3 B3-B1 00501 M00S00492.lo72 +++| SB4 B4+8 INCREMENT YBUF ADDRESS 00502 M00S00493.lo72 +++| EQ REF4 00503 M00S00494.lo72 +++| 00504 M00S00495.lo72 +++| REF6 SA1 XBUF+114 00505 M00S00496.lo72 +++| SX6 X1-1R 00506 M00S00497.lo72 +++| ZR X6,LO722 IF NO EIGHTH PAGE/LINE 00507 M00S00498.lo72 +++| MOVE 8,B2,2 SAVE EIGHTH PAGE/LINE 00508 M00S00499.lo72 +++| EQ LO722 00509 M00S00500.lo72 +++| TITLE MODIFY SUBROUTINES. 00510 M00S00501.lo72 +++| 00511 M00S00502.lo72 +++|** LMO - PROCESS MODIFICATIONS 00512 M00S00503.lo72 +++|* 00513 M00S00504.lo72 +++|* EXIT A LINE OF MODIFY SOURCE CODE PROCESSED. 00514 M00S00505.lo72 +++|* USES X - 5. 00515 M00S00506.lo72 +++|* B - 2. 00516 M00S00507.lo72 +++|* A - 5. 00517 M00S00508.lo72 +++| 00518 M00S00509.lo72 +++| 00519 M00S00510.lo72 +++| LMO SB2 XBUF+10 00520 M00S00511.lo72 +++| LMO1 RJ BOB 00521 M00S00512.lo72 +++| SA5 LP 00522 M00S00513.lo72 +++| MOVE 72,B2,YBUF+X5 00523 M00S00514.lo72 +++| EQ LO722 00524 M00S00515.lo72 +++| 00525 M00S00516.lo72 +++| DKS SPACE 4 00526 M00S00517.lo72 +++|** DKS - PROCESS DECK STATUS 00527 M00S00518.lo72 +++|* 00528 M00S00519.lo72 +++|* EXIT DECK STATUS CODE; MODIFIER NAMES CODE; OR ACTIVE, 00529 M00S00520.lo72 +++|* INACTIVE, AND INSERTED CARD(S) CODE PROCESSED. 00530 M00S00521.lo72 +++|* USES X - 1, 2, 5, 6, 7. 00531 M00S00522.lo72 +++|* B - 2, 7. 00532 M00S00523.lo72 +++|* A - 0, 1, 2, 5, 6. 00533 M00S00524.lo72 +++| 00534 M00S00525.lo72 +++| 00535 M00S00526.lo72 +++| DKS SA0 DKS1 00536 M00S00527.lo72 +++| SB2 XBUF+13 00537 M00S00528.lo72 +++| EQ LMO1 00538 M00S00529.lo72 +++| 00539 M00S00530.lo72 +++|** CHECK FOR MODIFIERS 00540 M00S00531.lo72 +++|* 00541 M00S00532.lo72 +++| DKS1 SA1 XBUF+10 00542 M00S00533.lo72 +++| SX1 X1-1R 00543 M00S00534.lo72 +++| ZR X1,LMO IF NOT *MODIFIERS.* LINE 00544 M00S00535.lo72 +++| SA0 DKS2 00545 M00S00536.lo72 +++| SA1 DKS 00546 M00S00537.lo72 +++| MX2 42 00547 M00S00538.lo72 +++| LX2 30 00548 M00S00539.lo72 +++| BX1 X1*X2 MASK OUT DKS1 ADDRESS 00549 M00S00540.lo72 +++| SX2 DKS2 GET DKS2 ADDRESS 00550 M00S00541.lo72 +++| LX2 30 00551 M00S00542.lo72 +++| BX6 X1+X2 INSERT DKS2 ADDRESS 00552 M00S00543.lo72 +++| SA6 A1 RE-STORE THE INSTRUCTION 00553 M00S00544.lo72 +++| SB2 XBUF+2 00554 M00S00545.lo72 +++| EQ LMO1 00555 M00S00546.lo72 +++| 00556 M00S00547.lo72 +++|** CHECK FOR MODIFIER NAMES, ACTIVE CARDS, OR MAIN SECTION. 00557 M00S00548.lo72 +++|* 00558 M00S00549.lo72 +++| DKS2 SA1 XBUF+5 00559 M00S00550.lo72 +++| SA2 XBUF+6 00560 M00S00551.lo72 +++| SX1 X1-1R 00561 M00S00552.lo72 +++| NZ X1,BAT2 IF IT IS *A* LINE 00562 M00S00553.lo72 +++| SX2 X1-1R 00563 M00S00554.lo72 +++| NZ X1,BAT2 IF IT IS *D* LINE 00564 M00S00555.lo72 +++| RJ BOB 00565 M00S00556.lo72 +++| SB7 XBUF+21 00566 M00S00557.lo72 +++| RJ ASC 00567 M00S00558.lo72 +++| SA2 DKSA GET *ACTIVE* 00568 M00S00559.lo72 +++| BX7 X1-X2 00569 M00S00560.lo72 +++| NZ X7,DKS3 IF IT IS MODIFIER NAMES(S) 00570 M00S00561.lo72 +++| SA5 LP 00571 M00S00562.lo72 +++| MOVE 23,XBUF+14,YBUF+X5 -ACTIVE CARD(S)- 00572 M00S00563.lo72 +++| MOVE 25,XBUF+44,YBUF+23 -INACTIVE CARD(S)- 00573 M00S00564.lo72 +++| MOVE 24,XBUF+74,YBUF+48 -INSERTED CARD(S)- 00574 M00S00565.lo72 +++| EQ LO722 00575 M00S00566.lo72 +++| 00576 M00S00567.lo72 +++|** PROCESS MODIFIER NAME(S) 00577 M00S00568.lo72 +++|* 00578 M00S00569.lo72 +++| DKS3 SA1 XBUF+11 00579 M00S00570.lo72 +++| SX1 X1-1R 00580 M00S00571.lo72 +++| ZR X1,LMO IF NO FIRST NAME 00581 M00S00572.lo72 +++| SA5 LP 00582 M00S00573.lo72 +++| MOVE 41,XBUF+10,YBUF+X5 00583 M00S00574.lo72 +++| SA1 H 00584 M00S00575.lo72 +++| WRITES O,YBUF,X1 00585 M00S00576.lo72 +++| SA1 XBUF+51 00586 M00S00577.lo72 +++| SX1 X1-1R 00587 M00S00578.lo72 +++| ZR X1,LO723 IF NO FIFTH NAME 00588 M00S00579.lo72 +++| RJ BOB 00589 M00S00580.lo72 +++| SA5 LP 00590 M00S00581.lo72 +++| MOVE 41,XBUF+50,YBUF+X5 00591 M00S00582.lo72 +++| EQ LO722 00592 M00S00583.lo72 +++| 00593 M00S00584.lo72 +++| DKSA VFD 36D/6LACTIVE,24D/0 00594 M00S00585.lo72 +++| 00595 M00S00586.lo72 +++| STS SPACE 4 00596 M00S00587.lo72 +++|** STS - PROCESS STATISTICS 00597 M00S00588.lo72 +++|* 00598 M00S00589.lo72 +++|* EXIT STATISTICS CODE PROCESSED. 00599 M00S00590.lo72 +++|* USES X - 1, 5. 00600 M00S00591.lo72 +++|* B - NONE. 00601 M00S00592.lo72 +++|* A - 1, 5. 00602 M00S00593.lo72 +++| 00603 M00S00594.lo72 +++| 00604 M00S00595.lo72 +++| STS SA1 XBUF+81 00605 M00S00596.lo72 +++| SX1 X1-1R 00606 M00S00597.lo72 +++| ZR X1,LMO 00607 M00S00598.lo72 +++| RJ BOB 00608 M00S00599.lo72 +++| SA5 LP 00609 M00S00600.lo72 +++| MOVE 60,XBUF+10,YBUF+X5 00610 M00S00601.lo72 +++| SA1 H 00611 M00S00602.lo72 +++| WRITES O,YBUF,X1 00612 M00S00603.lo72 +++| RJ BOB 00613 M00S00604.lo72 +++| SA5 LP 00614 M00S00605.lo72 +++| MOVE 60,XBUF+70,YBUF+X5 00615 M00S00606.lo72 +++| EQ LO722 00616 M00S00607.lo72 +++| 00617 M00S00608.lo72 +++| TITLE GENERAL SUBROUTINES. 00618 M00S00609.lo72 +++|** BOB - BLANK OUTPUT BUFFER 00619 M00S00610.lo72 +++|* ENTRY- (B1) = 1. 00620 M00S00611.lo72 +++|* USES- X - 0. 00621 M00S00612.lo72 +++|* B - 3, 4. 00622 M00S00613.lo72 +++|* A - NONE. 00623 M00S00614.lo72 +++|* EXIT THE OUTPUT STRING BUFFER CONTAINS SPACE CODE 00624 M00S00615.lo72 +++|* IN ALL 150 WORDS. 00625 M00S00616.lo72 +++|* 00626 M00S00617.lo72 +++| 00627 M00S00618.lo72 +++| 00628 M00S00619.lo72 +++| BOB SUBR ENTRY/EXIT 00629 M00S00620.lo72 +++| MX0 1 00630 M00S00621.lo72 +++| SB3 YBUF SET ADDRESS 00631 M00S00622.lo72 +++| SB4 15 SET INCREMENT 00632 M00S00623.lo72 +++| BOB1 LX0 6 00633 M00S00624.lo72 +++| MOVE 15,SPACES,B3 BLANK OUT YBUF 00634 M00S00625.lo72 +++| SB3 B3+B4 00635 M00S00626.lo72 +++| PL X0,BOB1 IF NOT 10 TIMES 00636 M00S00627.lo72 +++| EQ BOBX RETURN 00637 M00S00628.lo72 +++| 00638 M00S00629.lo72 +++| SPACES VFD 60D/1R 00639 M00S00630.lo72 +++| DUP 14 00640 M00S00631.lo72 +++| VFD 60D/1R 00641 M00S00632.lo72 +++| ENDD 00642 M00S00633.lo72 +++| 00643 M00S00634.lo72 +++| MMS SPACE 4 00644 M00S00635.lo72 +++|** MMS - MOVE MAIN SECTIONS 00645 M00S00636.lo72 +++|* ENTRY- (B1) = 1. 00646 M00S00637.lo72 +++|* USES- X - 1, 2, 3. 00647 M00S00638.lo72 +++|* B - 2, 3. 00648 M00S00639.lo72 +++|* A - 1, 2, 3. 00649 M00S00640.lo72 +++|* EXIT THE OUTPUT STRING BUFFER CONTAINS THE CODE SPECIFIED 00650 M00S00641.lo72 +++|* BY THE PARAMETERS IN THE PROGRAM. 00651 M00S00642.lo72 +++|* 00652 M00S00643.lo72 +++| 00653 M00S00644.lo72 +++| 00654 M00S00645.lo72 +++| MMS SUBR ENTRY/EXIT 00655 M00S00646.lo72 +++| RJ BOB 00656 M00S00647.lo72 +++| SB2 B0 00657 M00S00648.lo72 +++| SB3 NPM SET LOOP COUNTER 00658 M00S00649.lo72 +++| MMS2 SA1 B2+N1 GET NO. OF CHARACTERS 00659 M00S00650.lo72 +++| ZR X1,MMS3 00660 M00S00651.lo72 +++| SA2 B2+I1 GET INPUT ADDRESS 00661 M00S00652.lo72 +++| SA3 B2+O1 GET OUTPUT ADDRESS 00662 M00S00653.lo72 +++| MOVE X1,X2,X3 00663 M00S00654.lo72 +++| MMS3 SB2 B2+B1 INCREMENT THE ADDRESS 00664 M00S00655.lo72 +++| SB3 B3-B1 00665 M00S00656.lo72 +++| NZ B3,MMS2 IF NOT NPM TIMES THRU 00666 M00S00657.lo72 +++| EQ MMSX RETURN 00667 M00S00658.lo72 +++| 00668 M00S00659.lo72 +++| ASC SPACE 4 00669 M00S00660.lo72 +++|** ASC ASSEMBLE CHARACTERS 00670 M00S00661.lo72 +++|* ENTRY- (B7) = ADDRESS OF FIRST CHARACTER. 00671 M00S00662.lo72 +++|* (B1) = 1. 00672 M00S00663.lo72 +++|* USES: X - 1. 00673 M00S00664.lo72 +++|* B - 4, 5, 6. 00674 M00S00665.lo72 +++|* A - 2. 00675 M00S00666.lo72 +++|* EXIT- (X1) = THE CHARACTERS, LEFT JUSTIFIED, WITH 00676 M00S00667.lo72 +++|* TRAILING ZEROS. 00677 M00S00668.lo72 +++|* 00678 M00S00669.lo72 +++|* ASSEMBLES UP TO TEN CHARACTERS INTO (X1) UNLESS A LEFT 00679 M00S00670.lo72 +++|* PAREN, A COMMA, A PERIOD, OR A BLANK IS ENCOUNTERED 00680 M00S00671.lo72 +++|* FIRST. 00681 M00S00672.lo72 +++|* 00682 M00S00673.lo72 +++| 00683 M00S00674.lo72 +++| 00684 M00S00675.lo72 +++| ASC SUBR ENTRY/EXIT 00685 M00S00676.lo72 +++| SB5 60 SET SHIFT COUNTER 00686 M00S00677.lo72 +++| SB6 6 00687 M00S00678.lo72 +++| BX1 X1-X1 00688 M00S00679.lo72 +++| ASC1 LX1 6 00689 M00S00680.lo72 +++| SA2 B7 GET A CHARACTER 00690 M00S00681.lo72 +++| SB5 B5-B6 DECREMENT THE SHIFT COUNTER 00691 M00S00682.lo72 +++| SB4 X2-1R 00692 M00S00683.lo72 +++| ZR B4,ASC2 IF A BLANK 00693 M00S00684.lo72 +++| SB4 X2-1R( 00694 M00S00685.lo72 +++| ZR B4,ASC2 IF A LEFT PAREN 00695 M00S00686.lo72 +++| SB4 X2-1R, 00696 M00S00687.lo72 +++| ZR B4,ASC2 IF A COMMA 00697 M00S00688.lo72 +++| SB4 X2-1R. 00698 M00S00689.lo72 +++| ZR B4,ASC2 IF A PERIOD 00699 M00S00690.lo72 +++| BX1 X1+X2 ADD IN THE CHARACTER 00700 M00S00691.lo72 +++| NG X1,ASCX 00701 M00S00692.lo72 +++| SB7 B7+B1 INCREMENT THE ADDRESS 00702 M00S00693.lo72 +++| NZ B5,ASC1 IF NOT 10 CHARACTERS 00703 M00S00694.lo72 +++| ASC2 ZR B5,ASCX 00704 M00S00695.lo72 +++| LX1 B5,X1 LEFT JUSTIFY 00705 M00S00696.lo72 +++| EQ ASCX RETURN 00706 M00S00697.lo72 +++| SPACE 4 00707 M00S00698.lo72 +++|* COMMON DECKS. 00708 M00S00699.lo72 +++| 00709 M00S00700.lo72 +++|*CALL COMCCIO 00710 M00S00701.lo72 +++|*CALL COMCMVE 00711 M00S00702.lo72 +++|*CALL COMCRDC 00712 M00S00703.lo72 +++|*CALL COMCRDS 00713 M00S00704.lo72 +++|*CALL COMCRDW 00714 M00S00705.lo72 +++|*CALL COMCWTC 00715 M00S00706.lo72 +++|*CALL COMCWTS 00716 M00S00707.lo72 +++|*CALL COMCWTW 00717 M00S00708.lo72 +++|*CALL COMCSYS 00718 M00S00709.lo72 +++| 00719 M00S00710.lo72 +++| BUFFERS SPACE 4 00720 M00S00711.lo72 +++|**** BUFFERS 00721 M00S00712.lo72 +++|* 00722 M00S00713.lo72 +++| USE // 00723 M00S00714.lo72 +++| IBUF EQU * 00724 M00S00715.lo72 +++| OBUF EQU IBUF+IBUFL 00725 M00S00716.lo72 +++| RFL= EQU OBUF+OBUFL DEFAULT FIELD LENGTH 00726 M00S00717.lo72 +++| USE * 00727 M00S00718.lo72 +++|**** 00728 M00S00719.lo72 +++| TITLE PRESET SUBROUTINES. 00729 M00S00720.lo72 +++| 00730 M00S00721.lo72 +++| ORG IBUF 00731 M00S00722.lo72 +++| SEG 00732 M00S00723.lo72 +++| PRS SPACE 4 00733 M00S00724.lo72 +++|** PRESET SUBROUTINES. 00734 M00S00725.lo72 +++|* 00735 M00S00726.lo72 +++|* THIS AREA IS OVERLAID BY THE I/O BUFFERS. 00736 M00S00727.lo72 +++|* 00737 M00S00728.lo72 +++|* USES X - ALL. 00738 M00S00729.lo72 +++|* B - ALL. 00739 M00S00730.lo72 +++|* A - ALL. 00740 M00S00731.lo72 +++| 00741 M00S00732.lo72 +++| 00742 M00S00733.lo72 +++| I BSS 0 00743 M00S00734.lo72 +++| TEMP1 FILEC I+15D,IBUFF 00744 M00S00735.lo72 +++| 00745 M00S00736.lo72 +++| OUT BSS 0 00746 M00S00737.lo72 +++| TEMP2 FILEC I+16D+IBUFF,IBUFF 00747 M00S00738.lo72 +++| 00748 M00S00739.lo72 +++| ORG I 00749 M00S00740.lo72 +++| VFD 60D/1 00750 M00S00741.lo72 +++| ORG OUT 00751 M00S00742.lo72 +++| VFD 60D/5 00752 M00S00743.lo72 +++| ORG I+17D+IBUFF+IBUFF 00753 M00S00744.lo72 +++| 00754 M00S00745.lo72 +++|** CHECK THE JOB ORIGIN CODE. 00755 M00S00746.lo72 +++|* 00756 M00S00747.lo72 +++| LO72 SB1 1 (B1) = 1 00757 M00S00748.lo72 +++| PRS MX0 48 00758 M00S00749.lo72 +++| SA1 JOPR GET JOB ORIGIN CODE (BITS 24-35) 00759 M00S00750.lo72 +++| AX1 24 RIGHT ADJUST BYTE 2 00760 M00S00751.lo72 +++| BX2 -X0*X1 GET JOB ORIGIN CODE 00761 M00S00752.lo72 +++| SX6 X2-TXOT 00762 M00S00753.lo72 +++| SA6 TTO SET TTY ORIGIN FLAG 00763 M00S00754.lo72 +++| PRS1 SA1 ACTR GET ARGUMENT COUNT 00764 M00S00755.lo72 +++| SB4 X1 00765 M00S00756.lo72 +++| ZR B4,PRS2 IF NO ARGUMENTS 00766 M00S00757.lo72 +++| SB5 COPT SET ARGUMENT TABLE ADDRESS 00767 M00S00758.lo72 +++| SA4 ARGR GET FIRST ARGUMENT 00768 M00S00759.lo72 +++| RJ ARG 00769 M00S00760.lo72 +++| NZ X1,PRSB IF ERROR FOUND 00770 M00S00761.lo72 +++| PRS2 SB2 NPM 00771 M00S00762.lo72 +++| SB3 B0 00772 M00S00763.lo72 +++| 00773 M00S00764.lo72 +++|** VERIFY IF TYPE OF SOURCE FILE IS LEGAL 00774 M00S00765.lo72 +++|* 00775 M00S00766.lo72 +++| SA1 T CHECK TYPE 00776 M00S00767.lo72 +++| ZR X1,PRS12 00777 M00S00768.lo72 +++| LX1 6 RIGHT JUSTIFY 00778 M00S00769.lo72 +++| SX2 X1-1RB 00779 M00S00770.lo72 +++| NZ X2,PRS3 IF TYPE NOT = B 00780 M00S00771.lo72 +++| SB4 BN1 00781 M00S00772.lo72 +++| EQ PRS8 00782 M00S00773.lo72 +++| 00783 M00S00774.lo72 +++| PRS3 SX2 X1-1RM 00784 M00S00775.lo72 +++| NZ X2,PRS4 IF TYPE NOT = M 00785 M00S00776.lo72 +++| SB4 MN1 00786 M00S00777.lo72 +++| EQ PRS8 00787 M00S00778.lo72 +++| 00788 M00S00779.lo72 +++| PRS4 SX2 X1-1RC 00789 M00S00780.lo72 +++| NZ X2,PRS5 IF TYPE NOT = C 00790 M00S00781.lo72 +++| SB4 CN1 00791 M00S00782.lo72 +++| EQ PRS8 00792 M00S00783.lo72 +++| 00793 M00S00784.lo72 +++| PRS5 SA1 TTO 00794 M00S00785.lo72 +++| ZR X1,PRS12 IF TERMINAL AVAILABLE 00795 M00S00786.lo72 +++| PRS6 MESSAGE (=C*UNRECOGNIZABLE TYPE SPECIFIED.*) 00796 M00S00787.lo72 +++| PRS7 ABORT R 00797 M00S00788.lo72 +++| PRS8 SA1 B3+N1 00798 M00S00789.lo72 +++| SB5 X1-1R* 00799 M00S00790.lo72 +++| ZR B5,PRS10 IF *N* VALUE WAS NOT GIVEN 00800 M00S00791.lo72 +++| 00801 M00S00792.lo72 +++|* INSERT *IX* AND *OX* DEFAULTS IF NOT SPECIFIED WHEN 00802 M00S00793.lo72 +++|* *NX* IS CHANGED. 00803 M00S00794.lo72 +++| 00804 M00S00795.lo72 +++| SA3 B4+B3 00805 M00S00796.lo72 +++| SA3 A3+NPM GET *IX* DEFAULT VALUE 00806 M00S00797.lo72 +++| SA2 A1+NPM 00807 M00S00798.lo72 +++| NZ X2,PRS8.3 IF *IX* SPECIFIED 00808 M00S00799.lo72 +++| NZ X3,PRS8.2 IF *IX* DEFAULT DEFINED 00809 M00S00800.lo72 +++| PRS8.1 MESSAGE (=C* IX OR OX NOT DEFINED.*) 00810 M00S00801.lo72 +++| EQ PRS7 ABORT 00811 M00S00802.lo72 +++| 00812 M00S00803.lo72 +++| PRS8.2 BX6 X3 SET *IX* DEFAULT VALUE 00813 M00S00804.lo72 +++| SA6 A2 00814 M00S00805.lo72 +++| PRS8.3 SA2 A2+NPM GET *OX* VALUE 00815 M00S00806.lo72 +++| NZ X2,PRS9 IF *OX* SPECIFIED 00816 M00S00807.lo72 +++| SA3 A3+NPM 00817 M00S00808.lo72 +++| ZR X3,PRS8.1 IF NO *OX* DEFAULT 00818 M00S00809.lo72 +++| BX6 X3 SET *OX* DEFAULT VALUE 00819 M00S00810.lo72 +++| SA6 A2 00820 M00S00811.lo72 +++| PRS9 SB3 B3+B1 00821 M00S00812.lo72 +++| SB2 B2-B1 00822 M00S00813.lo72 +++| NZ B2,PRS8 00823 M00S00814.lo72 +++| EQ PRS12 00824 M00S00815.lo72 +++| 00825 M00S00816.lo72 +++|** INSERT DEFAULT VALUES FOR EACH TYPE IF NEEDED. 00826 M00S00817.lo72 +++|* 00827 M00S00818.lo72 +++| PRS10 SX4 A1 00828 M00S00819.lo72 +++| SB5 3 00829 M00S00820.lo72 +++| SB6 B4 00830 M00S00821.lo72 +++| PRS11 SA2 B3+B6 GET PROPER DEFAULT VALUE 00831 M00S00822.lo72 +++| BX6 X2 00832 M00S00823.lo72 +++| SA6 X4 STORE THE VALUE 00833 M00S00824.lo72 +++| SX4 X4+NPM INCREMENT ADDRESS 00834 M00S00825.lo72 +++| SB6 B6+NPM 00835 M00S00826.lo72 +++| SB5 B5-B1 DECREMENT COUNTER 00836 M00S00827.lo72 +++| NZ B5,PRS11 00837 M00S00828.lo72 +++| EQ PRS9 00838 M00S00829.lo72 +++| 00839 M00S00830.lo72 +++| PRS12 SA1 TTO 00840 M00S00831.lo72 +++| NZ X1,PRS13 IF TERMINAL NOT AVAILABLE 00841 M00S00832.lo72 +++| SA1 I GET FILE NAME 00842 M00S00833.lo72 +++| RJ SFP SET FET PARAMETERS 00843 M00S00834.lo72 +++| SA2 =5LINPUT 00844 M00S00835.lo72 +++| MX0 42 00845 M00S00836.lo72 +++| BX6 X0*X1 00846 M00S00837.lo72 +++| SA6 CKID SAVE ORIGINAL FILE NAME 00847 M00S00838.lo72 +++| BX3 -X0*X1 00848 M00S00839.lo72 +++| BX6 X2+X3 00849 M00S00840.lo72 +++| SA6 A1 INSERT *INPUT* INTO FET 00850 M00S00841.lo72 +++| SA1 O GET FILE NAME 00851 M00S00842.lo72 +++| BX6 X0*X1 00852 M00S00843.lo72 +++| SA6 CKIG SAVE ORIGINAL FILE NAME 00853 M00S00844.lo72 +++| BX6 -X0*X1 00854 M00S00845.lo72 +++| SA6 A1 ZREO OUT FILE NAME 00855 M00S00846.lo72 +++| SA1 OUT 00856 M00S00847.lo72 +++| RJ SFP SET FET PARAMETERS 00857 M00S00848.lo72 +++| SA2 =6LOUTPUT 00858 M00S00849.lo72 +++| SX6 A1 00859 M00S00850.lo72 +++| BX6 X2+X6 ADD FET ADDRESS TO FILE NAME 00860 M00S00851.lo72 +++| SA6 B1+B1 INSERT OUTPUT FET ADDRESS AT RA+2 00861 M00S00852.lo72 +++| BX6 X1+X2 00862 M00S00853.lo72 +++| SA6 A1 SET FILE NAME OUTPUT FOR TTY 00863 M00S00854.lo72 +++| EQ CKI 00864 M00S00855.lo72 +++| PRS13 SA1 I 00865 M00S00856.lo72 +++| MX0 42 00866 M00S00857.lo72 +++| BX2 X0*X1 MASK OFF FILE NAME 00867 M00S00858.lo72 +++| ZR X2,PRS14 IF NO FILE NAME 00868 M00S00859.lo72 +++| 00869 M00S00860.lo72 +++|** READ THE INPUT FILE. 00870 M00S00861.lo72 +++|* 00871 M00S00862.lo72 +++| RIF RJ SFP SET FET PARAMETERS 00872 M00S00863.lo72 +++| SX0 B1+B1 FIRST ADDRESS 00873 M00S00864.lo72 +++| RIF1 READ I,R 00874 M00S00865.lo72 +++| READH I,XBUF,XBUFL READ INPUT FILE 00875 M00S00866.lo72 +++| NG X1,RIF3 IF -EOF- 00876 M00S00867.lo72 +++| NZ X1,RIF1 IF -EOR- 00877 M00S00868.lo72 +++| SB7 X0 00878 M00S00869.lo72 +++| SA5 XBUF GET FIRST WORD 00879 M00S00870.lo72 +++| RJ UPC UNPACK INPUT FILE 00880 M00S00871.lo72 +++| SX0 B6+B7 00881 M00S00872.lo72 +++| ZR X6,RIF1 IF NO UNPACK ERROR 00882 M00S00873.lo72 +++| MESSAGE (=C*INPUT FILE ERROR.*) 00883 M00S00874.lo72 +++| EQ PRS7 00884 M00S00875.lo72 +++| 00885 M00S00876.lo72 +++|** PROCESS ARGUMENTS FROM INPUT FILE 00886 M00S00877.lo72 +++|* 00887 M00S00878.lo72 +++| RIF3 SB4 X0-2 SET ARGUMENT COUNT 00888 M00S00879.lo72 +++| SA4 ARGR GET FIRST ARGUMENT 00889 M00S00880.lo72 +++| SB5 COPT GET ARGUMENT TABLE ADDR. 00890 M00S00881.lo72 +++| RJ ARG PROCESS ARGUMENTS 00891 M00S00882.lo72 +++| NZ X1,PRSB IF ERROR FOUND 00892 M00S00883.lo72 +++| 00893 M00S00884.lo72 +++|** CHECK FOR OUTPUT FILE NAME " SOURCE FILE NAME 00894 M00S00885.lo72 +++|* 00895 M00S00886.lo72 +++| PRS14 SA1 S GET *SCR* FILE NAME 00896 M00S00887.lo72 +++| SA2 O GET *OUTPUT* FILE NAME 00897 M00S00888.lo72 +++| MX0 42D 00898 M00S00889.lo72 +++| BX1 X0*X1 00899 M00S00890.lo72 +++| ZR X1,PRSC IF SOURCE FILE NAME NOT GIVEN 00900 M00S00891.lo72 +++| BX2 X0*X2 00901 M00S00892.lo72 +++| ZR X2,PRSC IF OUTPUT FILE NAME NOT GIVEN 00902 M00S00893.lo72 +++| BX3 X1-X2 00903 M00S00894.lo72 +++| NZ X3,PRS15 00904 M00S00895.lo72 +++| MESSAGE (=C*FILE NAME CONFLICT.*) 00905 M00S00896.lo72 +++| EQ PRS7 00906 M00S00897.lo72 +++| 00907 M00S00898.lo72 +++|** SET NX VALUES AS BINARY NUMBERS 00908 M00S00899.lo72 +++|* 00909 M00S00900.lo72 +++| PRS15 SB7 B0 00910 M00S00901.lo72 +++| SA5 H 00911 M00S00902.lo72 +++| RJ DXB 00912 M00S00903.lo72 +++| ZR X7,PRSD IF OUTPUT LINE LENGTH NOT GIVEN 00913 M00S00904.lo72 +++| SA7 A5 00914 M00S00905.lo72 +++| SX7 X7-XBUFL-1 00915 M00S00906.lo72 +++| PL X7,PRSD IF OUTPUT LENGTH .GT. XBUFL 00916 M00S00907.lo72 +++| SB6 NPM-1 SET COUNTER + ADDRESS INCREMENT 00917 M00S00908.lo72 +++| PRS16 SA5 B6+N1 GET NX VALUE 00918 M00S00909.lo72 +++| ZR X5,PRS17 00919 M00S00910.lo72 +++| RJ DXB 00920 M00S00911.lo72 +++| SA7 A5 RE-STORE AS BINARY NUMBER 00921 M00S00912.lo72 +++| 00922 M00S00913.lo72 +++|** SET IX VALUES AS XBUF ADDRESSES 00923 M00S00914.lo72 +++|* 00924 M00S00915.lo72 +++| SA5 A5+NPM GET IX VALUE 00925 M00S00916.lo72 +++| RJ DXB 00926 M00S00917.lo72 +++| SX7 X7-1 00927 M00S00918.lo72 +++| SX2 XBUFL GET INPUT LINE LENGTH 00928 M00S00919.lo72 +++| SA3 B6+N1 ADD *NX* + *IX* VALUES 00929 M00S00920.lo72 +++| IX6 X7+X3 00930 M00S00921.lo72 +++| IX6 X2-X6 00931 M00S00922.lo72 +++| NG X6,PRSE IF *IX* + *NX* .GT. INPUT BUFFER LENGTH 00932 M00S00923.lo72 +++| SX7 X7+XBUF 00933 M00S00924.lo72 +++| SA7 A5 RE-STORE AS AN ADDRESS 00934 M00S00925.lo72 +++| 00935 M00S00926.lo72 +++|** SET OX VALUES AS YBUF ADDRESSES 00936 M00S00927.lo72 +++|* 00937 M00S00928.lo72 +++| SA5 A5+NPM GET OX VALUE 00938 M00S00929.lo72 +++| RJ DXB 00939 M00S00930.lo72 +++| SX7 X7-1 00940 M00S00931.lo72 +++| SA2 H GET OUTPUT LINE LENGTH 00941 M00S00932.lo72 +++| SA3 B6+N1 ADD *OX* + *NX* VALUES 00942 M00S00933.lo72 +++| IX6 X7+X3 00943 M00S00934.lo72 +++| IX6 X2-X6 00944 M00S00935.lo72 +++| NG X6,PRSE IF *OX* + *NX* .GT. OUTPUT LENGTH 00945 M00S00936.lo72 +++| SX7 X7+YBUF 00946 M00S00937.lo72 +++| SA7 A5 RE-STORE AS AN ADDRESS 00947 M00S00938.lo72 +++| PRS17 SB6 B6-B1 00948 M00S00939.lo72 +++| PL B6,PRS16 IF NOT *NPM* TIMES THRU 00949 M00S00940.lo72 +++| 00950 M00S00941.lo72 +++|** CONVERT T TO AN ADDRESS FOR *PEJ* ROUTINE 00951 M00S00942.lo72 +++|* 00952 M00S00943.lo72 +++| PRS19 SB2 B0 00953 M00S00944.lo72 +++| MX0 42 SET ADDRESS MASK 00954 M00S00945.lo72 +++| SA2 T GET TYPE 00955 M00S00946.lo72 +++| MX1 6 SET CHARACTER MASK 00956 M00S00947.lo72 +++| PRS20 SA3 B2+PRSA GET FIRST CHARACTER AND ADDRESS 00957 M00S00948.lo72 +++| ZR X3,PRS6 IF END OF TABLE 00958 M00S00949.lo72 +++| BX4 X1*X3 GET THE CHARACTER 00959 M00S00950.lo72 +++| IX4 X2-X4 00960 M00S00951.lo72 +++| ZR X4,PRS21 IF A MATCH 00961 M00S00952.lo72 +++| SB2 B2+B1 00962 M00S00953.lo72 +++| EQ PRS20 00963 M00S00954.lo72 +++| PRS21 BX6 -X0*X3 00964 M00S00955.lo72 +++| SA6 T SET ADDRESS INTO *TYPE* LOCATION 00965 M00S00956.lo72 +++| 00966 M00S00957.lo72 +++|** RESET FET PARAMETERS 00967 M00S00958.lo72 +++|* 00968 M00S00959.lo72 +++| SA1 O 00969 M00S00960.lo72 +++| RJ SFP SET FET PARAMETERS 00970 M00S00961.lo72 +++| SA1 NR 00971 M00S00962.lo72 +++| NZ X1,PRS11.2 IF NO REWIND 00972 M00S00963.lo72 +++| REWIND O,R 00973 M00S00964.lo72 +++| PRS11.2 SA1 S 00974 M00S00965.lo72 +++| RJ SFP SET FET PARAMETERS 00975 M00S00966.lo72 +++| REWIND S,R 00976 M00S00967.lo72 +++| 00977 M00S00968.lo72 +++|** ADD LINE PRINTER FLAG TO FIRST YBUF ADDRESS 00978 M00S00969.lo72 +++|* 00979 M00S00970.lo72 +++| SB3 B0 00980 M00S00971.lo72 +++| SX2 YBUF 00981 M00S00972.lo72 +++| PRS22 SA1 B3+O1 GET OUTPUT ADDRESSES 00982 M00S00973.lo72 +++| SA0 BAT2 SET DEFAULT ADDRESS 00983 M00S00974.lo72 +++| IX3 X1-X2 00984 M00S00975.lo72 +++| ZR X3,PRS23 IF ADDRESSES THE SAME 00985 M00S00976.lo72 +++| SB3 B3+B1 00986 M00S00977.lo72 +++| SB5 B3-NPM 00987 M00S00978.lo72 +++| ZR B5,LO721 IF NPM TIMES 00988 M00S00979.lo72 +++| EQ PRS22 00989 M00S00980.lo72 +++| 00990 M00S00981.lo72 +++| PRS23 SA2 LP 00991 M00S00982.lo72 +++| IX6 X1+X2 ADD LINE PRINTER FLAG TO FIRST ADDR 00992 M00S00983.lo72 +++| SA6 A1 00993 M00S00984.lo72 +++| EQ LO721 RETURN 00994 M00S00985.lo72 +++| 00995 M00S00986.lo72 +++| 00996 M00S00987.lo72 +++| PRSA VFD 6/1LB,54D/PEJ5 00997 M00S00988.lo72 +++| VFD 6/1LC,54D/PEJ1 00998 M00S00989.lo72 +++| VFD 6/1LM,54D/PEJ2 00999 M00S00990.lo72 +++| CON 0 01000 M00S00991.lo72 +++| 01001 M00S00992.lo72 +++| 01002 M00S00993.lo72 +++| PRSB MESSAGE (=C* ARGUMENT ERROR.*) 01003 M00S00994.lo72 +++| EQ PRS7 01004 M00S00995.lo72 +++|
| Line S00996 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01005 M01S00996.v23l617 ---| PRSC MESSAGE (=C* INVALID PARAMETER.*)
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01006 M01S00009.v23l617 +++| PRSC MESSAGE (=C* INCORRECT PARAMETER.*) 01007 M00S00997.lo72 +++| EQ PRS7 01008 M00S00998.lo72 +++|
| Line S00999 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01009 M01S00999.v23l617 ---| PRSD MESSAGE (=C* H VALUE INVALID.*)
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01010 M01S00010.v23l617 +++| PRSD MESSAGE (=C* H VALUE INCORRECT.*) 01011 M00S01000.lo72 +++| EQ PRS7 ABORT 01012 M00S01001.lo72 +++|
| Line S01002 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01013 M01S01002.v23l617 ---| PRSE MESSAGE (=C* INVALID LINE LENGTH.*)
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01014 M01S00011.v23l617 +++| PRSE MESSAGE (=C* INCORRECT LINE LENGTH.*) 01015 M00S01003.lo72 +++| EQ PRS7 ABORT 01016 M00S01004.lo72 +++| 01017 M00S01005.lo72 +++| COPT BSS 0 01018 M00S01006.lo72 +++| S ARG =0LSCR,S 01019 M00S01007.lo72 +++| I ARG =0LINPUT,I 01020 M00S01008.lo72 +++| L ARG =0LOUTPUT,O 01021 M00S01009.lo72 +++| T ARG T,T 01022 M00S01010.lo72 +++| H ARG H,H 01023 M00S01011.lo72 +++| N1 ARG BN1,N1 01024 M00S01012.lo72 +++| I1 ARG BI1,I1 01025 M00S01013.lo72 +++| O1 ARG BO1,O1 01026 M00S01014.lo72 +++| N2 ARG BN2,N2 01027 M00S01015.lo72 +++| I2 ARG BI2,I2 01028 M00S01016.lo72 +++| O2 ARG BO2,O2 01029 M00S01017.lo72 +++| N3 ARG BN3,N3 01030 M00S01018.lo72 +++| I3 ARG BI3,I3 01031 M00S01019.lo72 +++| O3 ARG BO3,O3 01032 M00S01020.lo72 +++| N4 ARG BN4,N4 01033 M00S01021.lo72 +++| I4 ARG BI4,I4 01034 M00S01022.lo72 +++| O4 ARG BO4,O4 01035 M00S01023.lo72 +++| N5 ARG BN5,N5 01036 M00S01024.lo72 +++| I5 ARG BI5,I5 01037 M00S01025.lo72 +++| O5 ARG BO5,O5 01038 M00S01026.lo72 +++| N6 ARG BN6,N6 01039 M00S01027.lo72 +++| I6 ARG BI6,I6 01040 M00S01028.lo72 +++| O6 ARG BO6,O6 01041 M00S01029.lo72 +++| LP ARG -DFLP,LP 01042 M00S01030.lo72 +++| NR ARG -*,NR 01043 M00S01031.lo72 +++| IT ARG -*,TTO 01044 M00S01032.lo72 +++| ARG 01045 M00S01033.lo72 +++| 01046 M00S01034.lo72 +++| DFLP CON 1 DEFAULT PRINTER OPTION 01047 M00S01035.lo72 +++| TTO CON 0 TERMINAL AVAILABLE OPTION 01048 M00S01036.lo72 +++| TITLE TERMINAL I/O ROUTINE. 01049 M00S01037.lo72 +++| 01050 M00S01038.lo72 +++|** CKI - CHECK INPUT FROM TTY. 01051 M00S01039.lo72 +++|* 01052 M00S01040.lo72 +++|* ENTRY - ORIGIN CODE (JOPR) CHECKED AND FOUND TO BE TELEX. 01053 M00S01041.lo72 +++|* 01054 M00S01042.lo72 +++|* EXIT - ALL RE-FORMAT PARAMETERS CHECKED BY THE TERMINAL USER. 01055 M00S01043.lo72 +++|* 01056 M00S01044.lo72 +++|* USES X - ALL. 01057 M00S01045.lo72 +++|* B - ALL. 01058 M00S01046.lo72 +++|* A - ALL. 01059 M00S01047.lo72 +++| 01060 M00S01048.lo72 +++| 01061 M00S01049.lo72 +++| CKI WRITEC OUT,CKIA 01062 M00S01050.lo72 +++| 01063 M00S01051.lo72 +++| WRITEC OUT,CKIA1 01064 M00S01052.lo72 +++| CKI0 READ I 01065 M00S01053.lo72 +++| READC I,XBUF,8D 01066 M00S01054.lo72 +++| 01067 M00S01055.lo72 +++|** CHECK IF ANY ARGUMENT CHANGES ARE NEEDED 01068 M00S01056.lo72 +++|* 01069 M00S01057.lo72 +++| NZ X1,CKI26 IF *CR* 01070 M00S01058.lo72 +++| SA1 XBUF GET THE INPUT WORD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01071 M01S00001.lo721 +++| RJ SFN 01072 M00S01059.lo72 +++| SA2 CKIB
| Line S01060 Modification History | |
|---|---|
M01 (Removed by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01073 M01S01060.lo721 ---| BX3 X2-X1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01074 M01S00002.lo721 +++| BX3 X6-X2 01075 M00S01061.lo72 +++| ZR X3,CKI1 IF *YES* 01076 M00S01062.lo72 +++| SA2 A2+B1 01077 M00S01063.lo72 +++| BX3 X2-X1 01078 M00S01064.lo72 +++| ZR X3,CKI26 IF *NO* 01079 M00S01065.lo72 +++| SX6 CKI0 01080 M00S01066.lo72 +++| SA6 SOBC SET ERROR ADDRESS 01081 M00S01067.lo72 +++| EQ SOB4 01082 M00S01068.lo72 +++| 01083 M00S01069.lo72 +++|** CHANGE INPUT FILE NAME(I) 01084 M00S01070.lo72 +++|* 01085 M00S01071.lo72 +++| CKI1 MX0 42 01086 M00S01072.lo72 +++| SA1 CKID GET INPUT FILE NAME 01087 M00S01073.lo72 +++| RJ SFN SPACE FILL NAME 01088 M00S01074.lo72 +++| BX6 X0*X6 01089 M00S01075.lo72 +++| SA5 CKIC2 GET MESSAGE WORD 01090 M00S01076.lo72 +++| BX6 X5+X6 01091 M00S01077.lo72 +++| SA6 A5 STORE INTO MESSAGE 01092 M00S01078.lo72 +++| WRITEC OUT,CKIC 01093 M00S01079.lo72 +++| WRITEC OUT,CKIC1 01094 M00S01080.lo72 +++| CKI2 READ I 01095 M00S01081.lo72 +++| READC I,XBUF,8D 01096 M00S01082.lo72 +++| NZ X1,CKI3 IF *CR* 01097 M00S01083.lo72 +++| SB3 CKI2 SET ERROR ADDRESS 01098 M00S01084.lo72 +++| SA1 XBUF GET THE INPUT WORD 01099 M00S01085.lo72 +++| RJ SOB STRIP OFF BLANKS 01100 M00S01086.lo72 +++| SA6 CKID TEMPORARILY STORE INPUT FILE NAME 01101 M00S01087.lo72 +++| 01102 M00S01088.lo72 +++|** CHANGE SOURCE FILE NAME(S) 01103 M00S01089.lo72 +++|* 01104 M00S01090.lo72 +++| CKI3 SA5 S GET *SCR* FILE NAME 01105 M00S01091.lo72 +++| BX1 X0*X5 01106 M00S01092.lo72 +++| RJ SFN 01107 M00S01093.lo72 +++| BX6 X0*X6 01108 M00S01094.lo72 +++| SA5 CKIE1 GET MESSAGE WORD 01109 M00S01095.lo72 +++| BX6 X5+X6 01110 M00S01096.lo72 +++| SA6 A5 STORE INTO MESSAGE 01111 M00S01097.lo72 +++| WRITEC OUT,CKIE 01112 M00S01098.lo72 +++| CKI4 READ I 01113 M00S01099.lo72 +++| READC I,XBUF,8D 01114 M00S01100.lo72 +++| NZ X1,CKI5 IF *CR* 01115 M00S01101.lo72 +++| SB3 CKI4 SET ERROR ADDRESS 01116 M00S01102.lo72 +++| SA1 XBUF GET THE INPUT WORD 01117 M00S01103.lo72 +++| RJ SOB STRIP OFF BLANKS 01118 M00S01104.lo72 +++| BX1 -X0*X5 01119 M00S01105.lo72 +++| BX6 X6+X1 01120 M00S01106.lo72 +++| SA6 S STORE *SCR* FILE NAME 01121 M00S01107.lo72 +++| 01122 M00S01108.lo72 +++|** CHANGE OUTPUT FILE NAME(O) 01123 M00S01109.lo72 +++|* 01124 M00S01110.lo72 +++| CKI5 SA1 CKIG GET OUTPUT FILE NAME 01125 M00S01111.lo72 +++| RJ SFN 01126 M00S01112.lo72 +++| BX6 X0*X6 01127 M00S01113.lo72 +++| SA5 CKIF1 GET MESSAGE WORD 01128 M00S01114.lo72 +++| BX6 X5+X6 01129 M00S01115.lo72 +++| SA6 A5 STORE INTO MESSAGE 01130 M00S01116.lo72 +++| WRITEC OUT,CKIF 01131 M00S01117.lo72 +++| CKI6 READ I 01132 M00S01118.lo72 +++| READC I,XBUF,8D 01133 M00S01119.lo72 +++| NZ X1,CKI7 IF *CR* 01134 M00S01120.lo72 +++| SB3 CKI6 SET ERROR ADDRESS 01135 M00S01121.lo72 +++| SA1 XBUF GET THE INPUT WORD 01136 M00S01122.lo72 +++| RJ SOB STRIP OFF BLANKS 01137 M00S01123.lo72 +++| BX1 -X0*X5 01138 M00S01124.lo72 +++| BX6 X6+X1 01139 M00S01125.lo72 +++| SA6 CKIG TEMPORARILY STORE OUTPUT FILE NAME 01140 M00S01126.lo72 +++| 01141 M00S01127.lo72 +++|** CHANGE TYPE OF SOURCE FILE(T) 01142 M00S01128.lo72 +++|* 01143 M00S01129.lo72 +++| CKI7 SA1 T 01144 M00S01130.lo72 +++| NZ X1,CKI8 IF TYPE NOT EMPTY 01145 M00S01131.lo72 +++| SA2 CKIJ 01146 M00S01132.lo72 +++| EQ CKI12 01147 M00S01133.lo72 +++| 01148 M00S01134.lo72 +++| CKI8 LX1 6 RIGHT JUSTIFY 01149 M00S01135.lo72 +++| SX2 X1-1RB 01150 M00S01136.lo72 +++| NZ X2,CKI9 IF TYPE NOT BATCH 01151 M00S01137.lo72 +++| SA2 CKIK 01152 M00S01138.lo72 +++| EQ CKI12 01153 M00S01139.lo72 +++| 01154 M00S01140.lo72 +++| CKI9 SX2 X1-1RM 01155 M00S01141.lo72 +++| NZ X2,CKI10 IF TYPE NOT MODIFY 01156 M00S01142.lo72 +++| SA2 CKIL 01157 M00S01143.lo72 +++| EQ CKI12 01158 M00S01144.lo72 +++| 01159 M00S01145.lo72 +++| CKI10 SX2 X1-1RC 01160 M00S01146.lo72 +++| NZ X2,CKI12.1 IF TYPE NOT COMPASS 01161 M00S01147.lo72 +++| SA2 CKIM 01162 M00S01148.lo72 +++| CKI12 BX6 X2 01163 M00S01149.lo72 +++| SA6 CKIH1 STORE INTO MESSAGE 01164 M00S01150.lo72 +++| BX7 X7-X7 SET END-OF-LINE 01165 M00S01151.lo72 +++| SA7 A6+B1 01166 M00S01152.lo72 +++| CKI12.1 WRITEC OUT,CKIH 01167 M00S01153.lo72 +++| CKI13 READ I 01168 M00S01154.lo72 +++| READC I,XBUF,8D 01169 M00S01155.lo72 +++| NZ X1,CKI15 IF *CR* 01170 M00S01156.lo72 +++| MX0 6 01171 M00S01157.lo72 +++| SA1 XBUF GET THE INPUT WORD 01172 M00S01158.lo72 +++| BX6 X0*X1 PICK OFF FIRST CHARACTER 01173 M00S01159.lo72 +++| BX1 X6 01174 M00S01160.lo72 +++| LX1 6 RIGHT JUSTIFY 01175 M00S01161.lo72 +++| SX2 X1-1RB 01176 M00S01162.lo72 +++| ZR X2,CKI14 IF TYPE = B 01177 M00S01163.lo72 +++| SX2 X1-1RM 01178 M00S01164.lo72 +++| ZR X2,CKI14 IF TYPE = M 01179 M00S01165.lo72 +++| SX2 X1-1RC 01180 M00S01166.lo72 +++| ZR X2,CKI14 IF TYPE = C 01181 M00S01167.lo72 +++| SX6 CKI13 01182 M00S01168.lo72 +++| SA6 SOBC SET ERROR ADDRESS 01183 M00S01169.lo72 +++| EQ SOB4 01184 M00S01170.lo72 +++| CKI14 SA6 T STORE NEW TYPE 01185 M00S01171.lo72 +++| 01186 M00S01172.lo72 +++|** CHANGE LENGTH OF OUTPUT LINE(H) 01187 M00S01173.lo72 +++|* 01188 M00S01174.lo72 +++| CKI15 SA1 H GET NO. OF CHARACTERS/LINE 01189 M00S01175.lo72 +++| NZ X1,CKI16 01190 M00S01176.lo72 +++| SA1 =1L0 01191 M00S01177.lo72 +++| CKI16 MX0 6 01192 M00S01178.lo72 +++| SA3 =1L 01193 M00S01179.lo72 +++| SB2 B1+B1 01194 M00S01180.lo72 +++| CKI17 LX1 6 01195 M00S01181.lo72 +++| BX2 X0*X1 01196 M00S01182.lo72 +++| NZ X2,CKI18 IF THERE IS A CHAR. 01197 M00S01183.lo72 +++| BX1 X1+X3 ADD A SPACE 01198 M00S01184.lo72 +++| CKI18 SB2 B2-B1 01199 M00S01185.lo72 +++| NZ B2,CKI17 01200 M00S01186.lo72 +++| LX1 48 SHIFT INTO BYTE 0 01201 M00S01187.lo72 +++| SA2 CKIN1 01202 M00S01188.lo72 +++| MX0 18 01203 M00S01189.lo72 +++| BX2 -X0*X2 ALLOW RESET OF *H* CODED VALUE 01204 M00S01190.lo72 +++| BX6 X1+X2 01205 M00S01191.lo72 +++| SA6 A2 STORE INTO MESSAGE 01206 M00S01192.lo72 +++| WRITEC OUT,CKIN 01207 M00S01193.lo72 +++| CKI19 READ I 01208 M00S01194.lo72 +++| READC I,XBUF,8D 01209 M00S01195.lo72 +++| NZ X1,CKI20 IF *CR* 01210 M00S01196.lo72 +++| SB3 CKI19 SET ERROR ADDRESS 01211 M00S01197.lo72 +++| SA1 XBUF GET THE INPUT WORD 01212 M00S01198.lo72 +++| RJ SOB STRIP OFF BLANKS 01213 M00S01199.lo72 +++| SA6 H STORE NEW NO. OF CHARS. 01214 M00S01200.lo72 +++| BX5 X6 01215 M00S01201.lo72 +++| RJ DXB CONVERT *H* TO DECIMAL VALUE 01216 M00S01202.lo72 +++| ZR X7,CKI19.1 IF ZERO LENGTH SPECIFIED 01217 M00S01203.lo72 +++| SX7 X7-XBUFL-1 01218 M00S01204.lo72 +++| NG X7,CKI20 IF OUTPUT LENGTH .LT. XBUFL 01219 M00S01205.lo72 +++| CKI19.1 WRITEC OUT,CKIU 01220 M00S01206.lo72 +++| EQ CKI19 ALLOW RE-ENTRY OF *H* VALUE 01221 M00S01207.lo72 +++| 01222 M00S01208.lo72 +++|** CHANGE NX, IX, AND OX VALUES 01223 M00S01209.lo72 +++| 01224 M00S01210.lo72 +++| CKI20 WRITEC OUT,CKIO 01225 M00S01211.lo72 +++| WRITEC OUT,CKIO1 01226 M00S01212.lo72 +++| WRITEC OUT,CKIO2 01227 M00S01213.lo72 +++| SB3 CKIP 01228 M00S01214.lo72 +++| SA1 B3-B1 GET COPY OF CKIP 01229 M00S01215.lo72 +++| BX6 X1 01230 M00S01216.lo72 +++| SA6 B3 RESTORE CKIP 01231 M00S01217.lo72 +++| MX5 6 01232 M00S01218.lo72 +++| LX5 30 01233 M00S01219.lo72 +++| BX0 X0-X0 01234 M00S01220.lo72 +++| CKI21 SB6 CKIQ 01235 M00S01221.lo72 +++| MX2 54 01236 M00S01222.lo72 +++| SX7 B1 01237 M00S01223.lo72 +++| SA3 CKIP 01238 M00S01224.lo72 +++| LX3 12 01239 M00S01225.lo72 +++| IX6 X3+X7 INCREMENT X 01240 M00S01226.lo72 +++| LX6 48 01241 M00S01227.lo72 +++| SA6 A3 01242 M00S01228.lo72 +++| SA1 X0+N1 GET NX VALUES 01243 M00S01229.lo72 +++| SB2 3 01244 M00S01230.lo72 +++| SX4 55B 01245 M00S01231.lo72 +++| CKI22 NZ X1,CKI23 IF NX IS SET 01246 M00S01232.lo72 +++| SX1 1R0 01247 M00S01233.lo72 +++| CKI23 LX1 6 01248 M00S01234.lo72 +++| BX3 -X2*X1 01249 M00S01235.lo72 +++| NZ X3,CKI23 IF THERE IS A CHAR. 01250 M00S01236.lo72 +++| IX1 X1+X4 ADD IN A BLANK 01251 M00S01237.lo72 +++| BX3 X5*X1 01252 M00S01238.lo72 +++| ZR X3,CKI23 IF NOT TO BIT 30 01253 M00S01239.lo72 +++| BX6 X1+X6 01254 M00S01240.lo72 +++| SA6 B6 STORE INTO MESSAGE 01255 M00S01241.lo72 +++| SB6 B6+B1 INCREMENT CKIQ ADDRESS 01256 M00S01242.lo72 +++| SB2 B2-B1 DECREMENT COUNTER 01257 M00S01243.lo72 +++| SA1 A1+NPM GET NEXT VALUES (IX + OX) 01258 M00S01244.lo72 +++| SA3 B1+CKIP GET SECOND WORD 01259 M00S01245.lo72 +++| BX6 X3 01260 M00S01246.lo72 +++| NZ B2,CKI22 01261 M00S01247.lo72 +++| SX0 X0+B1 01262 M00S01248.lo72 +++| WRITEC OUT,CKIQ 01263 M00S01249.lo72 +++| SX4 X0-NPM 01264 M00S01250.lo72 +++| NZ X4,CKI21 IF NOT NPM TIMES 01265 M00S01251.lo72 +++| WRITEC OUT,CKIR 01266 M00S01252.lo72 +++| WRITEC OUT,CKIR1 01267 M00S01253.lo72 +++| WRITEC OUT,CKIR2 01268 M00S01254.lo72 +++| WRITEC OUT,CKIR3 01269 M00S01255.lo72 +++| WRITEC OUT,CKIR4 01270 M00S01256.lo72 +++| WRITEC OUT,CKIR5 01271 M00S01257.lo72 +++| MX0 18 01272 M00S01258.lo72 +++| SA0 B0 INITIALIZE ARGUMENT COUNTER 01273 M00S01259.lo72 +++| SA5 YBUF SET ADDRESS FOR NEW VALUES 01274 M00S01260.lo72 +++| 01275 M00S01261.lo72 +++|** READ NEW NX, IX, AND OX VALUES 01276 M00S01262.lo72 +++| 01277 M00S01263.lo72 +++| CKI24 READ I 01278 M00S01264.lo72 +++| READC I,XBUF,8D 01279 M00S01265.lo72 +++| NZ X1,CKI25 IF *CR* 01280 M00S01266.lo72 +++| SB3 CKI24 SET ERROR ADDRESS 01281 M00S01267.lo72 +++| SA1 XBUF GET THE INPUT WORD 01282 M00S01268.lo72 +++| RJ SOB STRIP OFF BLANKS 01283 M00S01269.lo72 +++| SX5 54B SET EQUAL SIGN 01284 M00S01270.lo72 +++| BX7 -X0*X6 01285 M00S01271.lo72 +++| MX1 12 01286 M00S01272.lo72 +++| BX6 X1*X6 01287 M00S01273.lo72 +++| IX6 X6+X5 COMPLETE FIRST WORD 01288 M00S01274.lo72 +++| LX7 18 LEFT JUSTIFY THE SECOND WORD 01289 M00S01275.lo72 +++| SA6 A5 SET FIRST HALF OF ARGUMENT 01290 M00S01276.lo72 +++| SA0 A0+B1 INCREMENT ARGUMENT COUNTER 01291 M00S01277.lo72 +++| SA5 A5+B1 INCREMENT ADDRESS 01292 M00S01278.lo72 +++| SA7 A5 SET SECOND HALF OF ARGUMENT 01293 M00S01279.lo72 +++| SA0 A0+B1 INCREMENT ARGUMENT COUNTER 01294 M00S01280.lo72 +++| SA5 A5+B1 INCREMENT ADDRESS 01295 M00S01281.lo72 +++| EQ CKI24 01296 M00S01282.lo72 +++| CKI25 SB4 A0 SET ARGUMENT COUNT 01297 M00S01283.lo72 +++| ZR B4,CKI26 IF NO ARGUMENTS 01298 M00S01284.lo72 +++| SB5 COPT SET ARGUMENT TABLE ADDRESS 01299 M00S01285.lo72 +++| SA4 YBUF GET FIRST ARGUMENT 01300 M00S01286.lo72 +++| RJ ARG PROCESS ARGUMENTS 01301 M00S01287.lo72 +++| ZR X1,CKI26 IF NO ARGUMENT ERRORS 01302 M00S01288.lo72 +++| WRITEC OUT,CKIT 01303 M00S01289.lo72 +++| MX0 18 01304 M00S01290.lo72 +++| SA0 B0 INITIALIZE ARGUMENT COUNTER 01305 M00S01291.lo72 +++| SA5 YBUF SET ADDRESS FOR NEW VALUES 01306 M00S01292.lo72 +++| EQ CKI24 01307 M00S01293.lo72 +++| 01308 M00S01294.lo72 +++| CKI26 SB6 NPM-1 SET COUNTER + ADDRESS INCREMENT 01309 M00S01295.lo72 +++| MX0 54 SINGLE CHAR. MASK. 01310 M00S01296.lo72 +++| CKI27 SA5 B6+N1 GET NX 01311 M00S01297.lo72 +++| ZR X5,CKI28 IF NX=0 01312 M00S01298.lo72 +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 01313 M00S01299.lo72 +++| SA7 SNX SAVE *NX* VALUE 01314 M00S01300.lo72 +++| SA5 A5+NPM CONVERT *IX* VALUE 01315 M00S01301.lo72 +++| RJ DXB 01316 M00S01302.lo72 +++| SA4 SNX ADD *NX* + *IX* VALUES 01317 M00S01303.lo72 +++| IX4 X4+X7 01318 M00S01304.lo72 +++| SX4 X4-XBUFL-2 COMPARE SUM WITH BUFFER LENGTH 01319 M00S01305.lo72 +++| PL X4,CKI32 IF *NX* + *IX* .GT. XBUFL + 1 01320 M00S01306.lo72 +++| SA5 A5+NPM CONVERT *OX* CODED VALUE 01321 M00S01307.lo72 +++| RJ DXB 01322 M00S01308.lo72 +++| SA7 SOX SAVE *OX* VALUE 01323 M00S01309.lo72 +++| SA5 H CONVERT *H* CODED VALUE 01324 M00S01310.lo72 +++| RJ DXB
| Line S01311 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01325 M01S01311.v23l617 ---| NZ X4,CKI19.1 IF INVALID *H* PARAMETER
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01326 M01S00012.v23l617 +++| NZ X4,CKI19.1 IF INCORRECT *H* PARAMETER 01327 M00S01312.lo72 +++| ZR X7,CKI19.1 IF *H* VALUE = 0 01328 M00S01313.lo72 +++| SX6 X6-XBUFL-1 COMPARE *H* WITH BUFFER LENGTH 01329 M00S01314.lo72 +++| PL X6,CKI19.1 IF *H* VALUE .GT. XBUFL 01330 M00S01315.lo72 +++| SA3 A7 ADD *OX* + *NX* VALUES 01331 M00S01316.lo72 +++| SA4 A4 01332 M00S01317.lo72 +++| IX4 X3+X4 COMPARE SUM WITH OUTPUT LENGTH 01333 M00S01318.lo72 +++| SX7 X7+B1 01334 M00S01319.lo72 +++| IX4 X7-X4 01335 M00S01320.lo72 +++| NG X4,CKI32 IF *NX* + *OX* .GT. (*H* + 1) 01336 M00S01321.lo72 +++| CKI28 ZR B6,CKI33 IF FIELD PARAMETER VALIDATION COMPLETE 01337 M00S01322.lo72 +++| SB6 B6-B1 01338 M00S01323.lo72 +++| EQ CKI27 01339 M00S01324.lo72 +++| 01340 M00S01325.lo72 +++| CKI32 WRITEC OUT,CKIS 01341 M00S01326.lo72 +++| WRITEC OUT,CKIS1 01342 M00S01327.lo72 +++| EQ CKI15 01343 M00S01328.lo72 +++| 01344 M00S01329.lo72 +++| CKI33 SA1 CKIG 01345 M00S01330.lo72 +++| SA2 O 01346 M00S01331.lo72 +++| MX0 42 01347 M00S01332.lo72 +++| BX2 -X0*X2 01348 M00S01333.lo72 +++| BX6 X1+X2 01349 M00S01334.lo72 +++| SA6 A2 SET COMBINED NAME AND STATUS 01350 M00S01335.lo72 +++| SA1 CKID 01351 M00S01336.lo72 +++| ZR X1,PRS14 IF NO INPUT FILE NAME 01352 M00S01337.lo72 +++| SA2 I 01353 M00S01338.lo72 +++| BX2 -X0*X2 01354 M00S01339.lo72 +++| BX6 X1+X2 01355 M00S01340.lo72 +++| SA6 A2 SET COMBINED NAME AND STATUS 01356 M00S01341.lo72 +++| BX1 X6 01357 M00S01342.lo72 +++| EQ RIF READ INPUT FILE 01358 M00S01343.lo72 +++| 01359 M00S01344.lo72 +++|**** MESSAGES OUTPUT TO TTY BY *CKI*. 01360 M00S01345.lo72 +++|* 01361 M00S01346.lo72 +++| CKIA DIS 5,DO YOU WANT TO CHANGE ANY CONTROL ARGUMENT VALUES- 01362 M00S01347.lo72 +++| CON 0 01363 M00S01348.lo72 +++| CKIA1 DATA 10HENTER: YES 01364 M00S01349.lo72 +++| VFD 36/6L OR NO,24/0
| Line S01350 Modification History | |
|---|---|
M01 (Removed by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01365 M01S01350.lo721 ---| CKIB DATA 3LYES
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01366 M01S00003.lo721 +++| CKIB DATA 3HYES 01367 M00S01351.lo72 +++| VFD 60D/2LNO 01368 M00S01352.lo72 +++| CKIC DIS 2,ARGUMENT 01369 M00S01353.lo72 +++| VFD 36/6LVALUE ,24/0 01370 M00S01354.lo72 +++| CKIC1 DIS 2,INPUT FILE NAME: 01371 M00S01355.lo72 +++| CKIC2 VFD 42/0,18/3H "CB" 01372 M00S01356.lo72 +++| CON 0 01373 M00S01357.lo72 +++| CKID CON 0 INPUT FILE NAME STORAGE 01374 M00S01358.lo72 +++| CKIE DIS 2,SOURCE FILE NAME: 01375 M00S01359.lo72 +++| CKIE1 VFD 42/0,18/3H "CB" 01376 M00S01360.lo72 +++| CON 0 01377 M00S01361.lo72 +++| CKIF DIS 2,OUTPUT FILE NAME: 01378 M00S01362.lo72 +++| CKIF1 VFD 42/0,18/3H "CB" 01379 M00S01363.lo72 +++| CON 0 01380 M00S01364.lo72 +++| CKIG CON 0 OUTPUT FILE NAME STORAGE 01381 M00S01365.lo72 +++| CKIH DIS 2,SOURCE FILE TYPE: 01382 M00S01366.lo72 +++| CKIH1 DATA C*NOT IDENTIFIABLE"CB"* 01383 M00S01367.lo72 +++| CKIJ DATA C*NONE"CB"* 01384 M00S01368.lo72 +++| CKIK DATA C*BATCH "CB"* 01385 M00S01369.lo72 +++| CKIL DATA C*MODIFY"CB"* 01386 M00S01370.lo72 +++| CKIM DATA C*COMPASS "CB"* 01387 M00S01371.lo72 +++| CKIN DIS 2,OUTPUT LINE LENGTH: 01388 M00S01372.lo72 +++| CKIN1 VFD 18D/0,42D/7L CHARS. 01389 M00S01373.lo72 +++| DATA C*"CB"* 01390 M00S01374.lo72 +++| CKIO DIS 3, NO. OF MOVED FROM MOVED T 01391 M00S01375.lo72 +++| VFD 12/2LO ,48/0 01392 M00S01376.lo72 +++| CKIO1 DIS 3, CHARS. COLUMN COLUMN 01393 M00S01377.lo72 +++| CON 0 01394 M00S01378.lo72 +++| CKIO2 DIS 2,(X) (NX) (IX) 01395 M00S01379.lo72 +++| VFD 48/8L (OX),12/0 01396 M00S01380.lo72 +++| CON 0 01397 M00S01381.lo72 +++| VFD 30D/5L 0. ,30D/0 01398 M00S01382.lo72 +++| CKIP VFD 30D/5L 0. ,30D/0 01399 M00S01383.lo72 +++| VFD 30D/5L ,30D/0 01400 M00S01384.lo72 +++| CKIQ CON 0 01401 M00S01385.lo72 +++| CON 0 01402 M00S01386.lo72 +++| CON 0 01403 M00S01387.lo72 +++| CON 0 01404 M00S01388.lo72 +++| CKIR DATA C*ENTER CHANGES IN THE FOLLOWING FORMAT: * 01405 M00S01389.lo72 +++| CKIR1 DATA 10HNX=AA*CR* 01406 M00S01390.lo72 +++| CON 0 01407 M00S01391.lo72 +++| CKIR2 DATA 10HIX=BB*CR* 01408 M00S01392.lo72 +++| CON 0 01409 M00S01393.lo72 +++| CKIR3 DATA 10HOX=CC*CR* 01410 M00S01394.lo72 +++| CON 0 01411 M00S01395.lo72 +++| CKIR4 VFD 24/4LETC.,36/0 01412 M00S01396.lo72 +++| CKIR5 DATA C/TO CONTINUE, ENTER *CR* ONLY. "CB"/ 01413 M00S01397.lo72 +++| CKIS DIS 5,ERROR- OUTPUT LINE LENGTH (H) IS TOO SMALL OR TOTA 01414 M00S01398.lo72 +++| VFD 12/2LL ,48/0 01415 M00S01399.lo72 +++| CKIS1 DIS 5,NUMBER OF CHARACTERS TO BE MOVED (NX) IS TOO LARGE 01416 M00S01400.lo72 +++| VFD 12/2L. ,48/0 01417 M00S01401.lo72 +++| CKIT DIS 5,ARGUMENT ERROR. RE-ENTER ALL NX, IX, AND OX PARAME 01418 M00S01402.lo72 +++| VFD 36/6LTERS. ,24/0
| Line S01403 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01419 M01S01403.v23l617 ---| CKIU DATA C* LENGTH INVALID. CORRECT AND RE-ENTER.*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01420 M01S00013.v23l617 +++| CKIU DATA C* LENGTH INCORRECT. CORRECT AND RE-ENTER.* 01421 M00S01404.lo72 +++| CON 0 01422 M00S01405.lo72 +++|**** 01423 M00S01406.lo72 +++| SPACE 4 01424 M00S01407.lo72 +++| 01425 M00S01408.lo72 +++|** SFP - SET FET PARAMETERS 01426 M00S01409.lo72 +++|* ENTRY- (B1) = 1. 01427 M00S01410.lo72 +++|* (A1) = ADDRESS OF FILE NAME. 01428 M00S01411.lo72 +++|* (X1) = FILE NAME. 01429 M00S01412.lo72 +++|* USES- X - 2, 6. 01430 M00S01413.lo72 +++|* B - NONE. 01431 M00S01414.lo72 +++|* A - 2, 6. 01432 M00S01415.lo72 +++|* 01433 M00S01416.lo72 +++|* SETS A 1 IN BIT ZERO OF WORD 1 IF NEEDED AND RESETS 01434 M00S01417.lo72 +++|* IN = OUT = FIRST. 01435 M00S01418.lo72 +++|* 01436 M00S01419.lo72 +++| 01437 M00S01420.lo72 +++| 01438 M00S01421.lo72 +++| SFP SUBR ENTRY/EXIT 01439 M00S01422.lo72 +++| BX6 X1 01440 M00S01423.lo72 +++| LX6 59 01441 M00S01424.lo72 +++| NG X6,SFP1 IF BIT ZERO SET 01442 M00S01425.lo72 +++| SX2 B1 01443 M00S01426.lo72 +++| LX6 1 01444 M00S01427.lo72 +++| IX6 X6+X2 SET BIT ZERO 01445 M00S01428.lo72 +++| BX1 X6 01446 M00S01429.lo72 +++| SA6 A1 01447 M00S01430.lo72 +++| SFP1 SA2 A1+B1 GET FIRST 01448 M00S01431.lo72 +++| BX6 X2 01449 M00S01432.lo72 +++| SA6 A2+B1 SET IN = FIRST 01450 M00S01433.lo72 +++| SA6 A6+B1 SET OUT = FIRST 01451 M00S01434.lo72 +++| EQ SFPX RETURN 01452 M00S01435.lo72 +++| SPACE 4 01453 M00S01436.lo72 +++| 01454 M00S01437.lo72 +++|** SOB - STRIP OFF BLANKS 01455 M00S01438.lo72 +++|* ENTRY- (X1) = DISPLAY CODE WITH TRAILING BLANKS POSSIBLE. 01456 M00S01439.lo72 +++|* (B1) = 1. 01457 M00S01440.lo72 +++|* (B3) = RETURN ADDRSS IF ERROR ENCOUNTERED. 01458 M00S01441.lo72 +++|* USES- X - 1, 2, 3, 6. 01459 M00S01442.lo72 +++|* B - 3, 4, 5, 6, 7. 01460 M00S01443.lo72 +++|* A - 1, 6. 01461 M00S01444.lo72 +++|* EXIT- (X6) = SAME DISPLAY CODE EXCEPT ZERO FILLED. 01462 M00S01445.lo72 +++|* 01463 M00S01446.lo72 +++| 01464 M00S01447.lo72 +++| 01465 M00S01448.lo72 +++| SOB SUBR ENTRY/EXIT 01466 M00S01449.lo72 +++| SX6 B3 01467 M00S01450.lo72 +++| SA6 SOBC SAVE ERROR ADDRESS 01468 M00S01451.lo72 +++| SB4 6 01469 M00S01452.lo72 +++| SB5 54D SHIFT COUNTER 01470 M00S01453.lo72 +++| MX2 54D SINGLE CHARACTER MASK 01471 M00S01454.lo72 +++| BX6 X6-X6 01472 M00S01455.lo72 +++| BX1 X2*X1 01473 M00S01456.lo72 +++| SOB1 LX1 6 01474 M00S01457.lo72 +++| BX3 -X2*X1 GET A CHARACTER 01475 M00S01458.lo72 +++| ZR X3,SOB3 IF NO MORE CHARACTERS 01476 M00S01459.lo72 +++| SB6 B5-6 01477 M00S01460.lo72 +++| ZR B6,SOB6 IF INPUT TOO LONG 01478 M00S01461.lo72 +++| SB7 X3-1R+ 01479 M00S01462.lo72 +++| NG B7,SOB2 IF NOT SPECIAL CHARACTER 01480 M00S01463.lo72 +++| SB7 X3-1R 01481 M00S01464.lo72 +++| ZR B7,SOB1 IF SPACE CHARACTER 01482 M00S01465.lo72 +++| SB7 X3-1R= 01483 M00S01466.lo72 +++| NZ B7,SOB4 IF NOT EQUALS(=) CHARACTER 01484 M00S01467.lo72 +++| SB7 B5-42D 01485 M00S01468.lo72 +++| NZ B7,SOB4 IF NOT THE THIRD CHARACTER 01486 M00S01469.lo72 +++| SOB2 SB5 B5-B4 01487 M00S01470.lo72 +++| BX6 X3+X6 BUILD UP LEGAL INPUT 01488 M00S01471.lo72 +++| LX6 6 01489 M00S01472.lo72 +++| EQ SOB1 LOOP 01490 M00S01473.lo72 +++| SOB3 LX6 B5,X6 LEFT JUSTIFY 01491 M00S01474.lo72 +++| NZ X6,SOBX RETURN IF INPUT GOOD 01492 M00S01475.lo72 +++| SOB4 WRITEC OUT,SOBA 01493 M00S01476.lo72 +++| SOB5 SA1 SOBC 01494 M00S01477.lo72 +++| SB3 X1 RESET ERROR ADDRESS 01495 M00S01478.lo72 +++| JP B3 RETURN TO READ AGAIN 01496 M00S01479.lo72 +++| SOB6 WRITEC OUT,SOBB 01497 M00S01480.lo72 +++| EQ SOB5 01498 M00S01481.lo72 +++| SOBA DIS 3,INPUT ERROR. RE-ENTER SAME PAR 01499 M00S01482.lo72 +++| VFD 48/8LAMETER. ,12/0 01500 M00S01483.lo72 +++| DATA 2BS48 01501 M00S01484.lo72 +++| SOBB DIS 4,PARAMETER TOO LONG. CORRECT AND RE-ENTER 01502 M00S01485.lo72 +++| VFD 12/2L. ,12/0,12/2,24/0 01503 M00S01486.lo72 +++| SOBC CON 0 01504 M00S01487.lo72 +++| SPACE 4 01505 M00S01488.lo72 +++| 01506 M00S01489.lo72 +++|** DEFAULT VALUES FOR BATCH. 01507 M00S01490.lo72 +++| 01508 M00S01491.lo72 +++| BN1 VFD 60D/2L72 01509 M00S01492.lo72 +++| BN2 DATA 0 01510 M00S01493.lo72 +++| BN3 DATA 0 01511 M00S01494.lo72 +++| BN4 DATA 0 01512 M00S01495.lo72 +++| BN5 DATA 0 01513 M00S01496.lo72 +++| BN6 DATA 0 01514 M00S01497.lo72 +++| BI1 VFD 60D/1L1 01515 M00S01498.lo72 +++| BI2 DATA 0 01516 M00S01499.lo72 +++| BI3 DATA 0 01517 M00S01500.lo72 +++| BI4 DATA 0 01518 M00S01501.lo72 +++| BI5 DATA 0 01519 M00S01502.lo72 +++| BI6 DATA 0 01520 M00S01503.lo72 +++| BO1 VFD 60D/1L1 01521 M00S01504.lo72 +++| BO2 DATA 0 01522 M00S01505.lo72 +++| BO3 DATA 0 01523 M00S01506.lo72 +++| BO4 DATA 0 01524 M00S01507.lo72 +++| BO5 DATA 0 01525 M00S01508.lo72 +++| BO6 DATA 0 01526 M00S01509.lo72 +++| 01527 M00S01510.lo72 +++|** DEFAULT VALUES FOR COMPASS. 01528 M00S01511.lo72 +++| 01529 M00S01512.lo72 +++| CN1 VFD 60D/1L7 01530 M00S01513.lo72 +++| CN2 VFD 60D/2L50 01531 M00S01514.lo72 +++| CN3 VFD 60D/2L15 01532 M00S01515.lo72 +++| CN4 DATA 0 01533 M00S01516.lo72 +++| CN5 DATA 0 01534 M00S01517.lo72 +++| CN6 DATA 0 01535 M00S01518.lo72 +++| CI1 VFD 60D/1L9 01536 M00S01519.lo72 +++| CI2 VFD 60D/2L41 01537 M00S01520.lo72 +++| CI3 VFD 60D/3L112 01538 M00S01521.lo72 +++| CI4 DATA 0 01539 M00S01522.lo72 +++| CI5 DATA 0 01540 M00S01523.lo72 +++| CI6 DATA 0 01541 M00S01524.lo72 +++| CO1 VFD 60D/1L1 01542 M00S01525.lo72 +++| CO2 VFD 60D/1L8 01543 M00S01526.lo72 +++| CO3 VFD 60D/2L58 01544 M00S01527.lo72 +++| CO4 DATA 0 01545 M00S01528.lo72 +++| CO5 DATA 0 01546 M00S01529.lo72 +++| CO6 DATA 0 01547 M00S01530.lo72 +++| 01548 M00S01531.lo72 +++|** DEFAULT VALUES FOR MODIFY. 01549 M00S01532.lo72 +++| 01550 M00S01533.lo72 +++| MN1 VFD 60D/1L2 01551 M00S01534.lo72 +++| MN2 VFD 60D/2L48 01552 M00S01535.lo72 +++| MN3 VFD 60D/2L22 01553 M00S01536.lo72 +++| MN4 DATA 0 01554 M00S01537.lo72 +++| MN5 DATA 0 01555 M00S01538.lo72 +++| MN6 DATA 0 01556 M00S01539.lo72 +++| MI1 VFD 60D/1L6 01557 M00S01540.lo72 +++| MI2 VFD 60D/2L10 01558 M00S01541.lo72 +++| MI3 VFD 60D/2L82 01559 M00S01542.lo72 +++| MI4 DATA 0 01560 M00S01543.lo72 +++| MI5 DATA 0 01561 M00S01544.lo72 +++| MI6 DATA 0 01562 M00S01545.lo72 +++| MO1 VFD 60D/1L1 01563 M00S01546.lo72 +++| MO2 VFD 60D/1L3 01564 M00S01547.lo72 +++| MO3 VFD 60D/2L51 01565 M00S01548.lo72 +++| MO4 DATA 0 01566 M00S01549.lo72 +++| MO5 DATA 0 01567 M00S01550.lo72 +++| MO6 DATA 0 01568 M00S01551.lo72 +++| SNX DATA 0 *NX* VALUE 01569 M00S01552.lo72 +++| SOX DATA 0 *OX* VALUE 01570 M00S01553.lo72 +++| 01571 M00S01554.lo72 +++| SPACE 4,10 01572 M00S01555.lo72 +++|** COMMON DECKS. 01573 M00S01556.lo72 +++| 01574 M00S01557.lo72 +++| 01575 M00S01558.lo72 +++|*CALL COMCARG 01576 M00S01559.lo72 +++|*CALL COMCDXB 01577 M00S01560.lo72 +++|*CALL COMCRDH 01578 M00S01561.lo72 +++|*CALL COMCSFN 01579 M00S01562.lo72 +++|*CALL COMCUPC 01580 M00S01563.lo72 +++| 01581 M00S01564.lo72 +++| END
cdc/nos2.source/opl.opl871/deck/lo72.txt · Last modified: (external edit)