cdc:nos2.source:opl.opl871:deck:lo72
Deck LO72
3 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.lo72 +++| IDENT LO72,FETS,LO72 00002 M01S00002.lo72 +++|*COMMENT LO72 - COMPASS REFORMATTER.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00003 M02S00003.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP., 1970. 00004 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00005 M01S00004.lo72 +++| ABS 00006 M01S00005.lo72 +++| SST 00007 M01S00006.lo72 +++| ENTRY LO72 00008 M01S00007.lo72 +++| ENTRY RFL= 00009 M01S00008.lo72 +++| SYSCOM B1 DEFINE (B1) = 1 00010 M01S00009.lo72 +++| TITLE LO72 - COMPRESS OUTPUT FILES. 00011 M01S00010.lo72 +++| TITLE PROGRAM DOCUMENTATION. 00012 M01S00011.lo72 +++|*** LO72 - LIST OUTPUT 72 COLUMNS. 00013 M01S00012.lo72 +++|* 00014 M01S00013.lo72 +++|* J. K. DOWTY, JR. 70/08/01. 00015 M01S00014.lo72 +++|* 00016 M01S00015.lo72 +++| SPACE 4 00017 M01S00016.lo72 +++|*** LIST OUTPUT 72 (LO72) IS A UTILITY PROGRAM WHICH CAN 00018 M01S00017.lo72 +++|* BE USED TO RE-FORMAT FILES ORIGINALLY INTENDED FOR A 00019 M01S00018.lo72 +++|* LINE PRINTER. PROPER USE OF THE PARAMETERS ALLOWS THE 00020 M01S00019.lo72 +++|* USER TO REARRANGE EACH OUTPUT LINE AS HE DESIRES, OR 00021 M01S00020.lo72 +++|* THE PROGRAM WILL SELECT DEFAULT VALUES ACCORDING TO 00022 M01S00021.lo72 +++|* THE TYPE OF SOURCE INPUT. THE DEFAULT VALUES COMPRESS 00023 M01S00022.lo72 +++|* ALL OUTPUT TO 72 COLUMNS FOR LISTING ON A TELETYPE. 00024 M01S00023.lo72 +++|* IF THE JOB ORIGINATED FROM A TELETYPE, LO72 WILL 00025 M01S00024.lo72 +++|* ASK THE ORIGINATOR IF HE DESIRES TO CHANGE ANY OF THE 00026 M01S00025.lo72 +++|* RE-FORMAT PARAMETERS. IF HE ENTERS *YES* THE PROGRAM 00027 M01S00026.lo72 +++|* PRINTS THE CURRENT NAME OF THE INPUT FILE ON HIS TTY AND 00028 M01S00027.lo72 +++|* THE USER CAN THEN ENTER THE NEW FILE NAME OR JUST *CR* 00029 M01S00028.lo72 +++|* (CARRIAGE RETURN). THE *CR* WILL NOT CHANGE ANYTHING AND 00030 M01S00029.lo72 +++|* THE PROGRAM WILL OUTPUT THE NEXT VALUE. THIS PROCEDURE 00031 M01S00030.lo72 +++|* CONTINUES UNTIL ALL THE PARAMETERS HAVE BEEN COVERED. 00032 M01S00031.lo72 +++|* IF AN *I* PARAMETER IS SPECIFIED, I.E. LO72(I=FNAME), 00033 M01S00032.lo72 +++|* THEN EACH RECORD OF FILE *FNAME* MUST END WITH A 00034 M01S00033.lo72 +++|* TERMINATOR CHARACTER. THE FOLLOWING EXAMPLE OF FILE 00035 M01S00034.lo72 +++|* *FNAME* REQUESTS LO72 TO READ A COMPASS TYPE SOURCE FILE 00036 M01S00035.lo72 +++|* *SOURCE*, RE-FORMAT IT TO WRITE A 105 CHARACTER LINE 00037 M01S00036.lo72 +++|* CONTAINING THE "P" ADDRESS (N1), THE OCTAL WORD
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00038 M02S00037.v23l617 ---|* REPRESENTATION (N2), AND THE CONTENTS OF EACH CARD (N3) 00039 M01S00001.v23l617 +++|* REPRESENTATION (N2), AND THE CONTENTS OF EACH COMMAND (N3) 00040 M01S00038.lo72 +++|* TO THE OUTPUT FILE *OUTFILE*. THE OUTPUT FILE WILL 00041 M01S00039.lo72 +++|* EVENTUALLY BE LISTED ON A LINE PRINTER(LP), BUT IT IS NOT 00042 M01S00040.lo72 +++|* TO BE REWOUND AT THIS TIME(NR). 00043 M01S00041.lo72 +++|* 00044 M01S00042.lo72 +++|* COL. NO. 1 2 3 00045 M01S00043.lo72 +++|* 1 1 1 1 00046 M01S00044.lo72 +++|* S=SOURCE,O=OUTFILE,T=C,H=105,LP,NR. 00047 M01S00045.lo72 +++|* N1=7,N2=21,N3=73. 00048 M01S00046.lo72 +++|* I1=9,I2=16,I3=40. 00049 M01S00047.lo72 +++|* O1=1,O2=8,O3=29. 00050 M01S00048.lo72 +++|* EOF. 00051 M01S00049.lo72 +++|* 00052 M01S00050.lo72 +++| SPACE 4
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00053 M02S00051.v23l617 ---|*** CONTROL CARD CALLS. 00054 M01S00002.v23l617 +++|*** THE COMMAND. 00055 M01S00052.lo72 +++|* 00056 M01S00053.lo72 +++|* LO72(I,S,L,T,H,NR) 00057 M01S00054.lo72 +++| SPACE 4 00058 M01S00055.lo72 +++|*** PARAMETERS. 00059 M01S00056.lo72 +++|* 00060 M01S00057.lo72 +++|* I RE-FORMAT PARAMETERS ARE ON FILE *INPUT*. 00061 M01S00058.lo72 +++|* I=FNAME RE-FORMAT PARAMETERS ARE ON FILE *FNAME*.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00059.v23l617 ---|* I=0 RE-FORMAT PARAMETERS ARE ON THE CONTROL CARD OR 00063 M01S00003.v23l617 +++|* I=0 RE-FORMAT PARAMETERS ARE ON THE COMMAND OR 00064 M01S00060.lo72 +++|* SELECT THE APPROPRIATE DEFAULT VALUES. 00065 M01S00061.lo72 +++|* 00066 M01S00062.lo72 +++|* S DATA TO BE RE-FORMATTED IS ON FILE *SCR*. 00067 M01S00063.lo72 +++|* S=FNAME DATA TO BE RE-FORMATTED IS ON FILE *FNAME*. 00068 M01S00064.lo72 +++|* 00069 M01S00065.lo72 +++|* L RE-FORMATTED DATA LISTED TO FILE *OUTPUT*. 00070 M01S00066.lo72 +++|* L=FNAME RE-FORMATTED DATA LISTED TO FILE *FNAME*. 00071 M01S00067.lo72 +++|* 00072 M01S00068.lo72 +++|* T FILE TO BE RE-FORMATTED IS OF TYPE B(BATCH). 00073 M01S00069.lo72 +++|* T=X FILE TO BE RE-FORMATTED IS OF TYPE X, WHERE X 00074 M01S00070.lo72 +++|* CAN BE: M FOR MODIFY SOURCE DATA, 00075 M01S00071.lo72 +++|* C FOR COMPASS SOURCE DATA, OR 00076 M01S00072.lo72 +++|* B FOR MISCELLANEOUS SOURCE DATA. 00077 M01S00073.lo72 +++|* T=0 FILE TYPE IS NOT GIVEN. 00078 M01S00074.lo72 +++|* 00079 M01S00075.lo72 +++|* H NUMBER OF CHARACTERS PER OUTPUT LINE IS 72. 00080 M01S00076.lo72 +++|* H=X-X NUMBER OF CHARACTERS PER OUTPUT LINE IS X-X 00081 M01S00077.lo72 +++|* (MAXIMUM ALLOWED IS 150 CHARACTERS). 00082 M01S00078.lo72 +++|* 00083 M01S00079.lo72 +++|* LP OUTPUT WILL BE FORMATTED FOR THE LINE PRINTER. 00084 M01S00080.lo72 +++|* 00085 M01S00081.lo72 +++|* NR OUTPUT FILE WILL NOT BE REWOUND. 00086 M01S00082.lo72 +++|* 00087 M01S00083.lo72 +++|* NX=Y SPECIFY NUMBER OF CHARACTERS TO BE MOVED. 00088 M01S00084.lo72 +++|* X=1 THRU 6; Y = NUMBER OF CHARACTERS. 00089 M01S00085.lo72 +++|* 00090 M01S00086.lo72 +++|* IX=Y SPECIFY FIRST COLUMN OF DATA TO BE MOVED. 00091 M01S00087.lo72 +++|* X=1 THRU 6; Y = COLUMN NUMBER. 00092 M01S00088.lo72 +++|* 00093 M01S00089.lo72 +++|* OX=Y SPECIFY FIRST COLUMN TO RECEIVE THE DATA. 00094 M01S00090.lo72 +++|* X=1 THRU 6; Y = COLUMN NUMBER. 00095 M01S00091.lo72 +++|* 00096 M01S00092.lo72 +++|* IT IGNORE TERMINAL. IF SET, THE TERMINAL OPTION TO
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00097 M02S00093.v23l617 ---|* ALTER CONTROL CARD PARAMETERS WILL BE SUPPRESSED. 00098 M01S00004.v23l617 +++|* ALTER COMMAND PARAMETERS WILL BE SUPPRESSED. 00099 M01S00094.lo72 +++|* 00100 M01S00095.lo72 +++|* NOTE: N1+N2+...+N6 MUST BE LESS THAN OR EQUAL TO H. 00101 M01S00096.lo72 +++|* 00102 M01S00097.lo72 +++| EJECT 00103 M01S00098.lo72 +++|*** PARAMETER DEFAULT VALUES LISTED BY SOURCE FILE TYPES. 00104 M01S00099.lo72 +++|* B(BATCH) C(COMPASS) M(MODIFY) 00105 M01S00100.lo72 +++|* 00106 M01S00101.lo72 +++|* I=0 I=0 I=0 00107 M01S00102.lo72 +++|* S=SCR S=SCR S=SCR 00108 M01S00103.lo72 +++|* L=OUTPUT L=OUTPUT L=OUTPUT 00109 M01S00104.lo72 +++|* T=B T=C T=M 00110 M01S00105.lo72 +++|* H=72 H=72 H=72 00111 M01S00106.lo72 +++|* NR NOT SET NR NOT SET NR NOT SET 00112 M01S00107.lo72 +++|* LP NOT SET LP NOT SET LP NOT SET 00113 M01S00108.lo72 +++|* N1=72 N1=7 N1=2 00114 M01S00109.lo72 +++|* N2 THRU N6=0 N2=50 N2=48 00115 M01S00110.lo72 +++|* I1=1 N3=15 N3=22 00116 M01S00111.lo72 +++|* I2 THRU I6=0 N4 THRU N6=0 N4 THRU N6=0 00117 M01S00112.lo72 +++|* O1=1 I1=9 I1=6 00118 M01S00113.lo72 +++|* O2 THRU O6=0 I2=41 I2=10 00119 M01S00114.lo72 +++|* I3=112 I3=82 00120 M01S00115.lo72 +++|* I4 THRU I6=0 I4 THRU I6=0 00121 M01S00116.lo72 +++|* O1=1 O1=1 00122 M01S00117.lo72 +++|* O2=8 O2=3 00123 M01S00118.lo72 +++|* O3=58 O3=51 00124 M01S00119.lo72 +++|* O4 THRU O6=0 O4 THRU O6=0 00125 M01S00120.lo72 +++|* 00126 M01S00121.lo72 +++| SPACE 4 00127 M01S00122.lo72 +++|*** DAYFILE MESSAGES. 00128 M01S00123.lo72 +++|* 00129 M01S00124.lo72 +++|* *ARGUMENT ERROR.* = ARGUMENT PROCESSOR *COMCARG* RETURNED AN 00130 M01S00125.lo72 +++|* ERROR STATUS. CORRECT AND RE-SUBMIT THE JOB. 00131 M01S00126.lo72 +++|* *INPUT FILE ERROR.* = AN ERROR WAS ENCOUNTERED BY *COMCUPC*
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00132 M02S00127.v23l617 ---|* (UNPACK CONTROL CARD) WHILE UNPACKING AN INPUT RECORD. 00133 M01S00005.v23l617 +++|* (UNPACK COMMAND) WHILE UNPACKING AN INPUT RECORD. 00134 M01S00128.lo72 +++|* *UNRECOGNIZABLE TYPE SPECIFIED.* = THE TYPE SPECIFIED WAS 00135 M01S00129.lo72 +++|* NOT *B*, *C*, OR *M*. 00136 M01S00130.lo72 +++|* *FILE NAME CONFLICT.* = SOURCE AND OUTPUT FILE NAMES 00137 M01S00131.lo72 +++|* ARE THE SAME. 00138 M01S00132.lo72 +++|* *IX OR OX NOT DEFINED.* = THE *I* OR *O* PARAMETER WAS 00139 M01S00133.lo72 +++|* NOT SPECIFIED FOR A SPECIFIED *N*, AND THERE ARE 00140 M01S00134.lo72 +++|* NO DEFAULTS.
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00135.v23l617 ---|* *INVALID PARAMETER.* = THE *S* OR *L* PARAMETER 00142 M01S00006.v23l617 +++|* *INCORRECT PARAMETER.* = THE *S* OR *L* PARAMETER 00143 M01S00136.lo72 +++|* WERE ENTERED AS ZERO.
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00144 M02S00137.v23l617 ---|* *H VALUE INVALID.* = THE *H* PARAMETER ENTERED WAS 00145 M01S00007.v23l617 +++|* *H VALUE INCORRECT.* = THE *H* PARAMETER ENTERED WAS 00146 M01S00138.lo72 +++|* ZERO OR GREATER THAN BUFFER LENGTH.
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00139.v23l617 ---|* *INVALID LINE LENGTH.* = ONE OF THE FOLLOWING OUT 00148 M01S00008.v23l617 +++|* *INCORRECT LINE LENGTH.* = ONE OF THE FOLLOWING OUT 00149 M01S00140.lo72 +++|* OF BOUNDS CONDITIONS EXISTS WITH RESPECT TO 00150 M01S00141.lo72 +++|* *IX*, *NX*, *OX* AND *H*. 00151 M01S00142.lo72 +++|* WHERE X = 1...6. 00152 M01S00143.lo72 +++|* ( O(X) + N(X) .GT. H ) OR 00153 M01S00144.lo72 +++|* ( I(X) + N(X) .GT. BUFFER LENGTH ). 00154 M01S00145.lo72 +++| 00155 M01S00146.lo72 +++| TITLE MACROS AND ASSEMBLY CONSTANTS. 00156 M01S00147.lo72 +++|**** ASSEMBLY CONSTANTS. 00157 M01S00148.lo72 +++| IBUFL EQU 1001B 00158 M01S00149.lo72 +++| OBUFL EQU 1001B 00159 M01S00150.lo72 +++| IBUFF EQU 101B 00160 M01S00151.lo72 +++| NPM EQU 6 NUMBER OF MOVES POSSIBLE 00161 M01S00152.lo72 +++|**** 00162 M01S00153.lo72 +++| SPACE 4 00163 M01S00154.lo72 +++|* COMMON DECKS. 00164 M01S00155.lo72 +++| 00165 M01S00156.lo72 +++| 00166 M01S00157.lo72 +++|*CALL COMCMAC 00167 M01S00158.lo72 +++|*CALL COMSTCM 00168 M01S00159.lo72 +++| TITLE FETS, BUFFERS, AND STORAGE AREAS. 00169 M01S00160.lo72 +++|**** FETS AND BUFFERS. 00170 M01S00161.lo72 +++| ORG 103B 00171 M01S00162.lo72 +++| FETS BSS 0 00172 M01S00163.lo72 +++| 00173 M01S00164.lo72 +++| S BSS 0 00174 M01S00165.lo72 +++| SCR FILEC IBUF,IBUFL 00175 M01S00166.lo72 +++| 00176 M01S00167.lo72 +++| O BSS 0 00177 M01S00168.lo72 +++| OUTPUT FILEC OBUF,OBUFL 00178 M01S00169.lo72 +++| 00179 M01S00170.lo72 +++| XBUF BSS 150 00180 M01S00171.lo72 +++| XBUFL EQU *-XBUF 00181 M01S00172.lo72 +++| 00182 M01S00173.lo72 +++| YBUF BSS 150 00183 M01S00174.lo72 +++| YBUFL EQU *-YBUF 00184 M01S00175.lo72 +++| 00185 M01S00176.lo72 +++| FETSL BSS 0 00186 M01S00177.lo72 +++|**** 00187 M01S00178.lo72 +++| 00188 M01S00179.lo72 +++|** STORAGE AREA FOR INPUT VALUES. 00189 M01S00180.lo72 +++| N1 CON 1R* 00190 M01S00181.lo72 +++| N2 CON 1R* 00191 M01S00182.lo72 +++| N3 CON 1R* 00192 M01S00183.lo72 +++| N4 CON 1R* 00193 M01S00184.lo72 +++| N5 CON 1R* 00194 M01S00185.lo72 +++| N6 CON 1R* 00195 M01S00186.lo72 +++| I1 DATA 0 00196 M01S00187.lo72 +++| I2 DATA 0 00197 M01S00188.lo72 +++| I3 DATA 0 00198 M01S00189.lo72 +++| I4 DATA 0 00199 M01S00190.lo72 +++| I5 DATA 0 00200 M01S00191.lo72 +++| I6 DATA 0 00201 M01S00192.lo72 +++| O1 DATA 0 00202 M01S00193.lo72 +++| O2 DATA 0 00203 M01S00194.lo72 +++| O3 DATA 0 00204 M01S00195.lo72 +++| O4 DATA 0 00205 M01S00196.lo72 +++| O5 DATA 0 00206 M01S00197.lo72 +++| O6 DATA 0 00207 M01S00198.lo72 +++| 00208 M01S00199.lo72 +++| T VFD 60D/1LB TYPE 00209 M01S00200.lo72 +++| H VFD 60D/2L72 NUMBER OF CHARS./LINE 00210 M01S00201.lo72 +++| LP DATA 0 LINE PRINTER FLAG 00211 M01S00202.lo72 +++| NR DATA 0 NO REWIND FLAG(OUTPUT FILE ONLY) 00212 M01S00203.lo72 +++| TITLE LO72 - MAIN PROGRAM. 00213 M01S00204.lo72 +++|** LO72 - MAIN PROGRAM LOOP. 00214 M01S00205.lo72 +++|* 00215 M01S00206.lo72 +++|* EXIT- OUTPUT STRING BUFFER WRITTEN TO CIO BUFFER. 00216 M01S00207.lo72 +++|* 00217 M01S00208.lo72 +++|* USES- X - 1, 6. 00218 M01S00209.lo72 +++|* B - 1, 2. 00219 M01S00210.lo72 +++|* A - 0, 1. 00220 M01S00211.lo72 +++| 00221 M01S00212.lo72 +++| 00222 M01S00213.lo72 +++| LO721 READ S,R 00223 M01S00214.lo72 +++| EQ LO723 00224 M01S00215.lo72 +++| 00225 M01S00216.lo72 +++| LO722 SA1 H 00226 M01S00217.lo72 +++| WRITES O,YBUF,X1 00227 M01S00218.lo72 +++| LO723 READS S,XBUF,XBUFL 00228 M01S00219.lo72 +++| NG X1,LO724 IF EOF 00229 M01S00220.lo72 +++| NZ X1,LO721 IF EOR 00230 M01S00221.lo72 +++| SA1 XBUF 00231 M01S00222.lo72 +++| SX6 X1-1R1 00232 M01S00223.lo72 +++| ZR X6,PEJ 00233 M01S00224.lo72 +++| SB2 A0 PROCESS A LINE 00234 M01S00225.lo72 +++| JP B2 00235 M01S00226.lo72 +++| 00236 M01S00227.lo72 +++| LO724 WRITEF O 00237 M01S00228.lo72 +++| SA1 NR 00238 M01S00229.lo72 +++| NZ X1,LO725 00239 M01S00230.lo72 +++| REWIND O 00240 M01S00231.lo72 +++| LO725 MESSAGE (=C* LO72 COMPLETE.*) 00241 M01S00232.lo72 +++| ENDRUN R 00242 M01S00233.lo72 +++| EJECT 00243 M01S00234.lo72 +++| 00244 M01S00235.lo72 +++|** PEJ - PAGE EJECT AND SET HEADER LINE. 00245 M01S00236.lo72 +++|* 00246 M01S00237.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00247 M01S00238.lo72 +++|* PAGE EJECT AND HEADER LINE IN OUTPUT STRING BUFFER. 00248 M01S00239.lo72 +++|* USES X - 1, 2, 3, 5, 7. 00249 M01S00240.lo72 +++|* B - 1, 2, 7. 00250 M01S00241.lo72 +++|* A - 0, 1, 2, 3, 5. 00251 M01S00242.lo72 +++| 00252 M01S00243.lo72 +++| 00253 M01S00244.lo72 +++| PEJ RJ BOB BLANK OUTPUT BUFFER 00254 M01S00245.lo72 +++| SA5 LP 00255 M01S00246.lo72 +++| ZR X5,PEJ0 IF FLAG NOT SET 00256 M01S00247.lo72 +++| MOVE 1,XBUF,YBUF 00257 M01S00248.lo72 +++| EQ PEJ0.5 00258 M01S00249.lo72 +++| 00259 M01S00250.lo72 +++| PEJ0 WRITEC O,EJCT 00260 M01S00251.lo72 +++| PEJ0.5 MOVE 42,XBUF+8,YBUF+X5 00261 M01S00252.lo72 +++| MOVE 20,XBUF+90,YBUF+42 00262 M01S00253.lo72 +++| MOVE 5,XBUF+115,YBUF+62 00263 M01S00254.lo72 +++| MOVE 5,XBUF+121,YBUF+67 00264 M01S00255.lo72 +++| SA1 T 00265 M01S00256.lo72 +++| SB2 X1 00266 M01S00257.lo72 +++| JP B2 00267 M01S00258.lo72 +++| 00268 M01S00259.lo72 +++| PEJ1 SA0 CKS CHECK SUBTITLE LINE 00269 M01S00260.lo72 +++| EQ LO722 00270 M01S00261.lo72 +++| PEJ2 SB7 XBUF+10 SET ADDRESS 00271 M01S00262.lo72 +++| RJ ASC ASSEMBLE CHARACTERS 00272 M01S00263.lo72 +++| SA2 PEJA GET FIRST LIST AREA 00273 M01S00264.lo72 +++| SB2 B1+B1 00274 M01S00265.lo72 +++| PEJ3 BX7 X1-X2 00275 M01S00266.lo72 +++| SA3 A2+B1 00276 M01S00267.lo72 +++| ZR X2,PEJ4 IF CHARACTERS MATCH AREA 00277 M01S00268.lo72 +++| SA2 A2+B2 00278 M01S00269.lo72 +++| NZ X7,PEJ3 00279 M01S00270.lo72 +++| PEJ4 SA0 X3 SET THE ADDRESS 00280 M01S00271.lo72 +++| EQ LO722 00281 M01S00272.lo72 +++| 00282 M01S00273.lo72 +++| PEJ5 SA0 BAT1 SET BATCH ADDRESS 00283 M01S00274.lo72 +++| EQ LO722 00284 M01S00275.lo72 +++| 00285 M01S00276.lo72 +++| EJCT CON 0 00286 M01S00277.lo72 +++| PEJA VFD 24D/4LDECK,36D/0 00287 M01S00278.lo72 +++| VFD 42D/0,18D/DKS 00288 M01S00279.lo72 +++| CON 10HSTATISTICS,STS 00289 M01S00280.lo72 +++| CON 0,LMO 00290 M01S00281.lo72 +++| TITLE BATCH SUBROUTINES. 00291 M01S00282.lo72 +++| 00292 M01S00283.lo72 +++|** BAT1 - SET UP MISC. SOURCE INPUT. 00293 M01S00284.lo72 +++|* 00294 M01S00285.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00295 M01S00286.lo72 +++|* SUBTITLE LINE IN OUTPUT STRING BUFFER. 00296 M01S00287.lo72 +++|* USES X - 5. 00297 M01S00288.lo72 +++|* B - NONE. 00298 M01S00289.lo72 +++|* A - 0, 5. 00299 M01S00290.lo72 +++| 00300 M01S00291.lo72 +++| 00301 M01S00292.lo72 +++| BAT1 RJ BOB 00302 M01S00293.lo72 +++| SA5 LP 00303 M01S00294.lo72 +++| MOVE 43,XBUF+8,YBUF+X5 SET UP SUBTITLE LINE 00304 M01S00295.lo72 +++| SA0 BAT2 00305 M01S00296.lo72 +++| MOVE 29,XBUF+70,YBUF+43 00306 M01S00297.lo72 +++| EQ LO722 00307 M01S00298.lo72 +++| 00308 M01S00299.lo72 +++| BAT2 RJ MMS 00309 M01S00300.lo72 +++| EQ LO722 00310 M01S00301.lo72 +++| TITLE COMPASS SUBROUTINES. 00311 M01S00302.lo72 +++| 00312 M01S00303.lo72 +++|** CKS - CHECK SUBTITLE. 00313 M01S00304.lo72 +++|* 00314 M01S00305.lo72 +++|* EXIT (A0) = ADDRESS OF THE NEXT ROUTINE. 00315 M01S00306.lo72 +++|* SUBTITLE LINE IN OUTPUT STRING BUFFER. 00316 M01S00307.lo72 +++|* USES - X - 1, 2, 3, 5, 7. 00317 M01S00308.lo72 +++|* B - 1, 2, 7. 00318 M01S00309.lo72 +++|* A - 0, 2, 3, 5. 00319 M01S00310.lo72 +++| 00320 M01S00311.lo72 +++| 00321 M01S00312.lo72 +++| CKS RJ BOB 00322 M01S00313.lo72 +++| SA5 LP 00323 M01S00314.lo72 +++| MOVE 43,XBUF+8,YBUF+X5 00324 M01S00315.lo72 +++| MOVE 29,XBUF+70,YBUF+43 00325 M01S00316.lo72 +++| SB7 XBUF+8 SET ADDRESS 00326 M01S00317.lo72 +++| RJ ASC ASSEMBLE CHARACTERS 00327 M01S00318.lo72 +++| SA2 CKSA GET SUBTITLE 00328 M01S00319.lo72 +++| SB2 B1+B1 00329 M01S00320.lo72 +++| CKS1 BX7 X1-X2 00330 M01S00321.lo72 +++| SA3 A2+B1 GET ASSOCIATED ADDRESS 00331 M01S00322.lo72 +++| ZR X2,CKS2 IF LAST WORD 00332 M01S00323.lo72 +++| SA2 A2+B2 00333 M01S00324.lo72 +++| NZ X7,CKS1 IF SUBTITLES NOT EQUAL 00334 M01S00325.lo72 +++| CKS2 SA0 X3 00335 M01S00326.lo72 +++| EQ LO722 00336 M01S00327.lo72 +++| 00337 M01S00328.lo72 +++| CKSA VFD 42D/7LSTORAGE,18D/0 00338 M01S00329.lo72 +++| VFD 42D/0,18D/STA 00339 M01S00330.lo72 +++| VFD 48D/8LSYMBOLIC,12D/0 00340 M01S00331.lo72 +++| VFD 42D/0,18D/REF 00341 M01S00332.lo72 +++| CKSB VFD 30D/5LERROR,30D/0 00342 M01S00333.lo72 +++| VFD 42D/0,18D/LSL7 00343 M01S00334.lo72 +++| CON 0,LSL 00344 M01S00335.lo72 +++| 00345 M01S00336.lo72 +++| LSL SPACE 4 00346 M01S00337.lo72 +++|** LSL - LIST A LINE FROM COMPASS. 00347 M01S00338.lo72 +++|* 00348 M01S00339.lo72 +++|* EXIT (A0) = ADDRESS OF NEXT ROUTINE IF END CARD NOT FOUND. 00349 M01S00340.lo72 +++|* A LINE OF COMPASS SOURCE CODE PROCESSED. 00350 M01S00341.lo72 +++|* USES X - 0, 1, 2, 5, 6, 7. 00351 M01S00342.lo72 +++|* B - 2, 3, 7. 00352 M01S00343.lo72 +++|* A - 0, 1, 2, 5. 00353 M01S00344.lo72 +++| 00354 M01S00345.lo72 +++| 00355 M01S00346.lo72 +++| LSL RJ MMS 00356 M01S00347.lo72 +++| SB7 XBUF+50 00357 M01S00348.lo72 +++| RJ ASC ASSEMBLE OP-CODE 00358 M01S00349.lo72 +++| SA2 LSLA 00359 M01S00350.lo72 +++| BX7 X1-X2 00360 M01S00351.lo72 +++| NZ X7,LO722 IF NOT *END* 00361 M01S00352.lo72 +++| 00362 M01S00353.lo72 +++|** PROCESS -STORAGE USED-, ETC. 00363 M01S00354.lo72 +++|* 00364 M01S00355.lo72 +++| SA0 LSL2 00365 M01S00356.lo72 +++| EQ LO722 00366 M01S00357.lo72 +++| 00367 M01S00358.lo72 +++| LSL2 RJ BOB 00368 M01S00359.lo72 +++| SB7 XBUF+40 00369 M01S00360.lo72 +++| RJ ASC 00370 M01S00361.lo72 +++| SA2 CKSA 00371 M01S00362.lo72 +++| BX6 X1-X2 00372 M01S00363.lo72 +++| NZ X6,LSL3 IF NOT -STORAGE USED- LINE 00373 M01S00364.lo72 +++| MOVE 17,XBUF+80,2 SAVE -XXXXXXXXX SYMBOLS- 00374 M01S00365.lo72 +++| SA5 LP 00375 M01S00366.lo72 +++| MOVE 9,XBUF+27,YBUF+X5 -STORAGE USED- 00376 M01S00367.lo72 +++| MOVE 13,XBUF+39,YBUF+10 00377 M01S00368.lo72 +++| MOVE 22,XBUF+58,YBUF+23 -STATEMENTS- 00378 M01S00369.lo72 +++| MOVE 27,XBUF+99,YBUF+45 -INVENTED SYMBOLS- 00379 M01S00370.lo72 +++| EQ LO722 00380 M01S00371.lo72 +++| 00381 M01S00372.lo72 +++| LSL3 SB7 XBUF+51 00382 M01S00373.lo72 +++| RJ ASC 00383 M01S00374.lo72 +++| ZR X1,LMO 00384 M01S00375.lo72 +++| MX0 30 00385 M01S00376.lo72 +++| BX1 X0*X1 MASK THE *S* IN *ERRORS* 00386 M01S00377.lo72 +++| SA2 CKSB 00387 M01S00378.lo72 +++| BX6 X1-X2 00388 M01S00379.lo72 +++| ZR X6,LSL5 IF THERE WERE ASSEMBLY ERRORS 00389 M01S00380.lo72 +++| SA5 LP 00390 M01S00381.lo72 +++| MOVE 15,XBUF+38,YBUF+X5 -ASSEMBLY- 00391 M01S00382.lo72 +++| MOVE 18,XBUF+59,YBUF+16 -SECONDS- 00392 M01S00383.lo72 +++| MOVE 21,XBUF+80,YBUF+34 -REFERENCES- 00393 M01S00384.lo72 +++| MOVE 17,2,YBUF+55 -SYMBOLS- 00394 M01S00385.lo72 +++| MOVE 8,XBUF+29,2 00395 M01S00386.lo72 +++| EQ LO722 00396 M01S00387.lo72 +++| 00397 M01S00388.lo72 +++| LSL5 SA5 LP 00398 M01S00389.lo72 +++| MOVE 55,XBUF+40,YBUF+X5 -ERRORS IN- 00399 M01S00390.lo72 +++| EQ LO722 00400 M01S00391.lo72 +++| 00401 M01S00392.lo72 +++|** PROCESS ERROR DIRECTORY 00402 M01S00393.lo72 +++|* 00403 M01S00394.lo72 +++| LSL7 SA1 XBUF+21 00404 M01S00395.lo72 +++| SX1 X1-1R 00405 M01S00396.lo72 +++| ZR X1,LMO 00406 M01S00397.lo72 +++| RJ BOB 00407 M01S00398.lo72 +++| SA5 LP 00408 M01S00399.lo72 +++| MOVE 13,XBUF+14,YBUF+X5 -TYPE ERROR- 00409 M01S00400.lo72 +++| MOVE 59,XBUF+40,YBUF+14 DESCRIPTION OF ERROR 00410 M01S00401.lo72 +++| SA0 LSL8 00411 M01S00402.lo72 +++| EQ LO722 00412 M01S00403.lo72 +++| 00413 M01S00404.lo72 +++| LSL8 SB7 XBUF+21 00414 M01S00405.lo72 +++| RJ ASC 00415 M01S00406.lo72 +++| SA2 CKSB 00416 M01S00407.lo72 +++| BX6 X1-X2 00417 M01S00408.lo72 +++| ZR X6,LSL7 IF *ERROR* 00418 M01S00409.lo72 +++| RJ BOB 00419 M01S00410.lo72 +++| SA5 LP 00420 M01S00411.lo72 +++| MOVE 18,XBUF+21,YBUF+X5 00421 M01S00412.lo72 +++| MX0 1 00422 M01S00413.lo72 +++| LX0 6 00423 M01S00414.lo72 +++| SB2 XBUF+44 00424 M01S00415.lo72 +++| SB3 YBUF+18 00425 M01S00416.lo72 +++| LSL9 MOVE 6,B2,B3 MOVE THE PAGE NUMBERS 00426 M01S00417.lo72 +++| LX0 6 00427 M01S00418.lo72 +++| SB2 B2+10 00428 M01S00419.lo72 +++| SB3 B3+6 00429 M01S00420.lo72 +++| PL X0,LSL9 00430 M01S00421.lo72 +++| EQ LO722 00431 M01S00422.lo72 +++| 00432 M01S00423.lo72 +++| LSLA VFD 18D/3LEND,42D/0 00433 M01S00424.lo72 +++| 00434 M01S00425.lo72 +++| STA SPACE 4 00435 M01S00426.lo72 +++|** STA - LIST STORAGE ALLOCATION 00436 M01S00427.lo72 +++|* 00437 M01S00428.lo72 +++|* EXIT STORAGE ALLOCATION CODE PROCESSED. 00438 M01S00429.lo72 +++|* USES X - 1, 5, 6. 00439 M01S00430.lo72 +++|* B - NONE. 00440 M01S00431.lo72 +++|* A - 1, 5. 00441 M01S00432.lo72 +++| 00442 M01S00433.lo72 +++| 00443 M01S00434.lo72 +++| STA RJ BOB 00444 M01S00435.lo72 +++| SA5 LP 00445 M01S00436.lo72 +++| SA1 XBUF+26 CHECK LINE TYPE 00446 M01S00437.lo72 +++| SX6 X1-1R 00447 M01S00438.lo72 +++| ZR X6,STA1 IF NOT ALLOCATION 00448 M01S00439.lo72 +++| MOVE 72,XBUF+18,YBUF+X5 00449 M01S00440.lo72 +++| EQ LO722 00450 M01S00441.lo72 +++| 00451 M01S00442.lo72 +++| STA1 MOVE 72,XBUF+38,YBUF+X5 00452 M01S00443.lo72 +++| EQ LO722 00453 M01S00444.lo72 +++| 00454 M01S00445.lo72 +++| REF SPACE 4 00455 M01S00446.lo72 +++|** REF - LIST CROSS REFERENCE TABLE. 00456 M01S00447.lo72 +++|* 00457 M01S00448.lo72 +++|* EXIT CROSS REFERENCE TABLE CODE PROCESSED. 00458 M01S00449.lo72 +++|* USES X - 1, 5, 6, 7. 00459 M01S00450.lo72 +++|* B - 1, 2, 3, 4. 00460 M01S00451.lo72 +++|* A - 1, 5, 7. 00461 M01S00452.lo72 +++| 00462 M01S00453.lo72 +++| 00463 M01S00454.lo72 +++| REF RJ BOB 00464 M01S00455.lo72 +++| SA1 6 CHECK FOR EXTRA PAGE/LINE 00465 M01S00456.lo72 +++| SX6 X1-1R 00466 M01S00457.lo72 +++| ZR X6,REF2 IF NONE SAVED 00467 M01S00458.lo72 +++| SA1 XBUF+22 00468 M01S00459.lo72 +++| SX6 X1-1R 00469 M01S00460.lo72 +++| ZR X6,REF1 IF NOT NEW SYMBOL LINE 00470 M01S00461.lo72 +++| MOVE 8,2,YBUF+16 00471 M01S00462.lo72 +++| SA1 H 00472 M01S00463.lo72 +++| WRITES O,YBUF,X1 00473 M01S00464.lo72 +++| EQ REF2 00474 M01S00465.lo72 +++| 00475 M01S00466.lo72 +++| REF1 MOVE 8,2,XBUF+15 00476 M01S00467.lo72 +++| REF2 MOVE 8,XBUF+29,2 BLANK OUT THE SAVE AREA 00477 M01S00468.lo72 +++| SA1 XBUF+67 00478 M01S00469.lo72 +++| SX6 X1-1R= 00479 M01S00470.lo72 +++| NZ X6,REF3 IF NOT QUALIFIER LINE 00480 M01S00471.lo72 +++| SA5 LP 00481 M01S00472.lo72 +++| MOVE 24,XBUF,YBUF+X5 00482 M01S00473.lo72 +++| MOVE 48,XBUF+49,YBUF+24 00483 M01S00474.lo72 +++| EQ LO722 00484 M01S00475.lo72 +++| 00485 M01S00476.lo72 +++| REF3 SA5 LP 00486 M01S00477.lo72 +++| MOVE 16,XBUF+8,YBUF+X5 00487 M01S00478.lo72 +++| SB2 XBUF+40 00488 M01S00479.lo72 +++| SB3 7 SET COUNTER 00489 M01S00480.lo72 +++| SB4 YBUF+16 00490 M01S00481.lo72 +++| REF4 SA1 B2+9 00491 M01S00482.lo72 +++| SX6 X1-1R 00492 M01S00483.lo72 +++| ZR X6,REF5 IF NOT DEFINITION 00493 M01S00484.lo72 +++| SX7 1R 00494 M01S00485.lo72 +++| SA7 B2+5 BLANK OUT THE */* 00495 M01S00486.lo72 +++| SA7 A7+B1 AND LINE NUMBER. 00496 M01S00487.lo72 +++| SA7 A7+B1 00497 M01S00488.lo72 +++| REF5 ZR B3,REF6 IF SEVEN PAGE/LINES LISTED 00498 M01S00489.lo72 +++| MOVE 8,B2,B4 00499 M01S00490.lo72 +++| SB2 B2+10 INCREMENT XBUF ADDRESS 00500 M01S00491.lo72 +++| SB3 B3-B1 00501 M01S00492.lo72 +++| SB4 B4+8 INCREMENT YBUF ADDRESS 00502 M01S00493.lo72 +++| EQ REF4 00503 M01S00494.lo72 +++| 00504 M01S00495.lo72 +++| REF6 SA1 XBUF+114 00505 M01S00496.lo72 +++| SX6 X1-1R 00506 M01S00497.lo72 +++| ZR X6,LO722 IF NO EIGHTH PAGE/LINE 00507 M01S00498.lo72 +++| MOVE 8,B2,2 SAVE EIGHTH PAGE/LINE 00508 M01S00499.lo72 +++| EQ LO722 00509 M01S00500.lo72 +++| TITLE MODIFY SUBROUTINES. 00510 M01S00501.lo72 +++| 00511 M01S00502.lo72 +++|** LMO - PROCESS MODIFICATIONS 00512 M01S00503.lo72 +++|* 00513 M01S00504.lo72 +++|* EXIT A LINE OF MODIFY SOURCE CODE PROCESSED. 00514 M01S00505.lo72 +++|* USES X - 5. 00515 M01S00506.lo72 +++|* B - 2. 00516 M01S00507.lo72 +++|* A - 5. 00517 M01S00508.lo72 +++| 00518 M01S00509.lo72 +++| 00519 M01S00510.lo72 +++| LMO SB2 XBUF+10 00520 M01S00511.lo72 +++| LMO1 RJ BOB 00521 M01S00512.lo72 +++| SA5 LP 00522 M01S00513.lo72 +++| MOVE 72,B2,YBUF+X5 00523 M01S00514.lo72 +++| EQ LO722 00524 M01S00515.lo72 +++| 00525 M01S00516.lo72 +++| DKS SPACE 4 00526 M01S00517.lo72 +++|** DKS - PROCESS DECK STATUS 00527 M01S00518.lo72 +++|* 00528 M01S00519.lo72 +++|* EXIT DECK STATUS CODE; MODIFIER NAMES CODE; OR ACTIVE, 00529 M01S00520.lo72 +++|* INACTIVE, AND INSERTED CARD(S) CODE PROCESSED. 00530 M01S00521.lo72 +++|* USES X - 1, 2, 5, 6, 7. 00531 M01S00522.lo72 +++|* B - 2, 7. 00532 M01S00523.lo72 +++|* A - 0, 1, 2, 5, 6. 00533 M01S00524.lo72 +++| 00534 M01S00525.lo72 +++| 00535 M01S00526.lo72 +++| DKS SA0 DKS1 00536 M01S00527.lo72 +++| SB2 XBUF+13 00537 M01S00528.lo72 +++| EQ LMO1 00538 M01S00529.lo72 +++| 00539 M01S00530.lo72 +++|** CHECK FOR MODIFIERS 00540 M01S00531.lo72 +++|* 00541 M01S00532.lo72 +++| DKS1 SA1 XBUF+10 00542 M01S00533.lo72 +++| SX1 X1-1R 00543 M01S00534.lo72 +++| ZR X1,LMO IF NOT *MODIFIERS.* LINE 00544 M01S00535.lo72 +++| SA0 DKS2 00545 M01S00536.lo72 +++| SA1 DKS 00546 M01S00537.lo72 +++| MX2 42 00547 M01S00538.lo72 +++| LX2 30 00548 M01S00539.lo72 +++| BX1 X1*X2 MASK OUT DKS1 ADDRESS 00549 M01S00540.lo72 +++| SX2 DKS2 GET DKS2 ADDRESS 00550 M01S00541.lo72 +++| LX2 30 00551 M01S00542.lo72 +++| BX6 X1+X2 INSERT DKS2 ADDRESS 00552 M01S00543.lo72 +++| SA6 A1 RE-STORE THE INSTRUCTION 00553 M01S00544.lo72 +++| SB2 XBUF+2 00554 M01S00545.lo72 +++| EQ LMO1 00555 M01S00546.lo72 +++| 00556 M01S00547.lo72 +++|** CHECK FOR MODIFIER NAMES, ACTIVE CARDS, OR MAIN SECTION. 00557 M01S00548.lo72 +++|* 00558 M01S00549.lo72 +++| DKS2 SA1 XBUF+5 00559 M01S00550.lo72 +++| SA2 XBUF+6 00560 M01S00551.lo72 +++| SX1 X1-1R 00561 M01S00552.lo72 +++| NZ X1,BAT2 IF IT IS *A* LINE 00562 M01S00553.lo72 +++| SX2 X1-1R 00563 M01S00554.lo72 +++| NZ X1,BAT2 IF IT IS *D* LINE 00564 M01S00555.lo72 +++| RJ BOB 00565 M01S00556.lo72 +++| SB7 XBUF+21 00566 M01S00557.lo72 +++| RJ ASC 00567 M01S00558.lo72 +++| SA2 DKSA GET *ACTIVE* 00568 M01S00559.lo72 +++| BX7 X1-X2 00569 M01S00560.lo72 +++| NZ X7,DKS3 IF IT IS MODIFIER NAMES(S) 00570 M01S00561.lo72 +++| SA5 LP 00571 M01S00562.lo72 +++| MOVE 23,XBUF+14,YBUF+X5 -ACTIVE CARD(S)- 00572 M01S00563.lo72 +++| MOVE 25,XBUF+44,YBUF+23 -INACTIVE CARD(S)- 00573 M01S00564.lo72 +++| MOVE 24,XBUF+74,YBUF+48 -INSERTED CARD(S)- 00574 M01S00565.lo72 +++| EQ LO722 00575 M01S00566.lo72 +++| 00576 M01S00567.lo72 +++|** PROCESS MODIFIER NAME(S) 00577 M01S00568.lo72 +++|* 00578 M01S00569.lo72 +++| DKS3 SA1 XBUF+11 00579 M01S00570.lo72 +++| SX1 X1-1R 00580 M01S00571.lo72 +++| ZR X1,LMO IF NO FIRST NAME 00581 M01S00572.lo72 +++| SA5 LP 00582 M01S00573.lo72 +++| MOVE 41,XBUF+10,YBUF+X5 00583 M01S00574.lo72 +++| SA1 H 00584 M01S00575.lo72 +++| WRITES O,YBUF,X1 00585 M01S00576.lo72 +++| SA1 XBUF+51 00586 M01S00577.lo72 +++| SX1 X1-1R 00587 M01S00578.lo72 +++| ZR X1,LO723 IF NO FIFTH NAME 00588 M01S00579.lo72 +++| RJ BOB 00589 M01S00580.lo72 +++| SA5 LP 00590 M01S00581.lo72 +++| MOVE 41,XBUF+50,YBUF+X5 00591 M01S00582.lo72 +++| EQ LO722 00592 M01S00583.lo72 +++| 00593 M01S00584.lo72 +++| DKSA VFD 36D/6LACTIVE,24D/0 00594 M01S00585.lo72 +++| 00595 M01S00586.lo72 +++| STS SPACE 4 00596 M01S00587.lo72 +++|** STS - PROCESS STATISTICS 00597 M01S00588.lo72 +++|* 00598 M01S00589.lo72 +++|* EXIT STATISTICS CODE PROCESSED. 00599 M01S00590.lo72 +++|* USES X - 1, 5. 00600 M01S00591.lo72 +++|* B - NONE. 00601 M01S00592.lo72 +++|* A - 1, 5. 00602 M01S00593.lo72 +++| 00603 M01S00594.lo72 +++| 00604 M01S00595.lo72 +++| STS SA1 XBUF+81 00605 M01S00596.lo72 +++| SX1 X1-1R 00606 M01S00597.lo72 +++| ZR X1,LMO 00607 M01S00598.lo72 +++| RJ BOB 00608 M01S00599.lo72 +++| SA5 LP 00609 M01S00600.lo72 +++| MOVE 60,XBUF+10,YBUF+X5 00610 M01S00601.lo72 +++| SA1 H 00611 M01S00602.lo72 +++| WRITES O,YBUF,X1 00612 M01S00603.lo72 +++| RJ BOB 00613 M01S00604.lo72 +++| SA5 LP 00614 M01S00605.lo72 +++| MOVE 60,XBUF+70,YBUF+X5 00615 M01S00606.lo72 +++| EQ LO722 00616 M01S00607.lo72 +++| 00617 M01S00608.lo72 +++| TITLE GENERAL SUBROUTINES. 00618 M01S00609.lo72 +++|** BOB - BLANK OUTPUT BUFFER 00619 M01S00610.lo72 +++|* ENTRY- (B1) = 1. 00620 M01S00611.lo72 +++|* USES- X - 0. 00621 M01S00612.lo72 +++|* B - 3, 4. 00622 M01S00613.lo72 +++|* A - NONE. 00623 M01S00614.lo72 +++|* EXIT THE OUTPUT STRING BUFFER CONTAINS SPACE CODE 00624 M01S00615.lo72 +++|* IN ALL 150 WORDS. 00625 M01S00616.lo72 +++|* 00626 M01S00617.lo72 +++| 00627 M01S00618.lo72 +++| 00628 M01S00619.lo72 +++| BOB SUBR ENTRY/EXIT 00629 M01S00620.lo72 +++| MX0 1 00630 M01S00621.lo72 +++| SB3 YBUF SET ADDRESS 00631 M01S00622.lo72 +++| SB4 15 SET INCREMENT 00632 M01S00623.lo72 +++| BOB1 LX0 6 00633 M01S00624.lo72 +++| MOVE 15,SPACES,B3 BLANK OUT YBUF 00634 M01S00625.lo72 +++| SB3 B3+B4 00635 M01S00626.lo72 +++| PL X0,BOB1 IF NOT 10 TIMES 00636 M01S00627.lo72 +++| EQ BOBX RETURN 00637 M01S00628.lo72 +++| 00638 M01S00629.lo72 +++| SPACES VFD 60D/1R 00639 M01S00630.lo72 +++| DUP 14 00640 M01S00631.lo72 +++| VFD 60D/1R 00641 M01S00632.lo72 +++| ENDD 00642 M01S00633.lo72 +++| 00643 M01S00634.lo72 +++| MMS SPACE 4 00644 M01S00635.lo72 +++|** MMS - MOVE MAIN SECTIONS 00645 M01S00636.lo72 +++|* ENTRY- (B1) = 1. 00646 M01S00637.lo72 +++|* USES- X - 1, 2, 3. 00647 M01S00638.lo72 +++|* B - 2, 3. 00648 M01S00639.lo72 +++|* A - 1, 2, 3. 00649 M01S00640.lo72 +++|* EXIT THE OUTPUT STRING BUFFER CONTAINS THE CODE SPECIFIED 00650 M01S00641.lo72 +++|* BY THE PARAMETERS IN THE PROGRAM. 00651 M01S00642.lo72 +++|* 00652 M01S00643.lo72 +++| 00653 M01S00644.lo72 +++| 00654 M01S00645.lo72 +++| MMS SUBR ENTRY/EXIT 00655 M01S00646.lo72 +++| RJ BOB 00656 M01S00647.lo72 +++| SB2 B0 00657 M01S00648.lo72 +++| SB3 NPM SET LOOP COUNTER 00658 M01S00649.lo72 +++| MMS2 SA1 B2+N1 GET NO. OF CHARACTERS 00659 M01S00650.lo72 +++| ZR X1,MMS3 00660 M01S00651.lo72 +++| SA2 B2+I1 GET INPUT ADDRESS 00661 M01S00652.lo72 +++| SA3 B2+O1 GET OUTPUT ADDRESS 00662 M01S00653.lo72 +++| MOVE X1,X2,X3 00663 M01S00654.lo72 +++| MMS3 SB2 B2+B1 INCREMENT THE ADDRESS 00664 M01S00655.lo72 +++| SB3 B3-B1 00665 M01S00656.lo72 +++| NZ B3,MMS2 IF NOT NPM TIMES THRU 00666 M01S00657.lo72 +++| EQ MMSX RETURN 00667 M01S00658.lo72 +++| 00668 M01S00659.lo72 +++| ASC SPACE 4 00669 M01S00660.lo72 +++|** ASC ASSEMBLE CHARACTERS 00670 M01S00661.lo72 +++|* ENTRY- (B7) = ADDRESS OF FIRST CHARACTER. 00671 M01S00662.lo72 +++|* (B1) = 1. 00672 M01S00663.lo72 +++|* USES: X - 1. 00673 M01S00664.lo72 +++|* B - 4, 5, 6. 00674 M01S00665.lo72 +++|* A - 2. 00675 M01S00666.lo72 +++|* EXIT- (X1) = THE CHARACTERS, LEFT JUSTIFIED, WITH 00676 M01S00667.lo72 +++|* TRAILING ZEROS. 00677 M01S00668.lo72 +++|* 00678 M01S00669.lo72 +++|* ASSEMBLES UP TO TEN CHARACTERS INTO (X1) UNLESS A LEFT 00679 M01S00670.lo72 +++|* PAREN, A COMMA, A PERIOD, OR A BLANK IS ENCOUNTERED 00680 M01S00671.lo72 +++|* FIRST. 00681 M01S00672.lo72 +++|* 00682 M01S00673.lo72 +++| 00683 M01S00674.lo72 +++| 00684 M01S00675.lo72 +++| ASC SUBR ENTRY/EXIT 00685 M01S00676.lo72 +++| SB5 60 SET SHIFT COUNTER 00686 M01S00677.lo72 +++| SB6 6 00687 M01S00678.lo72 +++| BX1 X1-X1 00688 M01S00679.lo72 +++| ASC1 LX1 6 00689 M01S00680.lo72 +++| SA2 B7 GET A CHARACTER 00690 M01S00681.lo72 +++| SB5 B5-B6 DECREMENT THE SHIFT COUNTER 00691 M01S00682.lo72 +++| SB4 X2-1R 00692 M01S00683.lo72 +++| ZR B4,ASC2 IF A BLANK 00693 M01S00684.lo72 +++| SB4 X2-1R( 00694 M01S00685.lo72 +++| ZR B4,ASC2 IF A LEFT PAREN 00695 M01S00686.lo72 +++| SB4 X2-1R, 00696 M01S00687.lo72 +++| ZR B4,ASC2 IF A COMMA 00697 M01S00688.lo72 +++| SB4 X2-1R. 00698 M01S00689.lo72 +++| ZR B4,ASC2 IF A PERIOD 00699 M01S00690.lo72 +++| BX1 X1+X2 ADD IN THE CHARACTER 00700 M01S00691.lo72 +++| NG X1,ASCX 00701 M01S00692.lo72 +++| SB7 B7+B1 INCREMENT THE ADDRESS 00702 M01S00693.lo72 +++| NZ B5,ASC1 IF NOT 10 CHARACTERS 00703 M01S00694.lo72 +++| ASC2 ZR B5,ASCX 00704 M01S00695.lo72 +++| LX1 B5,X1 LEFT JUSTIFY 00705 M01S00696.lo72 +++| EQ ASCX RETURN 00706 M01S00697.lo72 +++| SPACE 4 00707 M01S00698.lo72 +++|* COMMON DECKS. 00708 M01S00699.lo72 +++| 00709 M01S00700.lo72 +++|*CALL COMCCIO 00710 M01S00701.lo72 +++|*CALL COMCMVE 00711 M01S00702.lo72 +++|*CALL COMCRDC 00712 M01S00703.lo72 +++|*CALL COMCRDS 00713 M01S00704.lo72 +++|*CALL COMCRDW 00714 M01S00705.lo72 +++|*CALL COMCWTC 00715 M01S00706.lo72 +++|*CALL COMCWTS 00716 M01S00707.lo72 +++|*CALL COMCWTW 00717 M01S00708.lo72 +++|*CALL COMCSYS 00718 M01S00709.lo72 +++| 00719 M01S00710.lo72 +++| BUFFERS SPACE 4 00720 M01S00711.lo72 +++|**** BUFFERS 00721 M01S00712.lo72 +++|* 00722 M01S00713.lo72 +++| USE // 00723 M01S00714.lo72 +++| IBUF EQU * 00724 M01S00715.lo72 +++| OBUF EQU IBUF+IBUFL 00725 M01S00716.lo72 +++| RFL= EQU OBUF+OBUFL DEFAULT FIELD LENGTH 00726 M01S00717.lo72 +++| USE * 00727 M01S00718.lo72 +++|**** 00728 M01S00719.lo72 +++| TITLE PRESET SUBROUTINES. 00729 M01S00720.lo72 +++| 00730 M01S00721.lo72 +++| ORG IBUF 00731 M01S00722.lo72 +++| SEG 00732 M01S00723.lo72 +++| PRS SPACE 4 00733 M01S00724.lo72 +++|** PRESET SUBROUTINES. 00734 M01S00725.lo72 +++|* 00735 M01S00726.lo72 +++|* THIS AREA IS OVERLAID BY THE I/O BUFFERS. 00736 M01S00727.lo72 +++|* 00737 M01S00728.lo72 +++|* USES X - ALL. 00738 M01S00729.lo72 +++|* B - ALL. 00739 M01S00730.lo72 +++|* A - ALL. 00740 M01S00731.lo72 +++| 00741 M01S00732.lo72 +++| 00742 M01S00733.lo72 +++| I BSS 0 00743 M01S00734.lo72 +++| TEMP1 FILEC I+15D,IBUFF 00744 M01S00735.lo72 +++| 00745 M01S00736.lo72 +++| OUT BSS 0 00746 M01S00737.lo72 +++| TEMP2 FILEC I+16D+IBUFF,IBUFF 00747 M01S00738.lo72 +++| 00748 M01S00739.lo72 +++| ORG I 00749 M01S00740.lo72 +++| VFD 60D/1 00750 M01S00741.lo72 +++| ORG OUT 00751 M01S00742.lo72 +++| VFD 60D/5 00752 M01S00743.lo72 +++| ORG I+17D+IBUFF+IBUFF 00753 M01S00744.lo72 +++| 00754 M01S00745.lo72 +++|** CHECK THE JOB ORIGIN CODE. 00755 M01S00746.lo72 +++|* 00756 M01S00747.lo72 +++| LO72 SB1 1 (B1) = 1 00757 M01S00748.lo72 +++| PRS MX0 48 00758 M01S00749.lo72 +++| SA1 JOPR GET JOB ORIGIN CODE (BITS 24-35) 00759 M01S00750.lo72 +++| AX1 24 RIGHT ADJUST BYTE 2 00760 M01S00751.lo72 +++| BX2 -X0*X1 GET JOB ORIGIN CODE 00761 M01S00752.lo72 +++| SX6 X2-TXOT 00762 M01S00753.lo72 +++| SA6 TTO SET TTY ORIGIN FLAG 00763 M01S00754.lo72 +++| PRS1 SA1 ACTR GET ARGUMENT COUNT 00764 M01S00755.lo72 +++| SB4 X1 00765 M01S00756.lo72 +++| ZR B4,PRS2 IF NO ARGUMENTS 00766 M01S00757.lo72 +++| SB5 COPT SET ARGUMENT TABLE ADDRESS 00767 M01S00758.lo72 +++| SA4 ARGR GET FIRST ARGUMENT 00768 M01S00759.lo72 +++| RJ ARG 00769 M01S00760.lo72 +++| NZ X1,PRSB IF ERROR FOUND 00770 M01S00761.lo72 +++| PRS2 SB2 NPM 00771 M01S00762.lo72 +++| SB3 B0 00772 M01S00763.lo72 +++| 00773 M01S00764.lo72 +++|** VERIFY IF TYPE OF SOURCE FILE IS LEGAL 00774 M01S00765.lo72 +++|* 00775 M01S00766.lo72 +++| SA1 T CHECK TYPE 00776 M01S00767.lo72 +++| ZR X1,PRS12 00777 M01S00768.lo72 +++| LX1 6 RIGHT JUSTIFY 00778 M01S00769.lo72 +++| SX2 X1-1RB 00779 M01S00770.lo72 +++| NZ X2,PRS3 IF TYPE NOT = B 00780 M01S00771.lo72 +++| SB4 BN1 00781 M01S00772.lo72 +++| EQ PRS8 00782 M01S00773.lo72 +++| 00783 M01S00774.lo72 +++| PRS3 SX2 X1-1RM 00784 M01S00775.lo72 +++| NZ X2,PRS4 IF TYPE NOT = M 00785 M01S00776.lo72 +++| SB4 MN1 00786 M01S00777.lo72 +++| EQ PRS8 00787 M01S00778.lo72 +++| 00788 M01S00779.lo72 +++| PRS4 SX2 X1-1RC 00789 M01S00780.lo72 +++| NZ X2,PRS5 IF TYPE NOT = C 00790 M01S00781.lo72 +++| SB4 CN1 00791 M01S00782.lo72 +++| EQ PRS8 00792 M01S00783.lo72 +++| 00793 M01S00784.lo72 +++| PRS5 SA1 TTO 00794 M01S00785.lo72 +++| ZR X1,PRS12 IF TERMINAL AVAILABLE 00795 M01S00786.lo72 +++| PRS6 MESSAGE (=C*UNRECOGNIZABLE TYPE SPECIFIED.*) 00796 M01S00787.lo72 +++| PRS7 ABORT R 00797 M01S00788.lo72 +++| PRS8 SA1 B3+N1 00798 M01S00789.lo72 +++| SB5 X1-1R* 00799 M01S00790.lo72 +++| ZR B5,PRS10 IF *N* VALUE WAS NOT GIVEN 00800 M01S00791.lo72 +++| 00801 M01S00792.lo72 +++|* INSERT *IX* AND *OX* DEFAULTS IF NOT SPECIFIED WHEN 00802 M01S00793.lo72 +++|* *NX* IS CHANGED. 00803 M01S00794.lo72 +++| 00804 M01S00795.lo72 +++| SA3 B4+B3 00805 M01S00796.lo72 +++| SA3 A3+NPM GET *IX* DEFAULT VALUE 00806 M01S00797.lo72 +++| SA2 A1+NPM 00807 M01S00798.lo72 +++| NZ X2,PRS8.3 IF *IX* SPECIFIED 00808 M01S00799.lo72 +++| NZ X3,PRS8.2 IF *IX* DEFAULT DEFINED 00809 M01S00800.lo72 +++| PRS8.1 MESSAGE (=C* IX OR OX NOT DEFINED.*) 00810 M01S00801.lo72 +++| EQ PRS7 ABORT 00811 M01S00802.lo72 +++| 00812 M01S00803.lo72 +++| PRS8.2 BX6 X3 SET *IX* DEFAULT VALUE 00813 M01S00804.lo72 +++| SA6 A2 00814 M01S00805.lo72 +++| PRS8.3 SA2 A2+NPM GET *OX* VALUE 00815 M01S00806.lo72 +++| NZ X2,PRS9 IF *OX* SPECIFIED 00816 M01S00807.lo72 +++| SA3 A3+NPM 00817 M01S00808.lo72 +++| ZR X3,PRS8.1 IF NO *OX* DEFAULT 00818 M01S00809.lo72 +++| BX6 X3 SET *OX* DEFAULT VALUE 00819 M01S00810.lo72 +++| SA6 A2 00820 M01S00811.lo72 +++| PRS9 SB3 B3+B1 00821 M01S00812.lo72 +++| SB2 B2-B1 00822 M01S00813.lo72 +++| NZ B2,PRS8 00823 M01S00814.lo72 +++| EQ PRS12 00824 M01S00815.lo72 +++| 00825 M01S00816.lo72 +++|** INSERT DEFAULT VALUES FOR EACH TYPE IF NEEDED. 00826 M01S00817.lo72 +++|* 00827 M01S00818.lo72 +++| PRS10 SX4 A1 00828 M01S00819.lo72 +++| SB5 3 00829 M01S00820.lo72 +++| SB6 B4 00830 M01S00821.lo72 +++| PRS11 SA2 B3+B6 GET PROPER DEFAULT VALUE 00831 M01S00822.lo72 +++| BX6 X2 00832 M01S00823.lo72 +++| SA6 X4 STORE THE VALUE 00833 M01S00824.lo72 +++| SX4 X4+NPM INCREMENT ADDRESS 00834 M01S00825.lo72 +++| SB6 B6+NPM 00835 M01S00826.lo72 +++| SB5 B5-B1 DECREMENT COUNTER 00836 M01S00827.lo72 +++| NZ B5,PRS11 00837 M01S00828.lo72 +++| EQ PRS9 00838 M01S00829.lo72 +++| 00839 M01S00830.lo72 +++| PRS12 SA1 TTO 00840 M01S00831.lo72 +++| NZ X1,PRS13 IF TERMINAL NOT AVAILABLE 00841 M01S00832.lo72 +++| SA1 I GET FILE NAME 00842 M01S00833.lo72 +++| RJ SFP SET FET PARAMETERS 00843 M01S00834.lo72 +++| SA2 =5LINPUT 00844 M01S00835.lo72 +++| MX0 42 00845 M01S00836.lo72 +++| BX6 X0*X1 00846 M01S00837.lo72 +++| SA6 CKID SAVE ORIGINAL FILE NAME 00847 M01S00838.lo72 +++| BX3 -X0*X1 00848 M01S00839.lo72 +++| BX6 X2+X3 00849 M01S00840.lo72 +++| SA6 A1 INSERT *INPUT* INTO FET 00850 M01S00841.lo72 +++| SA1 O GET FILE NAME 00851 M01S00842.lo72 +++| BX6 X0*X1 00852 M01S00843.lo72 +++| SA6 CKIG SAVE ORIGINAL FILE NAME 00853 M01S00844.lo72 +++| BX6 -X0*X1 00854 M01S00845.lo72 +++| SA6 A1 ZREO OUT FILE NAME 00855 M01S00846.lo72 +++| SA1 OUT 00856 M01S00847.lo72 +++| RJ SFP SET FET PARAMETERS 00857 M01S00848.lo72 +++| SA2 =6LOUTPUT 00858 M01S00849.lo72 +++| SX6 A1 00859 M01S00850.lo72 +++| BX6 X2+X6 ADD FET ADDRESS TO FILE NAME 00860 M01S00851.lo72 +++| SA6 B1+B1 INSERT OUTPUT FET ADDRESS AT RA+2 00861 M01S00852.lo72 +++| BX6 X1+X2 00862 M01S00853.lo72 +++| SA6 A1 SET FILE NAME OUTPUT FOR TTY 00863 M01S00854.lo72 +++| EQ CKI 00864 M01S00855.lo72 +++| PRS13 SA1 I 00865 M01S00856.lo72 +++| MX0 42 00866 M01S00857.lo72 +++| BX2 X0*X1 MASK OFF FILE NAME 00867 M01S00858.lo72 +++| ZR X2,PRS14 IF NO FILE NAME 00868 M01S00859.lo72 +++| 00869 M01S00860.lo72 +++|** READ THE INPUT FILE. 00870 M01S00861.lo72 +++|* 00871 M01S00862.lo72 +++| RIF RJ SFP SET FET PARAMETERS 00872 M01S00863.lo72 +++| SX0 B1+B1 FIRST ADDRESS 00873 M01S00864.lo72 +++| RIF1 READ I,R 00874 M01S00865.lo72 +++| READH I,XBUF,XBUFL READ INPUT FILE 00875 M01S00866.lo72 +++| NG X1,RIF3 IF -EOF- 00876 M01S00867.lo72 +++| NZ X1,RIF1 IF -EOR- 00877 M01S00868.lo72 +++| SB7 X0 00878 M01S00869.lo72 +++| SA5 XBUF GET FIRST WORD 00879 M01S00870.lo72 +++| RJ UPC UNPACK INPUT FILE 00880 M01S00871.lo72 +++| SX0 B6+B7 00881 M01S00872.lo72 +++| ZR X6,RIF1 IF NO UNPACK ERROR 00882 M01S00873.lo72 +++| MESSAGE (=C*INPUT FILE ERROR.*) 00883 M01S00874.lo72 +++| EQ PRS7 00884 M01S00875.lo72 +++| 00885 M01S00876.lo72 +++|** PROCESS ARGUMENTS FROM INPUT FILE 00886 M01S00877.lo72 +++|* 00887 M01S00878.lo72 +++| RIF3 SB4 X0-2 SET ARGUMENT COUNT 00888 M01S00879.lo72 +++| SA4 ARGR GET FIRST ARGUMENT 00889 M01S00880.lo72 +++| SB5 COPT GET ARGUMENT TABLE ADDR. 00890 M01S00881.lo72 +++| RJ ARG PROCESS ARGUMENTS 00891 M01S00882.lo72 +++| NZ X1,PRSB IF ERROR FOUND 00892 M01S00883.lo72 +++| 00893 M01S00884.lo72 +++|** CHECK FOR OUTPUT FILE NAME " SOURCE FILE NAME 00894 M01S00885.lo72 +++|* 00895 M01S00886.lo72 +++| PRS14 SA1 S GET *SCR* FILE NAME 00896 M01S00887.lo72 +++| SA2 O GET *OUTPUT* FILE NAME 00897 M01S00888.lo72 +++| MX0 42D 00898 M01S00889.lo72 +++| BX1 X0*X1 00899 M01S00890.lo72 +++| ZR X1,PRSC IF SOURCE FILE NAME NOT GIVEN 00900 M01S00891.lo72 +++| BX2 X0*X2 00901 M01S00892.lo72 +++| ZR X2,PRSC IF OUTPUT FILE NAME NOT GIVEN 00902 M01S00893.lo72 +++| BX3 X1-X2 00903 M01S00894.lo72 +++| NZ X3,PRS15 00904 M01S00895.lo72 +++| MESSAGE (=C*FILE NAME CONFLICT.*) 00905 M01S00896.lo72 +++| EQ PRS7 00906 M01S00897.lo72 +++| 00907 M01S00898.lo72 +++|** SET NX VALUES AS BINARY NUMBERS 00908 M01S00899.lo72 +++|* 00909 M01S00900.lo72 +++| PRS15 SB7 B0 00910 M01S00901.lo72 +++| SA5 H 00911 M01S00902.lo72 +++| RJ DXB 00912 M01S00903.lo72 +++| ZR X7,PRSD IF OUTPUT LINE LENGTH NOT GIVEN 00913 M01S00904.lo72 +++| SA7 A5 00914 M01S00905.lo72 +++| SX7 X7-XBUFL-1 00915 M01S00906.lo72 +++| PL X7,PRSD IF OUTPUT LENGTH .GT. XBUFL 00916 M01S00907.lo72 +++| SB6 NPM-1 SET COUNTER + ADDRESS INCREMENT 00917 M01S00908.lo72 +++| PRS16 SA5 B6+N1 GET NX VALUE 00918 M01S00909.lo72 +++| ZR X5,PRS17 00919 M01S00910.lo72 +++| RJ DXB 00920 M01S00911.lo72 +++| SA7 A5 RE-STORE AS BINARY NUMBER 00921 M01S00912.lo72 +++| 00922 M01S00913.lo72 +++|** SET IX VALUES AS XBUF ADDRESSES 00923 M01S00914.lo72 +++|* 00924 M01S00915.lo72 +++| SA5 A5+NPM GET IX VALUE 00925 M01S00916.lo72 +++| RJ DXB 00926 M01S00917.lo72 +++| SX7 X7-1 00927 M01S00918.lo72 +++| SX2 XBUFL GET INPUT LINE LENGTH 00928 M01S00919.lo72 +++| SA3 B6+N1 ADD *NX* + *IX* VALUES 00929 M01S00920.lo72 +++| IX6 X7+X3 00930 M01S00921.lo72 +++| IX6 X2-X6 00931 M01S00922.lo72 +++| NG X6,PRSE IF *IX* + *NX* .GT. INPUT BUFFER LENGTH 00932 M01S00923.lo72 +++| SX7 X7+XBUF 00933 M01S00924.lo72 +++| SA7 A5 RE-STORE AS AN ADDRESS 00934 M01S00925.lo72 +++| 00935 M01S00926.lo72 +++|** SET OX VALUES AS YBUF ADDRESSES 00936 M01S00927.lo72 +++|* 00937 M01S00928.lo72 +++| SA5 A5+NPM GET OX VALUE 00938 M01S00929.lo72 +++| RJ DXB 00939 M01S00930.lo72 +++| SX7 X7-1 00940 M01S00931.lo72 +++| SA2 H GET OUTPUT LINE LENGTH 00941 M01S00932.lo72 +++| SA3 B6+N1 ADD *OX* + *NX* VALUES 00942 M01S00933.lo72 +++| IX6 X7+X3 00943 M01S00934.lo72 +++| IX6 X2-X6 00944 M01S00935.lo72 +++| NG X6,PRSE IF *OX* + *NX* .GT. OUTPUT LENGTH 00945 M01S00936.lo72 +++| SX7 X7+YBUF 00946 M01S00937.lo72 +++| SA7 A5 RE-STORE AS AN ADDRESS 00947 M01S00938.lo72 +++| PRS17 SB6 B6-B1 00948 M01S00939.lo72 +++| PL B6,PRS16 IF NOT *NPM* TIMES THRU 00949 M01S00940.lo72 +++| 00950 M01S00941.lo72 +++|** CONVERT T TO AN ADDRESS FOR *PEJ* ROUTINE 00951 M01S00942.lo72 +++|* 00952 M01S00943.lo72 +++| PRS19 SB2 B0 00953 M01S00944.lo72 +++| MX0 42 SET ADDRESS MASK 00954 M01S00945.lo72 +++| SA2 T GET TYPE 00955 M01S00946.lo72 +++| MX1 6 SET CHARACTER MASK 00956 M01S00947.lo72 +++| PRS20 SA3 B2+PRSA GET FIRST CHARACTER AND ADDRESS 00957 M01S00948.lo72 +++| ZR X3,PRS6 IF END OF TABLE 00958 M01S00949.lo72 +++| BX4 X1*X3 GET THE CHARACTER 00959 M01S00950.lo72 +++| IX4 X2-X4 00960 M01S00951.lo72 +++| ZR X4,PRS21 IF A MATCH 00961 M01S00952.lo72 +++| SB2 B2+B1 00962 M01S00953.lo72 +++| EQ PRS20 00963 M01S00954.lo72 +++| PRS21 BX6 -X0*X3 00964 M01S00955.lo72 +++| SA6 T SET ADDRESS INTO *TYPE* LOCATION 00965 M01S00956.lo72 +++| 00966 M01S00957.lo72 +++|** RESET FET PARAMETERS 00967 M01S00958.lo72 +++|* 00968 M01S00959.lo72 +++| SA1 O 00969 M01S00960.lo72 +++| RJ SFP SET FET PARAMETERS 00970 M01S00961.lo72 +++| SA1 NR 00971 M01S00962.lo72 +++| NZ X1,PRS11.2 IF NO REWIND 00972 M01S00963.lo72 +++| REWIND O,R 00973 M01S00964.lo72 +++| PRS11.2 SA1 S 00974 M01S00965.lo72 +++| RJ SFP SET FET PARAMETERS 00975 M01S00966.lo72 +++| REWIND S,R 00976 M01S00967.lo72 +++| 00977 M01S00968.lo72 +++|** ADD LINE PRINTER FLAG TO FIRST YBUF ADDRESS 00978 M01S00969.lo72 +++|* 00979 M01S00970.lo72 +++| SB3 B0 00980 M01S00971.lo72 +++| SX2 YBUF 00981 M01S00972.lo72 +++| PRS22 SA1 B3+O1 GET OUTPUT ADDRESSES 00982 M01S00973.lo72 +++| SA0 BAT2 SET DEFAULT ADDRESS 00983 M01S00974.lo72 +++| IX3 X1-X2 00984 M01S00975.lo72 +++| ZR X3,PRS23 IF ADDRESSES THE SAME 00985 M01S00976.lo72 +++| SB3 B3+B1 00986 M01S00977.lo72 +++| SB5 B3-NPM 00987 M01S00978.lo72 +++| ZR B5,LO721 IF NPM TIMES 00988 M01S00979.lo72 +++| EQ PRS22 00989 M01S00980.lo72 +++| 00990 M01S00981.lo72 +++| PRS23 SA2 LP 00991 M01S00982.lo72 +++| IX6 X1+X2 ADD LINE PRINTER FLAG TO FIRST ADDR 00992 M01S00983.lo72 +++| SA6 A1 00993 M01S00984.lo72 +++| EQ LO721 RETURN 00994 M01S00985.lo72 +++| 00995 M01S00986.lo72 +++| 00996 M01S00987.lo72 +++| PRSA VFD 6/1LB,54D/PEJ5 00997 M01S00988.lo72 +++| VFD 6/1LC,54D/PEJ1 00998 M01S00989.lo72 +++| VFD 6/1LM,54D/PEJ2 00999 M01S00990.lo72 +++| CON 0 01000 M01S00991.lo72 +++| 01001 M01S00992.lo72 +++| 01002 M01S00993.lo72 +++| PRSB MESSAGE (=C* ARGUMENT ERROR.*) 01003 M01S00994.lo72 +++| EQ PRS7 01004 M01S00995.lo72 +++|
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01005 M02S00996.v23l617 ---| PRSC MESSAGE (=C* INVALID PARAMETER.*) 01006 M01S00009.v23l617 +++| PRSC MESSAGE (=C* INCORRECT PARAMETER.*) 01007 M01S00997.lo72 +++| EQ PRS7 01008 M01S00998.lo72 +++|
| Line S00999 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01009 M02S00999.v23l617 ---| PRSD MESSAGE (=C* H VALUE INVALID.*) 01010 M01S00010.v23l617 +++| PRSD MESSAGE (=C* H VALUE INCORRECT.*) 01011 M01S01000.lo72 +++| EQ PRS7 ABORT 01012 M01S01001.lo72 +++|
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01013 M02S01002.v23l617 ---| PRSE MESSAGE (=C* INVALID LINE LENGTH.*) 01014 M01S00011.v23l617 +++| PRSE MESSAGE (=C* INCORRECT LINE LENGTH.*) 01015 M01S01003.lo72 +++| EQ PRS7 ABORT 01016 M01S01004.lo72 +++| 01017 M01S01005.lo72 +++| COPT BSS 0 01018 M01S01006.lo72 +++| S ARG =0LSCR,S 01019 M01S01007.lo72 +++| I ARG =0LINPUT,I 01020 M01S01008.lo72 +++| L ARG =0LOUTPUT,O 01021 M01S01009.lo72 +++| T ARG T,T 01022 M01S01010.lo72 +++| H ARG H,H 01023 M01S01011.lo72 +++| N1 ARG BN1,N1 01024 M01S01012.lo72 +++| I1 ARG BI1,I1 01025 M01S01013.lo72 +++| O1 ARG BO1,O1 01026 M01S01014.lo72 +++| N2 ARG BN2,N2 01027 M01S01015.lo72 +++| I2 ARG BI2,I2 01028 M01S01016.lo72 +++| O2 ARG BO2,O2 01029 M01S01017.lo72 +++| N3 ARG BN3,N3 01030 M01S01018.lo72 +++| I3 ARG BI3,I3 01031 M01S01019.lo72 +++| O3 ARG BO3,O3 01032 M01S01020.lo72 +++| N4 ARG BN4,N4 01033 M01S01021.lo72 +++| I4 ARG BI4,I4 01034 M01S01022.lo72 +++| O4 ARG BO4,O4 01035 M01S01023.lo72 +++| N5 ARG BN5,N5 01036 M01S01024.lo72 +++| I5 ARG BI5,I5 01037 M01S01025.lo72 +++| O5 ARG BO5,O5 01038 M01S01026.lo72 +++| N6 ARG BN6,N6 01039 M01S01027.lo72 +++| I6 ARG BI6,I6 01040 M01S01028.lo72 +++| O6 ARG BO6,O6 01041 M01S01029.lo72 +++| LP ARG -DFLP,LP 01042 M01S01030.lo72 +++| NR ARG -*,NR 01043 M01S01031.lo72 +++| IT ARG -*,TTO 01044 M01S01032.lo72 +++| ARG 01045 M01S01033.lo72 +++| 01046 M01S01034.lo72 +++| DFLP CON 1 DEFAULT PRINTER OPTION 01047 M01S01035.lo72 +++| TTO CON 0 TERMINAL AVAILABLE OPTION 01048 M01S01036.lo72 +++| TITLE TERMINAL I/O ROUTINE. 01049 M01S01037.lo72 +++| 01050 M01S01038.lo72 +++|** CKI - CHECK INPUT FROM TTY. 01051 M01S01039.lo72 +++|* 01052 M01S01040.lo72 +++|* ENTRY - ORIGIN CODE (JOPR) CHECKED AND FOUND TO BE TELEX. 01053 M01S01041.lo72 +++|* 01054 M01S01042.lo72 +++|* EXIT - ALL RE-FORMAT PARAMETERS CHECKED BY THE TERMINAL USER. 01055 M01S01043.lo72 +++|* 01056 M01S01044.lo72 +++|* USES X - ALL. 01057 M01S01045.lo72 +++|* B - ALL. 01058 M01S01046.lo72 +++|* A - ALL. 01059 M01S01047.lo72 +++| 01060 M01S01048.lo72 +++| 01061 M01S01049.lo72 +++| CKI WRITEC OUT,CKIA 01062 M01S01050.lo72 +++| 01063 M01S01051.lo72 +++| WRITEC OUT,CKIA1 01064 M01S01052.lo72 +++| CKI0 READ I 01065 M01S01053.lo72 +++| READC I,XBUF,8D 01066 M01S01054.lo72 +++| 01067 M01S01055.lo72 +++|** CHECK IF ANY ARGUMENT CHANGES ARE NEEDED 01068 M01S01056.lo72 +++|* 01069 M01S01057.lo72 +++| NZ X1,CKI26 IF *CR* 01070 M01S01058.lo72 +++| SA1 XBUF GET THE INPUT WORD 01071 M01S00001.lo721 +++| RJ SFN 01072 M01S01059.lo72 +++| SA2 CKIB
| Line S01060 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01073 M02S01060.lo721 ---| BX3 X2-X1 01074 M01S00002.lo721 +++| BX3 X6-X2 01075 M01S01061.lo72 +++| ZR X3,CKI1 IF *YES* 01076 M01S01062.lo72 +++| SA2 A2+B1 01077 M01S01063.lo72 +++| BX3 X2-X1 01078 M01S01064.lo72 +++| ZR X3,CKI26 IF *NO* 01079 M01S01065.lo72 +++| SX6 CKI0 01080 M01S01066.lo72 +++| SA6 SOBC SET ERROR ADDRESS 01081 M01S01067.lo72 +++| EQ SOB4 01082 M01S01068.lo72 +++| 01083 M01S01069.lo72 +++|** CHANGE INPUT FILE NAME(I) 01084 M01S01070.lo72 +++|* 01085 M01S01071.lo72 +++| CKI1 MX0 42 01086 M01S01072.lo72 +++| SA1 CKID GET INPUT FILE NAME 01087 M01S01073.lo72 +++| RJ SFN SPACE FILL NAME 01088 M01S01074.lo72 +++| BX6 X0*X6 01089 M01S01075.lo72 +++| SA5 CKIC2 GET MESSAGE WORD 01090 M01S01076.lo72 +++| BX6 X5+X6 01091 M01S01077.lo72 +++| SA6 A5 STORE INTO MESSAGE 01092 M01S01078.lo72 +++| WRITEC OUT,CKIC 01093 M01S01079.lo72 +++| WRITEC OUT,CKIC1 01094 M01S01080.lo72 +++| CKI2 READ I 01095 M01S01081.lo72 +++| READC I,XBUF,8D 01096 M01S01082.lo72 +++| NZ X1,CKI3 IF *CR* 01097 M01S01083.lo72 +++| SB3 CKI2 SET ERROR ADDRESS 01098 M01S01084.lo72 +++| SA1 XBUF GET THE INPUT WORD 01099 M01S01085.lo72 +++| RJ SOB STRIP OFF BLANKS 01100 M01S01086.lo72 +++| SA6 CKID TEMPORARILY STORE INPUT FILE NAME 01101 M01S01087.lo72 +++| 01102 M01S01088.lo72 +++|** CHANGE SOURCE FILE NAME(S) 01103 M01S01089.lo72 +++|* 01104 M01S01090.lo72 +++| CKI3 SA5 S GET *SCR* FILE NAME 01105 M01S01091.lo72 +++| BX1 X0*X5 01106 M01S01092.lo72 +++| RJ SFN 01107 M01S01093.lo72 +++| BX6 X0*X6 01108 M01S01094.lo72 +++| SA5 CKIE1 GET MESSAGE WORD 01109 M01S01095.lo72 +++| BX6 X5+X6 01110 M01S01096.lo72 +++| SA6 A5 STORE INTO MESSAGE 01111 M01S01097.lo72 +++| WRITEC OUT,CKIE 01112 M01S01098.lo72 +++| CKI4 READ I 01113 M01S01099.lo72 +++| READC I,XBUF,8D 01114 M01S01100.lo72 +++| NZ X1,CKI5 IF *CR* 01115 M01S01101.lo72 +++| SB3 CKI4 SET ERROR ADDRESS 01116 M01S01102.lo72 +++| SA1 XBUF GET THE INPUT WORD 01117 M01S01103.lo72 +++| RJ SOB STRIP OFF BLANKS 01118 M01S01104.lo72 +++| BX1 -X0*X5 01119 M01S01105.lo72 +++| BX6 X6+X1 01120 M01S01106.lo72 +++| SA6 S STORE *SCR* FILE NAME 01121 M01S01107.lo72 +++| 01122 M01S01108.lo72 +++|** CHANGE OUTPUT FILE NAME(O) 01123 M01S01109.lo72 +++|* 01124 M01S01110.lo72 +++| CKI5 SA1 CKIG GET OUTPUT FILE NAME 01125 M01S01111.lo72 +++| RJ SFN 01126 M01S01112.lo72 +++| BX6 X0*X6 01127 M01S01113.lo72 +++| SA5 CKIF1 GET MESSAGE WORD 01128 M01S01114.lo72 +++| BX6 X5+X6 01129 M01S01115.lo72 +++| SA6 A5 STORE INTO MESSAGE 01130 M01S01116.lo72 +++| WRITEC OUT,CKIF 01131 M01S01117.lo72 +++| CKI6 READ I 01132 M01S01118.lo72 +++| READC I,XBUF,8D 01133 M01S01119.lo72 +++| NZ X1,CKI7 IF *CR* 01134 M01S01120.lo72 +++| SB3 CKI6 SET ERROR ADDRESS 01135 M01S01121.lo72 +++| SA1 XBUF GET THE INPUT WORD 01136 M01S01122.lo72 +++| RJ SOB STRIP OFF BLANKS 01137 M01S01123.lo72 +++| BX1 -X0*X5 01138 M01S01124.lo72 +++| BX6 X6+X1 01139 M01S01125.lo72 +++| SA6 CKIG TEMPORARILY STORE OUTPUT FILE NAME 01140 M01S01126.lo72 +++| 01141 M01S01127.lo72 +++|** CHANGE TYPE OF SOURCE FILE(T) 01142 M01S01128.lo72 +++|* 01143 M01S01129.lo72 +++| CKI7 SA1 T 01144 M01S01130.lo72 +++| NZ X1,CKI8 IF TYPE NOT EMPTY 01145 M01S01131.lo72 +++| SA2 CKIJ 01146 M01S01132.lo72 +++| EQ CKI12 01147 M01S01133.lo72 +++| 01148 M01S01134.lo72 +++| CKI8 LX1 6 RIGHT JUSTIFY 01149 M01S01135.lo72 +++| SX2 X1-1RB 01150 M01S01136.lo72 +++| NZ X2,CKI9 IF TYPE NOT BATCH 01151 M01S01137.lo72 +++| SA2 CKIK 01152 M01S01138.lo72 +++| EQ CKI12 01153 M01S01139.lo72 +++| 01154 M01S01140.lo72 +++| CKI9 SX2 X1-1RM 01155 M01S01141.lo72 +++| NZ X2,CKI10 IF TYPE NOT MODIFY 01156 M01S01142.lo72 +++| SA2 CKIL 01157 M01S01143.lo72 +++| EQ CKI12 01158 M01S01144.lo72 +++| 01159 M01S01145.lo72 +++| CKI10 SX2 X1-1RC 01160 M01S01146.lo72 +++| NZ X2,CKI12.1 IF TYPE NOT COMPASS 01161 M01S01147.lo72 +++| SA2 CKIM 01162 M01S01148.lo72 +++| CKI12 BX6 X2 01163 M01S01149.lo72 +++| SA6 CKIH1 STORE INTO MESSAGE 01164 M01S01150.lo72 +++| BX7 X7-X7 SET END-OF-LINE 01165 M01S01151.lo72 +++| SA7 A6+B1 01166 M01S01152.lo72 +++| CKI12.1 WRITEC OUT,CKIH 01167 M01S01153.lo72 +++| CKI13 READ I 01168 M01S01154.lo72 +++| READC I,XBUF,8D 01169 M01S01155.lo72 +++| NZ X1,CKI15 IF *CR* 01170 M01S01156.lo72 +++| MX0 6 01171 M01S01157.lo72 +++| SA1 XBUF GET THE INPUT WORD 01172 M01S01158.lo72 +++| BX6 X0*X1 PICK OFF FIRST CHARACTER 01173 M01S01159.lo72 +++| BX1 X6 01174 M01S01160.lo72 +++| LX1 6 RIGHT JUSTIFY 01175 M01S01161.lo72 +++| SX2 X1-1RB 01176 M01S01162.lo72 +++| ZR X2,CKI14 IF TYPE = B 01177 M01S01163.lo72 +++| SX2 X1-1RM 01178 M01S01164.lo72 +++| ZR X2,CKI14 IF TYPE = M 01179 M01S01165.lo72 +++| SX2 X1-1RC 01180 M01S01166.lo72 +++| ZR X2,CKI14 IF TYPE = C 01181 M01S01167.lo72 +++| SX6 CKI13 01182 M01S01168.lo72 +++| SA6 SOBC SET ERROR ADDRESS 01183 M01S01169.lo72 +++| EQ SOB4 01184 M01S01170.lo72 +++| CKI14 SA6 T STORE NEW TYPE 01185 M01S01171.lo72 +++| 01186 M01S01172.lo72 +++|** CHANGE LENGTH OF OUTPUT LINE(H) 01187 M01S01173.lo72 +++|* 01188 M01S01174.lo72 +++| CKI15 SA1 H GET NO. OF CHARACTERS/LINE 01189 M01S01175.lo72 +++| NZ X1,CKI16 01190 M01S01176.lo72 +++| SA1 =1L0 01191 M01S01177.lo72 +++| CKI16 MX0 6 01192 M01S01178.lo72 +++| SA3 =1L 01193 M01S01179.lo72 +++| SB2 B1+B1 01194 M01S01180.lo72 +++| CKI17 LX1 6 01195 M01S01181.lo72 +++| BX2 X0*X1 01196 M01S01182.lo72 +++| NZ X2,CKI18 IF THERE IS A CHAR. 01197 M01S01183.lo72 +++| BX1 X1+X3 ADD A SPACE 01198 M01S01184.lo72 +++| CKI18 SB2 B2-B1 01199 M01S01185.lo72 +++| NZ B2,CKI17 01200 M01S01186.lo72 +++| LX1 48 SHIFT INTO BYTE 0 01201 M01S01187.lo72 +++| SA2 CKIN1 01202 M01S01188.lo72 +++| MX0 18 01203 M01S01189.lo72 +++| BX2 -X0*X2 ALLOW RESET OF *H* CODED VALUE 01204 M01S01190.lo72 +++| BX6 X1+X2 01205 M01S01191.lo72 +++| SA6 A2 STORE INTO MESSAGE 01206 M01S01192.lo72 +++| WRITEC OUT,CKIN 01207 M01S01193.lo72 +++| CKI19 READ I 01208 M01S01194.lo72 +++| READC I,XBUF,8D 01209 M01S01195.lo72 +++| NZ X1,CKI20 IF *CR* 01210 M01S01196.lo72 +++| SB3 CKI19 SET ERROR ADDRESS 01211 M01S01197.lo72 +++| SA1 XBUF GET THE INPUT WORD 01212 M01S01198.lo72 +++| RJ SOB STRIP OFF BLANKS 01213 M01S01199.lo72 +++| SA6 H STORE NEW NO. OF CHARS. 01214 M01S01200.lo72 +++| BX5 X6 01215 M01S01201.lo72 +++| RJ DXB CONVERT *H* TO DECIMAL VALUE 01216 M01S01202.lo72 +++| ZR X7,CKI19.1 IF ZERO LENGTH SPECIFIED 01217 M01S01203.lo72 +++| SX7 X7-XBUFL-1 01218 M01S01204.lo72 +++| NG X7,CKI20 IF OUTPUT LENGTH .LT. XBUFL 01219 M01S01205.lo72 +++| CKI19.1 WRITEC OUT,CKIU 01220 M01S01206.lo72 +++| EQ CKI19 ALLOW RE-ENTRY OF *H* VALUE 01221 M01S01207.lo72 +++| 01222 M01S01208.lo72 +++|** CHANGE NX, IX, AND OX VALUES 01223 M01S01209.lo72 +++| 01224 M01S01210.lo72 +++| CKI20 WRITEC OUT,CKIO 01225 M01S01211.lo72 +++| WRITEC OUT,CKIO1 01226 M01S01212.lo72 +++| WRITEC OUT,CKIO2 01227 M01S01213.lo72 +++| SB3 CKIP 01228 M01S01214.lo72 +++| SA1 B3-B1 GET COPY OF CKIP 01229 M01S01215.lo72 +++| BX6 X1 01230 M01S01216.lo72 +++| SA6 B3 RESTORE CKIP 01231 M01S01217.lo72 +++| MX5 6 01232 M01S01218.lo72 +++| LX5 30 01233 M01S01219.lo72 +++| BX0 X0-X0 01234 M01S01220.lo72 +++| CKI21 SB6 CKIQ 01235 M01S01221.lo72 +++| MX2 54 01236 M01S01222.lo72 +++| SX7 B1 01237 M01S01223.lo72 +++| SA3 CKIP 01238 M01S01224.lo72 +++| LX3 12 01239 M01S01225.lo72 +++| IX6 X3+X7 INCREMENT X 01240 M01S01226.lo72 +++| LX6 48 01241 M01S01227.lo72 +++| SA6 A3 01242 M01S01228.lo72 +++| SA1 X0+N1 GET NX VALUES 01243 M01S01229.lo72 +++| SB2 3 01244 M01S01230.lo72 +++| SX4 55B 01245 M01S01231.lo72 +++| CKI22 NZ X1,CKI23 IF NX IS SET 01246 M01S01232.lo72 +++| SX1 1R0 01247 M01S01233.lo72 +++| CKI23 LX1 6 01248 M01S01234.lo72 +++| BX3 -X2*X1 01249 M01S01235.lo72 +++| NZ X3,CKI23 IF THERE IS A CHAR. 01250 M01S01236.lo72 +++| IX1 X1+X4 ADD IN A BLANK 01251 M01S01237.lo72 +++| BX3 X5*X1 01252 M01S01238.lo72 +++| ZR X3,CKI23 IF NOT TO BIT 30 01253 M01S01239.lo72 +++| BX6 X1+X6 01254 M01S01240.lo72 +++| SA6 B6 STORE INTO MESSAGE 01255 M01S01241.lo72 +++| SB6 B6+B1 INCREMENT CKIQ ADDRESS 01256 M01S01242.lo72 +++| SB2 B2-B1 DECREMENT COUNTER 01257 M01S01243.lo72 +++| SA1 A1+NPM GET NEXT VALUES (IX + OX) 01258 M01S01244.lo72 +++| SA3 B1+CKIP GET SECOND WORD 01259 M01S01245.lo72 +++| BX6 X3 01260 M01S01246.lo72 +++| NZ B2,CKI22 01261 M01S01247.lo72 +++| SX0 X0+B1 01262 M01S01248.lo72 +++| WRITEC OUT,CKIQ 01263 M01S01249.lo72 +++| SX4 X0-NPM 01264 M01S01250.lo72 +++| NZ X4,CKI21 IF NOT NPM TIMES 01265 M01S01251.lo72 +++| WRITEC OUT,CKIR 01266 M01S01252.lo72 +++| WRITEC OUT,CKIR1 01267 M01S01253.lo72 +++| WRITEC OUT,CKIR2 01268 M01S01254.lo72 +++| WRITEC OUT,CKIR3 01269 M01S01255.lo72 +++| WRITEC OUT,CKIR4 01270 M01S01256.lo72 +++| WRITEC OUT,CKIR5 01271 M01S01257.lo72 +++| MX0 18 01272 M01S01258.lo72 +++| SA0 B0 INITIALIZE ARGUMENT COUNTER 01273 M01S01259.lo72 +++| SA5 YBUF SET ADDRESS FOR NEW VALUES 01274 M01S01260.lo72 +++| 01275 M01S01261.lo72 +++|** READ NEW NX, IX, AND OX VALUES 01276 M01S01262.lo72 +++| 01277 M01S01263.lo72 +++| CKI24 READ I 01278 M01S01264.lo72 +++| READC I,XBUF,8D 01279 M01S01265.lo72 +++| NZ X1,CKI25 IF *CR* 01280 M01S01266.lo72 +++| SB3 CKI24 SET ERROR ADDRESS 01281 M01S01267.lo72 +++| SA1 XBUF GET THE INPUT WORD 01282 M01S01268.lo72 +++| RJ SOB STRIP OFF BLANKS 01283 M01S01269.lo72 +++| SX5 54B SET EQUAL SIGN 01284 M01S01270.lo72 +++| BX7 -X0*X6 01285 M01S01271.lo72 +++| MX1 12 01286 M01S01272.lo72 +++| BX6 X1*X6 01287 M01S01273.lo72 +++| IX6 X6+X5 COMPLETE FIRST WORD 01288 M01S01274.lo72 +++| LX7 18 LEFT JUSTIFY THE SECOND WORD 01289 M01S01275.lo72 +++| SA6 A5 SET FIRST HALF OF ARGUMENT 01290 M01S01276.lo72 +++| SA0 A0+B1 INCREMENT ARGUMENT COUNTER 01291 M01S01277.lo72 +++| SA5 A5+B1 INCREMENT ADDRESS 01292 M01S01278.lo72 +++| SA7 A5 SET SECOND HALF OF ARGUMENT 01293 M01S01279.lo72 +++| SA0 A0+B1 INCREMENT ARGUMENT COUNTER 01294 M01S01280.lo72 +++| SA5 A5+B1 INCREMENT ADDRESS 01295 M01S01281.lo72 +++| EQ CKI24 01296 M01S01282.lo72 +++| CKI25 SB4 A0 SET ARGUMENT COUNT 01297 M01S01283.lo72 +++| ZR B4,CKI26 IF NO ARGUMENTS 01298 M01S01284.lo72 +++| SB5 COPT SET ARGUMENT TABLE ADDRESS 01299 M01S01285.lo72 +++| SA4 YBUF GET FIRST ARGUMENT 01300 M01S01286.lo72 +++| RJ ARG PROCESS ARGUMENTS 01301 M01S01287.lo72 +++| ZR X1,CKI26 IF NO ARGUMENT ERRORS 01302 M01S01288.lo72 +++| WRITEC OUT,CKIT 01303 M01S01289.lo72 +++| MX0 18 01304 M01S01290.lo72 +++| SA0 B0 INITIALIZE ARGUMENT COUNTER 01305 M01S01291.lo72 +++| SA5 YBUF SET ADDRESS FOR NEW VALUES 01306 M01S01292.lo72 +++| EQ CKI24 01307 M01S01293.lo72 +++| 01308 M01S01294.lo72 +++| CKI26 SB6 NPM-1 SET COUNTER + ADDRESS INCREMENT 01309 M01S01295.lo72 +++| MX0 54 SINGLE CHAR. MASK. 01310 M01S01296.lo72 +++| CKI27 SA5 B6+N1 GET NX 01311 M01S01297.lo72 +++| ZR X5,CKI28 IF NX=0 01312 M01S01298.lo72 +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 01313 M01S01299.lo72 +++| SA7 SNX SAVE *NX* VALUE 01314 M01S01300.lo72 +++| SA5 A5+NPM CONVERT *IX* VALUE 01315 M01S01301.lo72 +++| RJ DXB 01316 M01S01302.lo72 +++| SA4 SNX ADD *NX* + *IX* VALUES 01317 M01S01303.lo72 +++| IX4 X4+X7 01318 M01S01304.lo72 +++| SX4 X4-XBUFL-2 COMPARE SUM WITH BUFFER LENGTH 01319 M01S01305.lo72 +++| PL X4,CKI32 IF *NX* + *IX* .GT. XBUFL + 1 01320 M01S01306.lo72 +++| SA5 A5+NPM CONVERT *OX* CODED VALUE 01321 M01S01307.lo72 +++| RJ DXB 01322 M01S01308.lo72 +++| SA7 SOX SAVE *OX* VALUE 01323 M01S01309.lo72 +++| SA5 H CONVERT *H* CODED VALUE 01324 M01S01310.lo72 +++| RJ DXB
| Line S01311 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01325 M02S01311.v23l617 ---| NZ X4,CKI19.1 IF INVALID *H* PARAMETER 01326 M01S00012.v23l617 +++| NZ X4,CKI19.1 IF INCORRECT *H* PARAMETER 01327 M01S01312.lo72 +++| ZR X7,CKI19.1 IF *H* VALUE = 0 01328 M01S01313.lo72 +++| SX6 X6-XBUFL-1 COMPARE *H* WITH BUFFER LENGTH 01329 M01S01314.lo72 +++| PL X6,CKI19.1 IF *H* VALUE .GT. XBUFL 01330 M01S01315.lo72 +++| SA3 A7 ADD *OX* + *NX* VALUES 01331 M01S01316.lo72 +++| SA4 A4 01332 M01S01317.lo72 +++| IX4 X3+X4 COMPARE SUM WITH OUTPUT LENGTH 01333 M01S01318.lo72 +++| SX7 X7+B1 01334 M01S01319.lo72 +++| IX4 X7-X4 01335 M01S01320.lo72 +++| NG X4,CKI32 IF *NX* + *OX* .GT. (*H* + 1) 01336 M01S01321.lo72 +++| CKI28 ZR B6,CKI33 IF FIELD PARAMETER VALIDATION COMPLETE 01337 M01S01322.lo72 +++| SB6 B6-B1 01338 M01S01323.lo72 +++| EQ CKI27 01339 M01S01324.lo72 +++| 01340 M01S01325.lo72 +++| CKI32 WRITEC OUT,CKIS 01341 M01S01326.lo72 +++| WRITEC OUT,CKIS1 01342 M01S01327.lo72 +++| EQ CKI15 01343 M01S01328.lo72 +++| 01344 M01S01329.lo72 +++| CKI33 SA1 CKIG 01345 M01S01330.lo72 +++| SA2 O 01346 M01S01331.lo72 +++| MX0 42 01347 M01S01332.lo72 +++| BX2 -X0*X2 01348 M01S01333.lo72 +++| BX6 X1+X2 01349 M01S01334.lo72 +++| SA6 A2 SET COMBINED NAME AND STATUS 01350 M01S01335.lo72 +++| SA1 CKID 01351 M01S01336.lo72 +++| ZR X1,PRS14 IF NO INPUT FILE NAME 01352 M01S01337.lo72 +++| SA2 I 01353 M01S01338.lo72 +++| BX2 -X0*X2 01354 M01S01339.lo72 +++| BX6 X1+X2 01355 M01S01340.lo72 +++| SA6 A2 SET COMBINED NAME AND STATUS 01356 M01S01341.lo72 +++| BX1 X6 01357 M01S01342.lo72 +++| EQ RIF READ INPUT FILE 01358 M01S01343.lo72 +++| 01359 M01S01344.lo72 +++|**** MESSAGES OUTPUT TO TTY BY *CKI*. 01360 M01S01345.lo72 +++|* 01361 M01S01346.lo72 +++| CKIA DIS 5,DO YOU WANT TO CHANGE ANY CONTROL ARGUMENT VALUES- 01362 M01S01347.lo72 +++| CON 0 01363 M01S01348.lo72 +++| CKIA1 DATA 10HENTER: YES 01364 M01S01349.lo72 +++| VFD 36/6L OR NO,24/0
| Line S01350 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | lo721 |
Seq # *Modification Id* Act ----------------------------+ 01365 M02S01350.lo721 ---| CKIB DATA 3LYES 01366 M01S00003.lo721 +++| CKIB DATA 3HYES 01367 M01S01351.lo72 +++| VFD 60D/2LNO 01368 M01S01352.lo72 +++| CKIC DIS 2,ARGUMENT 01369 M01S01353.lo72 +++| VFD 36/6LVALUE ,24/0 01370 M01S01354.lo72 +++| CKIC1 DIS 2,INPUT FILE NAME: 01371 M01S01355.lo72 +++| CKIC2 VFD 42/0,18/3H "CB" 01372 M01S01356.lo72 +++| CON 0 01373 M01S01357.lo72 +++| CKID CON 0 INPUT FILE NAME STORAGE 01374 M01S01358.lo72 +++| CKIE DIS 2,SOURCE FILE NAME: 01375 M01S01359.lo72 +++| CKIE1 VFD 42/0,18/3H "CB" 01376 M01S01360.lo72 +++| CON 0 01377 M01S01361.lo72 +++| CKIF DIS 2,OUTPUT FILE NAME: 01378 M01S01362.lo72 +++| CKIF1 VFD 42/0,18/3H "CB" 01379 M01S01363.lo72 +++| CON 0 01380 M01S01364.lo72 +++| CKIG CON 0 OUTPUT FILE NAME STORAGE 01381 M01S01365.lo72 +++| CKIH DIS 2,SOURCE FILE TYPE: 01382 M01S01366.lo72 +++| CKIH1 DATA C*NOT IDENTIFIABLE"CB"* 01383 M01S01367.lo72 +++| CKIJ DATA C*NONE"CB"* 01384 M01S01368.lo72 +++| CKIK DATA C*BATCH "CB"* 01385 M01S01369.lo72 +++| CKIL DATA C*MODIFY"CB"* 01386 M01S01370.lo72 +++| CKIM DATA C*COMPASS "CB"* 01387 M01S01371.lo72 +++| CKIN DIS 2,OUTPUT LINE LENGTH: 01388 M01S01372.lo72 +++| CKIN1 VFD 18D/0,42D/7L CHARS. 01389 M01S01373.lo72 +++| DATA C*"CB"* 01390 M01S01374.lo72 +++| CKIO DIS 3, NO. OF MOVED FROM MOVED T 01391 M01S01375.lo72 +++| VFD 12/2LO ,48/0 01392 M01S01376.lo72 +++| CKIO1 DIS 3, CHARS. COLUMN COLUMN 01393 M01S01377.lo72 +++| CON 0 01394 M01S01378.lo72 +++| CKIO2 DIS 2,(X) (NX) (IX) 01395 M01S01379.lo72 +++| VFD 48/8L (OX),12/0 01396 M01S01380.lo72 +++| CON 0 01397 M01S01381.lo72 +++| VFD 30D/5L 0. ,30D/0 01398 M01S01382.lo72 +++| CKIP VFD 30D/5L 0. ,30D/0 01399 M01S01383.lo72 +++| VFD 30D/5L ,30D/0 01400 M01S01384.lo72 +++| CKIQ CON 0 01401 M01S01385.lo72 +++| CON 0 01402 M01S01386.lo72 +++| CON 0 01403 M01S01387.lo72 +++| CON 0 01404 M01S01388.lo72 +++| CKIR DATA C*ENTER CHANGES IN THE FOLLOWING FORMAT: * 01405 M01S01389.lo72 +++| CKIR1 DATA 10HNX=AA*CR* 01406 M01S01390.lo72 +++| CON 0 01407 M01S01391.lo72 +++| CKIR2 DATA 10HIX=BB*CR* 01408 M01S01392.lo72 +++| CON 0 01409 M01S01393.lo72 +++| CKIR3 DATA 10HOX=CC*CR* 01410 M01S01394.lo72 +++| CON 0 01411 M01S01395.lo72 +++| CKIR4 VFD 24/4LETC.,36/0 01412 M01S01396.lo72 +++| CKIR5 DATA C/TO CONTINUE, ENTER *CR* ONLY. "CB"/ 01413 M01S01397.lo72 +++| CKIS DIS 5,ERROR- OUTPUT LINE LENGTH (H) IS TOO SMALL OR TOTA 01414 M01S01398.lo72 +++| VFD 12/2LL ,48/0 01415 M01S01399.lo72 +++| CKIS1 DIS 5,NUMBER OF CHARACTERS TO BE MOVED (NX) IS TOO LARGE 01416 M01S01400.lo72 +++| VFD 12/2L. ,48/0 01417 M01S01401.lo72 +++| CKIT DIS 5,ARGUMENT ERROR. RE-ENTER ALL NX, IX, AND OX PARAME 01418 M01S01402.lo72 +++| VFD 36/6LTERS. ,24/0
| Line S01403 Modification History | |
|---|---|
M01 (Added by) | lo72 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01419 M02S01403.v23l617 ---| CKIU DATA C* LENGTH INVALID. CORRECT AND RE-ENTER.* 01420 M01S00013.v23l617 +++| CKIU DATA C* LENGTH INCORRECT. CORRECT AND RE-ENTER.* 01421 M01S01404.lo72 +++| CON 0 01422 M01S01405.lo72 +++|**** 01423 M01S01406.lo72 +++| SPACE 4 01424 M01S01407.lo72 +++| 01425 M01S01408.lo72 +++|** SFP - SET FET PARAMETERS 01426 M01S01409.lo72 +++|* ENTRY- (B1) = 1. 01427 M01S01410.lo72 +++|* (A1) = ADDRESS OF FILE NAME. 01428 M01S01411.lo72 +++|* (X1) = FILE NAME. 01429 M01S01412.lo72 +++|* USES- X - 2, 6. 01430 M01S01413.lo72 +++|* B - NONE. 01431 M01S01414.lo72 +++|* A - 2, 6. 01432 M01S01415.lo72 +++|* 01433 M01S01416.lo72 +++|* SETS A 1 IN BIT ZERO OF WORD 1 IF NEEDED AND RESETS 01434 M01S01417.lo72 +++|* IN = OUT = FIRST. 01435 M01S01418.lo72 +++|* 01436 M01S01419.lo72 +++| 01437 M01S01420.lo72 +++| 01438 M01S01421.lo72 +++| SFP SUBR ENTRY/EXIT 01439 M01S01422.lo72 +++| BX6 X1 01440 M01S01423.lo72 +++| LX6 59 01441 M01S01424.lo72 +++| NG X6,SFP1 IF BIT ZERO SET 01442 M01S01425.lo72 +++| SX2 B1 01443 M01S01426.lo72 +++| LX6 1 01444 M01S01427.lo72 +++| IX6 X6+X2 SET BIT ZERO 01445 M01S01428.lo72 +++| BX1 X6 01446 M01S01429.lo72 +++| SA6 A1 01447 M01S01430.lo72 +++| SFP1 SA2 A1+B1 GET FIRST 01448 M01S01431.lo72 +++| BX6 X2 01449 M01S01432.lo72 +++| SA6 A2+B1 SET IN = FIRST 01450 M01S01433.lo72 +++| SA6 A6+B1 SET OUT = FIRST 01451 M01S01434.lo72 +++| EQ SFPX RETURN 01452 M01S01435.lo72 +++| SPACE 4 01453 M01S01436.lo72 +++| 01454 M01S01437.lo72 +++|** SOB - STRIP OFF BLANKS 01455 M01S01438.lo72 +++|* ENTRY- (X1) = DISPLAY CODE WITH TRAILING BLANKS POSSIBLE. 01456 M01S01439.lo72 +++|* (B1) = 1. 01457 M01S01440.lo72 +++|* (B3) = RETURN ADDRSS IF ERROR ENCOUNTERED. 01458 M01S01441.lo72 +++|* USES- X - 1, 2, 3, 6. 01459 M01S01442.lo72 +++|* B - 3, 4, 5, 6, 7. 01460 M01S01443.lo72 +++|* A - 1, 6. 01461 M01S01444.lo72 +++|* EXIT- (X6) = SAME DISPLAY CODE EXCEPT ZERO FILLED. 01462 M01S01445.lo72 +++|* 01463 M01S01446.lo72 +++| 01464 M01S01447.lo72 +++| 01465 M01S01448.lo72 +++| SOB SUBR ENTRY/EXIT 01466 M01S01449.lo72 +++| SX6 B3 01467 M01S01450.lo72 +++| SA6 SOBC SAVE ERROR ADDRESS 01468 M01S01451.lo72 +++| SB4 6 01469 M01S01452.lo72 +++| SB5 54D SHIFT COUNTER 01470 M01S01453.lo72 +++| MX2 54D SINGLE CHARACTER MASK 01471 M01S01454.lo72 +++| BX6 X6-X6 01472 M01S01455.lo72 +++| BX1 X2*X1 01473 M01S01456.lo72 +++| SOB1 LX1 6 01474 M01S01457.lo72 +++| BX3 -X2*X1 GET A CHARACTER 01475 M01S01458.lo72 +++| ZR X3,SOB3 IF NO MORE CHARACTERS 01476 M01S01459.lo72 +++| SB6 B5-6 01477 M01S01460.lo72 +++| ZR B6,SOB6 IF INPUT TOO LONG 01478 M01S01461.lo72 +++| SB7 X3-1R+ 01479 M01S01462.lo72 +++| NG B7,SOB2 IF NOT SPECIAL CHARACTER 01480 M01S01463.lo72 +++| SB7 X3-1R 01481 M01S01464.lo72 +++| ZR B7,SOB1 IF SPACE CHARACTER 01482 M01S01465.lo72 +++| SB7 X3-1R= 01483 M01S01466.lo72 +++| NZ B7,SOB4 IF NOT EQUALS(=) CHARACTER 01484 M01S01467.lo72 +++| SB7 B5-42D 01485 M01S01468.lo72 +++| NZ B7,SOB4 IF NOT THE THIRD CHARACTER 01486 M01S01469.lo72 +++| SOB2 SB5 B5-B4 01487 M01S01470.lo72 +++| BX6 X3+X6 BUILD UP LEGAL INPUT 01488 M01S01471.lo72 +++| LX6 6 01489 M01S01472.lo72 +++| EQ SOB1 LOOP 01490 M01S01473.lo72 +++| SOB3 LX6 B5,X6 LEFT JUSTIFY 01491 M01S01474.lo72 +++| NZ X6,SOBX RETURN IF INPUT GOOD 01492 M01S01475.lo72 +++| SOB4 WRITEC OUT,SOBA 01493 M01S01476.lo72 +++| SOB5 SA1 SOBC 01494 M01S01477.lo72 +++| SB3 X1 RESET ERROR ADDRESS 01495 M01S01478.lo72 +++| JP B3 RETURN TO READ AGAIN 01496 M01S01479.lo72 +++| SOB6 WRITEC OUT,SOBB 01497 M01S01480.lo72 +++| EQ SOB5 01498 M01S01481.lo72 +++| SOBA DIS 3,INPUT ERROR. RE-ENTER SAME PAR 01499 M01S01482.lo72 +++| VFD 48/8LAMETER. ,12/0 01500 M01S01483.lo72 +++| DATA 2BS48 01501 M01S01484.lo72 +++| SOBB DIS 4,PARAMETER TOO LONG. CORRECT AND RE-ENTER 01502 M01S01485.lo72 +++| VFD 12/2L. ,12/0,12/2,24/0 01503 M01S01486.lo72 +++| SOBC CON 0 01504 M01S01487.lo72 +++| SPACE 4 01505 M01S01488.lo72 +++| 01506 M01S01489.lo72 +++|** DEFAULT VALUES FOR BATCH. 01507 M01S01490.lo72 +++| 01508 M01S01491.lo72 +++| BN1 VFD 60D/2L72 01509 M01S01492.lo72 +++| BN2 DATA 0 01510 M01S01493.lo72 +++| BN3 DATA 0 01511 M01S01494.lo72 +++| BN4 DATA 0 01512 M01S01495.lo72 +++| BN5 DATA 0 01513 M01S01496.lo72 +++| BN6 DATA 0 01514 M01S01497.lo72 +++| BI1 VFD 60D/1L1 01515 M01S01498.lo72 +++| BI2 DATA 0 01516 M01S01499.lo72 +++| BI3 DATA 0 01517 M01S01500.lo72 +++| BI4 DATA 0 01518 M01S01501.lo72 +++| BI5 DATA 0 01519 M01S01502.lo72 +++| BI6 DATA 0 01520 M01S01503.lo72 +++| BO1 VFD 60D/1L1 01521 M01S01504.lo72 +++| BO2 DATA 0 01522 M01S01505.lo72 +++| BO3 DATA 0 01523 M01S01506.lo72 +++| BO4 DATA 0 01524 M01S01507.lo72 +++| BO5 DATA 0 01525 M01S01508.lo72 +++| BO6 DATA 0 01526 M01S01509.lo72 +++| 01527 M01S01510.lo72 +++|** DEFAULT VALUES FOR COMPASS. 01528 M01S01511.lo72 +++| 01529 M01S01512.lo72 +++| CN1 VFD 60D/1L7 01530 M01S01513.lo72 +++| CN2 VFD 60D/2L50 01531 M01S01514.lo72 +++| CN3 VFD 60D/2L15 01532 M01S01515.lo72 +++| CN4 DATA 0 01533 M01S01516.lo72 +++| CN5 DATA 0 01534 M01S01517.lo72 +++| CN6 DATA 0 01535 M01S01518.lo72 +++| CI1 VFD 60D/1L9 01536 M01S01519.lo72 +++| CI2 VFD 60D/2L41 01537 M01S01520.lo72 +++| CI3 VFD 60D/3L112 01538 M01S01521.lo72 +++| CI4 DATA 0 01539 M01S01522.lo72 +++| CI5 DATA 0 01540 M01S01523.lo72 +++| CI6 DATA 0 01541 M01S01524.lo72 +++| CO1 VFD 60D/1L1 01542 M01S01525.lo72 +++| CO2 VFD 60D/1L8 01543 M01S01526.lo72 +++| CO3 VFD 60D/2L58 01544 M01S01527.lo72 +++| CO4 DATA 0 01545 M01S01528.lo72 +++| CO5 DATA 0 01546 M01S01529.lo72 +++| CO6 DATA 0 01547 M01S01530.lo72 +++| 01548 M01S01531.lo72 +++|** DEFAULT VALUES FOR MODIFY. 01549 M01S01532.lo72 +++| 01550 M01S01533.lo72 +++| MN1 VFD 60D/1L2 01551 M01S01534.lo72 +++| MN2 VFD 60D/2L48 01552 M01S01535.lo72 +++| MN3 VFD 60D/2L22 01553 M01S01536.lo72 +++| MN4 DATA 0 01554 M01S01537.lo72 +++| MN5 DATA 0 01555 M01S01538.lo72 +++| MN6 DATA 0 01556 M01S01539.lo72 +++| MI1 VFD 60D/1L6 01557 M01S01540.lo72 +++| MI2 VFD 60D/2L10 01558 M01S01541.lo72 +++| MI3 VFD 60D/2L82 01559 M01S01542.lo72 +++| MI4 DATA 0 01560 M01S01543.lo72 +++| MI5 DATA 0 01561 M01S01544.lo72 +++| MI6 DATA 0 01562 M01S01545.lo72 +++| MO1 VFD 60D/1L1 01563 M01S01546.lo72 +++| MO2 VFD 60D/1L3 01564 M01S01547.lo72 +++| MO3 VFD 60D/2L51 01565 M01S01548.lo72 +++| MO4 DATA 0 01566 M01S01549.lo72 +++| MO5 DATA 0 01567 M01S01550.lo72 +++| MO6 DATA 0 01568 M01S01551.lo72 +++| SNX DATA 0 *NX* VALUE 01569 M01S01552.lo72 +++| SOX DATA 0 *OX* VALUE 01570 M01S01553.lo72 +++| 01571 M01S01554.lo72 +++| SPACE 4,10 01572 M01S01555.lo72 +++|** COMMON DECKS. 01573 M01S01556.lo72 +++| 01574 M01S01557.lo72 +++| 01575 M01S01558.lo72 +++|*CALL COMCARG 01576 M01S01559.lo72 +++|*CALL COMCDXB 01577 M01S01560.lo72 +++|*CALL COMCRDH 01578 M01S01561.lo72 +++|*CALL COMCSFN 01579 M01S01562.lo72 +++|*CALL COMCUPC 01580 M01S01563.lo72 +++| 01581 M01S01564.lo72 +++| END
cdc/nos2.source/opl.opl871/deck/lo72.txt · Last modified: by 127.0.0.1