mirror of https://git.sr.ht/~rabbits/drifblim
Fixed cleanup issue
This commit is contained in:
parent
466709d297
commit
9dd3f28372
|
@ -21,7 +21,7 @@
|
||||||
@on-reset ( -> )
|
@on-reset ( -> )
|
||||||
;meta #06 DEO2
|
;meta #06 DEO2
|
||||||
.Console/type DEI ?{
|
.Console/type DEI ?{
|
||||||
;dict/live-start <perr>
|
;dict/usage <perr>
|
||||||
#01 .live STZ }
|
#01 .live STZ }
|
||||||
;&on-src .Console/vector DEO2
|
;&on-src .Console/vector DEO2
|
||||||
BRK
|
BRK
|
||||||
|
@ -35,14 +35,12 @@
|
||||||
.live LDZ ?{
|
.live LDZ ?{
|
||||||
[ LIT2 80 -halt ] LDZ ORA #0f DEO
|
[ LIT2 80 -halt ] LDZ ORA #0f DEO
|
||||||
BRK }
|
BRK }
|
||||||
;dict/live-ready <perr>
|
|
||||||
;on-live .Console/vector DEO2
|
;on-live .Console/vector DEO2
|
||||||
#0000 .src STZ2
|
#0000 .src STZ2
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@on-live ( -> )
|
@on-live ( -> )
|
||||||
.Console/read DEI .src zkey ?{ BRK }
|
.Console/read DEI .src zkey ?{ BRK }
|
||||||
<assemble>
|
|
||||||
( | cleanup )
|
( | cleanup )
|
||||||
#00 .halt STZ
|
#00 .halt STZ
|
||||||
#0000 .length STZ2
|
#0000 .length STZ2
|
||||||
|
@ -51,6 +49,7 @@
|
||||||
;memory/lambda ;lambda/ptr LDA2 <mclr>
|
;memory/lambda ;lambda/ptr LDA2 <mclr>
|
||||||
;memory/lambda ;lambda/ptr STA2
|
;memory/lambda ;lambda/ptr STA2
|
||||||
#0000 ;<create-symbol>/count STA2
|
#0000 ;<create-symbol>/count STA2
|
||||||
|
<assemble>
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@meta $1
|
@meta $1
|
||||||
|
@ -302,9 +301,10 @@
|
||||||
,&t STR2
|
,&t STR2
|
||||||
;<create-symbol>/ptr LDA2 ;memory/symbols
|
;<create-symbol>/ptr LDA2 ;memory/symbols
|
||||||
&l ( -- )
|
&l ( -- )
|
||||||
|
EQU2k ?&end
|
||||||
#0003 ADD2 DUP2 [ LIT2 &t $2 ] scmp ?&found
|
#0003 ADD2 DUP2 [ LIT2 &t $2 ] scmp ?&found
|
||||||
scap/ INC2 GTH2k ?&l
|
scap/ INC2 GTH2k ?&l
|
||||||
POP2 POP2 #ffff JMP2r
|
&end POP2 POP2 #ffff JMP2r
|
||||||
&found ( symbols* -- <addr>* )
|
&found ( symbols* -- <addr>* )
|
||||||
#0003 SUB2 NIP2 JMP2r
|
#0003 SUB2 NIP2 JMP2r
|
||||||
|
|
||||||
|
@ -496,8 +496,6 @@
|
||||||
&bytes 20 "bytes( $1
|
&bytes 20 "bytes( $1
|
||||||
&labels 20 "labels). 0a $1
|
&labels 20 "labels). 0a $1
|
||||||
&sym-ext ".sym $1
|
&sym-ext ".sym $1
|
||||||
&live-start "[started] 0a $1
|
|
||||||
&live-ready "[ready] 0a $1
|
|
||||||
|
|
||||||
@err
|
@err
|
||||||
"!! 20 "Error: 20 $1
|
"!! 20 "Error: 20 $1
|
||||||
|
|
Loading…
Reference in New Issue