****************************************************************************
*                                                                          *
*                              IC3_TST.ASM                                 *
*                                                                          *
****************************************************************************

$INCLUDE   'REGS.INC'

            ORG     VECTI3
            FDB     IC3_ISR

            ORG     $C000
INITTIM     LDX     #REGBAS
            BSET    TCTL2,X,EDG3A       ; EDG3B:EDG3A->0:1,IC3-pin:rising edge
            BSET    TMSK1,X,IC3I        ; enable IC3 interrupt
            CLI

START       BRA     START

IC3_ISR     BRCLR   TFLG1,X,IC3F,EINDE   ; onderschep illegale interrupts
            LDAA    #IC3F                ;
            STAA    TFLG1,X              ; reset IC3-flag
*           ...
            INC     PORTB,X
*           ...
EINDE       RTI