mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 03:05:43 +00:00
33 lines
627 B
Plaintext
33 lines
627 B
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
*--------------------------------------
|
||
FON.Init >PUSHWI 0 Aux type
|
||
>PUSHBI $CC Type
|
||
>PUSHBI O.RDONLY
|
||
>PUSHW L.SYSX7
|
||
>SYSCALL LoadStkObj
|
||
bcs .9
|
||
sta hSYSFON
|
||
|
||
>PUSHWI 0 Aux type
|
||
>PUSHBI $CC Type
|
||
>PUSHBI O.RDONLY
|
||
>PUSHW L.SYSX7B
|
||
>SYSCALL LoadStkObj
|
||
bcs .9
|
||
sta hSYSFONB
|
||
|
||
ldy #S.FON.PixH
|
||
>SYSCALL GetStkObjProperty.AY
|
||
sty SYSFONB.H
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/LIB/LIBGUI.S.FON
|
||
LOAD USR/SRC/LIB/LIBGUI.S
|
||
ASM
|