BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 IRG MEASUREMENT - WRITE PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB IRG MEASUREMENT - WRITE 102 * 103 * SENSE SWITCHES: 104 * B: VARY LENGTH OF FIRST RECORD OF PAIR 105 * 106 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 107 * 108 ORG 333 0333 109 * 110 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND START LOADING 111 * 112 SW 8,12 7 0333 , 008 012 4 113 RELOAD SW 1 4 0340 , 001 4 114 R 1 4 0344 1 001 4 115 * 116 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 117 * 118 NXPROG R 1 0348 1 4 119 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 4 120 B 421 4 0357 B 421 4 121 CS RELOAD,80 7 0361 / 340 080 4 122 DCW @ 1 OF 2 5@ JUNK: LOADER HAS L073376, NOT L065368 9 0376 5 123 * 124 * TITLE PRINT ROUTINE 125 * 126 ORG 1200 1200 127 1 200 TITLPR W 1 1200 2 6 128 1 201 SW 49 4 1201 , 049 6 129 1 205 LCA 77,277 7 1205 L 077 277 6 130 1 212 W 1 1212 2 6 131 1 213 CS 277 4 1213 / 277 6 132 1 217 W 1 1217 2 6 133 1 218 B START 4 1218 B 413 6 134 1 224 DC #3 3 1224 6 135 1 228 DCW #4 4 1228 7 136 1 235 DCW #7 7 1235 7 137 1 236 DCW #1 1 1236 7 138 1 240 DCW #4 4 1240 7 139 1 244 DCW #4 4 1244 7 140 1 249 DCW @ C@ 5 1249 7 141 * 142 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 143 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 144 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 145 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 146 * 147 * STUFF THAT IS IN ONE-FIELD-PER-CARD FORMAT 1 IRG MEASUREMENT - WRITE PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 * 149 ORG 377 0377 150 377 BCE HALT1,TAPES1&1,1 USE WHEN PROGRAM IS LOADED FROM TA 8 0377 B 399 S69 1 8 151 385 BIN TAPERD, ,, 5 0385 B S88 8 152 ORG 399 0399 153 399 HALT1 H STOP TO SET UP DR 4 & CHANGE DELAY TI 1 0399 . 9 154 400 CS 332 START TEST 4 0400 / 332 9 155 404 CS 1 0404 / 9 156 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 9 157 413 START RWD 4 REWIND DRIVE 4 5 0413 U %U4 R 9 158 418 SW 199 SET WM TO LIMIT DELAY INSTR 4 0418 , 199 9 159 422 B MINSET BR TO SET INSTR FOR MINIMUM DELAY 4 0422 B 850 9 160 426 WSETUP MCW K1240,WTW1&6 SET TAPE WRITE B ADDR TO S40 7 0426 M 091 454 10 161 433 MCW K1001,GAPCT SET GAP COUNTER TO 001 7 0433 M 085 088 10 162 440 CS 299 CLEAR PRINT AREA 4 0440 / 299 10 163 444 WRITE1 CW WTW1&4 CLEAR WM FROM B ADDR OF TAPE WRITE IN 4 0444 ) 452 10 164 448 WTW1 WTW 4,1240 WRITE FIRST RECORD OF A PAIR 8 0448 L %U4 S40 W 10 165 456 BIN WTW2, VARIABLE DELAY 5 0456 B 489 10 166 461 DLY0 CS WTW2,200 ,, 7 0461 / 489 200 11 167 468 DLY1 CS WTW2,279 ,, 7 0468 / 489 279 11 168 475 DLY2 MCS 199,200 ,, 7 0475 Z 199 200 11 169 482 DLY3 MCS 199,200 ,, 7 0482 Z 199 200 11 170 489 WTW2 WTW 4,IRG WRITE SECOND RECORD OF A PAIR 8 0489 L %U4 /19 W 11 171 497 BERT BER ERHNDL BRANCH IF WRITE ERROR 5 0497 B 550 L 12 172 502 NOP1 NOP K1001-3,DLY0&6 INSTR USED TO INCREASE DELAY FOR 7 0502 N 082 467 12 173 509 NOP2 NOP 0,0 GROUPS 2, 3, AND 4 7 0509 N 000 000 12 174 516 NOP3 NOP 0,0 ,, 7 0516 N 000 000 12 175 523 BCE1 BCE WTW3,GAPCT-2,1 BR TO WR SPACER REC IF LAST GAP OF GR 8 0523 B 595 086 1 12 176 531 ADD1 A K1001-3,GAPCT ADD 1 TO GAP COUNTER 7 0531 A 082 088 13 177 538 BVARY BSS VARY,B B ON TO VARY LENGTH OF FIRST REC OF P 5 0538 B 570 B 13 178 543 BIN WRITE1, BRANCH TO WRITE NEXT PAIR OF RECORDS 5 0543 B 444 13 179 ORG 550 0550 180 550 ERHNDL BSP 4 BACKSPACE 5 0550 U %U4 B 14 181 555 ERHND2 BSP 4 BACKSPACE 5 0555 U %U4 B 14 182 560 SKP 4 SKIP 5 0560 U %U4 E 14 183 565 BIN WRITE1, BRANCH TO WRITE NEXT PAIR OF RECORDS 5 0565 B 444 14 184 570 VARY SW WTW1&4 SUBTR 10 FROM B ADDR OF TAPE WRITE TO 4 0570 , 452 14 185 574 INCR A KM10,WTW1&6 INCREASE LENGTH OF FIRST REC OF PAI 7 0574 A 094 454 14 186 581 BWRITE B WRITE1 BRANCH TO WRITE NEXT PAIR OF RECORDS 4 0581 B 444 14 187 585 ERHND3 BSP 4 BACKSPACE 5 0585 U %U4 B 15 188 590 SKP 4 SKIP 5 0590 U %U4 E 15 189 595 WTW3 WTW 4,IRG-3 WRITE SPACER RECORD 8 0595 L %U4 /16 W 15 190 603 BER ERHND3 BRANCH IF WRITE ERROR 5 0603 B 585 L 15 191 608 BNX BIN NXDLY1, BRANCH TO LOAD NEXT TYPE OF DELAY INS 5 0608 B 620 15 192 ORG 620 0620 193 620 NXDLY1 LCA BBER&4,DLY0-1 SET UP DELAY INSTR FOR 1 TO 2 MS DLY 7 0620 L /24 460 16 194 627 MCW ADD1,NOP1 ,, 7 0627 M 531 502 16 195 634 MCW BXDL2,BNX&3 ,, 7 0634 M '91 611 16 196 641 BIN WSETUP, BRANCH TO WRITE WITH 1 TO 2 MS DLY 5 0641 B 426 16 197 ORG 650 0650 1 IRG MEASUREMENT - WRITE PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 650 NXDLY2 LCA CMPR&6,DLY0&6 SET UP DELAY INSTR FOR 2 TO 4 MS DLY 7 0650 L /31 467 17 199 657 MN BERT&1,NOP1&3 ,, 7 0657 D 498 505 17 200 664 MCW BXDL3,BNX&3 ,, 7 0664 M '95 611 17 201 671 BIN WSETUP, BRANCH TO WRITE WITH 2 TO 4 MS DLY 5 0671 B 426 17 202 ORG 680 0680 203 680 NXDLY3 LCA CS200&6,DLY1&6 SET UP DELAY INSTR FOR 4 TO 12 MS DLY 7 0680 L /45 474 18 204 687 LCA ,, 1 0687 L 18 205 688 LCA ADLY3&6,NOP3&6 ,, 7 0688 L /66 522 18 206 695 LCA ,, 1 0695 L 18 207 696 LCA ,, 1 0696 L 18 208 697 MCW BXDL4,BNX&3 ,, 7 0697 M '99 611 18 209 704 BIN WSETUP, BRANCH TO WRITE WITH 4 TO 12 MS DLY 5 0704 B 426 18 210 ORG 720 0720 211 720 NXDLY4 MCW BBCE&4,NOP1&4 SET UP DELAY INSTR FOR 12 MS FIXED DL 7 0720 M /71 506 19 212 727 MCW BXDL5,BNX&3 ,, 7 0727 M /03 611 19 213 734 BIN WSETUP, BRANCH TO WRITE WITH 12 MS FIXED DLY 5 0734 B 426 19 214 ORG 740 0740 215 740 NXDLY5 LCA BU,DLY3&6 SET UP DELAY INSTR FOR 5 SEC FIXED DL 7 0740 L '79 488 20 216 747 LCA ,, 1 0747 L 20 217 748 LCA ,, 1 0748 L 20 218 749 LCA ,, 1 0749 L 20 219 750 SW DLY3&2 ,, 4 0750 , 484 20 220 754 MN BVARY&2,BCE1&6 ALTER INSTR IN 523 TO COUNT 10 GAPS 7 0754 D 540 529 20 221 761 MN BVARY&2,INCR&3 ALTER INSTR IN 523 TO SUBTR 100 FROM 7 0761 D 540 577 20 222 768 MCW BSETB,BNX&3 B ADDR OF TAPE WRITE INSTRUCTION 7 0768 M /07 611 21 223 775 BIN WSETUP, BRANCH TO WRITE WITH 5 SEC FIXED DLY 5 0775 B 426 21 224 ORG 791 0791 225 791 SETBSP LCA BWTW2&4,DLY2&4 SET UP INSTR TO BKSP REWRITE 7 0791 L 196 479 22 226 798 LCA ,, 1 0798 L 22 227 799 LCA ,, 1 0799 L 22 228 800 LCA ,, 1 0800 L 22 229 801 LCA BDLY1&4,NOP3&3 ,, 7 0801 L 132 519 22 230 808 LCA ,, 1 0808 L 22 231 809 LCA ,, 1 0809 L 22 232 810 MCW BWTM,BNX&3 ,, 7 0810 M /11 611 23 233 817 BIN WSETUP, BR TO BKSP-REWR SECOND RECORD OF PAIR 5 0817 B 426 23 234 ORG 830 0830 235 830 WTM WTM 4 WRITE TAPE MARK 5 0830 U %U4 M 24 236 835 RWD 4 REWIND 5 0835 U %U4 R 24 237 840 BIN NXPROG, BRANCH TO LOAD READ PROGRAM 5 0840 B 348 24 238 ORG 850 0850 239 850 MINSET LCA MCS&6,DLY3&6 SET UP INSTRUCTIONS FOR MINIMUM DELAY 7 0850 L 158 488 25 240 857 LCA MCS&6 ,, 4 0857 L 158 25 241 861 LCA ,, 1 0861 L 25 242 862 LCA ,, 1 0862 L 25 243 863 LCA ,, 1 0863 L 25 244 864 LCA NNOP&6,522 ,, 7 0864 L 172 522 25 245 871 LCA NNOP&6 ,, 4 0871 L 172 25 246 875 LCA ,, 1 0875 L 26 247 876 MN NOP1&5,BCE1&6 ,, 7 0876 D 507 529 26 1 IRG MEASUREMENT - WRITE PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 883 MN BWRITE&1,INCR&3 ,, 7 0883 D 582 577 26 249 890 MCW BXDL1,BNX&3 ,, 7 0890 M '87 611 26 250 897 BIN WSETUP, BRANCH TO BEGIN WRITING WITH MINIMUM 5 0897 B 426 26 251 ORG 1052 1052 252 1 052 MCW K5S,KXS CONSTANTS TO MODIFY DELAY INSTRUCTION 7 1052 M 104 109 27 253 1 059 A K5S,KXS ,, 7 1059 A 104 109 27 254 1 066 C K5S-4,KXS-2 ,, 7 1066 C 100 107 27 255 N0 ,, 2 1073 N 0 27 256 DC @B@ BU DLY1 1 1075 27 257 DC DLY1 3 1078 468 27 258 BU DC @/@ 1 1079 27 259 1 083 DC #4 4 1083 27 260 DCW @B@ 1 1084 27 261 1 084 BXDL1 DC NXDLY1 UNCONDITIONAL BRANCH INSTRUCTIONS 3 1087 620 27 262 DC @B@ 1 1088 27 263 1 091 BXDL2 DC NXDLY2 ,, 3 1091 650 28 264 DC @B@ 1 1092 28 265 1 095 BXDL3 DC NXDLY3 ,, 3 1095 680 28 266 DC @B@ 1 1096 28 267 1 099 BXDL4 DC NXDLY4 ,, 3 1099 720 28 268 DCW @B@ 1 1100 28 269 1 103 BXDL5 DC NXDLY5 ,, 3 1103 740 28 270 DC @B@ 1 1104 28 271 1 107 BSETB DC SETBSP ,, 3 1107 791 28 272 DC @B@ 1 1108 28 273 1 111 BWTM DC WTM FOR GROUPS 2 TO 7 3 1111 830 28 274 1 115 DC @ @ 4 1115 28 275 1 119 IRG DCW @IRG"@ SPACER RECORD TM IN /19 4 1119 28 276 1 120 BBER BER ERHND2 CONSTANTS TO MODIFY DELAY INSTR 5 1120 B 555 L 28 277 1 125 CMPR C BWTW2&7,BWTW2&7 ,, 7 1125 C 199 199 29 278 1 132 MCS 274,275 ,, 7 1132 Z 274 275 29 279 1 139 CS200 CS DLY2,200 ,, 7 1139 / 475 200 29 280 1 146 A K1001-3,DLY1&6 ,, 7 1146 A 082 474 29 281 1 153 A K1001,DLY2&6 ,, 7 1153 A 085 481 29 282 1 160 ADLY3 A K1001,DLY3&6 ,, 7 1160 A 085 488 30 283 1 167 BBCE BIN BCE1, ,, 5 1167 B 523 30 284 ORG 1180 1180 285 DCW #19 19 1198 31 286 ORG 82 0082 287 85 K1001 DCW 1001 CONSTANT 4 0085 32 288 88 GAPCT DCW @XXX@ GAP COUNTER 3 0088 32 289 91 K1240 DSA 1240 CONSTANT - B ADDR OF FIRST TAPE WR IN 3 0091 S40 32 290 94 KM10 DSA 3990 CONSTANT TO SUBTRACT 10 3 0094 I90 32 291 97 DSA 3900 CONSTANT TO SUBTRACT 100 3 0097 I00 32 292 104 K5S DCW 5000005 CONSTANTS 7 0104 32 293 109 KXS DCW @XXXXX@ ,, 5 0109 32 294 114 K1RM DCW @1' @ ,, 5 0114 33 295 115 BCE BCE1,KXS-4,1 CONSTANTS TO MODIFY DELAY INSTR 8 0115 B 523 105 1 33 296 123 BSP 4 ,, 5 0123 U %U4 B 33 297 128 BDLY1 BIN DLY1, ,, 5 0128 B 468 33 1 IRG MEASUREMENT - WRITE PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 133 BIN WTW2, ,, 5 0133 B 489 33 299 138 CS WTW2,200 ,, 7 0138 / 489 200 33 300 145 CS WTW2,279 ,, 7 0145 / 489 279 34 301 152 MCS MCS 199,200 ,, 7 0152 Z 199 200 34 302 159 NOP K1001-3,DLY0&6 ,, 7 0159 N 082 467 34 303 166 NNOP NOP 0,0 ,, 7 0166 N 000 000 34 304 173 N0 0 ,, 5 0173 N 000 0 34 305 178 MCW K1RM-3,KXS-3 ,, 7 0178 M 111 106 35 306 185 A K1001-2,KXS-3 ,, 7 0185 A 083 106 35 307 192 BWTW2 BIN WTW2, ,, 5 0192 B 489 35 308 ORG 1250 1250 309 1 250 GMWM DCW @"@ GROUP MARK IN S50 1 1250 36 310 * 311 * STUFF AT THE END. NOT IN ONE-FIELD-PER-CARD FORMAT 312 * LOOKS LIKE IT'S FOR AUTOMATICALLY FIGURING OUT WHETHER THE 313 * PROGRAM IS LOADED FROM TAPE. 314 * 315 ORG 19 0019 316 BEGIN BCE ONTAPE,TAPES2," GM AT TAPES2? 8 0019 B 031 T98 " 37 317 B START 4 0027 B 413 37 318 ONTAPE LCA BTAPE&4,TPTEST&3 7 0031 L 046 352 37 319 B 1604 4 0038 B W04 37 320 BTAPE B TAPERD 4 0042 B S88 37 321 EX BEGIN B 019 38 322 END / 000 080 1 IRG MEASUREMENT - WRITE PAGE 6 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ADD1 531 ADLY3 1160 BBCE 1167 BBER 1120 BCE1 523 BDLY1 128 BEGIN 19 BERT 497 BNX 608 BSETB 1107 BTAPE 42 BU 1079 BVARY 538 BWRITE 581 BWTM 1111 BWTW2 192 BXDL1 1087 BXDL2 1091 BXDL3 1095 BXDL4 1099 BXDL5 1103 CMPR 1125 CS200 1139 DLY0 461 DLY1 468 DLY2 475 DLY3 482 ERHND2 555 ERHND3 585 ERHNDL 550 GAPCT 88 GMWM 1250 HALT1 399 INCR 574 IRG 1119 K1001 85 K1240 91 K1RM 114 K5S 104 KM10 94 KXS 109 MCS 152 MINSET 850 NNOP 166 NOP1 502 NOP2 509 NOP3 516 NXDLY1 620 NXDLY2 650 NXDLY3 680 NXDLY4 720 NXDLY5 740 NXPROG 348 ONTAPE 31 RELOAD 340 SETBSP 791 START 413 TAPERD 1288 TAPES1 1268 TAPES2 1398 TITLPR 1200 TITLSW 1252 TPTEST 349 VARY 570 WRITE1 444 WSETUP 426 WTM 830 WTW1 448 WTW2 489 WTW3 595