PORTB CALL BEKLE;GERI DONUS HAREKETLERI -PORTB MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'01000000' MOVWF PORTB CALL BEKLE MOVLW B'00100000' MOVWF PORTB CALL BEKLE MOVLW B'00010000' MOVWF PORTB CALL BEKLE MOVLW B'00000100' MOVWF PORTB CALL BEKLE MOVLW B'00000010' MOVWF PORTB CALL BEKLE MOVLW B'00000001' MOVWF PORTB CALL BEKLE;PORTD LEDLERI GERI DONUS MOVLW B'00000000' MOVWF PORTB MOVLW B'10000000' MOVWF PORTD CALL BEKLEDON77 RRF PORTD BCF PORTD,7 CALL BEKLE BTFSS PORTD,0 GOTO DON77;PORTC LEDLERI GERI DONUS MOVLW B'00000000' MOVWF PORTD MOVLW B'10000000' MOVWF PORTC CALL BEKLEDON78 RRF PORTC BCF PORTC,7 CALL BEKLE BTFSS PORTC,0 GOTO DON78;PORTE LEDLERI GERI DONUS MOVLW B'00000000' MOVWF PORTC MOVLW B'100' MOVWF PORTE CALL BEKLE MOVLW B'010' MOVWF PORTE CALL BEKLE MOVLW B'001' MOVWF PORTE CALL BEKLE;PORTB LEDLERI GERI DONUS MOVLW B'000' MOVWF PORTE MOVLW B'100000' MOVWF PORTA CALL BEKLE MOVLW B'001000' MOVWF PORTA CALL BEKLE MOVLW B'000100' MOVWF PORTA CALL BEKLE MOVLW B'000010' MOVWF PORTA CALL BEKLE MOVLW B'000001' MOVWF PORTA CALL BEKLE MOVLW B'000000' MOVWF PORTA CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK9 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH9 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK9 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR9 ;GERI DONFLH9 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL GOTO BASLA;-------------------------------------------------------HIZLAN MOVLW .3 ;W REG'E DECIMAL 3 SAYISINI YUKLE (3 DEFA TEKRAR ETMEK ICIN) MOVWF ADET ;W REG'DEKI 3 SAYISINI ADET DEGISKENINE YUKLE MOVLW B'001' ;W REG'E BINARY'001' SAYISINI YUKLE (3 FARKLI HIZ ICIN) MOVWF HIZ ;W REG'DEKI '0001' SAYISINI HIZ DEGISKENINE YUKLE RETURN;-------------------------------------------------------SIL CLRF PORTA CLRF PORTB CLRF PORTC CLRF PORTD CLRF PORTE RETURN;-------------------------------------------------------FLASH MOVLW .3 MOVWF ADETFLSH1 MOVLW B'101111' MOVWF PORTA MOVLW B'11110111' MOVWF PORTB MOVLW B'11111111' MOVWF PORTC MOVLW B'11111111' MOVWF PORTD MOVLW B'111' MOVWF PORTE CALL BEKLE CALL BEKLE CALL BEKLE CLRF PORTA CLRF PORTB CLRF PORTC CLRF PORTD CLRF PORTE CALL BEKLE CALL BEKLE CALL BEKLE DECFSZ ADET,1 GOTO FLSH1 RETURN; 1/2 SEC BEKLE SUBROUTINE WITH 4MHz CLOCK;-------------------------------------------------------BEKLE BTFSS HIZ,0 GOTO HIZ2 GOTO BEKLE1HIZ2 BTFSS HIZ,1 GOTO HIZ3 GOTO BEKLE2HIZ3 BTFSS HIZ,2 GOTO BEKLE3 GOTO BEKLE3BEKLE1 MOVLW .150 ;W REG'E 200 SAYISINI AT MOVWF S1 ;S1 DEGERINI W'DEN ALSAY1 MOVLW .150 ;WREG'E 200 SAYISINI AT MOVWF S2 ;S2 DEGERINI W'DEN AL MOVLW .150 MOVWF S3; MOVLW .150; MOVWF S4SAY2 DECFSZ S2,1 ;DECREMENT F SKIP IF 0- SAYIYI AZALT, 0 ISE BIR KOMUT ATLA GOTO SAY2 ;0 DEGILSE, D2'YE GITSAY3 DECFSZ S3,1 ;DEC F Skip if Zero- SAYIYI AZALT, 0 ISE BIR KOMUT ATLA GOTO SAY3 ;0 DEGILSE, A1'E GIT;SAY4 DECFSZ S4,1; GOTO SAY4 DECFSZ S1,1 ;DEC F Skip if Zero- SAYIYI AZALT, 0 ISE BIR KOMUT ATLA GOTO SAY1 ;0 DEGILSE, A1'E GIT RETURNBEKLE2 MOVLW .120 ;W REG'E 200 SAYISINI AT MOVWF S1 ;S1 DEGERINI W'DEN ALSAY21 MOVLW .120 ;WREG'E 200 SAYISINI AT MOVWF S2 ;S2 DEGERINI W'DEN AL MOVLW .120 MOVWF S3SAY22 DECFSZ S2,1 ;DECREMENT F SKIP IF 0- SAYIYI AZALT, 0 ISE BIR KOMUT ATLA GOTO SAY22 ;0 DEGILSE, D2'YE GITSAY23 DECFSZ S3,1 ;DEC F Skip if Zero- SAYIYI AZALT, 0 ISE BIR KOMUT ATLA GOTO