A83: Could somebody _please_ check this code soon?


[Prev][Next][Index][Thread]

A83: Could somebody _please_ check this code soon?




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]