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