KTURBO=6407
	TTURBO=6417
	KSF2=6401
*0
INT,	0
	KSF2
	HLT 	/ NO KEYBOARD INTERRUPT!
INT2,
	CLA CLL
	KTURBO 
	JMP INTEX / NO DATA AVAILABLE, EXIT INTERRUPT
	TTURBO
	JMP .-1
	CMA
	TTURBO
	JMP .-1
	JMP INT2

INTEX,	ION
	TAD K3333
	JMP I INT

K3333,  3333

XSTART,	START
		
*200
	
START,	
	CLA CLL
	6110
	6120
	6140
	6270
	6270
	6270
	6470
	6470
	6470
	6441
	6442
	6444
	HLT	
	CAF	
L1,	KSF2	/ READ EVERYTHING THAT COULD BE READ
	JMP S2
	KTURBO
	HLT
	JMP L1	

S2,	CLA CLL
	ION
	TAD K2222
	JMP .

K2222,	2222	


*7700   JMP I XSTART

*400		/ SEND OUT SWITCH REGISTER AND HALT
KEY,	LAS
	TTURBO
	JMP .-1
	HLT
	JMP KEY
	
*500
DISP,	CLA CLL
D2,	KSF2
	JMP .-1
	6406
	JMP D2

$