;#### gate sequencer ####
    list    p=16F720
    include "P16F720.INC"

; init spul

org 0x0000

RESET
    pagesel start
    goto start


W_TEMP equ 0x70
STATUS_TEMP equ 0x71


;***** INTERRUPT SERVICE ROUTINE

org 0x0004

ISR

        movwf W_TEMP    ; move w to w_temp
        swapf STATUS,W  ; status to W
        banksel STATUS_TEMP ; switch to temp bank
        movwf STATUS_TEMP
        banksel INTCON      ; check source of interrupt
        btfsc INTCON,INTF   ; check if external (clock)

