BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 COMPLEMENT ADD 0310B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB COMPLEMENT ADD 102 CTL 6611 103 * 104 * STUFF IN THE PREAMBLE 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 * 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 ORG 377 0377 126 377 B SWITCH 4 0377 B 389 6 127 ORG 385 0385 128 385 B TAPERD 4 0385 B S88 7 129 389 SWITCH NOP 0 4 0389 N 000 7 130 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 7 131 400 BEGIN CS 332 4 0400 / 332 7 132 404 CS 1 0404 / 7 133 405 BCE TITLPR,TITLSW,1 8 0405 B S00 S52 1 7 134 413 CS 80 4 0413 / 080 7 135 417 NEXT B DETAIL BRANCH TO PROGRAM CHAINING ROUTINE 4 0417 B 348 8 136 421 CONT SW 1,78 LOAD PRINT AREA 7 0421 , 001 078 8 137 428 LCA 80,299 ,, 7 0428 L 080 299 8 138 435 LCA 72,272 ,, 7 0435 L 072 272 8 139 442 B LTEST TEST FOR FIELD LENGTH 4 0442 B 971 8 140 446 LONG SW 220,241 7 0446 , 220 241 8 141 453 RUN BCE SCOPE2,13,S BR TO USE SUBTRACT CODE IF S IN 013 8 0453 B 484 013 S 9 142 461 SCOPE1 LCA 230,270 LOAD B FIELD 7 0461 L 230 270 9 143 468 A 210,270 ADD WITH LIKE SIGNS 7 0468 A 210 270 9 144 475 BSS SCOPE,B B ON FOR SCOPING 5 0475 B 935 B 9 145 480 B TEST BRANCH TO TEST FOR ERROR 4 0480 B 503 9 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 10 1 COMPLEMENT ADD 0310B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 498 BSS SCOPE,B B ON FOR SCOPING 5 0498 B 935 B 10 149 503 TEST C 270,250 TEST FOR ERROR 7 0503 C 270 250 10 150 510 BU ERRPRT BRANCH TO ERROR PRINT ROUTINE IF UNEQ 5 0510 B 900 / 10 151 515 BIN 920, 5 0515 B 920 10 152 ORG 900 0900 153 900 ERRPRT LCA ERROR,285 BEGIN ERROR PRINT ROUTINE 7 0900 L /14 285 11 154 907 BSS ERRHLT,E E ON TO ERROR STOP 5 0907 B 916 E 11 155 912 W BUMP ERROR PRINT 4 0912 2 920 11 156 916 ERRHLT H BUMP ERROR STOP 4 0916 . 920 11 157 920 BUMP A *-6,COUNT 7 0920 A 920 970 11 158 927 BCE CLEAR,COUNT-1,9 NINE TIMES? 8 0927 B 944 969 9 11 159 935 SCOPE CS 332 4 0935 / 332 11 160 939 CS 1 0939 / 12 161 940 B CONT 4 0940 B 421 12 162 944 CLEAR S COUNT 4 0944 S 970 12 163 948 BSS CORR,C 5 0948 B 957 C 12 164 953 B LOOP 4 0953 B 958 12 165 957 CORR W 1 0957 2 12 166 958 LOOP BSS CONT,D 5 0958 B 421 D 12 167 963 B DETAIL 4 0963 B 348 13 168 970 COUNT DCW @000?@ 4 0970 13 169 971 LTEST BCE LONG,72,/ 8 0971 B 446 072 / 13 170 979 SW 221,241 7 0979 , 221 241 13 171 986 B RUN 4 0986 B 453 13 172 990 DCW #1 1 0990 13 173 ORG 1110 1110 174 1 114 ERROR DCW @ERROR@ 5 1114 14 175 1 119 DCW @ @ 5 1119 14 176 1 139 DCW @A FIELD @ 20 1139 14 177 1 159 DCW @B FIELD @ 20 1159 15 178 1 179 DCW @RESULT SHOULD BE @ 20 1179 16 179 1 199 DCW @RESULT IS @ 20 1199 17 180 * 181 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 182 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 183 * THAT TRANSFERS CONTROL TO THE PROGRAM. 184 * 185 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 186 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 187 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 188 * 189 ORG 1200 1200 190 1 200 TITLPR W PRINT (SPACE). 1 1200 2 17 191 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 17 192 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 17 193 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 17 194 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 17 195 1 217 W PRINT (SPACE). 1 1217 2 17 196 1 218 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 18 197 1 225 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 18 1 COMPLEMENT ADD 0310B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 229 LCA HDRS&69,270 LOAD SECOND LINE. 7 1229 L /89 270 18 199 1 236 W PRINT SECOND LINE. 1 1236 2 18 200 1 237 CS 270 CLEAR PRINT AREA. 4 1237 / 270 18 201 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 18 202 1 245 DCW #1 1 1245 18 203 END START / 333 080 1 COMPLEMENT ADD 0310B PAGE 4 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BCONT 357 BEGIN 400 BUMP 920 CLEAR 944 CONT 421 CORR 957 COUNT 970 DETAIL 348 ERRHLT 916 ERROR 1114 ERRPRT 900 HDRS 1120 LONG 446 LOOP 958 LTEST 971 NEXT 417 RELOAD 340 RUN 453 SCOPE 935 SCOPE1 461 SCOPE2 484 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST 503 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349