138

CHECKERS MACRC
UPDATE -- B, PITTS

PAGE
UPDATE IS CALLED ONLY [P-]
REGISTERS U1, U2, AND I,
THE BIT CORRESPONDING TO [T-]
EITHER 4, 5, -4, OR -5, [U-]
THE DIRECTION OF THE MOVE,
UPDATE TO RESTORE THE MOVE
MULTIPLE JUMPS, REGISTERS
THE CURRENT BOARD POSITION

046566 350017 000000 cUPDATE: AOS (PDP)
046567 250600 000015 c EXCH A,P
046570 612700 00002 c TRDA I,300
046571 664540 000300 c TROA I,300
046572 602200 400000 c TRNE U2,400000
046573 664540 000200 c TROA I,200
046574 660540 000100 c TRO I,100
046575 630640 000002 c TDZ P, U1
046576 630700 000002 c TDZ K,U1
046577 242104 000000 c LSH U1,(U2)
046600 630700 000002 c TDZ K, U1
046601 632600 000002 c TDZE A,U1
046602 664540 000020 c TROA I,20
046603 254000 046605' c JRST ,+2
046604 242104 000000 c LSH U1,(U2)
046605 670640 000002 c TDO P,U1
046606 640540 000300 c TRC i,300
046607 616100 0047050' c TDNN U1,KINGSQ
046610 254000 046613' c JRST ,+3
046611 622040 000300 c TRZE 1,300
046612 620540 000020 c TRZ I,20
046613 606540 000200 c TRNN I,300
046614 670700 000002 c TDO, K, U1
046615 606540 000020 c TRNN I,20
046616 263740 000000 c POPJ PDP,
046617 640540 000300 c TRC I, 300
046620 336445 046316' c SKIPN MJ,MJW(X3)
046621 254000 046624' c JRST ,+3
046622 606540 000040 c TRNN i, 40
046623 254000 0470024' c JRST MJPF
046624 200000 000002 cDEEPER: MOVE Z U2
046625 403300 000010 c SETZB U3,U4
046626 606540 000200 c TRNN I,200
046627 254000 046637' c JRST ,+10
046630 242000 777774 c LSH Z, -4
046631 200300 000000 c MOVE U3,Z
[arrow point at last c T[-]]