version 1.19, 1995/11/07 18:06:52
|
version 1.20, 1995/12/11 13:15:20
|
Line 76 LOCK
|
Line 76 LOCK
|
cr cr |
cr cr |
cell bigendian |
cell bigendian |
[IF] |
[IF] |
dup 2 = [IF] save-cross kernl16b.fi+ [THEN] |
dup 2 = [IF] save-cross kernl16b.fi- [THEN] |
dup 4 = [IF] save-cross kernl32b.fi+ [THEN] |
dup 4 = [IF] save-cross kernl32b.fi- [THEN] |
dup 8 = [IF] save-cross kernl64b.fi+ [THEN] |
dup 8 = [IF] save-cross kernl64b.fi- [THEN] |
[ELSE] |
[ELSE] |
dup 2 = [IF] save-cross kernl16l.fi+ [THEN] |
dup 2 = [IF] save-cross kernl16l.fi- [THEN] |
dup 4 = [IF] save-cross kernl32l.fi+ [THEN] |
dup 4 = [IF] save-cross kernl32l.fi- [THEN] |
dup 8 = [IF] save-cross kernl64l.fi+ [THEN] |
dup 8 = [IF] save-cross kernl64l.fi- [THEN] |
[THEN] drop cr |
[THEN] drop cr |
|
|
bye |
bye |