Subversion Repositories NedoOS

Rev

Rev 146 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. getkey
  2. ;out: c=%???lrduf (0=эрцрЄю)
  3.         ld c,#ff
  4.         ld a,#ef
  5.         in a,(#fe) ;'0'..'6'
  6.         rra ;'0'
  7.         jr c,$+4
  8.         res 0,c ;f
  9.         rra
  10.         rra ;'8'
  11.         jr c,$+4
  12.         res 3,c ;r
  13.         rra ;'7'
  14.         jr c,$+4
  15.         res 1,c ;u
  16.         rra ;'6'
  17.         jr c,$+4
  18.         res 2,c ;d
  19.         ld a,#f7
  20.         in a,(#fe) ;'1'..'5'
  21.         bit 4,a ;'5'
  22.         jr nz,$+4
  23.         res 4,c ;l
  24.         ld a,#7f
  25.         in a,(#fe) ;
  26.         rra ;' '
  27.         ret c
  28.         res 0,c ;f
  29.         ret
  30.      
  31.