IFND	EXEC_INITIALIZERS_I
EXEC_INITIALIZERS_I	EQU	1
*	$Filename: exec/initializers.i $
*	$Release: 2.04 Includes, V37.4 $
*	$Revision: 36.5 $
*	$Date: 90/05/10 $
*	Macros for creating InitStruct() tables
*	(C) Copyright 1985-1991 Commodore-Amiga, Inc.
*	    All Rights Reserved
INITBYTE	MACRO
	IFLE	(\1)-255
	DC.B	$a0,\1
	DC.B	\2,0
	MEXIT
	ENDC
	DC.B	$e0,0
	DC.W	\1
	DC.B	\2,0
	ENDM
INITWORD	MACRO
	IFLE	(\1)-255
	DC.B	$90,\1
	DC.W	\2
	MEXIT
	ENDC
	DC.B	$d0,0
	DC.W	\1
	DC.W	\2
	ENDM
INITLONG	MACRO
	IFLE	(\1)-255
	DC.B	$80,\1
	DC.L	\2
	MEXIT
	ENDC
	DC.B	$c0,0
	DC.W	\1
	DC.L	\2
	ENDM
INITSTRUCT	MACRO
	DS.W	0
	IFC	'\4',''
COUNT\@	SET	0
	ENDC
	IFNC	'\4',''
COUNT\@	SET	\4
	ENDC
CMD\@	SET	(((\1)<<4)!COUNT\@)
	IFLE	(\2)-255
	DC.B	(CMD\@)!$80
	DC.B	\2
	MEXIT
	ENDC
	DC.B	CMD\@!$0C0
	DC.B	(((\2)>>16)&$0FF)
	DC.W	((\2)&$0FFFF)
	ENDM
	ENDC