mcopy	mdb.mac

~NEW	START
hand	equ	0
ptr	equ	4
_~NEW	name

	subroutine (4:size),8

	NewHandle (size,~USER_ID,#$C018,#0),hand
               lda	[hand]
	sta	ptr
	ldy	#2
	lda	[hand],y
	sta	ptr+2
	return 4:ptr
	END

~DISPOSE	START
hand	equ	0
checkptr	equ	4
_~DISPOSE	name

	subroutine (4:ptr),8

	FindHandle ptr,hand
               lda	[hand]
	sta	checkptr
	ldy	#2
	lda	[hand],y
	sta	checkptr+2
	eor	ptr+2
	eor	ptr
	eor	checkptr
	beq	okay

               brk	$55

okay	DisposeHandle hand
	return
	END