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