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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
farcall: macro
push af
ld a, LOW(\1)
ld [w_farcall_target + 0], a
ld a, HIGH(\1)
ld [w_farcall_target + 1], a
ld a, BANK(\1)
ld [w_bank_temp], a
pop af
call _farcall
endm
farjp: macro
push af
ld a, LOW(\1)
ld [w_farcall_target + 0], a
ld a, HIGH(\1)
ld [w_farcall_target + 1], a
ld a, BANK(\1)
ld [w_bank_temp], a
pop af
jp _farjp
endm
lb: macro
ld \1, ((\2) & $ff) << 8 | ((\3) & $ff)
endm
ln: macro
ld \1, ((\2) & $f) << 4 | ((\3) & $f)
endm
ld16: macro
ld a, LOW(\2)
ld [\1 + 0], a
ld a, HIGH(\2)
ld [\1 + 1], a
endm
const_def: macro
if _NARG >= 1
const_value = \1
else
const_value = 0
endc
if _NARG >= 2
const_inc = \2
else
const_inc = 1
endc
endm
const: macro
\1 EQU const_value
const_value = const_value + const_inc
endm
shift_const: macro
\1 EQU (1 << const_value)
const_value = const_value + const_inc
endm
const_skip: macro
if _NARG >= 1
const_value = const_value + const_inc * (\1)
else
const_value = const_value + const_inc
endc
endm
const_next: macro
if (const_value > 0 && \1 < const_value) || (const_value < 0 && \1 > const_value)
fail "const_next cannot go backwards from {const_value} to \1"
else
const_value = \1
endc
endm
const_dw: macro
const \1
dw \2
endm
|
