*20
	PDP
	PMODE           /TITLE:  DAN 4
	JMP I P200  	/THIS PROGRAM
P200,	0200       	/COMPLETES ASN
	PMODE       	/NO. 4.  IT
	*200
	CLA CLL   	/ROTATES A BIT
        IAC  		/THROUGH THE 
        DCA H           /ACCUMULATOR
DO,     CLL             /AT SPEEDS AND
	LAS             /DIRECTIONS SEL
	RAL             /ECTED BY THE
        JMS RL          /RIGHT CONSOLE
	CLL             /SWITCHES.  BIT0
	RAR             /CONTROLS DIRECT
	IAC             /ION AND THE 
	CIA             /OTHER SWITCHES
	DCA SW          /CONTROL SPEED 
AG,	CLA             /OF ROTATION.
        TAD D1
	DCA D3
O,      CLA
        TAD D1
        DCA D2
        TAD H
	ISZ D2
        JMP .-1
        ISZ D3
       	JMP O
        ISZ SW
        JMP AG
R1,	0000
	SZL
R2,     0000
	DCA H
	JMP DO
RL,	0000
	DCA SW
	SZL
        JMP LR
        TAD R
	DCA R1
	TAD R
        DCA R2
	TAD SW
	JMP I RL
LR,     TAD L
        DCA R1
        TAD L
        DCA R2
        TAD SW
        JMP I RL
R,	7010
SW,	0000
D1,	7725
D2,	0000
H,	0000
D3,	0000
L,	7004