use sub labels

This commit is contained in:
Travis Shears 2024-07-13 14:43:17 +02:00
parent 90f5cf9783
commit 56fd9b47c6

View file

@ -40,7 +40,9 @@
#0a MUL ( 02 25 20 )
SUB ( 02 05 )
#30 ADD SWP #30 ADD
DUP LIT "0 NEQ ?{ POP }
EMIT EMIT
DUP LIT "0 EQU ?/is_zero
&not_zero EMIT EMIT !/rest
&is_zero POP EMIT
&rest
#20 EMIT ( print space )
JMP2r