*20
/TITLE:  DAN10
/OCTOBER 27, 1970
/DISPLAYS A CROSS IF SENSE SWITCH
/ZERO IS ON, LINES ON SEPERATE CHANNELS
/LINES ARE MOVED BY LEFT AND RIGHT
/SWITCHES.  IF SWITCH THREE IS ON,
/LINES ARE MOVED BY ANALOG POTS
/TWO AND SIX.
/PROGRAM DISPLAYS AN UNMOVEABLE
/X IF SWITCH 1 IS ON, LINES ON SEPERATE
/CHANNELS.  BOTH DISPLAYS OCCUR
/SIMULTANEOUSLY IF BOTH ZERO AND ONE
/ARE ON.  COMPLETES EIGHTH LAB ASNMT.
START,	SNS 0
	JMP EX-2
	CLR
	SET I 14
	0377
	STC 15
	SNS 2
	JMP THERE
	SAM 2
	SCR 1
	STC VERT
	CLR
	SAM 6
	SCR 1
	ADM
	14
	JMP HERE
THERE,	RSW
	APO
	COM
	ADM
	14
	LSW
	APO
	COM
	STC VERT
HERE,	LDA
	14
	BSE I
	4000
	STC 14
	ADD AC
	DIS 14
	ADA I
	0001
	SAE I
	377
	JMP .-5
	CLR
	STC 17
	SET I 13
	-777
	ADD VERT
	DIS I 17
	XSK I 13
	JMP .-2
	SNS 1
	JMP START
EX,	CLR
	SET I 17
	4000
	SET I 16
	-377
	SET I 15
	0000
	SET I 14
	0377
	SET I 13
	-777
	CLR
	ADD 16
	DIS I 17
	ADA I
	0001
	XSK I 13
	JMP .-4
	SET I 13
	-777
	CLR
	ADD 14
	DIS I 15
	ADA I
	-1
	XSK I 13
	JMP .-4
	JMP START
AC,	-377
VERT,	0000
	0000
/DIAL LOADER
	LMODE
	*400
	LDA I
	RCG
	STC 16
	LDA I
	7300
	STC 17
	JMP 16
	0000