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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
/* -*- c -*- ------------------------------------------------------------- *
*
* Copyright 2003-2004 H. Peter Anvin - All Rights Reserved
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, Inc., 53 Temple Place Ste 330,
* Boston MA 02111-1307, USA; either version 2 of the License, or
* (at your option) any later version; incorporated herein by reference.
*
* ----------------------------------------------------------------------- */
/* $Id$ */
/*
* mdiskchk.c
*
* DOS program to check for the existence of a memdisk.
*
* This program can be compiled for DOS with the OpenWatcom compiler
* (http://www.openwatcom.org/):
*
* wcl -3 -osx -mt mdiskchk.c
*/
#include <stdio.h>
#include <string.h>
#include <i86.h> /* For MK_FP() */
typedef unsigned long uint32_t;
typedef unsigned short uint16_t;
typedef unsigned char uint8_t;
struct memdiskinfo {
uint16_t bytes; /* Bytes from memdisk */
uint16_t version; /* Memdisk version */
uint32_t base; /* Base of disk in high memory */
uint32_t size; /* Size of disk in sectors */
char far * cmdline; /* Command line */
void far * oldint13; /* Old INT 13h */
void far * oldint15; /* Old INT 15h */
uint16_t olddosmem;
uint8_t bootloaderid;
uint8_t _pad;
/* We add our own fields at the end */
int cylinders;
int heads;
int sectors;
};
struct memdiskinfo * query_memdisk(int drive)
{
static struct memdiskinfo mm;
uint32_t _eax, _ebx, _ecx, _edx;
uint16_t _es, _di;
unsigned char _dl = drive;
uint16_t bytes;
__asm {
.386 ;
mov eax, 454d0800h ;
mov ecx, 444d0000h ;
mov edx, 53490000h ;
mov dl, _dl ;
mov ebx, 3f4b0000h ;
int 13h ;
mov _eax, eax ;
mov _ecx, ecx ;
mov _edx, edx ;
mov _ebx, ebx ;
mov _es, es ;
mov _di, di ;
}
if ( _eax >> 16 != 0x4d21 ||
_ecx >> 16 != 0x4d45 ||
_edx >> 16 != 0x4944 ||
_ebx >> 16 != 0x4b53 )
return NULL;
memset(&mm, 0, sizeof mm);
bytes = *(uint16_t far *)MK_FP(_es, _di);
/* 27 is the most we know how to handle */
if ( bytes > 27 )
bytes = 27;
_fmemcpy((void far *)&mm, (void far *)MK_FP(_es,_di), bytes);
mm.cylinders = ((_ecx >> 8) & 0xff) + ((_ecx & 0xc0) << 2) + 1;
mm.heads = ((_edx >> 8) & 0xff) + 1;
mm.sectors = (_ecx & 0x3f);
return &mm;
}
const char *bootloadername(uint8_t id)
{
static const struct {
uint8_t id, mask;
const char *name;
} *lp, list[] =
{
{ 0x10, 0xf0, "LILO" },
{ 0x20, 0xf0, "LOADLIN" },
{ 0x31, 0xff, "SYSLINUX" },
{ 0x32, 0xff, "PXELINUX" },
{ 0x33, 0xff, "ISOLINUX" },
{ 0x34, 0xff, "EXTLINUX" },
{ 0x30, 0xf0, "SYSLINUX family" },
{ 0x40, 0xf0, "Etherboot" },
{ 0x50, 0xf0, "ELILO" },
{ 0x70, 0xf0, "GRuB" },
{ 0x80, 0xf0, "U-Boot" },
{ 0x00, 0x00, "unknown" }
};
for ( lp = list ; ; lp++ ) {
if ( ((id ^ lp->id) & lp->mask) == 0 )
return lp->name;
}
}
int main(int argc, char *argv[])
{
int d;
int found = 0;
struct memdiskinfo *m;
for ( d = 0 ; d <= 0xff ; d++ ) {
if ( (m = query_memdisk(d)) != NULL ) {
printf("Drive %02X is MEMDISK %u.%02u:\n"
"\tAddress = 0x%08lx, len = %lu sectors, chs = %u/%u/%u,\n"
"\tloader = 0x%02x (%s),\n"
"\tCmdline = %Fs\n",
d, m->version >> 8, m->version & 0xff,
m->base, m->size, m->cylinders, m->heads, m->sectors,
m->bootloaderid, bootloadername(m->bootloaderid),
m->cmdline);
found++;
}
}
return found;
}
|
