home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / sound.swg / 0042_Midi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  3.0 KB  |  87 lines
  1. {
  2. > Is there anyone here who has a source on how to play MID-files in
  3. > PAS-programs, they could post here or NetMail to me???
  4.  
  5. I can tell you how to access the MIDI port for MPU-401 compatible
  6. controllers.  The MFF (.MID) format is WAY too complex to describe here,
  7. but I *highly* recommend studying the excellent set of articles by Charles
  8. Petzold on MIDI and MIDI files in PC Magazine Vol 11, No 7 (April
  9. 14, 1992) to Vol 11, No 19 (November 10, 1992).  The article was mainly for
  10. Windows programmers, but he spent a good portion of the articles
  11. explaining MIDI itself in detail (including the MFF (.MID) format).  All
  12. his source code and sample programs are availible on ZiffNet.  You can
  13. also get the MFF format detailed in the 14-page document "Standard MIDI Files
  14. 1.0" from the International MIDI Association for $7 + $1.50p&h US funds (call
  15. 310-649-6434).
  16.  
  17. I wrote a small (buggy, not working yet) unit for MPU-401 access from
  18. information I got here a few months back.  Your MIDI device must be
  19. fully MPU-401 compatible to use this.
  20.  
  21. { MPU-401 MIDI playback/record routines }
  22. { Public domain 1993 Steven Tallent     }
  23. { Plays the proper notes on an MPU-401  }
  24. { compatible synthesizer. }
  25. { Reading the Status port (331h) and masking 80h will tell you if}
  26. { something is waiting to be received from the mpu-401. }
  27.  
  28. Unit Midi;
  29.  
  30. {**********************} Interface {**********************}
  31.  
  32. Type MPU401 = object
  33.      Address : Word; {Data port. Status/Comport 1 higher, standard 330h-331h}
  34.      Silent  : Boolean;              {Silence : Software mute }
  35.      Function  Exists : Boolean;     {Does an MPU-401 device exist here?}
  36.      Function  ByteHere: Boolean;    {Is a byte ready to be received?}
  37.      Function  RecByte : Byte;       {Get byte from MIDI device}
  38.      Procedure SendByte (x:Byte);    {Send byte to MIDI device}
  39.      Procedure SendStr (x : String); {Send string of bytes to MIDI device}
  40.      end;
  41.  
  42. VAR Synth : MPU401;
  43.  
  44. {********************} Implementation {*******************}
  45.  
  46. Function MPU401.Exists : Boolean;
  47. Begin
  48.   Exists := True;
  49.   end;
  50.  
  51. Function MPU401.ByteHere : Boolean;
  52. Begin
  53.   If (port[Address+1] and $80) = 0 then ByteHere := True {wrong?}
  54.                                   else ByteHere := False;
  55.   end;
  56.  
  57. Function MPU401.RecByte : Byte;
  58. Begin
  59.   RecByte := Port[Address];
  60.   end;
  61.  
  62. Procedure MPU401.SendByte (x:Byte);
  63. {Must wait for no data in the buffer}
  64. Begin
  65.   Repeat until (Port[Address+1] and $80) = $80; {wrong?}
  66.   Port[Address] := x;
  67.   end;
  68.  
  69. Procedure MPU401.SendStr (x : String);
  70. Var t : Byte;
  71. Begin
  72.   For t := 1 to ord(x[0]) do SendByte (ord(x[t]));
  73.   end;
  74.  
  75. {Initialize}
  76. Begin
  77.   Synth.Address := $300;
  78.   Synth.Silent := False;
  79.   end.
  80.  
  81. {
  82. This is semi-OOP, so its pretty simple to use.  MIDI uses 1, 2, or 3 byte
  83. commands to send messages.  For any commands you send to the MIDI device,
  84. use SendByte for each byte or send them all in SendStr for convenience.
  85. If you get it working, please respond with the fixed version either
  86. here or Netmail.
  87. }