****************************************************************************
*                                                                          *
*                             TCNT_TST.ASM    (free running counter)       *
*                                                                          *
****************************************************************************

$INCLUDE   'REGS.INC'

            ORG     $0000
TELLER      RMB     1

            ORG     VECTOV           ; $FFDE
            FDB     TCNT_ISR

            ORG     $C000
            CLR     TELLER
INITTIM     LDX     #REGBAS
            BSET    TMSK2,X,TOI      ; enable TCNT-overflow-interrupt-system
*           prescale factor: 1,        d.w.z. elke 32,77 mS een interrupt
            CLI

START       BRA     START


TCNT_ISR    BRCLR   TFLG2,X,TOF,EINDE    ; onderschep illegale interrupts
            LDAA    #TOF                 ; reset TCNT-flag
            STAA    TFLG2,X
*           ...
*           ...
*           ...
EINDE       RTI