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