; File name:	MEMBLOCK.S	Revised:	1991.05.29
; Disassembler:	U.R.Andersson	Disassembled:	1991.05.28
; Purpose:	Block memory below TPA
;
;
	text
;
code_beg:
	clr	-(sp)
	move.l	#$100+(code_end-code_beg),-(sp)
	move	#$31,-(sp)
	trap	#1
code_end:
;
	end	;of file:	MEMBLOCK.S
