mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-07 17:29:34 +00:00
83 lines
1.2 KiB
Plaintext
83 lines
1.2 KiB
Plaintext
|
NEW
|
|||
|
|
AUTO 3,1
|
|||
|
|
.LIST OFF
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.New
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.Destroy
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.Run lda (pStack) Event
|
|||
|
|
cmp #C.TAB
|
|||
|
|
bne .9
|
|||
|
|
|
|||
|
|
ldy #1
|
|||
|
|
lda (pStack),y hObj
|
|||
|
|
jsr LIB.FindActive
|
|||
|
|
bcs .9
|
|||
|
|
|
|||
|
|
>PUSHA hActive
|
|||
|
|
|
|||
|
|
phy index
|
|||
|
|
|
|||
|
|
ldy #2
|
|||
|
|
lda (pStack),y hObj
|
|||
|
|
>SYSCALL2 GetMemPtr
|
|||
|
|
>STYA ZPPtr1
|
|||
|
|
|
|||
|
|
ply
|
|||
|
|
|
|||
|
|
.1 iny
|
|||
|
|
cpy #S.OBJ
|
|||
|
|
bne .2
|
|||
|
|
|
|||
|
|
ldy #S.OBJ.Childs
|
|||
|
|
|
|||
|
|
.2 lda (ZPPtr1),y
|
|||
|
|
beq .1
|
|||
|
|
|
|||
|
|
cmp (pStack)
|
|||
|
|
beq .8
|
|||
|
|
|
|||
|
|
jsr OBJ.Activate2
|
|||
|
|
|
|||
|
|
lda (pStack)
|
|||
|
|
jsr OBJ.Deactivate
|
|||
|
|
|
|||
|
|
.8 inc pStack discard hActive
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
|
|||
|
|
.9 sec
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.Draw ldy #S.OBJ.InnerW
|
|||
|
|
lda (ZPObjPtr),y
|
|||
|
|
|
|||
|
|
tax
|
|||
|
|
lda #C.SPACE
|
|||
|
|
|
|||
|
|
.1 jsr LIB.LineBufCOut
|
|||
|
|
dex
|
|||
|
|
bne .1
|
|||
|
|
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.Activate
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
SCRN.Deactivate
|
|||
|
|
clc
|
|||
|
|
rts
|
|||
|
|
*--------------------------------------
|
|||
|
|
MAN
|
|||
|
|
SAVE usr/src/lib/libtui.s.scrn
|
|||
|
|
LOAD usr/src/lib/libtui.s
|
|||
|
|
ASM
|