Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include "keys.inc"
- #include "ti83plus.inc"
- #define bcall(x) rst 28h \ .dw x
- .db $BB,$6D
- .org progstart
- ld b, 0
- ld c, 0
- bcall(_RunIndicOff)
- jp disp
- start:
- bcall(_GetCSC)
- cp skLeft
- jp z, move_left
- cp skRight
- jp z, move_right
- cp skUp
- jp z, move_up
- cp skDown
- jp z, move_down
- cp skClear
- jr nz, start
- ret
- move_down:
- ld a, c
- cp 7
- jp z, start
- inc c
- jp disp
- move_up:
- ld a, c
- cp 0
- jp z, start
- dec c
- jp disp
- move_left:
- ld a, b
- cp 0
- jp z, start
- dec b
- jp disp
- move_right:
- ld a, b
- cp 15
- jp z, start
- inc b
- disp:
- push bc
- bcall(_ClrLCDFull)
- pop bc
- ld (curRow), bc
- ld a, 'A'
- bcall(_PutC)
- jp start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement