A2osX/LIB/LIBTUI.S.SCRN.txt

NEW
  AUTO 3,1
				.LIST OFF
*--------------------------------------
* SCRN.New hCTX,F						2
*--------------------------------------
SCRN.New		lda #S.OBJ.T.SCRN
				jsr OBJ.Create
				bcs .9

				>PULLA
				ldy #S.OBJ.F
				sta (ZPObjPtr),y

				>PULLA
				ldy #S.OBJ.hParent
				sta (ZPObjPtr),y

				>SYSCALL2 GetMemPtr
				>STYA ZPPtr2			CTX
				
				lda hObj
				sta (ZPPtr2)			S.CTX.hSCRN

				ldy #S.CTX.W
				lda (ZPPtr2),y
				ldy #S.OBJ.W
				sta (ZPObjPtr),y

				ldy #S.CTX.H
				lda (ZPPtr2),y
				ldy #S.OBJ.H
				sta (ZPObjPtr),y

				jsr OBJ.SetX2Y2
				
				
				
				lda hObj
*				clc
				rts

.9				>POP 2
.99				rts
*--------------------------------------
MAN
SAVE usr/src/lib/libtui.s.scrn
LOAD usr/src/lib/libtui.s
ASM