A2osX/LIB/LIBGUI.S.FON.txt

37 lines
620 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
*--------------------------------------
2020-09-02 15:47:23 +00:00
FON.Init >LDYA L.SYSX7
jsr FON.Load
2018-05-16 06:02:57 +00:00
bcs .9
2020-09-11 20:54:15 +00:00
stx hSYSFON
2019-01-08 16:29:26 +00:00
>LDYA L.SYSX7B
2020-09-02 15:47:23 +00:00
jsr FON.Load
2018-05-16 06:02:57 +00:00
bcs .9
2020-09-11 20:54:15 +00:00
stx hSYSFONB
* ldy #S.FON.PixH
* >SYSCALL2 GetStkObjProp
lda #7
sta SYSFON.H
2020-09-13 19:05:38 +00:00
inc
inc
sta SYSFON.H2
2019-01-08 16:29:26 +00:00
2018-05-16 06:02:57 +00:00
.9 rts
*--------------------------------------
2020-09-02 15:47:23 +00:00
FON.Load >PUSHYA
>PUSHBI O.RDONLY
>PUSHBI $CC Type
>PUSHWZ Aux type
>SYSCALL2 LoadStkObj
rts
2018-05-16 06:02:57 +00:00
*--------------------------------------
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