[net.micro.apple] termcap for videx card

morgan@ucbcad.UUCP (06/22/83)

#N:ucbcad:2800001:000:1650
ucbcad!morgan    Jun 21 13:46:00 1983

	I have been using my Apple II+ as an intelligent terminal
for a little over a year now. I patched dos to change the "init"
command to "term". From the command level of Pie Writer 2.2 (the 
absolute best of the word processors) I merely type "term" to enter
a 1200 baud terminal mode, and ^@ to return to Pie. If anyone is
interested, I'll post that patch at a later date.

	However, I still could not use vi. My apple is equipped 
with a Videx 80 collum card, with inverse character set chip. After
much experimenting, I developed the following termcap entry which
works most of the time:

				bcx c/o morgan!medea

/.applecap/

#The following termcap entry works only with an Apple ][+ that is
# equipped with a Videx 80 collumn card in slot 3. A special routine
# must be installed at the apple end to enable scroll down, here
# indicated with a ^U. The Videx card must have inverse char set.
#
# ;SPECIAL ROUTINE TO ENABLE SCROLL DOWN
# ;
# COUT  EQU $FDED
# NO	EQU $6F8
# START	EQU NO-$C0
# DEV0	EQU $C080
# DEV1	EQU $C081
# BASEL EQU $478-$C0
# BASCLC1 EQU $CA2E
# BASEH EQU $4F8-$C0
# ;
# ; ENTER HERE WITH JSR, ALL REGISTERS DESTROYED.
# ;
# 	SEC
#	LDX #$C3
#	LDY NO
#	LDA START,X
#	SBC #$05
#	AND #$7F
#	STA START,X
#	JSR BASCLC1
#	LDA #$0D
#	STA DEV0,Y
#	LDA BASEL,X
#	STA DEV1,Y
#	LDA #$0C
#	STA DEV0,Y
#	LDA BASEH,X
#	STA DEV1,Y
#	LDA #$19
#	JSR COUT
#	LDA #$1D
#	JSR COUT
#	RTS
#
qa|applev80i|Apple][+ w/Videx80 inverse & custom scroll down:co#80:li#25:\
        :bs:ae=^z2:as=^z3:cm=6\015\036%r%+\037%+\037:\
        :ce=6\035:ho=50\031:so=^z3:se=^z2:nd=\034:\
        :do=\012:up=\037:cl=40*\014:dB=10:xn:am:dF=50:sr=\020:cd=20*\013: