ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph20.asm
1130 FORTRAN COMPILER PHASE 20
2 | *************************************************** K2000020
3 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2000030
4 | * * K2000040
5 | *FUNCTION/OPERATION- * K2000050
6 | * * INSERTS ERRORS 65, 66, AND/OR 67 ONTO 2-11 K2000060
7 | * INPUT STRING, IF ANY WERE DETECTED IN 2-11 K2000070
8 | * PH19 AND CARRIED FORWARD 2-11 K2000080
9 | * * SEARCHES INPUT STRING FOR DATA STATEMENTS2-11 K2000090
10 | * IN ERROR 2-11 K2000100
11 | * * INSERTS A LINE COUNT VALUE(LEFT JUST- 2-11 K2000110
12 | * IFIED) IN THE ERROR NUMBER OF A STATE- 2-11 K2000120
13 | * MENT IN ERROR - UNTIL A LABLED STATEMENT 2-11 K2000130
14 | * IS ENCOUNTERED 2-11 K2000140
15 | * * LISTS ANY ERROR THAT WERE DETECTED DURING * K2000160
16 | * THE COMPILATION PROCESS. * K2000170
17 | * * REARRANGING THE STATEMENT STRING IF THERE * K2000180
18 | * WERE NO ERRORS DETECTED. * K2000190
19 | * * K2000200
20 | *ENTRY POINTS- * K2000210
21 | * * NEQ -THIS PHASE IS ENTERED VIA A CALL TO * K2000220
22 | * THE ROL SUBROUTINE FROM PHASE 19. * K2000230
23 | * * K2000240
24 | *INPUT- * K2000250
25 | * * STATEMENT STRING * K2000260
26 | * * SYMBOL TABLE * K2000270
27 | * * FCOM * K2000280
28 | * * K2000290
29 | *OUTPUT- * K2000300
30 | * * PRINTED ERROR MESSAGES IF ANY * K2000310
31 | * * STATEMENT STRING * K2000320
32 | * * SYMBOL TABLE * K2000330
33 | * * FCOM * K2000340
34 | * * K2000350
35 | *EXTERNAL REFERENCES- * K2000360
36 | * SUBROUTINES * K2000370
37 | * * ROL - INTERPHASE ROLLER SUBR ENTRY * K2000380
38 | * * NEWPG- PAGE EJECT SUBR INDIRECT ENTRY * K2000390
39 | * * PRINT- PRINT CONTROL SUBR ENTRY * K2000400
40 | * * LSTPR- PRINCIPAL PRINT SUBR ENTRY * K2000410
41 | * COMMA/DCOM * K2000420
42 | * * PHASE- NO.OF PHASE NOW IN CORE * K2000430
43 | * * CHN12- CHANNEL 12 INDICATOR * K2000440
44 | * * K2000450
45 | *EXITS- * K2000460
46 | * NORMAL- * K2000470
47 | * EXIT IS MADE VIA A CALL TO THE ROL SUBR * K2000480
48 | * ERROR- * K2000490
49 | * NONE * K2000500
50 | * * K2000510
51 | *TABLES/WORK AREAS * K2000520
52 | * * FCOM * K2000530
53 | * * STRING AREA * K2000540
54 | * * SYMBOL TABLE AREA * K2000550
55 | * * AREA * K2000560
56 | * * PAREA * K2000570
57 | * * K2000580
58 | *ATTRIBUTES- * K2000590
59 | * NONE * K2000600
60 | * * K2000610
61 | *NOTES- * K2000620
62 | * ERRORS DETECTED BY THIS PHASE - 81 ALSO 2-11 K2000630
63 | * ERRORS 65, 66, AND 67 WHICH WERE DETECTED 2-11 K2000640
64 | * BY PHASE 19 ARE INSERTED INTO THE STRING 2-11 K2000650
65 | * * K2000660
66 | *************************************************** K2000670
67 | ABS K2000680
68 | * K2000690
69 | * SYSTEM EQUATES K2000700
8000 70 | MEMRY EQU /8000 K2000710
7A23 71 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2000720
7FBC 72 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K2000730
0078 73 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2000740
74 | * K2000750
0032 75 | PHID EQU 50 ID NUMBER THIS PHASE K2000760
76 | * PRINT ROUTINE K2000770
7F8B 77 | HEAD EQU ROL-49 PAGE HEADER AREA K2000780
7E42 78 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2000790
7E0C 79 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2000800
7E0D 80 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2000810
0006 81 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2000820
82 | * K2000830
7E0E 83 | PRINT EQU NEWPG+2 PRINT INTERFACE RTN ENTRY K2000840
7E45 84 | LSTPR EQU OVERP+3 DEVICE PRINT ROUTINE ENTRY K2000850
7A23 85 | ORG OVERL K2000860
86 | * K2000870
87 | * FORTRAN COMMUNICATION AREA K2000880
7A23 88 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2000890
7A24 89 | SOFS BSS 1 START OF STRING K2000900
7A25 90 | EOFS BSS 1 END OF STRING K2000910
7A26 91 | SOFST BSS 1 START OF SYMBOL TABLE K2000920
7A27 92 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K2000930
7A28 93 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2000940
7A29 94 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2000950
7A2A 95 | EOFST BSS 1 END OF SYMBOL TABLE K2000960
7A2B 96 | COMON BSS 1 K2000970
7A2C 97 | CSIZE BSS 1 SIZE OF COMMON K2000980
7A2D 98 | ERROR BSS 1 ERROR FLAG K2000990
99 | * BIT 15 OVERLAP ERROR K2001000
100 | * BIT 14 OTHER ERROR K2001010
101 | * BIT 11 ORIGIN IN SUBPROGRAM 2-4 K2001020
102 | * BIT 9 INVALID ORIGIN 2-4 K2001030
7A2E 103 | FNAME BSS 1 PROGRAM NAME K2001040
7A2F 104 | BSS 1 K2001050
7A30 105 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2001060
7A31 106 | CCWD BSS 1 CONTROL CARD WORD K2001070
107 | * BIT 15 TRANSFER TRACE K2001080
108 | * BIT 14 ARITHMETIC TRACE K2001090
109 | * BIT 13 EXTENDED PRECISION K2001100
110 | * BIT 12 LIST SYMBOL TABLE K2001110
111 | * BIT 11 LIST SUBPROGRAM NAMES K2001120
112 | * BIT 10 LIST SOURCE PROGRAM K2001130
113 | * BIT 9 ONE WORD INTEGERS K2001140
114 | * BIT 8 ORIGIN 2-4 K2001150
7A32 115 | IOCS BSS 1 IOCS CONTROL CARD WORD K2001160
116 | * BIT 15 CARD K2001170
117 | * BIT 14 PAPER TAPE K2001180
118 | * BIT 13 TYPEWRITER K2001190
119 | * BIT 12 1403 PRINTER K2001200
120 | * BIT 11 2501 READER K2001210
121 | * BIT 10 KEYBOARD K2001220
122 | * BIT 9 1442 PUNCH K2001230
123 | * BIT 8 DISK K2001240
124 | * BIT 7 1132 PRINTER K2001250
125 | * BIT 3 PLOTTER K2001260
126 | * BIT 0 NOT AVAILABLE K2001270
7A33 127 | DFCNT BSS 1 DEFINE FILE COUNT K2001280
128 | * K2001290
129 | * K2001300
130 | * END OF FORTRAN COMMUNICATION K2001310
131 | * AREA K2001320
132 | *************************************************** K2001330
133 | * THE SWITCHES USED IN PHASE 21 FOLLOW K2001340
134 | * IF POSITIVE, THE SWITCH IS TRANSFER=T K2001350
135 | * IF ZERO, THE SWITCH IS NORMAL=N K2001360
136 | * SWITCH OUTFL K2001370
137 | * N= HEADER NOT PRINTED K2001380
138 | * T= HEADER ALREADY PRINTED K2001390
139 | * K2001400
7A36 140 | BPHAR EQU *+2 K2001410
7A34 0000 141 | DC 0 LOADER WORK AREA. K2001420
7A35 FFCE 142 | DC -50 -PHASE ID FOR SLET LOOKUP K2001430
7A36 039A 143 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K2001440
7A37 0001 144 | DC 1 ONE ENTRY TO BE SET BY LDR K2001450
7A36 145 | ORG *-2 K2001460
146 | * K2001470
147 | * OUTPUT STRING ERROR MESSAGES K2001480
148 | * PHASE K2001490
149 | * K2001500
150 | ************************************************** K2001510
7A36 4C00 7A3A 151 | NEQ BSC L ENT ENTRY, GO INITIALIZE K2001520
152 | * K2001530
153 | * K2001540
7A38 0000 154 | WDCNT DC *-* WORD COUNT FOR PRINT LINE K2001550
7A39 0000 155 | PAREA DC 0 PRINT AREA START K2001560
156 | * K2001570
7A3A 1000 157 | ENT NOP 2-11 K2001580
7A3B 6132 158 | LDX 1 PHID GET ID THIS PHASE 2-11 K2001590
7A3C 6D00 0078 159 | STX L1 $PHSE STORE INTO COMMA K2001600
160 | * K2001610
161 | * INITIALIZE TRANSFERVECTOR K2001620
7A3E 6700 7D45 162 | LDX L3 ZERO LOAD WORK AREA POINTER K2001630
7A40 6F00 7A36 163 | STX L3 NEQ SAVE FOR RE-INITIALIZATION K2001640
164 | * K2001650
165 | * CHECK FOR OVERLAP ERROR K2001660
7A42 C400 7A2D 166 | LD L ERROR K2001670
7A44 4C04 7BF1 167 | BSC L E2020,E BR IF OVERLAP ERROR K2001680
7A46 4C20 7BE9 168 | BSC L E2015,Z BRANCH IF ORG ERRORS 2-4 K2001690
169 | * K2001700
170 | * MAKE SIZE OF WORK AREA EVEN ADDRESS K2001710
7A48 C400 7A28 171 | LD L SOFXT LOAD WORK AREA START ADDR K2001720
7A4A 4804 172 | BSC E SKIP IF EVEN K2001730
7A4B 8301 173 | A 3 ONE-Z ADJUST TO AN EVEN ADDRESS K2001740
7A4C D400 7A28 174 | STO L SOFXT STORE IN WORK AREA POINTER K2001750
175 | * K2001760
176 | * SET HEADER TEST FOR K2001770
177 | * UNREFERENCED STATEMENT K2001780
178 | * K2001790
7A4E 6600 7CA9 179 | LDX L2 TEXT5 INITIALIZE TO PRINT PROPER K2001800
7A50 6E00 7D17 180 | STX L2 HTES1+1 *HEADER K2001810
7A52 C300 181 | LD 3 ZERO-Z K2001820
7A53 D30B 182 | STO 3 OUTFL-Z ZERO TO HEADER OUTP FLAG K2001830
183 | *************************************************** K2001840
184 | * K2001850
185 | * PROCESS INPUT STRING FOR DATA 2-11 K2001860
186 | * STATEMENTS IN ERROR AND REMOVE 2-11 K2001870
187 | * K2001880
188 | *************************************************** K2001890
7A54 C400 7A24 190 | LD L SOFS INITIALIZE POINTER 2-11 K2001910
7A56 D068 191 | STO IDADR SAVE AT ID ADRS 2-11 K2001920
192 | * K2001930
7A57 1000 193 | DTA10 NOP 2-11 K2001940
7A58 6580 7ABF 194 | LDX I1 IDADR START OF STRING 2-11 K2001950
7A5A C100 195 | LD 1 0 LOAD STMNT ID WORD 2-11 K2001960
7A5B E30E 196 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2001970
7A5C D30C 197 | STO 3 STSID-Z SAVE ID 2-11 K2001980
7A5D C100 198 | LD 1 0 LOAD STMNT ID WORD 2-11 K2001990
7A5E E30F 199 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2002000
7A5F 1802 200 | SRA 2 RE-ALIGN NORM 2-11 K2002010
7A60 D30D 201 | STO 3 NORM-Z SAVE NORM 2-11 K2002020
202 | * K2002030
203 | * TEST IF DATA OR END STATEMENT 2-11 K2002040
204 | * K2002050
7A61 C30C 205 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2002060
7A62 9309 206 | S 3 HF800-Z TEST IF DATA STMNT K2002070
7A63 4C18 7A6A 207 | BSC L DTA11,+- BRCH IF DATA ID 2-11 K2002080
7A65 C30C 209 | LD 3 STSID-Z CHECK FOR 2-11 K2002100
7A66 9311 210 | S 3 ENDID-Z AND BRCH IF 2-11 K2002110
7A67 4C18 7AC6 211 | BSC L REPAK,+- END STMNT 2-11 K2002120
7A69 7026 212 | MDX DTA21 CONTINUE SCAN 2-11 K2002130
213 | * K2002140
214 | * CHECK THAT DATASTATEMENT DOES NOT K2002150
215 | * CONTAIN COMMON VARIABLES K2002160
216 | * K2002170
7A6A C30D 217 | DTA11 LD 3 NORM-Z STORE NORM 2-11 K2002180
7A6B D028 218 | STO STONO K2002190
219 | * K2002200
220 | * MOVE POINTER TO NEXT DATAGROUP IF ANY K2002210
221 | * K2002220
7A6C 7101 222 | DTA12 MDX 1 1 MOVE POINTER K2002230
7A6D 74FF 7A94 223 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002240
7A6F C100 224 | DTA13 LD 1 0 INSERT CONSTANT LENGTH K2002250
7A70 E027 225 | AND H0007 * K2002260
7A71 D023 226 | STO CONSC * K2002270
227 | * K2002280
228 | * MOVE POINTER PAST THE CONSTANT K2002290
229 | * K2002300
7A72 7101 230 | DTA14 MDX 1 1 INCR STRING POINTER K2002310
7A73 74FF 7A94 231 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002320
7A75 74FF 7A95 232 | MDX L CONSC,-1 SKIP WHEN CON MV COMPLETE K2002330
7A77 70FA 233 | MDX DTA14 K2002340
234 | * K2002350
235 | * MOVE POINTER TO NEXT NAME K2002360
236 | * K2002370
7A78 7101 237 | DTA15 MDX 1 1 INCR STRING POINTER K2002380
7A79 74FF 7A94 238 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002390
239 | * K2002400
240 | * TEST IF NAME IN COMMON K2002410
241 | * K2002420
7A7B C100 242 | LD 1 0 GET NAME FROM SYM TBL K2002430
7A7C 43D4 243 | BSI 3 GNAME-Z * K2002440
7A7D C3F0 244 | LD 3 GNAM4-Z GET SYM TBL ID WORD K2002450
7A7E 1002 245 | SLA 2 K2002460
7A7F 4C28 7A99 246 | BSC L DTAER,Z+ BR IF IN COMMON K2002470
247 | * K2002480
248 | * MOVE POINTER TO NEXT NAME IF ANY K2002490
249 | * K2002500
7A81 C100 250 | LD 1 0 LOAD NAME POINTER K2002510
7A82 1001 251 | SLA 1 K2002520
7A83 4C10 7A88 252 | BSC L DTA17,- BR IF NO DISPLACEMENT AFTER K2002530
7A85 7101 253 | MDX 1 1 INCR STRING POINTER K2002540
7A86 74FF 7A94 254 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002550
255 | * K2002560
7A88 C00B 256 | DTA17 LD STONO K2002570
7A89 1801 257 | SRA 1 212 K2002580
7A8A 4C18 7A90 258 | BSC L DTA21,+- BRANCH END OF STATEMENT K2002590
7A8C C101 259 | LD 1 1 K2002600
7A8D 4C10 7A6C 260 | BSC L DTA12,- BRANCH END OF VARIABLES K2002610
7A8F 70E8 261 | MDX DTA15 GO MOVE TO NEXT NAME K2002620
262 | * K2002630
7A90 C02E 263 | DTA21 LD IDADR LOAD STMNT ADRS 2-11 K2002640
7A91 830D 264 | A 3 NORM-Z ADD NORM 2-11 K2002650
7A92 D02C 265 | STO IDADR STORE AS NEXT ADRS 2-11 K2002660
7A93 70C3 266 | MDX DTA10 CONTINUE SCAN 2-11 K2002670
267 | * K2002680
7A94 0000 268 | STONO DC 0 STORED NORM K2002690
7A95 0000 269 | CONSC DC 0 CONSTANT LENGTH K2002700
7A96 0051 270 | ERTYP DC 81 ERROR TYPE CODE K2002710
7A97 A008 271 | ERID DC /A008 ERROR ID K2002720
7A98 0007 272 | H0007 DC /0007 CONSTANT K2002730
273 | * K2002740
274 | * REPLACE ERROR DATA STMNT ID WITH 2-11 K2002750
275 | * ERROR STMNT ID AND CLOSE STRING 2-11 K2002760
276 | * K2002770
7A99 6580 7ABF 277 | DTAER LDX I1 IDADR STMNT ADRS 2-11 K2002780
7A9B C0FB 278 | LD ERID ERROR STMNT ID 2-11 K2002790
7A9C D100 279 | STO 1 0 OVERLAY DATA ID 2-11 K2002800
7A9D C0F8 280 | LD ERTYP LOAD AND STORE 2-11 K2002810
7A9E D101 281 | STO 1 1 ERROR NUMBR 2-11 K2002820
282 | * 2-11 K2002830
7A9F 7402 7ABF 283 | MDX L IDADR,+2 ADJ ADRS FOR ERROR 2-11 K2002840
7AA1 74FE 7D52 284 | MDX L NORM,-2 ADJ NORM FOR ERROR 2-11 K2002850
7AA3 6580 7ABF 286 | LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K2002870
7AA5 C019 287 | LD IDADR LOAD STMNT ADRS 2-11 K2002880
7AA6 830D 288 | A 3 NORM-Z ADD STMNT NORM 2-11 K2002890
7AA7 D001 289 | STO *+1 AND SET XR2 2-11 K2002900
7AA8 6600 0000 290 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K2002910
7AAA C400 7A25 292 | LD L EOFS LOAD END OF STRING ADRS2-11 K2002930
7AAC 9400 0002 293 | S L /0002 SUB VALUE IN XR2 2-11 K2002940
7AAE D001 294 | STO *+1 AND STORE AS 2-11 K2002950
7AAF 6700 0000 295 | LDX L3 *-* RANGE IN XR3 2-11 K2002960
7AB1 7301 296 | MDX 3 +1 ADJ XR3 BY ONE 2-11 K2002970
7AB2 C200 298 | DTA25 LD 2 0 NEXT WORD TO MOVE 2-11 K2002990
7AB3 D100 299 | STO 1 0 TO NEW ADRS 2-11 K2003000
7AB4 7101 300 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K2003010
7AB5 7201 301 | MDX 2 1 INCREMENT NEW ADRS 2-11 K2003020
7AB6 73FF 302 | MDX 3 -1 DECREMENT RANGE 2-11 K2003030
7AB7 70FA 303 | MDX DTA25 LOOP UNTILL RANGE ZERO 2-11 K2003040
7AB8 6D00 7A25 305 | STX L1 EOFS NEW END OF STRING 2-11 K2003060
7ABA 6700 7D45 306 | LDX L3 ZERO WORK AREA POINTER 2-11 K2003070
7ABC 709A 307 | MDX DTA10 CONTINUE SCAN 2-11 K2003080
308 | *************************************************** K2003090
309 | * K2003100
310 | * THIS ROUTINE SCANS THE INPUT STRING 2-11 K2003110
311 | * REMOVING EQUIV STMNTS, DUMMY ERROR 2-11 K2003120
312 | * STMNTS, AND INSERT LINE COUNT IN 2-11 K2003130
313 | * VALID ERROR STMNTS 2-11 K2003140
314 | * K2003150
315 | *************************************************** K2003160
316 | * 2-11 K2003170
317 | *** CONSTANT'S AREA 2-11 K2003180
318 | * 2-11 K2003190
7ABD 0000 319 | LNCNT DC 0 LINE COUNT VALUE 2-11 K2003200
7ABE 0000 320 | RANGE DC 0 RANGE OF REPACK 2-11 K2003210
7ABF 0000 321 | IDADR DC *-* STMNT ID ADRS 2-11 K2003220
7AC0 0FFF 322 | K0FFF DC /0FFF EQUIV ERROR MASK 2-11 K2003230
7AC1 A008 323 | KA008 DC /A008 ERROR STMNT ID 2-11 K2003240
7AC2 0800 324 | K0800 DC /0800 CONSTANT 2-11 K2003250
7AC3 7000 325 | K7000 DC /7000 CONSTANT 2-11 K2003260
7AC4 B000 326 | KB000 DC /B000 CONSTANT 2-11 K2003270
7AC5 0000 327 | WDCT1 DC *-* SAVE AREA FOR WORD COUNT212 K2003275
7AC6 329 | REPAK EQU * 2-11 K2003290
7AC6 C400 7A24 330 | LD L SOFS LOAD START OF STRING 2-11 K2003300
7AC8 D0F6 331 | STO IDADR SAVE STMNT ID ADRS 2-11 K2003310
7AC9 1000 333 | CONT NOP 2-11 K2003330
7ACA 6580 7ABF 334 | LDX I1 IDADR SET XR1 TO IDADR 2-11 K2003340
7ACC C100 335 | LD 1 0 LOAD STMNT ID WORD 2-11 K2003350
7ACD 4C04 7B2D 336 | BSC L A1011,E BRCH IF STMNT NUMBERED 2-11 K2003360
7ACF E30F 337 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2003370
7AD0 1802 338 | SRA 2 RE-ALIGN NORM 2-11 K2003380
7AD1 D30D 339 | STO 3 NORM-Z SAVE NORM 2-11 K2003390
7AD2 C100 341 | LD 1 0 LOAD STMNT ID WORD 2-11 K2003410
7AD3 E30E 342 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2003420
7AD4 7004 343 | MDX RPK02 GO CHECK STMNT ID 2-11 K2003430
7AD5 C0E9 345 | RPK01 LD IDADR ADD STMNT ADRS 2-11 K2003450
7AD6 830D 346 | A 3 NORM-Z AND NORM-STORE AS 2-11 K2003460
7AD7 D0E7 347 | STO IDADR ADRS FOR NEXT STMNT 2-11 K2003470
7AD8 70F0 348 | MDX CONT CONTINUE SCAN 2-11 K2003480
7AD9 F317 350 | RPK02 EOR 3 HD800-Z 2-11 K2003500
7ADA 4C18 7AD5 351 | BSC L RPK01,+- BRCH IF IOCS 2-11 K2003510
352 | * K2003520
7ADC 7401 7ABD 353 | MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K2003530
354 | * K2003540
7ADE F0E4 355 | EOR K7000 2-11 K2003550
7ADF 4C18 7AF9 356 | BSC L RPK10,+- BRCH IF EQUIV 2-11 K2003560
357 | * K2003570
7AE1 F0E0 358 | EOR K0800 2-11 K2003580
7AE2 4C18 7AE8 359 | BSC L RPK05,+- BRCH IF ERROR 2-11 K2003590
360 | * K2003600
7AE4 F0DF 361 | EOR KB000 2-11 K2003610
7AE5 4C18 7B2D 362 | BSC L A1011,+- BRCH IF END 2-11 K2003620
363 | * K2003630
7AE7 70ED 364 | MDX RPK01 CONTINUE SCAN 2-11 K2003640
366 | * 2-11 K2003660
367 | *** CHECK TYPE OF ERROR STMNT 2-11 K2003670
368 | * 2-11 K2003680
7AE8 C101 370 | RPK05 LD 1 1 CHECK ERROR STMNT 2-11 K2003700
7AE9 1009 371 | SLA 9 FOR ERROR NUMBR 2-11 K2003710
7AEA 4C20 7AF0 372 | BSC L RPK06,Z BRCH IF NUMBR 2-11 K2003720
7AEC C101 373 | LD 1 1 LOAD AND SAVE 2-11 K2003730
7AED 1807 374 | SRA 7 LINE COUNT 2-11 K2003740
7AEE D0CE 375 | STO LNCNT BRANCH TO REMOVE 2-11 K2003750
7AEF 7025 376 | MDX RPK15 FROM STRING 2-11 K2003760
7AF0 C101 378 | RPK06 LD 1 1 LOAD ERROR NUMBER 2-11 K2003780
7AF1 1807 379 | SRA 7 CHECK FOR LNCNT 2-11 K2003790
7AF2 4C20 7AD5 380 | BSC L RPK01,Z BRCH IF PRESENT 2-11 K2003800
7AF4 C0C8 381 | LD LNCNT IF NOT-LOAD AND 2-11 K2003810
7AF5 1007 382 | SLA 7 POSITION LNCNT FIELD 2-11 K2003820
7AF6 E901 383 | OR 1 1 'OR' ERROR NUMBR 2-11 K2003830
7AF7 D101 384 | STO 1 1 STORE BACK ON STRING 2-11 K2003840
7AF8 70DC 385 | MDX RPK01 CONTINUE SCAN 2-11 K2003850
387 | * EQUIVALENCE STMNT ENCOUNTERED 2-11 K2003870
388 | * TEST FOR ERROR MARK 2-11 K2003880
7AF9 C100 389 | RPK10 LD 1 0 LOAD STATEMENT ID 212 K2003882
7AFA E30F 390 | AND 3 NRMSK-Z GET NORM 212 K2003884
7AFB 1802 391 | SRA 2 ALIGN STMT WORK COUNT 212 K2003886
7AFC 9301 392 | S 3 ONE-Z SAVE STMT 212 K2003888
7AFD D0C7 393 | STO WDCT1 *WORD COUNT-1 212 K2003890
7AFE 7101 394 | RPK12 MDX 1 1 POINT TO NEXT WORD 212 K2003892
7AFF C100 395 | LD 1 0 LOAD NEXT WORD 212 K2003894
7B00 F0BF 396 | EOR K0FFF CHECK FOR ERROR INDR 212 K2003896
7B01 4C18 7B07 397 | BZ RPK13 BRANCH IF ERROR 212 K2003898
7B03 74FF 7AC5 398 | MDX L WDCT1,-1 DECREMENT WORD COUNT 212 K2003900
7B05 70F8 399 | MDX RPK12 CONTINUE CHECKING 212 K2003902
7B06 700E 400 | MDX RPK15 FINISHED, NO ERRORS 212 K2003904
7B07 C101 401 | RPK13 LD 1 1 LOAD ERROR 212 K2003905
7B08 6580 7ABF 402 | LDX I1 IDADR POINT TO FIRST WD IN STM212 K2003910
7B0A D102 403 | STO 1 2 STORE ERROR NO IN WD 3TM212 K2003920
7B0B 7402 7ABF 405 | MDX L IDADR,+2 ADVANCE ADRS POINTER 2-11 K2003940
7B0D 74FE 7D52 406 | MDX L NORM,-2 DECREASE NORM 2-11 K2003950
7B0F C0B1 408 | LD KA008 LOAD ERROR ID 2-11 K2003970
7B10 D100 409 | STO 1 0 AND STORE ON STRING 2-11 K2003980
7B11 C0AB 410 | LD LNCNT LOAD AND POSITION 2-11 K2003990
7B12 1007 411 | SLA 7 LINE COUNT FIELD 2-11 K2004000
7B13 E902 412 | OR 1 2 'OR' ERROR NUMBR 2-11 K2004010
7B14 D101 413 | STO 1 1 STORE BACK ON STRING 2-11 K2004020
415 | * 2-11 K2004040
416 | * THIS ROUTINE REMOVES DUMMY ERROR 2-11 K2004050
417 | *** STMNTS AND EQUIV STMNTS FROM THE INPUT 2-11 K2004060
418 | * STRING AND CLOSES UP THE STRING 2-11 K2004070
419 | * 2-11 K2004080
7B15 6580 7ABF 421 | RPK15 LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K2004100
7B17 C0A7 422 | LD IDADR LOAD STMNT ADRS 2-11 K2004110
7B18 830D 423 | A 3 NORM-Z ADD STMNT NORM 2-11 K2004120
7B19 D001 424 | STO *+1 AND SET XR2 2-11 K2004130
7B1A 6600 0000 425 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K2004140
7B1C C400 7A25 427 | LD L EOFS LOAD END OF STRING ADRS2-11 K2004160
7B1E 9400 0002 428 | S L /0002 SUB VALUE IN XR2 2-11 K2004170
7B20 D09D 429 | STO RANGE AND STORE AS RANGE 2-11 K2004180
7B21 7401 7ABE 430 | MDX L RANGE,+1 ADJ RANGE BY ONE 2-11 K2004190
7B23 C200 432 | RPK20 LD 2 0 NEXT WORD TO MOVE 2-11 K2004210
7B24 D100 433 | STO 1 0 TO NEW ADRS 2-11 K2004220
7B25 7101 434 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K2004230
7B26 7201 435 | MDX 2 1 INCREMENT NEW ADRS 2-11 K2004240
7B27 74FF 7ABE 436 | MDX L RANGE,-1 DECREMENT RANGE 2-11 K2004250
7B29 70F9 437 | MDX RPK20 LOOP UNTILL RANGE ZERO 2-11 K2004260
7B2A 6D00 7A25 439 | STX L1 EOFS NEW END OF STRING 2-11 K2004280
7B2C 709C 440 | MDX CONT CONTINUE SCAN 2-11 K2004290
442 | * K2004310
443 | * SEARCH FOR UNREFERENCED STATEMENTS K2004320
444 | * INITIALIZE SYMBOL TABLE POINTER K2004330
445 | * K2004340
7B2D 1000 446 | A1011 NOP 2-11 K2004350
7B2E 4400 7DA5 447 | BSI L BLKPA BLANK PRINT AREA 2-11 K2004360
7B30 C400 7A26 448 | LD L SOFST INITLZ SYMBOL TABLE PT K2004370
7B32 D315 449 | STO 3 STPTR-Z K2004380
7B33 6580 7A26 450 | LDX I1 SOFST INITIALIZE XR1 2-4 K2004390
7B35 9400 7A2A 451 | S L EOFST TEST FOR SYMBOL TBL ENTRIES K2004400
7B37 4C08 7B5C 452 | BSC L E1011,+ BRANCH IF NONE K2004410
453 | * K2004420
7B39 C100 454 | A1012 LD 1 0 LOAD SYM TBL ID WORD K2004430
7B3A E3FF 455 | AND 3 H0200-Z TEST IF STMNT NO K2004440
7B3B 4818 456 | BSC +- SKIP IF STATEMENT NUMBER K2004450
7B3C 7007 457 | MDX A1013 BR IF NOT K2004460
7B3D C100 458 | LD 1 0 K2004470
7B3E E3F9 459 | AND 3 H0020-Z TEST IF REFERENCED K2004480
7B3F 4C20 7B44 460 | BSC L A1013,Z BR IF REFERENCED K2004490
7B41 C101 461 | LD 1 1 LOAD NAME WORD 1 K2004500
462 | * K2004510
463 | * TEST HEADER AND PRINT K2004520
7B42 4420 7D6D 464 | BSI L MNAME,Z BR IF NOT GENERATED LABEL K2004530
465 | * K2004540
7B44 4400 7CD8 466 | A1013 BSI L INCSP INCR SYM TBL POINTER K2004550
7B46 7B39 467 | DC A1012 BR IF NOT END OF SYM TBL K2004560
7B47 436B 468 | BSI 3 HFILL-Z PRINT IF BUFFER HALF FILLED K2004570
469 | * K2004580
470 | * SET HEADER TEST FOR K2004590
471 | * UNDEFINED VARIABLES K2004600
472 | * K2004610
7B48 6600 7CB6 473 | A1021 LDX L2 TEXT6 INITIALIZE TO PRINT PROPER K2004620
7B4A 6E00 7D17 474 | STX L2 HTES1+1 *HEADER. K2004630
7B4C C300 475 | LD 3 ZERO-Z K2004640
7B4D D30B 476 | STO 3 OUTFL-Z SET HEADER INDICATOR K2004650
477 | * K2004660
7B4E 6580 7A26 478 | LDX I1 SOFST INITLZ SYMBOL TABLE PT K2004670
7B50 6D00 7D5A 479 | STX L1 STPTR K2004680
480 | * K2004690
481 | * SEARCH FOR UNDEFINED VARIABLES K2004700
482 | * K2004710
7B52 C100 483 | A1022 LD 1 0 LD SYM TBL ID WORD K2004720
7B53 E3FE 484 | AND 3 HA7FC-Z MASK TO LEAVE DEFINE BITS K2004730
485 | * K2004740
486 | * SKIP IF UNDEFINED VARIABLE K2004750
487 | * K2004760
7B54 4820 488 | BSC Z SKIP IF UNDEFINED K2004770
489 | * K2004780
7B55 7002 490 | MDX A1023 BR IF NOT K2004790
491 | * K2004800
492 | * IF NOT, TEST FOR HEADER K2004810
493 | * MOVE NAME TO PRINT AREA K2004820
494 | * K2004830
7B56 4328 495 | BSI 3 MNAME-Z MOVE NAME TO PRINT AREA K2004840
496 | * K2004850
497 | * INSERT ERRORSWITCH TO PREVENT K2004860
498 | * FINAL OUTPUT K2004870
499 | * K2004880
7B57 4320 500 | BSI 3 ERRSW-Z SET ERROR SWITCH K2004890
501 | * K2004900
7B58 4400 7CD8 502 | A1023 BSI L INCSP INCR SYM TBL POINTER K2004910
7B5A 7B52 503 | DC A1022 BR IF NOT END OF SYM TBL K2004920
7B5B 436B 504 | BSI 3 HFILL-Z PRINT IF BUFFER HALF FILLED K2004930
505 | * K2004940
506 | * SEARCH FOR ERROR-STATEMENTS ON STRING K2004950
507 | * K2004960
7B5C 508 | E1011 EQU * 2-11 K2004970
509 | * K2004980
510 | * SET HEADER FOR K2004990
511 | * .INVALID STATEMENTS. K2005000
512 | * K2005010
7B5C 6600 7CC1 513 | LDX L2 TEXT7 INITIALIZE TO PRINT PROPER K2005020
7B5E 6E00 7D17 514 | STX L2 HTES1+1 *HEADER. K2005030
515 | * K2005040
516 | * INITIALIZATION FOR SCAN OF STRING K2005050
517 | * K2005060
7B60 C400 7A24 518 | LD L SOFS LOAD AND STORE 2-11 K2005070
7B62 D400 7ABF 519 | STO L IDADR STARTING ADRS 2-11 K2005080
7B64 6580 7ABF 520 | LDX I1 IDADR SET INPUT POINTER 2-11 K2005090
521 | * K2005100
7B66 C300 522 | LD 3 ZERO-Z ZERO OUT K2005110
7B67 D305 523 | STO 3 STLAB-Z *STORED LABEL, K2005120
7B68 D306 524 | STO 3 STCNT-Z *STORED COUNT, K2005130
7B69 D30B 525 | STO 3 OUTFL-Z *AND HEADER FLAG K2005140
526 | * K2005150
527 | * PROCESS ONE STATEMENT IN SEARCH FOR K2005160
528 | * ERROR STATEMENTS K2005170
529 | * K2005180
7B6A 1000 530 | E1021 NOP 2-11 K2005190
7B6B C100 531 | LD 1 0 LOAD STMNT ID WORD 2-11 K2005200
7B6C E30E 532 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2005210
7B6D D30C 533 | STO 3 STSID-Z SAVE ID 2-11 K2005220
7B6E C100 534 | LD 1 0 LOAD STMNT ID WORD 2-11 K2005230
7B6F E30F 535 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2005240
7B70 1802 536 | SRA 2 RE-ALIGN NORM 2-11 K2005250
7B71 D30D 537 | STO 3 NORM-Z SAVE NORM 2-11 K2005260
7B72 C300 539 | LD 3 ZERO-Z SET OFF STMNT 2-11 K2005280
7B73 D307 540 | STO 3 LBLSW-Z LABLE SW 2-11 K2005290
7B74 C100 542 | LD 1 0 K2005310
7B75 4804 543 | BSC E SKIP IF STMT HAS NO LABEL K2005320
7B76 7001 544 | MDX E1022 BR IF IT HAS LABEL K2005330
7B77 700C 545 | MDX E1024 BR IF NO LABEL K2005340
546 | * K2005350
547 | * IGNORE STATEMENT NUMBER K2005360
548 | * IF IT IS GENERATED BY THE K2005370
549 | * COMPILER (HAS NAME = 0) K2005380
550 | * K2005390
7B78 C101 551 | E1022 LD 1 1 GET NAME FR SYMBOL TABLE K2005400
7B79 43D4 552 | BSI 3 GNAME-Z * K2005410
7B7A C3ED 553 | LD 3 NAME-Z * K2005420
7B7B 4C18 7B83 554 | BSC L E1023,+- BR IF NAME = 0 K2005430
555 | * K2005440
556 | * STORE STATEMENT NUMBER K2005450
557 | * AND INITIALIZE REFERENCE COUNT TO K2005460
558 | * THAT STATEMENT K2005470
559 | * K2005480
7B7D C101 560 | LD 1 1 SAVE STMNT NUMBER K2005490
7B7E D305 561 | STO 3 STLAB-Z K2005500
7B7F C300 562 | LD 3 ZERO-Z ZERO TO STORED COUNT K2005510
7B80 D306 563 | STO 3 STCNT-Z K2005520
7B81 6C00 7D4C 564 | STX L LBLSW SET LABLE SW ON 2-11 K2005530
7B83 7101 566 | E1023 MDX 1 1 INCREMENT STRING POINTERS K2005550
7B84 C30C 568 | E1024 LD 3 STSID-Z LOAD STMNT ID 2-11 K2005570
7B85 9311 569 | S 3 ENDID-Z CHK FOR END 2-11 K2005580
7B86 4C18 7BE3 570 | BSC L E2011,+- BRCH IF END 2-11 K2005590
7B88 C30C 572 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2005610
7B89 9317 573 | S 3 HD800-Z CHK FOR IOCS CALL 2-11 K2005620
7B8A 4C18 7BA3 574 | BSC L E1038,+- BRCH IF IOCS CALL 2-11 K2005630
7B8C C30C 576 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2005650
7B8D 9319 577 | S 3 HC000-Z CHK FOR DO TEST 2-11 K2005660
7B8E 4C18 7BA3 578 | BSC L E1038,+- BRCH IF DO TEST 2-11 K2005670
7B90 C307 580 | LD 3 LBLSW-Z LOAD LABLE SW 2-11 K2005690
7B91 4C20 7B95 581 | BSC L E1028,Z BRCH IF SET 2-11 K2005700
7B93 7401 7D4B 583 | MDX L STCNT,+1 INCREMENT STMNT COUNT 2-11 K2005720
7B95 C30C 585 | E1028 LD 3 STSID-Z LOAD STMNT ID 2-11 K2005740
7B96 9310 586 | S 3 ERRID-Z CHK FOR ERROR 2-11 K2005750
7B97 4C20 7BA3 587 | BSC L E1038,Z BRCH IF NOT ERROR 2-11 K2005760
7B99 10A0 589 | E1030 SLT 32 CLEAR ACCM/EXT 2-11 K2005780
7B9A C101 590 | LD 1 1 LOAD ERROR CODE 2-11 K2005790
7B9B 18C7 591 | RTE 7 SAVE ERRNO IN EXT 2-11 K2005800
7B9C 4C18 7BA0 592 | BSC L E1031,+- BRCH IF NO LNCNT 2-11 K2005810
7B9E D306 593 | STO 3 STCNT-Z STORE LNCNT 2-11 K2005820
7B9F 1010 594 | SLA 16 CLEAR ACCM 2-11 K2005830
7BA0 1087 596 | E1031 SLT 7 RESTORE ERRNO 2-11 K2005850
7BA1 D308 597 | STO 3 ERRNO-Z AND SAVE 2-11 K2005860
7BA2 7009 598 | MDX E1051 GO PRINT ERROR 2-11 K2005870
7BA3 C400 7ABF 600 | E1038 LD L IDADR LOAD STMNT ADRS 2-11 K2005890
7BA5 830D 601 | A 3 NORM-Z ADD NORM 2-11 K2005900
7BA6 D400 7ABF 602 | STO L IDADR SET XR1 TO 2-11 K2005910
7BA8 6580 7ABF 603 | LDX I1 IDADR NEXT STMNT ADRS 2-11 K2005920
7BAA 4C00 7B6A 604 | BSC L E1021 CONTINUE SCAN 2-11 K2005930
606 | * K2005950
607 | * SET ERRORSWITCH TO PREVENT K2005960
608 | * FINAL OUTPUT K2005970
609 | * K2005980
7BAC C302 610 | E1051 LD 3 TWO-Z K2005990
7BAD 4320 611 | BSI 3 ERRSW-Z SET ERROR SWITCH ON K2006000
612 | * K2006010
613 | * TEST IF HEADER IS PRINTED K2006020
614 | * K2006030
7BAE 43BF 615 | BSI 3 HTEST-Z PRINT HEADER IF FIRST TIME K2006040
616 | * K2006050
617 | * MOVE ERROR MESSAGE TO PRINT AREA K2006060
618 | * K2006070
7BAF 435A 619 | BSI 3 TOPAB-Z OUTPUT BLANK K2006080
7BB0 C31D 620 | LD 3 C-Z K2006090
7BB1 4346 621 | BSI 3 TOPAU-Z OUTPUT C K2006100
622 | * K2006110
623 | * ERROR TYPE TO PRINT AREA K2006120
624 | * K2006130
7BB2 C308 625 | LD 3 ERRNO-Z LOAD ERROR NUMBR 2-11 K2006140
7BB3 43AB 626 | BSI 3 CON3D-Z GO OUTPUT AS 3 DECML DIGITS K2006150
7BB4 74FD 7D3F 627 | MDX L PAP,-3 BACK UP PRINT AREA POINTER K2006160
7BB6 435A 628 | BSI 3 TOPAB-Z BLANK OUT LEADING ZERO K2006170
7BB7 C305 629 | E1052 LD 3 STLAB-Z LOAD STORED LABEL K2006180
7BB8 4820 630 | BSC Z SKIP IF STORED LABEL IS ZERO K2006190
7BB9 7003 631 | MDX E1061 BR IF NOT K2006200
632 | * K2006210
633 | * EBC ZEROS TO K2006220
634 | * LABEL SPACE IN PRINT AREA K2006230
635 | * K2006240
7BBA CB13 636 | LDD 3 FZERO-Z FIVE ZEROS K2006250
7BBB DBED 637 | STD 3 NAME-Z ZERO OUT NAME K2006260
7BBC 7001 638 | MDX E1061+1 GO OUTPUT BLANK NAME K2006270
639 | * K2006280
640 | * LAST ENCOUNTERED STATEMENT NUMBER K2006290
641 | * TO PRINT AREA K2006300
642 | * K2006310
7BBD 43D4 643 | E1061 BSI 3 GNAME-Z PUT LAST STMNT NO. IN NAME K2006320
7BBE 6906 644 | STX 1 STXR1+1 SAVE I/P STRING POINTER K2006330
7BBF 6500 7D31 645 | LDX L1 NAME-1 SET POINTER TO NAME-1 K2006340
7BC1 C31A 646 | LD 3 PAR31-Z K2006350
7BC2 D3FA 647 | STO 3 PAP-Z SET PRNT AREA PT TO 31 POS K2006360
7BC3 4328 648 | BSI 3 MNAME-Z LAST STMNT NO. TO PRNT AREA K2006370
7BC4 6500 0000 649 | STXR1 LDX L1 *-* RESTORE I/P STRING POINTER K2006380
7BC6 C306 650 | LD 3 STCNT-Z LOAD REFERENCE COUNT K2006390
7BC7 4C18 7BD0 651 | BSC L E1073,+- BR IF REFERENCE COUNT ZERO K2006400
652 | * K2006410
653 | * STATEMENT NUMBER REFERENCE COUNT K2006420
654 | * TO PRINT AREA K2006430
655 | * K2006440
7BC9 74FE 7D3F 656 | MDX L PAP,-2 DECR PRINT AREA PT BY 2 K2006450
7BCB C31C 657 | LD 3 PLUS-Z K2006460
7BCC 4346 658 | BSI 3 TOPAU-Z OUTPUT & K2006470
7BCD C306 659 | LD 3 STCNT-Z K2006480
7BCE 4400 7CF0 660 | BSI L CON3D OUTPUT REFERENCE COUNT K2006490
7BD0 6200 661 | E1073 LDX 2 0 K2006500
7BD1 63F3 662 | LDX 3 -13 SET TO OUTPUT 26 CHARS K2006510
7BD2 C700 7CD8 663 | LOOPP LD L3 TEXT8+13 'ERROR AT STATEMENT NUMBER' K2006520
7BD4 1888 664 | SRT 8 K2006530
7BD5 1008 665 | SLA 8 K2006540
7BD6 D600 7A3E 666 | STO L2 PAREA+5 OUTPUT LEFT CHARACTER K2006550
7BD8 1090 667 | SLT 16 K2006560
7BD9 D600 7A3F 668 | STO L2 PAREA+6 OUTPUT RIGHT CHARACTER K2006570
7BDB 7202 669 | MDX 2 2 K2006580
7BDC 7301 670 | MDX 3 1 SKIP WHEN MSG COMPLETE K2006590
7BDD 70F4 671 | MDX LOOPP LOOP UNTIL ALL OUTPUT K2006600
7BDE 6700 7D45 672 | LDX L3 Z K2006610
7BE0 436B 673 | BSI 3 HFILL-Z PRINT ERROR MESSAGE K2006620
7BE1 4C00 7BA3 675 | E1082 BSC L E1038 PROCESS NEXT STMNT 2-11 K2006640
7BE3 1000 677 | E2011 NOP 2-11 K2006660
678 | * K2006670
679 | * TEST IF OVERLAP ERROR K2006680
680 | * K2006690
7BE4 C400 7A2D 681 | LD L ERROR LOAD ERROR SW FROM FCOM K2006700
7BE6 4C04 7BF1 682 | BSC L E2020,E BR IF OVERLAP ERROR K2006710
7BE8 7011 683 | MDX E2021 BR IF NOT K2006720
7BE9 100B 685 | E2015 SLA 11 IS IT ERROR 85 2-4 K2006740
7BEA 4C10 7DC6 686 | BSC L EXIT,- NO - EXIT 2-4 K2006750
7BEC 4400 7DA5 687 | BSI L BLKPA YES - SET UP TO 2-4 K2006760
7BEE 6600 7C9B 688 | LDX L2 TEXT4 PRINT ERROR 85 2-4 K2006770
7BF0 7004 689 | MDX E2022 MESSAGE 2-4 K2006780
690 | * K2006790
691 | * PRINT OVERLAP ERROR MESSAGE K2006800
692 | * K2006810
7BF1 4400 7DA5 693 | E2020 BSI L BLKPA BLANK PRINT AREA K2006820
7BF3 6600 7C87 694 | LDX L2 TEXT3 SET UP OVERLAP MESSAGE K2006830
7BF5 6E00 7D17 695 | E2022 STX L2 HTES1+1 K2006840
7BF7 C300 696 | LD 3 ZERO-Z FORCE MESSAGE OUTPUT K2006850
7BF8 D30B 697 | STO 3 OUTFL-Z K2006860
7BF9 43BF 698 | BSI 3 HTEST-Z PRINT OVERLAP MESSAGE K2006870
699 | * K2006880
700 | * TEST IF OUTPUT SUPPRESSED K2006890
701 | * K2006900
7BFA C400 7A2D 702 | E2021 LD L ERROR LOAD ERROR SW FROM FCOM K2006910
7BFC 4C18 7C00 703 | BSC L R1011,+- BRANCH IF NO ERRORS K2006920
704 | * K2006930
7BFE 4C00 7DC6 705 | BSC L EXIT EXIT TO NEXT PHASE K2006940
706 | ************************************************** K2006950
708 | * REARRANGE THE STRING BY PLACING K2006970
709 | * FORMAT-STATEMENTS AND ARITH K2006980
710 | * STMT-FUNCTION-STATEMENTS IN THE K2006990
711 | * LOW-ADDRESS END OF THE STRING K2007000
712 | * K2007010
713 | ************************************************** K2007020
7C00 C400 7A24 714 | R1011 LD L SOFS K2007030
7C02 D3F3 715 | STO 3 PTR-Z INITIALIZE POINTER K2007040
7C03 C480 7D38 716 | LD I PTR K2007050
7C05 E309 717 | AND 3 HF800-Z EXTRACT ID K2007060
7C06 D30C 718 | STO 3 STSID-Z SAVE ID K2007070
7C07 C300 719 | LD 3 ZERO-Z SET PASS SWITCH FOR K2007080
7C08 D06B 720 | STO SWITC *FIRST PASS K2007090
721 | * K2007100
7C09 C30C 722 | R1012 LD 3 STSID-Z TEST FOR END STATEMENT K2007110
7C0A 9311 723 | S 3 ENDID-Z K2007120
7C0B 4C18 7C67 724 | BSC L D1099,+- BR IF END-STATEMENT K2007130
7C0D C066 725 | LD SWITC LOAD PASS SWITCH K2007140
7C0E 4C18 7C19 726 | BSC L D1015,+- BR IF FIRST PASS K2007150
727 | * K2007160
728 | * SECOND PASS K2007170
729 | * K2007180
730 | * TEST IF FORMAT OR ARITH-STMT-FUNCT K2007190
731 | * K2007200
7C10 C30C 732 | LD 3 STSID-Z TEST FOR FORMAT STATEMENT K2007210
7C11 9054 733 | S FORMT K2007220
7C12 4C18 7C28 734 | BSC L R1013,+- BR IF FORMAT K2007230
7C14 C30C 735 | LD 3 STSID-Z TEST FOR ARITH STMNT FUNC K2007240
7C15 9316 736 | S 3 HD000-Z K2007250
7C16 4C18 7C28 737 | BSC L R1013,+- BR IF ARITH STMNT FUNC K2007260
738 | * K2007270
739 | * NOT IN CARD SYSTEM K2007280
740 | * K2007290
7C18 7011 741 | MDX R1021 GO TEST IF END STMNT K2007300
742 | * K2007310
743 | * FIRST PASS K2007320
744 | * K2007330
7C19 C30C 745 | D1015 LD 3 STSID-Z TEST FOR DEFINE FILE STMNT K2007340
7C1A 9057 746 | S DFILE K2007350
7C1B 4C18 7C28 747 | BSC L R1013,+- BR IF DEFINE FILE K2007360
7C1D 9055 748 | S DATA TEST FOR DATA STMNT K2007370
7C1E 4C18 7C28 749 | BSC L R1013,+- BR IF DATA STMNT K2007380
750 | * K2007390
751 | * IF SUBPROGRAM, ALSO DISREGARD K2007400
752 | * LOADER-OVERLAY STATEMENTS K2007410
753 | * K2007420
7C20 C30C 754 | LD 3 STSID-Z LOAD STORED ID K2007430
7C21 9317 755 | S 3 HD800-Z TEST FOR INTERVAL O/P FMT K2007440
7C22 4820 756 | BSC Z SKIP IF POSSIBLE LDR STMNT K2007450
7C23 7006 757 | MDX R1021 BR IF NOT K2007460
7C24 C400 7A30 758 | LD L SORF TEST IF SUBR OR FUNCTION K2007470
7C26 4818 759 | BSC +- SKIP IF SUBPROGRAM K2007480
7C27 7002 760 | MDX R1021 BR IF NOT K2007490
761 | * K2007500
7C28 404C 762 | R1013 BSI MOVP MOVE POINTER TO NEXT STMT K2007510
7C29 70DF 763 | MDX R1012 GO CHECK IF END STATEMENT K2007520
764 | * K2007530
7C2A C3F3 765 | R1021 LD 3 PTR-Z LOAD POINTER K2007540
7C2B D3F2 766 | STO 3 RALO-Z INSERT REARRANGEMENT AREA K2007550
767 | * LOW ADDRESS K2007560
7C2C 4048 768 | R1022 BSI MOVP MOVE POINTER TO NEXT STMNT K2007570
7C2D 9311 769 | S 3 ENDID-Z TEST IF END STATEMENT K2007580
7C2E 4C18 7C67 770 | BSC L D1099,+- BR IF END-STATEMENT K2007590
771 | * K2007600
772 | * NOT IN CARD SYSTEM K2007610
773 | * K2007620
7C30 C043 774 | LD SWITC TEST PASS SWITCH K2007630
7C31 4C20 7C3B 775 | BSC L D1026,Z BR IF SECOND PASS K2007640
776 | * K2007650
777 | * FIRST PASS K2007660
778 | * K2007670
7C33 C30C 779 | D1025 LD 3 STSID-Z TEST,FIRST PASS K2007680
7C34 903D 780 | S DFILE TEST IF DEFINE FILE STMNT K2007690
7C35 4C18 7C44 781 | BSC L R1023,+- BR IF DEFINE FILE K2007700
7C37 903B 782 | S DATA TEST IF DATA STATEMENT K2007710
7C38 4C18 7C44 783 | BSC L R1023,+- BR IF DATA STATEMENT K2007720
7C3A 70F1 784 | MDX R1022 GO MOVE TO NEXT STATEMENT K2007730
785 | * K2007740
786 | * SECOND PASS K2007750
787 | * K2007760
7C3B 1000 788 | D1026 SLA 0 TEST, SECOND PASS K2007770
789 | * K2007780
7C3C C30C 790 | LD 3 STSID-Z K2007790
7C3D 9028 791 | S FORMT TEST IF FORMAT STATEMENT K2007800
7C3E 4C18 7C44 792 | BSC L R1023,+- BR IF FORMAT STATEMENT K2007810
7C40 C30C 793 | LD 3 STSID-Z K2007820
7C41 9316 794 | S 3 HD000-Z TEST IF ARITH STMNT FUNCT K2007830
7C42 4C20 7C2C 795 | BSC L R1022,Z BR IF NOT ARITH STMNT FUNCT K2007840
796 | * K2007850
797 | * FORMAT OR ARITH STMT FUNCT K2007860
798 | * ENCOUNTERED, PREPARE REARRANGEMENT K2007870
799 | * K2007880
7C44 C30D 800 | R1023 LD 3 NORM-Z INSERT ROTATE COUNT K2007890
7C45 D00C 801 | STO R1031+1 K2007900
7C46 83F3 802 | A 3 PTR-Z INSERT REARR-AREA HIGH ADR+1 K2007910
7C47 D011 803 | STO R1034+1 K2007920
7C48 D013 804 | STO R1035+1 K2007930
7C49 9301 805 | S 3 ONE-Z INSERT REARR-AREA HIGH ADDR K2007940
7C4A D00B 806 | STO R1033+1 K2007950
7C4B 8301 807 | A 3 ONE-Z K2007960
7C4C 93F2 808 | S 3 RALO-Z INSERT REARR-AREA LENGTH K2007970
7C4D D006 809 | STO R1032+1 (NEGATIVE) K2007980
7C4E C300 810 | LD 3 0 K2007990
7C4F 9004 811 | S R1032+1 SET LENGTH POSITIVE K2008000
7C50 D003 812 | STO R1032+1 K2008010
813 | * K2008020
814 | * ROTATE REARRANGEMENT AREA K2008030
815 | * K2008040
7C51 6600 0000 816 | R1031 LDX L2 *-* INITIALIZE ROTATE COUNT K2008050
7C53 6500 0000 817 | R1032 LDX L1 *-* INITIALIZE .ROTATE ONE. K2008060
818 | * K2008070
819 | * ROTATE REARR AREA BY ONE WORD K2008080
820 | * K2008090
7C55 C400 0000 821 | R1033 LD L *-* REARR AREA HIGH ADDR K2008100
7C57 18D0 822 | RTE 16 K2008110
7C58 C500 0000 823 | R1034 LD L1 *-* REARR AREA HIGH ADDR + 1 K2008120
7C5A 18D0 824 | RTE 16 K2008130
7C5B D500 0000 825 | R1035 STO L1 *-* REARR AREA HIGH ADDR + 1 K2008140
7C5D 7101 826 | MDX 1 1 K2008150
7C5E 70F9 827 | MDX R1034 BR IF .ROTATE ONE. NOT COMPL K2008160
828 | * K2008170
7C5F 72FF 829 | MDX 2 -1 ROTATE COUNT K2008180
7C60 70F2 830 | MDX R1032 IF NOT ZERO, BR TO .ROTATE K2008190
831 | * ONE. K2008200
832 | * K2008210
833 | * ROTATE COMPLETED K2008220
834 | * K2008230
7C61 C3F2 835 | LD 3 RALO-Z INCR REARR AREA LOW ADDR K2008240
7C62 830D 836 | A 3 NORM-Z BY LENGTH OF FORMAT STMT K2008250
7C63 D3F2 837 | STO 3 RALO-Z K2008260
7C64 D3F3 838 | STO 3 PTR-Z REARR-AREA LOW ADDR TO PTR K2008270
7C65 70C6 839 | MDX R1022 GO MOVE TO NEXT STATEMENT K2008280
840 | * K2008290
7C66 6000 841 | FORMT DC /6000 CONSTANT K2008300
842 | * K2008310
843 | * NOT IN CARD SYSTEM K2008320
844 | * K2008330
7C67 C00C 845 | D1099 LD SWITC LOAD PASS SWITCH K2008340
7C68 4C20 7DC6 846 | BSC L EXIT,Z BR IF SECOND PASS K2008350
7C6A 7401 7C74 847 | MDX L SWITC,1 CHANGE PASS SWITCH K2008360
7C6C C3F2 848 | LD 3 RALO-Z REARRANGEMENT AREA LOW K2008370
7C6D D3F3 849 | STO 3 PTR-Z *ADDRESS TO POINTER K2008380
7C6E C002 850 | LD LINK SET LINK ADDR IN SUBROUTINE K2008390
7C6F D005 851 | STO MOVP K2008400
7C70 700B 852 | MDX MOVP1 BR TO SUBR K2008410
853 | * K2008420
7C71 7C09 854 | LINK DC R1012 CONSTANT K2008430
7C72 F000 855 | DFILE DC /F000 STMT ID DEFINE FILE K2008440
7C73 0800 856 | DATA DC /F800-/F000 CONSTANT K2008450
7C74 0000 857 | SWITC DC 0 PASS SWITCH K2008460
858 | * K2008470
859 | * MOVE POINTER TO NEXT STATEMENT K2008480
860 | * STORE STATEMENT-ID AND NORM K2008490
861 | * STATEMENT-ID TO A-REGISTER K2008500
862 | * K2008510
7C75 0000 863 | MOVP DC 0 LINK K2008520
7C76 C480 7D38 864 | LD I PTR GET ID WORD THIS STATEMENT K2008530
7C78 E3F1 865 | AND 3 H07FC-Z EXTRACT NORM K2008540
7C79 1802 866 | SRA 2 RIGHT JUSTIFY K2008550
7C7A 83F3 867 | A 3 PTR-Z ADVANCE PT TO NEXT STMNT K2008560
7C7B D3F3 868 | STO 3 PTR-Z K2008570
7C7C C480 7D38 869 | MOVP1 LD I PTR GET ID WORD NEXT STATEMENT K2008580
7C7E E3F1 870 | AND 3 H07FC-Z EXTRACT AND STORE NORM K2008590
7C7F 1802 871 | SRA 2 K2008600
7C80 D30D 872 | STO 3 NORM-Z K2008610
7C81 C480 7D38 873 | LD I PTR K2008620
7C83 E309 874 | AND 3 HF800-Z EXTRACT AND STORE ID K2008630
7C84 D30C 875 | STO 3 STSID-Z K2008640
7C85 4C80 7C75 876 | BSC I MOVP RETURN K2008650
877 | * K2008660
7C87 0013 878 | TEXT3 DC 19 WORD COUNT 2-4 K2008670
7C88 40C3 40F9 F740 D7D9 879 | EBC . C 97 PROGRAM LENGTH EXCEEDS. 2-4 K2008680
D6C7 D9C1 D440 D3C5 |
D5C7 E3C8 40C5 E7C3 |
C5C5 C4E2 |
7C96 40C3 C1D7 C1C3 C9E3 880 | EBC . CAPACITY . 2-4 K2008690
E840 |
7C9B 000D 881 | TEXT4 DC 13 WORD COUNT 2-4 K2008700
7C9C 40C3 40F8 F540 D6D9 882 | EBC . C 85 ORIGIN IN SUBPROGRAM. 2-4 K2008710
C9C7 C9D5 40C9 D540 |
E2E4 C2D7 D9D6 C7D9 |
C1D4 |
7CA9 000C 883 | TEXT5 DC 12 WORD COUNT K2008720
7CAA E4D5 D9C5 C6C5 D9C5 884 | EBC .UNREFERENCED STATEMENTS . K2008730
D5C3 C5C4 40E2 E3C1 |
E3C5 D4C5 D5E3 E240 |
7CB6 000A 885 | TEXT6 DC 10 WORD COUNT K2008740
7CB7 E4D5 C4C5 C6C9 D5C5 886 | EBC .UNDEFINED VARIABLES . K2008750
C440 E5C1 D9C9 C1C2 |
D3C5 E240 |
7CC1 0009 887 | TEXT7 DC 9 WORD COUNT K2008760
7CC2 C9D5 E5C1 D3C9 C440 888 | EBC .INVALID STATEMENTS. K2008770
E2E3 C1E3 C5D4 C5D5 |
E3E2 |
7CCB 40C5 D9D9 D6D9 40C1 889 | TEXT8 EBC . ERROR AT STATEMENT NUMBER. K2008780
E340 E2E3 C1E3 C5D4 |
C5D5 E340 D5E4 D4C2 |
C5D9 |
890 | * K2008790
891 | * SUBROUTINE K2008800
892 | * INCREMENT SYMBOL TABLE POINTER K2008810
893 | * K2008820
7CD8 0000 894 | INCSP DC 0 LINK K2008830
7CD9 C480 7D5A 895 | LD I STPTR GET ID WD IN SYMBOL TABLE K2008840
7CDB E3FC 896 | AND 3 H1800-Z EXTRACT DIMENSION BITS K2008850
7CDC 4820 897 | BSC Z SKIP IF NOT DIMENSIONED K2008860
7CDD C3F7 898 | LD 3 HFFFD-Z MINUS THREE K2008870
7CDE 83F7 899 | A 3 HFFFD-Z K2008880
7CDF 8315 900 | A 3 STPTR-Z POSITION SYMBOL TB POINTER K2008890
7CE0 D315 901 | STO 3 STPTR-Z *PAST DIMENSIONED VARIABLE K2008900
7CE1 9400 7A2A 902 | S L EOFST TEST FOR END OF SYMBOL TBL K2008910
7CE3 4C08 7CEC 903 | BSC L INCS2,+ BR IF END OF SYMBOL TABLE K2008920
7CE5 C480 7CD8 904 | LD I INCSP IF NOT,RETURN TO ADDRESS K2008930
905 | * *SPECIFIED IN LINK K2008940
7CE7 D003 906 | STO INCS1+1 K2008950
7CE8 6580 7D5A 907 | LDX I1 STPTR POINTER TO X1 K2008960
7CEA 4C00 0000 908 | INCS1 BSC L *-* RETURN K2008970
7CEC 7401 7CD8 909 | INCS2 MDX L INCSP,1 IF END OF SYMT,RETURN TO K2008980
910 | * ADDR = LINK + 1 K2008990
7CEE 4C80 7CD8 911 | BSC I INCSP RETURN K2009000
912 | * K2009010
913 | * SUBROUTINE K2009020
914 | * CONVERT BINARY VALUE TO K2009030
915 | * THREE DECIMAL DIGITS K2009040
916 | * K2009050
7CF0 0000 917 | CON3D DC 0 LINK K2009060
7CF1 1890 918 | SRT 16 SHIFT ARGUMENT TO EXTENSION K2009070
7CF2 ABF5 919 | D 3 C100-Z FGET FIRST DIGIT K2009080
7CF3 4007 920 | BSI GOSTO STORE FIRST DIGIT K2009090
7CF4 C300 921 | LD 3 Z-Z K2009100
7CF5 ABF4 922 | D 3 C10-Z GET SECOND DIGIT K2009110
7CF6 4004 923 | BSI GOSTO STORE SECOND DIGIT K2009120
7CF7 1090 924 | SLT 16 GET THIRD DIGIT K2009130
7CF8 4002 925 | BSI GOSTO STORE THIRD DIGIT K2009140
7CF9 4C80 7CF0 926 | BSC I CON3D RETURN K2009150
7CFB 0000 927 | GOSTO DC 0 LINK K2009160
7CFC 1008 928 | SLA 8 LEFT JUSTIFY DIGIT K2009170
7CFD EB0A 929 | OR 3 HF000-Z CONVERT TO EBC K2009180
7CFE D480 7D3F 930 | STO I PAP STORE INTO PRINT AREA K2009190
7D00 7401 7D3F 931 | MDX L PAP,1 INCREMENT PR AREA POINTER K2009200
7D02 4C80 7CFB 932 | BSC I GOSTO RETURN K2009210
933 | * K2009220
934 | * SUBROUTINE K2009230
935 | * HEADER TEST K2009240
936 | * PRINTS HEADER TO ERROR K2009250
937 | * MESSAGES IF FIRST MESSAGE K2009260
938 | * K2009270
7D04 0000 939 | HTEST DC 0 LINK K2009280
7D05 C30B 940 | LD 3 OUTFL-Z LOAD HEADER PRINTED SW K2009290
7D06 4C20 7D14 941 | BSC L HTES3,Z BR IF HEADER NOT REQUIRED K2009300
7D08 7401 7D50 942 | MDX L OUTFL,1 SET SWITCH TO PREVENT K2009310
943 | * ADDITIONAL HEADERS K2009320
7D0A C00D 944 | LD HTES2 LOAD LINE SPACE PARAMETER K2009330
7D0B 4400 7E45 945 | BSI L LSTPR SPACE PRINTER ONE SPACE K2009340
946 | * K2009350
7D0D C480 0006 947 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2009360
7D0F 44A0 7E0C 948 | BSI I NEWPG,Z EJECT PAGE IF SET K2009370
949 | * K2009380
7D11 C804 950 | LDD HTES1 LOAD PRINT PARAMETERS K2009390
7D12 4400 7E45 951 | BSI L LSTPR CO PRINT SECTION HEADER K2009400
952 | * K2009410
7D14 4C80 7D04 953 | HTES3 BSC I HTEST RETURN K2009420
954 | * K2009430
7D16 955 | BSS E 0 K2009440
7D16 7001 956 | HTES1 DC /7001 PRINT PARAMETER K2009450
7D17 0000 957 | DC *-* SECTION HEADER ADDRESS K2009460
958 | * K2009470
7D18 7002 959 | HTES2 DC /7002 SPACE PRINTER PARAMETER K2009480
960 | * K2009490
961 | * GET SYM.T. NAME OF LABEL K2009500
962 | * K2009510
7D19 0000 963 | GNAME DC 0 LINK K2009520
7D1A E019 964 | AND GNAM3 EXTRACT DISPLACEMENT K2009530
7D1B D00F 965 | STO GNAM1+1 SAVE K2009540
7D1C C400 7A26 966 | LD L SOFST LOAD START OF SYMBOL TB ADDR K2009550
7D1E 900C 967 | S GNAM1+1 COMPUTE SYMBOL TBL ENT ADDR K2009560
7D1F 900B 968 | S GNAM1+1 * K2009570
7D20 900A 969 | S GNAM1+1 * K2009580
7D21 8303 970 | A 3 THREE-Z * K2009590
7D22 D005 971 | STO GNAM0+1 STORE ID WORD ADDRESS K2009600
7D23 8301 972 | A 3 ONE-Z K2009610
7D24 D006 973 | STO GNAM1+1 STORE FIRST NAME WORD ADDR K2009620
7D25 8301 974 | A 3 ONE-Z K2009630
7D26 D007 975 | STO GNAM2+1 STORE SECOND NAME WORD ADDR K2009640
7D27 C400 0000 976 | GNAM0 LD L *-* LOAD ID WORD K2009650
7D29 D00B 977 | STO GNAM4 STORE ID WORD K2009660
7D2A C400 0000 978 | GNAM1 LD L *-* LOAD FIRST NAME WORD K2009670
7D2C D005 979 | STO NAME STORE FIRST NAME WORD K2009680
7D2D C400 0000 980 | GNAM2 LD L *-* LOAD SECOND NAME WORD K2009690
7D2F D003 981 | STO NAME+1 STORE SECOND NAME WORD K2009700
7D30 4C80 7D19 982 | BSC I GNAME RETURN K2009710
7D32 0000 0000 983 | NAME DEC 0 2 WORD STORAGE FOR NAME K2009720
7D34 07FF 984 | GNAM3 DC /07FF CONSTANT K2009730
7D35 0000 985 | GNAM4 DC 0 SYMBOL TABLE ID WORD K2009740
986 | * K2009750
7D36 07FC 987 | H07FC DC /07FC CONSTANT K2009760
7D37 0000 988 | RALO DC 0 REARR AREA LOW ADDR K2009770
7D38 0000 989 | PTR DC 0 POINTER K2009780
990 | * K2009790
991 | * K2009800
7D39 000A 992 | C10 DC 10 CONSTANT K2009810
7D3A 0064 993 | C100 DC 100 CONSTANT K2009820
7D3B 0078 994 | C120 DC 120 CONSTANT K2009830
7D3C FFFD 995 | HFFFD DC /FFFD CONSTANT K2009840
7D3D 0008 996 | H0008 DC /0008 CONSTANT K2009850
7D3E 0020 997 | H0020 DC /0020 CONSTANT K2009860
7D3F 7A39 998 | PAP DC PAREA PRINT AREA POINTER K2009870
7D40 7A39 999 | PAPIN DC PAREA INIT VALUE OF PAP K2009880
7D41 1800 1000 | H1800 DC /1800 CONSTANT K2009890
7D42 0000 1001 | STOOI DC 0 STORED OUTPUT INDEX K2009900
7D43 A7FC 1002 | HA7FC DC /A7FC CONSTANT K2009910
7D44 0200 1003 | H0200 DC /0200 CONSTANT K2009920
7D45 0000 1004 | ZERO DC 0 CONSTANT K2009930
7D45 1005 | Z EQU ZERO TRANSFER VECTOR PT ADDR K2009940
7D46 0001 1006 | ONE DC /0001 CONSTANT K2009950
7D47 0002 1007 | TWO DC /0002 CONSTANT K2009960
7D48 0003 1008 | THREE DC /0003 CONSTANT K2009970
7D49 0004 1009 | FOUR DC /0004 CONSTANT K2009980
7D4A 0000 1010 | STLAB DC 0 STORED LABEL K2009990
7D4B 0000 1011 | STCNT DC 0 STORED COUNT K2010000
1012 | * (NUMBER OF STATEMENTS K2010010
1013 | * FROM LAST LABEL) K2010020
7D4C 0000 1014 | LBLSW DC 0 LABLE SW 2-11 K2010030
7D4D 0000 1015 | ERRNO DC 0 ERROR NUMBR STG 2-11 K2010040
7D4E F800 1016 | HF800 DC /F800 DATA CONSTANT 2-11 K2010050
7D4F F000 1017 | HF000 DC /F000 DEFINE FILE CONST 2-11 K2010060
7D50 0000 1018 | OUTFL DC 0 OUTPUT FLAG K2010070
7D51 0000 1019 | STSID DC 0 STORED STMNT-ID K2010080
7D52 0000 1020 | NORM DC 0 STORED NORM K2010090
7D53 F800 1021 | IDMSK DC /F800 MASK FOR EXTR STMNT-ID K2010100
7D54 07FC 1022 | NRMSK DC /07FC MASK FOR EXTR NORM K2010110
7D55 A000 1023 | ERRID DC /A000 ERROR ID K2010120
7D56 1000 1024 | ENDID DC /1000 END ID K2010130
7D58 1025 | BSS E 0 K2010140
7D58 30C3 1026 | FZERO DC /30C3 CONSTANT FOR FIVE ZEROS K2010150
7D59 0C30 1027 | DC /0C30 * K2010160
7D5A 0000 1028 | STPTR DC 0 SYMBOL TABLE POINTER K2010170
7D5B D000 1029 | HD000 DC /D000 CONSTANT K2010180
7D5C D800 1030 | HD800 DC /D800 CONSTANT K2010190
7D5D 4000 1031 | H4000 DC /4000 CONSTANT K2010200
7D5E C000 1032 | HC000 DC /C000 K2010210
7D5F 7A58 1033 | PAR31 DC PAREA+31 CONSTANT K2010220
7D60 3F00 1034 | H3F00 DC /3F00 CONSTANT K2010230
7D61 4E00 1035 | PLUS DC /4E00 CONSTANT K2010240
7D62 C300 1036 | C DC /C300 CONSTANT K2010250
7D63 003C 1037 | D60 DC 60 CONSTANT K2010260
7D64 0000 1038 | PCNT DC *-* PRINT COUNT K2010270
1039 | * K2010280
1040 | * SET ERROR SWITCH IN COMMUN AREA K2010290
1041 | * TO PREVENT FINAL OUTPUT K2010300
1042 | * K2010310
7D65 0000 1043 | ERRSW DC 0 LINK K2010320
1044 | * K2010330
7D66 C400 7A2D 1045 | LD L ERROR SET ERROR SWITCH K2010340
7D68 EB02 1046 | OR 3 TWO-Z * K2010350
7D69 D400 7A2D 1047 | STO L ERROR * K2010360
7D6B 4C80 7D65 1048 | BSC I ERRSW RETURN K2010370
1049 | * K2010380
1050 | * SUBROUTINE K2010390
1051 | * MOVE NAME TO PRINT AREA K2010400
1052 | * K2010410
7D6D 0000 1053 | MNAME DC 0 LINK K2010420
7D6E 43BF 1054 | BSI 3 HTEST-Z TEST IF HEADER PRINTED K2010430
7D6F 402F 1055 | BSI TOPAB BLANK TO PRINT AREA K2010440
7D70 C101 1056 | LD 1 1 GET FIRST CHARACTER K2010450
7D71 4022 1057 | BSI TOPA OUTPUT FIRST CHARACTER K2010460
7D72 C101 1058 | LD 1 1 GET SECOND CHARACTER K2010470
7D73 1006 1059 | SLA 6 K2010480
7D74 401F 1060 | BSI TOPA OUTPUT SECOND CHARACTER K2010490
7D75 C102 1061 | LD 1 2 GET THIRD CHARACTER K2010500
7D76 18D0 1062 | RTE 16 K2010510
7D77 C101 1063 | LD 1 1 K2010520
7D78 108C 1064 | SLT 12 K2010530
7D79 401A 1065 | BSI TOPA OUTPUT THIRD CHARACTER K2010540
7D7A C102 1066 | LD 1 2 GET FOURTH CHARACTER K2010550
7D7B 1002 1067 | SLA 2 K2010560
7D7C 4017 1068 | BSI TOPA OUTPUT FOURTH CHARACTER K2010570
7D7D C102 1069 | LD 1 2 GET FIFTH CHARACTER K2010580
7D7E 1008 1070 | SLA 8 K2010590
7D7F 4014 1071 | BSI TOPA OUTPUT FIFTH CHARACTER K2010600
7D80 401E 1072 | BSI TOPAB OUTPUT ONE BLANK K2010610
7D81 401D 1073 | BSI TOPAB OUTPUT ANOTHER BLANK K2010620
1074 | * K2010630
1075 | * INCREMENT PRINT COUNT K2010640
1076 | * K2010650
7D82 C31F 1077 | LD 3 PCNT-Z INCREMENT PRINT COUNT K2010660
7D83 83F8 1078 | A 3 H0008-Z *BY 8 K2010670
7D84 D31F 1079 | STO 3 PCNT-Z K2010680
1080 | * K2010690
1081 | * TEST IF LINE FULL K2010700
7D85 93F6 1082 | S 3 C120-Z SEE IF LINE FULL K2010710
7D86 4CA8 7D6D 1083 | BSC I MNAME,+Z RETURN IF LINE NOT FULL K2010720
7D88 436B 1084 | BSI 3 HFILL-Z PRINT THIS LINE K2010730
7D89 4C80 7D6D 1085 | BSC I MNAME RETURN K2010740
1086 | * K2010750
1087 | * SUBROUTINE K2010760
1088 | * CHAR IN A-REG TO PRINT AREA UNCHANGED K2010770
1089 | * K2010780
7D8B 0000 1090 | TOPAU DC 0 LINK K2010790
7D8C D017 1091 | STO STOCH SAVE CHARACTER K2010800
7D8D C016 1092 | TOPAX LD STOCH LOAD CHARACTER K2010810
7D8E D480 7D3F 1093 | STO I PAP SET INTO PR AREA UNCHANGED K2010820
7D90 7401 7D3F 1094 | MDX L PAP,1 INCR PRINT AREA POINTER K2010830
7D92 4C80 7D8B 1095 | BSC I TOPAU RETURN K2010840
1096 | * K2010850
1097 | * SUBROUTINE K2010860
1098 | * CONVERT CHAR IN A-REG INTO K2010870
1099 | * EBC-CODE, THEN MOVE TO PRINT AREA K2010880
1100 | * K2010890
7D94 0000 1101 | TOPA DC 0 LINK K2010900
7D95 E31B 1102 | AND 3 H3F00-Z MASK TO LEAVE CHARACTER K2010910
7D96 4C18 7D9D 1103 | BSC L TOPA2,+- BR IF BLANK K2010920
1104 | * K2010930
1105 | * NOTE K2010940
1106 | * IF OTHER SPECIAL CHARACTERS THAN K2010950
1107 | * BLANK ARE EXPECTED, TESTING SHOULD K2010960
1108 | * BE HERE K2010970
1109 | * K2010980
7D98 EB19 1110 | OR 3 HC000-Z CONVERT TO EBCDIC K2010990
7D99 D00A 1111 | TOPA1 STO STOCH STORE CHARACTER K2011000
7D9A C0F9 1112 | LD TOPA SET UP TO RETURN FROM K2011010
7D9B D0EF 1113 | STO TOPAU *TOPAU K2011020
7D9C 70F0 1114 | MDX TOPAX GO OUTPUT CHARACTER K2011030
7D9D C318 1115 | TOPA2 LD 3 H4000-Z LOAD EBCDIC BLANK K2011040
7D9E 70FA 1116 | MDX TOPA1 GO OUTPUT K2011050
1117 | * K2011060
7D9F 0000 1118 | TOPAB DC 0 LINK K2011070
7DA0 1010 1119 | SLA 16 LOAD DUMMY BLANK K2011080
7DA1 40F2 1120 | BSI TOPA GO OUTPUT A BLANK K2011090
7DA2 4C80 7D9F 1121 | BSC I TOPAB RETURN K2011100
7DA4 0000 1122 | STOCH DC *-* STORED CHARACTER K2011110
1123 | * K2011120
1124 | * SUBROUTINE K2011130
1125 | * BLANK TO PRINT AREA K2011140
1126 | * K2011150
7DA5 0000 1127 | BLKPA DC 0 LINK K2011160
7DA6 C318 1128 | LD 3 H4000-Z LOAD EBCDIC BLANK K2011170
7DA7 6388 1129 | LDX 3 -120 SET UP TO BLANK PRINT AREA K2011180
7DA8 D700 7AB1 1130 | BLKP1 STO L3 PAREA+120 BLANK PRINT AREA K2011190
7DAA 7301 1131 | MDX 3 1 * K2011200
7DAB 70FC 1132 | MDX BLKP1 * K2011210
7DAC 6700 7D45 1133 | LDX L3 Z SET TRANSFER VECTOR POINTER K2011220
7DAE 4C80 7DA5 1134 | BSC I BLKPA RETURN K2011230
1135 | * K2011240
1136 | * TEST IF HALF FILLED LINE K2011250
1137 | * IN PRINT AREA K2011260
1138 | * K2011270
7DB0 0000 1139 | HFILL DC *-* LINK K2011280
7DB1 C31F 1140 | LD 3 PCNT-Z LOAD PRINT COUNT K2011290
7DB2 4C18 7DC4 1141 | BSC L XHF,+- RETURN IF ZERO K2011300
7DB4 C3FB 1142 | LD 3 PAPIN-Z LOAD PRINT AREA ORIGIN K2011310
7DB5 D3FA 1143 | STO 3 PAP-Z RESET PRINT AREA POINTER K2011320
7DB6 D400 7E0D 1144 | STO L AREA SET MESSAGE ADDRESS K2011330
7DB8 C31E 1145 | LD 3 D60-Z K2011340
7DB9 D400 7A38 1146 | STO L WDCNT SET WORD COUNT K2011350
7DBB 4400 7E0E 1147 | BSI L PRINT PRINT LINE K2011360
7DBD 40E7 1148 | BSI BLKPA BLANK PRINT AREA K2011370
7DBE C480 0006 1149 | LD I $CH12 TEST CHANNEL 12 SWITCH K2011380
7DC0 44A0 7E0C 1150 | BSI I NEWPG,Z EJECT PAGE IF ON K2011390
7DC2 1010 1151 | SLA 16 K2011400
7DC3 D31F 1152 | STO 3 PCNT-Z ZERO PRINT COUNT K2011410
7DC4 4C80 7DB0 1153 | XHF BSC I HFILL RETURN K2011420
1154 | * K2011430
7DC6 1000 1155 | EXIT SLA 0 EXIT ROUTINE K2011440
7DC7 C480 0006 1156 | LD I $CH12 TEST CHANNEL 12 SWITCH K2011450
7DC9 44A0 7E0C 1157 | BSI I NEWPG,Z EJECT PAGE IF ON K2011460
7DCB 6580 7DD1 1158 | LDX I1 NXTPH+1 SET UP TO GO TO K2011470
7DCD C804 1159 | LDD NXTPH+2 *NEXT PHASE K2011480
7DCE 4C00 7FBC 1160 | BSC L ROL GO TO NEXT PHASE K2011490
7DD0 1161 | BSS E 0 K2011500
7DD0 0033 1162 | NXTPH DC 51 ID OF NEXT PHASE K2011510
7DD1 0000 1163 | DC *-* CORE ADDRESS NEXT PHASE K2011520
7DD2 0000 1164 | DC *-* WORD COUNT NEXT PHASE K2011530
7DD3 0000 1165 | DC *-* SECTOR ADDRESS NEXT PHASE K2011540
7DD4 1166 | PATCH BSS /7DF5-* PATCH AREA 2-11 K2011550
7DF5 0000 1167 | DC 0 K2011560
7DF6 1168 | END BPHAR-2 K2011570
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$CH12 0006 81 947 1149 1156
$PHSE 0078 73 159
A1011 7B2D 446 336 362
A1012 7B39 454 467
A1013 7B44 466 457 460
A1021 7B48 473
A1022 7B52 483 503
A1023 7B58 502 490
AREA 7E0D 80 1144
BLKP1 7DA8 1130 1132
BLKPA 7DA5 1127 447 687 693 1134 1148
BPHAR 7A36 140 1168
C 7D62 1036 620
C10 7D39 992 922
C100 7D3A 993 919
C120 7D3B 994 1082
CCWD 7A31 106
COMON 7A2B 96
CON3D 7CF0 917 626 660 926
CONSC 7A95 269 226 232
CONT 7AC9 333 348 440
CSIZE 7A2C 97
D1015 7C19 745 726
D1025 7C33 779
D1026 7C3B 788 775
D1099 7C67 845 724 770
D60 7D63 1037 1145
DATA 7C73 856 748 782
DFCNT 7A33 127
DFILE 7C72 855 746 780
DTA10 7A57 193 266 307
DTA11 7A6A 217 207
DTA12 7A6C 222 260
DTA13 7A6F 224
DTA14 7A72 230 233
DTA15 7A78 237 261
DTA17 7A88 256 252
DTA21 7A90 263 212 258
DTA25 7AB2 298 303
DTAER 7A99 277 246
E1011 7B5C 508 452
E1021 7B6A 530 604
E1022 7B78 551 544
E1023 7B83 566 554
E1024 7B84 568 545
E1028 7B95 585 581
E1030 7B99 589
E1031 7BA0 596 592
E1038 7BA3 600 574 578 587 675
E1051 7BAC 610 598
E1052 7BB7 629
E1061 7BBD 643 631 638
E1073 7BD0 661 651
E1082 7BE1 675
E2011 7BE3 677 570
E2015 7BE9 685 168
E2020 7BF1 693 167 682
E2021 7BFA 702 683
E2022 7BF5 695 689
ENDID 7D56 1024 210 569 723 769
ENT 7A3A 157 151
EOFS 7A25 90 292 305 427 439
EOFST 7A2A 95 451 902
ERID 7A97 271 278
ERRID 7D55 1023 586
ERRNO 7D4D 1015 597 625
ERROR 7A2D 98 166 681 702 1045 1047
ERRSW 7D65 1043 500 611 1048
ERTYP 7A96 270 280
EXIT 7DC6 1155 686 705 846
FNAME 7A2E 103
FORMT 7C66 841 733 791
FOUR 7D49 1009
FZERO 7D58 1026 636
GNAM0 7D27 976 971
GNAM1 7D2A 978 965 967 968 969 973
GNAM2 7D2D 980 975
GNAM3 7D34 984 964
GNAM4 7D35 985 244 977
GNAME 7D19 963 243 552 643 982
GOSTO 7CFB 927 920 923 925 932
H0007 7A98 272 225
H0008 7D3D 996 1078
H0020 7D3E 997 459
H0200 7D44 1003 455
H07FC 7D36 987 865 870
H1800 7D41 1000 896
H3F00 7D60 1034 1102
H4000 7D5D 1031 1115 1128
HA7FC 7D43 1002 484
HC000 7D5E 1032 577 1110
HD000 7D5B 1029 736 794
HD800 7D5C 1030 350 573 755
HEAD 7F8B 77 78
HF000 7D4F 1017 929
HF800 7D4E 1016 206 717 874
HFFFD 7D3C 995 898 899
HFILL 7DB0 1139 468 504 673 1084 1153
HTES1 7D16 956 180 474 514 695 950
HTES2 7D18 959 944
HTES3 7D14 953 941
HTEST 7D04 939 615 698 953 1054
IDADR 7ABF 321 191 194 263 265 277 283 286 287 331 334 345 347
402 405 421 422 519 520 600 602 603
IDMSK 7D53 1021 196 342 532
INCS1 7CEA 908 906
INCS2 7CEC 909 903
INCSP 7CD8 894 466 502 904 909 911
IOCS 7A32 115
K0800 7AC2 324 358
K0FFF 7AC0 322 396
K7000 7AC3 325 355
KA008 7AC1 323 408
KB000 7AC4 326 361
LBLSW 7D4C 1014 540 564 580
LINK 7C71 854 850
LNCNT 7ABD 319 353 375 381 410
LOOPP 7BD2 663 671
LSTPR 7E45 84 945 951
MEMRY 8000 70 71 72
MNAME 7D6D 1053 464 495 648 1083 1085
MOVP 7C75 863 762 768 851 876
MOVP1 7C7C 869 852
NAME 7D32 983 553 637 645 979 981
NEQ 7A36 151 163
NEWPG 7E0C 79 80 83 948 1150 1157
NORM 7D52 1020 201 217 264 284 288 339 346 406 423 537 601 800
836 872
NRMSK 7D54 1022 199 337 390 535
NXTPH 7DD0 1162 143 1158 1159
ONE 7D46 1006 173 392 805 807 972 974
ORG 7A23 88
OUTFL 7D50 1018 182 476 525 697 940 942
OVERL 7A23 71 85
OVERP 7E42 78 79 84
PAP 7D3F 998 627 647 656 930 931 1093 1094 1143
PAPIN 7D40 999 1142
PAR31 7D5F 1033 646
PAREA 7A39 155 666 668 998 999 1033 1130
PATCH 7DD4 1166
PCNT 7D64 1038 1077 1079 1140 1152
PHID 0032 75 158
PLUS 7D61 1035 657
PRINT 7E0E 83 1147
PTR 7D38 989 715 716 765 802 838 849 864 867 868 869 873
R1011 7C00 714 703
R1012 7C09 722 763 854
R1013 7C28 762 734 737 747 749
R1021 7C2A 765 741 757 760
R1022 7C2C 768 784 795 839
R1023 7C44 800 781 783 792
R1031 7C51 816 801
R1032 7C53 817 809 811 812 830
R1033 7C55 821 806
R1034 7C58 823 803 827
R1035 7C5B 825 804
RALO 7D37 988 766 808 835 837 848
RANGE 7ABE 320 429 430 436
REPAK 7AC6 329 211
ROL 7FBC 72 77 1160
RPK01 7AD5 345 351 364 380 385
RPK02 7AD9 350 343
RPK05 7AE8 370 359
RPK06 7AF0 378 372
RPK10 7AF9 389 356
RPK12 7AFE 394 399
RPK13 7B07 401 397
RPK15 7B15 421 376 400
RPK20 7B23 432 437
SOFGT 7A29 94
SOFNS 7A27 92
SOFS 7A24 89 190 330 518 714
SOFST 7A26 91 448 450 478 966
SOFXT 7A28 93 171 174
SORF 7A30 105 758
STCNT 7D4B 1011 524 563 583 593 650 659
STLAB 7D4A 1010 523 561 629
STOCH 7DA4 1122 1091 1092 1111
STONO 7A94 268 218 223 231 238 254 256
STOOI 7D42 1001
STPTR 7D5A 1028 449 479 895 900 901 907
STSID 7D51 1019 197 205 209 533 568 572 576 585 718 722 732 735
745 754 779 790 793 875
STXR1 7BC4 649 644
SWITC 7C74 857 720 725 774 845 847
TEXT3 7C87 878 694
TEXT4 7C9B 881 688
TEXT5 7CA9 883 179
TEXT6 7CB6 885 473
TEXT7 7CC1 887 513
TEXT8 7CCB 889 663
THREE 7D48 1008 970
TOPA 7D94 1101 1057 1060 1065 1068 1071 1112 1120
TOPA1 7D99 1111 1116
TOPA2 7D9D 1115 1103
TOPAB 7D9F 1118 619 628 1055 1072 1073 1121
TOPAU 7D8B 1090 621 658 1095 1113
TOPAX 7D8D 1092 1114
TWO 7D47 1007 610 1046
WDCNT 7A38 154 1146
WDCT1 7AC5 327 393 398
XHF 7DC4 1153 1141
Z 7D45 1005 173 181 182 196 197 199 201 205 206 209 210 217
243 244 264 288 337 339 342 346 350 390 392 423
449 455 459 468 475 476 484 495 500 504 522 523
524 525 532 533 535 537 539 540 552 553 561 562
563 568 569 572 573 576 577 580 585 586 593 597
601 610 611 615 619 620 621 625 626 628 629 636
637 643 646 647 648 650 657 658 659 672 673 696
697 698 715 717 718 719 722 723 732 735 736 745
754 755 765 766 769 779 790 793 794 800 802 805
807 808 835 836 837 838 848 849 865 867 868 870
872 874 875 896 898 899 900 901 919 921 922 929
940 970 972 974 1046 1054 1077 1078 1079 1082 1084 1102
1110 1115 1128 1133 1140 1142 1143 1145 1152
ZERO 7D45 1004 162 181 306 475 522 539 562 696 719 1005