Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Program Name: Hotkeys
- ; Author(s): NonstickAtom
- ; 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.
- .nolist
- #include "ti83plus.inc"
- .list
- .org $86EC-13
- .dw $6DBB,$C9AB
- SEStart:
- .db $31,$87,$50
- .dw 0
- .dw SEMouse-SEStart
- .dw 0
- SEMouse:
- ld a,(ix+1)
- push af
- and a
- jr nz,HotRoutine
- b_call(_GetCSC)
- ld hl,vect
- ld bc,9
- cpir
- jr nz,Stop
- ld a,c
- add a,a
- add a,a
- add a,c
- add a,113
- ld (ix+0),a
- HotRoutine:
- pop af
- inc a
- ld (ix+1),a
- dec a \ jr z,Click
- dec a \ jr z,x
- dec a \ jr z,y
- xor a
- ld (ix+0),a
- ld (ix+1),a
- Click:
- ld d,2
- ret
- x:
- ld d,89
- ret
- y:
- ld d,(ix+0)
- ret
- Stop:
- pop af
- ret
- Vect:
- .db $1F,$1E,$19,$11
- .db $15,$25,$1D,$16
- .db $26
- .end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement