Guest User

Untitled

a guest
Sep 12th, 2018
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. IFG C, 0x1f ;if the key is an ASCII key
  2.   SET PC, kd.checkASCII ;; Arrow keys ASCII codes are more than 0x1f, so we should check them, else we print the character.
  3.  
  4. IFE C, 0x10 ;backspace
  5.   JSR kd.keystroke.backspace
  6.  
  7. SET PC, POP
  8.  ;return from the interrupt
  9.  
  10. :kd.checkASCII
  11. IFG C, 0x7f
  12.   IFL C, 0x84
  13.     IFN [A+6], 0
  14.       JSR [A+6]    ;; Arrow keys.
  15.  
  16. ; Else:
  17. SET PC, kd.keystroke.writeChar
Add Comment
Please, Sign In to add comment