/ TEST-PROGRAMM
	*10
IR1,	0
	*3000
	CLA
	TLS
	TAD CHAR
	DCA IR1
	TAD M15
	DCA CNT
NEXT,	TAD I IR1
	JMS TYPE
	ISZ CNT
	JMP NEXT
	HLT
TYPE,	0
	TSF
	JMP .-1
	TLS
	CLA
	JMP I TYPE
CHAR,	310;301;314;314;317;240
	313;314;301;325;323;240;241;215;212
M15,	-15
CNT,	0
	$