job FORMS SPACING 2000C ctl 6611 * tapes1 equ 1268 blank indicates the tape loader taperd equ 1288 tape read routine? tapes2 equ 1398 GM indicates the tape loader * org 82 87single dcw @SINGLE@ 93double dcw @DOUBLE@ 99triple dcw @TRIPLE@ 105k123 dcw @1 2 3 @ 111k321 dcw @3 2 1 @ 124before dcw @ SPACE BEFORE@ 136after dcw @ SPACE AFTER@ 151tested dcw @PRINT TESTED @ 152 dcw @END TEST@ 175errtyp dcw @ TYPE OF ERROR @ 180none dcw @NONE @ 181delay bce brnchs,count-4,2 189 a ten,count-1 196 bin delay, * * Stuff in the preamble -- not in one-field-per-card format * org 333 * * Set up for one-field-per-card format and begin loading * 333start sw 8,12 340reload sw 1 344 r 1 * * Look for next program -- A in column 80 * 348detail r 349tptest bce *&5,80,a 357bcont b cont 361 cs reload,80 368 dcw #1 org 377 377 bce switch,1255,1 385 b taperd 389switch nop 0 393 mcw bcont&3,switch&3 400 cs 332 404 cs 405 bce titlpr,titlsw,1 BR TO TITLE PRINT ROUTINE IF 1 IN S52 413 cs 80 CLEAR READ AREA 417 h cont 421cont cc 4 Start test 423 cs 299 427 w 428 chain6 434 cc J 436 bc9 m13 441 bcv m13 446w1 w 447 chain5 452repeat b *&1 456 cw b10 460 cw b9,b13 467 cw b8 471 cw b7,b12 478 cw b6 482 cw b5,b11 489 cw b4 493 cw b3 497 cw b2 501 cw b1 505 b skip7 509rep2 cs 299 513 nop 0,0 520b1 b m14 524b2 b m1 528b3 b m2 532b4 b m3 536b5 b m4 540b6 b m5 544b7 b m6 548b8 b m7 552b9 b m8 556b10 b m9 560 b m10 564back1 sw b1 568back2 sw b3 572back3 sw b5 576back4 sw b7 580back5 sw b9 584 mcw before,229 591 b skip1 595back6 sw b2 599back7 sw b4,b11 606back8 sw b6,b12 613back9 sw b8,b13 620back10 sw b10 624 mcw after,228 631skip1 mcw space,259 638 mcw tested 642 mcw errtyp-1,294 649back11 cc X 651 wm 653ccx cc X 655wm1 wm 657ccx2 cc X 659wm2 wm 661 cc Z 663 lca zero,count-1 670 nop delay 674brnchs nop 0,0 681b11 b skip2 685b12 b skip3 689b13 b skip4 693b14 b skip5 697skip2 a thirty,kount 704skip3 a ten,kount 711skip4 a ten,kount 718skip5 a ten,kount 725 bce skip6,kount-2,9 733 b back11 737skip6 mcw zero,kount 744 bcv m11 749 cc J 751 bcv ovfl1 756 b m12 760ovfl1 mcw ok,247 767 bss corrpr,C 772 ccb corrnp,J 777corrpr w 778corrnp cc J 780 cc J 782 cc J 784 cc J 786skip7 mcw nwm&1,wm2&1 793 mcw 794 mcw 795 mcw 796 mcw 797 mcw 798 b rep2 802 cc L 804 N) 806 cc K 808 N) 810ccj cc J 812 N) 814cck cc K 816 N) 818ccl cc L 820 cc T 822 wm 824 cc S 826 wm 828 cc / 830wm3 wm 832 cc S 834wm4 wm 836 cc T 838wm5 wm 840 NX 842 N) 844 NX 846 N) 848 NX 850nwm N) 855zero dcw @0000@ 859thirty dcw @0030@ 863ten dcw @0010@ 867kount dcw @0000@ 881space dcw @ SPACE TEST@ 882m1 mcw k321,216 889 mcw ccj&1,ccx2&1 896 mcw 897 mcw 898 mcw 899 mcw 900 b back1 904m2 mcw k321,216 911 mcw wm3&1,wm2&1 918 mcw 919 mcw 920 mcw 921 mcw 922 mcw 923 b back6 927m3 mcw k123,216 934 mcw ccl&1,wm2&1 941 mcw 942 mcw 943 mcw 944 mcw 945 b back2 949m4 mcw k123,216 956 mcw wm5&1,wm2&1 963 mcw 964 mcw 965 mcw 966 mcw 967 mcw 968 b back7 972m5 mcw triple,216 979 mcw ccl&1,ccx&1 986 b back3 990m6 mcw triple,216 997 mcw wm5&1,wm1&1 1004 mcw 1005 b back8 1009m7 mcw double,216 1016 mcw cck&1,ccx&1 1023 b back4 1027m8 mcw double,216 1034 mcw wm4&1,wm1&1 1041 mcw 1042 b back9 1046m9 mcw single,216 1053 mcw ccj&1,ccx&1 1060 b back5 1064m10 mcw single,216 1071 mcw wm3&1,wm1&1 1078 mcw 1079 b back10 1083m11 mcw w1,296 1090 bss errhlt,E 1095 bss cont,B 1100 w btest 1104errhlt h btest 1108m12 mcw k321-5,296 1115 bss errhl2,E 1120 bss cont,B 1125 w btest 1129errhl2 ./ 1131m13 mcw k123-5,296 1138 mcw errtyp 1142 bss errhl3,E 1147 bss cont,B 1152 w btest 1156errhl3 h btest 1160btest bss cont,B 1165 bss cont,D 1170 h detail 1174m14 mcw none-1,299 1181 mcw 1182 mcw 1183 bss repeat,D 1188 w 1189 h detail 1194OK dcw @OK@ 1199count dcw @0000 @ * * Title print routine. Notice that in the original format, * the title and ID are in CC 49-77 of the last card -- the one * that transfers control to the program. * titlsw equ 1252 1 to use title print routine hdrs equ 1120 All programs put headers in 1120-1199 titlex equ 413 All routines must return here after title * org 1200 1200titlpr w Print (space). 1201 sw 49 Set WM for Title and Block No. 1205 lca 77,277 Load Title and Block No. in Print Area. 1212 w Print Title and Block No. 1213 cs 277 Clear Print Area 1217 w Print (space). 1218 nop 0,0 1225 nop 0 1229 nop 0,0 1236 nop 1237 nop 0 1241 w titlex Print (space) and branch to main program. 1245 dcw #1 end start