Return to apic.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / util

Annotation of qemu/roms/openbios/forth/util/apic.fs, revision 1.1.1.1

1.1       root        1: \ 
                      2: \ ioapic and local apic tester
                      3: \ 
                      4: \ Copyright (C) 2003 Stefan Reinauer
                      5: \ 
                      6: \ See the file "COPYING" for further information about
                      7: \ the copyright and warranty status of this work.
                      8: \ 
                      9: 
                     10: hex
                     11: 
                     12: fee00000 constant lapic_base
                     13: fec00000 constant ioapic_base
                     14: 
                     15: : read_lapic ( regoffset -- value )
                     16:   lapic_base + l@
                     17:   ;
                     18: 
                     19: : write_lapic ( value regoffset -- )
                     20:   lapic_base + l!
                     21:   ;
                     22: 
                     23: : read_ioapic ( regoffset -- low_value high_value )
                     24:   2* 10 + dup 
                     25:   ioapic_base l! ioapic_base 4 cells + l@
                     26:   swap 1+ 
                     27:   ioapic_base l! ioapic_base 4 cells + l@
                     28:   ;
                     29: 
                     30: : write_ioapic ( low high regoffset -- )
                     31:   2* 10 + dup                                  ( low high offs offs ) 
                     32:   ioapic_base l! rot ioapic_base 4 cells + l!  ( high offs )
                     33:   1+
                     34:   ioapic_base l! ioapic_base 4 cells + l!      ( high offs )
                     35:   ;
                     36: 
                     37: : test-lapic 
                     38:   s" Dumping local apic:" type cr
                     39:   3f0 0 do
                     40:     i dup ( lapic_base + ) s" 0x" type . s" = 0x" type read_lapic space . 
                     41:     i 30 and 0= if cr then
                     42:   10 +loop
                     43:   cr
                     44:   ;
                     45: 
                     46: : test-ioapic
                     47:   s" Dumping io apic:" type cr
                     48:   17 0 do 
                     49:     i dup s" irq=" type . read_ioapic s" = 0x" type . s" ." type . 
                     50:     i 1 and 0<> if 
                     51:       cr
                     52:     then
                     53:   loop
                     54:   cr
                     55:   ;
                     56: 
                     57: : dump-apics
                     58:   test-lapic
                     59:   test-ioapic
                     60:   ;
                     61: 
                     62: \ tag: apic test utility

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.