*************************************************************************
*									*
*	Copyright (C) 1985, Commodore Amiga Inc.  All rights reserved.	*
*	Permission granted for non-commercial use			*
*									*
*************************************************************************


*************************************************************************
*
* messages.i
*
* Source Control
* ------ -------
* 
* $Header: messages.i,v 31.1 85/10/13 23:12:48 neil Exp $
*
* $Locker:  $
*
*************************************************************************

		XREF	KPutFmt

PUTMSG:		MACRO	* level,msg
		
		IFGE	INFO_LEVEL-\1

		PEA	subSysName(PC)
		MOVEM.L	A0/A1/D0/D1,-(SP)
		LEA	msg\@,A0
		LEA	4*4(SP),A1
		JSR	KPutFmt
		MOVEM.L (SP)+,D0/D1/A0/A1
		ADDQ.L	#4,SP
		BRA.S	end\@

msg\@		DC.B	\2
		DC.B	10
		DC.B	0
		DS.W	0
end\@
		ENDC
		ENDM