mirror of https://github.com/A2osX/A2osX.git
56 lines
1.0 KiB
Plaintext
56 lines
1.0 KiB
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
|
||
|
||
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
|
||
rts
|
||
*--------------------------------------
|
||
SCRN.Destroy clc
|
||
rts
|
||
*--------------------------------------
|
||
SCRN.Run .EQ CONT.Run
|
||
*--------------------------------------
|
||
SCRN.Draw .EQ CONT.Draw
|
||
*--------------------------------------
|
||
SCRN.Activate .EQ CONT.Activate
|
||
*--------------------------------------
|
||
SCRN.Deactivate .EQ CONT.Deactivate
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libtui.s.scrn
|
||
LOAD usr/src/lib/libtui.s
|
||
ASM
|