78 lines
613 B
ArmAsm
78 lines
613 B
ArmAsm
|
|
|
|
rel
|
|
xc
|
|
xc
|
|
|
|
use vt.equ
|
|
|
|
|
|
init_tabs ent
|
|
|
|
|
|
ldx #80
|
|
:loop stz tabs,x
|
|
dex
|
|
bpl :loop
|
|
|
|
lda #72
|
|
ldy #$80
|
|
:tloop tax
|
|
sty tabs,x
|
|
sec
|
|
sbc #8
|
|
bne :tloop
|
|
|
|
rts
|
|
*:table db 8*1,8*2,8*3,8*4,8*5,8*6,8*7,8*8*,8*9
|
|
|
|
set_tab ent
|
|
* input x = x
|
|
|
|
* ldx x
|
|
cpx #80
|
|
bge :rts
|
|
lda #$80
|
|
sta tabs,x
|
|
:rts rts
|
|
|
|
reset_tab ent
|
|
* input x = x
|
|
|
|
* ldx x
|
|
cpx #80
|
|
bge :rts
|
|
stz tabs,x
|
|
:rts rts
|
|
|
|
|
|
reset_all_tabs ent
|
|
|
|
ldx #80-1
|
|
:loop stz tabs,x
|
|
dex
|
|
bpl :loop
|
|
rts
|
|
|
|
next_tab_stop ent
|
|
* input x = x
|
|
|
|
* ldx x
|
|
cpx 79
|
|
bge :80
|
|
|
|
:loop bit tabs,x
|
|
bmi :rts
|
|
inx
|
|
cpx #80
|
|
bcc :loop
|
|
|
|
|
|
:80 ldx #80
|
|
:rts rts
|
|
|
|
|
|
tabs ds 80
|
|
|
|
sav vt100.tabs.L
|