Re: A83: Input for the 83 plus

To: assembly-83@lists.ticalc.org
Subject: Re: A83: Input for the 83 plus
From: John Wyrwas <tankrshr77@yahoo.com>
Date: Fri, 21 Apr 2000 16:10:52 -0700 (PDT)
Reply-To: assembly-83@lists.ticalc.org


As of now, no one has discovered an equivalent for
PGMIO_EXEC for the TI-83 plus.  You'll have to find
another routine (I think there are a few on
ticalc.org) or write your own, I ran into this same
problem.

--- Jeremy <jedrake@linknet.kitsap.lib.wa.us> wrote:
> 
> Is there a TI 83 plus eqivilant to this program from
> ASMGuru, or will I
> have to write my own string input routines.  (And
> numerical input
> routines, too).
> 
> Jeremy
> 
> PGMIO_EXEC         equ           50B2h
> 
> .org 9327h
> 
> call	_clrLCDFull
> ld	de,821ch	;put the prompt here
> ld	hl,prompt
> ld	bc,16		;length of prompt, max = 16
> ldir
> 
> ld	a,0		;code for STRING input
> ld	(ASM_IND_CALL),a
> call	PGMIO_EXEC	;defined in squish.inc
> call	_CHKFINDSYM
> 
> push	bc
> 	push	de
> 	push	hl
> 	call	_clrLCDFull
> 	call	_homeup
> 	ld	hl,Yourname
> 	call 	_puts
> 	call	_newline
> 	pop	hl
> 	pop	de
> 	pop	bc
> 
>  	ex     de,hl		;hl is start of string data
> 
> ld     c,(hl)
> 
> inc    hl
> 
> ld     b,(hl)
> 
> inc    hl		;bc is length of string
> 
> ld     a,b
> 
> or     c		;length = 0 ?
> ret    z		;return if so
> 
> loop:
> 
> push   bc
> 
> ld     a,(hl)		;get a character
> call   _putc
> pop    bc
> dec    bc
> ld     a,b
> or     c		;done yet?
> 
> inc 	hl		;
> 
> jr     nz,loop		;no -> loop back
> call   _newline
> ret
> 
> prompt:        .db "Name: ",0
> 
> yourname:	.db "Your name is",0
> 
> 
> 

__________________________________________________
Do You Yahoo!?
Send online invitations with Yahoo! Invites.
http://invites.yahoo.com