dsforth/ext_keys.zas

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; low-level keyboard handling
   3 ;; AberSoft, Ketmar
   4 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   5
   6 $FORTH_CODE_WORD INKEY
   7 ;; AberSoft
   8 ;; ( -- key | 255 )
   9   push  bc
  10   call  #028E
  11   ld    c,#00
  12   jr    nz,inkey0
  13   call  #031E
  14   jr    nc,inkey0
  15   dec   d
  16   ld    e,a
  17   call  #0333
  18 inkey0:
  19   ld    l,a
  20   ld    h,0
  21   pop   bc
  22   jp    i_pushhl
  23 $FORTH_END_CODE_WORD INKEY