Those are really old.Why is so much "thank you" for something that does not work?
Trolling again, eh?
I would not be too sure about past behaviour of some unknown circuit.It wouldn't work for 3 years and suddenly think "geez, I'll stop working".
Mr xshax has probably not done something correct.
OK, then where are the pictures? It is possible someone can spot something you missed.i made this circuit accurately,then write the hex into pic16f84a. when i give the supply nothing will happen.i measure voltages of 1,2,3,4 those are positive.but the question is how common cathode displays are work. is there anyone here work this project.....!
BTW did not mean the other posters trying to help, I meant Xahax. Just wanted to make that clear.How can someone not understand the basic concepts of a forum yet want to be able to create a relatively complicated project like a pic operated counter?
;www.profahmet.com.tr.tc ww.profahmet.tr.cx
LIST P=16F84A
#include "P16F84A.INC"
__CONFIG _WDT_OFF &_XT_OSC &_PWRTE_ON &_CP_OFF
;
LSB EQU H'0021'
MSB EQU H'0022'
SAYI1 EQU H'0023'
SAYI2 EQU H'0024'
SAYI3 EQU H'0025'
SAYI4 EQU H'0026'
SAYI5 EQU H'0027'
DEGER EQU H'0028'
BIR EQU H'0029'
ON EQU H'002A'
YUZ EQU H'002B'
BIN EQU H'002C'
RAKAM EQU H'002D'
RAKAM1 EQU H'002E'
TEMP EQU H'002F'
;-------------
BASLA
CLRF MSB
CLRF LSB
BSF STATUS,5
MOVLW B'11110000'
MOVWF TRISA
MOVLW B'10000000'
MOVWF TRISB
BCF STATUS,5
CLRF PORTB
CLRF PORTA
CLRF BIR
CLRF ON
CLRF YUZ
CLRF BIN
CLRF SAYI1
CLRF SAYI2
CLRF SAYI3
CLRF SAYI4
GOTO ANA
;-----------
ART
INCF BIR,F
MOVLW .10
SUBWF BIR,W
BTFSS STATUS,Z
GOTO ASON
CLRF BIR
INCF ON,F
MOVLW .10
SUBWF ON,W
BTFSS STATUS,Z
GOTO ASON
CLRF ON
INCF YUZ,F
MOVLW .10
SUBWF YUZ,W
BTFSS STATUS,Z
GOTO ASON
CLRF YUZ
INCF BIN,F
MOVLW .10
SUBWF BIN,W
BTFSS STATUS,Z
GOTO ASON
CLRF BIN
ASON
CALL EKRAN
BTFSS PORTB,7
GOTO ASON
GOTO ANA
;-----------
AZAL
MOVLW .1
SUBWF BIR,F
BTFSC STATUS,C
GOTO ESON
CLRF BIR
MOVLW .1
SUBWF ON,F
BTFSC STATUS,C
GOTO BIR9
CLRF ON
MOVLW .1
SUBWF YUZ,F
BTFSC STATUS,C
GOTO ON9
CLRF YUZ
MOVLW .1
SUBWF BIN,F
BTFSC STATUS,C
GOTO YUZ9
CLRF BIN
GOTO ESON
;----------
YUZ9
MOVLW .9
MOVWF YUZ
ON9
MOVLW .9
MOVWF ON
BIR9
MOVLW .9
MOVWF BIR
ESON
CALL EKRAN
BTFSS PORTA,4
GOTO ESON
GOTO ANA
;-----------
ANA
CALL EKRAN
BTFSS PORTA,4
GOTO AZAL
BTFSS PORTB,7
GOTO ART
GOTO ANA
;----------
EKRAN
MOVLW .5
MOVWF RAKAM
CLRF PORTB
MOVLW .255
MOVWF PORTA
GOSTER
BCF PORTA,0
BSF PORTA,1
BSF PORTA,2
BSF PORTA,3
MOVF BIR,W
CALL TABLO
MOVWF PORTB
CALL GECIKME
CALL GECIKME
CLRF PORTB
BSF PORTA,0
BCF PORTA,1
BSF PORTA,2
BSF PORTA,3
MOVF ON,W
CALL TABLO
MOVWF PORTB
CALL GECIKME
CLRF PORTB
BSF PORTA,0
BSF PORTA,1
BCF PORTA,2
BSF PORTA,3
MOVF YUZ,W
CALL TABLO
MOVWF PORTB
CALL GECIKME
CLRF PORTB
BSF PORTA,0
BSF PORTA,1
BSF PORTA,2
BCF PORTA,3
MOVF BIN,W
CALL TABLO
MOVWF PORTB
CALL GECIKME
DECFSZ RAKAM,F
GOTO GOSTER
RETURN
GECIKME
MOVLW .5
MOVWF MSB
D11
MOVLW .55
MOVWF LSB
D22
DECFSZ LSB,F
GOTO D22
DECFSZ MSB,F
GOTO D11
RETURN
TABLO
ADDWF PCL,F
RETLW h'3F'
RETLW h'06'
RETLW h'5B'
RETLW h'4F'
RETLW h'66'
RETLW h'6D'
RETLW h'7D'
RETLW h'07'
RETLW h'7F'
RETLW h'6F'
RETLW h'77'
RETLW h'7C'
RETLW h'39'
RETLW h'5E'
RETLW h'79'
RETLW h'71'
RETLW h'80'
;-------------------------------------------------------------------
END