LIST p=16F84
 __CONFIG 03FF1H
 ; значення затримки
 ; можуть бути від 1 до 255
T1 equ .67 ; не точно
T2 equ .221 ; точно
IndF equ 00h ; Доступ до пам’яті через FSR
Timer0 equ 01h ; TMR0
OptionR equ 01h ; Option (RP0=1)
PC equ 02h ; лічильник команд
Status equ 03h ; Status
FSR equ 04h ; Регістр не прямої адресації
PortA equ 05h ; Port A
TrisA equ 05h ; Tris A - RP0=1
PortB equ 06h ; Port B
TrisB equ 06h ; Tris B - RP0=1
EEData equ 08h ; EEPROM Data
EECon1 equ 08h ; EECON1 - RP0=1
EEAdr equ 09h ; EEPROM Address
EECon2 equ 09h ; EECON2 - RP0=1
IntCon equ 0Bh
Count equ 0Eh ; тимчасовий лічильник
Count1 equ 0Fh 
LED0 equ 010h
LED1 equ 011h
LED2 equ 012h
LED3 equ 013h ; комірки
LED4 equ 014h ; індикатори
LED5 equ 015h
LED6 equ 016h
LED7 equ 017h
Temp equ 018h ; тимчасовий регістр
LEDIndex equ 019h ; покажчик LED
TimerL equ 01ah ; молодший байт лічильника частоти
TimerM equ 01bh ; середній байт лічильника частоти
TimerH equ 01ch ; старший байт лічильника частоти
; Результат в
W equ 0 ; акумуляторі
F equ 1 ; регістрі
; Flag bits:
CF equ 0 ; Carry
DC equ 1 ; DC
ZF equ 2 ; Zero
RP0 equ 5
 org 2100h
; частота ПЧ по замовчанню
 DE 008h,064h,070h ; 5.5 мгц
 DE 0h,0h,0h
 org 0
 goto Start
; Перевірка та ініціалізація порта А
 clrf PortA ; RA0..RA3 = 0
 bsf Status,RP0
 movlw b'00010011'
 movwf TrisA ; RA0,RA1,RA4 input
 bcf Status,RP0 ;
 movf PortA,w
 andlw b'00000011'
 return
; Перекодування двійкового кода в код LCD
Bin2LCD
 bcf Status,0 ; clear the carry bit
 movlw .24
 movwf Count
 clrf LED3
 clrf LED2
 clrf LED1
 clrf LED0
loop16
 rlf TimerL,f
 rlf TimerM,f
 rlf TimerH,f
 rlf LED0,f
 rlf LED1,f
 rlf LED2,f
 rlf LED3,f
 decfsz Count,f
 goto adjDEC
 swapf LED3,w
 andlw 0Fh
 movwf LED7
 movfw LED3
 andlw 0Fh
 movwf LED6
 swapf LED2,w
 andlw 0Fh
 movwf LED5
 movfw LED2
 andlw 0Fh
 movwf LED4
 swapf LED1,w
 andlw 0Fh
 movwf LED3
 movfw LED1
 andlw 0Fh
 movwf LED2
 swapf LED0,w
 andlw 0Fh
 movwf LED1
 movfw LED0
 andlw 0Fh
 movwf LED0
 return
 adjDEC
 movlw LED0
 movwf FSR
 call adjBCD
 movlw LED1
 movwf FSR
 call adjBCD
 movlw LED2
 movwf FSR
 call adjBCD
 movlw LED3
 movwf FSR
 call adjBCD
 goto loop16
 adjBCD
 movlw 3
 addwf 0,W
 movwf Count1
 btfsc Count1,3
 movwf 0
 movlw 30
 addwf 0,W
 movwf Count1
 btfsc Count1,7
 movwf 0
 retlw 0
; Перекодування BCD в 7-сегментний код
LCDTable
 addwf PC,F ; W + PC -> PC
 retlw b'00111111' ; ..FEDCBA = '0'
 retlw b'00000110' ; .....CB. = '1'
 retlw b'01011011' ; .G.ED.BA = '2'
 retlw b'01001111' ; .G..DCBA = '3'
 retlw b'01100110' ; .GF..CB. = '4'
 retlw b'01101101' ; .GF.DC.A = '5'
 retlw b'01111101' ; .GFEDC.A = '6'
 retlw b'00000111' ; .....CBA = '7'
 retlw b'01111111' ; .GFEDCBA = '8'
 retlw b'01101111' ; .GF.DCBA = '9'
 retlw b'01110001' ; .GFE...A = 'F'
;Головна програма
Start
 bsf Status,RP0
 movlw b'00010000' ; RA0..RA3 outputs
 movwf TrisA ; RA4 input
 movlw b'00000000' ; RB0..RB7 outputs
 movwf TrisB
 clrwdt
 movlw b'00100111' ; Prescaler -> Timer0,
 movwf OptionR ; 1:256, Виставляю дільник частоти
 bcf Status,RP0 ;
 clrf Count ; покажчики
 clrf LEDIndex
 clrf LED0 ; індикатори
 clrf LED1
 clrf LED2
 clrf LED3
 clrf LED4
 clrf LED5
 clrf LED6
 clrf LED7
 clrf TimerL ; комірка рахунку
 clrf TimerM
 clrf TimerH
; Перекодуваня bin => BCD => код для індикаторів
Go
 bcf EECon1,2 ; заборона запису
 movlw 0
 movwf EEAdr
 bsf Status,RP0
 bsf EECon1,0
 bcf Status,RP0
 movf EEData,w
 movwf IF_H
 movlw 1
 movwf EEAdr
 bsf Status,RP0
 bsf EECon1,0
 bcf Status,RP0
 movf EEData,w
 movwf IF_M
 movlw 2
 movwf EEAdr
 bsf Status,RP0
 bsf EECon1,0
 bcf Status,RP0
 movf EEData,w
 movwf IF_L
 call Bin2LCD
 ;Регістри LED0..LED7 заповнені значеннями
 clrf IntCon ; обнулення біта переповнення
 clrf TimerH ; старший байт виміру
 clrf Timer0 ;  таймер
 clrf LEDIndex ; покажчик цифри
 movlw .60 ; початкове значення лічильника
 movwf Count ; 60 -> Count
; початок міряти й індикації: RA3 set input
 movlw b'00000000' ; 0 в усі порти
 movwf PortA
 bsf Status,RP0
 movlw b'00011000' ; RA0..RA2 output, RA3..RA4 input
 movwf TrisA ; RA4 input
 bcf Status,RP0
 LEDCycle movlw LED0
 addwf LEDIndex,W ; LED1 + LEDIndex -> W
 movwf FSR ; W -> FSR
 movf IndF,W ; LED(0..6) -> W
 call LCDTable ; W -> семисегментний код
 movwf Temp
 movlw 5
 bsf Status,ZF
 subwf LEDIndex,W
 btfss Status,ZF
 goto NoDot
 bsf Temp,7
NoDot movf Temp,W
 movwf PortB ; вивід цифри в PortB
 movf LEDIndex,W ; LEDIndex -> W
 movwf PortA ; вивід позиції в PortA
; Перевірка TMR0 на переповнення
 btfss IntCon,2
 goto DoNothing
 incf TimerH,F
 bcf IntCon,2
 goto O_K
 DoNothing nop
 nop
 nop
 O_K
 movlw T1
 movwf Temp
 Pause
 decfsz Temp,F
 goto Pause
 incf LEDIndex,F
 movlw 7 ; is 7th?
 bcf Status,ZF
 subwf LEDIndex,W
 btfss Status,ZF
 goto LEDCycle ; слідуюча цифра
 nop
 clrf LEDIndex
 decfsz Count,F
 goto LEDCycle ; next 7xLED
 nop
 movlw T2
 movwf Temp
 EndPause
 decfsz Temp,F
 goto EndPause
 nop
; Завершення міряти
Nx
 clrw
 movwf PortB ; RB0..RB7 = 0
 movwf PortA ; RA0..RA3 = 0
 bsf Status,RP0
 movlw b'00010000'
 movwf TrisA ; RA4 input
 bcf Status,RP0 ;
 nop
 nop
; Остання перевірка TMR0 на переповнення
 btfss IntCon,2
 goto Analyse
 bcf IntCon,2
 incf TimerH,F
; Аналіз вмісту попереднього дільника
 Analyse
 nop
 movf Timer0,W ; середній байт лічильника
 movwf TimerM ; TMR0 -> TimerM
 clrf TimerL
 CountIt
 incf TimerL,F
 bsf PortA,3 ; _| false impulz
 nop
 bcf PortA,3 ; |_
 nop
 movf Timer0,W ; actual Timer0 -> W
 bcf Status,ZF
 subwf TimerM,W
 btfsc Status,ZF
 goto CountIt
 incf TimerL,F
 comf TimerL,F
 incf TimerL,F
 incf TimerL,F ; молодший байт лічильника
 goto KeyQuery
 minusIF
 comf IF_L,f
 incf IF_L,f
 btfsc Status,ZF
 decf IF_M,f
 comf IF_M,f
 btfsc Status,ZF
 decf IF_H,f
 comf IF_H,f
 movf IF_L,w
 addwf TimerL,f
 btfss Status,CF
 goto min11
 incf TimerM,f
 btfss Status,ZF
 goto min11
 incf TimerH,f
min11
 movf IF_M,w
 addwf TimerM,f
 btfsc Status,CF
 incf TimerH,f
 movf IF_H,w
 addwf TimerH,f
 btfsc Status,CF ; результат від’ємний?
 goto Go1 ; ні
 btfsc Status,CF ; а не нуль?
 goto Go1 ; ні
 comf TimerL,f ; перетворення
 incf TimerL,f
 btfsc Status,ZF
 decf TimerM,f
 comf TimerM,f ; від’ємного
 btfsc Status,ZF
 decf TimerH,f
 comf TimerH,f ; результату
 Go1
 movlw 0
 movwf KeyWait
 goto Go
 plusIF
 movf IF_L,w
 addwf TimerL,f
 btfss Status,CF
 goto pl11
 incf TimerM,f
 btfss Status,ZF
 goto pl11
 
 incf TimerH,f
 pl11
 movf IF_M,w
 addwf TimerM,f
 btfsc Status,CF
 incf TimerH,f
 movf IF_H,w
 addwf TimerH,f
 goto Go1
 Edt
 clrf IntCon ; очистити всі біти
 movlw 0ah
 movwf LED7
 movlw b'00000000'
 movwf PortA
 bsf Status,RP0
 movlw b'00010000' ; RA0..RA3 вивід,RA4 вводу
 movwf TrisA
 bcf Status,RP0
 clrf LEDIndex ; покажчик цифри
EdtCycle
 movlw LED0
 addwf LEDIndex,W ; LED1 + LEDIndex -> W
 movwf FSR ; W -> FSR
 movf IndF,W ; LED(0..6) -> W
 call LCDTable ; W -> семисегментний код
 movwf Temp ; точка є?
 movlw 5
 bsf Status,ZF
 subwf LEDIndex,W
 btfss Status,ZF
 goto NoDot1
 bsf Temp,7
NoDot1
 movf Temp,W
 movwf PortB ; вивід цифри в PortB
 movf LEDIndex,W ; LEDIndex -> W
 movwf PortA ; вивід позиції в PortA
; Timing loop
  movlw .255
 movwf Temp
 Pause1
 decfsz Temp,F
 goto Pause1
 incf LEDIndex,F
 btfss LEDIndex,3
 goto EdtCycle ; следуюча цифра
 clrf LEDIndex
 goto FunOff
 NextFun
 movlw 0 ; вихід із цикла редагування
 movwf KeyWait
 goto Edt ; next 8xLED
 end