****************************************************************************
*                                                                          *
*                             PACC_TST.ASM    (puls-accumulator)           *
*                                                                          *
****************************************************************************

$INCLUDE   'REGS.INC'

            ORG     VECPAI              ; PAIF
            FDB     PAIF_ISR

            ORG     VECPAO              ; PAOVF
            FDB     PAOVF_ISR

            ORG     $0000
PAIF_TEL    RMB     1
PAOVF_TEL   RMB     1

            ORG     $C000
INITTIM     LDX     #REGBAS
            BSET    PACTL,X,PAEN+PEDGE  ; DDRA:PAEN:PAMOD:PEDGE-->0:1:0:1
                                        ; PA7=input, PACC enable,
                                        ; event counter, opg.flank
            BSET    TMSK2,X,PAII+PAOVI  ; PAIF en PAOVF genereren interrupts
            CLI

START       BRA     START

PAIF_ISR    BRCLR   TFLG2,X,PAIF,EINDE  ; onderschep illegale interrupts
            LDAA    #PAIF               ; reset PAIF-flag
            STAA    TFLG2,X
*           ...
            INC     PAIF_TEL
*           ...
            BRA     EINDE

PAOVF_ISR   BRCLR   TFLG2,X,PAOVF,EINDE ; onderschep illegale interrupts
            LDAA    #PAOVF              ; reset PAOVF-flag
            STAA    TFLG2,X
*           ...
            INC     PAOVF_TEL
*           ...
EINDE       RTI