A2osX/LIB/LIBGUI.S.FON.txt

33 lines
612 B
Plaintext
Raw Normal View History

2018-05-16 06:02:57 +00:00
NEW
2018-11-17 17:17:13 +00:00
PREFIX
2018-05-16 06:02:57 +00:00
AUTO 4,1
*--------------------------------------
FON.Init >PUSHWI 0 Aux type
>PUSHBI $CC Type
2018-10-02 15:52:30 +00:00
>PUSHBI O.RDONLY
2019-01-08 16:29:26 +00:00
>LDYA L.SYSX7
2019-05-05 17:15:37 +00:00
>SYSCALL2 LoadStkObj
2018-05-16 06:02:57 +00:00
bcs .9
sta hSYSFON
2019-01-08 16:29:26 +00:00
ldy #S.FON.PixH
2019-05-05 17:15:37 +00:00
>SYSCALL2 GetStkObjProp
2019-01-08 16:29:26 +00:00
sty SYSFON.H
2018-05-16 06:02:57 +00:00
>PUSHWI 0 Aux type
>PUSHBI $CC Type
2018-10-02 15:52:30 +00:00
>PUSHBI O.RDONLY
2019-01-08 16:29:26 +00:00
>LDYA L.SYSX7B
2019-05-05 17:15:37 +00:00
>SYSCALL2 LoadStkObj
2018-05-16 06:02:57 +00:00
bcs .9
sta hSYSFONB
2019-01-08 16:29:26 +00:00
2018-05-16 06:02:57 +00:00
.9 rts
*--------------------------------------
*--------------------------------------
MAN
2018-11-17 17:17:13 +00:00
SAVE USR/SRC/LIB/LIBGUI.S.FON
LOAD USR/SRC/LIB/LIBGUI.S
2018-05-16 06:02:57 +00:00
ASM