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 INDEXING & STORE STARS 3100D PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB INDEXING & STORE STARS 102 CTL 6611 103 * 104 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 105 * 106 ORG 333 0333 107 * 108 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 109 * 110 333 START SW 8,12 7 0333 , 008 012 4 111 340 RELOAD SW 1 4 0340 , 001 4 112 344 R 1 4 0344 1 001 4 113 * 114 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 115 * 116 348 DETAIL R 1 0348 1 4 117 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 118 357 B CONT 4 0357 B 421 4 119 361 CS RELOAD,80 7 0361 / 340 080 4 120 368 DCW #1 1 0368 5 121 * 122 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 123 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 124 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 125 * 126 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 127 * 128 XXX EQU 5777&X1 GENERATE XXX ADDRESS 5777 X 129 * 130 ORG 377 0377 131 377 BCE 389,1257,1 8 0377 B 389 S57 1 6 132 385 B TAPERD ,, 4 0385 B S88 6 133 389 INIT NOP 0 ,, 4 0389 N 000 6 134 393 MCW TPTEST&11,INIT&3 ,, 7 0393 M 360 392 6 135 400 BEGIN CS 332 START TEST 4 0400 / 332 6 136 404 CS 1 0404 / 6 137 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 138 413 ORG TITLEX 0413 139 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 140 417 BNX B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 7 141 421 CONT SW 1,21 LOAD PRINT AREA 7 0421 , 001 021 7 142 428 SW 62,78 ,, 7 0428 , 062 078 7 143 435 LCA 80,299 ,, 7 0435 L 080 299 7 144 442 LCA 68,278 ,, 7 0442 L 068 278 7 145 449 LCA 50,250 ,, 7 0449 L 050 250 8 146 456 NOP 1 0456 N 8 147 457 LCA 7,CHG1&6 7 0457 L 007 518 8 1 INDEXING & STORE STARS 3100D PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 464 LCA 7,CHG2&6 7 0464 L 007 529 8 149 471 LCA 33,99 7 0471 L 033 099 8 150 478 SW 99,240 7 0478 , 099 240 8 151 485 BIN AROUND, 5 0485 B 679 9 152 ORG 500 0500 153 500 BACK BCE BACK2,4067,X INSTR IS REPLACED BEFORE EXEC 8 0500 B 600 06X X 10 154 508 B BNX 4 0508 B 417 10 155 SCOPE EQU *&1 0512 156 512 CHG1 X XXX,XXX INSTR IS REPLACED BEFORE EXEC 7 0512 X XXX XXX 10 157 519 SAR 263 4 0519 Q 263 10 158 523 CHG2 X XXX,XXX INSTR IS REPLACED BEFORE EXEC 7 0523 X XXX XXX 10 159 530 SBR 266 4 0530 H 266 10 160 534 BSS SCOPE,B 5 0534 B 512 B 10 161 539 MCW CHG1,260 7 0539 M 512 260 11 162 546 C 268,248 7 0546 C 268 248 11 163 553 BU ERRPR2 5 0553 B 900 / 11 164 558 BIN BUMP, 5 0558 B 920 11 165 ORG 600 0600 166 600 BACK2 SW 10 4 0600 , 010 12 167 604 MCW 12,CHG3&6 7 0604 M 012 617 12 168 611 CHG3 LCA BLANK1,XXX B ADDR IS REPLACED BEFORE EXEC 7 0611 L 971 XXX 12 169 618 LCA 7,207 7 0618 L 007 207 12 170 625 BIN CHG1, 5 0625 B 512 12 171 ORG 679 0679 172 679 AROUND CS 0 4 0679 / 000 13 173 683 SBR CORSIZ SAVE CORE SIZE 4 0683 H 795 13 174 * TEST HIGH-ORDER TWO BITS OF THOU 175 687 BWZ M6,CORSIZ,B 11 .. 12000 -- 15999 8 0687 V 782 795 B 13 176 695 BM M5,CORSIZ 10 .. 8000 -- 11999 8 0695 V 771 795 K 13 177 703 BWZ M4,CORSIZ,S 01 .. 4000- -- 7999 8 0703 V 760 795 S 13 178 * HIGH-ORDER TWO BITS ARE ZERO 179 * TEST LOW-ORDER TWO BITS OF THOU 180 711 BWZ M3,CORSIZ-2,B 11 .. 3000 -- 3999 8 0711 V 749 793 B 14 181 719 BWZ M2,CORSIZ-2,Z ??? 8 0719 V 738 793 Z 14 182 727 MCW B1&7,BACK&7 7 0727 M 803 507 14 183 734 B BACK 4 0734 B 500 14 184 738 M2 MCW B2&7,BACK&7 7 0738 M 811 507 14 185 745 B BACK 4 0745 B 500 14 186 749 M3 MCW B3&7,BACK&7 7 0749 M 819 507 15 187 756 B BACK 4 0756 B 500 15 188 760 M4 MCW B4&7,BACK&7 7 0760 M 827 507 15 189 767 B BACK 4 0767 B 500 15 190 771 M5 MCW B5&7,BACK&7 7 0771 M 835 507 15 191 778 B BACK 4 0778 B 500 15 192 782 M6 MCW B6&7,BACK&7 7 0782 M 843 507 16 193 789 B BACK 4 0789 B 500 16 194 795 CORSIZ DSA XXX 3 0795 XXX 16 195 796 B1 BCE BACK2,63,1 8 0796 B 600 063 1 16 196 804 B2 BCE BACK2,64,1 8 0804 B 600 064 1 16 197 812 B3 BCE BACK2,65,4 8 0812 B 600 065 4 16 1 INDEXING & STORE STARS 3100D PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 820 B4 BCE BACK2,66,8 8 0820 B 600 066 8 17 199 828 B5 BCE BACK2,67,2 8 0828 B 600 067 2 17 200 836 B6 BCE BACK2,68,6 8 0836 B 600 068 6 17 201 ORG 900 0900 202 900 ERRPR2 LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 18 203 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 18 204 912 W BUMP ERROR PRINT 4 0912 2 920 18 205 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 18 206 920 BUMP A BUMP,COUNT BUMP COUNTER 7 0920 A 920 970 18 207 927 BCE ZERO,COUNT-1,9 NINETY TIMES? 8 0927 B 944 969 9 18 208 935 CLEAR CS 332 CLEAR 4 0935 / 332 18 209 939 CS ,, 1 0939 / 19 210 940 B CONT 4 0940 B 421 19 211 944 ZERO S COUNT 4 0944 S 970 19 212 948 CORR BSS CORRPR,C C ON TO CORRECT PRINT ROUTINE 5 0948 B 957 C 19 213 953 B LAST BRANCH TO SENSE D 4 0953 B 958 19 214 957 CORRPR W CORRECT PRINT ROUTINE 1 0957 2 19 215 958 LAST BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 19 216 963 B DETAIL BRANCH TO READ NEXT RECORD 4 0963 B 348 20 217 970 COUNT DCW @000?@ 4 0970 20 218 971 BLANK1 DCW #1 1 0971 20 219 ORG 1100 1100 220 1 109 DCW #10 10 1109 21 221 ORG HDRS-10 1110 222 1 114 ERROR DCW @ERROR@ 5 1114 21 223 1 119 DCW #5 5 1119 21 224 1 139 DCW @INDEXED INSTRUC. @ 20 1139 22 225 1 159 DCW @INDEX REGISTERS @ 20 1159 23 226 1 179 DCW @RESULTS SHOULD BE @ 20 1179 24 227 1 199 DCW @RESULTS ARE PROC. ON@ 20 1199 25 228 * 229 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 230 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 231 * THAT TRANSFERS CONTROL TO THE PROGRAM. 232 * 233 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 234 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 235 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 236 * 237 ORG 1200 1200 238 1 200 TITLPR W PRINT (SPACE). 1 1200 2 25 239 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 25 240 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 25 241 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 25 242 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 25 243 1 217 W PRINT (SPACE). 1 1217 2 25 244 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 26 245 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 26 246 1 229 LCA HDRS&79,280 LOAD SECOND LINE. 7 1229 L /99 280 26 247 1 236 W PRINT SECOND LINE. 1 1236 2 26 1 INDEXING & STORE STARS 3100D PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 1 237 CS 280 CLEAR PRINT AREA. 4 1237 / 280 26 249 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 26 250 1 245 DCW #1 1 1245 26 251 END START / 333 080 1 INDEXING & STORE STARS 3100D PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AROUND 679 B1 796 B2 804 B3 812 B4 820 B5 828 B6 836 BACK 500 BACK2 600 BEGIN 400 BLANK1 971 BNX 417 BUMP 920 CHG1 512 CHG2 523 CHG3 611 CLEAR 935 CONT 421 CORR 948 CORRPR 957 CORSIZ 795 COUNT 970 DETAIL 348 ERRHLT 916 ERROR 1114 ERRPR2 900 HDRS 1120 INIT 389 LAST 958 M2 738 M3 749 M4 760 M5 771 M6 782 RELOAD 340 SCOPE 512 START 333 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 XXX 5777+X1 ZERO 944