home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / sound1.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.3 KB  |  62 lines
  1. ALLOCMEM:   EQU -198
  2. FREEMEM:    EQU -210
  3. MEMF_CHIP:  EQU $10002
  4.  
  5. BEGIN:        MOVEM.L D0-D7/A0-A6,-(SP)
  6.     MOVE.L  $4.W,A6
  7.     MOVE.L  #SAMPLESIZE,D0
  8.     MOVE.L  #MEMF_CHIP,D1
  9.     JSR ALLOCMEM(A6)
  10.  
  11.     MOVE.L  D0,AUDPTR
  12.     BEQ.L   ALLOCERROR
  13.  
  14.     MOVE.L  D0,A0
  15.     LEA.L   AUD0(PC),A1
  16.     MOVE.W  #SAMPLESIZE-1,D7
  17. MOVETOCHIP: MOVE.B  (A1)+,(A0)+
  18.     DBF D7,MOVETOCHIP
  19.  
  20.     MOVE.W  #$000F,$DFF096
  21.     MOVE.W  #$8011,$DFF09E
  22.     MOVE.L  D0,$DFF0A0
  23.         ADD.L   #AUD0SIZE,D0
  24.     MOVE.L  D0,$DFF0B0
  25.     MOVE.W  #AUD0SIZE/2,$DFF0A4
  26.     MOVE.W  #AUD1SIZE/2,$DFF0B4
  27.     MOVE.W  #65535,$DFF0A6
  28.     MOVE.W  #64,$DFF0A8
  29.     MOVE.W  #64,$DFF0B8
  30.     MOVE.W  #$8203,$DFF096
  31.  
  32. MAIN:        BTST    #6,$BFE001
  33.     BNE.S   MAIN
  34.  
  35. EXIT:        MOVE.W  #$0003,$DFF096
  36.     MOVE.W  #$0011,$DFF09E
  37.     MOVE.L  AUDPTR(PC),A1
  38.     MOVE.L  #SAMPLESIZE,D0
  39.     JSR FREEMEM(A6)
  40. ALLOCERROR: MOVEM.L  (SP)+,D0-D7/A0-A6
  41.     RTS
  42.  
  43.  
  44. AUDPTR:        DC.L    0
  45.  
  46. AUD0:        DC.W    0,300,5,290,11,280,16,270
  47.     DC.W    21,260,27,250,32,240,37,230
  48.     DC.W    43,220,48,210,53,200,59,190
  49.     DC.W    64,180,59,190,53,200,48,210
  50.     DC.W    43,220,37,230,32,240,27,250
  51.     DC.W    21,260,16,270,11,280,5,290
  52. AUD0END:
  53. AUD0SIZE:   EQU AUD0END-AUD0
  54. AUD1:        DC.B    0,25,49,71,90,105,117,125
  55.     DC.B    127,125,117,105,90,71,49,25
  56.     DC.B    0,-25,-49,-71,-90,-105,-117,-125
  57.     DC.B    -127,-125,-117,-105,-90,-71,-49,-25
  58. AUD1END:
  59. AUD1SIZE:   EQU AUD1END-AUD1
  60. SAMPLESIZE: EQU AUD1END-AUD0
  61.  
  62.