From 0e8446968bc0257355e0d8ef0ed4b0fc452612a0 Mon Sep 17 00:00:00 2001
From: Nick Downing <nick@ndcode.org>
Date: Mon, 10 Jun 2019 14:02:50 +1000
Subject: [PATCH] Add decimal factorial result printing using the division
 routines

---
 sm.asm | 88 ++++++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 82 insertions(+), 6 deletions(-)

diff --git a/sm.asm b/sm.asm
index 5fb2a5f..9c72f71 100644
--- a/sm.asm
+++ b/sm.asm
@@ -24,10 +24,77 @@
 	.db	<adj_isp
 	.dw	2
 
-	.db	esc
-	ex	de,hl
-	call	print_word
-	call	print_crlf
+;	; print it the easy way
+;	.db	<esc
+;	ex	de,hl
+;	call	print_word
+;	call	print_crlf
+;	ex	de,hl
+;	call	sm
+
+	; print 10000s
+	.db	<div_iuw
+	.dw	10000
+	.db	<add_iw
+	.dw	'0
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	; print 1000s
+	.db	<div_iuw
+	.dw	1000
+	.db	<add_iw
+	.dw	'0
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	; print 100s
+	.db	<div_iuw
+	.dw	100
+	.db	<add_iw
+	.dw	'0
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	; print 10s
+	.db	<div_iuw
+	.dw	10
+	.db	<add_iw
+	.dw	'0
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	; print 1s
+	.db	<add_iw
+	.dw	'0
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	.db	<imm_w
+	.dw	0xd
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	.db	<imm_w
+	.dw	0xa
+	.db	<call_i
+	.dw	sm_print_char
+	.db	<adj_isp
+	.dw	2
+
+	.db	<esc
 	rst	0 ; can't return into ccp as clobbered by stack growth
 
 sm_factorial:
@@ -92,6 +159,15 @@ sm_factorial:
 	; return 
 	.db	<jmp
 
+sm_print_char:
+	.db	<esc
+	ld	hl,0
+	add	hl,sp
+	ld	a,(hl)
+	call	print_char
+	call	sm
+	.db	<jmp
+
 digits:
 	.ascii	'0123456789abcdef'
 
@@ -137,7 +213,7 @@ print_space:
 	pop	af
 	ret
 
-print_stack:
+print_trace:
 	push	af
 	push	bc
 	push	de
@@ -272,7 +348,7 @@ print_char:
 	.org	0x330
 
 ; print stack
-	jp	print_stack
+	ret ;jp	print_trace
 
 	.org	0x338
 
-- 
2.34.1