include 'macintosh.a'
;	fonts.a
;
;   Copyright Apple Computer, Inc. 1984-1988 
;   All rights reserved.
;
;	Modifications:
;		11 Feb 88	KLH	Changed C headers to work with new C compiler:
;						Changed to using standard glue in Interface.o, so
;						much glue removed from CInterface.o.
;	*** MPW 3.0d4 ***



			BLANKS		ON
			STRING		ASIS

getfontname proc	EXPORT	   
			import  c2pstr					; c2pstr(s) char *s;
			import  p2cstr					; p2cstr(s) char *s;
			move.l  d2,-(sp)				; save register d2
			move.w  10(sp),-(sp)			; push copy of first parameter
			move.l  14(sp),-(sp)			; push copy of second parameter
			dc.w	$A8FF					; trap to getfontname
			move.l  12(sp),-(sp)			; push copy of second paramter
			jsr		p2cstr					; convert back to C string
			add.w   #4,sp					; balance stack
			move.l  (sp)+,d2				; restore register d2
			rts		

getfnum		proc	EXPORT 
			import  c2pstr					; c2pstr(s) char *s;
			import  p2cstr					; p2cstr(s) char *s;
			move.l  d2,-(sp)				; save register d2
			move.l  8(sp),-(sp)				; push copy of first parameter
			jsr		c2pstr					; convert to Pascal string
			move.l  16(sp),-(sp)			; push copy of second parameter
			dc.w	$A900					; trap to getfnum
			move.l  8(sp),-(sp)				; push copy of first paramter
			jsr		p2cstr					; convert back to C string
			add.w   #4,sp					; balance stack
			move.l  (sp)+,d2				; restore register d2
			rts		


; void SetFractEnable(fractEnable)
;  Boolean fractEnable;
;;
;;SetFractEnable proc export
;;			move.b	7(SP),fractEnable
;;			rts


	END