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
|
|
|
|
*--------------------------------------
|
2019-06-07 17:02:51 +02:00
|
|
|
|
FON.Init >PUSHWZ Aux type
|
2018-05-16 08:02:57 +02:00
|
|
|
|
>PUSHBI $CC Type
|
2018-10-02 17:52:30 +02:00
|
|
|
|
>PUSHBI O.RDONLY
|
2019-01-08 16:29:26 +00:00
|
|
|
|
>LDYA L.SYSX7
|
2019-05-05 19:15:37 +02:00
|
|
|
|
>SYSCALL2 LoadStkObj
|
2018-05-16 08:02:57 +02:00
|
|
|
|
bcs .9
|
|
|
|
|
|
sta hSYSFON
|
|
|
|
|
|
|
2019-07-30 17:35:42 +02:00
|
|
|
|
* ldy #S.FON.PixH
|
|
|
|
|
|
* >SYSCALL2 GetStkObjProp
|
|
|
|
|
|
lda #7
|
|
|
|
|
|
sta SYSFON.H
|
2019-01-08 16:29:26 +00:00
|
|
|
|
|
2019-06-07 17:02:51 +02:00
|
|
|
|
>PUSHWZ Aux type
|
2018-05-16 08:02:57 +02:00
|
|
|
|
>PUSHBI $CC Type
|
2018-10-02 17:52:30 +02:00
|
|
|
|
>PUSHBI O.RDONLY
|
2019-01-08 16:29:26 +00:00
|
|
|
|
>LDYA L.SYSX7B
|
2019-05-05 19:15:37 +02:00
|
|
|
|
>SYSCALL2 LoadStkObj
|
2018-05-16 08:02:57 +02:00
|
|
|
|
bcs .9
|
|
|
|
|
|
sta hSYSFONB
|
2019-01-08 16:29:26 +00:00
|
|
|
|
|
2018-05-16 08:02:57 +02:00
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
2018-11-17 18:17:13 +01:00
|
|
|
|
SAVE USR/SRC/LIB/LIBGUI.S.FON
|
|
|
|
|
|
LOAD USR/SRC/LIB/LIBGUI.S
|
2018-05-16 08:02:57 +02:00
|
|
|
|
ASM
|
