songs/burn.asm

   1 ;
   2 ;    Copyright (C) 2009 Kent Hansen.
   3 ;
   4 ;    This program is free software; you can redistribute it and/or modify
   5 ;    it under the terms of the GNU General Public License as published by
   6 ;    the Free Software Foundation; either version 3 of the License, or
   7 ;    (at your option) any later version.
   8 ;
   9 ;    This program is distributed in the hope that it will be useful,
  10 ;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;    GNU General Public License for more details.
  13 ;
  14 ;    You should have received a copy of the GNU General Public License
  15 ;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  16 ;
  17
  18 .codeseg
  19
  20 .public burn_song
  21
  22 burn_instrument_table:
  23 .dw env1 : .db $00,$00,$00,$92 : .db $00,$00 ; 0
  24 .dw env2 : .db $00,$00,$00,$22 : .db $00,$00 ; 1
  25 .dw env0 : .db $00,$00,$00,$82 : .db $00,$00 ; 2
  26 .dw env7 : .db $00,$00,$00,$00 : .db $00,$00 ; 3 triangle (short)
  27 .dw env0 : .db $00,$00,$00,$00 : .db $00,$00 ; 4 triangle (infinite)
  28 .dw env3 : .db $00,$00,$00,$00 : .db $00,$00 ; 5 noise (closed)
  29 .dw env4 : .db $00,$00,$00,$00 : .db $00,$00 ; 6 noise (open)
  30 .dw env5 : .db $00,$00,$00,$00 : .db $00,$00 ; 7 noise (snare)
  31 .dw env6 : .db $00,$00,$00,$00 : .db $00,$00 ; 8 noise (cymbalo)
  32 .dw env8 : .db $00,$00,$00,$80 : .db $00,$00 ; 9 noise (triangle)
  33 .dw env9 : .db $00,$00,$00,$22 : .db $00,$00 ; 10 square (short)
  34
  35 env0:
  36 .db $09
  37 .db $00,$00,$FF,$09
  38 .db $09,$00,$00,$00
  39 .db $FF,$FF
  40 env1:
  41 .db $08
  42 .db $00,$00,$FF,$08
  43 .db $08,$00,$00,$00
  44 .db $FF,$FF
  45 env2:
  46 .db $08
  47 .db $00,$00,$FF,$08
  48 .db $08,$00,$00,$00
  49 .db $FF,$FF
  50 env3:
  51 .db $09
  52 .db $01,$40,$00,$00
  53 .db $FF,$FF
  54 env4:
  55 .db $09
  56 .db $00,$C0,$00,$00
  57 .db $FF,$FF
  58 env5:
  59 .db $08
  60 .db $00,$A0,$00,$00
  61 .db $FF,$FF
  62 env6:
  63 .db $0A
  64 .db $00,$58,$00,$00
  65 .db $FF,$FF
  66 env7:
  67 .db $0A
  68 .db $01,$00,$00,$00
  69 .db $FF,$FF
  70 env8:
  71 .db $07
  72 .db $00,$C0,$00,$00
  73 .db $FF,$FF
  74 env9:
  75 .db $08
  76 .db $01,$80,$FF,$02
  77 .db $02,$00,$00,$00
  78 .db $FF,$FF
  79
  80 .include "burn.inc"
  81
  82 .end