#INCLUDE "P16F877A.INC"
	CounterTable EQU 0X0F
	CounterTable2 EQU 0X10
	DCounter1 EQU 0X0C
	DCounter2 EQU 0X0D
	DCounter3 EQU 0X0E
	DCounter4 EQU 0X11
	ORG 0
	GOTO START

 	ORG 4
	BCF INTCON,0
	RLF PORTD,1
	Call Delay
	RETFIE


Table:
	addWF	PCL,F
	retLW	b'00010000'	;- 0		;Десятичные цифры
	retLW	b'01011011'	;- 1
	retLW	b'00001100'	;- 2
	retLW	b'00001001'	;- 3
	retLW	b'01000011'	;- 4
	retLW	b'00100001'	;- 5
	retLW	b'00100000'	;- 6
	retLW	b'00011011'	;- 7
	retLW	b'00000000'	;- 8
	retLW	b'00000001'	;- 9
	retLW	b'01111111'	;- заготовка

START
	CLRF CounterTable
	CLRF CounterTable2
	BSF STATUS,RP0
	CLRF TRISC
	BCF STATUS,RP0
	MOVLW b'01111111'
	MOVWF PORTC
	MOVLW b'11111111'
	MOVWF PORTC
	MOVLW b'10100000'
	MOVWF INTCON
START_PROG:
	GOTO START_PROG
Delay:
	CLRWDT
	MOVLW 0xff
	MOVWF DCounter1
	MOVLW 0xff
	MOVWF DCounter2
	MOVLW 0xff
	MOVWF DCounter3
	MOVLW 0x02
	MOVWF DCounter4
LOOP:
	DECFSZ DCounter1, 1
	GOTO LOOP
	GOTO Delay1
Delay1:
	MOVLW 0xff
	MOVWF DCounter1
	DECFSZ DCounter2, 1
	GOTO LOOP
 	GOTO Delay2
Delay2:
	MOVLW 0xff
	MOVWF DCounter1
	MOVLW 0xff
	MOVWF DCounter2
	DECFSZ DCounter3, 1
	GOTO LOOP
	GOTO Delay3
Delay3:
	MOVLW 0xff
	MOVWF DCounter1
	MOVLW 0xff
	MOVWF DCounter2
	MOVLW 0xff
	MOVWF DCounter3
	DECFSZ DCounter4, 1
	GOTO LOOP
	Return
	END