;----------------------------------------------------------------------
; NAME: telefonica.asm
; BY: José Flor - OzFlor
; WEB:
**broken link removed**
;----------------------------------------------------------------------
; previous ver. 1.0 27/01/2010 > fixed delay for 1.5s
; ver. 1.1 30/01/2010 > changable delay in .5s increments
list p=12f675 ; Directivas do processador
#include <p12f675.inc> ; Vaiáveis do processador
;----------------------------------------------------------------------
; Configurações
__CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _CPD_OFF
;----------------------------------------------------------------------
;----------------------------------------------------------------------
; Definir constantes
;----------------------------------------------------------------------
#define led0 GPIO,0 ; LED 1
#define led1 GPIO,1 ; LED 2
#define entrada0 GPIO,4 ; Entrada 1
#define entrada1 GPIO,5 ; Entrada 2
;----------------------------------------------------------------------
; Declarações
;----------------------------------------------------------------------
PDel0 equ 0x020
PDel1 equ 0x021
delay_acerto equ 0x022
BCF STATUS,RP0 ;Bank 0
CLRF GPIO ;Init GPIO
MOVLW 07h ;Set GP<2:0> to
MOVWF CMCON ;digital IO
BSF STATUS,RP0 ;Bank 1
CLRF ANSEL ;Digital I/O
MOVLW 30h ;b'110000' Set GP 5 and 4 as inputs and set GP 3 to 0 as outputs
MOVWF TRISIO
; Calibrar oscilador interno de 4MHz; Calibrar oscilador interno
BSF STATUS, RP0 ;Bank 1
CALL 3FFh ;Get the cal value
MOVWF OSCCAL ;Calibrate
BCF STATUS, RP0 ;Bank 0
start
btfss entrada0
call acende_led1
btfss entrada1
call acende_led2
goto start
acende_led1
bsf led0
call delay
bcf led0
retesta_entrada0 ;verifica se a entrada 0 já mudou de estado
btfss entrada0
goto retesta_entrada0
goto start
acende_led2
bsf led1
call delay
bcf led1
retesta_entrada1 ;verifica se a entrada 1 já mudou de estado
btfss entrada1
goto retesta_entrada1
return
delay
movlw 0x03 ;repete três (0x03) vezes o delay
movwf delay_acerto ;para acerto do número de 0,5s
repete ;altere o número de vezes que deseja repetir o ciclo de 0,5s
decfsz delay_acerto ;para obter o tempo de deday que retende
goto PDelay ;isto é usar 0x01, 0x02, etc.
return
;delay de 0,5 segundos - 500.000 ciclos CLK 4MHz
;-------------------------------------------------------------
; Code generated by PDEL ver 1.0 on 30/01/2010 at 9:16:10 PM
; Description: Waits 500000 cycles
;-------------------------------------------------------------
PDelay movlw .239 ; 1 set number of repetitions (B)
movwf PDel0 ; 1 |
PLoop1 movlw .232 ; 1 set number of repetitions (A)
movwf PDel1 ; 1 |
PLoop2 clrwdt ; 1 clear watchdog
PDelL1 goto PDelL2 ; 2 cycles delay
PDelL2 goto PDelL3 ; 2 cycles delay
PDelL3 clrwdt ; 1 cycle delay
decfsz PDel1, 1 ; 1 + (1) is the time over? (A)
goto PLoop2 ; 2 no, loop
decfsz PDel0, 1 ; 1 + (1) is the time over? (B)
goto PLoop1 ; 2 no, loop
PDelL4 goto PDelL5 ; 2 cycles delay
PDelL5 goto PDelL6 ; 2 cycles delay
PDelL6 goto PDelL7 ; 2 cycles delay
PDelL7 clrwdt ; 1 cycle delay
goto repete ; 2+2 Done
;-------------------------------------------------------------
; calibrarção do oscilador interno
org 3FFh
retlw 0xFC ;valor máximo do oscilador para 4MHz
end