home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d0xx / d054 / miditools.lha / MidiTools / record.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-03-01  |  4.0 KB  |  151 lines
  1. /****************************************************************************
  2.   
  3.    Author:  Fred Cassirer
  4.    Date:    January 24, 1987
  5.    
  6.    This program is placed in the public domain, and from what I understand
  7.    that means anyone can do whatever they want with it.   That's fine 
  8.    because they are fairly trivial anyway ...  If you can get someone to pay
  9.    you for them, you must be doing something right.
  10.  
  11.  ****************************************************************************/
  12. #include "stdio.h"
  13. #include "exec/types.h"
  14. #include "libraries/dos.h"
  15. #include "midi.h"
  16.  
  17. extern int getmidi();
  18. extern void initmidi();
  19. extern void cleanup();
  20.  
  21. /*
  22.      Return time in ticks since last call.  For the 1st call the result is
  23.      undefined.
  24. */
  25.  
  26. ULONG duration()
  27. { 
  28. struct DateStamp dstmp;
  29. ULONG curticks,retval;
  30.  
  31. static ULONG lastics;
  32.  
  33.  DateStamp(&dstmp);
  34.  
  35.  curticks = dstmp.ds_Tick + dstmp . ds_Minute * 60 * TICKS_PER_SECOND;
  36.  retval = curticks - lastics;
  37.  lastics = curticks;
  38.  return(retval); /* 60th's of a second */
  39.  
  40. }
  41.  
  42. main()
  43. {
  44.  
  45.  int i=0;
  46.  int midi_status,midi_note,midi_velocity;
  47.  int midi_sysdata,midi_parmno,midi_setting;
  48.  
  49.  initmidi();
  50.  
  51.  GETMIDI(midi_status);
  52.  duration();  /* Toss the 1st duration to the wind */
  53.  
  54.  for(;;) {
  55.  
  56.   switch (midi_status & 0xff0) {
  57.  
  58.    case NON_MIDI_EVENT:
  59.                 cleanup();
  60.                 exit(FALSE);
  61.      
  62.    case NOTE_OFF : 
  63.    case NOTE_ON  : 
  64.                GETMIDI(midi_note);
  65.                do {
  66.                 GETMIDI(midi_velocity);
  67.                 printf("%02x %04lx %02x %02x %02x ",TIMETAG
  68.                                                    ,duration()
  69.                                                    ,midi_status
  70.                                                    ,midi_note
  71.                                                    ,midi_velocity);
  72.  
  73.                 i += 5;
  74.                 GETMIDI(midi_note);
  75.                 if ((i % 20) == 0) printf("\n");
  76.                } while (!(midi_note & 0x80));
  77.  
  78.                midi_status = midi_note;
  79.                break;
  80.  
  81.    case PITCHWHEEL:
  82.    case PARAMETER:
  83.  
  84.                 printf("%02x %04lx %02x ",TIMETAG,duration(),midi_status); 
  85.                 i += 3; if ((i%20) == 0) printf("\n");
  86.                                          
  87.                GETMIDI(midi_parmno);
  88.                do {
  89.  
  90.                 GETMIDI(midi_setting);
  91.                 printf("%02x %02x ",midi_parmno,midi_setting);
  92.                 i += 2;
  93.  
  94.                 GETMIDI(midi_parmno);
  95.                 if ((i % 20) == 0) printf("\n");
  96.  
  97.                } while (!(midi_parmno & 0x80));
  98.  
  99.                midi_status = midi_parmno;
  100.                break;
  101.  
  102.    case SYSTEM_EXCLUSIVE: 
  103.               
  104.                 switch (midi_status) {
  105.  
  106.                 case SYSTEM_EXCLUSIVE: /* Remember we masked off low nibble */
  107.  
  108.                       printf("%02x %04lx %02x ",TIMETAG,duration(),midi_status); 
  109.                       i += 3; if ((i%20) == 0) printf("\n");
  110.                                          
  111.                       do {
  112.                         GETMIDI(midi_sysdata);
  113.                         printf("%02x ",midi_sysdata);
  114.                       } while ( (midi_sysdata != EOX) &&
  115.                                 (midi_sysdata != ACTIVE_SENSING));
  116.  
  117.                 default: GETMIDI(midi_status);
  118.                          break;
  119.  
  120.                  } /* end inner switch */
  121.  
  122.                  break;
  123.  
  124.    case PROGRAM:  /* These two are followed by a single data byte */
  125.    case CHANNEL_PRESSURE:
  126.  
  127.    case KEY_PRESSURE: /* Whereas this is followed by two.  MIDI_DATA next 
  128.                           time around will pick up the slack. */
  129.  
  130.                 printf("%02x %04lx %02x ",TIMETAG,duration(),midi_status); 
  131.                 i += 3; if ((i%20) == 0) printf("\n");
  132.   
  133.                 GETMIDI(midi_sysdata);
  134.                 printf("%02x ",midi_sysdata);
  135.                 GETMIDI(midi_status);
  136.                 break;  
  137.                                        
  138.    case MIDI_DATA: /* Data bytes for any of the above */
  139.    default:
  140.               printf("%02x ",midi_status);
  141.  
  142.               GETMIDI(midi_status);
  143.               break; 
  144.  
  145.    }
  146.  
  147.  }
  148.  
  149. }
  150.   
  151.