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