*20
/TITLE:  DAN14
/NOVEMBER 12, 1970
/FIRST ROUTINE TO USE SYSTEM CLOCK
/DISPLAYS CROSS FOR THREE SECONDS
/AND THEN DISPLAYS EX FOR SIX.
/IS DERIVED FROM DAN10
DISCR,	CLR
	LDA I
	7000
	STC T36-4000
	JMP CLOCK
RFCR,	CLR
	SET I 14
	0377
	STC 15
	SNS 0
	JMP THERE
	SAM 2
	SCR 1
	STC VERT
	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
	IOB
	PMODE
	CLSK
	LMODE
	JMP .+2
	JMP DISX
	JMP RFCR
DISX,	CLR
	LDA I
	7004
	STC T36-4000
	JMP CLOCK
RFX,	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
	IOB
	PMODE
	CLSK
	LMODE
	JMP .+2
	JMP DISCR
	JMP RFX
AC,	-377
VERT,	0000
	*200
CLOCK,	CLR
	PDP
	PMODE
	CLEN
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD N3SEC
T36,	0000
	CLAB
	CLA
	TAD K200
	CLEN
	TAD K100
	CLEN
	TAD K5100
	CLLR
	LINC
	LMODE
	JMP 0
	PMODE
K100,	100
K200,	200
K5100,	5100
N3SEC,	-454