mirror of https://github.com/A2osX/A2osX.git
51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
* SCRN.New hCTX,F 2
|
||
*--------------------------------------
|
||
SCRN.New jsr OBJ.Create A = Class
|
||
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
|
||
|
||
jmp OBJ.SetX2Y2
|
||
|
||
.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
|