diff --git a/cli/symbols/sym.tal b/cli/symbols/sym.tal index f5c9dab..9418dbb 100644 --- a/cli/symbols/sym.tal +++ b/cli/symbols/sym.tal @@ -2,12 +2,11 @@ |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 - -|0000 +|000 @src $40 -|0100 +|100 @on-reset ( -> ) .Console/type DEI ?{ @@ -41,8 +40,7 @@ POP2 #01 JMP2r @scap ( str* -- end* ) - &w ( -- ) - INC2 & LDAk ?&w + INC2 & LDAk ?scap JMP2r @sput ( chr str* -- ) @@ -58,15 +56,13 @@ JMP2r @ ( err* -- ) - &w ( -- ) - LDAk #19 DEO - INC2 & LDAk ?&w + LDAk #19 DEO + INC2 & LDAk ? POP2 JMP2r @ ( err* -- ) - &w ( -- ) - LDAk #19 DEO - INC2 & LDAk ?&w + LDAk #19 DEO + INC2 & LDAk ? POP2 JMP2r ( @@ -76,4 +72,3 @@ @sym -