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

start using stash (STH)

This commit is contained in:
~d6 2021-12-28 15:04:51 -05:00
parent 8a31ad4c8c
commit 524fec6ed1
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
math32.tal
View File

@ -130,12 +130,10 @@
( shift right by 0-7 bits )
@right-shift0 ( x** n^ -> x<<n )
#0000 ;sh/z0 STA2 #0000 ;sh/z2 STA2
;sh/r STA ( n -> r )
;sh/r LDA SFT ;sh/z3 STA ( write z3 )
#00 ;sh/r LDA SFT2 ;sh/z2 LDA2 ORA2 ;sh/z2 STA2 ( write z2,z3 )
#00 ;sh/r LDA SFT2 ;sh/z1 LDA2 ORA2 ;sh/z1 STA2 ( write z1,z2 )
#00 ;sh/r LDA SFT2 ;sh/z0 LDA2 ORA2 ;sh/z0 STA2 ( write z0,z1 )
STHk SFT ;sh/z3 STA ( write z3 )
#00 STHkr SFT2 #00 ;sh/z3 LDA ORA2 ;sh/z2 STA2 ( write z2,z3 )
#00 STHkr SFT2 #00 ;sh/z2 LDA ORA2 ;sh/z1 STA2 ( write z1,z2 )
#00 STHr SFT2 #00 ;sh/z1 LDA ORA2 ;sh/z0 STA2 ( write z0,z1 )
;sh/z0 LDA2 ;sh/z2 LDA2
RTN