forth files

This commit is contained in:
aramya 2022-01-19 16:31:43 +01:00
parent b0e6ce143c
commit e64e207ad5
3 changed files with 17 additions and 17 deletions

View File

@ -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

14
loader/def.fth Normal file
View File

@ -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 ;

View File

@ -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