;.PAGE 'Load "apple" font'
;
;	Macros
;
XLIB	MACRO
	XREF	_LVO\1
	ENDM
JSRLIB	MACRO
	JSR	_LVO\1(A6)
	ENDM
;
;	Library calls
;
	XLIB	OpenLibrary
	XLIB	OpenDiskFont
;
;
;
	LEA	FLibStrK(PC),A1
	CLR.L	D0
	MOVE.L	4,A6
	JSRLIB	OpenLibrary
;
;
;
	LEA	TxtAttr(PC),A0
	move.l	D0,A6
	JSRLIB	OpenDiskFont
;
;
;
	CLR.L	D0
	RTS
;
;
;
TxtAttr	dc.l	FontNStrK
	dc.w	8
	dc.b	0
	dc.b	0
;
;
;
FLibStrK	dc.b	'diskfont.library',0
;
;
;
FontNStrK	dc.b	'apple.font',0
;
;
;
	END