2018-05-16 06:02:57 +00:00
|
|
|
|
NEW
|
2018-11-17 17:17:13 +00:00
|
|
|
|
PREFIX
|
2018-05-16 06:02:57 +00:00
|
|
|
|
AUTO 4,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
FON.Init >PUSHWI 0 Aux type
|
|
|
|
|
|
>PUSHBI $CC Type
|
2018-10-02 15:52:30 +00:00
|
|
|
|
>PUSHBI O.RDONLY
|
2018-05-16 06:02:57 +00:00
|
|
|
|
>PUSHW L.SYSX7
|
|
|
|
|
|
>SYSCALL LoadStkObj
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
sta hSYSFON
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHWI 0 Aux type
|
|
|
|
|
|
>PUSHBI $CC Type
|
2018-10-02 15:52:30 +00:00
|
|
|
|
>PUSHBI O.RDONLY
|
2018-05-16 06:02:57 +00:00
|
|
|
|
>PUSHW L.SYSX7B
|
|
|
|
|
|
>SYSCALL LoadStkObj
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
sta hSYSFONB
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.FON.PixH
|
|
|
|
|
|
>SYSCALL GetStkObjProperty.AY
|
|
|
|
|
|
sty SYSFONB.H
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
2018-11-17 17:17:13 +00:00
|
|
|
|
SAVE USR/SRC/LIB/LIBGUI.S.FON
|
|
|
|
|
|
LOAD USR/SRC/LIB/LIBGUI.S
|
2018-05-16 06:02:57 +00:00
|
|
|
|
ASM
|
