mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-27 04:49:20 +00:00
41 lines
628 B
Plaintext
41 lines
628 B
Plaintext
NEW
|
||
PREFIX
|
||
AUTO 4,1
|
||
*--------------------------------------
|
||
BUT.New >STYA ZPPtr1
|
||
|
||
ldy #S.OBJ.W
|
||
lda (ZPPtr1),y
|
||
iny
|
||
ora (ZPPtr1),y
|
||
bne .1 W in !NULL, static size
|
||
|
||
ldy #S.BUT.hBM
|
||
lda (ZPPtr1),y
|
||
beq .1
|
||
|
||
ldy #S.BM.W
|
||
>SYSCALL2 GetStkObjProp
|
||
|
||
phy
|
||
ldy #S.OBJ.W+1
|
||
sta (ZPPtr1),y
|
||
dey
|
||
pla
|
||
sta (ZPPtr1),y
|
||
|
||
.1
|
||
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
BUT.Draw
|
||
|
||
*--------------------------------------
|
||
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/LIB/LIBGUI.S.BUT
|
||
LOAD USR/SRC/LIB/LIBGUI.S
|
||
ASM
|