move v2

#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