/****************************************************************/ /* */ /* AKI-H8 C comiler test : April 1998 */ /* */ /****************************************************************/ #include /* 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; } }