A2osX/LIB/LIBGUI.S.BUT.txt

42 lines
647 B
Plaintext
Raw Normal View History

NEW
2019-07-30 08:57:25 +00:00
AUTO 3,1
*--------------------------------------
BUT.New >STYA ZPPtr1
2019-01-10 16:26:58 +00:00
ldy #S.OBJ.W
lda (ZPPtr1),y
iny
ora (ZPPtr1),y
2019-01-08 16:29:26 +00:00
bne .1 W in !NULL, static size
ldy #S.BUT.hBM
lda (ZPPtr1),y
beq .1
ldy #S.BM.W
2019-07-30 15:35:42 +00:00
* >SYSCALL2 GetStkObjProp
phy
2019-01-10 16:26:58 +00:00
ldy #S.OBJ.W+1
sta (ZPPtr1),y
dey
pla
sta (ZPPtr1),y
2019-01-08 16:29:26 +00:00
.1
clc
rts
*--------------------------------------
2020-09-07 20:40:50 +00:00
BUT.Paint
*--------------------------------------
2020-09-07 20:40:50 +00:00
BUT.Close
2020-09-07 20:40:50 +00:00
clc
rts
*--------------------------------------
MAN
2020-06-30 15:32:23 +00:00
SAVE usr/src/lib/libgui.s.but
LOAD usr/src/lib/libgui.s
ASM