write the program below in PIC BASIC list p$=16$F$84$A

include

$\_\_$CONFIG $\_$CP$\_$OFF & $\_$WDT$\_$OFF & $\_$PWRTE$\_$ON & $\_$XT$\_$OSC

; Define constants

DUTY$\_$CYCLE$\_$ON equ $200$ ; Example duty cycle: $200$ instruction cycles $(1$ms$)$

TOTAL$\_$CYCLES equ $4000$ ; Total cycles for $20$ms period

; Define variables

cblock $0$x$20$

delay$\_$counter

cycle$\_$counter

endc

org $0$x$00$

goto main

delay:

; Subroutine for delay

; Input: delay$\_$counter $($number of instruction cycles$/4)$

movlw D$\text{'}1\text{'}$

movwf cycle$\_$counter

delay$\_$loop:

nop

nop

decfsz cycle$\_$counter, f

goto delay$\_$loop

return

main:

bsf STATUS, RP$0$ ; Select Bank $1$

clrf TRISB ; Set PORTB as output

bcf STATUS, RP$0$ ; Select Bank $0$

clrf PORTB ; Clear PORTB

pwm$\_$loop:

; Turn on PWM signal

bsf PORTB, $1$ ; Set RB$1$ high

movlw DUTY$\_$CYCLE$\_$ON

movwf delay$\_$counter

call delay

; Turn off PWM signal

bcf PORTB, $1$ ; Set RB$1$ low

movlw $($TOTAL$\_$CYCLES $-$ DUTY$\_$CYCLE$\_$ON$)$

movwf delay$\_$counter

call delay

goto pwm$\_$loop

end