A2osX/LIB/LIBGUI.S.BUT.txt

38 lines
628 B
Plaintext
Raw Normal View History

NEW
2018-11-17 17:17:13 +00:00
PREFIX
AUTO 4,1
*--------------------------------------
BUT.New >STYA ZPPtr1
ldy #S.CTRL.W
lda (ZPPtr1),y
iny
ora (ZPPtr1),y
bne . W in !NULL, static size
ldy #S.BUT.hBM
lda (ZPPtr1),y
beq .1
ldy #S.BM.W
>SYSCALL GetStkObjProperty.AY
phy
ldy #S.CTRL.W+1
sta (ZPPtr1),y
dey
pla
sta (ZPPtr1),y
.1 ldy
*--------------------------------------
BUT.Draw
*--------------------------------------
*--------------------------------------
MAN
2018-11-17 17:17:13 +00:00
SAVE USR/SRC/LIB/LIBGUI.S.BUT
LOAD USR/SRC/LIB/LIBGUI.S
ASM