*1000

/CALL RMCHEK     PRUEFEN UND BEI GLEICHHEIT SKIP
/1. ARGUMENT:   ANFANGSADR. LOW TESTER-MEMORY 8 BIT
/2. ARGUMENT:   ANFANGSADR. HIGH TESTER MEMORY 8 BIT
/3. ARGUMENT:   ENDADR. LOW TESTER-MEMORY 8 BIT
/4. ARGUMENT:   ENDADR. HIGH TESTER MEMORY 8 BIT
/5. ARGUMENT:   ANFANGSADR. LOW PDP8 12 BIT
/6. ARGUMENT:   ANFANGSADR. HIGH PDP8 3 BIT
/7. ARGUMENT:   ARGUMENT FUER UNGLEICH
RMCHEK,	0
	CAM
	TAD I RMCHEK
	ISZ RMCHEK
	MQL
	TAD I RMCHEK
	ISZ RMCHEK
	DST
	RSRBOT		/RAM SOURCE BOT

	CAM
	TAD I RMCHEK
	ISZ RMCHEK
	MQL
	TAD I RMCHEK
	ISZ RMCHEK
	DST
	RSRTOP		/RAM SOURCE TOP

	CAM DAD
	RSRTOP
	DPIC
	DCM
	DAD
	RSRBOT
	DST
	RLOCCT		/LOCATIONCOUNTER

	CAM
	TAD I RMCHEK
	ISZ RMCHEK
	DCA RSRLOW		/PDP8 DESTINATION LOW

	TAD I RMCHEK
	ISZ RMCHEK
	AND N0003
	RAL CLL
	RTL
	TAD RMDEHI		/PDP8 DESTINATION HIGH
	DCA RMCDF5

	SET
	TESTCL

	SET
	PDP8WL PDP8CF PDP8WR STROBE

	CLEAR
	TESTCL

CHEKLP,	DAD
	RSRBOT
	SWP

	LOAD
	LOW MEMADR

	MQA

	LOAD
	HIGH MEMADR

	READ
	LOW MEMDAT

	MQL

	READ
	HIGH MEMDAT

	DST
	RMDAT		/MEMDATEN IN TESTER MEMORY
	CAM

RMCDF5,	0
	TAD I RSRLOW
	CDF 0
	AND N377
	MQL
	ISZ RSRLOW
	CLA		/TAD I RSRLOW FUER 16 BIT
	NOP		/ISZ RSRLOW FUER 16 BIR

	DST
	PDP8DA		/MEMDATEN IN PDP8

	CAM DAD
	RMDAT
	DCM
	DAD
	PDPDAT
	DPSZ
	JMP RMERR

RMDO,	ISZ RSRBOT
	SKP
	ISZ RSRBOT

	ISZ RLOCCT
	SKP
	ISZ RLOCCT+1
	JMP RMCHEK

RMERR,	CAM DAD
	RSRBOT
	TOCT
	SWP
	TOCT
	TDC
	4240
	4317
	240
	DAD
	RMDAT
	TOCT
	SWP
	TOCT
	TDC
	4240
	4317
	240
	DAD
	PDPDAT
	TOCT
	SWP
	TOCT
	LINE
	JMP RMDO
PDP8DA,	0;0
RMDAT,	0;0
RLOCCT,	0;0
RSRBOT,	0;0
RSRTOP,	0;0
RSRLOW,	0
RMDEHI,	6201
N0003,	3