A2osX/LIB/LIBGUI.S.FON.txt
2019-06-07 17:02:51 +02:00

33 lines
608 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
PREFIX
AUTO 4,1
*--------------------------------------
FON.Init >PUSHWZ Aux type
>PUSHBI $CC Type
>PUSHBI O.RDONLY
>LDYA L.SYSX7
>SYSCALL2 LoadStkObj
bcs .9
sta hSYSFON
ldy #S.FON.PixH
>SYSCALL2 GetStkObjProp
sty SYSFON.H
>PUSHWZ Aux type
>PUSHBI $CC Type
>PUSHBI O.RDONLY
>LDYA L.SYSX7B
>SYSCALL2 LoadStkObj
bcs .9
sta hSYSFONB
.9 rts
*--------------------------------------
*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.FON
LOAD USR/SRC/LIB/LIBGUI.S
ASM