NEW
  AUTO 3,1
*--------------------------------------
FON.Init		>LDYA L.SYSX7
				jsr FON.Load
				bcs .9

				stx hSYSFON

				>LDYA L.SYSX7B
				jsr FON.Load
				bcs .9

				stx hSYSFONB

*				ldy #S.FON.PixH
*				>SYSCALL2 GetStkObjProp
				lda #7
				dec
				sta SYSFON.Hm1
				inc
				sta SYSFON.H
				inc
				inc
				sta SYSFON.Hp2

.9				rts
*--------------------------------------
FON.Load		>PUSHYA
				>PUSHBI	O.RDONLY	
				>PUSHBI $CC				Type
				>PUSHWZ				Aux type
				>SYSCALL2 LoadStkObj
				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
ASM