summaryrefslogtreecommitdiff
path: root/ddt180.z80
diff options
context:
space:
mode:
Diffstat (limited to 'ddt180.z80')
-rw-r--r--ddt180.z8019
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: