src/music/libtango/main.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 .dataseg
  19
  20 .codeseg
  21
  22 .public init
  23 .public test_cycle
  24
  25 .extrn fill_all_nametables:proc
  26 .extrn write_ppu_data_at:proc
  27 .extrn screen_on:proc
  28 .extrn start_song:proc
  29 .extrn mixer_get_muted_channels:proc
  30 .extrn mixer_set_muted_channels:proc
  31 .extrn joypad0_posedge:byte
  32
  33 .proc init
  34     lda #0
  35     jsr fill_all_nametables
  36     lda #<@@ppu_data
  37     ldy #>@@ppu_data
  38     jsr write_ppu_data_at
  39     lda #1
  40     jsr start_song
  41     jsr screen_on
  42     rts
  43 @@ppu_data:
  44 .charmap "font.tbl"
  45 .incbin "packnam.dat"
  46 .db $22,$CB,10
  47 .char "LIBERTANGO"
  48 ;.char "THE SWING OF THINGS"
  49 .db $22,$E5,23
  50 .char "ORIGINAL BY GRACE JONES"
  51 .db $23,$25,23
  52 .char "REMAKE BY SNOWBRO, 2009"
  53 .db $23,$49,14
  54 .char "MADE IN NORWAY"
  55 ;.db $23,$E0,$48,$F0
  56 .db $23,$E8,$50,$FF
  57 .db $3F,$00,$20
  58 .db $0F,$00,$10,$20
  59 .db $0F,$00,$10,$20
  60 .db $0F,$00,$10,$20
  61 .db $0F,$00,$10,$2A
  62 .db $0F,$00,$10,$20
  63 .db $0F,$00,$10,$20
  64 .db $0F,$00,$10,$20
  65 .db $0F,$00,$10,$20
  66 .db 0
  67 .endp
  68
  69 .proc test_cycle
  70     lda joypad0_posedge
  71     beq +
  72     jsr mixer_get_muted_channels
  73     eor joypad0_posedge
  74     and #$0F
  75     jsr mixer_set_muted_channels
  76   + rts
  77 .endp
  78
  79 .end