ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph23.asm 1130 FORTRAN COMPILER PHASE 23 2 | *************************************************** K2300020 3 | *STATUS - VERSION 2 MODIFICATION 8 * K2300030 4 | * * K2300040 5 | *FUNCTION/OPERATION- * K2300050 6 | * * LISTS THE FEATURES SUPPORTED BY THE PROGRAM * K2300060 7 | * AS INDICATED IN THE FORTRAN COMMUNICATIONS * K2300070 8 | * AREA (FCOM). * K2300080 9 | * * LISTS THE SYSTEM SUBROUTINES USED BY THE * K2300090 10 | * PROGRAM, IF REQUESTED. * K2300100 11 | * * LISTS THE SUBPROGRAM NAMES FOUND IN THE * K2300110 12 | * SYMBOL TABLE, IF REQUESTED. * K2300120 13 | * * AS A SUPPLEMENT TO THE EXPANDER PHASES, 17 * K2300130 14 | * AND 18, THIS PHASE ADDS INDEXING TO THE * K2300140 15 | * SYSTEM LIBRARY SUBROUTINE CALLS AND 2-WORD * K2300150 16 | * INSTRUCTIONS WHICH REFERENCE DIMENSIONED * K2300160 17 | * VARIABLES. * K2300170 18 | * * K2300180 19 | *ENTRY POINTS- * K2300190 20 | * * NEQ - ENTERED VIA A CALL TO THE ROL SUBR * K2300200 21 | * FROM PHASE 23. * K2300210 22 | * * K2300220 23 | *INPUT- * K2300230 24 | * * STRING AREA * K2300240 25 | * * SYMBOL TABLE AREA * K2300250 26 | * * FCOM * K2300260 27 | * * K2300270 28 | *OUTPUT- * K2300280 29 | * * STRING AREA * K2300290 30 | * * SYMBOL TABLE AREA * K2300300 31 | * * FCOM * K2300310 32 | * * PRINTED LISTING * K2300320 33 | * * K2300330 34 | *EXTERNAL REFERENCES- * K2300340 35 | * SUBROUTINES * K2300350 36 | * * ROL * K2300360 37 | * * LSTPR * K2300370 38 | * * PRINT * K2300380 39 | * * NEWPG * K2300390 40 | * COMMA/DCOM * K2300400 41 | * * $ PHSE * K2300410 42 | * * $ CH12 * K2300420 43 | * * K2300430 44 | *EXITS- * K2300440 45 | * NORMAL- * K2300450 46 | * EXIT FROM THIS PHASE IS MADE VIA A CALL * K2300460 47 | * TO THE ROL SUBR WITH A REQUEST TO ENTER * K2300470 48 | * THE NEXT PHASE. * K2300480 49 | * ERROR- * K2300490 50 | * N/A * K2300500 51 | * * K2300510 52 | *ATTRIBUTES- * K2300520 53 | * N/A * K2300530 54 | * * K2300540 55 | *NOTES- * K2300550 56 | * THERE ARE NO ERRORS DETECTED IN THIS PHASE * K2300560 57 | * * K2300570 58 | *************************************************** K2300580 59 | ABS K2300590 60 | * K2300600 61 | * SYSTEM EQUATES K2300610 8000 62 | MEMRY EQU /8000 K2300620 7A23 63 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2300630 7FBC 64 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K2300640 0078 65 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2300650 66 | * K2300660 0035 67 | PHID EQU 53 ID NUMBER THIS PHASE K2300670 68 | * PRINT ROUTINE K2300680 69 | * K2300690 7F8B 70 | HEAD EQU ROL-49 PAGE HEADER AREA K2300700 7E42 71 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2300710 7E0C 72 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2300720 0006 73 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2300730 7E0E 74 | PRINT EQU NEWPG+2 PRINT INTERFACE RTN ENTRY K2300740 7E45 75 | LSTPR EQU OVERP+3 DEVICE PRINT ROUTINE ENTRY K2300750 7E0D 76 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2300760 0003 77 | PHLEN EQU 3 NO SECTORS THIS PHASE K2300765 78 | * K2300770 1132 D.M. V2 FORT P24 LIST SYMBOLS 7A23 80 | ORG OVERL K2300790 81 | * K2300800 82 | * FORTRAN COMMUNICATION AREA K2300810 7A23 83 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2300815 7A24 84 | SOFS BSS 1 START OF STRING K2300820 7A25 85 | EOFS BSS 1 END OF STRING K2300830 7A26 86 | SOFST BSS 1 START OF SYMBOL TABLE K2300840 7A27 87 | SOFNS BSS 1 LENGTH OF PROGRAM K2300850 7A28 88 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2300860 7A29 89 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2300870 7A2A 90 | EOFST BSS 1 END OF SYMBOL TABLE K2300880 7A2B 91 | COMON BSS 1 RELATIVE ENTRY POINT K2300890 7A2C 92 | CSIZE BSS 1 SIZE OF COMMON K2300900 7A2D 93 | ERROR BSS 1 ERROR FLAG K2300910 94 | * BIT 15 OVERLAP ERROR K2300920 95 | * BIT 14 OTHER ERROR K2300930 7A2E 96 | FNAME BSS 1 PROGRAM NAME K2300940 7A2F 97 | BSS 1 K2300950 7A30 98 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2300960 7A31 99 | CCWD BSS 1 CONTROL CARD WORD K2300970 100 | * BIT 15 TRANSFER TRACE K2300980 101 | * BIT 14 ARITHMETIC TRACE K2300990 102 | * BIT 13 EXTENDED PRECISION K2301000 103 | * BIT 12 LIST SYMBOL TABLE K2301010 104 | * BIT 11 LIST SUBPROGRAM NAMES K2301020 105 | * BIT 10 LIST SOURCE PROGRAM K2301030 106 | * BIT 9 ONE WORD INTEGERS K2301040 107 | * BIT 8 ORIGIN 2-4 K2301045 7A32 108 | IOCS BSS 1 IOCS CONTROL CARD WORD K2301050 109 | * BIT 15 CARD K2301060 110 | * BIT 14 PAPER TAPE K2301070 111 | * BIT 13 TYPEWRITER K2301080 112 | * BIT 12 1403 PRINTER K2301090 113 | * BIT 11 2501 READER K2301100 114 | * BIT 10 KEYBOARD K2301110 115 | * BIT 9 1442 PUNCH K2301120 116 | * BIT 8 DISK K2301130 117 | * BIT 7 1132 PRINTER K2301140 118 | * BIT 3 PLOTTER K2301150 119 | * BIT 1 UNFORMATTED DISK K2301160 7A33 120 | DFCNT BSS 1 K2301170 121 | * K2301180 122 | * END OF FORTRAN COMMUNICATION K2301190 123 | * AREA K2301200 124 | *************************************************** K2301210 1130 FORTRAN COMPILER PHASE 23 7A36 126 | BPHAR EQU *+2 K2301230 7A34 0000 127 | DC 0 LOADER WORK AREA K2301240 7A35 FFCB 128 | DC -53 -PHASE ID FOR SLET LOOKUP K2301250 7A36 0300 129 | DC NXTPH-*+1 DISPLACEMENT TO SLET TABLE K2301260 7A37 0001 130 | DC 1 ONE SLET ENTRY REQUESTED K2301270 7A36 131 | ORG *-2 K2301280 7A36 4C00 7A3D 132 | NEQ BSC L ENT BRANCH TO BEGIN PROCESSING K2301290 133 | * K2301300 134 | * K2301310 7A38 0000 135 | WDCNT DC *-* PRINT AREA WORD COUNT K2301320 7A39 4000 136 | PAREA DC /4000 PRINT AREA START K2301330 7A3A 4000 137 | DC /4000 BLANK K2301340 7A3B 4000 138 | DC /4000 BLANK K2301350 7A3C 4000 139 | DC /4000 BLANK K2301360 140 | * K2301370 7AB0 141 | PAEND EQU PAREA+119 END OF PRINT AREA K2301380 142 | * K2301390 7A3D 6135 143 | ENT LDX 1 PHID GET ID THIS PHASE K2301400 7A3E 6D00 0078 144 | STX L1 $PHSE STORE IN COMMA K2301410 7A40 C400 7A2D 145 | LD L ERROR K2301420 7A42 4C20 7D2C 146 | BSC L EXIT,Z BR TO EXIT IF OVERLAP ERROR K2301430 1130 FORTRAN COMPILER PHASE 23 148 | * INITIALIZATION PROGRAM IS EXECUTED K2301450 149 | * AT LOCATIONS THAT LATER SERVE AS K2301460 150 | * PRINT AREA K2301470 151 | * K2301480 152 | * K2301490 153 | * INITIALIZE TRANSFERVECTOR K2301500 154 | * K2301510 7A44 6700 7B17 155 | LDX L3 Z LOAD XR3 WITH WK AREA PT K2301520 7A46 6F00 7A36 156 | STX L3 NEQ SAVE FOR RE-INITIALIZATION K2301530 157 | * K2301540 158 | * K2301550 159 | * LIST FEATURES SUPPORTED K2301560 160 | * K2301570 161 | * K2301580 162 | * ANY FEATURES SUPPORTED K2301590 163 | * K2301600 7A48 C0E9 164 | LD IOCS LD IOCS CONTROL CD WORD K2301610 7A49 4820 165 | BSC Z SKIP IF ZERO K2301620 7A4A 7005 166 | MDX K1010 BRANCH IF IOCS PRESENT K2301630 7A4B C400 7A31 167 | LD L CCWD LD CONTROL CARD WORD K2301640 7A4D E317 168 | AND 3 H00C7-Z REMOVE UNNECESSARY BITS 2-4 K2301650 7A4E 4C18 7AC1 169 | BSC L L1035,+- BR IF NO FEATURES SUPPORTED K2301660 170 | * K2301670 171 | * IF ANY FEATURES SUPPORTED K2301680 172 | * PRINT TEXT -FEATURES SUPPORTED- K2301690 173 | * K2301700 174 | * K2301710 7A50 4400 7D13 175 | K1010 BSI L PBLNK SPACE PRINTER ONE LINE K2301720 7A52 4400 7ACC 176 | BSI L HTEST PRINT MSG K2301730 7A54 0009 177 | DC 9 WORD COUNT K2301740 7A55 C6C5 C1E3 E4D9 C5E2 178 | EBC .FEATURES SUPPORTED. K2301750 40E2 E4D7 D7D6 D9E3 | C5C4 | 179 | * K2301760 180 | * K2301770 181 | * PRINT .TRANSFER TRACE. K2301780 182 | * IF APPLICABLE K2301790 183 | * K2301800 7A5E C0D2 184 | K1020 LD CCWD LOAD CONTROL CARD WORD K2301810 7A5F 100F 185 | SLA 15 TEST FOR TRANSFER TRACE K2301820 7A60 4C10 7A6D 186 | BSC L K1021,- BR IF NO TRANSFER TRACE K2301830 7A62 4400 7ACC 187 | BSI L HTEST PRINT MSG K2301840 7A64 0008 188 | DC 8 WORD COUNT K2301850 7A65 40E3 D9C1 D5E2 C6C5 189 | EBC . TRANSFER TRACE . K2301860 D940 E3D9 C1C3 C540 | 190 | * K2301870 191 | * PRINT .ARITHMETIC TRACE. K2301880 192 | * IF APPLICABLE K2301890 193 | * K2301900 7A6D C400 7A31 194 | K1021 LD L CCWD LOAD CONTROL CARD WORD K2301910 7A6F 100E 195 | SLA 14 TEST FOR ARITHMETIC TRACE K2301920 7A70 4C10 7A7E 196 | BSC L K1031,- BR IF NO ARITHMETIC TRACE K2301930 7A72 4400 7ACC 197 | BSI L HTEST PRINT MSG K2301940 7A74 0009 198 | DC 9 WORD COUNT K2301950 7A75 40C1 D9C9 E3C8 D4C5 199 | EBC . ARITHMETIC TRACE . K2301960 E3C9 C340 E3D9 C1C3 | C540 | 200 | * K2301970 201 | * PRINT .ONE WORD INTEGERS. K2301980 202 | * IF APPLICABLE K2301990 203 | * K2302000 7A7E C400 7A31 204 | K1031 LD L CCWD LOAD CONTROL CARD WORD K2302010 7A80 1009 205 | SLA 9 TEST FOR ONE WORD INTEGERS K2302020 7A81 4C10 7A8F 206 | BSC L K1051,- BR IF NO ONE WORD INTEGERS K2302030 7A83 4400 7ACC 207 | BSI L HTEST PRINT MSG K2302040 7A85 0009 208 | DC 9 WORD COUNT K2302050 7A86 40D6 D5C5 40E6 D6D9 209 | EBC . ONE WORD INTEGERS. K2302060 C440 C9D5 E3C5 C7C5 | D9E2 | 210 | * K2302070 211 | * PRINT .EXTENDED PRECISION. K2302080 212 | * IF APPLICABLE K2302090 213 | * K2302100 7A8F C0A1 214 | K1051 LD CCWD LOAD CONTROL CARD WORD K2302110 7A90 100D 215 | SLA 13 TEST FOR EXTENDED PRECISION K2302120 7A91 4C10 7AAD 216 | BSC L L1025,- BR IF NOT EXTENDED PRECISION K2302130 7A93 4038 217 | BSI HTEST PRINT MSG K2302140 7A94 000A 218 | DC 10 WORD COUNT K2302150 7A95 40C5 E7E3 C5D5 C4C5 219 | EBC . EXTENDED PRECISION . K2302160 C440 D7D9 C5C3 C9E2 | C9D6 D540 | 220 | * K2302170 221 | * CHANGE SYSTEM SUBR.-NAME-LIST SO THAT K2302180 222 | * APPLICABLE NAMES BEGIN WITH .E. K2302190 223 | * RATHER THAN WITH .F. K2302200 224 | * K2302210 7A9F 6124 225 | LDX 1 FAXIX-TABSS+2 K2302220 7AA0 43D8 226 | L1022 BSI 3 FTOE-Z CHANGE NEXT NAME K2302230 7AA1 71FE 227 | MDX 1 -2 K2302240 7AA2 70FD 228 | MDX L1022 BR IF X1 NOT ZERO K2302250 229 | * K2302260 7AA3 6146 230 | LDX 1 FCHRI-TABSS+2 CHANGE WCHRI 2-6 K2302262 7AA4 43D8 231 | BSI 3 FTOE-Z *INTO VCHRI 2-6 K2302264 232 | * K2302270 233 | * CHANGE SECOND CHAR IN TRACE ROUTINE K2302280 234 | * NAMES FROM 'F' INTO 'E' K2302290 235 | * K2302300 7AA5 C304 236 | LD 3 H0004-Z MODIFY FTOE SUBR TO MODIFY K2302310 7AA6 D047 237 | STO DIFF *THE SECOND CHAR OF NAME K2302320 7AA7 612A 238 | LDX 1 FARI-TABSS+2 K2302330 7AA8 43D8 239 | BSI 3 FTOE-Z MODIFY FARI K2302340 7AA9 612C 240 | LDX 1 FARIX-TABSS+2 K2302350 7AAA 43D8 241 | BSI 3 FTOE-Z MODIFY FARIX K2302360 7AAB 613C 242 | LDX 1 FIF-TABSS+2 K2302370 7AAC 43D8 243 | BSI 3 FTOE-Z MODIFY FIF K2302380 244 | * K2302381 245 | * PRINT .ORIGIN. K2302382 246 | * IF APPLICABLE K2302383 247 | * K2302384 7AAD C400 7A31 248 | L1025 LD L CCWD LOAD CONTROL CARD WORD 2-4 K2302385 7AAF 1008 249 | SLA 8 TEST FOR ORIGIN 2-4 K2302386 7AB0 4C10 7AB8 250 | BSC L L1030,- BRANCH IF NOT ORIGIN 2-4 K2302387 7AB2 4019 251 | BSI HTEST PRINT MESSAGE 2-4 K2302388 7AB3 0004 252 | DC 4 WORD COUNT 2-4 K2302389 7AB4 40D6 D9C9 C7C9 D540 253 | EBC . ORIGIN . 2-4 K2302390 254 | * K2302391 255 | * TEST FOR IOCS K2302400 7AB8 C400 7A32 256 | L1030 LD L IOCS LOAD IOCS CONTROL CARD WORD K2302410 7ABA 4C18 7AC1 257 | BSC L L1035,+- BR IF NO IOCS REQUESTED K2302420 7ABC 400F 258 | BSI HTEST PRINT MSG K2302430 7ABD 0003 259 | DC 3 WORD COUNT K2302440 7ABE 40C9 D6C3 E240 260 | EBC . IOCS . K2302450 261 | * K2302460 262 | * K2302470 7AC1 C400 7A31 263 | L1035 LD L CCWD LOAD CONTROL CARD WORD K2302480 7AC3 100B 264 | SLA 11 TEST IF LIST SUBP NAMES K2302490 7AC4 4C10 7BF0 265 | BSC L L2011,- BR IF NO LIST REQUESTED K2302500 266 | * K2302510 7AC6 6580 7A26 267 | LDX I1 SOFST INITIALIZE SYMBOL PT K2302520 7AC8 6D00 7B1F 268 | STX L1 STP * K2302530 269 | * K2302540 270 | * BRANCH TO PROGRAM AREA K2302550 271 | * OUTSIDE THE PRINT AREA K2302560 272 | * K2302570 7ACA 4C00 7BD9 273 | BSC L L1041 BR OUT OF PRINT AREA K2302580 274 | * K2302590 275 | * K2302600 276 | * PRINT SECTION HEADER K2302610 277 | * K2302620 7ACC 0000 278 | HTEST DC *-* LINK K2302630 279 | * K2302640 7ACD C480 0006 280 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2302650 7ACF 44A0 7E0C 281 | BSI I NEWPG,Z EJECT PAGE IF SET K2302660 282 | * K2302670 7AD1 C0FA 283 | LD HTEST GET WORD COUNT ADDRESS K2302680 7AD2 18D0 284 | RTE 16 SHIFT TO EXTENSION K2302690 7AD3 C009 285 | LD HTES1 LOAD PRINT PARAMETER K2302700 7AD4 4400 7E45 286 | BSI L LSTPR PRINT HEADER K2302710 287 | * K2302720 288 | * CALCULATE RETURN ADDRESS K2302730 289 | * K2302740 7AD6 C480 7ACC 290 | LD I HTEST LOAD WORD COUNT K2302750 7AD8 80F3 291 | A HTEST ADD WORD COUNT ADDRESS K2302760 7AD9 8301 292 | A 3 ONE-Z ADD ONE K2302770 7ADA D001 293 | STO *+1 STO INTO RETURN INSTRUCTION K2302780 7ADB 4C00 0000 294 | BSC L *-* RETURN K2302790 295 | * K2302800 296 | * K2302810 7ADD 7001 297 | HTES1 DC /7001 PRINT PARAMETER K2302820 298 | * K2302830 1130 FORTRAN COMPILER PHASE 23 300 | ************************************************** K2302850 301 | * K2302860 302 | * .TRANSFER VECTOR. SUBROUTINES FOLLOW K2302870 303 | ************************************************** K2302880 304 | * K2302890 305 | * K2302900 306 | * SUBROUTINE K2302910 307 | * GET SYMBOL TABLE ID-WORD K2302920 308 | * K2302930 7ADE 0000 309 | GETST DC 0 LINK K2302940 7ADF E305 310 | AND 3 H07FF-Z MK TO LV SYM TBL ENTRY NO. K2302950 7AE0 4C98 7ADE 311 | BSC I GETST,+- RETURN IF ZERO 2-6 K2302955 7AE2 D008 312 | STO GETS1+1 STORE INTO LD INSTRUCTION K2302960 7AE3 C400 7A26 313 | LD L SOFST LD START OF SYM TBL ADDRESS K2302970 7AE5 9005 314 | S GETS1+1 SUBTRACT 3*ENTRY NUMBER K2302980 7AE6 9004 315 | S GETS1+1 * K2302990 7AE7 9003 316 | S GETS1+1 * K2303000 7AE8 8303 317 | A 3 3 PLUS THREE K2303010 7AE9 D001 318 | STO GETS1+1 STO SYM TBL ENTRY ADR K2303020 7AEA C400 0000 319 | GETS1 LD L *-* LD SYM TBL ID WORD K2303030 7AEC 4C80 7ADE 320 | BSC I GETST RETURN K2303040 321 | * K2303050 322 | * K2303060 323 | * SUBROUTINE K2303070 324 | * CHANGE .F. IN FIRST CHARACTER OF A K2303080 325 | * SUBROUTINE NAME INTO .E. K2303090 326 | * (OR E,F INTO V,W) K2303100 327 | * K2303110 328 | * DISPLACEMENT IN NAME LIST = X1 K2303120 7AEE 0100 329 | DIFF DC /0100 K2303130 7AEF 0000 330 | FTOE DC 0 LINK K2303140 7AF0 C500 7B39 331 | LD L1 TABSS-2 GET FIRST WORD IN NAME K2303150 7AF2 90FB 332 | S DIFF CHANGE NAME BY K2303160 333 | * *SUBTRACTING DIFF K2303170 7AF3 D500 7B39 334 | STO L1 TABSS-2 RETURN WORD TO TABLE K2303180 7AF5 4C80 7AEF 335 | BSC I FTOE RETURN K2303190 336 | * K2303200 337 | * SUBROUTINE K2303210 338 | * .TAG. SYSTEM SUBR. NAME IN LIST BY K2303220 339 | * MAKING LEFTMOST BIT = ONE K2303230 340 | * K2303240 7AF7 0000 341 | TAGSR DC 0 LINK K2303250 7AF8 C600 7B39 342 | LD L2 TABSS-2 LOAD TABLE ENTRY K2303260 7AFA EB07 343 | OR 3 H8000-Z TAG IT TO BE PRINTED K2303270 7AFB D600 7B39 344 | STO L2 TABSS-2 RESTORE TABLE ENTRY K2303280 7AFD 4C80 7AF7 345 | BSC I TAGSR RETURN K2303290 346 | * MOVE STRING POINTER K2303300 7AFF 0000 347 | MOVEP DC 0 LINK K2303310 7B00 7101 348 | MDX 1 1 INCR STRING POINTER K2303320 7B01 1000 349 | SLA 0 K2303330 7B02 74FC 7B25 350 | MDX L NRM,-4 DECR WORD COUNT K2303340 7B04 1000 351 | SLA 0 K2303350 7B05 4C80 7AFF 352 | BSC I MOVEP RETURN K2303360 353 | * K2303370 354 | * SUBR. MOVE SYMBOL TABLE POINTER K2303380 7B07 0000 355 | MSTP DC 0 LINK K2303390 7B08 C100 356 | LD 1 0 LD SYM TBL ID WORD K2303400 7B09 E30A 357 | AND 3 MASK3-Z TEST IF DIMENTIONED K2303410 7B0A 4820 358 | BSC Z SKIP IF NOT DIMENSIONED K2303420 7B0B C30B 359 | LD 3 CM3-Z MINUS THREE K2303430 7B0C 9303 360 | S 3 3 MINUS THREE K2303440 7B0D 8308 361 | A 3 STP-Z ADD SYM TBL PT ADDRESS K2303450 7B0E D308 362 | STO 3 STP-Z STO NEXT SYM TBL ENTRY ADDR K2303460 7B0F 6580 7B1F 363 | LDX I1 STP SET SR1 TO NEW SYM TBL ENTRY K2303470 7B11 4C80 7B07 364 | BSC I MSTP RETURN K2303480 365 | * K2303490 1130 FORTRAN COMPILER PHASE 23 367 | * CONSTANTS K2303510 368 | * K2303520 7B13 003C 369 | D60 DC 60 CONSTANT K2303530 7B14 7A39 370 | PAPIN DC PAREA INITIAL VALUE OF PAP K2303540 7B15 7A39 371 | PAP DC PAREA PRINT AREA POINTER K2303550 7B16 0078 372 | C120 DC 120 CONSTANT K2303560 7B17 0000 373 | Z DC 0 CONSTANT, WK AREA BASE ADDR K2303570 7B17 374 | ZERO EQU Z * K2303580 7B18 0001 375 | ONE DC 1 CONSTANT K2303590 7B19 0002 376 | TWO DC 2 CONSTANT K2303600 7B1A 0003 377 | THREE DC 3 CONSTANT K2303610 7B1B 0004 378 | FOUR DC 4 CONSTANT K2303620 7B1B 379 | H0004 EQU FOUR * K2303630 7B1C 07FF 380 | H07FF DC /07FF CONSTANT MASK K2303640 381 | * K2303650 7B1D 0100 382 | H0100 DC /0100 CONSTANT MASK K2303660 7B1E 8000 383 | H8000 DC /8000 CONSTANT FLAG BIT K2303670 7B1F 0000 384 | STP DC 0 SYMBOL TABLE POINTER K2303680 7B20 0080 385 | MASK2 DC /0080 FOR TESTING IF SUBP NAME K2303690 7B21 1800 386 | MASK3 DC /1800 FOR TESTING IF DIMENTIONED K2303700 7B22 FFFD 387 | CM3 DC /FFFD CONSTANT K2303710 7B23 F800 388 | MASK5 DC /F800 FOR EXTRACTING STMNT ID K2303720 7B24 07FC 389 | MASK6 DC /07FC FOR EXTRACTING NORM K2303730 7B25 0000 390 | NRM DC 0 STORED NORM K2303740 7B26 0000 391 | STID DC 0 STMNT ID K2303750 7B27 6000 392 | FTEST DC /6000 STMNT ID = FORMAT K2303760 7B28 1000 393 | ENDID DC /1000 STMNT ID = END K2303770 7B29 1800 394 | H1800 DC /1800 MASK TO TEST IF DIMENTIONED K2303780 7B2A 1900 395 | H1900 DC /1900 MASK TO TEST IF .CALL SUBC. K2303790 7B2B 1E00 396 | H1E00 DC /1E00 MASK TO TEST .LIBF VIOAI. K2303800 7B2C 5B00 397 | H5B00 DC /5B00 MASK TO TEST .LDXL1. K2303810 7B2D 0500 398 | H0500 DC /0500 CONSTANT K2303820 7B2E 00C7 399 | H00C7 DC /00C7 TEST IF FEATURES SUPPORTED K2303830 7B2F 0080 400 | H0080 DC /0080 CONSTANT K2303840 7B30 0008 401 | H0008 DC /0008 CONSTANT K2303850 7B31 7800 402 | H7800 DC /7800 CONSTANT K2303860 7B32 1D00 403 | H1D00 DC /1D00 MASK TO TEST .LIBF SUBIN. K2303870 7B33 1600 404 | H1600 DC /1600 MASK TO TEST .LIBF SIOAI. K2303880 7B34 1680 405 | H1680 DC /1680 MASK TO TEST .LIBF SIOAF. K2303890 7B35 5D00 406 | H5D00 DC /5D00 MASK TO TEST SPEC .BSC L. K2303900 7B36 4000 407 | H4000 DC /4000 CONSTANT K2303910 7B37 D800 408 | HD800 DC /D800 MAST TO TEST INTNL O/P FMT K2303920 7B38 4700 409 | H4700 DC /4700 MASK TO TEST .BSI L. K2303930 7B39 F000 410 | DFILE DC /F000 MASK TO TEST IF DEFINE FILE K2303940 7B3A 0800 411 | DATA DC /F800-/F000 K2303950 412 | * K2303960 1130 FORTRAN COMPILER PHASE 23 414 | * SYSTEM SUBR. TABLE K2303980 7B3B 0604 415 | TABSS DC /0604 FADD CODE=008 K2303990 7B3C 4100 416 | DC /4100 K2304000 7B3D 0604 417 | DC /0604 FADDX 010 K2304010 7B3E 4127 418 | DC /4127 K2304020 7B3F 068A 419 | DC /068A FSUB 018 K2304030 7B40 4080 420 | DC /4080 K2304040 7B41 068A 421 | DC /068A FSUBX 020 K2304050 7B42 40A7 422 | DC /40A7 K2304060 7B43 0651 423 | DC /0651 FMPY 028 K2304070 7B44 7A00 424 | DC /7A00 K2304080 7B45 0651 425 | DC /0651 FMPYX 030 K2304090 7B46 7A27 426 | DC /7A27 K2304100 7B47 0610 427 | DC /0610 FDIV 038 K2304110 7B48 9940 428 | DC /9940 K2304120 7B49 0610 429 | DC /0610 FDIVX 040 K2304130 7B4A 9967 430 | DC /9967 K2304140 7B4B 064C 431 | DC /064C FLD 048 K2304150 7B4C 4000 432 | DC /4000 K2304160 7B4D 064C 433 | DC /064C FLDX 050 K2304170 7B4E 49C0 434 | DC /49C0 K2304180 7B4F 068A 435 | DC /068A FSTO 058 K2304190 7B50 3580 436 | DC /3580 K2304200 7B51 068A 437 | DC /068A FSTOX 060 K2304210 7B52 35A7 438 | DC /35A7 K2304220 7B53 0688 439 | DC /0688 FSBR 068 K2304230 7B54 2640 440 | DC /2640 K2304240 7B55 0688 441 | DC /0688 FSBRX 070 K2304250 7B56 2667 442 | DC /2667 K2304260 7B57 0612 443 | DC /0612 FDVR 078 K2304270 7B58 5640 444 | DC /5640 K2304280 7B59 0612 445 | DC /0612 FDVRX 080 K2304290 7B5A 5667 446 | DC /5667 K2304300 7B5B 0606 447 | DC /0606 FAXI 088 K2304310 7B5C 7240 448 | DC /7240 K2304320 7B5D 0606 449 | FAXIX DC /0606 FAXIX 090 K2304330 7B5E 7267 450 | DC /7267 K2304340 7B5F 0626 451 | DC /0626 FIXI 098 K2304350 7B60 7240 452 | DC /7240 K2304360 7B61 0626 453 | DC /0626 FIXIX 0A0 K2304370 7B62 7267 454 | DC /7267 K2304380 7B63 2218 455 | FARI DC /2218 SFAR 0A8 K2304390 7B64 1640 456 | DC /1640 K2304400 7B65 2218 457 | FARIX DC /2218 SFARX 0B0 K2304410 7B66 1667 458 | DC /1667 K2304420 7B67 2224 459 | FIAR DC /2224 SIAR 0B8 K2304430 7B68 1640 460 | DC /1640 K2304440 7B69 2224 461 | FIARX DC /2224 SIARX 0C0 K2304450 7B6A 1667 462 | DC /1667 K2304460 7B6B 0918 463 | AIFIX DC /0918 IFIX 0C8 K2304470 7B6C 99C0 464 | DC /99C0 K2304480 7B6D 064D 465 | AFLT DC /064D FLOAT 0D0 K2304490 7B6E 6063 466 | DC /6063 K2304500 7B6F 2666 467 | DC /2666 WRTYZ 0D8 K2304510 7B70 3A29 468 | DC /3A29 K2304520 7B71 23A1 469 | DC /23A1 TYPEZ 0E0 K2304530 7B72 7169 470 | DC /7169 K2304540 7B73 2224 471 | FIIF DC /2224 SIIF 0E8 K2304550 7B74 9180 472 | DC /9180 K2304560 7B75 2218 473 | FIF DC /2218 SFIF 0F0 K2304570 7B76 9180 474 | DC /9180 K2304580 7B77 221D 475 | FGOTO DC /221D SGOTO 0F8 K2304590 7B78 68D6 476 | DC /68D6 K2304600 7B79 0305 477 | DC /0305 CARDZ 100 K2304610 7B7A 9129 478 | DC /9129 K2304620 7B7B 1765 479 | DC /1765 PRNTZ 108 K2304630 7B7C 58E9 480 | DC /58E9 K2304640 7B7D 1705 481 | DC /1705 PAPTZ 110 K2304650 7B7E 78E9 482 | DC /78E9 K2304660 7B7F 260C 483 | FCHRI DC /260C WCHRI 118 2-1 K2304670 7B80 8649 484 | DC /8649 K2304680 7B81 2464 485 | DC /2464 URED 120 K2304690 7B82 5100 486 | DC /5100 K2304700 7B83 2499 487 | DC /2499 UWRT 128 K2304710 7B84 98C0 488 | DC /98C0 K2304720 7B85 240D 489 | DC /240D UCOMP 130 K2304730 7B86 6517 490 | DC /6517 K2304740 7B87 1914 491 | DC /1914 READZ 138 K2304750 7B88 1129 492 | DC /1129 K2304760 7B89 2264 493 | AERD DC /2264 SRED 140 K2304770 7B8A 5100 494 | DC /5100 K2304780 7B8B 2299 495 | DC /2299 SWRT 148 K2304790 7B8C 98C0 496 | DC /98C0 K2304800 7B8D 220D 497 | DC /220D SCOMP 150 K2304810 7B8E 6517 498 | DC /6517 K2304820 7B8F 2218 499 | AFIO DC /2218 SFIO 158 K2304830 7B90 9580 500 | DC /9580 K2304840 7B91 2225 501 | DC /2225 SIOAI 160 K2304850 7B92 6049 502 | DC /6049 K2304860 7B93 2225 503 | AIOAF DC /2225 SIOAF 168 K2304870 7B94 6046 504 | DC /6046 K2304880 7B95 2225 505 | DC /2225 SIOFX 170 K2304890 7B96 61A7 506 | DC /61A7 K2304900 7B97 2225 507 | DC /2225 SIOIX 178 K2304910 7B98 6267 508 | DC /6267 K2304920 7B99 2225 509 | DC /2225 SIOF 180 K2304930 7B9A 6180 510 | DC /6180 K2304940 7B9B 2225 511 | IOI DC /2225 SIOI 188 K2304950 7B9C 6240 512 | DC /6240 K2304960 7B9D 2290 513 | SUBSC DC /2290 SUBSC 190 K2304970 7B9E 2883 514 | DC /2883 K2304980 7B9F 1765 515 | DC /1765 PRNZ 198 K2304990 7BA0 5A40 516 | DC /5A40 K2305000 7BA1 020D 517 | BCKSP DC /020D BCKSP 1A0 K2305010 7BA2 2897 518 | DC /2897 K2305020 7BA3 0558 519 | EOF DC /0558 EOF 1A8 K2305030 7BA4 6000 520 | DC /6000 K2305040 7BA5 1916 521 | REWND DC /1916 REWND 1B0 K2305050 7BA6 6544 522 | DC /6544 K2305060 7BA7 228D 523 | DC /228D STOP 1B8 K2305070 7BA8 65C0 524 | DC /65C0 K2305080 7BA9 1706 525 | DC /1706 PAUSE 1C0 K2305090 7BAA 4885 526 | DC /4885 K2305100 7BAB 2255 527 | RSIGN DC /2255 SNR 1C8 K2305110 7BAC 9000 528 | DC /9000 K2305120 7BAD 2290 529 | DC /2290 SUBIN 1D0 K2305130 7BAE 2255 530 | DC /2255 K2305140 7BAF 2418 531 | DC /2418 UFIO 1D8 K2305150 7BB0 9580 532 | DC /9580 K2305160 7BB1 2425 533 | DC /2425 VIOAI 1E0 K2305170 7BB2 6049 534 | DC /6049 K2305180 7BB3 2425 535 | DC /2425 VIOAF 1E8 K2305190 7BB4 6046 536 | DC /6046 K2305200 7BB5 2425 537 | DC /2425 UIOFX 1F0 K2305210 7BB6 61A7 538 | DC /61A7 K2305220 7BB7 2425 539 | DC /2425 UIOIX 1F8 K2305230 7BB8 6267 540 | DC /6267 K2305240 7BB9 2425 541 | DC /2425 UIOF 200 K2305250 7BBA 6180 542 | DC /6180 K2305260 7BBB 2425 543 | DC /2425 UIOI 208 K2305270 7BBC 6240 544 | DC /6240 K2305280 7BBD 2210 545 | MDFIO DC /2210 SDFIO 210 K2305290 7BBE 6256 546 | DC /6256 K2305300 7BBF 2211 547 | DC /2211 SDRED 218 K2305310 7BC0 9144 548 | DC /9144 K2305320 7BC1 2212 549 | DC /2212 SDWRT 220 K2305330 7BC2 6663 550 | DC /6663 K2305340 7BC3 2210 551 | DC /2210 SDCOM 228 K2305350 7BC4 3594 552 | DC /3594 K2305360 7BC5 0000 553 | DC 0 RESERVED TO KEEP CODE K2305370 7BC6 0000 554 | DC 0 DIFFERENCE CONSTANT K2305380 555 | * BETWEEN DISK I/O K2305390 556 | * ROUTINES AND OTHERS K2305400 7BC7 2210 557 | DC /2210 SDAI 238 K2305410 7BC8 1240 558 | DC /1240 K2305420 7BC9 2210 559 | DC /2210 SDAF 240 K2305430 7BCA 1180 560 | DC /1180 K2305440 7BCB 2210 561 | DC /2210 SDFX 248 K2305450 7BCC 69C0 562 | DC /69C0 K2305460 7BCD 2210 563 | DC /2210 SDIX 250 K2305470 7BCE 99C0 564 | DC /99C0 K2305480 7BCF 2210 565 | DC /2210 SDF 258 K2305490 7BD0 6000 566 | DC /6000 K2305500 7BD1 2210 567 | MDI DC /2210 SDI 260 K2305510 7BD2 9000 568 | DC /9000 K2305520 7BD3 2210 569 | MDFND DC /2210 SDFND 268 K2305530 7BD4 6544 570 | DC /6544 K2305540 7BD5 1754 571 | DC /1754 PNCHZ 270 K2305550 7BD6 3229 572 | DC /3229 K2305560 573 | * K2305570 7BD7 0000 574 | EOTAB DC /0000 NOT USED K2305580 7BD8 0000 575 | DC /0000 NOT USED K2305590 1130 FORTRAN COMPILER PHASE 23 577 | * K2305610 578 | * K2305620 579 | * K2305630 580 | ************************************************** K2305640 581 | * K2305650 582 | * K2305660 7BD9 C308 583 | L1041 LD 3 STP-Z TEST IF END OF SYMBOL TABLE K2305670 7BDA 9400 7A2A 584 | S L EOFST * K2305680 7BDC 4808 585 | BSC + SKIP IF NOT K2305690 7BDD 7012 586 | MDX L2011 BR IF END OF SYMBOL TABLE K2305700 7BDE C100 587 | LD 1 0 LOAD SYMBOL TABLE ID WORD K2305710 588 | * K2305720 589 | * TEST IF CONSTANT K2305730 590 | * (EXTENDED PREC CONST MAY HAVE BITS K2305740 591 | * IN ID-WORD TO MAKE IT SIMILAR TO K2305750 592 | * SUBPROGRAM NAMES) K2305760 7BDF 4C28 7BEE 593 | BSC L L1045,+Z BR IF NOT CONSTANT OR NAME K2305770 594 | * K2305780 7BE1 E309 595 | AND 3 MASK2-Z K2305790 7BE2 4808 596 | BSC + SKIP IF SUBPROGR NAME K2305800 7BE3 700A 597 | MDX L1045 BR IF NOT K2305810 598 | * K2305820 599 | * TEST IF SUBPROGRAM NAME IS THE K2305830 600 | * NAME OF THE COMPILED SUBPROGRAM K2305840 601 | * ITSELF K2305850 602 | * (HAS /FFFF IN LAST WORD) K2305860 603 | * IN THAT CASE DO NOT PRINT K2305870 604 | * K2305880 7BE4 C102 605 | LD 1 2 LOAD NAME WORD 2 K2305890 7BE5 8301 606 | A 3 1 K2305900 7BE6 4818 607 | BSC +- SKIP IF DIFF K2305910 7BE7 7006 608 | MDX L1045 BR IF SAME K2305920 609 | * K2305930 610 | * TEST IF ARITH STMT FUNCT NAME K2305940 611 | * IN THAT CASE DO NOT PRINT K2305950 612 | * K2305960 7BE8 C100 613 | LD 1 0 LOAD SYMBOL TABLE ID WORD K2305970 7BE9 E306 614 | AND 3 H0100-Z K2305980 7BEA 4C20 7BEE 615 | BSC L L1045,Z BR IF ARITH SMT FUNCT NAME K2305990 616 | * K2306000 617 | * GET NAME FROM SYMBOL TABLE K2306010 618 | * MOVE NAME TO PRINT AREA K2306020 619 | * K2306030 7BEC 4400 7CB9 620 | BSI L MNAME MOVE NAME TO PRINT AREA K2306040 621 | * K2306050 622 | * K2306060 7BEE 43F0 623 | L1045 BSI 3 MSTP-Z INCR SYMBOL TABLE POINTER K2306070 7BEF 70E9 624 | MDX L1041 GO CHECK NEXT ENTRY K2306080 625 | * K2306090 626 | * K2306100 7BF0 6580 7A24 627 | L2011 LDX I1 SOFS INITIALIZE STRING POINTER K2306110 628 | * K2306120 7BF2 C100 629 | L2012 LD 1 0 LOAD STATEMENT ID WORD K2306130 7BF3 E30C 630 | AND 3 MASK5-Z EXTRACT ID K2306140 7BF4 D30F 631 | STO 3 STID-Z STORE ID K2306150 7BF5 C100 632 | LD 1 0 LOAD STATEMENT ID WORD K2306160 7BF6 E30D 633 | AND 3 MASK6-Z EXTRACT NORM K2306170 7BF7 D30E 634 | STO 3 NRM-Z STORE NORM K2306180 7BF8 43E8 635 | BSI 3 MOVEP-Z MOVE POINTER K2306190 636 | * K2306200 637 | * TEST IF END-STATEMENT K2306210 7BF9 C30F 638 | L2021 LD 3 STID-Z LOAD STATEMENT ID K2306220 7BFA 9311 639 | S 3 ENDID-Z TEST IF .END. K2306230 7BFB 4C18 7C3B 640 | BSC L L2041,+- BR IF .END. K2306240 641 | * K2306250 642 | * K2306260 643 | * TEST TO FIND STATEMENTS THAT K2306270 644 | * CONSIST OF ONE WORD ONLY K2306280 645 | * K2306290 7BFD C30E 646 | LD 3 NRM-Z K2306300 7BFE 4C18 7BF2 647 | BSC L L2012,+- BR IF ONE-WD STMT K2306310 648 | * K2306320 649 | * K2306330 7C00 C30F 650 | LD 3 STID-Z LOAD STATEMENT ID K2306340 7C01 9310 651 | S 3 FTEST-Z TEST IF FORMAT-STATEMENT K2306350 7C02 4C18 7C14 652 | BSC L L2022,+- BR IF FORMAT-STATEMENT K2306360 653 | * K2306370 654 | * TEST IF LOADER-OVERLAY SMT K2306380 655 | * IN A SUBPROGRAM K2306390 656 | * OR DEFINE FILE, DATA K2306400 657 | * K2306410 7C04 C30F 658 | LD 3 STID-Z LOAD STATEMENT ID K2306420 7C05 9322 659 | S 3 DFILE-Z K2306430 7C06 4C18 7C14 660 | BSC L L2022,+- BR IF DEFINE FILE K2306440 7C08 9323 661 | S 3 DATA-Z K2306450 7C09 4C18 7C14 662 | BSC L L2022,+- BR IF DATA-STMT K2306460 663 | * K2306470 7C0B C30F 664 | LD 3 STID-Z LOAD STATEMENT ID K2306480 7C0C 9320 665 | S 3 HD800-Z K2306490 7C0D 4C20 7C19 666 | BSC L L2031,Z BR IF STMT-ID .NE. D800 K2306500 7C0F C400 7A30 667 | LD L SORF K2306510 7C11 4C20 7C14 668 | BSC L L2022,Z BR IF LOADER-OVERLAY STMT K2306520 7C13 7005 669 | MDX L2031 BR IF NOT K2306530 670 | * K2306540 671 | * K2306550 672 | * MOVE POINTER TO NEXT STATEMENT K2306560 673 | * K2306570 7C14 C30E 674 | L2022 LD 3 NRM-Z LOAD NORM K2306580 7C15 4C18 7BF2 675 | BSC L L2012,+- BRANCH IF NORM = ZERO K2306590 7C17 43E8 676 | BSI 3 MOVEP-Z MOVE POINTER K2306600 7C18 70FB 677 | MDX L2022 BR, MOVE NOT COMPLETE K2306610 678 | * K2306620 679 | * K2306630 7C19 C100 680 | L2031 LD 1 0 LD SYMBOL TABLE PT WORD K2306640 7C1A 4810 681 | BSC - SKIP IF PACKED INSTR OR NAME K2306650 7C1B 7011 682 | MDX L2033 BR IF NOT K2306660 7C1C E31A 683 | AND 3 H7800-Z K2306670 7C1D 4C18 7C28 684 | BSC L L2032,+- BR IF NAME K2306680 685 | * K2306690 686 | * CHANGE PACKED INSTRUCTION IF K2306700 687 | * NAME REFERS TO DIMENSIONED K2306710 688 | * VARIABLE K2306720 689 | * K2306730 7C1F C100 690 | LD 1 0 LD SYMBOL TABLE PT WORD K2306740 7C20 4400 7ADE 691 | BSI L GETST GET SYMBOL TABLE ID WORD K2306750 7C22 E312 692 | AND 3 H1800-Z TEST FOR DIMENSIONED VAR K2306760 7C23 4C18 7C28 693 | BSC L L2032,+- BR IF NOT DIMENSIONED K2306770 694 | * K2306780 695 | * CHANGE INSTRUCTION CODE K2306790 696 | * (FROM LDL TO LDL1 ETC) K2306800 697 | * WAS NOT DONE IN MACRO 1 BECAUSE K2306810 698 | * THE PHASE WAS SPACE CRITICAL K2306820 699 | * K2306830 7C25 C100 700 | LD 1 0 LOAD STRING WORD K2306840 7C26 EB1F 701 | OR 3 H4000-Z MODIFY INSTRUCTION CODE K2306850 7C27 D100 702 | STO 1 0 SAVE BACK IN STRING K2306860 703 | * K2306870 704 | * K2306880 7C28 43E8 705 | L2032 BSI 3 MOVEP-Z MOVE STRING POINTER K2306890 7C29 C30E 706 | LD 3 NRM-Z LOAD STMNT NORM K2306900 7C2A 4C20 7C19 707 | BSC L L2031,Z BR IF NORM NOT ZERO K2306910 7C2C 70C5 708 | MDX L2012 BR IF NORM ZERO K2306920 709 | * K2306930 710 | * K2306940 7C2D C100 711 | L2033 LD 1 0 LOAD STMNT ID WORD K2306950 7C2E 1001 712 | SLA 1 SHIFT TEST BIT TO SIGN K2306960 7C2F 4C10 7C5F 713 | BSC L L3011,- BR IF .CALL. K2306970 714 | * K2306980 715 | * TEST IF HARDW-INSTR CODE K2306990 716 | * REFERS TO .SPEC BSC L. K2307000 717 | * IF SO, MOVE POINTER ONE WORD K2307010 718 | * EXTRA (SPEC BSC L IS FOLLOWED K2307020 719 | * BY A DISPLACEMENT VALUE RATHER K2307030 720 | * THAN A NAME K2307040 721 | * K2307050 7C31 C100 722 | LD 1 0 LOAD STRING WORD K2307060 7C32 931E 723 | S 3 H5D00-Z SUBTRACT SPECIAL BSC CODE K2307070 7C33 4C18 7C39 724 | BSC L L2034,+- BR IF SPECIAL BSC FOUND K2307080 725 | * K2307090 726 | * K2307100 7C35 C100 727 | LD 1 0 LOAD STRING WORD K2307110 7C36 9315 728 | S 3 H5B00-Z SUBTRACT LDX L1 CODE K2307120 7C37 4C20 7C28 729 | BSC L L2032,Z BR IF NOT LDXL1 K2307130 730 | * K2307140 731 | * K2307150 7C39 43E8 732 | L2034 BSI 3 MOVEP-Z MOVE POINTER BY 1 K2307160 7C3A 70ED 733 | MDX L2032 CONTINUE K2307170 734 | * K2307180 735 | * K2307190 7C3B 6500 FF62 736 | L2041 LDX L1 TABSS-EOTAB-2 LD SIZE OF PR TBL 2-8 K2307200 7C3D C400 7A31 737 | LD L CCWD LD CONTROL CARD WORD K2307210 7C3F 100B 738 | SLA 11 TEST TO LIST SUBPROG NAME K2307220 7C40 4C10 7D2C 739 | BSC L EXIT,- BR IF LISTING NOT REQUIRED K2307230 7C42 7102 740 | L2042 MDX 1 2 INCR COUNT OF NAMES K2307240 7C43 700E 741 | MDX L2044 BR TO LIST NAME IF CNT NE 0 K2307250 742 | * K2307260 743 | * (SKIP OCCURS AT END OF LIST) K2307270 744 | * K2307280 745 | * TEST IF HALF FILLED LINE REMAINS K2307290 746 | * TO BE PRINTED K2307300 747 | * K2307310 7C44 C400 7D0F 748 | LD L PCNT LOAD PRINT CHAR COUNT K2307320 7C46 4C18 7D2C 749 | BSC L EXIT,+- BR IF PRINT COUNT ZERO K2307330 7C48 1801 750 | SRA 1 DIVIDE BY 2 K2307340 7C49 D400 7A38 751 | STO L WDCNT SAVE IN WORD COUNT K2307350 7C4B C3FD 752 | LD 3 PAPIN-Z FET PR AREA POINTER START K2307360 7C4C D400 7E0D 753 | STO L AREA SAVE FOR PRINT SUBROUTINE K2307370 7C4E 4400 7E0E 754 | BSI L PRINT PRINT LAST LINE K2307380 7C50 4C00 7D2C 755 | BSC L EXIT BR TO EXIT THIS PHASE K2307390 756 | * K2307400 757 | * PRINT .TAGGED. SYSTEM SUBROUTINE K2307410 758 | * NAMES K2307420 759 | * K2307430 7C52 C500 7BD7 760 | L2044 LD L1 EOTAB LOAD NAME FROM TABLE K2307440 7C54 4810 761 | BSC - SKIP IF SUBR NAME .TAGGED. K2307450 7C55 70EC 762 | MDX L2042 BR IF NOT K2307460 7C56 7500 7BD6 763 | MDX L1 EOTAB-1 INCR INDEX SO NAME AT XR1+1 K2307470 7C58 1000 764 | SLA 0 NOP, IF SIGN CHANGE K2307480 7C59 4400 7CB9 765 | BSI L MNAME MOVE NAME TO PRINT AREA K2307490 7C5B 7500 842A 766 | MDX L1 -EOTAB+1 RESET XR1 K2307500 7C5D 1000 767 | SLA 0 NOP K2307510 7C5E 70E3 768 | MDX L2042 BR BACK TO SEARCH LIST K2307520 769 | * K2307530 770 | * TWO-WORD SUBPROGRAM CALL K2307540 771 | * OR SYSTEMS SUBR CALL ENCOUNTERED. K2307550 772 | * K2307560 7C5F C100 773 | L3011 LD 1 0 LOAD STRING WORD K2307570 7C60 1807 774 | SRA 7 SHIFT TO TEST FOR 2-WD CALL K2307580 775 | * K2307590 7C61 4C18 7CAF 776 | BSC L L3051,+- BR IF TWO-WORD CALL K2307600 777 | * K2307610 778 | * THIS IS A SYSTEMS SUBROUTINE CALL K2307620 779 | * K2307630 780 | * TEST IF LAST WORD IN STATEMENT K2307640 7C63 C30E 781 | LD 3 NRM-Z LOAD STORED NORM K2307650 7C64 9304 782 | S 3 FOUR-Z SUBTRACT 1 FROM NORM COUNT K2307660 7C65 4C08 7C7A 783 | BSC L L3012,+ BR IF LAST K2307670 784 | * K2307680 785 | * TEST IF .CALL SUBIN. K2307690 786 | * TEST MUST BE MADE HERE SINCE ITS K2307700 787 | * FOLLOWING ARGUMENTS COULD BE K2307710 788 | * MISTAKEN FOR DIMENSIONED K2307720 789 | * VARIABLE NAMES, AT OCCASION K2307730 790 | * K2307740 7C67 C100 791 | LD 1 0 LOAD STRING WORD K2307750 7C68 931B 792 | S 3 H1D00-Z SUBTRACT .SUBIN. CODE K2307760 7C69 4C18 7C7A 793 | BSC L L3012,+- BR IF .SUBIN. K2307770 794 | * K2307780 795 | * K2307790 796 | * IF FOLLOWED BY A DIMENSIONED NAME, K2307800 797 | * INCREMENT CALL CODE K2307810 798 | * CORRECTION DONE HERE BECAUSE K2307820 799 | * MACRO 1 PHASE APPROACHING CRITICAL K2307830 800 | * SIZE K2307840 801 | * K2307850 7C6B C101 802 | LD 1 1 GET NEXT WORD OF STRING K2307860 7C6C 4C10 7C7A 803 | BSC L L3012,- BR IF NOT FOLLOWED BY K2307870 804 | * *NAME OR PACKED INSTRUCTION K2307880 7C6E E31A 805 | AND 3 H7800-Z MASK NAME BITS K2307890 7C6F 4C20 7C7A 806 | BSC L L3012,Z BR IF PACKED INSTR K2307900 807 | * K2307910 808 | * TEST IF NAME DIMENSIONED K2307920 7C71 C101 809 | LD 1 1 GET STRING WD K2307930 7C72 4400 7ADE 810 | BSI L GETST BR TO GET SYMBOL TABLE ID WD K2307940 7C74 E312 811 | AND 3 H1800-Z MASK ALL BUT DIMENSION BITS K2307950 7C75 4C18 7C7A 812 | BSC L L3012,+- BR IF NAME NOT DIMENSIONED K2307960 813 | * K2307970 814 | * NAME IS DIMENSIONED, K2307980 815 | * CHANGE CALL CODE K2307990 816 | * K2308000 7C77 C100 817 | LD 1 0 LOAD STRING WORD K2308010 7C78 8318 818 | A 3 H0080-Z MASK IN DIMENSION BITS K2308020 7C79 D100 819 | STO 1 0 SAVE IN STRING K2308030 820 | * K2308040 821 | * K2308050 822 | * TAG SYSTEMS SUBROUTINE NAME IN TABLE K2308060 823 | * K2308070 7C7A C100 824 | L3012 LD 1 0 LD STRING WD K2308080 7C7B 1806 825 | SRA 6 RIGHT JUSTIFY POINTER K2308090 7C7C D001 826 | STO L3013+1 SAVE POINTER TO SUBR TABLE K2308100 7C7D 6600 0000 827 | L3013 LDX L2 *-* PUT POINTER IN XR2 K2308110 7C7F 43E0 828 | BSI 3 TAGSR-Z BR TO FLAG SUBR TABLE ENTRY K2308120 829 | * K2308130 830 | * TEST IF SYSTEM SUBROUTINE K2308140 831 | * HAS SPECIAL ARGUMENT LIST TO K2308150 832 | * MOVE POINTER PAST THIS ARG LIST K2308160 833 | * K2308170 7C80 C100 834 | LD 1 0 LOAD STRING WORD K2308180 7C81 931C 835 | S 3 H1600-Z TEST FOR CALL FIOAI K2308190 7C82 4C18 7CA3 836 | BSC L L3015,+- BR IF CALL FIOAI K2308200 837 | * K2308210 7C84 C100 838 | LD 1 0 LOAD STRING WORD K2308220 7C85 931D 839 | S 3 H1680-Z TEST FOR CALL FIOAF K2308230 7C86 4C18 7CA3 840 | BSC L L3015,+- BR IF CALL FIOAF K2308240 841 | * K2308250 7C88 C100 842 | LD 1 0 LOAD STRING WORD K2308260 7C89 931B 843 | S 3 H1D00-Z TEST FOR CALL SUBIN K2308270 7C8A 4C18 7CA7 844 | BSC L L3041,+- BR IF CALL SUBIN K2308280 845 | * K2308290 7C8C C100 846 | LD 1 0 LOAD STRING WORD K2308300 7C8D 9313 847 | S 3 H1900-Z TEST FOR CALL SUBSC K2308310 7C8E 4C18 7C9B 848 | BSC L HERE,+- BR IF NOT CALL SUBSC K2308320 7C90 C100 849 | LD 1 0 LOAD STRING WORD K2308330 7C91 9314 850 | S 3 H1E00-Z TEST FOR CALL UIOA2 K2308340 7C92 4820 851 | BSC Z SKIP IF FOUND K2308350 7C93 9318 852 | S 3 H0080-Z TEST FOR CALL UIOAI K2308360 7C94 4820 853 | BSC Z SKIP IF FOUND K2308370 7C95 9316 854 | S 3 H0500-Z TEST FOR CALL SDAI K2308380 7C96 4820 855 | BSC Z SKIP IF FOUND K2308390 7C97 9318 856 | S 3 H0080-Z TEST FOR CALL SDAF K2308400 7C98 4C20 7C28 857 | BSC L L2032,Z NO MATCH, BR TO MOVE PT K2308410 7C9A 7008 858 | MDX L3015 BR TO MOVE PT PAST 2 WDS K2308420 859 | * K2308430 860 | * MOVE POINTER PAST ARGUMENT LIST K2308440 861 | * OF .CALL SUBSC. K2308450 862 | * K2308460 7C9B 43E8 863 | HERE BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308470 7C9C 43E8 864 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308480 7C9D 43E8 865 | L3042 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308490 7C9E 43E8 866 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308500 7C9F C100 867 | LD 1 0 LOAD STRING WD K2308510 7CA0 4C28 7C28 868 | BSC L L2032,Z+ BR IF PAST ARGUMENT STRING K2308520 7CA2 70FA 869 | MDX L3042 BR IF NOT K2308530 870 | * K2308540 871 | * K2308550 872 | * MOVE POINTER PAST TWO ARGUMENTS K2308560 873 | * K2308570 7CA3 43E8 874 | L3015 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308580 7CA4 43E8 875 | BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308590 7CA5 4C00 7C28 876 | BSC L L2032 CONTINUE K2308600 877 | * K2308610 878 | * MOVE POINTER BY ARGUMENTS K2308620 7CA7 1000 879 | L3041 SLA 0 NOP K2308630 7CA8 43E8 880 | L3016 BSI 3 MOVEP-Z MOVE POINTER 1 WORD K2308640 7CA9 C100 881 | LD 1 0 LOAD STRING WORD K2308650 7CAA 9301 882 | S 3 ONE-Z SUB END-OF-LIAT INDR (=1) K2308660 7CAB 4C20 7CA8 883 | BSC L L3016,Z BR IF NOT END OF K2308670 884 | * *ARGUMENT LIST K2308680 7CAD 4C00 7C28 885 | BSC L L2032 BR IF END OF ARGUMENT LIST K2308690 886 | * K2308700 887 | * TWO-WORD CALL ENCOUNTERED K2308710 888 | * IF CALL IS TO ARITH STMNT FUNCTION K2308720 889 | * CHANGE TO BSI L K2308730 890 | * K2308740 7CAF C101 891 | L3051 LD 1 1 LOAD STRING WD +1 K2308750 7CB0 4400 7ADE 892 | BSI L GETST BR TO GET SYM TBL ID WD K2308760 7CB2 E316 893 | AND 3 H0500-Z MASK ARITH STMNT FUNC BIT K2308770 7CB3 4C08 7C28 894 | BSC L L2032,+ BR IF NOT ARITH STMNT FUNC K2308780 895 | * OR DUMMY VARIABLE NAME K2308790 7CB5 C321 896 | LD 3 H4700-Z CODE FOR .BSI L. K2308800 7CB6 D100 897 | STO 1 0 SAVE AS FIRST STRING WD K2308810 7CB7 4C00 7C28 898 | BSC L L2032 BR TO CONTINUE K2308820 899 | * K2308830 900 | * PRINT HEADER IF NECESSARY K2308840 901 | * BUILD PRINT LINE K2308850 902 | * K2308860 7CB9 0000 903 | MNAME DC 0 ENTRY POINT K2308870 7CBA 4400 7D13 904 | BSI L PBLNK BR TO PRINT BLANK LINE K2308880 7CBC 4400 7ACC 905 | BSI L HTEST BR TO PRINT HEADER K2308890 7CBE 0009 906 | DC 9 WD CNT AND HEADER TO PRINT K2308900 7CBF C3C1 D3D3 C5C4 40E2 907 | EBC .CALLED SUBPROGRAMS. K2308910 E4C2 D7D9 D6C7 D9C1 | D4E2 | 7CC8 6600 7CCA 908 | LDX L2 RWM-1 SET UP TO BR PAST HDR PR K2308920 7CCA 6AF0 909 | STX 2 MNAME+2 *AFTER FIRST PASS K2308930 7CCB 403E 910 | RWM BSI TOPAB BR TO PRINT BLANK CHAR K2308940 7CCC C101 911 | LD 1 1 GET SUBR NAME TO PRINT K2308950 7CCD 4031 912 | BSI TOPA BR TO CONVERT, MOVE 1ST CHAR K2308960 7CCE C101 913 | LD 1 1 GET SUBR NAME K2308970 7CCF 1006 914 | SLA 6 SHIFT 2ND CHAR K2308980 7CD0 402E 915 | BSI TOPA BR TO CONVERT, MOVE 2ND CHAR K2308990 7CD1 C102 916 | LD 1 2 GET 2ND WD OF SUBR NAME K2309000 7CD2 18D0 917 | RTE 16 SHIFT TO EXTENSION K2309010 7CD3 C101 918 | LD 1 1 GET 1ST WD OF SUBR NAME K2309020 7CD4 108C 919 | SLT 12 SHIFT BOTH REGS FOR 3RD CHAR K2309030 7CD5 4029 920 | BSI TOPA BR TO CONVERT, MOVE 3RD CHAR K2309040 7CD6 C102 921 | LD 1 2 GET 2ND WD OF SUBR NAME K2309050 7CD7 1002 922 | SLA 2 SHIFT 4TH CHAR K2309060 7CD8 4026 923 | BSI TOPA BR TO CONVERT, MOVE 4TH CHAR K2309070 7CD9 C102 924 | LD 1 2 GET 2ND WD OF SUBR NAME K2309080 7CDA 1008 925 | SLA 8 SHIFT 5TH CHAR K2309090 7CDB 4023 926 | BSI TOPA BR TO CONVERT, MOVE 5TH CHAR K2309100 7CDC 402D 927 | BSI TOPAB BR TO OUTPUT BLANK CHAR K2309110 7CDD 402C 928 | BSI TOPAB BR TO OUTPUT BLANK CHAR K2309120 929 | * K2309130 930 | * INCREMENT PRINT COUNT K2309140 7CDE C030 931 | LD PCNT LOAD PRINT COUNT K2309150 7CDF 8319 932 | A 3 H0008-Z INCR BY 8 CHARS K2309160 7CE0 D02E 933 | STO PCNT SAVE IN PRINT COUNT K2309170 934 | * K2309180 935 | * TEST IF LINE FULL K2309190 7CE1 93FF 936 | S 3 C120-Z SUBTRACT MAX NO. CHARS/LINE K2309200 7CE2 4CA8 7CB9 937 | BSC I MNAME,+Z RETURN IF LINE NOT FULL K2309210 7CE4 C3FD 938 | LD 3 PAPIN-Z LOAD PR AREA INT CONSTANT K2309220 7CE5 D3FE 939 | STO 3 PAP-Z RESET PR AREA POINTER K2309230 7CE6 D400 7E0D 940 | STO L AREA RESET START OF PR AREA K2309240 7CE8 C3FC 941 | LD 3 D60-Z GET CONSTANT 60 K2309250 7CE9 D400 7A38 942 | STO L WDCNT *TO SET UP PRINT WD COUNT K2309260 7CEB 4400 7E0E 943 | BSI L PRINT PRINT A LINE K2309270 7CED 1010 944 | SLA 16 CLEAR ACC K2309280 7CEE D020 945 | STO PCNT CLEAR PRINT COUNT K2309290 7CEF C480 0006 946 | LD I $CH12 TEST FOR CHANNEL 12 FOUND K2309300 7CF1 44A0 7E0C 947 | BSI I NEWPG,Z BR TO PAGE EJECT IF FOUND K2309310 7CF3 402A 948 | BSI BLKPA BR TO BLANK OUT THE PR AREA K2309320 7CF4 4C80 7CB9 949 | BSC I MNAME RETURN K2309330 950 | * K2309340 951 | * SUBROUTINE K2309350 952 | * CHAR IN ACC TO PRINT AREA UNCHANGED K2309360 953 | * K2309370 7CF6 0000 954 | TOPAU DC 0 LINK ENTRY POINT K2309380 7CF7 D01A 955 | STO STOCH SAVE CHAR TO PRINT K2309390 7CF8 C019 956 | TOPAX LD STOCH LD CHAR TO PRINT K2309400 7CF9 D480 7B15 957 | STO I PAP SAVE IN PRINT AREA K2309410 7CFB 7401 7B15 958 | MDX L PAP,1 MOVE PRINT AREA POINTER K2309420 7CFD 4C80 7CF6 959 | BSC I TOPAU RETURN K2309430 960 | * K2309440 961 | * SUBROUTINE K2309450 962 | * CONVERT CHAR IN ACC INTO K2309460 963 | * EBC-CODE, THEN MOVE TO PRINT AREA K2309470 964 | * K2309480 7CFF 0000 965 | TOPA DC 0 LINK K2309490 7D00 E00F 966 | AND H3F00 GET BITS 2-7 OF PR CHAR K2309500 7D01 4C18 7D08 967 | BSC L TOPA2,+- BR IF BLANK K2309510 968 | * K2309520 969 | * NOTE K2309530 970 | * IF OTHER SPECIAL CHARACTERS THAN K2309540 971 | * BLANK ARE EXPECTED, TESTING SHOULD K2309550 972 | * BE HERE K2309560 7D03 E80D 973 | OR HC000 OR IN BITS 0,1 OF PR CHAR K2309570 7D04 D00D 974 | TOPA1 STO STOCH SAVE CHAR TO PR IN EBC CODE K2309580 7D05 C0F9 975 | LD TOPA MOVE LINK K2309590 7D06 D0EF 976 | STO TOPAU SAVE IN COMMON OUTPUT AREA K2309600 7D07 70F0 977 | MDX TOPAX BR TO INCR PAP AND RETURN K2309610 7D08 C31F 978 | TOPA2 LD 3 H4000-Z LOAD EBC BLANK K2309620 7D09 70FA 979 | MDX TOPA1 BR TO OUTPUT IT K2309630 980 | * K2309640 7D0A 0000 981 | TOPAB DC 0 LINK ENTRY POINT K2309650 7D0B 1010 982 | SLA 16 CLEAR ACC K2309660 7D0C 40F2 983 | BSI TOPA BR TO OUTPUT EBC BLANK K2309670 7D0D 4C80 7D0A 984 | BSC I TOPAB RETURN K2309680 985 | * K2309690 986 | * CONSTANTS K2309700 7D0F 0000 987 | PCNT DC *-* COUNT OF CHARS TO PRINT K2309710 7D10 3F00 988 | H3F00 DC /3F00 CONSTANT MASK K2309720 7D11 C000 989 | HC000 DC /C000 CONSTANT MASK K2309730 7D12 0000 990 | STOCH DC *-* CHAR TO BE PRINTED K2309740 991 | * K2309750 992 | * SUBROUTINE K2309760 993 | * TO PRINT BLANK LINE K2309770 994 | * K2309780 7D13 0000 995 | PBLNK DC *-* LINK ENTRY POINT K2309790 7D14 C008 996 | LD PLBN2 LOAD SPACE PARAMETER K2309800 7D15 4400 7E45 997 | BSI L LSTPR SPACE PRINTER K2309810 998 | * K2309820 7D17 C480 0006 999 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2309830 7D19 44A0 7E0C 1000 | BSI I NEWPG,Z EJECT PAGE IF ON K2309840 1001 | * K2309850 7D1B 4C80 7D13 1002 | BSC I PBLNK RETURN K2309860 1003 | * K2309870 7D1D 7002 1004 | PLBN2 DC /7002 PRINTER SPACE PARAMETER K2309880 1005 | * K2309890 7D1E 0000 1006 | BLKPA DC *-* CLEAR THE PRINT AREA ENTRY K2309900 7D1F C31F 1007 | LD 3 H4000-Z LOAD EBC BLANK K2309910 7D20 6780 7A38 1008 | LDX I3 WDCNT PUT WORD COUNT XR3 K2309920 7D22 7780 7A38 1009 | MDX I3 WDCNT INCR WORD CNT BY SAME AMT K2309930 7D24 D700 7A38 1010 | BLKP STO L3 PAREA-1 SAVE BLANK IN PR AREA K2309940 7D26 73FF 1011 | MDX 3 -1 DECR COUNT OF NO. BLANKS K2309950 7D27 70FC 1012 | MDX BLKP LOOP IF PR AREA NOT FULL K2309960 7D28 6700 7B17 1013 | LDX L3 Z RESET XR3 TO CONSTANT PT K2309970 7D2A 4C80 7D1E 1014 | BSC I BLKPA RETURN K2309980 1015 | * K2309990 1016 | * EXIT ROUTINE K2310000 1017 | * K2310010 7D2C 1000 1018 | EXIT SLA 0 NOP K2310020 7D2D C480 0006 1019 | LD I $CH12 LOAD CHANNEL 12 SW K2310030 7D2F 44A0 7E0C 1020 | BSI I NEWPG,Z IF END OF PAGE, RESTORE PAGE K2310040 1021 | * K2310050 1022 | * K2310060 7D31 6580 7D37 1023 | LDX I1 NXTPH+1 LOAD PARAMETER FOR READING K2310070 7D33 C804 1024 | LDD NXTPH+2 *NEXT PHASE K2310080 7D34 4C00 7FBC 1025 | BSC L ROL GO TO READ NEXT PHASE K2310090 7D36 1026 | BSS E 0 K2310100 7D36 0036 1027 | NXTPH DC 54 ID OF NEXT PHASE K2310110 7D37 0000 1028 | DC *-* CORE ADDRESS NEXT PHASE K2310120 7D38 0000 1029 | DC *-* WORD COUNT NEXT PHASE K2310130 7D39 0000 1030 | DC *-* SECTOR ADDRESS NEXT PHASE K2310140 1031 | * K2310150 7D3A 1032 | BSS BPHAR+320*PHLEN-*-1 PATCH AREA 2-6 K2310160 1033 | * K2310170 7DF5 0000 1034 | DC 0 K2310180 7DF6 1035 | END BPHAR-2 K2310190 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $CH12 0006 73 280 946 999 1019 $PHSE 0078 65 144 AERD 7B89 493 AFIO 7B8F 499 AFLT 7B6D 465 AIFIX 7B6B 463 AIOAF 7B93 503 AREA 7E0D 76 753 940 BCKSP 7BA1 517 BLKP 7D24 1010 1012 BLKPA 7D1E 1006 948 1014 BPHAR 7A36 126 1032 1035 C120 7B16 372 936 CCWD 7A31 99 167 184 194 204 214 248 263 737 CM3 7B22 387 359 COMON 7A2B 91 CSIZE 7A2C 92 D60 7B13 369 941 DATA 7B3A 411 661 DFCNT 7A33 120 DFILE 7B39 410 659 DIFF 7AEE 329 237 332 ENDID 7B28 393 639 ENT 7A3D 143 132 EOF 7BA3 519 EOFS 7A25 85 EOFST 7A2A 90 584 EOTAB 7BD7 574 736 760 763 766 ERROR 7A2D 93 145 EXIT 7D2C 1018 146 739 749 755 FARI 7B63 455 238 FARIX 7B65 457 240 FAXIX 7B5D 449 225 FCHRI 7B7F 483 230 FGOTO 7B77 475 FIAR 7B67 459 FIARX 7B69 461 FIF 7B75 473 242 FIIF 7B73 471 FNAME 7A2E 96 FOUR 7B1B 378 379 782 FTEST 7B27 392 651 FTOE 7AEF 330 226 231 239 241 243 335 GETS1 7AEA 319 312 314 315 316 318 GETST 7ADE 309 311 320 691 810 892 H0004 7B1B 379 236 H0008 7B30 401 932 H0080 7B2F 400 818 852 856 H00C7 7B2E 399 168 H0100 7B1D 382 614 H0500 7B2D 398 854 893 H07FF 7B1C 380 310 H1600 7B33 404 835 H1680 7B34 405 839 H1800 7B29 394 692 811 H1900 7B2A 395 847 H1D00 7B32 403 792 843 H1E00 7B2B 396 850 H3F00 7D10 988 966 H4000 7B36 407 701 978 1007 H4700 7B38 409 896 H5B00 7B2C 397 728 H5D00 7B35 406 723 H7800 7B31 402 683 805 H8000 7B1E 383 343 HC000 7D11 989 973 HD800 7B37 408 665 HEAD 7F8B 70 71 HERE 7C9B 863 848 HTES1 7ADD 297 285 HTEST 7ACC 278 176 187 197 207 217 251 258 283 290 291 905 IOCS 7A32 108 164 256 IOI 7B9B 511 K1010 7A50 175 166 K1020 7A5E 184 K1021 7A6D 194 186 K1031 7A7E 204 196 K1051 7A8F 214 206 L1022 7AA0 226 228 L1025 7AAD 248 216 L1030 7AB8 256 250 L1035 7AC1 263 169 257 L1041 7BD9 583 273 624 L1045 7BEE 623 593 597 608 615 L2011 7BF0 627 265 586 L2012 7BF2 629 647 675 708 L2021 7BF9 638 L2022 7C14 674 652 660 662 668 677 L2031 7C19 680 666 669 707 L2032 7C28 705 684 693 729 733 857 868 876 885 894 898 L2033 7C2D 711 682 L2034 7C39 732 724 L2041 7C3B 736 640 L2042 7C42 740 762 768 L2044 7C52 760 741 L3011 7C5F 773 713 L3012 7C7A 824 783 793 803 806 812 L3013 7C7D 827 826 L3015 7CA3 874 836 840 858 L3016 7CA8 880 883 L3041 7CA7 879 844 L3042 7C9D 865 869 L3051 7CAF 891 776 LSTPR 7E45 75 286 997 MASK2 7B20 385 595 MASK3 7B21 386 357 MASK5 7B23 388 630 MASK6 7B24 389 633 MDFIO 7BBD 545 MDFND 7BD3 569 MDI 7BD1 567 MEMRY 8000 62 63 64 MNAME 7CB9 903 620 765 909 937 949 MOVEP 7AFF 347 352 635 676 705 732 863 864 865 866 874 875 880 MSTP 7B07 355 364 623 NEQ 7A36 132 156 NEWPG 7E0C 72 74 76 281 947 1000 1020 NRM 7B25 390 350 634 646 674 706 781 NXTPH 7D36 1027 129 1023 1024 ONE 7B18 375 292 882 ORG 7A23 83 OVERL 7A23 63 80 OVERP 7E42 71 72 75 PAEND 7AB0 141 PAP 7B15 371 939 957 958 PAPIN 7B14 370 752 938 PAREA 7A39 136 141 370 371 1010 PBLNK 7D13 995 175 904 1002 PCNT 7D0F 987 748 931 933 945 PHID 0035 67 143 PHLEN 0003 77 1032 PLBN2 7D1D 1004 996 PRINT 7E0E 74 754 943 REWND 7BA5 521 ROL 7FBC 64 70 1025 RSIGN 7BAB 527 RWM 7CCB 910 908 SOFGT 7A29 89 SOFNS 7A27 87 SOFS 7A24 84 627 SOFST 7A26 86 267 313 SOFXT 7A28 88 SORF 7A30 98 667 STID 7B26 391 631 638 650 658 664 STOCH 7D12 990 955 956 974 STP 7B1F 384 268 361 362 363 583 SUBSC 7B9D 513 TABSS 7B3B 415 225 230 238 240 242 331 334 342 344 736 TAGSR 7AF7 341 345 828 THREE 7B1A 377 TOPA 7CFF 965 912 915 920 923 926 975 983 TOPA1 7D04 974 979 TOPA2 7D08 978 967 TOPAB 7D0A 981 910 927 928 984 TOPAU 7CF6 954 959 976 TOPAX 7CF8 956 977 TWO 7B19 376 WDCNT 7A38 135 751 942 1008 1009 Z 7B17 373 155 168 226 231 236 239 241 243 292 310 343 357 359 361 362 374 583 595 614 623 630 631 633 634 635 638 639 646 650 651 658 659 661 664 665 674 676 683 692 701 705 706 723 728 732 752 781 782 792 805 811 818 828 835 839 843 847 850 852 854 856 863 864 865 866 874 875 880 882 893 896 932 936 938 939 941 978 1007 1013 ZERO 7B17 374