mirror of https://github.com/A2osX/A2osX.git
50 lines
795 B
Plaintext
50 lines
795 B
Plaintext
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
|