1 files changed, 303 insertions, 0 deletions
diff --git a/home/print_num.asm b/home/print_num.asm
new file mode 100755
index 00000000..70f07607
--- /dev/null
+++ b/home/print_num.asm
@@ -0,0 +1,303 @@
+PrintNum::
+; Print c digits of the b-byte value from de to hl.
+; Allows 2 to 7 digits. For 1-digit numbers, add
+; the value to char "0" instead of calling PrintNum.
+; The high nybble of the c register specifies how many of the total amount of
+; digits will be in front of the decimal point.
+; Some extra flags can be given in bits 5-7 of b.
+; Bit 5: money if set (unless left-aligned without leading zeros)
+; Bit 6: left-aligned if set
+; Bit 7: print leading zeros if set
+
+	push bc
+
+	bit 5, b
+	jr z, .main
+	bit 7, b
+	jr nz, .moneyflag
+	bit 6, b
+	jr z, .main
+
+.moneyflag ; 101xxxxx or 011xxxxx
+	ld a, "¥"
+	ld [hli], a
+	res 5, b ; 100xxxxx or 010xxxxx
+
+.main
+	xor a
+	ldh [$ffb5], a
+	ldh [$ffb6], a
+	ldh [$ffb7], a
+	ld a, b
+	and $f
+	cp 1
+	jr z, .byte
+	cp 2
+	jr z, .word
+; maximum 3 bytes
+.long
+	ld a, [de]
+	ldh [$ffb6], a
+	inc de
+	ld a, [de]
+	ldh [$ffb7], a
+	inc de
+	ld a, [de]
+	ldh [$ffb8], a
+	jr .start
+
+.word
+	ld a, [de]
+	ldh [$ffb7], a
+	inc de
+	ld a, [de]
+	ldh [$ffb8], a
+	jr .start
+
+.byte
+	ld a, [de]
+	ldh [$ffb8], a
+
+.start
+	push de
+
+	ld d, b
+	ld a, c
+	swap a
+	and $f
+	ld e, a
+	ld a, c
+	and $f
+	ld b, a
+	ld c, 0
+	cp 2
+	jr z, .two
+	cp 3
+	jr z, .three
+	cp 4
+	jr z, .four
+	cp 5
+	jr z, .five
+	cp 6
+	jr z, .six
+
+.seven
+	ld a, HIGH(1000000 >> 8)
+	ldh [$ffb9], a
+	ld a, HIGH(1000000) ; mid
+	ldh [$ffba], a
+	ld a, LOW(1000000)
+	ldh [$ffbb], a
+	call .PrintDigit
+	call .AdvancePointer
+
+.six
+	ld a, HIGH(100000 >> 8)
+	ldh [$ffb9], a
+	ld a, HIGH(100000) ; mid
+	ldh [$ffba], a
+	ld a, LOW(100000)
+	ldh [$ffbb], a
+	call .PrintDigit
+	call .AdvancePointer
+
+.five
+	xor a ; HIGH(10000 >> 8)
+	ldh [$ffb9], a
+	ld a, HIGH(10000) ; mid
+	ldh [$ffba], a
+	ld a, LOW(10000)
+	ldh [$ffbb], a
+	call .PrintDigit
+	call .AdvancePointer
+
+.four
+	xor a ; HIGH(1000 >> 8)
+	ldh [$ffb9], a
+	ld a, HIGH(1000) ; mid
+	ldh [$ffba], a
+	ld a, LOW(1000)
+	ldh [$ffbb], a
+	call .PrintDigit
+	call .AdvancePointer
+
+.three
+	xor a ; HIGH(100 >> 8)
+	ldh [$ffb9], a
+	xor a ; HIGH(100) ; mid
+	ldh [$ffba], a
+	ld a, LOW(100)
+	ldh [$ffbb], a
+	call .PrintDigit
+	call .AdvancePointer
+
+.two
+	dec e
+	jr nz, .two_skip
+	ld a, "0"
+	ldh [$ffb5], a
+
+.two_skip
+	ld c, 0
+	ldh a, [$ffb8]
+
+.mod_10
+	cp 10
+	jr c, .modded_10
+	sub 10
+	inc c
+	jr .mod_10
+
+.modded_10
+	ld b, a
+	ldh a, [$ffb5]
+	or c
+	jr nz, .money
+	call .PrintLeadingZero
+	jr .money_leading_zero
+
+.money
+	call .PrintYen
+	push af
+	ld a, "0"
+	add c
+	ld [hl], a
+	pop af
+	ldh [$ffb5], a
+	inc e
+	dec e
+	jr nz, .money_leading_zero
+	inc hl
+	ld [hl], $e8
+
+.money_leading_zero
+	call .AdvancePointer
+	call .PrintYen
+	ld a, "0"
+	add b
+	ld [hli], a
+
+	pop de
+	pop bc
+	ret
+
+.PrintYen:
+	push af
+	ldh a, [$ffb5]
+	and a
+	jr nz, .stop
+	bit 5, d
+	jr z, .stop
+	ld a, "¥"
+	ld [hli], a
+	res 5, d
+
+.stop
+	pop af
+	ret
+
+.PrintDigit:
+	dec e
+	jr nz, .ok
+	ld a, "0"
+	ldh [$ffb5], a
+.ok
+	ld c, 0
+.loop
+	ldh a, [$ffb9]
+	ld b, a
+	ldh a, [$ffb6]
+	ldh [$ffbc], a
+	cp b
+	jr c, .skip1
+	sub b
+	ldh [$ffb6], a
+	ldh a, [$ffba]
+	ld b, a
+	ldh a, [$ffb7]
+	ldh [$ffbd], a
+	cp b
+	jr nc, .skip2
+	ldh a, [$ffb6]
+	or 0
+	jr z, .skip3
+	dec a
+	ldh [$ffb6], a
+	ldh a, [$ffb7]
+.skip2
+	sub b
+	ldh [$ffb7], a
+	ldh a, [$ffbb]
+	ld b, a
+	ldh a, [$ffb8]
+	ldh [$ffbe], a
+	cp b
+	jr nc, .skip4
+	ldh a, [$ffb7]
+	and a
+	jr nz, .skip5
+	ldh a, [$ffb6]
+	and a
+	jr z, .skip6
+	dec a
+	ldh [$ffb6], a
+	xor a
+.skip5
+	dec a
+	ldh [$ffb7], a
+	ldh a, [$ffb8]
+.skip4
+	sub b
+	ldh [$ffb8], a
+	inc c
+	jr .loop
+.skip6
+	ldh a, [$ffbd]
+	ldh [$ffb7], a
+.skip3
+	ldh a, [$ffbc]
+	ldh [$ffb6], a
+.skip1
+	ldh a, [$ffb5]
+	or c
+	jr z, .PrintLeadingZero
+	ldh a, [$ffb5]
+	and a
+	jr nz, .done
+	bit 5, d
+	jr z, .done
+	ld a, "¥"
+	ld [hli], a
+	res 5, d
+.done
+	ld a, "0"
+	add c
+	ld [hl], a
+	ldh [$ffb5], a
+	inc e
+	dec e
+	ret nz
+	inc hl
+	ld [hl], $e8
+	ret
+
+.PrintLeadingZero:
+; prints a leading zero unless they are turned off in the flags
+	bit 7, d ; print leading zeroes?
+	ret z
+	ld [hl], "0"
+	ret
+
+.AdvancePointer:
+; increments the pointer unless leading zeroes are not being printed,
+; the number is left-aligned, and no nonzero digits have been printed yet
+	bit 7, d ; print leading zeroes?
+	jr nz, .inc
+	bit 6, d ; left alignment or right alignment?
+	jr z, .inc
+	ldh a, [$ffb5]
+	and a
+	ret z
+.inc
+	inc hl
+	ret
+\ No newline at end of file