96 lines
2.1 KiB
Forth
96 lines
2.1 KiB
Forth
\ *****************************************************************************
|
|
\ * Copyright (c) 2004, 2011 IBM Corporation
|
|
\ * All rights reserved.
|
|
\ * This program and the accompanying materials
|
|
\ * are made available under the terms of the BSD License
|
|
\ * which accompanies this distribution, and is available at
|
|
\ * http://www.opensource.org/licenses/bsd-license.php
|
|
\ *
|
|
\ * Contributors:
|
|
\ * IBM Corporation - initial implementation
|
|
\ ****************************************************************************/
|
|
|
|
\ little- and big-endian FCODE IP access functions
|
|
|
|
|
|
?bigendian [IF] \ Big endian access functions first
|
|
|
|
|
|
: read-fcode-num16 ( -- n )
|
|
0 fcode-num !
|
|
?arch64 IF
|
|
read-byte fcode-num 6 + C!
|
|
next-ip
|
|
read-byte fcode-num 7 + C!
|
|
ELSE
|
|
read-byte fcode-num 2 + C!
|
|
next-ip
|
|
read-byte fcode-num 3 + C!
|
|
THEN
|
|
fcode-num @
|
|
;
|
|
|
|
: read-fcode-num32 ( -- n )
|
|
0 fcode-num !
|
|
?arch64 IF
|
|
read-byte fcode-num 4 + C!
|
|
next-ip
|
|
read-byte fcode-num 5 + C!
|
|
next-ip
|
|
read-byte fcode-num 6 + C!
|
|
next-ip
|
|
read-byte fcode-num 7 + C!
|
|
ELSE
|
|
read-byte fcode-num 0 + C!
|
|
next-ip
|
|
read-byte fcode-num 1 + C!
|
|
next-ip
|
|
read-byte fcode-num 2 + C!
|
|
next-ip
|
|
read-byte fcode-num 3 + C!
|
|
THEN
|
|
fcode-num @
|
|
;
|
|
|
|
|
|
[ELSE] \ Now the little endian access functions
|
|
|
|
|
|
: read-fcode-num16 ( -- n )
|
|
0 fcode-num !
|
|
?arch64 IF
|
|
read-byte fcode-num 7 + C!
|
|
next-ip
|
|
read-byte fcode-num 6 + C!
|
|
ELSE
|
|
read-byte fcode-num 1 + C!
|
|
next-ip
|
|
read-byte fcode-num 0 + C!
|
|
THEN
|
|
fcode-num @
|
|
;
|
|
|
|
: read-fcode-num32 ( adr -- n )
|
|
0 fcode-num !
|
|
?arch64 IF
|
|
read-byte fcode-num 7 + C!
|
|
next-ip
|
|
read-byte fcode-num 6 + C!
|
|
next-ip
|
|
read-byte fcode-num 5 + C!
|
|
next-ip
|
|
read-byte fcode-num 4 + C!
|
|
ELSE
|
|
read-byte fcode-num 3 + C!
|
|
next-ip
|
|
read-byte fcode-num 2 + C!
|
|
next-ip
|
|
read-byte fcode-num 1 + C!
|
|
next-ip
|
|
read-byte fcode-num 0 + C!
|
|
THEN
|
|
fcode-num @
|
|
;
|
|
|
|
|
|
[THEN]
|