home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug013.arc / INITSND.PRO < prev    next >
Text File  |  1979-12-31  |  640b  |  19 lines
  1. procedure INITSND;
  2.  
  3. { Procedure developed in Turbo Pascal to
  4.   produce sound effects with the MicroBee
  5.              by Bob Burt                   }
  6.  
  7. { This procedure to be used in conjunction
  8.    with procedure GENSND.PRO               }
  9.  
  10. begin
  11.   mem[addr(gensnd)+20] := set_tone;
  12.   mem[addr(gensnd)+22] := duration;
  13.   mem[addr(gensnd)+23] := duration2;
  14.   mem[addr(gensnd)+24] := up_down;
  15.   mem[addr(gensnd)+30] := timbre;
  16.   mem[addr(gensnd)+42] := compare;
  17.   mem[addr(gensnd)+43] := one_many
  18. end; {procedure initsnd}
  19.