ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph07.asm
1130 FORTRAN COMPILER PHASE 7
2 | *************************************************** K0700020
3 | * * K0700030
4 | *STATUS - VERSION 2, MODIFICATION 11 * K0700040
5 | * * K0700050
6 | *FUNCTION/OPERATION ANALYSES AND MODIFIES THE * K0700060
7 | * FOLLOWING STATEMENTS... * K0700070
8 | * *DEFINE FILE- DECODES STATEMENT, CHECKS FOR * K0700080
9 | * SYNTAX ERRORS AND DUPLICATE FILE NUMBERS * K0700090
10 | * OUTPUTS SEVEN WORD FILE TABLE INTO STATEMENT * K0700100
11 | * STRING AND MAKES ENTRY OF FILE NUMBER IN * K0700110
12 | * SYMBOL TABLE * K0700120
13 | * *CALL EXIT- DECODES AND CHECKS FOR SYNTAX ERR * K0700130
14 | * SETS UP NEW CODE AND INSERTS IN STRING * K0700140
15 | * *CALL LINK- DECODES AND CHECKS FOR SYNTAX ERR * K0700150
16 | * SETS UP NEW CODES AND INSERTS IN STRING * K0700160
17 | * ALL OTHER STATEMENTS ARE MOVED FROM THE INPUT * K0700170
18 | * STRING TO THE OUTPUT STRING. * K0700180
19 | * * K0700190
20 | *ENTRY POINTS - THE ONLY ENTRY POINT IS AT BPHAR * K0700200
21 | * AND IS REACHED BY A CALL TO THE ROL ROUTINE BY* K0700210
22 | * THE PREVIOUS PHASE * K0700220
23 | * * K0700230
24 | *INPUT-THE STATEMENT STRING AND SYMBOL TABLE BEING* K0700240
25 | * PROCESSED BY THE COMPILER * K0700250
26 | * * K0700260
27 | *OUTPUT-THE MODIFIED STATEMENT STRING AND SYMBOL * K0700270
28 | * TABLE AS PROCESSED BY THIS PHASE * K0700280
29 | * * K0700290
30 | *EXTERNAL REFERENCES- ROL, THE ROUTINE NEEDED TO * K0700300
31 | * READ IN THE NEXT PHASE OF THE COMPILER * K0700310
32 | * * K0700320
33 | *EXITS-NORMAL-IF NO ERRORS ARE FOUND, THE PHASE * K0700330
34 | * PROCESSES NORMALLY AND EXITS BY A CALL * K0700340
35 | * TO THE ROL ROUTINE * K0700350
36 | * * K0700360
37 | *EXITS-ERRORS-WHEN AN ERROR IS ENCOUNTERED, THE * K0700370
38 | * STATEMENT IS REPLACED BY THE ERROR ID CODE AND* K0700380
39 | * ERROR NUMBER. WHEN AN OVERLAP OF STRING AND * K0700390
40 | * SYMBOL TABLE OCCURS PROCESSING IS DISCONTINUED* K0700400
41 | * AND PROCESSING CONTINUES TO NEXT PHASE * K0700410
42 | * ERRORS DETECTED BY THIS PHASE ARE 71 AND 72. * K0700420
43 | * * K0700430
44 | *TABLES/WORK AREAS-STRING,SYMBOL TABLE,FORTRAN * K0700440
45 | * COMMUNICATION AREA * K0700450
46 | * * K0700460
47 | *ATTRIBUTES-NONE. * K0700470
48 | * * K0700480
49 | *NOTES * K0700490
50 | * 7 WORD DEFINE FILE TABLE CREATED BY DEFN FILE * K0700500
51 | * WORD 1 FILE NUMBER * K0700510
52 | * WORD 2 NUMBER OF RECORDS * K0700520
53 | * WORD 3 RECORD LENGTH IN WORDS * K0700530
54 | * WORD 4 ADDRESS OF ASSOCIATED VARIABLE * K0700540
55 | * WORD 5 ZEROS * K0700550
56 | * WORD 6 NUMBER OF RECORDS PER SECTOR * K0700560
57 | * WORD 7 NUMBER OF DISK BLOCKS PER FILE * K0700570
58 | * * K0700580
59 | *************************************************** K0700590
60 | ABS K0700600
61 | * K0700610
62 | * SYSTEM EQUATES K0700620
8000 63 | MEMRY EQU /8000 K0700630
7A24 64 | OVERL EQU MEMRY-1500 START OF FCOM K0700640
7FBC 65 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K0700650
0078 66 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0700660
7A24 67 | ORG OVERL K0700670
0025 68 | PHID EQU 37 ID NUMBER THIS PHASE K0700680
69 | * K0700690
70 | * FORTRAN COMMUNICATION AREA K0700700
7A24 71 | SOFS BSS 1 START OF STRING K0700710
7A25 72 | EOFS BSS 1 END OF STRING K0700720
7A26 73 | SOFST BSS 1 START OF SYMBOL TABLE K0700730
7A27 74 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K0700740
7A28 75 | SOFXT BSS 1 START OF SUBSCRIPT TEMPORARIES K0700750
7A29 76 | SOFGT BSS 1 START OF GENERATED TEMPORARIES K0700760
7A2A 77 | EOFST BSS 1 END OF SYMBOL TABLE K0700770
7A2B 78 | COMON BSS 1 NEXT AVAILABLE COMMON K0700780
7A2C 79 | CSIZE BSS 1 SIZE OF COMMON K0700790
7A2D 80 | ERROR BSS 1 OVERLAP ERROR K0700800
7A2E 81 | FNAME BSS 1 PROGRAM NAME K0700810
7A2F 82 | BSS 1 K0700820
7A30 83 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0700830
7A31 84 | CCWD BSS 1 CONTROL CARD WORD K0700840
85 | * BIT 15 TRANSFER TRACE K0700850
86 | * BIT 14 ARITHMETIC TRACE K0700860
87 | * BIT 13 EXTENDED PRECISION K0700870
88 | * BIT 12 LIST SYMBOL TABLE K0700880
89 | * BIT 11 LIST SUBPROGRAM NAMES K0700890
90 | * BIT 10 LIST SOURCE PROGRAM K0700900
91 | * BIT 9 ONE WORD INTEGERS K0700910
7A32 92 | IOCS BSS 1 IOCS CONTROL CARD WORD K0700920
93 | * BIT 15 CARD K0700930
94 | * BIT 14 PAPER TAPE K0700940
95 | * BIT 13 TYPEWRITER K0700950
96 | * BIT 12 1403 PRINTER K0700960
97 | * BIT 11 2501 READER K0700970
98 | * BIT 10 KEYBOARD K0700980
99 | * BIT 9 1442 PUNCH K0700990
100 | * BIT 8 DISK K0701000
101 | * BIT 7 1132 PRINTER K0701010
102 | * BIT 3 PLOTTER K0701020
7A33 103 | DFCNT BSS 1 K0701030
104 | * K0701040
105 | * K0701050
106 | * END OF FORTRAN COMMUNICATION K0701060
107 | * AREA K0701070
108 | *************************************************** K0701080
7A36 109 | BPHAR EQU *+2 K0701090
7A34 0000 110 | DC 0 LOADER WORK AREA K0701100
7A35 FFDB 111 | DC -37 -PHASE ID FOR SLET LOOKUP K0701110
7A36 01AA 112 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K0701120
7A37 0001 113 | DC 1 ONE ENTRY TO BE SET BY LDR K0701130
7A36 114 | ORG *-2 K0701140
115 | * K0701150
116 | * INITIALIZE PHASE K0701160
117 | * K0701170
7A36 6125 118 | PHST LDX 1 PHID LOAD ID NUMBER THIS PHASE K0701180
7A37 6D00 0078 119 | STX L1 $PHSE STORE IN SYS PHASE AREA K0701190
7A39 6580 7A24 120 | LDX I1 SOFS INITIALIZE INPUT STRING PT K0701200
7A3B 6680 7A24 121 | LDX I2 SOFS INITIALIZE OUTPUT STRING PT K0701210
122 | * K0701220
123 | * CHECK FOR OVERLAP ERROR K0701230
7A3D C0EF 124 | LD ERROR LOAD OVERLAP ERROR WD K0701240
7A3E 4C20 7BDB 125 | BSC L EXIT,Z BRANCH IF SO K0701250
126 | * K0701260
127 | * INITIALIZE FOR STATEMENT K0701270
7A40 6700 7BBE 128 | CK1 LDX L3 V SET INDEX FOR CONSTANTS K0701280
7A42 691B 129 | STX 1 IDSV1 STRING ADDR. I/P STRING K0701290
7A43 6E00 7B6B 130 | STX L2 IDSV2 STRING ADDR. O/P STRING K0701300
7A45 C100 131 | LD 1 0 PICK UP ID WORD FROM STRNG K0701310
7A46 D39A 132 | STO 3 ORIG-V SAVE IN TEMP. STO K0701320
7A47 E381 133 | AND 3 HF803-V MASK OUT STMNT NORM K0701330
7A48 43A8 134 | BSI 3 OUT-V STORE IN O/P STRING K0701340
7A49 C1FF 135 | LD 1 -1 PICK UP MASKED ID WORD K0701350
7A4A 100F 136 | SLA 15 TEST BIT 15 FOR STMNT NO. K0701360
7A4B 4C10 7A4F 137 | BSC L *+2,- BR IF NO STMNT NO. K0701370
7A4D C100 138 | LD 1 0 STMNT NO. FOUND K0701380
7A4E 43A8 139 | BSI 3 OUT-V MOVE STMNT NO. TO STRING K0701390
140 | * K0701400
141 | * TEST FOR DEFINE FILE STMNT K0701410
7A4F C39A 142 | LD 3 ORIG-V GET STRING ID WD -TEMP STO K0701420
7A50 E382 143 | AND 3 HF802-V MASK OUT STATEMENT NORM K0701430
7A51 939D 144 | S 3 DFILE-V TEST FOR DEFINE FILE ID K0701440
7A52 4C18 7AA7 145 | BSC L DF1,+- BRANCH IF YES. K0701450
146 | * K0701460
147 | * TEST FOR CALL EXIT STMNT K0701470
7A54 939E 148 | S 3 CEXIT-V TEST FOR CALL EXIT ID K0701480
7A55 4C18 7A6F 149 | BSC L CE1,+- BRANCH IF YES K0701490
150 | * K0701500
151 | * TEST FOR CALL LINK STMNT K0701510
7A57 939F 152 | S 3 CLINK-V TEST FOR CALL LINK ID K0701520
7A58 4C18 7A7D 153 | BSC L CL1,+- BRANCH IF YES. K0701530
154 | * K0701540
155 | * END STATEMENT K0701550
7A5A 93A0 156 | S 3 ENDCN-V TEST FOR END ID K0701560
7A5B 4C18 7BD8 157 | BSC L ED1,+- BRANCH IF YES K0701570
158 | * K0701580
159 | * MOVE TO NEXT STATEMENT K0701590
7A5D 6500 0000 160 | LDX L1 *-* GET I/P STRING ADDR. K0701600
7A5E 161 | IDSV1 EQU *-1 K0701610
7A5F 6680 7B6B 162 | LDX I2 IDSV2 GET O/P STRING ADDR K0701620
7A61 C39A 163 | LD 3 ORIG-V GET STMNT ID WORD K0701630
7A62 D100 164 | STO 1 0 STORE STMNT ID BACK IN I/P K0701640
7A63 1005 165 | SLA 5 SHIFT OFF ALL BITS BUT K0701650
7A64 1807 166 | SRA 7 STATEMENT NORM K0701660
7A65 D001 167 | STO *+1 K0701670
7A66 6700 0000 168 | LDX L3 *-* GET NO WDS THIS STMNT K0701680
7A68 C100 169 | LD 1 0 MOVE STATEMENT FROM I/P K0701690
7A69 D200 170 | STO 2 0 TO O/P STRING K0701700
7A6A 7101 171 | MDX 1 1 INCR. I/P COUNTER K0701710
7A6B 7201 172 | MDX 2 1 INCR. O/P COUNTER K0701720
7A6C 73FF 173 | MDX 3 -1 CONTINUE UNTIL ALL WDS IN K0701730
7A6D 70FA 174 | MDX *-6 STATEMENT MOVED K0701740
7A6E 70D1 175 | MDX CK1 GET NEXT STATEMENT K0701750
176 | * K0701760
177 | *************************************************** K0701770
178 | * K0701780
179 | * PROCESS CALL EXIT STATEMENT K0701790
180 | * CHECK FOR SYNTAX ERROR K0701800
181 | * DELETE INTERPHASE COMM BIT IN ID WORD K0701810
182 | * ADD 2 FLAG WORDS(HEX 5F00) TO STRING K0701820
183 | * TO INDICATE CALL EXIT K0701830
184 | * K0701840
185 | * CALL EXIT STATEMENT K0701850
186 | * REMOVE BIT 14 OF ID WORD K0701860
7A6F C480 7B6B 187 | CE1 LD I IDSV2 GET ID WD FROM STRING K0701870
7A71 E380 188 | AND 3 HFFFD-V MASK OUT BIT 14 K0701880
7A72 D480 7B6B 189 | STO I IDSV2 SAVE BACK IN ID WORD K0701890
190 | * K0701900
191 | * K0701910
192 | * SEMI-COLON K0701920
7A74 C100 193 | LD 1 0 GET 1ST DATA WD IN STMT K0701930
7A75 93A1 194 | S 3 SEMI-V TEST FOR SEMI-COLON K0701940
7A76 4C18 7A7A 195 | BSC L CE3,+- BRANCH IF SEMI-COLON K0701950
196 | * K0701960
197 | * PUT ERROR NO. 3 K0701970
7A78 C391 198 | ER3 LD 3 D0003-V SYNTAX ERROR CODE K0701980
7A79 43E6 199 | BSI 3 ERR-1-V BRANCH TO OUTPUT ERROR. K0701990
200 | * K0702000
201 | * K0702010
202 | * RESHAPE CALL EXIT K0702020
7A7A C388 203 | CE3 LD 3 H6338-V OUTPUT CALL EXIT K0702030
7A7B 43A8 204 | BSI 3 OUT-V BRANCH TO ADD TO STRING K0702040
7A7C 70C3 205 | MDX CK1 BRANCH TO HANDLE NXT STMNT K0702050
206 | * K0702060
207 | *************************************************** K0702070
208 | * K0702080
209 | * PROCESS CALL LINK STATEMENT K0702090
210 | * CHECKS SYNTAX AND RESHAPES STATEMENT K0702100
211 | * BY ADDING THE WORD (HEX) 5B00 BEFORE K0702110
212 | * EACH OF THE TWO PACKED NAME WORDS K0702120
213 | * K0702130
214 | * LEFT PARENTHESIS K0702140
7A7D C100 215 | CL1 LD 1 0 PICK UP WD. IN I/P STRING K0702150
7A7E 93A2 216 | S 3 LPAR-V TEST FOR LEFT PARENTHESES K0702160
7A7F 4C20 7A78 217 | BSC L ER3,Z BRANCH TO ERROR IF NOT K0702170
218 | * K0702180
219 | * K0702190
220 | * MOVE POINTER K0702200
7A81 7101 221 | MDX 1 1 K0702210
222 | * K0702220
223 | * FIRST WORD OF NAME ALPHA K0702230
7A82 C100 224 | LD 1 0 K0702240
7A83 4C10 7A78 225 | BSC L ER3,- BRANCH IF OPERATOR K0702250
7A85 1002 226 | SLA 2 K0702260
7A86 4C10 7A8A 227 | BSC L *+2,- BRANCH IF ALPHABETIC K0702270
7A88 4C02 7A78 228 | BSC L ER3,C BRANCH IF NUMERIC K0702280
229 | * K0702290
230 | * OUTPUT FIRST WORD OF NAME K0702300
7A8A C100 231 | LD 1 0 LOAD WD FROM INPUT STRING K0702310
7A8B 43A8 232 | BSI 3 OUT-V BRANCH TO PUT WORD O/P STRI K0702320
233 | * K0702330
234 | * OUTPUT BLANK SECOND WORD K0702340
7A8C C386 235 | LD 3 H8000-V LOAD CONSTANT BLANK K0702350
7A8D 43A8 236 | BSI 3 OUT-V BRANCH TO O/P SUBROUTINE K0702360
237 | * K0702370
238 | * TWO WORD NAME K0702380
7A8E C1FF 239 | LD 1 -1 K0702390
7A8F 4C10 7A93 240 | BSC L CL2,- BRANCH IF NO K0702400
241 | * K0702410
242 | * PUT OUT SECOND WORD OF NAME K0702420
7A91 D2FF 243 | STO 2 -1 K0702430
244 | * K0702440
245 | * MOVE POINTER K0702450
7A92 7101 246 | MDX 1 1 K0702460
247 | * K0702470
248 | * RIGHT PARENTHESIS K0702480
7A93 C1FF 249 | CL2 LD 1 -1 K0702490
7A94 93A3 250 | S 3 RPAR-V K0702500
7A95 4C20 7A78 251 | BSC L ER3,Z BRANCH IF NOT R PAR K0702510
252 | * K0702520
7A97 C100 253 | LD 1 0 K0702530
7A98 93A1 254 | S 3 SEMI-V TEST FOR SEMI-COLON K0702540
7A99 4C20 7A78 255 | BSC L ER3,Z BR TO ERROR IF NOT FOUND K0702550
256 | * RESHAPE CALL LINK K0702560
7A9B C2FF 257 | LD 2 -1 MOVE SECOND WORD OF NAME K0702570
7A9C D201 258 | STO 2 +1 TWO LOCS K0702580
7A9D C2FE 259 | LD 2 -2 MOVE FIRST WORD OF NAME K0702590
7A9E D2FF 260 | STO 2 -1 ONE LOCATION K0702600
7A9F C38A 261 | LD 3 H5B00-V INSERT HEX CONST 5B00 K0702610
7AA0 D2FE 262 | STO 2 -2 BEFORE FIRST AND 2ND NAMES K0702620
7AA1 D200 263 | STO 2 0 K0702630
7AA2 43A8 264 | BSI 3 OUT-V INCR.XR1, XR2, AND NORM K0702640
7AA3 C200 265 | LD 2 0 K0702650
7AA4 43A8 266 | BSI 3 OUT-V INCR XR1, XR2, AND NORM K0702660
267 | * K0702670
268 | * MOVE POINTER K0702680
7AA5 71FF 269 | MDX 1 -1 I/P STRING TOO FAR K0702690
270 | * K0702700
271 | * SEMICOLON K0702710
7AA6 7099 272 | MDX CK1 GO PROCESS NEXT STATEMENT K0702720
273 | * K0702730
274 | *************************************************** K0702740
275 | * DEFINE FILE STATEMENT K0702750
276 | * CHECK SYNTAX OF STATEMENT K0702760
277 | * CHECK FOR DUPLICATE FILE NOS. K0702770
278 | * OUTPUT 7 WORD FILE DESCRIPTION TABLE K0702780
279 | * K0702790
280 | * K0702800
281 | * TEST FOR SUBPROGRAM K0702810
282 | * DEFN FILE ILLEGAL IN SUBP K0702820
7AA7 C400 7A30 283 | DF1 LD L SORF GET SUBPROGRAM INDICATOR K0702830
7AA9 4C20 7B3C 284 | BSC L ER72,Z BRANCH ERROR IF SUBPROGRAM K0702840
285 | * K0702850
286 | * CLEAR FCT K0702860
7AAB D397 287 | STO 3 FCT-V PUT ZERO FROM ACC IN FCT K0702870
288 | * K0702880
289 | * COLLECT VALID CONSTANT K0702890
7AAC 43B0 290 | DF5 BSI 3 COLL-V FROM NEXT 2 WDS (FILE NO.) K0702900
7AAD 7407 7B55 291 | MDX L FCT,7 INCREMENT FILE COUNT K0702910
292 | * K0702920
293 | * CHECK DUPLICATE OR K0702930
294 | * EXCESSIVE DEFINE FILES. K0702940
295 | * K0702950
7AAF 4300 296 | BSI 3 FILES-V K0702960
297 | * K0702970
298 | * OUTPUT FILE NUMBER K0702980
7AB0 43A8 299 | BSI 3 OUT-V IN BINARY K0702990
300 | * K0703000
301 | * LEFT PARENTHESIS K0703010
7AB1 C100 302 | LD 1 0 GET NEXT WD. FROM STRING K0703020
7AB2 93A2 303 | S 3 LPAR-V TEST FOR LEFT PARENTHESIS K0703030
7AB3 4C20 7B3A 304 | BSC L ER71,Z BRANCH IF NO K0703040
305 | * K0703050
306 | * MOVE POINTER K0703060
7AB5 7101 307 | MDX 1 1 K0703070
308 | * K0703080
309 | * COLLECT VALID CONSTANT K0703090
310 | * GET NUMBER OF RECORDS, CONVERT TO BIN K0703100
7AB6 43B0 311 | BSI 3 COLL-V K0703110
312 | * K0703120
313 | * OUTPUT NUMBER OF RECORDS K0703130
7AB7 43A8 314 | BSI 3 OUT-V K0703140
315 | * K0703150
316 | * COMMA K0703160
7AB8 C100 317 | LD 1 0 TEST NEXT OP FOR COMMA K0703170
7AB9 93A4 318 | S 3 COMA-V K0703180
7ABA 4C20 7B3A 319 | BSC L ER71,Z BRANCH IF NO K0703190
320 | * K0703200
321 | * MOVE POINTER K0703210
7ABC 7101 322 | MDX 1 1 K0703220
323 | * K0703230
324 | * COLLECT VALID CONSTANT K0703240
7ABD 43B0 325 | BSI 3 COLL-V AND CONVERT REC. LNG TO BI K0703250
326 | * K0703260
327 | * OUTPUT RECORD LENGTH K0703270
7ABE 43A8 328 | BSI 3 OUT-V K0703280
329 | * K0703290
330 | * RECORD LENGTH LESS THAN 321 K0703300
7ABF C2FF 331 | LD 2 -1 LOAD RECORD LENGTH K0703310
7AC0 9396 332 | S 3 D0320-V COMPARE WITH 320 K0703320
7AC1 4C30 7B3A 333 | BSC L ER71,Z- BR IF RECORD LENGTH GT 320 K0703330
334 | * K0703340
335 | * COMMA K0703350
7AC3 C100 336 | LD 1 0 GET NEXT WORD IN I/P STRNG K0703360
7AC4 93A4 337 | S 3 COMA-V TEST FOR COMMA K0703370
7AC5 4C20 7B3A 338 | BSC L ER71,Z BRANCH IF NO K0703380
339 | * K0703390
340 | * U (UNEDITED) K0703400
7AC7 C101 341 | LD 1 1 TEST FOR U, BUT DO NOT USE K0703410
7AC8 93A5 342 | S 3 U-V K0703420
7AC9 4C20 7B3A 343 | BSC L ER71,Z BRANCH IF NO K0703430
344 | * K0703440
345 | * COMMA K0703450
7ACB C102 346 | LD 1 2 TEST FOR COMMA K0703460
7ACC 93A4 347 | S 3 COMA-V K0703470
7ACD 4C20 7B3A 348 | BSC L ER71,Z BRANCH IF NO K0703480
349 | * K0703490
350 | * MOVE POINTER K0703500
7ACF 7103 351 | MDX 1 3 BYPASS PREV. 3 WDS I/P STR K0703510
352 | * K0703520
353 | * GATHER CONSTANT K0703530
7AD0 43D6 354 | BSI 3 GATH-V GET VAR. NAME REF. FILE K0703540
7AD1 C3A7 355 | LD 3 WD2-V GET 2ND WD OF NAME K0703550
7AD2 1801 356 | SRA 1 K0703560
7AD3 EB86 357 | OR 3 H8000-V ADD FLAG K0703570
7AD4 D3A7 358 | STO 3 WD2-V K0703580
359 | * K0703590
360 | * VALID NAME K0703600
7AD5 C3A6 361 | LD 3 WD1-V GET FIRST WD OF NAME K0703610
7AD6 1002 362 | SLA 2 K0703620
7AD7 4C10 7ADB 363 | BSC L *+2,- BRANCH IF ALPHA K0703630
7AD9 4C02 7B3A 364 | BSC L ER71,C BRANCH IF NUMERIC K0703640
365 | * K0703650
366 | * VARIABLE IN SYMBOL TABLE K0703660
7ADB C400 7A27 367 | LD L SOFNS FIND DIFF BET END OF NON- K0703670
7ADD 9400 7A2A 368 | S L EOFST STMNT NOS AND SYM TBL K0703680
7ADF 8391 369 | A 3 D0003-V INCR BY 3 K0703690
7AE0 D398 370 | STO 3 TEMP-V K0703700
7AE1 6A33 371 | STX 2 XR2R SAVE O/P STRING ADDR K0703710
7AE2 6680 7A27 372 | LDX I2 SOFNS GET LAST WD SYMBOL TABLE K0703720
7AE4 7009 373 | MDX DF3 BRANCH TO MODIFY K0703730
7AE5 C201 374 | DF2 LD 2 1 COMPARE SYM TBL ENTRY K0703740
7AE6 93A6 375 | S 3 WD1-V WITH STRING WORD K0703750
7AE7 4C20 7AED 376 | BSC L DF3-1,Z BRANCH NOT CURRENT ENTRY K0703760
7AE9 C202 377 | LD 2 2 COMPARE 2ND WD. IN SYM TBL K0703770
7AEA 93A7 378 | S 3 WD2-V WITH 2ND STRING WORD K0703780
7AEB 4C18 7B05 379 | BSC L DF4,+- BRANCH IF FOUND K0703790
7AED 72FD 380 | MDX 2 -3 DECR SYM TBL ADDRESS K0703800
7AEE 74FD 7B56 381 | DF3 MDX L TEMP,-3 DECR. SYM TBL COUNTER K0703810
7AF0 70F4 382 | MDX DF2 GO TO NXT TBL ENTRY UNLESS K0703820
383 | * TABLE FINISHED K0703830
384 | * PUT IN SYMBOL TABLE K0703840
7AF1 C3A6 385 | LD 3 WD1-V GET FIRST WD OF NAME K0703850
7AF2 D201 386 | STO 2 1 SAVE IN SYMBOL TABLE+1 K0703860
7AF3 C3A7 387 | LD 3 WD2-V GET SECOND WD. OF NAME K0703870
7AF4 D202 388 | STO 2 2 SAVE IN SYMBOL TABLE+2 K0703880
7AF5 C38B 389 | LD 3 H4000-V GET ID FOR INTEGER VAR K0703890
7AF6 D200 390 | STO 2 0 SAVE IN SYMBOL TABLE +0 K0703900
391 | * K0703910
392 | * ADJUST SYM TBL POINTERS K0703920
7AF7 74FD 7A29 393 | MDX L SOFGT,-3 K0703930
7AF9 74FD 7A28 394 | MDX L SOFXT,-3 K0703940
7AFB 74FD 7A2A 395 | MDX L EOFST,-3 K0703950
396 | * K0703960
397 | * TEST FOR INTEGER VARIABLE K0703970
7AFD C3A6 398 | LD 3 WD1-V GET FIRST WD OF NAME K0703980
7AFE E387 399 | AND 3 H7E00-V MASK OUT ALL BUT 1ST CHAR K0703990
7AFF 938D 400 | S 3 H1200-V SEE IF GREATER THAN 'H' K0704000
7B00 4C28 7B3A 401 | BSC L ER71,Z+ BRANCH IF NO K0704010
7B02 938C 402 | S 3 H1800-V SEE IF LESS THAN 'O' K0704020
7B03 4C30 7B3A 403 | BSC L ER71,Z- BRANCH IF NO. K0704030
404 | * K0704040
405 | * CHECK LEGAL VARIABLE K0704050
7B05 C200 406 | DF4 LD 2 0 GET SYMBOL TABLE ID WD K0704060
7B06 E383 407 | AND 3 HDFDE-V TEST IF ID WORD CONTAINS K0704070
7B07 F38B 408 | EOR 3 H4000-V FLAG FOR VARIABLE INTEGER K0704080
7B08 4C20 7B3A 409 | BSC L ER71,Z BRANCH IF NO K0704090
410 | * K0704100
411 | * INDICATE DEFINED K0704110
7B0A C200 412 | LD 2 0 GET SYMBOL TABLE ID WORD K0704120
7B0B EB8E 413 | OR 3 H0020-V ADD IN DEFINED VARIABLE K0704130
7B0C D200 414 | STO 2 0 FLAG K0704140
415 | * K0704150
416 | * COMPUTE S.T. POINTER K0704160
7B0D 6A48 417 | STX 2 TEMP SAVE SYMBOL TABLE ADDR. K0704170
7B0E C400 7A26 418 | LD L SOFST FIND DIFF BET. START OF K0704180
7B10 9398 419 | S 3 TEMP-V SYMBOL TABLE AND CUR LOC. K0704190
7B11 1890 420 | SRT 16 K0704200
7B12 AB91 421 | D 3 D0003-V DIVIDE BY 3 AND K0704210
7B13 8385 422 | A 3 H8001-V MAKE RLTV TO SYMBOL TABLE K0704220
423 | * K0704230
424 | * OUTPUT VARIABLE K0704240
7B14 6600 0000 425 | LDX L2 *-* GET STRING ADDR O/P K0704250
7B15 426 | XR2R EQU *-1 ADD SYMBOL TABLE ENTRY K0704260
7B16 43A8 427 | BSI 3 OUT-V TO O/P STRING K0704270
428 | * K0704280
429 | * RIGHT PARENTHESIS K0704290
7B17 C100 430 | LD 1 0 GET NEXT WD OF STRING K0704300
7B18 93A3 431 | S 3 RPAR-V TEST FOR RIGHT PARENTHESIS K0704310
7B19 4C20 7B3A 432 | BSC L ER71,Z BRANCH IF NO K0704320
433 | * K0704330
434 | * MOVE POINTER BACK BY 1 K0704340
7B1B 71FF 435 | MDX 1 -1 TO ALLOW FOR INCR. BY OUT K0704350
436 | * K0704360
437 | * OUTPUT ZERO K0704370
7B1C 1010 438 | SLA 16 K0704380
7B1D 43A8 439 | BSI 3 OUT-V FIFTH WD OF FILE BLOCK K0704390
440 | * K0704400
441 | * COMPUTE RECORDS/SECTOR K0704410
7B1E C396 442 | LD 3 D0320-V NO REC/SECTOR = 320 K0704420
7B1F 1890 443 | SRT 16 DIVIDED BY K0704430
7B20 AAFD 444 | D 2 -3 NUMBER WDS/RECORD K0704440
445 | * K0704450
446 | * OUTPUT RECORDS/SECTOR K0704460
7B21 43A8 447 | BSI 3 OUT-V K0704470
448 | * K0704480
449 | * COMPUTE NUMBER OF DISK BLOCKS K0704490
7B22 2000 450 | LDS 0 RESET OVERFLOW & CARRY 2-4 K0704495
7B23 C2FB 451 | LD 2 -5 LOAD NO. OF RECORDS K0704500
7B24 188C 452 | SRT 12 MULT BY NO. DB/SECTOR (16) K0704510
7B25 AAFF 453 | D 2 -1 DIVIDE BY NO. RCDS/SETOR K0704520
7B26 4C01 7C6D 454 | BSC L ER74,O BRANCH IF OVERFLOW 2-4 K0704525
7B28 D398 455 | STO 3 TEMP-V SAVE NO. DISK BLOCKS (TEMP) K0704530
7B29 4C00 7C62 456 | BSC L PTCH1 BRANCH TO PATCH AREA 2-4 K0704540
457 | * K0704590
458 | * COMMA K0704600
7B2B C1FF 459 | PTH1A LD 1 -1 K0704610
7B2C 93A4 460 | S 3 COMA-V K0704620
7B2D 4C18 7AAC 461 | BSC L DF5,+- BRANCH IF YES K0704630
462 | * K0704640
463 | * SEMI-COLON K0704650
7B2F C1FF 464 | LD 1 -1 K0704660
7B30 93A1 465 | S 3 SEMI-V K0704670
7B31 4C20 7B3A 466 | BSC L ER71,Z BRANCH IF YES K0704680
467 | * K0704690
468 | * UPDATE FILE COUNT K0704700
7B33 C400 7A33 469 | LD L DFCNT INTERPHASE FILE WD. COUNT K0704710
7B35 8397 470 | A 3 FCT-V NO. WDS THIS FILE DESC K0704720
7B36 D400 7A33 471 | STO L DFCNT SAVE K0704730
7B38 4C00 7A40 472 | BSC L CK1 BR TO PROCESS NEW STMNT K0704740
473 | * K0704750
474 | * PUT ERROR 71 K0704760
7B3A C394 475 | ER71 LD 3 D0071-V SYNTAX ERROR DEFINE FILE K0704770
7B3B 7069 476 | MDX ERR K0704780
477 | * K0704790
478 | * PUT ERROR 72 K0704800
7B3C C395 479 | ER72 LD 3 D0072-V DUPLICATE DEFINE FILE NO. K0704810
7B3D 7067 480 | MDX ERR K0704820
481 | * K0704830
482 | * CONSTANTS K0704840
7BBE 483 | V EQU *+128 RLTV ADDR FACTOR FOR CON K0704850
7B3E FFFD 484 | HFFFD DC /FFFD MASK FOR STRING ID WD K0704860
7B3F F803 485 | HF803 DC /F803 MASK FOR STRING ID WD K0704870
7B40 F802 486 | HF802 DC /F802 MASK FOR STRING ID WD K0704880
7B41 DFDE 487 | HDFDE DC /DFDE SYMBOL TABLE MASK K0704890
7B42 A008 488 | HA008 DC /A008 ERROR ID WORD K0704900
7B43 8001 489 | H8001 DC /8001 CON FOR COMP SYM TBL PT K0704910
7B44 8000 490 | H8000 DC /8000 CON USED FOR BLANK WORD K0704920
7B45 7E00 491 | H7E00 DC /7E00 MASK FOR INT. WD. TEST K0704930
7B46 6338 492 | H6338 DC /6338 CALL EXIT CONSTANT K0704940
7B47 5F00 493 | H5F00 DC /5F00 CALL EXIT CONSTANT K0704950
7B48 5B00 494 | H5B00 DC /5B00 CALL LINK CONSTANT K0704960
7B49 4000 495 | H4000 DC /4000 SYM TBL ID. FOR INTEGER K0704970
7B4A 1800 496 | H1800 DC /1800 TEST FOR INTEGER VARIABLE K0704980
7B4B 1200 497 | H1200 DC /1200 TEST FOR INTEGER VARIABLE K0704990
7B4C 0020 498 | H0020 DC /0020 SYMBOL TABLE MASK K0705000
7B4D 0004 499 | H0004 DC /0004 USED TO INCR STMNT NORM K0705010
7B4E 0001 500 | H0001 DC /0001 USEFUL CONSTANT K0705020
7B4F 0003 501 | D0003 DC 3 USEFUL CONSTANT K0705030
7B50 0009 502 | D0009 DC 9 CONSTANT TEST NUMERIC K0705040
7B51 000A 503 | D0010 DC 10 CONSTANT USED BIN. CONVERT K0705050
7B52 0047 504 | D0071 DC 71 ERROR FLAG NO. 71 K0705060
7B53 0048 505 | D0072 DC 72 ERROR FLAG NO. 72 K0705070
7B54 0140 506 | D0320 DC 320 MAX. REC.SIZE DEFINE FILE K0705080
7B55 0000 507 | FCT DC *-* NO. WDS. IN DEFN FILE O/P K0705090
7B56 0000 508 | TEMP DC *-* TEMPORARY STORAGE AREA K0705100
7B57 0000 509 | TEMPA DC *-* TEMPORARY STORAGE AREA. K0705110
7B58 0000 510 | ORIG DC *-* ORIGINAL ID WORD K0705120
7B59 7C16 511 | FILET DC DDDT LOC OF FILE DESCRIPTOR TBL K0705130
7B5A 004B 512 | FCNT DC 75 MAX OF 75 DEFINED FILES K0705140
7B5B F000 513 | DFILE DC /F000 DEFN FILE ID FLAG TEST K0705150
7B5C F002 514 | CEXIT DC /E002-/F000 CALL EXIT ID FLAG TEST K0705160
7B5D FFFE 515 | CLINK DC /E000-/E002 CALL LINK ID FLAG TEST K0705170
7B5E 3000 516 | ENDCN DC /1000-/E000 END ID TEST K0705180
7B5F 001E 517 | SEMI DC /1E SEMI-COLON K0705190
7B60 000D 518 | LPAR DC /0D ( K0705200
7B61 001D 519 | RPAR DC /1D ) K0705210
7B62 002B 520 | COMA DC /2B , K0705220
7B63 C800 521 | U DC /C800 U K0705230
7B64 522 | BSS E 0 K0705240
7B64 0000 523 | WD1 DC *-* TEMP STO USED TO CONVERT K0705250
7B65 0000 524 | WD2 DC *-* VARIABLE CONSTANTS(PACKED) K0705260
525 | * K0705270
526 | * THE OUTPUT ROUTINE STORES THE K0705280
527 | * THE CONTENTS OF THE A REGISTER K0705290
528 | * AT XR2, INCRAMENT XR1 AND XR2, K0705300
529 | * AND INCRAMENTS THE NORM OF THE K0705310
530 | * STATEMENT. K0705320
531 | * K0705330
7B66 0000 532 | OUT DC *-* BSI ENTRY POINT K0705340
7B67 D200 533 | STO 2 0 SAVE ACC IN O/P STRING K0705350
7B68 7101 534 | MDX 1 1 INCREMENT I/P STRING CTR K0705360
7B69 7201 535 | MDX 2 1 INCREMENT O/P STRING CTR K0705370
7B6A 7404 0000 536 | MDX L *-*,4 INCREMENT STMNT NORM BY 1 K0705380
7B6B 537 | IDSV2 EQU *-1 K0705390
7B6C 4C80 7B66 538 | BSC I OUT RETURN K0705400
539 | * K0705410
540 | * THE COLLECT CONSTANT ROUTINE K0705420
541 | * CALLS GATHER CONSTANT ROUTINE K0705430
542 | * AND THE CONVERTS THE CONSTANT K0705440
543 | * TO BINARY. THE ROUTINE GOES TO K0705450
544 | * ERROR NUMBER 71 IF CONSTANT IS K0705460
545 | * INVALID, ZERO OR OVER 32767. K0705470
546 | * K0705480
7B6E 0000 547 | COLL DC *-* BSI ENTRY POINT K0705490
7B6F 43D6 548 | BSI 3 GATH-V BRANCH TO GET 2 WD CONST K0705500
7B70 1010 549 | SLA 16 K0705510
7B71 D398 550 | STO 3 TEMP-V ZERO TEMP STO WD K0705520
7B72 C3A6 551 | COLL1 LD 3 WD1-V GET 1ST OF 2 WD CONSTANT K0705530
7B73 1002 552 | SLA 2 K0705540
7B74 4C02 7B79 553 | BSC L *+3,C TEST FOR POSIBLE NUMERIC K0705550
7B76 4C20 7B3A 554 | BSC L ER71,Z ZERO CON, SYNTAX ERROR K0705560
7B78 7016 555 | MDX COLL2 BRANCH TO RETURN K0705570
7B79 4C10 7B3A 556 | BSC L ER71,- TEST FOR ZERO, INVALID CON K0705580
7B7B 1001 557 | SLA 1 SHIFT OFF ONE BIT K0705590
7B7C 180C 558 | SRA 12 PUT BITS 3-9 INTO BITS9-30 K0705600
7B7D D399 559 | STO 3 TEMPA-V SAVE TEMPORARILY K0705610
7B7E 9392 560 | S 3 D0009-V DETERMINE IF NO. BETWEEN K0705620
7B7F 4C30 7B3A 561 | BSC L ER71,-Z 0 AND 9. ERROR IF NOT K0705630
7B81 C398 562 | LD 3 TEMP-V MULT PREV. CON BY 10 K0705640
7B82 A393 563 | M 3 D0010-V K0705650
7B83 1081 564 | SLT 1 TEST FOR OVERFLOW K0705660
7B84 4C20 7B3A 565 | BSC L ER71,Z NO. GT 32767, ERROR K0705670
7B86 108F 566 | SLT 15 PUT PREV CON IN ACC K0705680
7B87 8399 567 | A 3 TEMPA-V ADD CURRENT WD K0705690
7B88 D398 568 | STO 3 TEMP-V SAVE IN PREV. CON K0705700
7B89 4C28 7B3A 569 | BSC L ER71,+Z ERROR IF NO. GT 32767 K0705710
7B8B CBA6 570 | LDD 3 WD1-V GET NEXT 6 BITS WD1-WD2 K0705720
7B8C 1086 571 | SLT 6 K0705730
7B8D DBA6 572 | STD 3 WD1-V RESET WD1-WD2 K0705740
7B8E 70E3 573 | MDX COLL1 GO PROCESS NEXT 6 BITS K0705750
7B8F C398 574 | COLL2 LD 3 TEMP-V K0705760
7B90 4C08 7B3A 575 | BSC L ER71,+ K0705770
7B92 4C80 7B6E 576 | BSC I COLL BR IF LE 0 TO ERROR K0705780
577 | * RETURN K0705790
578 | * THE GATHER CONSTANT ROUTINE K0705800
579 | * PICK TWO WORD CONSTANT AND K0705810
580 | * PUT THEM IN WD1 AND WD2. POINTER K0705820
581 | * REMAINS ON LAST WORD USED. ON K0705830
582 | * ERRORS THE ROUTINE GOES TO K0705840
583 | * ERROR 71. K0705850
584 | * K0705860
7B94 0000 585 | GATH DC *-* BSI ENTRY K0705870
7B95 C100 586 | LD 1 0 GET WORD FROM I/P STRING K0705880
7B96 D3A6 587 | STO 3 WD1-V SAVE IN WD1 K0705890
7B97 1010 588 | SLA 16 K0705900
7B98 D3A7 589 | STO 3 WD2-V ZERO WD2. K0705910
7B99 C101 590 | LD 1 1 TEST 2ND WD I/P STRING K0705920
7B9A 4C10 7BA2 591 | BSC L GATH1,- RETURN IF WD NOT FLAGGED K0705930
7B9C 1001 592 | SLA 1 REMOVE FLAG. K0705940
7B9D D3A7 593 | STO 3 WD2-V SAVE WORD 2. K0705950
7B9E 7101 594 | MDX 1 1 INCREMENT I/P STRING COUNT K0705960
7B9F C101 595 | LD 1 1 TEST 3RD WD OF STRING FOR K0705970
7BA0 4C28 7B3A 596 | BSC L ER71,+Z VAR. SYNTAX ERR IF FOUND K0705980
7BA2 4C80 7B94 597 | GATH1 BSC I GATH RETURN K0705990
598 | * K0706000
599 | * THE ERROR ROUTINE REPLACES THE K0706010
600 | * STATEMENT WITH AN ERROR MESSAGE. K0706020
601 | * THE ERROR NUMBER IS IN THE K0706030
602 | * ACCUMULATOR WHEN COMING HERE K0706040
7BA4 0000 603 | DC *-* K0706050
7BA5 6580 7A5E 604 | ERR LDX I1 IDSV1 GET STRING I/P ID WD ADDR K0706060
7BA7 6680 7B6B 605 | LDX I2 IDSV2 GET STRING O/P ID WD ADDR K0706070
7BA9 D398 606 | STO 3 TEMP-V STORE ERROR CONST TEMP. K0706080
7BAA C39A 607 | LD 3 ORIG-V GET ID WD FROM I/P STRING K0706090
7BAB E390 608 | AND 3 H0001-V GET STMT NO. FLAG FROM ID K0706100
7BAC 8384 609 | A 3 HA008-V INCR BY ERROR ID WORD. K0706110
7BAD 4804 610 | BSC E TEST IF STMT NO. PRESENT K0706120
7BAE 838F 611 | A 3 H0004-V INCR. NORM IF STMT HAS NO. K0706130
7BAF D200 612 | STO 2 0 SAVE ID WORD IN O/P STRING K0706140
7BB0 100F 613 | SLA 15 TEST FOR NUMBERED STMT K0706150
7BB1 4828 614 | BSC +Z BR IF NO 2-11 K0706160
615 | * 2 INSTRUCTIONS REMOVED 2-11 K0706170
7BB2 7201 616 | MDX 2 1 INCR O/P STRING COUNT K0706190
7BB3 C398 617 | LD 3 TEMP-V GET ERROR NO. K0706200
7BB4 D201 618 | STO 2 1 PUT IN O/P STRING K0706210
7BB5 7202 619 | MDX 2 2 INCR O/P STRING CTR K0706220
620 | * K0706230
621 | * SKIP OVER REMAINDER OF THE K0706240
622 | * STATEMENT. K0706250
623 | * K0706260
7BB6 C39A 624 | SKIP LD 3 ORIG-V GET STMNT ID I/P STRING K0706270
7BB7 1005 625 | SLA 5 K0706280
7BB8 1807 626 | SRA 7 DECODE STMNT NORM K0706290
7BB9 D001 627 | STO *+1 INCR I/P STRING CTR BY K0706300
7BBA 7500 0000 628 | MDX L1 *-* STATEMENT NORM K0706310
7BBC 4C00 7A40 629 | BSC L CK1 GO PROCESS NEXT STMNT K0706320
630 | * K0706330
631 | * THIS SUBROUTINE SCANS THE TABLE K0706340
632 | * OF DEFINE FILE NUMBERS TO ENSURE K0706350
633 | * THAT THERE ARE NO DUPLICATES OR K0706360
634 | * THAT THERE ARE NOT MORE THAN K0706370
635 | * 75 DEFINED FILES. K0706380
636 | * K0706390
637 | * ACC CONTAINS BIN FILE NO. K0706400
7BBE 0000 638 | FILES DC *-* BSI ENTRY POINT K0706410
7BBF D398 639 | STO 3 TEMP-V SAVE ACC. K0706420
7BC0 C39C 640 | LD 3 FCNT-V TEST IF NO. FILES LEFT K0706430
7BC1 9390 641 | S 3 H0001-V IS GT 1 K0706440
7BC2 4C28 7B3C 642 | BSC L ER72,+Z IF NOT, OVERLAP ERROR 2-11 K0706450
7BC4 D39C 643 | STO 3 FCNT-V K0706460
7BC5 C39B 644 | LD 3 FILET-V GET LOC OF FILE TABLE K0706470
7BC6 D001 645 | STO FL1+1 K0706480
7BC7 C400 0000 646 | FL1 LD L *-* GET ENTRY FROM TABLE K0706490
7BC9 4C18 7BD1 647 | BSC L FL2,+- IF ENTRY=0, ADD FILE NO. K0706500
7BCB 9398 648 | S 3 TEMP-V COMPARE ENTRY WITH FILE NO K0706510
7BCC 4C18 7B3C 649 | BSC L ER72,+- EQUAL, DUP FILE ERROR K0706520
7BCE 74FF 7BC8 650 | MDX L FL1+1,-1 MODIFY FILE TABLE LOC. K0706530
7BD0 70F6 651 | MDX FL1 GO COMPARE ENTRY NEXT FILE K0706540
7BD1 7401 7B59 652 | FL2 MDX L FILET,1 INCR. FILE TABLE LOC K0706550
7BD3 C398 653 | LD 3 TEMP-V GET BINARY FILE NO. K0706560
7BD4 D480 7B59 654 | STO I FILET SAVE IN FILE TABLE K0706570
7BD6 4C80 7BBE 655 | BSC I FILES RETURN K0706580
656 | * K0706590
657 | * RESTORE STRING POINTERS K0706600
7BD8 72FF 658 | ED1 MDX 2 -1 K0706610
7BD9 6E00 7A25 659 | STX L2 EOFS K0706620
660 | * K0706630
661 | * READ AND GO TO NEXT PHASE K0706640
7BDB 662 | EXIT EQU * K0706650
7BDB 6580 7BE1 663 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K0706660
7BDD C804 664 | LDD NXTPH+2 NEXT PHASE K0706670
7BDE 4C00 7FBC 665 | BSC L ROL GO TO READ NEXT PHASE K0706680
7BE0 666 | BSS E 0 K0706690
7BE0 0026 667 | NXTPH DC 38 ID OF MEXT PHASE K0706700
7BE1 668 | BSS 3 LOADER TABLE FOR NEXT PHASE K0706710
669 | * K0706720
670 | * PATCH AREA K0706730
7BE4 671 | BSS 50 K0706740
672 | * K0706750
673 | * DEFINE FILE NUMBER TABLE K0706760
7C16 0000 674 | DDDT DC 0 K0706770
7C17 675 | BSS 75 DEFINED FILE TABLE K0706780
676 | * K0706790
677 | * PATCH FOR MOD 4 2-4 K0706800
678 | * K0706810
7C62 18D0 679 | PTCH1 RTE 16 SHIFT REMAINDER TO ACC 2-4 K0706820
7C63 4820 680 | BSC Z SKIP IF NO REMAINDER 2-4 K0706830
7C64 C390 681 | LD 3 H0001-V LOAD 1 IF REMAINDER 2-4 K0706840
7C65 8398 682 | A 3 TEMP-V ADD NO OF DISK BLOCKS 2-4 K0706850
7C66 9009 683 | S DBMAX COMPARE WITH DISK SIZE 2-4 K0706860
7C67 4C30 7C6D 684 | BSC L ER74,Z- BRANCH IF EXCEEDED 2-4 K0706870
7C69 8006 685 | A DBMAX RESTORE DB COUNT 2-4 K0706880
7C6A 43A8 686 | BSI 3 OUT-V OUTPUT DB COUNT 2-4 K0706890
7C6B 4C00 7B2B 687 | BSC L PTH1A BRANCH BACK 2-4 K0706900
688 | * K0706910
7C6D C003 689 | ER74 LD D0074 LOAD ERROR 74 2-4 K0706920
7C6E 4C00 7BA5 690 | BSC L ERR FILE EXCEEDS DISK SIZE 2-4 K0706930
691 | * K0706940
7C70 6400 692 | DBMAX DC /6400 DISK SIZE DB COUNT 2-4 K0706950
7C71 004A 693 | D0074 DC 74 ERROR FLAG NO 74 2-4 K0706960
694 | * K0706970
7C72 695 | BSS /7CB5-* PATCH AREA 2-11 K0706980
7CB5 0000 696 | DC 0 K0706990
7CB6 697 | END BPHAR-2 K0707000
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PHSE 0078 66 119
BPHAR 7A36 109 697
CCWD 7A31 84
CE1 7A6F 187 149
CE3 7A7A 203 195
CEXIT 7B5C 514 148
CK1 7A40 128 175 205 272 472 629
CL1 7A7D 215 153
CL2 7A93 249 240
CLINK 7B5D 515 152
COLL 7B6E 547 290 311 325 576
COLL1 7B72 551 573
COLL2 7B8F 574 555
COMA 7B62 520 318 337 347 460
COMON 7A2B 78
CSIZE 7A2C 79
D0003 7B4F 501 198 369 421
D0009 7B50 502 560
D0010 7B51 503 563
D0071 7B52 504 475
D0072 7B53 505 479
D0074 7C71 693 689
D0320 7B54 506 332 442
DBMAX 7C70 692 683 685
DDDT 7C16 674 511
DF1 7AA7 283 145
DF2 7AE5 374 382
DF3 7AEE 381 373 376
DF4 7B05 406 379
DF5 7AAC 290 461
DFCNT 7A33 103 469 471
DFILE 7B5B 513 144
ED1 7BD8 658 157
ENDCN 7B5E 516 156
EOFS 7A25 72 659
EOFST 7A2A 77 368 395
ER3 7A78 198 217 225 228 251 255
ER71 7B3A 475 304 319 333 338 343 348 364 401 403 409 432 466
554 556 561 565 569 575 596
ER72 7B3C 479 284 642 649
ER74 7C6D 689 454 684
ERR 7BA5 604 199 476 480 690
ERROR 7A2D 80 124
EXIT 7BDB 662 125
FCNT 7B5A 512 640 643
FCT 7B55 507 287 291 470
FILES 7BBE 638 296 655
FILET 7B59 511 644 652 654
FL1 7BC7 646 645 650 651
FL2 7BD1 652 647
FNAME 7A2E 81
GATH 7B94 585 354 548 597
GATH1 7BA2 597 591
H0001 7B4E 500 608 641 681
H0004 7B4D 499 611
H0020 7B4C 498 413
H1200 7B4B 497 400
H1800 7B4A 496 402
H4000 7B49 495 389 408
H5B00 7B48 494 261
H5F00 7B47 493
H6338 7B46 492 203
H7E00 7B45 491 399
H8000 7B44 490 235 357
H8001 7B43 489 422
HA008 7B42 488 609
HDFDE 7B41 487 407
HF802 7B40 486 143
HF803 7B3F 485 133
HFFFD 7B3E 484 188
IDSV1 7A5E 161 129 604
IDSV2 7B6B 537 130 162 187 189 605
IOCS 7A32 92
LPAR 7B60 518 216 303
MEMRY 8000 63 64 65
NXTPH 7BE0 667 112 663 664
ORIG 7B58 510 132 142 163 607 624
OUT 7B66 532 134 139 204 232 236 264 266 299 314 328 427 439
447 538 686
OVERL 7A24 64 67
PHID 0025 68 118
PHST 7A36 118
PTCH1 7C62 679 456
PTH1A 7B2B 459 687
ROL 7FBC 65 665
RPAR 7B61 519 250 431
SEMI 7B5F 517 194 254 465
SKIP 7BB6 624
SOFGT 7A29 76 393
SOFNS 7A27 74 367 372
SOFS 7A24 71 120 121
SOFST 7A26 73 418
SOFXT 7A28 75 394
SORF 7A30 83 283
TEMP 7B56 508 370 381 417 419 455 550 562 568 574 606 617 639
648 653 682
TEMPA 7B57 509 559 567
U 7B63 521 342
V 7BBE 483 128 132 133 134 139 142 143 144 148 152 156 163
188 194 198 199 203 204 216 232 235 236 250 254
261 264 266 287 290 296 299 303 311 314 318 325
328 332 337 342 347 354 355 357 358 361 369 370
375 378 385 387 389 398 399 400 402 407 408 413
419 421 422 427 431 439 442 447 455 460 465 470
475 479 548 550 551 559 560 562 563 567 568 570
572 574 587 589 593 606 607 608 609 611 617 624
639 640 641 643 644 648 653 681 682 686
WD1 7B64 523 361 375 385 398 551 570 572 587
WD2 7B65 524 355 358 378 387 589 593
XR2R 7B15 426 371