home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 623a.lha / TurboDEX / ExampleSources / PlaySample.dex < prev    next >
Encoding:
Text File  |  1992-03-22  |  527 b   |  29 lines
  1. ' play a beeeeeeep for 1 second '
  2.  
  3. PROC main()
  4.   VOID sample({sampledata},8,508)
  5.   VOID Delay(50)
  6.   VOID nosample()
  7.   CHIPSTRUCT sampledata
  8.     CHAR 0,49,90,117,127,117,90,49,0,-49,-90,-117,-127,-117,-90,-49
  9.   ENDCHIPSTRUCT
  10. ENDPROC
  11.  
  12. PROC sample( adr, size, rate)
  13.   ' n.b. size of sample is in words , adr must be chipmem !
  14.   LOCAL adr:LONG, size:INT, rate:INT
  15.   DMACON := 15
  16.   AUD0LCH := adr
  17.   AUD0LEN := size
  18.   AUD0PER := rate
  19.   AUD0VOL := 64
  20.   ADKCON := 255
  21.   DMACON := $8201
  22. ENDPROC
  23.  
  24. PROC nosample()
  25.   DMACON := 1
  26. ENDPROC
  27.  
  28.  
  29.