vt100.key.S

@@ -112,10 +112,6 @@ command ; or option
 	beq :bs
 	cmp #$0d
 	beq :lf
-	cmp #'l'
-	beq :local
-	cmp #'L'
-	beq :local
 
 	cmp #:MIN
 	blt :rts
@@ -130,27 +126,14 @@ 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

vt100.main.S

@@ -224,8 +224,7 @@ reset	ent
 	lda #23
 	sta DECBM
 	lda #$80
-	sta DECANM ; ansi mode
-	sta DECARM ; key repeat on
+	sta DECANM
 
 	lda #st_vt100
 	sta state

vt100.modem.S

@@ -31,7 +31,6 @@ SerFlag		equ $e10104 ;
 * see IIgs TN #18 - Do-It-Yourself SCC Access
 
 init_modem ent
-enable_modem ent
 *	sep #$30
 
 	php
@@ -90,28 +89,6 @@ enable_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