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 BACKSPACE SKIP PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB BACKSPACE SKIP 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 START LOADING 108 * 109 SW 8,12 7 0333 , 008 012 4 110 RELOAD SW 1 4 0340 , 001 4 111 R 1 4 0344 1 001 4 112 * 113 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 114 * 115 NXPROG R 1 0348 1 4 116 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 117 B 421 WHAT'S GOING TO BE AT 421? 4 0357 B 421 4 118 CS RELOAD,80 7 0361 / 340 080 4 119 DCW #1 1 0368 5 120 * 121 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 122 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 123 * THAT TRANSFERS CONTROL TO THE PROGRAM. 124 * 125 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 126 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 127 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 128 * 129 ORG 1200 1200 130 TITLPR W PRINT (SPACE). 1 1200 2 6 131 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 6 132 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 6 133 W PRINT TITLE AND BLOCK NO. 1 1212 2 6 134 CS 277 CLEAR PRINT AREA 4 1213 / 277 6 135 W PRINT (SPACE). 1 1217 2 6 136 CW HDRS&20,HDRS&40 CLEAR WORD MARKS IN SECOND 7 1218 ) /40 /60 6 137 CW HDRS&60 LINE STORED INFORMATION. 4 1225 ) /80 7 138 LCA HDRS&79 LOAD SECOND LINE. 4 1229 L /99 7 139 W PRINT SECOND LINE. 1 1233 2 7 140 CS 280 CLEAR PRINT AREA. 4 1234 / 280 7 141 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRAM. 4 1238 2 413 7 142 DCW #1 1 1242 7 143 * 144 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 145 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 146 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 147 * 1 BACKSPACE SKIP PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 149 * 150 ORG 377 0377 151 BCE TAPERD,TAPES1, USE WHEN TESTS ARE RUN FROM TAPE 8 0377 B S88 S68 8 152 BIN START, ,, 5 0385 B 400 8 153 ORG 400 0400 154 START CS 332 START TEST 4 0400 / 332 9 155 CS 1 0404 / 9 156 BOP BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 9 157 MCW K0001,PASSNO SET PASS COUNTER TO ONE 7 0413 M '39 '53 9 158 RWD RWD 4 REWIND 5 0420 U %U4 R 9 159 LOOP LCA NOP,SW1 LOAD -N- IN LOCATION SW1 7 0425 L 432 585 9 160 NOP NOP NOP 1 0432 N 9 161 CS 299 CLEAR PRINT AREA 4 0433 / 299 10 162 MCW PASSNO,203 MOVE PASS NO. IN PRINT AREA 7 0437 M '53 203 10 163 MCW WRITE,211 MOVE WORD -WRITE- IN PRINT AREA 7 0444 M '64 211 10 164 LCA REC1,226 LOAD RECORD 1 & GM IN PRINT AREA 7 0451 L '30 226 10 165 LCA REC2,260 LOAD RECORD 2 & GM IN PRINT AREA 7 0458 L '51 260 10 166 SW 226,260 SET WM IN GM LOCATIONS 7 0465 , 226 260 10 167 WTW 4,216 WRITE RECORD 1 8 0472 L %U4 216 W 11 168 BER 552 BRANCH IF TAPE WRITE ERROR 5 0480 B 552 L 11 169 EFTST1 BEF RWD BRANCH IF END OF REEL 5 0485 B 420 K 11 170 MCW K0001-1,RWC SET RE-WRITE COUNTER TO ZERO 7 0490 M '38 '56 11 171 WREC2 WTW 4,250 WRITE RECORD 2 8 0497 L %U4 250 W 11 172 BSS EFTST2,B B ON TO SCOPE 5 0505 B 525 B 11 173 BCE ERTEST,RWC-1,1 BRANCH IF 10 IN RE-WRITE COUNTER 8 0510 B 575 '55 1 12 174 A REC1-10,RWC ADD 1 TO RE-WRITE COUNTER 7 0518 A '20 '56 12 175 EFTST2 BEF RWD BRANCH IF END OF REEL 5 0525 B 420 K 12 176 BSP 4 BACKSPACE 5 0530 U %U4 B 12 177 SKP 4 SKIP 5 0535 U %U4 E 12 178 BIN WREC2, BRANCH TO REWRITE RECORD 2 5 0540 B 497 12 179 ORG 552 0552 180 LCA BOP,SW1 LOAD -B- IN LOC. SW1 TO BRANCH ON ERR 7 0552 L 405 585 13 181 MCW TAPE,232 MOVE TAPE WRITE ERROR TO PRINT 7 0559 M '72 232 13 182 BIN EFTST1, BRANCH TO TEST FOR END OF REEL 5 0566 B 485 13 183 ORG 575 0575 184 ERTEST BER SET1 BRANCH IF TAPE WRITE ERROR 5 0575 B 607 L 14 185 EFTST3 BEF RWD BRANCH IF END OF REEL 5 0580 B 420 K 14 186 SW1 NOP ERPRNT NOP IF NO ERRORS - BRANCH IF ANY ERRO 4 0585 N 630 14 187 DC @ @ 1 0589 14 188 BSS ERWRIT,C C ON TO CORRECT PRINT 5 0590 B 642 C 14 189 BIN RDTEST, BRANCH TO BEGIN READ PORTION OF TEST 5 0595 B 694 14 190 ORG 607 0607 191 SET1 LCA BOP,SW1 LOAD -B- IN LOC. SW1 TO BRANCH ON ERR 7 0607 L 405 585 15 192 MCW TAPE,266 MOVE TAPE WRITE ERROR TO PRINT 7 0614 M '72 266 15 193 BIN EFTST3, BRANCH TO TEST FOR END OF REEL 5 0621 B 580 15 194 ORG 630 0630 195 ERPRNT MCW ERROR,285 MOVE WORD ERROR TO PRINT AREA 7 0630 M '99 285 16 196 BSS ERHALT,E E ON TO ERROR STOP 5 0637 B 646 E 16 197 ERWRIT W RDTEST PRINT 4 0642 2 694 16 1 BACKSPACE SKIP PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 ERHALT H ERROR STOP 1 0646 . 16 199 BIN RDTEST, BRANCH TO BEGIN READ PORTION OF TEST 5 0647 B 694 16 200 ORG 694 0694 201 RDTEST LCA NOP,SW2 LOAD -N- IN LOCATION SW2 7 0694 L 432 803 17 202 CS 299 CLEAR PRINT AREA 4 0701 / 299 17 203 MCW PASSNO,203 MOVE PASS NO. IN PRINT AREA 7 0705 M '53 203 17 204 MCW READ,210 MOVE WORD -READ- IN PRINT AREA 7 0712 M '68 210 17 205 LCA GMWM,226 LOAD GM-WM FOR RECORD 1 7 0719 L S50 226 17 206 LCA GMWM,260 LOAD GM-WM FOR RECORD 2 7 0726 L S50 260 17 207 BSP 4 BACKSPACE 5 0733 U %U4 B 18 208 BSP 4 BACKSPACE 5 0738 U %U4 B 18 209 RTW 4,216 READ RECORD 1 FROM TAPE 8 0743 L %U4 216 R 18 210 BSS READ2,B B ON TO SCOPE 5 0751 B 773 B 18 211 BER SET2 BRANCH IF TAPE READ ERROR 5 0756 B 867 L 18 212 TESTEQ C 225,1029 COMPARE TAPE REC 1 WITH REC IN STORAG 7 0761 C 225 '29 18 213 BU NOTEQ1 BRANCH IF ERROR 5 0768 B 887 / 19 214 READ2 RTW 4,250 READ RECORD 2 FROM TAPE 8 0773 L %U4 250 R 19 215 BSS RDTEST,B B ON TO SCOPE 5 0781 B 694 B 19 216 BER RDERR BRANCH IF TAPE READ ERROR 5 0786 B 907 L 19 217 TEST2 C 259,1049 COMPARE TAPE REC 2 WITH REC IN STORAG 7 0791 C 259 '49 19 218 BU NOTEQ2 BRANCH IF ERROR 5 0798 B 927 / 19 219 SW2 NOP ERRTN2 NOP IF NO ERRORS - BRANCH IF ANY ERRO 4 0803 N 950 19 220 DC @ @ 1 0807 20 221 BSS ERPRT2,C C ON TO CORRECT PRINT 5 0808 B 962 C 20 222 TESTD BSS RDTEST,D D ON TO REPEAT READ PORTION OF PROGRA 5 0813 B 694 D 20 223 BCE DONE,PASSNO-1,1 BRANCH IF 10 IN PASS COUNTER 8 0818 B 850 '52 1 20 224 A REC1-10,PASSNO ADD 1 TO PASS COUNTER 7 0826 A '20 '53 20 225 BIN LOOP, BRANCH TO REPEAT PROG. IF NOT 10TH PA 5 0833 B 425 21 226 ORG 850 0850 227 DONE BSS LOOP,G G ON TO REPEAT TEST 5 0850 B 425 G 22 228 RWD 4 REWIND 5 0855 U %U4 R 22 229 CS NXPROG,299 CLEAR GM-WM & BRANCH TO LOAD NEXT PRO 7 0860 / 348 299 22 230 SET2 LCA BOP,SW2 LOAD -B- IN LOC. SW2 TO BRANCH ON ERR 7 0867 L 405 803 22 231 MCW TAPE,232 MOVE TAPE READ ERROR COMMENT TO PRINT 7 0874 M '72 232 22 232 BIN TESTEQ, BRANCH TO TEST FOR COMPARE ERROR 5 0881 B 761 22 233 ORG 887 0887 234 NOTEQ1 LCA BOP,SW2 LOAD -B- IN LOC. SW2 TO BRANCH ON ERR 7 0887 L 405 803 23 235 MCW COMPAR,244 MOVE COMPARE ERROR COMMENT TO PRINT 7 0894 M '79 244 23 236 BIN READ2, BRANCH TO READ RECORD 2 5 0901 B 773 23 237 ORG 907 0907 238 RDERR LCA BOP,SW2 LOAD -B- IN LOC SW2 TO BRANCH ON ERRO 7 0907 L 405 803 24 239 MCW TAPE,266 MOVE TAPE READ ERROR COMMMENT TO PRIN 7 0914 M '72 266 24 240 BIN TEST2, BRANCH TO TEST FOR COMPARE ERROR 5 0921 B 791 24 241 ORG 927 0927 242 NOTEQ2 LCA BOP,SW2 LOAD -B- IN LOC SW2 TO BRANCH ON ERRO 7 0927 L 405 803 25 243 MCW COMPAR,278 MOVE COMPARE ERROR COMMENT TO PRINT 7 0934 M '79 278 25 244 BIN SW2, BRANCH TO NOP OR BRANCH 5 0941 B 803 25 245 ORG 950 0950 246 ERRTN2 MCW ERROR,285 MOVE WORD ERROR TO PRINT AREA 7 0950 M '99 285 26 247 BSS ERHLT2,B E ON TO ERROR STOP 5 0957 B 968 B 26 1 BACKSPACE SKIP PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 ERPRT2 W PRINT 1 0962 2 26 249 WM TESTD PRINT WORD MARKS 5 0963 2 813 ) 26 250 ERHLT2 H ERROR STOP 1 0968 . 26 251 BIN TESTD, BRANCH TO SENSE D 5 0969 B 813 26 252 ORG 1020 1020 253 REC1 DCW @1111111111"@ RECORD ONE GM IN '30 11 1030 27 254 K0001 DCW @0001 @ CONSTANT TO INCREMENT PASS & RE-WR. C 9 1039 27 255 REC2 DCW @RWRWRWRWRW" @ RECORD TWO GM IN '50 12 1051 27 256 PASSNO DCW @XX@ COUNTER FOR COUNTING NO. OF PASSES 2 1053 27 257 RWC DCW @XXX@ COUNTER FOR COUNTING NO. OF RE-WRITES 3 1056 27 258 DC @ @ 3 1059 28 259 WRITE DCW @WRITE@ CONSTANTS FOR PRINTOUTS 5 1064 28 260 READ DCW @READ@ ,, 4 1068 28 261 TAPE DCW @TAPE@ ,, 4 1072 28 262 COMPAR DCW @COMPARE@ ,, 7 1079 28 263 ERROR DCW @ERROR @ ,, 20 1099 29 264 ORG HDRS 1120 265 DCW @PASS OPER. RECOR@ CONSTANTS FOR HEADINGS 20 1139 30 266 DCW @D ONE TYPE OF ERR@ ,, 20 1159 31 267 DCW @ORS RECORD TWO @ ,, 20 1179 32 268 DCW @ TYPE OF ERRORS @ ,, 20 1199 33 269 ORG 1250 1250 270 GMWM DCW @"@ ,, 1 1250 34 271 * 272 * STUFF AT THE END. NOT IN ONE-FIELD-PER-CARD FORMAT 273 * LOOKS LIKE IT'S FOR AUTOMATICALLY FIGURING OUT WHETHER THE 274 * PROGRAM IS LOADED FROM TAPE. 275 * 276 ORG 19 0019 277 BEGIN BCE ONTAPE,TAPES2," GM AT TAPES2? 8 0019 B 031 T98 " 35 ADDR 278 B START 4 0027 B 400 35 ADDR 279 ONTAPE LCA BTAPE&4,TPTEST&3 7 0031 L 046 352 35 ADDR 280 B 1604 WHAT'S GOING TO BE AT 1604? 4 0038 B W04 35 ADDR 281 BTAPE B TAPERD 4 0042 B S88 35 ADDR 282 END BEGIN / 019 080 1 BACKSPACE SKIP PAGE 5 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGIN 19 BOP 405 BTAPE 42 COMPAR 1079 DONE 850 EFTST1 485 EFTST2 525 EFTST3 580 ERHALT 646 ERHLT2 968 ERPRNT 630 ERPRT2 962 ERROR 1099 ERRTN2 950 ERTEST 575 ERWRIT 642 GMWM 1250 HDRS 1120 K0001 1039 LOOP 425 NOP 432 NOTEQ1 887 NOTEQ2 927 NXPROG 348 ONTAPE 31 PASSNO 1053 RDERR 907 RDTEST 694 READ 1068 READ2 773 REC1 1030 REC2 1051 RELOAD 340 RWC 1056 RWD 420 SET1 607 SET2 867 START 400 SW1 585 SW2 803 TAPE 1072 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEST2 791 TESTD 813 TESTEQ 761 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 WREC2 497 WRITE 1064 ***** ** 5 Errors ERROR