optimizations devine found
This commit is contained in:
parent
067d2f719e
commit
5704628f44
|
@ -140,9 +140,9 @@
|
||||||
LIT ". #18 DEO
|
LIT ". #18 DEO
|
||||||
( emit fractional part )
|
( emit fractional part )
|
||||||
#00 SWP ( lo* )
|
#00 SWP ( lo* )
|
||||||
#000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
|
#000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
|
||||||
#000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
|
#000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
|
||||||
#000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
|
#000a MUL2 #0100 DIV2k DUP x16-emit-dec-digit MUL2 SUB2
|
||||||
#000a MUL2 #0100 DIV2k STH2k MUL2 SUB2 #0080 LTH2 ,&no-round JCN INC2r
|
#000a MUL2 #0100 DIV2k STH2k MUL2 SUB2 #0080 LTH2 ,&no-round JCN INC2r
|
||||||
&no-round STH2r NIP x16-emit-dec-digit JMP2r
|
&no-round STH2r NIP x16-emit-dec-digit JMP2r
|
||||||
|
|
||||||
|
|
|
@ -285,7 +285,7 @@
|
||||||
@negate32 ( x** -> -x** )
|
@negate32 ( x** -> -x** )
|
||||||
;complement32 JSR2 ( ~x** )
|
;complement32 JSR2 ( ~x** )
|
||||||
INC2 ( ~xhi -xlo )
|
INC2 ( ~xhi -xlo )
|
||||||
DUP2 ORA ( ~xhi -xlo non-zero? )
|
ORAk ( ~xhi -xlo non-zero? )
|
||||||
,&done JCN ( xlo non-zero => don't inc hi )
|
,&done JCN ( xlo non-zero => don't inc hi )
|
||||||
SWP2 INC2 SWP2 ( -xhi -xlo )
|
SWP2 INC2 SWP2 ( -xhi -xlo )
|
||||||
&done
|
&done
|
||||||
|
|
Loading…
Reference in New Issue