From d1d6fee5bb2d081bc54378ed610ab021fd768128 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Thu, 1 Sep 2016 21:30:28 +0200
Subject: out.bin.b: opt

---
 ddt180.z80 | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/ddt180.z80 b/ddt180.z80
index 96f0e83..3d4e6e7 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -296,7 +296,7 @@ sub_01d9h:
 out_hl_dec_neg:
 	push hl
 	call sub_01d9h
-	defb 03eh
+	defb 03eh		;ld a,..  swallow push hl
 out.hl.dec:
 	push hl
 	ld b,006h
@@ -356,11 +356,11 @@ out.bin.w:
 out.bin.b:
 	ld b,8
 l01c9h:
-	add a,a
-	push af
-	ld a,00
-	adc a,a
-	call out_dgt
+	rlca
+	push	af
+	ld	a,'0'/2
+	adc	a,a
+	call	outchar
 	pop af
 	djnz l01c9h
 	ld a,'"'
@@ -784,7 +784,7 @@ sub_0377h:
 	jr l0366h
 
 b_037c_start:
-	defb 0e6h
+	defb 0e6h		;and a,..  clear carry
 get_arg_range:
 	scf
 	ex af,af'
@@ -796,7 +796,7 @@ get_arg_range:
 	jr c,error0
 	ex af,af'
 	pop hl
-	defb 03eh
+	defb 03eh		;ld a,..  swallow pop af
 l038ch:
 	pop af
 	call get_range
@@ -1378,7 +1378,7 @@ error11:
 
 sub_060ch:
 	call get_char_upper
-	cp '['
+	cp 'Z'+1
 	jr l0614h
 
 get.hexdigit:
-- 
cgit v1.2.3