A2osX/LIB/LIBGUI.S.BUT.txt
2020-09-07 22:40:50 +02:00

42 lines
647 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,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.Paint
*--------------------------------------
BUT.Close
clc
rts
*--------------------------------------
MAN
SAVE usr/src/lib/libgui.s.but
LOAD usr/src/lib/libgui.s
ASM