*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*      8MHz Speed Switcher for the Hypercache Turbo+ Accelerator Board
*	                           (or PlusCache ST)        
*
*                 Written by Stuart Coates 21/02/93
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*       This program may be freely distributed but not for profit!
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

	pea	switch(pc)	* do switch
	move.w	#38,-(sp)
	trap	#14
	addq.l	#6,sp

	pea	msg(pc)		* display message
	move.w	#9,-(sp)
	trap	#1
	addq.l	#6,sp

	clr.w	-(sp)		* exit
	trap	#1

switch
	move.b	#0,$FFFFBE01.L	* switch to 8MHz
	rts

msg	dc.b	27,"p 8MHz Enabled ",27,"q",10,10,13,0