nvram.tproj/nvram/Silk

   1 ##
   2 # Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
   3 #
   4 # @APPLE_LICENSE_HEADER_START@
   5 #
   6 # "Portions Copyright (c) 1999 Apple Computer, Inc.  All Rights
   7 # Reserved.  This file contains Original Code and/or Modifications of
   8 # Original Code as defined in and that are subject to the Apple Public
   9 # Source License Version 1.0 (the 'License').  You may not use this file
  10 # except in compliance with the License.  Please obtain a copy of the
  11 # License at http://www.apple.com/publicsource and read it before using
  12 # this file.
  13 #
  14 # The Original Code and all software distributed under the License are
  15 # distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
  16 # EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
  17 # INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
  18 # FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
  19 # License for the specific language governing rights and limitations
  20 # under the License."
  21 #
  22 # @APPLE_LICENSE_HEADER_END@
  23 ##
  24 # Version: 1.2.1  Date: 1-30-2001
  25 use-nvramrc? true
  26 load-base 600000
  27 diag-device
  28 nvramrc hex\
  29 : $D find-device ;\
  30 : $E device-end ;\
  31 : $L BLpatch ; : $R BRpatch ;\
  32 : $X execute ;\
  33 : $p 0 to my-self property ;\
  34 : $a " /chosen" $D $p $E ;\
  35 : helpb ['] install-interrupt-vectors ['] noop $R\
  36 0 4000 release-mem 8000 2000 release-mem ;\
  37 10 buffer: km\
  38 dev kbd\
  39 get-key-map km swap move\
  40 $E\
  41 : ck 0 do swap dup 3 >> km + c@ 1 rot 7 and << and or loop ;\
  42 : bootr 0d word count encode-string " machargs" $a\
  43 0 0 1 ck if 0 and else dup 1 = if 3d 0 1 else f 3d 0 2 then ck if 40 or then then\
  44 40 and if bye else helpb 1e 0 do ['] boot catch drop 1f4 ms loop then bye ;\
  45 : myboot boot-command eval ;\
  46 dev /packages/mac-parts\
  47 : $M 7F00 - 4 ;\
  48 ' my-init-program 34 + ' $M $L\
  49 ' load-partition dup\
  50 80 + ' 2drop $L\
  51 104 + ' 0 $L\
  52 ' load 15C + ' 0 $L\
  53 $E\
  54 dev /packages/obp-tftp\
  55 : $M dup 24 - HIS-ENET-HA 6 move 14 + ;\
  56 ' open 66C - ' $M $L\
  57 $E\
  58 dev mac-io\
  59 : decode-unit parse-1hex ;\
  60 $E\
  61 ff000000 dup dup 400 28 do-map 4+ w@ 10 and 0=\
  62 if 90b7 f3000032 w! then\
  63 unselect-dev