-------------------------------------
COMO QUEDO EL PROGRAMA ORIGINAL
-------------------------------------
list p=16F84A
#include <p16F84a.inc>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _RC_OSC
j equ h'1F'
k equ h'1E'
h equ h'1C'
i equ h'1B'
f equ h'1A'
e equ h'10'
TIEMPO equ h'09'
org 0
;****************************************************
;Definiendo A
bsf STATUS,5
movlw b'1111111'
movwf PORTA
bcf STATUS,5
;Definiendo B
bsf STATUS,5
movlw b'00000000'
movwf PORTB
bcf STATUS,5
;****************************************************
; Puerto A
; 0-Reset 1-Zona1 2-Zona2 3-Zona3 4-Zona4
;
; Puerto B
; 0-Encendido 1-Zona1 2-Zona2 3-Zona3 4-Zona4;
;
;****************************************************
movlw d'70'
movwf TIEMPO
;****************************************************
;
; TIEMPO DE ON/OFF EN LUZ
;
; para simular poner en 1
; para practica poner en 70
;
;****************************************************
mloop movlw b'00000001'
movwf PORTB
movlw b'00000000'
movwf h
movwf j
movwf k
movwf i
movwf f
movwf e
jloop movfw PORTA
movwf k
btfsc k,0
goto mloop
xorlw b'00011111'
iorwf h,f
movfw h
movwf PORTB
;***** Bucle *****
movfw TIEMPO
movwf j
aloop movwf e
bloop decfsz e,f
goto bloop
decfsz j,f
goto aloop
;*****
movlw b'00000001'
movwf PORTB
;***** Bucle *****
movfw TIEMPO
movwf j
zloop movwf e
xloop decfsz e,f
goto xloop
decfsz j,f
goto zloop
;*****
goto jloop
end
-----------------------------------------------------------
SEGUNDO PROGRAMA *** hace lo mismo
-----------------------------------------------------------
list p=16F84A
#include <p16F84a.inc>
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _RC_OSC
j equ h'1F'
k equ h'1E'
h equ h'1C'
e equ h'10'
TIEMPO equ h'09'
org 0
;****************************************************
;Definiendo A
bsf STATUS,5
movlw b'1111111'
movwf PORTA
bcf STATUS,5
;Definiendo B
bsf STATUS,5
movlw b'00000000'
movwf PORTB
bcf STATUS,5
;****************************************************
; Puerto A
; 0-Reset 1-Zona1 2-Zona2 3-Zona3 4-Zona4
;
; Puerto B
; 0-Encendido 1-Zona1 2-Zona2 3-Zona3 4-Zona4;
;
;****************************************************
movlw d'1'
movwf TIEMPO
;****************************************************
;
; TIEMPO DE ON/OFF EN LUZ
;
; para simular poner en 1
; para practica poner en 70
;
;****************************************************
mloop movlw b'00000001'
movwf PORTB
movwf h
jloop movfw PORTA
movwf k
btfsc k,0
goto mloop
btfss k,1
bsf h,1
btfss k,2
bsf h,2
btfss k,3
bsf h,3
btfss k,4
bsf h,4
movfw h
movwf PORTB
;***** Bucle *****
movfw TIEMPO
movwf j
aloop movwf e
bloop decfsz e,f
goto bloop
decfsz j,f
goto aloop
;*****
movlw b'00000001'
movwf PORTB
;***** Bucle *****
movfw TIEMPO
movwf j
zloop movwf e
xloop decfsz e,f
goto xloop
decfsz j,f
goto zloop
;*****
goto jloop
end