mirror of
https://github.com/thamugadi/powerpc-ofw-boot.git
synced 2024-06-04 22:29:32 +00:00
15 lines
448 B
Forth
15 lines
448 B
Forth
: initmsg ." powerpc-ofw-boot" 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 ;
|