From 3f2546b2ef55b661fd8dd69682b38992225e86f6 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 29 Apr 2019 01:17:54 +0100
Subject: Initial import of qemu-2.4.1

---
 roms/SLOF/slof/fs/little-endian.fs | 77 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 roms/SLOF/slof/fs/little-endian.fs

(limited to 'roms/SLOF/slof/fs/little-endian.fs')

diff --git a/roms/SLOF/slof/fs/little-endian.fs b/roms/SLOF/slof/fs/little-endian.fs
new file mode 100644
index 00000000..f2e4e8d4
--- /dev/null
+++ b/roms/SLOF/slof/fs/little-endian.fs
@@ -0,0 +1,77 @@
+\ *****************************************************************************
+\ * 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
+\ ****************************************************************************/
+
+deadbeef here l!
+here c@ de = CONSTANT ?bigendian
+here c@ ef = CONSTANT ?littleendian
+
+
+?bigendian [IF]
+
+: l!-le  >r lbflip r> l! ;
+: l@-le  l@ lbflip ;
+
+: w!-le  >r wbflip r> w! ;
+: w@-le  w@ wbflip ;
+
+: rx!-le  >r xbflip r> rx! ;
+: rx@-le  rx@ xbflip ;
+
+: rl!-le  >r lbflip r> rl! ;
+: rl@-le  rl@ lbflip ;
+
+: rw!-le  >r wbflip r> rw! ;
+: rw@-le  rw@ wbflip ;
+
+: l!-be  l! ;
+: l@-be  l@ ;
+
+: w!-be  w! ;
+: w@-be  w@ ;
+
+: rl!-be  rl! ;
+: rl@-be  rl@ ;
+
+: rw!-be  rw! ;
+: rw@-be  rw@ ;
+
+
+[ELSE]
+
+: l!-le  l! ;
+: l@-le  l@ ;
+
+: w!-le  w! ;
+: w@-le  w@ ;
+
+: rx!-le  rx! ;
+: rx@-le  rx@ ;
+
+: rl!-le  rl! ;
+: rl@-le  rl@ ;
+
+: rw!-le  rw! ;
+: rw@-le  rw@ ;
+
+: l!-be  >r lbflip r> l! ;
+: l@-be  l@ lbflip ;
+
+: w!-be  >r wbflip r> w! ;
+: w@-be  w@ wbflip ;
+
+: rl!-be  >r lbflip r> rl! ;
+: rl@-be  rl@ lbflip ;
+
+: rw!-be  >r wbflip r> rw! ;
+: rw@-be  rw@ wbflip ;
+
+[THEN]
-- 
cgit v1.2.3