A2osX/LIB/LIBTUI.S.SCRN.txt
burniouf e0d317e793 CIFS:bugfix
LIBTUI:wip
GOPGHER:correct exit key
WHICH:new command
2023-02-10 19:19:29 +01:00

50 lines
795 B
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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