CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE 102 CTL 6611 103 SFX 8 104 X1 EQU 89 8 0089 105 X2 EQU 94 8 0094 106 X3 EQU 99 8 0099 107 * 108 * PLACES IN IOP PHASE 109 * 110 WRITE4 EQU 334 8 0334 111 GETX14 EQU 352 8 0352 112 EOFX 4 EQU 472 EOF EXIT FROM TAPE I/O 8 0472 113 TAPEX4 EQU 456 NORMAL EXIT FROM TAPE I/O 8 0456 114 SEEK 4 EQU 790 TABLE HUNTER TARGET 8 0790 115 LOOK 4 EQU 791 TABLE HUNTER ENTRY POINT 8 0791 116 SETX14 EQU 821 PACKET TO FILL 8 0821 117 LOOKX4 EQU 861 HUNTER EXIT 8 0861 118 CORIX4 EQU 915 CORE SIZE INDEX AND NO-RWD FLAG 8 0915 119 * 120 ORG 2642 8 2642 121 PACKT EQU *&1 8 2642 122 2 661 DCW #20 8 20 2661 4 123 PBEG EQU *&1 8 2662 124 2 711 DCW #50 8 50 2711 6 125 2 761 DC #50 8 50 2761 8 126 2 793 PLINE DC #32 8 32 2793 9 127 2 843 DC #50 8 50 2843 11 128 2 861 DC #18 8 18 2861 11 129 2 862 GM DC @}@ 8 1 2862 GMARK 11 130 PBEG2 EQU *&1 8 2863 131 2 912 DCW #50 8 50 2912 13 132 2 962 DC #50 8 50 2962 15 133 2 994 PLIN2 DC #32 8 32 2994 16 134 * 135 * START WORK HERE 136 * 137 2 995 ENTER B CLRPL CLEAR THE PRINT LINE AND PACKET 8 4 2995 B G89 16 138 2 999 SW GM 8 4 2999 , Q62 17 139 3 003 BCE NOUNIT,1016, NO UNIT SPECIFIED 8 8 3003 B ?40 |16 17 140 3 011 MCW 1016,SEEK 4 TABLE HUNTER TARGET 8 7 3011 M |16 790 17 141 3 018 SBR 2534,1016 8 7 3018 H N34 |16 17 142 3 025 SBR 2554,NOUNIT 8 7 3025 H N54 ?40 17 143 3 032 B 2520 8 4 3032 B N20 17 144 3 036 B GETPK 8 4 3036 B ?54 18 145 3 040 NOUNIT MCW KLST,SEEK 4 SET TABLE HUNTER TARGET TO LST 8 7 3040 M 01T 790 18 146 3 047 MCW KLST,1016 8 7 3047 M 01T |16 18 147 * 1 RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * GO TO TABLE HUNTER TO FILL PACKET 149 * 150 3 054 GETPK SBR SETX14&6,PACKT PACKET ADDRESS 8 7 3054 H 827 O42 18 151 3 061 SBR LOOKX4&3,*&9 HUNTER EXIT 8 7 3061 H 864 ?76 18 152 3 068 SW CORIX4 NO REWIND 8 4 3068 , 915 18 153 3 072 B LOOK 4 HUNT FOR LST 8 4 3072 B 791 19 154 3 076 MCW KSLASH,PLINE&1 1 SPACE AFTER 8 7 3076 M 05W P94 19 155 3 083 B PRINT 8 4 3083 B H08 19 156 3 087 MCW OPNOP,1333 CHANGE TO NOP 8 7 3087 M 01V T33 19 157 3 094 MCW STPRM,PBEG&69 PRINT 8 7 3094 M H81 P31 19 158 3 101 B PRINT STORAGE PRINT 8 4 3101 B H08 19 159 3 105 B CLRPL CLEAR PRINT LINE 8 4 3105 B G89 19 160 3 109 B PRINT PRINT BLANK LINE 8 4 3109 B H08 20 161 3 113 MCW X3,PBEG&121 PUT 8 7 3113 M 099 P83 20 162 3 120 MCW KX3 INDEX 8 4 3120 M 01Y 20 163 3 124 MCW X2,PBEG&110 REGISTERS 8 7 3124 M 094 P72 20 164 3 131 MCW KX2 IN 8 4 3131 M 02/ 20 165 3 135 MCW X1,PBEG&99 PRINT 8 7 3135 M 089 P61 20 166 3 142 MCW KX1 LINE 8 4 3142 M 02U 20 167 3 146 B PRINT PRINT INDEX REGISTERS 8 4 3146 B H08 21 168 3 150 B CLRPL CLEAR PRINT LINE 8 4 3150 B G89 21 169 3 154 B PRINT PRINT BLANK LINE 8 4 3154 B H08 21 170 3 158 SBR X1,5700 8 7 3158 H 089 X0| 21 171 3 165 MN A000,X1 8 7 3165 D H60 089 21 172 3 172 MN 8 1 3172 D 21 173 3 173 OUTER C 99&X1,4010 8 7 3173 C 0Z9 01| 21 174 3 180 BE CENTRY 8 5 3180 B C99 S 22 175 3 185 B CLRPL CLEAR PRINT LINE 8 4 3185 B G89 22 176 3 189 CW FLAG 8 4 3189 ) I10 22 177 3 193 MCW X1,PBEG2&8 PUT ADDRESS IN PRINT LINE 8 7 3193 M 089 Q71 22 178 3 200 SW BRNCH&4 TURN ON BRANCH -- FILL DATA 8 4 3200 , F88 22 179 3 204 B FILL FILL DATA IN PLIN2 8 4 3204 B F58 22 180 3 208 MCW PLIN2,PLINE SAVE FILLED LINE 8 7 3208 M R94 P93 22 181 3 215 CW BRNCH&4 TURN OFF BRANCH -- FILL WMS 8 4 3215 ) F88 23 182 3 219 MCW KBLNK,PLIN2 CLEAR 8 7 3219 M 02V R94 23 183 3 226 MCW PLIN2 PLIN2 8 4 3226 M R94 23 184 3 230 B FILL FILL WMS IN PLIN2 8 4 3230 B F58 23 185 3 234 SBR X2,PLINE&1 8 7 3234 H 094 P94 23 186 3 241 LOOP MA AM1,X2 SUBTRACT 1 FROM X2 8 7 3241 # 02Y 094 23 187 3 248 C X2,KP10 Q. X2 EQUAL PLINE & 10 8 7 3248 C 094 03/ 24 188 3 255 BE TFLAG 8 5 3255 B B72 S 24 189 3 260 BCE LOOP,0&X2, 8 8 3260 B B41 0!0 24 190 3 268 B ADDR 8 4 3268 B B84 24 191 3 272 TFLAG BW ADDR,FLAG 8 8 3272 V B84 I10 1 24 192 3 280 B TSTCOR 8 4 3280 B D25 24 193 * 194 * CONVERT 3-CHARACTER ADDRESS TO 5 DIGIT ADDRESS 195 * 196 3 284 ADDR MN PBEG&8,PBEG&4 8 7 3284 D O70 O66 25 197 3 291 MN 8 1 3291 D 25 1 RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 3 292 MN 8 1 3292 D 25 199 3 293 LCA A000-1 00 8 4 3293 L H59 25 200 3 297 BWZ NOZON6,PBEG&6,2 NO ZONE 8 8 3297 V C46 O68 2 25 201 3 305 BWZ ABZON6,PBEG&6,B AB ZONE 8 8 3305 V C32 O68 B 25 202 3 313 BM BZON6,PBEG&6 B ZONE 8 8 3313 V C39 O68 K 25 203 3 321 A K1,PBEG&1 8 7 3321 A 01U O63 26 204 3 328 B NOZON6 8 4 3328 B C46 26 205 3 332 ABZON6 A K1,PBEG&1 8 7 3332 A 01U O63 26 206 3 339 BZON6 A K2,PBEG&1 8 7 3339 A 03S O63 26 207 3 346 NOZON6 BWZ NOZON8,PBEG&8,2 NO ZONE 8 8 3346 V D10 O70 2 26 208 3 354 BWZ ABZON8,PBEG&8,B AB ZONE 8 8 3354 V C81 O70 B 27 209 3 362 BM BZON8,PBEG&8 B ZONE 8 8 3362 V C88 O70 K 27 210 3 370 A K4,PBEG&1 8 7 3370 A 03T O63 27 211 3 377 B NOZON8 8 4 3377 B D10 27 212 3 381 ABZON8 A K4,PBEG&1 8 7 3381 A 03T O63 27 213 3 388 BZON8 A K8,PBEG&1 8 7 3388 A 03U O63 28 214 3 395 B NOZON8 8 4 3395 B D10 28 215 3 399 CENTRY MA A100,X1 ADD 100 TO X1 8 7 3399 # 03X 089 28 216 3 406 B TSTCOR 8 4 3406 B D25 28 217 3 410 NOZON8 B PRINT 8 4 3410 B H08 28 218 3 414 MCW PLIN2,PLINE 8 7 3414 M R94 P93 28 219 3 421 B PRINT 8 4 3421 B H08 28 220 3 425 TSTCOR BCE M8K,CORIX4,2 CORIX UNZONED MEANS 4K OR 8K MACH 8 8 3425 B D45 915 2 29 221 3 433 BWZ X14K,X1,2 X1 UNZONED BELOW 4K 8 8 3433 V D57 089 2 29 222 3 441 B OUTER 8 4 3441 B A73 29 223 3 445 M8K BWZ X14K,X1,B X1 AB ZONED ABOVE 12K 8 8 3445 V D57 089 B 29 224 3 453 B OUTER 8 4 3453 B A73 29 225 3 457 X14K B CLRPL 8 4 3457 B G89 29 226 3 461 B PRINT 8 4 3461 B H08 30 227 * 228 * END OF STORAGE PRINT 229 * 230 3 465 MCW ENDPR,PBEG&79 8 7 3465 M I09 P41 30 231 3 472 B PRINT 8 4 3472 B H08 30 232 3 476 MCW OPCC,1333 CHANGE TO CC 8 7 3476 M 03Y T33 30 233 3 483 C 1016,KLST 8 7 3483 C |16 01T 30 234 3 490 BU 3545 8 5 3490 B E45 / 30 235 3 495 BWZ TAPE,PACKT&11,2 UNZONED UNIT IN PACKT MEANS TAPE 8 8 3495 V E17 O53 2 31 236 3 503 BCE XIT1,PACKT&11,O O UNIT MEANS OMIT 8 8 3503 B E41 O53 O 31 237 3 511 CC K 8 2 3511 F K 31 238 3 513 B XIT1 8 4 3513 B E41 31 239 3 517 TAPE MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3517 D O53 E27 31 240 3 524 WTM 0 8 5 3524 U %U0 M 31 241 3 529 MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3529 D O53 E39 32 242 3 536 BSP 0 8 5 3536 U %U0 B 32 243 3 541 XIT1 B 2400 8 4 3541 B M00 32 244 3 545 C 1016,KOUT Q. OUT 8 7 3545 C |16 04/ 32 245 3 552 BU NOUT 8 5 3552 B E97 / 32 246 3 557 BWZ TAPE2,PACKT&11,2 UNZONED UNIT IN PACKT MEANS TAPE 8 8 3557 V E69 O53 2 32 247 3 565 B XIT2 8 4 3565 B E93 33 1 RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 3 569 TAPE2 MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3569 D O53 E79 33 249 3 576 WTM 0 8 5 3576 U %U0 M 33 250 3 581 MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3581 D O53 E91 33 251 3 588 BSP 0 8 5 3588 U %U0 B 33 252 3 593 XIT2 B 2400 8 4 3593 B M00 33 253 3 597 NOUT C 1015,KWK Q. WK 8 7 3597 C |15 04T 33 254 3 604 BU 2400 NO 8 5 3604 B M00 / 34 255 3 609 BWZ TAPE3,PACKT&11,2 UNZONED UNIT IN PACKT MEANS TAPE 8 8 3609 V F21 O53 2 34 256 3 617 B 3645 8 4 3617 B F45 34 257 3 621 TAPE3 MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3621 D O53 F31 34 258 3 628 WTM 0 8 5 3628 U %U0 M 34 259 3 633 MN PACKT&11,*&4 GET UNIT NUMBER 8 7 3633 D O53 F43 34 260 3 640 BSP 0 8 5 3640 U %U0 B 35 261 3 645 B 2400 8 4 3645 B M00 35 262 * 263 * END OF OUTPUT FILE DURING STORAGE PRINT 264 * 265 3 649 H48 NOP 48 8 4 3649 N 048 35 266 3 653 H 8 1 3653 . 35 267 3 654 B H48 8 4 3654 B F49 35 268 * 269 * FILL PBEG2 FOR STORAGE PRINT. 270 * FILL DATA IF WM AT BRNCH&4. FILL WORD MARKS IF NO WM AT BRNCH&4. 271 * 272 3 658 FILL SBR FILLX&3 8 4 3658 H G49 35 273 3 662 MCW A000,X2 INIT X2 TO ZERO 8 7 3662 M H60 094 35 274 3 669 BW BRNCH,BRNCH&4 8 8 3669 V F84 F88 1 36 275 3 677 MA AM100,X1 SUBTRACT 100 FROM X1 8 7 3677 # 04W 089 36 276 3 684 BRNCH BCE DATA,BRNCH,1 COPY DATA IF WM AT BRNCH&4 8 8 3684 B G04 F84 1 36 277 3 692 BW FILLWM,0&X1 8 8 3692 V G74 0|0 1 36 278 3 700 B BUMPX2 8 4 3700 B G18 36 279 3 704 DATA MN 0&X1,PBEG2&13&X2 8 7 3704 D 0|0 QP6 37 280 3 711 MZ 0&X1,PBEG2&13&X2 8 7 3711 Y 0|0 QP6 37 281 3 718 BUMPX2 A K1,X2 ADD 1 TO X2 8 7 3718 A 01U 094 37 282 3 725 MA AP1,X1 ADD 1 TO X1 8 7 3725 # 04Z 089 37 283 3 732 MN X1,X2CHK&7 8 7 3732 D 089 G58 37 284 3 739 C X2,A109 Q. PRINT LINE FULL 8 7 3739 C 094 05S 38 285 3 746 FILLX BE 0-0 8 5 3746 B 000 S 38 286 3 751 X2CHK BCE *&5,A109-1,0 Q. L.O. DIGIT OF X2 WAS ZERO 8 8 3751 B G63 05/ 0 38 287 3 759 B BRNCH 8 4 3759 B F84 38 288 3 763 A K1,X2 8 7 3763 A 01U 094 38 289 3 770 B BRNCH 8 4 3770 B F84 38 290 3 774 FILLWM MCW K1,PBEG2&13&X2 8 7 3774 M 01U QP6 39 291 3 781 SW FLAG 8 4 3781 , I10 39 292 3 785 B BUMPX2 8 4 3785 B G18 39 293 * 294 * CLEAR THE PRINT LINE BUFFER 295 * 296 3 789 CLRPL SBR CLRPX&3 8 4 3789 H H07 39 297 3 793 MCW KBLNK,PLINE 8 7 3793 M 02V P93 39 1 RECORD 8 OF FORTRAN IV COMPILER -- 81F PHASE PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 3 800 MCW PLINE 8 4 3800 M P93 39 299 3 804 CLRPX B 0-0 8 4 3804 B 000 39 300 * 301 * OUTPUT THE PRINT LINE BUFFER 302 * 303 3 808 PRINT SBR PRNTX&3 8 4 3808 H H54 40 304 3 812 MCW X1,SX1 8 7 3812 M 089 H57 40 305 3 819 SBR GETX14&6,PACKT BEGINNING OF I/O PACKET 8 7 3819 H 358 O42 40 306 3 826 SBR EOFX 4&3,H48 HALT 48 8 7 3826 H 475 F49 40 307 3 833 SBR TAPEX4&3,*&5 8 7 3833 H 459 H44 40 308 3 840 B WRITE4 8 4 3840 B 334 40 309 3 844 MCW SX1,X1 8 7 3844 M H57 089 41 310 3 851 PRNTX B 0 8 4 3851 B 000 41 311 * 312 3 857 SX1 DCW #3 8 3 3857 41 313 3 860 A000 DSA 0 ADDRESS 000, TO INIT X2 8 3 3860 000 41 314 3 881 STPRM DCW @*** STORAGE PRINT ***@ 8 21 3881 41 315 3 909 ENDPR DCW @*** END OF STORAGE PRINT ***@ 8 28 3909 42 316 3 910 FLAG DC #1 8 1 3910 42 317 3 960 DCW @ @ 8 50 3960 44 318 ORG 4011 8 4011 319 4 013 KLST DCW @LST@ 8 3 4013 45 320 4 014 K1 DCW 1 8 1 4014 45 321 4 015 OPNOP NOP 8 1 4015 N 45 322 4 018 KX3 DCW @X3 @ 8 3 4018 45 323 4 021 KX2 DCW @X2 @ 8 3 4021 45 324 4 024 KX1 DCW @X1 @ 8 3 4024 45 325 4 025 KBLNK DCW #1 8 1 4025 45 326 4 028 AM1 DSA 15999 ADDRESS NEGATIVE 1, FOR MA 8 3 4028 I9I 46 327 4 031 KP10 DSA PBEG&10 PRINT BUFFER BEGIN PLUS 10 8 3 4031 O72 46 328 4 032 K2 DCW 2 8 1 4032 46 329 4 033 K4 DCW 4 8 1 4033 46 330 4 034 K8 DCW 8 8 1 4034 46 331 4 037 A100 DSA 100 ADDRESS 100, FOR MA 8 3 4037 100 46 332 4 038 OPCC CC OP CODE CC 8 1 4038 F 46 333 4 041 KOUT DCW @OUT@ 8 3 4041 47 334 4 043 KWK DCW @WK@ 8 2 4043 47 335 4 046 AM100 DSA 15900 ADDRESS NEGATIVE 100, FOR MA 8 3 4046 I0? 47 336 4 049 AP1 DSA 1 ADDRESS POSITIVE 1, FOR MA 8 3 4049 001 47 337 4 052 A109 DSA 109 8 3 4052 109 47 338 4 055 DSA GMWM&89 8 3 4055 14W 47 339 4 056 KSLASH DCW @/@ 1 SPACE AFTER FOR CC INSTRUCTION 8 1 4056 47 340 4 057 GMWM DCW @}@ 8 1 4057 GMARK 48 341 END 8 / 000 080 1 PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A000 8 3860 A100 8 4037 A109 8 4052 ABZON6 3332 ABZON8 3381 ADDR 8 3284 AM1 8 4028 AM1008 4046 AP1 8 4049 BRNCH8 3684 BUMPX2 3718 BZON68 3339 BZON88 3388 CENTRY 3399 CLRPL8 3789 CLRPX8 3804 CORIX4 915 DATA 8 3704 ENDPR8 3909 ENTER8 2995 EOFX 4 472 FILL 8 3658 FILLWM 3774 FILLX8 3746 FLAG 8 3910 GETPK8 3054 GETX14 352 GM 8 2862 GMWM 8 4057 H48 8 3649 K1 8 4014 K2 8 4032 K4 8 4033 K8 8 4034 KBLNK8 4025 KLST 8 4013 KOUT 8 4041 KP10 8 4031 KSLASH 4056 KWK 8 4043 KX1 8 4024 KX2 8 4021 KX3 8 4018 LOOK 4 791 LOOKX4 861 LOOP 8 3241 M8K 8 3445 NOUNIT 3040 NOUT 8 3597 NOZON6 3346 NOZON8 3410 OPCC 8 4038 OPNOP8 4015 OUTER8 3173 PACKT8 2642 PBEG 8 2662 PBEG28 2863 PLIN28 2994 PLINE8 2793 PRINT8 3808 PRNTX8 3851 SEEK 4 790 SETX14 821 STPRM8 3881 SX1 8 3857 TAPE 8 3517 TAPE28 3569 TAPE38 3621 TAPEX4 456 TFLAG8 3272 TSTCOR 3425 WRITE4 334 X1 8 89 X14K 8 3457 X2 8 94 X2CHK8 3751 X3 8 99 XIT1 8 3541 XIT2 8 3593