For PIC$16$F$628$A

a$)$ There are two traffic lights in the Proteus file and they have red, yellow and green LEDs. Among these LEDs, the ones for the vehicle are placed on the $0$th$,1$st and $2$nd pins of PORTB, respectively; The ones for the pedestrian are connected to the $3$rd$,4$th and $5$th pins, respectively. While the time allowed for traffic on the road to pass is $10$ seconds, the time allowed for pedestrians to pass is $3$ seconds. The duration of the yellow light that will turn on when switching from red to green and from green to red is $1$ second.

b$)$ There is also a button for pedestrians. While the green light is on for vehicles and the red light is on for pedestrians, when pedestrians press this button, vehicle traffic will stop and it will turn green for pedestrians and red for vehicles.

I can't set the delay time in item a and I couldn't do item b$.$

My codes :

LIST P$=16$F$628$A

INCLUDE $"$P$16$F$628$A$.$INC"

$\_\_$CONFIG $\_$INTRC$\_$OSC$\_$NOCLKOUT & $\_$WDT$\_$OFF & $\_$PWRTE$\_$ON & $\_$MCLRE$\_$ON & $\_$BODEN$\_$OFF & $\_$LVP$\_$OFF & $\_$CP$\_$OFF

;$-----------------------------------------------------------$

SAYAC$1$ EQU h$\text{'}20\text{'}$

SAYAC$2$ EQU h$\text{'}21\text{'}$

DALLAN EQU h$\text{'}22\text{'}$

BL EQU h$\text{'}23\text{'}$

ORG h$\text{'}00\text{'}$ ;Program kodlar$$n$$n ba$$lang$$c$$

BANKSEL TRISB ;BANK$1\text{'}$e ge$$

CLRF TRISB ;PortB'nin t$$m u$$lar$$k$$

MOVLW H$\text{'}$FF$\text{'}$ ;W h$\text{'}$FF$\text{'}$

MOVWF TRISA ;PortA'n$$n t$$m u$$lar$$ giri$$

BANKSEL PORTB ;BANK$0\text{'}$a ge$$

MOVLW h$\text{'}07\text{'}$ ;W saklay$$c$$ya b$00000111$ y$$kle

MOVWF CMCON ;PORTA giri$$leri dijital I$/$O

CLRF PORTB ;PortB'yi s$$f$$rla

BASLA

MOVLW h$\text{'}00\text{'}$ ;b$\text{'}00000000\text{'}$ say$$s$$n$$ W'ye y$$kle

MOVWF DALLAN ;DALLAN $=$ W

DONGU

MOVF DALLAN, W ;W $=$ DALLAN

ANDLW B$\text{'}00001111\text{'}$ ;W'nin $$st d$$rt bit$$ini s$$f$$rla

CALL CEV$7$SEG ;Kod $$evirme alt program$$n$$a$$r$.$

MOVWF PORTB ;Kodu $7$ segment display$$de g$$ster

INCF DALLAN, F ;DALLAN $=$ DALLAN $+1$

MOVF DALLAN, W ;

MOVWF BL ;

MOVLW h$\text{'}$F$\text{'}$ ; W saklay$$c$$s$$na $0$ y$$kle

SUBWF DALLAN, f ; W$=$BL$-$W

BTFSC STATUS, Z ; ZERO BACA$$I $0$SE ATLA

GOTO BASLA ; DONGU $2$YE G$$T

MOVF BL$,$ W ;

MOVWF DALLAN ;

CALL GECIKME ;Gecikme yap

BTFSS PORTA,$0$ ;PortA'n$$n $0.$ bit'i $0$ m$?$

CALL YAYA

GOTO DONGU ;Yeni bir say$$ i$$in ba$$a d$$n$.$

YAYA

MOVLW h$\text{'}09\text{'}$ ;b$\text{'}00000000\text{'}$ say$$s$$n$$ W'ye y$$kle

MOVWF DALLAN ;DALLAN $=$ W

CEV$7$SEG

ADDWF PCL$,$F ;PCL$=$PCL$+$W$($DALLAN$)$

RETLW h$\text{'}21\text{'}$ ;$0$

RETLW h$\text{'}21\text{'}$ ;$1$

RETLW h$\text{'}21\text{'}$ ;$2$

RETLW h$\text{'}21\text{'}$ ;$3$

RETLW h$\text{'}21\text{'}$ ;$4$

RETLW h$\text{'}21\text{'}$ ;$5$

RETLW h$\text{'}21\text{'}$ ;$6$

RETLW h$\text{'}21\text{'}$ ;$7$

RETLW h$\text{'}21\text{'}$ ;$8$

RETLW h$\text{'}12\text{'}$ ;$9$

RETLW h$\text{'}0$C$\text{'}$ ;A

RETLW h$\text{'}0$C$\text{'}$ ;b

RETLW h$\text{'}0$C$\text{'}$ ;C

RETLW h$\text{'}12\text{'}$ ;d

RETLW h$\text{'}00\text{'}$ ;E

RETLW h$\text{'}00\text{'}$ ;F

GECIKME ;Gecikme alt program$$

MOVLW h$\text{'}$FF$\text{'}$

MOVWF SAYAC$1$

DONGU$1$

MOVLW h$\text{'}$FF$\text{'}$

MOVWF SAYAC$2$

DONGU$2$

DECFSZ SAYAC$2,$ F

GOTO DONGU$2$

DECFSZ SAYAC$1,$ F

GOTO DONGU$1$

RETURN

END