mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
6c3000efd2
Updated map and mapgroup macros to get around an rgbds bug. Legendary beast locale handling annotated and relabeled. Added a new constant NUM_ENGINE_FLAGS for use in the EngineFlagAction function. This will make it easier for modders to add or remove engine flags.
87 lines
965 B
NASM
87 lines
965 B
NASM
AddNTimes:: ; 0x30fe
|
|
; Add bc * a to hl.
|
|
and a
|
|
ret z
|
|
.loop
|
|
add hl, bc
|
|
dec a
|
|
jr nz, .loop
|
|
ret
|
|
; 0x3105
|
|
|
|
SimpleMultiply:: ; 3105
|
|
; Return a * c.
|
|
and a
|
|
ret z
|
|
|
|
push bc
|
|
ld b, a
|
|
xor a
|
|
.loop
|
|
add c
|
|
dec b
|
|
jr nz, .loop
|
|
pop bc
|
|
ret
|
|
; 3110
|
|
|
|
|
|
SimpleDivide:: ; 3110
|
|
; Divide a by c. Return quotient b and remainder a.
|
|
ld b, 0
|
|
.loop
|
|
inc b
|
|
sub c
|
|
jr nc, .loop
|
|
dec b
|
|
add c
|
|
ret
|
|
; 3119
|
|
|
|
|
|
Multiply:: ; 3119
|
|
; Multiply hMultiplicand (3 bytes) by hMultiplier. Result in hProduct.
|
|
; All values are big endian.
|
|
push hl
|
|
push bc
|
|
|
|
callab _Multiply
|
|
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 3124
|
|
|
|
|
|
Divide:: ; 3124
|
|
; Divide hDividend length b (max 4 bytes) by hDivisor. Result in hQuotient.
|
|
; All values are big endian.
|
|
push hl
|
|
push de
|
|
push bc
|
|
ld a, [hROMBank]
|
|
push af
|
|
ld a, BANK(_Divide)
|
|
rst Bankswitch
|
|
|
|
call _Divide
|
|
|
|
pop af
|
|
rst Bankswitch
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
; 3136
|
|
|
|
|
|
SubtractSigned:: ; 3136
|
|
; Return a - b, sign in carry.
|
|
sub b
|
|
ret nc
|
|
cpl
|
|
add 1
|
|
scf
|
|
ret
|
|
; 313d
|