mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 03:05:43 +00:00
33 lines
652 B
Plaintext
33 lines
652 B
Plaintext
|
NEW
|
|||
|
|
PREFIX /A2OSX.BUILD
|
|||
|
|
AUTO 4,1
|
|||
|
|
*--------------------------------------
|
|||
|
|
FON.Init >PUSHWI 0 Aux type
|
|||
|
|
>PUSHBI $CC Type
|
|||
|
|
>PUSHBI SYS.FOpen.R
|
|||
|
|
>PUSHW L.SYSX7
|
|||
|
|
>SYSCALL LoadStkObj
|
|||
|
|
bcs .9
|
|||
|
|
sta hSYSFON
|
|||
|
|
|
|||
|
|
>PUSHWI 0 Aux type
|
|||
|
|
>PUSHBI $CC Type
|
|||
|
|
>PUSHBI SYS.FOpen.R
|
|||
|
|
>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
|