]>
Commit | Line | Data |
---|---|---|
1815bff5 A |
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 |