/	MEMCHK.PA

	*7430

	OURPAGE=.&7600

	STL IAC 
	DCA	ADDRESS
MLOOP,	TAD	JMPONE
	DCA	JMPINST
	LAS 
	DCA	SWITCH
	DCA	PTR
	ISZ	ADDRESS
	TAD	ADDRESS
	AND	L2
	SZA CLA 
	TAD	L10
	TAD	LSZACLA
	DCA	INST
LOOP1,	TAD	LIMIT
	TAD	PTR
	SNA CLA 
	JMP	MLOOP
	TAD	SWITCH
	AND	L200
INST,	.-.
	TAD	L10
	TAD	LSZACLA
	DCA	INST2
LOOP2,	TAD	SWITCH
	AND	L2
INST2,	.-.
	CMA 
	SNL 
JMPINST,JMP	ONE
LOOP3,	DCA I	PTR
	ISZ	PTR
	ISZ	SWITCH
	TAD	PTR
	AND	L77
	SNA CLA 
	JMP	LOOP1
	JMP	LOOP2
ONE,	DCA	TEST
	TAD	L7760
	DCA	COUNT
PTRSET,	DCA	PTR
LOOP4,	TAD I	PTR
	CMA 
	DCA I	PTR
	TAD	LIMIT
	TAD	PTR
	SNA CLA 
	JMP	LOOP5
	ISZ	PTR
	JMP	LOOP4
LOOP5,	ISZ	COUNT
	JMP	PTRSET
	TAD	JMPTWO
	DCA	JMPINST
	DCA	PTR
	TAD	TEST
TWO,	DCA	TEST
	TAD I	PTR
	CIA 
	TAD	TEST
	SZA CLA 
	JMP	LOOP7
	TAD	TEST
	CMA 
	DCA I	PTR
	TAD I	PTR
	IAC 
	TAD	TEST
	SZA CLA 
	JMP	LOOP7
LOOP6,	TAD	TEST
	CLL 
	JMP	LOOP3
LOOP7,	TAD I	PTR
	HLT 
	CLA 
	TAD	PTR
	HLT 
	CLA CLL 
	CLA CLL 
	JMP	LOOP6
L77,	77
L200,	200
LIMIT,	-OURPAGE
LSZACLA,SZA CLA 
L10,	10
L2,	2
L7760,	7760
ADDRESS,.-.
SWITCH,	.-.
PTR,	.-.
TEST,	.-.
COUNT,	.-.
JMPONE,	JMP	ONE
JMPTWO,	JMP	TWO

	$