*	Text.asm (of PCQ Pascal runtime library)
*	Copyright (c) 1990 Patrick Quaid

*	These stubs implement the routines defined in Graphics.i.
*	Note that we are referencing something called _GfxBase.
*	This is the variable defined in Graphics.i that's supposed
*	to hold the library.  This is why you have to open the graphics
*	library and put a valid pointer in GfxBase before using these
*	routines.
*
*	These routines try to save all registers except d0,d1,a0
*	and a1.

	XREF	_GfxBase

	SECTION	Text

	XREF	_LVOAddFont
	XDEF	_AddFont
_AddFont
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOAddFont(a6)

	XREF	_LVOAskFont
	XDEF	_AskFont
_AskFont
	move.l	4(sp),a0
	move.l	8(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOAskFont(a6)

	XREF	_LVOAskSoftStyle
	XDEF	_AskSoftStyle
_AskSoftStyle
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOAskSoftStyle(a6)

	XREF	_LVOClearEOL
	XDEF	_ClearEOL
_ClearEOL
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOClearEOL(a6)

	XREF	_LVOClearScreen
	XDEF	_ClearScreen
_ClearScreen
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOClearScreen(a6)

	XREF	_LVOCloseFont
	XDEF	_CloseFont
_CloseFont
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOCloseFont(a6)

	XREF	_LVOOpenFont
	XDEF	_OpenFont
_OpenFont
	move.l	4(sp),a0
	move.l	_GfxBase,a6
	jmp	_LVOOpenFont(a6)

	XREF	_LVORemFont
	XDEF	_RemFont
_RemFont
	move.l	4(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVORemFont(a6)

	XREF	_LVOSetFont
	XDEF	_SetFont
_SetFont
	move.l	4(sp),a0
	move.l	8(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOSetFont(a6)

	XREF	_LVOSetSoftStyle
	XDEF	_SetSoftStyle
_SetSoftStyle
	move.l	4(sp),d1
	move.l	8(sp),d0
	move.l	12(sp),a1
	move.l	_GfxBase,a6
	jmp	_LVOSetSoftStyle(a6)

	XREF	_LVOText
	XDEF	_GText
	XDEF	_Text
_GText
_Text
	move.l	_GfxBase,a6
	move.l	4(sp),d0
	move.l	8(sp),a0
	move.l	12(sp),a1
	jmp	_LVOText(a6)

	XREF	_LVOTextLength
	XDEF	_TextLength
_TextLength
	move.l	_GfxBase,a6
	move.l	12(sp),a1
	move.l	8(sp),a0
	move.l	4(sp),d0
	jmp	_LVOTextLength(a6)

	END