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