RE: A83: variable question
[Prev][Next][Index][Thread]
RE: A83: variable question
My version:
;insert standard header here
lblstart:
ld hl,0
countloop:
inc hl
push hl
ld de,0000 ;set text position to top left corner (0,0)
ld (currow),de ;...
bcall(_disphl)
bcall(_getkey)
cp kenter ;if enter pressed...
jr z,quit ;quit
bcall(_clrlcdfull)
pop hl
jr countloop
quit:
pop hl
ret
>From: "Sebastiaan Roodenburg" <sebastiaan@rimsystems.nl>
>Reply-To: assembly-83@lists.ticalc.org
>To: <assembly-83@lists.ticalc.org>
>Subject: RE: A83: variable question
>Date: Sun, 7 Jan 2001 11:43:09 +0100
>
>
>Well... the idea was nice, but it would be much nicer if HL would actualy
>be
>increased ;)
>
>here's my version:
>
>.nolist
>#include "ti83asm.inc"
>.list
>
>#define B_CALL(xxxx) rst 28h \ .dw xxxx
>#define B_JUMP(xxxx) call 50h \ .dw xxxx
>#define kenter 05h
>
>
>.org 9D95h
>
>Start:
> ld hl,0
> push hl
>ST:
> B_CALL(_getkey)
> cp kenter
> jp z,jjj
> B_CALL(_clrlcdfull)
> pop hl
> inc hl
> push hl
> B_CALL(_disphl)
> jr st
>jjj:
> pop hl ; free the stack
> ret
>
>.end
>END
>
>
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
Follow-Ups: