[comp.binaries.ibm.pc] atspdkey, pgm to speed up AT key repeat

derrick@tahoe.unr.edu (Derrick Hamner) (08/29/88)

[ A shar archive that yields an ARC archive that contains assembly
source and executable. -- R.D. ]

	A simple program to speed up the repeat/delay rate on an AT's
keyboard.  It does not go TSR, and the assembled code is only 19 bytes
long.  Assembly source and documentation included.

Derrick

-----------------------------------------------------------------------------
|  Hacker, n. : A computer addict, not      |        Derrick Hamner         |
|               necessarily malevolent.     |     derrick@tahoe.unr.edu     |
-----------------------------------------------------------------------------

---- Cut Here and unpack ----
#!/bin/sh
# shar:	Shell Archiver  (v1.22)
#
#	Run the following text with /bin/sh to create:
#	  atspdkey.arc
#
if test -f atspdkey.arc; then echo "File atspdkey.arc exists"; else
echo "x - extracting atspdkey.arc (Binary)"
sed 's/^X//' << 'SHAR_EOF' > s2_temp_.tmp &&
Xbegin 600 atspdkey.arc
XM&@A!5%-01$M%62Y!4TT`VP,```<10("<9(`(```,.UI`2K*C@8(=("`=N"(G
XM#1TZ9=R`$),'!)$R<AJ.60,"29@V;C"":`$"QXL;+W#@2`BBX,&$#[*\J0,B
XMC)PR(.Z483/F31N<=-Z`("/T#IHP$.V(S#,S9YHY:)S2B3KU*0@X<MZ<D?.1
XMA4N$D!Z(J4/G*ILR8>;@/)-&*8@Q-\DXS(D&(TZX9>26M4JF3AD7,+\F)&@0
XMH<4R<^"F@4,GS1LW.D!006,5JU:N;4#,2=,&#IN*$-FPF0-B*LX@5$"L*9-'
XMS!N;9$H+K:,VX<'",,.`,),6HAP0(NCD@?,1:9HQ(E2S!L$58DTW9%Z\^4UF
XM9Y@\@$$D*4L4<4(#@L.Z>5-V#IWK(-)(_-EF>D44:5S\!<'>/7/$::J[*3M=
XM\A0I*62W'0@$$AC>`W>D(1H(3CR1VAW3<93@5/2%,09E(9'&QALZ_395&!*9
XM5A(,,N!@PPNH)73`@6.PD=8<@$%"PU<"$::`04,\04017TQ1Q!$)(>#C$4T4
XMX005!@49Q!135%$D@4-,H4..._;X8Y*0(/"$%$`6"$(,,,"`A$$&H=8C%$44
XM0<072Q21Q10%0B'%$T-XZ40104B!)0)05#$%$EX&@45"#NPP11ANW<26>1B1
XM]F%9-N%$6UY[]OFGET-@L6<33UCA)0B9LD"#F+;M<)&+%6WX!AQOS;0?""@T
XM$<9JI5&FH4UGB)2&&;66@65+EFWUT5!O(.;&"65!*,<:*6S:Z:=!,,$"#$;,
XM`"@D">RP!&NNP3:4=7F\T-Q=1[F1:ZMMM`$B&7L^445J7MH@)@O1ECI%1+'5
XM.U-94V55QQE1P3%=6?*.J<".3`21160@,/'$$U!XB;#""2VPPQ5AS&5&?ZNU
XM]IH<L05U559C($::&6G(81ZZZD+GK*>!2@M##-<>="]WX(I;!AQHE37NKSM`
XM@9%CL?4`*PXK!)&""BC(H((*0BP-@PMATA###9J5T1-T<P!]*GH@&(U"#"L,
XML;0+,M20]=9D=*T`2SL891<(0?0@AGHV561'&&SX!<(;O-Y-!VDRL!`#"\_%
XM-C70WPEA-]YRZ,VWWX!/Y!!I-"0.P@PN,`Z)`4,\[D;>(.S=-TZ5"TZ:#9K7
XMT/G;D+2$PF16J;>Q'.HV]MAN6666A!!-2*8U&FX<QS?C4I1AAEUNE`R"K&[4
XMP7>SL&OY[J<%T\N$O?C2O?V^M?H+\%4#@U!PI1!_FBFA.R1OWG22JA6;HD_Y
XMYG:04*0?J*;5)W'DIS(@%20:T+XRT*$.<@B14(CPA"F4B0IG2M.:VO2F`AF)
XM"%#`D8YX-*0@7="!U;L@M"`X!32IB4UN`B$:`D%44U!$2T59+D-/30`3````
X?!Q':@254$P```%!1N4``L//F8.+^L`'F8%E8S2`:`%!$
X`
Xend
SHAR_EOF
echo "uudecoding file atspdkey.arc"
uudecode < s2_temp_.tmp && rm -f s2_temp_.tmp &&
chmod 0600 atspdkey.arc || echo "restore of atspdkey.arc fails"
set `wc -c atspdkey.arc`;Sum=$1
if test "$Sum" != "1066"
then echo original size 1066, current size $Sum;fi
fi
exit 0