openbios/fcode-utils/toke/examples/fcdisp.fs
Branch
-
Show log
Commit
-
Hash : 837b7737
Author :
Date : 2006-08-18T09:07:34
moving fcode suite to an extra directory git-svn-id: svn://coreboot.org/openbios/fcode-utils@74 f158a5a8-5612-0410-a976-696ce0be7e32
-
toke/examples/fcdisp.fs
-
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
\ This file has been created with codegen's ccfcode fcode-version2 headers \ C runtime variable $frame 0 $frame ! " dev /pci" evaluate ( asm ) new-device ( asm ) \ function screen_open : screen_open recursive 24 $frame @ >r alloc-mem $frame ! " "(61737369676E65642D616464726573736573)" get-my-property ( asm ) if " "(63616E6E6F742066696E642061737369676E65642D6164647265737365732070726F70657274790A)" type abort then begin decode-int ( asm ) dup $frame @ 8 + ( physhi ) l! drop decode-int ( asm ) dup $frame @ 16 + ( physmid ) l! drop decode-int ( asm ) dup $frame @ 20 + ( physlo ) l! drop decode-int ( asm ) dup $frame @ ( sizehi ) l! drop decode-int ( asm ) dup $frame @ 4 + ( sizelo ) l! drop dup ( top ) ( asm ) 0 > 1 and 0<> if $frame @ 8 + ( physhi ) l@ 24 >>a 7 and 2 <> 1 and then while repeat 2drop ( asm ) 4 " "(636F6E6669672D6C40)" $call-parent ( asm ) ( pop ) ( asm ) 24 $frame @ swap free-mem r> $frame ! exit dup $frame @ 12 + ( cfg ) l! drop 4 $frame @ 12 + ( cfg ) l@ 65535 and 1 or 2 or " "(636F6E6669672D6C21)" $call-parent ( asm ) $frame @ 8 + ( physhi ) l@ $frame @ 16 + ( physmid ) l@ $frame @ 20 + ( physlo ) l@ 480 640 * " "(6D61702D696E)" $call-parent ( asm ) ( pop ) ( asm ) 24 $frame @ swap free-mem r> $frame ! exit to frame-buffer-adr ( asm ) default-font ( asm ) set-font ( asm ) 640 480 80 25 fb8-install ( asm ) 24 $frame @ swap free-mem r> $frame ! ; \ end screen_open \ function screen_close : screen_close recursive 4 $frame @ >r alloc-mem $frame ! 4 " "(636F6E6669672D6C40)" $call-parent ( asm ) ( pop ) ( asm ) 4 $frame @ swap free-mem r> $frame ! exit dup $frame @ ( cfg ) l! drop 4 $frame @ ( cfg ) l@ 65528 and " "(636F6E6669672D6C21)" $call-parent ( asm ) frame-buffer-adr ( asm ) 480 640 * " "(6D61702D6F7574)" $call-parent ( asm ) 4 $frame @ swap free-mem r> $frame ! ; \ end screen_close \ function screen_selftest : screen_selftest recursive " "(73637265656E2073656C66746573740A)" type 0 exit ; \ end screen_selftest \ function main : main recursive " "(73637265656E)" device-name ( asm ) " "(646973706C6179)" device-type ( asm ) " "(6D616B652D70726F70657274696573)" evaluate " "()" " "(69736F363432392D313938332D636F6C6F7273)" property 0 1 0 8 reg ['] screen_open is-install ( asm ) ['] screen_close is-remove ( asm ) ['] screen_selftest is-selftest ( asm ) finish-device ( asm ) ; \ end main main fcode-end