version 1.11, 1994/09/02 15:23:33
|
version 1.12, 1994/09/09 16:27:17
|
Line 110 include-file
|
Line 110 include-file
|
|
|
>CROSS |
>CROSS |
|
|
endian 0 pad ! -1 pad c! pad @ 0< |
bigendian 0 pad ! -1 pad c! pad @ 0< |
= [IF] : bswap ; immediate |
= [IF] : bswap ; immediate |
[ELSE] : bswap ( big / little -- little / big ) 0 |
[ELSE] : bswap ( big / little -- little / big ) 0 |
cell 1- FOR bits/byte lshift over |
cell 1- FOR bits/byte lshift over |
Line 733 Cond: [ELSE] [ELSE] ;Cond
|
Line 733 Cond: [ELSE] [ELSE] ;Cond
|
\ [THEN] |
\ [THEN] |
\ included throw after create-file 11may93jaw |
\ included throw after create-file 11may93jaw |
|
|
endian Constant endian |
bigendian Constant bigendian |
|
|
: save-cross ( "name" -- ) |
: save-cross ( "name" -- ) |
bl parse ." Saving to " 2dup type |
bl parse ." Saving to " 2dup type |