slight optimize
This commit is contained in:
parent
1b9aeeccc2
commit
c4fb438322
|
@ -91,8 +91,8 @@
|
||||||
( the interpreter to halt. )
|
( the interpreter to halt. )
|
||||||
@error!! ( msg* -> )
|
@error!! ( msg* -> )
|
||||||
LIT '! emit! space
|
LIT '! emit! space
|
||||||
&loop LDAk ,&continue JCN ,&done JMP
|
&loop LDAk #00 EQU ,&done JCN
|
||||||
&continue LDAk emit! INC2 ,&loop JMP
|
LDAk emit! INC2 ,&loop JMP
|
||||||
&done POP2 newline #010f DEO BRK
|
&done POP2 newline #010f DEO BRK
|
||||||
|
|
||||||
( error messages )
|
( error messages )
|
||||||
|
|
Loading…
Reference in New Issue