d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

optimizations devine found

This commit is contained in:
~d6 2022-12-11 14:35:24 -05:00
parent 067d2f719e
commit 5704628f44
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fix16.tal
View File

@ -140,9 +140,9 @@
LIT ". #18 DEO
( emit fractional part )
#00 SWP ( lo* )
#000a MUL2 #0100 DIV2k DUP2 NIP x16-emit-dec-digit MUL2 SUB2
#000a MUL2 #0100 DIV2k DUP2 NIP 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 DUP 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
&no-round STH2r NIP x16-emit-dec-digit JMP2r

2
math32.tal
View File

@ -285,7 +285,7 @@
@negate32 ( x** -> -x** )
;complement32 JSR2 ( ~x** )
INC2 ( ~xhi -xlo )
DUP2 ORA ( ~xhi -xlo non-zero? )
ORAk ( ~xhi -xlo non-zero? )
,&done JCN ( xlo non-zero => don't inc hi )
SWP2 INC2 SWP2 ( -xhi -xlo )
&done