mirror of
https://github.com/ksherlock/itty-bitty-vtty.git
synced 2024-06-14 06:29:29 +00:00
Compare commits
2 Commits
dcbafc2999
...
90e807ba46
Author | SHA1 | Date | |
---|---|---|---|
|
90e807ba46 | ||
|
2c432b3fc1 |
23
vt100.key.S
23
vt100.key.S
|
@ -112,6 +112,10 @@ command ; or option
|
|||
beq :bs
|
||||
cmp #$0d
|
||||
beq :lf
|
||||
cmp #'l'
|
||||
beq :local
|
||||
cmp #'L'
|
||||
beq :local
|
||||
|
||||
cmp #:MIN
|
||||
blt :rts
|
||||
|
@ -126,14 +130,27 @@ command ; or option
|
|||
:rts rts
|
||||
|
||||
|
||||
:MIN equ 49
|
||||
:MAX equ 52
|
||||
|
||||
:bs lda #$08
|
||||
jmp dispatch ;
|
||||
:lf lda #$0a
|
||||
jmp dispatch
|
||||
|
||||
ext enable_modem,disable_modem
|
||||
:local
|
||||
bit LOCAL
|
||||
bmi :online
|
||||
lda #$80
|
||||
sta LOCAL
|
||||
jmp disable_modem
|
||||
|
||||
:online
|
||||
stz LOCAL
|
||||
jmp enable_modem
|
||||
|
||||
|
||||
:MIN equ 49
|
||||
:MAX equ 52
|
||||
|
||||
|
||||
:table
|
||||
dw pf1 ; 1
|
||||
|
|
|
@ -224,7 +224,8 @@ reset ent
|
|||
lda #23
|
||||
sta DECBM
|
||||
lda #$80
|
||||
sta DECANM
|
||||
sta DECANM ; ansi mode
|
||||
sta DECARM ; key repeat on
|
||||
|
||||
lda #st_vt100
|
||||
sta state
|
||||
|
|
|
@ -31,6 +31,7 @@ SerFlag equ $e10104 ;
|
|||
* see IIgs TN #18 - Do-It-Yourself SCC Access
|
||||
|
||||
init_modem ent
|
||||
enable_modem ent
|
||||
* sep #$30
|
||||
|
||||
php
|
||||
|
@ -89,6 +90,28 @@ init_modem ent
|
|||
db 9,%00_0_0_1_0_1_0 ; master interrupts enabled.
|
||||
db -1,-1
|
||||
|
||||
|
||||
disable_modem ent
|
||||
* local mode
|
||||
mx %11
|
||||
php
|
||||
sei
|
||||
|
||||
lda SCCBREG ; sync access
|
||||
lda #9
|
||||
sta SCCBREG
|
||||
lda #%01_0_1_0_0_0_1 ; reset channel B.
|
||||
sta SCCBREG
|
||||
|
||||
stz read_q_head
|
||||
stz read_q_tail
|
||||
stz write_q_head
|
||||
stz write_q_tail
|
||||
|
||||
plp
|
||||
rts
|
||||
|
||||
|
||||
write_modem_sync ent
|
||||
mx %11
|
||||
* a: byte to send
|
||||
|
|
Loading…
Reference in New Issue
Block a user