qemu/roms/SLOF/slof/fs/devices/pci-class_02.fs

   1 \ *****************************************************************************
   2 \ * Copyright (c) 2004, 2008 IBM Corporation
   3 \ * All rights reserved.
   4 \ * This program and the accompanying materials
   5 \ * are made available under the terms of the BSD License
   6 \ * which accompanies this distribution, and is available at
   7 \ * http://www.opensource.org/licenses/bsd-license.php
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13 s" network [ " type my-space pci-class-name type s"  ]" type
  14
  15 my-space pci-device-generic-setup
  16 my-space pci-alias-net
  17
  18 s" network" device-type
  19
  20 cr
  21
  22 INSTANCE VARIABLE obp-tftp-package
  23 : open  ( -- okay? )
  24    open IF           \ enables PCI mem, io and Bus master and returns TRUE
  25       my-args s" obp-tftp" $open-package obp-tftp-package ! true
  26    ELSE
  27        false
  28    THEN ;
  29
  30 : close  ( -- )
  31     obp-tftp-package @ close-package
  32     close ;         \ disables PCI mem, io and Bus master
  33
  34 : load  ( addr -- len )
  35     s" load" obp-tftp-package @ $call-method  ;
  36
  37 : ping  ( -- )  s" ping" obp-tftp-package @ $call-method  ;