neauoire
/
drifblim
mirror of https://git.sr.ht/~rabbits/drifblim
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Removed unused label in zp

This commit is contained in:
Devine Lu Linvega 2024-06-11 09:42:10 -08:00
parent a0953a75c0
commit 66194ac46d
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
examples/coverage.tal → examples/acid.tal
View File

4
makefile
View File

@ -12,13 +12,13 @@ run-drifblim: bin/drifblim.rom
@ printf "++ Assemble drifblim-bootstrap from itself\n"
@ ${EMU} bin/drifblim.rom src/drifblim.tal bin/drifblim-bootstrap.rom
@ printf "\n++ Test drifblim-bootstrap\n"
@ ${EMU} bin/drifblim.rom examples/coverage.tal bin/res.rom
@ ${EMU} bin/drifblim.rom examples/acid.tal bin/res.rom
@ ${EMU} bin/res.rom
run-drifloon: bin/drifloon.rom
@ printf "++ Assemble drifloon-bootstrap from itself\n"
@ cat src/drifloon.tal | ${EMU} bin/drifloon.rom > bin/drifloon-bootstrap.rom
@ printf "\n++ Test drifloon-bootstrap\n"
@ cat examples/coverage.tal | ${EMU} bin/drifloon-bootstrap.rom > bin/res.rom
@ cat examples/acid.tal | ${EMU} bin/drifloon-bootstrap.rom > bin/res.rom
@ ${EMU} bin/res.rom
clean:
@ rm -fr bin

5
src/drifblim.tal
View File

@ -1,7 +1,7 @@
( usage: drifblim.rom input.tal output.rom )
|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 $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|000
@src $30
@ -9,7 +9,6 @@
@token $1 &buf $30
@scope $30
@sublabel $30
@live $1
@scan $1
@head $2
@halt $1
@ -380,7 +379,7 @@
@feof ( addr* -: f )
.File/read DEO2
.File/success DEI2 #0000 EQU2 JMP2r
[ LIT2 00 -File/success-lb ] DEI EQU JMP2r
@zkey ( key ztr -- proc )
OVR #21 LTH ?&eval