d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

shrink femto.rom a bit, fix sizes

This commit is contained in:
~d6 2022-04-02 23:14:18 -04:00
parent 4ffd80526b
commit c237be7cbc
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
femto.tal
View File

@ -52,6 +52,8 @@
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ] |10 @Console [ &vector $2 &read $1 &pad $5 &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 ]
( MAX file size is currently #c950, i.e. 51536 bytes )
%dbg { #ff .System/debug DEO } %dbg { #ff .System/debug DEO }
%emit { .Console/write DEO } %emit { .Console/write DEO }
%sp { #2018 DEO } %sp { #2018 DEO }
@ -194,7 +196,7 @@
@open-file ( filename* -> ) @open-file ( filename* -> )
.File/name DEO2 .File/name DEO2
#f000 .File/length DEO2 #c950 .File/length DEO2
;data .File/read DEO2 ;data .File/read DEO2
.File/success DEI2 #0000 GTH2 ,&ok JCN .File/success DEI2 #0000 GTH2 ,&ok JCN
@ -1306,5 +1308,4 @@
] ]
@filename $80 ( path to file being edited ) @filename $80 ( path to file being edited )
@data $c950 ( actual file data to be edited )
@data $f000 ( actual file data to be edited )

2
regex.tal
View File

@ -83,7 +83,7 @@
( avoid conficting with the program we're included in. ) ( avoid conficting with the program we're included in. )
( ) ( )
( remove this if needed when including it in other projects. ) ( remove this if needed when including it in other projects. )
|2000 ( |2000 )
( ERROR HANDLING ) ( ERROR HANDLING )