version 1.180, 2005/12/03 15:15:20
|
version 1.182, 2005/12/11 19:31:48
|
Line 2444 FP=fp;
|
Line 2444 FP=fp;
|
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 |
sw@ ( a_addr -- u ) gforth swfetch |
*(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 |
l@ ( a_addr -- u ) gforth lfetch |
*(int*)(a_addr) = n; |
u = *(UTetrabyte*)(a_addr); |
|
|
|
sl@ ( a_addr -- u ) gforth slfetch |
|
u = *(Tetrabyte*)(a_addr); |
|
|
|
l! ( u a_addr -- ) gforth lstore |
|
*(Tetrabyte*)(a_addr) = u; |
|
|
\+FFCALL |
\+FFCALL |
|
|