mirror of
https://github.com/ksherlock/itty-bitty-vtty.git
synced 2024-06-16 19:29:53 +00:00
tab/keypad fixes
This commit is contained in:
parent
6abf2574e3
commit
e9e969a56b
|
@ -49,7 +49,7 @@ keypress ent
|
||||||
|
|
||||||
* control char w/o control bit.
|
* control char w/o control bit.
|
||||||
* ie, arrow key / return / tab
|
* ie, arrow key / return / tab
|
||||||
|
* no cmp / sbc needed
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
lsr ; restore
|
lsr ; restore
|
||||||
|
@ -77,6 +77,8 @@ keypad
|
||||||
blt :rts
|
blt :rts
|
||||||
cmp #:MAX+1
|
cmp #:MAX+1
|
||||||
bcs :rts
|
bcs :rts
|
||||||
|
sec
|
||||||
|
sbc #:MIN
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
jmp (:table,x)
|
jmp (:table,x)
|
||||||
|
|
|
@ -13,6 +13,7 @@
|
||||||
ext write_modem,read_modem,init_modem,keypress
|
ext write_modem,read_modem,init_modem,keypress
|
||||||
ext disable_cursor,enable_cursor
|
ext disable_cursor,enable_cursor
|
||||||
ext erase_screen
|
ext erase_screen
|
||||||
|
ext init_tabs
|
||||||
|
|
||||||
SET80VID equ $c00d
|
SET80VID equ $c00d
|
||||||
SETALTCHAR equ $c00f
|
SETALTCHAR equ $c00f
|
||||||
|
@ -85,6 +86,7 @@ init
|
||||||
|
|
||||||
jsr erase_screen
|
jsr erase_screen
|
||||||
jsr init_modem
|
jsr init_modem
|
||||||
|
jsr init_tabs
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
@ -240,7 +242,7 @@ ctrl_0c ; form feed.
|
||||||
:lf
|
:lf
|
||||||
lda y
|
lda y
|
||||||
cmp #DECBM
|
cmp #DECBM
|
||||||
blt :simple
|
bne :simple
|
||||||
|
|
||||||
* lda #" " ; needs to factor in reverse video
|
* lda #" " ; needs to factor in reverse video
|
||||||
* sta cursor_saved_char
|
* sta cursor_saved_char
|
||||||
|
|
|
@ -23,7 +23,7 @@ init_tabs ent
|
||||||
bpl :loop
|
bpl :loop
|
||||||
|
|
||||||
rts
|
rts
|
||||||
:table db 8*1,8*2,8*3,8*4,8*5,8*6,8*7,8*8*,8*9
|
:table db 8*1,8*2,8*3,8*4,8*5,8*6,8*7,8*8,8*9
|
||||||
|
|
||||||
set_tab ent
|
set_tab ent
|
||||||
* input x = x
|
* input x = x
|
||||||
|
|
Loading…
Reference in New Issue
Block a user