A85: Pixel mover
[Prev][Next][Index][Thread]
A85: Pixel mover
here's how i would do it (this works too i tried it):
Wyrmlord
egillespie@juno.com
#include "TI-85.H"
.org 0
.db "Move Dot",0
ld a, 4
out (5), a
init:
ld a, 10
ld ($8014), a
ld ($8016), a
draw:
ROM_CALL(CLEARLCD)
ld a, ($8014)
ld b, a
ld a, ($8016)
ld c, a
CALL_(PlotPixel)
key:
call GET_KEY
cp K_UP
jr z, up
cp K_DOWN
jr z, down
cp K_LEFT
jr z, left
cp K_RIGHT
jr z, right
cp K_EXIT
ret z
jr nz, key
up:
ld a, ($8016)
cp 63
jr z, key
inc a
ld ($8016), a
jr draw
down:
ld a, ($8016)
cp 0
jr z, key
dec a
ld ($8016), a
jr draw
left:
ld a, ($8014)
cp 0
jr z, key
dec a
ld ($8014), a
jr draw
right:
ld a, ($8014)
cp 127
jr z, key
inc a
ld ($8014), a
jr draw
PlotPixel:
ROM_CALL(FIND_PIXEL)
ld de, $FC00
add hl, de
or (HL)
ld (HL), a
ret
.end
Follow-Ups: