Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / SLOF / slof / fs / fcode / little-big.fs

diff --git a/qemu/roms/SLOF/slof/fs/fcode/little-big.fs b/qemu/roms/SLOF/slof/fs/fcode/little-big.fs
new file mode 100644 (file)
index 0000000..309c626
--- /dev/null
+++ b/qemu/roms/SLOF/slof/fs/fcode/little-big.fs
@@ -0,0 +1,96 @@
+\ *****************************************************************************
+\ * 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]