blob: 4c48ed5ce8b413732d7aabb003fae6e62669d288 (
plain) (
tree)
|
|
/*
* MC68360 support routines - reduced from gen68360 BSP
*
* W. Eric Norum
* Saskatchewan Accelerator Laboratory
* University of Saskatchewan
* Saskatoon, Saskatchewan, CANADA
* eric@skatter.usask.ca
*
* COPYRIGHT (c) 1989-1999.
* On-Line Applications Research Corporation (OAR).
*
* The license and distribution terms for this file may be
* found in the file LICENSE in this distribution or at
* http://www.rtems.com/license/LICENSE.
*/
#include <rtems.h>
#include <bsp.h>
#include "m68360.h"
/*
* Send a command to the CPM RISC processer
*/
void M360ExecuteRISC( volatile m360_t *m360, uint16_t command)
{
uint16_t sr;
rtems_interrupt_disable(sr);
while (m360->cr & M360_CR_FLG)
continue;
m360->cr = command | M360_CR_FLG;
rtems_interrupt_enable(sr);
}
|