/HAUPTPROGRAMM  MCS6500-TEST
/***************************

BUFBOT=176
BUFTOP=214

RMTST,	RMTEST
	MOSTGO

MTST1,	JMS PTST1
	MOSTGO



/TEST 1

PTST1,	0
	CLA
	TAD (1
	DCA TSTNUM

	INIT
	
	RMLOAD
	0
	0
	377
	0
	2000
	1

	RMLOAD
	0
	177
	177
	177
	2400
	1

	CLEAR
	PDP8CF

	SET
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
	ISZ DELAY
	JMP .-1

	CLEAR
	READY

	RMCHEK
	BUFBOT&377
	BUFBOT%400
	BUFTOP&377
	BUFTOP%400
	6000
	1
	TSNMPR
	JMP I PTST1







/CALL TSNMPR
/AUSDRUCK DES FEHLERHAFTEN TESTS

TSNMPR,	0
	LINE
	TDC
	"T+4000
	"E+4000
	"S+4000
	"T+4000
	240

	TAD TSTNUM
	TOCT
	LINE
	LINE
	JMP I TSNMPR


DELAY,	0
TSTNUM,	0