BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 MOVE & ZERO SUPPRESS 0230B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB MOVE & ZERO SUPPRESS 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 BCONT 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 ORG 377 0377 122 377 B SWITCH USE WHEN TESTS ARE RUN FROM TAPE 4 0377 B 389 6 123 381 DC #4 4 0384 6 124 385 B 1288 ,, 4 0385 B S88 6 125 389 SWITCH NOP 0 ,, 4 0389 N 000 6 126 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 6 127 400 BEGIN CS 332 START TEST 4 0400 / 332 6 128 404 CS 1 0404 / 6 129 405 B TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 130 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 131 417 NEXT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 7 132 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 7 133 428 LCA 80,299 ,, 7 0428 L 080 299 7 134 435 LCA 72,272 ,, 7 0435 L 072 272 7 135 442 SW 241,265 ,, 7 0442 , 241 265 7 136 449 BCE SCOPE2,10, BR TO MOVE 1 POS FLD IF BLANK IN 010 8 0449 B 480 010 8 137 457 SCOPE1 MCS 210,270 MOVE & ZERO SUPPRESS 10 POS FIELD 7 0457 Z 210 270 8 138 464 BSS SCOPE,B B ON FOR SCOPING 5 0464 B 935 B 8 139 469 C 270,250 TEST FOR ERROR 7 0469 C 270 250 8 140 476 B TEST ,, 4 0476 B 499 8 141 480 SCOPE2 MCS 201,261 MOVE & ZERO SUPPRESS 1 POS FIELD 7 0480 Z 201 261 8 142 487 BSS SCOPE,B B ON FOR SCOPING 5 0487 B 935 B 9 143 492 C 261,241 TEST FOR ERROR 7 0492 C 261 241 9 144 499 TEST BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNE 5 0499 B 900 / 9 145 504 B BUMP GO BUMP COUNTER 4 0504 B 920 9 146 508 DCW #1 1 0508 9 147 ORG 900 0900 1 MOVE & ZERO SUPPRESS 0230B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 900 ERRPRT LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 10 149 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 10 150 912 W BUMP ERROR PRINT 4 0912 2 920 10 151 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 10 152 920 BUMP A *-6,COUNT BUMP COUNTER 7 0920 A 920 970 10 153 927 BCE CLEAR,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 10 154 935 SCOPE CS 332 4 0935 / 332 10 155 939 CS 1 0939 / 11 156 940 B CONT 4 0940 B 421 11 157 944 CLEAR S COUNT 4 0944 S 970 11 158 948 BSS CORR,C 5 0948 B 957 C 11 159 953 B LOOP 4 0953 B 958 11 160 957 CORR W 1 0957 2 11 161 958 LOOP BSS CONT,D 5 0958 B 421 D 11 162 963 B DETAIL 4 0963 B 348 12 163 970 COUNT DCW @000?@ 4 0970 12 164 971 DCW #1 1 0971 12 165 ORG 1110 1110 166 1 114 ERROR DCW @ERROR@ ,, 5 1114 13 167 1 119 BLANKS DCW @ @ 5 1119 13 168 1 139 DCW @A FIELD @ ,, 20 1139 13 169 1 159 DCW @B FIELD @ ,, 20 1159 14 170 1 170 DCW @RESULT SHOULD BE @ ,, 20 1179 15 171 1 199 DCW @RESULT IS @ ,, 20 1199 16 172 * 173 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 174 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 175 * THAT TRANSFERS CONTROL TO THE PROGRAM. 176 * 177 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 178 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 179 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 180 * 181 ORG 1200 1200 182 1 200 TITLPR W PRINT (SPACE). 1 1200 2 16 183 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 16 184 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 16 185 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 16 186 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 16 187 1 217 W PRINT (SPACE). 1 1217 2 16 188 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 17 189 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 17 190 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 17 191 1 236 W PRINT SECOND LINE. 1 1236 2 17 192 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 17 193 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 17 194 1 245 DCW #1 1 1245 17 195 * 196 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 197 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 1 MOVE & ZERO SUPPRESS 0230B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 199 END START / 333 080 1 MOVE & ZERO SUPPRESS 0230B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BLANKS 1119 BUMP 920 CLEAR 944 CONT 421 CORR 957 COUNT 970 DETAIL 348 ERRHLT 916 ERROR 1114 ERRPRT 900 HDRS 1120 LOOP 958 NEXT 417 RELOAD 340 SCOPE 935 SCOPE1 457 SCOPE2 480 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST 499 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349