diff --git a/gui/meta/meta.tal b/gui/meta/meta.tal index c74e129..c478dd4 100644 --- a/gui/meta/meta.tal +++ b/gui/meta/meta.tal @@ -45,7 +45,7 @@ BRK } ;metadata/body DUP2 - ( cli ) + ( cli ) / ( gui ) BRK @@ -88,8 +88,10 @@ [ LIT2 09 18 ] DEO #00 OVR #03 MUL ;metadata/fields ADD2 ( icon ) LDAk #83 NEQ ?{ INC2k LDA2 } - ( byte ) LDAk phex/b #2018 DEO - ( shorts ) INC2 LDA2 phex #0a18 DEO + ( byte ) LDAk /b + #2018 DEO + ( shorts ) INC2 LDA2 + #0a18 DEO INC GTHk ?&l POP2 JMP2r @@ -142,10 +144,10 @@ #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r -@phex ( short* -- ) - SWP phex/b +@ ( short* -- ) + SWP /b &b ( -- ) - DUP #04 SFT phex/c + DUP #04 SFT /c &c ( -- ) #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO JMP2r @@ -153,7 +155,7 @@ @ ( str* -- ) &w ( -- ) LDAk #18 DEO - INC2 LDAk ?&w + INC2 & LDAk ?&w POP2 #0a18 DEO JMP2r