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

1 files changed, 9 insertions, 10 deletions

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: