forth files
This commit is contained in:
parent
b0e6ce143c
commit
e64e207ad5
3
Makefile
3
Makefile
|
@ -13,8 +13,9 @@ DISK.APM: kernel.elf bootinfo.txt scripts/kpartx.sh
|
|||
sudo cp kernel.elf /mnt/boot
|
||||
sudo umount /mnt/
|
||||
sudo kpartx -d DISK.APM
|
||||
bootinfo.txt: loader/load.fth
|
||||
bootinfo.txt: loader/*.fth
|
||||
echo "<chrp-boot><boot-script>" >> bootinfo.txt
|
||||
cat loader/def.fth >> bootinfo.txt
|
||||
cat loader/load.fth >> bootinfo.txt
|
||||
echo "</boot-script></chrp-boot>" >> bootinfo.txt
|
||||
kernel.elf: start.elf boot.elf
|
||||
|
|
|
@ -0,0 +1,14 @@
|
|||
: msg ." powerpc-ofw-boot : Booting through OpenFirmware..." cr ;
|
||||
: sup - dup abs = ;
|
||||
: inf dup sup 1 + ;
|
||||
: diff = if 0 else -1 then ;
|
||||
: fba frame-buffer-adr ;
|
||||
: beige-vram 80000000 ; : mac99-vram 81000000 ;
|
||||
: hardware-error ." Hardware not supported." cr ;
|
||||
: beige-message ." Beige hardware detected" cr ;
|
||||
: mac99-message ." mac99 hardware detected" cr ;
|
||||
: beige-magic-number 0BE ;
|
||||
: mac99-magic-number 05A ;
|
||||
: magic-number-offset 0 ;
|
||||
: width-offset 4 ;
|
||||
: height-offset 8 ;
|
|
@ -1,19 +1,4 @@
|
|||
." powerpc-ofw-boot : Booting through OpenFirmware..." cr
|
||||
\ storing 0xBE for beige, 0x5A for mac99
|
||||
\ cannot use superior, inferior, different symbols (bootinfo.txt)
|
||||
: sup - dup abs = ;
|
||||
: inf dup sup 1 + ;
|
||||
: diff = if 0 else -1 then ;
|
||||
: fba frame-buffer-adr ;
|
||||
: beige-vram 80000000 ; : mac99-vram 81000000 ;
|
||||
: hardware-error ." Hardware not supported." cr ;
|
||||
: beige-message ." Beige hardware detected" cr ;
|
||||
: mac99-message ." mac99 hardware detected" cr ;
|
||||
: beige-magic-number 0BE ;
|
||||
: mac99-magic-number 05A ;
|
||||
: magic-number-offset 0 ;
|
||||
: width-offset 4 ;
|
||||
: height-offset 8 ;
|
||||
msg
|
||||
fba beige-vram = if beige-message beige-magic-number beige-vram c! then
|
||||
fba mac99-vram = if mac99-message mac99-magic-number mac99-vram c! then
|
||||
fba beige-vram = if screen-width 4 beige-vram + l! then
|
||||
|
|
Loading…
Reference in New Issue