| sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP); |
sp=(Cell*)(SYSCALL(Cell*(*)(Cell *, void *))u)(sp, &FP); |
| fp=FP; |
fp=FP; |
| |
|
| w@ ( a_addr -- n ) gforth wfetch |
w@ ( a_addr -- u ) gforth wfetch |
| n = *(short*)(a_addr); |
u = *(UWyde*)(a_addr); |
| |
|
| w! ( n a_addr -- ) gforth wstore |
wx@ ( a_addr -- u ) gforth wxfetch |
| *(short*)(a_addr) = n; |
u = *(Wyde*)(a_addr); |
| |
|
| t@ ( a_addr -- n ) gforth tfetch |
w! ( u a_addr -- ) gforth wstore |
| n = *(int*)(a_addr); |
*(Wyde*)(a_addr) = u; |
| |
|
| t! ( n a_addr -- ) gforth tstore |
t@ ( a_addr -- u ) gforth tfetch |
| *(int*)(a_addr) = n; |
u = *(UTetrabyte*)(a_addr); |
| |
|
| |
tx@ ( a_addr -- u ) gforth txfetch |
| |
u = *(Tetrabyte*)(a_addr); |
| |
|
| |
t! ( u a_addr -- ) gforth tstore |
| |
*(Tetrabyte*)(a_addr) = u; |
| |
|
| \+FFCALL |
\+FFCALL |
| |
|
