diff --git a/src/ecosystem.tal b/src/ecosystem.tal index be0f144..5de9620 100644 --- a/src/ecosystem.tal +++ b/src/ecosystem.tal @@ -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* )