****************************************************************************
*                                                                          *
*                              OC2_TST.ASM                                 *
*                                                                          *
****************************************************************************

$INCLUDE   'REGS.INC'

            ORG     VECTO2
            FDB     OC2_ISR

            ORG     $C000
INITTIM     LDX     #REGBAS
            BSET    TCTL1,X,OL2      ; OM2:OL2-->0:1-->toggle OC2-output-pin
            BSET    TMSK1,X,OC2I     ; enable OC2 interrupt         (PA6)
            CLI

START       BRA     START


OC2_ISR     BRCLR   TFLG1,X,OC2F,EINDE   ; onderschep illegale interrupts
            LDAA    #OC2F                ;
            STAA    TFLG1,X              ; reset OC2-flag
*           ...
*           ...
            COM     PORTB,X              ;
*           ...
*           ...
EINDE       RTI