(m291) Tiny optimization
This commit is contained in:
parent
5d7ae61420
commit
64f89011fd
|
@ -382,7 +382,7 @@
|
|||
[ LIT2r 000a ] [ LIT2r 0000 ]
|
||||
&>loop ( -- )
|
||||
LDAk [ LIT "0 ] SUB DUP #09 GTH ?{
|
||||
OVR2r MUL2r #00 SWP STH2
|
||||
OVR2r MUL2r [ LITr 00 ] STH
|
||||
ADD2r INC2 !&>loop }
|
||||
POP STH2r POP2r JMP2r
|
||||
|
||||
|
|
Loading…
Reference in New Issue