Semaforo 4 Vias Con Pic 16f84

#include <p16f84.inc>

PDel0 equ 0x0c ;comando de las temporizaciones

PDel1 equ 0x1d

PDel2 equ 0x2e

;-------------------------------------------------------------

Bsf STATUS,5

movlw 0x01 ;carga puerto A como entrada (pulsador)

movwf TRISA

movlw 0x00 ;carga puerto B como salida

movwf TRISB

bcf STATUS,5

ORG 6

movlw 0X00

movwf PORTB

;---------------------------------------------------

inicio

btfss PORTA,0

goto inicio

jump movlw 0x24 ; rojo de ambos 0010 - 0100

movwf PORTB;24

call DEMORA3

movlw 0x84 ; Verde S1 Rojo S2 1000 - 0100

movwf PORTB;84

call DEMORA1

movlw 0x44 ; Amarillo S1 Rojo S2 0100 - 0100

movwf PORTB;44

call DEMORA2

movlw 0x24 ; Rojo ambos 0010 - 0100

movwf PORTB; 24

call DEMORA3

movlw 0x21 ; Rjo S1 verde S2 0010 - 0001

movwf PORTB;21

call DEMORA1

movlw 0x22 ; Rojo S1 Amarillo S2 0010 - 0010

movwf PORTB;22

call DEMORA2

GOTO jump

;-----------------------------------------------------------------------

DEMORA1 movlw .100 ; 1 set numero de repeticion (C)

movwf PDel0 ; 1 |

PLoop0 movlw .55 ; 1 set numero de repeticion (B)

movwf PDel1 ; 1 |

PLoop1 movlw .201 ; 1 set numero de repeticion (A)

movwf PDel2 ; 1 |

PLoop2 clrwdt ; 1 clear watchdog

decfsz PDel2, 1 ; 1 + (1) es el tiempo 0 ? (A)

goto PLoop2 ; 2 no, loop

decfsz PDel1, 1 ; 1 + (1) es el tiempo 0 ? (B)

goto PLoop1 ; 2 no, loop

decfsz PDel0, 1 ; 1 + (1) es el tiempo 0 ? (C)

goto PLoop0 ; 2 no, loop

PDelL1 goto PDelL2 ; 2 ciclos delay

PDelL2 clrwdt ; 1 ciclo delay

return ; 2+2 Fin.

DEMORA2 movlw .250 ; 1 set numero de repeticion (B)

movwf PDel0 ; 1 |

PLoop1a movlw .213 ; 1

...