mirror of https://git.sr.ht/~rabbits/drifblim
Removed live mode
This commit is contained in:
parent
4532bad240
commit
a0953a75c0
|
@ -19,23 +19,25 @@
|
||||||
|
|
||||||
@on-reset ( -> )
|
@on-reset ( -> )
|
||||||
;meta #06 DEO2
|
;meta #06 DEO2
|
||||||
|
;await-src
|
||||||
|
( >> )
|
||||||
|
|
||||||
|
@<await> ( addr* -> )
|
||||||
|
.Console/vector DEO2
|
||||||
.Console/type DEI ?{ ;dict/usage <pstr>
|
.Console/type DEI ?{ ;dict/usage <pstr>
|
||||||
#010f DEO }
|
#010f DEO }
|
||||||
;await-src .Console/vector DEO2
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@await-src ( -> )
|
@await-src ( -> )
|
||||||
.Console/read DEI DUP #20 GTH ?{
|
.Console/read DEI
|
||||||
;on-init-dst .Console/vector DEO2
|
( ) DUP #20 GTH ?{ POP ;await-dst !<await> }
|
||||||
POP BRK }
|
|
||||||
[ LIT2 00 &ptr -src ] INCk ,&ptr STR
|
[ LIT2 00 &ptr -src ] INCk ,&ptr STR
|
||||||
STZ2
|
STZ2
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@on-init-dst ( -> )
|
@await-dst ( -> )
|
||||||
.Console/read DEI DUP #20 GTH ?{
|
.Console/read DEI
|
||||||
<assemble>
|
( ) DUP #20 GTH ?{ <assemble>
|
||||||
[ LIT2 80 -halt ] LDZ ORA #0f DEO
|
|
||||||
BRK }
|
BRK }
|
||||||
[ LIT2 00 &ptr -dst ] INCk ,&ptr STR
|
[ LIT2 00 &ptr -dst ] INCk ,&ptr STR
|
||||||
STZ2
|
STZ2
|
||||||
|
@ -55,10 +57,12 @@
|
||||||
( make ) #00 handle-pass ?&fail
|
( make ) #00 handle-pass ?&fail
|
||||||
<write-rom>
|
<write-rom>
|
||||||
<write-sym>
|
<write-sym>
|
||||||
|
#800f DEO
|
||||||
!<print-summary>
|
!<print-summary>
|
||||||
&fail ( -- )
|
&fail ( -- )
|
||||||
;dst .File/name DEO2
|
;dst .File/name DEO2
|
||||||
[ LIT2 01 -File/delete ] DEO
|
[ LIT2 01 -File/delete ] DEO
|
||||||
|
#010f DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@handle-pass ( scan -: err )
|
@handle-pass ( scan -: err )
|
||||||
|
|
Loading…
Reference in New Issue