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

Removed live mode

This commit is contained in:
Devine Lu Linvega 2024-06-11 09:35:18 -08:00
parent 4532bad240
commit a0953a75c0
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/drifblim.tal
View File

@ -19,23 +19,25 @@
@on-reset ( -> )
;meta #06 DEO2
;await-src
( >> )
@<await> ( addr* -> )
.Console/vector DEO2
.Console/type DEI ?{ ;dict/usage <pstr>
#010f DEO }
;await-src .Console/vector DEO2
BRK
@await-src ( -> )
.Console/read DEI DUP #20 GTH ?{
;on-init-dst .Console/vector DEO2
POP BRK }
.Console/read DEI
( ) DUP #20 GTH ?{ POP ;await-dst !<await> }
[ LIT2 00 &ptr -src ] INCk ,&ptr STR
STZ2
BRK
@on-init-dst ( -> )
.Console/read DEI DUP #20 GTH ?{
<assemble>
[ LIT2 80 -halt ] LDZ ORA #0f DEO
@await-dst ( -> )
.Console/read DEI
( ) DUP #20 GTH ?{ <assemble>
BRK }
[ LIT2 00 &ptr -dst ] INCk ,&ptr STR
STZ2
@ -55,10 +57,12 @@
( make ) #00 handle-pass ?&fail
<write-rom>
<write-sym>
#800f DEO
!<print-summary>
&fail ( -- )
;dst .File/name DEO2
[ LIT2 01 -File/delete ] DEO
#010f DEO
JMP2r
@handle-pass ( scan -: err )