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

Skip summary on error

This commit is contained in:
Devine Lu Linvega 2023-04-21 10:02:26 -07:00
parent c19c80d3fe
commit a4402c442d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/drifblim.tal
View File

@ -8,7 +8,6 @@
@src $30
@dst $30
@scan $1
@head $2
@error-name $2
@ -70,7 +69,6 @@ BRK &await-src ( -> ) .Console/read DEI .src skey ?&eval BRK
assemble
print-summary
;src sclr
#010e DEO
BRK
@ -331,8 +329,6 @@ JMP2r
JMP2r
&fill ffff "[empty] $1
@phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
@create-symbol ( name* -- )
.scan LDZ #00 EQU ?&skip
@ -442,6 +438,9 @@ JMP2r
@print-summary ( -- )
.error-name LDZ2 #0000 EQU2 ?&continue
JMP2r
&continue
;create-symbol/ptr LDA2 ;symbols
&l
INC2k INC2 LDA ?&skip