B'11000000' MOVWF PORTD MOVLW B'00000111' MOVWF PORTB CALL BEKLE MOVLW B'10000000' MOVWF PORTD MOVLW B'00010111' MOVWF PORTB CALL BEKLE CLRF PORTD MOVLW B'00110111' MOVWF PORTB CALL BEKLE MOVLW B'01110110' MOVWF PORTB CALL BEKLE MOVLW B'11110100' MOVWF PORTB CALL BEKLE MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'11100000' MOVWF PORTB CALL BEKLE MOVLW B'11000000' MOVWF PORTB CALL BEKLE MOVLW B'10000000' MOVWF PORTB CALL BEKLE CLRF PORTB CALL BEKLE;-------------;5 LED YAKARAK GERI DONUS MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'11000000' MOVWF PORTB CALL BEKLE MOVLW B'11100000' MOVWF PORTB CALL BEKLE MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'11110100' MOVWF PORTB CALL BEKLE MOVLW B'01110110' MOVWF PORTB CALL BEKLE MOVLW B'00110111' MOVWF PORTB CALL BEKLE;PORTD'YE GECIYOR MOVLW B'00010111' MOVWF PORTB MOVLW B'10000000' MOVWF PORTD CALL BEKLE MOVLW B'00000111' MOVWF PORTB MOVLW B'11000000' MOVWF PORTD CALL BEKLE MOVLW B'00000011' MOVWF PORTB MOVLW B'11100000' MOVWF PORTD CALL BEKLE MOVLW B'00000001' MOVWF PORTB MOVLW B'11110000' MOVWF PORTD CALL BEKLE CLRF PORTB MOVLW B'11111000' MOVWF PORTD CALL BEKLEDON25 RRF PORTD BCF PORTD,7 CALL BEKLE BTFSS PORTD,0 GOTO DON25;PORTC'YE GECIYOR MOVLW B'00001111' MOVWF PORTD MOVLW B'10000000' MOVWF PORTC CALL BEKLEDON26 RRF PORTD BCF PORTD,0 RRF PORTC BSF PORTC,7 CALL BEKLE BTFSS PORTC,3 GOTO DON26DON27 RRF PORTC BCF PORTC,7 CALL BEKLE BTFSS PORTC,0 GOTO DON27;PORTE'YE GECIYOR MOVLW B'100' MOVWF PORTE MOVLW B'00001111' MOVWF PORTC CALL BEKLE MOVLW B'110' MOVWF PORTE MOVLW B'00000111' MOVWF PORTC CALL BEKLE MOVLW B'111' MOVWF PORTE MOVLW B'00000011' MOVWF PORTC CALL BEKLE;PORTA'YA GECIYOR MOVLW B'00000001' MOVWF PORTC MOVLW B'111' MOVWF PORTE MOVLW B'100000' MOVWF PORTA CALL BEKLE CLRF PORTC MOVLW B'111' MOVWF PORTE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'011' MOVWF PORTA MOVLW B'101100' MOVWF PORTA CALL BEKLE MOVLW B'001' MOVWF PORTA MOVLW B'101110' MOVWF PORTA CALL BEKLE CLRF PORTE MOVLW B'101111' MOVWF PORTA CALL BEKLE MOVLW B'001111' MOVWF PORTA CALL BEKLE MOVLW B'000111' MOVWF PORTA CALL BEKLE MOVLW B'000011' MOVWF PORTA CALL BEKLE MOVLW B'000001' MOVWF PORTA CALL BEKLE CLRF PORTA CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK4 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH4 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK4 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR4 ;GERI DONFLH4 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;--;PORTB'DEN GERIYE DOGRU EN BASA KADAR YANARAK GITSIN;-- CALL HIZLANTEKRAR5;PORTB LEDLERI GERIYE DOGRU YANSIN MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'11000000' MOVWF PORTB CALL BEKLE MOVLW B'11100000' MOVWF PORTB CALL BEKLE MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'11110100' MOVWF PORTB CALL BEKLE MOVLW B'11110110' MOVWF PORTB CALL BEKLE MOVLW B'11110111' MOVWF PORTB CALL BEKLE;PORTD LEDLERI GERIYE DOGRU YANSIN MOVLW B'10000000' MOVWF PORTD CALL BEKLEDON63 RRF PORTD BSF PORTD,7 CALL BEKLE BTFSS PORTD,0 GOTO DON63;PORTC LEDLERI GERIYE DOGRU YANSIN MOVLW B'10000000' MOVWF PORTC CALL BEKLEDON64 RRF PORTC BSF PORTC,7 CALL BEKLE BTFSS PORTC,0 GOTO DON64;PORTE LEDLERI GERIYE DOGRU YANSIN MOVLW B'100' MOVWF PORTE CALL BEKLE MOVLW B'110' MOVWF PORTE CALL BEKLE MOVLW B'111' MOVWF PORTE CALL BEKLE;PORTA LEDLERI GERIYE DOGRU YANSIN MOVLW B'100000' MOVWF PORTA CALL BEKLE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'101100'