d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(symbols) Formatting

This commit is contained in:
Devine Lu Linvega 2024-02-23 19:18:29 -08:00
parent d01df862dc
commit d9df142e44
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cli/symbols/sym.tal
View File

@ -2,12 +2,11 @@
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |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 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|000
|0000
@src $40 @src $40
|0100 |100
@on-reset ( -> ) @on-reset ( -> )
.Console/type DEI ?{ .Console/type DEI ?{
@ -41,8 +40,7 @@
POP2 #01 JMP2r POP2 #01 JMP2r
@scap ( str* -- end* ) @scap ( str* -- end* )
&w ( -- ) INC2 & LDAk ?scap
INC2 & LDAk ?&w
JMP2r JMP2r
@sput ( chr str* -- ) @sput ( chr str* -- )
@ -58,15 +56,13 @@
JMP2r JMP2r
@<pstr> ( err* -- ) @<pstr> ( err* -- )
&w ( -- )
LDAk #19 DEO LDAk #19 DEO
INC2 & LDAk ?&w INC2 & LDAk ?<pstr>
POP2 JMP2r POP2 JMP2r
@<perr> ( err* -- ) @<perr> ( err* -- )
&w ( -- )
LDAk #19 DEO LDAk #19 DEO
INC2 & LDAk ?&w INC2 & LDAk ?<perr>
POP2 JMP2r POP2 JMP2r
( (
@ -76,4 +72,3 @@
@sym @sym