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

sample 32-bit stack ops

This commit is contained in:
~d6 2022-01-18 00:19:52 -05:00
parent f03b96f064
commit a3167c0bec
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
stack32.tal Normal file
View File

@ -0,0 +1,39 @@
( stack.tal )
( )
@swap32 ( x** y** -> y** x** )
STH2 ROT2 ROT2
STH2r ROT2 ROT2 JMP2r
@over32 ( x** y** -> x** y** x** )
STH2 STH2 OVR2 OVR2
STH2r STH2r ;swap32 JSR2 JMP2r
@rotate32 ( x** y** z** -> y** z** x** )
STH2 STH2 ;swap32 JSR2
STH2r STH2r ;swap32 JSR2 JMP2r
@rev-rotate32 ( x** y** z** -> z** x** y** )
;swap32 JSR2 STH2 STH2
;swap32 JSR2 STH2r STH2r JMP2r
@pop32 ( x** -> )
POP2 POP2 JMP2r
@store-abs32 ( x** addr* -> )
STH2k #0002 ADD2 STA2 STH2r STA2 JMP2r
@load-abs32 ( addr* -> x** )
STH2k LDA2 STH2r #0002 ADD2 LDA2 JMP2r
@store-rel32 ( x** rel^ -> )
STHk #02 ADD STR2 STHr STR2 JMP2r
@load-rel32 ( rel^ -> x** )
STHk LDR2 STHr #02 ADD LDR2 JMP2r
@store-zero32 ( x** addr^ -> )
STHk #02 ADD STZ2 STHr STZ2 JMP2r
@load-zero32 ( addr^ -> x** )
STHk LDZ2 STHr #02 ADD LDZ2 JMP2r