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 TRUE ADD 0300 PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB TRUE ADD 102 * 103 * STUFF IN THE PREAMBLE 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 * 121 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 122 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 123 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 124 * 125 ORG 377 0377 126 377 B 389 4 0377 B 389 6 127 381 DC #4 4 0384 6 128 385 B TAPERD 4 0385 B S88 6 129 389 SWITCH NOP 0 4 0389 N 000 6 130 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 6 131 400 BEGIN CS 332 4 0400 / 332 6 132 404 CS 1 0404 / 6 133 405 BCE TITLPR,TITLSW,1 8 0405 B S00 S52 1 6 134 413 CS 80 4 0413 / 080 7 135 417 NEXT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 7 136 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 7 137 428 LCA 80,299 ,, 7 0428 L 080 299 7 138 435 LCA 72,272 ,, 7 0435 L 072 272 7 139 442 SW 221,241 ,, 7 0442 , 221 241 7 140 449 SW 202 ,, 4 0449 , 202 8 141 453 BCE SCOPE2,13,S BR TO USE SUBTRACT CODE IF S IN 013 8 0453 B 484 013 S 8 142 461 SCOPE1 LCA 230,270 LOAD B FIELD 7 0461 L 230 270 8 143 468 A 210,270 ADD WITH LIKE SIGNS 7 0468 A 210 270 8 144 475 BSS SCOPE1,B B ON TO SCOPE 5 0475 B 461 B 8 145 480 B 503 BRANCH TO TEST FOR ERROR 4 0480 B 503 8 146 484 SCOPE2 LCA 230,270 LOAD B FIELD 7 0484 L 230 270 9 147 491 S 210,270 SUBTRACT WITH UNLIKE SIGNS 7 0491 S 210 270 9 1 TRUE ADD 0300 PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 498 BSS SCOPE2,B B ON TO SCOPE 5 0498 B 484 B 9 149 503 TEST C 270,250 TEST FOR ERROR 7 0503 C 270 250 9 150 510 BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0510 B 900 / 9 151 515 BSS CORR,C C ON TO CORRECT PRINT ROUTINE 5 0515 B 950 C 9 152 520 B LOOP BRANCH TO SENSE D 4 0520 B 958 10 153 DC #1 1 0524 10 154 ORG 900 0900 155 0 900 ERRPRT LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 11 156 0 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 11 157 0 912 W LOOP ERROR PRINT 4 0912 2 958 11 158 0 916 ERRHLT H LOOP ERROR STOP 4 0916 . 958 11 159 0 939 DCW #1 WORD MARK 1 0920 11 160 ORG 950 0950 161 0 950 CORR LCA BLANKS,285 CORRECT PRINT ROUTINE 7 0950 L /19 285 12 162 0 957 W ,, 1 0957 2 12 163 0 958 LOOP BSS CONT,D D ON TO REPEAT 5 0958 B 421 D 12 164 0 963 BIN NEXT, BRANCH TO READ NEXT RECORD 5 0963 B 417 12 165 ORG 1110 1110 166 1 114 ERROR DCW @ERROR@ CONSTANTS 5 1114 13 167 1 119 BLANKS DCW @ @ ,, 5 1119 13 168 1 120 DCW @A FIELD @ 20 1139 13 169 1 140 DCW @B FIELD @ 20 1159 14 170 1 160 DCW @RESULT SHOULD BE @ 20 1179 15 171 1 180 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 END START / 333 080 1 TRUE ADD 0300 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 461 SCOPE2 484 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST 503 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349