?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.    
  2.             module Console
  3. KEY_UP = nos.key_up
  4. KEY_DN = nos.key_down
  5. KEY_LT = nos.key_left
  6. KEY_RT = nos.key_right
  7. BACKSPACE = nos.key_backspace
  8. getC:
  9.     call inkey
  10. .loop
  11.     push af
  12.     call inkey
  13.     pop bc
  14.     cp b
  15.     jr z, .loop
  16. .exit
  17.     ret
  18.  
  19. peekC:
  20. inkey
  21.         ld c,nos.CMD_YIELD
  22.         call nos.BDOS
  23.         rst 0x08
  24.         ld a,c
  25.         cp nos.key_esc
  26.         jp z,0x0000
  27.         ret
  28. waitForKeyUp
  29.         call inkey
  30.         or a
  31.         ret z
  32.         jr waitForKeyUp
  33.     ENDMODULE
  34.