Browse Source

Parse manifest keys properly

main
Devine Lu Linvega 4 years ago
parent
commit
fdbba291ca
  1. 17
      src/ecosystem.tal

17
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* )

Loading…
Cancel
Save