list      p=16F84A;
            #include   <P16F84A.inc>;
            __CONFIG   _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC



w      EQU      0
f      EQU      1
Speed   EQU      D'20'


Counter   EQU      H'C0'
Flag   EQU      H'10'
W_temp   EQU      H'E0'
StatusT EQU      H'0F'
Cnt      EQU      H'20'

#define   Int      Flag,0
#define   Up      PORTA, 0
#define   Down   PORTA, 1

      ORG      H'0000'
      goto   start

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

start   bcf      STATUS, RP0
      clrf   PORTA
      clrf   PORTB
      bsf      STATUS, RP0
      clrf   TRISB
      clrf   TRISA
      movlw   b'00011111'
      movwf   TRISA
      movlw   b'10010111'
      movwf   OPTION_REG
      bcf      STATUS, RP0
      movlw   b'10100000'
      movwf   INTCON
      movlw   Speed
      movwf   Cnt
      goto   main

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

Int_Service
      movwf   W_temp
      swapf   STATUS, w
      movwf   StatusT
      btfss   INTCON, T0IF
      goto   end_int
TMR0_int   
      decfsz   Cnt,f
      goto   end_int
      bsf      Int
      movlw   Speed
      movwf   Cnt
end_int
      bcf      INTCON, T0IF
      swapf   StatusT, w
      movwf   STATUS
      swapf   W_temp,f
      swapf   W_temp,w
      retfie

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


main   bcf      STATUS, RP0
      clrf   Counter

Count   movf   Counter,0      ; Display a 1
      call   bin2seg           ; Convert number in W to the segment value
      movwf   PORTB      


check   btfss   Int
      goto   check
      btfss   Up
      btfss   Down
      goto   Add
      goto   Sub


Add      incf   Counter
      bcf      Int
      goto   Count

Sub      decf   Counter
      bcf      Int
      goto   Count




bin2seg   addwf   PCL, 1   ; Jump into the lookup table
      retlw   H'C0'   ; Return segment code for 0
      retlw   H'F9'   ; Return segment code for 1
      retlw   H'A4'   ; Return segment code for 2
      retlw   H'B0'   ; Return segment code for 3
      retlw   H'99'   ; Return segment code for 4
      retlw   H'92'   ; Return segment code for 5
      retlw   H'82'   ; Return segment code for 6
      retlw   H'F8'   ; Return segment code for 7
      retlw   H'80'   ; Return segment code for 8
      retlw   H'98'   ; Return segment code for 9
end

check   btfss   Int
      goto   check
      btfss   Up
      btfss   Down
      goto   Add
      goto   Sub

check   btfss   Int
      goto   check
      btfss   Up
      goto   Add
      btfss   Down
      goto   Sub

ORG      H'0000'
goto     start       
         
           след него добави

ORG      H'0004'
goto     Int_Service 

;            a
;       -
;     f     | | b
;         g -
;     e    | | c
;       -. dot
;       d

#define bit_a      0      ;Тези ще си ги нагласиш спрямо индикатора си и това как е вързан към порта.
#define bit_b      1
#define bit_c      2
#define bit_d      3
#define bit_e      4
#define bit_f      5
#define bit_g      6
#define bit_dot      7


#define   seg_a      (1 << bit_a)
#define   seg_b      (1 << bit_b)
#define   seg_c      (1 << bit_c)
#define   seg_d      (1 << bit_d)
#define   seg_e      (1 << bit_e)
#define   seg_f      (1 << bit_f)
#define   seg_g      (1 << bit_g)
#define   seg_dot      (1 << bit_dot)


;---------------------
#define   symbol_0   seg_a + seg_b + seg_c + seg_d + seg_e + seg_f            ;"0"
#define     symbol_1   seg_b + seg_c                                       ;"1"
#define   symbol_2   seg_a + seg_b + seg_d + seg_e + seg_g                  ;"2"
#define   symbol_3   seg_a + seg_b + seg_c + seg_d + seg_g                  ;"3"
#define   symbol_4   seg_b + seg_c + seg_f + seg_g                        ;"4"
#define   symbol_5   seg_a + seg_c + seg_d + seg_f + seg_g                  ;"5"
#define   symbol_6   seg_a + seg_c + seg_d + seg_e + seg_f + seg_g            ;"6"
#define   symbol_7   seg_a + seg_b + seg_c                                ;"7"
#define   symbol_8   seg_a + seg_b + seg_c + seg_d + seg_e + seg_f + seg_g      ;"8"
#define   symbol_9   seg_a + seg_b + seg_c + seg_d + seg_f + seg_g            ;"9"
#define   symbol_A   seg_a + seg_b + seg_c + seg_e + seg_f + seg_g            ;"A"
#define   symbol_A   seg_a + seg_b + seg_c + seg_e + seg_f + seg_g            ;"A"
#define   symbol_b   seg_c + seg_d + seg_e + seg_f + seg_g                  ;"b"
#define   symbol_c   seg_d + seg_e + seg_g                              ;"c"
#define   symbol_C   seg_a + seg_d + seg_e + seg_f                        ;"C"
#define   symbol_d   seg_b + seg_c + seg_d + seg_e + seg_g                  ;"d"
#define   symbol_E   seg_a + seg_d + seg_e + seg_f + seg_g                  ;"E"
#define   symbol_F   seg_a + seg_e + seg_f + seg_g                        ;"F"   
; Добави си още, ако е необходимо


; Предполагам, че високото ниво ти е натиснат бутон

main:
   BTFSC   Up
   GOTO   Add
   BTFSC   Down
   GOTO   Sub
   GOTO   main   ;нямаме натиснат бутон, циклим
   
   
Add:
   CALL   DebounceDelay
   BTFSS   Up            ;Провери дали още е натиснат бутона
   GOTO   main         ;
   
   INCF           Counter,F              ;Имаме натиснат бутон, вършим работа
   MOVF   Counter,W
   CALL           LoadDisplay
      
   BTFSC   Up            ;Чакаш, докато се отпусне бутона
   GOTO   $-1            ;
   GOTO   main

Sub:
   CALL   DebounceDelay
   BTFSS   Down
   GOTO   main
   
   DECF   Counter,F
   MOVF   Counter,W
   
   BTFSC   Down         ;Чакаш, докато се отпусне бутона
   GOTO   $-1            ;
   GOTO   main

LoadDisplay:
   CALL   SymbolTable
   MOVWF   PORTB
   RETURN


;
;   Напиши си подпрограмка за дилей (около 20ms)
;   
DebounceDelay:
   ;Може да е с таймер0
   ;Може и да е прост софтуерен цикъл
   RETURN
   

SymbolTable:
      ANDLW   0x0F                 ;Тази маска обикновено те предпазва да не изхвърчиш от таблицата, ако подадеш кофти стойност - не е известно къде ще отидеш (ако има код след таблицата, намазваш яко ситуацията)
                ADDWF   PCL,F
      RETLW   symbol_0
      RETLW   symbol_1
      RETLW   symbol_2
      RETLW   symbol_3
      RETLW   symbol_4
      RETLW   symbol_5
      RETLW   symbol_6
      RETLW   symbol_7
      RETLW   symbol_8
      RETLW   symbol_9
      RETLW   symbol_A
      RETLW   symbol_b
      RETLW   symbol_c
      RETLW   symbol_d
      RETLW   symbol_E
      RETLW   symbol_F

check   btfss   Int
      goto   check
      btfsc   Up
      goto   Add
      btfsc   Down
      goto   Sub