/* * Hard disc boot block. Loaded at 0x7C00, relocates to 0x0600: *	8a mbr.s; 8l -o mbr -l -H3 -T0x0600 mbr.8 */#include "x16.h"/*#define FLOPPY	1		/* test on a floppy */#define TRACE(C)	PUSHA;\			CLR(rBX);\			MOVB $C, AL;\			LBI(0x0E, rAH);\			SYSCALL(0x10);\			POPA/* * We keep data on the stack, indexed by BP. */#define Xdap		0x00		/* disc address packet */#define Xtable		0x10		/* partition table entry */#define Xdrive		0x12		/* starting disc */#define Xtotal		0x14		/* sum of allocated data above *//* * Start: loaded at 0000:7C00, relocate to 0000:0600. * Boot drive is in rDL. */TEXT _start(SB), $0	CLI	CLR(rAX)	MTSR(rAX, rSS)			/* 0000 -> rSS */	LWI((0x7C00-Xtotal), rSP)	/* 7Bxx -> rSP */	MW(rSP, rBP)			/* set the indexed-data pointer */	MTSR(rAX, rDS)			/* 0000 -> rDS, source segment */	LWI(0x7C00, rSI)		/* 7C00 -> rSI, source offset */	MTSR(rAX, rES)			/* 0000 -> rES, destination segment */	LWI(0x600, rDI)			/* 0600 -> rDI, destination offset */	LWI(0x100, rCX)			/* 0100 -> rCX, loop count (words) */	CLD	REP; MOVSL			/* MOV DS:[(E)SI] -> ES:[(E)DI] */	FARJUMP16(0x0000, _start0600(SB))TEXT _start0600(SB), $0#ifdef FLOPPY	LBI(0x80, rDL)#endif /* FLOPPY */	SXB(rDL, Xdrive, xBP)		/* save disc */	LWI(confidence(SB), rSI)	/* for that warm, fuzzy feeling */	CALL(BIOSputs(SB))	LWI(_start+0x01BE(SB), rSI)	/* address of partition table */	LWI(0x04, rCX)			/* 4 entries in table */	LBI(0x80, rAH)			/* active entry value */	CLRB(rAL)			/* inactive entry value */_activeloop0:	LXB(0x00, xSI, rBL)		/* get active entry from table */	CMPB(rBL, rAH)			/* is this an active entry? */	JEQ _active	CMPB(rBL, rAL)			/* if not active it should be 0 */	JNE _invalidMBR	ADDI(0x10, rSI)			/* next table entry */	DEC(rCX)	JNE _activeloop0	LWI(noentry(SB), rSI)	CALL(buggery(SB))_active:	MW(rSI, rDI)			/* save table address */_activeloop1:	ADDI(0x10, rSI)			/* next table entry */	DEC(rCX)	JEQ _readsector	LXB(0x00, xSI, rBL)		/* get active entry from table */	CMPB(rBL, rAH)			/* is this an active entry? */	JNE _activeloop1		/* should only be one active */_invalidMBR:	LWI(invalidMBR(SB), rSI)	CALL(buggery(SB))_readsector:	LBI(0x41, rAH)			/* check extensions present */	LWI(0x55AA, rBX)	LXB(Xdrive, xBP, rDL)		/* drive */	SYSCALL(0x13)			/* CF set on failure */	JCS _readsector2	CMPI(0xAA55, rBX)	JNE _readsector2	ANDI(0x0001, rCX)	JEQ _readsector2_readsector42:	SBPBI(0x10, Xdap+0)		/* packet size */	SBPBI(0x00, Xdap+1)		/* reserved */	SBPBI(0x01, Xdap+2)		/* number of blocks to transfer */	SBPBI(0x00, Xdap+3)		/* reserved */	SBPWI(0x7C00, Xdap+4)		/* transfer buffer :offset */	SBPWI(0x0000, Xdap+6)		/* transfer buffer seg: */	LXW(0x08, xDI, rAX)		/* LBA (64-bits) */	SBPW(rAX, Xdap+8)	LXW(0x0A, xDI, rAX)	SBPW(rAX, Xdap+10)	SBPWI(0x0000, Xdap+12)	SBPWI(0x0000, Xdap+14)	MW(rBP, rSI)			/* disk address packet */	LBI(0x42, rAH)			/* extended read */	SYSCALL(0x13)			/* CF set on failure */	JCC _readsectorok	LWI(ioerror(SB), rSI)	CALL(buggery(SB))/* * Read a sector from a disc using the traditional BIOS call. * For SYSCALL(0x13/AH=0x02): *   rAH	0x02 *   rAL	number of sectors to read (1) *   rCH	low 8 bits of cylinder *   rCL	high 2 bits of cylinder (7-6), sector (5-0) *   rDH	head *   rDL	drive *   rES:rBX	buffer address */_readsector2:	LXB(0x01, xDI, rDH)		/* head */	LXW(0x02, xDI, rCX)		/* save active cylinder/sector */	LWI(0x0201, rAX)		/* read one sector */	LXB(Xdrive, xBP, rDL)		/* drive */	LWI(0x7C00, rBX)		/* buffer address (rES already OK) */	SYSCALL(0x13)			/* CF set on failure */	JCC _readsectorok	LWI(ioerror(SB), rSI)	CALL(buggery(SB))_readsectorok:	LWI(0x7C00, rBX)		/* buffer address (rES already OK) */	LXW(0x1FE, xBX, rAX)	CMPI(0xAA55, rAX)	JNE _bbnotok	/*	 * Jump to the loaded PBS.	 * rDL and rSI should still contain the drive	 * and partition table pointer respectively.	 */	MW(rDI, rSI)	FARJUMP16(0x0000, 0x7C00)_bbnotok:	LWI(invalidPBS(SB), rSI)TEXT buggery(SB), $0	CALL(BIOSputs(SB))	LWI(reboot(SB), rSI)	CALL(BIOSputs(SB))_wait:	CLR(rAX)			/* wait for any key */	SYSCALL(0x16)_reset:	CLR(rBX)			/* set ES segment for BIOS area */	MTSR(rBX, rES)	LWI(0x0472, rBX)		/* warm-start code address */	LWI(0x1234, rAX)		/* warm-start code */	POKEW				/* MOVW	AX, ES:[BX] */	FARJUMP16(0xFFFF, 0x0000)	/* reset *//* * Output a string to the display. * String argument is in rSI. */TEXT BIOSputs(SB), $0	PUSHA	CLR(rBX)_BIOSputs:	LODSB	ORB(rAL, rAL)	JEQ _BIOSputsret	LBI(0x0E, rAH)	SYSCALL(0x10)	JMP _BIOSputs_BIOSputsret:	POPA	RETTEXT noentry(SB), $0	BYTE $'N'; BYTE $'o'; BYTE $' '; BYTE $'a';	BYTE $'c'; BYTE $'t'; BYTE $'i'; BYTE $'v';	BYTE $'e'; BYTE $' '; BYTE $'e'; BYTE $'n';	BYTE $'t'; BYTE $'r'; BYTE $'y'; BYTE $' ';	BYTE $'i'; BYTE $'n'; BYTE $' '; BYTE $'M';	BYTE $'B'; BYTE $'R';	BYTE $'\z';TEXT invalidMBR(SB), $0	BYTE $'I'; BYTE $'n'; BYTE $'v'; BYTE $'a';	BYTE $'l'; BYTE $'i'; BYTE $'d'; BYTE $' ';	BYTE $'M'; BYTE $'B'; BYTE $'R';	BYTE $'\z';TEXT ioerror(SB), $0	BYTE $'I'; BYTE $'/'; BYTE $'O'; BYTE $' ';	BYTE $'e'; BYTE $'r'; BYTE $'r'; BYTE $'o';	BYTE $'r';	BYTE $'\z';TEXT invalidPBS(SB), $0	BYTE $'I'; BYTE $'n'; BYTE $'v'; BYTE $'a';	BYTE $'l'; BYTE $'i'; BYTE $'d'; BYTE $' ';	BYTE $'P'; BYTE $'B'; BYTE $'S';	BYTE $'\z';TEXT reboot(SB), $0	BYTE $'\r';BYTE $'\n';	BYTE $'P'; BYTE $'r'; BYTE $'e'; BYTE $'s';	BYTE $'s'; BYTE $' '; BYTE $'a'; BYTE $'l'; 	BYTE $'m'; BYTE $'o'; BYTE $'s'; BYTE $'t';	BYTE $' '; BYTE $'a'; BYTE $'n'; BYTE $'y';	BYTE $' '; BYTE $'k'; BYTE $'e'; BYTE $'y';	BYTE $' '; BYTE $'t'; BYTE $'o'; BYTE $' ';	BYTE $'r'; BYTE $'e'; BYTE $'b'; BYTE $'o';	BYTE $'o'; BYTE $'t'; BYTE $'.'; BYTE $'.';	BYTE $'.';	BYTE $'\z';TEXT confidence(SB), $0	BYTE $'M'; BYTE $'B'; BYTE $'R'; BYTE $'.';	BYTE $'.'; BYTE $'.';	BYTE $'\z';