Tengo un problema al intentar realizar un retraso en un PIC16LF1823. Mi programa intenta cambiar algunos bits en PORTC durante 30 ms. Hice un retraso simple basado en el decremento de una variable; sin embargo, cada vez que el PIC ejecuta el retardo, se queda atascado en la subrutina de retardo para siempre. Lo he intentado todo y he rastreado el problema hasta la instrucción DECFSZ (si se eliminan, los bits se alternan sin demora y el programa se ejecuta normalmente). ¿Es este un problema conocido? O bien, ¿estoy haciendo algo mal? Mi configuración: Oscilador interno 31kHz. Utilizando MPLAB X y MPASM v5.46. Espero que alguien pueda señalarme en la dirección correcta; He estado tratando de arreglar esto por una semana ahora. Gracias, Aquí está mi código:
INCLUDE "P16F1823.inc"
; CONFIG1
__CONFIG _CONFIG1, _FOSC_INTOSC & _WDTE_NSLEEP & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _CPD_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF
; CONFIG2
__CONFIG _CONFIG2, _WRT_OFF & _PLLEN_OFF & _STVREN_ON & _BORV_LO & _LVP_ON
org 0x00
GOTO Start
org 0x04
GOTO Interrupt
#Define LCK 0x01
#Define LTC 0x04
#Define RLS 0x05
IOA EQU B'00000011'
IOC EQU B'00000000'
IOP EQU B'00000011'
ION EQU B'00000010'
INT EQU B'10001000'
OSC EQU B'00000000'
OPT EQU B'11010000'
CBLOCK
d1
ENDC
;;;;;;;;;;;;;;;;;;
;;INITIALIZATION;;
;;;;;;;;;;;;;;;;;;
Start
BANKSEL PORTA
CLRF PORTA
BANKSEL LATA
CLRF LATA
BANKSEL ANSELA
CLRF ANSELA
BANKSEL TRISA
MOVLW IOA
MOVWF TRISA
BANKSEL PORTC
CLRF PORTC
BANKSEL LATC
CLRF LATC
BANKSEL ANSELC
CLRF ANSELC
BANKSEL TRISC
MOVLW IOC
MOVWF TRISC
BANKSEL OSCCON
MOVLW OSC
MOVWF OSCCON
BANKSEL OPTION_REG
MOVLW OPT
MOVWF OPTION_REG
BANKSEL INTCON
MOVLW INT
MOVWF INTCON
BANKSEL IOCAP
MOVLW IOP
MOVWF IOCAP
BANKSEL IOCAN
MOVLW ION
MOVWF IOCAN
CLRF BSR
;;;;;;;;;;;;;;;;;;
;; MAIN PROGRAM ;;
;;;;;;;;;;;;;;;;;;
Loop
CALL Toggle
GOTO Loop
;;;;;;;;;;;;;;;;;;
;; INTERRUPTS ;;
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
;; SUBROUTINES ;;
;;;;;;;;;;;;;;;;;;
Toggle
;; LATCH ;;
CLRWDT
BSF PORTC,LTC
CALL Delay30ms
BCF PORTC,LTC
;; WAIT ;;
CALL Delay30ms
;;RELEASE;;
BSF PORTC,RLS
CALL Delay30ms
BCF PORTC,RLS
;; EXIT ;;
RETURN
Delay30ms
MOVLW 0x4C
MOVWF d1
D30Loop
CLRWDT
DECFSZ d1, f
GOTO D30Loop
RETURN
;;;;;;;;;;;;;;;;;;
;;END OF PROGRAM;;
;;;;;;;;;;;;;;;;;;
END