blob: 70ff4249ceaf35a1f2715115e79847b9eb3e5b4f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
; Syntactic sugar macros
MACRO? lb ; r, hi, lo
ld \1, ((\2) & $ff) << 8 + ((\3) & $ff)
ENDM
MACRO? ldpal
ld \1, \2 << 6 | \3 << 4 | \4 << 2 | \5
ENDM
; Design patterns
MACRO ld_hli_a_string
FOR n, CHARLEN(\1) - 1
ld a, CHARVAL(STRCHAR(\1, n))
ld [hli], a
ENDR
ld [hl], CHARVAL(STRCHAR(\1, CHARLEN(\1) - 1))
ENDM
MACRO dict
IF \1 == 0
and a
ELSE
cp \1
ENDC
jp z, \2
ENDM
|
