;*
;* This file belongs to FreeMiNT. It's not in the original MiNT 1.12
;* distribution. See the file CHANGES for a detailed log of changes.
;* 
;* 
;* Copyright 2000 Frank Naumann <fnaumann@freemint.de>
;* All rights reserved.
;* 
;* This file 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; either version 2, or (at your option)
;* any later version.
;* 
;* This file is distributed in the hope that it will be useful,
;* but WITHOUT ANY WARRANTY; without even the implied warranty of
;* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;* GNU General Public License for more details.
;* 
;* You should have received a copy of the GNU General Public License
;* along with this program; if not, write to the Free Software
;* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;* 
;* 
;* begin:	2000-03-18
;* last change:	2000-03-18
;* 
;* Author:	Frank Naumann <fnaumann@freemint.de>
;* 
;* Please send suggestions, patches or bug reports to me or
;* the MiNT mailing list.
;* 
;* 
;* changes since last version:
;* 
;* known bugs:
;* 
;* todo:
;* 
;* optimizations:
;* 
;*/

	TEXT

	XDEF	_emu_xhdi

	dc.l	$27011992	; XHDIMAGIC
_emu_xhdi:
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.l	30(sp),-(sp)
	move.w	32(sp),-(sp)
	move.w	#$0001,-(sp)	; we want XHDI EMU
	move.w	#$015f,-(sp)	; system EMU
	trap	#1
	lea	34(sp),sp
	rts

	END
