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

use STH in a few more places

This commit is contained in:
~d6 2021-12-28 16:40:11 -05:00
parent 3b15df7f30
commit 1b2b8e00d7
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
math32.tal
View File

@ -49,15 +49,15 @@
( equality )
@eq32 ( xhi* xlo* yhi* ylo* -> bool^ )
ROT2 EQU2 #00 TOR2
EQU2 SWP POP AND RTN
ROT2 EQU2 STH
EQU2 STHr AND RTN
@is-zero32 ( x** -> bool^ )
ORA2 #0000 EQU2 RTN
@ne32 ( xhi* xlo* yhi* ylo* -> bool^ )
ROT2 NEQ2 #00 TOR2
NEQ2 SWP POP ORA RTN
ROT2 NEQ2 STH
NEQ2 STHr ORA RTN
@non-zero32 ( x** -> bool^ )
ORA2 #0000 NEQ2 RTN
@ -99,13 +99,13 @@
( bitwise operations )
@and32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
ROT2 AND2 TOR2 AND2 SWP2 RTN
ROT2 AND2 STH2 AND2 STH2r RTN
@or32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
ROT2 ORA2 TOR2 ORA2 SWP2 RTN
ROT2 ORA2 STH2 ORA2 STH2r RTN
@xor32 ( xhi* xlo* yhi* ylo* -> xhi|yhi* xlo|ylo* )
ROT2 EOR2 TOR2 EOR2 SWP2 RTN
ROT2 EOR2 STH2 EOR2 STH2r RTN
@complement32 ( x** -> ~x** )
COMPLEMENT32 RTN