mirror of https://github.com/pret/pokecrystal.git
30 lines
351 B
NASM
30 lines
351 B
NASM
FarCall EQU $08
|
|
Bankswitch EQU $10
|
|
JumpTable EQU $28
|
|
|
|
farcall: MACRO ; bank, address
|
|
ld a, BANK(\1)
|
|
ld hl, \1
|
|
rst FarCall
|
|
ENDM
|
|
|
|
callba EQUS "farcall"
|
|
|
|
callab: MACRO ; address, bank
|
|
ld hl, \1
|
|
ld a, BANK(\1)
|
|
rst FarCall
|
|
ENDM
|
|
|
|
homecall: MACRO
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(\1)
|
|
rst Bankswitch
|
|
|
|
call \1
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
ENDM
|