Alarma Para Moto

;===========================================================

LIST p=16F84a ;digo al ensambl.que pic es
include "P16F84a.inc" ;include del f84a
__config 0x3315 ;seteo configuracion de fuses

;===========================================================
estado equ 0x03
pcl equ 0x02
pb equ 0x06 ;puerto B
pa equ 0x05 ;puerto A
option_reg equ 0x01
intcon equ0x0b
PDel7 equ 0x0c
PDel8 equ 0x0d
PDel0 equ 0x0e
PDel1 equ 0x0f
PDel2 equ 0x10
PDel3 equ 0x11
PDel4 equ 0x12
PDel5 equ 0x13
PDel6 equ 0x14
PDel9 equ 0x15
PDel10 equ 0x16
;=============================================================
;=============================================================
org 0x00goto ini
org 0x04
goto intrem
org 0x05
;=============================================================
;ini movlw 0x07
; movwf CMCON ;apaga comparadores (16F84)
ini bsf estado,5 ;pone bit 5 de status = 1
movlw 0xff ;selecciona el puert b
movwf pb ;como entrada
bcf option_reg,6;seleccion de flanco descendente
movlw 0x00
movwf pa ;puerto A como salida
bcf estado,5 ;pone bit 5 de status = 0
clrf pa
bsf intcon,4 ;habilito int por rb,0
bcf intcon,1 ;limpio bandera interrupcion
bsf intcon,7 ;habilito gie global
;=============================================================
gotoremoto
;-------------------------------------------------------------
;inicio movlw 0x07
; movwf CMCON ;apaga comparadores (16F84)
inicio bsf estado,5 ;pone bit 5 de status = 1
movlw 0xff ;selecciona el puerto b
movwf pb ;como entrada,pb,2 salida
bcf option_reg,6 ;seleccion de flanco descendente
movlw 0x00
movwfpa ;puerto A como salida
bcf estado,5 ;pone bit 5 de status = 0
clrf pa
bsf pa,4
bsf intcon,4 ;habilito int por rb,0
bcf intcon,1 ;limpio bandera int x rb,o
bsf intcon,3 ;habilito int por rb.1
bcf intcon,0 ;limpio bandera int x rb,1,2,3
bsf intcon,7 ;habilito gie global;=============================================================
sueño sleep
clrwdt ;limpio watchdog
goto sueño
;=============================================================
;=============================================================
intrem clrwdt ;limpio watchdog
nop
nop
nop
nop
btfsc pb,0 ;veo de dondevino interrupcion
goto pulsad
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
btfsc pb,0 ;veo si se fue la interrupcion
goto inicio ;si era ruido va a inicionop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
btfsc pb,0 ;veo si se fue la interrupcion
goto inicio ;si era ruido va a inicio
nop
nop
nop
nop
nop
nopnop
clrwdt ;limpio watchdog
nop
nop
nop
nop
nop
nop
nop
nop
nop
btfsc pb,0 ;veo si se fue la interrupcion
goto inicio ;si era ruido va a inicio
nop
nop
nop
nop
nop
nop
nop
nop...