5 ? " ":REM Bildschirm löschen
6 REM Routine zum Setzen einer Metronom-Rate.
7 REM Von M. Ekbers für Carla.
10 X=10:FOR I=l TO 2 STEP 0
20 TOP=l0:FOR J=l TO TOP:NEXT J:REM Verzögerungs-Schleife
50 IF STICK(0)=l3 THEN X=X+1:REM Nach oben = schneller
51 IF STICK (0)=14 THEN X=X-1:REM Nach unten = langsamer
52 IF X<l THEN X=1:REM X darf niemals kleiner als 1 oder
53 IF X>255 THEN X=255:REM grösser als 255 sein.
54 REM
56 ?"";INT(3600/X);" Schläge pro Minute "
60 POKE 0,X:REM In Speicherstelle $0000 steht die Rate
70 NEXT I:REM für die folgende Assembler-Routine.
-------------------------------------------------------------
40 *=$600
50 ; Metronom-Routine...benutzt $0000 zum Uebersetzen d. Rate.
60 ;
70 AUDF1 = $D200 Audio Frequenz-Register
80 AUDC1 = $D201 Audio Kontroll-Register
90 FREG = $08 AUDF1-Wert
0100 VOLUME = $AF WERT VON AUDC1
0110 OFF = $A0Lautstaerke ausschalten
0120 SETVBV = $E45C Routine zum Setzen des Timer-Wertes
0130 CDTMA2 = $0228 Vektor von Timer 2
0140 ZTIMER = $0000 VBLANK-Wert des Timers in Zero-Page
0150 ;
0160 START LDA #10
0170 STA ZTIMER
0180 INIT
0190 ; Setzen des Timer-Vektors
0200 ;
0210 LDA #CNTINT&255
0220 STA CDTMA2
0230 LDA #CNTINT/256
0240 STA CDTMA2+1
0250 ;
0260 ; Setzen dem Timers nach dem Voktor
0270 ;
0290 LDY ZTIMER Setzen von Timer 2 auf Zaehler
0290 JSR SETIME
0300 RTS
0310 ;
0320 ;
0330 ;
0340 CNTINT
0350 ;
0360 ; Bereitmachen das Audio-Kanals für "Klick"-
0370 ; Geraeusch
0380 LDA #VOLUME
0390 STA AUDC1
0400 LDA #FREQ
0410 STA AUDF1
0420 LDY #$FF
0430 DELAY
0440 DEY
0450 BNE DELAY
0460 STY AUDC1
0470 JMP INIT
0480 ;
0490 ; Unterroutine zum Setzen das Timers
0500 ;
0510 SETIME
0520 LDX #0 Niemals 256 VBLANKs
0530 LDA #2 Setzen von Timer 2
0540 JSR SETVBV System-Routine zum Setzen
0550 RTS der Timer
0560 *=$2E2
0570 .WORD START
0580 .END