A2osX/LIB/LIBGUI.S.FON.txt
2022-10-25 08:05:54 +02:00

48 lines
834 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
FON.Init >LDYA L.SYSX7
jsr .1
bcs .9
stx hSYSFON
>LDYA L.SYSX7B
jsr .1
bcs .9
stx hSYSFONB
* ldy #S.FON.PixH
* >SYSCALL2 GetStkObjProp
lda #7
dec
sta SYSFON.Hm1
inc
sta SYSFON.H
inc
sta SYSFON.Hp1
inc
sta SYSFON.Hp2
.9 rts
.1 >PUSHYA
>PUSHBI O.RDONLY
>PUSHBI S.FI.T.FON
>PUSHWZ Aux type
>SYSCALL LoadStkObj
rts
*--------------------------------------
FON.GetTextSize >STYA CB.CACHE+S.CB.TxtPtr
stx CB.CACHE+S.CB.hFont
lda #S.CB.CMD.GETTEXTSIZE+S.CB.CMD.OSD
sta CB.CACHE+S.CB.CMD
jmp CB.GFXWrite
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
ASM