]>
cloudbase.mooo.com Git - ddt180.git/blobdiff - ddt180.z80
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
ld a,'.'\r
call m,outchar\r
ex af,af'\r
- jr c,l022dh\r
ret\r
\r
p_char_lparen:\r