blob: 276bd6a76431bcfbf1c63e6fc6b7e00efd791da3 (
plain)
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
|
INCROM: MACRO
INCBIN "baserom.gbc", \1, \2 - \1
ENDM
const_def: MACRO
if _NARG > 0
const_value = \1
else
const_value = 0
endc
ENDM
const: MACRO
\1 EQU const_value
const_value = const_value + 1
ENDM
lb: MACRO ; r, hi, lo
ld \1, (\2) << 8 + ((\3) & $ff)
ENDM
ldtx: MACRO
ld \1, \2_
ENDM
bank1call: MACRO
rst $18
dw \1
ENDM
farcall: MACRO
rst $28
if _NARG == 1
db BANK(\1)
dw \1
else
db \1
dw \2
endc
ENDM
; the rst $38 handler is a single ret
; probably used for testing purposes during development
debug_ret EQUS "rst $38"
emptybank: MACRO
rept $4000
db $ff
endr
ENDM
textpointer: MACRO
dw ((\1 + ($4000 * (BANK(\1) - 1))) - (TextOffsets + ($4000 * (BANK(TextOffsets) - 1)))) & $ffff
db ((\1 + ($4000 * (BANK(\1) - 1))) - (TextOffsets + ($4000 * (BANK(TextOffsets) - 1)))) >> 16
const \1_
GLOBAL \1_
ENDM
|
