usr/src/sys.386bsd/i386/stand/asbootblk.c

/*
 * sys/i386/stand/asbootblk.c
 *
 * Boot block for Adaptech 1542 SCSI
 *
 * April 10, 1992
 * Pace Willisson
 * pace@blitz.com
 *
 * Placed in the public domain with NO WARRANTIES, not even the
 * implied warranties for MERCHANTABILITY or FITNESS FOR A
 * PARTICULAR PURPOSE.
 *
 * To compile:
 *
 *      cc -O -c -DRELOC=0x70000 asbootblk.c
 *      ld -N -T 7c00 asbootblk.o
 *
 * This should result in a file with 512 bytes of text and no initialized
 * data.  Strip the 32 bit header and place in block 0.
 *
 * When run, this program copies at least the first 8 blocks of SCSI
 * target 0 to the address specified by RELOC, then jumps to the
 * address RELOC+1024 (skipping the boot block and disk label).  Usually,
 * disks have 512 bytes per block, but I don't think they ever have
 * less, and it wont hurt if they are bigger, as long as RELOC + 8*SIZE
 * is less than 0xa0000.
 *
 * This bootblock does not support fdisk partitions, and can only be used
 * as the master boot block.
 */

#include "param.h"
#include "disklabel.h"
#include "i386/isa/asreg.h"

/* RELOC should be defined with a -D flag to cc */

#define SECOND_LEVEL_BOOT_START (RELOC + 0x400)
#define READ_SIZE 8192

#define as_port 0x330
#define target 0


#define NBLOCKS (READ_SIZE / 512) /* how many logical blocks to read */


/* These are the parameters to pass to the second level boot */
#define dev 4 /* major device number of as driver in
                 i386/stand/conf.c and i386/i386/conf.c */
#define unit 0 /* partition number of root file system */
#define off 0 /* block offset of root file system */

/* inline i/o borrowed from Roell X server */
static __inline__ void
outb(port, val)
short port;
char val;
{
   __asm__ volatile("outb %%al, %1" : :"a" (val), "d" (port));
}

static __inline__ unsigned int
inb(port)
short port;
{
   unsigned int ret;
   __asm__ volatile("xorl %%eax, %%eax; inb %1, %%al"
                    : "=a" (ret) : "d" (port));
   return ret;
}

/* this code is linked at 0x7c00 and is loaded there by the BIOS */

asm ("
        /* we're running in 16 real mode, so normal assembly doesn't work */
bootbase:
        /* interrupts off */
        cli

        /* load gdt */
        .byte 0x2e,0x0f,0x01,0x16 /* lgdt %cs:$imm */
        .word _gdtarg + 2

        /* turn on protected mode */
        smsw    %ax
        orb     $1,%al
        lmsw    %ax

        /* flush prefetch queue and reload %cs */
        .byte 0xea /* ljmp $8, flush */
        .word flush
        .word 8

flush:
        /* now running in 32 bit mode */
        movl    $0x10,%eax
        movl    %ax,%ds
        movl    %ax,%es
        movl    %ax,%ss
        movl    $0x7c00,%esp
        call    _main
"); /* end of asm */

const char gdt[] = {
        0, 0, 0, 0, 0, 0, 0, 0,
        0xff, 0xff, 0, 0, 0, 0x9f, 0xcf, 0, /* code segment */
        0xff, 0xff, 0, 0, 0, 0x93, 0xcf, 0, /* data segment */
};

const struct {
        short filler;
        short size;
        const char *gdt;
} gdtarg = { 0, sizeof gdt - 1, gdt };

#define CRTBASE ((char *)0xb8000)
#define CHECKPOINT(x) (CRTBASE[0] = x)

volatile struct mailbox_entry mailbox[2];
const char ccb[] = {
        3, /* opcode: normal read/write */
        (target << 5) | 8, /* target num and read flag */
        10, /* scsi cmd len */
        1, /* no automatic request for sense */
        READ_SIZE >> 16, /* data length */
        READ_SIZE >> 8,
        READ_SIZE,
        RELOC >> 16, /* data pointer */
        RELOC >> 8,
        RELOC,
        0, 0, 0, /* link pointer */
        0, /* link id */
        0, /* host status */
        0, /* target status */
        0, 0, /* reserved */

        /* scsi cdb */
        0x28, /* read opcode */
        0, /* logical unit number */
        0, 0, 0, 0, /* logical block address */
        0,      /* reserved */
        0, NBLOCKS, /* transfer length */
        0, /* link control */
};

int (*f)();

main ()
{
        int i;
        extern char edata[], end[];
        char volatile * volatile p, *q;
        int physaddr;

        CHECKPOINT ('a');

        /* clear bss */
        for (p = edata; p < end; p++)
                *p = 0;

        f = (int (*)())SECOND_LEVEL_BOOT_START;

        /* dma setup: see page 5-31 in the Adaptech manual */
        /* this knows we are using drq 5 */
        outb (0xd6, 0xc1);
        outb (0xd4, 0x01);

        outb (as_port + AS_CONTROL, AS_CONTROL_SRST);

        /* delay a little */
        inb (0x84);

        while (inb (as_port + AS_STATUS) != (AS_STATUS_INIT | AS_STATUS_IDLE))
                ;

        CHECKPOINT ('b');

        as_put_byte (AS_CMD_MAILBOX_INIT);
        as_put_byte (1); /* one mailbox out, one in */
        as_put_byte ((int)mailbox >> 16);
        as_put_byte ((int)mailbox >> 8);
        as_put_byte ((int)mailbox);

        while (inb (as_port + AS_STATUS) & AS_STATUS_INIT)
                ;

        CHECKPOINT ('c');

        mailbox[0].msb = (int)ccb >> 16;
        mailbox[0].mid = (int)ccb >> 8;
        mailbox[0].lsb = (int)ccb;
        mailbox[0].cmd = 1;

        as_put_byte (AS_CMD_START_SCSI_COMMAND);

        /* wait for done */
        while (mailbox[1].cmd == 0)
                ;

        CHECKPOINT ('d');

        if (mailbox[1].cmd != 1) {
                /* some error */
                CHECKPOINT ('X');
                while (1);
        }

        CHECKPOINT ('e');

        /* the optimazation that gcc uses when it knows we are jumpping
         * to a constant address is broken, so we have to use a variable
         * here
         */
        (*f)(dev, unit, off);
}

int
as_put_byte (val)
int val;
{
        while (inb (as_port + AS_STATUS) & AS_STATUS_CDF)
                ;
        outb (as_port + AS_DATA_OUT, val);
}

asm ("
ebootblkcode:
        . = 510
        .byte 0x55
        .byte 0xaa
ebootblk:                       /* MUST BE EXACTLY 0x200 BIG FOR SURE */
");