/****************************************************************/
/*                                                              */
/*      AKI-H8 C comiler test : April 1998                      */
/*                                                              */
/****************************************************************/

#include <midi_io.h>                    /* Original Interfaces */

static char disp;
static int ctr;
static long j;

c_initial(){
        PB.DDR = 0xff;                  /* Port [B] all output */
        ctr = 0;
        j = 0;
}

c_main(){
        j++;
        if(j==80000){
                j = 0;
                ctr = (++ctr)%256;
                disp = (ctr&1)<<7;
                PB.DR.BYTE = disp;      /* port [B] output */
        }
}

c_midi_rx(){
        int i;
        i=status&0xf0;
        if((i==0xc0)||(i==0xd0)){
                tx_midi(status);
                tx_midi(data);
                PB.DR.BYTE = data + disp;
        }
        else{
                tx_midi(status);
                tx_midi(keyno);
                tx_midi(data);
                PB.DR.BYTE = keyno + disp;
        }
}

