projects / apple / system_cmds.git / blame
| 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 " backlight-on" _pmu-ihandle $call-method ;\ | |
| 36 | 10 buffer: km\ | |
| 37 | dev kbd\ | |
| 38 | get-key-map km swap move\ | |
| 39 | $E\ | |
| 40 | : ck 0 do swap dup 3 >> km + c@ 1 rot 7 and << and or loop ;\ | |
| 41 | : bootr 0d word count encode-string " machargs" $a\ | |
| 42 | 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\ | |
| 43 | 40 and if bye else helpb 1e 0 do ['] boot catch drop 1f4 ms loop then bye ;\ | |
| 44 | : myboot boot-command eval ;\ | |
| 45 | dev /packages/mac-parts\ | |
| 46 | : $M -7E8DD8 $X 8000 alloc-mem 7F00 + 4 -7E8DD8 $X ;\ | |
| 47 | ' load 268 - ' $M $L\ | |
| 48 | ' load 160 + ' 0 $L\ | |
| 49 | $E\ | |
| 50 | dev scsi\ | |
| 51 | : $M ['] do-cmd + ;\ | |
| 52 | : $M2 1 ms -5F0 $M $X ;\ | |
| 53 | : $M3 -710 $M f over $X $X ;\ | |
| 54 | : $M4 1 ms ;\ | |
| 55 | -1AC $M ' $M2 $L\ | |
| 56 | 100 $M ' $M3 $L\ | |
| 57 | 120 $M ' $M4 $L\ | |
| 58 | 124 $M ' 1 $L\ | |
| 59 | $E\ | |
| 60 | unselect-dev |