mirror of https://github.com/A2osX/A2osX.git
94 lines
1.5 KiB
Plaintext
94 lines
1.5 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
TBOX.New >LDYAI 1024
|
||
>SYSCALL2 GetMem
|
||
bcs .9
|
||
|
||
>STYA ZPPtr1
|
||
txa
|
||
|
||
ldy #S.TBOX.hBuf
|
||
sta (ZPObjPtr),y
|
||
|
||
lda #0
|
||
sta (ZPPtr1)
|
||
|
||
ldy #S.TBOX.CurX
|
||
|
||
.1 sta (ZPObjPtr),y
|
||
iny
|
||
cpy #S.TBOX.DocY+1
|
||
bne .1
|
||
|
||
clc
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
TBOX.Destroy ldy #S.TBOX.hBuf
|
||
lda (ZPObjPtr),y
|
||
beq .8
|
||
|
||
>SYSCALL2 FreeMem
|
||
|
||
.8 clc
|
||
rts
|
||
*--------------------------------------
|
||
TBOX.Run lda (pStack) Event
|
||
cmp #C.SPACE
|
||
bcc .8
|
||
|
||
|
||
.9 sec
|
||
|
||
.8
|
||
rts
|
||
*--------------------------------------
|
||
TBOX.Draw ldy #S.OBJ.InnerW
|
||
lda (ZPObjPtr),y
|
||
|
||
tax
|
||
lda #C.SPACE
|
||
|
||
.1 jsr LIB.LineBufCOut
|
||
dex
|
||
bne .1
|
||
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
TBOX.Activate jsr LIB.LineBufInit
|
||
|
||
ldy #S.OBJ.InnerX
|
||
lda (ZPObjPtr),y
|
||
clc
|
||
ldy #S.TBOX.CurX
|
||
adc (ZPObjPtr),y
|
||
tax
|
||
|
||
ldy #S.OBJ.InnerY
|
||
lda (ZPObjPtr),y
|
||
clc
|
||
ldy #S.TBOX.CurY
|
||
adc (ZPObjPtr),y
|
||
tay
|
||
jsr LIB.GotoXY
|
||
|
||
ldx #SEQ.CURON-SEQS
|
||
jsr LIB.LineBufSeqOut
|
||
|
||
jmp LIB.LineBufOut
|
||
*--------------------------------------
|
||
TBOX.Deactivate jsr LIB.LineBufInit
|
||
|
||
ldx #SEQ.CUROFF-SEQS
|
||
jsr LIB.LineBufSeqOut
|
||
|
||
jmp LIB.LineBufOut
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libtui.s.tbox
|
||
LOAD usr/src/lib/libtui.s
|
||
ASM
|