mirror of https://github.com/pret/pokecrystal.git
58 lines
826 B
NASM
58 lines
826 B
NASM
; Syntactic sugar macros
|
|
|
|
lb: MACRO ; r, hi, lo
|
|
ld \1, (\2 & $ff) << 8 + (\3 & $ff)
|
|
ENDM
|
|
|
|
ln: MACRO ; r, hi, lo
|
|
ld \1, (\2 & $f) << 4 + (\3 & $f)
|
|
ENDM
|
|
|
|
ldpixel: MACRO
|
|
if _NARG >= 5
|
|
lb \1, \2 * 8 + \4, \3 * 8 + \5
|
|
else
|
|
lb \1, \2 * 8, \3 * 8
|
|
endc
|
|
ENDM
|
|
|
|
depixel EQUS "ldpixel de,"
|
|
bcpixel EQUS "ldpixel bc,"
|
|
|
|
|
|
; Design patterns
|
|
|
|
jumptable: MACRO
|
|
ld a, [\2]
|
|
ld e, a
|
|
ld d, 0
|
|
ld hl, \1
|
|
add hl, de
|
|
add hl, de
|
|
ld a, [hli]
|
|
ld h, [hl]
|
|
ld l, a
|
|
jp hl
|
|
ENDM
|
|
|
|
; Many mobile functions were dummied out in localization.
|
|
mobile EQUS "ret"
|
|
|
|
maskbits: MACRO
|
|
; masks just enough bits to cover the argument
|
|
; e.g. "maskbits %00010100" becomes "and %00011111"
|
|
; example usage in rejection sampling:
|
|
; .loop
|
|
; call Random
|
|
; maskbits 30 +- 1
|
|
; cp 30
|
|
; jr nc, .loop
|
|
x = 1
|
|
rept 8
|
|
if x < (\1)
|
|
x = (x + 1) * 2 +- 1
|
|
endc
|
|
endr
|
|
and x
|
|
ENDM
|