[comp.binaries.ibm.pc] v08i115: gold, provide VT100 "gold" key

ibmbin-request@crdgw1.crd.ge.com (10/10/90)

Checksum: 1431221205  (Verify with "brik -cv")
Posting-number: Volume 08, Issue 115
Submitted-by: rde@ukc.ac.uk
Archive-name: gold/part01

This is a small TSR that makes the NUM LOCK key on an enhanced keyboard
work as the VTnnn GOLD key in MS-Kermit, instead of toggling NUM LOCK.
Normally it transmits the scan code for F1, but this can be changed. The
key interception can be turned on and off without unloading the TSR or
rebooting.

It does require enhanced keyboard support in the BIOS, but a lot of machines
now seem to have this.

An assembled version, the source (MASM) and a short document file are
included.

Bob Eager
University of Kent at Canterbury, UK
rde@ukc.ac.uk



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   36823         9723      part01

checksum     size (bytes)  file
   39032         7036      gold.zoo

-- bill
]

gold part01/01
BEGIN--cut here--cut here
begin 644 gold.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!P1(``'$```#I%%:B:SP=(P``4!(```$```````````!G;VQD+F%S;0!G
M97,`"@!_S$(`````````````0"DC*```$T`)<J1(`ALT6,28(:.!@@14DE!A
M8O#($R9$0*PIDP>$&3EOVH!P4J4)DR=#ECA,X"1(DXH7B3C<,1,$%31IYH"`
M`_*,G#`BVX2!HY,.FC(C2X(XF5(C1Q`HYHP)XP;$F#=DD-*H@20%"#IO0!B)
M`54J5:M8D<X0TK6FF3=R0-29@_1.&J,@EI21T^8NB#)MZK`)0R>-FS,@PH`@
M4F0(""M48L"`X6)F32MAV-0IH_-MW#)X_,ZA0WBN#LL*=B2`D:`%B#EUQHSA
M/&=F@ABMT0HF`\+-&SH@#(_.S&9GSY]M;,O([1N$D"1/IKRN`P<.7.`\.9=Q
M0\?VC-QUW,"N?KT,;R+10=C9.R?-FZHH>("8X0)&"MLT<ANVDSD-;SAA(%<&
M'7NAM@,(0[PW''>UI09""Q!&&"%J"0PA10(]@``#$4@DX.&!0P0H1QIAG(&4
M'`/6(8<;*S%A!(8:!M'AATL95H8999BW$A5!"`$C##G,F,"!5(0A!H5)$/$C
M$4,(>6`3@A4&!QN@@9`DA4-,4<01"6AYQ$M.4.%<%E04`0(450C!1!*.G3#$
M$XR=0"$)0FR9A!,)%!%%%0F00.$34G`)@V0P($%A$%-,49)!6>J0Y98L$#&%
MHUZR4,2DCQ[!0J*4;HE:G4?<J4,"2C0!19=(`"KFG1+1J$8=;<#Q55B&W44B
M&SD1YEY55V5%H:)"4#%1`D00IEB`9831H$`$%;&"@38=Y=$;;+#QAEV'?75'
M6/QIQAD(0G4D!E)CH$&5B;RE808(*,911QHHDN$""*8F&5Q1T@;&AI14XE%3
MDBPDY@9O=E4+PGML=.1&CKQE1N!/A;T7W+ISA(34;T?%1<444MPK5WO9&H74
M'$`AU>UFE3DX!!IOO$&7P!COE1AP/PT<DES<I5&<7]O*L<8<(8Q4Q!5+%)&%
MQR*_-A6O::F7V6;3RE%3TAMU!!:[94P9QFQ)-;$42DND3),"]2I)A(\;-NGA
MD"!()@,2]$:9QI15VJN""HL],=(38C;QA!5FWNV0$T,7G06Q:*_E9-LPS`"W
M%%D/-EL;VP%7-0AWY[UWWW\'K@)J3SCQA!$OGGW;V@<^X<8+3YBQKAF#(88"
M##V\X7K`M19&7$?OW:=`$C'4,'KI5R3P`^H@/,$&;W>*&3S<MIM!5W>_!^\E
ML<4?3Z/RS(?9-E>OE7$&Y=PYE(0,1@R/O?'(<V^E]^A#[_KTYJ-_/1'9M[_\
M^V+&'_[XE?M5FH3%A`0T[WMPBTH>1@.8\,G!#FF8S1R\8JZ!44EJ#QE(09Z5
MFIK<)"?\0R`(*DB&"WJ,96_82+JX$Y:D/2<]<U@@@41"EP=&\%N&>9@<J$,'
ML=DF"6Z`0QVP$Z"2/6P.ITF-AV24&S.$9PP1<\.\5)<P$-#`"`FLFAC>$*`5
M/FPV<*"#5T!(0BJ186RJ\1`(#B:RN)SL6U.9"U*2MK4HS@H$X]J)LNC"FZN)
MS#9J-$X9(/B&N8R0*B7<B]B66$#7F(5I68F:4SKRJM$(<@Y\-%`"GC!$(1)1
M0$=,8AJ#T,C@!'&(2CM+K\H0,+B`:RAP,(]ZV+.K@ZWK+HNLT.$<.:`[&H8,
M$23,',UE.8Z,!B0;05I8\LB3-TB0CSY\"*(4]9(*8:I2DM*!Z*B`A#MIZE+:
MY%LWG:`I3FUSG$=`#?"X$@0\04$**$F`$8(@!2R9*@$R8L$5%Z=%+LK!BWL!
M(QU^L!(E&`0(+W+5Q%[SAH+>$W^`R@@4J-"Q=:KO0&5@P\NF8C!J\::,!>J@
M`H``A%$-X9ZA&QX+6$,C$%H$(P=S`T$?8E`#!@\+K5*HNACZ(!"0(2R^,8IA
MSK"2DYZ*E/KD"O)(XC6F+.&5&YDIJ0B7`(0B3PT+#>I*_&8%?#*!!80CFM%H
ME-&7R1%K6IM<Y:!:!H>>:@JIDL*J;IK3`R$2:W10$8M$2E*3WA.I,!B"4FG$
MU*\U10PH"L,:I*H$JJX3IU2X:E9_L]6_>16LA1LKV\J*E+.B**V`6:M0-K(2
M0%T6!X5"WEVOXH;UR`$X5T-LLM:@3KI28513H,(0UL:VT8Y,14BIVC%3B)1F
M/E-'#TF"%(H06=4.#*]ZK2T[\50$)Q`!"@(,UK`.Z#\4Z(M?H*$@(B^X$@TZ
M"UH?U`EWL7A("\J,C"U3H2G]**TF3*$%Z)'.=^?6K_GN98=AC*9J@.A)/8*2
M/:($)!,S!-*XV`L%99.D4'723)\`Q7=I3,`:0U0MG=@%+^%!T57.X(:<R++!
M5B*"3I"E1TS*\CT*+F"&G.@&*-9RE8#TT&1R8R+@"(<TU=*5Q(:3UP9E>#6X
M<4V/0?#2C!!Y+CE>S7)X"9PFOX8T1=8D)^E08``=6`Y(U*17880BV.PKRD?H
MY8^)(^2J/#G,2N0MZ3KDFB"P(;%DZ,B:JX7<(Z>YRC&Y<FG@?.35I-8UPXLR
MDNF</"=$>0J]M/*;1<E;0S/Z"2H1Z?FPV$Z!P'.W\ZRG2/&9J$59LU.:RN8Y
MO6FI2:V:G)MRM3B]:<^C(H$%94.>9[Z"$PH?!RB,/6A"V8;5G5;,K=B+Z)DH
M:B7T7?0O&NWLRSS:WD1B<&Q]W>2%D$I*Y)&R!S`(V)+W/!@[OIFQ5+6J3M>E
MU8=P];(PF#/R?AE,`B7FSLG*LRF'PV<RK$2YS.6M79^+HKRN"#799LQNNTVC
M;\=`W)$.]+D+FNYA'ZC8[*:LNRV+U)22CD9+?N._E]M<&MVUX-'E:TF)U9@Q
M-YP)/9!!P*;'9(EC>2[H%K9D=]KN!+S;XT:(5`'91O.%W<%IWAIYP)W+&Y0?
M7.6C`C@5U!F_3E?WNMDEH`%+K#M<D<R..,Y@LSB(QFB!$(1)JS!R3&FK_GS]
MQFF95Q)\K).@7G*MAN'UB3CCGP`ZZ"IPX-VZTO[K-D13VUQ"`0I(T`(ZV<D)
M*PA>"EX0`QND0`65)SII7AM3`Y?H)W!``QX+.;``Y>%0I:YFHS(5J6M""IRL
MYU2FU.D$B8P*37#-TQ201[+U@.!2E>UJ/@.;6AK1!2D[[6<7_2L'@4Z'/*]%
MK@'#=)O!LFW),62@2%AKAC2<045M]CSECKBC2T56"&0RTT0[!LXM"`$+*ZA!
M%Q22V@,=?Z$Y#&C6@`.[$H6/>E.E<^O&4"U2!$%`+%B`:Y?"4FQS`E,`%W+0
M$:XQ8:]4+C;B4V_P+4'E`APH)QLG?+>6`\A32%R&2I2#22725LE%?3(0`XOS
M4\$!@.\6!`E(`T,``V]#5J$!'!\F>O_E2F_V;RSH@N@E+>L%-ZL$`@53'#VS
M!C%511*37_-1'P+3,%NT'M&4;5#P!*=R*<@C8F_@6K\W!<&'3PDX`Y-1?`>R
M9%+H6NT!8RL862VX.$XG'N!B&*Z4=_GT2FJ0AU5!2D7U5U_U'<:7(PLU`P<3
M%SZ1+`]34`51518'`AC'4XB6:0E`$0=(!`GX$E.`&S1R`E)('S"0B(EQA7OG
M+O!B'A[H<QP7@B/8229(&RDHA'+H@L@#@W=1AC2H3S?H.#K(,W?A@W(`$G$1
MA'&8`',(+9"&?.N2&7BF9^(!9&:$<"LW@[>6:S2R7W2#!RFV$EA@6MPV=&Q#
M8S8F,9-A*,<8/\C#4<6AC?U26MOV50Q'=(:X4YCF2]%('%!!2CA3+N=B'KY#
M*EH`B3M',0WU$$8%;_)F<O@6!OI&;N81;-,G$9)1D)3X&FLP-_LFC6U6@)FX
MB9>R')\8(FY@=^1F'&]@86VPBM;(`B)((R188"=(,B9"B\AHBS2"BS+(<35X
M@SB)43NHA,'X%\,(A#>W+,USD^A8=E!0>!YCDOG8;P=RDG[A&W>0A2N'>QWB
MA<87!KX'?!]HABPP`S6@CM?72]1VA-5&7NF(DVQ3ASKQ1J8TACKP?F6X:2KU
M?EWI>]%#/V&Y:97"E?;GE2,C/N0#@)B(@"RP:4C0:6QC'3ET1T870O[38+J8
M@#)0EEA4B,"AENL!17!ADW.H:R`A$MFDB9<YEC7P/""'EOMS0,^SEB$U?;5(
MARFR(G'Y-,A7%>!DEW\9/'F)!7MY,?,S('=I/:^W>T1'F/]SF!ZIF.O4F'CR
MF&\0F5<SF;`)/I89EKN8F:Q)CYWI/;'YF6"!0;2IE*1Y,Z>)!>7%A;KWA65P
M%6((EM.W6^A7)LO6,<LU!4;`!`3QEJ'5!N,2%U<S'!U19GU7/B)%)-*B=D#Q
ME->RD<1A'O."!.-57$4T?NP13:P2&3!@4A@A<(DQ1-598RCBG&$Y!4G``CC@
ME@?2EVBY+E?1!D+Q7*2A,V5(!"O:HHM38/[X$U#$'GBT-4Z8=R1#.3LA.2HX
M-AT:`S(P*B<A*3Z"/$NV,'@`'#-:H[SQHW4TFPF)5!:"/-O!&[:#%C2*2!+9
MI#5@D<>&D(+(`B<0!B>PCD<Q!D6Z+M9R!S(S%2^3&:%G)`,200550.I&;),%
M@%_Z52>@!W-*(^42GTY8,S5)4UQ2J!=WJ',IJ2K8)6ER67%Z`BUP`D'0J`?"
M6JX%6V%!';$4%WRZI`Z1;;D5'5-*(W6X$R[3'F)016V`%>J2!K+$I4%JGJ5R
M*DTJDFRS$5F32B4Y5+1'D34P*N^FHBSJHD-JIW<T')Q7IEEZ5S?*!M0(I7`R
M!;-ZEL!AI5AJ+D#:B&YZ5(H*`HU*=``R&Q()!+-ZJ<86%J[A?;Z!(H'(KBS`
M(_7Z%48RKP$[B1734_H*%YN:J"P0IF3U7&7J94;$'FE:>U0@`PQHKP:Y$@K7
M)4F`/)#)'=7JA%?3?6!6KN_1`G,0KYOZ;N^W*1\[G+::?^;Y;D.`F70*J9(4
M.L^IHRP0.LAS`J&SBLMU*D8EKL@C%'3PJ&10L1)1`QDKB0O5IJS85=*JE[0:
MGV$H,R&KKE5;(6>8L]:Z:XGV$(GIL^KSB<-#M$5@M*:"M-E(&$SKM%1``U%K
ML`=YB0:HF)R8'Y\(!1DZ(#(3&):41Z%#BFNKBZX(D[`('#,YBVWY@K2RD\+7
MDX,R(U,Y,/6&%#]HGDDYFB;W7*"1BPLZ$F$AL1JJB&FP'E7A&I5$,UES'8)6
M9#A#)9C$=ETGH4$61<UZL1^JMQ^I@%-`B`UH92#$DJWHDJ]8@HXKBY-ZGJ#+
M-CJIN+@&!4F2M'*SC=W(G5_EB0#J+IP!',8(O9N9M09GA]\VBF1+.@'C<#OK
M:`\!CO(HC@="()8D<C3E!`-IJ5)KC_`+O(J9M@V8N#1U3W"E*N\C$6CH*B5J
MIKL*2:XZ4BMWM@D(M&KK!![(I!:+AM":O"_)-C$9BRCXO)]+K=-;P&\55ZMB
ML3?`4@=R5EDJ,6&GP1)AMZ/RC1="!%^EP^M()0'B$;&#;`<L5PE,!3;@PI((
M*[)2H`-2&-DRP^9CL5#;P5VEPPK!>[W4?T15NOQHE6C!'6$@''J'-:@8+S4'
M4]/CQ(BAQ?.R,CIK%(0QQF4&'+8S-=*RK<^%*POC,;E*%6L0,")3%3NECR!T
MCS27-%J<&-4!$CQ!(@22,!QJL4<,KE(JHE4*&N=:1,':KY[JKKS'LG1[Q&R*
MK\%!8@K+R4@%L,A#&F(0RG<[M:2<L/RZKI?EL)L%L>N"NH(+9O,:B7C;LR`Y
M!6OZB4#4+?XA?KN,O""HO(S+O.#BO)M:PI(;@ZEI@S!``YAK2L`T%?;6N:))
MK7<UNM13=C=!+B&AI2"@Q\BG$Y@V+Y`&6])B96S\K5^;3]C86]G;7U?"O2Q@
MK/:7Q;'C$:6Y&$P@FN4+GKU1!D>7R'*9=PB:%2(+>*=7NDDP>+T&H?",%"9K
M2=;BD+9TQD00,*_[%SL8R1+1PJ-2)KF5`/>I?LRVG_U)$%=\(+Z%->T!T0-%
M<0)HJ/=:S3>HAM#V,B,MSD*)%[`A&[3QS4OYJM5H69?2:CJP!3+0)%W0FL"Q
M'1`$$FYPF,WI=_5\:S00)*1IB)2SJQ&HU+<XN3F:@"C0H8T'*G?B%7#5,?E1
MJIDQ!H(A3.FL++!;QK)D+=R\*ZDY`X22S43=@].!U+<[OM+,=()VH'R'TZ@!
MT_[)):83M>]\1V2Q4P5*&I!]TWXW-D!K.D*+P0TK!2S@(G!*`AZH/J2]MJ>=
MVD%W`JSM$)S(&J3]@,,H@;P&0D)A@7O\4QKX&\]G'9R7-%8V1#IS%WFPBJ9C
M(;*]VA[(B;A!VJ%(A:YD)%M+QN\2+R<0VZI-V],=DHB3`&Y"%5#);\7AH"L)
MWK-=VV1S*=]!VL:K$_#=M^5]`H#[9>`R%\!AN$Z`N*3SW=`=WO=]*6M*VL7<
M'_\1N`]#X*AMX!GL$)F2)]9%AJ-V=2S]>`[A$!H0$-RGQ/T"`1L5```($P``
MZ11LHO>K3@(``!,"```!````````````9V]L9"YC;VT`9V5S``H`?_8[````
M`````````$`I(R@``-=YX;8C`("#"`\"XO>$3@$7_UP4".`"D`\"!NE0X%&D
MC@$7H`8$6*>`1S&/($4R`)3OF0L=)@0$<`C118(`"H#5&0#KWS-_R.H\!(7Q
M9]"/B"P4?9;0`"U@S2J8L'>D`(0Z#1I9*"6`5H)F(7`)8`+V`"X`,,#R&-`G
MJP5O7;^&'4`VA**8`61`?9&33@0>_^C\T*HO+EA<`>H:P/6B!MA$'FXR,K`@
M@-8:`1B7.%S!<0C($R<?L&RA0>8*FT,<\&<@DP!^O@(!^"6;%8\&=!KP",/'
M``\]?P2P`*%JG;O8`&R#H+./1P(Z]V[30>%DD;=<`@`T\J%)P#Q3=(0LFI=K
M@'8?G[R#CZ&5PP"OAQ.#U3KAO=R[,F$%:,97IP&MZ:U#@%;=P1?".BC((,TZ
M`L@2@'+,.0>==&[I8-]A!-2%7P"P","?/:W))-19=9G@B`$L`$!+$F#I8@$`
M9\4`%@!/.-&``B0\8801-Y(PQ1MRR)$'""TLAT8:<X#01AAC'.E&&2"0\489
M2;KQ!AT@S%$'''``B24=:$!YQ!-,$`%"'72DP48:=.31(Q%/3`'"#"[```*0
M((0AQAMV0"E'&7'4D<:?9/0X1!AN6(EE&F[,04<8;+`!`AQRO'&&'&&TT>.8
M98*`)`@D0!$&IFV404<9<BA9AZ,@B`%EC7>FJB./.";AAAV0ID'&I*-F:BJJ
M/08$W*?$_0(!Q1H``&(5``#I%-&B%<[+"```8P4```$```````````!G;VQD
M+F1O8P!G97,`"@!_-S$`````````````0"DC*```00@<2+"@P"-/F!`!T0+$
MG#1MZK`)0Z<,"(0*0:PIDP?$G31TT(!P4J4)""9/ABQIH(`EQH5IYH`(XQ`B
M'#86J4R1`@(%E3)RVJ1Q0]%B&#=D0$RA$Z:CE#(/R91Q0R<%"#ARWIR1$Z:-
M1S1IQHB,"6)H1:1ER+"D\P9$FS`;R](!42;,0Z`@V(*H,\?B$J!"Y]J=Z89N
MQ(ELY8`P\T8Q32M4W$AV"#0-U+R`AX9APQ+%'31`+4HN3)8B")QVY\:``</J
MQY"$Z;I!<W1,6HT<Q;P)(R<IBI`6W[BQ^%ID7SB\B[)T4Z=-Y3%7PR0]FG1,
M'3ES&N/.,R>%"Y8LK]">^Q($F3>70>9M^S8N\)$E3Z9<LCTO5S=S`N<%#6+,
M&ZF+:?>>$3%LM\-:8,E$EAN-O<4&&QV]!0<<MXG1T5]!J:?7>Y"-=E%""VV4
MAPL@4)&@6W"E1P=+<+PQQT-BX-23A7L]Y,89^UDT11%4@+!$$5GT]T8;;R$%
MPAMF^)A95>NAZ!Y_(B*7%!MOO+$&2YNUX>)<9>`1QAAT0)BC0UT9)=-CD4T6
MI70]O4?EC2"L4!]9[PD'(4M=V@8''6D(M\-^IM%Y1ULBRB3<F'+4Q09F&1+%
MAG?@*4!%6WQ9]!(+-;5Q4T<W?6G1>R^Y,,03)IF1AHQFM443&6DD"F9C'1WZ
M'H-!;<9B5EMU%5U(F`)7&!UY4#BF?T12IT.D!B7[H4*1FDC61P_.!&8:=A0U
M)E9:<=4&IM3!9Q)**GETZJ*VV?5I6X/*L<9,,I'T[7Q8&@GMHD/-41&;;U#(
M545CSE$FNV,2N!V)SLKT5D<,"L;&'4W))$89+/GGAAU36485IMG)599,+;Z8
M1HSGYG5=84@F^5X99IA1!I@@T`@L'$.=<6Q+"BAK4'E/&&%$I-TBAM>&(VM\
M:!AGA#%4RQV]'//,+-E<$,Y.-,N?=7(D2M6R"]EK[<$M6\3J')WF46'2P2Z-
MK-,#O10I"F&849%B[YF*W5QC;,9&KR?2R9^=':&L,LMIF#SUD$4F15:E217W
M1ATK*H"<MF6\W1W!_&&;JU=U%_8P97/I=519;H"4QF8@Y&R$0TSQ2V/=#\8L
M%TO%C6EZ=)"_75:2B<911ZMID<A$48JQSH:A^EH;^WM#B6YW'BS5R]2#M_D'
M1ZR"6V2YMIA^%I9(F2?<]5YN4"G=;2BH%Q.F:+QQ1QD4R\$"2^UWE)_=?_(-
MP@PUR(!T188FZ9R6<N@(;RR2N]TEB@R0HMD4AF21MXAE*)?AFO<DQI2C"2$)
M3YB"0^HPH<;,A3%P.]'UNO*GH\VA#F+IC[GF\#X%?`XH65&,<UY$-(N0Y0S4
MFLJ1?L4?N=E+A=%"$M:^0S,360]7VJK19=Z3!"?T2`9&0();),*GFW0)=&^3
M`P<[UQ;GV4TN?6&#&4HXETK-`4M39$,5<8('$"1A(4*$`1&&@`3*D85KFQ/+
M4<YPF\!I;`P3F0-H9!*[-P!',3J1PJVRU94Y4,XB(FJ2]E+H+OF$ZXYAF-!M
MN+:9C.61-C?J7:2"H$:@4*1/)*O>3'1#,;F4H0T*,I08[-`GONR0+EX2"E'X
M="@AOF>$;6!)=JYC&R%)A41)2%(>%F>>MGB/-JUL0A"FT`1,F4\F=9E#TMJ"
M'#JD\)=([(HPAU+,]R0*)]6Z6K784(?+#!!UC>EC8;*YS<4,)2F=LHU,&E*R
MOM#AC`I8C0RDV*W5S*".D8(":OI"&2,=I2/$<@Y5#*68$YZ!C_9"I4STXAQ,
M">$-8@!!$6HH!R*RI#=E`$(=UC`&%WS)!2N-U`IH0`,0R$`&-P#!#6Q``];`
M`)=SN4$-<)"#2&D@(-RGQ/T"`40;```,&P``Z!1MOOES10```#@````!````
M````````;6%K92YB870`9V5S``H`?^A%`````````````$`I(R@``-N$F=,&
MQ)DW;,CL:*"`31HW:PPB5,BP#)XR,L0\E)C0A<4R',FX&/.F344Y`T$>[/A1
M`T,-`0'<I\3]`@``````````````````````````````````````````````
0``````````````````#\@P``
`
end
END--cut here--cut here