ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph13.asm
1130 FORTRAN COMPILER PHASE 13
2 | *************************************************** K1300020
3 | *STATUS - VERSION 2 MODIFICATION 8 * K1300030
4 | * * K1300040
5 | *FUNCTION/OPERATION- * K1300050
6 | * * CHECKS FIND, READ, WRITE, AND GO TO STMNTS * K1300060
7 | * FOR CORRECT SYNTAX, STATEMENT NUMBERS AND * K1300070
8 | * REFERENCES, AND VARIABLES. * K1300080
9 | * * DETECTS IMPLIED DO LOOPS IN READ AND WRITE * K1300090
10 | * STATEMENTS. GENERATES THE NECESSARY * K1300100
11 | * INDICATORS. * K1300110
12 | * * K1300120
13 | *ENTRY POINTS- * K1300130
14 | * START-PHASE 13 IS READ INTO CORE BY PHASE 12 * K1300140
15 | * AND EXECUTION BEGUN AT LOCATION START. * K1300150
16 | * * K1300160
17 | *INPUT- * K1300170
18 | * NONE IN THE USUAL SENSE. HOWEVER THE STMNT * K1300180
19 | * STRING SCANNED BY THE COMPILER MAY BE * K1300190
20 | * CONSIDERED INPUT. * K1300200
21 | * * K1300210
22 | *OUTPUT- * K1300220
23 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1300230
24 | * STRING AND THE SYMBOL TABLE ALTERED BY THE * K1300240
25 | * COMPILER MAY BE CONSIDERED OUTPUT. * K1300250
26 | * * K1300260
27 | *EXTERNAL REFERENCES-N/A * K1300270
28 | * * K1300280
29 | *EXITS- * K1300290
30 | * NORMAL- * K1300300
31 | * PHASE EXITS NORMALLY IF NO ERRORS ARE * K1300310
32 | * FOUND. PHASE 14 IS LOADED AND EXECUTED. * K1300320
33 | * ERROR- * K1300330
34 | * THE FLOW OF COMPILER PROCESSING IS NOT * K1300340
35 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED. * K1300350
36 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K1300360
37 | * ON THE STRING AND STMNT SCANNING PROCESS * K1300370
38 | * CONTINUES. AN EXCEPTION OCCURS IN THE CASE * K1300380
39 | * OF AN OVERLAP ERROR. COMPILATION IS * K1300390
40 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K1300400
41 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K1300410
42 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K1300420
43 | * THE ERRORS DETECTED IN PHASE 13 ARE 43, * K1300430
44 | * 44,45,46,47,48,49,50, AND 68. * K1300440
45 | * * K1300450
46 | *TABLES/WORK AREAS- * K1300460
47 | * NONE EXCEPT STATEMENT STRING AREA, SYMBOL * K1300470
48 | * TABLE, AND FORTRAN COMMUNICATION AREA * K1300480
49 | * * K1300490
50 | *ATTRIBUTES-N/A * K1300500
51 | * * K1300510
52 | *NOTES- * K1300520
53 | * THE SWITCHES USED IN PHASE 2 FOLLOW. IF NON- * K1300530
54 | * ZERO THE SWITCH IS TRANSFER=T. IF ZERO, THE * K1300540
55 | * SWITCH IS NORMAL=N. * K1300550
56 | * * SW1-DIMENSION NAME SUBSCRIPTED * K1300560
57 | * T=NOT SUBSCRIPTED * K1300570
58 | * * SW2-READ OR WRITE STATEMENT * K1300580
59 | * T=READ STATEMENT FOUND * K1300590
60 | * N=WRITE STATEMENT FOUND * K1300600
61 | * * SW3-EQUAL SIGN * K1300610
62 | * T=EQUAL SIGN FOUND * K1300620
63 | * * SW4-DIMENSIONED NAME * K1300630
64 | * T=NAME DIMENSIONED * K1300640
65 | * * FNDSW-FIND STATEMENT * K1300650
66 | * T=FIND STATEMENT FOUND * K1300660
67 | *************************************************** K1300670
68 | ABS K1300680
69 | * K1300690
70 | * SYSTEM EQUATES K1300700
8000 71 | MEMRY EQU /8000 K1300710
7A23 72 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K1300720
7FBC 73 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1300730
0078 74 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1300740
0003 75 | PHLEN EQU 3 NO. OF SECTORS THIS PHASE K1300745
7A23 76 | ORG OVERL K1300750
002B 77 | PHID EQU 43 ID NUMBER THIS PHASE K1300760
78 | * K1300770
79 | * FORTRAN COMMUNICATION AREA K1300780
7A23 80 | ORG BSS 1 ORIGIN ADDRESS 2-4 K1300785
7A24 81 | SOFS BSS 1 START OF STRING K1300790
7A25 82 | EOFS BSS 1 END OF STRING K1300800
7A26 83 | SOFST BSS 1 START OF SYMBOL TABLE K1300810
7A27 84 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1300820
7A28 85 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1300830
7A29 86 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1300840
7A2A 87 | EOFST BSS 1 END OF SYMBOL TABLE K1300850
7A2B 88 | COMON BSS 1 NEXT AVAILABLE COMMON K1300860
7A2C 89 | CSIZE BSS 1 SIZE OF COMMON K1300870
7A2D 90 | ERROR BSS 1 OVERLAP ERROR K1300880
7A2E 91 | FNAME BSS 1 PROGRAM NAME K1300890
7A2F 92 | BSS 1 K1300900
7A30 93 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1300910
7A31 94 | CCWD BSS 1 CONTROL CARD WORD K1300920
95 | * BIT 15 TRANSFER TRACE K1300930
96 | * BIT 14 ARITHMETIC TRACE K1300940
97 | * BIT 13 EXTENDED PRECISION K1300950
98 | * BIT 12 LIST SYMBOL TABLE K1300960
99 | * BIT 11 LIST SUBPROGRAM NAMES K1300970
100 | * BIT 10 LIST SOURCE PROGRAM K1300980
101 | * BIT 9 ONE WORD INTEGERS K1300990
102 | * BIT 8 ORIGIN 2-4 K1300995
7A32 103 | IOCS BSS 1 IOCS CONTROL CARD WORD K1301000
104 | * BIT 15 CARD K1301010
105 | * BIT 14 PAPER TAPE K1301020
106 | * BIT 13 TYPEWRITER K1301030
107 | * BIT 12 1403 PRINTER K1301040
108 | * BIT 11 2501 READER K1301050
109 | * BIT 10 KEYBOARD K1301060
110 | * BIT 9 1442 PUNCH K1301070
111 | * BIT 8 DISK K1301080
112 | * BIT 7 1132 PRINTER K1301090
113 | * BIT 3 PLOTTER K1301100
114 | * BIT 1 UDISK K1301110
7A33 115 | DFCNT BSS 1 K1301120
116 | * K1301130
117 | * K1301140
118 | * END OF FORTRAN COMMUNICATION K1301150
119 | * AREA K1301160
120 | * K1301170
121 | * K1301180
7A36 122 | BPHAR EQU *+2 BEGIN PHASE AREA K1301190
7A34 0000 123 | DC 0 PHASE ID FOR SLET LOOKUP K1301200
7A35 FFD5 124 | DC -43 TABLE FOR NEXT PHASE ENTRY K1301210
7A36 000C 125 | DC NXTPH-*+1 ONE ENTRY TO BE SET BY LDR K1301220
7A37 0001 126 | DC 1 K1301230
7A36 127 | ORG *-2 K1301240
128 | * K1301250
7A36 612B 129 | START LDX 1 PHID GET ID FOR THIS PHASE K1301260
7A37 6D00 0078 130 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1301270
131 | * K1301280
132 | * K1301290
7A39 C0F3 133 | LD ERROR TEST FOR OVERLAP ERROR K1301300
7A3A 4C18 7A46 134 | BSC L ORGIN,+- BRANCH IF NO ERROR K1301310
135 | * K1301320
136 | * TRANSFERS TO THE ROL ROUTINE K1301330
137 | * TO LOAD THE NEXT PHASE K1301340
7A3C 6580 7A43 138 | OVERF LDX I1 NXTPH+1 LOAD PARAMETER FOR K1301350
7A3E C805 139 | LDD NXTPH+2 READING NEXT PHASE K1301360
7A3F 4C00 7FBC 140 | BSC L ROL GO TO READ NEXT PHASE K1301370
7A42 141 | BSS E 0 K1301380
7A42 002C 142 | NXTPH DC 44 ID OF NEXT PHASE K1301390
7A43 143 | BSS 3 LOADER TBL FOR NEXT PHASE K1301400
144 | * K1301410
145 | * MOVES THE STMNT STRING ADJACENT K1301420
146 | * TO THE SYM TBL. INITIALIZES K1301430
147 | * THE I/P PT. CHECKS FOR THE K1301440
148 | * TRACE AND IOCS INDICATORS IN K1301450
149 | * THE FORTRAN COMMUNICATIONS AREA K1301460
7A46 C0DE 150 | ORGIN LD EOFS GET SIZE OF K1301470
7A47 90DC 151 | S SOFS STRING - 1 K1301480
7A48 D001 152 | STO *+1 INITIALIZE STRING K1301490
7A49 6700 0000 153 | LDX L3 *-* SIZE COUNTER K1301500
7A4B 7301 154 | MDX 3 1 SIZE OF STRING K1301510
7A4C 6680 7A25 155 | LDX I2 EOFS LOOP INPUT PT K1301520
7A4E 6580 7A2A 156 | LDX I1 EOFST LOOP OUTPUT PT K1301530
7A50 C200 157 | LD 2 0 LOAD WORD AND MOVE IT K1301540
7A51 D102 158 | STO 1 +2 NEXT TO SYMBOL TABLE K1301550
7A52 71FF 159 | MDX 1 -1 MOVE POINTERS K1301560
7A53 72FF 160 | MDX 2 -1 K1301570
7A54 73FF 161 | MDX 3 -1 DECREMENT COUNTER K1301580
7A55 70FA 162 | MDX *-6 CONTINUE LOOP K1301590
7A56 7103 163 | MDX 1 3 INITIALIZE STRING INPUT PT K1301600
164 | * K1301610
165 | * INITIAL PHASE K1301620
7A57 6680 7A24 166 | LDX I2 SOFS INITIALIZE STRING O/P PT K1301630
167 | * K1301640
168 | * TRACE CONTROL RECORD PRESENT K1301650
7A59 C0D7 169 | LD CCWD IS THERE A TRACE K1301660
7A5A 100E 170 | SLA 14 DEVICE REQUIRED K1301670
7A5B 4C18 7A6C 171 | BSC L XY1,+- BRANCH IF NO K1301680
172 | * K1301690
173 | * K1301700
7A5D C0D2 174 | LD SORF IS TRACE DEVICE PRESENT K1301710
7A5E E8D3 175 | OR IOCS OR IN MAINLINE PROGRAM K1301720
7A5F 4C20 7A6C 176 | BSC L XY1,Z BRANCH IF YES K1301730
177 | * K1301740
178 | * PUT OUT ERROR NO. 50 K1301750
7A61 C006 179 | LD SAERT LOAD ERROR ID WORD K1301760
7A62 4400 7C63 180 | BSI L CHECK OUTPUT ERROR ID WORD K1301770
7A64 C004 181 | LD S50TT LOAD ERROR NUMBER K1301780
7A65 4400 7C63 182 | BSI L CHECK OUTPUT ERROR NUMBER K1301790
7A67 7004 183 | MDX XY1 BEGIN BODY SCAN K1301800
184 | * * K1301810
185 | * CONSTANTS K1301820
7A68 A008 186 | SAERT DC /A008 ERROR ID WORD K1301830
7A69 0032 187 | S50TT DC 50 ERROR NO. 50 K1301840
7A6A 0001 188 | S0001 DC /0001 ONE K1301850
7A6B 07FF 189 | S07FF DC /07FF NORM MASK K1301860
190 | * K1301870
191 | * INITIALIZES TO SCAN THE K1301880
192 | * STATEMENT BODY K1301890
7A6C C100 193 | XY1 LD 1 0 LOAD STMNT ID WORD K1301900
7A6D E0FD 194 | AND S07FF CLEAR OUT ID TYPE K1301910
7A6E 1802 195 | SRA 2 RIGHT-JUSTIFY NORM K1301920
7A6F D400 7D2B 196 | STO L XY27+1 SAVE NORM K1301930
7A71 6D00 7B3E 197 | STX L1 XT1 SAVE INPUT POINTER K1301940
7A73 8400 7B3E 198 | A L XT1 ADD INPUT POINTER TO GET K1301950
7A75 D400 7C0F 199 | STO L NXTID ADDRESS OF NEXT STMNT K1301960
7A77 6E00 7BFD 200 | STX L2 IDSV2 SAVE OUTPUT PT K1301970
7A79 690B 201 | STX 1 IDSV1 SAVE INPUT PT K1301980
7A7A 4400 7C72 202 | BSI L MOVE1 OUTPUT WORD, MOVE PT K1301990
7A7C C1FF 203 | LD 1 -1 LOAD STMNT ID WORD K1302000
7A7D F0EC 204 | EOR S0001 TEST FOR STMNT NUMBER K1302010
7A7E 4C04 7A84 205 | BSC L XY2,E BRANCH NO STMNT NUMBER K1302020
7A80 4400 7C72 206 | BSI L MOVE1 OUTPUT WORD, MOVE PT K1302030
7A82 74FF 7D2B 207 | MDX L XY27+1,-1 DECREMENT NORM COUNTER K1302040
208 | * K1302050
209 | * K1302060
210 | * CHECKS FOR THE END STMNT K1302070
7A84 C400 0000 211 | XY2 LD L *-* LOAD STMNT ID WORD K1302080
7A85 212 | IDSV1 EQU XY2+1 ADDRESS OF STMNT ID WORD K1302090
7A86 180B 213 | SRA 11 RIGHT-JUSTIFY ID TYPE K1302100
7A87 9400 7B40 214 | S L TEND IS IT END STMNT K1302110
7A89 4C20 7A95 215 | BSC L XY3,Z BRANCH IF NOT K1302120
216 | * K1302130
217 | * K1302140
7A8B 72FF 218 | XY34 MDX 2 -1 GET NEW END OF K1302150
7A8C 6E00 7A25 219 | STX L2 EOFS STRING ADDRESS K1302160
7A8E 70AD 220 | MDX OVERF GO TO NEXT PHASE K1302170
221 | * K1302180
222 | * K1302190
223 | * DETECTS FIND STMNTS K1302200
7A8F 9400 7B43 224 | XY4B S L TFIND IS IT FIND STMNT K1302210
7A91 4C20 7C12 225 | BSC L XY24,Z BRANCH IF NOT K1302220
7A93 6850 226 | STX 0 FNDSW SET FIND STMNT SWITCH K1302230
7A94 700E 227 | MDX NSW2 CHECK FOR DEVICE K1302240
228 | * K1302250
229 | * K1302260
230 | * DETECTS READ STMNTS K1302270
7A95 9400 7B41 231 | XY3 S L TREAD IS IT READ STMNT K1302280
7A97 4C20 7A9C 232 | BSC L XY4,Z BRANCH IF NOT K1302290
233 | * K1302300
234 | * K1302310
7A99 6C00 7B3F 235 | STX L0 SW2 SET SWITCH TO READ K1302320
7A9B 7006 236 | MDX XY6 NORMALIZE FIND SWITCH K1302330
237 | * K1302340
238 | * K1302350
239 | * DETECTS WRITE STMNTS K1302360
7A9C 9400 7B42 240 | XY4 S L TWRIT IS IT WRITE STMNT K1302370
7A9E 4C20 7A8F 241 | BSC L XY4B,Z BRANCH IF NOT K1302380
242 | * K1302390
243 | * K1302400
7AA0 D400 7B3F 244 | STO L SW2 SET SWITCH TO WRITE K1302410
245 | * K1302420
246 | * K1302430
247 | * CHECKS THE SORF WORD IN THE K1302440
248 | * FORTRAN COMMUNICATIONS AREA FOR K1302450
249 | * A SUBPROGRAM INDICATOR K1302460
250 | * CHECKS FOR THE PRESENCE OF IOCS K1302470
251 | * INDICATORS IN A MAINLINE K1302480
252 | * COMPILATION K1302490
7AA2 D041 253 | XY6 STO FNDSW NORMALIZE FIND SWITCH K1302500
7AA3 632C 254 | NSW2 LDX 3 44 PUT ERROR NO. 44 K1302510
7AA4 6F00 7B44 255 | STX L3 ERNO IN ERNO K1302520
256 | * K1302530
257 | * K1302540
7AA6 C400 7A30 258 | LD L SORF IS THIS SUBROUTINE K1302550
7AA8 4C20 7AB4 259 | BSC L XY6A,Z BRANCH IF YES K1302560
260 | * K1302570
261 | * K1302580
7AAA C400 7A32 262 | LD L IOCS CHECK FOR VALID K1302590
7AAC E036 263 | AND H51FF I/O DEVICE K1302600
7AAD 4C20 7AB4 264 | BSC L XY6A,Z BRANCH IF VALID DEVICE K1302610
265 | * K1302620
266 | * K1302630
7AAF 632D 267 | XY6B LDX 3 45 PUT ERROR NO. 45 K1302640
7AB0 6F00 7B44 268 | STX L3 ERNO IN ERNO K1302650
7AB2 4C00 7BFC 269 | BSC L XY7 PUT ERROR STMNT ON STRING K1302660
270 | * K1302670
271 | * K1302680
272 | * CHECKS THE SYNTAX OF FIND, READ K1302690
273 | * AND WRITE STATEMENTS K1302700
274 | * CHECKS VARIABLE NAMES AND K1302710
275 | * INTEGER CONSTANTS FOR VALIDITY K1302720
276 | * CHECKS FOR A FORMAT STMNT K1302730
277 | * NUMBER REFERENCE K1302740
7AB4 C100 278 | XY6A LD 1 0 LOAD WORD K1302750
7AB5 9400 7B45 279 | S L TLP IS CHAR LEFT PARENTHESIS K1302760
7AB7 4C20 7BFC 280 | BSC L XY7,Z BRANCH IF NOT K1302770
281 | * K1302780
282 | * CALL PUT (I/O OPERATOR) K1302790
7AB9 6A5D 283 | STX 2 IOOPS SAVE OUTPUT POINTER K1302800
7ABA C400 7B46 284 | LD L IOOP LOAD I/O OPERATOR K1302810
7ABC 4400 7C5E 285 | BSI L PUT PUT ON OUTPUT STRING K1302820
286 | * K1302830
287 | * K1302840
7ABE C100 288 | LD 1 0 LOAD WORD K1302850
7ABF 4400 7C63 289 | BSI L CHECK PUT ON OUTPUT STRING K1302860
290 | * K1302870
291 | * K1302880
7AC1 7101 292 | MDX 1 1 MOVE INPUT POINTER K1302890
293 | * K1302900
294 | * K1302910
7AC2 C100 295 | LD 1 0 LOAD WORD K1302920
7AC3 4400 7C4C 296 | BSI L GETID GET SYM TBL ID WORD K1302930
7AC5 E400 7B4C 297 | AND L S5BDE CHECK TO SEE IF K1302940
7AC7 F07F 298 | EOR S4000 IT IS INTEGER K1302950
7AC8 4C20 7BFC 299 | BSC L XY7,Z BRANCH IF NOT K1302960
300 | * K1302970
301 | * K1302980
7ACA 4400 7C72 302 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1302990
303 | * K1303000
304 | * K1303010
7ACC C100 305 | LD 1 0 LOAD WORD K1303020
7ACD 907B 306 | S TCMA IS CHARACTER COMMA K1303030
7ACE 4C20 7AEA 307 | BSC L XY5,Z BRANCH IF NOT K1303040
308 | * K1303050
309 | * K1303060
7AD0 C400 7A32 310 | LD L IOCS IS THERE I/O DEVICE OTHER K1303070
7AD2 E013 311 | AND H517F THAN DISK, OR IS THIS K1303080
7AD3 EC00 7A30 312 | OR L SORF SUBROUTINE K1303090
7AD5 4C18 7AAF 313 | BSC L XY6B,+- BRANCH IF NEITHER K1303100
314 | * IN A MAINLINE ONLY. K1303110
315 | * K1303120
316 | * K1303130
7AD7 4400 7C72 317 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1303140
318 | * K1303150
319 | * K1303160
7AD9 C100 320 | LD 1 0 LOAD WORD K1303170
7ADA 4400 7C4C 321 | BSI L GETID GET SYM TBL ID WORD K1303180
7ADC 1009 322 | SLA 9 IS IT FORMAT STATEMENT K1303190
7ADD 4C28 7B19 323 | BSC L XY9,+Z BRANCH IF YES K1303200
324 | * K1303210
325 | * K1303220
7ADF 632E 326 | LDX 3 46 PUT ERROR NO. 46 K1303230
7AE0 6B63 327 | STX 3 ERNO IN ERNO K1303240
7AE1 4C00 7BFC 328 | BSC L XY7 PUT ERROR STMNT ON STRING K1303250
329 | * K1303260
7AE3 51FF 330 | H51FF DC /51FF MASK FOR DEVICE CHECK K1303270
7AE4 0000 331 | FNDSW DC 0 FIND SWITCH K1303280
7AE5 0032 332 | COLON DC /32 COLON K1303290
7AE6 517F 333 | H517F DC /517F NON-DISK IOCS MASK K1303300
7AE7 0030 334 | DIOOP DC /30 DISK I/O OPERATOR K1303310
7AE8 0030 335 | APOST DC /42-/12 APOSTROPHE K1303320
7AE9 000A 336 | TEN DC 10 CONSTANT TEN 2-8 K1303325
337 | * K1303330
338 | * K1303340
339 | * CHECKS FOR THE APOSTROPHE (') K1303350
340 | * MARK - CHANGES IT TO A COMMA K1303360
341 | * OPERATOR K1303370
7AEA 90FD 342 | XY5 S APOST IS CHARACTER APOSTROPHE K1303380
7AEB 4C18 7AF8 343 | BSC L XY5A,+- BRANCH IF YES 2-3 K1303385
7AED C0F6 344 | LD FNDSW BRANCH IF THIS IS 2-3 K1303388
7AEE 4C20 7BFC 345 | BSC L XY7,Z *A FIND STATEMENT 2-8 K1303389
346 | * K1303390
7AF0 C300 347 | LD 3 0 LOAD STMNT ID WORD 2-8 K1303392
7AF1 4C10 7B1B 348 | BSC L XY8,- BRANCH IF VARIABLE 2-8 K1303393
7AF3 C301 349 | LD 3 1 LOAD CONSTANT 2-8 K1303394
7AF4 90F4 350 | S TEN COMPARE WITH TEN 2-8 K1303395
7AF5 4C20 7BFC 351 | BSC L XY7,Z ERROR IF NOT EQUAL 2-8 K1303397
7AF7 7023 352 | MDX XY8 BRANCH TO CONTINUE 2-8 K1303399
353 | * K1303400
354 | * K1303410
7AF8 C050 355 | XY5A LD TCOP REPLACE APOSTROPHE ON K1303420
7AF9 D100 356 | STO 1 0 INPUT STRING WITH COMMA K1303430
357 | * K1303440
358 | * K1303450
7AFA C400 7A32 359 | LD L IOCS REMOVE ALL BITS FROM IOCS K1303460
7AFC 1008 360 | SLA 8 WORD EXCEPT BIT FOR DISK K1303470
7AFD 180F 361 | SRA 15 IS DISK DEVICE PRESENT OR K1303480
7AFE EC00 7A30 362 | OR L SORF IS THIS SUBROUTINE K1303490
7B00 4C18 7AAF 363 | BSC L XY6B,+- BRANCH IF NEITHER K1303500
364 | * K1303510
365 | * K1303520
366 | * K1303530
7B02 C400 7A33 367 | LD L DFCNT LOAD FILE COUNT K1303540
7B04 EC00 7A30 368 | OR L SORF COMBINE WITH SORF K1303550
7B06 4C20 7B0C 369 | BSC L SKCOL,Z BRANCH IF HAVE EITHER K1303560
370 | * K1303570
371 | * K1303580
7B08 6346 372 | LDX 3 70 PUT ERROR NO. 70 K1303590
7B09 6B3A 373 | STX 3 ERNO INTO ERNO K1303600
7B0A 4C00 7BFC 374 | BSC L XY7 PUT ERROR STMNT ON STRING K1303610
375 | * K1303620
376 | * K1303630
377 | * CHECKS FOR THE COLON OPTR. IF K1303640
378 | * FOUND CHANGES THE I/O OPTR TO K1303650
379 | * A DISK OPTR. CHANGES THE COLON K1303660
380 | * OPTR BACK TO A RIGHT K1303670
381 | * PARENTHESIS OPERATOR. K1303680
7B0C C100 382 | SKCOL LD 1 0 LOAD WORD K1303690
7B0D 90D7 383 | S COLON IS CHARACTER COLON K1303700
7B0E 4C18 7B13 384 | BSC L REPL,-+ BRANCH IF YES K1303710
7B10 4400 7C72 385 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1303720
7B12 70F9 386 | MDX SKCOL GET NEXT WORD K1303730
7B13 C034 387 | REPL LD RPARN LOAD RIGHT PARENTHESIS K1303740
7B14 D100 388 | STO 1 0 PUT IN PLACE OF COLON K1303750
7B15 C0D1 389 | LD DIOOP REPLACE I/O OPERATOR WITH K1303760
7B16 D400 0000 390 | STO L *-* DISK I/O OPERATOR K1303770
7B17 391 | IOOPS EQU *-1 ADDRESS OF I/O OPERATOR K1303780
7B18 7006 392 | MDX CLMV1 CONTINUE STMNT CHECK K1303790
393 | * K1303800
394 | * K1303810
7B19 4400 7C72 395 | XY9 BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1303820
396 | * K1303830
397 | * K1303840
7B1B C100 398 | XY8 LD 1 0 LOAD WORD K1303850
7B1C 902B 399 | S TRP IS CHAR RIGHT PARENTHESIS K1303860
7B1D 4C20 7BFC 400 | BSC L XY7,Z BRANCH IF NOT K1303870
401 | * K1303880
402 | * K1303890
403 | * CHECKS FOR THE SEMICOLON OPTR K1303900
404 | * IN FIND STMNTS. K1303910
7B1F 4400 7C72 405 | CLMV1 BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1303920
406 | * K1303930
407 | * SEMI-COLON MUST FOLLOW FIND K1303940
7B21 C0C2 408 | LD FNDSW IS THIS FIND STMNT K1303950
7B22 4C18 7B29 409 | BSC L XY8A,+- BRANCH IF NOT K1303960
7B24 C100 410 | LD 1 0 IS CHARACTER SEMI-COLON K1303970
7B25 4C20 7BFC 411 | BSC L XY7,Z BRANCH IF NOT K1303980
7B27 4C00 7BEA 412 | BSC L XY11 CORRECT STMNT NORM K1303990
7B29 C100 413 | XY8A LD 1 0 IS CHAR SEMI-COLON 2-7 K1304000
7B2A 4C20 7B38 414 | BSC L CKCMA,Z BRANCH IF NO 2-7 K1304005
7B2C C480 7B17 415 | LD I IOOPS GO TO ERROR IF THIS IS 2-7 K1304010
7B2E 90B8 416 | S DIOOP *A FORMATTED DISK READ 2-7 K1304015
7B2F 4C18 7BFC 417 | BSC L XY7,+- *OR WRITE 2-7 K1304020
7B31 C00D 418 | LD SW2 IS IT READ STATEMENT 2-7 K1304025
7B32 4C20 7B38 419 | BSC L CKCMA,Z BRANCH IF YES 2-7 K1304030
7B34 C1FD 420 | LD 1 -3 IS IT UNFORMATTED WRITE K1304040
7B35 900F 421 | S TLP WITH NO LIST K1304050
7B36 4C18 7BFC 422 | BSC L XY7,+- BRANCH IF YES K1304060
423 | * K1304080
7B38 C010 424 | CKCMA LD TCOP PUT COMMA ON K1304090
7B39 4400 7C63 425 | BSI L CHECK OUTPUT STRING K1304100
426 | * K1304110
427 | * K1304120
7B3B 632F 428 | LDX 3 47 PUT ERROR NO. 47 K1304130
7B3C 6B07 429 | STX 3 ERNO INTO ERNO K1304140
7B3D 7018 430 | MDX XY10 START LIST CHECK K1304150
431 | * K1304160
432 | * CONSTANTS K1304170
7B3E 0000 433 | XT1 DC 0 TEMPORARY STORAGE K1304180
7B3F 0000 434 | SW2 DC 0 SWITCH 2 K1304190
7B40 0002 435 | TEND DC /02 END ID K1304200
7B41 0010 436 | TREAD DC /12-/02 READ ID K1304210
7B42 FFFF 437 | TWRIT DC /11-/12 WRITE ID K1304220
7B43 000C 438 | TFIND DC /1D-/11 FIND ID K1304230
7B44 0000 439 | ERNO DC 0 ERROR NUMBER K1304240
7B45 0010 440 | TLP DC /10 LEFT PARENTHESIS K1304250
7B46 0026 441 | IOOP DC /26 I/O OPERATOR K1304260
7B47 4000 442 | S4000 DC /4000 MASK TO CHECK FOR INTEGER K1304270
7B48 0002 443 | TRP DC /02 RIGHT PARENTHESIS K1304280
7B48 444 | RPARN EQU TRP RIGHT PARENTHESIS K1304290
7B49 0012 445 | ICMA DC /12 COMMA K1304300
7B49 446 | TCMA EQU ICMA COMMA K1304310
7B49 447 | TCOP EQU ICMA COMMA K1304320
7B4A 0012 448 | TRGLP DC /22-/10 SPECIAL SKIP INDICATOR K1304330
7B4B 0002 449 | TWO DC 2 TWO K1304340
7B4C 5BDE 450 | S5BDE DC /5BDE MASK FOR INTEGER VARIABLE K1304350
7B4D 0022 451 | TRGOP DC /22 SPECIAL SKIP INDICATOR K1304360
7B4E 002A 452 | DOAOP DC /2A DOA INDICATOR K1304370
7B4F 0000 453 | ALL DC 0 INDEXING PARAMETER COUNTER K1304380
7B50 FFF0 454 | HLQSP DC /02-/12 RIGHT PARENTHESIS K1304390
7B51 0004 455 | FOUR DC 4 FOUR K1304400
7B52 F803 456 | SF802 DC /F803 MASK TO CLEAR OUT NORM K1304410
7B53 0020 457 | S0020 DC /0020 VARIABLE DEFINED BIT MASK K1304420
7B54 FFDE 458 | SFFDE DC /FFDE MASK FOR INTEGER VARIABLE K1304430
7B55 DBDE 459 | SDBDE DC /DBDE CON OR VAR INTEGER MASK K1304440
460 | * K1304450
461 | * K1304460
7B56 C100 462 | XY10 LD 1 0 IS CHAR SEMI-COLON K1304470
7B57 4C18 7BEA 463 | BSC L XY11,+- BRANCH IF YES K1304480
464 | * K1304490
465 | * K1304500
466 | * CHECKS A VARIABLE FOR DEFINITION K1304510
467 | * IF DEFINED, SETS THE INDICATOR K1304520
468 | * IN THE SYM TBL ID WORD K1304530
7B59 C100 469 | XY14 LD 1 0 IS IT SPECIAL CHARACTER K1304540
7B5A 4C10 7B6F 470 | BSC L XY12,- BRANCH IF YES K1304550
471 | * K1304560
472 | * K1304570
7B5C 4400 7C4C 473 | BSI L GETID GET SYM TBL ID WORD K1304580
7B5E 4400 7D12 474 | BSI L TESTV TEST VALIDITY OF VARIABLE K1304590
475 | * K1304600
476 | * K1304610
7B60 C0DE 477 | LD SW2 IS IT READ STMNT K1304620
7B61 4C18 7B66 478 | BSC L XY14A,+- BRANCH IF NOT K1304630
479 | * K1304640
480 | * K1304650
7B63 C300 481 | LD 3 0 LOAD SYM TBL ID WORD K1304660
7B64 E8EE 482 | OR S0020 ADD DEFINED VAR BIT K1304670
7B65 D300 483 | STO 3 0 PUT BACK IN SYM TBL K1304680
484 | * K1304690
485 | * K1304700
7B66 4400 7C7E 486 | XY14A BSI L NAME POSITION PT TO NEXT VAR K1304710
487 | * K1304720
488 | * K1304730
7B68 C100 489 | XY17 LD 1 0 LOAD WORD K1304740
7B69 90DF 490 | S TCMA IS CHARACTER COMMA K1304750
7B6A 4C20 7BE7 491 | BSC L XY13,Z BRANCH IF NOT K1304760
492 | * K1304770
493 | * K1304780
7B6C 4400 7C72 494 | BSI L MOVE1 OUTPUT COMMA, MOVE PT K1304790
7B6E 70EA 495 | MDX XY14 START LIST CHECK AGAIN K1304800
496 | * K1304810
497 | * K1304820
7B6F 90D5 498 | XY12 S TLP IS CHAR LEFT PARENTHESIS K1304830
7B70 4C20 7B79 499 | BSC L XY15,Z BRANCH IF NOT K1304840
500 | * K1304850
501 | * K1304860
7B72 4400 7CAD 502 | BSI L DO CHECK FOR IMPLIED DO LOOP K1304870
503 | * K1304880
504 | * K1304890
7B74 C400 7CD1 505 | LD L SW3 WAS EQUAL SIGN FOUND K1304900
7B76 4C18 7BFC 506 | BSC L XY7,+- BRANCH IF NOT K1304910
7B78 700C 507 | MDX XY16 PROCESS IMPLIED DO LOOPS K1304920
508 | * K1304930
509 | * K1304940
7B79 90D0 510 | XY15 S TRGLP IS CHAR SPECIAL SKIP OPTR K1304950
7B7A 4C20 7BFC 511 | BSC L XY7,Z BRANCH IF NOT K1304960
512 | * K1304970
513 | * K1304980
7B7C 6303 514 | LDX 3 3 NO. WORDS TO BE SKIPPED K1304990
515 | * K1305000
516 | * K1305010
7B7D 4400 7C78 517 | BSI L OUT OUTPUT THREE WORDS K1305020
518 | * K1305030
519 | * K1305040
7B7F C100 520 | LD 1 0 LOAD CHARACTER K1305050
7B80 90C8 521 | S TCMA IS CHARACTER COMMA K1305060
7B81 4C20 7BE7 522 | BSC L XY13,Z BRANCH IF NOT K1305070
523 | * K1305080
524 | * K1305090
7B83 7101 525 | MDX 1 1 MOVE POINTER K1305100
7B84 70D4 526 | MDX XY14 CHECK REST OF LIST K1305110
527 | * K1305120
528 | * K1305130
529 | * CHECKS FOR A NON-DIMENSIONED K1305140
530 | * INTEGER VARIABLE K1305150
531 | * INDICATES DEFINITION IF DEFINED K1305160
532 | * GENERATES THE DO-INITIALIZE OPTR K1305170
7B85 6580 7CD5 533 | XY16 LDX I1 DOX GET ADDRESS OF K1305180
7B87 71FF 534 | MDX 1 -1 VARIABLE K1305190
535 | * K1305200
536 | * K1305210
7B88 6AB5 537 | STX 2 XT1 STORE OUTPUT POINTER K1305220
7B89 C0B4 538 | LD XT1 CHECK TO SEE IF K1305230
7B8A 80C0 539 | A TWO OVERLAP BETWEEN INPUT K1305240
7B8B 9400 7CC7 540 | S L DOY AND OUTPUT STRING K1305250
7B8D 4C10 7C6D 541 | BSC L CK1,- BRANCH IF OVERLAP K1305260
542 | * K1305270
543 | * NON-DIMENSIONED INTEGER VARIABLE K1305280
7B8F C100 544 | LD 1 0 LOAD WORD K1305290
7B90 4400 7C4C 545 | BSI L GETID GET SYM TBL ID WORD K1305300
7B92 1010 546 | SLA 16 MANIPULATIONS TO K1305310
7B93 9400 7A30 547 | S L SORF DETERMINE WHICH K1305320
7B95 1001 548 | SLA 1 MASK TO USE K1305330
7B96 C0BE 549 | LD SDBDE MAINLINE OR SUBROUTINE MASK K1305340
7B97 4802 550 | BSC C BRANCH NOT FUNCTION K1305350
7B98 C0BB 551 | LD SFFDE FUNCTION MASK K1305360
7B99 E300 552 | AND 3 0 TEST TO SEE IF VALID K1305370
7B9A F0AC 553 | EOR S4000 NON-DIMENSIONED INTEGER VAR K1305380
7B9B 4C20 7BFC 554 | BSC L XY7,Z BRANCH IF NOT VALID K1305390
555 | * K1305400
556 | * K1305410
7B9D C300 557 | LD 3 0 LOAD SYM TBL ID WORD K1305420
7B9E E8B4 558 | OR S0020 PUT IN VARIABLE DEFINED BIT K1305430
7B9F D300 559 | STO 3 0 PUT BACK IN SYMBOL TABLE K1305440
560 | * K1305450
561 | * K1305460
7BA0 4400 7C72 562 | BSI L MOVE1 OUTPUT VARIABLE,MOVE PT K1305470
563 | * K1305480
564 | * K1305490
7BA2 C0AA 565 | LD TRGOP REPLACE VARIABLE IN INPUT K1305500
7BA3 D1FF 566 | STO 1 -1 STRING WITH SKIP OPERATOR K1305510
567 | * K1305520
568 | * K1305530
7BA4 C0A9 569 | LD DOAOP PUT DOA OPERATOR K1305540
7BA5 4400 7C5E 570 | BSI L PUT ON OUTPUT STRING K1305550
571 | * K1305560
572 | * K1305570
7BA7 C09D 573 | LD TLP REPLACE EQUAL SIGN IN K1305580
7BA8 D100 574 | STO 1 0 INPUT STRING K1305590
575 | * K1305600
576 | * K1305610
7BA9 1010 577 | SLA 16 SET INDEXING PARAMETER K1305620
7BAA D0A4 578 | STO ALL COUNTER TO ZERO K1305630
579 | * K1305640
580 | * K1305650
7BAB 7101 581 | MDX 1 1 MOVE POINTER K1305660
582 | * K1305670
583 | * K1305680
7BAC 6A91 584 | XY21 STX 2 XT1 STORE OUTPUT POINTER K1305690
7BAD C090 585 | LD XT1 CHECK TO SEE IF K1305700
7BAE 809C 586 | A TWO OVERLAP BETWEEN INPUT K1305710
7BAF 9400 7CC7 587 | S L DOY AND OUTPUT STRING K1305720
7BB1 4C10 7C6D 588 | BSC L CK1,- BRANCH IF OVERLAP K1305730
589 | * K1305740
590 | * K1305750
7BB3 C100 591 | LD 1 0 GET INDEXING PARAMETER K1305760
7BB4 4400 7C4C 592 | BSI L GETID GET SYM TBL ID WORD K1305770
7BB6 E095 593 | AND S5BDE CHECK FOR VALID INTEGER K1305780
7BB7 F08F 594 | EOR S4000 CONSTANT OR VARIABLE K1305790
7BB8 4C20 7BFC 595 | BSC L XY7,Z BRANCH IF NOT VALID K1305800
596 | * K1305810
597 | * K1305820
7BBA 4400 7C72 598 | BSI L MOVE1 OUTPUT WORD, MOVE PT K1305830
599 | * K1305840
600 | * K1305850
7BBC C092 601 | LD ALL IS PARAMETER CTR ZERO K1305860
7BBD 4C18 7BC2 602 | BSC L XY18,+- BRANCH IF YES K1305870
603 | * K1305880
604 | * K1305890
7BBF 4400 7D05 605 | BSI L DELET REMOVE WORD FROM STRING K1305900
7BC1 7002 606 | MDX XY19 CHECK NEXT WORD ON LIST K1305910
607 | * K1305920
608 | * K1305930
7BC2 C08A 609 | XY18 LD TRGOP REPLACE INDEXING PARAMETER K1305940
7BC3 D1FF 610 | STO 1 -1 WITH SKIP OPERATOR K1305950
611 | * K1305960
612 | * K1305970
7BC4 7401 7B4F 613 | XY19 MDX L ALL,1 INCREMENT IDX PARAM CTR K1305980
614 | * K1305990
615 | * K1306000
7BC6 C100 616 | LD 1 0 LOAD WORD K1306010
7BC7 9400 7B49 617 | S L TCOP IS CHARACTER COMMA K1306020
7BC9 4C20 7BD0 618 | BSC L XY20,Z BRANCH IF NOT K1306030
619 | * K1306040
620 | * K1306050
7BCB 4400 7C72 621 | BSI L MOVE1 OUTPUT COMMA, MOVE PT K1306060
622 | * K1306070
623 | * CALL DELET K1306080
7BCD 4400 7D05 624 | BSI L DELET REMOVE WORD FROM STRING K1306090
7BCF 70DC 625 | MDX XY21 CHECK NEXT INDEXING PARAM K1306100
626 | * K1306110
627 | * K1306120
7BD0 9400 7B50 628 | XY20 S L HLQSP IS CHAR RIGHT PARENTHESIS K1306130
7BD2 4C20 7BFC 629 | BSC L XY7,Z BRANCH IF NOT K1306140
630 | * K1306150
631 | * K1306160
7BD4 4400 7C72 632 | BSI L MOVE1 OUTPUT WORD, MOVE PT K1306170
633 | * K1306180
634 | * K1306190
7BD6 4400 7D05 635 | BSI L DELET REMOVE WORD FROM STMNT K1306200
636 | * K1306210
637 | * K1306220
7BD8 C400 7B4F 638 | LD L ALL IS INDEXING PARAM CTR K1306230
7BDA 9400 7D6D 639 | S L ONE LESS THAN ONE K1306240
7BDC 4C08 7BFC 640 | BSC L XY7,+ BR IF YES K1306250
641 | * K1306260
7BDE 9400 7B4B 642 | S L TWO IS IT .GT. THREE K1306270
7BE0 4C30 7BFC 643 | BSC L XY7,-Z BR IF YES K1306280
644 | * K1306290
7BE2 6580 7CC7 645 | LDX I1 DOY MOVE START LIST PT TO K1306300
7BE4 7101 646 | MDX 1 1 NEXT WORD IN LIST K1306310
7BE5 4C00 7B56 647 | BSC L XY10 CHECK REST OF LIST K1306320
648 | * K1306330
649 | * K1306340
7BE7 C100 650 | XY13 LD 1 0 IS CHAR SEMI-COLON K1306350
7BE8 4C20 7BFC 651 | BSC L XY7,Z BRANCH IF NOT K1306360
652 | * K1306370
653 | * MOVES A WORD TO THE O/P STRING K1306380
654 | * ADJUSTS THE STMNT NORM K1306390
7BEA 4400 7C5E 655 | XY11 BSI L PUT PUT CHAR ON OUTPUT STRING K1306400
656 | * K1306410
657 | * CORRECT STATEMENT NORM K1306420
7BEC C480 7BFD 658 | LD I IDSV2 CLEAR NORM K1306430
7BEE E400 7B52 659 | AND L SF802 SAVE ID WORD K1306440
7BF0 D009 660 | STO XT4 SAVE OUTPUT POINTER K1306450
7BF1 6A07 661 | STX 2 XT3 GET NEW NORM BY SUBTRACTING K1306460
7BF2 C006 662 | LD XT3 ADDRESS OF ID WORD FROM K1306470
7BF3 9009 663 | S IDSV2 PRESENT POINTER K1306480
7BF4 1002 664 | SLA 2 K1306490
7BF5 8004 665 | A XT4 PUT NORM IN ID WORD K1306500
7BF6 D480 7BFD 666 | STO I IDSV2 PUT BACK ON OUTPUT STRING K1306510
7BF8 7015 667 | MDX XY22 MOVE TO NEXT STMNT K1306520
668 | * K1306530
669 | * CONSTANTS K1306540
7BF9 0000 670 | XT3 DC 0 TEMPORARY STORAGE K1306550
7BFA 0000 671 | XT4 DC 0 TEMPORARY STORAGE K1306560
7BFB A008 672 | ERID DC /A008 ERROR ID WORD K1306570
673 | * K1306580
674 | * REPLACES THE ERRONEOUS STMNT K1306590
675 | * BY AN ERROR MESSAGE K1306600
7BFC 6600 0000 676 | XY7 LDX L2 *-* LOAD OUTPUT POINTER WITH K1306610
7BFD 677 | IDSV2 EQU XY7+1 ADDRESS OF OUTPUT ID WORD K1306620
7BFE C200 678 | LD 2 0 LOAD OUTPUT WORD K1306630
7BFF F045 679 | EOR FIVE BRANCH IF HAS NO K1306640
7C00 4C04 7C07 680 | BSC L *+5,E STATEMENT NUMBER K1306650
7C02 C042 681 | LD FIVE PUT STMNT NO. BIT AND ADD K1306660
7C03 80F7 682 | A ERID ONE TO NORM OF ID WORD K1306670
7C04 D200 683 | STO 2 0 PUT ON OUTPUT STRING K1306680
7C05 7201 684 | MDX 2 1 MOVE POINTER K1306690
7C06 7003 685 | MDX *+3 GO PUT ERROR NO. ON STRING K1306700
7C07 C400 7BFB 686 | LD L ERID LOAD ERROR ID WORD K1306710
7C09 D200 687 | STO 2 0 PUT ON OUTPUT STRING K1306720
7C0A C400 7B44 688 | LD L ERNO LOAD ERROR NUMBER K1306730
7C0C D201 689 | STO 2 1 PUT ON STRING K1306740
7C0D 7202 690 | MDX 2 2 MOVE POINTER K1306750
691 | * K1306760
692 | * MOVE TO NEXT STATEMENT K1306770
7C0E 6500 0000 693 | XY22 LDX L1 *-* LOAD INPUT POINTER WITH K1306780
7C0F 694 | NXTID EQU XY22+1 NEXT STMNT ADDRESS K1306790
7C10 4C00 7A6C 695 | BSC L XY1 SCAN STMNT K1306800
696 | * K1306810
697 | * K1306820
698 | * CHECKS THE SYNTAX OF GO TO K1306830
699 | * STMNTS - CHECKS THE STMNT NO. K1306840
700 | * LIST FOR VALID REFERENCES K1306850
7C12 9033 701 | XY24 S TGOTO IS IT GO TO STMNT K1306860
7C13 4C20 7D35 702 | BSC L W11,Z BRANCH IF NOT K1306870
703 | * K1306880
704 | * K1306890
7C15 6330 705 | LDX 3 48 PUT ERROR NO. 48 K1306900
7C16 6F00 7B44 706 | STX L3 ERNO IN ERNO K1306910
707 | * K1306920
708 | * K1306930
7C18 C031 709 | LD GOTOP LOAD GO TO OPERATOR K1306940
7C19 4049 710 | BSI CHECK PUT ON OUTPUT STRING K1306950
711 | * K1306960
712 | * K1306970
7C1A C100 713 | LD 1 0 LOAD WORD K1306980
7C1B 902B 714 | S ULP IS CHAR LEFT PARENTHESIS K1306990
7C1C 4C18 7C26 715 | BSC L XY26,+- BRANCH IF YES K1307000
716 | * K1307010
717 | * K1307020
7C1E 4400 7CE5 718 | BSI L LIST CHECK FOR CORRECT FORMAT K1307030
719 | * K1307040
720 | * K1307050
7C20 C400 7D01 721 | LD L CNT IS NO. OF PLACES TO BRANCH K1307060
7C22 9028 722 | S THER GREATER THAN ONE K1307070
7C23 4C20 7BFC 723 | BSC L XY7,Z BRANCH IF YES K1307080
7C25 70C1 724 | XYZ13 MDX XY13 CHECK FOR END OF STMNT K1307090
725 | * K1307100
726 | * K1307110
7C26 404B 727 | XY26 BSI MOVE1 OUTPUT WORD, MOVE POINTER K1307120
728 | * K1307130
729 | * K1307140
7C27 4400 7CE5 730 | BSI L LIST CHECK FOR CORRECT FORMAT K1307150
731 | * K1307160
732 | * K1307170
7C29 C100 733 | LD 1 0 IS CHARACTER K1307180
7C2A 901D 734 | S URP RIGHT PARENTHESIS K1307190
7C2B 4C20 7BFC 735 | BSC L XY7,Z BRANCH IF NOT K1307200
736 | * K1307210
737 | * K1307220
7C2D C400 7D01 738 | LD L CNT LOAD COUNT OF STMNT NOS. K1307230
7C2F F015 739 | EOR FIVE IS COUNT ODD K1307240
7C30 4C04 7BFC 740 | BSC L XY7,E BRANCH IF YES K1307250
741 | * K1307260
742 | * K1307270
7C32 6331 743 | LDX 3 49 PUT ERROR NO. 49 K1307280
7C33 6F00 7B44 744 | STX L3 ERNO IN ERNO K1307290
745 | * K1307300
746 | * K1307310
7C35 403C 747 | BSI MOVE1 OUTPUT WORD, MOVE POINTER K1307320
748 | * K1307330
749 | * K1307340
7C36 C100 750 | LD 1 0 IS CHARACTER K1307350
7C37 9011 751 | S UCMA COMMA K1307360
7C38 4C20 7BFC 752 | BSC L XY7,Z BRANCH IF NOT K1307370
753 | * K1307380
754 | * K1307390
7C3A 4037 755 | BSI MOVE1 OUTPUT WORD, MOVE POINTER K1307400
756 | * K1307410
757 | * K1307420
7C3B C100 758 | LD 1 0 LOAD WORD K1307430
7C3C 400F 759 | BSI GETID GET SYM TBL ID WORD K1307440
7C3D E006 760 | AND TDBDE IS IT NON-DIMENSIONED K1307450
7C3E F004 761 | EOR T4000 INTEGER VARIABLE K1307460
7C3F 4C20 7BFC 762 | BSC L XY7,Z BRANCH IF NOT K1307470
763 | * K1307480
764 | * K1307490
7C41 4030 765 | BSI MOVE1 OUTPUT WORD, GET NEXT WORD K1307500
7C42 70E2 766 | MDX XYZ13 CHECK FOR END OF STMNT K1307510
767 | * K1307520
768 | * CONSTANTS K1307530
7C43 4000 769 | T4000 DC /4000 INTEGER MASK - PART 2 K1307540
7C44 DBDE 770 | TDBDE DC /DBDE INTEGER MASK - PART 1 K1307550
7C45 0005 771 | FIVE DC 5 STMNT NO. MASK K1307560
7C46 FFF1 772 | TGOTO DC /0E-/1D GO TO ID TYPE K1307570
7C47 0010 773 | ULP DC /10 LEFT PARENTHESIS K1307580
7C48 0002 774 | URP DC /02 RIGHT PARENTHESIS K1307590
7C49 0012 775 | UCMA DC /12 COMMA K1307600
7C4A 0016 776 | GOTOP DC /16 GO TO STMNT ID TYPE K1307610
7C4B 0001 777 | THER DC 1 ONE K1307620
778 | *************************************************** K1307630
779 | * GETS THE ID WORD FROM THE * K1307640
780 | * SYMBOL TABLE ENTRY. * K1307650
781 | *************************************************** K1307660
782 | * K1307670
783 | * K1307680
7C4C 0000 784 | GETID DC 0 ENTRY POINT K1307690
7C4D 4C10 7BFC 785 | BSC L XY7,- BRANCH IF SPECIAL OPERATOR K1307700
7C4F E00D 786 | AND SO1FF GET NO. OF TBL ENTRY K1307710
7C50 1002 787 | SLA 2 GET ADDRESS RELATIVE TO K1307720
7C51 D006 788 | STO *+6 START OF SYM TBL BY K1307730
7C52 1802 789 | SRA 2 MULTIPLYING NO. OF ENTRY BY K1307740
7C53 9004 790 | S *+4 THREE (SIZE OF ENTRY) K1307750
7C54 8400 7A26 791 | A L SOFST GET ABSOLUTE ADDRESS - 3 K1307760
7C56 D001 792 | STO *+1 OF SYM TBL ENTRY K1307770
7C57 6700 0000 793 | LDX L3 *-* INITIALIZE SYM TBL PT K1307780
7C59 7303 794 | MDX 3 3 GET SYM TBL ENTRY ADDR K1307790
7C5A C300 795 | LD 3 0 LOAD SYM TBL ID WORD K1307800
7C5B 4C80 7C4C 796 | BSC I GETID RETURN K1307810
797 | * K1307820
798 | * CONSTANTS K1307830
7C5D 07FF 799 | SO1FF DC /07FF MASK TO GET SYM TBL NO. K1307840
800 | *************************************************** K1307850
801 | * MOVES THE WORD IN THE ACC TO * K1307860
802 | * THE OUTPUT STRING * K1307870
803 | * MOVES THE POINTER * K1307880
804 | *************************************************** K1307890
805 | * * K1307900
806 | * K1307910
7C5E 0000 807 | PUT DC 0 ENTRY POINT K1307920
7C5F D200 808 | STO 2 0 PUT WORD ON OUTPUT STRING K1307930
809 | * K1307940
810 | * K1307950
7C60 7201 811 | MDX 2 1 MOVE POINTER K1307960
812 | * K1307970
813 | * K1307980
7C61 4C80 7C5E 814 | BSC I PUT RETURN K1307990
815 | *************************************************** K1308000
816 | * CHECKS FOR AN OVERLAP CONDITION* K1308010
817 | * BETWEEN THE INPUT AND OUTPUT * K1308020
818 | * STMNT STRINGS * K1308030
819 | *************************************************** K1308040
820 | * K1308050
821 | * K1308060
7C63 0000 822 | CHECK DC 0 ENTRY POINT K1308070
7C64 40F9 823 | BSI PUT OUTPUT WORD K1308080
824 | * K1308090
825 | * K1308100
7C65 690B 826 | STX 1 CKTEM STORE INPUT PT K1308110
7C66 C00A 827 | LD CKTEM LOAD INPUT PT K1308120
7C67 6A09 828 | STX 2 CKTEM STORE OUTPUT PT K1308130
7C68 9008 829 | S CKTEM SUBTRACT OUTPUT PT K1308140
7C69 4C08 7C6D 830 | BSC L CK1,+ BRANCH IF OVERLAP K1308150
831 | * K1308160
832 | * K1308170
7C6B 4C80 7C63 833 | BSC I CHECK RETURN K1308180
834 | * K1308190
835 | * SET UP OVERLAP ERROR K1308200
7C6D 7401 7A2D 836 | CK1 MDX L ERROR,1 SET OVERLAP ERROR K1308210
7C6F 4C00 7A3C 837 | BSC L OVERF GO TO NEXT PHASE K1308220
838 | * K1308230
839 | * CONSTANTS K1308240
7C71 0000 840 | CKTEM DC 0 TEMPORARY STORAGE K1308250
841 | *************************************************** K1308260
842 | * MOVES ONE WORD FROM THE INPUT * K1308270
843 | * STRING TO THE OUTPUT STRING * K1308280
844 | * INCREMENTS THE POINTER * K1308290
845 | *************************************************** K1308300
846 | * K1308310
847 | * K1308320
7C72 0000 848 | MOVE1 DC 0 ENTRY POINT K1308330
7C73 C100 849 | LD 1 0 LOAD WORD K1308340
7C74 40E9 850 | BSI PUT PUT ON OUTPUT STRING K1308350
851 | * K1308360
852 | * K1308370
7C75 7101 853 | MDX 1 1 MOVE INPUT POINTER K1308380
854 | * K1308390
855 | * K1308400
7C76 4C80 7C72 856 | BSC I MOVE1 RETURN K1308410
857 | *************************************************** K1308420
858 | * MOVES WORDS TO THE OUTPUT * K1308430
859 | * STRING USING XR3 AS A COUNT * K1308440
860 | * CONTROL * K1308450
861 | *************************************************** K1308460
862 | * K1308470
863 | * K1308480
7C78 0000 864 | OUT DC 0 ENTRY POINT K1308490
7C79 40F8 865 | BSI MOVE1 OUTPUT WORD, MOVE POINTER K1308500
866 | * K1308510
867 | * K1308520
7C7A 73FF 868 | MDX 3 -1 DECREMENT COUNTER K1308530
869 | * K1308540
870 | * K1308550
7C7B 70FD 871 | MDX OUT+1 CONTINUE LOOP K1308560
872 | * K1308570
873 | * K1308580
7C7C 4C80 7C78 874 | BSC I OUT RETURN K1308590
875 | *************************************************** K1308600
876 | * CHECKS NAMES FOR DIMENSIONING * K1308610
877 | * DETERMINES THE DIMENSION LEVEL * K1308620
878 | * MOVES THE NAME AND DIMENSION * K1308630
879 | * INFORMATION TO THE O/P STRING * K1308640
880 | * ALLOWS SPACE IN THE O/P STRING * K1308650
881 | * ACCORDING TO THE DIM LEVEL. * K1308660
882 | *************************************************** K1308670
883 | * K1308680
884 | * K1308690
7C7E 0000 885 | NAME DC 0 ENTRY POINT K1308700
7C7F C100 886 | LD 1 0 LOAD WORD K1308710
7C80 40DD 887 | BSI PUT K1308720
888 | * K1308730
889 | * K1308740
7C81 40CA 890 | BSI GETID GET SYM TBL ID WORD K1308750
7C82 E025 891 | AND S1800 IS IT DIMENSIONED NAME K1308760
7C83 4C20 7C8B 892 | BSC L NAME1,Z BRANCH IF YES K1308770
893 | * K1308780
894 | * K1308790
7C85 7101 895 | MDX 1 1 MOVE POINTER K1308800
896 | * K1308810
897 | * K1308820
7C86 6820 898 | STX 0 SW7 TAG DIMENSION NAME SWITCH K1308830
899 | * K1308840
900 | * K1308850
7C87 1010 901 | NAME3 SLA 16 CLEAR DIMENSION NAME K1308860
7C88 D01D 902 | STO SW1 SUBSCRIPTED SWITCH K1308870
903 | * K1308880
904 | * K1308890
7C89 4C80 7C7E 905 | NAME8 BSC I NAME RETURN K1308900
906 | * K1308910
907 | * K1308920
7C8B 1010 908 | NAME1 SLA 16 CLEAR DIMENSIONED K1308930
7C8C D01A 909 | STO SW7 NAME SWITCH K1308940
910 | * K1308950
911 | * K1308960
7C8D 7101 912 | MDX 1 1 MOVE INPUT POINTER K1308970
913 | * K1308980
914 | * K1308990
7C8E C100 915 | LD 1 0 K1309000
7C8F 9019 916 | S NP3 IS IT 3-DIMENSIONED VAR K1309010
7C90 4C20 7C95 917 | BSC L NAME2,Z BRANCH IF NOT K1309020
918 | * K1309030
919 | * K1309040
7C92 630F 920 | LDX 3 15 SET MOVE-WORD COUNTER K1309050
921 | * K1309060
922 | * K1309070
7C93 40E4 923 | NAME4 BSI OUT PUT WORDS ON OUTPUT STRING K1309080
7C94 70F2 924 | MDX NAME3 NORMALIZE SWITCH 1 K1309090
925 | * K1309100
926 | * K1309110
7C95 9014 927 | NAME2 S NP2 IS IT 2-DIMENSIONED VAR K1309120
7C96 4C20 7C9A 928 | BSC L NAME5,Z BRANCH IF NOT K1309130
929 | * K1309140
930 | * K1309150
7C98 630B 931 | LDX 3 11 LOAD MOVE-WORD CTR K1309160
7C99 70F9 932 | MDX NAME4 GO TO PUT ON STRING K1309170
933 | * K1309180
934 | * K1309190
7C9A 9010 935 | NAME5 S NP1 IS IT 1-DIMENSIONED VAR K1309200
7C9B 4C20 7C9F 936 | BSC L NAME6,Z BRANCH IF NOT K1309210
937 | * K1309220
938 | * K1309230
7C9D 6307 939 | LDX 3 7 LOAD MOVE-WORD CTR K1309240
7C9E 70F4 940 | MDX NAME4 GO TO PUT ON STRING K1309250
941 | * K1309260
942 | * K1309270
7C9F 900C 943 | NAME6 S NP0 IS IT LITERAL K1309280
7CA0 4C20 7CA4 944 | BSC L NAME7,Z BRANCH IF NOT K1309290
945 | * K1309300
946 | * K1309310
7CA2 6303 947 | LDX 3 3 LOAD MOVE-WORD CTR K1309320
7CA3 70EF 948 | MDX NAME4 GO TO PUT ON STRING K1309330
949 | * K1309340
950 | * K1309350
7CA4 6801 951 | NAME7 STX 0 SW1 SET SWITCH TO NOT SUBSCRIPT K1309360
7CA5 70E3 952 | MDX NAME8 RETURN K1309370
953 | * K1309380
954 | * CONSTANTS K1309390
7CA6 0000 955 | SW1 DC 0 SWITCH 1 K1309400
7CA7 0000 956 | SW7 DC 0 SWITCH 7 K1309410
7CA8 1800 957 | S1800 DC /1800 MASK TO TEST FOR DIMENSIONS K1309420
7CA9 001E 958 | NP3 DC /1E (3 OPERATOR K1309430
7CAA FFFE 959 | NP2 DC /1C-/1E (2 OPERATOR K1309440
7CAB FFFE 960 | NP1 DC /1A-/1C (1 OPERATOR K1309450
7CAC FFFE 961 | NP0 DC /18-/1A LITERAL OPERATOR K1309460
962 | *************************************************** K1309470
963 | * CHECKS FOR IMPLIED DO LOOPS IN * K1309480
964 | * INPUT AND OUTPUT LISTS * K1309490
965 | * CHECKS THE SYNTAX OF THE * K1309500
966 | * IMPLIED DO * K1309510
967 | *************************************************** K1309520
968 | * K1309530
969 | * K1309540
7CAD 0000 970 | DO DC 0 ENTRY POINT K1309550
7CAE 6918 971 | STX 1 DOY SAVE INPUT POINTER K1309560
972 | * K1309570
973 | * K1309580
7CAF 6301 974 | LDX 3 1 INITIALIZE K1309590
7CB0 6B1A 975 | STX 3 DOPAR PARENTHESIS COUNTER K1309600
976 | * K1309610
977 | * K1309620
7CB1 7101 978 | DO3 MDX 1 1 MOVE POINTER K1309630
979 | * K1309640
980 | * K1309650
7CB2 C100 981 | LD 1 0 IS CHARACTER SEMI-COLON K1309660
7CB3 4C18 7CC4 982 | BSC L DO1,+- BRANCH IF YES K1309670
983 | * K1309680
984 | * K1309690
7CB5 901C 985 | S DLPAR IS CHAR LEFT-PARENTHESIS K1309700
7CB6 4C20 7CBB 986 | BSC L DO2,Z BRANCH IF NOT K1309710
987 | * K1309720
988 | * K1309730
7CB8 7401 7CCB 989 | MDX L DOPAR,1 INCREMENT PARENTHESIS CTR K1309740
7CBA 70F6 990 | MDX DO3 GET NEXT WORD K1309750
991 | * K1309760
992 | * K1309770
7CBB 9017 993 | DO2 S DPMES IS CHARACTER EQUAL SIGN K1309780
7CBC 4C18 7CCA 994 | BSC L DO4,+- BRANCH IF YES K1309790
995 | * K1309800
996 | * K1309810
7CBE 9015 997 | S DEMRP IS CHAR RIGHT PARENTHESIS K1309820
7CBF 4C20 7CD9 998 | BSC L DO6,Z BRANCH IF NOT K1309830
999 | * K1309840
1000 | * K1309850
7CC1 74FF 7CCB 1001 | MDX L DOPAR,-1 DECREMENT PARENTHESIS CTR K1309860
1002 | * K1309870
1003 | * K1309880
7CC3 70ED 1004 | MDX DO3 GET NEXT WORD K1309890
1005 | * K1309900
1006 | * K1309910
7CC4 1010 1007 | DO1 SLA 16 CLEAR EQUAL K1309920
7CC5 D00B 1008 | STO SW3 SIGN SWITCH K1309930
1009 | * K1309940
1010 | * K1309950
7CC6 6500 0000 1011 | DO5 LDX L1 *-* RESTORE K1309960
7CC7 1012 | DOY EQU DO5+1 INPUT POINTER K1309970
1013 | * K1309980
1014 | * K1309990
7CC8 4C80 7CAD 1015 | BSC I DO RETURN K1310000
1016 | * K1310010
1017 | * K1310020
7CCA 6700 0000 1018 | DO4 LDX L3 *-* LOAD K1310030
7CCB 1019 | DOPAR EQU DO4+1 PARENTHESIS COUNTER K1310040
7CCC 73FF 1020 | MDX 3 -1 DECREMENT PARENTHESIS CTR K1310050
7CCD 70E3 1021 | MDX DO3 GET NEXT WORD K1310060
1022 | * K1310070
1023 | * K1310080
7CCE 6906 1024 | STX 1 DOX SAVE INPUT POINTER K1310090
1025 | * K1310100
1026 | * K1310110
7CCF 6801 1027 | STX 0 SW3 SET EQUAL SIGN SWITCH K1310120
7CD0 70F5 1028 | MDX DO5 RETURN K1310130
1029 | * K1310140
1030 | * CONSTANTS K1310150
7CD1 0000 1031 | SW3 DC 0 SWITCH 3 K1310160
7CD2 0010 1032 | DLPAR DC /10 LEFT PARENTHESIS K1310170
7CD3 FFFE 1033 | DPMES DC /0E-/10 EQUAL SIGN K1310180
7CD4 FFF4 1034 | DEMRP DC /02-/0E RIGHT PARENTHESIS K1310190
7CD5 0000 1035 | DOX DC 0 INPUT POINTER AT EQUAL SIGN K1310200
7CD6 0016 1036 | DSPMR DC /18-/02 3-DIMENSIONED OPERATOR K1310210
7CD7 0006 1037 | DSPDL DC /1E-/18 0-DIMENSIONED OPERATOR K1310220
7CD8 0007 1038 | DOS1 DC /07 SEVEN K1310230
1039 | * K1310240
1040 | * K1310250
7CD9 90FC 1041 | DO6 S DSPMR IS CHARACTER A SPECIAL K1310260
7CDA 4C28 7CB1 1042 | BSC L DO3,+Z LEFT PARENTHESIS K1310270
7CDC 90FA 1043 | S DSPDL GET NEXT CHARACTER K1310280
7CDD 4C30 7CB1 1044 | BSC L DO3,-Z IF NOT K1310290
1045 | * K1310300
1046 | * MOVE PT OVER SUBSCRIPT K1310310
7CDF 80F8 1047 | A DOS1 ADD NINE K1310320
7CE0 1001 1048 | SLA 1 MULTIPLY BY TWO K1310330
7CE1 D001 1049 | STO *+1 INCREMENT INPUT PT K1310340
7CE2 7500 0000 1050 | MDX L1 *-* TO MOVE OVER SUBSCRIPT K1310350
7CE4 70CC 1051 | MDX DO3 GET NEXT WORD K1310360
1052 | *************************************************** K1310370
1053 | * CHECKS THE STMNT NUMBER LIST * K1310380
1054 | * IN GO TO STMNT FOR VALID * K1310390
1055 | * REFERENCES. * K1310400
1056 | * LABEL LIST * K1310410
1057 | *************************************************** K1310420
1058 | * K1310430
1059 | * K1310440
7CE5 0000 1060 | LIST DC 0 ENTRY POINT K1310450
7CE6 1010 1061 | SLA 16 CLEAR COUNT K1310460
7CE7 D019 1062 | STO CNT OF STMNT NOS. K1310470
1063 | * K1310480
1064 | * NON-FORMAT STATEMENT NUMBER K1310490
7CE8 C100 1065 | LIST3 LD 1 0 LOAD WORD K1310500
7CE9 4400 7C4C 1066 | BSI L GETID SET SYM TBL 1D WORD K1310510
7CEB E017 1067 | AND TFFDE IS WORD A K1310520
7CEC F017 1068 | EOR S0200 STMNT NO. K1310530
7CED 4C20 7CF7 1069 | BSC L LIST2,Z BRANCH IF NOT K1310540
1070 | * K1310550
1071 | * K1310560
7CEF 4082 1072 | BSI MOVE1 OUTPUT WORD, MOVE POINTER K1310570
1073 | * K1310580
1074 | * K1310590
7CF0 7401 7D01 1075 | LIST1 MDX L CNT,1 MODIFY COUNTER K1310600
1076 | * K1310610
1077 | * K1310620
7CF2 C100 1078 | LD 1 0 LOAD WORD K1310630
7CF3 900E 1079 | S LCMA IS CHARACTER COMMA K1310640
7CF4 4C18 7CFC 1080 | BSC L LIST4,+- BRANCH IF YES K1310650
7CF6 7003 1081 | MDX LIST5 RETURN K1310660
1082 | * K1310670
1083 | * K1310680
7CF7 632B 1084 | LIST2 LDX 3 43 PUT ERROR NO. 43 K1310690
7CF8 6F00 7B44 1085 | STX L3 ERNO IN ERNO K1310700
1086 | * K1310710
1087 | * K1310720
7CFA 4C80 7CE5 1088 | LIST5 BSC I LIST RETURN K1310730
1089 | * K1310740
1090 | * K1310750
7CFC 7401 7D01 1091 | LIST4 MDX L CNT,1 INCREMENT COUNTER K1310760
1092 | * K1310770
1093 | * K1310780
7CFE 4400 7C72 1094 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1310790
7D00 70E7 1095 | MDX LIST3 GET NEXT WORD K1310800
1096 | * K1310810
1097 | * CONSTANTS K1310820
7D01 0000 1098 | CNT DC 0 STMNT NO. COUNTER K1310830
7D02 0012 1099 | LCMA DC /12 COMMA K1310840
7D03 FFDE 1100 | TFFDE DC /FFDE STMNT NO. MASK - PART 1 K1310850
7D04 0200 1101 | S0200 DC /0200 STMNT NO. MASK - PART 2 K1310860
1102 | *************************************************** K1310870
1103 | * DELETES ONE WD FROM I/P STRING * K1310880
1104 | *************************************************** K1310890
1105 | * K1310900
1106 | * K1310910
7D05 0000 1107 | DELET DC 0 ENTRY POINT K1310920
7D06 71FF 1108 | MDX 1 -1 ADDRESS OF PREVIOUS WORD K1310930
1109 | * K1310940
1110 | * K1310950
7D07 6907 1111 | STX 1 DELX SAVE ADDRESS K1310960
1112 | * K1310970
1113 | * K1310980
7D08 C101 1114 | DLT2 LD 1 1 MOVE WORD DOWN ONE K1310990
7D09 D100 1115 | STO 1 0 POSITION IN STRING K1311000
1116 | * K1311010
1117 | * K1311020
7D0A 4C18 7D0E 1118 | BSC L DLT1,+- EXIT IF SEMI-COLON K1311030
1119 | * K1311040
1120 | * K1311050
7D0C 7101 1121 | MDX 1 1 MOVE POINTER K1311060
7D0D 70FA 1122 | MDX DLT2 CONTINUE LOOP K1311070
1123 | * K1311080
1124 | * K1311090
7D0E 6500 0000 1125 | DLT1 LDX L1 *-* RESTORE K1311100
7D0F 1126 | DELX EQU DLT1+1 INPUT POINTER K1311110
1127 | * K1311120
1128 | * K1311130
7D10 4C80 7D05 1129 | BSC I DELET RETURN K1311140
1130 | * K1311150
1131 | * CHECKS FOR VALID VARIABLES IN K1311160
1132 | * READ, WRITE, AND GO TO STMNTS K1311170
7D12 0000 1133 | TESTV DC 0 ENTRY POINT K1311180
7D13 C400 7A30 1134 | LD L SORF LOAD SORF K1311190
7D15 4C08 7D22 1135 | BSC L TESTW,+ BRANCH NOT FUNCTION K1311200
7D17 C100 1136 | LD 1 0 LOAD NAME K1311210
7D18 9400 7A2E 1137 | S L FNAME IS IT PROGRAM NAME K1311220
7D1A 4C98 7D12 1138 | BSC I TESTV,+- BRANCH IF YES K1311230
7D1C C400 7B3F 1139 | LD L SW2 IS IT WRITE STMNT K1311240
7D1E 4C18 7D22 1140 | BSC L TESTW,+- BRANCH IF YES K1311250
7D20 C008 1141 | LD SA7DE LOAD READ MASK K1311260
7D21 7001 1142 | MDX TESTX GO TO TEST K1311270
7D22 C005 1143 | TESTW LD S83DE TEST FOR K1311280
7D23 E300 1144 | TESTX AND 3 0 VALID VARIABLE K1311290
7D24 4C20 7BFC 1145 | BSC L XY7,Z BRANCH IF INVALID K1311300
7D26 4C80 7D12 1146 | BSC I TESTV RETURN K1311310
7D28 83DE 1147 | S83DE DC /83DE WRITE MASK K1311320
7D29 A7DE 1148 | SA7DE DC /A7DE READ MASK K1311330
1149 | * K1311340
1150 | * MOVES A STMNT TO THE O/P STRING K1311350
7D2A 6700 0000 1151 | XY27 LDX L3 *-* LOAD NORM K1311360
7D2C 73FF 1152 | MDX 3 -1 DECREMENT NORM K1311370
7D2D 7001 1153 | MDX *+1 SKIP NEXT INSTRUCTION K1311380
7D2E 7004 1154 | MDX XY27A MOVE TO NEXT STMNT K1311390
7D2F 4400 7C72 1155 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1311400
7D31 73FF 1156 | MDX 3 -1 DECREMENT NORM K1311410
7D32 70FA 1157 | MDX XY27+3 CONTINUE LOOP K1311420
7D33 4C00 7C0E 1158 | XY27A BSC L XY22 MOVE TO NEXT STMNT K1311430
1159 | * K1311440
1160 | * K1311450
7D35 9038 1161 | W11 S WEQU IS IT EQUIVALENCE STMNT K1311460
7D36 4C20 7D2A 1162 | BSC L XY27,Z BRANCH IF NOT K1311470
1163 | * K1311480
1164 | * K1311490
7D38 6344 1165 | LDX 3 68 PUT ERROR NO. 68 K1311500
7D39 6F00 7B44 1166 | STX L3 ERNO IN ERNO K1311510
1167 | * K1311520
1168 | * K1311530
7D3B C100 1169 | W12 LD 1 0 LOAD WORD K1311540
7D3C 9032 1170 | S WLP IS CHAR LEFT PARENTHESIS K1311550
7D3D 4C20 7BFC 1171 | BSC L XY7,Z BRANCH IF NOT K1311560
1172 | * K1311570
1173 | * INITIALIZE LIST COUNT K1311580
7D3F D02C 1174 | STO LCT TO ZERO K1311590
1175 | * K1311600
1176 | * K1311610
7D40 4400 7C72 1177 | W13 BSI L MOVE1 MOVE POINTER K1311620
1178 | * K1311630
1179 | * K1311640
7D42 C100 1180 | LD 1 0 LOAD WORD K1311650
7D43 4400 7C4C 1181 | BSI L GETID GET SYM TBL ID WORD K1311660
7D45 E02A 1182 | AND W83DE IS VALID TO BE EQUIVALENCE K1311670
7D46 4C20 7BFC 1183 | BSC L XY7,Z BRANCH IF NOT K1311680
1184 | * K1311690
1185 | * K1311700
7D48 4400 7C7E 1186 | BSI L NAME CHECK NAME AND SUBSCRIPTS K1311710
7D4A 7401 7D6C 1187 | MDX L LCT,1 INCREMENT LIST COUNT K1311720
1188 | * K1311730
1189 | * K1311740
7D4C C400 7CA6 1190 | LD L SW1 IS DIMENSION NAME SUBSCRIPT K1311750
7D4E 4C20 7BFC 1191 | BSC L XY7,Z BRANCH IF NOT K1311760
1192 | * K1311770
1193 | * K1311780
7D50 C400 7CA7 1194 | LD L SW7 IS IT DIMENSIONED NAME K1311790
7D52 4C20 7D58 1195 | BSC L W14,Z BRANCH IF NO K1311800
1196 | * K1311810
1197 | * K1311820
7D54 C2FD 1198 | LD 2 -3 LOAD WORD K1311830
7D55 901B 1199 | S W18 IS IT LITERAL OPERATOR K1311840
7D56 4C20 7BFC 1200 | BSC L XY7,Z BRANCH IF NOT K1311850
1201 | * K1311860
1202 | * K1311870
7D58 C100 1203 | W14 LD 1 0 LOAD WORD K1311880
7D59 9018 1204 | S WCMA IS CHARACTER COMMA K1311890
7D5A 4C18 7D40 1205 | BSC L W13,+- BRANCH IF YES K1311900
1206 | * K1311910
1207 | * K1311920
7D5C 9016 1208 | S WRP IS CHAR RIGHT PARENTHESIS K1311930
7D5D 4C20 7BFC 1209 | BSC L XY7,Z BRANCH IF NO K1311940
1210 | * K1311950
1211 | * K1311960
7D5F C00C 1212 | LD LCT LOAD LIST COUNT K1311970
7D60 900C 1213 | S ONE LESS THAN TWO ARRAYS K1311980
7D61 4C08 7BFC 1214 | BSC L XY7,+ BRANCH IF YES K1311990
1215 | * K1312000
1216 | * K1312010
7D63 4400 7C72 1217 | BSI L MOVE1 OUTPUT WORD, MOVE POINTER K1312020
1218 | * K1312030
1219 | * K1312040
7D65 C100 1220 | LD 1 0 LOAD WORD K1312050
7D66 900B 1221 | S WCMA IS IT COMMA K1312060
7D67 4C20 7BE7 1222 | BSC L XY13,Z BRANCH IF NO K1312070
1223 | * K1312080
1224 | * K1312090
7D69 4400 7C72 1225 | BSI L MOVE1 OUTPUT WORD, MOVE PT K1312100
7D6B 70CF 1226 | MDX W12 CHECK CHARACTER K1312110
1227 | * K1312120
1228 | * CONSTANTS K1312130
7D6C 0000 1229 | LCT DC 0 LIST COUNT K1312140
7D6D 0001 1230 | ONE DC 1 ONE K1312150
7D6E 0007 1231 | WEQU DC /15-/0E EQUAL SIGN K1312160
7D6F 0010 1232 | WLP DC /10 LEFT PARENTHESIS K1312170
7D70 87DE 1233 | W83DE DC /87DE EQUIVALENCE MASK K1312180
7D71 0018 1234 | W18 DC /18 LITERAL OPERATOR K1312190
7D72 0012 1235 | WCMA DC /12 COMMA K1312200
7D73 FFF0 1236 | WRP DC /02-/12 RIGHT PARENTHESIS K1312210
1237 | * K1312220
1238 | * K1312230
1239 | * K1312290
7D74 1240 | BSS BPHAR+PHLEN*320-*-1 PATCH AREA K1312300
7DF5 0000 1241 | DC 0 K1312310
7DF6 1242 | END BPHAR-2 K1312320
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 74 130
ALL 7B4F 453 578 601 613 638
APOST 7AE8 335 342
BPHAR 7A36 122 1240 1242
CCWD 7A31 94 169
CHECK 7C63 822 180 182 289 425 710 833
CK1 7C6D 836 541 588 830
CKCMA 7B38 424 414 419
CKTEM 7C71 840 826 827 828 829
CLMV1 7B1F 405 392
CNT 7D01 1098 721 738 1062 1075 1091
COLON 7AE5 332 383
COMON 7A2B 88
CSIZE 7A2C 89
DELET 7D05 1107 605 624 635 1129
DELX 7D0F 1126 1111
DEMRP 7CD4 1034 997
DFCNT 7A33 115 367
DIOOP 7AE7 334 389 416
DLPAR 7CD2 1032 985
DLT1 7D0E 1125 1118 1126
DLT2 7D08 1114 1122
DO 7CAD 970 502 1015
DO1 7CC4 1007 982
DO2 7CBB 993 986
DO3 7CB1 978 990 1004 1021 1042 1044 1051
DO4 7CCA 1018 994 1019
DO5 7CC6 1011 1012 1028
DO6 7CD9 1041 998
DOAOP 7B4E 452 569
DOPAR 7CCB 1019 975 989 1001
DOS1 7CD8 1038 1047
DOX 7CD5 1035 533 1024
DOY 7CC7 1012 540 587 645 971
DPMES 7CD3 1033 993
DSPDL 7CD7 1037 1043
DSPMR 7CD6 1036 1041
EOFS 7A25 82 150 155 219
EOFST 7A2A 87 156
ERID 7BFB 672 682 686
ERNO 7B44 439 255 268 327 373 429 688 706 744 1085 1166
ERROR 7A2D 90 133 836
FIVE 7C45 771 679 681 739
FNAME 7A2E 91 1137
FNDSW 7AE4 331 226 253 344 408
FOUR 7B51 455
GETID 7C4C 784 296 321 473 545 592 759 796 890 1066 1181
GOTOP 7C4A 776 709
H517F 7AE6 333 311
H51FF 7AE3 330 263
HLQSP 7B50 454 628
ICMA 7B49 445 446 447
IDSV1 7A85 212 201
IDSV2 7BFD 677 200 658 663 666
IOCS 7A32 103 175 262 310 359
IOOP 7B46 441 284
IOOPS 7B17 391 283 415
LCMA 7D02 1099 1079
LCT 7D6C 1229 1174 1187 1212
LIST 7CE5 1060 718 730 1088
LIST1 7CF0 1075
LIST2 7CF7 1084 1069
LIST3 7CE8 1065 1095
LIST4 7CFC 1091 1080
LIST5 7CFA 1088 1081
MEMRY 8000 71 72 73
MOVE1 7C72 848 202 206 302 317 385 395 405 494 562 598 621 632
727 747 755 765 856 865 1072 1094 1155 1177 1217 1225
NAME 7C7E 885 486 905 1186
NAME1 7C8B 908 892
NAME2 7C95 927 917
NAME3 7C87 901 924
NAME4 7C93 923 932 940 948
NAME5 7C9A 935 928
NAME6 7C9F 943 936
NAME7 7CA4 951 944
NAME8 7C89 905 952
NP0 7CAC 961 943
NP1 7CAB 960 935
NP2 7CAA 959 927
NP3 7CA9 958 916
NSW2 7AA3 254 227
NXTID 7C0F 694 199
NXTPH 7A42 142 125 138 139
ONE 7D6D 1230 639 1213
ORG 7A23 80
ORGIN 7A46 150 134
OUT 7C78 864 517 871 874 923
OVERF 7A3C 138 220 837
OVERL 7A23 72 76
PHID 002B 77 129
PHLEN 0003 75 1240
PUT 7C5E 807 285 570 655 814 823 850 887
REPL 7B13 387 384
ROL 7FBC 73 140
RPARN 7B48 444 387
S0001 7A6A 188 204
S0020 7B53 457 482 558
S0200 7D04 1101 1068
S07FF 7A6B 189 194
S1800 7CA8 957 891
S4000 7B47 442 298 553 594
S50TT 7A69 187 181
S5BDE 7B4C 450 297 593
S83DE 7D28 1147 1143
SA7DE 7D29 1148 1141
SAERT 7A68 186 179
SDBDE 7B55 459 549
SF802 7B52 456 659
SFFDE 7B54 458 551
SKCOL 7B0C 382 369 386
SO1FF 7C5D 799 786
SOFGT 7A29 86
SOFNS 7A27 84
SOFS 7A24 81 151 166
SOFST 7A26 83 791
SOFXT 7A28 85
SORF 7A30 93 174 258 312 362 368 547 1134
START 7A36 129
SW1 7CA6 955 902 951 1190
SW2 7B3F 434 235 244 418 477 1139
SW3 7CD1 1031 505 1008 1027
SW7 7CA7 956 898 909 1194
T4000 7C43 769 761
TCMA 7B49 446 306 490 521
TCOP 7B49 447 355 424 617
TDBDE 7C44 770 760
TEN 7AE9 336 350
TEND 7B40 435 214
TESTV 7D12 1133 474 1138 1146
TESTW 7D22 1143 1135 1140
TESTX 7D23 1144 1142
TFFDE 7D03 1100 1067
TFIND 7B43 438 224
TGOTO 7C46 772 701
THER 7C4B 777 722
TLP 7B45 440 279 421 498 573
TREAD 7B41 436 231
TRGLP 7B4A 448 510
TRGOP 7B4D 451 565 609
TRP 7B48 443 399 444
TWO 7B4B 449 539 586 642
TWRIT 7B42 437 240
UCMA 7C49 775 751
ULP 7C47 773 714
URP 7C48 774 734
W11 7D35 1161 702
W12 7D3B 1169 1226
W13 7D40 1177 1205
W14 7D58 1203 1195
W18 7D71 1234 1199
W83DE 7D70 1233 1182
WCMA 7D72 1235 1204 1221
WEQU 7D6E 1231 1161
WLP 7D6F 1232 1170
WRP 7D73 1236 1208
XT1 7B3E 433 197 198 537 538 584 585
XT3 7BF9 670 661 662
XT4 7BFA 671 660 665
XY1 7A6C 193 171 176 183 695
XY10 7B56 462 430 647
XY11 7BEA 655 412 463
XY12 7B6F 498 470
XY13 7BE7 650 491 522 724 1222
XY14 7B59 469 495 526
XY14A 7B66 486 478
XY15 7B79 510 499
XY16 7B85 533 507
XY17 7B68 489
XY18 7BC2 609 602
XY19 7BC4 613 606
XY2 7A84 211 205 212
XY20 7BD0 628 618
XY21 7BAC 584 625
XY22 7C0E 693 667 694 1158
XY24 7C12 701 225
XY26 7C26 727 715
XY27 7D2A 1151 196 207 1157 1162
XY27A 7D33 1158 1154
XY3 7A95 231 215
XY34 7A8B 218
XY4 7A9C 240 232
XY4B 7A8F 224 241
XY5 7AEA 342 307
XY5A 7AF8 355 343
XY6 7AA2 253 236
XY6A 7AB4 278 259 264
XY6B 7AAF 267 313 363
XY7 7BFC 676 269 280 299 328 345 351 374 400 411 417 422 506
511 554 595 629 640 643 651 677 723 735 740 752
762 785 1145 1171 1183 1191 1200 1209 1214
XY8 7B1B 398 348 352
XY8A 7B29 413 409
XY9 7B19 395 323
XYZ13 7C25 724 766