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 MOVE & ZERO SUPPRESS 0230A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB MOVE & ZERO SUPPRESS 102 * 103 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 104 * 105 ORG 333 0333 106 * 107 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 108 * 109 333 START SW 8,12 7 0333 , 008 012 4 110 340 RELOAD SW 1 4 0340 , 001 4 111 344 R 1 4 0344 1 001 4 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 348 DETAIL R 1 0348 1 4 116 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 117 357 BCONT B CONT 4 0357 B 421 4 118 361 CS RELOAD,80 7 0361 / 340 080 4 119 368 DCW #1 1 0368 5 120 ORG 377 0377 121 377 B SWITCH USE WHEN TESTS ARE RUN FROM TAPE 4 0377 B 389 6 122 381 DC #4 4 0384 6 123 385 B 1288 ,, 4 0385 B S88 6 124 389 SWITCH NOP 0 ,, 4 0389 N 000 6 125 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 6 126 400 BEGIN CS 332 START TEST 4 0400 / 332 6 127 404 CS 1 0404 / 6 128 405 B TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 6 129 413 CS 80 CLEAR READ AREA 4 0413 / 080 7 130 417 NEXT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 7 131 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 7 132 428 LCA 80,299 ,, 7 0428 L 080 299 7 133 435 LCA 72,272 ,, 7 0435 L 072 272 7 134 442 SW 241,265 ,, 7 0442 , 241 265 7 135 449 BCE SCOPE2,10, BR TO MOVE 1 POS FLD IF BLANK IN 010 8 0449 B 480 010 8 136 457 SCOPE1 MCS 210,270 MOVE & ZERO SUPPRESS 10 POS FIELD 7 0457 Z 210 270 8 137 464 BSS SCOPE1,B B ON TO SCOPE 5 0464 B 457 B 8 138 469 C 270,250 TEST FOR ERROR 7 0469 C 270 250 8 139 476 B TEST ,, 4 0476 B 499 8 140 480 SCOPE2 MCS 201,261 MOVE & ZERO SUPPRESS 1 POS FIELD 7 0480 Z 201 261 8 141 487 BSS SCOPE2,B B ON TO SCOPE 5 0487 B 480 B 9 142 492 C 261,241 TEST FOR ERROR 7 0492 C 261 241 9 143 499 TEST BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNE 5 0499 B 900 / 9 144 504 BSS CORR,C C ON TO CORRECT PRINT ROUTINE 5 0504 B 950 C 9 145 509 B LOOP BRANCH TO SENSE D 4 0509 B 958 9 146 513 DC #1 1 0513 9 147 ORG 900 0900 1 MOVE & ZERO SUPPRESS 0230A 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 LOOP ERROR PRINT 4 0912 2 958 10 151 916 ERRHLT H LOOP ERROR STOP 4 0916 . 958 10 152 939 DCW @ @ WORD MARK 20 0939 11 153 ORG 950 0950 154 950 CORR LCA BLANKS,285 CORRECT PRINT ROUTINE 7 0950 L /19 285 12 155 957 W ,, 1 0957 2 12 156 958 LOOP BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 12 157 963 BIN NEXT, BRANCH TO READ NEXT RECORD 5 0963 B 417 12 158 967 DC #1 CONSTANTS 1 0968 12 159 ORG 1110 ,, 1110 160 1 110 ERROR DCW @ERROR@ ,, 5 1114 13 161 1 115 BLANKS DCW @ @ 5 1119 13 162 1 120 DCW @A FIELD @ ,, 20 1139 13 163 1 140 DCW @B FIELD @ ,, 20 1159 14 164 1 160 DCW @RESULT SHOULD BE @ ,, 20 1179 15 165 1 180 DCW @RESULT IS @ ,, 20 1199 16 166 * 167 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 168 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 169 * THAT TRANSFERS CONTROL TO THE PROGRAM. 170 * 171 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 172 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 173 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 174 * 175 ORG 1200 1200 176 1 200 TITLPR W PRINT (SPACE). 1 1200 2 16 177 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 16 178 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 16 179 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 16 180 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 16 181 1 217 W PRINT (SPACE). 1 1217 2 16 182 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 17 183 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 17 184 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 17 185 1 236 W PRINT SECOND LINE. 1 1236 2 17 186 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 17 187 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 17 188 1 245 DCW #1 1 1245 17 189 * 190 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 191 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 192 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 193 END START / 333 080 1 MOVE & ZERO SUPPRESS 0230A PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BLANKS 1119 CONT 421 CORR 950 DETAIL 348 ERRHLT 916 ERROR 1114 ERRPRT 900 HDRS 1120 LOOP 958 NEXT 417 RELOAD 340 SCOPE1 457 SCOPE2 480 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST 499 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349