0100 ;
0110 ; VONLY      Bob Fraser 7-23-81
0120 ;
0130 ;
0140 ;volume-only AUDC1-4 bit test routine
0150 ;
0160 ;
0170 ;
0180 ;
0190 AUDCTL =    $D208
0200 AUDF1  =    $D200
0210 AUDC1  =    $D201
0220 SKCTL  =    $D20F
0230 ;
0240 ;
0250     *=  $BO
0260 TEMPO  .BYTE 1
0270 MSC    .BYTE 0
0280 ;
0290 ;
0300 ;
0310     *=   $4000
0320     LDA  #0
0330     STA  AUDCTL
0340     LDA  #3
0350     STA  SKCTL
0360     LDX  #0
0370 ;
0380     LDA  #0
0390     STA  $D40E  ; kill vbi's
0400     STA  $D20E  ; kill irq's
0410     STA  $D400  ; kill dma
0420 ;
0430 ;
0440 ;
0450 L00 LDA  DTAB,X
0460     STA  MSC
0470 ;
0480     LDA  VTAB,X
0490 L0  LDY  TEMPO
0500     STA  AUDC1
0510 L1  DEY
0520     BNE  L1
0530 ;
0540 ; dec most sig ctr
0550     DEC  MSC
0560     BNE  L0
0570 ;
0580 ;
0590 ; new note
0600 ;
0610    INX
0620    CPX  NC
0630    BNE  L00
0640 ;
0650 ; wrap note pointer
0660    LDX #0
0670    BEQ L00
0680 ;
0690 ;
0700 NC   .BYTE 28;  note count
0710 ;
0720 ; table of volumes to be played In succession
0730 VTAB
0740     .BYTE 24,25,26,27,28,29,30,31
0750     .BYTE 30,29,28,27,26,25,24
0760     .BYTE 23,22,21,20,19,18,17
0770     .BYTE 18,19,20,21,22,23
0780 ;
0790 ; this table contains the duration of each entry above
0800 DTAB
0810     .BYTE 1,1,1,2,2,2,3,6
0820     .BYTE 3,2,2,2,1,1,1
0830     .BYTE 1,1,2,2,2,3,6
0840     .BYTE 3,2,2,2,1,1