Re: A83: variable question
[Prev][Next][Index][Thread]
Re: A83: variable question
So long as we're in to sending our own versions....I might as well send
mine:
ld hl,0
loopy:
inc hl
push hl
B_CALL HomeUp
B_CALL DispHL
B_CALL GetKey
pop hl
cp kEnter
jr nz,loopy
ret
----- Original Message -----
> 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
>
>
References: