summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs')
-rw-r--r--qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs75
1 files changed, 0 insertions, 75 deletions
diff --git a/qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs b/qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs
deleted file mode 100644
index c8e6f5aa9..000000000
--- a/qemu/roms/SLOF/board-js2x/slof/bcm57xx.fs
+++ /dev/null
@@ -1,75 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2013 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
-\ ****************************************************************************/
-
-\ Handle bcm57xx device
-
-s" network" device-type
-
-my-space pci-alias-net
-
-VARIABLE obp-tftp-package
-
-0 VALUE bcm57xx-priv
-0 VALUE open-count
-
-: open ( -- okay? )
- open-count 0= IF
- open IF
- bcm57xx-open dup not IF ." bcm57xx-open failed" EXIT THEN
- drop dup TO bcm57xx-priv
- 6 encode-bytes s" local-mac-address" property
- true
- ELSE
- false
- THEN
- ELSE
- true
- THEN
- my-args s" obp-tftp" $open-package obp-tftp-package !
- open-count 1 + to open-count
-;
-
-
-: close ( -- )
- open-count 0> IF
- open-count 1 - dup to open-count
- 0= IF
- bcm57xx-priv bcm57xx-close
- close
- THEN
- THEN
- s" close" obp-tftp-package @ $call-method
-;
-
-: read ( buf len -- actual )
- dup IF
- bcm57xx-read
- ELSE
- nip
- THEN
-;
-
-: write ( buf len -- actual )
- dup IF
- bcm57xx-write
- ELSE
- nip
- THEN
-;
-
-: load ( addr -- len )
- s" load" obp-tftp-package @ $call-method
-;
-
-: ping ( -- )
- s" ping" obp-tftp-package @ $call-method
-;