ibm:ibm1130-lib:dmsr2v12:kforph27_lst
KFORPH27
| Table Of Contents |
|---|
|
- kforph27.lst
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
ibm/ibm1130-lib/dmsr2v12/kforph27_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator