Command H: change ASCII format 'C'-'@' to '^C'

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