;-24 saat dilimi--
LIST P=PIC16F886
INCLUDE "P16F886.INC"
__CONFIG _CONFIG1, b'000000000100000'
;-----------------------------
TM1 equ 0x21
TM2 equ 0x22
SAYI1 equ 0x23
SAYI2 equ 0x24
SAYI3 equ 0x25
SAYI4 equ 0x26
SAYI5 equ 0x27
DEGER equ 0x28
BIR equ 0x29
ON equ 0x2A
YUZ equ 0x2B
BIN equ 0x2C
RAKAM equ 0x2D
RAKAM1 equ 0x2E
TEMP equ 0x2F
sayac equ 0x41
sayac2 equ 0x42
ONBIN equ 0x43
YUZBIN equ 0x44
ILK equ 0x45
IKISAY equ 0x46
BIRSAY equ 0x47
;-----------------------------
#define BIRLER PORTA,0
#define ONLAR PORTA,1
#define YUZLER PORTA,2
#define BINLER PORTA,3
#define ONBINLER PORTA,4
#define YUZBINLER PORTA,5
#define SANIYELED PORTB,1
#define DAKIKALED PORTB,2
#define SANIYE PORTB,4
#define DAKIKA PORTB,5
#define SAAT PORTB,6
#define MOD PORTB,0
;-----------------------------
banksel ANSEL
clrf ANSEL
clrf ANSELH
clrf TM1
clrf TM2
banksel TRISA
movlw b'00000000'
movwf TRISA
movwf TRISC
movlw b'11110001'
movwf TRISB
banksel PORTB
clrf PORTB
clrf PORTA
clrf PORTC
clrf BIR
clrf ON
clrf YUZ
clrf BIN
clrf ONBIN
clrf YUZBIN
clrf ILK
clrf SAYI1
clrf SAYI2
clrf SAYI3
clrf SAYI4
clrf IKISAY
;-----------------------------------------------------
ART
bsf SANIYELED
bsf DAKIKALED
incf BIR,F
movlw .10
subwf BIR,W
btfss STATUS,Z
goto ASON
clrf BIR
incf ON,F
movlw .6
subwf ON,W
btfss STATUS,Z
goto ASON
clrf ON
ARTDAKIKA
incf YUZ,F
movlw .10
subwf YUZ,W
btfss STATUS,Z
goto ASON
clrf YUZ
incf BIN,F
movlw .6
subwf BIN,W
btfss STATUS,Z
goto ASON
clrf BIN
ARTSAAT
;-------------------------
incf ILK,F ;onbınlerde 24 defa sayacak
movlw .24 ;yani 23,59 da sıfırlayacak.
subwf ILK,W
btfss STATUS,Z
goto ILK1
clrf ILK
clrf ONBIN
clrf YUZBIN
goto ASON
;------------------------
ILK1
incf ONBIN,F
movlw .10
subwf ONBIN,W
btfss STATUS,Z
goto ASON
clrf ONBIN
incf YUZBIN,F
movlw .3
subwf YUZBIN,W
btfss STATUS,Z
goto ASON
clrf YUZBIN
ASON ;sanıyeyi gösteren ledler için
incf IKISAY,F
movlw .2
subwf IKISAY,W
btfss STATUS,Z
goto ASON2
bcf SANIYELED
bcf DAKIKALED
clrf IKISAY
ASON2
call EKRAN
btfss PORTB,6
goto ASON2
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
AZALDAKIKA
movlw .1
subwf YUZ,F
btfsc STATUS,C
goto ON9
clrf YUZ
movlw .1
subwf BIN,F
btfsc STATUS,C
goto YUZ9
clrf BIN
AZALSAAT
movlw .1
subwf ONBIN,F
btfsc STATUS,C
goto BIN9
clrf ONBIN
movlw .1
subwf YUZBIN,F
btfsc STATUS,C
goto ONBIN9
clrf YUZBIN
goto ESON
;-----------------------
YUZBIN9
movlw .1
movwf YUZBIN
ONBIN9
decfsz ILK
movlw .9
movwf ONBIN
BIN9
movlw .5
movwf BIN
YUZ9
movlw .9
movwf YUZ
ON9
movlw .5
movwf ON
BIR9
movlw .9
movwf BIR
ESON
call EKRAN
btfss PORTB,6
goto ESON
goto ANA
;-----------------------
ANA
call EKRAN
movlw D'01'
movwf sayac
movlw D'62' ;saniyeyi buradan ayarla
movwf sayac2
DUS
call EKRAN
decfsz sayac
goto DUS
DUS2
call EKRAN
btfss MOD
goto KONTROL_ART
decfsz sayac2
goto DUS2
goto ART
;----------------------
EKRAN
movlw .1
movwf RAKAM
clrf PORTC
movlw .255
movwf PORTA
GOSTER
bsf BIRLER
bcf ONLAR
bcf YUZLER
bcf BINLER
bcf ONBINLER
bcf YUZBINLER
movf BIR,W
call TABLO
movwf PORTC
call GECIKME
clrf PORTC
bcf BIRLER
bsf ONLAR
bcf YUZLER
bcf BINLER
bcf ONBINLER
bcf YUZBINLER
movf ON,W
call TABLO
movwf PORTC
call GECIKME
clrf PORTC
bcf BIRLER
bcf ONLAR
bsf YUZLER
bcf BINLER
bcf ONBINLER
bcf YUZBINLER
movf YUZ,W
call TABLO
movwf PORTC
call GECIKME
clrf PORTC
bcf BIRLER
bcf ONLAR
bcf YUZLER
bsf BINLER
bcf ONBINLER
bcf YUZBINLER
movf BIN,W
call TABLO
movwf PORTC
call GECIKME
clrf PORTC
bcf BIRLER
call GECIKME ;IŞIK KISMASI
bcf ONLAR
call GECIKME ;IŞIK KISMASI
bcf YUZLER
call GECIKME ;IŞIK KISMASI
bcf BINLER
call GECIKME ;IŞIK KISMASI
bsf ONBINLER
call GECIKME ;IŞIK KISMASI
bcf YUZBINLER
call GECIKME ;IŞIK KISMASI
movf ONBIN,W
call TABLO
movwf PORTC
call GECIKME
clrf PORTC
bcf BIRLER
call GECIKME ;IŞIK KISMASI
bcf ONLAR
call GECIKME ;IŞIK KISMASI
bcf YUZLER
call GECIKME ;IŞIK KISMASI
bcf BINLER
call GECIKME ;IŞIK KISMASI
bcf ONBINLER
call GECIKME ;IŞIK KISMASI
bsf YUZBINLER
call GECIKME ;IŞIK KISMASI
movf YUZBIN,W
call TABLO
movwf PORTC
call GECIKME
decfsz RAKAM,F
goto GOSTER
return
;-----------------------
GECIKME
movlw .5
movwf TM1
D11
movlw .55
movwf TM2
D22
decfsz TM2,F
goto D22
decfsz TM1,F
goto D11
return
;---------------------
TABLO
addwf PCL,F
retlw 0x3F
retlw 0x06
retlw 0x5B
retlw 0x4F
retlw 0x66
retlw 0x6D
retlw 0x7D
retlw 0x07
retlw 0x7F
retlw 0x6F
retlw 0x77
retlw 0x7C
retlw 0x39
retlw 0x5E
retlw 0x79
retlw 0x71
retlw 0x80
;--------------------
KONTROL_ART
call EKRAN
btfss SAAT
goto ARTSAAT
btfss DAKIKA
goto ARTDAKIKA
btfss SANIYE
goto ART
btfsc MOD
goto KONTROL_ART
goto ANA
END
