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