mcphail/spectrumswearingxylophone
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Highlight keys when pressed

Browse Source
This commit is contained in:
Neil McPhail 2024-10-21 18:49:02 +00:00
parent a3adb86add
commit 6c29091fcb
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
xylo.asm
View File

@ -1,6 +1,8 @@
org 51000 org 51000
counter EQU inc_counter + 1 counter EQU inc_counter + 1
attrs EQU &5800
xylo EQU attrs + 40
zero_counter: zero_counter:
xor a xor a
@ -24,39 +26,79 @@ read_keyboard:
jr read_keyboard jr read_keyboard
key_1: key_1:
ld c, 0
call highlight_key
ld a, (counter) ld a, (counter)
call play call play
ld c, 0
call highlight_key
jr inc_counter jr inc_counter
key_2: key_2:
ld c, 3
call highlight_key
ld a, (counter) ld a, (counter)
inc a inc a
call play call play
ld c, 3
call highlight_key
jr inc_counter jr inc_counter
key_3: key_3:
ld c, 6
call highlight_key
ld a, (counter) ld a, (counter)
inc a inc a
inc a inc a
call play call play
ld c, 6
call highlight_key
jr inc_counter jr inc_counter
key_4: key_4:
ld c, 9
call highlight_key
ld a, (counter) ld a, (counter)
add a, 3 add a, 3
call play call play
ld c, 9
call highlight_key
jr inc_counter jr inc_counter
key_5: key_5:
ld c, 12
call highlight_key
ld a, (counter) ld a, (counter)
add a, 4 add a, 4
call play call play
ld c, 12
call highlight_key
inc_counter: inc_counter:
ld a, 0 ;This value will be modified by the running code ld a, 0 ;This value will be modified by the running code
add a, 5 add a, 5
cp 25 cp 25
jr nz, set_counter jr nz, set_counter
jr zero_counter jp zero_counter
highlight_key:
ld hl, xylo
ld b, 0
add hl, bc
ld d, 15
highlight_row:
ld e, 3
highlight_block:
ld a, (hl)
xor %01000000
ld (hl), a
inc hl
dec e
jr nz, highlight_block
ld c, 29
add hl, bc
dec d
jr nz, highlight_row
ret
INCLUDE "sample.asm" INCLUDE "sample.asm"