list   p=16F873A
   #include <p16F873A.inc>
   __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC & _LVP_OFF
;---Дефиниране---
w      EQU   0
f      EQU   1
Begin_value    EQU   D'176'

      CBLOCK    H'020'   ; Адрес на първия регистър от GPR
      Counter_s1
      Counter_s2
      Counter_m1
      Counter_m2
      Counter_h1
      Counter_h2
      Cycle_counter
      Cycle_counter2
      Temp_PORTC
      ENDC

;---Дефиниране битовете на регистъра Flag_register---
#define      Dig_s1      PORTC,0
#define      Dig_s2      PORTC,1
#define      Dig_m1      PORTC,2
#define      Dig_m2      PORTC,3
#define      Dig_h1      PORTC,4
#define      Dig_h2      PORTC,5
;-----------------------------------------------------
      ORG   H'0000'      ;Начално зареждане
      goto   start

      ORG   H'0004'      ;Прекъсване
      goto    Int_service
;----Инициализация----
start      bcf   STATUS,RP0   ;Избор на банка 0
      clrf   PORTC      ;Нулиране PORTC
      clrf   PORTB      ;Нулиране PORTB
      bsf   STATUS,RP0   ;Избор на банка 1
      movlw   B'11000000'   ;Дефиниране на входове-изходи
      movwf   TRISC
      clrf   TRISB
      bcf   STATUS,RP0
      goto   main   
;----Обслужване на прекъсванията----
Int_service   btfss   INTCON,T0IF   ; Прекъсване от TMR0?
      goto   end_int      ; Не, връщане от ISR
TMR0_int   movlw   Begin_value   ; Begin value > W
      movwf   TMR0      ; W > TMR0
      call   Inc_timer   ; Актуализиране на таймера
      call   Update_disp   ; Обновяване на индикаторите
end_int      bcf   INTCON,T0IF   ;Нулиране на T0IF и връщане към главната програма
      retfie
;----Актуализиране на дисплея----
Inc_timer   incf   Cycle_counter,w   ; W=(Cycle_counter)+1
      xorlw   D'200'      ; W XOR 200 -> W
      btfsc   STATUS,Z   ; W=200? (изтекла е 1сек)
      goto   Inc_timer2   ;
      incf   Cycle_counter,f   ; Не, Cycle_counter=(Cycle_counter)+1
      return         ; Връщане към ISR
Inc_timer2   incf   Cycle_counter2,w   ; W=(Cycle_counter)+1
      xorlw   D'2'      ; W XOR 2 -> W
      btfsc   STATUS,Z   ; W=2
      goto   inc_counters   ; Да, уваличи брояча на таймера
      incf   Cycle_counter2,f; Не, Cycle_counter=(Cycle_counter)+1
      clrf   Cycle_counter
      return         ; Връщане към ISR
inc_counters   clrf   Cycle_counter   ; 00 Cycle_counter
      clrf   Cycle_counter2
      incf   Counter_s1,f   ; Counter_s1=(Counter_s1)+1
      movlw   D'10'
      xorwf   Counter_s1,w   ; (Counter_s1) XOR W -> W
      btfss   STATUS,Z   ; (Counter_s1) = 10
      return         ; Не, връщане към ISR
      clrf   Counter_s1   ; Да, нулиране на Counter_s1
inc_s2      incf   Counter_s2,f
      movlw   D'6'
      xorwf   Counter_s2,w
      btfss   STATUS,Z
      return
      clrf   Counter_s2
inc_m1      incf   Counter_m1,f
      movlw   D'10'
      xorwf   Counter_m1,w
      btfss   STATUS,Z
      return
      clrf   Counter_m1
inc_m2      incf   Counter_m2,f
      movlw   D'6'
      xorwf   Counter_m2,w
      btfss   STATUS,Z
      return
      clrf   Counter_m2
inc_h1      incf   Counter_h1,f   ; Counter_h1 + 1
      movlw   D'2'      ; Проверка за
      xorwf   Counter_h2,w   ; (Counter_h2)=2 ?
      goto   h1_cont      ; Не
      movlw   D'4'      ; Да
      xorwf   Counter_h1,w
      btfss   STATUS,Z
      return
      clrf   Counter_h1
      goto   inc_h2
h1_cont      movlw   D'10'
      xorwf   Counter_h1,w
      btfss   STATUS,Z
      return
      clrf   Counter_h1
inc_h2      incf   Counter_h2,f
      movlw   D'3'
      xorwf   Counter_h2,w
      btfss   STATUS,Z
      return
      clrf   Counter_h2
      return
;----Обновяване на дисплея----
Update_disp   movf   Temp_PORTC,w   ; Temp_PORTC -> W
      movwf   PORTC      ; W -> PortC
      btfsc   Dig_s1      ; Обновяване индикатор s1?
      goto   update_s1   ; Да
      btfsc   Dig_s2      ; Не. Обновяване индикатор s2?
      goto   update_s2   ; Да
      btfsc   Dig_m1      ; Не. Обновяване индикатор m1?
      goto   update_m1   ; Да
      btfsc   Dig_m2      ; Не. Обновяване индикатор m2?
      goto   update_m2   ; Да
      btfsc   Dig_h1      ; Не. Обновяване индикатор h1?
      goto   update_h1   ; Да
      goto   update_h2   ; Не
update_s1   movf   Counter_s1,w
      call    Table
      movwf   PORTB
      goto    end_update
update_s2   movf   Counter_s2,w
      call    Table
      movwf   PORTB
      goto    end_update
update_m1   movf   Counter_m1,w
      call    Table
      movwf   PORTB
      goto    end_update
update_m2   movf   Counter_m2,w
      call    Table
      movwf   PORTB
      goto    end_update
update_h1   movf   Counter_h1,w
      call    Table
      movwf   PORTB
      goto    end_update
update_h2   movf   Counter_h2,w
      call    Table
      movwf   PORTB
end_update   bcf   STATUS,C
      rlf   Temp_PORTC,f   ; Обновяване на следващ индикатор
      btfss   Temp_PORTC,6   ; Обновен ли е h2?
      return         ; Не, връщане към ISR
      movlw    B'00000001'
      movwf   Temp_PORTC
      return
;---- Таблица ----
Table      addwf   PCL,f      ; W + PCL = PCL
      retlw   b'10111111'
      retlw   b'10000110'
      retlw   b'11011011'
      retlw   b'11001111'
      retlw   b'11100110'
      retlw   b'11101101'
      retlw   b'11111101'
      retlw   b'10000111'
      retlw   b'11111111'
      retlw   b'11101111'
;----Конфигуриране и инициализация на таймера----
Timer_config      bsf   STATUS,RP0
      movlw   B'10000100'
      movwf   OPTION_REG
      bcf   STATUS,RP0
      clrf   Counter_s1
      clrf   Counter_s2
      clrf   Counter_m1
      clrf   Counter_m2
      clrf   Counter_h1
      clrf   Counter_h2
      clrf   Cycle_counter
      movlw   B'00000001'
      movwf   Temp_PORTC
      movlw   Begin_value
      movwf   TMR0
      return
;----Главна програма----
main      call   Timer_config
      movlw   B'10100000'
      movwf   INTCON
loop      nop
      goto   loop
      END