;#### 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)