list      p=16F84A
include      <p16F84A.inc>
__CONFIG   _CP_OFF & _WDT_OFF & PWRTE_ON & _XT_OSC
w         EQU      0
f         EQU      1
Counter    EQU      H'0C'
         ORG      H'0000'      ;Вектор на НУ
         goto      start      ;Преход към началото на програмата
start         bsf      STATUS, RP0
         movlw      B'11010111'
         movwf      OPTION_REG
         bcf      STATUS, RP0
         clrf      PORTB
         bsf      STATUS, RP0
         movlw      B'11111000'
         movwf      TRISB      ;RB7 - RB3 входове, RB2, RB1, RB0 изходи
         bcf      STATUS, RP0
         goto      main
main         bcf      PORTB, 0      ;RB0=0   
         call      Gpauza      ;голяма пауза
         bsf      PORTB, 0      ;RB0=1   
         call      Mpauza      ;малка пауза
         bcf      PORTB, 1      ;RB1=0   
         call      Mpauza      ;малка пауза
         bsf      PORTB, 1      ;RB1=1   
         call      Mpauza      ;малка пауза
         bsf      PORTB, 2      ;RB2=1   
         call      Mpauza      ;малка пауза
         bcf      PORTB, 2      ;RB2=0   
         call      Mpauza      ;малка пауза
         goto      main      ;повтаряне на цикъла
Gpauza    movlw      D'10'      ;пауза около 650 mS (10*65)
         movwf      Counter
         clrf      TMR0
again         bcf      INTCON, T0IF
loop         btfss      INTCON, T0IF
         goto      loop
         decfsz      Counter, f
         goto      again
         return
Mpauza    movlw      D'1'              ;пауза около 65 mS (1*65)
         movwf      Counter
         clrf      TMR0
again         bcf      INTCON, T0IF
loop         btfss      INTCON, T0IF
         goto      loop
         decfsz      Counter, f
         goto      again
         return   
   END