SECTION CODE
		XREF	_AddText

_LVORawDoFmt	EQU	$FFFFFDF6

		XDEF	kput1

kput1:		MOVE.B	D0,(A3)+
		RTS

		XDEF	_SendText

_SendText:	LINK	A5,#-512
		MOVEM.L	D1/A0-A3,-(SP)

		MOVEA.L	8(A5),A0
		LEA	12(A5),A1
		LEA	kput1(PC),A2
		LEA	-512(A5),A3
		MOVE.L	4,A6
		JSR	_LVORawDoFmt(A6)
	
		LEA	-512(A5),A0

		MOVE.L	A5,-(SP)
		MOVE.L	A0,-(SP)

		JSR	_AddText

		ADD.W	#4,SP
		MOVE.L	(SP)+,A5

		MOVEM.L	(SP)+,D1/A0-A3
		UNLK	A5
		RTS

		END