?login_element?

Subversion Repositories NedoOS

Rev

Rev 1936 | Blame | Compare with Previous | Last modification | View Log | Download

  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.  
  34.  
  35. getCint:
  36.     call inkey2
  37. .loop2
  38.     push af
  39.     call inkey2
  40.     pop bc
  41.     cp b
  42.     jr z, .loop2
  43. .exit2
  44.     ret
  45.  
  46. peekCint:
  47. inkey2
  48.         ld c,nos.CMD_YIELD
  49.         call nos.BDOS
  50.         rst 0x08
  51.         cp nos.key_esc
  52.         jp z,0x0000
  53.         ret
  54. waitForKeyUp2
  55.         call inkey2
  56.         or a
  57.         ret z
  58.         jr waitForKeyUp2
  59.  
  60.     ENDMODULE
  61.