/KEYBOARD TESTER
/
/A SPECIAL KEYBOARD TESTER FOR CIS PRODUCTION.
/IT USES AN IPT-8 TO TEST A KEYBOARD INTERFACE.
/
/W.S.S.
/
/
	*20
WORD,0
TEMP,	0
TEMP2,	0
K177,	177
K3777,	3777
K4000,	4000
K7577,	7577
/
	EJECT
/
/IOT 1 AND 6 TEST
/
	*200
START,	DCA	WORD
LP,	TAD	WORD
	JMS	SEND
	6101
	HLT
	6106
	DCA	TEMP2
	TAD	TEMP
	AND	K7577
	TAD	TEMP2
	IAC
	SZA CLA
	HLT
	6101
	SKP
	HLT
	ISZ	WORD
	JMP	LP
	JMP	ST2
	EJECT
/
/IOT 0 AD 4 TEST
/
	*240
ST2,	TAD	WORD
	JMS	SEND
	6101
	HLT
	6104
	DCA	TEMP2
	TAD	TEMP2
	TAD	TEMP
	IAC
	SZA CLA
	HLT
	6101
	HLT
	6100
	6101
	SKP
	HLT
	ISZ	WORD
	JMP	ST2
	JMP	TST3
	EJECT
/
/IOT5 TEST
/
	*300
TST3,	TAD	WORD
	JMS	SEND
	6101
	HLT
	SRQ
	HLT
	6105
	SRQ
	SKP
	HLT
	IAC
	6105
	SRQ
	HLT
	6100
	6101
	SKP
	HLT
	CLA
	ISZ	WORD
	JMP	TST3
	JMP	START
	EJECT
/
/SEND SUBROUTINE
/
	*400
SEND,	0
	AND	K177
	CMA
	DCA	TEMP
	TAD	TEMP
	6166
	TAD	TEMP
	AND	K3777
	6166
	TAD	K4000
	6166
	JMP I	SEND
$