From: koreth@twitterpater.eng.sun.com (Steven Grimm)
Newsgroups: comp.sources.atari.st
Subject: v05i027: speed -- Switch between 8 and 16MHz
Message-ID: <sources.5.27@twitterpater.eng.sun.com>
Date: 7 Jul 91 20:03:54 GMT
Approved: koreth@twitterpater.eng.sun.com


Submitted-by: larserio@ifi.uio.no (Lars-Erik Osterud)
Posting-number: Volume 5, Issue 27
Archive-name: speed

[Contains two source files.  One is the source to the "speed" program in
 volume 15 of comp.binaries.atari.st.  The other is a set of routines
 for turning caching on and off on a Mega STE and Hypercache, as well
 as switching between 16MHz and 8MHz processor speed. -sg]

 Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
  Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
__________/ ______________________/   ____/   /   Klubben,  user association

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 speed.arc
M&@AC86-H92YS    VR@ 6@(  .<63F=R,R<$   ,.T @*2.G#(@P!4'(>5.'z
M3AHW9>: ,/-&#H@Y=]+0&8/FX1D08M[000.B29$C04!,H5+DH!LR K- *2)Ey
M2! D11HH""BF#)T[9<JX 1'#1DDT>D!D' EB3!B.!L.\!('C:-*E:!C2:?H4x
M31D7D CHU!F0BM>+=<0L;/@P(E>H7]X,E0K3*=PW9LR :%-GSM:>7-FP*0/3w
MS,(V9$$\G).&C,$Y=> 0M)-F3L6];QP?E#BR3)Z#8\9$E%C0KYPT8^@0/DBFv
M])R(+L8JL.LUKAL=(" =&-,&3AH78D" &"&#!0D9+N[D3K"#RI,I()#CP0,"u
MA4F4*EFF /%#9VX(8B"ZD AI )H\DN78SHU@AY,W+ 2B)TC;H%SOD,"_I@-<t
M^(@8QAD1%@Y%R!!#<L+MD$5$\15EU462$8:??C[U-QP, 0Y8X('*@;##%$MQs
M]-99]RGPG1QTS*%3?7'EA1LD!O#FFX7$&8><<I PYQQTTE%GW4DIK53$=MV9r
MF%]X7Y%GWGSJX:67;N[!)U]Z]8'@) @3BC$&&W+0B"$) A) H($(>KC@'/$-q
MT95]>66Y99?!#0<@F!J2V>&'(9)$QQM4E82$'A.BJ*(".IV7GFTO'M#&&W9\p
MQ89_),10! PPT(!A"RC, <=V'AX!Q1,7I7&&&V$\*A<(/4Q)WYI6NI&E'&&,o
ME]L ^WU1I6Z%,MFB&2\:L&BC+CPZ7*1$&&&$$$:P@*FFG.[@*:B,C5JJE7FAn
MJJH<53JI4ZWU]4H'K'#D1L!_-.36P Y8B)'&&X-^%P899,01K'\TL*!IH"GJm
M!!H(<W!E960N<P   -LH $L)  #G%EAG!4GT#P  # D2O(%#1^"*!@KFT DCl
MAXZ.@&+DA$F0QHU"-V_DK"F3)^ .)77:P %!YPV(-F$J@I#SI@Z=BF40(MS1k
M I(#$$LXBGG#D P(,G+2V"DC!T1-$S(5!"0SQH68!">P")$2Y 2+$U.@3+ERj
MPJ-4JB#2D"GCYJ69-&/"O'SC!N$;-F2^#!U34LY#,G-<L$D0 Z&<,G/$DG68i
MH,V;H7H%PI5;AFY&%'#&I& 1)D:"'6?*T 'Q-N[<NB#"  4\!V% -7/D)$!1h
M.44"2 -VE,'3V&49$!CEH&0#0LP8MA419J;S90Z:-&8(&T;\E 0,V"[NL"!Cg
M^?)P$,:1;U:HMDYII0G$T%&88,2,Z99A[PC"A$J+C7E^OKGC!L0/T^'=E'$Qf
M)T&8Y$2EQ<9>EV4!F%$@#(%&8VN<E%%,X#74'R0$[."$22V ((5F=<A1GQDLe
MM0&"@&PD]1\= 88QX$/+[?<4=2RL(49VR7DT11A#87=<<BUP1X=W^,UQ1QAPd
M)$ &#*_%-L60(P4QQ1!)) &""2!,D98;+?PV%GXM1F<D#.@EN0,2:9R!1@MBc
MY($B""C,<64*8=5'1%_@A>$&&6DD-@()1A@1IGI/N,%&?#BTP,9\@&TF1AKCb
M!<GDE_C9B:>>?/IYI)A,S(>FFK>A, 8:#,&I$A$PX">>0DZ5)T.,,^Y(!V22a
M>93$' E2(043[W$D'WWVF5I&'/PE@*)"7\ 'AV@>78C@IPR"8*QH^"'$[!AKz
M?/&&&68\-(9(>=Y1'@DT!/%G;+."<$(+)SBK*QGSU7<?>&+H%^RTU;*5+(8Cy
M+DBMN2ND"Y^IJ260%K/68NN1@;1F^*.'(X;!+&?8FBK1O&R=I5MQ<)11!AD>x
M!7$G=BU]+$89 Y)T!UH0TFNM&]IRZ^6>-!019@(@@'!9N2?TJVY\[/+Z+D3Rw
M]C?L>&RX5%#-ERF;(5D^L>023 "K-O""*Q]\H,(=UC?U;6Q)6W$:%\^1\<8Lv
M'K;?7F3<P$(+;<+AVF4WYICV2F6<D89"1'%I=F+@"A&$"U=,=X-'1VB&71YXu
MB_A2&WG72<:D>XV  YAIBQG$XR#$\((,V#7&%AD('3J0# \5MK>W(ZC-MMAOt
M[P %&Q6=H3=BD3LWPW,#K+JZVQX)\1M&+B7(UAQO01@0'1(5.4(,,X@I1!IOs
M?!>0:&0 &[D-+(@]^]GEV?!< =,A>=FQWG5*?')#_D52&HR3D4+H;PQ4^AQUr
MB&%]>32$;^H9= 0K.ASXV18<^$8#OP%.<!Y14+/F@#@4*8Y]C8,(__P7/SC(q
M0$Q3>$G),+(9S7%N#HW97F+:EH(5(/ R&U+(@WYR [K9#6]R$&'M9I"#YQ @p
M?!X9 QO*P)!\,>0%;K(3?B3TF@I)BFX+:XL"$#*T.12-#H01$I&,E!XE72E+o
M;QA+G$!P'#.UX X9 9WCR) 8&%U*/9?S21#K@X(NH@%.1_Q4#U%PJ#N\#SPZn
ME(.7[*"B.I1!3$/880_9XQX>/(L,/@"!DZ D)3X6S7@)("*%UO.QOR01!"!Zm
M@XA(E)2A%8LCQR)#R^#0K6_90&W4 :2^&H0<W(1D9'+(51Y,Q8;^"2U13C2:l
MK,R FS=LAFDK:<E+]!- EZ&.!#>@')TD:$MAX?*)=!"AMQSI1UA-)I5PP]%Mk
M&,)#3&8$!-2$9!OJ4+27Q4"98FH".5\"AT%Q!B[@[.-MTI2Y4H&'?HMZ&0ENj
MAT/U-"$,&XGG(S$9(D4^*4J1>IR7CC2N]6!./W<@B4DZ(U _2I.*+ AGQSXVi
M!VWBI@P1#:>T5OD%%1'F5/U[BGE8X!SH>.LRA)3EKMSE*V#UQY)9^X(<59,Th
M? '3:<,4Y]YJ!X-SPD9W)$P62'=&-]',$CS(F^+RFJ>>YT4OH=734_ZT!U54g
M>>N,L=F04WL%KU_-BZ0FO1>"KI"2@DAL(G\)S%C*XI$\7 T$A=O,OQ2 4P_If
M%%1V$1@;](@V)%65#78*Z$Z!>"41/B6<*XB!-7$(-\-!U(<QQ.-@]RA/0 JRe
M*(M=XQ#'4T1*-HU#'DK*UE8VRCRI=%4DD(&7U$.%)TP!!++% Q[8U(0B'"$(d
M5:)"$>#TL_SLIS]HR$/&Y%"UGK( !$A0;HH>UC5X@3"EY8D!2XU (1P4008Qc
M\%*! //<&-@ !$U @QZP,S8Q0N2ZJ1H!F/C4W>^&]Z4[6!*C/M4PZBHQ(!*2b
MEL.H=JUL"<QEKV6I;+U%6]OBU@6ZY:UO@3L%X1+75$%+0'*76S SW.NYT5WNa
MUB#&2U/E,;[SY2X!O M>\>X 8<\=PH"Y%C%XG5BEVJ7OBNWK8OW2@;\E 0$.z
MT(L$/8SV.PC9,%%8:SK:?2L&18 !#&@ IMVU[@A0> )VRN0&%7&F/CV KG3Ey
M,.+J0F1B_;FN3F><@"2/N<-E<_*>8D"$/@G!3U8F7):W?(8N\Z; ( ASB*>[x
M(!(C1,U;>TA4E1<#&H@)"XNZZACO-X*M C!"C5JB F1$(\(PQ4N&59)'N1D&w
M;Q:%TZY"2#A+]VEOA3J_H_Y+J<WPS9@:$I2B2:1(-4T3FX @"199R(#4 KWZv
M'*LA1H$$"3I9AC4HA-5->8H,U'8",UAEVE<I@E7.B9]//R5=0GZ!>8F\7EH7u
MI;>_#6X1.%.409-YQML^SSE9P&WP>!LJ-0LS$Q@RAQ84(2@-D@$,Z^"3S-V t
M#F@  4CTD[D<Y" &\:8WF.9MST/7@<- ?<B,I#;CYNZ "EG[<N;.VX0BA^9Cs
M6W-L]UA* QS0P,4YR8,.T=*@ C]7""3[\W^;S#UP&6'!E+$!X0Q7',2)(0P@r
MO&AL;< :&TPF#$*_3%Z=U2KMA&8T<Y >S[T$=18,ISBN6L$%*ZO7JB?GZG'5q
M>I>\U765F70%CB8[U3N-=M+(, $DJ,$,BB!V%;Q<.IUAC&-4 ^L<4=0WP'$#p
M"F0 I\]DY.XCB*M@RL)2O?-=!G[W4GXMNU3$NZ$BBV]\8^IRY*14Y"(9@<]#o
M,C81%#G[59%I'12"4A;L+*0A%S\):<*0F8N.( =K(R%^%IU=K%(:>US%#^L3n
M0#^,"].:'J'"<=QP!EH%F5U;;#Y1['"WQX-G[>69 0Z"SSH;73R"PDI>=AVMm
M'DA#3^O4.W[V1I*4@)S86U:&/ G."8,5N%XA/7)[=$!^O.,Z+($B=$$W<C48l
:4T(282 &.Z1VI_,M,Z!=^0=5R0,"RX,0&@ Ak
 j
end
