A2osX/LIB/LIBGUI.S.FON.txt

47 lines
814 B
Plaintext
Raw Normal View History

2018-05-16 06:02:57 +00:00
NEW
2019-07-30 08:57:25 +00:00
AUTO 3,1
2018-05-16 06:02:57 +00:00
*--------------------------------------
2020-09-02 15:47:23 +00:00
FON.Init >LDYA L.SYSX7
jsr .1
2018-05-16 06:02:57 +00:00
bcs .9
2020-09-11 20:54:15 +00:00
stx hSYSFON
2019-01-08 16:29:26 +00:00
>LDYA L.SYSX7B
jsr .1
2018-05-16 06:02:57 +00:00
bcs .9
2020-09-11 20:54:15 +00:00
stx hSYSFONB
* ldy #S.FON.PixH
* >SYSCALL2 GetStkObjProp
lda #7
2020-09-15 14:48:35 +00:00
dec
sta SYSFON.Hm1
inc
2020-09-11 20:54:15 +00:00
sta SYSFON.H
2020-09-13 19:05:38 +00:00
inc
inc
2020-09-15 14:48:35 +00:00
sta SYSFON.Hp2
2019-01-08 16:29:26 +00:00
2018-05-16 06:02:57 +00:00
.9 rts
.1 >PUSHYA
>PUSHBI O.RDONLY
>PUSHBI S.FI.T.FON
>PUSHWZ Aux type
>SYSCALL LoadStkObj
rts
2018-05-16 06:02:57 +00:00
*--------------------------------------
2020-09-29 15:37:26 +00:00
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
2020-09-29 15:37:26 +00:00
*--------------------------------------
2018-05-16 06:02:57 +00:00
MAN
2020-06-30 15:32:23 +00:00
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
2018-05-16 06:02:57 +00:00
ASM