/*************************************************************************/
/**                                                                     **/
/** This is the virtual PC's Bios (F000:0 .. F000:FFFF)                 **/
/**                                                                     **/
/** modified from as86 to gas by Bart Oldeman Jan 2001			**/
/**                                                                     **/
/*************************************************************************/

#include "version.h"
#include "memory.h"
#include "emudpmi.h"
#include "macros86.h"
#include "doshelpers.h"
#include "keyboard/keyb_server.h"

/* some other useful definitions */

#define BIOSSEG 0xf000
/* below block is used in int 9 with DS=BIOS_DATA */
#define BIOS_DATA 0x40
#define KEYBUF_READ_PTR  0x1a
#define KEYBUF_WRITE_PTR 0x1c
#define KEYBUFFER_START 0x80
#define KEYBUFFER_END 0x82
#define KEYSHIFT_FLAGS 0x17
#define KEYBOARD_FLAGS_2 0x18
#define KEYBOARD_STATUS_3 0x96
#define BIOS_FLAGS_1 0x71
#define BIOS_FLAGS_2 0x72
/* end int 9 defines */

#define BIOS_TIMER 0x46c
#define BIOS_TIMER_OVERFLOW 0x470
#define HOUR24_ADJUST 0x1800B0
#define DISKETTE_MOTOR_TIMEOUT 0x440
#define BIOS_VIDEO_MODE 0x49

#define _ORG(x) .org (x) - BIOS_START

.code16
.text
	.globl	bios_data_start
bios_data_start:

/******************************************************************
 * BIOS CODE BLOCK						  *
 ******************************************************************/
_ORG(0xe000)
/* COMPAS FE000-FE05A	reserved */
	.ascii	"..............IBM..............."
	.ascii	"DOSEMU Custom BIOS r0.01, Copyri"
	.ascii	"ght 1992-2005.........."

	_ORG(ROM_BIOS_SELFTEST)
/* COMPAS FE05B		jmp to POST */
/* COMPAS FE05E-FE2C2	reserved */
	.global _start
_start:
	hlt
	sti

/* ----------------------------------------------------------------- */	
/* This is for the video init - it calls in order:
   - first helper function (int0xe6,al=8)
   - the video BIOS init entry point at C000:3 or E000:3
   - second helper function (int 0xe6,al=9)
 */
	movb	$DOS_HELPER_CONTROL_VIDEO, %al		/*  Start Video init */
	movb	$DOS_SUBHELPER_VIDEO_GETCONF, %bl
	int	$DOS_HELPER_INT
	cmpb	$0, %al
	je	no_vbios_post
	/* call far 0xc000:3  or call far 0xe000:3 */
	/* More general than just c000 or e000 ??? */	
	pushw	%ds
	lcall	*%cs:bios_f000_int10ptr
	popw	%ds
	sti

/* ----------------------------------------------------------------- */	
/* Post-less video init
 */
no_vbios_post:
	movw	$3,%ax
	int	$0x10
video_init_done:
	movb	$DOS_HELPER_SHOW_BANNER,%al
	int	$DOS_HELPER_INT
	movb	$DOS_HELPER_READ_MBR,%al
	int	$DOS_HELPER_INT
	ljmp	$0x0, $0x7c00		/* Some boot sectors require cs=0 */

	.globl ROM_BIOS_EXIT
ROM_BIOS_EXIT:
	/* set up BIOS exit routine */
	movw	$DOS_HELPER_REALLY_EXIT,%ax
	int	$DOS_HELPER_INT

/* COMPAS FE2C3		jmp to NMI */

	.globl GET_RETCODE_HELPER
GET_RETCODE_HELPER:
	movb	$0x4d, %ah
	int	$0x21
	movw	%ax, %bx
	movb	$DOS_HELPER_SET_RETCODE, %al
	int	$DOS_HELPER_INT
	lret

	/* This is the int74 handler */
	.globl Mouse_ROUTINE_OFF
Mouse_ROUTINE_OFF:
	pushw	%ax	/* save everything */
	pushw	%bx
	movw	$DOS_HELPER_MOUSE_HELPER,%ax	/* mouse helper */
	movw	$0xf2,%bx	/* call the user or PS/2 hook */
	int	$DOS_HELPER_INT
	popw	%bx
	popw	%ax
	ljmp $BIOSSEG, $EOI2_OFF

/* ----------------------------------------------------------------- */
	/* this is IRET */
	.globl IRET_OFF
IRET_OFF:
	iret

/* ----------------------------------------------------------------- */
		/* This is an int e7 used for FCB opens */
	.globl FCB_HLP_OFF
FCB_HLP_OFF:
	pushw	%es
	pushw	%di
	pushw	%ax
	movw	$0x120c,%ax
	clc	/* this func doesnt touch CF but we need it cleared */
	int	$0x2f
	popw	%ax
	popw	%di
	popw	%es
	lret

/* This is installed after video init (helper fcn 0x9) when the internal
	mouse driver is in use.  It watches for mouse set commands and
	resets the mouse driver when it sees one. */
/* Was: Comments and bugs to David Etherton, etherton@netcom.com
 * Current Maintainer:	Eric W. Biederman <eric@biederman.org>
 */	

	.globl INT10_WATCHER_OFF
INT10_WATCHER_OFF:
WINT10:
	jmp 2f
	.globl bios_f000_int10_old
bios_f000_int10_old:
	.long 0
	.word 0x424B	// signature "KB"
	.byte 0		// flag
	jmp 1f		// EB xx for compat
	.space 7	// padding
1:
	lret
2:
	movzwl	%sp,%esp	/* make sure high of esp is zero */
	cmpb	$1, %cs:bios_in_int10_callback
	je	L10
	or	%ah,%ah
	jz	L9	/* normal mode set */
	cmpb	$0x11,%ah
	je	L9	/* character generator, possibly resize the screen */
	cmpw	$0x4F02,%ax
	jne	L10	/* svga mode set */
	pushw	%bx	/* vesa mode on stack */
	jmp     L9a
L9:
	pushw	%ax	/* normal mode (or 0x110?) on stack */
L9a:
	pushw 	%ax	/* save everything */
	pushw	%bx
	movw	$DOS_HELPER_MOUSE_HELPER,%ax	/* mouse helper */
	movw	$DOS_SUBHELPER_MOUSE_START_VIDEO_MODE_SET,%bx	/* start video mode set */
	int	$DOS_HELPER_INT
	popw	%bx
	popw	%ax

/* fake stack frame for iret: push original flags and avoid a GPF from pushf */
	pushw	6(%esp)
	pushw	%cs
	call	L10	/* perform the actual mode set */

/* since following code doesn't affect flags, we keep current values */
	pushw	%ax	/* remember everything from int10 call */
	pushw	%bx
	movw	$DOS_HELPER_MOUSE_HELPER,%ax	/* mouse helper */
	movw	$DOS_SUBHELPER_MOUSE_END_VIDEO_MODE_SET,%bx	/* end video mode set */
	int	$DOS_HELPER_INT
	popw	%bx
	popw	%ax
	addw	$2,%sp/* pop video mode */	
	lret	$2    /* keep current flags and avoid another GPF from iret */

L10:	/* chain to original handler (probably the video bios) */
	pushw	4(%esp)
	andw	$0xff,(%esp)
	popfw          /* sync up flags */
	ljmp	*%cs:bios_f000_int10_old

        .globl MOUSE_INT33_OFF
MOUSE_INT33_OFF:
	jmp 1f
	int33_chain:
	.word INT_RVC_33_OFF
	.word BIOSSEG
	.word 0x424B	// signature "KB"
	.byte 0		// flag
	jmp 30f		// EB xx for compat
	.space 7	// padding
	30: lret
	1: ljmp $BIOSSEG,$int33_cont
	int33_cont:
	ljmp *%cs:int33_chain

/* ----------------------------------------------------------------- */
	.globl INT70_OFF
INT70_OFF:		/* RTC INTERRUPT ROUTINE	*/
	pushw	%ax
	int	$0x4a
        movb    $0x20,%al
        outb    %al,$0xa0		/* flag interrupt complete	*/
	outb	%al,$0x20
	popw	%ax			/* restore registers            */
	iret				/* return to interrupted code	*/
	.globl  INT70_end
INT70_end:


/* COMPAS FE3FE		jmp to INT13 HD */
	_ORG(((INT41_SEG - BIOSSEG) << 4) + INT41_OFF)
	.globl	HD_parameter_table0
HD_parameter_table0:
/* COMPAS FE401-FE6F0	HD parameter table */
	.word	50	/* cyl */
	.byte	255	/* heads */
	.word	0	/* rw_cyl */
	.word	0	/* precomp_cyl */
	.byte	0	/* max_ecc */
	.byte	0	/* contr */
	.byte	10	/* std_timeout */
	.byte	10	/* fmt_timeout */
	.byte	10	/* chk_timeout */
	.word	0	/* lnd_zone */
	.byte	63	/* spt */
	.byte	0xff	/* reserved */

	_ORG(((INT46_SEG - BIOSSEG) << 4) + INT46_OFF)
	.globl	HD_parameter_table1
HD_parameter_table1:
/* COMPAS FE401-FE6F0	HD parameter table */
	.word	50	/* cyl */
	.byte	255	/* heads */
	.word	0	/* rw_cyl */
	.word	0	/* precomp_cyl */
	.byte	0	/* max_ecc */
	.byte	0	/* contr */
	.byte	10	/* std_timeout */
	.byte	10	/* fmt_timeout */
	.byte	10	/* chk_timeout */
	.word	0	/* lnd_zone */
	.byte	63	/* spt */
	.byte	0xff	/* reserved */

/* COMPAS FE6F1		reserved */
/* COMPAS FE6F2		jmp to INT19 */
/* ----------------------------------------------------------------- */
	_ORG(ROM_CONFIG_OFF) /* for int15 */

/* ======================= Addr = FE6F5 */
	/* from Alan Cox's mods */
	/* we need somewhere for the bios equipment. */
	.word	8	/* 8 bytes follow */
	.byte	0xfc	/* PC AT */
	.byte	0x01	/* submodel - DOSEMU */
	.byte	0x04	/* bios revision 4 */
	.byte	0x70	/* no mca, no ebios, no wat, keybint,
			   rtc, slave 8259, no dma 3 */
	.byte	0x40	/* extended keyboard */
	.byte	0,0,0	/* nothing more is supported */

/* COMPAS FE710-FE728	reserved */
/* COMPAS FE729		baud rate init table */
/* COMPAS FE73C-FE82D	reserved */

/* ----------------------------------------------------------------- */
	_ORG(((INT09_SEG-BIOSSEG) << 4)+INT09_OFF)
/* ======================= Addr = FE987 */
	jmp int09_cont
/* COMPAS FE987		jmp to INT09 */
/* COMPAS FE98A-FEC58	reserved */
int09_cont:
	pushw	%ax
	pushw	%bx
	pushw	%ds
	movw	$BIOS_DATA,%ax
	movw	%ax,%ds

/* BIOS keyboard intercept */

/* get the RAW scancode (used only for int15,4f) */
	movb	$0xad,%al
	outb	%al,$0x64
	inb	$0x60,%al
	movb	$0xae,%ah
	xchg	%al,%ah
	outb	%al,$0x64
	xchg	%al,%ah

/* check for Ctrl-Alt-Del */
	cmpb	$0x53, %al
	jne	1f
	movb	KEYSHIFT_FLAGS, %bl
	andb	$0x0c, %bl
	cmpb	$0x0c, %bl
	je	kbd_do_CAD
1:
	
/*ERIC	* src/base/bios/bios.S (INT09_dummy_start):
	removed spurious 'mov al,ah' between in al,0x60 and mov ah,$0x4f
	it was trashing the value read and would serve no useful purpose.
*/
	movb	$0x4f,%ah
	stc
	int	$0x15
	
	/* ignore the returned keycode, only skip the pre-translated
	   bios keycode if CF=0.
	   this is not completely accurate but hard to improve while
	   keeping a clean keyboard server design.
	 */
	jnc	kbd_done

        /* get the pre-translated bios key. */
	
	movb	%al,%ah			/* pass the scancode... */
	movb	$DOS_HELPER_GET_BIOS_KEY,%al
	int	$DOS_HELPER_INT		/* call get_bios_key helper       */
					/* returns ax=keycode or 0,       */
					/* also copies new shift state to */
					/* seg 0x40                       */

	testw	%ax,%ax
	jz	kbd_done		/* no keycode returned */

/* check for "special action" codes
 */
	cmpw	$SP_PAUSE, %ax
	je	kbd_do_pause

	testb   $PAUSE_MASK,KEYBOARD_FLAGS_2	/* if pause bit not set */
	jz      check_special			/* continue */
	andb    $~PAUSE_MASK,KEYBOARD_FLAGS_2	/* reset pause bit */
	jmp     kbd_done			/* don't store in buffer */

check_special:
	cmpw	$SP_BREAK, %ax
	je	kbd_do_break
	cmpw	$SP_CC, %ax
	je	kbd_do_cc
	cmpw	$SP_PRTSCR, %ax
	je	kbd_do_prtscr
	cmpw	$SP_SYSRQ_MAKE, %ax
	je	kbd_do_sysrq_make
	cmpw	$SP_SYSRQ_BREAK, %ax
	je	kbd_do_sysrq_break
        call    store_key
kbd_done:
	call	kbd_EOI
	push	%es
	xorw	%bx, %bx
	movw	%bx, %es
	movw	$0x9102, %ax
	int	$0x15		/* signal interrupt completion */
	pop	%es
kbd_done2:
	popw	%ds
	popw	%bx
	popw	%ax			/* restore registers		*/
	iret

store_key:
        movw    KEYBUF_WRITE_PTR,%bx
        incw    %bx
        incw    %bx
        cmpw    KEYBUFFER_END,%bx
        jne     no_wrap
        movw    KEYBUFFER_START,%bx
no_wrap:
        cmpw    KEYBUF_READ_PTR,%bx
        je      buffer_full
        xchgw   KEYBUF_WRITE_PTR,%bx    /* ok, update write pointer     */
        movw    %ax,(%bx)               /* and store key in buffer      */
buffer_full:
        ret

clear_kbd_buffer:
        movw    KEYBUFFER_START,%bx
        movw    %bx,KEYBUF_WRITE_PTR
        movw    %bx,KEYBUF_READ_PTR
        ret

kbd_do_pause:
	testb   $PAUSE_MASK,KEYBOARD_FLAGS_2	/* already paused? */
	jnz     kbd_done			/* do nothing */
	orb	$PAUSE_MASK,KEYBOARD_FLAGS_2	/* set pause bit */
	call	kbd_EOI
	sti
1:
	movw    $0x1680,%ax		/* magic machine idle function  */
	int     $0x2f
	testb 	$PAUSE_MASK,KEYBOARD_FLAGS_2 /* is pause bit still set? */
	jnz 	1b
	cli
	jmp	kbd_done2

kbd_do_break:				/* CTRL-BREAK pressed		*/
	movw	$0,%ax
kbd_do_cc:				/* CTRL-c pressed		*/
	call	clear_kbd_buffer
	call	store_key
	orb	$0x80,BIOS_FLAGS_1
	call	kbd_EOI
	sti
	int	$0x1b			/* call BREAK interrupt		*/
	jmp	kbd_done2

kbd_do_prtscr:				/* PRINT SCREEN pressed		*/
	call	kbd_EOI
	sti
	int	$0x05
	jmp	kbd_done2

kbd_do_sysrq_make:			/* Alt-SYSRQ pressed		*/
	orb	$4,KEYBOARD_FLAGS_2	/* set sysrq bit */
	call	kbd_EOI
	sti
	movw	$0x8500,%ax
	int	$0x15
	jmp	kbd_done2

kbd_do_sysrq_break:			/* ALT-SYSRQ released		*/
	andb	$~4,KEYBOARD_FLAGS_2	/* clear sysrq bit */
	call	kbd_EOI
	sti
	movw	$0x8501,%ax
	int	$0x15
	jmp	kbd_done2

kbd_do_CAD:
	call	kbd_EOI
	movw	$0x1234, 0x72
	ljmp	$0xffff, $0

kbd_EOI:
	inb	$0x61,%al		/* KBD IRQ ACK code from the */
	movb	%al,%ah			/* Lukach & Sibiriakov book */
	orb	$0x80,%al
	outb	%al,$0x61
	xchgb	%al,%ah
	outb	%al,$0x61
	movb   	$0x20,%al
	outb    %al,$0x20		/* tell pic we're done 		*/
	ret

/* ======================= INT_REVECT macro */
.macro int_hdr inum,lbl
/* header start for IBM'S INTERRUPT-SHARING PROTOCOL */
	jmp \lbl	// EB xx to handler
int_rvc_data_\inum:
	.globl int_rvc_ip_\inum
int_rvc_ip_\inum:
	.word 0
	.globl int_rvc_cs_\inum
int_rvc_cs_\inum:
	.word 0
	.word 0x424B	// signature "KB"
	.byte 0		// flag
	jmp 30f		// EB xx to hwreset
int_rvc_ret_\inum:
	.globl int_rvc_ret_ip_\inum
int_rvc_ret_ip_\inum:
	.word 0
	.globl int_rvc_ret_cs_\inum
int_rvc_ret_cs_\inum:
	.word 0
int_rvc_disp_\inum:
	.globl int_rvc_disp_ip_\inum
int_rvc_disp_ip_\inum:
	.word 0
	.globl int_rvc_disp_cs_\inum
int_rvc_disp_cs_\inum:
	.word 0
/* header finish for IBM'S INTERRUPT-SHARING PROTOCOL */
30: /* hwreset */
	lret
.endm

.macro int_rvc inum
	int_hdr \inum,31f
31: /* handler */
	pushl %eax
	pushl %ebx
	shll $16,%eax
	shll $16,%ebx
	movb $DOS_HELPER_REVECT_HELPER,%al
	movb $DOS_SUBHELPER_RVC_CALL,%bl
	movb $0x\inum,%ah
	movb $14,%bh		/* stack offset */
	int $DOS_HELPER_INT
	movzwl %sp,%esp
	movw %bx,(%esp)
	popl %ebx
	movw %ax,(%esp)
	popl %eax
	jnz 9f			/* handled */
	js 2f			/* second_revect */
	pushw 4(%esp)
	andw $0xff,(%esp)
	popfw			/* re-sync flags */
	pushfw
	lcall *%cs:int_rvc_disp_\inum
	jmp 9f
2:
	/* no flag re-sync on second-revect: CF is forced */
	pushw %ax
	pushfw
	lcall *%cs:int_rvc_data_\inum
	jnc 12f			/* handled */
	pushl %eax
	pushl %ebx
	pushl %ecx
	pushl %edx
	shll $16,%eax
	shll $16,%ebx
	shll $16,%ecx
	shll $16,%edx
	clc
	movw 16(%esp),%cx	/* old AX */
	movw 22(%esp),%dx	/* old flags */
	movb $DOS_HELPER_REVECT_HELPER,%al
	movb $DOS_SUBHELPER_RVC2_CALL,%bl
	movb $0x\inum,%ah
	movb $24,%bh		/* stack offset */
	int $DOS_HELPER_INT
	movw %dx,(%esp)
	popl %edx
	movw %cx,(%esp)
	popl %ecx
	movw %bx,(%esp)
	popl %ebx
	movw %ax,(%esp)
	popl %eax
	/* below replaces addw $2,%sp to not corrupt CF */
	movw %ax,(%esp)
	popw %ax

9:
	ljmp *%cs:int_rvc_ret_\inum
12:
	addw $2,%sp		/* skip saved ax */
	clc
	jmp 9b
.endm

	.globl INT_RVC_21_OFF
INT_RVC_21_OFF:
	int_rvc 21
	.globl INT_RVC_28_OFF
INT_RVC_28_OFF:
	int_rvc 28
	.globl INT_RVC_2f_OFF
INT_RVC_2f_OFF:
	int_rvc 2f
	.globl INT_RVC_33_OFF
INT_RVC_33_OFF:
	int_rvc 33
	.globl INT_RVC_e6_OFF
INT_RVC_e6_OFF:
	int_hdr e6,41f
41:
	ljmp *%cs:int_rvc_data_e6

/******************************************************************
 * DATA BLOCK
 ******************************************************************/
	.globl	bios_f000_int10ptr
bios_f000_int10ptr:
	.long	0xc0000003

	.globl	bios_in_int10_callback
bios_in_int10_callback:
	.byte	0

	/* this is the paramblock, we told DOS to use for INT21 AX=4B01 */
	.balign	16,0
	.globl	DBGload_parblock
DBGload_parblock:	.word	0
			.long	0,0,0
DBGload_SSSP:		.long	0
	.globl	DBGload_CSIP
DBGload_CSIP:	.long	0

	/* parameter packet, filled in by pkt_init */
	.globl	PKTDRV_param
PKTDRV_param:
	.byte	0,0,0,0
	.word	0,0,0,0,0

	/* driver statistics structure */
	.globl	PKTDRV_stats
PKTDRV_stats:
	.long	0,0,0,0,0,0,0

	.globl	LFN_short_name
LFN_short_name:
	.space 128
/******************************************************************
 * END DATA BLOCK
 ******************************************************************/

/* COMPAS FEC59		jmp to INT13 FDD */
/* COMPAS FEC5C-FEF56	reserved */
/* COMPAS FEF57		jmp to INT0E */
/* COMPAS FEF5A-FEFC6	reserved */
/* ----------------------------------------------------------------- */
	_ORG(((INT1E_SEG - BIOSSEG) << 4) + INT1E_OFF)
/* COMPAS FEFC7		FDD param table */
/* Win98/DOS uses it via int0x1e vector */
	.byte	0xaf	/* b7-4=step rate b3-0=head unload time */
	.byte	0x02	/* b7=1=head load time b0=0 */
	.byte	0x25	/* motor off delay in clock ticks */
	.byte	0x02	/* bytes per sector 00=128..03=1024 */
	.byte	18	/* sectors per track */
	.byte	0x1b	/* gap between sectors */
	.byte	0xff	/* ignored */
	.byte	0x6c	/* format gap length */
	.byte	0xf6	/* format filler byte */
	.byte	0x0f	/* head settle time (ms) */
	.byte	0x08	/* motor start time (1/8") */
	.byte	0xff	/* maximum track number */
	.byte	0xff	/* data transfer rate */
	.byte	0	/* drive type */

/* COMPAS FEFD2		jmp to INT17 */
	_ORG(((INT1E_SEG - BIOSSEG) << 4) + INT1E_OFF + 14)
/* COMPAS FEFD5-FF064	reserved */
	.byte	0xdf
	.byte	0x02
	.byte	0x25
	.byte	0x02
	.byte	63
	.byte	0x1b
	.byte	0xff
	.byte	0x54
	.byte	0xf6
	.byte	0x0f
	.byte	0x08
	.byte	0xff	/* maximum track number */
	.byte	0xff	/* data transfer rate */
	.byte	0	/* drive type */

/* ----------------------------------------------------------------- */
	_ORG(((INT42HOOK_SEG - BIOSSEG) << 4) + INT42HOOK_OFF)
/* ======================= Addr = FF065 */
/* COMPAS FF065		jmp to INT10 */
/* COMPAS FF068-FF0A3	reserved */
	/* relocated video handler (interrupt 0x42) */
        /* Note:	 A conforming video-bios will redirect int 42 here if
          it doesn't find anything else.  Another fun suprise :	(
          I'll have to implement this in my video-bios. --EB  13 Jan 97 */
	hlt

/* COMPAS FF0A4		video param table */
/* COMPAS FF0FC-FF840	reserved */

	_ORG(0xf100)	// who says we cant use reserved region?
	.globl bios_hlt_blk
	.balign 16
bios_hlt_blk:
	FILL_OPCODE BIOS_HLT_BLK_SIZE,hlt
/* ----------------------------------------------------------------- */

	.globl DPMI_OFF
DPMI_OFF:
	pushw   %bx
	pushw   %ax
	movb    $0x62,%ah
	int     $0x21                   /* Get PSP */
	popw    %ax
	pushw   %bx
	.globl	DPMI_dpmi_init
DPMI_dpmi_init:
	hlt
	.globl	DPMI_return_from_dos
DPMI_return_from_dos:
	hlt
	.globl	DPMI_return_from_rmint
DPMI_return_from_rmint:
	FILL_OPCODE DPMI_MAX_CLIENTS,hlt
	.globl	DPMI_return_from_realmode
DPMI_return_from_realmode:
	FILL_OPCODE DPMI_MAX_CLIENTS,hlt
	.globl	DPMI_return_from_dos_memory
DPMI_return_from_dos_memory:
	hlt

.macro ihdr n
	.globl \n
\n:
.rept DPMI_MAX_CLIENTS
	hlt
	jmp \n\()_end
.endr
	.globl \n\()_end
\n\()_end:
.endm

ihdr DPMI_int1c
	iret

ihdr DPMI_int23
	pushw %ax
	pushw %bx
	movw $0x6200, %ax    /* get PSP */
	int $0x21
	.globl	DPMI_int23_1
DPMI_int23_1:
	hlt
	popw %bx
	popw %ax
	.globl	DPMI_int23_2
DPMI_int23_2:
	hlt
	jc 1f
	iret
1:  /* leave flags on stack */
	lret

ihdr DPMI_int24
	iret

	.globl	DPMI_raw_mode_switch_rm
DPMI_raw_mode_switch_rm:
	hlt
	.globl	DPMI_save_restore_rm
DPMI_save_restore_rm:
	hlt
	lret
	.globl	DPMI_exit
DPMI_exit:
	/* reset pending FPU exceptions */
	fnclex
	pushw %ax
	xorb %al, %al
	outb %al, $0xf0
	popw %ax
	jcxz 1f
2:
	int $0x21
1:
	/* last client terminated, reinit FPU */
	fninit
	jmp 2b
	.globl	DPMI_end
DPMI_end:

	/* bx:cx - RM entry
	 * si:di - PM entry
	 */
	.globl DPMI_rmentry
DPMI_rmentry:
	pushw %bx
	pushw %cx
	lcall *(%esp)
	popl %ebx  /* restore SP */
	jc 1f
	pushw %si
	pushw %di
	lcall *(%esp)
	popl %esi  /* restore SP */
1:
	movb $0x4c, %ah
	int $0x21
	lret       /* never here */

/* ----------------------------------------------------------------- */
	.globl XMSControl_OFF
XMSControl_OFF:
        jmp     (.+2+3) /* jmp short forward 3 */
        FILL_OPCODE 3,nop
        hlt
        lret

	.globl EOI_OFF
EOI_OFF:
	cli
	pushw	%ax
	movb    $0x20,%al
	outb    %al,$0x20		/* flag interrupt complete	*/
	popw	%ax
	iret

	.globl EOI2_OFF
EOI2_OFF:
	cli
	pushw	%ax
	movb    $0x20,%al
	outb    %al,$0xa0
	outb    %al,$0x20		/* flag interrupt complete	*/
	popw	%ax
	iret

/* ----------------------------------------------------------------- */
	/* the packet driver */
	.globl PKTDRV_OFF
PKTDRV_OFF:
/*	jmp to entry point is also used as signature, and therefore
	it have to be jmp with word displacement. I've found no way
	to tell gas that I want jmp with word displacement, so hardcode
	it as 0xe9 */
	.byte 0xe9
	.word PKTDRV_entry-.-2

/* The packet driver signature will be written here when the packet
   driver is initialized. */
	.asciz	"PKT DRVR"

	.globl	PKTDRV_driver_name
PKTDRV_driver_name:
	.asciz	"Linux$"
	.byte	0

PKTDRV_entry:
	ljmp	*%cs:PKTDRV_driver_entry

	.balign 4,0
PKTDRV_driver_entry:
	.globl	PKTDRV_driver_entry_ip
PKTDRV_driver_entry_ip:
	.word 0
	.globl	PKTDRV_driver_entry_cs
PKTDRV_driver_entry_cs:
	.word 0

	.globl TCPDRV_OFF
TCPDRV_OFF:
	jmp 1f
	.byte 0
	.globl TCPDRVR_OFF
TCPDRVR_OFF:
	.asciz	"TCP_DRVR"
1:
	ljmp	*%cs:TCPDRV_driver_entry

	.balign 4,0
TCPDRV_driver_entry:
	.globl	TCPDRV_driver_entry_ip
TCPDRV_driver_entry_ip:
	.word 0
	.globl	TCPDRV_driver_entry_cs
TCPDRV_driver_entry_cs:
	.word 0

	.globl TCPDRV_driver_info
TCPDRV_driver_info:
	.space 288

	.globl TCPDRV_session_info
TCPDRV_session_info:
	.space 16

	.globl TCPDRV_iface_name
TCPDRV_iface_name:
	.space 16

/* FOSSIL driver signature and jump to original handler */
	.globl	FOSSIL_isr
FOSSIL_isr:
	jmp     1f
	.globl	FOSSIL_oldisr
FOSSIL_oldisr:
	.long   -1
	.globl	FOSSIL_magic
FOSSIL_magic:
	.word   0
	.globl	FOSSIL_maxfun
FOSSIL_maxfun:
	.byte   0
	.byte   0
1:
	ljmp    *%cs:FOSSIL_oldisr
	.globl	FOSSIL_idstring
FOSSIL_idstring:
	.asciz  "dosemu FOSSIL emulator"

	.globl LFN_HELPER_OFF
LFN_HELPER_OFF:
	pushw	%ds
        pushw	%dx
        pushw	%si
        movw    %cs, %si
        movw	%si, %ds
        movw	$LFN_short_name, %si
	cmpb	$0x6c, %ah
        je	do_int21
        movw	%si, %dx
do_int21:
        int	$0x21
        popw	%si
        popw	%dx
        popw	%ds
        lret

        .globl LFN_42_HELPER_OFF
LFN_42_HELPER_OFF:
        movw	$0x1142, %ax
	jmp	LFN_42_A6_HELPER_COMMON

        .globl LFN_A6_HELPER_OFF
LFN_A6_HELPER_OFF:
        movw	$0x11a6, %ax

LFN_42_A6_HELPER_COMMON:
        pushw	%es
        pushw	%di
        pushw	%bx
        pushw	%ax
        call	get_sft_entry
        jc	1f
        popw	%ax		/* restore function number */
        orb	$0x80, %al	/* add extension bit */
        stc
        int	$0x2f
        jmp	3f
1:
	popw	%bx		/* discard ax on stack */
3:
        popw	%bx
        popw	%di
        popw	%es
        lret
/* ----------------------------------------------------------------- */

get_sft_entry:
        movw	$0x1220, %ax	/* get JFT entry */
        int	$0x2f
        jc	1f
        movzbw	%es:(%di), %bx	/* load SFT index */
        cmpb	$0xff, %bl
        movw	$6, %ax		/* error code: invalid handle */
        stc			/* initialise CY if jumping */
        je	1f
        movw	$0x1216, %ax	/* get SFT entry */
        int	$0x2f
1:
        ret

	.globl DBGload_OFF
DBGload_OFF:
/* we come here after we have intercepted INT21 AX=4B00
 * in order to get a breakpoint for the debugger
 * (wanting to debug a program from it's very beginning)
 */
	cli	/* first we set up the users stack */
	movw	%cs:DBGload_SSSP+2,%ss
	movw	%cs:DBGload_SSSP,%sp
	mov	$0x62,%ah	/* we must get the PSP of the loaded program */
	int	$0x21
        movw	%bx,%es
	movw    %bx,%ds
	xorw    %ax,%ax
	movw    %ax,%bx
	movw    %ax,%cx
	movw    %ax,%dx
	movw    %ax,%si
	movw    %ax,%di
	movw    %ax,%bp
	popw    %ax		/* 4b01 puts ax on stack */
	sti
	pushf
	/* set TF */
	orw	$0x100, %ss:(%esp)
	/* can use iret here but the trap will be generated by the
	 * _second_ instruction after iret, not the first one. Since we
	 * dont want to skip the first instruction, we use 2 instructions
	 * for control transfer. Then the trap happens at the right place.
	 */
	popf
	/* and give control to the program */
	ljmp    *%cs:DBGload_CSIP

/* COMPAS FF841		jmp to INT12 */
/* COMPAS FF844-FF84C	reserved */
/* COMPAS FF84D		jmp to INT11 */
/* COMPAS FF850-FF858	reserved */
/* COMPAS FF859		jmp to INT15 */
/* COMPAS FF85C-FFA6D	reserved */

/* COMPAS FFA6E		font tables */
	_ORG(0xfa6e)
	.globl	bios_text_font
bios_text_font:
         /* there's no need to allocate the space just move over */
	_ORG(0xfa6e + (128 * 8)) // uint8_t text_font[128*8]

/* COMPAS FFE6E		jmp to INT1A */
/* COMPAS FFE71-FFEA4	reserved */

/* ----------------------------------------------------------------- */
	_ORG(0xfea6)
	.globl INT75_OFF
INT75_OFF:
	pushw %ax
	xorb %al, %al
	outb %al, $0xf0	/* set IGNNE */
	movb $0x20, %al
	outb %al, $0xa0
	outb %al, $0x20
	popw %ax

	int $2		/* Bochs does this; RBIL says: redirected to INT 02 */
			/* by the BIOS, for compatibility with the PC */
	fnclex		/* Clear FP exceptions just in case a hooked
			   handler hasn't already done so, so we won't
			   get stuck (in real mode IGNNE would prevent
			   further exceptions but we don't emulate that) */

	pushw %ax
	xorb %al, %al
	outb %al, $0xf0	/* clear IGNNE */
	popw %ax
	iret

/* ----------------------------------------------------------------- */
/* COMPAS FFEA5		jmp to INT08 */
/* COMPAS FFEA8-FFEF2	reserved */
	.globl INT08_OFF  /* F000:FEB5 */
INT08_OFF:
	jmp int08_cont
	_ORG(0xfef4)
int08_cont:
#if 0
	int	$0x1c	
#endif
/* NOTE: The above int 0x1c is a compatibility fault, because
 *       the original IBM Bios calls the user *after* the timer is
 *       increased. So, I moved it down.
 *       THIS NEEDS TO BE CHECKED for side effects in dosemu !
 */
	pushw	%ds
	pushw	%ax
	xorw	%ax, %ax		/* set ax to segment 0		*/
        movw	%ax,%ds
	incl	BIOS_TIMER
	cmpl	$HOUR24_ADJUST, BIOS_TIMER /* 24 hour check */
	jb	INT08_L1
	movl	$0, BIOS_TIMER
	incb	BIOS_TIMER_OVERFLOW
INT08_L1:
			/* emulate 'diskette motor running */
			/* some old games rely on that --SW, --Hans */
	cmpb	$0, DISKETTE_MOTOR_TIMEOUT
	jz	INT08_L2
	decb	DISKETTE_MOTOR_TIMEOUT
	jnz	INT08_L2
	/* turn floppy motor off (code from Bochs) */
	pushw	%dx
	movw	$0x3f2, %dx
	inb	%dx, %al
	andb	$0xcf, %al
	outb	%al, %dx
	popw	%dx

INT08_L2:
	int	$0x1c		/* call int 0x1c, per bios spec	*/
				/* must do it before EOI, but after count */
        movb    $0x20,%al
        outb    %al,$0x20		/* flag interrupt complete	*/
	popw	%ax			/* restore registers            */
	popw	%ds
	iret				/* return to interrupted code	*/

/* ----------------------------------------------------------------- */
	.globl INT71_OFF
INT71_OFF:
	push %ax
	/* EOI to PIC1 */
	movb $0x20, %al
	outb %al, $0xa0
	/* Then invoke IRQ2 */
	int $0x0a
	/* Specific EOI */
	movb $0x62, %al
	outb %al, $0x20
	pop %ax
	iret        /* return to interrupted code */

/* COMPAS FFEF3		vector table for INT08-INT1F */
/* COMPAS FFF23		vector table for INT70-INT77 */
/* COMPAS FFF33-FFF53	reserved */
/* COMPAS FFF54		jmp to INT05 */
/* COMPAS FFF57-FFFD8	reserved */
/* COMPAS FFFD9		EISA ident string */
/* COMPAS FFFDD-FFFEF	reserved */

/* ----------------------------------------------------------------- */
	_ORG(0xffe0)

	/* DOSEMU magic and version field */
	.ascii	"$DOSEMU$"
	.long	DOSEMU_VERSION_CODE

/* ----------------------------------------------------------------- */
	_ORG(0xfff0)
/* COMPAS FFFF0		jmp to powerup */
	ljmp	$BIOSSEG, $ROM_BIOS_SELFTEST
/* COMPAS FFFF5		ROM BIOS date */
	.ascii	"02/25/93"  /* our bios date */
/* COMPAS FFFFD		unused */
	hlt
/* COMPAS FFFFE		system model ID */
	.byte	0xfc   /* model byte = IBM AT */

	.globl  bios_f000_end
bios_f000_end:

/*--------------------------------------------------------------------------*/
#ifdef __ELF__
.section .note.GNU-stack,"",%progbits
#endif
