mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-22 00:32:44 +00:00
68 lines
1.1 KiB
Plaintext
68 lines
1.1 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
* LABEL.New hParent,X1,Y1,pLabel,F 6
|
||
*--------------------------------------
|
||
LABEL.New lda #S.OBJ.T.LABEL
|
||
jsr OBJ.Create
|
||
bcs .9
|
||
|
||
>PULLA
|
||
ldy #S.OBJ.F
|
||
sta (ZPObjPtr),y
|
||
|
||
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
|
||
|
||
jsr CONT.Insert
|
||
bcs .99
|
||
|
||
lda hObj
|
||
* clc
|
||
rts
|
||
|
||
.9 >POP 6
|
||
.99 rts
|
||
*--------------------------------------
|
||
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.Run
|
||
*--------------------------------------
|
||
LABEL.Activate
|
||
*--------------------------------------
|
||
LABEL.Deactivate
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libtui.s.label
|
||
LOAD usr/src/lib/libtui.s
|
||
ASM
|