mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-08-08 03:05:56 -05:00
e88fe24e15
This uses catch-all files like main.asm to reduce the total quantity and size of build objects (from 1.1 GB to 70 MB). --------- Co-authored-by: Rangi <35663410+Rangi42@users.noreply.github.com>
51 lines
398 B
NASM
51 lines
398 B
NASM
AddBCD:
|
|
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:
|
|
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
|