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

use STH for left-shift0

This commit is contained in:
~d6 2021-12-28 15:26:03 -05:00
parent 28bcf6d413
commit c34be54fbc
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
math32.tal
View File

@ -172,18 +172,18 @@
( shift left by 0-7 bits ) ( shift left by 0-7 bits )
@left-shift0 ( x** n^ -> x<<n ) @left-shift0 ( x** n^ -> x<<n )
#0000 ;sh/z0 STA2 #0000 ;sh/z2 STA2 #0000 ;sh/z0 STA2 #0000 ;sh/z2 STA2
#40 SFT ;sh/r STA ( n<<4 -> r ) #40 SFT STH ( n<<4 -> r )
SWP SWP2 SWP ( x3 x2 x1 x0 ) SWP SWP2 SWP ( x3 x2 x1 x0 )
;sh/r LDA SFT ;sh/z0 STA ( x3 x2 x1 ) STHkr SFT ;sh/z0 STA ( x3 x2 x1 )
#00 SWP ;sh/r LDA SFT2 ( x3 x2 00x1<<r ) #00 SWP STHkr SFT2 ( x3 x2 00x1<<r )
;sh/z0 LDA2 ORA2 ;sh/z0 STA2 ( x3 x2 ) ;sh/z0 LDA2 ORA2 ;sh/z0 STA2 ( x3 x2 )
#00 SWP ;sh/r LDA SFT2 ( x3 00x2<<r ) #00 SWP STHkr SFT2 ( x3 00x2<<r )
;sh/z1 LDA2 ORA2 ;sh/z1 STA2 ( x3 ) ;sh/z1 LDA2 ORA2 ;sh/z1 STA2 ( x3 )
#00 SWP ;sh/r LDA SFT2 ( 00x3<<r ) #00 SWP STHr SFT2 ( 00x3<<r )
;sh/z2 LDA2 ORA2 ;sh/z2 STA2 ( ) ;sh/z2 LDA2 ORA2 ;sh/z2 STA2 ( )
;sh/z0 LDA2 ;sh/z2 LDA2 ;sh/z0 LDA2 ;sh/z2 LDA2