A2osX/LIB/LIBGUI.S.FON.txt
2019-07-30 17:35:42 +02:00

33 lines
616 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
AUTO 3,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
lda #7
sta 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