version 1.1, 2003/09/21 18:54:38
|
version 1.2, 2003/09/29 20:51:16
|
Line 138
|
Line 138
|
|
|
\ set up stack caching states |
\ set up stack caching states |
|
|
\E register sp0 Cell |
\E register spTOS Cell |
\E register sp1 Cell |
\E register sp1 Cell |
\E register sp2 Cell |
\E register sp2 Cell |
\E register sp3 Cell |
\E register sp3 Cell |
|
|
\E create regs sp0 , sp1 , sp2 , sp3 , |
\E create regs spTOS , sp1 , sp2 , sp3 , |
|
|
\E regs 0 0 stack-state ss0 |
\E regs 0 0 stack-state ss0 |
\E regs 1 1 stack-state ss1 |
\E regs 1 1 stack-state ss1 |
Line 160
|
Line 160
|
\E ss2 data-stack s2 set-ss |
\E ss2 data-stack s2 set-ss |
\E ss3 data-stack s3 set-ss |
\E ss3 data-stack s3 set-ss |
|
|
|
\E S1 to state-in |
|
\E S1 to state-out |
|
|
+ ( n1 n2 -- n ) core plus |
+ ( n1 n2 -- n ) core plus |
n = n1+n2; |
n = n1+n2; |
|
|