[comp.binaries.atari.st] v09i071: kbext414 -- Keyboard extender

koreth@panarthea.ebay.sun.com (Steven Grimm) (02/04/90)

Submitted-by: BD05@DKAUNI2.Bitnet (Roland Waldi)
Posting-number: Volume 9, Issue 71
Archive-name: kbext414

trivial error was removed (26 -> $26), which made it not run on TOS
1.2, 1.4. Also, the reset works now even while the harddisk is
running. There are some more changes, like reporting the TOS version
and date (yy/mm/dd) and jumping through the 68000 reset vector instead
of using the RESET instruction. Actually, I don't know why the
previous version did the reset properly, since the RESET instruction
should not initiate a processor reset. The documentation posted with
version 4.10 is still valid, changes can be read from the source,
which is included.

Roland Waldi       BD05@DKAUNI2.BITNET

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 kbext414.arc
M&@A+0D585#0N05--    8A8  #L4RYU%Z.8^   ,.U1 ^M% 04 0D'JH*'APz
MB9 B6*C0<!%D2A,=(,K@H5/&#1D0:\KD$?,FC)R/9NJX&4,GS1LW<Q!>6&A0y
M!8@T,.F$8<,F9AHZ<\JP,7/3#0@Z:,J %$G2Y$><'.7(J0.'#L()- _:V9D&x
MY1LY(*@\F0(BA@L8,$#(@/$B1HRV.7#4 /$U[-BR+F2 ".,1A)DW/-_<P7D&w
MH8&L-A,BMDO63ADY<UP:)5,&3D?*;JRB:&,RY,?!2$&H4)$"(Z0*BR$5"$.&v
MC!P7?NNN$3,'31HS0#$&J4$$! JQ9->>M>%"+@@B*1!"2)VA2 PAOH&KA>'"u
M;?&Y1X0DA_2 N7/HO^_"( Y#1G$;Q[<O9YBXP%^PTLWJ-6,&=I@Z=-YP;CEFt
M)YL\( 1E%20SL8>00@92@4029%E1A!13)/&$$[Y-A <>R25QA!-/2%$$64$Ps
MP01C("Q11!9"/!&$%+U1$8003'R(4 *+(5$1"$& <,6*3:3X!!5T&34$'7*Pr
MT4(0;-#1 A%"(>1!C3?F.,033!#A(Y O@3!DD4<FV8(<:9R!!AU3V(;;DDU"q
M@I6!03C16Q).#,%$%43(F.,40WA8!(53!.&@% B%L)@5CT66Y7L@'#$%%4?.p
M$50;8K#Q&$(CI(9@3:KY-D1R4@#&UT=7[$1&&J)!,@ ($\5 0PLYL 5##*5Fo
M4%!!""DP11%#4"$AA:8V$02<M$*B@!0='F$8#,$J((04.4)R $YSZ,33K J$n
M,48:8>B0+!6+NG %0@5<(4.R#T7A EFJ,9$#N7(""HD!(\#  @E&&('#6D$Dm
MVZZWX(I;D+JF';#OB*IA,4.R33SAH L$$^#IM6&PT (*0=R00K)2<$OM;%!Il
MJT"M"2_<,,46K\!"QDZP]I&I!\E1!AUUR&&4RBX[BK#"13",$ ' .38&"T$@k
M^[&P2DSA[@$4P[#= @>I44<;<!SU!HERO($?3F7<+/+.**LL,<G;#=#RRS'/j
MW%K-<Y#+[+G@GO$&M2VU\5C'R09!!!'F-CQ"#"P8K&\34"2A,R0$C$!##3"8i
MVO<,AAT4PUQMX$0N$U.PG>[!"C#QQ!-0Q."$:0,, ;C@T!$^ @DXR$NOO6O=h
M0*X3.:-;@.:<>T[NK4"^&^^\]=X+0[Y#*V WWOR:SK>_F<_@,<@X#TX V"9Wg
MW1I"8MOD,LPR[W5V&38''W+.#5/1A!0^ RUTK44?G?32!_7'4T9TV/%%W(]If
M#3[75*3<VM<5ASTV]F9S#??2I@"W+4]8WW.>A%SVLZ#9SWGK YI>((& @YSAe
M9=H3H*/H0A27M$ ,=:!/_;S7O&\1#@<1) *LG'40G:2!#46A#![^!H7B%8!*d
M1' A&UB@0G"UD'M6N0T(QH &OER0#.0J0A00<@ Y #!9,6K6 7"H0Z#%X($Fc
M)( *64"Q&&RG@C:90Q@<<Y0PO#"&&MF+5:AH1C849#:U88T<, *"!):. "3Xb
M#@\G"$807- J<#034'PS&A)1QC(>Z8A51G.QX F!6[F#EPSV6*N#Y$H*(Q(0a
M01RI1,L5P UO8$F19G004PD1E'1@P5'DP)<YL"$,'"$7) TS@AE04E@'"1&0z
M-)E$<\G.B66K9&(&<,HWI!($URL;%G<& XI-4H7>2@$/TP(""[[,!::JFYMLy
M>+H;&&&:".DC-@<0$@"-X0V4H:$+2E> T]7 ED0XG["$ #M/@G(.EAF#&TFXx
ML"R>3@8W0 L+C-8XFXQ*C)%2"E0>,Y6JR')1M)07$298$V2&:4P@F,*"C+#+w
MEVVR5N7R9,TPB$N;#.%(QQ$*1EK@ Q (X0W&U!<3I#"X I" !FM!"--,>J0Ov
MD85);%AI2X< &#*0)*;!&QBX;BH#&\B4I@2S*0UF +R1TL$T!K!?$ 8W@)N:u
M+UE* !P3UZ?3%MK&)S%!BE)LD#I3(9-[&/19?N10D'OF,ZA/M6$\U;95V47Kt
M*THI:8#FJA2A@5*4>.5GSK+8S" \TRQ7D&8\05!-F_QQG-HD C=)X$UP4O @s
MXRSG$-&9-4?.4G?PI&@NF=!1.GQTGO64W4[H4,Z8?':80KQB\*+(1%#*@3,[r
M#,(*#6!-J_@6N&5,:&;7":[3Q2"UX?QAM#*Z42"QX05@^926P@"'.3"AEYYTq
M6Y8@L5/J%=,-2A%0W>[&S1C(  >>[6,=@A*@,IRS+SI)J&\TF@2.-K)6;=(Lp
M.T\' ^C>-DC_V6YWF1#*-=37M:^+7=M@:A3R'J28=%BO9DW83O?"=[(''@)Wo
MO=O@Y$J*K^&E<$%F6]L#9JX(4M1E?H.[P@(4=Y6M?&5+LC3CT@)XFP,FP7-On
MV4>.3)>_' 7!=;/;%Q$O&+RR$V^%RWO>]+Y,P^U];WP/,E\KW_<C/=YO=1LIm
M91?;D9E=G&8TP5E9',-$QZ7]J\O,7,*=Q9,%,G F#R&;G#;+62E$-,EHTZD l
M8,K,Q1F;0D%Z9E\7$V$(@S. T,1'OD8GZ]&1%IKTR.!H2!-,T@59H*6#A^E/k
M"XV-+^QT\0S0 MWJY RJ+IT!3K"$$[#@!$*P]0F*H&LLZ)H*NGZ!KJ6@ZRN<j
M@#T&2HK+]K)LM2YE)"4YB8FY%QNP''<GJD0R%5A@($B(0+O7AB%HT*"E($"!i
M+)H;PA*Z+0)=JE*7)M"V@?)@-;_@!,Q):4-1CI*4T4+MA67X"!RJ=@96ZCL,h
MN)F4LU\- A$X!")4>($4KB "9%<T/T,LHALNR&^EE+,ITGXEO?&CRBYWO.'Ag
M%L&T]Q*3,!CH#'7HBE(0Y>S:^L;9(K=:$&."J#" H I+>#;(R:#*<3=\+WT!f
M@H$T$NB-!US):0A)D'Y.EH]'FPQS4*5V.?%6.+QR#$\7 X!&L#0#:1=:C[&*e
MLX/@(BDDX045&4(2DC!H:K^!*,X.-"M94B@0C!P$=^ +'5Q@( Y1H0@>.XC1d
MW7UR.+PA,CN&"0C*XYL3Q. $R1GGY'-0>1Q@'@1M> ,9\V.@&^  !)KOK-G[c
M\KO*Y^#SFH=!;U!P@AY\'N-H0;U;"^R;VEB-#1\1@U)2I_M3X6 &C30K7-]Jb
M$E8Z76Z9:?FRR? 2I0@A"V%!0A%   5B'8%935#E'-Z $3.\$(9J-5"/6SZ&a
M<YZ$,%([>;B??4[*@,#QD)<,X6M2UZ\ -]:&00(")61"<&N7=VLRH&LSH&LTz
MH&LUH&LV< )MEGM%, =C<&F0)FLG< .ZYGFW]GJW!@.ZU@*Z9GOS @/P)8"<y
M=Q HZ%)3P (N(@08R%SO<@)QH&MWH&MEH&MRH&MTH&MYH&MUH&MI((&.(T\*x
M@&D:^ :Z!@>V1@(U4(!02 0G2(4"*"\G$ :Z-@=&:!,Q<'IBL'<A 10LD"<Sw
MJ(%DH&MFH&MGH&MHH&MJH&MKH&MLH&L[T(73<88!"%"W!@9/*% G, *ZI@>Zv
MA@>Z-@:Z9@=X^%X@<&RDEH&&<0)BH&MNH&MMH&NW=FLN$&Q_J#JY=Q S@(1*u
M&(" V(@GZ(FH>(JJ>(5M-@,XH(?O<H6K.("TF(JRR(H'00.B"(FQ6(NW1H*St
MF(HGL *=V&8T\(J/2(,&<(N^R%G?Q(RV^(DV@3C'403?E8RR!HW!N(W0V&8Us
M@(RU,HJQ6 -#L(TG0'NWE@*<>&LJH&L<V&8VD!9< (NSYH$G ((GT("W]H"Wr
M%H$&J&L)>&L+"(_@*"SB.&LBJ(E_:(7-V)!I<1 !!0)%D!DC%(Z\N(P.R8T.q
MV6:F5Q"U<1MT$"EK ("]J#K/<6LAH&M H&N">&LDH&LEH&M>@(=H08\G8 *Zp
MUHZWAHZ8IVM?H&O$>((I" ,K:!,H:)-14&RZQFNW1FRW!FRWE@6Z5@6ZE@1Xo
M& .[J(PG\ 2Z!@6ZM@>ZU@<+J8HG$ 2Z-@5769!)>)$G0 2Z9@2Z=@2ZA@2Zn
MI@2Z5FNWQ@2ZI@.+F)4:* )/* 1!0)9^H&M:T&NZ-@2Z9@6+J)8'B6NZY@2Zm
MU@2ZQ@.ZY@.Z]@.=>(JMZ)>DB(6FJ(VB68NMZ)@7.9K1F)J<F8N>69)D"8RHl
M>6M!B8LV<8ST&)O.J)&HZ(VMB9&JB9ND>1#?:)-\L)FR>(ZZIHZW)FSLZ(YXk
M&(\V:8_XJ(\GP(\GX(^6!Y *^)RFJ94)>0*;6(6Z&8P<V9O ^9O!:1,=J0#]j
MT5ULT& DZ9OS<I+9B8#;>6O4:9T1.(&]N8$=J&OX^)W 6'M_.)1%.7G=J8%)i
M>6O&=FM,>0).>0)0>0)2>6M4>6M6V698:9-<>6M>.2]1"*(,R9!8:):WAI8:h
MFJ"1Z):W!I>W)I>W1I>W9I>WAI<GH)>W=H=MMA:WR8<GX(=DV9(G<)BWYFNWg
MIIBWQI@[JJ(UF&NW)IFW1IF9J&OA>0+,V8V@:)ZE:)P9B:4VX8JWV:5BNINLf
M&:;"")L9.8S%F(M,*I^BV5GGR9MF.IYQ*IQM"H7EJ(W(F8[K> (ZZ9_PV)_2e
MR8 ."(&Z=H G$) G,) 'P58V^9WA*8 D2J?2" (!-:?GJ9L<B8PR%@:1$I^Wd
M>)(D( 12^"+SD@-Y&@1Y*@3/& 0'6I/8&(!"8(5&D .\DX)",$FY22^I.8%Wc
MF@-\0P)#H*LX8*LD0 0U,"]%< .GFH(X$*PX !U'>)LY0 /*:DO"RJSTDJRBb
MB0/62@(YL'V.<Z=%((4Y\(Q#\*U#8 /S,@2J,P1Y.@16. 2G=Q \&JNQ. 2#a
M*:Q2.( XP*ZCJCI" *W:6B=+>IM#@*U!\*U% +!6,B^/-B]"@*WI"0*AB*EKz
M0:F]"HIW.J8::XQ::HM$8*Q=2@1#^9"UV;'HN;*K.8TAJ[&::J>W*03?VHQ%y
MH#K.H:Q66 2M"BN-:IXXD*<X8(5!,R_'9[3<>B]&ZZPYTJCD:JQ%P*T>ZZ66x
M:IZD.B^F"JZINJJM:JRSRCL'NIZK!20F0%W]1068*JIV(['&>C>G*H5& +!!w
MT+1&:;5%P#O[&@1RJZU&P+?!6K%'B:_+F .Z2@0 6P1W>ZS?2@38F@-6F /[v
MBBL::IXYX+7Q^HQ&4+.VB .)6P0TD*((RZU#T+FZ.@3&.@3!ND7'6KB,8Z_Fu
M203?6B^KB //* 3:*@3.JCI&(*TV\5ZW202MRJUW1B_8:@2Z&@0GV[(6^[(Dt
MD+&92K5@*KC/.Z8@BZD#2 3[6K+:6JFV*;U32[W"R;S?N['3>*="(+6V& 2)s
M&P3/6 2X*K=Z\;/4VKC<&@2-"[ YH*VMPCNT*JXVX:C2"V.\DZ?CJ[R7ZKTLr
M6Z?JB8S!(@('00:PY'.((D:.05<*8# !4VK'4A#BDL&09D*@I@ /@RV@H\'Oq
M(C0% 0=G("D;AQ2J9FH% 2W2DEC,XR!;13 #0 -@ S1SP4(V(09A$!1P$ 87p
M!$4PQD0JS,)G@!0H  6;\E6[=<3.(L/^T<1/+%P/U##"-4W),@55( 0UM1N>o
M55'N,P9U &=*UA%+C 99;&?RLCYM3#AW-C']PT0'H<1($<<$(,9T;#%V'$8Zn
MX41YQ6%]_%\(5&>F<U.#6<C;PBQ00$LKU  '@3LP\@3JIDHC)0=D)&=$[&/"m
MPEO.XEX[7#%&+$5RXRAG$ -6+$U!0UD/G ;X)'*@-T"=?#M'HW-P,,C@4LC"l
MQ'PH 7#5: 1!4 6LY0(.003) @52? #F)RFJ[,2&K  )Y$\D, -4R,NJ<1!Ok
M@$B-;&Z0K&%YLS,C %^D'#R0I%=(* 1-(#BR TJ480;WD23)O,SAMLH^9!-Aj
M1C,#5&V^K,>UY*W\X\?9;!-XS,:*53Q:)"_8?  'H7%D<&('3<TS\$W8;&/6i
M4P:LT<V/K#NZ52N@? "BW#] XSH1O3,.+2FK'-#1/,WB7,UW6]'M\YY!H='?h
M'#S#$\ZF8ZWE[-'+W,QE\,Q7G!8L8U"P['5A " ^W='S1%#.@LO]]\[Q?%6Eg
MS$2G/ =GD&?0;#ZN3-2Q?-2S["BU[$A,?0!.G50S94/87%$NPQKV)BDX4LS'f
M/,]2Y--8O2G+E,C6K-+W3!?<;,Z.7-, =C<X73CD3-*U<LX<ME>.M,[V5!))e
MXM-3[2PG708IW<IMYM,@,-EWG=!<%#31K,PQQEHS9L^$TT*>ZM;ZO$&(LM9(d
M=-!Z(P,UP*XP3=!JG,<E+<<*#39_G-F? M$UO%@M/=%Z/=#][-?>S-&1#=)Yc
M)M([?<C]9-*]3=E9S<BW73@N/=P6/40R[<D*0 5_C=PV+=C.8S@CG=QT7=E"b
M73T@<%!&C=0 -RYB?<OXD<L* $JSY=,N]M&=&BGHW69K+15&I!2ZU )$11D$a
M]-O.(X#+K33S8GIP[-H[(X V$$&<-00/CN -(X!!0.%H<>'.?3^$(X#WPN'Vz
M0E8'(49RP\^Z9+8<I<<B/N&>?8)&8.&>[>(HN.$Q+N*-I32;O3<JW>.J\N/&y
MO='PHBH(P0 WYA(,A )>!,[CK=.&_<G++&IC@-YZ?&=D=6 4K!2.MU!@@7&Sx
M008MH.3VU>,S8*W4?=C?7>2?"PE(;A-+( 9D8 = '!0H$,TW/=Z3U-S2W#P-w
M<V?"U<N!W@,9) <H$.9T'L1E$,T?S6@-A(0)U# SL-Q>U-E*LS,G/D8*19%2v
M01564357@UZ%/D#)S3&9 <48OC-%.^E=M!W$91-4_#[H=0=%$14-915R]14'u
M+BQ*I1II_N$(_4^YW3\TS=$((<DV,05449'"DN=ZPZY\WNCC4SX.!.$AKHMOt
M[-D%%2":#C_R0S]@ >HM(>JIO>LO)D7@#A6H#NQ:K#K8'EVPGA/^ 0*S7NL,s
MY>D@D.L6S--2-,(14^VI'N)N 5]9_NK<3D:JF@0YXN6WGN_V-5?);2W8LNY]r
MOC6$4[1"]H7P7A31,N_USO#XKN\N3@/&J]4']D<!D@?14@8'MSW=@^!WM."2q
MM4(,;5D8)!T5;"A&,0)8QDY;5-5G, ,KX%0'?4<SD$(T?V/2,0=U( 8Y+QD@p
MP//A+6#@\O,#%/0KH)9G1C@RH,,QWD/OHO1W <$< 0(8$7J98= _1O6J<3K?o
MI$(]7_5\ _1"'P-17O$Y$_->S^!POUM&0X/M9*U]']AL7P!6C\IU3_0POS.Pn
MC?3;CO+20?9*@1$0G ?+%61OK]3"PUX^/_=7+_3WNOA<7P-(#T5_/V""K_G#m
M _B';]5UORY%S_@WX/AA;_-6$?FP-/E^A]'[WNQ UESTLF<(P0%QKQJMC_6Jl
M\D Q/_M?K_F40U.HOV?%;_B>C_@K\%PT1#KB/$E'K^T^G''VY6!,[_2% O5Nk
M\#3"U_O*4LRR4U1SH/*D9!/2P0-X(0,8$1*5,>HO#^Q9U+PPSN"!)$<KH!=Mj
M=DYP ""!!)+Y;A+8HE_E7A#NK_)T9O&<_>MX'^S-.^P64^Q%[N3/7MY1;,J?i
MW]]M-NML@#6V[$EE72O[0LBZ+5C)E#WUQ]V1OC-)7-MHD-*\?! #]P8%%P;Zh
M5M ]7LU\,]O<%Q5M4#/%7N3'/C9!H<GI-5>=C'0?<1D%@<NF40"1KNK#;C$]g
MKH)"KN;'7>3'?A #!Q50AUY._NSE'3R)AA 44!"37<(?O,$* /0Q4,*G*7LGf
M.)BT]A 1D>^PD2J?&^ML ']6YQ2A":M ;__4<Y"2>H*#>0(M  D-@'0?L>)Ae
MYBR=6!!T7\*G*7LG.)@2*AYGP4&3YRJNDI"2>H+9*S1);1I:=)KD>&O#+!9/d
M2(XV62?"3,Q48,RSVHD%0=>FH46G28ZW-LQB\83D:).Z9,RSVHG)LB?(K  :c
M"$M"15A4-"Y04D<   "Z!   .Q3EG:_A,P8   Q@-   4, ? $@&'H ZZ  ,b
M@ &NE.09.,#4&0<(<AT<\$^0 B$3'YH2HO&AJ!<Z!AAR4F?$MX$!((#0 T";a
M$T@ 4 +@!D:'E)(#1#$H^0H915%C,##( 0 0@(X'S-A#D&]C1P520E9T"5,Fz
M35$W<^H  &HF61)09*  @$ 634UG!A(:H@^ )!F!*.!PL &!   "SM#P^_ ,y
M&Q@R(  & N /@X%3S' PPN\$V[\ SC 0@HL ",X$3(#6 0(/  ).H D!TA.Qx
M8@&,_Q >8$8#70!*!/R=<,:# <: =#\T0^%W4S .Z : )9PW >. (,086".Zw
M )8'(?S[MT1($2Q47DBY F!##!DS:-2P<0-'#A@M>B!($.=.&3ET\M1)\P;.v
MEBX- !#&'&28<08::JS!Q@XG.#2"'GB,88<8;K3!@@LO; 1"=BULM,)!!/QQu
M$ -<#(1""B^HT%X.ZMEPW@PPN! @)'R% ,0())3@A0DJG/C%"O-%<4414E"1t
M115)/ '%'GT$&,041!AQ!!)*+,&$#B+H H ?6F QA!5".-$$#S[\H"&''H(Hs
M(B0,\&$BBBJZU^*+,<[(UXLMK@B?? D(2:212"KYGY-02DFEE0PZV.67839Qr
M88:0#+ A)!!T&.F'D(0X8HD G)CBBG.B5R=#&^RR"B>L_))*+_G@(\L?\ P4q
MB3")5',.)H$L0LDXQ]0CER?K?$*,,< PTPPRRBP#@"&PQ'*(-\.08LXVW,QRp
M)J79;(3-01'0,A XX;3S3BB,- +*((4(@H@BZ91SD &FHJHJJ^6UDDLWF]BCo
MBB_ZF'+*/?$,)(DU[E S32>:L),)+\_0,Y CY!3CC#C)!!.----0\P\ C]R"n
M"R#[?%,*-//(@\JU$&BST37<UC*0*Z^@8XLHDU0RBB67X-2//^KP<Q '*KQQm
M6A#Z_&,/74:#D !.C8  2(8O-"#$&3_P@)L303SQ#@ ,$!T *F$ $( E4R.Al
MQU]5 ] #UE \H@00:ZA@=C\TO&"UV("8F?8/6&O-]0\Z!&!'VCY@C<4C7CL3k
M=@!:>)W(XE*4K4< SJ2]=A!MO[T&#%XC 0,@9ONCAMTP :"WU7QGO34#@ ? j
M N&&(Z[/V(M#0+0_0(2 !F  X*$[  8 P <()ROPNR  X/.[(0#P\[LB3:4=i
M0-H...'$X43S XC3:8M@/16/B !$]F2 D H (!"]CQXC((&^$*>D#0+67,C.h
MCQ,@= : ^G*$@ P!^].'/[21OP!@0'TN\)\!2T, >4A@+0*8!E,(PHP'/D2"g
M RF ,RR( 0$$   /P"!!KL%!="1 A 6PA@4SX$$0HE ;*S0A"K-AP0VT,(03f
M+  U:BC#'$Z# 1!\2!L0, -T , $&V%$AN1'/]D!  UAV,P94.(/(Z0M!EA[e
M 0+2EH F8@< #5! =[Y#!1#8P04@H($+8D #$*3!#7.@0QC8P(8WG@$$:RA#d
M'L3PAC#(H7Q@5$ +(-$ $(3!#>4+ A/**$<QL*$,((#$ 0))A2=, 00Q@@$(c
MWF &3,+@!3#X9"C#"  N!*$*E>0"$8I@A%,NT@7=(4(I3YE*15(!ED*09:8,b
9  $#,$ ""M"  0*0*44HP $,0"8R%0,: %,Na
 z
end