[apple/system_cmds.git] / nvram.tproj / nvram / PowerExpress

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