Re: A86: Display A Routine Needed

To: assembly-86@lists.ticalc.org
Subject: Re: A86: Display A Routine Needed
From: rabidcow@juno.com (Joshua J Seagoe)
Date: Mon, 24 Aug 1998 09:48:44 -0700
Delivered-To: assembly-86-outgoing@towerguard.unix.edu.sollentuna.se
References: <19980824163653.6243.qmail@hotmail.com>
Reply-To: assembly-86@lists.ticalc.org

On Mon, 24 Aug 1998 09:36:53 PDT "In FuZeD" <zone_ti@hotmail.com> writes:
>
>Can Someone post a routine to display a in small print at current
>penCol and penRow? -Thanx

i suppose you want that in decimal.  yeah, this is just like the one i
just posted for hl, yeah there's got to be a better way.

DispA:
	ld l,a
	ld h,0
	ld de,$c08d
	ld b,3		;3 digits
DispA1:
	call _hldiv10	;=$4044  a=hl%10  hl=hl/10
	add a,$30	;convert to decimal digit
	ld (de),a	;store it
	dec de
	djnz DispA1
	xor a
	ld ($c08e),a	;end the string
	ex de,hl

	ld a,$30	;trim leading zeros
	ld b,2		;take these 7 lines
DispA2:			;out and put in one
	inc hl		;inc hl
	cp (hl)		;instruction if
	jp nz,DispA3	;you want to keep them
	djnz DispA2	;

DispA3:
	call _vputs	;display it
	ret

>
>InFuZeD at tihaven.org
>
>
>______________________________________________________
>Get Your Private, Free Email at http://www.hotmail.com
>

_____________________________________________________________________
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]

References:

A86: Display A Routine Needed

From: "In FuZeD" <zone_ti@hotmail.com>