A2osX/LIB/LIBTUI.S.SCRN.txt

51 lines
1.0 KiB
Plaintext
Raw Normal View History

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