?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     module Console
  2. KEY_UP = 30
  3. KEY_DN = 31
  4. KEY_LT = 29
  5. KEY_RT = 28
  6. BACKSPACE = 8
  7. newLine:
  8.     ld a, CR
  9.     call putC
  10.     ld a, LF
  11. putC:
  12.     ld e, a
  13.     ld c, 2
  14.     jp BDOS
  15.  
  16. getC:
  17.     ld ix, #9f
  18.     jp biosC
  19.  
  20. peekC:
  21.     ld c, 6, e, #ff
  22.     jp BDOS
  23.  
  24. putStringZ:
  25.     ld a, (hl)
  26.     and a
  27.     ret z
  28.     push hl
  29.     call putC
  30.     pop hl
  31.     inc hl
  32.     jr putStringZ
  33.  
  34. waitForKeyUp:
  35.     ret
  36.  
  37.     endmodule