home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 5 / MA_Cover_5.iso / www / lambda / www.hut.fi / ~mkalline / cross64_003.lha / sample.asm < prev   
Encoding:
Assembly Source File  |  1997-10-03  |  587 b   |  29 lines
  1. *****************************************************
  2. ;
  3. ; Example program for testing the Cross64 assembler
  4. ;
  5. ; Plays a 4 bit sample
  6. ;
  7. *****************************************************
  8.     ORG $C000
  9.  
  10. PLAY    SEI
  11.     LDA #$0B
  12.     STA $D011
  13. LOOP1    LDX #$00    ; start from beginning of sample
  14. LOOP2    LDA SINE,X
  15.     STA $D418    ; adjust audio chip volume
  16.     LDY #$0C    ; delay between each sample
  17. DELAY    DEY
  18.     BNE DELAY
  19.     INX
  20.     CPX #20        ; length of sample
  21.     BEQ LOOP1
  22.     BNE LOOP2
  23.  
  24. SINE    .BYTE 8,11,13,14,15,15,15,14,13,11
  25.     .BYTE 8,5,3,2,1,1,1,2,3,5
  26.  
  27. PULSE    .BYTE 0,0,0,0,0,0,0,0,0,0
  28.     .BYTE 15,15,15,15,15,15,15,15,15,15
  29.