; TIMBRE TESTER
;
; load timbfle with delay values between zero crossings
; load tflength with numnber of zero crossings per fundamental note cycle
;
;
HOME     EQU       $FC58
INIT     EQU       $FB2F     ;INITIALIZE TEXT SCREEN
KBDSTR   EQU       $C010
IOADR    EQU       $C000
SPKR     EQU       $C030
TAPEOUT  EQU       $C020
WAIT     EQU       $FCA8
;
NOTEP    EQU       $EF       ;NOTE POINTER FOR SONGPLAY
;
         ORG       $6000
TIMBRE   BIT       KBDSTR
RESCAN5  LDX       TFLENGTH
NEXT5    DEX
         BMI       RESCAN5
         LDY       TIMBFLE,X
LOOP5    DEY
         BNE       LOOP5
         BIT       SPKR
         BIT       TAPEOUT
         BIT       IOADR
         BPL       NEXT5
         BIT       KBDSTR
         RTS
;
TFLENGTH DFB       $08
TIMBFLE  DFB       $60,$6A,$6A,$27,$27,$6A,$6A,$5E