A83: NOW I REALLY DON'T KNOW WHAT'S GOING ON
[Prev][Next][Index][Thread]
A83: NOW I REALLY DON'T KNOW WHAT'S GOING ON
Somebody *please* look at this code. It all works except one part. Hey
Jimmy, maybe you can help me out.
When I put this at the marked spot below, it unprotects the selected
program. ITS SUPPOSED TO XOR THE FREAKIN PROGRAM STATUS, NOT UNPROTECT.
dec a
cp PROTPROGOBJ
jp z,NextStep
ld a,PROGOBJ
When I put this at the marked spot below, it protects the selected
program. ITS SUPPOSED TO XOR THE FREAKIN PROGRAM STATUS, NOT PROTECT.
dec a
cp PROGOBJ
jp z,NextStep
ld a,PROTPROGOBJ
--Thanks,
Alan
.NOLIST
#include "master_m.inc"
.LIST
.org $9327
call _zeroop1
ld a,tans
ld (op1+1),a
call _findsym
jp c,_errundefined ; error if not there
and 1fh
cp stringobj
jp nz,_errsyntax
ld hl,op1
; THIS IS THE SPOT WHERE THE CRAPPY NON WORKING CODE GOES. WTF IS
; WRONG??????
NextStep:
ld (hl),a
ld (ObjNum),a
inc hl
ld a,(de)
ld c,a
ld b,0
inc de
inc de
ex de,hl
ldir
call _chkfindsym
jp c,_errundefined
ld a,(ObjNum)
LastStep:
ld (hl),a
ret
Unprot:
ld a,PROGOBJ
ret
Prot:
ld a,PROGOBJ
ret
ObjNum:
.db 0
.end
.end
_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]
Follow-Ups: