my code doesn't seem to respond to key presses but it keeps redrawing the frog which it should only do after a key press. any help you can provide would be great
Code:
Code:
.nolist
#include "ion.inc"
#include "tokens.inc"
#include "keyval.inc"
_runindicoff .equ 4570h
_runindicon .equ 456Dh
xcoord .equ saferam2
ycoord .equ saferam2 + 1
skDown .equ 01h
skLeft .equ 02h
skRight .equ 03h
skUp .equ 04h
skClear .equ 0Fh
.list
.org progstart-2
.db $BB,6D
ret
jp nc,start
.db "Frog",0
start:
bcall(_runindicoff)
ld a,$20
ld (xcoord),a
ld a,$10
ld (ycoord),a
bcall(_clrlcdf)
call loop
bcall(_clrlcdf)
ret
loop:
ld b,32
ld c,4
ld hl,(xcoord)
ld a,l
ld l,h
ld ix,frog
call ionLargeSprite
call ionFastCopy
bcall(_getcsc)
cp skLeft
jp z,left
cp skRight
jp z,right
cp skUp
jp z,up
cp skDown
jp z,down
cp skClear
jp nz,loop
ret
right:
ld hl,(xcoord)
ld a,$41
inc l
cp l
jp c,incx
jp loop
incx:
ld hl,(xcoord)
inc l
ld (xcoord),hl
jp clrsprite
left:
ld hl,(xcoord)
ld a,$01
dec l
cp l
jp nc,decx
jp loop
decx:
ld hl,(xcoord)
dec l
ld (xcoord),hl
jp clrsprite
up:
ld hl,(xcoord)
ld a,$01
dec h
cp h
jp nc,decy
jp loop
decy:
ld hl,(xcoord)
dec h
ld (xcoord),hl
jp clrsprite
down:
ld hl,(xcoord)
ld a,$21
inc h
cp h
jp c,incy
jp loop
incy:
ld hl,(xcoord)
inc h
ld (xcoord),hl
jp clrsprite
clrsprite:
ld b,32
ld c,4
ld hl,(xcoord)
ld a,l
ld l,h
ld ix,blnksprt
call ionLargeSprite
call ionFastCopy
jp loop
frog:
.db $D0,$01,$80,$0A,$A8,$03,$C0,$15,$A8,$06,$60,$15,$50,$0C,$30,$0A
.db $50,$1E,$78,$0E,$68,$16,$64,$1A,$38,$39,$04,$14,$28,$34,$04,$1C
.db $35,$F8,$03,$B4,$1F,$EA,$03,$E8,$16,$70,$02,$F8,$1D,$EC,$03,$28
.db $0B,$78,$12,$D0,$0C,$6A,$12,$30,$00,$78,$12,$00,$00,$6C,$22,$00
.db $00,$74,$22,$00,$00,$6C,$22,$00,$00,$74,$02,$00,$00,$38,$1C,$00
.db $00,$F8,$1F,$00,$03,$D0,$03,$C0,$1F,$20,$00,$F8,$7C,$88,$10,$3E
.db $EA,$04,$2A,$87,$D7,$FE,$7F,$F1,$CF,$F1,$8F,$E1,$70,$F8,$3F,$4E
.db $0F,$0C,$72,$F0,$06,$E4,$67,$60,$18,$54,$75,$18,$0F,$F8,$3F,$F0
blnksprt:
;Tile 0
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
.end
.end