home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / PlaySample.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  518 b   |  26 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.   LOCAL adr:LONG, size:INT, rate:INT
  14.   DMACON := 15
  15.   AUD0LCH := adr
  16.   AUD0LEN := size  /* size is in words */
  17.   AUD0PER := rate  /* adr must be chipmem */
  18.   AUD0VOL := 64
  19.   ADKCON := 255
  20.   DMACON := $8201
  21. ENDPROC
  22.  
  23. PROC nosample()
  24.   DMACON := 1
  25. ENDPROC
  26.