2 * Copyright (c) 1996, by Steve Passe
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. The name of the developer may NOT be used to endorse or promote products
11 * derived from this software without specific prior written permission.
13 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
14 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
15 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
16 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
17 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
18 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
19 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
20 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
21 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
22 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 * $FreeBSD: src/usr.sbin/mptable/mptable.c,v 1.12.2.3 2000/12/11 01:03:34 obrien Exp $
26 * $DragonFly: src/usr.sbin/mptable/mptable.c,v 1.4 2008/04/20 13:44:26 swildner Exp $
37 #define MP_SIG 0x5f504d5f /* _MP_ */
38 #define EXTENDED_PROCESSING_READY
39 #define OEM_PROCESSING_READY_NOT
41 #include <sys/types.h>
52 "\n-------------------------------------------------------------------------------\n"
55 "\n===============================================================================\n"
57 /* EBDA is @ 40:0e in real-mode terms */
58 #define EBDA_POINTER 0x040e /* location of EBDA pointer */
60 /* CMOS 'top of mem' is @ 40:13 in real-mode terms */
61 #define TOPOFMEM_POINTER 0x0413 /* BIOS: base memory size */
63 #define DEFAULT_TOPOFMEM 0xa0000
65 #define BIOS_BASE 0xf0000
66 #define BIOS_BASE2 0xe0000
67 #define BIOS_SIZE 0x10000
68 #define ONE_KBYTE 1024
70 #define GROPE_AREA1 0x80000
71 #define GROPE_AREA2 0x90000
72 #define GROPE_SIZE 0x10000
74 #define PROCENTRY_FLAG_EN 0x01
75 #define PROCENTRY_FLAG_BP 0x02
76 #define IOAPICENTRY_FLAG_EN 0x01
88 UNKNOWN_BUSTYPE
= 0xff
91 typedef struct BUSTYPENAME
{
96 static busTypeName busTypeTable
[] =
101 { UNKNOWN_BUSTYPE
, "---" },
102 { UNKNOWN_BUSTYPE
, "---" },
104 { UNKNOWN_BUSTYPE
, "---" },
105 { UNKNOWN_BUSTYPE
, "---" },
106 { UNKNOWN_BUSTYPE
, "---" },
107 { UNKNOWN_BUSTYPE
, "---" },
108 { UNKNOWN_BUSTYPE
, "---" },
109 { UNKNOWN_BUSTYPE
, "---" },
111 { UNKNOWN_BUSTYPE
, "---" },
112 { UNKNOWN_BUSTYPE
, "---" },
113 { UNKNOWN_BUSTYPE
, "---" },
114 { UNKNOWN_BUSTYPE
, "---" },
115 { UNKNOWN_BUSTYPE
, "---" },
116 { UNKNOWN_BUSTYPE
, "---" }
119 const char* whereStrings
[] = {
120 "Extended BIOS Data Area",
121 "BIOS top of memory",
122 "Default top of memory",
129 typedef struct TABLE_ENTRY
{
135 tableEntry basetableEntryTypes
[] =
137 { 0, 20, "Processor" },
139 { 2, 8, "I/O APIC" },
141 { 4, 8, "Local INT" }
144 tableEntry extendedtableEntryTypes
[] =
146 { 128, 20, "System Address Space" },
147 { 129, 8, "Bus Hierarchy" },
148 { 130, 8, "Compatibility Bus Address" }
151 /* MP Floating Pointer Structure */
152 typedef struct MPFPS
{
165 /* MP Configuration Table Header */
166 typedef struct MPCTH
{
168 uint16_t base_table_length
;
172 u_char product_id
[ 12 ];
173 uint32_t oem_table_pointer
;
174 uint16_t oem_table_size
;
175 uint16_t entry_count
;
176 uint32_t apic_address
;
177 uint16_t extended_table_length
;
178 u_char extended_table_checksum
;
183 typedef struct PROCENTRY
{
188 uint32_t cpuSignature
;
189 uint32_t featureFlags
;
194 typedef struct BUSENTRY
{
200 typedef struct IOAPICENTRY
{
205 uint32_t apicAddress
;
208 typedef struct INTENTRY
{
220 * extended entry type structures
223 typedef struct SASENTRY
{
228 u_int64_t addressBase
;
229 u_int64_t addressLength
;
233 typedef struct BHDENTRY
{
239 u_char reserved
[ 3 ];
243 typedef struct CBASMENTRY
{
248 uint32_t predefinedRange
;
253 static void apic_probe( vm_offset_t
* paddr
, int* where
);
255 static void MPConfigDefault( int featureByte
);
257 static void MPFloatingPointer( vm_offset_t paddr
, int where
, mpfps_t
* mpfps
);
258 static void MPConfigTableHeader( uint32_t pap
);
260 static int readType( void );
261 static void seekEntry( vm_offset_t addr
);
262 static void readEntry( void* entry
, int size
);
264 static void processorEntry( void );
265 static void busEntry( void );
266 static void ioApicEntry( void );
267 static void intEntry( void );
269 static void sasEntry( void );
270 static void bhdEntry( void );
271 static void cbasmEntry( void );
273 static void doDmesg( void );
274 static void pnstr( char* s
, int c
);
277 int pfd
; /* physical /dev/mem fd */
295 fprintf( stderr
, "usage: mptable [-dmesg] [-verbose] [-grope] [-raw] [-help]\n" );
303 main( int argc
, char *argv
[] )
312 /* announce ourselves */
315 printf( "MPTable, version %d.%d.%d\n", VMAJOR
, VMINOR
, VDELTA
);
317 while ((ch
= getopt(argc
, argv
, "d:g:h:r:v:")) != -1) {
320 if ( strcmp( optarg
, "mesg") == 0 )
326 if ( strcmp( optarg
, "elp") == 0 )
330 if ( strcmp( optarg
, "rope") == 0 )
334 if ( strcmp (optarg
, "aw") == 0 )
338 if ( strcmp( optarg
, "erbose") == 0 )
349 /* open physical memory for access to MP structures */
350 if ( (pfd
= open( _PATH_MEM
, O_RDONLY
)) < 0 )
351 err( 1, "mem open" );
353 /* probe for MP structures */
354 apic_probe( &paddr
, &where
);
356 fprintf( stderr
, "\n MP FPS NOT found%s\n\n",
357 grope
? "" : ",\n suggest trying -grope option!!!" );
362 printf( "\n MP FPS found in %s @ physical addr: 0x%08lx\n",
363 whereStrings
[ where
- 1 ], paddr
);
367 /* analyze the MP Floating Pointer Structure */
368 MPFloatingPointer( paddr
, where
, &mpfps
);
372 /* check whether an MP config table exists */
373 if ( (defaultConfig
= mpfps
.mpfb1
) )
374 MPConfigDefault( defaultConfig
);
376 MPConfigTableHeader( mpfps
.pap
);
378 /* do a dmesg output */
389 findMpSig(uint32_t target
, size_t bufsize
)
391 uint32_t buffer
[BIOS_SIZE
/ sizeof(uint32_t)];
395 readEntry(buffer
, (bufsize
+ sizeof(*x
) - 1) & ~sizeof(*x
));
396 for (x
= buffer
; x
< buffer
+ bufsize
/ sizeof(*x
); ++x
) {
398 return (x
- buffer
) * sizeof(*x
) + target
;
404 * set PHYSICAL address of MP floating pointer structure
407 apic_probe( vm_offset_t
* paddr
, int* where
)
410 * c rewrite of apic_probe() by Jack F. Vogel
420 /* search Extended Bios Data Area, if present */
422 printf( " looking for EBDA pointer @ 0x%04x, ", EBDA_POINTER
);
423 seekEntry( (vm_offset_t
)EBDA_POINTER
);
424 readEntry( &segment
, sizeof(segment
) );
425 if ( segment
) { /* search EBDA */
426 target
= (vm_offset_t
)segment
<< 4;
428 printf( "found, searching EBDA @ 0x%08lx\n", target
);
430 if ((x
= findMpSig(target
, ONE_KBYTE
)) != -1) {
438 printf( "NOT found\n" );
441 /* read CMOS for real top of mem */
442 seekEntry( (vm_offset_t
)TOPOFMEM_POINTER
);
443 readEntry( &segment
, sizeof(segment
) );
444 --segment
; /* less ONE_KBYTE */
445 target
= segment
* 1024;
447 printf( " searching CMOS 'top of mem' @ 0x%08lx (%dK)\n",
450 if ((x
= findMpSig(target
, ONE_KBYTE
)) != -1) {
456 /* we don't necessarily believe CMOS, check base of the last 1K of 640K */
457 if ( target
!= (DEFAULT_TOPOFMEM
- 1024)) {
458 target
= (DEFAULT_TOPOFMEM
- 1024);
460 printf( " searching default 'top of mem' @ 0x%08lx (%ldK)\n",
461 target
, (target
/ 1024) );
463 if ((x
= findMpSig(target
, ONE_KBYTE
)) != -1) {
470 /* search the BIOS */
472 printf( " searching BIOS @ 0x%08x\n", BIOS_BASE
);
474 if ((x
= findMpSig(BIOS_BASE
, BIOS_SIZE
)) != -1) {
480 /* search the extended BIOS */
482 printf( " searching extended BIOS @ 0x%08x\n", BIOS_BASE2
);
484 if ((x
= findMpSig(BIOS_BASE2
, BIOS_SIZE
)) != -1) {
491 /* search additional memory */
492 target
= GROPE_AREA1
;
494 printf( " groping memory @ 0x%08lx\n", target
);
496 if ((x
= findMpSig(target
, GROPE_SIZE
)) != -1) {
502 target
= GROPE_AREA2
;
504 printf( " groping memory @ 0x%08lx\n", target
);
506 if ((x
= findMpSig(target
, GROPE_SIZE
)) != -1) {
514 *paddr
= (vm_offset_t
)0;
522 MPFloatingPointer( vm_offset_t paddr
, int where
, mpfps_t
* mpfps
)
525 /* read in mpfps structure*/
527 readEntry( mpfps
, sizeof( mpfps_t
) );
529 /* show its contents */
530 printf( "MP Floating Pointer Structure:\n\n" );
532 printf( " location:\t\t\t" );
539 printf( "BIOS base memory\n" );
542 printf( "DEFAULT base memory (639K)\n" );
548 printf( "Extended BIOS\n" );
552 printf( "NOT found!\n" );
555 printf( "BOGUS!\n" );
558 printf( " physical address:\t\t0x%08lx\n", paddr
);
560 printf( " signature:\t\t\t'" );
561 pnstr( mpfps
->signature
, 4 );
564 printf( " length:\t\t\t%d bytes\n", mpfps
->length
* 16 );
565 printf( " version:\t\t\t1.%1d\n", mpfps
->spec_rev
);
566 printf( " checksum:\t\t\t0x%02x\n", mpfps
->checksum
);
568 /* bits 0:6 are RESERVED */
569 if ( mpfps
->mpfb2
& 0x7f ) {
570 printf( " warning, MP feature byte 2: 0x%02x\n", mpfps
->mpfb2
);
574 printf( " mode:\t\t\t\t%s\n", (mpfps
->mpfb2
& 0x80) ?
575 "PIC" : "Virtual Wire" );
577 /* MP feature bytes 3-5 are expected to be ZERO */
579 printf( " warning, MP feature byte 3 NONZERO!\n" );
581 printf( " warning, MP feature byte 4 NONZERO!\n" );
583 printf( " warning, MP feature byte 5 NONZERO!\n" );
591 MPConfigDefault( int featureByte
)
593 printf( " MP default config type: %d\n\n", featureByte
);
594 switch ( featureByte
) {
596 printf( " bus: ISA, APIC: 82489DX\n" );
599 printf( " bus: EISA, APIC: 82489DX\n" );
602 printf( " bus: EISA, APIC: 82489DX\n" );
605 printf( " bus: MCA, APIC: 82489DX\n" );
608 printf( " bus: ISA+PCI, APIC: Integrated\n" );
611 printf( " bus: EISA+PCI, APIC: Integrated\n" );
614 printf( " bus: MCA+PCI, APIC: Integrated\n" );
617 printf( " future type\n" );
621 switch ( featureByte
) {
634 printf( " future type\n" );
648 MPConfigTableHeader( uint32_t pap
)
658 printf( "MP Configuration Table Header MISSING!\n" );
662 /* convert physical address to virtual address */
663 paddr
= (vm_offset_t
)pap
;
665 /* read in cth structure */
667 readEntry( &cth
, sizeof( cth
) );
669 printf( "MP Config Table Header:\n\n" );
671 printf( " physical address:\t\t0x%08x\n", pap
);
673 printf( " signature:\t\t\t'" );
674 pnstr( cth
.signature
, 4 );
677 printf( " base table length:\t\t%d\n", cth
.base_table_length
);
679 printf( " version:\t\t\t1.%1d\n", cth
.spec_rev
);
680 printf( " checksum:\t\t\t0x%02x\n", cth
.checksum
);
682 printf( " OEM ID:\t\t\t'" );
683 pnstr( cth
.oem_id
, 8 );
686 printf( " Product ID:\t\t\t'" );
687 pnstr( cth
.product_id
, 12 );
690 printf( " OEM table pointer:\t\t0x%08x\n", cth
.oem_table_pointer
);
691 printf( " OEM table size:\t\t%d\n", cth
.oem_table_size
);
693 printf( " entry count:\t\t\t%d\n", cth
.entry_count
);
695 printf( " local APIC address:\t\t0x%08x\n", cth
.apic_address
);
697 printf( " extended table length:\t%d\n", cth
.extended_table_length
);
698 printf( " extended table checksum:\t%d\n", cth
.extended_table_checksum
);
700 totalSize
= cth
.base_table_length
- sizeof( struct MPCTH
);
701 count
= cth
.entry_count
;
705 printf( "MP Config Base Table Entries:\n\n" );
707 /* initialze tables */
708 for ( x
= 0; x
< 16; ++x
) {
709 busses
[ x
] = apics
[ x
] = 0xff;
717 /* process all the CPUs */
718 printf( "--\nProcessors:\tAPIC ID\tVersion\tState"
719 "\t\tFamily\tModel\tStep\tFlags\n" );
720 for ( c
= count
; c
; c
-- ) {
721 if ( readType() == 0 )
723 totalSize
-= basetableEntryTypes
[ 0 ].length
;
726 /* process all the busses */
727 printf( "--\nBus:\t\tBus ID\tType\n" );
728 for ( c
= count
; c
; c
-- ) {
729 if ( readType() == 1 )
731 totalSize
-= basetableEntryTypes
[ 1 ].length
;
734 /* process all the apics */
735 printf( "--\nI/O APICs:\tAPIC ID\tVersion\tState\t\tAddress\n" );
736 for ( c
= count
; c
; c
-- ) {
737 if ( readType() == 2 )
739 totalSize
-= basetableEntryTypes
[ 2 ].length
;
742 /* process all the I/O Ints */
743 printf( "--\nI/O Ints:\tType\tPolarity Trigger\tBus ID\t IRQ\tAPIC ID\tPIN#\n" );
744 for ( c
= count
; c
; c
-- ) {
745 if ( readType() == 3 )
747 totalSize
-= basetableEntryTypes
[ 3 ].length
;
750 /* process all the Local Ints */
751 printf( "--\nLocal Ints:\tType\tPolarity Trigger\tBus ID\t IRQ\tAPIC ID\tPIN#\n" );
752 for ( c
= count
; c
; c
-- ) {
753 if ( readType() == 4 )
755 totalSize
-= basetableEntryTypes
[ 4 ].length
;
759 #if defined( EXTENDED_PROCESSING_READY )
760 /* process any extended data */
761 if ( (totalSize
= cth
.extended_table_length
) ) {
764 printf( "MP Config Extended Table Entries:\n\n" );
766 while ( totalSize
> 0 ) {
767 switch ( type
= readType() ) {
778 printf( "Extended Table HOSED!\n" );
782 totalSize
-= extendedtableEntryTypes
[ type
-128 ].length
;
785 #endif /* EXTENDED_PROCESSING_READY */
787 /* process any OEM data */
788 if ( cth
.oem_table_pointer
&& (cth
.oem_table_size
> 0) ) {
789 #if defined( OEM_PROCESSING_READY )
790 # error your on your own here!
791 /* convert OEM table pointer to virtual address */
792 poemtp
= (vm_offset_t
)cth
.oem_table_pointer
;
794 /* read in oem table structure */
795 if ( (oemdata
= (void*)malloc( cth
.oem_table_size
)) == NULL
)
796 err( 1, "oem malloc" );
799 readEntry( oemdata
, cth
.oem_table_size
);
805 printf( "\nyou need to modify the source to handle OEM data!\n\n" );
806 #endif /* OEM_PROCESSING_READY */
813 u_char dumpbuf
[ 4096 ];
815 ofd
= open( "/tmp/mpdump", O_CREAT
| O_RDWR
);
817 readEntry( dumpbuf
, 1024 );
818 write( ofd
, dumpbuf
, 1024 );
832 if ( read( pfd
, &type
, sizeof( u_char
) ) != sizeof( u_char
) )
833 err( 1, "type read; pfd: %d", pfd
);
835 if ( lseek( pfd
, -1, SEEK_CUR
) < 0 )
836 err( 1, "type seek" );
846 seekEntry( vm_offset_t addr
)
848 if ( lseek( pfd
, (off_t
)addr
, SEEK_SET
) < 0 )
849 err( 1, "%s seek", _PATH_MEM
);
857 readEntry( void* entry
, int size
)
859 if ( read( pfd
, entry
, size
) != size
)
860 err( 1, "readEntry" );
865 processorEntry( void )
869 /* read it into local memory */
870 readEntry( &entry
, sizeof( entry
) );
875 printf( "\t\t%2d", entry
.apicID
);
876 printf( "\t 0x%2x", entry
.apicVersion
);
879 (entry
.cpuFlags
& PROCENTRY_FLAG_BP
) ? "BSP" : "AP",
880 (entry
.cpuFlags
& PROCENTRY_FLAG_EN
) ? "usable" : "unusable" );
882 printf( "\t %d\t %d\t %d",
883 (entry
.cpuSignature
>> 8) & 0x0f,
884 (entry
.cpuSignature
>> 4) & 0x0f,
885 entry
.cpuSignature
& 0x0f );
887 printf( "\t 0x%04x\n", entry
.featureFlags
);
895 lookupBusType( char* name
)
899 for ( x
= 0; x
< MAX_BUSTYPE
; ++x
)
900 if ( strcmp( busTypeTable
[ x
].name
, name
) == 0 )
901 return busTypeTable
[ x
].type
;
903 return UNKNOWN_BUSTYPE
;
915 /* read it into local memory */
916 readEntry( &entry
, sizeof( entry
) );
921 printf( "\t\t%2d", entry
.busID
);
922 printf( "\t " ); pnstr( entry
.busType
, 6 ); printf( "\n" );
924 for ( x
= 0; x
< 6; ++x
) {
925 if ( (c
= entry
.busType
[ x
]) == ' ' )
930 busses
[ entry
.busID
] = lookupBusType( name
);
939 /* read it into local memory */
940 readEntry( &entry
, sizeof( entry
) );
945 printf( "\t\t%2d", entry
.apicID
);
946 printf( "\t 0x%02x", entry
.apicVersion
);
948 (entry
.apicFlags
& IOAPICENTRY_FLAG_EN
) ? "usable" : "unusable" );
949 printf( "\t\t 0x%x\n", entry
.apicAddress
);
951 apics
[ entry
.apicID
] = entry
.apicID
;
955 const char* intTypes
[] = {
956 "INT", "NMI", "SMI", "ExtINT"
959 const char* polarityMode
[] = {
960 "conforms", "active-hi", "reserved", "active-lo"
962 const char* triggerMode
[] = {
963 "conforms", "edge", "reserved", "level"
971 /* read it into local memory */
972 readEntry( &entry
, sizeof( entry
) );
975 if ( (int)entry
.type
== 3 )
978 printf( "\t\t%s", intTypes
[ (int)entry
.intType
] );
980 printf( "\t%9s", polarityMode
[ (int)entry
.intFlags
& 0x03 ] );
981 printf( "%12s", triggerMode
[ ((int)entry
.intFlags
>> 2) & 0x03 ] );
983 printf( "\t %5d", (int)entry
.srcBusID
);
984 if ( busses
[ (int)entry
.srcBusID
] == PCI
)
986 ((int)entry
.srcBusIRQ
>> 2) & 0x1f,
987 ((int)entry
.srcBusIRQ
& 0x03) + 'A' );
989 printf( "\t %3d", (int)entry
.srcBusIRQ
);
990 printf( "\t %6d", (int)entry
.dstApicID
);
991 printf( "\t %3d\n", (int)entry
.dstApicINT
);
1000 /* read it into local memory */
1001 readEntry( &entry
, sizeof( entry
) );
1003 printf( "--\n%s\n", extendedtableEntryTypes
[entry
.type
- 128].name
);
1004 printf( " bus ID: %d", entry
.busID
);
1005 printf( " address type: " );
1006 switch ( entry
.addressType
) {
1008 printf( "I/O address\n" );
1011 printf( "memory address\n" );
1014 printf( "prefetch address\n" );
1017 printf( "UNKNOWN type\n" );
1021 printf( " address base: 0x%" PRIx64
"\n", entry
.addressBase
);
1022 printf( " address range: 0x%" PRIx64
"\n", entry
.addressLength
);
1031 /* read it into local memory */
1032 readEntry( &entry
, sizeof( entry
) );
1034 printf( "--\n%s\n", extendedtableEntryTypes
[entry
.type
- 128].name
);
1035 printf( " bus ID: %d", entry
.busID
);
1036 printf( " bus info: 0x%02x", entry
.busInfo
);
1037 printf( " parent bus ID: %d\n", entry
.busParent
);
1046 /* read it into local memory */
1047 readEntry( &entry
, sizeof( entry
) );
1049 printf( "--\n%s\n", extendedtableEntryTypes
[entry
.type
- 128].name
);
1050 printf( " bus ID: %d", entry
.busID
);
1051 printf( " address modifier: %s\n", (entry
.addressMod
& 0x01) ?
1052 "subtract" : "add" );
1053 printf( " predefined range: 0x%08x\n", entry
.predefinedRange
);
1065 printf( "dmesg output:\n\n" );
1075 pnstr( char* s
, int c
)
1077 char string
[ MAXPNSTR
+ 1 ];
1081 strncpy( string
, s
, c
);
1083 printf( "%s", string
);