mirror of https://git.sr.ht/~rabbits/drifblim
Removed unused label in zp
This commit is contained in:
parent
a0953a75c0
commit
66194ac46d
4
makefile
4
makefile
|
@ -12,13 +12,13 @@ run-drifblim: bin/drifblim.rom
|
||||||
@ printf "++ Assemble drifblim-bootstrap from itself\n"
|
@ printf "++ Assemble drifblim-bootstrap from itself\n"
|
||||||
@ ${EMU} bin/drifblim.rom src/drifblim.tal bin/drifblim-bootstrap.rom
|
@ ${EMU} bin/drifblim.rom src/drifblim.tal bin/drifblim-bootstrap.rom
|
||||||
@ printf "\n++ Test drifblim-bootstrap\n"
|
@ 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
|
@ ${EMU} bin/res.rom
|
||||||
run-drifloon: bin/drifloon.rom
|
run-drifloon: bin/drifloon.rom
|
||||||
@ printf "++ Assemble drifloon-bootstrap from itself\n"
|
@ printf "++ Assemble drifloon-bootstrap from itself\n"
|
||||||
@ cat src/drifloon.tal | ${EMU} bin/drifloon.rom > bin/drifloon-bootstrap.rom
|
@ cat src/drifloon.tal | ${EMU} bin/drifloon.rom > bin/drifloon-bootstrap.rom
|
||||||
@ printf "\n++ Test drifloon-bootstrap\n"
|
@ 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
|
@ ${EMU} bin/res.rom
|
||||||
clean:
|
clean:
|
||||||
@ rm -fr bin
|
@ rm -fr bin
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
( usage: drifblim.rom input.tal output.rom )
|
( usage: drifblim.rom input.tal output.rom )
|
||||||
|
|
||||||
|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 $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||||||
|000
|
|000
|
||||||
|
|
||||||
@src $30
|
@src $30
|
||||||
|
@ -9,7 +9,6 @@
|
||||||
@token $1 &buf $30
|
@token $1 &buf $30
|
||||||
@scope $30
|
@scope $30
|
||||||
@sublabel $30
|
@sublabel $30
|
||||||
@live $1
|
|
||||||
@scan $1
|
@scan $1
|
||||||
@head $2
|
@head $2
|
||||||
@halt $1
|
@halt $1
|
||||||
|
@ -380,7 +379,7 @@
|
||||||
|
|
||||||
@feof ( addr* -: f )
|
@feof ( addr* -: f )
|
||||||
.File/read DEO2
|
.File/read DEO2
|
||||||
.File/success DEI2 #0000 EQU2 JMP2r
|
[ LIT2 00 -File/success-lb ] DEI EQU JMP2r
|
||||||
|
|
||||||
@zkey ( key ztr -- proc )
|
@zkey ( key ztr -- proc )
|
||||||
OVR #21 LTH ?&eval
|
OVR #21 LTH ?&eval
|
||||||
|
|
Loading…
Reference in New Issue