Save a few t-states in loop and clean up numeric literals
This commit is contained in:
parent
30105450d6
commit
8310e65e6b
20
xylo.asm
20
xylo.asm
@ -1,7 +1,7 @@
|
||||
org 51000
|
||||
|
||||
counter EQU inc_counter + 1
|
||||
attrs EQU &5800
|
||||
attrs EQU #5800
|
||||
xylo EQU attrs + 40
|
||||
|
||||
zero_counter:
|
||||
@ -11,8 +11,8 @@ set_counter:
|
||||
ld (counter), a
|
||||
|
||||
read_keyboard:
|
||||
ld a, &f7
|
||||
in a, (&fe)
|
||||
ld a, #f7
|
||||
in a, (#fe)
|
||||
rra
|
||||
jr nc, key_1
|
||||
rra
|
||||
@ -25,23 +25,23 @@ read_keyboard:
|
||||
jr c, read_keyboard
|
||||
|
||||
key_5:
|
||||
ld de, 0x040C
|
||||
ld de, #040C
|
||||
jr invoke
|
||||
|
||||
key_2:
|
||||
ld de, 0x0103
|
||||
ld de, #0103
|
||||
jr invoke
|
||||
|
||||
key_3:
|
||||
ld de, 0x0206
|
||||
ld de, #0206
|
||||
jr invoke
|
||||
|
||||
key_4:
|
||||
ld de, 0x0309
|
||||
ld de, #0309
|
||||
jr invoke
|
||||
|
||||
key_1:
|
||||
ld de, 0x0000
|
||||
ld de, #0000
|
||||
invoke:
|
||||
push de
|
||||
call highlight_key
|
||||
@ -64,10 +64,10 @@ highlight_key:
|
||||
ld d, 0
|
||||
add hl, de
|
||||
ld e, 30
|
||||
ld b, 15
|
||||
highlight_block:
|
||||
ld a, (hl)
|
||||
xor %01000000
|
||||
ld b, 15
|
||||
highlight_block:
|
||||
ld (hl), a
|
||||
inc hl
|
||||
ld (hl), a
|
||||
|
Loading…
x
Reference in New Issue
Block a user