A2osX/LIB/LIBGUI.S.FON.txt

33 lines
616 B
Plaintext
Raw Normal View History

2018-05-16 06:02:57 +00:00
NEW
2019-07-30 08:57:25 +00:00
AUTO 3,1
2018-05-16 06:02:57 +00:00
*--------------------------------------
2019-06-07 15:02:51 +00:00
FON.Init >PUSHWZ Aux type
2018-05-16 06:02:57 +00:00
>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-07-30 15:35:42 +00:00
* ldy #S.FON.PixH
* >SYSCALL2 GetStkObjProp
lda #7
sta SYSFON.H
2019-01-08 16:29:26 +00:00
2019-06-07 15:02:51 +00:00
>PUSHWZ Aux type
2018-05-16 06:02:57 +00:00
>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
2020-06-30 15:32:23 +00:00
SAVE usr/src/lib/libgui.s.fon
LOAD usr/src/lib/libgui.s
2018-05-16 06:02:57 +00:00
ASM