ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:06 2020
Source File: \kforph27.asm
1130 FORTRAN COMPILER RECOVERY PHASE
2 | *************************************************** K2700020
3 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * K2700030
4 | * * K2700040
5 | *FUNCTION/OPERATION * K2700050
6 | * * NORMAL- NO ERRORS- * K2700060
7 | * * UPDATE DCOM ON SYSTEM DRIVE * K2700070
8 | * * UPDATE DCOM ON WS DRIVE IF WS IS NOT ON * K2700080
9 | * THE SYSTEM DRIVE * K2700090
10 | * * PRINT REL ENTRY POINT ADDR IF SUBPROGRAM * K2700100
11 | * * PRINT .END OF COMPILATION. * K2700110
12 | * * CALL $EXIT * K2700120
13 | * * NORMAL- WITH ERRORS * K2700130
14 | * * SET $NDUP AND $NXEQ NON-ZERO * K2700140
15 | * * PRINT C97 ERROR IF REQUESTED 2-11 K2700142
16 | * * PRINT C 99 ERROR IF REQUESTED * K2700150
17 | * * PRINT .COMPILATION DISCONTINUED. * K2700160
18 | * * CALL $EXIT * K2700170
19 | * * WORKING STORAGE EXCEEDED * K2700180
20 | * * PRINT .C 96 WORKING STORAGE EXCEEDED. * K2700190
21 | * * SET $NDUP AND $NXEQ NON-ZERO * K2700200
22 | * * PRINT .COMPILATION DISCONTINUED. * K2700210
23 | * * CALL $EXIT * K2700220
24 | * * // CONTROL CARD ENCOUNTERED ON INPUT * K2700230
25 | * * SET $NDUP AND $NXEQ NON-ZERO * K2700240
26 | * * PRINT .COMPILATION DISCONTINUED. * K2700250
27 | * * MOVE CONTROL RECORD TO SUPERVISOR * K2700260
28 | * INPUT BUFFER * K2700270
29 | * * CALL EXIT * K2700280
30 | * * K2700290
31 | *ENTRY POINTS- * K2700300
32 | * * RC000-ENTERED FROM THE ROL SUBROUTINE BY * K2700310
33 | * A CALL FROM A PREVIOUS PHASE. * K2700320
34 | * * K2700330
35 | *INPUT- * K2700340
36 | * * FCOM * K2700350
37 | * * K2700360
38 | *OUTPUT- * K2700370
39 | * * MESSAGES ON THE SYSTEM PRINT DEVICE * K2700380
40 | * * K2700390
41 | *EXTERNAL REFERENCES- * K2700400
42 | * SUBROUTINES- * K2700410
43 | * * SYSTEM PRINT SUBR (PHASE ID /99) * K2700420
44 | * * DZ000 * K2700430
45 | * COMMA/DCOM * K2700440
46 | * * $CH12 * K2700450
47 | * * $NDUP * K2700460
48 | * * $NXEQ * K2700470
49 | * * $PBSY * K2700480
50 | * * $PHSE * K2700490
51 | * * $WSDR * K2700500
52 | * * $EXIT * K2700510
53 | * * $FPAD * K2700520
54 | * * $DBSY * K2700530
55 | * * #DCOM * K2700540
56 | * * #DBCT * K2700550
57 | * * #ENTY * K2700560
58 | * * #FMAT * K2700570
59 | * * #WSCT * K2700580
60 | * FCOM * K2700590
61 | * * ORG * K2700600
62 | * * EOFS * K2700610
63 | * * SOFST * K2700620
64 | * * COMON * K2700630
65 | * * ERROR * K2700640
66 | * * SORF * K2700650
67 | * * K2700660
68 | *TABLES/WORK AREAS * K2700670
69 | * * FCOM * K2700680
70 | * * OVERD * K2700690
71 | * * SBUFX * K2700700
72 | * * K2700710
73 | *ATTRIBUTES- * K2700720
74 | * NONE * K2700730
75 | * * K2700740
76 | *NOTES- N/A * K2700750
77 | *************************************************** K2700760
1130 FORTRAN COMPILER RECOVERY PHASE
79 | ABS K2700780
80 | * K2700790
81 | * SYSTEM EQUATES K2700800
82 | * K2700810
83 | * K2700820
84 | * COMMA K2700830
85 | * K2700840
0006 86 | $CH12 EQU /06 NON-ZERO WHEN CHANNEL 12 SENSED K2700850
0034 87 | $NDUP EQU /34 DO NOT DUP IF NON-ZERO K2700860
0035 88 | $NXEQ EQU /35 DO NOT EXECUTE IF NON-ZERO K2700870
0036 89 | $PBSY EQU /36 NON-ZERO WHEN PRINTER BUSY K2700880
0078 90 | $PHSE EQU /78 NO. OF PHASE NOW IN CORE K2700890
007A 91 | $WSDR EQU /7A WORKING STORAGE DRIVE NO. K2700900
0038 92 | $EXIT EQU /38 CALL EXIT ENTRY POINT K2700910
0095 93 | $FPAD EQU /95 TABLE OF FILE PROTECT ADDRESSES K2700920
00EE 94 | $DBSY EQU /EE NON-ZERO WHEN DISKZ BUSY K2700930
00F2 95 | DZ000 EQU /F2 DISKZ ENTRY POINT K2700940
96 | * K2700950
97 | * K2700960
0001 98 | #DCOM EQU 1 DCOM SECTOR ADDRESS K2700970
99 | * K2700980
100 | * K2700990
101 | * K2701000
102 | * K2701010
103 | * ADDRESSES RELATIVE TO THE START OF K2701020
104 | * DCOM K2701030
105 | * K2701040
0006 106 | #DBCT EQU 6 BLOCK COUNT OF PROG/CORE LOAD K2701050
0010 107 | #ENTY EQU 16 RLTV ENTRY ADDR OF PROGRAM K2701060
0046 108 | #FMAT EQU 70 FORMAT OF PROG IN WS, DRIVE 0 K2701070
109 | * 71 FORMAT OF PROG IN WS, DRIVE 1 K2701080
110 | * 72 FORMAT OF PROG IN WS, DRIVE 2 K2701090
111 | * 73 FORMAT OF PROG IN WS, DRIVE 3 K2701100
112 | * 74 FORMAT OF PROG IN WS, DRIVE 4 K2701110
0055 113 | #WSCT EQU 85 BLK CNT OF PROG IN WS, DRIVE 0 K2701120
114 | * 86 BLK CNT OF PROG IN WS, DRIVE 1 K2701130
115 | * 87 BLK CNT OF PROG IN WS, DRIVE 2 K2701140
116 | * 88 BLK CNT OF PROG IN WS, DRIVE 3 K2701150
117 | * 89 BLK CNT OF PROG IN WS, DRIVE 4 K2701160
118 | * K2701170
119 | * K2701180
8000 120 | MEMRY EQU /8000 MAXIMUM CORE SIZE K2701190
121 | * K2701200
0FB0 122 | SBUFX EQU /FB0 SUPERVISOR INPUT BUFFER K2701210
123 | * K2701220
1130 FORTRAN COMPILER RECOVERY PHASE
125 | * K2701240
126 | * RECOVERY PHASE EQUATES K2701250
127 | * K2701260
766E 128 | OVERZ EQU MEMRY-2450 PHASE ORIGIN K2701270
7A23 129 | OVERL EQU MEMRY-1501 FCOM ORIGIN 2-4 K2701280
7FBC 130 | RL000 EQU MEMRY-68 ENTRY INTERPHASE ROLL SUBR K2701290
7F8B 131 | HEAD EQU RL000-49 PAGE HEADER STORAGE AREA K2701300
7E42 132 | OVERP EQU HEAD-327-2 SYSTEM PRINT SUBR AREA K2701310
752C 133 | OVERD EQU OVERZ-322 DCOM READ AREA K2701320
134 | * K2701330
135 | * K2701340
136 | * FCOM K2701350
137 | * K2701360
7A23 138 | ORG EQU OVERL RECOVERY FUNCTION CODE K2701370
139 | * = 0 - NORMAL K2701380
140 | * = 1 - WRK STG EXCEEDED K2701390
141 | * = 2 - // CTL RCD TRAPPED K2701400
142 | * K2701410
7A25 143 | EOFS EQU OVERL+2 BUFFER ADDR (FROM INPUT) K2701420
7A26 144 | SOFST EQU OVERL+3 DB CNT FROM OUTPUT PHASE K2701430
7A2B 145 | COMON EQU OVERL+8 RELATIVE ENTRY POINT K2701440
7A2D 146 | ERROR EQU OVERL+10 ERROR INDICATOR K2701450
147 | * BIT 15 - OVERLAP PRIOR TO PHASE 20 2-4 K2701460
148 | * BIT 14 - NORMAL COMPILATION ERRORS 2-4 K2701470
149 | * BIT 13 - SUBIN TOO LARGE 2-4 K2701480
150 | * BIT 12 - CORE REQUIREMENTS EXCESSIVE 2-4 K2701490
151 | * BIT 11 - ORIGIN IN SUBPROGRAM 2-4 K2701500
152 | * BIT 10 - OVERLAP IN PHASE 21 2-4 K2701510
153 | * BIT 9 - INVALID ORIGIN 2-4 K2701520
154 | * BIT 8 - S/T EXCEEDS MAX LIMIT 2-11 K2701522
155 | * K2701530
7A30 156 | SORF EQU OVERL+13 SUBROUTINE OR FUNCTION IND K2701540
157 | * K2701550
158 | * K2701560
0039 159 | PHID EQU 57 PHASE ID K2701570
1130 FORTRAN COMPILER RECOVERY PHASE
161 | * K2701590
162 | * MAINLINE ROUTINE K2701600
163 | * K2701610
766E 164 | ORG OVERZ RECOVERY PHASE ORIGIN K2701620
165 | * K2701630
766E 0000 166 | DC 0 WORK AREA FOR LOADER K2701640
766F FFC7 167 | DC -57 -ID COMPILER PHASE 27 K2701650
7670 0014 168 | DC RC004-*+1 RLTV ADDR SLET ENTRY STG K2701660
7671 0001 169 | DC 1 NO. OF ENTS TO BE STORED K2701670
7670 170 | ORG *-2 K2701680
171 | * K2701690
172 | * K2701700
7670 6139 173 | RC000 LDX 1 PHID LOAD PHASE ID K2701710
7671 6D00 0078 174 | STX L1 $PHSE STORE INTO PHASE K2701720
175 | * K2701730
176 | * K2701740
177 | * K2701750
178 | * BEGINNING OF RECOVERY PHASE K2701760
179 | * K2701770
180 | * LOAD SYSTEM PRINT SUBROUTINE K2701780
181 | * K2701790
7673 C812 182 | LDD RC004+2 LD DISK ADDR OF PRINT SUBR K2701800
7674 DC00 7E42 183 | STD L OVERP STORE IN PRINT SUBR AREA K2701810
184 | * K2701820
7676 C811 185 | LDD RC006 LOAD DISK CTL FOR SUBR LD K2701830
7677 4400 00F2 186 | BSI L DZ000 LOAD PRINT SUBR K2701840
187 | * K2701850
7679 7400 00EE 188 | MDX L $DBSY,0 SKIP IF DISK FREE K2701860
767B 70FD 189 | MDX *-3 LOOP IF DISK BUSY K2701870
190 | * K2701880
191 | * K2701890
192 | * DETERMINE TYPE OF ENTRY K2701900
193 | * K2701910
767C 6580 7A23 194 | LDX I1 ORG GET RECOVERY FUNC CODE K2701920
767E 4D80 7680 195 | BSC I1 RC001 GO TO APPROPRIATE ROUTINE K2701930
1130 FORTRAN COMPILER RECOVERY PHASE
197 | * K2701950
198 | * RECOVERY ENTRY LIST K2701960
199 | * K2701970
7680 7693 200 | RC001 DC RC100 NORMAL ENTRY K2701980
7681 7708 201 | DC RC500 WORK AREA EXCEEDED K2701990
7682 770E 202 | DC RC600 CTL RECORD TRAPPED K2702000
203 | * K2702010
7684 204 | BSS E 0 SLET STORAGE AREA K2702020
7684 0099 205 | RC004 DC 153 ID PRINCIPAL PRINT SUBR K2702030
7685 0000 206 | DC *-* NOT USED K2702040
7686 0000 207 | DC *-* WORD COUNT K2702050
7687 0000 208 | DC *-* SECTOR ADDRESS K2702060
209 | * K2702070
7688 7000 210 | RC006 DC /7000 DISK CONTROL FOR READ K2702080
7689 7E42 211 | DC OVERP SYSTEM PRINT SUBR AREA K2702090
212 | * K2702100
768A 7000 213 | RC008 DC /7000 DISK CONTROL FOR READ K2702110
768B 752C 214 | DC OVERD DCOM READ AREA K2702120
215 | * K2702130
768C 0140 216 | RC010 DC 320 WORD COUNT FOR DCOM READ K2702140
768D 0001 217 | DC #DCOM SCTR ADDR OF DCOM K2702150
218 | * K2702160
768E 0022 219 | RC011 DC 34 WD CNT DR DEPENDENT PARAM K2702170
768F 0001 220 | DC #DCOM SCTR ADDR OF DCOM K2702180
221 | * K2702190
7690 7001 222 | RC012 DC /7001 DISK CONTROL FOR WRITE K2702200
7691 752C 223 | DC OVERD DCOM READ AREA K2702210
224 | * K2702220
225 | * K2702230
7692 F000 226 | RC015 DC /F000 MASK FOR DISK ADDRESSES K2702240
1130 FORTRAN COMPILER RECOVERY PHASE
228 | * K2702260
229 | * NORMAL RECOVERY ENTRY K2702270
230 | * ERRORS POSSIBLE K2702280
231 | * K2702290
7693 C400 7A2D 232 | RC100 LD L ERROR CHECK IF ERRORS DETECTED K2702300
7695 4C20 76F6 233 | BSC L RC300,Z BRANCH IF YES 2-4 K2702310
234 | * K2702320
235 | * K2702330
236 | * READ DCOM K2702340
237 | * K2702350
7697 C8F4 238 | RC110 LDD RC010 SET UP DISK ADDR FOR K2702360
7698 DC00 752C 239 | STD L OVERD DCOM READ K2702370
240 | * K2702380
769A C8EF 241 | LDD RC008 LOAD DISK READ PARAMETERS K2702390
769B 4400 00F2 242 | BSI L DZ000 READ DCOM K2702400
243 | * K2702410
769D 7400 00EE 244 | MDX L $DBSY,0 SKIP IF DISK READY K2702420
769F 70FD 245 | MDX *-3 LOOP IF DISK BUSY K2702430
246 | * K2702440
76A0 6500 752E 247 | LDX L1 OVERD+2 POINT TO DCOM AREA K2702450
248 | * K2702460
76A2 C400 7A26 249 | LD L SOFST LOAD BLOCK COUNT OF PROG K2702470
76A4 D106 250 | STO 1 #DBCT STORE INTO BLOCK COUNT K2702480
76A5 C400 7A2B 251 | LD L COMON K2702490
76A7 D110 252 | STO 1 #ENTY STORE RELATIVE ENTRY POINT K2702500
253 | * K2702510
76A8 7580 007A 254 | MDX I1 $WSDR ADJUST FOR WS DRIVE NO. K2702520
255 | * K2702530
76AA 1010 256 | SLA 16 K2702540
76AB D146 257 | STO 1 #FMAT ZERO FORMAT K2702550
258 | * K2702560
76AC C400 7A26 259 | LD L SOFST LOAD BLOCK COUNT K2702570
76AE D155 260 | STO 1 #WSCT STORE IN WS BLOCK COUNT K2702580
261 | * K2702590
262 | * K2702600
263 | * RESTORE DCOM K2702610
264 | * K2702620
76AF C8E0 265 | RC120 LDD RC012 LOAD DISK WRITE PARAMETERS K2702630
76B0 4400 00F2 266 | BSI L DZ000 WRITE DCOM TO PACK K2702640
267 | * K2702650
76B2 7400 00EE 268 | MDX L $DBSY,0 SKIP IF DISK READY K2702660
76B4 70FD 269 | MDX *-3 LOOP IF DISK BUSY K2702670
270 | * K2702680
271 | * K2702690
272 | * CHECK IF WS IS ON DRIVE 0 K2702700
273 | * K2702710
76B5 6580 007A 274 | LDX I1 $WSDR WORKING STORAGE DRIVE NO K2702720
76B7 C500 0095 275 | LD L1 $FPAD LOAD WORKING STORAGE ADDR K2702730
76B9 E0D8 276 | AND RC015 MASK OUT SECTOR ADDR K2702740
76BA 4C18 76D9 277 | BSC L RC160,+- BRANCH IF ZERO K2702750
278 | * K2702760
279 | * K2702770
280 | * UPDATE DCOM ON NON-SYSTEM PACK K2702780
281 | * K2702790
76BC E8D2 282 | OR RC011+1 UPDATE DISK ADDRESS FOR K2702800
76BD D0D1 283 | STO RC011+1 *NON-SYSTEM DCOM RD/WRT K2702810
284 | * K2702820
76BE C8CF 285 | LDD RC011 K2702830
76BF DC00 752C 286 | STD L OVERD STORE DK ADDR IN RD AREA K2702840
287 | * K2702850
76C1 C8C8 288 | LDD RC008 LD DISK RD PARAMETERS K2702860
76C2 4400 00F2 289 | BSI L DZ000 READ DCOM FROM NON-SYS DR K2702870
290 | * K2702880
76C4 7400 00EE 291 | MDX L $DBSY,0 SKIP IF DISK READY K2702890
76C6 70FD 292 | MDX *-3 LOOP IF DISK BUSY K2702900
293 | * K2702910
76C7 C0C4 294 | LD RC010 SET UP TO RESTORE DCOM K2702920
76C8 D400 752C 295 | STO L OVERD *TO NON-SYSTEM DRIVE K2702930
296 | * K2702940
76CA 1010 297 | SLA 16 K2702950
76CB D0C6 298 | STO RC015 ZERO MASK AS A SWITCH K2702960
76CC 70E2 299 | MDX RC120 UPDATE NON-SYSTEM DCOM K2702970
300 | * K2702980
301 | * PRINT THE RELATIVE ENTRY POINT 2-8 K2702990
302 | * ADDRESS IF COMPILING A SUBPROGRAM 2-8 K2703000
303 | * K2703010
304 | * K2703020
76CD 0000 305 | RC130 DC *-* LINK 2-8 K2703030
76CE 1010 306 | SLA 16 ZERO ACCUMULATOR 2-8 K2703040
76CF 1084 307 | SLT 4 SHIFT IN ONE HEX DIGIT 2-8 K2703050
76D0 906B 308 | S RC856 COMPARE WITH NINE 2-8 K2703060
76D1 4C30 76D6 309 | BSC L RC140,Z- BRANCH IF GREATER 2-8 K2703070
76D3 8068 310 | A RC856 RESTORE DIGIT 2-8 K2703080
76D4 E868 311 | OR RC858 MAKE IT EBC NUMERIC 2-8 K2703090
76D5 7001 312 | MDX RC150 SKIP ONE INSTRUCTION 2-8 K2703100
76D6 E867 313 | RC140 OR RC860 MAKE IT EBC ALPHABETIC 2-8 K2703110
76D7 4C80 76CD 314 | RC150 BSC I RC130 RETURN 2-8 K2703120
315 | * K2703130
316 | * K2703140
76D9 C400 7A30 317 | RC160 LD L SORF IS THIS A SUBPROGRAM 2-8 K2703150
76DB 4C18 76F2 318 | BSC L RC200,+- BRANCH IF NO 2-8 K2703160
76DD 61FE 319 | LDX 1 -2 SET UP COUNTER 2-8 K2703170
76DE C400 7A2B 320 | LD L COMON PUT REL ENTRY POINT 2-8 K2703180
76E0 1890 321 | SRT 16 *ADDRESS IN EXTENSION 2-8 K2703190
76E1 40EB 322 | RC170 BSI RC130 CONVERT ONE DIGIT 2-8 K2703200
76E2 1008 323 | SLA 8 SHIFT LEFT 2-8 K2703210
76E3 D500 7796 324 | STO L1 RC907+2 STORE TEMPORARY 2-8 K2703220
76E5 40E7 325 | BSI RC130 CONVERT ONE DIGIT 2-8 K2703230
76E6 ED00 7796 326 | OR L1 RC907+2 COMBINE WITH LAST ONE 2-8 K2703240
76E8 D500 7796 327 | STO L1 RC907+2 STORE IN OUTPUT AREA 2-8 K2703250
76EA 7101 328 | MDX 1 1 INCREMENT COUNTER 2-8 K2703260
76EB 70F5 329 | MDX RC170 BR IF NOT FINISHED 2-8 K2703270
330 | * K2703280
331 | * K2703290
76EC 6500 7783 332 | LDX L1 RC906 SET UP AND PRINT REL 2-8 K2703300
76EE 4031 333 | BSI RC700 *ENTRY POINT ADDRESS 2-8 K2703310
334 | * K2703320
76EF C046 335 | LD RC850 SPACE THE PRINTER 2-8 K2703330
76F0 4400 7E45 336 | BSI L OVERP+3 *ONE LINE 2-8 K2703340
337 | * K2703350
338 | * K2703360
339 | * COMPLETE NORMAL RECOVERY K2703370
340 | * K2703380
76F2 6500 773F 341 | RC200 LDX L1 RC901 SET UP TO PRINT ECOM MSG K2703390
342 | * K2703400
76F4 402B 343 | RC210 BSI RC700 PRINT MESSAGE K2703410
344 | * K2703420
76F5 6038 345 | LDX $EXIT CALL EXIT K2703430
346 | * K2703440
76F6 347 | RC300 EQU * NORMAL ERROR ENTRY K2703450
348 | * K2703460
76F6 1008 349 | SLA 8 IS IT ERROR 97 2-11 K2703461
76F7 4C10 76FC 350 | BSC L RC350,- NO - CHECK FOR ERROR 862-11 K2703462
76F9 6500 7799 351 | LDX L1 RC908 LOAD WORD COUNT 212 K2703463
76FB 700E 352 | MDX RC505 GO PRINT ERROR MESSAGE 2-11 K2703464
76FC 1001 353 | RC350 SLA 1 IS IT ERROR 86 2-11 K2703470
76FD 4C28 7705 354 | BSC L RC400,+Z YES - BRANCH 2-4 K2703480
76FF 1003 355 | SLA 3 IS IT ERROR 99 2-4 K2703490
7700 4C10 770E 356 | BSC L RC600,- NO - BRANCH 2-11 K2703500
7702 6500 7771 357 | LDX L1 RC905 SET UP FOR CRE MESS 2-2 K2703510
7704 7005 358 | MDX RC505 GO PRINT AND EXIT 2-2 K2703520
359 | * K2703530
7705 6500 7766 360 | RC400 LDX L1 RC904 SET UP FOR ERROR 86 2-4 K2703540
7707 7002 361 | MDX RC505 GO PRINT AND EXIT 2-4 K2703550
362 | * K2703560
1130 FORTRAN COMPILER RECOVERY PHASE
364 | * K2703580
365 | * K2703590
366 | * ENTRY IF WORK AREA EXCEEDED K2703600
367 | * K2703610
368 | * K2703620
7708 369 | RC500 EQU * WORK AREA EXCEEDED K2703630
370 | * K2703640
7708 6500 7749 371 | LDX L1 RC902 SET UP TO PRINT WSE MSG K2703650
770A 4015 372 | RC505 BSI RC700 PRINT MESSAGE K2703660
373 | * K2703670
770B C02A 374 | LD RC850 SKIP ONE 2-4 K2703680
770C 4400 7E45 375 | BSI L OVERP+3 LINE 2-4 K2703690
376 | * K2703700
377 | * 2-11* K2703710
378 | * 4 INSTRUCTIONS REMOVED 2-11 2-11* K2703720
379 | * 2-11* K2703730
1130 FORTRAN COMPILER RECOVERY PHASE
381 | * K2703780
382 | * K2703790
383 | * ENTRY IF // CONTROL CARD ENCOUNTERED K2703800
384 | * K2703810
385 | * K2703820
770E 386 | RC600 EQU * CTL RECORD TRAPPED K2703830
387 | * K2703840
770E 6C00 0034 388 | STX L $NDUP SET FOR NO DUP FUNCTIONS K2703850
7710 6C00 0035 389 | STX L $NXEQ SET FOR NO EXECUTE K2703860
390 | * K2703870
7712 6500 7759 391 | LDX L1 RC903 K2703880
7714 400B 392 | BSI RC700 PRINT COMP DISC MESSAGE K2703890
393 | * K2703900
394 | * MOVE TRAPPED CONTROL RECORD TO K2703910
395 | * SUPERVISOR INPUT BUFFER. K2703920
396 | * K2703930
7715 6150 397 | LDX 1 80 SET BUFFER LENGTH K2703940
7716 C400 7A25 398 | LD L EOFS GET BUFFER ADDRESS K2703950
7718 D001 399 | STO *+1 SET UP CTL CARD MOVE K2703960
7719 C500 0000 400 | RC610 LD L1 *-* MOVE CTL CD TO SUPERVISOR K2703970
771B D500 0FAF 401 | STO L1 SBUFX-1 BUFFER IN UNPACKED FORM K2703980
771D 71FF 402 | MDX 1 -1 K2703990
771E 70FA 403 | MDX RC610 K2704000
404 | * K2704010
771F 6038 405 | LDX $EXIT CALL EXIT K2704020
406 | * K2704030
1130 FORTRAN COMPILER RECOVERY PHASE
408 | * K2704050
409 | * K2704060
410 | * K2704070
411 | * PRINT CONTROL ROUTINE K2704080
412 | * K2704090
7720 0000 413 | RC700 DC *-* LINK K2704100
414 | * K2704110
7721 C480 0006 415 | LD I $CH12 LOAD CHANNEL 12 SWITCH K2704120
7723 4C18 772D 416 | BSC L RC710,+- BRANCH IF NOT ON K2704130
417 | * K2704140
7725 C812 418 | LDD RC852 K2704150
7726 4400 7E45 419 | BSI L OVERP+3 RESTORE PAGE K2704160
420 | * K2704170
7728 4400 7E45 421 | BSI L OVERP+3 PRINT HEADER K2704180
422 | * K2704190
772A C00B 423 | LD RC850 LOAD SPACE PARAMETER K2704200
772B 4400 7E45 424 | BSI L OVERP+3 SPACE PRINTER K2704210
425 | * K2704220
426 | * K2704230
772D 690D 427 | RC710 STX 1 RC854+1 STORE MESSAGE ADDRESS K2704240
428 | * K2704250
772E C80B 429 | LDD RC854 LOAD PRINT PARAMETER K2704260
772F 4400 7E45 430 | BSI L OVERP+3 PRINT MESSAGE K2704270
431 | * K2704280
7731 7400 0036 432 | MDX L $PBSY,0 SKIP IF PRINTER READY K2704290
7733 70FD 433 | MDX *-3 LOOP IF PRINTER BUSY K2704300
434 | * K2704310
7734 4C80 7720 435 | BSC I RC700 RETURN K2704320
1130 FORTRAN COMPILER RECOVERY PHASE
437 | * K2704340
438 | * CONSTANTS AND MESSAGES K2704350
439 | * K2704360
440 | * K2704370
7736 7002 441 | RC850 DC /7002 SPACE PARAMETER K2704380
442 | * K2704390
7738 443 | BSS E 0 K2704400
7738 7000 444 | RC852 DC /7000 PAGE RESTORE PARAMETER K2704410
7739 7F8B 445 | DC HEAD PAGE HEADER ADDRESS K2704420
446 | * K2704430
773A 7001 447 | RC854 DC /7001 PRINT PARAMETER K2704440
773B 0000 448 | DC *-* MESSAGE ADDRESS K2704450
449 | * K2704460
773C 0009 450 | RC856 DC 9 CONSTANT NINE 2-8 K2704470
773D 00F0 451 | RC858 DC /F0 MASK FOR EBC NUMERIC 2-8 K2704480
773E 00C0 452 | RC860 DC /C0 MASK FOR EBC ALPHABET 2-8 K2704490
453 | * K2704500
454 | * K2704510
455 | * PRINT MESSAGES K2704520
456 | * K2704530
773F 0009 457 | RC901 DC RC902-RC901-1 WORD COUNT K2704540
458 | * K2704550
7740 C5D5 C440 D6C6 40C3 459 | EBC .END OF COMPILATION. K2704560
D6D4 D7C9 D3C1 E3C9 |
D6D5 |
460 | * K2704570
461 | * K2704580
7749 000F 462 | RC902 DC RC903-RC902-1 WORD COUNT K2704590
463 | * K2704600
774A 40C3 40F9 F640 E6D6 464 | EBC . C 96 WORKING STORAGE EXCEEDED. 2-4 K2704610
D9D2 C9D5 C740 E2E3 |
D6D9 C1C7 C540 C5E7 |
C3C5 C5C4 C5C4 |
465 | * K2704620
466 | * K2704630
7759 000C 467 | RC903 DC RC904-RC903-1 WORD COUNT K2704640
468 | * K2704650
775A C3D6 D4D7 C9D3 C1E3 469 | EBC .COMPILATION DISCONTINUED. K2704660
C9D6 D540 C4C9 E2C3 |
D6D5 E3C9 D5E4 C5C4 |
470 | * K2704670
471 | * K2704680
7766 000A 472 | RC904 DC RC905-RC904-1 WORD COUNT 2-4 K2704690
473 | * K2704700
7767 40C3 40F8 F640 C9D5 474 | EBC . C 86 INVALID ORIGIN. 2-4 K2704710
E5C1 D3C9 C440 D6D9 |
C9C7 C9D5 |
475 | * K2704720
476 | * K2704730
7771 0011 477 | RC905 DC RC906-RC905-1 WORD COUNT K2704740
478 | * K2704750
7772 40C3 40F9 F940 C3D6 479 | EBC . C 99 CORE REQUIREMENTS . 2-4 K2704760
D9C5 40D9 C5D8 E4C9 |
D9C5 D4C5 D5E3 E240 |
777E C5E7 C3C5 E2E2 C9E5 480 | EBC .EXCESSIVE . 2-4 K2704770
C540 |
481 | * K2704780
482 | * K2704790
7783 0015 483 | RC906 DC RC908-RC906-1 WORD COUNT 2-8 K2704800
484 | * K2704810
7784 D9C5 D3C1 E3C9 E5C5 485 | EBC .RELATIVE ENTRY POINT ADDRESS IS . -8 K2704820
40C5 D5E3 D9E8 40D7 |
D6C9 D5E3 40C1 C4C4 |
D9C5 E2E2 40C9 E240 |
7794 4040 4040 404D C8C5 486 | RC907 EBC . (HEX). 2-8 K2704830
E75D |
487 | * K2704840
488 | * K2704850
7799 0013 489 | RC908 DC RC909-RC908-1 2-11 K2704860
490 | * 2-11 K2704862
779A 40C3 40F9 F740 D7D9 491 | EBC . C 97 PROGRAM LENGTH EXCEEDS. 2-11 K2704864
D6C7 D9C1 D440 D3C5 |
D5C7 E3C8 40C5 E7C3 |
C5C5 C4E2 |
77A8 40C3 C1D7 C1C3 C9E3 492 | EBC . CAPACITY. 2-11 K2704866
E840 |
493 | * K2704870
494 | * K2704880
77AD 495 | RC909 EQU * 2-11 K2704890
77AD 0000 496 | DC 0 K2704900
77AE 497 | END OVERZ K2704910
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#DBCT 0006 106 250
#DCOM 0001 98 217 220
#ENTY 0010 107 252
#FMAT 0046 108 257
#WSCT 0055 113 260
$CH12 0006 86 415
$DBSY 00EE 94 188 244 268 291
$EXIT 0038 92 345 405
$FPAD 0095 93 275
$NDUP 0034 87 388
$NXEQ 0035 88 389
$PBSY 0036 89 432
$PHSE 0078 90 174
$WSDR 007A 91 254 274
COMON 7A2B 145 251 320
DZ000 00F2 95 186 242 266 289
EOFS 7A25 143 398
ERROR 7A2D 146 232
HEAD 7F8B 131 132 445
MEMRY 8000 120 128 129 130
ORG 7A23 138 194
OVERD 752C 133 214 223 239 247 286 295
OVERL 7A23 129 138 143 144 145 146 156
OVERP 7E42 132 183 211 336 375 419 421 424 430
OVERZ 766E 128 133 164 497
PHID 0039 159 173
RC000 7670 173
RC001 7680 200 195
RC004 7684 205 168 182
RC006 7688 210 185
RC008 768A 213 241 288
RC010 768C 216 238 294
RC011 768E 219 282 283 285
RC012 7690 222 265
RC015 7692 226 276 298
RC100 7693 232 200
RC110 7697 238
RC120 76AF 265 299
RC130 76CD 305 314 322 325
RC140 76D6 313 309
RC150 76D7 314 312
RC160 76D9 317 277
RC170 76E1 322 329
RC200 76F2 341 318
RC210 76F4 343
RC300 76F6 347 233
RC350 76FC 353 350
RC400 7705 360 354
RC500 7708 369 201
RC505 770A 372 352 358 361
RC600 770E 386 202 356
RC610 7719 400 403
RC700 7720 413 333 343 372 392 435
RC710 772D 427 416
RC850 7736 441 335 374 423
RC852 7738 444 418
RC854 773A 447 427 429
RC856 773C 450 308 310
RC858 773D 451 311
RC860 773E 452 313
RC901 773F 457 341
RC902 7749 462 371 457
RC903 7759 467 391 462
RC904 7766 472 360 467
RC905 7771 477 357 472
RC906 7783 483 332 477
RC907 7794 486 324 326 327
RC908 7799 489 351 483
RC909 77AD 495 489
RL000 7FBC 130 131
SBUFX 0FB0 122 401
SOFST 7A26 144 249 259
SORF 7A30 156 317