JOB CTL 6611 * * Demo program. * 1. Copy cards to tape 4 * 2. Copy tape 4 to tape 6 * 3. Copy tape 6 to the printer * * Original only works on 4k system, and even then on systems on * which addresses wrap around at 4k -- subtracting ten from X3 is * done by adding 3990, not 15990. * core equ 4000 am6 equ core-6 For subtracting 6 from x3 am10 equ core-10 For subtracting 10 from x3 am13 equ core-13 For subtracting 13 from x3 * x3 equ 99 ORG 1 1 SW gm 5 B start 9 H 10 WTW 1,1 18 H 68 DCW @.0123456789012345678901234567890123456789012345678@ 80 DC @901234567890@ 86 dc @ @ 91 DCW #5 96 DCW #5 99 dsa cp46e 149 DC @ @ 199 DC @ @ 249 DC @ 6789012345678901234567890123456789012345678901234@ 280 DC @5678901234567890123456789012345@ * * Copy cards to tape 4 * ORG 401 401start B r1 405errtst BER taperr 410 BEF wtm1 415 BLC wtm1 420 SRF 421mvcard MCW 80,svcard 428 WT 4,buf 436 B r2 440taperr BSP 4 445 BEF wtm1 450 SKP 4 455 WT 4,buf 463 BER taperr 468 B mvcard 472wtmerr BSP 4 477wtm1 WTM 4 482 BER wtmerr 487 WTM 4 492 RWD 4 497 B cp46 520 DCW #20 521r1 R 522 SSB mvcard,1 527r2 R 528 SSB errtst,1 * * Copy tape 6 to the printer * ORG 601 601print6 RT 6,buf 609 BER tperr 614 BEF fin 619 MCW svcard,280 626 W print6 630fin CC 1 632 RWU 6 637 H 638 BIN print6, * * Copy tape 4 to tape 6 * ORG 701 701cp46 RT 4,buf 709 BER tperr 714 BEF wtm2 719 WT 6,buf 727 BER tperr 732cp46e BEF wtm2 737 B cp46 741wtm2 WTM 6 746 BER tperr2 751 WTM 6 756 BER tperr2 761 RWU 4 766 RWD 6 771 B print6 org 801 buf equ *&1 850 DCW @67890123456789012345678901234567890123456789012345@ 880svcard DC @678901234567890123456789012345@ 881gm dc @}@ * * Tape error routine * org 901 901tperr SBR x3 905 NOP 0,0 912 SW bsp&3,skp&3 919 MCW am10&X3,bsp&3 Move unit number to BSP 926 MCW am10&X3,skp&3 and SKP 933 CW bsp&3,skp&3 940bsp BSP 6 945 BCE *&6,am6&X3,R Do not SKP if reading 953skp SKP 6 958 B am13&X3 962 DCW 13 * * Another tape error routine * * Either there is an error in transcription, or this code has * never been executed, or addressing works differently from * expected -- blank with AB zone in the tens digit of an address * is apparently interpreted to be zero with X3 selected. Also, * subtracting 996 from X3 appears to be nonsense. * 964tperr2 SBR x3 968 S 996,x3 981 DCW @M0&3988@ 982 BSP 0 991 DCW @B0&0 @ ORG 994 994 DCW 10 * * Write the program on tape 1 * dcw @}@ load lca index,80 lca link,19 chain5 b 10 sw gm b start h wtw 1,1 h link h dcw @1234567890123456789012345678901234567890@ index dc @1234567890123456789012345678901234567890@ END load