A2osX/LIB/LIBTUI.S.LABEL.txt

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