~rabbits/orca-toy

0064885205053be266b307932c35ef14097c4f87 — neauoire 1 year, 7 months ago cb316b1
Optimized MOD/MOD2
1 files changed, 6 insertions(+), 6 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +6 -6
@@ 40,12 40,12 @@
%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }

%10** { #40 SFT2 }   %10// { #04 SFT2 }
%8**  { #30 SFT2 }   %8// { #03 SFT2 }
%4**  { #20 SFT2 }   %4// { #02 SFT2 }
%2**  { #10 SFT2 }   %2// { #01 SFT2 }
%TOB  { SWP POP }    %TOS  { #00 SWP }
%MOD  { DUP2 / * - } %MOD2 { OVR2 OVR2 // ** -- } 
%10** { #40 SFT2 }     %10// { #04 SFT2 }
%8**  { #30 SFT2 }     %8// { #03 SFT2 }
%4**  { #20 SFT2 }     %4// { #02 SFT2 }
%2**  { #10 SFT2 }     %2// { #01 SFT2 }
%TOB  { SWP POP }      %TOS  { #00 SWP }
%MOD  { DIVk MUL SUB } %MOD2 { DIV2k MUL2 SUB2 }

%RTN  { JMP2r }
%BRK? { #01 JCN BRK } %RTN? { #01 JCN RTN }