[A83] Re: Distance RAM clearer :-)

To: "Assembly 83" <assembly-83@lists.ticalc.org>
Subject: [A83] Re: Distance RAM clearer :-)
From: "Ronald Teune" <rtwolf@gmx.net>
Date: Mon, 11 Jun 2001 18:50:09 +0200
Reply-To: assembly-83@lists.ticalc.org


Now look at this:
(it locks ion and is a beta version)

; zmLink2Key by Zeekoe

 #include "ion.inc"

#ifdef TI83P
        .org    sram-2
        .db     $BB,$6D
#else
        .org    sram
#endif
        ret
        .db     $02
 push bc  ;backup bc
 push af  ;backup a
 ld c,00h
 in a,(00) 
 and 03h  ;probably needed
 cp 02h  ;top
 call z,k02
 cp 01h  ;middle
 call z,k01
 cp 00h  ;both
 call z,k00
   ;nothing ;-)
 ld a,c
 cp 01h ;changed
 call z,changed
 call nz,notchanged 
 pop bc  ;restore bc
 ret
k02:
 ld b,03h ;up
 ld c,01h
 ret
k01:
 ld b,04h ;down
 ld c,01h
 ret
k00:
 ld b,05h ;enter
 ld c,01h
 ret
changed:
 pop af
 ld a,b  ;unrestore if changed
 ret
notchanged:
 pop af
 ret
.end
END

Prev: [A83] Re: ports (OT)
Next: [A83] Re: Distance RAM clearer :-)
Index(es):
- Main
- Thread