Re: A86: unlock


[Prev][Next][Index][Thread]

Re: A86: unlock



At 18:12 13/03/98 -0500, you wrote:

could you send me the source for that? im working on a small program
using the ?key progams and i would like to be able to uninstall it.

I have made such a prog, it also check if (sqr)KEY exist

here it is:

#include "asm86.h"
#include "ti86asm.inc"

.org _asm_exec_ram
res 6,(iy+$24)
ld hl, progname-1
rst 20h
call _FINDSYM
jr c,skip
call _delvar
ret

progname:
.db $04,$10,"KEY"

sorry:
.db 10h,"KEY not found",0

skip:
call _clrLCD
call _homeup
ld hl,sorry
call _puts
call _newline
jp $409c

.end



References: