From f81f70a950ede8386b4107add2956ba68dd6ceb5 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Thu, 1 Sep 2016 11:23:52 +0200
Subject: Command XF, out_dgt: size opts

---
 ddt180.z80 | 44 ++++++++++++++++++++------------------------
 1 file changed, 20 insertions(+), 24 deletions(-)

diff --git a/ddt180.z80 b/ddt180.z80
index 37695d4..96f0e83 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -343,12 +343,10 @@ out_hex:
 	pop af
 
 out_dgt:
-	and 0fh
-	cp 10
-	jr c,l0229h
-	add a,007h
-l0229h:
-	add a,'0'
+	or	0f0h
+	daa
+	add	a,0a0h
+	adc	a,040h
 	jr outchar
 
 out.bin.w:
@@ -680,7 +678,7 @@ l0300h:
 	ret
 
 sub_0303h:
-	ld hl,b_0cc3_start
+	ld hl,t_reg_names
 	ld b,07fh
 	jr l030ch
 
@@ -2154,7 +2152,7 @@ cmd_X:
 	cp 01dh
 	jp z,ERROR
 	ex de,hl
-	ld hl,b_0cc3_start
+	ld hl,t_reg_names
 	call sel_dc_string
 l0c12h:
 	call l0c33h
@@ -2224,32 +2222,30 @@ l0c76h:
 	ld a,b
 	ret z
 	push bc
-	ld hl,b_0ca4_start
+	ld hl,t_flag_names
 	call lookupch
 	jp nc,ERROR
-	ld a,b
-	cp 008h
-	jr z,l0c97h
-	pop bc
-	rlca
-	rlca
-	rlca
-	add a,0c0h
-	ld (l0c94h),a
-	defb 0cbh
-l0c94h:
-	defb 0c0h
+	inc	b
+	xor	a
+	scf
+nxt_f:
+	rla
+	djnz	nxt_f
+	pop	bc
+	jr	c,l0c97h
+	or	b
+	ld	b,a
 	jr l0c76h
+
 l0c97h:
 	ex af,af'
 	jp nc,ERROR
 	ex af,af'
 	ld a,0fbh
 	ld (reg.iff),a
-	pop bc
 	jr l0c76h
 
-b_0ca4_start:
+t_flag_names:
 	db	'CNV H ZSE',0
 
 sub_0caeh:
@@ -2269,7 +2265,7 @@ sub_0caeh:
 	scf
 	ret
 
-b_0cc3_start:
+t_reg_names:
 	DC	'BC'''
 	DC	'DE'''
 	DC	'HL'''
-- 
cgit v1.2.3