ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph17.asm
1130 FORTRAN COMPILER PHASE 17
2 | *************************************************** K1700020
3 | *STATUS-VERSION 2, MODIFICATION 5 * K1700030
4 | * * K1700040
5 | *FUNCTION/OPERATION- * K1700050
6 | * * REPLACES READ, FIND, WRITE, GO TO, AND * K1700060
7 | * RETURN STATEMENTS WITH COMPILER-GENERATED * K1700070
8 | * CODING * K1700080
9 | * * SETS UP IMPLIED DO LOOPS WITHIN READ AND * K1700090
10 | * WRITE STATEMENT * K1700100
11 | * * REPLACES THOSE PARTS OF ARITHMETIC, IF, * K1700110
12 | * CALL AND STMNT FUNCTION STATEMENTS THAT * K1700120
13 | * INVOLVE SUBSCRIPTING OF VARIABLES WITH * K1700130
14 | * COMPILER-GENERATED CODING. * K1700140
15 | * * CHECKS SUBPROGRAMS FOR A RETURN STATEMENT. * K1700150
16 | * * K1700160
17 | *ENTRY POINTS- * K1700170
18 | * START-PHASE 17 IS READ INTO CORE BY PHASE 16 * K1700180
19 | * AND EXECUTION BEGUN AT LOCATION START * K1700190
20 | * * K1700200
21 | *INPUT- * K1700210
22 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1700220
23 | * STRING SCANNED BY THE COMPILER MAY BE * K1700230
24 | * CONSIDERED INPUT. * K1700240
25 | * * K1700250
26 | *OUTPUT- * K1700260
27 | * NONE IN THE USUAL SENSE. HOWEVER, THE STMNT * K1700270
28 | * STRING AND THE SYMBOL TABLE ALTERED BY THE * K1700280
29 | * COMPILER MAY BE CONSIDERED OUTPUT. * K1700290
30 | * * K1700300
31 | *EXTERNAL REFERENCES-N/A * K1700310
32 | * * K1700320
33 | *EXITS- * K1700330
34 | * NORMAL- * K1700340
35 | * PHASE EXITS NORMALLY IF NO ERRORS ARE * K1700350
36 | * FOUND. PHASE 18 IS LOADED AND EXECUTED. * K1700360
37 | * ERROR- * K1700370
38 | * THE FLOW OF COMPILER PROCESSING IS NOT * K1700380
39 | * INTERRUPTED WHEN AN ERROR IS ENCOUNTERED. * K1700390
40 | * AN ERROR STMNT REPLACES THE FAULTY STMNT * K1700400
41 | * ON THE STRING AND STMNT SCANNING PROCESS * K1700410
42 | * CONTINUES, AN EXCEPTION OCCURS IN THE CASE * K1700420
43 | * OF AN OVERLAP ERROR. COMPILATION IS * K1700430
44 | * ABORTED AND CONTROL IS PASSED FROM PHASE * K1700440
45 | * TO SUCCEEDING PHASE UNTIL AN OUTPUT PHASE * K1700450
46 | * IS REACHED WHICH CAN PRINT AN ERROR MESSAGE* K1700460
47 | * THE ERROR DETECTED BY PHASE 17 IS 69. * K1700470
48 | * * K1700480
49 | *TABLES/WORK AREAS- * K1700490
50 | * NONE EXCEPT STATEMENT STRING AREA, SYMBOL * K1700500
51 | * TABLE AND FORTRAN COMMUNICATION AREA * K1700510
52 | * * K1700520
53 | *ATTRIBUTES-N/A * K1700530
54 | * * K1700540
55 | *NOTES- * K1700550
56 | * THE SWITCHES USED IN PHASE 14 FOLLOW. IF NON- * K1700560
57 | * ZERO, THE SWITCH IS TRANSFER=T. IF ZERO, THE * K1700570
58 | * SWITCH IS NORMAL=N. * K1700580
59 | * * RETCT-RETURN STATEMENTS * K1700590
60 | * N=NO RETURN STMNTS ENCOUNTERED * K1700600
61 | * * STXSW- * K1700610
62 | * T=TWO WORD CALL HAS INDEXED * K1700620
63 | * ARGUMENTS, SECOND SCAN NECESSARY * K1700630
64 | * TO COMPUTE DISPLACEMENT VALUE IN * K1700640
65 | * STX L1 INSTRUCTION * K1700650
66 | * * USWIT-UNFORMATTED I/O * K1700660
67 | * T=STMNT IS NOT FORMATTED, I.E., * K1700670
68 | * DOES NOT HAVE OPTR AT I/O OPTR+2.* K1700680
69 | * * DSWIT-DISK SWITCH * K1700690
70 | * T=DISK I/O OPTR * K1700700
71 | *************************************************** K1700710
72 | ABS K1700720
73 | * K1700730
74 | * SYSTEM EQUATES K1700740
8000 75 | MEMRY EQU /8000 K1700750
7A23 76 | OVERL EQU MEMRY-1501 START OF FCOM K1700760
7FBC 77 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K1700770
0078 78 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K1700780
7A23 79 | ORG OVERL K1700790
002F 80 | PHID EQU 47 ID NUMBER THIS PHASE K1700800
81 | ************************************************** K1700810
82 | * K1700820
83 | * FORTRAN COMMUNICATION AREA K1700830
84 | * K1700840
7A23 85 | ORG BSS 1 ORIGIN ADDRESS 2-4 K1700845
7A24 86 | SOFS BSS 1 START OF STRING K1700850
7A25 87 | EOFS BSS 1 END OF STRING K1700860
7A26 88 | SOFST BSS 1 START OF SYMBOL TABLE K1700870
7A27 89 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K1700880
7A28 90 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K1700890
7A29 91 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K1700900
7A2A 92 | EOFST BSS 1 END OF SYMBOL TABLE K1700910
7A2B 93 | COMON BSS 1 NEXT AVAILABLE COMMON K1700920
7A2C 94 | CSIZE BSS 1 SIZE OF COMMON K1700930
7A2D 95 | ERROR BSS 1 OVERLAP ERROR K1700940
7A2E 96 | FNAME BSS 1 PROGRAM NAME K1700950
7A2F 97 | BSS 1 K1700960
7A30 98 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K1700970
7A31 99 | CCWD BSS 1 CONTROL CARD WORD K1700980
100 | * BIT 15 TRANSFER TRACE K1700990
101 | * BIT 14 ARITHMETIC TRACE K1701000
102 | * BIT 13 EXTENDED PRECISION K1701010
103 | * BIT 12 LIST SYMBOL TABLE K1701020
104 | * BIT 11 LIST SUBPROGRAM NAMES K1701030
105 | * BIT 10 LIST SOURCE PROGRAM K1701040
106 | * BIT 9 ONE WORD INTEGERS K1701050
107 | * BIT 8 ORIGIN 2-4 K1701055
7A32 108 | IOCS BSS 1 IOCS CONTROL CARD WORD K1701060
109 | * BIT 15 CARD K1701070
110 | * BIT 14 PAPER TAPE K1701080
111 | * BIT 13 TYPEWRITER K1701090
112 | * BIT 12 1403 PRINTER K1701100
113 | * BIT 11 2501 READER K1701110
114 | * BIT 10 KEYBOARD K1701120
115 | * BIT 9 1442 PUNCH K1701130
116 | * BIT 8 DISK K1701140
117 | * BIT 7 1132 PRINTER K1701150
118 | * BIT 3 PLOTTER K1701160
7A33 119 | DFCNT BSS 1 K1701170
120 | * K1701180
121 | * K1701190
122 | * END OF FORTRAN COMMUNICATION K1701200
123 | * AREA K1701210
124 | * K1701220
7A36 125 | BPHAR EQU *+2 BEGIN PHASE AREA K1701230
7A34 0000 126 | DC 0 LOADER WORK AREA K1701240
7A35 FFD1 127 | DC -47 PHASE ID FOR SLET LOOPUP K1701250
7A36 03C4 128 | DC NXTPH-*+1 TBL FOR NEXT PHASE ENTRY K1701260
7A37 0001 129 | DC 1 ONE ENTRY TO BE SET BY LDR K1701270
7A36 130 | ORG *-2 K1701280
7A36 612F 131 | ENQ LDX 1 PHID GET ID THIS PHASE K1701290
7A37 6D00 0078 132 | STX L1 $PHSE STORE IN SYSTEM PHASE AREA K1701300
7A39 4C00 7DFE 133 | BSC L ENT K1701310
134 | * K1701320
135 | * MOVES THE STMNT STRING NEXT TO THE K1701330
136 | * SYMBOL TABLE K1701340
137 | * CHECKS FOR SYM TBL OVERLAP K1701350
138 | * K1701360
7A3B C0E9 139 | START LD EOFS LOAD END OF STRING ADDR K1701370
7A3C 90E7 140 | S SOFS SUBTRACT START OF STRING K1701380
7A3D 6700 7D7C 141 | LDX L3 ZERO SET XR3 K1701390
7A3F 8301 142 | A 3 ONE-Z SIZE OF STRING K1701400
7A40 D0F5 143 | STO MOVCT STORE STRING SIZE K1701410
7A41 6580 7A2A 144 | LDX I1 EOFST INITIALIZE OUTPUT PT K1701420
7A43 71F6 145 | MDX 1 -10 K1701430
7A44 6680 7A25 146 | LDX I2 EOFS INITALIZE INPUT PT K1701440
147 | * K1701450
148 | * TEST IF OVERLAP ERROR K1701460
7A46 6D00 7DCF 149 | STX L1 TEMP1 IS THERE OVERLAP K1701470
7A48 C0DC 150 | LD EOFS BETWEEN STRING K1701480
7A49 9353 151 | S 3 TEMP1-Z AND SYMBOL TABLE K1701490
7A4A 4C28 7A50 152 | BSC L MOVST,+Z BRANCH IF NO K1701500
7A4C 7401 7A2D 153 | OVLAP MDX L ERROR,1 SET OVERLAP ERROR K1701510
7A4E 4C00 7DF5 154 | BSC L EXIT GO TO NEXT PHASE K1701520
7A36 155 | MOVCT EQU ENQ K1701530
156 | * K1701540
7A50 C200 157 | MOVST LD 2 0 MOVE STRING ITEM K1701550
7A51 D100 158 | STO 1 0 NEXT TO SYMBOL TABLE K1701560
7A52 72FF 159 | MDX 2 -1 MOVE POINTER K1701570
7A53 71FF 160 | MDX 1 -1 K1701580
7A54 74FF 7A36 161 | MDX L MOVCT,-1 DECREMENT STRING SIZE CT K1701590
7A56 70F9 162 | MDX MOVST CONTINUE LOOP K1701600
163 | * K1701610
7A57 6D00 7DD2 164 | STX L1 SOFIS NEW START OF STRING ADDR -1 K1701620
7A59 C400 7A26 165 | LD L SOFST PUT START OF SYM TBL ADDR K1701630
7A5B D357 166 | STO 3 SSOST-Z IN SSOST K1701640
167 | * K1701650
7A5C 6580 7DD2 168 | Q1011 LDX I1 SOFIS INITIALIZE I/P STRING PT K1701660
7A5E 6680 7A24 169 | LDX I2 SOFS INITALIZE O/P STRING PT K1701670
7A60 72FF 170 | MDX 2 -1 K1701680
171 | * K1701690
172 | * K1701700
173 | * INITIALIZES TO SCAN THE STMNT K1701710
7A61 7101 174 | Q1021 MDX 1 1 MOVE I/P STRING PT K1701720
7A62 7201 175 | MDX 2 1 MOVE O/P STRING PT K1701730
176 | * K1701740
7A63 C300 177 | LD 3 ZERO-Z K1701750
7A64 D350 178 | STO 3 STXSW-Z K1701760
7A65 D355 179 | STO 3 CURR-Z INITIALIZE SWITCHES K1701770
7A66 C342 180 | LD 3 H8000-Z K1701780
7A67 D358 181 | STO 3 CURD4-Z K1701790
182 | * K1701800
183 | * EXTRACTS THE STMNT TYPE K1701810
7A68 C100 184 | Q1022 LD 1 0 LOAD STMNT ID WORD K1701820
7A69 E34A 185 | AND 3 HF803-Z ELIMINATE NORM K1701830
7A6A 8304 186 | A 3 FOUR-Z ADD ONE TO NORM K1701840
7A6B D200 187 | STO 2 0 PUT ON OUTPUT STRING K1701850
7A6C E349 188 | AND 3 HF800-Z GET STMNT ID TYPE K1701860
7A6D D34C 189 | STO 3 STTYP-Z SAVE ID TYPE K1701870
7A6E 6E00 7DC9 190 | STX L2 OUTID STORE ADDR OF O/P ID K1701880
7A70 6D00 7DCA 191 | STX L1 INID STORE ADDR OF I/P ID K1701890
7A72 7101 192 | MDX 1 1 MOVE I/P PT K1701900
7A73 C1FF 193 | LD 1 -1 LOAD STMNT ID WORD K1701910
7A74 4C04 7A77 194 | BSC L Q1023,E BRANCH IF HAVE STMNT NO. K1701920
7A76 7001 195 | MDX Q1031 IDENTIFY STMNT TYPE K1701930
196 | * K1701940
7A77 43A5 197 | Q1023 BSI 3 MOVAW-Z O/P STMNT NO., MOVE PTS K1701950
198 | * K1701960
199 | * TESTS FOR ARITHMETIC, STMNT FUNCTION, K1701970
200 | * CALL, IF, GO TO, READ, FIND, WRITE, K1701980
201 | * AND RETURN STMNTS. K1701990
7A78 690D 202 | Q1031 STX 1 Q1033+1 SAVE I/P STRING PT K1702000
7A79 6500 7A87 203 | LDX L1 BRTAB-2 INITIALIZE TABLE PT K1702010
7A7B 7102 204 | Q1032 MDX 1 2 INCREMENT TABLE PT K1702020
7A7C C100 205 | LD 1 0 LOAD TABLE WORD K1702030
7A7D 4C18 7BC3 206 | BSC L Q1041,+- BRANCH IF END OF TABLE K1702040
7A7F 934C 207 | S 3 STTYP-Z DOES TABLE TYPE MATCH K1702050
7A80 9301 208 | S 3 ONE-Z STATEMENT TYPE K1702060
7A81 4C20 7A7B 209 | BSC L Q1032,Z BRANCH IF NOT K1702070
7A83 C101 210 | LD 1 1 LOAD BRANCH ADDRESS K1702080
7A84 D003 211 | STO Q1034+1 INSERT BRANCH ADDRESS K1702090
7A85 6500 0000 212 | Q1033 LDX L1 *-* RESTORE I/P STRING PT K1702100
7A87 4C00 0000 213 | Q1034 BSC L *-* BRANCH TO PROPER ID SUBR K1702110
214 | * K1702120
215 | * BRANCH TABLE K1702130
216 | * FOR STATEMENT TYPE K1702140
217 | * K1702150
218 | * K1702160
219 | * /0001 IS ADDED TO TYPE IN ORDER TO K1702170
220 | * ENABLE NORMAL SEARCH FOR K1702180
221 | * TYPE = ZERO (ARITHMETIC STMNT) K1702190
7A89 0001 222 | BRTAB DC /0001 ARITH K1702200
7A8A 7BF2 223 | DC Q1061 K1702210
7A8B D001 224 | DC /D001 ARITH STMT FUNCTION K1702220
7A8C 7BEE 225 | DC Q1051 K1702230
7A8D 3001 226 | DC /3001 CALL K1702240
7A8E 7BF2 227 | DC Q1061 K1702250
7A8F 7801 228 | DC /7801 IF K1702260
7A90 7BF2 229 | DC Q1061 K1702270
7A91 7001 230 | DC /7001 GOTO K1702280
7A92 7AD4 231 | DC P2011 K1702290
7A93 9001 232 | DC /9001 READ K1702300
7A94 7AA0 233 | DC P1052 K1702310
7A95 8801 234 | DC /8801 WRITE K1702320
7A96 7A9E 235 | DC P1051 K1702330
7A97 8001 236 | DC /8001 RETURN K1702340
7A98 7AF9 237 | DC P2031 K1702350
7A99 E801 238 | DC /E801 FIND K1702360
7A9A 7A9C 239 | DC P1053 K1702370
7A9B 0000 240 | DC 0 END-OF-TABLE-VALUE K1702380
241 | * K1702390
242 | * K1702400
243 | * K1702410
244 | * K1702420
7A9C C32F 245 | P1053 LD 3 FIND-Z LOAD FIND CALL K1702430
7A9D 7003 246 | MDX D1011 CHECK I/O OPERATOR K1702440
247 | * K1702450
248 | * K1702460
7A9E C32D 249 | P1051 LD 3 FWRT-Z LOAD WRITE CALL K1702470
7A9F 7001 250 | MDX D1011 CHECK FOR I/O OPERATOR K1702480
251 | * K1702490
252 | * ENTRY PT FOR READ-STMT K1702500
253 | * K1702510
7AA0 C32C 254 | P1052 LD 3 FRED-Z LOAD READ CALL K1702520
255 | * K1702530
256 | * DETECTS THE DISK I/O OPTR. OUTPUTS K1702540
257 | * THE APPROPRIATE OPTRS AND ARGUMENTS K1702550
7AA1 D35D 258 | D1011 STO 3 TEMPY-Z STORE CALL K1702560
259 | * K1702570
7AA2 C300 260 | LD 3 ZERO-Z CLEAR K1702580
7AA3 D35C 261 | STO 3 DSWIT-Z DISK SWITCH AND K1702590
7AA4 D3FF 262 | STO 3 USWIT-Z UNFORMATTED I/O SWITCH K1702600
263 | * K1702610
7AA5 C100 264 | LD 1 0 LOAD WORD K1702620
7AA6 9359 265 | S 3 IOOPR-Z IS IT I/O OPERATOR K1702630
7AA7 4C18 7AB5 266 | BSC L D1015,+- BRANCH IF YES K1702640
7AA9 7401 7DD8 267 | MDX L DSWIT,1 SET DISK SWITCH K1702650
7AAB C100 268 | LD 1 0 LOAD WORD K1702660
7AAC 935A 269 | S 3 DIOOP-Z IS IT DISK I/O OPERATOR K1702670
7AAD 4C18 7C17 270 | BSC L Q2008,+- BRANCH IF YES K1702680
7AAF C35B 271 | LD 3 EXPRO-Z LOAD EXPRESSION OPERATOR K1702690
7AB0 43AB 272 | BSI 3 OUTP-Z OUTPUT ON STRING K1702700
273 | * K1702710
7AB1 4C00 7BF6 274 | BSC L Q2011 IDENTIFY NEXT OPERATOR K1702720
275 | * K1702730
276 | * DISK I/O OPTR ENCOUNTERED AFTER K1702740
277 | * AN ARITHMETIC EXPRESSION K1702750
278 | * K1702760
7AB3 C35B 279 | D1014 LD 3 EXPRO-Z LOAD EXPRESSION OPERATOR K1702770
7AB4 43AB 280 | BSI 3 OUTP-Z OUTPUT ON STRING K1702780
281 | * K1702790
282 | * K1702800
7AB5 C102 283 | D1015 LD 1 2 IS THIS UNFORMATTED I/O K1702810
7AB6 4C28 7ABA 284 | BSC L D1021,Z+ BRANCH IF NOT K1702820
7AB8 6C00 7D7B 285 | STX L USWIT SET UNFORMATTED I/O SWITCH K1702830
286 | * K1702840
7ABA C35D 287 | D1021 LD 3 TEMPY-Z OUTPUT CALL WITH DISK K1702850
7ABB 435F 288 | BSI 3 DTEST-Z AND UNFORMATTED I/O TEST K1702860
289 | * K1702870
7ABC C101 290 | LD 1 1 LOAD AND O/P ADDR OF K1702880
7ABD 43AB 291 | BSI 3 OUTP-Z LOGICAL UNIT NUMBER K1702890
7ABE C3FF 292 | LD 3 USWIT-Z IS STMNT UNFORMATTED K1702900
7ABF 4C18 7AC3 293 | BSC L D1024,+- BRANCH IF NO K1702910
7AC1 7102 294 | MDX 1 2 INCREMENT PT K1702920
7AC2 7003 295 | MDX D1026 CHECK FOR FIND STMNT K1702930
7AC3 C102 296 | D1024 LD 1 2 LOAD AND OUTPUT K1702940
7AC4 43AB 297 | BSI 3 OUTP-Z ADDRESS OF FORMAT K1702950
7AC5 7103 298 | MDX 1 3 MOVE PT K1702960
7AC6 C100 299 | D1026 LD 1 0 LOAD WORD K1702970
7AC7 4C20 7B20 300 | BSC L P3011,Z BRANCH IF NOT SEMI-COLON K1702980
301 | * K1702990
302 | * GENERATES A CALL SCOMP WHEN A K1703000
303 | * WRITE STMNT IS DETECTED K1703010
7AC9 304 | D1031 EQU * K1703020
7AC9 305 | P1061 EQU D1031 K1703030
7AC9 7400 7D7B 306 | MDX L USWIT,0 OUTPUT CALL COMPLETE IF K1703040
7ACB 7004 307 | MDX P1062 *UNFORMATTED I/O K1703050
308 | * K1703060
7ACC C34C 309 | LD 3 STTYP-Z LOAD STMNT ID TYPE K1703070
7ACD 9330 310 | S 3 WRITE-Z IS IT A WRITE STATEMENT K1703080
7ACE 4C20 7A61 311 | BSC L Q1021,Z BRANCH IF NOT K1703090
7AD0 C32E 312 | P1062 LD 3 FCOMP-Z OUTPUT .CALL SCOMP. K1703100
7AD1 435F 313 | BSI 3 DTEST-Z WITH DISK TEST K1703110
7AD2 4C00 7A61 314 | BSC L Q1021 GET NEXT STMNT K1703120
315 | * K1703130
316 | * K1703140
317 | * GO TO STMNT K1703150
318 | * PRODUCES A 'BSC L' INSTRUCTION FROM K1703160
319 | * A SIMPLE GO TO STMNT. IF TRACING IS K1703170
320 | * REQUIRED, OUTPUTS THE CALL TO THE K1703180
321 | * TRACE ROUTINE K1703190
322 | * K1703200
7AD4 C101 323 | P2011 LD 1 1 IS THIS UNCONDITIONAL GO TO K1703210
7AD5 4820 324 | BSC Z SKIP IF YES K1703220
7AD6 7009 325 | MDX P2012 COMPUTED GO TO BRANCH K1703230
7AD7 C349 326 | LD 3 HF800-Z OUTPUT .BSC L. K1703240
7AD8 43AB 327 | BSI 3 OUTP-Z PUT ON STRING K1703250
7AD9 C100 328 | LD 1 0 LOAD BRANCH TO ADDR K1703260
7ADA E33E 329 | AND 3 H07FF-Z COMBINE INSTRUCTION AND K1703270
7ADB 8200 330 | A 2 0 ADD ADDRESS TO GET K1703280
7ADC D200 331 | STO 2 0 ***** BSC L ADDRESS K1703290
7ADD 7101 332 | MDX 1 1 MOVE I/P PT K1703300
7ADE 4C00 7A61 333 | BSC L Q1021 GO TO NEXT STMNT K1703310
334 | * K1703320
335 | * COMPUTED GOTO K1703330
336 | * PRODUCES A 'BSC I1' INSTR FROM A K1703340
337 | * COMPUTED GO TO OPTR. IF TRACING IS K1703350
338 | * REQUIRED, OUTPUTS THE CALL TO THE K1703360
339 | * TRACE ROUTINE K1703370
7AE0 C101 340 | P2012 LD 1 1 LOAD INTEGER VARIABLE K1703380
7AE1 E33E 341 | AND 3 H07FF-Z COMBINE WITH .LDX I1. K1703390
7AE2 8305 342 | A 3 LDXI1-Z TO GET K1703400
7AE3 43AB 343 | BSI 3 OUTP-Z ***** MDX I1 INTEGER VAR K1703410
344 | * K1703420
345 | * MOVE FIRST STMNT NUMBER NAME ON K1703430
346 | * STRING SO THAT ALL STMNT NUMBERS K1703440
347 | * WILL BE CONSECUTIVE K1703450
348 | * K1703460
7AE4 C100 349 | LD 1 0 MOVE FIRST STMNT NO. K1703470
7AE5 D101 350 | STO 1 1 ON STRING K1703480
351 | * K1703490
352 | * TEST IF TRACE REQUIRED K1703500
7AE6 C400 7A31 353 | LD L CCWD LOAD CONTROL CARD WORD K1703510
7AE8 100F 354 | SLA 15 IS TRACE REQUIRED K1703520
7AE9 4810 355 | BSC - SKIP IF YES K1703530
7AEA 7003 356 | MDX P2021 BRANCH IF NOT K1703540
357 | * K1703550
7AEB C308 358 | LD 3 FGOTO-Z OUTPUT .CALL SGOTO. K1703560
7AEC 43AB 359 | BSI 3 OUTP-Z ON OUTPUT STRING K1703570
7AED 7004 360 | MDX P202A OUTPUT STMNT NOS. K1703580
361 | * K1703590
7AEE C306 362 | P2021 LD 3 BSCI1-Z LOAD .BSC I1. INSTRUCTION K1703600
7AEF 43AB 363 | BSI 3 OUTP-Z COMBINE WITH .*-1. TO GET K1703610
7AF0 C307 364 | LD 3 ASTM1-Z ***** BSC I1 *-1 K1703620
7AF1 43AB 365 | BSI 3 OUTP-Z OUTPUT INSTRUCTION K1703630
366 | * K1703640
7AF2 7101 367 | P202A MDX 1 1 MOVE I/P PT K1703650
368 | * K1703660
369 | * OUTPUT STATEMENT NUMBERS IN K1703670
370 | * COMPUTED GO TO K1703680
371 | * K1703690
7AF3 C100 372 | P2022 LD 1 0 LOAD WORD K1703700
7AF4 4C18 7A61 373 | BSC L Q1021,+- BRANCH IF SEMICOLON K1703710
7AF6 43AB 374 | BSI 3 OUTP-Z OUTPUT STMNT NO. K1703720
7AF7 7101 375 | MDX 1 1 MOVE I/P STRING PT K1703730
7AF8 70FA 376 | MDX P2022 CONTINUE LOOP K1703740
377 | * K1703750
378 | * GENERATES THE RETURN LINKAGE FROM A K1703760
379 | * SUBPROGRAM. ALLOWS THE ARGUMENTS TO K1703770
380 | * BE PASSED K1703780
7AF9 C400 7A30 381 | P2031 LD L SORF IS THIS MAINLINE PROGRAM K1703790
7AFB 4C18 7B16 382 | BSC L ERRR,+- BRANCH IF YES K1703800
7AFD 4C08 7B0E 383 | BSC L P2034,+ BRANCH IF SUBROUTINE K1703810
7AFF C400 7A2E 384 | LD L FNAME LOAD PROGRAM NAME K1703820
7B01 4390 385 | BSI 3 GETID-Z GET SYMBOL TABLE ID WORD K1703830
7B02 1001 386 | SLA 1 K1703840
7B03 4810 387 | BSC - SKIP IF INTEGER FUNCTION K1703850
7B04 7004 388 | MDX P2032 BRANCH IF NOT K1703860
7B05 C400 7A2E 389 | LD L FNAME LOAD PROGRAM NAME K1703870
7B07 EB18 390 | OR 3 LDL-Z COMBINE WITH .LD L. TO GET K1703880
7B08 7004 391 | MDX P2033 ***** LD L PROGRAM NAME K1703890
7B09 C32B 392 | P2032 LD 3 FLD-Z LOAD .CALL FLD. K1703900
7B0A 43AB 393 | BSI 3 OUTP-Z PUT CALL ON OUTPUT STRING K1703910
7B0B C400 7A2E 394 | LD L FNAME LOAD FUNCTION NAME K1703920
7B0D 43AB 395 | P2033 BSI 3 OUTP-Z PUT ON OUTPUT STRING K1703930
7B0E 7401 7DAD 396 | P2034 MDX L RETCT,1 COUNT RETURN STMNTS K1703940
7B10 C332 397 | LD 3 H5080-Z LOAD .BSC I. K1703950
7B11 43AB 398 | BSI 3 OUTP-Z PUT ON OUTPUT STRING K1703960
7B12 C31C 399 | LD 3 H5F00-Z OUTPUT BLANK WHICH WILL BE K1703970
400 | * REPLACED BY ENTRY-PT ADDR K1703980
401 | * ***** BSC I ENTRY PT K1703990
7B13 43AB 402 | BSI 3 OUTP-Z PUT ON OUTPUT STRING K1704000
7B14 4C00 7A61 403 | BSC L Q1021 GO TO NEXT STMNT K1704010
404 | * K1704020
405 | * CHANGE RETURN STMNT INTO K1704030
406 | * ERROR STATEMENT K1704040
407 | * K1704050
7B16 C480 7DC9 408 | ERRR LD I OUTID LOAD RETURN STMNT ID TYPE K1704060
7B18 8006 409 | A DIFF CHANGE TO ERROR STMNT ID K1704070
7B19 D480 7DC9 410 | STO I OUTID PUT BACK ON O/P STRING K1704080
7B1B C31B 411 | LD 3 C69-Z PUT ERROR NO. 69 K1704090
7B1C 43AB 412 | BSI 3 OUTP-Z ON OUTPUT STRING K1704100
7B1D 4C00 7A61 413 | BSC L Q1021 GO TO NEXT STMNT K1704110
7B1F 2000 414 | DIFF DC /A000-/8000 ERROR STMNT ID TYPE 2-1 K1704120
415 | * K1704130
416 | * IOOP K1704140
7B20 C100 417 | P3011 LD 1 0 LOAD WORD K1704150
7B21 9309 418 | S 3 LOP-Z IS IT LIST OPERATOR K1704160
7B22 4818 419 | BSC +- SKIP IF NOT K1704170
7B23 700F 420 | MDX P3031 BRANCH IF LIST OPERATOR K1704180
421 | * K1704190
7B24 C100 422 | LD 1 0 LOAD WORD K1704200
7B25 9319 423 | S 3 H0018-Z IS IT LITERAL SUBSCRIPT K1704210
7B26 4C18 7B30 424 | BSC L P3025,+- BRANCH IF YES K1704220
7B28 4C08 7B62 425 | BSC L P4011,+ BRANCH IF LESS THAN (O OPTR K1704230
7B2A 9337 426 | S 3 H0008-Z IS IT GREATER THAN (3 OPTR K1704240
7B2B 4C30 7B62 427 | BSC L P4011,-Z BRANCH IF YES K1704250
7B2D 4400 7C5E 428 | P3023 BSI L SBSN PROCESS SUBSCRIPT OPERATORS K1704260
7B2F 70F0 429 | MDX P3011 CHECK NEXT WORD K1704270
7B30 4400 7C81 430 | P3025 BSI L SBSLT PROCESS LITERAL SUBSCRIPT K1704280
7B32 70ED 431 | MDX P3011 CHECK NEXT WORD K1704290
432 | * K1704300
433 | * IDENTIFIES THE LIST VARIABLE TYPE K1704310
7B33 C101 434 | P3031 LD 1 1 LOAD WORD K1704320
7B34 4390 435 | BSI 3 GETID-Z GET SYM TBL ID K1704330
7B35 E30A 436 | AND 3 H1800-Z IS IT DIMENSIONED K1704340
7B36 4818 437 | BSC +- SKIP IF YES K1704350
7B37 7010 438 | MDX P3043 BRANCH IF NOT K1704360
7B38 C101 439 | LD 1 1 LOAD WORD K1704370
7B39 E33B 440 | AND 3 H7800-Z GET PSEUDO INDEX FOR SGT K1704380
7B3A 4808 441 | BSC + SKIP IF HAVE INDEX K1704390
7B3B 7016 442 | MDX P3051 BRANCH IF NOT K1704400
7B3C 43CB 443 | BSI 3 SCHP1-Z LOAD LITERAL SUBSC OFFSET K1704410
444 | * K1704420
445 | * GENERATES THE CALLS FOR THE K1704430
446 | * DIMENSIONED LIST VARIABLES WITH THE K1704440
447 | * ASSOCIATED SGT K1704450
448 | * K1704460
7B3D C101 449 | P3041 LD 1 1 LOAD WORD K1704470
7B3E 4390 450 | BSI 3 GETID-Z GET SYM TBL ID WORD K1704480
7B3F 1001 451 | SLA 1 IS IT REAL VARIABLE K1704490
7B40 4C10 7B44 452 | BSC L P304A,- BRANCH IF YES K1704500
453 | * K1704510
7B42 C30B 454 | LD 3 FIOIX-Z LOAD .LIBF SIOIX., OUTPUT K1704520
7B43 7001 455 | MDX P304B CALL, BASE ADDR OF DIM VAR K1704530
456 | * K1704540
7B44 C30C 457 | P304A LD 3 FIOFX-Z LOAD .LIBF SIOFX., OUTPUT K1704550
7B45 431D 458 | P304B BSI 3 OUTIO-Z CALL, BASE ADDR OF DIM VAR K1704560
459 | * K1704570
7B46 7102 460 | P3042 MDX 1 2 MOVE I/P PT K1704580
7B47 70D8 461 | MDX P3011 CHECK NEXT WORD K1704590
462 | * K1704600
463 | * K1704610
464 | * GENERATES THE CALL FOR NON- K1704620
465 | * DIMENSIONED LIST VARIABLES WITH THE K1704630
466 | * ASSOCIATED SGT K1704640
467 | * K1704650
7B48 C101 468 | P3043 LD 1 1 LOAD WORD K1704660
7B49 4390 469 | BSI 3 GETID-Z GET SYM TBL ID WORD K1704670
7B4A 1001 470 | SLA 1 IS IT REAL VARIABLE K1704680
7B4B 4C10 7B4F 471 | BSC L P3044,- BRANCH IF YES K1704690
7B4D C30D 472 | LD 3 FIOI-Z LOAD .LIBF SIOI. K1704700
7B4E 7001 473 | MDX P3045 OUTPUT CALL, ADDR OF VAR K1704710
474 | * K1704720
7B4F C30E 475 | P3044 LD 3 FIOF-Z LOAD .LIBF SIOF. K1704730
7B50 431D 476 | P3045 BSI 3 OUTIO-Z OUTPUT CALL, ADDR OF VAR K1704740
7B51 70F4 477 | MDX P3042 GET NEXT WORD K1704750
478 | * K1704760
479 | * K1704770
480 | * GENERATES THE CALL FOR A K1704780
481 | * DIMENSIONED LIST VARIABLE WITHOUT K1704790
482 | * THE ASSOCIATED SGT K1704800
7B52 C101 483 | P3051 LD 1 1 LOAD WORD K1704810
7B53 4390 484 | BSI 3 GETID-Z GET SYM TBL ID WORD K1704820
7B54 1001 485 | SLA 1 IS IT REAL VARIABLE K1704830
7B55 4C10 7B59 486 | BSC L P3052,- BRANCH IF YES K1704840
7B57 C30F 487 | LD 3 FIOAI-Z LOAD .LIBF SIOAI., O/P CALL K1704850
7B58 7001 488 | MDX P3053 ADDR OF 1ST ELEMENT IN ARRAY K1704860
489 | * K1704870
7B59 C310 490 | P3052 LD 3 FIOAF-Z LOAD .LIBF SIOAF., O/P CALL K1704880
7B5A 431D 491 | P3053 BSI 3 OUTIO-Z ADDR OF 1ST ELEMENT IN ARRAY K1704890
492 | * K1704900
493 | * OUTPUT ARRAY SIZE K1704910
494 | * (.TAGGED. TO FACILITATE HANDLING) K1704920
495 | * K1704930
7B5B 74FD 7D17 496 | MDX L SYMT1+1,-3 DECR SYM TBL ADDR K1704940
7B5D C480 7D17 497 | LD I SYMT1+1 LOAD ARRAY SIZE K1704950
7B5F EB42 498 | OR 3 H8000-Z TAG SIZE WORD K1704960
7B60 43AB 499 | BSI 3 OUTP-Z OUTPUT ARRAY SIZE K1704970
7B61 70E4 500 | MDX P3042 K1704980
501 | * K1704990
502 | * K1705000
503 | * GENERATES THE DO INITIALIZE CODE K1705010
504 | * (DO-OPERATOR ENCOUNTERED) K1705020
505 | * K1705030
7B62 C100 506 | P4011 LD 1 0 LOAD WORD K1705040
7B63 4C18 7AC9 507 | BSC L P1061,+- BRANCH IF SEMI-COLON K1705050
7B65 9312 508 | S 3 DOAOP-Z IS IT DO OPERATOR K1705060
7B66 4820 509 | BSC Z SKIP IF YES K1705070
7B67 7011 510 | MDX P4023 BRANCH IF NOT K1705080
7B68 C300 511 | LD 3 ZERO-Z CLEAR K1705090
7B69 D355 512 | STO 3 CURR-Z PSX-IN-USE SWITCH K1705100
7B6A C102 513 | LD 1 2 LOAD INITIAL DO VALUE K1705110
7B6B E33E 514 | AND 3 H07FF-Z COMBINE WITH .LD L. K1705120
7B6C 8318 515 | A 3 LDL-Z TO GET K1705130
7B6D 43AB 516 | BSI 3 OUTP-Z ***** LD L INITIAL VALUE K1705140
7B6E C101 517 | LD 1 1 LOAD INDEX K1705150
7B6F E33E 518 | AND 3 H07FF-Z COMBINE WITH .STO L. K1705160
7B70 8315 519 | A 3 STOL-Z TO GET K1705170
7B71 43AB 520 | BSI 3 OUTP-Z ***** STO L INDEX K1705180
7B72 C311 521 | LD 3 GENLO-Z OUTPUT GENERATED K1705190
7B73 43AB 522 | BSI 3 OUTP-Z LABEL OPERATOR K1705200
7B74 7401 7D8D 523 | MDX L GENLO,1 INCREMENT STORED GENERAL K1705210
524 | * LABEL OPTR BY ONE K1705220
7B76 7103 525 | P4021 MDX 1 3 MOVE I/P PT K1705230
7B77 4C00 7B20 526 | BSC L P3011 CHECK NEXT ELEMENT K1705240
527 | * K1705250
528 | * GENERATES DO TEST CODE K1705260
7B79 C100 529 | P4023 LD 1 0 K1705270
7B7A 9313 530 | S 3 DOTOP-Z IS WORD DO TEST OPTR K1705280
7B7B 4C20 7AC9 531 | BSC L P1061,Z BRANCH IF NOT K1705290
532 | * K1705300
533 | * DOTEST K1705310
7B7D 74FF 7D8D 534 | MDX L GENLO,-1 DECREMENT GENERAL LABEL K1705320
535 | * OPERATOR NUMBER BY 1 K1705330
7B7F C103 536 | LD 1 3 IS INCREMENT GT ONE K1705340
7B80 4810 537 | BSC - SKIP IF YES K1705350
7B81 700C 538 | MDX P4032 BRANCH IF INCREMENT IS ONE K1705360
7B82 4324 539 | BSI 3 OULDL-Z ***** LD L INDEX K1705370
7B83 C103 540 | LD 1 3 LOAD INCREMENT K1705380
7B84 E33E 541 | AND 3 H07FF-Z COMBINE WITH .A L. K1705390
7B85 8314 542 | A 3 AL-Z TO GET K1705400
7B86 43AB 543 | BSI 3 OUTP-Z ***** A L INCREMENT K1705410
7B87 C101 544 | LD 1 1 LOAD INDEX K1705420
7B88 E33E 545 | AND 3 H07FF-Z COMBINE WITH .STO L. K1705430
7B89 8315 546 | A 3 STOL-Z TO GET K1705440
7B8A 43AB 547 | BSI 3 OUTP-Z ***** STO L INDEX K1705450
7B8B 4009 548 | P4031 BSI P4035 ***** S L LIMIT VALUE K1705460
549 | * ***** BSC L GEN LAB,+Z K1705470
7B8C 7101 550 | MDX 1 1 MOVE I/P PT K1705480
7B8D 70E8 551 | MDX P4021 CHECK NEXT WORD K1705490
552 | * K1705500
553 | * K1705510
7B8E C317 554 | P4032 LD 3 MDXL1-Z LOAD .MDX L *-*,1. K1705520
7B8F 43AB 555 | BSI 3 OUTP-Z OUTPUT K1705530
7B90 C101 556 | LD 1 1 LOAD INDEX K1705540
7B91 43AB 557 | BSI 3 OUTP-Z ***** MDX L INDEX,1 K1705550
7B92 4324 558 | BSI 3 OULDL-Z ***** LD L INDEX K1705560
7B93 4001 559 | BSI P4035 ***** S L LIMIT VALUE K1705570
7B94 70E1 560 | MDX P4021 ***** BSC L GEN LAB,+Z K1705580
561 | * CHECK NEXT WORD K1705590
562 | * K1705600
563 | * SUBROUTINE TO OUTPUT K1705610
564 | * S L LIMIT VALUE K1705620
565 | * BSC L GEN LAB,+Z K1705630
566 | * K1705640
7B95 0000 567 | P4035 DC 0 ENTRY POINT K1705650
7B96 C102 568 | LD 1 2 LOAD LIMIT VALUE K1705660
7B97 E33E 569 | AND 3 H07FF-Z COMBINE WITH .S L. K1705670
7B98 8316 570 | A 3 SL-Z TO GET K1705680
7B99 43AB 571 | BSI 3 OUTP-Z ***** S L LIMIT VALUE K1705690
7B9A C311 572 | LD 3 GENLO-Z LOAD RETURN INSTRUCTION K1705700
7B9B 43AB 573 | BSI 3 OUTP-Z ***** BSC L GEN LAB,+Z K1705710
7B9C 4C80 7B95 574 | BSC I P4035 RETURN K1705720
575 | * K1705730
576 | * INSERTS THE FUNCTION NAME IN NAME K1705740
577 | * CODE INTO FNAME IN THE FORTRAN K1705750
578 | * COMMUNICATIONS AREA K1705760
7B9E 1000 579 | TMTE SLA 0 NOP K1705770
580 | * K1705780
581 | * PROCESS .FNAME. IN K1705790
582 | * COMMUNICATION AREA K1705800
583 | * K1705810
584 | * IF MAINLINE PROGRAM, NO ACTION TAKEN K1705820
585 | * K1705830
7B9F C400 7A30 586 | LD L SORF IS THIS MAINLINE PROGRAM K1705840
7BA1 4C18 7DF5 587 | BSC L EXIT,+- BRANCH IF YES K1705850
588 | * K1705860
589 | * IT IS SUBROUTINE OR FUNCTION K1705870
590 | * REPLACE SYM TBL REF IN FNAME BY K1705880
591 | * NAME (WITH CHARACTERS PACKED IN K1705890
592 | * OUTPUT MODE) K1705900
593 | * K1705910
7BA3 C400 7A2E 594 | LD L FNAME LOAD PROGRAM NAME K1705920
7BA5 4C10 7DF5 595 | BSC L EXIT,- BRANCH IF ALREADY HAVE NAME K1705930
7BA7 4390 596 | BSI 3 GETID-Z GET SYM TBL ID WORD K1705940
7BA8 6680 7D17 597 | LDX I2 SYMT1+1 LOAD SYM TBL ID WORD ADDR K1705950
7BAA C202 598 | LD 2 2 LOAD 2ND WORD OF NAME K1705960
7BAB 188F 599 | SRT 15 PUT IN EXTENSION K1705970
7BAC C201 600 | LD 2 1 LOAD FIRST WORD OF NAME K1705980
7BAD 1001 601 | SLA 1 REMOVE ALPHA-INDICATOR BIT K1705990
7BAE 1801 602 | SRA 1 RESTORE WORD K1706000
7BAF 1881 603 | SRT 1 RIGHT JUSTIFY NAME K1706010
7BB0 D400 7A2E 604 | STO L FNAME STORE FIRST WORD OF NAME K1706020
7BB2 18D0 605 | RTE 16 PUT 2ND WORD OF NAME IN ACC K1706030
7BB3 D400 7A2F 606 | STO L FNAME+1 STORE 2ND WORD K1706040
607 | * K1706050
608 | * MAKE SYM TBL ID WORD .VARIABLE. K1706060
7BB5 C200 609 | LD 2 0 LOAD SYM TBL ID WORD K1706070
7BB6 E333 610 | AND 3 H4020-Z CLEAR ALL BUT REAL/INTEGER K1706080
611 | * AND DEFINED BITS IN ID WORD K1706090
7BB7 D200 612 | STO 2 0 STORE ID WORD IN SYM TBL K1706100
613 | * K1706110
614 | * IF SUBR, MAKE SYM TBL ENTRY LOOK K1706120
615 | * LIKE REFERENCED GENERATED LABEL K1706130
616 | * INSTEAD (THIS PSEUDO-ENTRY WILL NOT K1706140
617 | * CAUSE CONFUSION IN FOLLOWING K1706150
618 | * PHASES BUT WILL BE PASSED BY K1706160
619 | * WITHOUT ACTION) K1706170
620 | * K1706180
7BB8 C400 7A30 621 | LD L SORF LOAD SORF WORD K1706190
7BBA 4C10 7DF5 622 | BSC L EXIT,- BRANCH IF FUNCTION K1706200
623 | * K1706210
7BBC C334 624 | LD 3 H0220-Z LOAD REFERENCED STMNT NO. ID K1706220
7BBD D200 625 | STO 2 0 PUT IN SYM TBL K1706230
7BBE C300 626 | LD 3 ZERO-Z LOAD ZERO K1706240
7BBF D201 627 | STO 2 1 PUT IN K1706250
7BC0 D202 628 | STO 2 2 AS NAME K1706260
7BC1 4C00 7DF5 629 | BSC L EXIT GO TO NEXT PHASE K1706270
630 | * K1706280
631 | * RETAINS THE CURRENT STMNT IN THE K1706290
632 | * STRING UNALTERED K1706300
7BC3 6580 7DCA 633 | Q1041 LDX I1 INID RESET I/P STRING PT K1706310
7BC5 6680 7DC9 634 | LDX I2 OUTID RESET O/P STRING PT K1706320
7BC7 C100 635 | LD 1 0 LOAD STMNT ID WORD K1706330
7BC8 E33D 636 | AND 3 H07FC-Z EXTRACT K1706340
7BC9 D34F 637 | STO 3 NORM-Z NORM K1706350
7BCA C100 638 | Q1042 LD 1 0 AND STORE K1706360
7BCB D200 639 | STO 2 0 MOVE ONE WORD K1706370
7BCC 74FC 7DCB 640 | MDX L NORM,-4 TO O/P STRING K1706380
7BCE 701C 641 | MDX Q1043 DECREMENT NORM BY ONE K1706390
642 | * TEST IF LAST OUTPUT STMT K1706400
643 | * WAS END STMNT K1706410
7BCF C34C 644 | LD 3 STTYP-Z CONTINUE LOOP K1706420
7BD0 934B 645 | S 3 TEND-Z LOAD STMNT ID TYPE K1706430
7BD1 4C20 7A61 646 | BSC L Q1021,Z IS IT END STMNT K1706440
647 | * BRANCH IF NOT K1706450
7BD3 6E00 7A25 648 | Q1044 STX L2 EOFS NEW END OF STRING ADDRESS K1706460
649 | * K1706470
650 | * TEST THAT SUBPROGRAM CONTAINS AT K1706480
651 | * LEAST ONE RETURN-STATEMENT K1706490
652 | * K1706500
7BD5 C400 7A30 653 | LD L SORF LOAD SORF K1706510
7BD7 4C20 7BDD 654 | BSC L RETRN,Z BRANCH UNLESS MAINLINE K1706520
7BD9 C331 655 | LD 3 RETCT-Z DOES PROGRAM HAVE RETURN K1706530
7BDA 4C18 7BE7 656 | BSC L P1044,+- STMNT - BRANCH IF NOT K1706540
7BDC 7003 657 | MDX ERRRR ERROR IF YES K1706550
7BDD C331 658 | RETRN LD 3 RETCT-Z DOES PROGRAM HAVE RETURN K1706560
7BDE 4C20 7BE7 659 | BSC L P1044,Z STMNT - BRANCH IF YES K1706570
7BE0 C31A 660 | ERRRR LD 3 HA008-Z LOAD ERROR STMNT ID WORD K1706580
7BE1 D200 661 | STO 2 0 PUT ON OUTPUT STRING K1706590
7BE2 C31B 662 | LD 3 C69-Z LOAD ERROR NO. K1706600
7BE3 D201 663 | STO 2 1 PUT ON OUTPUT STRING K1706610
7BE4 C100 664 | LD 1 0 LOAD END STMNT K1706620
7BE5 D202 665 | STO 2 2 OUTPUT K1706630
7BE6 7202 666 | MDX 2 2 MOVE OUTPUT PT K1706640
667 | * K1706650
7BE7 6E00 7A25 668 | P1044 STX L2 EOFS NEW END OF STRING ADDR K1706660
669 | * K1706670
670 | * K1706680
7BE9 4C00 7B9E 671 | BSC L TMTE BRANCH TO TERMINATE PHASE K1706690
672 | * K1706700
673 | * K1706710
7BEB 7101 674 | Q1043 MDX 1 1 MOVE I/P PT K1706720
7BEC 7201 675 | MDX 2 1 MOVE O/P PT K1706730
7BED 70DC 676 | MDX Q1042 CONTINUE LOOP K1706740
677 | * K1706750
678 | * OUTPUTS THE NAME AND PARAMETERS FOR K1706760
679 | * STMNT FUNCTION STATEMENTS K1706770
680 | * K1706780
7BEE 43A5 681 | Q1051 BSI 3 MOVAW-Z OUTPUT WORD, MOVE PTS K1706790
7BEF C100 682 | LD 1 0 LOAD WORD K1706800
7BF0 4C28 7BEE 683 | BSC L Q1051,+Z BRANCH NOT OPERATOR K1706810
684 | * K1706820
685 | * SAVE OUTPUT POINTER + 1 K1706830
686 | * AT TEMPP K1706840
687 | * K1706850
7BF2 6E00 7DCE 688 | Q1061 STX L2 TEMPP SAVE OUTPUT PT K1706860
7BF4 7401 7DCE 689 | MDX L TEMPP,1 MOVE O/P PT K1706870
690 | * K1706880
691 | * IDENTIFY NEXT OPERATOR K1706890
692 | * K1706900
693 | * K1706910
7BF6 C100 694 | Q2011 LD 1 0 LOAD WORD K1706920
7BF7 4C18 7C53 695 | BSC L Q2041,+- BRANCH IF SEMI-COLON K1706930
7BF9 935A 696 | S 3 DIOOP-Z IS IT DISK I/O OPERATOR K1706940
7BFA 4C20 7C1E 697 | BSC L Q2009,Z BRANCH IF NOT K1706950
7BFC C200 698 | LD 2 0 LOAD LAST O/P WORD K1706960
7BFD 935B 699 | S 3 EXPRO-Z IS IT EXPRESSION OPTR K1706970
7BFE 4C18 7C04 700 | BSC L Q2012,+- BRANCH IF YES K1706980
701 | * K1706990
7C00 C102 702 | LD 1 2 LOAD RECORD NUMBER K1707000
7C01 E33B 703 | AND 3 H7800-Z IS IT SUBSCRIPTED K1707010
7C02 4C18 7AB3 704 | BSC L D1014,+- BRANCH IF NOT K1707020
705 | * K1707030
7C04 7101 706 | Q2012 MDX 1 1 MOVE I/P PT K1707040
7C05 43CB 707 | BSI 3 SCHP1-Z LOAD LITERAL SUBSC OFFSET K1707050
7C06 71FF 708 | MDX 1 -1 DECREMENT I/P PT K1707060
7C07 C344 709 | LD 3 H6100-Z LOAD .MDX L1. K1707070
7C08 43AB 710 | BSI 3 OUTP-Z OUTPUT K1707080
7C09 C102 711 | LD 1 2 LOAD DIMENSION K1707090
7C0A E33C 712 | AND 3 H87FF-Z REMOVE SUBSCRIPT BITS K1707100
7C0B D102 713 | STO 1 2 RESTORE K1707110
714 | * K1707120
7C0C 43AB 715 | BSI 3 OUTP-Z OUTPUT K1707130
7C0D C345 716 | LD 3 H6000-Z LOAD NOP (MDX 0) K1707140
7C0E 43AB 717 | BSI 3 OUTP-Z OUTPUT NOP K1707150
7C0F C346 718 | LD 3 H6200-Z LOAD .STX L1. K1707160
7C10 43AB 719 | BSI 3 OUTP-Z OUTPUT K1707170
7C11 C343 720 | LD 3 H8003-Z LOAD K1707180
7C12 43AB 721 | BSI 3 OUTP-Z OUTPUT K1707190
7C13 C300 722 | LD 3 ZERO-Z CLEAR 2-5 K1707192
7C14 D355 723 | STO 3 CURR-Z CURR 2-5 K1707194
7C15 4C00 7AB3 724 | BSC L D1014 OUTPUT EXPRESSION OPERATOR K1707200
725 | * K1707210
726 | * K1707220
7C17 C102 727 | Q2008 LD 1 2 LD RECD NO. K1707230
7C18 E33B 728 | AND 3 H7800-Z IS IT SUBSCRIPTED K1707240
7C19 4C18 7ABA 729 | BSC L D1021,+- BRANCH IF NOT K1707250
7C1B C35B 730 | LD 3 EXPRO-Z OUTPUT EXPRESSION OPERATOR K1707260
7C1C 43AB 731 | BSI 3 OUTP-Z * K1707270
7C1D 70E6 732 | MDX Q2012 CONTINUE K1707280
733 | * K1707290
7C1E C100 734 | Q2009 LD 1 0 LOAD WORD K1707300
735 | * K1707310
7C1F 9335 736 | S 3 H002E-Z IS IT CALL OPERATOR K1707320
7C20 4C18 7C8C 737 | BSC L Q4011,+- BRANCH IF YES K1707330
7C22 8336 738 | A 3 H0016-Z IS IT LITERAL SUBSC OPTR K1707340
7C23 4C18 7C5C 739 | BSC L Q3051,+- BRANCH IF YES K1707350
7C25 4C08 7C2C 740 | BSC L Q2013,+ IS IT SPECIAL PARENTHESIS K1707360
7C27 9337 741 | S 3 H0008-Z FOR DIMENSIONED ARRAYS K1707370
7C28 4C28 7C5A 742 | BSC L Q3011,Z+ BRANCH IF YES K1707380
7C2A 4C18 7C3C 743 | BSC L Q2021,+- BRANCH IF UNARY MINUS K1707390
7C2C C100 744 | Q2013 LD 1 0 LOAD WORD K1707400
7C2D 9340 745 | S 3 H0014-Z IS IT IF OPERATOR K1707410
7C2E 4C20 7C41 746 | BSC L Q2031,Z BRANCH IF NOT K1707420
747 | * K1707430
748 | * IF OPERATOR ENCOUNTERED K1707440
749 | * TEST IF NEXT WD IS STMNT NUMBER K1707450
7C30 C101 750 | LD 1 1 LOAD NEXT WORD K1707460
7C31 4390 751 | BSI 3 SYMT-Z GET SYM TBL ID WORD K1707470
7C32 E339 752 | AND 3 H0200-Z IS IT STMNT NO. K1707480
7C33 4C20 7C37 753 | BSC L MOVE4,Z BRANCH IF YES K1707490
7C35 43CB 754 | BSI 3 SCHP1-Z LOAD LITERAL SUBSC OFFSET K1707500
7C36 43A5 755 | BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707510
7C37 43A5 756 | MOVE4 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707520
7C38 43A5 757 | MOVE3 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707530
7C39 43A5 758 | MOVE2 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707540
7C3A 43A5 759 | MOVE1 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707550
7C3B 70BA 760 | MDX Q2011 IDENTIFY NEXT OPERATOR K1707560
761 | * K1707570
762 | * UNARY MINUS ENCOUNTERED K1707580
763 | * TEST IF NEXT WORD IS OPERATOR K1707590
7C3C C101 764 | Q2021 LD 1 1 LOAD NEXT WORD K1707600
7C3D 4C10 7C3A 765 | BSC L MOVE1,- BRANCH IF NEXT WORD OPERATOR K1707610
766 | * K1707620
767 | * K1707630
7C3F 43CB 768 | Q2022 BSI 3 SCHP1-Z LOAD LITERAL SUBSC OFFSET K1707640
7C40 70F8 769 | MDX MOVE2 MOVE WORD K1707650
770 | * K1707660
771 | * .OTHER OPERATOR. ENCOUNTERED K1707670
7C41 C102 772 | Q2031 LD 1 2 LOAD WORD K1707680
7C42 4C10 7C3F 773 | BSC L Q2022,- BRANCH IF OPERATOR K1707690
7C44 C100 774 | LD 1 0 LOAD WORD K1707700
7C45 9338 775 | S 3 H000E-Z IS IT ASSIGN K1707710
7C46 4C20 7C4E 776 | BSC L Q2032,Z BRANCH IF NOT K1707720
777 | * K1707730
778 | * .ASSIGN. FOLLOWED BY TWO NAMES K1707740
779 | * ENCOUNTERED, EXCHANGE WORDS AT K1707750
780 | * POINTER+1 AND POINTER+2 K1707760
781 | * K1707770
7C48 C101 782 | LD 1 1 LOAD FIRST WORD K1707780
7C49 18D0 783 | RTE 16 PUT IN EXTENSION K1707790
7C4A C102 784 | LD 1 2 LOAD 2ND WORD K1707800
7C4B D101 785 | STO 1 1 PLACE IN FIRST WORD LOCATION K1707810
7C4C 18D0 786 | RTE 16 PUT 1ST WORD IN ACCUMULATOR K1707820
7C4D D102 787 | STO 1 2 PLACE IN 2ND WORD LOCATION K1707830
7C4E 43CB 788 | Q2032 BSI 3 SCHP1-Z SUBSCR CHECK, PTR+1 K1707840
7C4F 43A5 789 | BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707850
7C50 43A5 790 | BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707860
7C51 43C6 791 | BSI 3 SCHP2-Z LOAD LITERAL SUBSC OFFSETS K1707870
7C52 70E7 792 | MDX MOVE1 MOVE WORD K1707880
793 | * K1707890
794 | * SEMICOLON ENCOUNTERED K1707900
795 | * MOVE LAST WORD AND TEST SWITCH K1707910
796 | * K1707920
7C53 43A5 797 | Q2041 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1707930
7C54 71FF 798 | MDX 1 -1 DECREMENT I/P PT K1707940
7C55 C350 799 | LD 3 STXSW-Z TEST STX SWITCH K1707950
7C56 4C20 7CB2 800 | BSC L Q5011,Z BRANCH IF SET K1707960
7C58 4C00 7A61 801 | BSC L Q1021 GO TO NEXT STMNT K1707970
802 | * K1707980
803 | * SUBSCRIPT OPERATOR ENCOUNTERED K1707990
804 | * K1708000
7C5A 4003 805 | Q3011 BSI SBSN PROCESS SUBSCR OPTR K1708010
7C5B 709A 806 | MDX Q2011 IDENTIFY NEXT OPERATOR K1708020
807 | * K1708030
808 | * LITTERAL SUBSC OPERATOR ENCOUNTERED K1708040
7C5C 4024 809 | Q3051 BSI SBSLT PROCESS LITERAL SUBSCRIPT K1708050
7C5D 7098 810 | MDX Q2011 IDENTIFY NEXT OPERATOR K1708060
811 | * K1708070
812 | * K1708080
813 | * GENERATES THE CALL FOR SUBSCRIPT K1708090
814 | * CALCULATION WITH ARGUMENTS K1708100
815 | * MAKES THE SGT TBL ENTRY K1708110
816 | * K1708120
7C5E 0000 817 | SBSN DC 0 ENTRY POINT K1708130
7C5F 8337 818 | A 3 H0008-Z GET DIMENSION COUNT K1708140
7C60 D354 819 | STO 3 DIMCT-Z STORE DIMENSION COUNT K1708150
7C61 C33A 820 | LD 3 H1900-Z LOAD .CALL SUBSC. K1708160
7C62 43AB 821 | BSI 3 OUTP-Z OUTPUT CALL K1708170
7C63 C101 822 | LD 1 1 LOAD WORD K1708180
7C64 E33C 823 | AND 3 H87FF-Z GET SYM TBL ENTRY NO. K1708190
7C65 43AB 824 | BSI 3 OUTP-Z OUTPUT K1708200
7C66 C101 825 | LD 1 1 LOAD WORD K1708210
7C67 E33B 826 | AND 3 H7800-Z GET PSEUDO INDEX K1708220
7C68 180B 827 | SRA 11 RIGHT JUSTIFY K1708230
7C69 D355 828 | STO 3 CURR-Z PUT IN CURR K1708240
7C6A C102 829 | LD 1 2 LOAD D4 K1708250
7C6B 1001 830 | SLA 1 DELETE K1708260
7C6C 1881 831 | SRT 1 BIT 0 K1708270
7C6D 43AB 832 | BSI 3 OUTP-Z OUTPUT K1708280
833 | * K1708290
834 | * INSERT .NON-LITTERAL. TO SGT-TABLE K1708300
7C6E C101 835 | LD 1 1 LOAD WORD K1708310
7C6F 43BE 836 | BSI 3 SGTAD-Z COMPUTE SGT TABLE ADDR K1708320
7C70 C342 837 | LD 3 H8000-Z LOAD NON-LITERAL SGT WORD K1708330
7C71 D480 7D41 838 | STO I SGTI PUT IN TABLE K1708340
839 | * K1708350
7C73 7103 840 | MDX 1 3 MOVE I/P PT K1708360
841 | * K1708370
842 | * OUTPUT REMAINING ARGUMENTS K1708380
7C74 C100 843 | SBS1 LD 1 0 LOAD WORD K1708390
7C75 43AB 844 | BSI 3 OUTP-Z OUTPUT K1708400
7C76 C101 845 | LD 1 1 LOAD WORD K1708410
7C77 43AB 846 | BSI 3 OUTP-Z OUTPUT K1708420
7C78 7102 847 | MDX 1 2 MOVE O/P PT K1708430
7C79 74FE 7DD0 848 | MDX L DIMCT,-2 DECREMENT DIMENSION COUNT K1708440
7C7B 70F8 849 | MDX SBS1 OUTPUT REMAINING ARGUMENTS K1708450
850 | * K1708460
851 | * TAG LAST ARGUMENT IN LIST K1708470
7C7C C200 852 | LD 2 0 LOAD LAST AGUMENT K1708480
7C7D EB42 853 | OR 3 H8000-Z TAG ARGUMENT K1708490
7C7E D200 854 | STO 2 0 PUT BACK IN O/P STRING K1708500
855 | * K1708510
7C7F 4C80 7C5E 856 | BSC I SBSN RETURN K1708520
857 | * K1708530
858 | * MAKES THE LITERAL SUBSCRIPT ENTRY K1708540
859 | * INTO THE SGT TABLE K1708550
860 | * K1708560
7C81 0000 861 | SBSLT DC 0 ENTRY POINT K1708570
7C82 C101 862 | LD 1 1 LOAD NAME K1708580
7C83 43BE 863 | BSI 3 SGTAD-Z COMPUTE ADDR IN SGT-TABLE K1708590
7C84 C102 864 | LD 1 2 LOAD D4 K1708600
7C85 1001 865 | SLA 1 DELETE BIT 0 K1708610
7C86 1881 866 | SRT 1 K1708620
7C87 D480 7D41 867 | STO I SGTI PUT IN SGT-TABLE K1708630
7C89 7103 868 | MDX 1 3 MOVE POINTER K1708640
7C8A 4C80 7C81 869 | BSC I SBSLT RETURN K1708650
870 | * K1708660
871 | * SCANS THE TWO-WORD CALL ARGUMENT LIST K1708670
872 | * FOR SUBSCRIPTED NAMES K1708680
873 | * GENERATES THE INSTRUCTIONS FOR K1708690
874 | * OBJECT-TIME ADDRESS INSERTION FOR K1708700
875 | * SUBSCRIPTED VARIABLES K1708710
876 | * K1708720
7C8C 691F 877 | Q4011 STX 1 Q4021+1 SAVE I/P PT K1708730
7C8D C101 878 | Q4012 LD 1 1 LOAD WORD K1708740
7C8E 4C10 7CAB 879 | BSC L Q4021,- BRANCH IF OPERATOR K1708750
7C90 D353 880 | STO 3 TEMP1-Z SAVE ARGUMENT K1708760
7C91 E33B 881 | AND 3 H7800-Z GET PSEUDO INDEX BITS K1708770
7C92 4C18 7CA9 882 | BSC L Q4014,+- BRANCH IF NO PSEUDO INDEX K1708780
7C94 43BE 883 | BSI 3 SGTAD-Z COMPUTE SGT TABLE ADDRESS K1708790
7C95 43CB 884 | BSI 3 SCHP1-Z LOAD LITERAL SUBSC OFFSETS K1708800
7C96 C344 885 | LD 3 H6100-Z LOAD .MDX L1. K1708810
7C97 43AB 886 | BSI 3 OUTP-Z OUTPUT K1708820
7C98 C101 887 | LD 1 1 LOAD WORD K1708830
7C99 43AB 888 | BSI 3 OUTP-Z OUTPUT K1708840
7C9A C345 889 | LD 3 H6000-Z LOAD .NOP. (MDX O) K1708850
7C9B 43AB 890 | BSI 3 OUTP-Z OUTPUT K1708860
7C9C C346 891 | LD 3 H6200-Z LOAD .STX L1. K1708870
7C9D 43AB 892 | BSI 3 OUTP-Z OUTPUT K1708880
893 | * K1708890
894 | * RESTORE WORD AT PT+1 K1708900
895 | * WITH ITS PSEUDO INDEX K1708910
896 | * K1708920
7C9E C353 897 | LD 3 TEMP1-Z LOAD NAME K1708930
7C9F D101 898 | STO 1 1 PUT BACK ON STRING K1708940
899 | * K1708950
7CA0 43AB 900 | BSI 3 OUTP-Z OUTPUT WORD K1708960
901 | * SERVES LATER AS IDENTIFICATION K1708970
902 | * AT STX L1-SCAN K1708980
903 | * ZERO .CURRENT SGT. * K1708990
904 | * (SGT DESTROYED AT OBJECT TIME K1709000
905 | * BY MDX L1-INSTR) K1709010
906 | * K1709020
7CA1 1010 907 | SLA 16 CLEAR ACCUMULATOR K1709030
7CA2 D355 908 | STO 3 CURR-Z CLEAR CURR K1709040
7CA3 C342 909 | LD 3 H8000-Z SET CURRENT D4 K1709050
7CA4 D358 910 | STO 3 CURD4-Z TO NON-LITERAL K1709060
7CA5 D480 7D41 911 | STO I SGTI SET LAST SGT TO NON-LITERAL K1709070
7CA7 7401 7DCC 912 | MDX L STXSW,1 SET STX-SWITCH K1709080
913 | * K1709090
7CA9 7101 914 | Q4014 MDX 1 1 MOVE POINTER K1709100
7CAA 70E2 915 | MDX Q4012 PROCESS SUBSCRIPTED ARGUMENT K1709110
916 | * K1709120
917 | * OUTPUTS THE 2-WORD SUBP CALL WITH K1709130
918 | * ARGUMENTS K1709140
919 | * K1709150
7CAB 6500 0000 920 | Q4021 LDX L1 *-* RESTORE POINTER K1709160
7CAD 43A5 921 | Q4022 BSI 3 MOVAW-Z OUTPUT WORD, MOVE POINTERS K1709170
7CAE C100 922 | LD 1 0 LOAD WORD K1709180
7CAF 4C10 7E04 923 | BSC L XXXXX,- BRANCH IF END OF ARGUMENTS K1709190
924 | * - OPERATOR ENCOUNTERED K1709200
7CB1 70FB 925 | MDX Q4022 PROCESS NEXT ARGUMENT K1709210
926 | * K1709220
927 | * COMPUTES DISPLACEMENT VALUES FOR K1709230
928 | * 'STX L1' INSTRUCTIONS USED FOR K1709240
929 | * STORING THE COMPUTED SUBSCRIPT OFFSET K1709250
930 | * INSERTS THOSE VALUES INTO THE SECOND K1709260
931 | * WORD OF THE INSTRUCTION K1709270
7CB2 6906 932 | Q5011 STX 1 Q5015+1 SAVE POINTER K1709280
7CB3 6580 7DCE 933 | LDX I1 TEMPP LOAD TEMPORARY POINTER K1709290
7CB5 C100 934 | Q5013 LD 1 0 LOAD WORD K1709300
7CB6 4C20 7CBC 935 | BSC L Q5021,Z BRANCH IF NOT SEMI-COLON K1709310
7CB8 6500 0000 936 | Q5015 LDX L1 *-* RESTORE POINTER K1709320
7CBA 4C00 7A61 937 | BSC L Q1021 PROCESS NEXT STMNT K1709330
938 | * K1709340
7CBC 4C10 7CC0 939 | Q5021 BSC L Q5031,- BRANCH IF NOT NAME K1709350
940 | * K1709360
7CBE 7101 941 | Q5022 MDX 1 1 MOVE POINTER K1709370
7CBF 70F5 942 | MDX Q5013 CHECK FOR END OF STMNT K1709380
943 | * K1709390
7CC0 933A 944 | Q5031 S 3 H1900-Z IS WORD .CALL SUBSCR. K1709400
7CC1 4C20 7CC5 945 | BSC L Q5035,Z BRANCH IF NOT K1709410
7CC3 439E 946 | BSI 3 PASSA-Z MOVE POINTER PAST ARGUMENTS K1709420
7CC4 70F0 947 | MDX Q5013 CHECK FOR END OF STMNT K1709430
7CC5 C100 948 | Q5035 LD 1 0 LOAD WORD K1709440
7CC6 9346 949 | S 3 H6200-Z IS IT .STX L1. K1709450
7CC7 4C18 7CCE 950 | BSC L Q5041,+- BRANCH IF YES K1709460
7CC9 9341 951 | S 3 DIFF1-Z IS IT .LDX L1. K1709470
7CCA 4C20 7CBE 952 | BSC L Q5022,Z BRANCH IF NOT K1709480
7CCC 7101 953 | MDX 1 1 MOVE POINTER K1709490
7CCD 70F0 954 | MDX Q5022 MOVE PT, CHECK NEXT WORD K1709500
955 | * K1709510
956 | * COMPUTE Z IN INSTRUCTION K1709520
957 | * STX L1 Z K1709530
958 | * AND INSERT ON STRING K1709540
959 | * K1709550
7CCE 1010 960 | Q5041 SLA 16 CLEAR EXTERNAL COUNTER K1709560
7CCF D35E 961 | STO 3 COUNT-Z K1709570
7CD0 7101 962 | MDX 1 1 MOVE POINTER K1709580
7CD1 6D00 7DCD 963 | STX L1 TEMPX SAVE POINTER K1709590
964 | * K1709600
965 | * SEARCH FOR IDENTIFIER IN K1709610
966 | * CALL-ARGUMENT LIST K1709620
967 | * K1709630
7CD3 7101 968 | Q5042 MDX 1 1 MOVE POINTER K1709640
7CD4 C100 969 | Q5043 LD 1 0 K1709650
7CD5 933A 970 | S 3 H1900-Z IS WORD .CALL SUBSC. K1709660
7CD6 4C20 7CDA 971 | BSC L Q5045,Z BRANCH IF NOT K1709670
7CD8 439E 972 | BSI 3 PASSA-Z MOVE PT PAST ARGUMENTS K1709680
7CD9 70FA 973 | MDX Q5043 CHECK NEXT WORD K1709690
974 | * K1709700
7CDA C100 975 | Q5045 LD 1 0 K1709710
7CDB 9347 976 | S 3 H5B00-Z IS WORD .LDX L1. K1709720
7CDC 4C20 7CE0 977 | BSC L Q5046,Z BRANCH IF NOT K1709730
7CDE 7101 978 | MDX 1 1 MOVE POINTER K1709740
7CDF 70F3 979 | MDX Q5042 SEARCH FOR IDENTIFIER K1709750
980 | * K1709760
7CE0 C100 981 | Q5046 LD 1 0 LOAD WORD K1709770
7CE1 4C28 7E08 982 | BSC L PTCH1,+Z BRANCH IF NOT OPERATOR 2-3 K1709780
7CE3 9335 983 | S 3 H002E-Z IS IT CALL OPERATOR 2-3 K1709790
7CE4 4C20 7CD3 984 | BSC L Q5042,Z BRANCH IF NO 2-3 K1709800
7CE6 70F7 985 | MDX Q5045+4 BRANCH IF YES 2-3 K1709810
986 | * K1709815
7CE7 7401 7DDA 987 | PTH1A MDX L COUNT,1 INCREMENT EXTERNAL COUNTER K1709820
7CE9 70E9 988 | MDX Q5042 GO MOVE POINTER K1709830
7CEA C100 989 | CONTU LD 1 0 RELOAD STRING ARGUMENT K1709840
7CEB 9480 7DCD 990 | S I TEMPX IS IT ADDR IN STX L1 INSTR K1709850
7CED 4C20 7CD3 991 | BSC L Q5042,Z BRANCH IF NOT K1709860
992 | * K1709870
993 | * REMOVE PSEUDOINDEXBITS FROM K1709880
994 | * CALL-ARGUMENT WORD K1709890
995 | * K1709900
7CEF C100 996 | LD 1 0 LOAD WORD K1709910
7CF0 E33C 997 | AND 3 H87FF-Z REMOVE PSEUDO INDEX BITS K1709920
7CF1 D100 998 | STO 1 0 PUT BACK ON STRING K1709930
999 | * K1709940
1000 | * COMPUTE AND INSERT SECOND HALF K1709950
1001 | * OF STX L1-INSTRUCTION K1709960
1002 | * K1709970
7CF2 6D00 7DCF 1003 | STX L1 TEMP1 SAVE POINTER K1709980
7CF4 C353 1004 | LD 3 TEMP1-Z LOAD ADDRESS OF PT K1709990
7CF5 9351 1005 | S 3 TEMPX-Z SUBTRACT STORED PT K1710000
7CF6 EB42 1006 | OR 3 H8000-Z PUT IN SIGN BIT K1710010
7CF7 835E 1007 | A 3 COUNT-Z ADD EXTERNAL COUNT K1710020
7CF8 D480 7DCD 1008 | STO I TEMPX PUT IN STX L1 INSTRUCTION K1710030
7CFA 6580 7DCD 1009 | LDX I1 TEMPX RESTORE POINTER K1710040
7CFC 70C1 1010 | MDX Q5022 MOVE PT, CHECK NEXT WORD K1710050
1011 | * K1710060
1012 | * K1710070
1013 | * SGT-TABLE K1710080
1014 | * K1710090
7CFD 8000 1015 | SGTB DC /8000 NON-LITERAL CONSTANT K1710100
7CFE 8000 1016 | DC /8000 NON-LITERAL CONSTANT K1710110
7CFF 8000 1017 | DC /8000 NON-LITERAL CONSTANT K1710120
7D00 8000 1018 | DC /8000 NON-LITERAL CONSTANT K1710130
7D01 8000 1019 | DC /8000 NON-LITERAL CONSTANT K1710140
7D02 8000 1020 | DC /8000 NON-LITERAL CONSTANT K1710150
7D03 8000 1021 | DC /8000 NON-LITERAL CONSTANT K1710160
7D04 8000 1022 | DC /8000 NON-LITERAL CONSTANT K1710170
7D05 8000 1023 | DC /8000 NON-LITERAL CONSTANT K1710180
7D06 8000 1024 | DC /8000 NON-LITERAL CONSTANT K1710190
7D07 8000 1025 | DC /8000 NON-LITERAL CONSTANT K1710200
7D08 8000 1026 | DC /8000 NON-LITERAL CONSTANT K1710210
7D09 8000 1027 | DC /8000 NON-LITERAL CONSTANT K1710220
7D0A 8000 1028 | DC /8000 NON-LITERAL CONSTANT K1710230
7D0B 8000 1029 | DC /8000 NON-LITERAL CONSTANT K1710240
1030 | * K1710250
1031 | * K1710260
1032 | * GETS THE ID WORD OF A SIM TBL ENTRY K1710270
1033 | * K1710280
7D0C 0000 1034 | SYMT DC 0 ENTRY POINT K1710290
7D0C 1035 | GETID EQU SYMT K1710300
7D0D E33E 1036 | AND 3 H07FF-Z GET SYM TBL ENTRY NO. K1710310
7D0E 9301 1037 | S 3 ONE-Z K1710320
7D0F D007 1038 | STO SYMT1+1 SAVE ENTRY NO. K1710330
7D10 C400 7A26 1039 | LD L SOFST LOAD START OF SYM TBL ADDR K1710340
1040 | * K1710350
7D12 9004 1041 | S SYMT1+1 GET ADDRESS OF ENTRY K1710360
7D13 9003 1042 | S SYMT1+1 BY MULTIPLYING ENTRY NO. BY K1710370
7D14 9002 1043 | S SYMT1+1 THREE AND SUBTRACTING IT K1710380
7D15 D001 1044 | STO SYMT1+1 FROM TABLE ORIGIN K1710390
1045 | * K1710400
7D16 C400 0000 1046 | SYMT1 LD L *-* LOAD SYM TBL ID WORD K1710410
7D18 4C80 7D0C 1047 | BSC I SYMT RETURN K1710420
1048 | * K1710430
1049 | * SUBROUTINE K1710440
1050 | * MOVES THE POINTER PAST THE K1710450
1051 | * ARGUMENTS OF 'LIBF SUBSC' K1710460
1052 | * K1710470
7D1A 0000 1053 | PASSA DC 0 ENTRY POINT K1710480
7D1B 7103 1054 | MDX 1 3 MOVE POINTER K1710490
7D1C 7102 1055 | PASS1 MDX 1 2 MOVE POINTER K1710500
7D1D C1FF 1056 | LD 1 -1 RETURN IF LAST K1710510
7D1E 4CA8 7D1A 1057 | BSC I PASSA,Z+ ARGUMENT TAGGED K1710520
7D20 70FB 1058 | MDX PASS1 BRANCH IF NOT K1710530
1059 | * K1710540
1060 | * K1710550
1061 | * SUBROUTINE K1710560
1062 | * MOVE WORD AT I/P PT TO O/P STRING K1710570
1063 | * INCREMENT POINTERS K1710580
7D21 0000 1064 | MOVAW DC 0 ENTRY POINT K1710590
7D22 C100 1065 | LD 1 0 LOAD WORD K1710600
7D23 43AB 1066 | BSI 3 OUTP-Z OUTPUT WORD, MOVE O/P PT K1710610
7D24 7101 1067 | MDX 1 1 MOVE I/P PT K1710620
7D25 4C80 7D21 1068 | BSC I MOVAW RETURN K1710630
1069 | * K1710640
1070 | * SUBROUTINE K1710650
1071 | * OUTPUT K1710660
1072 | * MOVES CONTENTS OF ACC TO K1710670
1073 | * OUTPUT STRING, INCR NORM AND K1710680
1074 | * CHECKS IF OVERLAP ERROR K1710690
1075 | * K1710700
7D27 0000 1076 | OUTP DC 0 ENTRY POINT K1710710
7D28 D201 1077 | STO 2 1 OUTPUT WORD K1710720
7D29 7201 1078 | MDX 2 1 MOVE O/P PT K1710730
7D2A C480 7DC9 1079 | LD I OUTID LOAD STMNT I/D WORD K1710740
7D2C 8304 1080 | A 3 FOUR-Z INCREMENT NORM BY ONE K1710750
7D2D D480 7DC9 1081 | STO I OUTID PUT ID WORD ON O/P STRING K1710760
7D2F 6908 1082 | STX 1 OUTP3 K1710770
7D30 6A08 1083 | STX 2 OUTP4 CHECK FOR K1710780
7D31 C006 1084 | LD OUTP3 OVERLAP K1710790
7D32 9006 1085 | S OUTP4 ERROR K1710800
7D33 9302 1086 | S 3 TWO-Z K1710810
7D34 4CB0 7D27 1087 | BSC I OUTP,Z- RETURN IF NO OVERLAP ERROR K1710820
7D36 4C00 7A4C 1088 | BSC L OVLAP OVERLAP ERROR K1710830
7D38 0000 1089 | OUTP3 DC 0 TEMPORARY STORAGE OF PT K1710840
7D39 0000 1090 | OUTP4 DC 0 TEMPORARY STORAGE OF PT K1710850
1091 | * K1710860
1092 | * K1710870
1093 | * SUBROUTINE K1710880
1094 | * CONVERTS PSEUDO INDEX IN ACC K1710890
1095 | * INTO SGT-TABLE ADDRESS, K1710900
1096 | * STORE AT .SGTI. K1710910
1097 | * K1710920
7D3A 0000 1098 | SGTAD DC 0 ENTRY POINT K1710930
7D3B E33B 1099 | AND 3 H7800-Z GET PSEUDO INDEX K1710940
7D3C 180B 1100 | SRA 11 RIGHT JUSTIFY INDEX K1710950
7D3D 833F 1101 | A 3 ADRC-Z GET ACTUAL K1710960
7D3E D002 1102 | STO SGTI SGT-TABLE ADDRESS K1710970
7D3F 4C80 7D3A 1103 | BSC I SGTAD RETURN K1710980
7D41 0000 1104 | SGTI DC 0 COMPUTED SGT-TABLE ADDRESS K1710990
1105 | * K1711000
1106 | * K1711010
1107 | * GENERATES THE 'LDX' INSTRUCTION K1711020
1108 | * USING THE SGT TABLE K1711030
1109 | * K1711040
1110 | * K1711050
1111 | * ENTRY FOR ARGUM = POINTER + 0 K1711060
1112 | * K1711070
7D42 0000 1113 | SCHP2 DC 0 ENTRY PT K1711080
7D43 C0FE 1114 | LD SCHP2 MOVE RETURN ADDRESS K1711090
7D44 D002 1115 | STO SCHP1 TO SCHP1 K1711100
7D45 C300 1116 | LD 3 ZERO-Z LOAD ZERO K1711110
7D46 7002 1117 | MDX SCH11 CONTINUE K1711120
1118 | * K1711130
1119 | * ENTRY FOR ARGUM = POINTER + 1 K1711140
1120 | * K1711150
7D47 0000 1121 | SCHP1 DC 0 ENTRY POINT K1711160
7D48 C301 1122 | LD 3 ONE-Z LOAD ONE K1711170
7D49 6930 1123 | SCH11 STX 1 ADDR SAVE INPUT POINTER K1711180
7D4A 802F 1124 | A ADDR MODIFY INPUT POINTER K1711190
7D4B D02E 1125 | STO ADDR SAVE ADDR K1711200
7D4C C480 7D7A 1126 | LD I ADDR LOAD WORD AT I/P PT + 1 K1711210
7D4E E33B 1127 | AND 3 H7800-Z GET PSEUDO INDEX K1711220
7D4F 4C98 7D47 1128 | BSC I SCHP1,+- RETURN IF NO PSEUDO INDEX K1711230
7D51 180B 1129 | SRA 11 RIGHT JUSTIFY K1711240
7D52 9355 1130 | S 3 CURR-Z IS IT CURRENT SGT K1711250
7D53 4C18 7D65 1131 | BSC L SCH15,+- BRANCH IF YES K1711260
7D55 8355 1132 | A 3 CURR-Z RESTORE WORD K1711270
7D56 D355 1133 | STO 3 CURR-Z PUT IN CURRENT SGT K1711280
7D57 C480 7D7A 1134 | LD I ADDR LOAD WORD K1711290
7D59 43BE 1135 | BSI 3 SGTAD-Z COMPUTE SGT-TABLE ADDRESS K1711300
7D5A C480 7D41 1136 | LD I SGTI LOAD ADDRESS K1711310
7D5C 9342 1137 | S 3 H8000-Z IS IT NON-LITERAL SGT K1711320
7D5D 4C18 7D6C 1138 | BSC L SCH21,+- BRANCH IF YES K1711330
1139 | * K1711340
1140 | * LITERAL SUBSCRIPT ENCOUNTERED K1711350
1141 | * TEST IF IT MATCHES WITH K1711360
1142 | * CURRENT LITERAL D4 K1711370
1143 | * K1711380
1144 | * OUTPUT .LDX L1. AND D4 K1711390
7D5F C347 1145 | LD 3 H5B00-Z LOAD .LDX L1. K1711400
7D60 43AB 1146 | BSI 3 OUTP-Z OUTPUT K1711410
7D61 C480 7D41 1147 | LD I SGTI LOAD SGT TABLE WORD K1711420
7D63 D358 1148 | STO 3 CURD4-Z STORE AS CURRENT D4 K1711430
7D64 43AB 1149 | BSI 3 OUTP-Z OUTPUT WORD K1711440
1150 | * ***** LDX L1 SGT TBL WD K1711450
1151 | * DELETE PSEUDOINDEX-BITS K1711460
1152 | * FROM STRING WORD, RETURN K1711470
1153 | * K1711480
7D65 C480 7D7A 1154 | SCH15 LD I ADDR LOAD WORD K1711490
7D67 E33C 1155 | AND 3 H87FF-Z DELETE PSEUDO INDEX BITS K1711500
7D68 D480 7D7A 1156 | STO I ADDR RESTORE WORD K1711510
7D6A 4C80 7D47 1157 | BSC I SCHP1 RETURN K1711520
1158 | * K1711530
1159 | * OUTPUT .LDX I1. AND SGT K1711540
7D6C C348 1160 | SCH21 LD 3 H4800-Z LOAD .LDX I1. K1711550
7D6D 43AB 1161 | BSI 3 OUTP-Z OUTPUT .LDX I1. K1711560
7D6E C400 7A26 1162 | LD L SOFST LOAD START OF SYM TBL ADDR K1711570
7D70 9400 7A28 1163 | S L SOFXT SUBTRACT START OF SUBSCRIPT K1711580
7D72 1890 1164 | SRT 16 TEMPORARIES K1711590
7D73 AB03 1165 | D 3 THREE-Z DIVIDE BY THREE K1711600
7D74 8355 1166 | A 3 CURR-Z ADD CURRENT SGT K1711610
7D75 EB42 1167 | OR 3 H8000-Z PUT SIGN BIT FOR ADDRESS K1711620
7D76 43AB 1168 | BSI 3 OUTP-Z ***** LDX I1 ADDRESS K1711630
7D77 C342 1169 | LD 3 H8000-Z INSERT NON LITERAL K1711640
7D78 D358 1170 | STO 3 CURD4-Z CURRENT D4 K1711650
7D79 70EB 1171 | MDX SCH15 DELETE PSEUDO INDEX WORDS K1711660
7D7A 0000 1172 | ADDR DC 0 ADDRESS STORAGE K1711670
1173 | * K1711680
7D7B 0000 1174 | USWIT DC 0 UNFORMATTED I/O SWITCH K1711690
7D7C 0000 1175 | ZERO DC 0 ZERO K1711700
7D7C 1176 | Z EQU ZERO K1711710
7D7D 0001 1177 | ONE DC 1 ONE K1711720
7D7E 0002 1178 | TWO DC 2 TWO K1711730
7D7F 0003 1179 | THREE DC 3 THREE K1711740
7D80 0004 1180 | FOUR DC 4 FOUR K1711750
1181 | * K1711760
7D81 C000 1182 | LDXI1 DC /C000 .LDX L1. K1711770
7D82 5C00 1183 | BSCI1 DC /5C00 .BSC I1. K1711780
7D83 5A00 1184 | ASTM1 DC /5A00 .*-1. K1711790
7D84 0F80 1185 | FGOTO DC /0F80 CALL GO TO TRACE K1711800
7D85 0028 1186 | LOP DC /0028 LIST-OPERATOR K1711810
7D86 1800 1187 | H1800 DC /1800 DIMENSION MASK - SYM TBL ID K1711820
1188 | * K1711830
7D87 1700 1189 | FIOIX DC /1700 .CALL SIOIX. K1711840
7D88 1680 1190 | FIOFX DC /1680 .CALL SIOFX. K1711850
7D89 1880 1191 | FIOI DC /1880 .CALL SIOI. K1711860
7D8A 1800 1192 | FIOF DC /1800 .CALL SIOF. K1711870
7D8B 1580 1193 | FIOAI DC /1580 .CALL SIOAI. K1711880
7D8C 1600 1194 | FIOAF DC /1600 .CALL SIOAF. K1711890
7D8D 5E01 1195 | GENLO DC /5E01 STORED GENERAL LABEL OPTR K1711900
7D8E 002A 1196 | DOAOP DC /002A DOA-OPERATOR K1711910
7D8F 004A 1197 | DOTOP DC /004A DO TEST OPERATOR K1711920
7D90 9800 1198 | AL DC /9800 .A L. K1711930
7D91 9000 1199 | STOL DC /9000 .STO L. K1711940
7D92 A000 1200 | SL DC /A000 .S L. K1711950
7D93 5101 1201 | MDXL1 DC /5101 .MDX L1. K1711960
7D94 8800 1202 | LDL DC /8800 .LD L. K1711970
7D95 0018 1203 | H0018 DC /0018 LITERAL OPERATOR K1711980
7D96 A008 1204 | HA008 DC /A008 ERROR STMNT ID WORD K1711990
7D97 0045 1205 | C69 DC 69 ERROR NO. 69 K1712000
7D98 5F00 1206 | H5F00 DC /5F00 .BLANK. K1712010
1207 | * K1712020
1208 | * SUBROUTINE K1712030
1209 | * OUTPUT CONTENTS OF ACC AND WORD AT K1712040
1210 | * POINTER + 1 WITH DISK I/O TEST K1712050
1211 | * K1712060
7D99 0000 1212 | OUTIO DC 0 ENTRY POINT K1712070
7D9A 435F 1213 | BSI 3 DTEST-Z OUTPUT CALL K1712080
7D9B C101 1214 | LD 1 1 LOAD WORD K1712090
7D9C E33C 1215 | AND 3 H87FF-Z DELETE PSEUDO INDEX BITS K1712100
7D9D 43AB 1216 | BSI 3 OUTP-Z OUTPUT WORD K1712110
7D9E 4C80 7D99 1217 | BSC I OUTIO RETURN K1712120
1218 | * K1712130
1219 | * SUBR OUTPUT .LD L. PTR+1 K1712140
7DA0 0000 1220 | OULDL DC 0 ENTRY POINT K1712150
7DA1 C101 1221 | LD 1 1 LOAD WORD K1712160
7DA2 E33E 1222 | AND 3 H07FF-Z GET SYM TBL ENTRY NO. K1712170
7DA3 8318 1223 | A 3 LDL-Z COMBINE WITH .LD L. K1712180
7DA4 43AB 1224 | BSI 3 OUTP-Z OUTPUT INSTRUCTION K1712190
7DA5 4C80 7DA0 1225 | BSC I OULDL RETURN K1712200
7DA7 0480 1226 | FLD DC /0480 .CALL FLD. K1712210
7DA8 1400 1227 | FRED DC /1400 .CALL FRED. K1712220
7DA9 1480 1228 | FWRT DC /1480 .CALL FWRT. K1712230
7DAA 1500 1229 | FCOMP DC /1500 .CALL FCOMP. K1712240
7DAB 1900 1230 | FIND DC /2680-/2180+/1400 .CALL FIND. K1712250
1231 | * 'CALL FIND', K1712260
1232 | * CHANGED LATER TO /2680 K1712270
1233 | * BY 'DTEST' K1712280
1234 | * K1712290
7DAC 8800 1235 | WRITE DC /8800 WRITE ID K1712300
1236 | * K1712310
7DAD 0000 1237 | RETCT DC 0 RETURN-COUNT K1712320
7DAE 5080 1238 | BSCI DC /5080 .BSC I. K1712330
7DAE 1239 | H5080 EQU BSCI K1712340
7DAF 4020 1240 | H4020 DC /4020 DEFINED INTEGER VAR ID K1712350
7DB0 0220 1241 | H0220 DC /0220 REFERENCED STMNT NO. ID K1712360
1242 | * K1712370
7DB1 002E 1243 | H002E DC /002E CALL OPERATOR K1712380
7DB2 0016 1244 | H0016 DC /0016 .CALL. K1712390
7DB3 0008 1245 | H0008 DC /0008 CONSTANT FOR DIM COUNT K1712400
7DB4 000E 1246 | H000E DC /000E ASSIGN-OPERATOR K1712410
7DB5 0200 1247 | H0200 DC /0200 STMNT NO. IN SYM TBL ID WD K1712420
7DB6 1900 1248 | H1900 DC /1900 .CALL SUBSCR. K1712430
7DB7 7800 1249 | H7800 DC /7800 MASK TO GET PSEUDO INDEX K1712440
7DB8 87FF 1250 | H87FF DC /87FF MASK TO ELIMINATE PSEUDO IDX K1712450
7DB9 07FC 1251 | H07FC DC /07FC MASK TO GET STMNT NORM K1712460
7DBA 07FF 1252 | H07FF DC /07FF MASK TO GET ADDR K1712470
7DBB 7CFC 1253 | ADRC DC SGTB-1 MASK FOR SYM TBL ENTRY NO. K1712480
7DBC 0014 1254 | H0014 DC /0014 IF OPERATOR K1712490
7DBD F900 1255 | DIFF1 DC /5B00-/6200 .LDX L1. K1712500
7DBE 8000 1256 | H8000 DC /8000 NON-LITERAL SGT K1712510
7DBF 8003 1257 | H8003 DC /8003 USEFUL CONSTANT K1712520
7DC0 6100 1258 | H6100 DC /6100 .MDX L1. K1712530
7DC1 6000 1259 | H6000 DC /6000 .NOP. (MDX 0) K1712540
7DC2 6200 1260 | H6200 DC /6200 .STX L1. K1712550
7DC3 5B00 1261 | H5B00 DC /5B00 .LDX L1. K1712560
7DC4 4800 1262 | H4800 DC /4800 .LDX I1. K1712570
7DC5 F800 1263 | HF800 DC /F800 ID TYPE MASK K1712580
7DC6 F803 1264 | HF803 DC /F803 MASK TO ELIMINATE STMNT NORM K1712590
7DC7 1000 1265 | H1000 DC /1000 END STMNT ID TYPE K1712600
7DC7 1266 | TEND EQU H1000 K1712610
1267 | * K1712620
7DC8 0000 1268 | STTYP DC 0 STATEMENT TYPE K1712630
7DC9 0000 1269 | OUTID DC 0 ADDRESS OF O/P STMNT ID WORD K1712640
7DCA 0000 1270 | INID DC 0 ADDRESS OF I/P STMNT ID WORD K1712650
7DCB 0000 1271 | NORM DC 0 STMNT NORM K1712660
7DCC 0000 1272 | STXSW DC 0 STX-SWITCH K1712670
7DCD 0000 1273 | TEMPX DC 0 POINTER STORAGE K1712680
7DCE 0000 1274 | TEMPP DC 0 POINTER STORAGE K1712690
7DCF 0000 1275 | TEMP1 DC 0 POINTER STORAGE K1712700
7DD0 0000 1276 | DIMCT DC 0 DIMENSION COUNT K1712710
7DD1 0000 1277 | CURR DC 0 CURRENT SGT K1712720
7DD2 0000 1278 | SOFIS DC 0 START OF INPUT STRING K1712730
7DD3 0000 1279 | SSOST DC 0 STORED START OF I/P STRING K1712740
1280 | * K1712750
7DD4 0000 1281 | CURD4 DC 0 CURRENT D4 K1712760
1282 | * (=/8000 IF NOT LITERAL) K1712770
1283 | * K1712780
1284 | * K1712790
1285 | * NOT USED IN CARD SYSTEM K1712800
1286 | * K1712810
7DD5 0026 1287 | IOOPR DC /0026 IO-OPERATOR K1712820
7DD6 0030 1288 | DIOOP DC /0030 DISK IO OPERATOR K1712830
7DD7 0054 1289 | EXPRO DC /0054 EXPRESSION OPERATOR K1712840
7DD8 0000 1290 | DSWIT DC 0 DISK SWITCH K1712850
7DD9 0000 1291 | TEMPY DC 0 TEMPORARY STORAGE K1712860
7DDA 0000 1292 | COUNT DC 0 EXTERNAL COUNTER K1712870
1293 | * K1712880
1294 | * SUBROUTINE K1712890
1295 | * OUTPUT, WITH TEST OF DISKSWITCH K1712900
1296 | * K1712910
7DDB 0000 1297 | DTEST DC 0 ENTRY POINT K1712920
7DDC D014 1298 | STO DTES1 SAVE CALL K1712930
7DDD C35C 1299 | LD 3 DSWIT-Z IS IT DISK OPERATION K1712940
7DDE 4C18 7DE2 1300 | BSC L ADI,+- BRANCH IF NOT K1712950
7DE0 C011 1301 | LD CDIFF SET DISK NAME K1712960
7DE1 700A 1302 | MDX ADDN TABLE OFFSET K1712970
7DE2 C3FF 1303 | ADI LD 3 USWIT-Z IS IT UNFORMATTED I/O K1712980
7DE3 4C18 7DEC 1304 | BSC L ADDN,+- BRANCH IF NOT K1712990
7DE5 C00B 1305 | LD DTES1 CHECK THE NO. OF THE ENTRY K1713000
7DE6 9009 1306 | S H1500 TO SEE WHICH PART OF THE K1713010
7DE7 4C30 7DEB 1307 | BSC L ADQ,Z- TABLE IN O/P PHASE HOLDS THE K1713020
7DE9 C009 1308 | LD UDIF1 CORRESPONDING UNFORMATTED K1713030
7DEA 7001 1309 | MDX ADDN I/O NAME AND PUT THE PROPER K1713040
7DEB C008 1310 | ADQ LD UDIF2 DISPLACEMENT K1713050
7DEC 8004 1311 | ADDN A DTES1 ADD BASE ADDRESS K1713060
1312 | * VALUE OF DTEST1 IS UNCHANGED K1713070
1313 | * UNLESS DISK OR UNFORMATTED K1713080
1314 | * I/O IS PRESENT K1713090
7DED 43AB 1315 | BSI 3 OUTP-Z OUTPUT WORD, MOVE O/P PT K1713100
7DEE 4C80 7DDB 1316 | BSC I DTEST RETURN K1713110
1317 | * K1713120
7DF0 1500 1318 | H1500 DC /1500 CONSTANT FOR CHECKING TBL K1713130
7DF1 0000 1319 | DTES1 DC 0 TEMPORARY STORAGE K1713140
7DF2 0D80 1320 | CDIFF DC /2180-/1400 DISK NAME TABLE K1713150
7DF3 FE00 1321 | UDIF1 DC /1200-/1400 UNFORMATTED - PART 1 K1713160
7DF4 0800 1322 | UDIF2 DC /1D80-/1580 I/O NAME TBL - PART 2 K1713170
1323 | * K1713180
1324 | * K1713190
1325 | * TRANSFERS TO THE COL ROUTINE TO LOAD K1713200
1326 | * THE NEXT PHASE K1713210
1327 | * K1713220
7DF5 6580 7DFB 1328 | EXIT LDX I1 NXTPH+1 LOAD PARAM FOR READING K1713230
7DF7 C804 1329 | LDD NXTPH+2 NEXT PHASE K1713240
7DF8 4C00 7FBC 1330 | BSC L ROL READ NEXT PHASE K1713250
7DFA 1331 | BSS E 0 K1713260
7DFA 0030 1332 | NXTPH DC 48 ID OF NEXT PHASE K1713270
7DFB 1333 | BSS 3 LOADER TABLE NEXT PHASE K1713280
1334 | * K1713290
1335 | * K1713300
7DFE C400 7A2D 1336 | ENT LD L ERROR IS THERE OVERLAP ERROR K1713310
7E00 4C18 7A3B 1337 | BSC L START,+- BRANCH IF NO K1713320
7E02 70F2 1338 | MDX EXIT BR TO EXIT IF OVERLAP ERROR K1713330
1339 | * K1713340
7E03 0000 1340 | DC *-* TO BE FILLED K1713350
7E04 1010 1341 | XXXXX SLA 16 K1713360
7E05 D355 1342 | STO 3 CURR-Z CLEAR CURRENT SGT K1713370
7E06 4C00 7BF6 1343 | BSC L Q2011 GET NEXT OPERATOR K1713380
1344 | * K1713390
1345 | * PATCH FOR MOD 3 K1713400
1346 | * K1713410
7E08 4390 1347 | PTCH1 BSI 3 GETID-Z GET ID WORD FROM SYM T 2-3 K1713420
7E09 4C28 7CEA 1348 | BSC L CONTU,+Z BRANCH IF CONSTANT 2-3 K1713430
7E0B 100B 1349 | SLA 11 2-3 K1713440
7E0C 4C10 7CEA 1350 | BSC L CONTU,- BRANCH IF NOT EXTERNAL 2-3 K1713450
7E0E 4C00 7CE7 1351 | BSC L PTH1A BRANCH BACK 2-3 K1713460
1352 | * K1713470
7E10 1353 | BSS 293 PATCH AREA 2-5 K1713480
7F35 0000 1354 | DC 0 K1713490
7F36 1355 | END BPHAR-2 K1713500
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 78 132
ADDN 7DEC 1311 1302 1304 1309
ADDR 7D7A 1172 1123 1124 1125 1126 1134 1154 1156
ADI 7DE2 1303 1300
ADQ 7DEB 1310 1307
ADRC 7DBB 1253 1101
AL 7D90 1198 542
ASTM1 7D83 1184 364
BPHAR 7A36 125 1355
BRTAB 7A89 222 203
BSCI 7DAE 1238 1239
BSCI1 7D82 1183 362
C69 7D97 1205 411 662
CCWD 7A31 99 353
CDIFF 7DF2 1320 1301
COMON 7A2B 93
CONTU 7CEA 989 1348 1350
COUNT 7DDA 1292 961 987 1007
CSIZE 7A2C 94
CURD4 7DD4 1281 181 910 1148 1170
CURR 7DD1 1277 179 512 723 828 908 1130 1132 1133 1166 1342
D1011 7AA1 258 246 250
D1014 7AB3 279 704 724
D1015 7AB5 283 266
D1021 7ABA 287 284 729
D1024 7AC3 296 293
D1026 7AC6 299 295
D1031 7AC9 304 305
DFCNT 7A33 119
DIFF 7B1F 414 409
DIFF1 7DBD 1255 951
DIMCT 7DD0 1276 819 848
DIOOP 7DD6 1288 269 696
DOAOP 7D8E 1196 508
DOTOP 7D8F 1197 530
DSWIT 7DD8 1290 261 267 1299
DTES1 7DF1 1319 1298 1305 1311
DTEST 7DDB 1297 288 313 1213 1316
ENQ 7A36 131 155
ENT 7DFE 1336 133
EOFS 7A25 87 139 146 150 648 668
EOFST 7A2A 92 144
ERROR 7A2D 95 153 1336
ERRR 7B16 408 382
ERRRR 7BE0 660 657
EXIT 7DF5 1328 154 587 595 622 629 1338
EXPRO 7DD7 1289 271 279 699 730
FCOMP 7DAA 1229 312
FGOTO 7D84 1185 358
FIND 7DAB 1230 245
FIOAF 7D8C 1194 490
FIOAI 7D8B 1193 487
FIOF 7D8A 1192 475
FIOFX 7D88 1190 457
FIOI 7D89 1191 472
FIOIX 7D87 1189 454
FLD 7DA7 1226 392
FNAME 7A2E 96 384 389 394 594 604 606
FOUR 7D80 1180 186 1080
FRED 7DA8 1227 254
FWRT 7DA9 1228 249
GENLO 7D8D 1195 521 523 534 572
GETID 7D0C 1035 385 435 450 469 484 596 1347
H0008 7DB3 1245 426 741 818
H000E 7DB4 1246 775
H0014 7DBC 1254 745
H0016 7DB2 1244 738
H0018 7D95 1203 423
H002E 7DB1 1243 736 983
H0200 7DB5 1247 752
H0220 7DB0 1241 624
H07FC 7DB9 1251 636
H07FF 7DBA 1252 329 341 514 518 541 545 569 1036 1222
H1000 7DC7 1265 1266
H1500 7DF0 1318 1306
H1800 7D86 1187 436
H1900 7DB6 1248 820 944 970
H4020 7DAF 1240 610
H4800 7DC4 1262 1160
H5080 7DAE 1239 397
H5B00 7DC3 1261 976 1145
H5F00 7D98 1206 399
H6000 7DC1 1259 716 889
H6100 7DC0 1258 709 885
H6200 7DC2 1260 718 891 949
H7800 7DB7 1249 440 703 728 826 881 1099 1127
H8000 7DBE 1256 180 498 837 853 909 1006 1137 1167 1169
H8003 7DBF 1257 720
H87FF 7DB8 1250 712 823 997 1155 1215
HA008 7D96 1204 660
HF800 7DC5 1263 188 326
HF803 7DC6 1264 185
INID 7DCA 1270 191 633
IOCS 7A32 108
IOOPR 7DD5 1287 265
LDL 7D94 1202 390 515 1223
LDXI1 7D81 1182 342
LOP 7D85 1186 418
MDXL1 7D93 1201 554
MEMRY 8000 75 76 77
MOVAW 7D21 1064 197 681 755 756 757 758 759 789 790 797 921 1068
MOVCT 7A36 155 143 161
MOVE1 7C3A 759 765 792
MOVE2 7C39 758 769
MOVE3 7C38 757
MOVE4 7C37 756 753
MOVST 7A50 157 152 162
NORM 7DCB 1271 637 640
NXTPH 7DFA 1332 128 1328 1329
ONE 7D7D 1177 142 208 1037 1122
ORG 7A23 85
OULDL 7DA0 1220 539 558 1225
OUTID 7DC9 1269 190 408 410 634 1079 1081
OUTIO 7D99 1212 458 476 491 1217
OUTP 7D27 1076 272 280 291 297 327 343 359 363 365 374 393 395
398 402 412 499 516 520 522 543 547 555 557 571
573 710 715 717 719 721 731 821 824 832 844 846
886 888 890 892 900 1066 1087 1146 1149 1161 1168 1216
1224 1315
OUTP3 7D38 1089 1082 1084
OUTP4 7D39 1090 1083 1085
OVERL 7A23 76 79
OVLAP 7A4C 153 1088
P1044 7BE7 668 656 659
P1051 7A9E 249 235
P1052 7AA0 254 233
P1053 7A9C 245 239
P1061 7AC9 305 507 531
P1062 7AD0 312 307
P2011 7AD4 323 231
P2012 7AE0 340 325
P2021 7AEE 362 356
P2022 7AF3 372 376
P202A 7AF2 367 360
P2031 7AF9 381 237
P2032 7B09 392 388
P2033 7B0D 395 391
P2034 7B0E 396 383
P3011 7B20 417 300 429 431 461 526
P3023 7B2D 428
P3025 7B30 430 424
P3031 7B33 434 420
P3041 7B3D 449
P3042 7B46 460 477 500
P3043 7B48 468 438
P3044 7B4F 475 471
P3045 7B50 476 473
P304A 7B44 457 452
P304B 7B45 458 455
P3051 7B52 483 442
P3052 7B59 490 486
P3053 7B5A 491 488
P4011 7B62 506 425 427
P4021 7B76 525 551 560
P4023 7B79 529 510
P4031 7B8B 548
P4032 7B8E 554 538
P4035 7B95 567 548 559 574
PASS1 7D1C 1055 1058
PASSA 7D1A 1053 946 972 1057
PHID 002F 80 131
PTCH1 7E08 1347 982
PTH1A 7CE7 987 1351
Q1011 7A5C 168
Q1021 7A61 174 311 314 333 373 403 413 646 801 937
Q1022 7A68 184
Q1023 7A77 197 194
Q1031 7A78 202 195
Q1032 7A7B 204 209
Q1033 7A85 212 202
Q1034 7A87 213 211
Q1041 7BC3 633 206
Q1042 7BCA 638 676
Q1043 7BEB 674 641
Q1044 7BD3 648
Q1051 7BEE 681 225 683
Q1061 7BF2 688 223 227 229
Q2008 7C17 727 270
Q2009 7C1E 734 697
Q2011 7BF6 694 274 760 806 810 1343
Q2012 7C04 706 700 732
Q2013 7C2C 744 740
Q2021 7C3C 764 743
Q2022 7C3F 768 773
Q2031 7C41 772 746
Q2032 7C4E 788 776
Q2041 7C53 797 695
Q3011 7C5A 805 742
Q3051 7C5C 809 739
Q4011 7C8C 877 737
Q4012 7C8D 878 915
Q4014 7CA9 914 882
Q4021 7CAB 920 877 879
Q4022 7CAD 921 925
Q5011 7CB2 932 800
Q5013 7CB5 934 942 947
Q5015 7CB8 936 932
Q5021 7CBC 939 935
Q5022 7CBE 941 952 954 1010
Q5031 7CC0 944 939
Q5035 7CC5 948 945
Q5041 7CCE 960 950
Q5042 7CD3 968 979 984 988 991
Q5043 7CD4 969 973
Q5045 7CDA 975 971 985
Q5046 7CE0 981 977
RETCT 7DAD 1237 396 655 658
RETRN 7BDD 658 654
ROL 7FBC 77 1330
SBS1 7C74 843 849
SBSLT 7C81 861 430 809 869
SBSN 7C5E 817 428 805 856
SCH11 7D49 1123 1117
SCH15 7D65 1154 1131 1171
SCH21 7D6C 1160 1138
SCHP1 7D47 1121 443 707 754 768 788 884 1115 1128 1157
SCHP2 7D42 1113 791 1114
SGTAD 7D3A 1098 836 863 883 1103 1135
SGTB 7CFD 1015 1253
SGTI 7D41 1104 838 867 911 1102 1136 1147
SL 7D92 1200 570
SOFGT 7A29 91
SOFIS 7DD2 1278 164 168
SOFNS 7A27 89
SOFS 7A24 86 140 169
SOFST 7A26 88 165 1039 1162
SOFXT 7A28 90 1163
SORF 7A30 98 381 586 621 653
SSOST 7DD3 1279 166
START 7A3B 139 1337
STOL 7D91 1199 519 546
STTYP 7DC8 1268 189 207 309 644
STXSW 7DCC 1272 178 799 912
SYMT 7D0C 1034 751 1035 1047
SYMT1 7D16 1046 496 497 597 1038 1041 1042 1043 1044
TEMP1 7DCF 1275 149 151 880 897 1003 1004
TEMPP 7DCE 1274 688 689 933
TEMPX 7DCD 1273 963 990 1005 1008 1009
TEMPY 7DD9 1291 258 287
TEND 7DC7 1266 645
THREE 7D7F 1179 1165
TMTE 7B9E 579 671
TWO 7D7E 1178 1086
UDIF1 7DF3 1321 1308
UDIF2 7DF4 1322 1310
USWIT 7D7B 1174 262 285 292 306 1303
WRITE 7DAC 1235 310
XXXXX 7E04 1341 923
Z 7D7C 1176 142 151 166 177 178 179 180 181 185 186 188 189
197 207 208 245 249 254 258 260 261 262 265 269
271 272 279 280 287 288 291 292 297 309 310 312
313 326 327 329 341 342 343 358 359 362 363 364
365 374 385 390 392 393 395 397 398 399 402 411
412 418 423 426 435 436 440 443 450 454 457 458
469 472 475 476 484 487 490 491 498 499 508 511
512 514 515 516 518 519 520 521 522 530 539 541
542 543 545 546 547 554 555 557 558 569 570 571
572 573 596 610 624 626 636 637 644 645 655 658
660 662 681 696 699 703 707 709 710 712 715 716
717 718 719 720 721 722 723 728 730 731 736 738
741 745 751 752 754 755 756 757 758 759 768 775
788 789 790 791 797 799 818 819 820 821 823 824
826 828 832 836 837 844 846 853 863 880 881 883
884 885 886 888 889 890 891 892 897 900 908 909
910 921 944 946 949 951 961 970 972 976 983 997
1004 1005 1006 1007 1036 1037 1066 1080 1086 1099 1101 1116
1122 1127 1130 1132 1133 1135 1137 1145 1146 1148 1149 1155
1160 1161 1165 1166 1167 1168 1169 1170 1213 1215 1216 1222
1223 1224 1299 1303 1315 1342 1347
ZERO 7D7C 1175 141 177 260 511 626 722 1116 1176