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 1401 FORTRAN COMPILER TAPE GENERATOR 50994 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 400 JOB 1401 FORTRAN COMPILER TAPE GENERATOR 102 1 02 CTL 645 11 103 1 021 * 104 1 022 * LOAD OVERLAYS. 105 1 023 * WRITE THEM FROM THEIR BEGINNING ADDRESSES ONTO TAPE. 106 1 024 * ADD BRANCH TO START OF PROGRAM IN 001-014 OF THE FIRST BLOCK. 107 1 025 * LOAD RELOCATABLE FUNCTIONS AS CARD IMAGES. 108 1 026 * 109 1 03 XINIT X1,X2,X3 MACRO 110 X1 EQU 089 0089 GEN 111 089 DCW 000 3 0089 GEN 4 112 091 DC 00 2 0091 GEN 4 113 X2 EQU 094 0094 GEN 114 094 DCW 000 3 0094 GEN 4 115 096 DC 00 2 0096 GEN 4 116 X3 EQU 099 0099 GEN 117 099 DCW 000 3 0099 GEN 4 118 100 DC 0 1 0100 GEN 4 119 1 04 XBEGIN EQU 838 0838 120 1 05 ORG 6000 6000 121 1 06 BEGIN R SKIP 1 6000 1 5 122 1 07 SS 1 CLEAR 2 6001 K 1 5 123 1 08 R CORE 1 6003 1 5 124 1 09 SS 1 CARDS 2 6004 K 1 5 125 1 10 R READ BOOTSTRAP 1 6006 1 5 126 1 11 SS 1 CARD 2 6007 K 1 5 127 1 12 RWD 1 5 6009 U %U1 R 5 128 1 134 SBR 71,NUTAP&1 TRAP END OF BOOTSTRAP 7 6014 H 071 !3Y 6 129 1 144 SW 1 READY TO RUN BOOTSTRAP 4 6021 , 001 6 130 1 151 B 1 RUN BOOTSTRAP V4 4 6025 B 001 6 131 1 152 * V4 132 1 153 * END OF FUNCTION BLOCK V4 133 1 154 * V4 134 1 155 NDFUN SW 1 V4 4 6029 , 001 6 135 1 156 CW 80 NO WM UNDER GM IN 80 V4 4 6033 ) 080 6 136 1 161 * 137 1 162 * READ ONE OVERLAY AND WRITE IT ON TAPE 138 1 163 * 139 1 17 NUTAP R 1 6037 1 6 140 1 18 SS 1 2 6038 K 1 6 141 1 19 BCE NUTAP,54, OVERLAY LOADER CARD V4 8 6040 B !3X 054 7 142 1 21 C 4,@]]]]@ ALL 11-5-8 7 6048 C 004 L8/ 7 143 1 22 BE FUNCT START OF RELOCATABLE LIBRARY 5 6055 B K8X S 7 144 1 23 BWZ *&5,44,2 LOAD IS IN 0K, 4K, 8K OR 12K 8 6060 V !7S 044 2 7 145 1 24 B MOV 4 6068 B !8U 7 146 1 25 C 46,@111@ Q. SEGMENT NAME OR INDEX CARD 7 6072 C 046 L8U 7 147 1 26 BH NUTAP YES -- ASSUMES LOAD ADDR LT 4K 5 6079 B !3X U 8 1 1401 FORTRAN COMPILER TAPE GENERATOR 50994 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 27 MOV MCW 46,LOD&6 MOVE LOAD INSTR HERE 7 6084 M 046 !9X 8 149 1 28 LOD LCA 0,0 LOAD INSTR FROM CARD 7 6091 L 000 000 8 150 1 29 SBR X1 SAVE LOAD ADDRESS 4 6098 H 089 8 151 1 30 RUNIT SBR 71,RETRN TRAP THE END OF THE LOAD V4 7 6102 H 071 J1T 8 152 1 31 B 40 RUN THE LOAD CODE ON THE CARD V4 4 6109 B 040 8 153 1 33 RETRN SS 1 AND COME BACK HERE 2 6113 K 1 8 154 1 344 BCE RUNIT,40,L RUN THE CARD IF IT IS A LOAD CARD 8 6115 B J0S 040 L 9 155 1 374 CKFST NOP TO TURN OFF THE NEXT BRANCH V4 1 6123 N 9 156 1 38 B FIRST BRANCH ONLY ONCE 4 6124 B L3X 9 157 1 39 PUT WTW 1,1&X1 WRITE THE BLOCK 8 6128 L %U1 0|1 W 9 158 1 40 BER TPERR 5 6136 B J8V L 9 159 1 41 BLC END 5 6141 B K4Z A 9 160 1 42 CS 20 CLEAR THE BOOT BLOCK IF THERE IS ONE 4 6146 / 020 9 161 1 43 SW 1 4 6150 , 001 10 162 1 444 SBR X2,2999 GET READY TO CLEAR 2999 V4 7 6154 H 094 R99 10 163 1 449 SW 300 DOWN TO 300 V4 4 6161 , 300 10 164 1 45 CLEER CS 0&X2 CLEAR ONE CENTURY 4 6165 / 0!0 10 165 1 46 SBR X2 KEEP TRACK 4 6169 H 094 10 166 1 474 BW CLEER,300 BRANCH IF NOT DONE V4 8 6173 V J6V 300 1 10 167 1 49 B NUTAP DO ANOTHER BLOCK 4 6181 B !3X 10 168 1 491 * 169 1 492 * TAPE ERROR HANDLER 170 1 493 * 171 1 501 TPERR SBR X3 V4 4 6185 H 099 11 172 1 502 BSP 1 V4 5 6189 U %U1 B 11 173 1 51 SKP 1 5 6194 U %U1 E 11 174 1 52 S &1,COUNT 7 6199 S L8V L7X 11 175 1 53 BWZ ERXT,COUNT,B 8 6206 V K4V L7X B 11 176 1 54 MESSG @BAD TAPE ONE - REPLACE AND RESTART@,65,1,1 MACRO 177 CC 1 2 6214 F 1 GEN 11 178 CS 332 4 6216 / 332 GEN 11 179 CS 1 6220 / GEN 12 180 MCW @BAD TAPE ONE - REPLACE AND RESTART@,65&200 7 6221 M M1Z 265 GEN 12 181 W 1 6228 2 GEN 12 182 CC 1 2 6229 F 1 GEN 12 183 1 55 H 1111,1111 7 6231 . /11 /11 12 184 1 56 MCW &10,COUNT 7 6238 M M2/ L7X 12 185 1 57 ERXT B 16000-13&X3 4 6245 B IHG 12 186 1 571 * 187 1 572 * ALL DONE 188 1 573 * 189 1 58 END WTM 1 5 6249 U %U1 M 13 190 1 59 RWD 1 5 6254 U %U1 R 13 191 1 60 MESSG @1401 FORTRAN COMPILER GENERATED ON TU 1@,70,1,1 MACRO 192 CC 1 2 6259 F 1 GEN 13 193 CS 332 4 6261 / 332 GEN 13 194 CS 1 6265 / GEN 13 195 MCW @1401 FORTRAN COMPILER GENERATED ON TU 1@,70&200 7 6266 M M6| 270 GEN 13 196 W 1 6273 2 GEN 13 197 CC 1 2 6274 F 1 GEN 14 1 1401 FORTRAN COMPILER TAPE GENERATOR 50994 PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 61 EOJ H 2222,2222 7 6276 . K22 K22 14 199 1 62 B EOJ 4 6283 B K7W 14 200 1 621 * 201 1 622 * WRITE RELOCATABLE LIBRARY AS CARD IMAGES 202 1 623 * 203 1 63 FUNCT CW 1 4 6287 ) 001 14 204 1 65 LGM LCA @}@,80 GM 7 6291 L M6/ 080 14 205 1 654 BCE OVLAY,54, OVERLAY LOADER CARD 8 6298 B L3/ 054 14 206 1 66 WTW 1,1 8 6306 L %U1 001 W 15 207 1 67 BER TPERR 5 6314 B J8V L 15 208 1 68 C 4,@;;;;@ ALL 11-6-8 7 6319 C 004 M6V 15 209 1 69 BE NDFUN FINISHED WITH FUNCTIONS 5 6326 B !2Z S 15 210 1 70 OVLAY R 1 6331 1 15 211 1 71 SSB LGM,1 5 6332 K K9/ 1 15 212 1 751 * 213 1 752 * LOAD LINK TO START OF CODE INTO 001-014 IN FIRST BLOCK 214 1 753 * 215 1 764 FIRST CW CKFST&1 TURN OFF BRANCH TO HERE V4 4 6337 ) J2U 15 216 1 77 LCA FIXED,14 7 6341 L L7V 014 16 217 1 78 LCA 1 6348 L 16 218 1 79 LCA 1 6349 L 16 219 1 80 LCA 1 6350 L 16 220 1 804 SBR X1,0 WRITE THE FIRST BLOCK FROM 001 V4 7 6351 H 089 000 16 221 1 81 B PUT 4 6358 B J2Y 16 222 1 841 * 223 1 842 * CODE TO MOVE TO 001-014 OF FIRST BLOCK, TO BRANCH TO START 224 1 843 * 225 1 854 BER 10 V4 5 6362 B 010 L 16 226 1 865 B XBEGIN V4 4 6367 B 838 17 227 1 884 H 10 V4 4 6371 . 010 17 228 1 89 FIXED DCW 0 1 6375 17 229 1 90 COUNT DCW 10 COUNT OF WRITE ERRORS 2 6377 17 DCW @]]]]@ 4 6381 LIT 17 DCW @111@ 3 6384 LIT 17 DCW &1 1 6385 LIT 17 DCW @BAD TAPE ONE - REPLACE AND RESTART@ 34 6419 LIT 18 DCW &10 2 6421 LIT 18 DCW @1401 FORTRAN COMPILER GENERATED ON TU 1@ 39 6460 LIT 19 DCW @}@ 1 6461 LIT 20 DCW @;;;;@ 4 6465 LIT 20 230 1 93 END BEGIN / !0| 080 1 PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 6000 CKFST 6123 CLEER 6165 COUNT 6377 END 6249 EOJ 6276 ERXT 6245 FIRST 6337 FIXED 6375 FUNCT 6287 LGM 6291 LOD 6091 MOV 6084 NDFUN 6029 NUTAP 6037 OVLAY 6331 PUT 6128 RETRN 6113 RUNIT 6102 TPERR 6185 X1 89 X2 94 X3 99 XBEGIN 838