3 \ fetch the /chosen/bootpath property
4 " /chosen" find-package if ( phandle )
5 " bootpath" rot get-package-property 0= if ( propval$ )
6 get-encoded-string ( bootpath$ )
7 [char] \ left-parse-string 2nip ( dn$ )
9 \ store the first part of bootpath (up to the '\') in $DN
14 " ro root=LABEL=DebXO video=lxfb fbcon=font:SUN12x22" to boot-file
15 game-key-mask h# 80 and if
16 \ boot from backup kernel
17 " ${DN}\vmlinuz.bak" expand$ to boot-device
18 " ${DN}\initrd.img.bak" expand$ to ramdisk
20 \ boot from regular kernel
21 " ${DN}\vmlinuz" expand$ to boot-device
22 " ${DN}\initrd.img" expand$ to ramdisk