itty-bitty-vtty/vt100.tabs.S


	lst off
	rel
	xc
	xc

	use vt.equ

	mx %11

init_tabs	ent

	ldx #80-1
:zloop	stz tabs,x
	dex
	bpl :zloop

	lda #$80
	ldy #8
:loop	ldx :table,y
	sta tabs,x
	dey
	bpl :loop

	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
	inx
	cpx #79
	bge :79

:loop	bit tabs,x
	bmi :rts
	inx
	cpx #80
	bcc :loop


:79	ldx	#79
:rts	rts


tabs	ds 80

	sav vt100.tabs.L
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`lst off`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00			`rel`
			`xc`
			`xc`

			`use vt.equ`

more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`mx %11`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
			`init_tabs ent`

more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`ldx #80-1`
			`:zloop stz tabs,x`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00			`dex`
more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`bpl :zloop`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`lda #$80`
			`ldy #8`
			`:loop ldx :table,y`
			`sta tabs,x`
			`dey`
			`bpl :loop`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
			`rts`
tab/keypad fixes 2021-09-22 03:40:22 +00:00			`:table db 81,82,83,84,85,86,87,88,8*9`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
			`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`
more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`inx`
			`cpx #79`
			`bge :79`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00
			`:loop bit tabs,x`
			`bmi :rts`
			`inx`
			`cpx #80`
			`bcc :loop`


more vt100 code to handle DECAWM mode, bit 7 of x ($80 + 79) indicates a wrap is imminent, as opposed to just being in column 79. backspace, etc will drop back to column 78 (based on testing). 2021-09-17 23:50:56 +00:00			`:79 ldx #79`
adding everything in progress, regardless of state. 2021-09-04 21:52:35 +00:00			`:rts rts`


			`tabs ds 80`

			`sav vt100.tabs.L`