40          *=$600›50 ;METRONOME ROUTINE...USES $0000 TO PASS THE METRONOME RATE›60 ;›70 AUDF1    =  $D200 ; AUDIO FREQUENCY REGISTER›80 AUDC1    =  $D201 ; AUDIO CONTROL REGISTER›90 FREQ     =  $08 ; AUDF1 VALUE›0100 VOLUME =  $AF ; AUDC1 VALUE›0110 OFF    =  $A0  ; TURN OFF VOLUME›0120 SETVBV =  $E45C ; SET TIMER VALUE ROUTINE›0130 XITVBV =  $E462›0140 CDTMV2 =  $021A ; TIMER 2›0150 CDTMA2 =  $0228 ; TIMER 2 VECTOR›0160 ZTIMER =  $0000 ; ZPAGE VBLANK TIMER VALUE›0170 ;›0180 START  LDA #10›0190        STA ZTIMER›0200 ; SET THE TIMER VECTOR›0220 ;›0230 INIT   LDA #CNTINT&255›0240        STA CDTMA2›0250        LDA #CNTINT/256›0260        STA CDTMA2+1›0270 ;›0280 ; SET THE TIMER VALUE AFTER THE VECTOR›0290 ;›0300        LDY ZTIMER ; SET TIMER TWO TO COUNT›0310        JSR SETIME›0320        RTS›0340 ; METRONOME COUNT DOWN VECTORS TO HERE›0380 ; SET UP AUDIO CHANNEL FOR MET CLICK›0400 CNTINT LDA #VOLUME›0410        STA AUDC1›0420        LDA #FREQ›0430        STA AUDF1›0435        LDY #$FF ; DELAY›0440 DELAY  DEY›0442        BNE DELAY›0450        STY AUDC1›0460        JMP INIT›0480 ;›0490 ; SUBROUTINE TO SET TIMER›0500 ;›0520 SETIME LDX #0 ; NO TIME >256 VBLANKS›0530        LDA #2 ; SET TIMER 2›0540        JSR SETVBV ; SYSTEM ROUTINE TO SET TIMER›0550        RTS›0560        *=$2E2›0570        .WORD  START›0580        .END›