A83: Can somebody check this code?
[Prev][Next][Index][Thread]
A83: Can somebody check this code?
I would like to know why this code freezes my calc. It is designed to
return the legnth of a stirng into MaxXCoord. This should be a baically
1-size-fits-all routine, but it doesn't work for me. Just so your sure,
this has no TASM errors as it is.
Thanks,
Alan
<<<<<<<<<Code Start>>>>>>>>>
ld de,Message
ld a,0
GetLenLoop:
push af
ld a,(de)
cp 0
jr z,ContInit
ld l,a
ld h,0
add hl,hl
add hl,hl
add hl,hl
push de
call _sfont_len
pop de
pop af
add a,b
inc de
jr GetLenLoop
ContInit:
pop af
ld b,a
ld a,95
sub b
ld (MaxXCoord),a
___________________________________________________________________
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]