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 ( t = totalSize, 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 ( t = totalSize, 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 ( t = totalSize, 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 ( t = totalSize, 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 ( t = totalSize, 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 );