[A83] Small Problem, Big Headache
[Prev][Next][Index][Thread]
[A83] Small Problem, Big Headache
Hey everyone...I'm going nuts trying to figure out why the hell this isn't
working....It's supposed to copy an AppVar to a string but it doesn't work!!
Are there any limitations on LDIR? Thanks in advance for any help! It is
much appreciated!
-Tom
RestoreBackUpData:
ld hl,BUPDef
rst rMOV9TOOP1
B_CALL ChkFindSym
jr c,DeleteStr9 ;If there is no backup data, delete String 9
ld a,(de)
inc de
ld c,a
ld a,(de)
ld b,a ;bc holds length of BUP data
inc de ;de is the source to copy from
push de ;source of backup data
push bc ;num of bytes to copy
ld hl,Str9Def
rst rMOV9TOOP1
rst rFINDSYM
call nc,DeleteIt
pop hl ;get back number of bytes to copy
push hl ;save it again
B_CALL CreateStrng
inc de
inc de ;de points to target
pop bc ;pop out number of bytes to copy
pop hl ;pop out source of backup data
ldir
ret
DeleteStr9:
ld hl,Str9Def
rst rMOV9TOOP1
rst rFINDSYM
ret c
B_CALL DelVar
ret
BUPDef: db AppVarObj,"BUP",0
Str9Def: db StrngObj,tVarStrng,tStr9,0
Follow-Ups:
References: