mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-08-08 11:18:13 -05:00
56 lines
487 B
NASM
Executable File
56 lines
487 B
NASM
Executable File
INCLUDE "constants.asm"
|
|
|
|
SECTION "BCD", ROMX[$4de3], BANK[$03]
|
|
|
|
AddBCD: ; 03:4de3
|
|
and a
|
|
ld b, c
|
|
.add
|
|
ld a, [de]
|
|
adc [hl]
|
|
daa
|
|
ld [de], a
|
|
dec de
|
|
dec hl
|
|
dec c
|
|
jr nz, .add
|
|
jr nc, .done
|
|
|
|
ld a, $99
|
|
inc de
|
|
|
|
.fill
|
|
ld [de], a
|
|
inc de
|
|
dec b
|
|
jr nz, .fill
|
|
|
|
.done
|
|
ret
|
|
|
|
|
|
SubBCD: ; 03:4df9
|
|
and a
|
|
ld b, c
|
|
.sub
|
|
ld a, [de]
|
|
sbc [hl]
|
|
daa
|
|
ld [de], a
|
|
dec de
|
|
dec hl
|
|
dec c
|
|
jr nz, .sub
|
|
jr nc, .done
|
|
ld a, 0
|
|
inc de
|
|
|
|
.fill
|
|
ld [de], a
|
|
inc de
|
|
dec b
|
|
jr nz, .fill
|
|
scf
|
|
.done
|
|
ret
|