Return to midi_ser.c CVS log

Up to [HATARI the Atari ST Emulator] / hatari / tests / serial

Annotation of hatari/tests/serial/midi_ser.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Hatari MIDI port test
                      3:  *
                      4:  * Based on the file midi.c from EmuTOS:
                      5:  * Copyright (C) 2001-2016 Martin Doering
                      6:  *
                      7:  * This file is distributed under the GPL, version 2 or at your
                      8:  * option any later version.  See doc/license.txt for details.
                      9:  */
                     10: 
                     11: #include <tos.h>
                     12: 
                     13: /* constants for the ACIA registers */
                     14: 
                     15: /* baudrate selection and reset (Baudrate = clock/factor) */
                     16: #define ACIA_DIV1  0
                     17: #define ACIA_DIV16 1
                     18: #define ACIA_DIV64 2
                     19: #define ACIA_RESET 3
                     20: 
                     21: /* character format */
                     22: #define ACIA_D7E2S (0<<2)       /* 7 data, even parity, 2 stop */
                     23: #define ACIA_D7O2S (1<<2)       /* 7 data, odd parity, 2 stop */
                     24: #define ACIA_D7E1S (2<<2)       /* 7 data, even parity, 1 stop */
                     25: #define ACIA_D7O1S (3<<2)       /* 7 data, odd parity, 1 stop */
                     26: #define ACIA_D8N2S (4<<2)       /* 8 data, no parity, 2 stop */
                     27: #define ACIA_D8N1S (5<<2)       /* 8 data, no parity, 1 stop */
                     28: #define ACIA_D8E1S (6<<2)       /* 8 data, even parity, 1 stop */
                     29: #define ACIA_D8O1S (7<<2)       /* 8 data, odd parity, 1 stop */
                     30: 
                     31: /* transmit control */
                     32: #define ACIA_RLTID (0<<5)       /* RTS low, TxINT disabled */
                     33: #define ACIA_RLTIE (1<<5)       /* RTS low, TxINT enabled */
                     34: #define ACIA_RHTID (2<<5)       /* RTS high, TxINT disabled */
                     35: #define ACIA_RLTIDSB (3<<5)     /* RTS low, TxINT disabled, send break */
                     36: 
                     37: /* receive control */
                     38: #define ACIA_RID (0<<7)         /* RxINT disabled */
                     39: #define ACIA_RIE (1<<7)         /* RxINT enabled */
                     40: 
                     41: /* status fields of the ACIA */
                     42: #define ACIA_RDRF 1             /* Receive Data Register Full */
                     43: #define ACIA_TDRE (1<<1)        /* Transmit Data Register Empty */
                     44: #define ACIA_DCD  (1<<2)        /* Data Carrier Detect */
                     45: #define ACIA_CTS  (1<<3)        /* Clear To Send */
                     46: #define ACIA_FE   (1<<4)        /* Framing Error */
                     47: #define ACIA_OVRN (1<<5)        /* Receiver Overrun */
                     48: #define ACIA_PE   (1<<6)        /* Parity Error */
                     49: #define ACIA_IRQ  (1<<7)        /* Interrupt Request */
                     50: 
                     51: struct ACIA
                     52: {
                     53:        unsigned char  ctrl;
                     54:        unsigned char  dummy1;
                     55:        unsigned char  data;
                     56:        unsigned char  dummy2;
                     57: };
                     58: 
                     59: #define ACIA_MIDI_BASE (0xfffffc04L)
                     60: #define midi_acia (*(volatile struct ACIA*)ACIA_MIDI_BASE)
                     61: 
                     62: /* can we send a byte to the MIDI ACIA ? */
                     63: long bcostat3(void)
                     64: {
                     65:        if (midi_acia.ctrl & ACIA_TDRE)
                     66:        {
                     67:                return -1;  /* OK */
                     68:        }
                     69:        else
                     70:        {
                     71:                /* Data register not empty */
                     72:                return 0;   /* not OK */
                     73:        }
                     74: }
                     75: 
                     76: /* send a byte to the MIDI ACIA */
                     77: long bconout3(char c)
                     78: {
                     79:        while(!bcostat3())
                     80:                ;
                     81: 
                     82:        midi_acia.data = c;
                     83:        return 1L;
                     84: }
                     85: 
                     86: /*==== midi_init - initialize the MIDI acia ==================*/
                     87: /*
                     88:  *  Enable receive interrupts, set the clock for 31.25 kbaud
                     89:  */
                     90: void midi_init(void)
                     91: {
                     92:        /* initialize midi ACIA */
                     93:        midi_acia.ctrl = ACIA_RESET;    /* master reset */
                     94: 
                     95:        midi_acia.ctrl = ACIA_RIE|      /* enable RxINT */
                     96:                         ACIA_RLTID|    /* RTS low, TxINT disabled */
                     97:                         ACIA_DIV16|    /* clock/16 */
                     98:                         ACIA_D8N1S;    /* 8 bit, 1 stop, no parity */
                     99: }
                    100: 
                    101: int main(int argc, char *argv[])
                    102: {
                    103:        char text[] = "The quick brown fox\njumps over the lazy dog\n";
                    104:        int i;
                    105:        void *sp = (void*)Super(0);
                    106: 
                    107:        midi_init();
                    108: 
                    109:        for (i = 0; text[i] != 0; i++)
                    110:                bconout3(text[i]);
                    111: 
                    112:        Super(sp);
                    113: 
                    114:        return 0;
                    115: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.