*20
	*20
	PMODE		/TEST PROG
	TAD P301
	CDF 00
	CIF 10
	JMS PRINT
	CIF 10
P301,	301
	FIELD 1
	*20
NEXT,	TAD P302
	CDF 10
	JMS PRINT
	HLT
P302,	302
PRINT,	0
	TLS
	TSF
	JMP .-1
	CLA
	RDF
	TAD P6203
	DCA .+1
	000
	JMP I PRINT
P6203,	6203