use sub labels
This commit is contained in:
parent
90f5cf9783
commit
56fd9b47c6
1 changed files with 4 additions and 2 deletions
|
@ -40,7 +40,9 @@
|
||||||
#0a MUL ( 02 25 20 )
|
#0a MUL ( 02 25 20 )
|
||||||
SUB ( 02 05 )
|
SUB ( 02 05 )
|
||||||
#30 ADD SWP #30 ADD
|
#30 ADD SWP #30 ADD
|
||||||
DUP LIT "0 NEQ ?{ POP }
|
DUP LIT "0 EQU ?/is_zero
|
||||||
EMIT EMIT
|
¬_zero EMIT EMIT !/rest
|
||||||
|
&is_zero POP EMIT
|
||||||
|
&rest
|
||||||
#20 EMIT ( print space )
|
#20 EMIT ( print space )
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue