bgribble@jarthur.Claremont.EDU (Bill Gribble) (04/11/90)
For anyone interested (and anyone not so interested), here's a
_substantially_ improved version of the terminal emulator I posted
a few days ago. The kermit thing still doesn't work, but it's still
just as easy to exit and use the builtins. So I'm lazy.
To get over the hellish slowness, I added the shift-alpha key: it
toggles a buffer dump that just throws away the buffer if it gets
more than ~50 (I forgot exactly) characters in it. Also, various
punctuation marks are mapped to the number and math-operator keys.
I think orange and blue shift functions are reversed, too - orange is
now shift, blue is control.
I WANT A MACHINE LANGUAGE VERSION OF THIS! I never really got into
machine language on the 28, but I want to start on the 48 - any
hints? Even a rewrite of just the WRITE and buffer-reading routines
in machine code would be mighty nice.
Since I had problems with MORE and the control strings in the program,
I uuencoded it. Hopefully everything will work fine. Here it is:
TERM2.0 - Terminal emulator, version 2. Bill Gribble.
BYTES - 2259
CHKSUM - # 4997h
------------------------------------- cut here ------------------------------
begin 644 term2.0
M)25(4#H@5"@S*4$H4BE&*"XI.PI</#P*(BXN+BXN+BXN+BY!0D-$148N+BXN
M1TA)2DM,+BXN+DU.3U!14BXN+BY35%565U@N+BXN65I<=B]<1U,N+BXN+EPN
M5B8J*%LN+BXN+EP\*20E7ETN+BXN+EQX+2%`(R<N+BXN+BXI+#]^+BXN+BXN
M+BXN+BXN+BXN`0(#!`4&+BXN+@<(+BX+#"XN+BXN#@\0$1(N+BXN$Q05%A<8
M+BXN+AD:7'8O7"Y3+BXN+BY<+E8N+BXN+BXN+BY</"DN+BXN+BXN+BY<>"TN
M+BXN+BXN+BXN+BXN+BXN+BXN+BXN+BXN+BXN+F%B8V1E9BXN+BYG:&EJ:VPN
M+BXN;6YO<'%R+BXN+G-T=79W>"XN+BYY>EQV+P@N+BXN+EPN5C<X.2\N+BXN
M+EP\*30U-BHN+BXN+EQX+3$R,RTN+BXN+BXP+B`K(@HB(B`B(@H@(%P\/`H@
M("`@5TA)3$4@1%50(%-)6D4*,C$@/@H@("`@4D5014%4($154"`Q(#(Q"E-5
M0B`W($1)4U`@;FP@1%50"E-)6D4@,C(@4U=!4"!354(*1%50("=L:6YE)R!3
M5$\*("`@($5.1"`W($1)4U`*("!</CX*("!</#P@3E5-(%PM/B!N8G(*("`@
M(%P\/`H@("`@("!#05-%(&YB<B`X(#T]"B`@("`@("`@5$A%3B!S=')I;F<*
M1%50(%-)6D4@,2`M(#$@4U=!4`I354(@)W-T<FEN9R<@4U1/"G-T<FEN9R!W
M<FET90H@("`@("`@($5.1"!N8G(@,3,*/3T*("`@("`@("!42$5.(&YL("(B
M"B=L:6YE)R!35$\*("`@("`@("!%3D0@;F)R(#<*/3T*("`@("`@("!42$5.
M(#$P,#`*+C(@0D5%4`H@("`@("`@($5.1`H@("`@("!%3D0*("`@(%P^/@H@
M(%P^/@H@(%P\/"!$55`@3E5-(%PM/@IO=71K97D@;F)R"B`@("!</#P*("`@
M("`@0T%312!N8G(@1%50"C$R."`\(%-705`@,3,@7#TO($%.1`H@("`@("`@
M(%1(14X@;W5T:V5Y"EA-250@1%)/4`H@("`@("`@($5.1"!N8G(@,3,*/3T*
M("`@("`@("!42$5.(&]U=&ME>0HQ,"!#2%(@*R!834E4($123U`*("`@("`@
M("!%3D0@;F)R(#$R.`H]/0H@("`@("`@(%1(14X@,B!#1@H@("`@("`@("`@
M248@,2!&4S\*("`@("`@("`@(%1(14X@,2!#1@H@("`@("`@("`@14Q312`Q
M(%-&"B`@("`@("`@("!%3D0*("`@("`@("!%3D0@;F)R(#$R.0H]/0H@("`@
M("`@(%1(14X@,2!#1@H@("`@("`@("`@248@,B!&4S\*("`@("`@("`@(%1(
M14X@,B!#1@H@("`@("`@("`@14Q312`R(%-&"B`@("`@("`@("!%3D0*("`@
M("`@("!%3D0@;F)R(#$S,`H]/0H@("`@("`@(%1(14X@4T)22PIN;`HB("`M
M+2!"<F5A:R!S96YT("TM(@IW<FET90H@("`@("`@($5.1"!N8G(@,3,Q"CT]
M"B`@("`@("`@5$A%3B`T(%-&"B`@("`@("`@14Y$(&YB<B`Q,S(*/3T*("`@
M("`@("!42$5.(&ME<FUI=`H@("`@("`@($5.1"!N8G(@,3,S"CT]"B`@("`@
M("`@5$A%3B!214-6"B`@("`@("`@14Y$"B`@("`@($5.1`H@("`@7#X^"B`@
M7#X^"B`@7#P\($Q#1%PM/B![(",@,&@*(R`X:"!]('L@(R`X,V@*(R`S-V@@
M?2!354(@(R`X,V@*(R`T,&@@0DQ!3DL@>R`C(#!H"B,@,&@@?2`S(%)/3$P@
M1T]2"EPM/DQ#1"`B(B`G;&EN92<@4U1/"B`@7#X^"B`@7#P\(&YL(")&:6QE
M.B`B"G=R:71E(#`@7"T^('%T"B`@("!</#P@(B(*("`@("`@1$\*("`@("`@
M("!$3R!+15D*("`@("`@("!53E1)3`H@("`@("`@($5.1`H@("`@("`@($E&
M($154"`U,0I304U%"B`@("`@("`@5$A%3B`Q("=Q="<*4U1/*PH@("`@("`@
M($5,4T4@:V5Y<R`*4U=!4"!$55`@4U5""D154"!W<FET92`K"B`@("`@("`@
M14Y$"B`@("`@(%5.5$E,('$*("`@("`@14Y$"B`@("!</CX@(B<B("L@(B<B
M"E-705`@*R!35%)<+3X@4T5.1`H@(%P^/B`G:V5R;6ET)R!35$\*)VYL)R!3
M5$\@)W-N9"<@4U1/"B=C;G1L)R!35$\@)W=R:71E)PI35$\@)W-T<FEN9R<@
M4U1/"B=L:6YE)R!35$\@)VME>7,G"E-43R`Q($-&(#(@0T8@,R!#1@HT($-&
M($-,3$-$"B`@1$\@0E5&3$5."B`@("!)1B!$4D]0($154`H@("`@5$A%3B`*
M("`@("`@248@1%50(#0P(#X@-2!&4S\@04Y$"B`@("`@(%1(14X@0E5&3$5.
M($123U`@4U)%0U8@1%)/4#(*("`@("`@14Q310HB(@HG<W1R:6YG)R!35$\@
M,2!35T%0"B`@("`@($9/4B!D;V)U9B`Q"E-214-6($123U`*("`@("`@("!)
M1B!$55`@3E5-($154"`*,S$@/B!35T%0(#$R.2`\($%.1`H@("`@("`@(%1(
M14X*)W-T<FEN9R<@4U=!4"!35$\K"B`@("`@("`@14Q312`G;&EN92<*<W1R
M:6YG(%-43RL@;&EN90IW<FET92!C;G1L("(B"B=S=')I;F<G(%-43PH@("`@
M("`@($5.1`H@("`@("!.15A4("=L:6YE)PIS=')I;F<@4U1/*R!L:6YE"G=R
M:71E"B`@("!%3%-%($123U`*("`@($5.1"`*14Y$"DM%60H@("`@248*("`@
M(%1(14X@7"T^(&L*("`@("`@7#P\"B`@("`@("`@0T%312`Q($93/PH@("`@
M("`@("`@5$A%3B`P"B`@("`@("`@("!%3D0@,B!&4S\*("`@("`@("`@(%1(
M14X@,0H@("`@("`@("`@14Y$(#$@1E,_"C(@1E,_($%.1"!.3U0*("`@("`@
M("`@(%1(14X@,@H@("`@("`@("`@14Y$"B`@("`@("`@14Y$(#$P,"`J(&L*
M*R!K97ES(%-705`@1%50(%-50@IS;F0*("`@("`@7#X^"B`@("!%3D0*("!5
M3E1)3"`T($93/PH@($5.1"![(&-N=&P@<VYD"G=R:71E('-T<FEN9R!L:6YE
D"FME>7,@:V5R;6ET(&YL('T*4%521T4@0TQ/4T5)3PI</CX*
`
end
----------------------------------- cut here ----------------------------
by the way - take the comments out before downloading. the chksum and
byte numbers are without them.
Bill.
=============================================================================
===== Bill Gribble Internet: bgribble@jarthur.claremont.edu =====
===== Harvey Mudd College wgribble@hmcvax.claremont.edu =====
===== Claremont, CA 91711 Bitnet: wgribble@hmcvax.bitnet =====
===== (714) 621-8000 x2045 =====
=============================================================================