API tools faq
paste
Geekboy

Untitled

Geekboy
Oct 31st, 2012
104
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 0.70 KB | None | 0 0
raw download clone embed print report
  1. .nolist
  2. #include "ti83plus.inc"
  3. #include "dcs7.inc"
  4. .list
  5.     .org progstart
  6.     .db t2ByteTok, tAsmCmp
  7.  
  8.  
  9.  ld de,appbackupscreen
  10.  ld hl,LinkActivityHook
  11.  ld bc,LinkActivityHookEnd-LinkActivityHook
  12.  Ldir
  13.  
  14.  ld de,appbackupscreen+(LinkActivityHookEnd-LinkActivityHook)+1
  15.  ld hl,GetKeyHook
  16.  ld bc,GetKeyHookEnd-GetKeyHook
  17.  ldir
  18.  ld a,$01
  19.  ld hl,appbackupscreen+(LinkActivityHookEnd-LinkActivityHook)+1
  20.  bcall(4F7Bh)
  21.  
  22.  ld a,$01
  23.  ld hl,appbackupscreen
  24.  bcall(4f84h)
  25.  ret   
  26.  
  27. LinkActivityHook:
  28.  .db $83
  29.  nop
  30.  nop
  31.  nop
  32.  ret
  33. LinkActivityHookEnd:
  34.  
  35. GetKeyHook:
  36.  .db $83
  37.  cp $1B
  38.  ret nz
  39.  ld a,b ; put key code in a
  40.  res 3,(iy+33h)   ;reset over ride flag
  41.  inc b ;set nz
  42.  ret
  43. GetKeyHookEnd:
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!