From 5023df4fe474eb68b0506603e10b606a147dfb6e Mon Sep 17 00:00:00 2001
From: Leo C
Date: Thu, 11 Aug 2016 16:28:38 +0200
Subject: Command H: change ASCII format 'C'-'@' to '^C'

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

(limited to 'ddt180.z80')

diff --git a/ddt180.z80 b/ddt180.z80
index 85e3705..8dad4ba 100644
--- a/ddt180.z80
+++ b/ddt180.z80
@@ -410,25 +410,25 @@ out_dgt:
 l0229h:
 	add a,'0'
 	jr outchar
-l022dh:
-	ld a,'-'
-	call outchar
-	ld a,040h
+
 out.ascii:
-	ex af,af'
-	call outquote
-	ex af,af'
 	push af
 	res 7,a
 	cp ' '
+	push af
+	call nc,outbl
+	call outquote
+	pop af
 	jr nc,l0242h
 	sub 0c0h
+	ex af,af'
+	ld a,'^'
+	call outchar
+	ex af,af'
 l0242h:
 	call outchar
-	push af
 	cp ''''
 	call z,outchar
-	pop af
 	ex af,af'
 	call outquote
 	pop af
@@ -436,7 +436,6 @@ l0242h:
 	ld a,'.'
 	call m,outchar
 	ex af,af'
-	jr c,l022dh
 	ret
 
 p_char_lparen:
-- 
cgit v1.2.3