version 1.181, 2005/12/04 13:46:12
|
version 1.182, 2005/12/11 19:31:48
|
Line 2447 fp=FP;
|
Line 2447 fp=FP;
|
w@ ( a_addr -- u ) gforth wfetch |
w@ ( a_addr -- u ) gforth wfetch |
u = *(UWyde*)(a_addr); |
u = *(UWyde*)(a_addr); |
|
|
wx@ ( a_addr -- u ) gforth wxfetch |
sw@ ( a_addr -- u ) gforth swfetch |
u = *(Wyde*)(a_addr); |
u = *(Wyde*)(a_addr); |
|
|
w! ( u a_addr -- ) gforth wstore |
w! ( u a_addr -- ) gforth wstore |
*(Wyde*)(a_addr) = u; |
*(Wyde*)(a_addr) = u; |
|
|
t@ ( a_addr -- u ) gforth tfetch |
l@ ( a_addr -- u ) gforth lfetch |
u = *(UTetrabyte*)(a_addr); |
u = *(UTetrabyte*)(a_addr); |
|
|
tx@ ( a_addr -- u ) gforth txfetch |
sl@ ( a_addr -- u ) gforth slfetch |
u = *(Tetrabyte*)(a_addr); |
u = *(Tetrabyte*)(a_addr); |
|
|
t! ( u a_addr -- ) gforth tstore |
l! ( u a_addr -- ) gforth lstore |
*(Tetrabyte*)(a_addr) = u; |
*(Tetrabyte*)(a_addr) = u; |
|
|
\+FFCALL |
\+FFCALL |