A2osX/LIB/LIBGUI.S.FON.txt
2018-10-02 17:52:30 +02:00

33 lines
646 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 /A2OSX.BUILD
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 /A2OSX.SRC/LIB/LIBGUI.S.FON
LOAD /A2OSX.SRC/LIB/LIBGUI.S
ASM