*1000


RMTST,	JMS RMTSTS
	MOSTGO



/CALL RMTSTS
/TESTEN DES TESTER MEMORY MIT CHECKERBOARD UND INVERTIERTEM CHECKERBOARD



RMTSTS,	0
	CAM

	TAD RMSIZ2
	DCA RLSIZE
	TAD RMSIZ2
	DCA RRSIZE
	DCA RTFLG

RMSTRT,	CAM DST
	RMTADR

	SET
	TESTCL
	SET
	PDP8WL PDP8CF PDP8WR STROBE

RLLOP,	CLEAR
	TESTCL

	CAM DAD	/ERSTE ADRESSE =0;LETZTE ADRESSE=RMZISE
	RMTADR

	LOAD
	MEMADR

	TAD RMTEST
	LOAD
	LOW MEMDAT
	TAD RMTEST+1
	LOAD
	HIGH MEMDAT

	CLEAR
	PDP8WR

	SET
	PDP8WR

	CAM DAD
	RMTADR
	DCM
	DAD
RLSIZE,	0
	DPSZ
	SKP
	JMP RMTRED

	ISZ RMTADR
	SKP
	ISZ RMTADR+1
	JMP RLLOP

RMTRED,	SET
	TESTCL

	SET
	PDP8WL PDP8CF PDP8WR STROBE

	CLEAR
	TESTCL


	CAM DST
	RMTADR

RRLOP,	CAM DAD
	RMTADR

	LOAD
	MEMADR

	READ
	LOW MEMDAT
	MQL
	READ
	HIGH MEMDAT
	DST
	RTDATA		/MEMDATA IN TESTER-MEMORY

	DCM
	DAD
	RMTEST
	DPSZ
	JMP RTERR

RTDO,	CAM DAD
	RMTADR
	DCM
	DAD
RRSIZE,	0
	DPSZ
	SKP
	JMP RNTEST

	ISZ RMTADR
	SKP
	ISZ RMTADR+1
	JMP RRLOP

RNTEST,	TAD RTFLG
	SZA
	JMP I RMTSTS

	CAM DAD
	RMTEST
	SWP
	DST
	RMTEST
	CLA IAC
	DCA RTFLG
	JMP RMSTRT

RTERR,	CAM DAD
	RMTADR
	TOCT16
	TDC
	4240
	4257
	240
	DAD
	RTDATA
	TOCT16
	TDC
	4240
	4257
	240
	DAD
	RMTEST
	TOCT16
	JMP RTDO



RMTADR,	0;0
RMTEST,	252;125
RMSIZ2,	RMSIZE
RTFLG,	0
RTDATA,	0;0