mirror of https://github.com/A2osX/A2osX.git
47 lines
814 B
Plaintext
47 lines
814 B
Plaintext
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
|
||
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
|