ibm:ibm1130-lib:dmsr2v12:kforph01_lst
KFORPH01
| Table Of Contents |
|---|
|
- kforph01.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020 Source File: \kforph01.asm 1130 FORTRAN COMPILER PHASE 1 * 2 | *************************************************** K0100020 3 | * * K0100030 4 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K0100040 5 | * * K0100050 6 | *FUNCTION/OPERATION- * K0100060 7 | * * K0100070 8 | * * LOADS THE SYSTEM INPUT, THE SYSTEM INPUT * K0100080 9 | * CONVERSION, AND THE SYSTEM PRINT SUBROUTINES* K0100090 10 | * FOR USE IN THIS PHASE. * K0100100 11 | * * K0100110 12 | * * INITIALIZES THE INTERRUPT TRANSFER ADDRESSES* K0100120 13 | * NECESSARY FOR THESE SUBROUTINES. SINCE * K0100130 14 | * OTHER PHASES REQUIRE THE SYSTEM PRINT SUB- * K0100140 15 | * ROUTINE, THIS SUBROUTINE IS LOADED AT A * K0100150 16 | * COMMON ADDRESS SO THE INTERRUPT BRANCH ADDR * K0100160 17 | * FOR THIS SUBROUTINE NEED ONLY BE INITIALIZED* K0100170 18 | * ONCE. THE ILS 4 BRANCH TABLE IS LOCATED AT * K0100180 19 | * A HIGH CORE ADDRESS WHERE IT WILL NOT BE * K0100190 20 | * OVERLAYED. * K0100200 21 | * * K0100210 22 | * * READS THE CONTROL RECORDS, AND SETS * K0100220 23 | * CORRESPONDING INDICATORS IN THE FORTRAN * K0100230 24 | * COMMUNICATIONS AREA (FCOM). * K0100240 25 | * * K0100250 26 | * * READS THE SOURCE STATEMENTS AND STORES THEM * K0100260 27 | * IN THE STRING AREA. EACH STATEMENT IS * K0100270 28 | * PRECEDED WITH A PARTIALLY COMPLETED ID WORD.* K0100280 29 | * * K0100290 30 | * * CHECKS FOR A MAXIMUM OF FIVE CONTINUATION * K0100300 31 | * RECORDS PER STATEMENT. * K0100310 32 | * * K0100320 33 | * * LISTS THE SOURCE PROGRAM IF REQUIRED. * K0100330 34 | * * K0100340 35 | *ENTRY POINTS- * K0100350 36 | * * FZ000-ENTERED BY A CALL FROM THE SUPERVISOR * K0100360 37 | * * K0100370 38 | *INPUT- * K0100380 39 | * * INPUT IS VIA CONTROL AND SOURCE STATEMENTS * K0100390 40 | * ENTERED THROUGH THE PRINCIPAL INPUT DEVICE. * K0100400 41 | * * K0100410 42 | *OUTPUT- * K0100420 43 | * * LISTING ON THE PRINCIPAL PRINTER OF ALL * K0100430 44 | * CONTROL RECORDS, AND OF ALL SOURCE * K0100440 45 | * STATEMENTS IF SO REQUESTED. * K0100450 46 | * * K0100460 47 | * * INFORMATION FOR THE OTHER PHASES DEALING * K0100470 48 | * WITH THE CURRENT COMPILATION STORED IN FCOM.* K0100480 49 | * * K0100490 50 | * * SOURCE STATEMENTS WITH PARTIALLY COMPLETED * K0100500 51 | * IDS STORED IN THE STRING AREA. * K0100510 52 | * * K0100520 53 | *EXTERNAL REFERENCES- * K0100530 54 | * SUBROUTINES- * K0100540 55 | * * DZ000- DISKZ ENTRY POINT * K0100550 56 | * * $DUMP- CALL DUMP ENTRY POINT * K0100560 57 | * * K0100570 58 | * COMMA/DCOM * K0100580 59 | * * $CH12- NON-ZERO WHEN CHANNEL 12 SENSED * K0100590 60 | * * $CORE- SIZE OF CORE E.G. 4096 = 4K * K0100600 61 | * * $CTSW- CONTROL RECORD TRAP SWITCH * K0100610 62 | * * $IBSY- NON-ZERO WHEN INPUT DEVICE BUSY * K0100620 63 | * * $LAST- NON-ZERO WHEN LAST CARD SENSED * K0100630 64 | * * $PBSY- NON-ZERO WHEN PRINTER BUSY * K0100640 65 | * * $PHSE- NO. OF PHASE NOW IN CORE * K0100650 66 | * * $KCSW- INHIBIT INPUT/PRINT OVERLAP SW K0100660 67 | * * $IBT4- ADDRESS OF THE LEVEL 4 IBT * K0100670 68 | * * $DBSY- NON-ZERO WHEN DISKZ BUSY * K0100680 69 | * * $ZEND- END OF DISKZ + 1 * K0100690 70 | * * K0100700 71 | * SECTOR ADDRESSES * K0100710 72 | * * $HDNG- SECTOR ADDRESS OF PAGE HEADER * K0100720 73 | * * K0100730 74 | *EXITS- * K0100740 75 | * NORMAL- * K0100750 76 | * * EXIT IS MADE THROUGH THE INTERPHASE * K0100760 77 | * ROLLER SUBROUTINE WITH A REQUEST TO ENTER* K0100770 78 | * PHASE 2. THIS EXIT IS MADE AFTER THE END* K0100780 79 | * STATEMENT IS ENCOUNTERED. * K0100790 80 | * ERROR- * K0100800 81 | * * // CONTROL CARD ENCOUNTERED- * K0100810 82 | * EXIT IS MADE THROUGH THE INTERPHASE * K0100820 83 | * ROLLER SUBROUTINE WITH A REQUEST TO ENTER* K0100830 84 | * THE RECOVERY PHASE 27. * K0100840 85 | * * K0100850 86 | *TABLES/WORK AREAS- * K0100860 87 | * * FCOM * K0100870 88 | * ORG - ORIGIN ADDRESS * K0100880 89 | * SOFS - START OF STRING * K0100890 90 | * EOFS - END OF STRING * K0100900 91 | * SOFST- START OF SYMBOL TABLE * K0100910 92 | * SOFNS- START OF NON-STATEMENT NUMBERS * K0100920 93 | * SOFXT- START OF SUBSCRIPTED TEMPORARIES * K0100930 94 | * SOFGT- START OF GENERATED TEMPORARIES * K0100940 95 | * EOFST- END OF SYMBOL TABLE * K0100950 96 | * COMON- NEXT AVAILABLE COMMON * K0100960 97 | * CSIZE- SIZE OF COMMON * K0100970 98 | * ERROR- OVERLAP ERROR SWITCH * K0100980 99 | * FNAME- PROGRAM NAME (2 WORDS) * K0100990 100 | * SORF - SUBROUTINE(-) OR FUNCTION(+) * K0101000 101 | * CCWD - CONTROL CARD WORD * K0101010 102 | * BIT 15 TRANSFER TRACE * K0101020 103 | * BIT 14 ARITHMETIC TRACE * K0101030 104 | * BIT 13 EXTENDED PRECISION * K0101040 105 | * BIT 12 LIST SYMBOL TABLE * K0101050 106 | * BIT 11 LIST SUBPROGRAM NAMES * K0101060 107 | * BIT 10 LIST SOURCE PROGRAM * K0101070 108 | * BIT 9 ONE WORD INTEGERS * K0101080 109 | * BIT 8 ORIGIN * K0101090 110 | * BIT 7 NOT USED * K0101100 111 | * BIT 6 NOT USED * K0101110 112 | * BIT 5 NOT USED * K0101120 113 | * BIT 4 NOT USED * K0101130 114 | * BIT 3 NOT USED * K0101140 115 | * BIT 2 NOT USED * K0101150 116 | * BIT 1 NOT USED * K0101160 117 | * BIT 0 NOT USED * K0101170 118 | * IOCS - IOCS CONTROL CARD WORD * K0101180 119 | * BIT 15 CARD * K0101190 120 | * BIT 14 PAPER TAPE * K0101200 121 | * BIT 13 TYPEWRITER * K0101210 122 | * BIT 12 1403 PRINTER * K0101220 123 | * BIT 11 2501 READER * K0101230 124 | * BIT 10 KEYBOARD * K0101240 125 | * BIT 9 1442 PUNCH * K0101250 126 | * BIT 8 DISK * K0101260 127 | * BIT 7 1132 PRINTER * K0101270 128 | * BIT 6 NOT USED * K0101280 129 | * BIT 5 NOT USED * K0101290 130 | * BIT 4 NOT USED * K0101300 131 | * BIT 3 PLOTTER * K0101310 132 | * BIT 1 UNFORMATTED DISK * K0101320 133 | * BIT 0 NOT USED * K0101330 134 | * BIT 0 NOT USED * K0101340 135 | * DFCNT- DEFINE FILE COUNT * K0101350 136 | * * K0101360 137 | * * PROGRAMMED SWITCHES- * K0101370 138 | * THE SWITCHES USED IN PHASE 1 FOLLOW- * K0101380 139 | * IF NON-ZERO, THE SWITCH IS TRANSFER = T * K0101390 140 | * IF ZERO, THE SWITCH IS NORMAL = N * K0101400 141 | * * SWITCH 1- FZ951 * K0101410 142 | * N= SOURCE CARD NOT YET ENCOUNTERED * K0101420 143 | * T= SOURCE CARD ENCOUNTERED * K0101430 144 | * * SWITCH 2- FZ952 * K0101440 145 | * N= CONTINUATION CARD NOT ALLOWED * K0101450 146 | * T= CONTINUATION CARD OK * K0101460 147 | * * SWITCH 3- FZ953 * K0101470 148 | * N= NO NORM CALCULATION REQUIRED * K0101480 149 | * T= STMNT REQUIRES NORM CALCULATION * K0101490 150 | * * SWITCH 4- FZ954 * K0101500 151 | * N= NORMAL * K0101510 152 | * T= EXCESS CONTINUATION RECORDS * K0101520 153 | * * SWITCH 5- FZ955 * K0101530 154 | * N= NORMAL * K0101540 155 | * T= STMNT NOT POSSIBLY A FORMAT STMNT * K0101550 156 | * * SWITCH 6- FZ956 * K0101560 157 | * N= NORMAL * K0101570 158 | * T= FORMAT STMNT, DON'T REMOVE BLANKS * K0101580 159 | * * SWITCH 7- FZ957 * K0101590 160 | * N= STORE CHAR IN LEFT OF WORD * K0101600 161 | * T= STORE CHAR IN RIGHT OF WORD * K0101610 162 | * * SWITCH 9- FZ959 * K0101620 163 | * N= NORMAL * K0101630 164 | * T= DATA STATEMENT BEING PROCESSED * K0101640 165 | * * SWITCH 14- FZ95E * K0101650 166 | * N= END OF CTRL CARD NOT ANTICIPATED * K0101660 167 | * T= NORMAL * K0101670 168 | * * K0101680 169 | * * STRING AREA * K0101690 170 | * THE STRING AREA DURING COMPILATION CONTAINS* K0101700 171 | * BOTH THE STATEMENT STRING AND THE SYMBOL * K0101710 172 | * TABLE. THE STATEMENT STRING IS BUILT BY * K0101720 173 | * PHASE 1 IN AN ASCENDING CHAIN BEGINNING IN * K0101730 174 | * THE LOW-ADDRESSED WORDS OF THE STRING AREA * K0101740 175 | * *$ZEND). THE SYMBOL TABLE IS BUILT DURING * K0101750 176 | * THE COMPILATION PROCESS IN THE HIGH- * K0101760 177 | * ADDRESSED WORDS OF THE STRING AREA (THE * K0101770 178 | * BEGINNING OF FCOM - 3). THE ACTUAL START * K0101780 179 | * AND END ADDRESSES OF THE STRING AREA MAY BE* K0101790 180 | * FOUND IN ENTRYS IN FCOM. * K0101800 181 | * * OVERP- * K0101810 182 | * START OF A 329 WORD WORK AREA FOR STORAGE * K0101820 183 | * OF THE PRINCIPAL PRINT SUBROUTINE. ALL * K0101830 184 | * PHASES REQUIRING PRINTED OUTPUT WILL HAVE * K0101840 185 | * THE PRINT SUBROUTINE IN THIS SAME AREA. * K0101850 186 | * * HEAD * K0101860 187 | * START OF A 49 WORD AREA CONTAINING THE PAGE* K0101870 188 | * HEADING FOR LISTINGS. * K0101880 189 | * * RL000 * K0101890 190 | * START OF A 58 WORD AREA CONTAINING THE * K0101900 191 | * FORTRAN INTERPHASE ROLLER SUBROUTINE. * K0101910 192 | * * IBT4 * K0101920 193 | * START OF A 9 WORD AREA CONTAINING THE * K0101930 194 | * INTERRUPT BRANCH ADDRESSES FOR LEVEL 4 * K0101940 195 | * INTERRUPTS. * K0101950 196 | * * K0101960 197 | * * NOTE * K0101970 198 | * THE AREAS HEAD, RL000, AND IBT4 ARE NOT * K0101980 199 | * OVERLAYED BY ANY SUBSEQUENT PHASE. * K0101990 200 | * * K0102000 201 | *ATTRIBUTES- * K0102010 202 | * * ERRORS DETECTED BY THIS PHASE - 1,2 * K0102020 203 | * * K0102030 204 | *NOTES-N/A * K0102040 205 | *************************************************** K0102050 1130 FORTRAN COMPILER PHASE 1 207 | ABS K0102070 208 | * K0102080 209 | * K0102090 210 | * THE FOLLOWING PROGRAM (FZXXX) IS IN K0102100 211 | * CORE ONLY UNTIL THE CONTROL CARDS K0102110 212 | * ARE ANALYZED. K0102120 213 | * K0102130 214 | * K0102140 215 | * SYSTEM EQUATES K0102150 216 | * K0102160 8000 217 | MEMRY EQU /8000 MODULE CORE SIZE K0102170 218 | * K0102180 0006 219 | $CH12 EQU /06 CHANNEL12 INDR,NON-ZERO=CHAN12 K0102190 000E 220 | $CORE EQU /0E SIZE OF CORE, E.G. 4096 = 4K K0102200 000F 221 | $CTSW EQU /0F CONTROL RECORD TRAP SWITCH K0102210 0013 222 | $IBSY EQU /13 NON-ZERO WHEN INPUT DEVICE BUSY K0102220 0033 223 | $LAST EQU /33 NON-ZERO WHEN LAST CARD SENSED K0102230 0036 224 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY K0102240 225 | * *NEGATIVE WHEN BUFFER FREE. K0102250 0078 226 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K0102260 007C 227 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW K0102270 003F 228 | $DUMP EQU /3F CALL DUMP ENTRY POINT K0102280 00D4 229 | $IBT4 EQU /D4 ADDRESS OF THE IBT K0102290 00EE 230 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BISU K0102300 00F2 231 | DZ000 EQU /F2 DISKZ ENTRY POINT K0102310 01E0 232 | $ZEND EQU /1E0 END OF DISKZ +1 K0102320 233 | * K0102330 234 | * K0102340 0007 235 | #HDNG EQU 7 SECTOR ADDR PAGE HEADER K0102350 236 | * K0102360 237 | * PHASE 1 EQUATES K0102370 238 | * K0102380 001F 239 | PHID EQU 31 PHASE ID K0102390 240 | * K0102400 7FF6 241 | I4900 EQU MEMRY-10 ILS4 BRANCH TABLE K0102410 7FBC 242 | RL000 EQU MEMRY-68 ENTRY INTERPHASE ROLL SUBR K0102420 7F8B 243 | HEAD EQU RL000-49 PAGE HEADER STORAGE AREA K0102430 7E42 244 | OVERP EQU HEAD-327-2 SYSTEM PRINT SUBR AREA K0102440 760C 245 | OVERZ EQU MEMRY-2548 PHASE 1 ORIGIN 2-6 K0102450 7A23 246 | OVERL EQU MEMRY-1501 FCOM ORIGIN 2-4 K0102460 0089 247 | ADSTF EQU 137 DELTA FOR ADD NEEDS 2-4 K0102470 799A 248 | OVERX EQU OVERL-ADSTF ADDITIONAL PHASE 1 NEEDS K0102480 249 | * K0102490 250 | * K0102500 1130 DISK MON SYS VER 2 FORT PHASE 1 252 | * K0102520 760C 253 | ORG OVERZ PHASE 1 ORIGIN K0102530 254 | * K0102540 760C 0000 255 | DC 0 WORK AREA FOR LOADER K0102550 760D FFE1 256 | DC -31 -ID COMPILER PHASE 1 K0102560 760E 0062 257 | DC FZZ90-*+1 REL ADR SLET ENTRY STORAGE K0102570 760F 0008 258 | DC 8 COUNT OF SLET ENTRIES 2-6 K0102580 760E 259 | ORG *-2 K0102590 260 | * K0102600 760E 261 | FZ000 EQU * K0102610 1130 FORTRAN COMPILER PHASE 1 263 | * K0102630 264 | * PHASE 1 INITIALIZATION K0102640 265 | * K0102650 266 | * K0102660 267 | * K0102670 760E 631F 268 | LDX 3 PHID LOAD PHASE ID K0102680 760F 6F00 0078 269 | STX L3 $PHSE STORE INTO PHASE LOG K0102690 270 | * K0102700 271 | * K0102710 272 | * K0102720 273 | * READ PAGE HEADER K0102730 274 | * K0102740 7611 C400 769A 275 | FZZ10 LD L FZ900 LOAD SECTOR ADR FOR HEADER K0102750 7613 D400 7F8B 276 | STO L HEAD STORE IN HEADER AREA K0102760 7615 C87A 277 | LDD FZ901 LOAD DISK READ PARAMETERS K0102770 7616 4400 00F2 278 | BSI L DZ000 READ IN PAGE HEADER K0102780 7618 7400 00EE 279 | MDX L $DBSY K0102790 761A 70FD 280 | MDX *-3 LOOP ON DISK BUSY K0102800 281 | * K0102810 282 | * K0102820 761B C400 7F8A 283 | LD L HEAD-1 MOVE WORD COUNT TO PROPER K0102830 761D D400 7F8B 284 | STO L HEAD LOCATION FOR PRINT K0102840 285 | * K0102850 286 | * FETCH PRINT ROUTINE AND STORE, ALSO K0102860 287 | * SAVE WORD COUNT AND SECTOR ADDRESS K0102870 288 | * FOR PHASE 19. K0102880 289 | * K0102890 290 | * K0102900 761F C866 291 | LDD FZZ93+2 LD DISK ADDR OF PRINT SUBR K0102910 7620 DC00 7E42 292 | STD L F1803-2 STORE IN PRINT RTN AR K0102920 7622 C86F 293 | LDD FZ902 SET UP TO LD PRINT RT K0102930 7623 4400 00F2 294 | BSI L DZ000 LOAD PRINT RT K0102940 295 | * K0102950 296 | * FETCH INPUT ROUTINE AND INPUT K0102960 297 | * CONVERSION ROUTINE AND STORE. K0102970 298 | * K0102980 299 | * TEST IF INPUT FROM CARD K0102990 300 | * K0103000 7625 C400 007C 301 | LD L $KCSW TEST IF KEYBOARD INPUT 2-6 K0103010 7627 4C20 7634 302 | BSC L FZZ20,Z BRANCH IF YES 2-6 K0103020 303 | * K0103030 7629 C051 304 | LD FZZ98+3 TEST IF 2-6 K0103040 762A 9060 305 | S FZZ94+3 *PAPER TAPE INPUT 2-6 K0103050 762B 4C18 763C 306 | BSC L FZZ25,+- BRANCH IF YES 2-6 K0103060 307 | * K0103070 308 | * LOAD CARD INPUT ROUTINE K0103080 309 | * K0103090 762D C85C 310 | LDD FZZ94+2 LOAD INPUT ROUTINE ADDR2-6 K0103100 762E DC00 7A34 311 | STD L F1801-2 STORE IN AREA 2-6 K0103110 7630 C863 312 | LDD FZ903 LOAD PARAMETERS 2-6 K0103120 7631 4400 00F2 313 | BSI L DZ000 READ IN ROUTINE 2-6 K0103130 7633 701F 314 | MDX FZZ35 CONTINUE 2-6 K0103140 315 | * K0103150 316 | * SET UP FOR KEYBOARD INPUT K0103160 317 | * K0103170 7634 6500 79EB 318 | FZZ20 LDX L1 F179K KYBRD TBL MODIFIERS 2-8 K0103180 7636 6D00 79D9 319 | STX L1 F179A+1 INILZ INST FOR DATA MVE 2-8 K0103190 7638 C849 320 | LDD FZZ97+2 SET KEYBOARD CONVERT AS 2-8 K0103200 7639 D854 321 | STD FZZ95+2 *INPUT CONVERSION SUBR K0103210 763A C843 322 | LDD FZZ96+2 LOAD DISK ADDR KB I/P SUBR K0103220 763B 7001 323 | MDX FZZ30 CONTINUE K0103230 324 | * K0103240 325 | * K0103250 763C C84D 326 | FZZ25 LDD FZZ94+2 LD DISK ADDR OF INPUT SUBR K0103260 763D DC00 7A34 327 | FZZ30 STD L F1801-2 STORE IN INPUT ROUTINE AR K0103270 328 | * K0103280 329 | * WORD COUNT OF INPUT RTN IN A REGISTER K0103290 330 | * K0103300 763F 8058 331 | A FZ907 GET LOAD LOCATION FOR K0103310 7640 8054 332 | A FZ903+1 CONVERSION ROUTINE K0103320 333 | * K0103330 7641 4804 334 | BSC E TEST FOR EVEN LOCN K0103340 7642 8058 335 | A FZ900+1 MAKE LOC EVEN K0103350 7643 D053 336 | STO FZ904+1 SET INTO LOAD PARAMETER K0103360 7644 8053 337 | A FZ907 GET ENTRY POINT TO CNVRT K0103370 7645 8055 338 | A FZ900+1 INCR ENTRY POINT BY ONE K0103380 7646 D400 7BB1 339 | STO L F1802 STORE AS INDIRECT ADDRESS K0103390 340 | * K0103400 7648 C84B 341 | LDD FZ903 LOAD INPUT RTN LOAD PARAM K0103410 7649 4400 00F2 342 | BSI L DZ000 LOAD INPUT ROUTINE K0103420 343 | * K0103430 344 | * K0103440 764B C842 345 | LDD FZZ95+2 LD DISK ADDR CONVERT SUBR K0103450 764C DC80 7697 346 | STD I FZ904+1 STORE IN CNVRT RTN AREA K0103460 764E C847 347 | LDD FZ904 LOAD CNVRT RTN LOAD PARAM K0103470 764F 4400 00F2 348 | BSI L DZ000 LOAD CNVRT ROUTINE K0103480 7651 4C00 79D3 349 | B L F1799 GO INITLZ CONV TBLS 2-8 K0103490 350 | * K0103500 7653 C01D 351 | FZZ35 LD FZZ91+1 SAVE PHASE 2 CORE ADDRESS, K0103510 7654 D400 7E01 352 | STO L F1038 WORD COUNT, AND SECTOR K0103520 7656 C81B 353 | LDD FZZ91+2 ADDRESS FOR LINKAGE TO K0103530 7657 DC00 7E02 354 | STD L F1039 ROLLER ROUTINE. K0103540 355 | * K0103550 7659 C01B 356 | LD FZZ92+1 SAVE PHASE 27 CORE ADDR, K0103560 765A D400 7C8E 357 | STO L F1568 WORD COUNT, AND SECTOR K0103570 765C C819 358 | LDD FZZ92+2 ADDRESS FOR LINKAGE TO K0103580 765D DC00 7C90 359 | STD L F1569 ROLLER ROUTINE. K0103590 360 | * K0103600 361 | * K0103610 362 | * K0103620 363 | * K0103630 364 | * K0103640 365 | * SET UP INTERRUPT BRANCH LOCATIONS K0103650 366 | * FOR SYSTEM I/O ROUTINES. K0103660 367 | * K0103670 368 | * K0103680 369 | * K0103690 765F 6700 7FF5 370 | LDX L3 I4900-1 INITIALIZE ILS4 BRANCH K0103700 7661 6F00 00D4 371 | STX L3 $IBT4 TABLE ADDRESS. K0103710 372 | * K0103720 7663 6700 7E48 373 | LDX L3 F1803+4 PRINT RTN INTERRUPT ENTRY K0103730 7665 6F00 0009 374 | STX L3 9 1132 INT K0103740 375 | * K0103750 7667 6700 7A3D 376 | LDX L3 F1801+7 1403 COLUMN INTERRUPT ENTR K0103760 7669 6F00 0008 377 | STX L3 8 1403 COLUMN INT K0103770 378 | * K0103780 379 | * K0103790 380 | * K0103800 766B 7400 00EE 381 | MDX L $DBSY,0 SKIP IF DISK NOT BUSY K0103810 766D 70FD 382 | MDX *-3 LOOP IF DISK BUSY K0103820 383 | * K0103830 384 | * K0103840 766E 702D 385 | MDX FZZ50 CONTINUE K0103850 386 | * K0103860 387 | * K0103870 1130 FORTRAN COMPILER PHASE 1 389 | * K0103890 7670 390 | BSS E 0 K0103900 391 | * K0103910 392 | * STORAGE FOR SLET ENTRIES K0103920 393 | * K0103930 7670 394 | FZZ90 EQU * K0103940 395 | * K0103950 396 | * K0103960 7670 0020 397 | FZZ91 DC 32 ID PHASE 2 K0103970 7671 0000 398 | DC *-* CORE ADDRESS K0103980 7672 0000 399 | DC *-* WORD COUNT K0103990 7673 0000 400 | DC *-* SECTOR ADDRESS K0104000 401 | * K0104010 7674 0039 402 | FZZ92 DC 57 ID PHASE 27 (RECOVERY) K0104020 7675 0000 403 | DC *-* CORE ADDRESS K0104030 7676 0000 404 | DC *-* WORD COUNT K0104040 7677 0000 405 | DC *-* SECTOR ADDRESS K0104050 406 | * K0104060 7678 0091 407 | FZZ98 DC 145 ID P/T INPUT ROUTINE 2-6 K0104070 7679 0000 408 | DC *-* NOT USED 2-6 K0104080 767A 0000 409 | DC *-* WORD COUNT 2-6 K0104090 767B 0000 410 | DC *-* SECTOR ADDRESS 2-6 K0104100 411 | * K0104110 767C 0092 412 | FZZ96 DC 146 ID KB INPUT SUBROUTINE K0104120 767D 0000 413 | DC *-* NOT USED K0104130 767E 0000 414 | DC *-* WORD COUNT K0104140 767F 0000 415 | DC *-* SECTOR ADDRESS K0104150 416 | * K0104160 7680 0095 417 | FZZ97 DC 149 ID KB INPUT CONVERT SUBR K0104170 7681 0000 418 | DC *-* NOT USED K0104180 7682 0000 419 | DC *-* WORD COUNT K0104190 7683 0000 420 | DC *-* SECTOR ADDRESS K0104200 421 | * K0104210 7684 0099 422 | FZZ93 DC 153 ID PRINCIPAL PRINT SUBR K0104220 7685 0000 423 | DC *-* NOT USED K0104230 7686 0000 424 | DC *-* WORD COUNT K0104240 7687 0000 425 | DC *-* SECTOR ADDRESS K0104250 426 | * K0104260 7688 009A 427 | FZZ94 DC 154 ID PRINCIPAL INPUT SUBR K0104270 7689 0000 428 | DC *-* NOT USED K0104280 768A 0000 429 | DC *-* WORD COUNT K0104290 768B 0000 430 | DC *-* SECTOR ADDRESS K0104300 431 | * K0104310 768C 009C 432 | FZZ95 DC 156 ID INPUT CONVERSION SUBR K0104320 768D 0000 433 | DC *-* NOT USED K0104330 768E 0000 434 | DC *-* WORD COUNT K0104340 768F 0000 435 | DC *-* SECTOR ADDRESS K0104350 436 | * K0104360 437 | * K0104370 7690 438 | BSS E 0 K0104380 7690 7000 439 | FZ901 DC /7000 DISK CONTROL FOR READING K0104390 7691 7F8A 440 | DC HEAD-1 PAGE HEADER RECORD K0104400 441 | * K0104410 7692 7000 442 | FZ902 DC /7000 PARAMETER FOR LOADING K0104420 7693 7E42 443 | DC F1803-2 PRINT ROUTINE. K0104430 444 | * K0104440 7694 7000 445 | FZ903 DC /7000 PARAMETER FOR LOADING K0104450 7695 7A34 446 | DC F1801-2 INPUT ROUTINE. K0104460 447 | * K0104470 7696 7000 448 | FZ904 DC /7000 PARAMETER FOR LOADING K0104480 7697 0000 449 | DC *-* INPUT CONVERSION ROUTINE. K0104490 450 | * K0104500 7698 0002 451 | FZ907 DC 2 USEFUL CONSTANT K0104510 7699 4040 452 | FZ90B DC /4040 2 EBC BLANKS K0104520 769A 0007 453 | FZ900 DC #HDNG SECTOR ADDRESS PAGE HEADER K0104530 769B 0001 454 | DC 1 USEFUL CONSTANT K0104540 455 | * K0104550 456 | * K0104560 1130 FORTRAN COMPILER PHASE 1 458 | * K0104580 769C 6780 000E 459 | FZZ50 LDX I3 $CORE XR3 = ACTUAL CORE SIZE K0104590 769E 7700 FA20 460 | MDX L3 OVERL-MEMRY-3 SET SYM TBL END 2-4 K0104600 461 | * K0104610 76A0 1000 462 | NOP PREVIOUS INST SKIPS IF 32K K0104620 463 | * K0104630 76A1 6F00 7A26 464 | STX L3 FX003 INIT START OF SYMBOL TABLE K0104640 76A3 6F00 7A27 465 | STX L3 FX004 START OF NON-STATEMENT NOS K0104650 76A5 6F00 7A28 466 | STX L3 FX005 START OF SUBSCRIPT TEMPS K0104660 467 | * K0104670 76A7 6F00 7A29 468 | STX L3 FX006 START OF GENERATED TEMPS K0104680 469 | * K0104690 470 | * K0104700 471 | * MODIFY END OF SYMBOL TABLE ADDRESS K0104710 472 | * FOR ADDITIONAL PHASE 1 NEEDS. K0104720 473 | * K0104730 76A9 7700 FF77 474 | MDX L3 -ADSTF K0104740 475 | * K0104750 476 | * K0104760 76AB 6F00 7A2A 477 | STX L3 FX007 END OF SYMBOL TABLE K0104770 478 | * K0104780 76AD 6700 7FFF 479 | LDX L3 /7FFF SET ADDRESS OF K0104790 76AF 6F00 7A2B 480 | STX L3 FX008 NEXT AVAILABLE COMMON K0104800 481 | * K0104810 76B1 1010 482 | SLA 16 SET THE FOLLOWING TO ZERO- K0104820 76B2 D400 7A23 483 | STO L FX000 ORIGIN ADDRESS 2-4 K0104830 76B4 D400 7A2C 484 | STO L FX009 SIZE OF COMMON K0104840 76B6 D400 7A2D 485 | STO L FX010 OVERLAP ERROR SWITCH K0104850 76B8 D400 7A30 486 | STO L FX012 SUBROUTINE OR FUNCTION SW K0104860 76BA D400 7A32 487 | STO L FX014 IOCS CONTROL CARD WORD K0104870 76BC D400 7A31 488 | STO L FX013 CONTROL CARD SWITCH WORD K0104880 76BE D400 7A2E 489 | STO L FX011 PROGRAM NAME K0104890 76C0 D400 7A2F 490 | STO L FX011+1 K0104900 76C2 D400 7A33 491 | STO L FX015 FILE COUNT K0104910 492 | * K0104920 493 | * INITIALIZE PHASE 1 K0104930 494 | * K0104940 76C4 D400 7D41 495 | STO L F1951 NORMALIZE SWITCH 1 K0104950 76C6 6700 01E0 496 | LDX L3 $ZEND SET UP FOR STRING AREA K0104960 76C8 6F00 7A24 497 | STX L3 FX001 START OF STRING ADDRESS K0104970 76CA 6580 7A24 498 | LDX I1 FX001 START OF STRING ADDR IN X1 K0104980 499 | * K0104990 500 | * INITIALIZE HEADER AREA K0105000 501 | * K0105010 502 | * K0105020 76CC 63DD 503 | LDX 3 -35 K0105030 76CD C0CB 504 | LD FZ90B A REGISTER = /4040 K0105040 76CE D700 7FBB 505 | FZ001 STO L3 HEAD+48 ZERO HEADER WORD K0105050 76D0 7301 506 | MDX 3 1 SKIP IF ALL 40 WORDS ZERO K0105060 76D1 70FC 507 | MDX *-4 GO TO ZERO NEXT WORD K0105070 508 | * K0105080 76D2 4C00 7C9F 509 | BSC L F1000 GO START INPUT OF RECORDS K0105090 510 | * K0105100 1130 FORTRAN COMPILER PHASE 1 512 | * K0105120 513 | * CONSTANTS AND SWITCHES K0105130 514 | * K0105140 76D4 0000 515 | FZ95E DC 0 SWITCH 14 K0105150 516 | * K0105160 76D5 00E3 517 | FZ911 DC .T T TEST CONSTANT K0105170 76D6 FFDE 518 | FZ912 DC .A-.T A TEST K0105180 76D7 0012 519 | FZ913 DC .L-.A L TEST K0105190 76D8 FFF2 520 | FZ914 DC .E-.L E TEST K0105200 76D9 0004 521 | FZ915 DC .I-.E I TEST K0105210 76DA 000D 522 | FZ916 DC .O-.I O TEST K0105220 76DB FF86 523 | FZ918 DC .*-.O * TEST K0105230 76DC 0079 524 | FZ922 DC .N-.* N TEST K0105240 76DD 0060 525 | FZ919 DC .- - FOR CONTROL CARD ERROR K0105250 526 | * K0105260 527 | * K0105270 76DE 0000 528 | FZ920 DC 0 LENGTH FOR CTL CARD COMPAR K0105280 76DF 76E0 529 | FZ921 DC * PAGE RESTORE SWITCH K0105290 530 | * K0105300 1130 FORTRAN COMPILER PHASE 1 76E0 532 | FZ003 EQU * K0105320 533 | * K0105330 76E0 1010 534 | FZ004 SLA 16 K0105340 76E1 D0F2 535 | STO FZ95E NORMALIZE SWITCH 14 K0105350 536 | * K0105360 76E2 4400 7860 537 | BSI L FZ600 GET FIRST NON-BLANK CHAR K0105370 538 | * K0105380 76E4 90F0 539 | S FZ911 IS THE CHARACTER T K0105390 76E5 4C18 7701 540 | BSC L FZ008,+- BRANCH IF YES K0105400 541 | * K0105410 76E7 90EE 542 | S FZ912 IS THE CHARACTER A K0105420 76E8 4C18 7707 543 | BSC L FZ012,+- BRANCH IF YES K0105430 544 | * K0105440 76EA 90EC 545 | S FZ913 IS THE CHARACTER L K0105450 76EB 4C18 770C 546 | BSC L FZ014,+- BRANCH IF YES K0105460 547 | * K0105470 76ED 90EA 548 | S FZ914 IS THE CHARACTER E K0105480 76EE 4C18 7739 549 | BSC L FZ022,+- BRANCH IF YES K0105490 550 | * K0105500 76F0 90E8 551 | S FZ915 IS THE CHARACTER I K0105510 76F1 4C18 7753 552 | BSC L FZ024,+- BRANCH IF YES K0105520 553 | * K0105530 76F3 90E6 554 | S FZ916 IS THE CHARACTER O K0105540 76F4 4C18 781B 555 | BSC L FZ070,+- BRANCH IF YES 2-4 K0105550 556 | * K0105560 76F6 90E4 557 | S FZ918 IS THE CHARACTER * K0105570 76F7 4C18 793A 558 | BSC L FZ090,+- BRANCH IF YES K0105580 559 | * K0105590 76F9 90E2 560 | S FZ922 IS CHARACTER N K0105600 76FA 4C18 794A 561 | BSC L FZ100,+- BRANCH IF YES K0105610 562 | * K0105620 563 | * K0105630 564 | * BAD CONTROL CARD ENTRY K0105640 565 | * K0105650 76FC C0E0 566 | FZ005 LD FZ919 LOAD - ERROR INDICATOR K0105660 76FD D480 7CBB 567 | STO I F1003+1 PLACE MINUS INTO CC RECORD K0105670 568 | * PRINT CARD IN ERROR AND K0105680 76FF 4C00 7CBA 569 | BSC L F1003 GET ANOTHER. K0105690 570 | * K0105700 571 | * K0105710 572 | * K0105720 7701 630C 573 | FZ008 LDX 3 12 SET CHARACTER COUNT K0105730 7702 6BDB 574 | STX 3 FZ920 TO 12 K0105740 7703 6700 787C 575 | LDX L3 FZ971 'RANSFERTRACE' K0105750 576 | * K0105760 577 | * K0105770 7705 4C00 77FD 578 | FZ010 BSC L FZ056 GO CHECK IF VALID CONTROL K0105780 579 | * K0105790 580 | * K0105800 7707 630E 581 | FZ012 LDX 3 14 SET CHARACTER K0105810 7708 6BD5 582 | STX 3 FZ920 COUNT TO 14 K0105820 7709 6700 7889 583 | LDX L3 FZ972 'RITHMETICTRACE' K0105830 770B 70F9 584 | MDX FZ010 GO CHECK K0105840 585 | * K0105850 586 | * K0105860 770C 6303 587 | FZ014 LDX 3 3 SET CHARACTER K0105870 770D 6BD0 588 | STX 3 FZ920 COUNT TO 3 K0105880 770E 6700 78F8 589 | LDX L3 FZ981 'IST' K0105890 7710 4400 7803 590 | BSI L FZ060 GO CHECK, RETURN IF EQUAL K0105900 591 | * K0105910 7712 4400 7860 592 | BSI L FZ600 GET NEXT NON-BLANK CHAR K0105920 593 | * K0105930 7714 9029 594 | S FZ923 IS CHARACTER S K0105940 7715 4C20 7731 595 | BSC L FZ020,Z BRANCH IF NO K0105950 596 | * K0105960 7717 4400 7860 597 | BSI L FZ600 GET NEXT NON-BLANK CHAR K0105970 598 | * K0105980 7719 9025 599 | S FZ924 IS CHARACTER Y K0105990 771A 4C20 7721 600 | BSC L FZ016,Z BRANCH IF NO K0106000 601 | * K0106010 771C 6309 602 | LDX 3 9 SET CHARACTER K0106020 771D 6BC0 603 | STX 3 FZ920 COUNT TO 9 K0106030 771E 6700 78FB 604 | LDX L3 FZ982 'MBOLTABLE' K0106040 7720 70E4 605 | MDX FZ010 GO CHECK K0106050 606 | * K0106060 7721 901E 607 | FZ016 S FZ925 IS CHARACTER O K0106070 7722 4C20 7729 608 | BSC L FZ018,Z BRANCH IF NO K0106080 609 | * K0106090 7724 630B 610 | LDX 3 11 SET CHARACTER K0106100 7725 6BB8 611 | STX 3 FZ920 COUNT TO 11 K0106110 7726 6700 7905 612 | LDX L3 FZ983 'URCEPROGRAM' K0106120 7728 70DC 613 | MDX FZ010 GO CHECK K0106130 614 | * K0106140 7729 9017 615 | FZ018 S FZ926 K0106150 772A 4C20 76FC 616 | BSC L FZ005,Z BRANCH TO ERROR IF NO. K0106160 617 | * K0106170 772C 630D 618 | LDX 3 13 SET CHARACTER K0106180 772D 6BB0 619 | STX 3 FZ920 COUNT TO 13 K0106190 772E 6700 7911 620 | LDX L3 FZ984 'BPROGRAMNAMES' K0106200 7730 70D4 621 | MDX FZ010 GO CHECK K0106210 622 | * K0106220 7731 9010 623 | FZ020 S FZ927 IS CHARACTER A K0106230 7732 4C20 76FC 624 | BSC L FZ005,Z BRANCH TO ERROR IF NO K0106240 625 | * K0106250 7734 6302 626 | LDX 3 2 SET CHARACTER K0106260 7735 6BA8 627 | STX 3 FZ920 COUNT TO 2 K0106270 7736 6700 791F 628 | LDX L3 FZ985 'LL' K0106280 7738 70CC 629 | MDX FZ010 GO CHECK K0106290 630 | * K0106300 7739 6310 631 | FZ022 LDX 3 16 SET CHARACTER K0106310 773A 6BA3 632 | STX 3 FZ920 COUNT TO 16 K0106320 773B 6700 789B 633 | LDX L3 FZ974 'XTENDEDPRECISION' K0106330 773D 70C7 634 | MDX FZ010 GO CHECK K0106340 1130 FORTRAN COMPILER PHASE 1 636 | * K0106360 637 | * CONSTANTS K0106370 638 | * K0106380 773E 00E2 639 | FZ923 DC .S S TEST K0106390 773F 00E8 640 | FZ924 DC .Y Y TEST K0106400 7740 FFEE 641 | FZ925 DC .O-.Y O TEST K0106410 7741 000E 642 | FZ926 DC .U-.O U TEST K0106420 7742 FFDF 643 | FZ927 DC .A-.S A TEST K0106430 7743 006C 644 | FZ928 DC /006C LEFT PAREN TEST K0106440 7744 FFE1 645 | FZ929 DC /4D-/6C 360 LEFT PAREN TEST K0106450 7745 0000 646 | FZ930 DC 0 TEMPORARY I/O DEVICE SW K0106460 7746 00C3 647 | FZ931 DC .C C TEST K0106470 7747 0014 648 | FZ932 DC .P-.C P TEST K0106480 7748 000C 649 | FZ933 DC .T-.P T TEST K0106490 7749 FFEF 650 | FZ934 DC .K-.T K TEST K0106500 774A 001F 651 | FZ935 DC .1-.K 1 TEST K0106510 774B FFD3 652 | FZ936 DC .D-.1 D TEST K0106520 774C 0020 653 | FZ93U DC .U-.D U TEST K0106530 774D 000E 654 | FZ937 DC .2-.U 2 TEST K0106540 774E 006B 655 | FZ938 DC /006B COMMA TEST K0106550 774F FFE1 656 | FZ939 DC /4C-/6B RIGHT PAREN TEST K0106560 7750 0011 657 | FZ940 DC /5D-/4C 360 RIGHT PAREN TEST K0106570 7751 00D3 658 | FZ941 DC .L L TEST K0106580 7752 FFEE 659 | FZ942 DC .A-.L A TEST K0106590 660 | * K0106600 1130 FORTRAN COMPILER PHASE 1 662 | * K0106620 7753 6303 663 | FZ024 LDX 3 3 SET CHARACTER K0106630 7754 6F00 76DE 664 | STX L3 FZ920 COUNT TO 3 K0106640 7756 6700 7898 665 | LDX L3 FZ973 'OCS' K0106650 7758 4400 7803 666 | BSI L FZ060 GO CHECK, RETURN IF VALID K0106660 667 | * K0106670 775A 4400 7860 668 | FZ026 BSI L FZ600 GET NEXT NON-BLANK CHAR K0106680 669 | * K0106690 775C 90E6 670 | S FZ928 IS CHARACTER LFT PAREN K0106700 775D 4C18 7762 671 | BSC L *+3,+- BRANCH IF YES K0106710 775F 90E4 672 | S FZ929 IS CHARACTER 360 LFT PAREN K0106720 7760 4C20 76FC 673 | BSC L FZ005,Z BRANCH TO ERROR IF NOT YES K0106730 674 | * K0106740 7762 1010 675 | SLA 16 K0106750 7763 D400 76D4 676 | STO L FZ95E ZERO SWITCH 14 K0106760 7765 D0DF 677 | STO FZ930 CLEAR TEMP I/O DEVICE SW K0106770 678 | * K0106780 7766 4400 7860 679 | FZ028 BSI L FZ600 GET NEXT NON-BLANK CHAR K0106790 680 | * K0106800 7768 90DD 681 | S FZ931 IS CHARACTER C K0106810 7769 4C18 77A3 682 | BSC L FZ036,+- BRANCH IF YES K0106820 683 | * K0106830 776B 90DB 684 | S FZ932 IS CHARACTER P K0106840 776C 4C18 77A9 685 | BSC L FZ038,+- BRANCH IF YES K0106850 686 | * K0106860 776E 90D9 687 | S FZ933 IS CHARACTER T K0106870 776F 4C18 77B7 688 | BSC L FZ040,+- BRANCH IF YES K0106880 689 | * K0106890 7771 90D7 690 | S FZ934 IS CHARACTER K K0106900 7772 4C18 77BD 691 | BSC L FZ042,+- BRANCH IF YES K0106910 692 | * K0106920 7774 90D5 693 | S FZ935 IS CHARACTER 1 K0106930 7775 4C18 77C3 694 | BSC L FZ044,+- BRANCH IF YES K0106940 695 | * K0106950 7777 90D3 696 | S FZ936 IS CHARACTER D K0106960 7778 4C18 77D3 697 | BSC L FZ046,+- BRANCH IF YES K0106970 698 | * K0106980 777A 90D1 699 | S FZ93U IS CHARACTER U K0106990 777B 4C18 77F7 700 | BSC L FZ054,+- BRANCH IF YES K0107000 701 | * K0107010 777D 90CF 702 | S FZ937 IS CHARACTER 2 K0107020 777E 4C20 76FC 703 | BSC L FZ005,Z BRANCH TO ERROR IF NO K0107030 704 | * K0107040 7780 6309 705 | LDX 3 9 SET CHARACTER K0107050 7781 6F00 76DE 706 | STX L3 FZ920 COUNT TO 9 K0107060 7783 6700 78EE 707 | LDX L3 FZ97F '501READER' K0107070 708 | * K0107080 7785 4400 7803 709 | FZ032 BSI L FZ060 GO CHECK, RETURN IF VALID K0107090 710 | * K0107100 7787 C0BD 711 | FZ034 LD FZ930 INDICATE REQUESTED K0107110 7788 EB00 712 | OR 3 0 *I/O DEVICE K0107120 7789 D0BB 713 | STO FZ930 K0107130 714 | * K0107140 778A 4400 7860 715 | BSI L FZ600 GET NEXT NON-BLANK CHAR K0107150 716 | * K0107160 778C 90C1 717 | S FZ938 IS CHARACTER COMMA K0107170 778D 4C18 7766 718 | BSC L FZ028,+- IF YES, CHECK NEXT DEVICE K0107180 719 | * K0107190 778F 90BF 720 | S FZ939 IS CHARACTER RIGHT PAREN K0107200 7790 4C18 7795 721 | BSC L *+3,+- BRANCH IF YES K0107210 722 | * K0107220 7792 90BD 723 | S FZ940 IS CHAR 360 RIGHT PAREN K0107230 7793 4C20 76FC 724 | BSC L FZ005,Z BRANCH TO ERROR IF NO K0107240 725 | * K0107250 7795 C400 7A32 726 | LD L FX014 LOAD IOCS WORD K0107260 7797 E8AD 727 | OR FZ930 ADD DEVICES FROM THIS CARD K0107270 7798 D0AC 728 | STO FZ930 STORE TEMPORARILY K0107280 729 | * K0107290 730 | * CHECK FOR BOTH 1442 PUNCH AND CARD. K0107300 731 | * ERROR IF BOTH ARE INDICATED. K0107310 732 | * K0107320 7799 1006 733 | SLA 6 SHIFT CARD TO 1442 BIT K0107330 779A E0AA 734 | AND FZ930 AND CARD TO 1442 PUNCH BIT K0107340 779B 1009 735 | SLA 9 SHIFT TO SIGN LOCATION K0107350 779C 4C28 76FC 736 | BSC L FZ005,+Z BRANCH TO ERROR IF BOTH ON K0107360 737 | * K0107370 779E C0A6 738 | LD FZ930 LOAD NEW IOCS WORD VALUE K0107380 779F D400 7A32 739 | STO L FX014 STORE INTO IOCS WORD K0107390 740 | * K0107400 77A1 4C00 7CBA 741 | BSC L F1003 PRINT CARD AND GET ANOTHER K0107410 742 | * K0107420 77A3 6303 743 | FZ036 LDX 3 3 SET CHARACTER K0107430 77A4 6F00 76DE 744 | STX L3 FZ920 COUNT TO 3 K0107440 77A6 6700 78AC 745 | LDX L3 FZ976 'ARD' K0107450 77A8 70DC 746 | MDX FZ032 GO CHECK K0107460 747 | * K0107470 748 | * PAPER TAPE OR PLOTTER K0107480 749 | * K0107490 77A9 4400 7860 750 | FZ038 BSI L FZ600 GET NEXT NON-BLANK CHAR K0107500 751 | * K0107510 77AB 90A5 752 | S FZ941 IS CHARACTER L K0107520 77AC 4C18 77D9 753 | BSC L FZ048,+- BRANCH IF YES K0107530 754 | * K0107540 77AE 90A3 755 | S FZ942 IS CHARACTER A K0107550 77AF 4C20 76FC 756 | BSC L FZ005,Z BRANCH TO ERROR IF NO K0107560 757 | * K0107570 77B1 6307 758 | LDX 3 7 SET CHARACTER K0107580 77B2 6F00 76DE 759 | STX L3 FZ920 COUNT TO 7 K0107590 77B4 6700 78B7 760 | LDX L3 FZ978 'PERTAPE' K0107600 77B6 70CE 761 | MDX FZ032 GO CHECK K0107610 762 | * K0107620 77B7 6309 763 | FZ040 LDX 3 9 SET CHARACTER K0107630 77B8 6F00 76DE 764 | STX L3 FZ920 COUNT TO 9 K0107640 77BA 6700 78BF 765 | LDX L3 FZ979 'YPEWRITER' K0107650 77BC 70C8 766 | MDX FZ032 GO CHECK K0107660 767 | * K0107670 77BD 6307 768 | FZ042 LDX 3 7 SET CHARACTER K0107680 77BE 6F00 76DE 769 | STX L3 FZ920 COUNT TO 7 K0107690 77C0 6700 78C9 770 | LDX L3 FZ97A 'EYBOARD' K0107700 77C2 70C2 771 | MDX FZ032 GO CHECK K0107710 772 | * K0107720 77C3 4400 7860 773 | FZ044 BSI L FZ600 GET NEXT NON-BLANK CHAR K0107730 774 | * K0107740 77C5 9048 775 | S FZ943 IS CHARACTER 4 K0107750 77C6 4C20 77DF 776 | BSC L FZ050,Z BRANCH IF NO K0107760 777 | * K0107770 77C8 4400 7860 778 | BSI L FZ600 GET NEXT NON-BLANK CHAR K0107780 77CA 9043 779 | S FZ943 IS CHARACTER 4 K0107790 77CB 4C20 77E8 780 | BSC L FZ051,Z BRANCH IF NO K0107800 781 | * K0107810 782 | * K0107820 77CD 6306 783 | LDX 3 6 SET CHARACTER K0107830 77CE 6F00 76DE 784 | STX L3 FZ920 COUNT TO 6 K0107840 77D0 6700 78B0 785 | LDX L3 FZ977 '2PUNCH' K0107850 77D2 70B2 786 | MDX FZ032 GO CHECK K0107860 787 | * K0107870 788 | * A REGISTER = D K0107880 789 | * K0107890 77D3 6303 790 | FZ046 LDX 3 3 SET CHARACTER K0107900 77D4 6F00 76DE 791 | STX L3 FZ920 COUNT TO 3 K0107910 77D6 6700 78DB 792 | LDX L3 FZ97C 'ISK' K0107920 77D8 70AC 793 | MDX FZ032 GO CHECK K0107930 794 | * K0107940 77D9 6305 795 | FZ048 LDX 3 5 SET CHARACTER K0107950 77DA 6F00 76DE 796 | STX L3 FZ920 COUNT TO 5 K0107960 77DC 6700 78DF 797 | LDX L3 FZ97D 'OTTER' K0107970 77DE 70A6 798 | MDX FZ032 GO CHECK K0107980 799 | * K0107990 77DF 902F 800 | FZ050 S FZ944 IS CHARACTER 1 K0108000 77E0 4C20 76FC 801 | BSC L FZ005,Z BRANCH TO ERROR IF NO K0108010 802 | * K0108020 77E2 6309 803 | LDX 3 9 SET CHARACTER K0108030 77E3 6F00 76DE 804 | STX L3 FZ920 COUNT = 9 K0108040 77E5 6700 78D1 805 | LDX L3 FZ97B '32PRINTER' K0108050 77E7 709D 806 | MDX FZ032 GO CHECK K0108060 807 | * K0108070 77E8 902A 808 | FZ051 S FZ948 TEST FOR 0 K0108080 77E9 4C20 76FC 809 | BSC L FZ005,Z BRANCH TO ERROR IF NOT K0108090 77EB 6308 810 | LDX 3 8 SET CHARACTER K0108100 77EC 6F00 76DE 811 | STX L3 FZ920 COUNT=8 K0108110 77EE 6700 78E5 812 | LDX L3 FZ97E '3PRINTER' K0108120 77F0 7094 813 | MDX FZ032 K0108130 814 | * K0108140 77F1 630D 815 | FZ052 LDX 3 13 SET CHARACTER 2-4 K0108150 77F2 6F00 76DE 816 | STX L3 FZ920 COUNT TO 13 2-4 K0108160 77F4 6700 7922 817 | LDX L3 FZ986 'EWORDINTEGERS' 2-4 K0108170 77F6 7006 818 | MDX FZ056 GO CHECK K0108180 819 | * K0108190 77F7 6304 820 | FZ054 LDX 3 4 SET CHARACTER K0108200 77F8 6F00 76DE 821 | STX L3 FZ920 *COUNT TO 4 K0108210 77FA 6700 7930 822 | LDX L3 FZ988 'DISK' K0108220 77FC 7088 823 | MDX FZ032 GO CHECK K0108230 824 | * K0108240 825 | * K0108250 77FD 4005 826 | FZ056 BSI FZ060 GO CHECK, RETURN IF EQUAL K0108260 827 | * K0108270 77FE 7401 76D4 828 | MDX L FZ95E,1 TAG SWITCH 14 K0108280 7800 405F 829 | BSI FZ600 GET NEXT NON-BLANK CHAR K0108290 830 | * K0108300 7801 4C00 76FC 831 | FZ058 BSC L FZ005 BRANCH TO ERROR IF RETURN K0108310 832 | * K0108320 833 | * COMPARE CHARACTERS FOR EQUAL - K0108330 834 | * RETURN IF ALL CHARACTERS EQUAL, K0108340 835 | * GO TO ERROR IF NOT K0108350 836 | * K0108360 7803 0000 837 | FZ060 DC 0 BSI ADDRESS K0108370 838 | * K0108380 7804 405B 839 | BSI FZ600 GET NEXT NON-BLANK CHAR K0108390 840 | * K0108400 7805 9300 841 | S 3 0 IS CHARACTER CORRECT K0108410 7806 4C20 76FC 842 | BSC L FZ005,Z BRANCH IF NOT K0108420 843 | * K0108430 7808 7301 844 | MDX 3 1 INCREMENT FOR NEXT COMPARE K0108440 845 | * K0108450 7809 74FF 76DE 846 | MDX L FZ920,-1 DECREMENT CHARACTER COUNT K0108460 847 | * K0108470 780B 70F8 848 | MDX FZ060+1 CHECK NEXT CHARACTER K0108480 849 | * K0108490 780C 4C80 7803 850 | BSC I FZ060 RETURN, COMPARE COMPLETE K0108500 851 | * K0108510 1130 FORTRAN COMPILER PHASE 1 853 | * K0108530 854 | * CONSTANTS K0108540 780E 00F4 855 | FZ943 DC .4 4 TEST K0108550 780F FFFD 856 | FZ944 DC .1-.4 1 TEST K0108560 7810 0047 857 | FZ945 DC 71 TEST FOR LAST COLUMN K0108570 7811 0000 858 | FZ946 DC 0 WORK WORD K0108580 7812 0040 859 | FZ947 DC /0040 EBC BLANK K0108590 7813 FFFC 860 | FZ948 DC .0-.4 0 TEST K0108600 7814 00D5 861 | FZ949 DC .N N TEST 2-4 K0108610 7815 0061 862 | FZ950 DC ./ SLASH TEST 2-4 K0108620 7816 00F0 863 | FZ951 DC /F0 MASK FOR NUMERIC 2-4 K0108630 7817 000A 864 | FZ952 DC 10 CONSTANT 10 2-4 K0108640 7818 00C1 865 | FZ953 DC .A A TEST 2-4 K0108650 7819 0005 866 | FZ954 DC .F-.A F TEST 2-4 K0108660 781A 000F 867 | FZ955 DC 15 CONSTANT 15 2-4 K0108670 868 | * K0108680 869 | * K0108690 870 | * CHECK IF ORIGIN RECORD K0108700 871 | * K0108710 781B 4044 872 | FZ070 BSI FZ600 GET NEXT NONBLANK CHAR 2-4 K0108720 781C 90F7 873 | S FZ949 IS IT N 2-4 K0108730 781D 4C18 77F1 874 | BSC L FZ052,+- BRANCH IF YES 2-4 K0108740 781F 80F3 875 | A FZ948 IS IT R 2-4 K0108750 7820 4C20 76FC 876 | BSC L FZ005,Z NO - ERROR 2-4 K0108760 877 | * K0108770 878 | * CHECK FOR VALID ORIGIN RECORD K0108780 879 | * K0108790 7822 6304 880 | LDX 3 4 SET CHARACTER 2-4 K0108800 7823 6F00 76DE 881 | STX L3 FZ920 COUNT TO 4 2-4 K0108810 7825 6700 7935 882 | LDX L3 FZ989 'IGIN' 2-4 K0108820 7827 40DB 883 | BSI FZ060 CHECK IF EQUAL 2-4 K0108830 884 | * K0108840 885 | * COMPUTE ADDRESS K0108850 886 | * K0108860 7828 4037 887 | BSI FZ600 GET NEXT NONBLANK CHAR 2-4 K0108870 7829 90EB 888 | S FZ950 IS IT A SLASH 2-4 K0108880 782A 4C18 7844 889 | BSC L FZ076,+- YES - BRANCH 2-4 K0108890 782C 80E8 890 | A FZ950 NO - RESTORE CHARACTER 2-4 K0108900 782D 6C00 76D4 891 | STX L FZ95E SET SWITCH 14 2-4 K0108910 782F 7001 892 | MDX FZ074 START COMPUTATION 2-4 K0108920 893 | * K0108930 7830 402F 894 | FZ072 BSI FZ600 GET NEXT NONBLANK CHAR 2-4 K0108940 7831 F0E4 895 | FZ074 EOR FZ951 /00F0 2-4 K0108950 7832 1884 896 | SRT 4 IS CHAR NUMERIC 2-4 K0108960 7833 4C20 76FC 897 | BSC L FZ005,Z NO - ERROR 2-4 K0108970 7835 1084 898 | SLT 4 YES - RESTORE NUMBER 2-4 K0108980 7836 D0DA 899 | STO FZ946 STORE TEMPORARY 2-4 K0108990 7837 C400 7A23 900 | LD L FX000 LOAD ADDRESS 2-4 K0109000 7839 A0DD 901 | M FZ952 MULTIPLY BY TEN 2-4 K0109010 783A 4C20 76FC 902 | BSC L FZ005,Z ERROR IF OVERFLOW 2-4 K0109020 783C 1090 903 | SLT 16 2-4 K0109030 783D 4810 904 | BSC - SKIP IF NEGATIVE 2-4 K0109040 783E 80D2 905 | A FZ946 ADD NEW DIGIT 2-4 K0109050 783F 4C28 76FC 906 | BSC L FZ005,+Z ERROR IF NEGATIVE 2-4 K0109060 7841 D400 7A23 907 | STO L FX000 STORE NEW ADDRESS 2-4 K0109070 7843 70EC 908 | MDX FZ072 GET NEXT DIGIT 2-4 K0109080 909 | * K0109090 7844 401B 910 | FZ076 BSI FZ600 GET NEXT NONBLANK CHAR 2-4 K0109100 7845 D0CB 911 | STO FZ946 STORE TEMPORARY 2-4 K0109110 7846 F0CF 912 | EOR FZ951 /00F0 2-4 K0109120 7847 1884 913 | SRT 4 IS IT NUMERIC 2-4 K0109130 7848 4C18 7853 914 | BSC L FZ080,+- YES - BRANCH 2-4 K0109140 784A C0C6 915 | LD FZ946 LOAD CHARACTER 2-4 K0109150 784B 90CC 916 | S FZ953 2-4 K0109160 784C 4C28 76FC 917 | BSC L FZ005,+Z ERROR IF LT A 2-4 K0109170 784E 90CA 918 | S FZ954 2-4 K0109180 784F 4C30 76FC 919 | BSC L FZ005,-Z ERROR IF GT F 2-4 K0109190 7851 80C8 920 | A FZ955 RESTORE DIGIT 2-4 K0109200 7852 1884 921 | SRT 4 SAVE IN EXT 2-4 K0109210 922 | * K0109220 7853 C400 7A23 923 | FZ080 LD L FX000 LOAD ADDRESS 2-4 K0109230 7855 188C 924 | SRT 12 2-4 K0109240 7856 4C20 76FC 925 | BSC L FZ005,Z ERROR IF TOO HIGH 2-4 K0109250 7858 1090 926 | SLT 16 2-4 K0109260 7859 4C28 76FC 927 | BSC L FZ005,+Z ERROR IF NEGATIVE 2-4 K0109270 785B D400 7A23 928 | STO L FX000 SAVE ADDRESS 2-4 K0109280 785D 6C00 76D4 929 | STX L FZ95E SET SWITCH 14 2-4 K0109290 785F 70E4 930 | MDX FZ076 GET NEXT DIGIT 2-4 K0109300 1130 FORTRAN COMPILER PHASE 1 932 | * K0109320 933 | * THIS SUBROUTINE PICKS UP NON-BLANK K0109330 934 | * COLUMNS FROM THE INPUT CARD. ENTRY K0109340 935 | * IS A BSI INSTRUCTION TO THE LABEL K0109350 936 | * (FZ600). UPON EXITING FROM THE K0109360 937 | * ROUTINE THE A REGISTER WILL CONTAIN K0109370 938 | * THE CHARACTER IN UNPACKED EBC CODE. K0109380 939 | * K0109390 7860 0000 940 | FZ600 DC 0 BSI ENTRY K0109400 941 | * K0109410 7861 6AAF 942 | STX 2 FZ946 XR2 = POINTER IN CARD BUFR K0109420 7862 C0AE 943 | LD FZ946 LOAD POINTER K0109430 944 | * K0109440 7863 90AC 945 | S FZ945 CHECK IF K0109450 7864 9400 7CBB 946 | S L F1003+1 END OF CARD. K0109460 947 | * K0109470 7866 4C28 7873 948 | BSC L FZ601,+Z BRANCH IF NO K0109480 949 | * K0109490 7868 C400 76D4 950 | LD L FZ95E LOAD SWITCH 14 K0109500 786A 4C18 76FC 951 | BSC L FZ005,+- BRANCH TO ERROR IF NOT ON K0109510 952 | * K0109520 953 | * K0109530 786C C300 954 | LD 3 0 SET CURRENT CONTROL OPTION K0109540 786D EC00 7A31 955 | OR L FX013 INTO CONTROL CARD K0109550 786F D400 7A31 956 | STO L FX013 WORD. K0109560 957 | * K0109570 7871 4C00 7CBA 958 | BSC L F1003 PRINT AND GET NEXT CARD K0109580 959 | * K0109590 7873 C201 960 | FZ601 LD 2 1 LOAD NEXT CHARACTER IN CD K0109600 961 | * K0109610 7874 7201 962 | MDX 2 1 INCREMENT POINTER K0109620 963 | * K0109630 7875 D09B 964 | STO FZ946 SAVE CHAR K0109640 7876 F09B 965 | EOR FZ947 CHECK IF CHARACTER BLANK K0109650 7877 4C18 7861 966 | BSC L FZ600+1,+- BRANCH IF BLANK K0109660 967 | * K0109670 7879 C097 968 | LD FZ946 LOAD CHARACTER K0109680 969 | * K0109690 787A 4C80 7860 970 | BSC I FZ600 RETURN K0109700 971 | * K0109710 1130 FORTRAN COMPILER PHASE 1 973 | * K0109730 974 | ***** CONTROL CARD TABLES ***** K0109740 975 | * K0109750 976 | * K0109760 977 | * TRANSFER TRACE K0109770 787C 00D9 978 | FZ971 DC .R R K0109780 787D 00C1 979 | DC .A A K0109790 787E 00D5 980 | DC .N N K0109800 787F 00E2 981 | DC .S S K0109810 7880 00C6 982 | DC .F F K0109820 7881 00C5 983 | DC .E E K0109830 7882 00D9 984 | DC .R R K0109840 7883 00E3 985 | DC .T T K0109850 7884 00D9 986 | DC .R R K0109860 7885 00C1 987 | DC .A A K0109870 7886 00C3 988 | DC .C C K0109880 7887 00C5 989 | DC .E E K0109890 7888 0001 990 | DC /0001 INDICATOR K0109900 991 | * K0109910 992 | * ARITHMETIC TRACE K0109920 7889 00D9 993 | FZ972 DC .R R K0109930 788A 00C9 994 | DC .I I K0109940 788B 00E3 995 | DC .T T K0109950 788C 00C8 996 | DC .H H K0109960 788D 00D4 997 | DC .M M K0109970 788E 00C5 998 | DC .E E K0109980 788F 00E3 999 | DC .T T K0109990 7890 00C9 1000 | DC .I I K0110000 7891 00C3 1001 | DC .C C K0110010 7892 00E3 1002 | DC .T T K0110020 7893 00D9 1003 | DC .R R K0110030 7894 00C1 1004 | DC .A A K0110040 7895 00C3 1005 | DC .C C K0110050 7896 00C5 1006 | DC .E E K0110060 1007 | * K0110070 7897 0002 1008 | DC /0002 INDICATOR K0110080 1009 | * K0110090 1010 | * K0110100 1011 | * IOCS K0110110 7898 00D6 1012 | FZ973 DC .O O K0110120 7899 00C3 1013 | DC .C C K0110130 789A 00E2 1014 | DC .S S K0110140 1015 | * K0110150 1016 | * K0110160 1017 | * EXTENDED PRECISION K0110170 789B 00E7 1018 | FZ974 DC .X X K0110180 789C 00E3 1019 | DC .T T K0110190 789D 00C5 1020 | DC .E E K0110200 789E 00D5 1021 | DC .N N K0110210 789F 00C4 1022 | DC .D D K0110220 78A0 00C5 1023 | DC .E E K0110230 78A1 00C4 1024 | DC .D D K0110240 78A2 00D7 1025 | DC .P P K0110250 78A3 00D9 1026 | DC .R R K0110260 78A4 00C5 1027 | DC .E E K0110270 78A5 00C3 1028 | DC .C C K0110280 78A6 00C9 1029 | DC .I I K0110290 78A7 00E2 1030 | DC .S S K0110300 78A8 00C9 1031 | DC .I I K0110310 78A9 00D6 1032 | DC .O O K0110320 78AA 00D5 1033 | DC .N N K0110330 1034 | * K0110340 78AB 0004 1035 | DC /0004 INDICATOR K0110350 1036 | * K0110360 1037 | * K0110370 1038 | * CARD K0110380 78AC 00C1 1039 | FZ976 DC .A A K0110390 78AD 00D9 1040 | DC .R R K0110400 78AE 00C4 1041 | DC .D D K0110410 1042 | * K0110420 78AF 0001 1043 | DC /0001 INDICATOR K0110430 1044 | * K0110440 1045 | * K0110450 1046 | * 1442 PUNCH K0110460 78B0 00F2 1047 | FZ977 DC .2 2 K0110470 78B1 00D7 1048 | DC .P P K0110480 78B2 00E4 1049 | DC .U U K0110490 78B3 00D5 1050 | DC .N N K0110500 78B4 00C3 1051 | DC .C C K0110510 78B5 00C8 1052 | DC .H H K0110520 1053 | * K0110530 78B6 0040 1054 | DC /0040 INDICATOR K0110540 1055 | * K0110550 1056 | * K0110560 1057 | * PAPER TAPE K0110570 78B7 00D7 1058 | FZ978 DC .P P K0110580 78B8 00C5 1059 | DC .E E K0110590 78B9 00D9 1060 | DC .R R K0110600 78BA 00E3 1061 | DC .T T K0110610 78BB 00C1 1062 | DC .A A K0110620 78BC 00D7 1063 | DC .P P K0110630 78BD 00C5 1064 | DC .E E K0110640 1065 | * K0110650 78BE 0002 1066 | DC /0002 INDICATOR K0110660 1067 | * K0110670 1068 | * K0110680 1069 | * TYPEWRITER K0110690 78BF 00E8 1070 | FZ979 DC .Y Y K0110700 78C0 00D7 1071 | DC .P P K0110710 78C1 00C5 1072 | DC .E E K0110720 78C2 00E6 1073 | DC .W W K0110730 78C3 00D9 1074 | DC .R R K0110740 78C4 00C9 1075 | DC .I I K0110750 78C5 00E3 1076 | DC .T T K0110760 78C6 00C5 1077 | DC .E E K0110770 78C7 00D9 1078 | DC .R R K0110780 1079 | * K0110790 78C8 0004 1080 | DC /0004 INDICATOR K0110800 1081 | * K0110810 1082 | * K0110820 1083 | * KEYBOARD K0110830 78C9 00C5 1084 | FZ97A DC .E E K0110840 78CA 00E8 1085 | DC .Y Y K0110850 78CB 00C2 1086 | DC .B B K0110860 78CC 00D6 1087 | DC .O O K0110870 78CD 00C1 1088 | DC .A A K0110880 78CE 00D9 1089 | DC .R R K0110890 78CF 00C4 1090 | DC .D D K0110900 1091 | * K0110910 78D0 0020 1092 | DC /0020 INDICATOR K0110920 1093 | * K0110930 1094 | * K0110940 1095 | * 1132 PRINTER K0110950 78D1 00F3 1096 | FZ97B DC .3 3 K0110960 78D2 00F2 1097 | DC .2 2 K0110970 78D3 00D7 1098 | DC .P P K0110980 78D4 00D9 1099 | DC .R R K0110990 78D5 00C9 1100 | DC .I I K0111000 78D6 00D5 1101 | DC .N N K0111010 78D7 00E3 1102 | DC .T T K0111020 78D8 00C5 1103 | DC .E E K0111030 78D9 00D9 1104 | DC .R R K0111040 1105 | * K0111050 78DA 0100 1106 | DC /0100 INDICATOR K0111060 1107 | * K0111070 1108 | * K0111080 1109 | * DISK K0111090 78DB 00C9 1110 | FZ97C DC .I I K0111100 78DC 00E2 1111 | DC .S S K0111110 78DD 00D2 1112 | DC .K K K0111120 1113 | * K0111130 78DE 0080 1114 | DC /0080 INDICATOR K0111140 1115 | * K0111150 1116 | * K0111160 1117 | * PLOTTER K0111170 78DF 00D6 1118 | FZ97D DC .O O K0111180 78E0 00E3 1119 | DC .T T K0111190 78E1 00E3 1120 | DC .T T K0111200 78E2 00C5 1121 | DC .E E K0111210 78E3 00D9 1122 | DC .R R K0111220 1123 | * K0111230 78E4 1000 1124 | DC /1000 INDICATOR K0111240 1125 | * K0111250 1126 | * K0111260 1127 | * 1403 PRINTER K0111270 78E5 00F3 1128 | FZ97E DC .3 3 K0111280 78E6 00D7 1129 | DC .P P K0111290 78E7 00D9 1130 | DC .R R K0111300 78E8 00C9 1131 | DC .I I K0111310 78E9 00D5 1132 | DC .N N K0111320 78EA 00E3 1133 | DC .T T K0111330 78EB 00C5 1134 | DC .E E K0111340 78EC 00D9 1135 | DC .R R K0111350 1136 | * K0111360 78ED 0008 1137 | DC /0008 INDICATOR K0111370 1138 | * K0111380 1139 | * K0111390 1140 | * 2501 READER K0111400 78EE 00F5 1141 | FZ97F DC .5 5 K0111410 78EF 00F0 1142 | DC .0 0 K0111420 78F0 00F1 1143 | DC .1 1 K0111430 78F1 00D9 1144 | DC .R R K0111440 78F2 00C5 1145 | DC .E E K0111450 78F3 00C1 1146 | DC .A A K0111460 78F4 00C4 1147 | DC .D D K0111470 78F5 00C5 1148 | DC .E E K0111480 78F6 00D9 1149 | DC .R R K0111490 1150 | * K0111500 78F7 0010 1151 | DC /0010 INDICATOR K0111510 1152 | * K0111520 1153 | * K0111530 1154 | * LIST K0111540 78F8 00C9 1155 | FZ981 DC .I I K0111550 78F9 00E2 1156 | DC .S S K0111560 78FA 00E3 1157 | DC .T T K0111570 1158 | * K0111580 1159 | * K0111590 1160 | * SYMBOL TABLE K0111600 78FB 00D4 1161 | FZ982 DC .M M K0111610 78FC 00C2 1162 | DC .B B K0111620 78FD 00D6 1163 | DC .O O K0111630 78FE 00D3 1164 | DC .L L K0111640 78FF 00E3 1165 | DC .T T K0111650 7900 00C1 1166 | DC .A A K0111660 7901 00C2 1167 | DC .B B K0111670 7902 00D3 1168 | DC .L L K0111680 7903 00C5 1169 | DC .E E K0111690 1170 | * K0111700 7904 0008 1171 | DC /0008 INDICATOR K0111710 1172 | * K0111720 1173 | * K0111730 1174 | * SOURCE PROGRAM K0111740 7905 00E4 1175 | FZ983 DC .U U K0111750 7906 00D9 1176 | DC .R R K0111760 7907 00C3 1177 | DC .C C K0111770 7908 00C5 1178 | DC .E E K0111780 7909 00D7 1179 | DC .P P K0111790 790A 00D9 1180 | DC .R R K0111800 790B 00D6 1181 | DC .O O K0111810 790C 00C7 1182 | DC .G G K0111820 790D 00D9 1183 | DC .R R K0111830 790E 00C1 1184 | DC .A A K0111840 790F 00D4 1185 | DC .M M K0111850 1186 | * K0111860 7910 0020 1187 | DC /0020 INDICATOR K0111870 1188 | * K0111880 1189 | * K0111890 1190 | * SUBPROGRAM NAMES K0111900 7911 00C2 1191 | FZ984 DC .B B K0111910 7912 00D7 1192 | DC .P P K0111920 7913 00D9 1193 | DC .R R K0111930 7914 00D6 1194 | DC .O O K0111940 7915 00C7 1195 | DC .G G K0111950 7916 00D9 1196 | DC .R R K0111960 7917 00C1 1197 | DC .A A K0111970 7918 00D4 1198 | DC .M M K0111980 7919 00D5 1199 | DC .N N K0111990 791A 00C1 1200 | FZ987 DC .A A K0112000 791B 00D4 1201 | DC .M M K0112010 791C 00C5 1202 | DC .E E K0112020 791D 00E2 1203 | DC .S S K0112030 1204 | * K0112040 791E 0010 1205 | DC /0010 INDICATOR K0112050 1206 | * K0112060 1207 | * K0112070 1208 | * ALL K0112080 791F 00D3 1209 | FZ985 DC .L L K0112090 7920 00D3 1210 | DC .L L K0112100 1211 | * K0112110 7921 0038 1212 | DC /0038 INDICATOR K0112120 1213 | * K0112130 1214 | * K0112140 1215 | * ONE WORD INTEGERS K0112150 7922 00C5 1216 | FZ986 DC .E E K0112160 7923 00E6 1217 | DC .W W K0112170 7924 00D6 1218 | DC .O O K0112180 7925 00D9 1219 | DC .R R K0112190 7926 00C4 1220 | DC .D D K0112200 7927 00C9 1221 | DC .I I K0112210 7928 00D5 1222 | DC .N N K0112220 7929 00E3 1223 | DC .T T K0112230 792A 00C5 1224 | DC .E E K0112240 792B 00C7 1225 | DC .G G K0112250 792C 00C5 1226 | DC .E E K0112260 792D 00D9 1227 | DC .R R K0112270 792E 00E2 1228 | DC .S S K0112280 1229 | * K0112290 792F 0040 1230 | DC /0040 INDICATOR K0112300 1231 | * K0112310 1232 | * K0112320 1233 | * UDISK K0112330 7930 00C4 1234 | FZ988 DC .D D K0112340 7931 00C9 1235 | DC .I I K0112350 7932 00E2 1236 | DC .S S K0112360 7933 00D2 1237 | DC .K K K0112370 1238 | * K0112380 7934 4000 1239 | DC /4000 INDICATOR K0112390 1240 | * K0112400 1241 | * 2-4 K0112410 1242 | * ORIGIN 2-4 K0112420 7935 00C9 1243 | FZ989 DC .I I 2-4 K0112430 7936 00C7 1244 | DC .G G 2-4 K0112440 7937 00C9 1245 | DC .I I 2-4 K0112450 7938 00D5 1246 | DC .N N 2-4 K0112460 1247 | * 2-4 K0112470 7939 0080 1248 | DC /0080 INDICATOR 2-4 K0112480 1249 | * 2-4 K0112490 1130 FORTRAN COMPILER PHASE 1 1251 | * K0112510 1252 | * SET UP HEADER K0112520 1253 | * K0112530 1254 | * K0112540 793A 63DD 1255 | FZ090 LDX 3 -35 INITIALIZE TO PACK HEADER K0112550 793B C201 1256 | FZ091 LD 2 1 LOAD CHARACTER TO BE MOVED K0112560 793C 1008 1257 | SLA 8 SHIFT LEFT K0112570 793D EA02 1258 | OR 2 2 ADD NEXT CHARACTER K0112580 793E D700 7FBA 1259 | STO L3 HEAD+47 STORE IN HEADER K0112590 7940 7202 1260 | MDX 2 2 GET NEXT CHAR PAIR K0112600 7941 7301 1261 | MDX 3 1 SKIP WHEN COMPLETE K0112610 7942 70F8 1262 | MDX FZ091 LOOP K0112620 7943 1010 1263 | SLA 16 SET PAGE RESTORE K0112630 7944 D400 799A 1264 | STO L F1700 *SWITCH 2-11 K0112640 7946 6680 7CBB 1265 | LDX I2 F1003+1 RESET XR2 K0112650 7948 4C00 7CC9 1266 | BSC L F1004 PRINT CARD - READ NEXT K0112660 1267 | * K0112670 1130 FORTRAN COMPILER PHASE 1 1269 | * K0112690 1270 | * PROCESS *NAME CARD K0112700 1271 | * K0112710 1272 | * K0112720 1273 | * K0112730 794A 6303 1274 | FZ100 LDX 3 3 SET CHARACTER K0112740 794B 6F00 76DE 1275 | STX L3 FZ920 COUNT TO 3 K0112750 794D 6700 791A 1276 | LDX L3 FZ987 'AME' K0112760 794F 4400 7803 1277 | BSI L FZ060 GO CHECK, RETURN IF EQUAL K0112770 1278 | * K0112780 7951 4400 7860 1279 | BSI L FZ600 GET NEXT NON-BLANK CHAR K0112790 1280 | * K0112800 7953 6A2D 1281 | STX 2 FZ110 SAVE CHARACTER POINTER K0112810 1282 | * K0112820 7954 C400 7CBB 1283 | LD L F1003+1 GENERATE ADDRESS K0112830 7956 802E 1284 | A FZ114 OF LAST COLUMN K0112840 7957 D02A 1285 | STO FZ111 * K0112850 1286 | * K0112860 7958 4019 1287 | BSI FZ106 GET FIRST CHAR OF NAME K0112870 7959 1008 1288 | SLA 8 SHIFT LEFT 8 K0112880 795A D028 1289 | STO FZ112 SAVE K0112890 1290 | * K0112900 795B 4016 1291 | BSI FZ106 GET SECOND CHAR OF NAME K0112910 795C 1002 1292 | SLA 2 SHIFT LEFT 2 K0112920 795D E825 1293 | OR FZ112 ADD SAVED PORTION K0112930 795E D024 1294 | STO FZ112 SAVE K0112940 1295 | * K0112950 795F 4012 1296 | BSI FZ106 GET THIRD CHAR OF NAME K0112960 7960 1884 1297 | SRT 4 SAVE 4 BITS IN EXTENSION K0112970 7961 E821 1298 | OR FZ112 ADD SAVED PORTION K0112980 7962 D020 1299 | STO FZ112 SAVE K0112990 7963 1084 1300 | SLT 4 GET BITS FROM EXTENSION K0113000 7964 100C 1301 | SLA 12 SHIFT LEFT 12 K0113010 7965 D01E 1302 | STO FZ113 SAVE K0113020 1303 | * K0113030 7966 400B 1304 | BSI FZ106 GET FOURTH CHAR OF NAME K0113040 7967 1006 1305 | SLA 6 SHIFT LEFT 6 K0113050 7968 E81B 1306 | OR FZ113 ADD SAVED PORTION K0113060 7969 D01A 1307 | STO FZ113 SAVE K0113070 1308 | * K0113080 796A 4007 1309 | BSI FZ106 GET FIFTH CHAR OF NAME K0113090 796B E818 1310 | OR FZ113 ADD SAVED PORTION K0113100 796C 18D0 1311 | RTE 16 SHIFT TO EXTENSION K0113110 796D C015 1312 | LD FZ112 LOAD FIRST SAVED PORTION K0113120 1313 | * K0113130 796E DC00 7A2E 1314 | STD L FX011 STORE AS PROGRAM NAME K0113140 7970 4C00 7CBA 1315 | BSC L F1003 PRINT AND READ NEXT CARD K0113150 1316 | * K0113160 1317 | * THIS RTN GETS A CHARACTER FROM K0113170 1318 | * NAME CARD, CHECKS FOR LAST COLUMN, K0113180 1319 | * AND CREATES TRUNCATED EBCDIC CODE. K0113190 1320 | * K0113200 7972 0000 1321 | FZ106 DC *-* LINK K0113210 1322 | * K0113220 7973 C00D 1323 | LD FZ110 LOAD POINTER ADDRESS K0113230 7974 900D 1324 | S FZ111 SUBTRACT LAST COLUMN ADR K0113240 7975 4C28 7979 1325 | BSC L FZ107,+Z BRANCH IF OK K0113250 1326 | * K0113260 7977 1010 1327 | SLA 16 LOAD DUMMY ZERO K0113270 7978 7004 1328 | MDX FZ108 GO RETURN ZERO CHARACTER K0113280 1329 | * K0113290 7979 C480 7981 1330 | FZ107 LD I FZ110 LOAD CHARACTER K0113300 797B 7401 7981 1331 | MDX L FZ110,1 INCREMENT ADDRESS K0113310 1332 | * K0113320 797D 100A 1333 | FZ108 SLA 10 TRUNCATE HIGH ORDER K0113330 797E 180A 1334 | SRA 10 TWO BITS OF CHARACTER. K0113340 1335 | * K0113350 797F 4C80 7972 1336 | BSC I FZ106 RETURN K0113360 1337 | * K0113370 1338 | * K0113380 7981 0000 1339 | FZ110 DC *-* CHARACTER ADDRESS K0113390 7982 0000 1340 | FZ111 DC *-* LAST COLUMN ADDRESS K0113400 7983 0000 1341 | FZ112 DC *-* SAVE AREA FOR WORD 1 K0113410 7984 0000 1342 | FZ113 DC *-* SAVE AREA FOR WORD 2 K0113420 7985 0047 1343 | FZ114 DC 71 USEFUL CONSTANT K0113430 1344 | * K0113440 1345 | * K0113450 1346 | * K0113460 1347 | * K0113470 1130 FORTRAN COMPILER PHASE 1 1349 | * END OF INITIALIZATION AND CONTROL K0113490 1350 | * CARD PROCESSING SECTION OF PHASE 1. K0113500 1351 | * K0113510 1352 | * K0113520 1353 | * K0113530 1354 | * K0113540 1355 | * TEMPORARY - TO BE REMOVED K0113550 1356 | * ON FINAL ASSEMBLY. K0113560 1357 | * K0113570 7986 1358 | FZEND EQU * K0113580 0378 1359 | FZLNG EQU FZEND-FZ000 LENGTH OF PHASE 0 K0113590 1360 | * K0113600 1130 FORTRAN COMPILER PHASE 1 1362 | * BEGINNING OF MAIN BODY OF PHASE 1 K0113620 1363 | * THIS SECTION LIES BELOW THE SYMBOL K0113630 1364 | * TABLE AND STRING AREA. K0113640 1365 | * K0113650 1366 | * K0113660 1130 FORTRAN COMPILER PHASE 1 1368 | * K0113680 1369 | * K0113690 799A 1370 | ORG OVERX K0113700 1371 | * K0113710 1372 | * K0113720 1373 | * RESTORE PAGE ROUTINE K0113730 1374 | * K0113740 799A 1000 1375 | F1700 NOP ENTRY POINT/EJECT SW 2-11 K0113750 1376 | * K0113760 799B C80A 1377 | LDD F1796 K0113770 799C 4400 7E45 1378 | BSI L F1803+1 RESTORE PAGE K0113780 1379 | * K0113790 799E 4400 7E45 1380 | BSI L F1803+1 PRINT HEADER K0113800 79A0 C007 1381 | LD F1798 LOAD SPACE PARAMETER K0113810 79A1 4400 7E45 1382 | BSI L F1803+1 SPACE SPRINTER K0113820 1383 | * K0113830 79A3 4C80 799A 1384 | BSC I F1700 RETURN K0113840 1385 | * K0113850 79A6 1386 | BSS E 0 K0113860 79A6 7000 1387 | F1796 DC /7000 PAGE RESTORE PARAMETER K0113870 79A7 7F8B 1388 | DC HEAD HEADER AREA ADDRESS K0113880 79A8 7002 1389 | F1798 DC /7002 SPACE PARAMETER K0113890 1390 | * K0113900 1391 | * K0113910 79A9 0028 1392 | F1PBF DC 40 PRINT OUTPUT K0113920 79AA 1393 | BSS 40 BUFFER. K0113930 1394 | * K0113940 1395 | * K0113950 1396 | * K0113960 79D2 0050 1397 | F1CDA DC 80 READ INPUT BUFFER 1 K0113970 79D3 1398 | BSS 80 * K0113980 1130 FORTRAN COMPILER PHASE 1 1400 | * 2-8 K0114000 1401 | * FOLLOWING CODE INITIALIZES ENTRIES FOR 2-8 K0114010 1402 | * AMPERSAND,AT SIGN,POUND SIGN,PERCENT, 2-8 K0114020 1403 | * LESS THAN, AND INVALID CHARACTER IN THE 2-8 K0114030 1404 | * SYSTEM KEYBOARD AND PAPER TAPE DEVICE 2-8 K0114040 1405 | * SUBROUTINE CONVERSION TABLES 2-8 K0114050 1406 | * 2-8 K0114060 1407 | * THIS CODE IS OVERLAID WHEN THE FIRST 2-8 K0114070 1408 | * SOURCE RECORD IS READ 2-8 K0114080 1409 | * 2-8 K0114090 79D3 1410 | ORG F1CDA+1 1ST WD OF 1ST BUFFER 2-8 K0114100 79D3 C400 00EE 1411 | F1799 LD L $DBSY DISK BUSY INDR 2-8 K0114110 79D5 4820 1412 | BSC Z SKIP IF NOT BUSY 2-8 K0114120 79D6 70FC 1413 | MDX *-4 LOOP ON BUSY 2-8 K0114130 79D7 6306 1414 | LDX 3 6 NO. OF ENTRIES CHANGED 2-8 K0114140 79D8 6500 79F1 1415 | F179A LDX L1 F179P (F179K IF KEYBOARD) 2-8 K0114150 79DA 6600 7A34 1416 | LDX L2 F1801-2 2-8 K0114160 79DC 6A1A 1417 | STX 2 F179W BUILD ADDR WITHIN KYBRD 2-8 K0114170 79DD C019 1418 | LD F179W *OP PAPER TAPE DEVICE 2-8 K0114180 79DE 8400 7A37 1419 | A L F1801+1 *SUBR WHERE TABLE 2-8 K0114190 79E0 D001 1420 | STO *+1 *ENTRIES WILL BE 2-8 K0114200 79E1 6600 0000 1421 | LDX L2 *-* *MODIFIED. 2-8 K0114210 79E3 C100 1422 | F179B LD 1 0 PLACE FORTRAN CHAR 2-8 K0114220 79E4 D200 1423 | STO 2 0 *IN CONVERSION TBL 2-8 K0114230 79E5 7101 1424 | MDX 1 +1 POINT TO NEXT CHAR 2-8 K0114240 79E6 7201 1425 | MDX 2 +1 POINT TO NEXT TBL ENTRY 2-8 K0114250 79E7 73FF 1426 | MDX 3 -1 DECR LOOP COUNTER 2-8 K0114260 79E8 70FA 1427 | B F179B CONTINUE TBL INITLZ 2-8 K0114270 1428 | * 2-8 K0114280 79E9 4C00 7653 1429 | B L FZZ35 CONT INITLZ COMMON W/CD 2-8 K0114290 1430 | * 2-8 K0114300 79EB 2150 1431 | F179K DC /2150 INVALID CHAR (AMP) 2-8 K0114310 79EC 444E 1432 | DC /444E AMPERSAND 2-8 K0114320 79ED C27E 1433 | DC /C27E POUND SIGN 2-8 K0114330 79EE E67D 1434 | DC /E67D AT SIGN 2-8 K0114340 79EF FE4D 1435 | DC /FE4D PERCENT 2-8 K0114350 79F0 F65D 1436 | DC /F65D LESS THAN 2-8 K0114360 79F1 0050 1437 | F179P DC /0050 INVALID CHAR (AMP) 2-8 K0114370 79F2 704E 1438 | DC /704E AMPERSAND 2-8 K0114380 79F3 0B7E 1439 | DC /0B7E POUND SIGN 2-8 K0114390 79F4 207D 1440 | DC /207D AT SIGN 2-8 K0114400 79F5 954D 1441 | DC /954D PERCENT 2-8 K0114410 79F6 825D 1442 | DC /825D LESS THAN 2-8 K0114420 79F7 0000 1443 | F179W DC *-* WORK AREA TO BUILD ADDR 2-8 K0114430 1130 FORTRAN COMPILER PHASE 1 1445 | * K0114450 1446 | * THE ABOVE SECTION WILL BE OVERLAYED K0114460 1447 | * WITH SYMBOL TABLE ENTRIES IN K0114470 1448 | * SUBSEQUENT PHASES. K0114480 1449 | * K0114490 1450 | * K0114500 1130 FORTRAN COMPILER PHASE 1 1452 | * K0114520 7A23 1453 | ORG OVERL K0114530 1454 | * K0114540 1455 | * FORTRAN COMMUNICATIONS AREA K0114550 1456 | * (FCOM) K0114560 1457 | * K0114570 7A23 1458 | FX000 BSS 1 ORIGIN ADDRESS 2-4 K0114580 7A24 1459 | FX001 BSS 1 START OF STRING K0114590 7A25 1460 | FX002 BSS 1 END OF STRING K0114600 7A26 1461 | FX003 BSS 1 START OF SYMBOL TABLE K0114610 7A27 1462 | FX004 BSS 1 START OF NON-STATEMENT NUMBERS K0114620 7A28 1463 | FX005 BSS 1 START OF SUBSCRIPT TEMPORARIES K0114630 7A29 1464 | FX006 BSS 1 START OF GENERATED TEMPORARIES K0114640 7A2A 1465 | FX007 BSS 1 END OF SYMBOL TABLE K0114650 7A2B 1466 | FX008 BSS 1 NEXT AVAILABLE COMMON K0114660 7A2C 1467 | FX009 BSS 1 SIZE OF COMMON K0114670 7A2D 1468 | FX010 BSS 1 OVERLAP ERROR K0114680 7A2E 1469 | FX011 BSS 1 PROGRAM NAME K0114690 7A2F 1470 | BSS 1 K0114700 7A30 1471 | FX012 BSS 1 SUBROUTINE(-) OR FUNCTION(+) K0114710 7A31 1472 | FX013 BSS 1 CONTROL CARD WORD K0114720 1473 | * BIT 15 TRANSFER TRACE K0114730 1474 | * BIT 14 ARITHMETIC TRACE K0114740 1475 | * BIT 13 EXTENDED PRECISION K0114750 1476 | * BIT 12 LIST SYMBOL TABLE K0114760 1477 | * BIT 11 LIST SUBPROGRAM NAMES K0114770 1478 | * BIT 10 LIST SOURCE PROGRAM K0114780 1479 | * BIT 9 ONE WORD INTEGERS K0114790 1480 | * K0114800 7A32 1481 | FX014 BSS 1 IOCS CONTROL CARD WORD K0114810 1482 | * BIT 15 CARD K0114820 1483 | * BIT 14 PAPER TAPE K0114830 1484 | * BIT 13 TYPEWRITER K0114840 1485 | * BIT 12 1403 PRINTER K0114850 1486 | * BIT 11 2501 READER K0114860 1487 | * BIT 10 KEYBOARD K0114870 1488 | * BIT 9 1442 PUNCH K0114880 1489 | * BIT 8 DISK K0114890 1490 | * BIT 7 1132 PRINTER K0114900 1491 | * BIT 3 PLOTTER K0114910 1492 | * K0114920 7A33 1493 | FX015 BSS 1 FILE COUNT K0114930 1494 | * K0114940 1495 | * K0114950 7A23 1496 | ORG EQU FX000 FCOM EQUIVALENCES 2-4 K0114960 7A24 1497 | SOFS EQU FX001 * K0114970 7A25 1498 | EOFS EQU FX002 * K0114980 7A26 1499 | SOFST EQU FX003 * K0114990 7A27 1500 | SOFNS EQU FX004 * K0115000 7A28 1501 | SOFXT EQU FX005 * K0115010 7A29 1502 | SOFGT EQU FX006 * K0115020 7A2A 1503 | EOFST EQU FX007 * K0115030 7A2B 1504 | COMON EQU FX008 * K0115040 7A2C 1505 | CSIZE EQU FX009 * K0115050 7A2D 1506 | ERROR EQU FX010 * K0115060 7A2E 1507 | FNAME EQU FX011 * K0115070 7A30 1508 | SORF EQU FX012 * K0115080 7A31 1509 | CCWD EQU FX013 * K0115090 7A32 1510 | IOCS EQU FX014 * K0115100 7A33 1511 | DFCNT EQU FX015 * K0115110 1130 DISK MON SYS VER 2 FORT PHASE 1 1513 | * K0115130 1514 | * K0115140 1515 | * K0115150 1516 | * INPUT ROUTINES LOAD HERE K0115160 1517 | * K0115170 1518 | * K0115180 1519 | * K0115190 7A34 1520 | BSS 2 K0115200 7A36 1521 | F1801 BSS 203 THIS SPACE WILL CONTAIN K0115210 1522 | * THE INPUT ROUTINE K0115220 1523 | * IF INPUT IS NOT FROM CARDS K0115230 1524 | * THE INPUT CONVERSION K0115240 1525 | * ROUTINE WILL FOLLOW THE K0115250 1526 | * INPUT ROUTINE AND THE CARD K0115260 1527 | * CONVERSION ROUTINE BELOW K0115270 1528 | * WILL BE OVERLAID IF K0115280 1529 | * NECESSARY K0115290 1530 | * K0115300 1531 | * K0115310 1130 FORTRAN COMPILER PHASE 1 1533 | *************************************************** K0115330 1534 | * * K0115340 1535 | * CARD CONVERSION ROUTINE * K0115350 1536 | * * K0115360 1537 | *************************************************** K0115370 1538 | * K0115380 1539 | * K0115390 7B01 4C00 0000 1540 | SP000 BSC L *-* EXIT / ENTRY K0115400 7B03 2828 1541 | STS SP074 SAVE STATUS K0115410 7B04 6924 1542 | STX 1 SP070+1 SAVE XR1 K0115420 7B05 6A25 1543 | STX 2 SP072+1 SAVE XR2 K0115430 7B06 D003 1544 | STO SP020+1 INITIALIZE LOAD AND STORE K0115440 7B07 D01D 1545 | STO SP060+1 *WITH ADDRESS OF I/O AREA K0115450 1546 | * K0115460 7B08 6250 1547 | LDX 2 80 SET COLUMN COUNT IN XR2 K0115470 1548 | * K0115480 7B09 C600 0000 1549 | SP020 LD L2 *-* GET CARD COLUMN K0115490 7B0B D022 1550 | STO SP090 SAVE TEMPORARY K0115500 7B0C 1886 1551 | SRT 6 PACK ROWS 12,11,0 NEXT TO K0115510 7B0D 1807 1552 | SRA 7 *ROWS 8,9 AND STORE K0115520 7B0E 1883 1553 | SRT 3 *IN EXTENSION K0115530 7B0F C01E 1554 | LD SP090 RELOAD CARD COLUMN K0115540 1555 | * K0115550 1556 | * DETERMINE WHICH ROWS OF 1-7 ARE PUNCHED K0115560 1557 | * K0115570 7B10 610A 1558 | LDX 1 10 SET UP XR1 K0115580 7B11 E01D 1559 | AND SP100 ZERO ALL ROWS EXCEPT 1-7 K0115590 7B12 1140 1560 | SLCA 1 K0115600 7B13 1001 1561 | SLA 1 IS MULTIPLE PUNCH IN 1-7 K0115610 7B14 4818 1562 | BSC +- SKIP IF YES K0115620 7B15 7002 1563 | MDX SP030 BRANCH IF NO K0115630 7B16 C019 1564 | LD SP120 UAE AMPERSAND TO INDICATE K0115640 7B17 700C 1565 | MDX SP060 *INVALID PUNCH K0115650 1566 | * K0115660 1567 | * COLUMN CONTAINS VALID PUNCH K0115670 1568 | * K0115680 7B18 6915 1569 | SP030 STX 1 SP090 XR1=0 IF NO 1-7 PUNCH K0115690 7B19 C014 1570 | LD SP090 * 1 IF 7 PUNCH K0115700 7B1A 1084 1571 | SLT 4 * 7 IF 1 PUNCH K0115710 7B1B D002 1572 | STO SP050+1 ADD 12,11,0,8 ROWS K0115720 7B1C 1091 1573 | SLT 17 STORE 9 ROW IN CARRY K0115730 7B1D 6500 0000 1574 | SP050 LDX L1 *-* XR1 = TABLE LOOK-UP ADDR K0115740 7B1F C500 7B31 1575 | LD L1 SP130 LOAD TABLE ENTRY K0115750 1576 | * K0115760 1577 | * IF 9 PUNCH - USE RIGHT HALF OF ENTRY K0115770 1578 | * K0115780 7B21 4802 1579 | BSC C IS CARRY ON K0115790 7B22 1008 1580 | SLA 8 YES - USE RIGHT-HALF K0115800 7B23 1808 1581 | SRA 8 NO - USE LEFT-HALF K0115810 7B24 D600 0000 1582 | SP060 STO L2 *-* STORE CHAR IN BUFFER K0115820 7B26 72FF 1583 | MDX 2 -1 CHANGE COLUMN POINTER K0115830 7B27 70E1 1584 | MDX SP020 *TO CONVERT NEXT COLUMN K0115840 1585 | * K0115850 1586 | * CARD IS CONVERTED - RETURN K0115860 1587 | * K0115870 7B28 6500 0000 1588 | SP070 LDX L1 *-* RESTORE XR1 K0115880 7B2A 6600 0000 1589 | SP072 LDX L2 *-* RESTORE XR2 K0115890 7B2C 2000 1590 | SP074 LDS *-* RESTORE STATUS K0115900 7B2D 70D3 1591 | MDX SP000 RETURN TO CALLING PROGRAM K0115910 1592 | * K0115920 1593 | * CONSTANTS USED BY THIS ROUTINE K0115930 1594 | * K0115940 7B2E 0000 1595 | SP090 DC *-* TEMPORARY STORAGE K0115950 7B2F 1FC0 1596 | SP100 DC /1FC0 MASK FOR COLUMNS 1-7 K0115960 7B30 0050 1597 | SP120 DC /0050 EBC FOR AMPERSAND K0115970 1598 | * K0115980 1130 FORTRAN COMPILER PHASE 1 1600 | * K0116000 1601 | * EBC CHARACTER TABLE -BASED ON PACKED HOL K0116010 1602 | * ( 1-7 ROW COMPLEMENT, 12,11,0,8 ROWS ) K0116020 1603 | * RIGHT CHAR IF 9 ROW PUNCHED K0116030 1604 | * K0116040 1605 | * EBC HOL,ROW PUNCHES LEFT RIGHT K0116050 1606 | * K0116060 7B31 40F9 1607 | SP130 DC /40F9 BLANK,(9) BLANK 9 K0116070 7B32 F850 1608 | DC /F850 8,(9) 8 INVAL K0116080 7B33 F0E9 1609 | DC /F0E9 0,(9) ZERO Z K0116090 7B34 E850 1610 | DC /E850 0,8,(9) Y INVAL K0116100 7B35 60D9 1611 | DC /60D9 11,(9) DASH R K0116110 7B36 D850 1612 | DC /D850 11,8,(9) Q INVAL K0116120 7B37 5050 1613 | DC /5050 11,0,(9) INVAL INVAL K0116130 7B38 5050 1614 | DC /5050 11,0,8,(9) INVAL INVAL K0116140 7B39 4EC9 1615 | DC /4EC9 12,(9) PLUS I K0116150 7B3A C850 1616 | DC /C850 12,8,(9) H INVAL K0116160 7B3B 5050 1617 | DC /5050 12,0,(9) INVAL INVAL K0116170 7B3C 5050 1618 | DC /5050 12,0,8,(9) INVAL INVAL K0116180 7B3D 5050 1619 | DC /5050 12,11,(9) INVAL INVAL K0116190 7B3E 5050 1620 | DC /5050 12,11,8,(9) INVAL INVAL K0116200 7B3F 5050 1621 | DC /5050 12,11,0,(9) INVAL INVAL K0116210 7B40 5050 1622 | DC /5050 12,11,0,8,(9) INVAL INVAL K0116220 7B41 F750 1623 | DC /F750 7,(9) 7 INVAL K0116230 7B42 5050 1624 | DC /5050 7,8,(9) INVAL INVAL K0116240 7B43 E750 1625 | DC /E750 7,0,(9) X INVAL K0116250 7B44 5050 1626 | DC /5050 7,0,8,(9) INVAL INVAL K0116260 7B45 D750 1627 | DC /D750 7,11,(9) P INVAL K0116270 7B46 5050 1628 | DC /5050 7,11,8,(9) INVAL INVAL K0116280 7B47 5050 1629 | DC /5050 7,11,0,(9) INVAL INVAL K0116290 7B48 5050 1630 | DC /5050 7,11,0,8,(9) INVAL INVAL K0116300 7B49 C750 1631 | DC /C750 7,12,(9) G INVAL K0116310 7B4A 5050 1632 | DC /5050 7,12,8,(9) INVAL INVAL K0116320 7B4B 5050 1633 | DC /5050 7,12,0,(9) INVAL INVAL K0116330 7B4C 5050 1634 | DC /5050 7,12,0,8,(9) INVAL INVAL K0116340 7B4D 5050 1635 | DC /5050 7,12,11,(9) INVAL INVAL K0116350 7B4E 5050 1636 | DC /5050 7,12,11,8,(9) INVAL INVAL K0116360 7B4F 5050 1637 | DC /5050 7,12,11,0,(9) INVAL INVAL K0116370 7B50 5050 1638 | DC /5050 7,12,11,0,8,(9) INVAL INVAL K0116380 7B51 F650 1639 | DC /F650 6,(9) 6 INVAL K0116390 7B52 7E50 1640 | DC /7E50 6,8,(9) EQUAL INVAL K0116400 7B53 E650 1641 | DC /E650 6,0,(9) W INVAL K0116410 7B54 5050 1642 | DC /5050 6,0,8,(9) INVAL INVAL K0116420 7B55 D650 1643 | DC /D650 6,11,(9) O INVAL K0116430 7B56 5050 1644 | DC /5050 6,11,8,(9) INVAL INVAL K0116440 7B57 5050 1645 | DC /5050 6,11,0,(9) INVAL INVAL K0116450 7B58 5050 1646 | DC /5050 6,11,0,8,(9) INVAL INVAL K0116460 7B59 C650 1647 | DC /C650 6,12,(9) F INVAL K0116470 7B5A 4E50 1648 | DC /4E50 6,12,8,(9) PLUS INVAL K0116480 7B5B 5050 1649 | DC /5050 6,12,0,(9) INVAL INVAL K0116490 7B5C 5050 1650 | DC /5050 6,12,0,8,(9) INVAL INVAL K0116500 7B5D 5050 1651 | DC /5050 6,12,11,(9) INVAL INVAL K0116510 7B5E 5050 1652 | DC /5050 6,12,11,8,(9) INVAL INVAL K0116520 7B5F 5050 1653 | DC /5050 6,12,11,0,(9) INVAL INVAL K0116530 7B60 5050 1654 | DC /5050 6,12,11,0,8,(9) INVAL INVAL K0116540 7B61 F550 1655 | DC /F550 5,(9) 5 INVAL K0116550 7B62 7D50 1656 | DC /7D50 5,8,(9) APOST INVAL K0116560 7B63 E550 1657 | DC /E550 5,0,(9) V INVAL K0116570 7B64 5050 1658 | DC /5050 5,0,8,(9) INVAL INVAL K0116580 7B65 D550 1659 | DC /D550 5,11,(9) N INVAL K0116590 7B66 5D50 1660 | DC /5D50 5,11,8,(9) ) INVAL K0116600 7B67 5050 1661 | DC /5050 5,11,0,(9) INVAL INVAL K0116610 7B68 5050 1662 | DC /5050 5,11,0,8,(9) INVAL INVAL K0116620 7B69 C550 1663 | DC /C550 5,12,(9) E INVAL K0116630 7B6A 4D50 1664 | DC /4D50 5,12,8,(9) ( INVAL K0116640 7B6B 5050 1665 | DC /5050 5,12,0,(9) INVAL INVAL K0116650 7B6C 5050 1666 | DC /5050 5,12,0,8,(9) INVAL INVAL K0116660 7B6D 5050 1667 | DC /5050 5,12,11,(9) INVAL INVAL K0116670 7B6E 5050 1668 | DC /5050 5,12,11,8,(9) INVAL INVAL K0116680 7B6F 5050 1669 | DC /5050 5,12,11,0,(9) INVAL INVAL K0116690 7B70 5050 1670 | DC /5050 5,12,11,0,8,(9) INVAL INVAL K0116700 7B71 F450 1671 | DC /F450 4,(9) 4 INVAL K0116710 7B72 7D50 1672 | DC /7D50 4,8,(9) APOST INVAL K0116720 7B73 E450 1673 | DC /E450 4,0,(9) U INVAL K0116730 7B74 4D50 1674 | DC /4D50 4,0,8,(9) % INVAL K0116740 7B75 D450 1675 | DC /D450 4,11,(9) M INVAL K0116750 7B76 5C50 1676 | DC /5C50 4,11,8,(9) * INVAL K0116760 7B77 5050 1677 | DC /5050 4,11,0,(9) INVAL INVAL K0116770 7B78 5050 1678 | DC /5050 4,11,0,8,(9) INVAL INVAL K0116780 7B79 C450 1679 | DC /C450 4,12,(9) D INVAL K0116790 7B7A 5D50 1680 | DC /5D50 4,12,8,(9) < INVAL K0116800 7B7B 5050 1681 | DC /5050 4,12,0,(9) INVAL INVAL K0116810 7B7C 5050 1682 | DC /5050 4,12,0,8,(9) INVAL INVAL K0116820 7B7D 5050 1683 | DC /5050 4,12,11,(9) INVAL INVAL K0116830 7B7E 5050 1684 | DC /5050 4,12,11,8,(9) INVAL INVAL K0116840 7B7F 5050 1685 | DC /5050 4,12,11,0,(9) INVAL INVAL K0116850 7B80 5050 1686 | DC /5050 4,12,11,0,8,(9) INVAL INVAL K0116860 7B81 F350 1687 | DC /F350 3,(9) 3 INVAL K0116870 7B82 7E50 1688 | DC /7E50 3,8,(9) EQUAL INVAL K0116880 7B83 E350 1689 | DC /E350 3,0,(9) T INVAL K0116890 7B84 6B50 1690 | DC /6B50 3,0,8,(9) , INVAL K0116900 7B85 D350 1691 | DC /D350 3,11,(9) L INVAL K0116910 7B86 5B50 1692 | DC /5B50 3,11,8,(9) $ INVAL K0116920 7B87 5050 1693 | DC /5050 3,11,0,(9) INVAL INVAL K0116930 7B88 5050 1694 | DC /5050 3,11,0,8,(9) INVAL INVAL K0116940 7B89 C350 1695 | DC /C350 3,12,(9) C INVAL K0116950 7B8A 4B50 1696 | DC /4B50 3,12,8,(9) . INVAL K0116960 7B8B 5050 1697 | DC /5050 3,12,0,(9) INVAL INVAL K0116970 7B8C 5050 1698 | DC /5050 3,12,0,8,(9) INVAL INVAL K0116980 7B8D 5050 1699 | DC /5050 3,12,11,(9) INVAL INVAL K0116990 7B8E 5050 1700 | DC /5050 3,12,11,8,(9) INVAL INVAL K0117000 7B8F 5050 1701 | DC /5050 3,12,11,0,(9) INVAL INVAL K0117010 7B90 5050 1702 | DC /5050 3,12,11,0,8,(9) INVAL INVAL K0117020 7B91 F250 1703 | DC /F250 2,(9) 2 INVAL K0117030 7B92 5050 1704 | DC /5050 2,8,(9) INVAL INVAL K0117040 7B93 E250 1705 | DC /E250 2,0,(9) S INVAL K0117050 7B94 5050 1706 | DC /5050 2,0,8,(9) INVAL INVAL K0117060 7B95 D250 1707 | DC /D250 2,11,(9) K INVAL K0117070 7B96 5050 1708 | DC /5050 2,11,8,(9) INVAL INVAL K0117080 7B97 5050 1709 | DC /5050 2,11,0,(9) INVAL INVAL K0117090 7B98 5050 1710 | DC /5050 2,11,0,8,(9) INVAL INVAL K0117100 7B99 C250 1711 | DC /C250 2,12,(9) B INVAL K0117110 7B9A 5050 1712 | DC /5050 2,12,8,(9) INVAL INVAL K0117120 7B9B 5050 1713 | DC /5050 2,12,0,(9) INVAL INVAL K0117130 7B9C 5050 1714 | DC /5050 2,12,0,8,(9) INVAL INVAL K0117140 7B9D 5050 1715 | DC /5050 2,12,11,(9) INVAL INVAL K0117150 7B9E 5050 1716 | DC /5050 2,12,11,8,(9) INVAL INVAL K0117160 7B9F 5050 1717 | DC /5050 2,12,11,0,(9) INVAL INVAL K0117170 7BA0 5050 1718 | DC /5050 2,12,11,0,8,(9) INVAL INVAL K0117180 7BA1 F150 1719 | DC /F150 1,(9) 1 INVAL K0117190 7BA2 5050 1720 | DC /5050 1,8,(9) INVAL INVAL K0117200 7BA3 6150 1721 | DC /6150 1,0,(9) SLASH INVAL K0117210 7BA4 5050 1722 | DC /5050 1,0,8,(9) INVAL INVAL K0117220 7BA5 D150 1723 | DC /D150 1,11,(9) J INVAL K0117230 7BA6 5050 1724 | DC /5050 1,11,8,(9) INVAL INVAL K0117240 7BA7 5050 1725 | DC /5050 1,11,0,(9) INVAL INVAL K0117250 7BA8 5050 1726 | DC /5050 1,11,0,8,(9) INVAL INVAL K0117260 7BA9 C150 1727 | DC /C150 1,12,(9) A INVAL K0117270 7BAA 5050 1728 | DC /5050 1,12,8,(9) INVAL INVAL K0117280 7BAB 5050 1729 | DC /5050 1,12,0,(9) INVAL INVAL K0117290 7BAC 5050 1730 | DC /5050 1,12,0,8,(9) INVAL INVAL K0117300 7BAD 5050 1731 | DC /5050 1,12,11,(9) INVAL INVAL K0117310 7BAE 5050 1732 | DC /5050 1,12,11,8,(9) INVAL INVAL K0117320 7BAF 5050 1733 | DC /5050 1,12,11,0,(9) INVAL INVAL K0117330 7BB0 5050 1734 | DC /5050 1,12,11,0,8,(9) INVAL INVAL K0117340 1735 | * K0117350 1736 | * K0117360 1737 | * K0117370 7BB1 7B02 1738 | F1802 DC SP000+1 INDIRECT ADDRESS ENTRY TO K0117380 1739 | * *CONVERSION ROUTINE K0117390 1130 FORTRAN COMPILER PHASE 1 1741 | * K0117410 1742 | * K0117420 1743 | * PACK AND PRINT ROUTINE K0117430 1744 | * K0117440 1745 | * K0117450 7BB2 0000 1746 | F1600 DC 0 BSI ADDRESS K0117460 7BB3 691C 1747 | STX 1 F1603+1 SAVE XR1 K0117470 1748 | * K0117480 7BB4 6700 FFB0 1749 | LDX L3 -80 SET UP TO PACK K0117490 7BB6 6500 FFD8 1750 | LDX L1 -40 PRINT BUFFER. K0117500 1751 | * K0117510 7BB8 C009 1752 | LD F1691 MESSAGE ADDRESS(MA) K0117520 7BB9 8019 1753 | A F1693 MA + 80 K0117530 7BBA D007 1754 | STO F1691 K0117540 7BBB 8018 1755 | A F1694 MA + 81 K0117550 7BBC D008 1756 | STO F1692 K0117560 1757 | * K0117570 7BBD C400 0036 1758 | LD L $PBSY LOOP IF THE PRINT BUFFER K0117580 7BBF 4C30 7BBD 1759 | BSC L *-4,-Z IS NOT AVAILABLE K0117590 1760 | * K0117600 7BC1 C700 0000 1761 | F1601 LD L3 *-* LOAD LEFT CHARACTER K0117610 7BC2 1762 | F1691 EQU *-1 K0117620 7BC3 1008 1763 | SLA 8 LEFT JUSTIFY K0117630 7BC4 EF00 0000 1764 | OR L3 *-* ADD RIGHT CHARACTER K0117640 7BC5 1765 | F1692 EQU *-1 K0117650 7BC6 D500 79D2 1766 | STO L1 F1PBF+1+40 STORE IN PRINT BUFFER K0117660 7BC8 7302 1767 | MDX 3 2 NEXT INPUT PAIR K0117670 7BC9 1000 1768 | NOP K0117680 7BCA 7101 1769 | MDX 1 1 NEXT OUTPUT WORD K0117690 7BCB 70F5 1770 | MDX F1601 GET NEXT PAIR K0117700 1771 | * K0117710 7BCC C809 1772 | LDD F1695 PRINT CONTROL K0117720 7BCD 4400 7E45 1773 | BSI L F1803+1 PRINT LINE K0117730 7BCF 6500 0000 1774 | F1603 LDX L1 *-* RESTORE XR1 K0117740 7BD1 4C80 7BB2 1775 | BSC I F1600 RETURN K0117750 1776 | * K0117760 7BD3 0050 1777 | F1693 DC 80 USEFUL CONSTANT K0117770 7BD4 0001 1778 | F1694 DC 1 USEFUL CONSTANT K0117780 1779 | * K0117790 7BD6 1780 | BSS E 0 K0117800 7BD6 7001 1781 | F1695 DC /7001 PRINT CONTROL PARAMETER K0117810 7BD7 79A9 1782 | DC F1PBF ADDRESS OF PRINT BUFFER K0117820 1783 | * K0117830 1130 FORTRAN COMPILER PHASE 1 7BD8 0050 1785 | F2CDA DC 80 READ INPUT BUFFER 2 K0117850 7BD9 1786 | BSS 6 * K0117860 7BDF FFFF 1787 | DC /FFFF * K0117870 7BE0 1788 | BSS 73 * K0117880 1130 FORTRAN COMPILER PHASE 1 1790 | * K0117900 1791 | * READ INPUT ROUTINE K0117910 1792 | * K0117920 7C29 0000 1793 | F1500 DC *-* BSI ADDRESS K0117930 1794 | * K0117940 7C2A 6951 1795 | STX 1 F1513+1 SAVE XR1 K0117950 1796 | * K0117960 1797 | * K0117970 1798 | * TEST IF END CARD WAS PREVIOUSLY K0117980 1799 | * PROCESSED K0117990 1800 | * K0118000 7C2B C067 1801 | LD F1591+1 WAS PREVIOUS RECORD .END. K0118010 1802 | * K0118020 7C2C 4C18 7DED 1803 | BSC L F1035,+- BRANCH IF YES K0118030 1804 | * K0118040 1805 | * K0118050 7C2E 7400 0013 1806 | MDX L $IBSY,0 CHECK IF I/P SUBR BUSY K0118060 7C30 70FD 1807 | MDX *-3 LOOP IF BUSY K0118070 1808 | * K0118080 7C31 7400 000F 1809 | MDX L $CTSW,0 CHECK IF MON CTL CARD READ K0118090 7C33 704B 1810 | MDX F1560 BRANCH IF YES K0118100 1811 | * K0118110 7C34 C400 0033 1812 | LD L $LAST LOAD LAST CARD SWITCH K0118120 7C36 4C18 7C3B 1813 | BSC L *+3,+- BRANCH IF NOT LAST CARD K0118130 1814 | * K0118140 7C38 C065 1815 | LD F159A FEED PARAMETER K0118150 7C39 4400 7A37 1816 | BSI L F1801+1 FEED LAST CARD K0118160 1817 | * K0118170 7C3B 6680 7C93 1818 | LDX I2 F1591+1 K0118180 7C3D 7201 1819 | MDX 2 1 CARD START IN XR2 K0118190 7C3E 6A3B 1820 | STX 2 F1512+1 SAVE XR2 K0118200 1821 | * K0118210 7C3F C200 1822 | LD 2 0 LOAD COL 1 K0118220 1823 | * K0118230 7C40 905B 1824 | S F1598 IS FIRST COL EBC C K0118240 7C41 4C18 7C71 1825 | BSC L F1510,+- BRANCH IF YES K0118250 1826 | * K0118260 7C43 9059 1827 | S F1599 IS FIRST COL HOL C K0118270 7C44 4C00 7E24 1828 | BSC L PTCH1 BRANCH TO PATCH AREA 2-3 K0118280 1829 | * K0118290 7C46 7248 1830 | BACK MDX 2 72 CARD START + 72 IN XR2 K0118300 7C47 6A0A 1831 | STX 2 F1501+1 STORE K0118310 7C48 6A1F 1832 | STX 2 F1504+1 STORE K0118320 7C49 6A03 1833 | STX 2 BACK1+1 SAVE 212 K0118330 7C4A 61BD 1834 | LDX 1 -67 NO.OF COLUMNS TO CHECK 212 K0118340 7C4B 62FD 1835 | LDX 2 -3 CTL FOR ?END? CHECK K0118350 7C4C C500 0000 1836 | BACK1 LD L1 *-* LOAD CHAR IN COL 6 212 K0118355 7C4E 4C20 7C71 1837 | BNZ F1510 BRANCH IF CONTINUATION 212 K0118360 7C50 7101 1838 | MDX 1 1 POINT TO COLUMN 7 212 K0118365 7C51 C500 0000 1839 | F1501 LD L1 *-* LOAD CHARACTER K0118370 7C53 4C18 7C6F 1840 | BSC L F1506,+- HOL BLANK K0118380 7C55 903F 1841 | S F1594 K0118390 7C56 4C18 7C6F 1842 | BSC L F1506,+- EBC BLANK K0118400 1843 | * K0118410 7C58 9600 7C99 1844 | S L2 F1595+3 CHECK FOR EBC E,N,D K0118420 7C5A 4C18 7C60 1845 | BSC L F1502,+- BRANCH IF YES K0118430 1846 | * K0118440 7C5C 9600 7C9C 1847 | S L2 F1596+3 CHECK FOR HOL E,N,D K0118450 7C5E 4C20 7C71 1848 | BSC L F1510,Z BRANCH IF NO K0118460 1849 | * K0118470 7C60 7201 1850 | F1502 MDX 2 1 SKIP IF E,N,D ALL CHECKED K0118480 7C61 700D 1851 | MDX F1506 BRANCH IF NOT K0118490 1852 | * K0118500 7C62 7101 1853 | F1503 MDX 1 1 SKIP IF ALL CHARS CHECKED K0118510 7C63 7003 1854 | MDX F1504 IF NO SKIP, CHECK MORE. K0118520 1855 | * K0118530 1856 | * END CARD ENCOUNTERED K0118540 1857 | * K0118550 7C64 1010 1858 | SLA 16 LOAD ZEROS K0118560 7C65 D02C 1859 | STO F1591 STORE INTO RECORD POINTER K0118570 7C66 700F 1860 | MDX F1511 EXIT K0118580 1861 | * K0118590 7C67 C500 0000 1862 | F1504 LD L1 *-* LOAD CHARACTER K0118600 7C69 4C18 7C62 1863 | BSC L F1503,+- BRANCH IF HOL BLANK K0118610 1864 | * K0118620 7C6B 9029 1865 | S F1594 K0118630 7C6C 4C18 7C62 1866 | BSC L F1503,+- BRANCH IF EBC BLANK K0118640 7C6E 7002 1867 | MDX F1510 EXIT K0118650 1868 | * K0118660 7C6F 7101 1869 | F1506 MDX 1 1 INCREMENT TO NEXT CHAR K0118670 7C70 70E0 1870 | MDX F1501 GET NEXT CHARACTER K0118680 1871 | * K0118690 7C71 C020 1872 | F1510 LD F1591 LOAD READ AREA ADDRESS K0118700 7C72 18D0 1873 | RTE 16 STORE IN Q REGISTER K0118710 7C73 C020 1874 | LD F1593 LOAD READ PARAMETER K0118720 7C74 4400 7A37 1875 | BSI L F1801+1 READ INPUT CARD K0118730 1876 | * K0118740 7C76 C81B 1877 | F1511 LDD F1591 ROTATE BUFFER POINTER K0118750 7C77 18D0 1878 | RTE 16 * K0118760 7C78 D819 1879 | STD F1591 * K0118770 1880 | * K0118780 7C79 6600 0000 1881 | F1512 LDX L2 *-* RESTORE XR2 K0118790 7C7B 6500 0000 1882 | F1513 LDX L1 *-* RESTORE XR1 K0118800 7C7D 4C80 7C29 1883 | BSC I F1500 RETURN K0118810 1884 | * CALL FOR RECOVERY PHASE K0118820 1885 | * K0118830 7C7F 1886 | F1560 EQU * K0118840 7C7F 6680 7C93 1887 | LDX I2 F1591+1 SAVE INPUT AREA ADDRESS K0118850 7C81 6E00 7A25 1888 | STX L2 FX002 * K0118860 1889 | * K0118870 7C83 C00F 1890 | LD F1591+1 LOAD BUFFER ADDRESS K0118880 7C84 4480 7BB1 1891 | BSI I F1802 CONVERT BUFFER K0118890 1892 | * K0118900 7C86 6102 1893 | LDX 1 2 PUT RECOVERY CODE K0118910 7C87 6D00 7A23 1894 | STX L1 FX001-1 K0118920 1895 | * K0118930 7C89 6580 7C8E 1896 | LDX I1 F1568 LOAD LINKAGE TO K0118940 7C8B C804 1897 | LDD F1569 RECOVERY PHASE K0118950 1898 | * K0118960 7C8C 4C00 7FBC 1899 | BSC L RL000 LOAD RECOVERY PHASE K0118970 1900 | * K0118980 7C8E 0000 1901 | F1568 DC *-* CORE ADDRESS RECOVERY PHAS K0118990 7C90 1902 | F1569 BSS E 2 WC, SA OF RECOVERY PHASE K0119000 1903 | * K0119010 1130 FORTRAN COMPILER PHASE 1 1905 | * K0119030 1906 | * CONSTANTS K0119040 1907 | * K0119050 7C92 1908 | BSS E 0 K0119060 1909 | * K0119070 7C92 79D2 1910 | F1591 DC F1CDA READ AREA 1 K0119080 7C93 7BD8 1911 | DC F2CDA READ AREA 2 K0119090 1912 | * K0119100 7C94 7002 1913 | F1593 DC /7002 READ PARAMETER K0119110 7C95 0040 1914 | F1594 DC /0040 EBC BLANK K0119120 7C96 0085 1915 | F1595 DC .E-/40 EBC E TEST K0119130 7C97 0095 1916 | DC .N-/40 EBC N TEST K0119140 7C98 0084 1917 | DC .D-/40 EBC D TEST K0119150 1918 | * K0119160 7C99 803B 1919 | F1596 DC /8100-.E HOL E TEST K0119170 7C9A 402B 1920 | DC /4100-.N HOL N TEST K0119180 7C9B 813C 1921 | DC /8200-.D HOL D TEST K0119190 1922 | * K0119200 7C9C 00C3 1923 | F1598 DC .C EBC C TEST K0119210 7C9D 833D 1924 | F1599 DC /8400-.C HOL C TEST K0119220 1925 | * K0119230 7C9E 7003 1926 | F159A DC /7003 CARD FEED PARAMETER K0119240 1927 | * K0119250 1928 | * K0119260 1130 FORTRAN COMPILER PHASE 1 1930 | * K0119280 1931 | * MAIN LINE PROGRAM K0119290 1932 | * K0119300 1933 | * K0119310 7C9F 4089 1934 | F1000 BSI F1500 READ CARD K0119320 1935 | * K0119330 7CA0 4088 1936 | F1001 BSI F1500 READ CARD K0119340 1937 | * K0119350 7CA1 6A19 1938 | STX 2 F1003+1 SAVE XR2 K0119360 1939 | * K0119370 7CA2 C0EF 1940 | LD F1591 BUFFER ADDRESS K0119380 7CA3 4480 7BB1 1941 | BSI I F1802 CONVERT CARD K0119390 1942 | * K0119400 7CA5 C400 7D41 1943 | LD L F1951 LOAD SWITCH 1 K0119410 7CA7 4C20 7CBA 1944 | BSC L F1002,Z BRANCH IF SW1 NON-ZERO K0119420 1945 | * K0119430 7CA9 C200 1946 | LD 2 0 LOAD COLUMN 1 K0119440 1947 | * K0119450 7CAA 9400 7D4A 1948 | S L F1963 IS IT AN * K0119460 7CAC 4C18 76E0 1949 | BSC L FZ003,+- BRANCH IF YES (CONTROL CD) K0119470 1950 | * K0119480 7CAE 6C00 7D41 1951 | STX L F1951 TAG SWITCH 1 K0119490 1952 | * K0119500 7CB0 C400 7A31 1953 | LD L FX013 TEST IF SOURCE LIST REQD. K0119510 7CB2 100A 1954 | SLA 10 K0119520 7CB3 4C10 7CBA 1955 | BSC L F1002,- BRANCH IF NO K0119530 1956 | * K0119540 7CB5 7400 799A 1957 | MDX L F1700,0 TEST PAGE RESTORE SW 2-11 K0119550 7CB7 7002 1958 | MDX F1002 BR, DON'T RESTORE PAGE K0119560 1959 | * K0119570 7CB8 4400 799A 1960 | BSI L F1700 RESTORE PAGE K0119580 1961 | * K0119590 7CBA 1962 | F1002 EQU * CONTINUE K0119600 1963 | * K0119610 7CBA 6600 0000 1964 | F1003 LDX L2 *-* RESTORE XR2 K0119620 1965 | * K0119630 7CBC C400 7D41 1966 | LD L F1951 LOAD SWITCH 1 K0119640 7CBE 4C18 7CC9 1967 | BSC L F1004,+- BRANCH IF SWITCH 1 NOT ON K0119650 1968 | * K0119660 7CC0 C400 7A31 1969 | LD L FX013 TEST IF SOURCE LIST REQD K0119670 7CC2 100A 1970 | SLA 10 K0119680 7CC3 4C10 7CD4 1971 | BSC L F1005,- BRANCH IF NOT K0119690 1972 | * K0119700 7CC5 C400 007C 1973 | LD L $KCSW TEST IF KB,CP BOTH USED K0119710 7CC7 4C30 7CD4 1974 | BSC L F1005,-Z BRANCH IF BOTH USED K0119720 1975 | * K0119730 7CC9 C480 0006 1976 | F1004 LD I $CH12 TEST IF CHANNEL 12 SENSED K0119740 7CCB 4420 799A 1977 | BSI L F1700,Z RESTORE PAGE IF YES K0119750 1978 | * K0119760 7CCD 6E00 7BC2 1979 | STX L2 F1691 READ BUFFER ADDRESS K0119770 7CCF 4400 7BB2 1980 | BSI L F1600 PACK AND PRINT MESSAGE K0119780 1981 | * K0119790 7CD1 C06F 1982 | LD F1951 LOAD SWITCH 1 K0119800 7CD2 4C18 7CA0 1983 | BSC L F1001,+- GO READ A CARD IF NOT SET K0119810 1984 | * K0119820 1985 | * K0119830 7CD4 C200 1986 | F1005 LD 2 0 IS THIS A COMMENT CARD K0119840 7CD5 907A 1987 | S F1967 K0119850 7CD6 4C20 7CDA 1988 | BSC L F1006,Z BRANCH IF NO K0119860 1989 | * K0119870 7CD8 D069 1990 | STO F1952 NORMALIZE SWITCH 2 K0119880 7CD9 70C6 1991 | MDX F1001 GET NEXT CARD K0119890 1992 | * K0119900 7CDA C205 1993 | F1006 LD 2 5 TEST FOR CONTINUATION CARD K0119910 7CDB 906F 1994 | S F1965 K0119920 7CDC 4C18 7CE1 1995 | BSC L *+3,+- BRANCH IF BLANK K0119930 7CDE 906D 1996 | S F1966 K0119940 7CDF 4C20 7D54 1997 | BSC L F1016,Z BRANCH IF NON-ZERO K0119950 1998 | * K0119960 1999 | * K0119970 2000 | * K0119980 7CE1 D062 2001 | STO F1954 NORMALIZE SWITCH 4 K0119990 7CE2 D400 7DAF 2002 | STO L F1959 NORMALIZE SWITCH 9 K0120000 7CE4 D400 7DAE 2003 | STO L F1984 CLEAR DATA AREA K0120010 2004 | * K0120020 7CE6 6348 2005 | F1007 LDX 3 72 INITIALIZE TO TEST FOR K0120030 7CE7 6A01 2006 | STX 2 *+1 BLANK CARD. K0120040 2007 | * K0120050 7CE8 C400 0000 2008 | LD L *-* LOAD CARD COLUMN K0120060 7CEA 9060 2009 | S F1965 K0120070 7CEB 4C20 7CF2 2010 | BSC L *+5,Z BRANCH IF COLUMN NOT BLANK K0120080 2011 | * K0120090 7CED 7401 7CE9 2012 | MDX L *-6,1 INCREMENT TO NEXT COLUMN K0120100 7CEF 73FF 2013 | MDX 3 -1 KICK COUNT, SKIP IF ZERO K0120110 7CF0 70F7 2014 | MDX *-9 CHECK NEXT COLUMN K0120120 2015 | * K0120130 7CF1 70AE 2016 | MDX F1001 BLANK CARD, GET NEXT K0120140 2017 | * K0120150 7CF2 684F 2018 | STX F1952 SET SWITCH 2 K0120160 2019 | * K0120170 7CF3 10A0 2020 | F1008 SLT 32 INITIALIZE K0120180 7CF4 D059 2021 | STO F1969 TO COLLECT K0120190 7CF5 C053 2022 | LD F1962 STATEMENT K0120200 7CF6 D85B 2023 | STD F1972 NUMBERS. K0120210 7CF7 6305 2024 | LDX 3 5 K0120220 2025 | * K0120230 7CF8 C200 2026 | F1009 LD 2 0 CHECK IF COLUMN BLANK K0120240 7CF9 9051 2027 | S F1965 K0120250 7CFA 4C18 7D10 2028 | BSC L F1012,+- BRANCH IF BLANK K0120260 2029 | * K0120270 7CFC 904F 2030 | S F1966 IS COLUMN ZERO K0120280 7CFD 4C20 7D03 2031 | BSC L F1010,Z BRANCH IF NON-ZERO K0120290 2032 | * K0120300 7CFF C04E 2033 | LD F1969 IS IT A LEADING ZERO K0120310 7D00 4C20 7D08 2034 | BSC L F1011,Z BRANCH IF NO K0120320 7D02 700D 2035 | MDX F1012 YES, LEADING ZERO K0120330 2036 | * K0120340 7D03 4C08 7DD8 2037 | F1010 BSC L F1030,+ BRANCH IF NON-NUMERIC K0120350 7D05 9047 2038 | S F1968 K0120360 7D06 4C30 7DD8 2039 | BSC L F1030,-Z BRANCH IF NON-NUMERIC K0120370 2040 | * K0120380 7D08 6845 2041 | F1011 STX F1969 INDICATE VALID DIGIT K0120390 2042 | * K0120400 7D09 C848 2043 | LDD F1972 ADD K0120410 7D0A 18DA 2044 | RTE 26 DIGIT K0120420 7D0B D046 2045 | STO F1972 TO K0120430 7D0C C200 2046 | LD 2 0 STATEMENT K0120440 7D0D E03A 2047 | AND F1961 NUMBER K0120450 7D0E E843 2048 | OR F1972 * K0120460 7D0F D842 2049 | STD F1972 * K0120470 2050 | * K0120480 7D10 7201 2051 | F1012 MDX 2 1 GO TO NEXT CHARACTER K0120490 7D11 73FF 2052 | MDX 3 -1 SKIP IF THROGH K0120500 7D12 70E5 2053 | MDX F1009 GET NEXT DIGIT IF NOT K0120510 2054 | * K0120520 7D13 C03A 2055 | LD F1969 IS THERE A STATEMENT NO. K0120530 7D14 4C18 7D1F 2056 | BSC L F1013,+- BRANCH IF NOT K0120540 2057 | * K0120550 7D16 C83B 2058 | LDD F1972 NORMALIZE K0120560 7D17 18D0 2059 | RTE 16 STATEMENT K0120570 7D18 1081 2060 | SLT 1 NUMBER K0120580 7D19 4C10 7D18 2061 | BSC L *-3,- (PACKED K0120590 7D1B D036 2062 | STO F1972 6 BITS PER K0120600 7D1C 180F 2063 | SRA 15 DECIMAL CHARACTER) K0120610 7D1D 108F 2064 | SLT 15 * K0120620 7D1E D034 2065 | STO F1972+1 * K0120630 2066 | * K0120640 7D1F 7201 2067 | F1013 MDX 2 1 GET NEXT CHARACTER K0120650 2068 | * K0120660 7D20 1010 2069 | SLA 16 NORMALIZE K0120670 7D21 D02F 2070 | STO F1971 CHARACTER COUNT K0120680 2071 | * K0120690 7D22 C020 2072 | LD F1953 LOAD SWITCH 3 K0120700 7D23 4C18 7D27 2073 | BSC L F1014,+- BRANCH IF SWITCH 3 NOT SET K0120710 2074 | * K0120720 7D25 4400 7DB8 2075 | BSI L F1029 COMPUTE NORM K0120730 2076 | * K0120740 7D27 681B 2077 | F1014 STX F1953 SET SWITCH 3 K0120750 2078 | * K0120760 2079 | * (XR1 POINTS AT SOFS) K0120770 2080 | * K0120780 7D28 6926 2081 | STX 1 F1970 K0120790 7D29 1010 2082 | SLA 16 K0120800 7D2A 4400 7E04 2083 | BSI L F1050 GO TO PUT ID WORD K0120810 2084 | * K0120820 7D2C C021 2085 | LD F1969 LOAD STATEMENT NO. IND K0120830 7D2D 4C18 7D3A 2086 | BSC L F1015,+- BRANCH IF NO STATEMENT NO. K0120840 2087 | * K0120850 7D2F C480 7D4F 2088 | LD I F1970 INDICATE K0120860 7D31 E817 2089 | OR F1962 STATEMENT K0120870 7D32 D480 7D4F 2090 | STO I F1970 NUMBER K0120880 2091 | * K0120890 7D34 C01D 2092 | LD F1972 PUT K0120900 7D35 4400 7E04 2093 | BSI L F1050 STATEMENT K0120910 7D37 C01B 2094 | LD F1972+1 NUMBER. K0120920 7D38 4400 7E04 2095 | BSI L F1050 * K0120930 2096 | * K0120940 7D3A 1010 2097 | F1015 SLA 16 K0120950 7D3B D009 2098 | STO F1955 NORMALIZE SWITCH 5 K0120960 7D3C D009 2099 | STO F1956 NORMALIZE SWITCH 6 K0120970 7D3D D009 2100 | STO F1957 NORMALIZE SWITCH 7 K0120980 7D3E D400 7DD2 2101 | STO L F1991 NORMALIZE FCCT K0120990 7D40 7020 2102 | MDX F1017 CONTINUE K0121000 1130 FORTRAN COMPILER PHASE 1 2104 | * K0121020 2105 | * CONSTANTS, STORAGE, AND SWITCHES K0121030 2106 | * K0121040 7D41 0000 2107 | F1951 DC 0 SWITCH 1 K0121050 7D42 0000 2108 | F1952 DC 0 SWITCH 2 K0121060 7D43 0000 2109 | F1953 DC 0 SWITCH 3 K0121070 7D44 0000 2110 | F1954 DC 0 SWITCH 4 K0121080 7D45 0000 2111 | F1955 DC 0 SWITCH 5 K0121090 7D46 0000 2112 | F1956 DC 0 SWITCH 6 K0121100 7D47 0000 2113 | F1957 DC 0 SWITCH 7 K0121110 2114 | * K0121120 7D48 003F 2115 | F1961 DC /003F MASK FOR STM NO. PACKING K0121130 2116 | * K0121140 7D49 0001 2117 | F1962 DC 1 USEFUL CONSTANT K0121150 2118 | * K0121160 7D4A 005C 2119 | F1963 DC .* * TEST K0121170 2120 | * K0121180 2121 | * K0121190 7D4B 0040 2122 | F1965 DC /0040 EBC BLANK TEST K0121200 7D4C 00B0 2123 | F1966 DC /F0-/40 EBC ZERO TEST K0121210 7D4D 0009 2124 | F1968 DC /F9-/F0 DIGIT TEST K0121220 2125 | * K0121230 7D4E 0000 2126 | F1969 DC 0 STATEMENT NO.TEST K0121240 2127 | * K0121250 7D4F 0000 2128 | F1970 DC 0 ID SAVE WORD K0121260 2129 | * K0121270 7D50 00C3 2130 | F1967 DC .C C TEST K0121280 2131 | * K0121290 7D51 0000 2132 | F1971 DC 0 CHARACTER COUNT K0121300 2133 | * K0121310 7D52 2134 | BSS E 0 K0121320 7D52 0000 2135 | F1972 DC 0 STATEMENT NUMBER K0121330 7D53 0000 2136 | DC 0 COLLECTION AREA K0121340 2137 | * K0121350 2138 | * K0121360 2139 | * K0121370 1130 FORTRAN COMPILER PHASE 1 2141 | * K0121390 7D54 C0EF 2142 | F1016 LD F1954 LOAD SWITCH 4 K0121400 7D55 4C20 7CA0 2143 | BSC L F1001,Z BRANCH IF SW 4 SET K0121410 2144 | * K0121420 7D57 C0EA 2145 | LD F1952 LOAD SWITCH 2 K0121430 7D58 4C18 7DDB 2146 | BSC L F1031,+- BRANCH TO ERROR IF NOT SET K0121440 2147 | * K0121450 7D5A 7401 7D51 2148 | MDX L F1971,1 INCREMENT CHARACTER COUNT K0121460 2149 | * K0121470 7D5C C0F4 2150 | LD F1971 ERROR IF COUNT IS GREATER K0121480 7D5D 906B 2151 | S F1985 *THAN 6. K0121490 7D5E 4C10 7E15 2152 | BSC L F1054,- * K0121500 2153 | * K0121510 7D60 7206 2154 | MDX 2 6 MV PT TO CD COLUMN SEVEN K0121520 2155 | * K0121530 2156 | * K0121540 2157 | * K0121550 7D61 6342 2158 | F1017 LDX 3 66 INITIALIZE TO PACK RECORD K0121560 2159 | * K0121570 7D62 C0E3 2160 | F1018 LD F1956 LOAD SWITCH 6 K0121580 7D63 4C20 7D6E 2161 | BSC L F1021,Z BRANCH IF SWITCH 6 SET K0121590 2162 | * K0121600 7D65 C200 2163 | F1019 LD 2 0 IS COLUMN BLANK K0121610 7D66 90E4 2164 | S F1965 K0121620 7D67 4C20 7D6E 2165 | BSC L F1021,Z BRANCH IF NOT BLANK K0121630 2166 | * K0121640 7D69 7201 2167 | F1020 MDX 2 1 INCR TO NEXT COLUMN K0121650 2168 | * K0121660 7D6A 73FF 2169 | MDX 3 -1 SKIP IF WHOLE CARD CHECKED K0121670 7D6B 70F6 2170 | MDX F1018 CHECK NEXT COLUMN K0121680 2171 | * K0121690 7D6C 4C00 7CA0 2172 | BSC L F1001 READ NEXT CARD K0121700 2173 | * K0121710 7D6E C040 2174 | F1021 LD F1959 LOAD SWITCH 9 K0121720 7D6F 4C20 7DB0 2175 | BSC L F1028,Z BRANCH IF SWITCH 9 SET K0121730 2176 | * K0121740 7D71 7410 7DAE 2177 | F1022 MDX L F1984,/10 CDATA = CDATA + /10 K0121750 2178 | * K0121760 7D73 C0D3 2179 | LD F1957 LOAD SWITCH 7 K0121770 7D74 4C20 7D7D 2180 | BSC L F1023,Z BRANCH IF SWITCH 7 SET K0121780 2181 | * K0121790 7D76 C200 2182 | LD 2 0 PUT K0121800 7D77 1008 2183 | SLA 8 LEFT K0121810 7D78 E8D2 2184 | OR F1965 CHARACTER. K0121820 7D79 4400 7E04 2185 | BSI L F1050 * K0121830 2186 | * K0121840 7D7B 68CB 2187 | STX F1957 SET SWITCH 7 K0121850 7D7C 70EC 2188 | MDX F1020 GET NEXT CHARACTER K0121860 2189 | * K0121870 7D7D 1010 2190 | F1023 SLA 16 NORMALIZE K0121880 7D7E D0C8 2191 | STO F1957 SWITCH 7 K0121890 2192 | * K0121900 7D7F C1FF 2193 | LD 1 -1 ADD K0121910 7D80 E055 2194 | AND F1995 RIGHT K0121920 7D81 EA00 2195 | OR 2 0 CHARACTER K0121930 7D82 D1FF 2196 | STO 1 -1 * K0121940 2197 | * K0121950 7D83 C02A 2198 | LD F1984 LD CDATA K0121960 7D84 90C6 2199 | S F1965 K0121970 7D85 4C18 7DA2 2200 | BSC L F1027,+- BRANCH IF EQ TO /40 K0121980 2201 | * K0121990 7D87 C0BD 2202 | F1024 LD F1955 LOAD SWITCH 5 K0122000 7D88 4C20 7D69 2203 | BSC L F1020,Z BRANCH IF SWITCH 5 SET K0122010 2204 | * K0122020 7D8A 7401 7DD2 2205 | MDX L F1991,1 INCREMENT FORMAT COUNT K0122030 2206 | * K0122040 7D8C C045 2207 | LD F1991 IS CHARACTER K0122050 7D8D 8046 2208 | A F1993 PART OF K0122060 7D8E D001 2209 | STO *+1 FORMAT K0122070 7D8F C400 0000 2210 | LD L *-* * K0122080 7D91 91FF 2211 | S 1 -1 * K0122090 7D92 4C18 7D96 2212 | BSC L F1025,+- BRANCH IF YES K0122100 2213 | * K0122110 7D94 68B0 2214 | STX F1955 TAG SWITCH 5 K0122120 7D95 70D3 2215 | MDX F1020 CONTINUE TO PACK K0122130 2216 | * K0122140 7D96 C03B 2217 | F1025 LD F1991 LOAD FORMAT COUNT K0122150 7D97 903B 2218 | S F1992 K0122160 7D98 4C20 7D69 2219 | BSC L F1020,Z BRANCH IF NOT EQUAL TO 3 K0122170 2220 | * K0122180 7D9A 71FD 2221 | F1026 MDX 1 -3 XR1 = XR1-3 K0122190 2222 | * K0122200 7D9B C480 7D4F 2223 | LD I F1970 SET K0122210 7D9D E833 2224 | OR F1990+3 FORMAT K0122220 7D9E D480 7D4F 2225 | STO I F1970 STATEMENT ID. K0122230 2226 | * K0122240 7DA0 68A5 2227 | STX F1956 TAG SWITCH 6 K0122250 7DA1 70C7 2228 | MDX F1020 CONTINUE, DON>T PACK FMT K0122260 2229 | * K0122270 2230 | * DATA STATEMENT K0122280 2231 | * K0122290 7DA2 C1FF 2232 | F1027 LD 1 -1 ARE SECOND PAIR OF K0122300 7DA3 9008 2233 | S F1982 CHARACTERS EQ TO (TA) K0122310 7DA4 4C20 7D87 2234 | BSC L F1024,Z BRANCH IF NO K0122320 2235 | * K0122330 7DA6 C1FE 2236 | LD 1 -2 ARE FIRST PAIR OF K0122340 7DA7 9003 2237 | S F1981 CHARACTERS EQ TO (DA) K0122350 7DA8 4818 2238 | BSC +- SKIP IF NO K0122360 2239 | * K0122370 7DA9 6805 2240 | STX F1959 TAG SWITCH 9 K0122380 2241 | * K0122390 7DAA 70DC 2242 | MDX F1024 CONTINUE WITH PACK RTN. K0122400 1130 FORTRAN COMPILER PHASE 1 2244 | * K0122420 2245 | * CONSTANTS, WORK AREAS AND SWITCHES K0122430 2246 | * K0122440 7DAB C4C1 2247 | F1981 DC /C4C1 DA TEST K0122450 7DAC E3C1 2248 | F1982 DC /E3C1 TA TEST K0122460 2249 | * K0122470 7DAD 007D 2250 | F1983 DC /7D QUOTE TEST K0122480 2251 | * K0122490 7DAE 0000 2252 | F1984 DC *-* DATA WORK AREA K0122500 2253 | * K0122510 7DAF 0000 2254 | F1959 DC *-* SWITCH 9 K0122520 2255 | * K0122530 1130 FORTRAN COMPILER PHASE 1 2257 | * K0122550 7DB0 C200 2258 | F1028 LD 2 0 IS CHARACTER A QUOTE K0122560 7DB1 90FB 2259 | S F1983 K0122570 7DB2 4C20 7D71 2260 | BSC L F1022,Z BRANCH IF NO K0122580 2261 | * K0122590 2262 | * K0122600 7DB4 C091 2263 | LD F1956 LOAD SWITCH 6 K0122610 7DB5 F000 2264 | EOR * REVERSE SWITCH 6 K0122620 7DB6 D08F 2265 | STO F1956 STORE K0122630 7DB7 70B9 2266 | MDX F1022 CONTINUE K0122640 2267 | * K0122650 7DB8 0000 2268 | F1029 DC 0 BSI ADDRESS K0122660 7DB9 C1FF 2269 | LD 1 -1 ELIMINATE K0122670 7DBA 901A 2270 | S F1994 TRAILING K0122680 7DBB 4C20 7DBF 2271 | BSC L *+2,Z BLANKS K0122690 7DBD 71FF 2272 | MDX 1 -1 * K0122700 7DBE 70FA 2273 | MDX *-6 * K0122710 2274 | * K0122720 7DBF 690A 2275 | STX 1 F1986 COMPUTE K0122730 7DC0 C009 2276 | LD F1986 NORM K0122740 7DC1 908D 2277 | S F1970 * K0122750 7DC2 1002 2278 | SLA 2 * K0122760 7DC3 EC80 7D4F 2279 | OR I F1970 * K0122770 2280 | * K0122780 7DC5 D480 7D4F 2281 | STO I F1970 STORE NORM IN IDSAVY K0122790 2282 | * K0122800 7DC7 4C80 7DB8 2283 | BSC I F1029 RETURN K0122810 1130 FORTRAN COMPILER PHASE 1 2285 | * K0122830 2286 | * CONSTANTS AND WORK AREAS K0122840 2287 | * K0122850 7DC9 0006 2288 | F1985 DC 6 USEFUL CONSTANT K0122860 2289 | * K0122870 7DCA 0000 2290 | F1986 DC 0 WORK WORD K0122880 2291 | * K0122890 7DCB 0000 2292 | F1987 DC 0 ERNO K0122900 7DCC A008 2293 | F1988 DC /A008 ERROR ID K0122910 2294 | * K0122920 7DCD 0000 2295 | F1989 DC 0 OVERLAP COUNTER K0122930 2296 | * K0122940 7DCE C6D6 2297 | F1990 DC /C6D6 FO K0122950 7DCF D9D4 2298 | DC /D9D4 RM K0122960 7DD0 C1E3 2299 | DC /C1E3 AT K0122970 7DD1 6000 2300 | DC /6000 FORMAT ID WORD K0122980 2301 | * K0122990 7DD2 0000 2302 | F1991 DC 0 FORMAT COUNT K0123000 2303 | * K0123010 7DD3 0003 2304 | F1992 DC 3 USEFUL CONSTANT K0123020 2305 | * K0123030 7DD4 7DCD 2306 | F1993 DC F1990-1 COMPARE POINTER FOR FORMAT K0123040 2307 | * K0123050 7DD5 4040 2308 | F1994 DC /4040 BLANK TEST K0123060 2309 | * K0123070 7DD6 FF00 2310 | F1995 DC /FF00 MASK WORD K0123080 2311 | * K0123090 7DD7 1000 2312 | F1996 DC /1000 END STATEMENT ID K0123100 2313 | * K0123110 2314 | * K0123120 1130 FORTRAN COMPILER PHASE 1 2316 | * K0123140 7DD8 6301 2317 | F1030 LDX 3 1 SET ERROR NUMBER K0123150 7DD9 6BF1 2318 | STX 3 F1987 EQUAL TO / K0123160 7DDA 7002 2319 | MDX F1032 GO TO ERROR K0123170 2320 | * K0123180 7DDB 6302 2321 | F1031 LDX 3 2 SET ERROR NUMBER K0123190 7DDC 6BEE 2322 | STX 3 F1987 EQUAL TO 2 K0123200 2323 | * K0123210 7DDD C400 7D43 2324 | F1032 LD L F1953 LOAD SWITCH 3 K0123220 7DDF 4C18 7DE2 2325 | BSC L F1033,+- BRANCH IF SWITCH 3 NOT SET K0123230 2326 | * K0123240 7DE1 40D6 2327 | BSI F1029 COMPUTE NORM K0123250 2328 | * K0123260 7DE2 C0E9 2329 | F1033 LD F1988 PUT ERROR ID K0123270 7DE3 4020 2330 | BSI F1050 K0123280 2331 | * K0123290 7DE4 C0E6 2332 | LD F1987 PUT ERROR NUMBER K0123300 7DE5 401E 2333 | BSI F1050 K0123310 2334 | * K0123320 7DE6 6C00 7D44 2335 | F1034 STX L F1954 TAG SWITCH 4 K0123330 2336 | * K0123340 7DE8 1010 2337 | SLA 16 NORMALIZE SWITCH 3 K0123350 7DE9 D400 7D43 2338 | STO L F1953 K0123360 7DEB 4C00 7CA0 2339 | BSC L F1001 GET NEXT CARD K0123370 2340 | * K0123380 7DED C400 7D43 2341 | F1035 LD L F1953 LOAD SWITCH 3 K0123390 7DEF 4C18 7DF2 2342 | BSC L F1036,+- BRANCH IF NOT SET K0123400 2343 | * K0123410 7DF1 40C6 2344 | BSI F1029 COMPUTE NORM K0123420 2345 | * K0123430 7DF2 C0E4 2346 | F1036 LD F1996 LOAD END ID K0123440 7DF3 6D00 7A25 2347 | STX L1 FX002 SET END OF STRING POINTER K0123450 2348 | * K0123460 7DF5 400E 2349 | BSI F1050 PUT END STATEMENT ID K0123470 2350 | * K0123480 2351 | * K0123490 2352 | * MODIFY END OF SYMBOL TABLE ADDRESS K0123500 2353 | * FOR SUBSEQUENT PHASES. K0123510 2354 | * K0123520 7DF6 6580 7A2A 2355 | LDX I1 FX007 LOAD SYMBOL TABLE END ADDR K0123530 7DF8 7500 0089 2356 | MDX L1 ADSTF MODIFY K0123540 7DFA 6D00 7A2A 2357 | STX L1 FX007 RETURN TO FCOM K0123550 2358 | * K0123560 2359 | * K0123570 2360 | * K0123580 1130 FORTRAN COMPILER PHASE 1 2362 | * K0123600 7DFC 6580 7E01 2363 | LDX I1 F1038 LOAD LINKAGE TO K0123610 7DFE C803 2364 | LDD F1039 NEXT PHASE. K0123620 2365 | * K0123630 7DFF 4C00 7FBC 2366 | BSC L RL000 GO TO NEXT PHASE K0123640 2367 | * K0123650 7E01 0000 2368 | F1038 DC *-* CORE ADDRESS NEXT PHASE K0123660 7E02 2369 | F1039 BSS E 2 WC, SA OF NEXT PHASE K0123670 2370 | * K0123680 1130 FORTRAN COMPILER PHASE 1 2372 | * THE FOLLOWING SUBROUTINE PUTS THE K0123700 2373 | * WORD THAT IS IN THE A REGISTER ON THE K0123710 2374 | * STRING THAT IS INDICATED BY INDEX K0123720 2375 | * REGISTER 1. ENTRY IS A BSI K0123730 2376 | * INSTRUCTION TO THE LABEL (F1050). K0123740 2377 | * INDEX REGISTER 1 IS INCREMENTED BY K0123750 2378 | * 1 UPON EXITING. K0123760 2379 | * K0123770 2380 | * K0123780 7E04 0000 2381 | F1050 DC 0 BSI ADDRESS K0123790 7E05 D100 2382 | F1051 STO 1 0 STORE A REGISTER IN STRING K0123800 2383 | * K0123810 7E06 7101 2384 | F1052 MDX 1 1 MOVE POINTER (XR1) K0123820 2385 | * K0123830 7E07 69C5 2386 | STX 1 F1989 CHECK FOR K0123840 7E08 C0C4 2387 | LD F1989 OVERLAP K0123850 7E09 9400 7A2A 2388 | S L FX007 ERROR. K0123860 2389 | * K0123870 7E0B 4C28 7E13 2390 | BSC L F1053,+Z BRANCH IF NO ERROR K0123880 2391 | * K0123890 7E0D C400 7D49 2392 | LD L F1962 SET OVERLAP K0123900 7E0F D400 7A2D 2393 | STO L FX010 ERROR INDICATOR K0123910 2394 | * K0123920 7E11 C0F3 2395 | LD F1051 SET UP TO NO LONGER K0123930 7E12 D0F3 2396 | STO F1052 INCREMENT XR1 K0123940 2397 | * K0123950 2398 | * K0123960 7E13 4C80 7E04 2399 | F1053 BSC I F1050 RETURN K0123970 2400 | * K0123980 2401 | * K0123990 7E15 6302 2402 | F1054 LDX 3 2 SET ERROR NUMBER K0124000 7E16 6BB4 2403 | STX 3 F1987 EQUAL TO 2. K0124010 2404 | * K0124020 7E17 6580 7D4F 2405 | LDX I1 F1970 XR1 = CONTENTS OF IDSAV K0124030 2406 | * K0124040 7E19 C100 2407 | LD 1 0 K0124050 7E1A 4C04 7E1D 2408 | BSC L *+1,E BRANCH IF STATEMENT NUMBRD K0124060 7E1C 70C5 2409 | MDX F1033 BRANCH IF NOT K0124070 2410 | * K0124080 2411 | * K0124090 7E1D C005 2412 | LD F1999 PUT OUT ERROR ID FOR K0124100 7E1E D100 2413 | STO 1 0 STM NO. K0124110 2414 | * K0124120 7E1F C0AB 2415 | LD F1987 PUT OUT ERROR NO K0124130 7E20 D103 2416 | STO 1 3 K0124140 2417 | * K0124150 7E21 7104 2418 | MDX 1 4 INCREMENT POINTER K0124160 2419 | * K0124170 7E22 70C3 2420 | MDX F1034 GO SET SWITCH 4 K0124180 2421 | * K0124190 7E23 A011 2422 | F1999 DC /A011 ERROR ID K0124200 2423 | * K0124210 7E24 4C18 7C71 2424 | PTCH1 BSC L F1510,+- BRANCH IF YES 2-3 K0124220 7E26 9007 2425 | S TEST1 IS FIRST COL ASTERISK 2-3 K0124230 7E27 4C18 7C71 2426 | BSC L F1510,+- BRANCH IF YES 2-3 K0124240 7E29 9005 2427 | S TEST2 IS FIRST COL ASTERISK 2-3 K0124250 7E2A 4C18 7C71 2428 | BSC L F1510,+- BRANCH IF YES 2-3 K0124260 7E2C 4C00 7C46 2429 | BSC L BACK BRANCH BACK 2-3 K0124270 2430 | * K0124280 7E2E 7C5C 2431 | TEST1 DC .*-/8400 EBC ASTERISK TEST 2-3 K0124290 7E2F 41C4 2432 | TEST2 DC /4220-.* HOL ASTERISK TEST 2-3 K0124300 7E30 2433 | BSS OVERP-1-* PATCH AREA K0124310 1130 FORTRAN COMPILER PHASE 1 2435 | * K0124330 2436 | * K0124340 7E44 2437 | F1803 EQU OVERP+2 THIS SPACE WILL CONTAIN K0124350 2438 | * THE SYSTEM PRINT ROUTINE K0124360 2439 | * K0124370 1130 FORTRAN COMPILER PHASE 1 2441 | * K0124390 2442 | * HEADER AREA K0124400 2443 | * K0124410 7F8A 2444 | ORG HEAD-1 K0124420 7F8A 002F 2445 | DC 47 WORD COUNT FOR HEADER READ K0124430 7F8B 0000 2446 | DC *-* SECTOR ADDRESS FOR HEADER K0124440 2447 | * K0124450 2448 | * HEADER WORD COUNT OVERLAYS THE SECTOR K0124460 2449 | * ADDRESS AFTER THE HEADER IS LOADED. K0124470 2450 | * HEADER WORD COUNT MUST BE AT AN K0124480 2451 | * ODD CORE LOCATION K0124490 2452 | * K0124500 7F8C 2453 | BSS 47 HEADER AREA K0124510 2454 | * K0124520 1130 FORTRAN COMPILER PHASE 1 2456 | *************************************************** K0124540 2457 | * * K0124550 2458 | *FORTRAN INTERPHASE ROLLER AND DUMP CONTROL SUBR * K0124560 2459 | * * K0124570 2460 | *************************************************** K0124580 2461 | *STATUS-VERSION 2, MODIFICATION 0 * K0124590 2462 | * * K0124600 2463 | *FUNCTION/OPERATION * K0124610 2464 | * * DUMP THE STRING AREA, SYMBOL TABLE AREA AND * K0124620 2465 | * FCOM FOR PHASE JUST COMPLETED ON REQUEST. * K0124630 2466 | * * K0124640 2467 | * * LOAD THE PHASE REQUESTED FROM ENTRY LINKAGE * K0124650 2468 | * AND THEN TRANSFER CONTROL TO IT. * K0124660 2469 | * * K0124670 2470 | *ENTRY POINTS- * K0124680 2471 | * * RL000- (OTHERWISE KNOWN AS ROL). THE CALLING* K0124690 2472 | * SEQUENCE IS- * K0124700 2473 | * LDX L1 ADDR1 * K0124710 2474 | * LDD ADDR2 * K0124720 2475 | * BSC L RL000 * K0124730 2476 | * WHERE ADDR1 IS THE LOAD ADDRESS OF * K0124740 2477 | * THE PHASE TO BE LOADED, AND ADDR2 IS * K0124750 2478 | * A TWO WORD LOCATION CONTAINING THE * K0124760 2479 | * WORD COUNT AND SECTOR ADDRESS OF THE * K0124770 2480 | * PHASE TO BE LOADED. * K0124780 2481 | * * NOTE- * K0124790 2482 | * IF UPON ENTRY TO THE ROLLER SUBROUTINE THE * K0124800 2483 | * CONSOLE ENTRY SWITCHES ARE SET EQUAL TO * K0124810 2484 | * THE PHASE ID ( E.G. /001F = PHASE 1) THEN * K0124820 2485 | * THE STRING AREA, THE SYMBOL TABLE AREA AND * K0124830 2486 | * FCOM FOR THE PHASE NOW IN CORE ARE DUMPED * K0124840 2487 | * ON THE PRINCIPAL PRINTER PRIOR TO THE * K0124850 2488 | * LOADING OF THE NEXT PHASE. * K0124860 2489 | * * K0124870 2490 | *INPUT- NONE * K0124880 2491 | * * K0124890 2492 | *OUTPUT- * K0124900 2493 | * * DUMP OF WORK AREAS ON REQUEST - XR3 CONTAINS* K0124910 2494 | * PHASE ID OF DUMPED PHASE. * K0124920 2495 | *EXTERNAL REFERENCES- * K0124930 2496 | * SUBROUTINES- * K0124940 2497 | * * DZ000- * K0124950 2498 | * * DUMP - * K0124960 2499 | * COMMA/DCOM * K0124970 2500 | * * PHASE- NO. OF PHASE NOW IN CORE * K0124980 2501 | * FCOM * K0124990 2502 | * * SOFS - START OF STRING * K0125000 2503 | * * EOFS - END OF STRING * K0125010 2504 | * * EOFST- END OF SYMBOL TABLE * K0125020 2505 | * * DFCNT- END OF FCOM * K0125030 2506 | * * K0125040 2507 | *TABLES/WORK AREAS- NONE * K0125050 2508 | * * K0125060 2509 | *ATTRIBUTES- * K0125070 2510 | * NOT OVERLAYED BY ANY PHASE, NOT USED BY PHASE * K0125080 2511 | * 27 *RECOVERY). * K0125090 2512 | * * K0125100 2513 | *NOTES- N/A * K0125110 2514 | *************************************************** K0125120 2515 | * K0125130 7FBC 2516 | ORG RL000 K0125140 2517 | * K0125150 2518 | * K0125160 7FBC 2519 | ROL EQU * K0125170 7FBC 6934 2520 | STX 1 RL952+1 SAVE CA OF NEXT PHASE K0125180 7FBD D830 2521 | STD RL950 SAVE WC AND SA NEXT PHASE K0125190 2522 | * K0125200 7FBE 2523 | RL001 EQU * K0125210 2524 | * K0125220 2525 | * TO ENABLE THE INTERPHASE DUMP, 2-1 K0125230 2526 | * CHANGE THE FOLLOWING INSTRUCTION 2-1 K0125240 2527 | * TO AN XIO RL930 (0833) 2-1 K0125250 2528 | * WHICH READS THE CONSOLE SWITCHES 2-1 K0125260 7FBE 1000 2529 | NOP 2-1 K0125270 2530 | * K0125280 7FBF C023 2531 | LD RL940 LOAD SWITCH VALUE K0125290 7FC0 9400 0078 2532 | S L $PHSE SUBTRACT PHASE NUMBER K0125300 7FC2 4C20 7FD2 2533 | BSC L RL010,Z BRANCH IF NO DUMP DESIRED K0125310 2534 | * K0125320 7FC4 6780 0078 2535 | LDX I3 $PHSE PLACE PHASE ID INTO XR3 K0125330 2536 | * K0125340 7FC6 C400 7A25 2537 | LD L FX002 END OF STRING AREA K0125350 7FC8 18D0 2538 | RTE 16 K0125360 7FC9 C400 7A24 2539 | LD L FX001 START OF STRING AREA K0125370 7FCB 4019 2540 | BSI RL050 DUMP STRING AREA K0125380 2541 | * K0125390 7FCC C017 2542 | LD RL951 END OF FCOM K0125400 7FCD 18D0 2543 | RTE 16 K0125410 7FCE C400 7A2A 2544 | LD L FX007 END OF SYMBOL TABLE AREA K0125420 2545 | * K0125430 2546 | * DUMP SYMBOL TABLE AND K0125440 7FD0 4014 2547 | BSI RL050 FORTRAN COMMUNICATION AREA K0125450 2548 | * K0125460 2549 | * K0125470 7FD1 3000 2550 | WAIT PAUSE AFTER DUMP K0125480 2551 | * K0125490 2552 | * K0125500 7FD2 C81B 2553 | RL010 LDD RL950 WC & SA FOR PHASE LOAD K0125510 7FD3 DC80 7FF1 2554 | STD I RL952+1 STORE IN PHASE AREA K0125520 2555 | * K0125530 7FD5 7400 0036 2556 | MDX L $PBSY,0 SKIP IF PRINTER READY K0125540 7FD7 70FD 2557 | MDX *-3 LOOP IF PRINTER BUSY K0125550 2558 | * K0125560 7FD8 C817 2559 | LDD RL952 DISK CONTROL FOR LOAD K0125570 7FD9 4400 00F2 2560 | BSI L DZ000 LOAD NEXT PHASE K0125580 2561 | * K0125590 2562 | * K0125600 7FDB 7400 00EE 2563 | MDX L $DBSY,0 LOOP IF DISK IS K0125610 7FDD 70FD 2564 | MDX *-3 STILL BUSY. K0125620 2565 | * K0125630 7FDE 6580 7FF1 2566 | LDX I1 RL952+1 SET UP ADDRESS OF NEXT K0125640 7FE0 7102 2567 | MDX 1 2 PHASE IN XR1. K0125650 7FE1 4D00 0000 2568 | BSC L1 0 GO TO NEXT PHASE K0125660 2569 | * K0125670 7FE3 0000 2570 | RL940 DC *-* DATA ENTRY READ AREA K0125680 7FE4 7A33 2571 | RL951 DC FX015 END OF FORTRAN COMM AREA K0125690 2572 | * K0125700 2573 | * K0125710 7FE5 2574 | RL050 EQU * DUMP CONTROL ROUTINE K0125720 2575 | * K0125730 7FE5 0000 2576 | DC *-* BSI ADDRESS K0125740 7FE6 D803 2577 | STD RL051 STORE DUMP LIMITS K0125750 7FE7 4400 003F 2578 | BSI L $DUMP DUMP REQUIRED WORDS K0125760 7FE9 0000 2579 | DC 0 HEX FORMAT K0125770 7FEA 0000 2580 | RL051 DC *-* LOW LIMIT K0125780 7FEB 0000 2581 | DC *-* HIGH LIMIT K0125790 2582 | * K0125800 7FEC 4C80 7FE5 2583 | BSC I RL050 RETURN K0125810 2584 | * K0125820 2585 | * K0125830 7FEE 2586 | BSS E 0 CONSTANTS AND STORAGE K0125840 2587 | * K0125850 2588 | * K0125860 7FEE 0000 2589 | RL950 DC *-* WC PHASE TO BE LOADED K0125870 7FEF 0000 2590 | DC *-* SA PHASE TO BE LOADED K0125880 2591 | * K0125890 2592 | * K0125900 7FF0 7000 2593 | RL952 DC /7000 DISK CONTROL FOR K0125910 7FF1 0000 2594 | DC *-* PHASE LOAD K0125920 2595 | * K0125930 2596 | * K0125940 7FF2 7FE3 2597 | RL930 DC RL940 IOCC FOR READING K0125950 7FF3 3A00 2598 | DC /3A00 DATA ENTRY SWITCHES. K0125960 2599 | * K0125970 1130 FORTRAN COMPILER PHASE 1 2601 | * K0125990 2602 | * ILS4 INTERRUPT BRANCH TABLE K0126000 2603 | * K0126010 2604 | * K0126020 7FF6 2605 | ORG I4900 K0126030 2606 | * K0126040 7FF6 0000 2607 | DC 0 RESERVED K0126050 2608 | * K0126060 7FF7 0000 2609 | DC 0 RESERVED K0126070 2610 | * K0126080 7FF8 0000 2611 | DC 0 RESERVED K0126090 2612 | * K0126100 7FF9 0000 2613 | DC 0 1231 - NOT USED K0126110 2614 | * K0126120 7FFA 7E48 2615 | DC F1803+4 1403 PRINTER K0126130 2616 | * K0126140 7FFB 7A3A 2617 | DC F1801+4 2501 CARD READER K0126150 2618 | * K0126160 7FFC 7A3A 2619 | DC F1801+4 1442 CARD READER/PUNCH K0126170 2620 | * K0126180 7FFD 0000 2621 | I4907 DC *-* KEYBOARD/CONSOLE PRINTER K0126190 2622 | * K0126200 7FFE 7A3A 2623 | DC F1801+4 1134/1055 PAPERTAPE RD/PCH K0126210 2624 | * K0126220 2625 | * K0126230 7FFF 2626 | END FZ000-2 K0126240 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced #HDNG 0007 235 453 $CH12 0006 219 1976 $CORE 000E 220 459 $CTSW 000F 221 1809 $DBSY 00EE 230 279 381 1411 2563 $DUMP 003F 228 2578 $IBSY 0013 222 1806 $IBT4 00D4 229 371 $KCSW 007C 227 301 1973 $LAST 0033 223 1812 $PBSY 0036 224 1758 2556 $PHSE 0078 226 269 2532 2535 $ZEND 01E0 232 496 ADSTF 0089 247 248 474 2356 BACK 7C46 1830 2429 BACK1 7C4C 1836 1833 CCWD 7A31 1509 COMON 7A2B 1504 CSIZE 7A2C 1505 DFCNT 7A33 1511 DZ000 00F2 231 278 294 313 342 348 2560 EOFS 7A25 1498 EOFST 7A2A 1503 ERROR 7A2D 1506 F1000 7C9F 1934 509 F1001 7CA0 1936 1983 1991 2016 2143 2172 2339 F1002 7CBA 1962 1944 1955 1958 F1003 7CBA 1964 567 569 741 946 958 1265 1283 1315 1938 F1004 7CC9 1976 1266 1967 F1005 7CD4 1986 1971 1974 F1006 7CDA 1993 1988 F1007 7CE6 2005 F1008 7CF3 2020 F1009 7CF8 2026 2053 F1010 7D03 2037 2031 F1011 7D08 2041 2034 F1012 7D10 2051 2028 2035 F1013 7D1F 2067 2056 F1014 7D27 2077 2073 F1015 7D3A 2097 2086 F1016 7D54 2142 1997 F1017 7D61 2158 2102 F1018 7D62 2160 2170 F1019 7D65 2163 F1020 7D69 2167 2188 2203 2215 2219 2228 F1021 7D6E 2174 2161 2165 F1022 7D71 2177 2260 2266 F1023 7D7D 2190 2180 F1024 7D87 2202 2234 2242 F1025 7D96 2217 2212 F1026 7D9A 2221 F1027 7DA2 2232 2200 F1028 7DB0 2258 2175 F1029 7DB8 2268 2075 2283 2327 2344 F1030 7DD8 2317 2037 2039 F1031 7DDB 2321 2146 F1032 7DDD 2324 2319 F1033 7DE2 2329 2325 2409 F1034 7DE6 2335 2420 F1035 7DED 2341 1803 F1036 7DF2 2346 2342 F1038 7E01 2368 352 2363 F1039 7E02 2369 354 2364 F1050 7E04 2381 2083 2093 2095 2185 2330 2333 2349 2399 F1051 7E05 2382 2395 F1052 7E06 2384 2396 F1053 7E13 2399 2390 F1054 7E15 2402 2152 F1500 7C29 1793 1883 1934 1936 F1501 7C51 1839 1831 1870 F1502 7C60 1850 1845 F1503 7C62 1853 1863 1866 F1504 7C67 1862 1832 1854 F1506 7C6F 1869 1840 1842 1851 F1510 7C71 1872 1825 1837 1848 1867 2424 2426 2428 F1511 7C76 1877 1860 F1512 7C79 1881 1820 F1513 7C7B 1882 1795 F1560 7C7F 1886 1810 F1568 7C8E 1901 357 1896 F1569 7C90 1902 359 1897 F1591 7C92 1910 1801 1818 1859 1872 1877 1879 1887 1890 1940 F1593 7C94 1913 1874 F1594 7C95 1914 1841 1865 F1595 7C96 1915 1844 F1596 7C99 1919 1847 F1598 7C9C 1923 1824 F1599 7C9D 1924 1827 F159A 7C9E 1926 1815 F1600 7BB2 1746 1775 1980 F1601 7BC1 1761 1770 F1603 7BCF 1774 1747 F1691 7BC2 1762 1752 1754 1979 F1692 7BC5 1765 1756 F1693 7BD3 1777 1753 F1694 7BD4 1778 1755 F1695 7BD6 1781 1772 F1700 799A 1375 1264 1384 1957 1960 1977 F1796 79A6 1387 1377 F1798 79A8 1389 1381 F1799 79D3 1411 349 F179A 79D8 1415 319 F179B 79E3 1422 1427 F179K 79EB 1431 318 F179P 79F1 1437 1415 F179W 79F7 1443 1417 1418 F1801 7A36 1521 311 327 376 446 1416 1419 1816 1875 2617 2619 2623 F1802 7BB1 1738 339 1891 1941 F1803 7E44 2437 292 373 443 1378 1380 1382 1773 2615 F1951 7D41 2107 495 1943 1951 1966 1982 F1952 7D42 2108 1990 2018 2145 F1953 7D43 2109 2072 2077 2324 2338 2341 F1954 7D44 2110 2001 2142 2335 F1955 7D45 2111 2098 2202 2214 F1956 7D46 2112 2099 2160 2227 2263 2265 F1957 7D47 2113 2100 2179 2187 2191 F1959 7DAF 2254 2002 2174 2240 F1961 7D48 2115 2047 F1962 7D49 2117 2022 2089 2392 F1963 7D4A 2119 1948 F1965 7D4B 2122 1994 2009 2027 2164 2184 2199 F1966 7D4C 2123 1996 2030 F1967 7D50 2130 1987 F1968 7D4D 2124 2038 F1969 7D4E 2126 2021 2033 2041 2055 2085 F1970 7D4F 2128 2081 2088 2090 2223 2225 2277 2279 2281 2405 F1971 7D51 2132 2070 2148 2150 F1972 7D52 2135 2023 2043 2045 2048 2049 2058 2062 2065 2092 2094 F1981 7DAB 2247 2237 F1982 7DAC 2248 2233 F1983 7DAD 2250 2259 F1984 7DAE 2252 2003 2177 2198 F1985 7DC9 2288 2151 F1986 7DCA 2290 2275 2276 F1987 7DCB 2292 2318 2322 2332 2403 2415 F1988 7DCC 2293 2329 F1989 7DCD 2295 2386 2387 F1990 7DCE 2297 2224 2306 F1991 7DD2 2302 2101 2205 2207 2217 F1992 7DD3 2304 2218 F1993 7DD4 2306 2208 F1994 7DD5 2308 2270 F1995 7DD6 2310 2194 F1996 7DD7 2312 2346 F1999 7E23 2422 2412 F1CDA 79D2 1397 1410 1910 F1PBF 79A9 1392 1766 1782 F2CDA 7BD8 1785 1911 FNAME 7A2E 1507 FX000 7A23 1458 483 900 907 923 928 1496 FX001 7A24 1459 497 498 1497 1894 2539 FX002 7A25 1460 1498 1888 2347 2537 FX003 7A26 1461 464 1499 FX004 7A27 1462 465 1500 FX005 7A28 1463 466 1501 FX006 7A29 1464 468 1502 FX007 7A2A 1465 477 1503 2355 2357 2388 2544 FX008 7A2B 1466 480 1504 FX009 7A2C 1467 484 1505 FX010 7A2D 1468 485 1506 2393 FX011 7A2E 1469 489 490 1314 1507 FX012 7A30 1471 486 1508 FX013 7A31 1472 488 955 956 1509 1953 1969 FX014 7A32 1481 487 726 739 1510 FX015 7A33 1493 491 1511 2571 FZ000 760E 261 1359 2626 FZ001 76CE 505 FZ003 76E0 532 1949 FZ004 76E0 534 FZ005 76FC 566 616 624 673 703 724 736 756 801 809 831 842 876 897 902 906 917 919 925 927 951 FZ008 7701 573 540 FZ010 7705 578 584 605 613 621 629 634 FZ012 7707 581 543 FZ014 770C 587 546 FZ016 7721 607 600 FZ018 7729 615 608 FZ020 7731 623 595 FZ022 7739 631 549 FZ024 7753 663 552 FZ026 775A 668 FZ028 7766 679 718 FZ032 7785 709 746 761 766 771 786 793 798 806 813 823 FZ034 7787 711 FZ036 77A3 743 682 FZ038 77A9 750 685 FZ040 77B7 763 688 FZ042 77BD 768 691 FZ044 77C3 773 694 FZ046 77D3 790 697 FZ048 77D9 795 753 FZ050 77DF 800 776 FZ051 77E8 808 780 FZ052 77F1 815 874 FZ054 77F7 820 700 FZ056 77FD 826 578 818 FZ058 7801 831 FZ060 7803 837 590 666 709 826 848 850 883 1277 FZ070 781B 872 555 FZ072 7830 894 908 FZ074 7831 895 892 FZ076 7844 910 889 930 FZ080 7853 923 914 FZ090 793A 1255 558 FZ091 793B 1256 1262 FZ100 794A 1274 561 FZ106 7972 1321 1287 1291 1296 1304 1309 1336 FZ107 7979 1330 1325 FZ108 797D 1333 1328 FZ110 7981 1339 1281 1323 1330 1331 FZ111 7982 1340 1285 1324 FZ112 7983 1341 1289 1293 1294 1298 1299 1312 FZ113 7984 1342 1302 1306 1307 1310 FZ114 7985 1343 1284 FZ600 7860 940 537 592 597 668 679 715 750 773 778 829 839 872 887 894 910 966 970 1279 FZ601 7873 960 948 FZ900 769A 453 275 335 338 FZ901 7690 439 277 FZ902 7692 442 293 FZ903 7694 445 312 332 341 FZ904 7696 448 336 346 347 FZ907 7698 451 331 337 FZ90B 7699 452 504 FZ911 76D5 517 539 FZ912 76D6 518 542 FZ913 76D7 519 545 FZ914 76D8 520 548 FZ915 76D9 521 551 FZ916 76DA 522 554 FZ918 76DB 523 557 FZ919 76DD 525 566 FZ920 76DE 528 574 582 588 603 611 619 627 632 664 706 744 759 764 769 784 791 796 804 811 816 821 846 881 1275 FZ921 76DF 529 FZ922 76DC 524 560 FZ923 773E 639 594 FZ924 773F 640 599 FZ925 7740 641 607 FZ926 7741 642 615 FZ927 7742 643 623 FZ928 7743 644 670 FZ929 7744 645 672 FZ930 7745 646 677 711 713 727 728 734 738 FZ931 7746 647 681 FZ932 7747 648 684 FZ933 7748 649 687 FZ934 7749 650 690 FZ935 774A 651 693 FZ936 774B 652 696 FZ937 774D 654 702 FZ938 774E 655 717 FZ939 774F 656 720 FZ93U 774C 653 699 FZ940 7750 657 723 FZ941 7751 658 752 FZ942 7752 659 755 FZ943 780E 855 775 779 FZ944 780F 856 800 FZ945 7810 857 945 FZ946 7811 858 899 905 911 915 942 943 964 968 FZ947 7812 859 965 FZ948 7813 860 808 875 FZ949 7814 861 873 FZ950 7815 862 888 890 FZ951 7816 863 895 912 FZ952 7817 864 901 FZ953 7818 865 916 FZ954 7819 866 918 FZ955 781A 867 920 FZ95E 76D4 515 535 676 828 891 929 950 FZ971 787C 978 575 FZ972 7889 993 583 FZ973 7898 1012 665 FZ974 789B 1018 633 FZ976 78AC 1039 745 FZ977 78B0 1047 785 FZ978 78B7 1058 760 FZ979 78BF 1070 765 FZ97A 78C9 1084 770 FZ97B 78D1 1096 805 FZ97C 78DB 1110 792 FZ97D 78DF 1118 797 FZ97E 78E5 1128 812 FZ97F 78EE 1141 707 FZ981 78F8 1155 589 FZ982 78FB 1161 604 FZ983 7905 1175 612 FZ984 7911 1191 620 FZ985 791F 1209 628 FZ986 7922 1216 817 FZ987 791A 1200 1276 FZ988 7930 1234 822 FZ989 7935 1243 882 FZEND 7986 1358 1359 FZLNG 0378 1359 FZZ10 7611 275 FZZ20 7634 318 302 FZZ25 763C 326 306 FZZ30 763D 327 323 FZZ35 7653 351 314 1429 FZZ50 769C 459 385 FZZ90 7670 394 257 FZZ91 7670 397 351 353 FZZ92 7674 402 356 358 FZZ93 7684 422 291 FZZ94 7688 427 305 310 326 FZZ95 768C 432 321 345 FZZ96 767C 412 322 FZZ97 7680 417 320 FZZ98 7678 407 304 HEAD 7F8B 243 244 276 283 284 440 505 1259 1388 2444 I4900 7FF6 241 370 2605 I4907 7FFD 2621 IOCS 7A32 1510 MEMRY 8000 217 241 242 245 246 460 ORG 7A23 1496 OVERL 7A23 246 248 460 1453 OVERP 7E42 244 2433 2437 OVERX 799A 248 1370 OVERZ 760C 245 253 PHID 001F 239 268 PTCH1 7E24 2424 1828 RL000 7FBC 242 243 1899 2366 2516 RL001 7FBE 2523 RL010 7FD2 2553 2533 RL050 7FE5 2574 2540 2547 2583 RL051 7FEA 2580 2577 RL930 7FF2 2597 RL940 7FE3 2570 2531 2597 RL950 7FEE 2589 2521 2553 RL951 7FE4 2571 2542 RL952 7FF0 2593 2520 2554 2559 2566 ROL 7FBC 2519 SOFGT 7A29 1502 SOFNS 7A27 1500 SOFS 7A24 1497 SOFST 7A26 1499 SOFXT 7A28 1501 SORF 7A30 1508 SP000 7B01 1540 1591 1738 SP020 7B09 1549 1544 1584 SP030 7B18 1569 1563 SP050 7B1D 1574 1572 SP060 7B24 1582 1545 1565 SP070 7B28 1588 1542 SP072 7B2A 1589 1543 SP074 7B2C 1590 1541 SP090 7B2E 1595 1550 1554 1569 1570 SP100 7B2F 1596 1559 SP120 7B30 1597 1564 SP130 7B31 1607 1575 TEST1 7E2E 2431 2425 TEST2 7E2F 2432 2427
ibm/ibm1130-lib/dmsr2v12/kforph01_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator