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

*	These stubs allow PCQ Pascal programs that include the
*	file DiskFont.i to use the diskfont.library.  Remember
*	that you'll need to call OpenLibrary on DiskFontBase
*	before calling any of these functions.
*

	XREF	_DiskFontBase

	SECTION	DiskFontStubs

	XREF	_LVOAvailFonts
	XDEF	_AvailFonts
_AvailFonts
	move.l	12(sp),a0
	move.l	8(sp),d0
	move.l	4(sp),d1
	move.l	_DiskFontBase,a6
	jmp	_LVOAvailFonts(a6)

	XREF	_LVODisposeFontContents
	XDEF	_DisposeFontContents
_DisposeFontContents
	move.l	4(sp),a1
	move.l	_DiskFontBase,a6
	jmp	_LVODisposeFontContents(a6)

	XREF	_LVONewFontContents
	XDEF	_NewFontContents
_NewFontContents
	move.l	8(sp),a0
	move.l	4(sp),a1
	move.l	_DiskFontBase,a6
	jmp	_LVONewFontContents(a6)

	XREF	_LVOOpenDiskFont
	XDEF	_OpenDiskFont
_OpenDiskFont
	move.l	4(sp),a0
	move.l	_DiskFontBase,a6
	jmp	_LVOOpenDiskFont(a6)

	END