|
|
|
|
@ -23,6 +23,7 @@ JMP2r
|
|
|
|
|
SWP2 |
|
|
|
|
;print-mod JSR2 |
|
|
|
|
;print-val JSR2 |
|
|
|
|
#2018 DEO |
|
|
|
|
INC2 INC2 ;print-str JSR2 #0a18 DEO |
|
|
|
|
SWP2 |
|
|
|
|
INC GTHk ,&loop JCN |
|
|
|
|
@ -32,15 +33,31 @@ JMP2r
|
|
|
|
|
|
|
|
|
|
@print-mod ( addr* -- addr* ) |
|
|
|
|
|
|
|
|
|
LDAk |
|
|
|
|
DUP #10 AND #00 EQU ,&no-a JCN |
|
|
|
|
LIT 'A #18 DEO LIT '+ #18 DEO |
|
|
|
|
&no-a |
|
|
|
|
POP |
|
|
|
|
INC2 |
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
|
|
|
|
|
@print-val ( addr* -- addr* ) |
|
|
|
|
|
|
|
|
|
LDAk |
|
|
|
|
DUP #08 NEQ ,&no-del JCN ;&del ,&inv JMP &no-del |
|
|
|
|
DUP #09 NEQ ,&no-tab JCN ;&tab ,&inv JMP &no-tab |
|
|
|
|
DUP #20 NEQ ,&no-spc JCN ;&spc ,&inv JMP &no-spc |
|
|
|
|
DUP #1b NEQ ,&no-esc JCN ;&esc ,&inv JMP &no-esc |
|
|
|
|
#18 DEO |
|
|
|
|
INC2 |
|
|
|
|
|
|
|
|
|
JMP2r |
|
|
|
|
&inv ROT POP ;print-str JSR2 POP2 INC2 JMP2r |
|
|
|
|
&del "del $1 |
|
|
|
|
&tab "tab $1 |
|
|
|
|
&spc "spc $1 |
|
|
|
|
&esc "esc $1 |
|
|
|
|
|
|
|
|
|
@print-str ( addr* -- addr* ) |
|
|
|
|
|
|
|
|
|
|