Advertisement
Zeda

HotKeySE

Sep 17th, 2020 (edited)
2,634
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Program Name: Hotkeys
  2. ; Author(s): NonstickAtom
  3. ; Description: Hotkeys is a shell expansion designed to add shortcut keys to automatically open the right click menu and click on the action. Less mouse movement so quicker actions.
  4.  
  5.  
  6. .nolist
  7. #include "ti83plus.inc"
  8. .list
  9.  
  10.  
  11.    .org $86EC-13
  12.    .dw $6DBB,$C9AB
  13. SEStart:
  14.    .db $31,$87,$50
  15.    .dw 0
  16.    .dw SEMouse-SEStart
  17.    .dw 0
  18.  
  19. SEMouse:
  20.    ld a,(ix+1)
  21.    push af
  22.    and a
  23.    jr nz,HotRoutine
  24.    b_call(_GetCSC)
  25.    ld hl,vect
  26.    ld bc,9
  27.    cpir
  28.    jr nz,Stop
  29.    ld a,c
  30.    add a,a
  31.    add a,a
  32.    add a,c
  33.    add a,113
  34.    ld (ix+0),a
  35. HotRoutine:
  36.    pop af
  37.    inc a
  38.    ld (ix+1),a
  39.    dec a \ jr z,Click
  40.    dec a \ jr z,x
  41.    dec a \ jr z,y
  42.    xor a
  43.    ld (ix+0),a
  44.    ld (ix+1),a
  45. Click:
  46.    ld d,2
  47.    ret
  48.  
  49. x:
  50.    ld d,89
  51.    ret
  52.  
  53. y:
  54.    ld d,(ix+0)
  55.    ret
  56.  
  57. Stop:
  58.    pop af
  59.    ret
  60.  
  61. Vect:
  62.    .db $1F,$1E,$19,$11
  63.    .db $15,$25,$1D,$16
  64.    .db $26
  65. .end
  66.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement