diff options
author | Leo C | 2016-08-11 16:28:38 +0200 |
---|---|---|
committer | Leo C | 2016-08-11 16:28:38 +0200 |
commit | 5023df4fe474eb68b0506603e10b606a147dfb6e (patch) | |
tree | 6417cd41f574d6babd5fe4db7ee45fad55c73746 /ddt180.z80 | |
parent | 3f9577cdb9cd98760758b6318cfea767da850974 (diff) | |
download | ddt180-5023df4fe474eb68b0506603e10b606a147dfb6e.zip |
Command H: change ASCII format 'C'-'@' to '^C'
Diffstat (limited to 'ddt180.z80')
-rw-r--r-- | ddt180.z80 | 19 |
1 files changed, 9 insertions, 10 deletions
@@ -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:
|