mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-12-22 14:30:29 +00:00
61474a874f
and link. However, it does not work yet and thus still needs work. The *.asm files have had the following common changes: - 'keep' lines were eliminated - the 'mcopy' now takes the macro from the /obj/gno/bin/gsh directory. This is in anticipation of having the macro files generated from a single source file; there is a large amount of duplication. For the moment, the makefile merely copies the old macro files from the "M" directory to the /obj/gno/bin/gsh directory. - start each file with a dummy routine so that the source code winds up in the *.o rather than the *.root file. - added the 'setcom 60' directive; there were many source lines that were otherwise getting truncated. The makefile is a complete rewrite.
59 lines
862 B
NASM
59 lines
862 B
NASM
**************************************************************************
|
|
*
|
|
* The GNO Shell Project
|
|
*
|
|
* Developed by:
|
|
* Jawaid Bazyar
|
|
* Tim Meekins
|
|
*
|
|
* $Id: mmdebug.asm,v 1.2 1998/04/24 15:38:33 gdr-ftp Exp $
|
|
*
|
|
**************************************************************************
|
|
|
|
mcopy /obj/gno/bin/gsh/mmdebug.mac
|
|
|
|
dummy start ; ends up in .root
|
|
end
|
|
|
|
setcom 60
|
|
|
|
~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
|