A2osX/LIB/LIBGUI.S.WND.txt

83 lines
1.4 KiB
Plaintext
Raw Normal View History

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
*--------------------------------------
2018-05-16 06:02:57 +00:00
WND.Init >LDYA L.DEVNAME.GFX
>SYSCALL GetDevByName.YA
bcs .9
stx hDevScreen
txa
2018-07-18 15:30:42 +00:00
>SYSCALL GetDevStatus
2018-05-16 06:02:57 +00:00
bcs .9
>STYA ZPPtr1
2018-07-19 15:33:55 +00:00
ldy #S.DIB.GFX.W
2018-05-16 06:02:57 +00:00
lda (ZPPtr1),y
sta WND.Cache+S.OBJ.W
iny
lda (ZPPtr1),y
sta WND.Cache+S.OBJ.W+1
lda SYSFONB.H
clc
adc #6
sta WND.TB.H
2018-07-19 15:33:55 +00:00
iny #S.DIB.GFX.H
2018-05-16 06:02:57 +00:00
lda (ZPPtr1),y
sec
sbc SYSFONB.H
sta WND.Cache+S.OBJ.H
iny
lda (ZPPtr1),y
sbc #0
sta WND.Cache+S.OBJ.H+1
lda #S.WND.F.NOBORDER
sta WND.Cache+S.OBJ.F
lda #CUR.T.ARROW
sta WND.Cache+S.WND.hCUR
>LDYA L.WND.CACHE
jsr WND.New
bcs .9
stx WND.Stack
.9 rts
*--------------------------------------
WND.Quit
clc
rts
*--------------------------------------
2018-05-16 06:02:57 +00:00
WND.New >STYA ZPPtr1
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
2018-05-16 06:02:57 +00:00
bcs .9
>STYA ZPWNDPtr
ldy #S.WND-1
.1 lda (ZPPtr1),y
sta (ZPWNDPtr),y
dey
bpl .1
.9 rts
*--------------------------------------
WND.Paint >STYA ZPPtr1
2018-05-16 06:02:57 +00:00
clc
rts
*--------------------------------------
WND.Close
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBGUI.S.WND
LOAD /A2OSX.SRC/LIB/LIBGUI.S
ASM