mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-09 15:29:29 +00:00
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
|