qemu/roms/openbios/forth/device/preof.fs

   1 \ tag: historical and pre open firmware fcode functions
   2 \
   3 \ this code implements IEEE 1275-1994 ch. H.2.2 and 5.3.1.1.1
   4 \
   5 \ Copyright (C) 2003 Stefan Reinauer
   6 \
   7 \ See the file "COPYING" for further information about
   8 \ the copyright and warranty status of this work.
   9 \
  10
  11 \ H.2.2 Non-implemented FCodes
  12 \ Pre-Open Firmware systems assigned the following FCode numbers,
  13 \ but the functions were not supported. These FCode numbers stay
  14 \ reserved to avoid confusion.
  15
  16 : non-implemented
  17   ." Non-implemented historical or pre-Open Firmware FCode occured." cr
  18   end0
  19   ;
  20
  21 : adr-mask              non-implemented ;
  22 : b(code)               non-implemented ;
  23 : 4-byte-id             non-implemented ;
  24 : convert               non-implemented ;
  25 : frame-buffer-busy?    non-implemented ;
  26 : poll-packet           non-implemented ;
  27 : return-buffer         non-implemented ;
  28 : set-token-table       non-implemented ;
  29 : set-table             non-implemented ;
  30 : xmit-packet           non-implemented ;
  31
  32 \ historical fcode words defined by 5.3.1.1.1
  33
  34 30000 constant fcode-version    \ this opcode is considered obsolete
  35 30000 constant firmware-version \ this opcode is considered obsolete
  36
  37 \ historical - Returns the type of processor.
  38 \ 0x5 indicates SPARC, other values are not used.
  39 \ ?? this could be set by the kernel during bootstrap.
  40 deadbeef constant processor-type ( -- processor-type )
  41
  42 : memmap                non-implemented ;
  43 : >physical             non-implemented ;
  44 : my-params             non-implemented ;
  45 : intr                  non-implemented ;
  46 : driver                non-implemented ;
  47 : group-code            non-implemented ;
  48 : probe                 non-implemented ;
  49 : probe-virtual         non-implemented ;