BOOTSTRAP NO CLEAR ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 FORMS SPACING 2000C PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORMS SPACING 102 CTL 6611 103 * 104 TAPES1 EQU 1268 BLANK INDICATES THE TAPE LOADER 1268 105 TAPERD EQU 1288 TAPE READ ROUTINE? 1288 106 TAPES2 EQU 1398 GM INDICATES THE TAPE LOADER 1398 107 * 108 ORG 82 0082 109 87 SINGLE DCW @SINGLE@ 6 0087 4 110 93 DOUBLE DCW @DOUBLE@ 6 0093 4 111 99 TRIPLE DCW @TRIPLE@ 6 0099 4 112 105 K123 DCW @1 2 3 @ 6 0105 4 113 111 K321 DCW @3 2 1 @ 6 0111 4 114 124 BEFORE DCW @ SPACE BEFORE@ 13 0124 5 115 136 AFTER DCW @ SPACE AFTER@ 12 0136 5 116 151 TESTED DCW @PRINT TESTED @ 15 0151 6 117 152 DCW @END TEST@ 8 0159 6 118 175 ERRTYP DCW @ TYPE OF ERROR @ 16 0175 6 119 180 NONE DCW @NONE @ 5 0180 7 120 181 DELAY BCE BRNCHS,COUNT-4,2 8 0181 B 674 /95 2 7 121 189 A TEN,COUNT-1 7 0189 A 863 /98 7 122 196 BIN DELAY, 5 0196 B 181 7 123 * 124 * STUFF IN THE PREAMBLE -- NOT IN ONE-FIELD-PER-CARD FORMAT 125 * 126 ORG 333 0333 127 * 128 * SET UP FOR ONE-FIELD-PER-CARD FORMAT AND BEGIN LOADING 129 * 130 333 START SW 8,12 7 0333 , 008 012 8 131 340 RELOAD SW 1 4 0340 , 001 8 132 344 R 1 4 0344 1 001 8 133 * 134 * LOOK FOR NEXT PROGRAM -- A IN COLUMN 80 135 * 136 348 DETAIL R 1 0348 1 8 137 349 TPTEST BCE *&5,80,A 8 0349 B 361 080 A 8 138 357 BCONT B CONT 4 0357 B 421 8 139 361 CS RELOAD,80 7 0361 / 340 080 8 140 368 DCW #1 1 0368 9 141 ORG 377 0377 142 377 BCE SWITCH,1255,1 8 0377 B 389 S55 1 10 143 385 B TAPERD 4 0385 B S88 10 144 389 SWITCH NOP 0 4 0389 N 000 10 145 393 MCW BCONT&3,SWITCH&3 7 0393 M 360 392 10 146 400 CS 332 4 0400 / 332 10 147 404 CS 1 0404 / 10 1 FORMS SPACING 2000C PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 405 BCE TITLPR,TITLSW,1 BR TO TITLE PRINT ROUTINE IF 1 IN S 8 0405 B S00 S52 1 10 149 413 CS 80 CLEAR READ AREA 4 0413 / 080 11 150 417 H CONT 4 0417 . 421 11 151 421 CONT CC 4 START TEST 2 0421 F 4 11 152 423 CS 299 4 0423 / 299 11 153 427 W 1 0427 2 11 154 428 CHAIN 6 MACRO 155 W 1 0428 2 GEN 11 156 W 1 0429 2 GEN 11 157 W 1 0430 2 GEN 12 158 W 1 0431 2 GEN 12 159 W 1 0432 2 GEN 12 160 W 1 0433 2 GEN 12 161 434 CC J 2 0434 F J 12 162 436 BC9 M13 5 0436 B /31 9 12 163 441 BCV M13 5 0441 B /31 @ 12 164 446 W1 W 1 0446 2 13 165 447 CHAIN 5 MACRO 166 W 1 0447 2 GEN 13 167 W 1 0448 2 GEN 13 168 W 1 0449 2 GEN 13 169 W 1 0450 2 GEN 13 170 W 1 0451 2 GEN 13 171 452 REPEAT B *&1 4 0452 B 456 13 172 456 CW B10 4 0456 ) 556 14 173 460 CW B9,B13 7 0460 ) 552 689 14 174 467 CW B8 4 0467 ) 548 14 175 471 CW B7,B12 7 0471 ) 544 685 14 176 478 CW B6 4 0478 ) 540 14 177 482 CW B5,B11 7 0482 ) 536 681 14 178 489 CW B4 4 0489 ) 532 14 179 493 CW B3 4 0493 ) 528 15 180 497 CW B2 4 0497 ) 524 15 181 501 CW B1 4 0501 ) 520 15 182 505 B SKIP7 4 0505 B 786 15 183 509 REP2 CS 299 4 0509 / 299 15 184 513 NOP 0,0 7 0513 N 000 000 15 185 520 B1 B M14 4 0520 B /74 15 186 524 B2 B M1 4 0524 B 882 16 187 528 B3 B M2 4 0528 B 904 16 188 532 B4 B M3 4 0532 B 927 16 189 536 B5 B M4 4 0536 B 949 16 190 540 B6 B M5 4 0540 B 972 16 191 544 B7 B M6 4 0544 B 990 16 192 548 B8 B M7 4 0548 B '09 16 193 552 B9 B M8 4 0552 B '27 17 194 556 B10 B M9 4 0556 B '46 17 195 560 B M10 4 0560 B '64 17 196 564 BACK1 SW B1 4 0564 , 520 17 197 568 BACK2 SW B3 4 0568 , 528 17 1 FORMS SPACING 2000C PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 572 BACK3 SW B5 4 0572 , 536 17 199 576 BACK4 SW B7 4 0576 , 544 17 200 580 BACK5 SW B9 4 0580 , 552 18 201 584 MCW BEFORE,229 7 0584 M 124 229 18 202 591 B SKIP1 4 0591 B 631 18 203 595 BACK6 SW B2 4 0595 , 524 18 204 599 BACK7 SW B4,B11 7 0599 , 532 681 18 205 606 BACK8 SW B6,B12 7 0606 , 540 685 18 206 613 BACK9 SW B8,B13 7 0613 , 548 689 19 207 620 BACK10 SW B10 4 0620 , 556 19 208 624 MCW AFTER,228 7 0624 M 136 228 19 209 631 SKIP1 MCW SPACE,259 7 0631 M 881 259 19 210 638 MCW TESTED 4 0638 M 151 19 211 642 MCW ERRTYP-1,294 7 0642 M 174 294 19 212 649 BACK11 CC X 2 0649 F X 19 213 651 WM 2 0651 2 ) 20 214 653 CCX CC X 2 0653 F X 20 215 655 WM1 WM 2 0655 2 ) 20 216 657 CCX2 CC X 2 0657 F X 20 217 659 WM2 WM 2 0659 2 ) 20 218 661 CC Z 2 0661 F Z 20 219 663 LCA ZERO,COUNT-1 7 0663 L 855 /98 20 220 670 NOP DELAY 4 0670 N 181 21 221 674 BRNCHS NOP 0,0 7 0674 N 000 000 21 222 681 B11 B SKIP2 4 0681 B 697 21 223 685 B12 B SKIP3 4 0685 B 704 21 224 689 B13 B SKIP4 4 0689 B 711 21 225 693 B14 B SKIP5 4 0693 B 718 21 226 697 SKIP2 A THIRTY,KOUNT 7 0697 A 859 867 21 227 704 SKIP3 A TEN,KOUNT 7 0704 A 863 867 22 228 711 SKIP4 A TEN,KOUNT 7 0711 A 863 867 22 229 718 SKIP5 A TEN,KOUNT 7 0718 A 863 867 22 230 725 BCE SKIP6,KOUNT-2,9 8 0725 B 737 865 9 22 231 733 B BACK11 4 0733 B 649 22 232 737 SKIP6 MCW ZERO,KOUNT 7 0737 M 855 867 23 233 744 BCV M11 5 0744 B '83 @ 23 234 749 CC J 2 0749 F J 23 235 751 BCV OVFL1 5 0751 B 760 @ 23 236 756 B M12 4 0756 B /08 23 237 760 OVFL1 MCW OK,247 7 0760 M /94 247 23 238 767 BSS CORRPR,C 5 0767 B 777 C 23 239 772 CCB CORRNP,J 5 0772 F 778 J 24 240 777 CORRPR W 1 0777 2 24 241 778 CORRNP CC J 2 0778 F J 24 242 780 CC J 2 0780 F J 24 243 782 CC J 2 0782 F J 24 244 784 CC J 2 0784 F J 24 245 786 SKIP7 MCW NWM&1,WM2&1 7 0786 M 851 660 24 246 793 MCW 1 0793 M 25 247 794 MCW 1 0794 M 25 1 FORMS SPACING 2000C PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 248 795 MCW 1 0795 M 25 249 796 MCW 1 0796 M 25 250 797 MCW 1 0797 M 25 251 798 B REP2 4 0798 B 509 25 252 802 CC L 2 0802 F L 25 253 804 N) 2 0804 N ) 26 254 806 CC K 2 0806 F K 26 255 808 N) 2 0808 N ) 26 256 810 CCJ CC J 2 0810 F J 26 257 812 N) 2 0812 N ) 26 258 814 CCK CC K 2 0814 F K 26 259 816 N) 2 0816 N ) 26 260 818 CCL CC L 2 0818 F L 27 261 820 CC T 2 0820 F T 27 262 822 WM 2 0822 2 ) 27 263 824 CC S 2 0824 F S 27 264 826 WM 2 0826 2 ) 27 265 828 CC / 2 0828 F / 27 266 830 WM3 WM 2 0830 2 ) 27 267 832 CC S 2 0832 F S 28 268 834 WM4 WM 2 0834 2 ) 28 269 836 CC T 2 0836 F T 28 270 838 WM5 WM 2 0838 2 ) 28 271 840 NX 2 0840 N X 28 272 842 N) 2 0842 N ) 28 273 844 NX 2 0844 N X 28 274 846 N) 2 0846 N ) 29 275 848 NX 2 0848 N X 29 276 850 NWM N) 2 0850 N ) 29 277 855 ZERO DCW @0000@ 4 0855 29 278 859 THIRTY DCW @0030@ 4 0859 29 279 863 TEN DCW @0010@ 4 0863 29 280 867 KOUNT DCW @0000@ 4 0867 29 281 881 SPACE DCW @ SPACE TEST@ 14 0881 30 282 882 M1 MCW K321,216 7 0882 M 111 216 30 283 889 MCW CCJ&1,CCX2&1 7 0889 M 811 658 30 284 896 MCW 1 0896 M 30 285 897 MCW 1 0897 M 30 286 898 MCW 1 0898 M 30 287 899 MCW 1 0899 M 30 288 900 B BACK1 4 0900 B 564 31 289 904 M2 MCW K321,216 7 0904 M 111 216 31 290 911 MCW WM3&1,WM2&1 7 0911 M 831 660 31 291 918 MCW 1 0918 M 31 292 919 MCW 1 0919 M 31 293 920 MCW 1 0920 M 31 294 921 MCW 1 0921 M 31 295 922 MCW 1 0922 M 32 296 923 B BACK6 4 0923 B 595 32 297 927 M3 MCW K123,216 7 0927 M 105 216 32 1 FORMS SPACING 2000C PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 298 934 MCW CCL&1,WM2&1 7 0934 M 819 660 32 299 941 MCW 1 0941 M 32 300 942 MCW 1 0942 M 32 301 943 MCW 1 0943 M 32 302 944 MCW 1 0944 M 33 303 945 B BACK2 4 0945 B 568 33 304 949 M4 MCW K123,216 7 0949 M 105 216 33 305 956 MCW WM5&1,WM2&1 7 0956 M 839 660 33 306 963 MCW 1 0963 M 33 307 964 MCW 1 0964 M 33 308 965 MCW 1 0965 M 33 309 966 MCW 1 0966 M 34 310 967 MCW 1 0967 M 34 311 968 B BACK7 4 0968 B 599 34 312 972 M5 MCW TRIPLE,216 7 0972 M 099 216 34 313 979 MCW CCL&1,CCX&1 7 0979 M 819 654 34 314 986 B BACK3 4 0986 B 572 34 315 990 M6 MCW TRIPLE,216 7 0990 M 099 216 34 316 997 MCW WM5&1,WM1&1 7 0997 M 839 656 35 317 1 004 MCW 1 1004 M 35 318 1 005 B BACK8 4 1005 B 606 35 319 1 009 M7 MCW DOUBLE,216 7 1009 M 093 216 35 320 1 016 MCW CCK&1,CCX&1 7 1016 M 815 654 35 321 1 023 B BACK4 4 1023 B 576 35 322 1 027 M8 MCW DOUBLE,216 7 1027 M 093 216 35 323 1 034 MCW WM4&1,WM1&1 7 1034 M 835 656 36 324 1 041 MCW 1 1041 M 36 325 1 042 B BACK9 4 1042 B 613 36 326 1 046 M9 MCW SINGLE,216 7 1046 M 087 216 36 327 1 053 MCW CCJ&1,CCX&1 7 1053 M 811 654 36 328 1 060 B BACK5 4 1060 B 580 36 329 1 064 M10 MCW SINGLE,216 7 1064 M 087 216 36 330 1 071 MCW WM3&1,WM1&1 7 1071 M 831 656 37 331 1 078 MCW 1 1078 M 37 332 1 079 B BACK10 4 1079 B 620 37 333 1 083 M11 MCW W1,296 7 1083 M 446 296 37 334 1 090 BSS ERRHLT,E 5 1090 B /04 E 37 335 1 095 BSS CONT,B 5 1095 B 421 B 37 336 1 100 W BTEST 4 1100 2 /60 37 337 1 104 ERRHLT H BTEST 4 1104 . /60 38 338 1 108 M12 MCW K321-5,296 7 1108 M 106 296 38 339 1 115 BSS ERRHL2,E 5 1115 B /29 E 38 340 1 120 BSS CONT,B 5 1120 B 421 B 38 341 1 125 W BTEST 4 1125 2 /60 38 342 1 129 ERRHL2 ./ 2 1129 . / 38 343 1 131 M13 MCW K123-5,296 7 1131 M 100 296 38 344 1 138 MCW ERRTYP 4 1138 M 175 39 345 1 142 BSS ERRHL3,E 5 1142 B /56 E 39 346 1 147 BSS CONT,B 5 1147 B 421 B 39 347 1 152 W BTEST 4 1152 2 /60 39 1 FORMS SPACING 2000C PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 348 1 156 ERRHL3 H BTEST 4 1156 . /60 39 349 1 160 BTEST BSS CONT,B 5 1160 B 421 B 39 350 1 165 BSS CONT,D 5 1165 B 421 D 39 351 1 170 H DETAIL 4 1170 . 348 40 352 1 174 M14 MCW NONE-1,299 7 1174 M 179 299 40 353 1 181 MCW 1 1181 M 40 354 1 182 MCW 1 1182 M 40 355 1 183 BSS REPEAT,D 5 1183 B 452 D 40 356 1 188 W 1 1188 2 40 357 1 189 H DETAIL 4 1189 . 348 40 358 1 194 OK DCW @OK@ 2 1194 41 359 1 199 COUNT DCW @0000 @ 5 1199 41 360 * 361 * TITLE PRINT ROUTINE. NOTICE THAT IN THE ORIGINAL FORMAT, 362 * THE TITLE AND ID ARE IN CC 49-77 OF THE LAST CARD -- THE ONE 363 * THAT TRANSFERS CONTROL TO THE PROGRAM. 364 * 365 TITLSW EQU 1252 1 TO USE TITLE PRINT ROUTINE 1252 366 HDRS EQU 1120 ALL PROGRAMS PUT HEADERS IN 1120-1199 1120 367 TITLEX EQU 413 ALL ROUTINES MUST RETURN HERE AFTER TITLE 0413 368 * 369 ORG 1200 1200 370 1 200 TITLPR W PRINT (SPACE). 1 1200 2 41 371 1 201 SW 49 SET WM FOR TITLE AND BLOCK NO. 4 1201 , 049 41 372 1 205 LCA 77,277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 7 1205 L 077 277 41 373 1 212 W PRINT TITLE AND BLOCK NO. 1 1212 2 41 374 1 213 CS 277 CLEAR PRINT AREA 4 1213 / 277 41 375 1 217 W PRINT (SPACE). 1 1217 2 42 376 1 218 NOP 0,0 7 1218 N 000 000 42 377 1 225 NOP 0 4 1225 N 000 42 378 1 229 NOP 0,0 7 1229 N 000 000 42 379 1 236 NOP 1 1236 N 42 380 1 237 NOP 0 4 1237 N 000 42 381 1 241 W TITLEX PRINT (SPACE) AND BRANCH TO MAIN PROGRA 4 1241 2 413 42 382 1 245 DCW #1 1 1245 43 383 END START / 333 080 1 FORMS SPACING 2000C PAGE 7 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AFTER 136 B1 520 B10 556 B11 681 B12 685 B13 689 B14 693 B2 524 B3 528 B4 532 B5 536 B6 540 B7 544 B8 548 B9 552 BACK1 564 BACK10 620 BACK11 649 BACK2 568 BACK3 572 BACK4 576 BACK5 580 BACK6 595 BACK7 599 BACK8 606 BACK9 613 BCONT 357 BEFORE 124 BRNCHS 674 BTEST 1160 CCJ 810 CCK 814 CCL 818 CCX 653 CCX2 657 CONT 421 CORRNP 778 CORRPR 777 COUNT 1199 DELAY 181 DETAIL 348 DOUBLE 93 ERRHL2 1129 ERRHL3 1156 ERRHLT 1104 ERRTYP 175 HDRS 1120 K123 105 K321 111 KOUNT 867 M1 882 M10 1064 M11 1083 M12 1108 M13 1131 M14 1174 M2 904 M3 927 M4 949 M5 972 M6 990 M7 1009 M8 1027 M9 1046 NONE 180 NWM 850 OK 1194 OVFL1 760 RELOAD 340 REP2 509 REPEAT 452 SINGLE 87 SKIP1 631 SKIP2 697 SKIP3 704 SKIP4 711 SKIP5 718 SKIP6 737 SKIP7 786 SPACE 881 START 333 SWITCH 389 TAPERD 1288 TAPES1 1268 TAPES2 1398 TEN 863 TESTED 151 THIRTY 859 TITLEX 413 TITLPR 1200 TITLSW 1252 TPTEST 349 TRIPLE 99 W1 446 WM1 655 WM2 659 WM3 830 WM4 834 WM5 838 ZERO 855