2021-12-02 21:28:26 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* LABEL.New hParent,X1,Y1,pLabel 5
|
|
|
|
|
|
*--------------------------------------
|
2022-09-04 20:12:49 +00:00
|
|
|
|
LABEL.New lda #S.OBJ.T.LABEL
|
|
|
|
|
|
jsr OBJ.Create
|
2021-12-02 21:28:26 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.S
|
|
|
|
|
|
lda #S.OBJ.S.bDisabled
|
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.LABEL.pLabel
|
|
|
|
|
|
jsr OBJ.PullWordY
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.OBJ.H
|
|
|
|
|
|
lda #1
|
|
|
|
|
|
sta (ZPObjPtr),y
|
|
|
|
|
|
|
|
|
|
|
|
jsr OBJ.PullY1X1hParent
|
|
|
|
|
|
|
2022-09-04 20:12:49 +00:00
|
|
|
|
jsr OBJ.Insert
|
|
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
|
|
lda hObj
|
|
|
|
|
|
* clc
|
|
|
|
|
|
rts
|
2021-12-02 21:28:26 +00:00
|
|
|
|
|
|
|
|
|
|
.9 >POP 5
|
2022-09-04 20:12:49 +00:00
|
|
|
|
.99 rts
|
2021-12-02 21:28:26 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
LABEL.Draw ldy #S.LABEL.pLabel
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
|
sta ZPPtr1
|
|
|
|
|
|
iny
|
|
|
|
|
|
lda (ZPObjPtr),y
|
|
|
|
|
|
sta ZPPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPPtr1),y
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
jsr LB.COut
|
|
|
|
|
|
iny
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.8
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
LABEL.Destroy
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
LABEL.Run
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
LABEL.Activate
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
LABEL.Deactivate
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/lib/libtui.s.label
|
|
|
|
|
|
LOAD usr/src/lib/libtui.s
|
|
|
|
|
|
ASM
|
