[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: