gno/bin/gsh/mmdebug.asm

42 lines
499 B
NASM
Raw Normal View History

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