* $Revision Header *** Header built automatically - do not edit! ***********
*
*	(C) Copyright 1990 by MXM
*
*	Name .....: Format.asm
*	Created ..: Sunday 01-Apr-90 18:03
*	Revision .: 0
*
*	Date            Author          Comment
*	=========       ========        ====================
*	01-Apr-90       Olsen           Created this file!
*
* $Revision Header *********************************************************

		SECTION	Format,CODE

		XDEF	_Format
		XREF	_LVORawDoFmt

_Format:	MOVE.L	 4(SP),D1		; Buffer
		MOVE.L	 8(SP),D0		; Argstring
		LEA	12(SP),A1		; Arguments

		MOVE.L	A2,-(SP)		; Save registers
		MOVE.L	A3,-(SP)

		MOVE.L	D1,A3			; Swap registers
		MOVE.L	D0,A0
		LEA	Stuff(PC),A2		; Get print subroutine

		MOVE.L	4,A6			; Get SysBase
		JSR	_LVORawDoFmt(A6)	; Do the format

		MOVE.L	(SP)+,A3		; Restore registers
		MOVE.L	(SP)+,A2

		RTS				; Get back...

Stuff:		MOVE.B	D0,(A3)+		; Put the char
		RTS

		END