I don't know what's wrong with this code. I know that getkey, putc, and DispHexA all work from previous testing. I also know that interrupts work as I was able to get a counter working but this dosen't work for some reason.
Code:
Code:
#define curCol $8300
#define curRow $8301
#define key $8303
boot:
jp Init
.fill 038h - $, 0
jp count
.fill 056h - $, 0
.dw $A55A
count:
di
exx
ex af,af'
call getkey
ld (key),a
ex af,af'
exx
ei
reti
Init:
di
im 1
memInit:
ld a,1
out (6),a
in a,(2)
rlca
ld a,$41
jr nc,LowerModel
HigherModel:
out (5),a
ld a,$81
out (7),a
jr memDone
LowerModel:
out (6),a
out (7),a
memDone:
ld sp,0
lcdInit:
ld a,$40
out ($10),a
call lcdDelay
ld a,5
out ($10),a
call lcdDelay
ld a,1
out ($10),a
call lcdDelay
ld a,3
out ($10),a
call lcdDelay
ld a,$90
out ($10),a
call lcdDelay
ld a,$f3
out ($10),a
call lcdDelay
ld a,$20
out ($10),a
call lcdDelay
ld a,'H'
call putc
ld a,$20
call putc
ld a,$FF
ld (key),a
ei
Loop:
ld a,(key)
inc a
jr z,Loop
dec a
call DispHexA
jr $