*20
	CLR
	LIF 6
	JMP 20
	NDB=5
	SEG=2
	BN=0
/CLOCK INSTRUCTIONS:
	CLSK=6131
	CLLR=6132
	CLEN=6134
	CLSA=6135
	SEGMNT 6
	FIELD 1
	*20
	JMP .+5
	JMP START
	BN
	SEG
	NDB
	CLR 
	SET I 17
	3777
	LDF 4
	STA I 17
	LDF 5
	STA 17
	XSK 17
	JMP .-5
	SET I 17
	PRGEND-1
	STA I 17
	XSK 17
	JMP .-2
START,	SET I 16
	3777
	CLR
	ADD 22
	STA
	F1
	ADA I
	3000
	STC C1
	ADD 23
	STC H1
	LDA I
	2525
	STA
	ALT
	STC ALT2
	LDA I
	100
	ESF
	SNS I 0
	JMP DISP
CLKON,	PDP
	PMODE
	CLA
	CLAB
	CLLR
	TAD K100
	CLLR
	CLSA
	CLA
	TAD K1
	CLAB
	CLA
	TAD K300
	CLEN
	CLA
	TAD K1500
	CLLR
	JMP .+5
K1500,	1500
K300,	300
K100,	100
K1,	PRESET
	LINC
	LMODE
	CLR
	STC CLKOFF
	LDA I
	40
	ATR
	SET I 17
	PAUSE
	SET I 15
	0
	XSK I 15
	JMP .-1
	XSK I 17
	JMP .-3
DISP,	SET I 17
	1000
	SET 15
	16
	SAM 10
RDIS,	CLR
	LDF 4
	LDA 15
	SCR 4
	ADA I
	150
	DIS 17
	LDF 5
	LDA 15
	SCR 4
	ADA I
	-150
	DIS 17
	XSK I 15
	NOP
	IOB
	CLSK
	SKP
	JMP SAMP
	XSK I 17
	JMP RDIS
	SNS 0
	JMP TSTCLK
	SNS I 1
	JMP FOUR10
	SNS I 2
	JMP FOUR14
	LDA I
CLKOFF,	0		/CLOCK OFF?
	AZE
	JMP DISP	/YES
	CLR
	ATR
	IOB
	CLLR
	IOB
	CLEN
	IOB
	CLSA
	LDA I
	1
	STC CLKOFF
	JMP DISP
TSTCLK,	LDA
	CLKOFF
	AZE
	JMP CLKON
	JMP DISP	/YES
SAMP,	SET 1
	0
	IOB
	CLSA
	CLR
	SRO I
ALT,	2525
	JMP .+4
	LDF 5
	SAM 10
	JMP .+3
	LDF 4
	SAM 14
	ROL 1
	STA 16
	LDA
	16
	SRO I
ALT2,	2525
	JMP 1
	SAE I
	2000
	JMP .+3
	LDA I
	4000
	ADA I
	-1
	STC 16
	JMP 1
FOUR10,	CLR
	LDF 4
	JMP .+3
FOUR14,	CLR
	LDF 5
	SET I 1
	1777-NDB
	WRC I 10
C1,	3000
	SRO I
	2525
	JMP .+6
	LDA I
	1001
	ADM
	C1
	JMP .+5
	LDA I
	1005
	ADM
	C1
	XSK I 1
	JMP C1-1
	LDF 2
	RDC I 00
	4060
	LDA I
F1,	BN
	STA
	4022
	LDA I
H1,	SEG
	STA
	4023
	LIF 2
	LDF 3
	JMP 20
PRGEND,	0
	PAUSE=1777-20
	PRESET=7400