[A83] Re: Small Problem, Big Headache
[Prev][Next][Index][Thread]
[A83] Re: 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
Shouldn't this be pop bc ?
> push hl ;save it again
and this push bc ?
> 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: