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