ibm:ibm1130-lib:dmsr2v12:kforph20_lst
KFORPH20
| Table Of Contents |
|---|
|
- kforph20.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph20.asm 1130 FORTRAN COMPILER PHASE 20 2 | *************************************************** K2000020 3 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2000030 4 | * * K2000040 5 | *FUNCTION/OPERATION- * K2000050 6 | * * INSERTS ERRORS 65, 66, AND/OR 67 ONTO 2-11 K2000060 7 | * INPUT STRING, IF ANY WERE DETECTED IN 2-11 K2000070 8 | * PH19 AND CARRIED FORWARD 2-11 K2000080 9 | * * SEARCHES INPUT STRING FOR DATA STATEMENTS2-11 K2000090 10 | * IN ERROR 2-11 K2000100 11 | * * INSERTS A LINE COUNT VALUE(LEFT JUST- 2-11 K2000110 12 | * IFIED) IN THE ERROR NUMBER OF A STATE- 2-11 K2000120 13 | * MENT IN ERROR - UNTIL A LABLED STATEMENT 2-11 K2000130 14 | * IS ENCOUNTERED 2-11 K2000140 15 | * * LISTS ANY ERROR THAT WERE DETECTED DURING * K2000160 16 | * THE COMPILATION PROCESS. * K2000170 17 | * * REARRANGING THE STATEMENT STRING IF THERE * K2000180 18 | * WERE NO ERRORS DETECTED. * K2000190 19 | * * K2000200 20 | *ENTRY POINTS- * K2000210 21 | * * NEQ -THIS PHASE IS ENTERED VIA A CALL TO * K2000220 22 | * THE ROL SUBROUTINE FROM PHASE 19. * K2000230 23 | * * K2000240 24 | *INPUT- * K2000250 25 | * * STATEMENT STRING * K2000260 26 | * * SYMBOL TABLE * K2000270 27 | * * FCOM * K2000280 28 | * * K2000290 29 | *OUTPUT- * K2000300 30 | * * PRINTED ERROR MESSAGES IF ANY * K2000310 31 | * * STATEMENT STRING * K2000320 32 | * * SYMBOL TABLE * K2000330 33 | * * FCOM * K2000340 34 | * * K2000350 35 | *EXTERNAL REFERENCES- * K2000360 36 | * SUBROUTINES * K2000370 37 | * * ROL - INTERPHASE ROLLER SUBR ENTRY * K2000380 38 | * * NEWPG- PAGE EJECT SUBR INDIRECT ENTRY * K2000390 39 | * * PRINT- PRINT CONTROL SUBR ENTRY * K2000400 40 | * * LSTPR- PRINCIPAL PRINT SUBR ENTRY * K2000410 41 | * COMMA/DCOM * K2000420 42 | * * PHASE- NO.OF PHASE NOW IN CORE * K2000430 43 | * * CHN12- CHANNEL 12 INDICATOR * K2000440 44 | * * K2000450 45 | *EXITS- * K2000460 46 | * NORMAL- * K2000470 47 | * EXIT IS MADE VIA A CALL TO THE ROL SUBR * K2000480 48 | * ERROR- * K2000490 49 | * NONE * K2000500 50 | * * K2000510 51 | *TABLES/WORK AREAS * K2000520 52 | * * FCOM * K2000530 53 | * * STRING AREA * K2000540 54 | * * SYMBOL TABLE AREA * K2000550 55 | * * AREA * K2000560 56 | * * PAREA * K2000570 57 | * * K2000580 58 | *ATTRIBUTES- * K2000590 59 | * NONE * K2000600 60 | * * K2000610 61 | *NOTES- * K2000620 62 | * ERRORS DETECTED BY THIS PHASE - 81 ALSO 2-11 K2000630 63 | * ERRORS 65, 66, AND 67 WHICH WERE DETECTED 2-11 K2000640 64 | * BY PHASE 19 ARE INSERTED INTO THE STRING 2-11 K2000650 65 | * * K2000660 66 | *************************************************** K2000670 67 | ABS K2000680 68 | * K2000690 69 | * SYSTEM EQUATES K2000700 8000 70 | MEMRY EQU /8000 K2000710 7A23 71 | OVERL EQU MEMRY-1501 START OF FCOM 2-4 K2000720 7FBC 72 | ROL EQU MEMRY-68 LOCN OF RTN TO READ NXT PH K2000730 0078 73 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2000740 74 | * K2000750 0032 75 | PHID EQU 50 ID NUMBER THIS PHASE K2000760 76 | * PRINT ROUTINE K2000770 7F8B 77 | HEAD EQU ROL-49 PAGE HEADER AREA K2000780 7E42 78 | OVERP EQU HEAD-327-2 DEVICE PRINT ROUTINE AREA K2000790 7E0C 79 | NEWPG EQU OVERP-54 INDIRECT ENTRY PAGE EJECT K2000800 7E0D 80 | AREA EQU NEWPG+1 MESSAGE ADDRESS K2000810 0006 81 | $CH12 EQU /06 CHANNEL 12 INDICATOR K2000820 82 | * K2000830 7E0E 83 | PRINT EQU NEWPG+2 PRINT INTERFACE RTN ENTRY K2000840 7E45 84 | LSTPR EQU OVERP+3 DEVICE PRINT ROUTINE ENTRY K2000850 7A23 85 | ORG OVERL K2000860 86 | * K2000870 87 | * FORTRAN COMMUNICATION AREA K2000880 7A23 88 | ORG BSS 1 ORIGIN ADDRESS 2-4 K2000890 7A24 89 | SOFS BSS 1 START OF STRING K2000900 7A25 90 | EOFS BSS 1 END OF STRING K2000910 7A26 91 | SOFST BSS 1 START OF SYMBOL TABLE K2000920 7A27 92 | SOFNS BSS 1 START OF NON-STATEMENT NUMBERS K2000930 7A28 93 | SOFXT BSS 1 SIZE OF WORK AREA (VAR AREA) K2000940 7A29 94 | SOFGT BSS 1 SIZE OF CONSTANTS AREA K2000950 7A2A 95 | EOFST BSS 1 END OF SYMBOL TABLE K2000960 7A2B 96 | COMON BSS 1 K2000970 7A2C 97 | CSIZE BSS 1 SIZE OF COMMON K2000980 7A2D 98 | ERROR BSS 1 ERROR FLAG K2000990 99 | * BIT 15 OVERLAP ERROR K2001000 100 | * BIT 14 OTHER ERROR K2001010 101 | * BIT 11 ORIGIN IN SUBPROGRAM 2-4 K2001020 102 | * BIT 9 INVALID ORIGIN 2-4 K2001030 7A2E 103 | FNAME BSS 1 PROGRAM NAME K2001040 7A2F 104 | BSS 1 K2001050 7A30 105 | SORF BSS 1 SUBROUTINE(-) OR FUNCTION(+) K2001060 7A31 106 | CCWD BSS 1 CONTROL CARD WORD K2001070 107 | * BIT 15 TRANSFER TRACE K2001080 108 | * BIT 14 ARITHMETIC TRACE K2001090 109 | * BIT 13 EXTENDED PRECISION K2001100 110 | * BIT 12 LIST SYMBOL TABLE K2001110 111 | * BIT 11 LIST SUBPROGRAM NAMES K2001120 112 | * BIT 10 LIST SOURCE PROGRAM K2001130 113 | * BIT 9 ONE WORD INTEGERS K2001140 114 | * BIT 8 ORIGIN 2-4 K2001150 7A32 115 | IOCS BSS 1 IOCS CONTROL CARD WORD K2001160 116 | * BIT 15 CARD K2001170 117 | * BIT 14 PAPER TAPE K2001180 118 | * BIT 13 TYPEWRITER K2001190 119 | * BIT 12 1403 PRINTER K2001200 120 | * BIT 11 2501 READER K2001210 121 | * BIT 10 KEYBOARD K2001220 122 | * BIT 9 1442 PUNCH K2001230 123 | * BIT 8 DISK K2001240 124 | * BIT 7 1132 PRINTER K2001250 125 | * BIT 3 PLOTTER K2001260 126 | * BIT 0 NOT AVAILABLE K2001270 7A33 127 | DFCNT BSS 1 DEFINE FILE COUNT K2001280 128 | * K2001290 129 | * K2001300 130 | * END OF FORTRAN COMMUNICATION K2001310 131 | * AREA K2001320 132 | *************************************************** K2001330 133 | * THE SWITCHES USED IN PHASE 21 FOLLOW K2001340 134 | * IF POSITIVE, THE SWITCH IS TRANSFER=T K2001350 135 | * IF ZERO, THE SWITCH IS NORMAL=N K2001360 136 | * SWITCH OUTFL K2001370 137 | * N= HEADER NOT PRINTED K2001380 138 | * T= HEADER ALREADY PRINTED K2001390 139 | * K2001400 7A36 140 | BPHAR EQU *+2 K2001410 7A34 0000 141 | DC 0 LOADER WORK AREA. K2001420 7A35 FFCE 142 | DC -50 -PHASE ID FOR SLET LOOKUP K2001430 7A36 039A 143 | DC NXTPH-*+1 TABLE FOR NEXT PHASE ENTRY K2001440 7A37 0001 144 | DC 1 ONE ENTRY TO BE SET BY LDR K2001450 7A36 145 | ORG *-2 K2001460 146 | * K2001470 147 | * OUTPUT STRING ERROR MESSAGES K2001480 148 | * PHASE K2001490 149 | * K2001500 150 | ************************************************** K2001510 7A36 4C00 7A3A 151 | NEQ BSC L ENT ENTRY, GO INITIALIZE K2001520 152 | * K2001530 153 | * K2001540 7A38 0000 154 | WDCNT DC *-* WORD COUNT FOR PRINT LINE K2001550 7A39 0000 155 | PAREA DC 0 PRINT AREA START K2001560 156 | * K2001570 7A3A 1000 157 | ENT NOP 2-11 K2001580 7A3B 6132 158 | LDX 1 PHID GET ID THIS PHASE 2-11 K2001590 7A3C 6D00 0078 159 | STX L1 $PHSE STORE INTO COMMA K2001600 160 | * K2001610 161 | * INITIALIZE TRANSFERVECTOR K2001620 7A3E 6700 7D45 162 | LDX L3 ZERO LOAD WORK AREA POINTER K2001630 7A40 6F00 7A36 163 | STX L3 NEQ SAVE FOR RE-INITIALIZATION K2001640 164 | * K2001650 165 | * CHECK FOR OVERLAP ERROR K2001660 7A42 C400 7A2D 166 | LD L ERROR K2001670 7A44 4C04 7BF1 167 | BSC L E2020,E BR IF OVERLAP ERROR K2001680 7A46 4C20 7BE9 168 | BSC L E2015,Z BRANCH IF ORG ERRORS 2-4 K2001690 169 | * K2001700 170 | * MAKE SIZE OF WORK AREA EVEN ADDRESS K2001710 7A48 C400 7A28 171 | LD L SOFXT LOAD WORK AREA START ADDR K2001720 7A4A 4804 172 | BSC E SKIP IF EVEN K2001730 7A4B 8301 173 | A 3 ONE-Z ADJUST TO AN EVEN ADDRESS K2001740 7A4C D400 7A28 174 | STO L SOFXT STORE IN WORK AREA POINTER K2001750 175 | * K2001760 176 | * SET HEADER TEST FOR K2001770 177 | * UNREFERENCED STATEMENT K2001780 178 | * K2001790 7A4E 6600 7CA9 179 | LDX L2 TEXT5 INITIALIZE TO PRINT PROPER K2001800 7A50 6E00 7D17 180 | STX L2 HTES1+1 *HEADER K2001810 7A52 C300 181 | LD 3 ZERO-Z K2001820 7A53 D30B 182 | STO 3 OUTFL-Z ZERO TO HEADER OUTP FLAG K2001830 183 | *************************************************** K2001840 184 | * K2001850 185 | * PROCESS INPUT STRING FOR DATA 2-11 K2001860 186 | * STATEMENTS IN ERROR AND REMOVE 2-11 K2001870 187 | * K2001880 188 | *************************************************** K2001890 7A54 C400 7A24 190 | LD L SOFS INITIALIZE POINTER 2-11 K2001910 7A56 D068 191 | STO IDADR SAVE AT ID ADRS 2-11 K2001920 192 | * K2001930 7A57 1000 193 | DTA10 NOP 2-11 K2001940 7A58 6580 7ABF 194 | LDX I1 IDADR START OF STRING 2-11 K2001950 7A5A C100 195 | LD 1 0 LOAD STMNT ID WORD 2-11 K2001960 7A5B E30E 196 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2001970 7A5C D30C 197 | STO 3 STSID-Z SAVE ID 2-11 K2001980 7A5D C100 198 | LD 1 0 LOAD STMNT ID WORD 2-11 K2001990 7A5E E30F 199 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2002000 7A5F 1802 200 | SRA 2 RE-ALIGN NORM 2-11 K2002010 7A60 D30D 201 | STO 3 NORM-Z SAVE NORM 2-11 K2002020 202 | * K2002030 203 | * TEST IF DATA OR END STATEMENT 2-11 K2002040 204 | * K2002050 7A61 C30C 205 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2002060 7A62 9309 206 | S 3 HF800-Z TEST IF DATA STMNT K2002070 7A63 4C18 7A6A 207 | BSC L DTA11,+- BRCH IF DATA ID 2-11 K2002080 7A65 C30C 209 | LD 3 STSID-Z CHECK FOR 2-11 K2002100 7A66 9311 210 | S 3 ENDID-Z AND BRCH IF 2-11 K2002110 7A67 4C18 7AC6 211 | BSC L REPAK,+- END STMNT 2-11 K2002120 7A69 7026 212 | MDX DTA21 CONTINUE SCAN 2-11 K2002130 213 | * K2002140 214 | * CHECK THAT DATASTATEMENT DOES NOT K2002150 215 | * CONTAIN COMMON VARIABLES K2002160 216 | * K2002170 7A6A C30D 217 | DTA11 LD 3 NORM-Z STORE NORM 2-11 K2002180 7A6B D028 218 | STO STONO K2002190 219 | * K2002200 220 | * MOVE POINTER TO NEXT DATAGROUP IF ANY K2002210 221 | * K2002220 7A6C 7101 222 | DTA12 MDX 1 1 MOVE POINTER K2002230 7A6D 74FF 7A94 223 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002240 7A6F C100 224 | DTA13 LD 1 0 INSERT CONSTANT LENGTH K2002250 7A70 E027 225 | AND H0007 * K2002260 7A71 D023 226 | STO CONSC * K2002270 227 | * K2002280 228 | * MOVE POINTER PAST THE CONSTANT K2002290 229 | * K2002300 7A72 7101 230 | DTA14 MDX 1 1 INCR STRING POINTER K2002310 7A73 74FF 7A94 231 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002320 7A75 74FF 7A95 232 | MDX L CONSC,-1 SKIP WHEN CON MV COMPLETE K2002330 7A77 70FA 233 | MDX DTA14 K2002340 234 | * K2002350 235 | * MOVE POINTER TO NEXT NAME K2002360 236 | * K2002370 7A78 7101 237 | DTA15 MDX 1 1 INCR STRING POINTER K2002380 7A79 74FF 7A94 238 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002390 239 | * K2002400 240 | * TEST IF NAME IN COMMON K2002410 241 | * K2002420 7A7B C100 242 | LD 1 0 GET NAME FROM SYM TBL K2002430 7A7C 43D4 243 | BSI 3 GNAME-Z * K2002440 7A7D C3F0 244 | LD 3 GNAM4-Z GET SYM TBL ID WORD K2002450 7A7E 1002 245 | SLA 2 K2002460 7A7F 4C28 7A99 246 | BSC L DTAER,Z+ BR IF IN COMMON K2002470 247 | * K2002480 248 | * MOVE POINTER TO NEXT NAME IF ANY K2002490 249 | * K2002500 7A81 C100 250 | LD 1 0 LOAD NAME POINTER K2002510 7A82 1001 251 | SLA 1 K2002520 7A83 4C10 7A88 252 | BSC L DTA17,- BR IF NO DISPLACEMENT AFTER K2002530 7A85 7101 253 | MDX 1 1 INCR STRING POINTER K2002540 7A86 74FF 7A94 254 | MDX L STONO,-1 DECREMENT WORD COUNT 2-11 K2002550 255 | * K2002560 7A88 C00B 256 | DTA17 LD STONO K2002570 7A89 1801 257 | SRA 1 212 K2002580 7A8A 4C18 7A90 258 | BSC L DTA21,+- BRANCH END OF STATEMENT K2002590 7A8C C101 259 | LD 1 1 K2002600 7A8D 4C10 7A6C 260 | BSC L DTA12,- BRANCH END OF VARIABLES K2002610 7A8F 70E8 261 | MDX DTA15 GO MOVE TO NEXT NAME K2002620 262 | * K2002630 7A90 C02E 263 | DTA21 LD IDADR LOAD STMNT ADRS 2-11 K2002640 7A91 830D 264 | A 3 NORM-Z ADD NORM 2-11 K2002650 7A92 D02C 265 | STO IDADR STORE AS NEXT ADRS 2-11 K2002660 7A93 70C3 266 | MDX DTA10 CONTINUE SCAN 2-11 K2002670 267 | * K2002680 7A94 0000 268 | STONO DC 0 STORED NORM K2002690 7A95 0000 269 | CONSC DC 0 CONSTANT LENGTH K2002700 7A96 0051 270 | ERTYP DC 81 ERROR TYPE CODE K2002710 7A97 A008 271 | ERID DC /A008 ERROR ID K2002720 7A98 0007 272 | H0007 DC /0007 CONSTANT K2002730 273 | * K2002740 274 | * REPLACE ERROR DATA STMNT ID WITH 2-11 K2002750 275 | * ERROR STMNT ID AND CLOSE STRING 2-11 K2002760 276 | * K2002770 7A99 6580 7ABF 277 | DTAER LDX I1 IDADR STMNT ADRS 2-11 K2002780 7A9B C0FB 278 | LD ERID ERROR STMNT ID 2-11 K2002790 7A9C D100 279 | STO 1 0 OVERLAY DATA ID 2-11 K2002800 7A9D C0F8 280 | LD ERTYP LOAD AND STORE 2-11 K2002810 7A9E D101 281 | STO 1 1 ERROR NUMBR 2-11 K2002820 282 | * 2-11 K2002830 7A9F 7402 7ABF 283 | MDX L IDADR,+2 ADJ ADRS FOR ERROR 2-11 K2002840 7AA1 74FE 7D52 284 | MDX L NORM,-2 ADJ NORM FOR ERROR 2-11 K2002850 7AA3 6580 7ABF 286 | LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K2002870 7AA5 C019 287 | LD IDADR LOAD STMNT ADRS 2-11 K2002880 7AA6 830D 288 | A 3 NORM-Z ADD STMNT NORM 2-11 K2002890 7AA7 D001 289 | STO *+1 AND SET XR2 2-11 K2002900 7AA8 6600 0000 290 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K2002910 7AAA C400 7A25 292 | LD L EOFS LOAD END OF STRING ADRS2-11 K2002930 7AAC 9400 0002 293 | S L /0002 SUB VALUE IN XR2 2-11 K2002940 7AAE D001 294 | STO *+1 AND STORE AS 2-11 K2002950 7AAF 6700 0000 295 | LDX L3 *-* RANGE IN XR3 2-11 K2002960 7AB1 7301 296 | MDX 3 +1 ADJ XR3 BY ONE 2-11 K2002970 7AB2 C200 298 | DTA25 LD 2 0 NEXT WORD TO MOVE 2-11 K2002990 7AB3 D100 299 | STO 1 0 TO NEW ADRS 2-11 K2003000 7AB4 7101 300 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K2003010 7AB5 7201 301 | MDX 2 1 INCREMENT NEW ADRS 2-11 K2003020 7AB6 73FF 302 | MDX 3 -1 DECREMENT RANGE 2-11 K2003030 7AB7 70FA 303 | MDX DTA25 LOOP UNTILL RANGE ZERO 2-11 K2003040 7AB8 6D00 7A25 305 | STX L1 EOFS NEW END OF STRING 2-11 K2003060 7ABA 6700 7D45 306 | LDX L3 ZERO WORK AREA POINTER 2-11 K2003070 7ABC 709A 307 | MDX DTA10 CONTINUE SCAN 2-11 K2003080 308 | *************************************************** K2003090 309 | * K2003100 310 | * THIS ROUTINE SCANS THE INPUT STRING 2-11 K2003110 311 | * REMOVING EQUIV STMNTS, DUMMY ERROR 2-11 K2003120 312 | * STMNTS, AND INSERT LINE COUNT IN 2-11 K2003130 313 | * VALID ERROR STMNTS 2-11 K2003140 314 | * K2003150 315 | *************************************************** K2003160 316 | * 2-11 K2003170 317 | *** CONSTANT'S AREA 2-11 K2003180 318 | * 2-11 K2003190 7ABD 0000 319 | LNCNT DC 0 LINE COUNT VALUE 2-11 K2003200 7ABE 0000 320 | RANGE DC 0 RANGE OF REPACK 2-11 K2003210 7ABF 0000 321 | IDADR DC *-* STMNT ID ADRS 2-11 K2003220 7AC0 0FFF 322 | K0FFF DC /0FFF EQUIV ERROR MASK 2-11 K2003230 7AC1 A008 323 | KA008 DC /A008 ERROR STMNT ID 2-11 K2003240 7AC2 0800 324 | K0800 DC /0800 CONSTANT 2-11 K2003250 7AC3 7000 325 | K7000 DC /7000 CONSTANT 2-11 K2003260 7AC4 B000 326 | KB000 DC /B000 CONSTANT 2-11 K2003270 7AC5 0000 327 | WDCT1 DC *-* SAVE AREA FOR WORD COUNT212 K2003275 7AC6 329 | REPAK EQU * 2-11 K2003290 7AC6 C400 7A24 330 | LD L SOFS LOAD START OF STRING 2-11 K2003300 7AC8 D0F6 331 | STO IDADR SAVE STMNT ID ADRS 2-11 K2003310 7AC9 1000 333 | CONT NOP 2-11 K2003330 7ACA 6580 7ABF 334 | LDX I1 IDADR SET XR1 TO IDADR 2-11 K2003340 7ACC C100 335 | LD 1 0 LOAD STMNT ID WORD 2-11 K2003350 7ACD 4C04 7B2D 336 | BSC L A1011,E BRCH IF STMNT NUMBERED 2-11 K2003360 7ACF E30F 337 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2003370 7AD0 1802 338 | SRA 2 RE-ALIGN NORM 2-11 K2003380 7AD1 D30D 339 | STO 3 NORM-Z SAVE NORM 2-11 K2003390 7AD2 C100 341 | LD 1 0 LOAD STMNT ID WORD 2-11 K2003410 7AD3 E30E 342 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2003420 7AD4 7004 343 | MDX RPK02 GO CHECK STMNT ID 2-11 K2003430 7AD5 C0E9 345 | RPK01 LD IDADR ADD STMNT ADRS 2-11 K2003450 7AD6 830D 346 | A 3 NORM-Z AND NORM-STORE AS 2-11 K2003460 7AD7 D0E7 347 | STO IDADR ADRS FOR NEXT STMNT 2-11 K2003470 7AD8 70F0 348 | MDX CONT CONTINUE SCAN 2-11 K2003480 7AD9 F317 350 | RPK02 EOR 3 HD800-Z 2-11 K2003500 7ADA 4C18 7AD5 351 | BSC L RPK01,+- BRCH IF IOCS 2-11 K2003510 352 | * K2003520 7ADC 7401 7ABD 353 | MDX L LNCNT,+1 INCREMENT LINE COUNT 2-11 K2003530 354 | * K2003540 7ADE F0E4 355 | EOR K7000 2-11 K2003550 7ADF 4C18 7AF9 356 | BSC L RPK10,+- BRCH IF EQUIV 2-11 K2003560 357 | * K2003570 7AE1 F0E0 358 | EOR K0800 2-11 K2003580 7AE2 4C18 7AE8 359 | BSC L RPK05,+- BRCH IF ERROR 2-11 K2003590 360 | * K2003600 7AE4 F0DF 361 | EOR KB000 2-11 K2003610 7AE5 4C18 7B2D 362 | BSC L A1011,+- BRCH IF END 2-11 K2003620 363 | * K2003630 7AE7 70ED 364 | MDX RPK01 CONTINUE SCAN 2-11 K2003640 366 | * 2-11 K2003660 367 | *** CHECK TYPE OF ERROR STMNT 2-11 K2003670 368 | * 2-11 K2003680 7AE8 C101 370 | RPK05 LD 1 1 CHECK ERROR STMNT 2-11 K2003700 7AE9 1009 371 | SLA 9 FOR ERROR NUMBR 2-11 K2003710 7AEA 4C20 7AF0 372 | BSC L RPK06,Z BRCH IF NUMBR 2-11 K2003720 7AEC C101 373 | LD 1 1 LOAD AND SAVE 2-11 K2003730 7AED 1807 374 | SRA 7 LINE COUNT 2-11 K2003740 7AEE D0CE 375 | STO LNCNT BRANCH TO REMOVE 2-11 K2003750 7AEF 7025 376 | MDX RPK15 FROM STRING 2-11 K2003760 7AF0 C101 378 | RPK06 LD 1 1 LOAD ERROR NUMBER 2-11 K2003780 7AF1 1807 379 | SRA 7 CHECK FOR LNCNT 2-11 K2003790 7AF2 4C20 7AD5 380 | BSC L RPK01,Z BRCH IF PRESENT 2-11 K2003800 7AF4 C0C8 381 | LD LNCNT IF NOT-LOAD AND 2-11 K2003810 7AF5 1007 382 | SLA 7 POSITION LNCNT FIELD 2-11 K2003820 7AF6 E901 383 | OR 1 1 'OR' ERROR NUMBR 2-11 K2003830 7AF7 D101 384 | STO 1 1 STORE BACK ON STRING 2-11 K2003840 7AF8 70DC 385 | MDX RPK01 CONTINUE SCAN 2-11 K2003850 387 | * EQUIVALENCE STMNT ENCOUNTERED 2-11 K2003870 388 | * TEST FOR ERROR MARK 2-11 K2003880 7AF9 C100 389 | RPK10 LD 1 0 LOAD STATEMENT ID 212 K2003882 7AFA E30F 390 | AND 3 NRMSK-Z GET NORM 212 K2003884 7AFB 1802 391 | SRA 2 ALIGN STMT WORK COUNT 212 K2003886 7AFC 9301 392 | S 3 ONE-Z SAVE STMT 212 K2003888 7AFD D0C7 393 | STO WDCT1 *WORD COUNT-1 212 K2003890 7AFE 7101 394 | RPK12 MDX 1 1 POINT TO NEXT WORD 212 K2003892 7AFF C100 395 | LD 1 0 LOAD NEXT WORD 212 K2003894 7B00 F0BF 396 | EOR K0FFF CHECK FOR ERROR INDR 212 K2003896 7B01 4C18 7B07 397 | BZ RPK13 BRANCH IF ERROR 212 K2003898 7B03 74FF 7AC5 398 | MDX L WDCT1,-1 DECREMENT WORD COUNT 212 K2003900 7B05 70F8 399 | MDX RPK12 CONTINUE CHECKING 212 K2003902 7B06 700E 400 | MDX RPK15 FINISHED, NO ERRORS 212 K2003904 7B07 C101 401 | RPK13 LD 1 1 LOAD ERROR 212 K2003905 7B08 6580 7ABF 402 | LDX I1 IDADR POINT TO FIRST WD IN STM212 K2003910 7B0A D102 403 | STO 1 2 STORE ERROR NO IN WD 3TM212 K2003920 7B0B 7402 7ABF 405 | MDX L IDADR,+2 ADVANCE ADRS POINTER 2-11 K2003940 7B0D 74FE 7D52 406 | MDX L NORM,-2 DECREASE NORM 2-11 K2003950 7B0F C0B1 408 | LD KA008 LOAD ERROR ID 2-11 K2003970 7B10 D100 409 | STO 1 0 AND STORE ON STRING 2-11 K2003980 7B11 C0AB 410 | LD LNCNT LOAD AND POSITION 2-11 K2003990 7B12 1007 411 | SLA 7 LINE COUNT FIELD 2-11 K2004000 7B13 E902 412 | OR 1 2 'OR' ERROR NUMBR 2-11 K2004010 7B14 D101 413 | STO 1 1 STORE BACK ON STRING 2-11 K2004020 415 | * 2-11 K2004040 416 | * THIS ROUTINE REMOVES DUMMY ERROR 2-11 K2004050 417 | *** STMNTS AND EQUIV STMNTS FROM THE INPUT 2-11 K2004060 418 | * STRING AND CLOSES UP THE STRING 2-11 K2004070 419 | * 2-11 K2004080 7B15 6580 7ABF 421 | RPK15 LDX I1 IDADR SET XR1 TO STMNT ADRS 2-11 K2004100 7B17 C0A7 422 | LD IDADR LOAD STMNT ADRS 2-11 K2004110 7B18 830D 423 | A 3 NORM-Z ADD STMNT NORM 2-11 K2004120 7B19 D001 424 | STO *+1 AND SET XR2 2-11 K2004130 7B1A 6600 0000 425 | LDX L2 *-* TO NEXT STMNT ADRS 2-11 K2004140 7B1C C400 7A25 427 | LD L EOFS LOAD END OF STRING ADRS2-11 K2004160 7B1E 9400 0002 428 | S L /0002 SUB VALUE IN XR2 2-11 K2004170 7B20 D09D 429 | STO RANGE AND STORE AS RANGE 2-11 K2004180 7B21 7401 7ABE 430 | MDX L RANGE,+1 ADJ RANGE BY ONE 2-11 K2004190 7B23 C200 432 | RPK20 LD 2 0 NEXT WORD TO MOVE 2-11 K2004210 7B24 D100 433 | STO 1 0 TO NEW ADRS 2-11 K2004220 7B25 7101 434 | MDX 1 1 INCREMENT TO NEXT WORD 2-11 K2004230 7B26 7201 435 | MDX 2 1 INCREMENT NEW ADRS 2-11 K2004240 7B27 74FF 7ABE 436 | MDX L RANGE,-1 DECREMENT RANGE 2-11 K2004250 7B29 70F9 437 | MDX RPK20 LOOP UNTILL RANGE ZERO 2-11 K2004260 7B2A 6D00 7A25 439 | STX L1 EOFS NEW END OF STRING 2-11 K2004280 7B2C 709C 440 | MDX CONT CONTINUE SCAN 2-11 K2004290 442 | * K2004310 443 | * SEARCH FOR UNREFERENCED STATEMENTS K2004320 444 | * INITIALIZE SYMBOL TABLE POINTER K2004330 445 | * K2004340 7B2D 1000 446 | A1011 NOP 2-11 K2004350 7B2E 4400 7DA5 447 | BSI L BLKPA BLANK PRINT AREA 2-11 K2004360 7B30 C400 7A26 448 | LD L SOFST INITLZ SYMBOL TABLE PT K2004370 7B32 D315 449 | STO 3 STPTR-Z K2004380 7B33 6580 7A26 450 | LDX I1 SOFST INITIALIZE XR1 2-4 K2004390 7B35 9400 7A2A 451 | S L EOFST TEST FOR SYMBOL TBL ENTRIES K2004400 7B37 4C08 7B5C 452 | BSC L E1011,+ BRANCH IF NONE K2004410 453 | * K2004420 7B39 C100 454 | A1012 LD 1 0 LOAD SYM TBL ID WORD K2004430 7B3A E3FF 455 | AND 3 H0200-Z TEST IF STMNT NO K2004440 7B3B 4818 456 | BSC +- SKIP IF STATEMENT NUMBER K2004450 7B3C 7007 457 | MDX A1013 BR IF NOT K2004460 7B3D C100 458 | LD 1 0 K2004470 7B3E E3F9 459 | AND 3 H0020-Z TEST IF REFERENCED K2004480 7B3F 4C20 7B44 460 | BSC L A1013,Z BR IF REFERENCED K2004490 7B41 C101 461 | LD 1 1 LOAD NAME WORD 1 K2004500 462 | * K2004510 463 | * TEST HEADER AND PRINT K2004520 7B42 4420 7D6D 464 | BSI L MNAME,Z BR IF NOT GENERATED LABEL K2004530 465 | * K2004540 7B44 4400 7CD8 466 | A1013 BSI L INCSP INCR SYM TBL POINTER K2004550 7B46 7B39 467 | DC A1012 BR IF NOT END OF SYM TBL K2004560 7B47 436B 468 | BSI 3 HFILL-Z PRINT IF BUFFER HALF FILLED K2004570 469 | * K2004580 470 | * SET HEADER TEST FOR K2004590 471 | * UNDEFINED VARIABLES K2004600 472 | * K2004610 7B48 6600 7CB6 473 | A1021 LDX L2 TEXT6 INITIALIZE TO PRINT PROPER K2004620 7B4A 6E00 7D17 474 | STX L2 HTES1+1 *HEADER. K2004630 7B4C C300 475 | LD 3 ZERO-Z K2004640 7B4D D30B 476 | STO 3 OUTFL-Z SET HEADER INDICATOR K2004650 477 | * K2004660 7B4E 6580 7A26 478 | LDX I1 SOFST INITLZ SYMBOL TABLE PT K2004670 7B50 6D00 7D5A 479 | STX L1 STPTR K2004680 480 | * K2004690 481 | * SEARCH FOR UNDEFINED VARIABLES K2004700 482 | * K2004710 7B52 C100 483 | A1022 LD 1 0 LD SYM TBL ID WORD K2004720 7B53 E3FE 484 | AND 3 HA7FC-Z MASK TO LEAVE DEFINE BITS K2004730 485 | * K2004740 486 | * SKIP IF UNDEFINED VARIABLE K2004750 487 | * K2004760 7B54 4820 488 | BSC Z SKIP IF UNDEFINED K2004770 489 | * K2004780 7B55 7002 490 | MDX A1023 BR IF NOT K2004790 491 | * K2004800 492 | * IF NOT, TEST FOR HEADER K2004810 493 | * MOVE NAME TO PRINT AREA K2004820 494 | * K2004830 7B56 4328 495 | BSI 3 MNAME-Z MOVE NAME TO PRINT AREA K2004840 496 | * K2004850 497 | * INSERT ERRORSWITCH TO PREVENT K2004860 498 | * FINAL OUTPUT K2004870 499 | * K2004880 7B57 4320 500 | BSI 3 ERRSW-Z SET ERROR SWITCH K2004890 501 | * K2004900 7B58 4400 7CD8 502 | A1023 BSI L INCSP INCR SYM TBL POINTER K2004910 7B5A 7B52 503 | DC A1022 BR IF NOT END OF SYM TBL K2004920 7B5B 436B 504 | BSI 3 HFILL-Z PRINT IF BUFFER HALF FILLED K2004930 505 | * K2004940 506 | * SEARCH FOR ERROR-STATEMENTS ON STRING K2004950 507 | * K2004960 7B5C 508 | E1011 EQU * 2-11 K2004970 509 | * K2004980 510 | * SET HEADER FOR K2004990 511 | * .INVALID STATEMENTS. K2005000 512 | * K2005010 7B5C 6600 7CC1 513 | LDX L2 TEXT7 INITIALIZE TO PRINT PROPER K2005020 7B5E 6E00 7D17 514 | STX L2 HTES1+1 *HEADER. K2005030 515 | * K2005040 516 | * INITIALIZATION FOR SCAN OF STRING K2005050 517 | * K2005060 7B60 C400 7A24 518 | LD L SOFS LOAD AND STORE 2-11 K2005070 7B62 D400 7ABF 519 | STO L IDADR STARTING ADRS 2-11 K2005080 7B64 6580 7ABF 520 | LDX I1 IDADR SET INPUT POINTER 2-11 K2005090 521 | * K2005100 7B66 C300 522 | LD 3 ZERO-Z ZERO OUT K2005110 7B67 D305 523 | STO 3 STLAB-Z *STORED LABEL, K2005120 7B68 D306 524 | STO 3 STCNT-Z *STORED COUNT, K2005130 7B69 D30B 525 | STO 3 OUTFL-Z *AND HEADER FLAG K2005140 526 | * K2005150 527 | * PROCESS ONE STATEMENT IN SEARCH FOR K2005160 528 | * ERROR STATEMENTS K2005170 529 | * K2005180 7B6A 1000 530 | E1021 NOP 2-11 K2005190 7B6B C100 531 | LD 1 0 LOAD STMNT ID WORD 2-11 K2005200 7B6C E30E 532 | AND 3 IDMSK-Z MASK TO SAVE STMNT ID 2-11 K2005210 7B6D D30C 533 | STO 3 STSID-Z SAVE ID 2-11 K2005220 7B6E C100 534 | LD 1 0 LOAD STMNT ID WORD 2-11 K2005230 7B6F E30F 535 | AND 3 NRMSK-Z EXTRACT NORM 2-11 K2005240 7B70 1802 536 | SRA 2 RE-ALIGN NORM 2-11 K2005250 7B71 D30D 537 | STO 3 NORM-Z SAVE NORM 2-11 K2005260 7B72 C300 539 | LD 3 ZERO-Z SET OFF STMNT 2-11 K2005280 7B73 D307 540 | STO 3 LBLSW-Z LABLE SW 2-11 K2005290 7B74 C100 542 | LD 1 0 K2005310 7B75 4804 543 | BSC E SKIP IF STMT HAS NO LABEL K2005320 7B76 7001 544 | MDX E1022 BR IF IT HAS LABEL K2005330 7B77 700C 545 | MDX E1024 BR IF NO LABEL K2005340 546 | * K2005350 547 | * IGNORE STATEMENT NUMBER K2005360 548 | * IF IT IS GENERATED BY THE K2005370 549 | * COMPILER (HAS NAME = 0) K2005380 550 | * K2005390 7B78 C101 551 | E1022 LD 1 1 GET NAME FR SYMBOL TABLE K2005400 7B79 43D4 552 | BSI 3 GNAME-Z * K2005410 7B7A C3ED 553 | LD 3 NAME-Z * K2005420 7B7B 4C18 7B83 554 | BSC L E1023,+- BR IF NAME = 0 K2005430 555 | * K2005440 556 | * STORE STATEMENT NUMBER K2005450 557 | * AND INITIALIZE REFERENCE COUNT TO K2005460 558 | * THAT STATEMENT K2005470 559 | * K2005480 7B7D C101 560 | LD 1 1 SAVE STMNT NUMBER K2005490 7B7E D305 561 | STO 3 STLAB-Z K2005500 7B7F C300 562 | LD 3 ZERO-Z ZERO TO STORED COUNT K2005510 7B80 D306 563 | STO 3 STCNT-Z K2005520 7B81 6C00 7D4C 564 | STX L LBLSW SET LABLE SW ON 2-11 K2005530 7B83 7101 566 | E1023 MDX 1 1 INCREMENT STRING POINTERS K2005550 7B84 C30C 568 | E1024 LD 3 STSID-Z LOAD STMNT ID 2-11 K2005570 7B85 9311 569 | S 3 ENDID-Z CHK FOR END 2-11 K2005580 7B86 4C18 7BE3 570 | BSC L E2011,+- BRCH IF END 2-11 K2005590 7B88 C30C 572 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2005610 7B89 9317 573 | S 3 HD800-Z CHK FOR IOCS CALL 2-11 K2005620 7B8A 4C18 7BA3 574 | BSC L E1038,+- BRCH IF IOCS CALL 2-11 K2005630 7B8C C30C 576 | LD 3 STSID-Z LOAD STMNT ID 2-11 K2005650 7B8D 9319 577 | S 3 HC000-Z CHK FOR DO TEST 2-11 K2005660 7B8E 4C18 7BA3 578 | BSC L E1038,+- BRCH IF DO TEST 2-11 K2005670 7B90 C307 580 | LD 3 LBLSW-Z LOAD LABLE SW 2-11 K2005690 7B91 4C20 7B95 581 | BSC L E1028,Z BRCH IF SET 2-11 K2005700 7B93 7401 7D4B 583 | MDX L STCNT,+1 INCREMENT STMNT COUNT 2-11 K2005720 7B95 C30C 585 | E1028 LD 3 STSID-Z LOAD STMNT ID 2-11 K2005740 7B96 9310 586 | S 3 ERRID-Z CHK FOR ERROR 2-11 K2005750 7B97 4C20 7BA3 587 | BSC L E1038,Z BRCH IF NOT ERROR 2-11 K2005760 7B99 10A0 589 | E1030 SLT 32 CLEAR ACCM/EXT 2-11 K2005780 7B9A C101 590 | LD 1 1 LOAD ERROR CODE 2-11 K2005790 7B9B 18C7 591 | RTE 7 SAVE ERRNO IN EXT 2-11 K2005800 7B9C 4C18 7BA0 592 | BSC L E1031,+- BRCH IF NO LNCNT 2-11 K2005810 7B9E D306 593 | STO 3 STCNT-Z STORE LNCNT 2-11 K2005820 7B9F 1010 594 | SLA 16 CLEAR ACCM 2-11 K2005830 7BA0 1087 596 | E1031 SLT 7 RESTORE ERRNO 2-11 K2005850 7BA1 D308 597 | STO 3 ERRNO-Z AND SAVE 2-11 K2005860 7BA2 7009 598 | MDX E1051 GO PRINT ERROR 2-11 K2005870 7BA3 C400 7ABF 600 | E1038 LD L IDADR LOAD STMNT ADRS 2-11 K2005890 7BA5 830D 601 | A 3 NORM-Z ADD NORM 2-11 K2005900 7BA6 D400 7ABF 602 | STO L IDADR SET XR1 TO 2-11 K2005910 7BA8 6580 7ABF 603 | LDX I1 IDADR NEXT STMNT ADRS 2-11 K2005920 7BAA 4C00 7B6A 604 | BSC L E1021 CONTINUE SCAN 2-11 K2005930 606 | * K2005950 607 | * SET ERRORSWITCH TO PREVENT K2005960 608 | * FINAL OUTPUT K2005970 609 | * K2005980 7BAC C302 610 | E1051 LD 3 TWO-Z K2005990 7BAD 4320 611 | BSI 3 ERRSW-Z SET ERROR SWITCH ON K2006000 612 | * K2006010 613 | * TEST IF HEADER IS PRINTED K2006020 614 | * K2006030 7BAE 43BF 615 | BSI 3 HTEST-Z PRINT HEADER IF FIRST TIME K2006040 616 | * K2006050 617 | * MOVE ERROR MESSAGE TO PRINT AREA K2006060 618 | * K2006070 7BAF 435A 619 | BSI 3 TOPAB-Z OUTPUT BLANK K2006080 7BB0 C31D 620 | LD 3 C-Z K2006090 7BB1 4346 621 | BSI 3 TOPAU-Z OUTPUT C K2006100 622 | * K2006110 623 | * ERROR TYPE TO PRINT AREA K2006120 624 | * K2006130 7BB2 C308 625 | LD 3 ERRNO-Z LOAD ERROR NUMBR 2-11 K2006140 7BB3 43AB 626 | BSI 3 CON3D-Z GO OUTPUT AS 3 DECML DIGITS K2006150 7BB4 74FD 7D3F 627 | MDX L PAP,-3 BACK UP PRINT AREA POINTER K2006160 7BB6 435A 628 | BSI 3 TOPAB-Z BLANK OUT LEADING ZERO K2006170 7BB7 C305 629 | E1052 LD 3 STLAB-Z LOAD STORED LABEL K2006180 7BB8 4820 630 | BSC Z SKIP IF STORED LABEL IS ZERO K2006190 7BB9 7003 631 | MDX E1061 BR IF NOT K2006200 632 | * K2006210 633 | * EBC ZEROS TO K2006220 634 | * LABEL SPACE IN PRINT AREA K2006230 635 | * K2006240 7BBA CB13 636 | LDD 3 FZERO-Z FIVE ZEROS K2006250 7BBB DBED 637 | STD 3 NAME-Z ZERO OUT NAME K2006260 7BBC 7001 638 | MDX E1061+1 GO OUTPUT BLANK NAME K2006270 639 | * K2006280 640 | * LAST ENCOUNTERED STATEMENT NUMBER K2006290 641 | * TO PRINT AREA K2006300 642 | * K2006310 7BBD 43D4 643 | E1061 BSI 3 GNAME-Z PUT LAST STMNT NO. IN NAME K2006320 7BBE 6906 644 | STX 1 STXR1+1 SAVE I/P STRING POINTER K2006330 7BBF 6500 7D31 645 | LDX L1 NAME-1 SET POINTER TO NAME-1 K2006340 7BC1 C31A 646 | LD 3 PAR31-Z K2006350 7BC2 D3FA 647 | STO 3 PAP-Z SET PRNT AREA PT TO 31 POS K2006360 7BC3 4328 648 | BSI 3 MNAME-Z LAST STMNT NO. TO PRNT AREA K2006370 7BC4 6500 0000 649 | STXR1 LDX L1 *-* RESTORE I/P STRING POINTER K2006380 7BC6 C306 650 | LD 3 STCNT-Z LOAD REFERENCE COUNT K2006390 7BC7 4C18 7BD0 651 | BSC L E1073,+- BR IF REFERENCE COUNT ZERO K2006400 652 | * K2006410 653 | * STATEMENT NUMBER REFERENCE COUNT K2006420 654 | * TO PRINT AREA K2006430 655 | * K2006440 7BC9 74FE 7D3F 656 | MDX L PAP,-2 DECR PRINT AREA PT BY 2 K2006450 7BCB C31C 657 | LD 3 PLUS-Z K2006460 7BCC 4346 658 | BSI 3 TOPAU-Z OUTPUT & K2006470 7BCD C306 659 | LD 3 STCNT-Z K2006480 7BCE 4400 7CF0 660 | BSI L CON3D OUTPUT REFERENCE COUNT K2006490 7BD0 6200 661 | E1073 LDX 2 0 K2006500 7BD1 63F3 662 | LDX 3 -13 SET TO OUTPUT 26 CHARS K2006510 7BD2 C700 7CD8 663 | LOOPP LD L3 TEXT8+13 'ERROR AT STATEMENT NUMBER' K2006520 7BD4 1888 664 | SRT 8 K2006530 7BD5 1008 665 | SLA 8 K2006540 7BD6 D600 7A3E 666 | STO L2 PAREA+5 OUTPUT LEFT CHARACTER K2006550 7BD8 1090 667 | SLT 16 K2006560 7BD9 D600 7A3F 668 | STO L2 PAREA+6 OUTPUT RIGHT CHARACTER K2006570 7BDB 7202 669 | MDX 2 2 K2006580 7BDC 7301 670 | MDX 3 1 SKIP WHEN MSG COMPLETE K2006590 7BDD 70F4 671 | MDX LOOPP LOOP UNTIL ALL OUTPUT K2006600 7BDE 6700 7D45 672 | LDX L3 Z K2006610 7BE0 436B 673 | BSI 3 HFILL-Z PRINT ERROR MESSAGE K2006620 7BE1 4C00 7BA3 675 | E1082 BSC L E1038 PROCESS NEXT STMNT 2-11 K2006640 7BE3 1000 677 | E2011 NOP 2-11 K2006660 678 | * K2006670 679 | * TEST IF OVERLAP ERROR K2006680 680 | * K2006690 7BE4 C400 7A2D 681 | LD L ERROR LOAD ERROR SW FROM FCOM K2006700 7BE6 4C04 7BF1 682 | BSC L E2020,E BR IF OVERLAP ERROR K2006710 7BE8 7011 683 | MDX E2021 BR IF NOT K2006720 7BE9 100B 685 | E2015 SLA 11 IS IT ERROR 85 2-4 K2006740 7BEA 4C10 7DC6 686 | BSC L EXIT,- NO - EXIT 2-4 K2006750 7BEC 4400 7DA5 687 | BSI L BLKPA YES - SET UP TO 2-4 K2006760 7BEE 6600 7C9B 688 | LDX L2 TEXT4 PRINT ERROR 85 2-4 K2006770 7BF0 7004 689 | MDX E2022 MESSAGE 2-4 K2006780 690 | * K2006790 691 | * PRINT OVERLAP ERROR MESSAGE K2006800 692 | * K2006810 7BF1 4400 7DA5 693 | E2020 BSI L BLKPA BLANK PRINT AREA K2006820 7BF3 6600 7C87 694 | LDX L2 TEXT3 SET UP OVERLAP MESSAGE K2006830 7BF5 6E00 7D17 695 | E2022 STX L2 HTES1+1 K2006840 7BF7 C300 696 | LD 3 ZERO-Z FORCE MESSAGE OUTPUT K2006850 7BF8 D30B 697 | STO 3 OUTFL-Z K2006860 7BF9 43BF 698 | BSI 3 HTEST-Z PRINT OVERLAP MESSAGE K2006870 699 | * K2006880 700 | * TEST IF OUTPUT SUPPRESSED K2006890 701 | * K2006900 7BFA C400 7A2D 702 | E2021 LD L ERROR LOAD ERROR SW FROM FCOM K2006910 7BFC 4C18 7C00 703 | BSC L R1011,+- BRANCH IF NO ERRORS K2006920 704 | * K2006930 7BFE 4C00 7DC6 705 | BSC L EXIT EXIT TO NEXT PHASE K2006940 706 | ************************************************** K2006950 708 | * REARRANGE THE STRING BY PLACING K2006970 709 | * FORMAT-STATEMENTS AND ARITH K2006980 710 | * STMT-FUNCTION-STATEMENTS IN THE K2006990 711 | * LOW-ADDRESS END OF THE STRING K2007000 712 | * K2007010 713 | ************************************************** K2007020 7C00 C400 7A24 714 | R1011 LD L SOFS K2007030 7C02 D3F3 715 | STO 3 PTR-Z INITIALIZE POINTER K2007040 7C03 C480 7D38 716 | LD I PTR K2007050 7C05 E309 717 | AND 3 HF800-Z EXTRACT ID K2007060 7C06 D30C 718 | STO 3 STSID-Z SAVE ID K2007070 7C07 C300 719 | LD 3 ZERO-Z SET PASS SWITCH FOR K2007080 7C08 D06B 720 | STO SWITC *FIRST PASS K2007090 721 | * K2007100 7C09 C30C 722 | R1012 LD 3 STSID-Z TEST FOR END STATEMENT K2007110 7C0A 9311 723 | S 3 ENDID-Z K2007120 7C0B 4C18 7C67 724 | BSC L D1099,+- BR IF END-STATEMENT K2007130 7C0D C066 725 | LD SWITC LOAD PASS SWITCH K2007140 7C0E 4C18 7C19 726 | BSC L D1015,+- BR IF FIRST PASS K2007150 727 | * K2007160 728 | * SECOND PASS K2007170 729 | * K2007180 730 | * TEST IF FORMAT OR ARITH-STMT-FUNCT K2007190 731 | * K2007200 7C10 C30C 732 | LD 3 STSID-Z TEST FOR FORMAT STATEMENT K2007210 7C11 9054 733 | S FORMT K2007220 7C12 4C18 7C28 734 | BSC L R1013,+- BR IF FORMAT K2007230 7C14 C30C 735 | LD 3 STSID-Z TEST FOR ARITH STMNT FUNC K2007240 7C15 9316 736 | S 3 HD000-Z K2007250 7C16 4C18 7C28 737 | BSC L R1013,+- BR IF ARITH STMNT FUNC K2007260 738 | * K2007270 739 | * NOT IN CARD SYSTEM K2007280 740 | * K2007290 7C18 7011 741 | MDX R1021 GO TEST IF END STMNT K2007300 742 | * K2007310 743 | * FIRST PASS K2007320 744 | * K2007330 7C19 C30C 745 | D1015 LD 3 STSID-Z TEST FOR DEFINE FILE STMNT K2007340 7C1A 9057 746 | S DFILE K2007350 7C1B 4C18 7C28 747 | BSC L R1013,+- BR IF DEFINE FILE K2007360 7C1D 9055 748 | S DATA TEST FOR DATA STMNT K2007370 7C1E 4C18 7C28 749 | BSC L R1013,+- BR IF DATA STMNT K2007380 750 | * K2007390 751 | * IF SUBPROGRAM, ALSO DISREGARD K2007400 752 | * LOADER-OVERLAY STATEMENTS K2007410 753 | * K2007420 7C20 C30C 754 | LD 3 STSID-Z LOAD STORED ID K2007430 7C21 9317 755 | S 3 HD800-Z TEST FOR INTERVAL O/P FMT K2007440 7C22 4820 756 | BSC Z SKIP IF POSSIBLE LDR STMNT K2007450 7C23 7006 757 | MDX R1021 BR IF NOT K2007460 7C24 C400 7A30 758 | LD L SORF TEST IF SUBR OR FUNCTION K2007470 7C26 4818 759 | BSC +- SKIP IF SUBPROGRAM K2007480 7C27 7002 760 | MDX R1021 BR IF NOT K2007490 761 | * K2007500 7C28 404C 762 | R1013 BSI MOVP MOVE POINTER TO NEXT STMT K2007510 7C29 70DF 763 | MDX R1012 GO CHECK IF END STATEMENT K2007520 764 | * K2007530 7C2A C3F3 765 | R1021 LD 3 PTR-Z LOAD POINTER K2007540 7C2B D3F2 766 | STO 3 RALO-Z INSERT REARRANGEMENT AREA K2007550 767 | * LOW ADDRESS K2007560 7C2C 4048 768 | R1022 BSI MOVP MOVE POINTER TO NEXT STMNT K2007570 7C2D 9311 769 | S 3 ENDID-Z TEST IF END STATEMENT K2007580 7C2E 4C18 7C67 770 | BSC L D1099,+- BR IF END-STATEMENT K2007590 771 | * K2007600 772 | * NOT IN CARD SYSTEM K2007610 773 | * K2007620 7C30 C043 774 | LD SWITC TEST PASS SWITCH K2007630 7C31 4C20 7C3B 775 | BSC L D1026,Z BR IF SECOND PASS K2007640 776 | * K2007650 777 | * FIRST PASS K2007660 778 | * K2007670 7C33 C30C 779 | D1025 LD 3 STSID-Z TEST,FIRST PASS K2007680 7C34 903D 780 | S DFILE TEST IF DEFINE FILE STMNT K2007690 7C35 4C18 7C44 781 | BSC L R1023,+- BR IF DEFINE FILE K2007700 7C37 903B 782 | S DATA TEST IF DATA STATEMENT K2007710 7C38 4C18 7C44 783 | BSC L R1023,+- BR IF DATA STATEMENT K2007720 7C3A 70F1 784 | MDX R1022 GO MOVE TO NEXT STATEMENT K2007730 785 | * K2007740 786 | * SECOND PASS K2007750 787 | * K2007760 7C3B 1000 788 | D1026 SLA 0 TEST, SECOND PASS K2007770 789 | * K2007780 7C3C C30C 790 | LD 3 STSID-Z K2007790 7C3D 9028 791 | S FORMT TEST IF FORMAT STATEMENT K2007800 7C3E 4C18 7C44 792 | BSC L R1023,+- BR IF FORMAT STATEMENT K2007810 7C40 C30C 793 | LD 3 STSID-Z K2007820 7C41 9316 794 | S 3 HD000-Z TEST IF ARITH STMNT FUNCT K2007830 7C42 4C20 7C2C 795 | BSC L R1022,Z BR IF NOT ARITH STMNT FUNCT K2007840 796 | * K2007850 797 | * FORMAT OR ARITH STMT FUNCT K2007860 798 | * ENCOUNTERED, PREPARE REARRANGEMENT K2007870 799 | * K2007880 7C44 C30D 800 | R1023 LD 3 NORM-Z INSERT ROTATE COUNT K2007890 7C45 D00C 801 | STO R1031+1 K2007900 7C46 83F3 802 | A 3 PTR-Z INSERT REARR-AREA HIGH ADR+1 K2007910 7C47 D011 803 | STO R1034+1 K2007920 7C48 D013 804 | STO R1035+1 K2007930 7C49 9301 805 | S 3 ONE-Z INSERT REARR-AREA HIGH ADDR K2007940 7C4A D00B 806 | STO R1033+1 K2007950 7C4B 8301 807 | A 3 ONE-Z K2007960 7C4C 93F2 808 | S 3 RALO-Z INSERT REARR-AREA LENGTH K2007970 7C4D D006 809 | STO R1032+1 (NEGATIVE) K2007980 7C4E C300 810 | LD 3 0 K2007990 7C4F 9004 811 | S R1032+1 SET LENGTH POSITIVE K2008000 7C50 D003 812 | STO R1032+1 K2008010 813 | * K2008020 814 | * ROTATE REARRANGEMENT AREA K2008030 815 | * K2008040 7C51 6600 0000 816 | R1031 LDX L2 *-* INITIALIZE ROTATE COUNT K2008050 7C53 6500 0000 817 | R1032 LDX L1 *-* INITIALIZE .ROTATE ONE. K2008060 818 | * K2008070 819 | * ROTATE REARR AREA BY ONE WORD K2008080 820 | * K2008090 7C55 C400 0000 821 | R1033 LD L *-* REARR AREA HIGH ADDR K2008100 7C57 18D0 822 | RTE 16 K2008110 7C58 C500 0000 823 | R1034 LD L1 *-* REARR AREA HIGH ADDR + 1 K2008120 7C5A 18D0 824 | RTE 16 K2008130 7C5B D500 0000 825 | R1035 STO L1 *-* REARR AREA HIGH ADDR + 1 K2008140 7C5D 7101 826 | MDX 1 1 K2008150 7C5E 70F9 827 | MDX R1034 BR IF .ROTATE ONE. NOT COMPL K2008160 828 | * K2008170 7C5F 72FF 829 | MDX 2 -1 ROTATE COUNT K2008180 7C60 70F2 830 | MDX R1032 IF NOT ZERO, BR TO .ROTATE K2008190 831 | * ONE. K2008200 832 | * K2008210 833 | * ROTATE COMPLETED K2008220 834 | * K2008230 7C61 C3F2 835 | LD 3 RALO-Z INCR REARR AREA LOW ADDR K2008240 7C62 830D 836 | A 3 NORM-Z BY LENGTH OF FORMAT STMT K2008250 7C63 D3F2 837 | STO 3 RALO-Z K2008260 7C64 D3F3 838 | STO 3 PTR-Z REARR-AREA LOW ADDR TO PTR K2008270 7C65 70C6 839 | MDX R1022 GO MOVE TO NEXT STATEMENT K2008280 840 | * K2008290 7C66 6000 841 | FORMT DC /6000 CONSTANT K2008300 842 | * K2008310 843 | * NOT IN CARD SYSTEM K2008320 844 | * K2008330 7C67 C00C 845 | D1099 LD SWITC LOAD PASS SWITCH K2008340 7C68 4C20 7DC6 846 | BSC L EXIT,Z BR IF SECOND PASS K2008350 7C6A 7401 7C74 847 | MDX L SWITC,1 CHANGE PASS SWITCH K2008360 7C6C C3F2 848 | LD 3 RALO-Z REARRANGEMENT AREA LOW K2008370 7C6D D3F3 849 | STO 3 PTR-Z *ADDRESS TO POINTER K2008380 7C6E C002 850 | LD LINK SET LINK ADDR IN SUBROUTINE K2008390 7C6F D005 851 | STO MOVP K2008400 7C70 700B 852 | MDX MOVP1 BR TO SUBR K2008410 853 | * K2008420 7C71 7C09 854 | LINK DC R1012 CONSTANT K2008430 7C72 F000 855 | DFILE DC /F000 STMT ID DEFINE FILE K2008440 7C73 0800 856 | DATA DC /F800-/F000 CONSTANT K2008450 7C74 0000 857 | SWITC DC 0 PASS SWITCH K2008460 858 | * K2008470 859 | * MOVE POINTER TO NEXT STATEMENT K2008480 860 | * STORE STATEMENT-ID AND NORM K2008490 861 | * STATEMENT-ID TO A-REGISTER K2008500 862 | * K2008510 7C75 0000 863 | MOVP DC 0 LINK K2008520 7C76 C480 7D38 864 | LD I PTR GET ID WORD THIS STATEMENT K2008530 7C78 E3F1 865 | AND 3 H07FC-Z EXTRACT NORM K2008540 7C79 1802 866 | SRA 2 RIGHT JUSTIFY K2008550 7C7A 83F3 867 | A 3 PTR-Z ADVANCE PT TO NEXT STMNT K2008560 7C7B D3F3 868 | STO 3 PTR-Z K2008570 7C7C C480 7D38 869 | MOVP1 LD I PTR GET ID WORD NEXT STATEMENT K2008580 7C7E E3F1 870 | AND 3 H07FC-Z EXTRACT AND STORE NORM K2008590 7C7F 1802 871 | SRA 2 K2008600 7C80 D30D 872 | STO 3 NORM-Z K2008610 7C81 C480 7D38 873 | LD I PTR K2008620 7C83 E309 874 | AND 3 HF800-Z EXTRACT AND STORE ID K2008630 7C84 D30C 875 | STO 3 STSID-Z K2008640 7C85 4C80 7C75 876 | BSC I MOVP RETURN K2008650 877 | * K2008660 7C87 0013 878 | TEXT3 DC 19 WORD COUNT 2-4 K2008670 7C88 40C3 40F9 F740 D7D9 879 | EBC . C 97 PROGRAM LENGTH EXCEEDS. 2-4 K2008680 D6C7 D9C1 D440 D3C5 | D5C7 E3C8 40C5 E7C3 | C5C5 C4E2 | 7C96 40C3 C1D7 C1C3 C9E3 880 | EBC . CAPACITY . 2-4 K2008690 E840 | 7C9B 000D 881 | TEXT4 DC 13 WORD COUNT 2-4 K2008700 7C9C 40C3 40F8 F540 D6D9 882 | EBC . C 85 ORIGIN IN SUBPROGRAM. 2-4 K2008710 C9C7 C9D5 40C9 D540 | E2E4 C2D7 D9D6 C7D9 | C1D4 | 7CA9 000C 883 | TEXT5 DC 12 WORD COUNT K2008720 7CAA E4D5 D9C5 C6C5 D9C5 884 | EBC .UNREFERENCED STATEMENTS . K2008730 D5C3 C5C4 40E2 E3C1 | E3C5 D4C5 D5E3 E240 | 7CB6 000A 885 | TEXT6 DC 10 WORD COUNT K2008740 7CB7 E4D5 C4C5 C6C9 D5C5 886 | EBC .UNDEFINED VARIABLES . K2008750 C440 E5C1 D9C9 C1C2 | D3C5 E240 | 7CC1 0009 887 | TEXT7 DC 9 WORD COUNT K2008760 7CC2 C9D5 E5C1 D3C9 C440 888 | EBC .INVALID STATEMENTS. K2008770 E2E3 C1E3 C5D4 C5D5 | E3E2 | 7CCB 40C5 D9D9 D6D9 40C1 889 | TEXT8 EBC . ERROR AT STATEMENT NUMBER. K2008780 E340 E2E3 C1E3 C5D4 | C5D5 E340 D5E4 D4C2 | C5D9 | 890 | * K2008790 891 | * SUBROUTINE K2008800 892 | * INCREMENT SYMBOL TABLE POINTER K2008810 893 | * K2008820 7CD8 0000 894 | INCSP DC 0 LINK K2008830 7CD9 C480 7D5A 895 | LD I STPTR GET ID WD IN SYMBOL TABLE K2008840 7CDB E3FC 896 | AND 3 H1800-Z EXTRACT DIMENSION BITS K2008850 7CDC 4820 897 | BSC Z SKIP IF NOT DIMENSIONED K2008860 7CDD C3F7 898 | LD 3 HFFFD-Z MINUS THREE K2008870 7CDE 83F7 899 | A 3 HFFFD-Z K2008880 7CDF 8315 900 | A 3 STPTR-Z POSITION SYMBOL TB POINTER K2008890 7CE0 D315 901 | STO 3 STPTR-Z *PAST DIMENSIONED VARIABLE K2008900 7CE1 9400 7A2A 902 | S L EOFST TEST FOR END OF SYMBOL TBL K2008910 7CE3 4C08 7CEC 903 | BSC L INCS2,+ BR IF END OF SYMBOL TABLE K2008920 7CE5 C480 7CD8 904 | LD I INCSP IF NOT,RETURN TO ADDRESS K2008930 905 | * *SPECIFIED IN LINK K2008940 7CE7 D003 906 | STO INCS1+1 K2008950 7CE8 6580 7D5A 907 | LDX I1 STPTR POINTER TO X1 K2008960 7CEA 4C00 0000 908 | INCS1 BSC L *-* RETURN K2008970 7CEC 7401 7CD8 909 | INCS2 MDX L INCSP,1 IF END OF SYMT,RETURN TO K2008980 910 | * ADDR = LINK + 1 K2008990 7CEE 4C80 7CD8 911 | BSC I INCSP RETURN K2009000 912 | * K2009010 913 | * SUBROUTINE K2009020 914 | * CONVERT BINARY VALUE TO K2009030 915 | * THREE DECIMAL DIGITS K2009040 916 | * K2009050 7CF0 0000 917 | CON3D DC 0 LINK K2009060 7CF1 1890 918 | SRT 16 SHIFT ARGUMENT TO EXTENSION K2009070 7CF2 ABF5 919 | D 3 C100-Z FGET FIRST DIGIT K2009080 7CF3 4007 920 | BSI GOSTO STORE FIRST DIGIT K2009090 7CF4 C300 921 | LD 3 Z-Z K2009100 7CF5 ABF4 922 | D 3 C10-Z GET SECOND DIGIT K2009110 7CF6 4004 923 | BSI GOSTO STORE SECOND DIGIT K2009120 7CF7 1090 924 | SLT 16 GET THIRD DIGIT K2009130 7CF8 4002 925 | BSI GOSTO STORE THIRD DIGIT K2009140 7CF9 4C80 7CF0 926 | BSC I CON3D RETURN K2009150 7CFB 0000 927 | GOSTO DC 0 LINK K2009160 7CFC 1008 928 | SLA 8 LEFT JUSTIFY DIGIT K2009170 7CFD EB0A 929 | OR 3 HF000-Z CONVERT TO EBC K2009180 7CFE D480 7D3F 930 | STO I PAP STORE INTO PRINT AREA K2009190 7D00 7401 7D3F 931 | MDX L PAP,1 INCREMENT PR AREA POINTER K2009200 7D02 4C80 7CFB 932 | BSC I GOSTO RETURN K2009210 933 | * K2009220 934 | * SUBROUTINE K2009230 935 | * HEADER TEST K2009240 936 | * PRINTS HEADER TO ERROR K2009250 937 | * MESSAGES IF FIRST MESSAGE K2009260 938 | * K2009270 7D04 0000 939 | HTEST DC 0 LINK K2009280 7D05 C30B 940 | LD 3 OUTFL-Z LOAD HEADER PRINTED SW K2009290 7D06 4C20 7D14 941 | BSC L HTES3,Z BR IF HEADER NOT REQUIRED K2009300 7D08 7401 7D50 942 | MDX L OUTFL,1 SET SWITCH TO PREVENT K2009310 943 | * ADDITIONAL HEADERS K2009320 7D0A C00D 944 | LD HTES2 LOAD LINE SPACE PARAMETER K2009330 7D0B 4400 7E45 945 | BSI L LSTPR SPACE PRINTER ONE SPACE K2009340 946 | * K2009350 7D0D C480 0006 947 | LD I $CH12 LOAD CHANNEL 12 INDICATOR K2009360 7D0F 44A0 7E0C 948 | BSI I NEWPG,Z EJECT PAGE IF SET K2009370 949 | * K2009380 7D11 C804 950 | LDD HTES1 LOAD PRINT PARAMETERS K2009390 7D12 4400 7E45 951 | BSI L LSTPR CO PRINT SECTION HEADER K2009400 952 | * K2009410 7D14 4C80 7D04 953 | HTES3 BSC I HTEST RETURN K2009420 954 | * K2009430 7D16 955 | BSS E 0 K2009440 7D16 7001 956 | HTES1 DC /7001 PRINT PARAMETER K2009450 7D17 0000 957 | DC *-* SECTION HEADER ADDRESS K2009460 958 | * K2009470 7D18 7002 959 | HTES2 DC /7002 SPACE PRINTER PARAMETER K2009480 960 | * K2009490 961 | * GET SYM.T. NAME OF LABEL K2009500 962 | * K2009510 7D19 0000 963 | GNAME DC 0 LINK K2009520 7D1A E019 964 | AND GNAM3 EXTRACT DISPLACEMENT K2009530 7D1B D00F 965 | STO GNAM1+1 SAVE K2009540 7D1C C400 7A26 966 | LD L SOFST LOAD START OF SYMBOL TB ADDR K2009550 7D1E 900C 967 | S GNAM1+1 COMPUTE SYMBOL TBL ENT ADDR K2009560 7D1F 900B 968 | S GNAM1+1 * K2009570 7D20 900A 969 | S GNAM1+1 * K2009580 7D21 8303 970 | A 3 THREE-Z * K2009590 7D22 D005 971 | STO GNAM0+1 STORE ID WORD ADDRESS K2009600 7D23 8301 972 | A 3 ONE-Z K2009610 7D24 D006 973 | STO GNAM1+1 STORE FIRST NAME WORD ADDR K2009620 7D25 8301 974 | A 3 ONE-Z K2009630 7D26 D007 975 | STO GNAM2+1 STORE SECOND NAME WORD ADDR K2009640 7D27 C400 0000 976 | GNAM0 LD L *-* LOAD ID WORD K2009650 7D29 D00B 977 | STO GNAM4 STORE ID WORD K2009660 7D2A C400 0000 978 | GNAM1 LD L *-* LOAD FIRST NAME WORD K2009670 7D2C D005 979 | STO NAME STORE FIRST NAME WORD K2009680 7D2D C400 0000 980 | GNAM2 LD L *-* LOAD SECOND NAME WORD K2009690 7D2F D003 981 | STO NAME+1 STORE SECOND NAME WORD K2009700 7D30 4C80 7D19 982 | BSC I GNAME RETURN K2009710 7D32 0000 0000 983 | NAME DEC 0 2 WORD STORAGE FOR NAME K2009720 7D34 07FF 984 | GNAM3 DC /07FF CONSTANT K2009730 7D35 0000 985 | GNAM4 DC 0 SYMBOL TABLE ID WORD K2009740 986 | * K2009750 7D36 07FC 987 | H07FC DC /07FC CONSTANT K2009760 7D37 0000 988 | RALO DC 0 REARR AREA LOW ADDR K2009770 7D38 0000 989 | PTR DC 0 POINTER K2009780 990 | * K2009790 991 | * K2009800 7D39 000A 992 | C10 DC 10 CONSTANT K2009810 7D3A 0064 993 | C100 DC 100 CONSTANT K2009820 7D3B 0078 994 | C120 DC 120 CONSTANT K2009830 7D3C FFFD 995 | HFFFD DC /FFFD CONSTANT K2009840 7D3D 0008 996 | H0008 DC /0008 CONSTANT K2009850 7D3E 0020 997 | H0020 DC /0020 CONSTANT K2009860 7D3F 7A39 998 | PAP DC PAREA PRINT AREA POINTER K2009870 7D40 7A39 999 | PAPIN DC PAREA INIT VALUE OF PAP K2009880 7D41 1800 1000 | H1800 DC /1800 CONSTANT K2009890 7D42 0000 1001 | STOOI DC 0 STORED OUTPUT INDEX K2009900 7D43 A7FC 1002 | HA7FC DC /A7FC CONSTANT K2009910 7D44 0200 1003 | H0200 DC /0200 CONSTANT K2009920 7D45 0000 1004 | ZERO DC 0 CONSTANT K2009930 7D45 1005 | Z EQU ZERO TRANSFER VECTOR PT ADDR K2009940 7D46 0001 1006 | ONE DC /0001 CONSTANT K2009950 7D47 0002 1007 | TWO DC /0002 CONSTANT K2009960 7D48 0003 1008 | THREE DC /0003 CONSTANT K2009970 7D49 0004 1009 | FOUR DC /0004 CONSTANT K2009980 7D4A 0000 1010 | STLAB DC 0 STORED LABEL K2009990 7D4B 0000 1011 | STCNT DC 0 STORED COUNT K2010000 1012 | * (NUMBER OF STATEMENTS K2010010 1013 | * FROM LAST LABEL) K2010020 7D4C 0000 1014 | LBLSW DC 0 LABLE SW 2-11 K2010030 7D4D 0000 1015 | ERRNO DC 0 ERROR NUMBR STG 2-11 K2010040 7D4E F800 1016 | HF800 DC /F800 DATA CONSTANT 2-11 K2010050 7D4F F000 1017 | HF000 DC /F000 DEFINE FILE CONST 2-11 K2010060 7D50 0000 1018 | OUTFL DC 0 OUTPUT FLAG K2010070 7D51 0000 1019 | STSID DC 0 STORED STMNT-ID K2010080 7D52 0000 1020 | NORM DC 0 STORED NORM K2010090 7D53 F800 1021 | IDMSK DC /F800 MASK FOR EXTR STMNT-ID K2010100 7D54 07FC 1022 | NRMSK DC /07FC MASK FOR EXTR NORM K2010110 7D55 A000 1023 | ERRID DC /A000 ERROR ID K2010120 7D56 1000 1024 | ENDID DC /1000 END ID K2010130 7D58 1025 | BSS E 0 K2010140 7D58 30C3 1026 | FZERO DC /30C3 CONSTANT FOR FIVE ZEROS K2010150 7D59 0C30 1027 | DC /0C30 * K2010160 7D5A 0000 1028 | STPTR DC 0 SYMBOL TABLE POINTER K2010170 7D5B D000 1029 | HD000 DC /D000 CONSTANT K2010180 7D5C D800 1030 | HD800 DC /D800 CONSTANT K2010190 7D5D 4000 1031 | H4000 DC /4000 CONSTANT K2010200 7D5E C000 1032 | HC000 DC /C000 K2010210 7D5F 7A58 1033 | PAR31 DC PAREA+31 CONSTANT K2010220 7D60 3F00 1034 | H3F00 DC /3F00 CONSTANT K2010230 7D61 4E00 1035 | PLUS DC /4E00 CONSTANT K2010240 7D62 C300 1036 | C DC /C300 CONSTANT K2010250 7D63 003C 1037 | D60 DC 60 CONSTANT K2010260 7D64 0000 1038 | PCNT DC *-* PRINT COUNT K2010270 1039 | * K2010280 1040 | * SET ERROR SWITCH IN COMMUN AREA K2010290 1041 | * TO PREVENT FINAL OUTPUT K2010300 1042 | * K2010310 7D65 0000 1043 | ERRSW DC 0 LINK K2010320 1044 | * K2010330 7D66 C400 7A2D 1045 | LD L ERROR SET ERROR SWITCH K2010340 7D68 EB02 1046 | OR 3 TWO-Z * K2010350 7D69 D400 7A2D 1047 | STO L ERROR * K2010360 7D6B 4C80 7D65 1048 | BSC I ERRSW RETURN K2010370 1049 | * K2010380 1050 | * SUBROUTINE K2010390 1051 | * MOVE NAME TO PRINT AREA K2010400 1052 | * K2010410 7D6D 0000 1053 | MNAME DC 0 LINK K2010420 7D6E 43BF 1054 | BSI 3 HTEST-Z TEST IF HEADER PRINTED K2010430 7D6F 402F 1055 | BSI TOPAB BLANK TO PRINT AREA K2010440 7D70 C101 1056 | LD 1 1 GET FIRST CHARACTER K2010450 7D71 4022 1057 | BSI TOPA OUTPUT FIRST CHARACTER K2010460 7D72 C101 1058 | LD 1 1 GET SECOND CHARACTER K2010470 7D73 1006 1059 | SLA 6 K2010480 7D74 401F 1060 | BSI TOPA OUTPUT SECOND CHARACTER K2010490 7D75 C102 1061 | LD 1 2 GET THIRD CHARACTER K2010500 7D76 18D0 1062 | RTE 16 K2010510 7D77 C101 1063 | LD 1 1 K2010520 7D78 108C 1064 | SLT 12 K2010530 7D79 401A 1065 | BSI TOPA OUTPUT THIRD CHARACTER K2010540 7D7A C102 1066 | LD 1 2 GET FOURTH CHARACTER K2010550 7D7B 1002 1067 | SLA 2 K2010560 7D7C 4017 1068 | BSI TOPA OUTPUT FOURTH CHARACTER K2010570 7D7D C102 1069 | LD 1 2 GET FIFTH CHARACTER K2010580 7D7E 1008 1070 | SLA 8 K2010590 7D7F 4014 1071 | BSI TOPA OUTPUT FIFTH CHARACTER K2010600 7D80 401E 1072 | BSI TOPAB OUTPUT ONE BLANK K2010610 7D81 401D 1073 | BSI TOPAB OUTPUT ANOTHER BLANK K2010620 1074 | * K2010630 1075 | * INCREMENT PRINT COUNT K2010640 1076 | * K2010650 7D82 C31F 1077 | LD 3 PCNT-Z INCREMENT PRINT COUNT K2010660 7D83 83F8 1078 | A 3 H0008-Z *BY 8 K2010670 7D84 D31F 1079 | STO 3 PCNT-Z K2010680 1080 | * K2010690 1081 | * TEST IF LINE FULL K2010700 7D85 93F6 1082 | S 3 C120-Z SEE IF LINE FULL K2010710 7D86 4CA8 7D6D 1083 | BSC I MNAME,+Z RETURN IF LINE NOT FULL K2010720 7D88 436B 1084 | BSI 3 HFILL-Z PRINT THIS LINE K2010730 7D89 4C80 7D6D 1085 | BSC I MNAME RETURN K2010740 1086 | * K2010750 1087 | * SUBROUTINE K2010760 1088 | * CHAR IN A-REG TO PRINT AREA UNCHANGED K2010770 1089 | * K2010780 7D8B 0000 1090 | TOPAU DC 0 LINK K2010790 7D8C D017 1091 | STO STOCH SAVE CHARACTER K2010800 7D8D C016 1092 | TOPAX LD STOCH LOAD CHARACTER K2010810 7D8E D480 7D3F 1093 | STO I PAP SET INTO PR AREA UNCHANGED K2010820 7D90 7401 7D3F 1094 | MDX L PAP,1 INCR PRINT AREA POINTER K2010830 7D92 4C80 7D8B 1095 | BSC I TOPAU RETURN K2010840 1096 | * K2010850 1097 | * SUBROUTINE K2010860 1098 | * CONVERT CHAR IN A-REG INTO K2010870 1099 | * EBC-CODE, THEN MOVE TO PRINT AREA K2010880 1100 | * K2010890 7D94 0000 1101 | TOPA DC 0 LINK K2010900 7D95 E31B 1102 | AND 3 H3F00-Z MASK TO LEAVE CHARACTER K2010910 7D96 4C18 7D9D 1103 | BSC L TOPA2,+- BR IF BLANK K2010920 1104 | * K2010930 1105 | * NOTE K2010940 1106 | * IF OTHER SPECIAL CHARACTERS THAN K2010950 1107 | * BLANK ARE EXPECTED, TESTING SHOULD K2010960 1108 | * BE HERE K2010970 1109 | * K2010980 7D98 EB19 1110 | OR 3 HC000-Z CONVERT TO EBCDIC K2010990 7D99 D00A 1111 | TOPA1 STO STOCH STORE CHARACTER K2011000 7D9A C0F9 1112 | LD TOPA SET UP TO RETURN FROM K2011010 7D9B D0EF 1113 | STO TOPAU *TOPAU K2011020 7D9C 70F0 1114 | MDX TOPAX GO OUTPUT CHARACTER K2011030 7D9D C318 1115 | TOPA2 LD 3 H4000-Z LOAD EBCDIC BLANK K2011040 7D9E 70FA 1116 | MDX TOPA1 GO OUTPUT K2011050 1117 | * K2011060 7D9F 0000 1118 | TOPAB DC 0 LINK K2011070 7DA0 1010 1119 | SLA 16 LOAD DUMMY BLANK K2011080 7DA1 40F2 1120 | BSI TOPA GO OUTPUT A BLANK K2011090 7DA2 4C80 7D9F 1121 | BSC I TOPAB RETURN K2011100 7DA4 0000 1122 | STOCH DC *-* STORED CHARACTER K2011110 1123 | * K2011120 1124 | * SUBROUTINE K2011130 1125 | * BLANK TO PRINT AREA K2011140 1126 | * K2011150 7DA5 0000 1127 | BLKPA DC 0 LINK K2011160 7DA6 C318 1128 | LD 3 H4000-Z LOAD EBCDIC BLANK K2011170 7DA7 6388 1129 | LDX 3 -120 SET UP TO BLANK PRINT AREA K2011180 7DA8 D700 7AB1 1130 | BLKP1 STO L3 PAREA+120 BLANK PRINT AREA K2011190 7DAA 7301 1131 | MDX 3 1 * K2011200 7DAB 70FC 1132 | MDX BLKP1 * K2011210 7DAC 6700 7D45 1133 | LDX L3 Z SET TRANSFER VECTOR POINTER K2011220 7DAE 4C80 7DA5 1134 | BSC I BLKPA RETURN K2011230 1135 | * K2011240 1136 | * TEST IF HALF FILLED LINE K2011250 1137 | * IN PRINT AREA K2011260 1138 | * K2011270 7DB0 0000 1139 | HFILL DC *-* LINK K2011280 7DB1 C31F 1140 | LD 3 PCNT-Z LOAD PRINT COUNT K2011290 7DB2 4C18 7DC4 1141 | BSC L XHF,+- RETURN IF ZERO K2011300 7DB4 C3FB 1142 | LD 3 PAPIN-Z LOAD PRINT AREA ORIGIN K2011310 7DB5 D3FA 1143 | STO 3 PAP-Z RESET PRINT AREA POINTER K2011320 7DB6 D400 7E0D 1144 | STO L AREA SET MESSAGE ADDRESS K2011330 7DB8 C31E 1145 | LD 3 D60-Z K2011340 7DB9 D400 7A38 1146 | STO L WDCNT SET WORD COUNT K2011350 7DBB 4400 7E0E 1147 | BSI L PRINT PRINT LINE K2011360 7DBD 40E7 1148 | BSI BLKPA BLANK PRINT AREA K2011370 7DBE C480 0006 1149 | LD I $CH12 TEST CHANNEL 12 SWITCH K2011380 7DC0 44A0 7E0C 1150 | BSI I NEWPG,Z EJECT PAGE IF ON K2011390 7DC2 1010 1151 | SLA 16 K2011400 7DC3 D31F 1152 | STO 3 PCNT-Z ZERO PRINT COUNT K2011410 7DC4 4C80 7DB0 1153 | XHF BSC I HFILL RETURN K2011420 1154 | * K2011430 7DC6 1000 1155 | EXIT SLA 0 EXIT ROUTINE K2011440 7DC7 C480 0006 1156 | LD I $CH12 TEST CHANNEL 12 SWITCH K2011450 7DC9 44A0 7E0C 1157 | BSI I NEWPG,Z EJECT PAGE IF ON K2011460 7DCB 6580 7DD1 1158 | LDX I1 NXTPH+1 SET UP TO GO TO K2011470 7DCD C804 1159 | LDD NXTPH+2 *NEXT PHASE K2011480 7DCE 4C00 7FBC 1160 | BSC L ROL GO TO NEXT PHASE K2011490 7DD0 1161 | BSS E 0 K2011500 7DD0 0033 1162 | NXTPH DC 51 ID OF NEXT PHASE K2011510 7DD1 0000 1163 | DC *-* CORE ADDRESS NEXT PHASE K2011520 7DD2 0000 1164 | DC *-* WORD COUNT NEXT PHASE K2011530 7DD3 0000 1165 | DC *-* SECTOR ADDRESS NEXT PHASE K2011540 7DD4 1166 | PATCH BSS /7DF5-* PATCH AREA 2-11 K2011550 7DF5 0000 1167 | DC 0 K2011560 7DF6 1168 | END BPHAR-2 K2011570 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $CH12 0006 81 947 1149 1156 $PHSE 0078 73 159 A1011 7B2D 446 336 362 A1012 7B39 454 467 A1013 7B44 466 457 460 A1021 7B48 473 A1022 7B52 483 503 A1023 7B58 502 490 AREA 7E0D 80 1144 BLKP1 7DA8 1130 1132 BLKPA 7DA5 1127 447 687 693 1134 1148 BPHAR 7A36 140 1168 C 7D62 1036 620 C10 7D39 992 922 C100 7D3A 993 919 C120 7D3B 994 1082 CCWD 7A31 106 COMON 7A2B 96 CON3D 7CF0 917 626 660 926 CONSC 7A95 269 226 232 CONT 7AC9 333 348 440 CSIZE 7A2C 97 D1015 7C19 745 726 D1025 7C33 779 D1026 7C3B 788 775 D1099 7C67 845 724 770 D60 7D63 1037 1145 DATA 7C73 856 748 782 DFCNT 7A33 127 DFILE 7C72 855 746 780 DTA10 7A57 193 266 307 DTA11 7A6A 217 207 DTA12 7A6C 222 260 DTA13 7A6F 224 DTA14 7A72 230 233 DTA15 7A78 237 261 DTA17 7A88 256 252 DTA21 7A90 263 212 258 DTA25 7AB2 298 303 DTAER 7A99 277 246 E1011 7B5C 508 452 E1021 7B6A 530 604 E1022 7B78 551 544 E1023 7B83 566 554 E1024 7B84 568 545 E1028 7B95 585 581 E1030 7B99 589 E1031 7BA0 596 592 E1038 7BA3 600 574 578 587 675 E1051 7BAC 610 598 E1052 7BB7 629 E1061 7BBD 643 631 638 E1073 7BD0 661 651 E1082 7BE1 675 E2011 7BE3 677 570 E2015 7BE9 685 168 E2020 7BF1 693 167 682 E2021 7BFA 702 683 E2022 7BF5 695 689 ENDID 7D56 1024 210 569 723 769 ENT 7A3A 157 151 EOFS 7A25 90 292 305 427 439 EOFST 7A2A 95 451 902 ERID 7A97 271 278 ERRID 7D55 1023 586 ERRNO 7D4D 1015 597 625 ERROR 7A2D 98 166 681 702 1045 1047 ERRSW 7D65 1043 500 611 1048 ERTYP 7A96 270 280 EXIT 7DC6 1155 686 705 846 FNAME 7A2E 103 FORMT 7C66 841 733 791 FOUR 7D49 1009 FZERO 7D58 1026 636 GNAM0 7D27 976 971 GNAM1 7D2A 978 965 967 968 969 973 GNAM2 7D2D 980 975 GNAM3 7D34 984 964 GNAM4 7D35 985 244 977 GNAME 7D19 963 243 552 643 982 GOSTO 7CFB 927 920 923 925 932 H0007 7A98 272 225 H0008 7D3D 996 1078 H0020 7D3E 997 459 H0200 7D44 1003 455 H07FC 7D36 987 865 870 H1800 7D41 1000 896 H3F00 7D60 1034 1102 H4000 7D5D 1031 1115 1128 HA7FC 7D43 1002 484 HC000 7D5E 1032 577 1110 HD000 7D5B 1029 736 794 HD800 7D5C 1030 350 573 755 HEAD 7F8B 77 78 HF000 7D4F 1017 929 HF800 7D4E 1016 206 717 874 HFFFD 7D3C 995 898 899 HFILL 7DB0 1139 468 504 673 1084 1153 HTES1 7D16 956 180 474 514 695 950 HTES2 7D18 959 944 HTES3 7D14 953 941 HTEST 7D04 939 615 698 953 1054 IDADR 7ABF 321 191 194 263 265 277 283 286 287 331 334 345 347 402 405 421 422 519 520 600 602 603 IDMSK 7D53 1021 196 342 532 INCS1 7CEA 908 906 INCS2 7CEC 909 903 INCSP 7CD8 894 466 502 904 909 911 IOCS 7A32 115 K0800 7AC2 324 358 K0FFF 7AC0 322 396 K7000 7AC3 325 355 KA008 7AC1 323 408 KB000 7AC4 326 361 LBLSW 7D4C 1014 540 564 580 LINK 7C71 854 850 LNCNT 7ABD 319 353 375 381 410 LOOPP 7BD2 663 671 LSTPR 7E45 84 945 951 MEMRY 8000 70 71 72 MNAME 7D6D 1053 464 495 648 1083 1085 MOVP 7C75 863 762 768 851 876 MOVP1 7C7C 869 852 NAME 7D32 983 553 637 645 979 981 NEQ 7A36 151 163 NEWPG 7E0C 79 80 83 948 1150 1157 NORM 7D52 1020 201 217 264 284 288 339 346 406 423 537 601 800 836 872 NRMSK 7D54 1022 199 337 390 535 NXTPH 7DD0 1162 143 1158 1159 ONE 7D46 1006 173 392 805 807 972 974 ORG 7A23 88 OUTFL 7D50 1018 182 476 525 697 940 942 OVERL 7A23 71 85 OVERP 7E42 78 79 84 PAP 7D3F 998 627 647 656 930 931 1093 1094 1143 PAPIN 7D40 999 1142 PAR31 7D5F 1033 646 PAREA 7A39 155 666 668 998 999 1033 1130 PATCH 7DD4 1166 PCNT 7D64 1038 1077 1079 1140 1152 PHID 0032 75 158 PLUS 7D61 1035 657 PRINT 7E0E 83 1147 PTR 7D38 989 715 716 765 802 838 849 864 867 868 869 873 R1011 7C00 714 703 R1012 7C09 722 763 854 R1013 7C28 762 734 737 747 749 R1021 7C2A 765 741 757 760 R1022 7C2C 768 784 795 839 R1023 7C44 800 781 783 792 R1031 7C51 816 801 R1032 7C53 817 809 811 812 830 R1033 7C55 821 806 R1034 7C58 823 803 827 R1035 7C5B 825 804 RALO 7D37 988 766 808 835 837 848 RANGE 7ABE 320 429 430 436 REPAK 7AC6 329 211 ROL 7FBC 72 77 1160 RPK01 7AD5 345 351 364 380 385 RPK02 7AD9 350 343 RPK05 7AE8 370 359 RPK06 7AF0 378 372 RPK10 7AF9 389 356 RPK12 7AFE 394 399 RPK13 7B07 401 397 RPK15 7B15 421 376 400 RPK20 7B23 432 437 SOFGT 7A29 94 SOFNS 7A27 92 SOFS 7A24 89 190 330 518 714 SOFST 7A26 91 448 450 478 966 SOFXT 7A28 93 171 174 SORF 7A30 105 758 STCNT 7D4B 1011 524 563 583 593 650 659 STLAB 7D4A 1010 523 561 629 STOCH 7DA4 1122 1091 1092 1111 STONO 7A94 268 218 223 231 238 254 256 STOOI 7D42 1001 STPTR 7D5A 1028 449 479 895 900 901 907 STSID 7D51 1019 197 205 209 533 568 572 576 585 718 722 732 735 745 754 779 790 793 875 STXR1 7BC4 649 644 SWITC 7C74 857 720 725 774 845 847 TEXT3 7C87 878 694 TEXT4 7C9B 881 688 TEXT5 7CA9 883 179 TEXT6 7CB6 885 473 TEXT7 7CC1 887 513 TEXT8 7CCB 889 663 THREE 7D48 1008 970 TOPA 7D94 1101 1057 1060 1065 1068 1071 1112 1120 TOPA1 7D99 1111 1116 TOPA2 7D9D 1115 1103 TOPAB 7D9F 1118 619 628 1055 1072 1073 1121 TOPAU 7D8B 1090 621 658 1095 1113 TOPAX 7D8D 1092 1114 TWO 7D47 1007 610 1046 WDCNT 7A38 154 1146 WDCT1 7AC5 327 393 398 XHF 7DC4 1153 1141 Z 7D45 1005 173 181 182 196 197 199 201 205 206 209 210 217 243 244 264 288 337 339 342 346 350 390 392 423 449 455 459 468 475 476 484 495 500 504 522 523 524 525 532 533 535 537 539 540 552 553 561 562 563 568 569 572 573 576 577 580 585 586 593 597 601 610 611 615 619 620 621 625 626 628 629 636 637 643 646 647 648 650 657 658 659 672 673 696 697 698 715 717 718 719 722 723 732 735 736 745 754 755 765 766 769 779 790 793 794 800 802 805 807 808 835 836 837 838 848 849 865 867 868 870 872 874 875 896 898 899 900 901 919 921 922 929 940 970 972 974 1046 1054 1077 1078 1079 1082 1084 1102 1110 1115 1128 1133 1140 1142 1143 1145 1152 ZERO 7D45 1004 162 181 306 475 522 539 562 696 719 1005
ibm/ibm1130-lib/dmsr2v12/kforph20_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator