On Sun, 7 Sep 1997, A. El-Helw wrote:
> GetKeyLoop:
> ld a,0ffh ; Reset the keyport
> out (1),a
> ld a,0fdh ; Enable the row with clear
> out (1),a
> in a,(1)
> cp 191 ; Check for clear
> jp nz,GetKeyLoop
> jp z,quit
Insert a halt statement in the loop if you want to use less power, or just
use _getkey.
--------
Dan Eble (mailto:eble@cis.ohio-state.edu)
(http://www.cis.ohio-state.edu/~eble)