Specifications

Program Examples
B-38
;=====================================================================
; Exit routine
;=====================================================================
LDP #0h
SPLK #0h,IMR ; Mask all interrupts
LACC IFR ; Read Interrupt flags
SACL IFR ; Clear all interrupt flags
SETC INTM
LDP #EVAIMRA>>7 ; Peripheral page
SPLK #0h,EVAIMRA ; Mask all EVA interrupts
SPLK #0h,EVAIMRB
SPLK #0h,EVAIMRC
SPLK #0FFFFh,EVAIFRA ; clear all EVA interrupt flags
SPLK #0FFFFh,EVAIFRB
SPLK #0FFFFh,EVAIFRC
LDP #EVBIMRA>>7 ; Peripheral page
SPLK #0h,EVBIMRA ; Mask all EVB interrupts
SPLK #0h,EVBIMRB
SPLK #0h,EVBIMRC
SPLK #0FFFFh,EVBIFRA ; clear all EVB interrupt flags
SPLK #0FFFFh,EVBIFRB
SPLK #0FFFFh,EVBIFRC
LDP #SCSR1>>7
SPLK #0000h,SCSR1 ; disable EVA & EVB clocks
LDP #GPTCONA>>7
SPLK #0000000000000000b,T1CON
SPLK #0000000000000000b,T2CON
LDP #GPTCONB>>7
SPLK #0000000000000000b,T3CON
SPLK #0000000000000000b,T4CON
DONE B DONE ; End of test module
;==================================================================
; ISR
;==================================================================
GISR4: ; Int4 GISR
NOP
LDP #PIVR >> 7h ; Peripheral page
LACL PIVR ; PIVR value
XOR #0033h ; CAP1 interrupt
BCND SISR33,eq
LACL PIVR ; PIVR value
XOR #0034h ; CAP2 interrupt
BCND SISR34,eq
LACL PIVR ; PIVR value
XOR #0035h ; CAP3 interrupt
BCND SISR35,eq
LACL PIVR ; PIVR value
XOR #0036h ; CAP4 interrupt
BCND SISR36,eq
LACL PIVR ; PIVR value
XOR #0037h ; CAP5 interrupt
BCND SISR37,eq
LACL PIVR ; PIVR value