		incdir  include:
		incdir  lvo:

		include powerpc/ppcmacros.i
		include powerpc/powerpc.i

		include powerpc_lib.i
		include exec_lib.i
		include dos_lib.i

		STRUCTURE       HALINFO,0
		ULONG           HALINFO_EXC_HIGH
		ULONG           HALINFO_EXC_LOW
		LABEL           HALINFO_SIZE


		xref    _SysBase
		xref    _DOSBase
		xref    _PowerPCBase
		xref    _LinkerDB
		smalldata
		executable
		escapestr
		vea
		version 14

start
		prolog  1024
		pushgpr r29-r31
		lnk     r29,-HALINFO_SIZE
		subi    r29,r29,HALINFO_SIZE
		la      r4,HALInfo_Tags
		CALLPOWERPC     GetHALInfo
		lw      r6,Tag_High
		stw     r6,HALINFO_EXC_HIGH(r29)
		lw      r6,Tag_Low
		stw     r6,HALINFO_EXC_LOW(r29)
		la      _d1,infotext
		mr      _d2,r29
		RUN68K_XL       _DOSBase,VPrintf
		addi    r29,r29,HALINFO_SIZE
		ulnk    r29,-HALINFO_SIZE
		popgpr
		epilog

		section data
infotext        dc.b    "\nWarpUp-HAL status information\n"
		dc.b    "-----------------------------\n"
		dc.b    "Number of emulated alignment exceptions [HIGH]: %ld\n"
		dc.b    "Number of emulated alignment exceptions [LOW]:  %ld\n\n"
		dc.b    0


		cnop    0,4
HALInfo_Tags
		dc.l    HINFO_ALEXC_HIGH
Tag_High        dc.l    0
		dc.l    HINFO_ALEXC_LOW
Tag_Low         dc.l    0
		dc.l    0

