本篇内容涉及到文件与文件系统，以及应用程序的运行。首先实现type命令，读取文件并显示；接下来导入对FAT文件系统的支持，实现读取大小512字节以上，存放在不连续扇区中的文件。在此基础上，最终实现读取并运行应用程序。
1. type命令实现
type命令是Windows命令行中用于读取并显示文件内容的命令，对应Linux中的cat命令。为了获取文件信息，这里还是要用到上一篇提到的结构体：
struct FILEINFO {
unsigned char name[8], ext[3], type;
char reserve[10];
unsigned short time, date, clustno;
unsigned int size;
};
其中clustno这个成员表示文件从磁盘上的哪个扇区开始存放。对于当前的操作系统映像，文件的地址有如下公式：
地址 = clustno * 512 + 0x003e00
这样只需将文件的内容读取，并显示出来即可：
void console_task(struct SHEET *sheet, unsigned int memtotal)
{
……
char s[30], cmdline[30], *p;
……
for (;;) {
io_cli();
if (fifo32_status(&task->fifo) == 0) {
task_sleep(task);
io_sti();
} else {
……
if (256 <= i && i <= 511) {
if (i == 8 + 256) {
if (cursor_x > 16) {
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, " ", 1);
cursor_x -= 8;
}
} else if (i == 10 + 256) {
/* Enter */
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, " ", 1);
cmdline[cursor_x / 8 - 2] = 0;
cursor_y = cons_newline(cursor_y, sheet);
if (strcmp(cmdline, "mem") == 0) {
sprintf(s, "total %dMB", memtotal / (1024 * 1024));
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, s, 30);
cursor_y = cons_newline(cursor_y, sheet);
sprintf(s, "free %dKB", memman_total(memman) / 1024);
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, s, 30);
cursor_y = cons_newline(cursor_y, sheet);
cursor_y = cons_newline(cursor_y, sheet);
} else if (strcmp(cmdline, "cls") == 0) {
for (y = 28; y < 28 + 128; y++) {
for (x = 8; x < 8 + 240; x++) {
sheet->buf[x + y * sheet->bxsize] = COL8_000000;
}
}
sheet_refresh(sheet, 8, 28, 8 + 240, 28 + 128);
cursor_y = 28;
} else if (strcmp(cmdline, "dir") == 0) {
for (x = 0; x < 224; x++) {
if (finfo[x].name[0] == 0x00) {
break;
}
if (finfo[x].name[0] != 0xe5) {
if ((finfo[x].type & 0x18) == 0) {
sprintf(s, "filename.ext %7d", finfo[x].size);
for (y = 0; y < 8; y++) {
s[y] = finfo[x].name[y];
}
s[ 9] = finfo[x].ext[0];
s[10] = finfo[x].ext[1];
s[11] = finfo[x].ext[2];
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, s, 30);
cursor_y = cons_newline(cursor_y, sheet);
}
}
}
cursor_y = cons_newline(cursor_y, sheet);
} else if (cmdline[0] == 't' && cmdline[1] == 'y' && cmdline[2] == 'p' &&
cmdline[3] == 'e' && cmdline[4] == ' ') {
/* type命令 */
/* 准备文件名 */
for (y = 0; y < 11; y++) {
s[y] = ' ';
}
y = 0;
for (x = 5; y < 11 && cmdline[x] != 0; x++) {
if (cmdline[x] == '.' && y <= 8) {
y = 8;
} else {
s[y] = cmdline[x];
if ('a' <= s[y] && s[y] <= 'z') {
/* 将小写字母转换为大写字母 */
s[y] -= 0x20;
}
y++;
}
}
/* 寻找文件 */
for (x = 0; x < 224; ) {
if (finfo[x].name[0] == 0x00) {
break;
}
if ((finfo[x].type & 0x18) == 0) {
for (y = 0; y < 11; y++) {
if (finfo[x].name[y] != s[y]) {
goto type_next_file;
}
}
break; /* 找到文件 */
}
type_next_file:
x++;
}
if (x < 224 && finfo[x].name[0] != 0x00) {
/* 找到文件的情况 */
y = finfo[x].size;
p = (char *) (finfo[x].clustno * 512 + 0x003e00 + ADR_DISKIMG);
cursor_x = 8;
for (x = 0; x < y; x++) {
/* 逐个字符输出 */
s[0] = p[x];
s[1] = 0;
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, s, 1);
cursor_x += 8;
if (cursor_x == 8 + 240) {/* 到达最右端后换行*/
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
}
} else {
/* 没有找到文件的情况 */
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, "File not found.", 15);
cursor_y = cons_newline(cursor_y, sheet);
}
cursor_y = cons_newline(cursor_y, sheet);
} else if (cmdline[0] != 0) {
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, "Bad command.", 12);
cursor_y = cons_newline(cursor_y, sheet);
cursor_y = cons_newline(cursor_y, sheet);
}
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, ">", 1);
cursor_x = 16;
} else {
if (cursor_x < 240) {
s[0] = i - 256;
s[1] = 0;
cmdline[cursor_x / 8 - 2] = i - 256;
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, s, 1);
cursor_x += 8;
}
}
}
if (cursor_c >= 0) {
boxfill8(sheet->buf, sheet->bxsize, cursor_c, cursor_x, cursor_y, cursor_x + 7, cursor_y + 15);
}
sheet_refresh(sheet, cursor_x, cursor_y, cursor_x + 8, cursor_y + 16);
}
}
}
因为type命令后面会跟文件名，因此这里只比较前4个字符是否为“type”。而在准备文件名部分，会将命令行输入的文件名存入s[]数组中，并转换为大写字母。当前只考虑8个字节的文件名与3个字节的扩展名，因此数组的长度为11。找到文件名后，则将文件的内容逐个字符显示出来，否则显示"File not found"。
尝试用type命令打卡make.bat文件，显示很正常：
而尝试打开二进制文件时，则会显示乱码：
再尝试打开nas汇编代码文件时，效果如下：
可以看到有些字符如"DB"，"0x55"正常显示出来了，但还是存在大量的乱码。这是由于没有对换行符和制表符的字符编码进行处理导致的。接下来就来增加对换行符和制表符的支持。
制表符和换行符的字符编码如下：
- 0x09: 制表符
- 0x0a: 换行符
制表符是用来对齐字符显示位置的。制表符的功能是在当前位置到下一个制表位之间填充上空格。这里作者将制表位设置在0，4，8……等能被4整除的字符数的位置处。对程序做如下的改写：
else if (strncmp(cmdline, "type ", 5) == 0)
{
for (y = 0; y < 11; y++)
{
s[y] = ' ';
}
y = 0;
for (x = 5; y < 11 && cmdline[x] != 0; x++)
{
if (cmdline[x] == '.' && y <= 8)
{
y = 8;
} else
{
s[y] = cmdline[x];
if ('a' <= s[y] && s[y] <= 'z')
{
s[y] -= 0x20;
}
y++;
}
}
for (x = 0; x < 224; )
{
if (finfo[x].name[0] == 0x00)
{
break;
}
if ((finfo[x].type & 0x18) == 0)
{
for (y = 0; y < 11; y++)
{
if (finfo[x].name[y] != s[y])
{
goto type_next_file;
}
}
break;
}
type_next_file:
x++;
}
if (x < 224 && finfo[x].name[0] != 0x00)
{
/* 找到文件的情况 */
y = finfo[x].size;
p = (char *) (finfo[x].clustno * 512 + 0x003e00 + ADR_DISKIMG);
cursor_x = 8;
for (x = 0; x < y; x++)
{
/* 逐字输出 */
s[0] = p[x];
s[1] = 0;
if (s[0] == 0x09) { /* 制表符 */
for (;;)
{
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, " ", 1);
cursor_x += 8;
if (cursor_x == 8 + 240)
{
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
if (((cursor_x - 8) & 0x1f) == 0)
{
break; /* 能被32整除则break */
}
}
}
else if (s[0] == 0x0a)
{ /* 换行 */
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
else if (s[0] == 0x0d)
{ /* 回车符 */
/* 这里暂不进行任何操作 */
}
else
{ /* 一般字符 */
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, s, 1);
cursor_x += 8;
if (cursor_x == 8 + 240) {
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
}
}
这里把strcmp换成了strncmp，只比较前5个字符，这样就不需要逐个比较了。
(cursor_x - 8) & 0x1f这一句，用横坐标减8，是去除边框的8个像素；而&0x1f用来判断能否整除32。每个制表符相隔4个字符，每个字符是8个像素，也就是制表符之间相隔32个像素，通过这种方式来判断制表符的位置。
从显示的内容看，仍然有些乱码。不过这是注释的日语部分，这里就暂时忽略了。
2. FAT支持
上面的type命令，其实只能展示512字节以内的文件。对于512字节以上的文件，显示可能会有问题。
这里涉及到Windows的磁盘管理。存放512字节以上的文件时，有时并不存入连续的扇区中，这样我们需要找到文件的下一个扇区。而这一信息，磁盘中是有记录的，找到这一记录就可以正确读取文件内容了。这个记录存放的位置为0柱面，0磁头，2扇区开始的9个扇区，在磁盘映像中的地址为0x000200-0x0013ff。这个记录被称为FAT(file allocation table)。
……
file_readfat(fat, (unsigned char *) (ADR_DISKIMG + 0x000200));
……
if (x < 224 && finfo[x].name[0] != 0x00)
{
p = (char *) memman_alloc_4k(memman, finfo[x].size);
file_loadfile(finfo[x].clustno, finfo[x].size, p, fat, (char *) (ADR_DISKIMG + 0x003e00));
cursor_x = 8;
for (y = 0; y < finfo[x].size; y++)
{
s[0] = p[y];
s[1] = 0;
if (s[0] == 0x09)
{
for (;;)
{
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, " ", 1);
cursor_x += 8;
if (cursor_x == 8 + 240)
{
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
if (((cursor_x - 8) & 0x1f) == 0)
{
break;
}
}
} else if (s[0] == 0x0a)
{
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
else if (s[0] == 0x0d)
{
}
else
{
putfonts8_asc_sht(sheet, cursor_x, cursor_y, COL8_FFFFFF, COL8_000000, s, 1);
cursor_x += 8;
if (cursor_x == 8 + 240)
{
cursor_x = 8;
cursor_y = cons_newline(cursor_y, sheet);
}
}
}
memman_free_4k(memman, (int) p, finfo[x].size);
}
else
{
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, "File not found.", 15);
cursor_y = cons_newline(cursor_y, sheet);
}
由于磁盘映像中的FAT使用了微软公司的算法进行了压缩，首先需要解压，file_readfat函数即是实现解压的功能：
void file_readfat(int *fat, unsigned char *img)
{
int i, j = 0;
for (i = 0; i < 2880; i += 2) {
fat[i + 0] = (img[j + 0] | img[j + 1] << 8) & 0xfff;
fat[i + 1] = (img[j + 1] >> 4 | img[j + 2] << 4) & 0xfff;
j += 3;
}
return;
}
这里就是将算法转换为程序代码实现。在fat数组中，存放着文件下一个扇区的记录。当文件大小在512字节以上时，存放在多个扇区中。我们从fat数组的第一条记录中获取文件第一个扇区的位置，将这个扇区的内容读取出来；然后再从fat数组的第二条记录中获取文件第二个扇区的位置，再将这个扇区的内容读取出来；……以此类推，每读完一个扇区就去fat数组中查询下一条记录，直到记录中的值为FFF，这表示文件已经读完了。
接下来就通过file_loadfile函数将文件读取出来。从代码中可以看出，文件大小在512字节以上，则根据fat获取下一个扇区的位置，持续读取，直到剩余的内容在512字节以内，直接读出。
void file_loadfile(int clustno, int size, char *buf, int *fat, char *img)
{
int i;
for (;;) {
if (size <= 512) {
for (i = 0; i < size; i++) {
buf[i] = img[clustno * 512 + i];
}
break;
}
for (i = 0; i < 512; i++) {
buf[i] = img[clustno * 512 + i];
}
size -= 512;
buf += 512;
clustno = fat[clustno];
}
return;
}
3. 应用程序运行
到目前为止我们已经完成了读取文件的功能。应用程序也是一个文件，如何将其运行起来呢？
需要为应用程序创建一个内存段。将应用程序读入进来，跳转到该段中的程序，就可以开始运行了。跳转的方法，在之前多任务的部分已经讲过，是farjump指令。
……
else if (strcmp(cmdline, "hlt") == 0)
{
/* 启动hlt.hrb应用程序 */
for (y = 0; y < 11; y++)
{
s[y] = ' ';
}
s[0] = 'H';
s[1] = 'L';
s[2] = 'T';
s[8] = 'H';
s[9] = 'R';
s[10] = 'B';
for (x = 0; x < 224; )
{
if (finfo[x].name[0] == 0x00)
{
break;
}
if ((finfo[x].type & 0x18) == 0)
{
for (y = 0; y < 11; y++)
{
if (finfo[x].name[y] != s[y])
{
goto hlt_next_file;
}
}
break; /* 找到文件 */
}
hlt_next_file:
x++;
}
if (x < 224 && finfo[x].name[0] != 0x00)
{
/* 找到文件的情况 */
p = (char *) memman_alloc_4k(memman, finfo[x].size);
file_loadfile(finfo[x].clustno, finfo[x].size, p, fat, (char *) (ADR_DISKIMG + 0x003e00));
set_segmdesc(gdt + 1003, finfo[x].size - 1, (int) p, AR_CODE32_ER);
farjmp(0, 1003 * 8);
memman_free_4k(memman, (int) p, finfo[x].size);
}
else
{
putfonts8_asc_sht(sheet, 8, cursor_y, COL8_FFFFFF, COL8_000000, "File not found.", 15);
cursor_y = cons_newline(cursor_y, sheet);
}
cursor_y = cons_newline(cursor_y, sheet);
}
……
这里我们运行了一个hlt.hrb的应用程序。为了不与windows混淆，这里作者自定义了扩展名.hrb。
我们首先根据文件的大小，通过memman_alloc_4k函数分配一段内存，首地址保存在变量p中。然后调用file_loadfile将hlt.hrb文件读入到这段内存中。接下来，我们设置一个地址段，段号设置为1003(因为1-2号分配给了dsctbl.c使用，3-1002号分配给了前面的多任务mtask.c使用，因此这里使用1003号，当然使用之后的段号也是没问题的)，段的首地址设置为刚才p变量中的地址。这样一切准备就绪，我们使用farjmp指令跳转到1003号段，程序就可以开始运行了。
这个hlt.hrb应用程序其实执行的就是HLT指令，因此执行后CPU进入睡眠状态，现象其实就是命令行窗口完全没有反应了。不过还是可以切换到任务A，或者通过鼠标移动任务A的窗口。
下一篇中将会实现应用程序对操作系统功能的调用。敬请期待。