****************************************************************************
*                                                                          *
*                              RTI_TST.ASM                                 *
*                                                                          *
****************************************************************************

$INCLUDE 'REGS.INC'

            ORG     $0000
TELLER      RMB     1

            ORG     VECRTI
            FDB     RTI_ISR

            ORG     $C000
INITTIM     LDS     #$00FF
            LDX     #REGBAS
*           BSET    PACTL,X,RTR1+RTR0    ; 32 mSec.  RTR1:RTR0 = 1:1
            BCLR    PACTL,X,RTR1+RTR0    ;  4 mSec.  RTR1:RTR0 = 0:0
            BSET    TMSK2,X,RTII
            CLI

START       BRA     START

RTI_ISR     BRCLR   TFLG2,X,RTIF,EINDE   ; onderschep illegale interrupts
            LDAA    #RTIF                ; reset RTI-flag
            STAA    TFLG2,X
*           ...
*           ...
*           ...
EINDE       RTI