powerpc-ofw-boot/loader/load.fth

16 lines
586 B
Forth
Raw Normal View History

2022-01-19 15:34:22 +00:00
initmsg
2022-01-01 20:23:00 +00:00
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
2022-01-01 02:46:13 +00:00
fba beige-vram = if screen-width 4 beige-vram + l! then
fba beige-vram = if screen-height 8 beige-vram + l! then
fba mac99-vram = if screen-width 4 mac99-vram + l! then
fba mac99-vram = if screen-height 8 mac99-vram + l! then
2022-01-01 20:23:00 +00:00
." informations stored :" cr
fba a dump
2022-01-01 02:46:13 +00:00
variable run
-1 run !
2022-01-01 20:23:00 +00:00
fba beige-vram diff fba mac99-vram diff and if hardware-error 0 run ! then
2021-09-30 14:59:48 +00:00
run @ 0 = if 1 0 do 0 +loop then
2022-01-19 15:34:22 +00:00
startmsg
2021-09-30 02:19:50 +00:00
boot hd:,\boot\kernel.elf