MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-3- BASTAN VE SONDAN BIRER TANE YANARAK AKARDION;---------------------------------------------------------------- CALL HIZLANTEKRAR3;PORTA VE PORTB'DEN BIRER TANE YAKARAK ORTADA BULUS MOVLW B'000001' MOVWF PORTA MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'000011' MOVWF PORTA MOVLW B'11000000' MOVWF PORTB CALL BEKLE MOVLW B'000111' MOVWF PORTA MOVLW B'11100000' MOVWF PORTB CALL BEKLE MOVLW B'001111' MOVWF PORTA MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'101111' MOVWF PORTA MOVLW B'11110100' MOVWF PORTB CALL BEKLE;PORTB VE PORTE YANIYOR MOVLW B'11110110' MOVWF PORTB MOVLW B'001' MOVWF PORTE CALL BEKLE MOVLW B'11110111' MOVWF PORTB MOVLW B'011' MOVWF PORTE CALL BEKLE;PORTE VE PORTD YANIYOR MOVLW B'111' MOVWF PORTE MOVLW B'10000000' MOVWF PORTD CALL BEKLE;PORTD VE PORTC YANIYOR MOVLW B'11000000' MOVWF PORTD MOVLW B'00000001' MOVWF PORTC CALL BEKLEDON20 RRF PORTD BSF PORTD,7 RLF PORTC BSF PORTC,0 CALL BEKLE BTFSS PORTC,7 GOTO DON20;AKARDION PORTA VE PORTB'DEN ITIBAREN SONUYOR MOVLW B'101110' MOVWF PORTA MOVLW B'01110111' MOVWF PORTB CALL BEKLE MOVLW B'101100' MOVWF PORTA MOVLW B'00110111' MOVWF PORTB CALL BEKLE MOVLW B'101000' MOVWF PORTA MOVLW B'00010111' MOVWF PORTB CALL BEKLE MOVLW B'100000' MOVWF PORTA MOVLW B'00000111' MOVWF PORTB CALL BEKLE MOVLW B'000000' MOVWF PORTA MOVLW B'00000011' MOVWF PORTB CALL BEKLE;PORTE VE PORTB SONUYOR MOVLW B'110' MOVWF PORTE MOVLW B'00000001' MOVWF PORTB CALL BEKLE MOVLW B'100' MOVWF PORTE MOVLW B'00000000' MOVWF PORTB CALL BEKLE;PORTE VE PORTD SONUYOR MOVLW B'000' MOVWF PORTE MOVLW B'01111111' MOVWF PORTD CALL BEKLE;PORTC VE PORTD SONUYOR MOVLW B'11111110' MOVWF PORTC MOVLW B'00111111' MOVWF PORTD CALL BEKLEDON21 RLF PORTC BCF PORTC,0 RRF PORTD BCF PORTD,7 CALL BEKLE BTFSC PORTC,7 GOTO DON21 BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK3 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH3 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK3 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR3 ;GERI DONFLH3 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-4- PORTA'DAN ITIBAREN 5 LED YAKARAK SONA KADAR GIT(BESLI KARA SIMSEK);---------------------------------------------------------------- CALL HIZLANTEKRAR4 MOVLW B'000001' MOVWF PORTA CALL BEKLE MOVLW B'000011' MOVWF PORTA CALL BEKLE MOVLW B'000111' MOVWF PORTA CALL BEKLE MOVLW B'001111' MOVWF PORTA CALL BEKLE MOVLW B'101111' MOVWF PORTA CALL BEKLE;PORTE'YE GECIYOR MOVLW B'101110' MOVWF PORTA MOVLW B'001' MOVWF PORTE CALL BEKLE MOVLW B'101100' MOVWF PORTA MOVLW B'011' MOVWF PORTE CALL BEKLE MOVLW B'101000' MOVWF PORTA MOVLW B'111' MOVWF PORTE CALL BEKLE;PORTC'YE GECIYOR MOVLW B'100000' MOVWF PORTA MOVLW B'111' MOVWF PORTE MOVLW B'00000001' MOVWF PORTC CALL BEKLE CLRF PORTA MOVLW B'111' MOVWF PORTE MOVLW B'00000011' MOVWF PORTC CALL BEKLE MOVLW B'110' MOVWF PORTE MOVLW B'00000111' MOVWF PORTC CALL BEKLE MOVLW B'100' MOVWF PORTE MOVLW B'00001111' MOVWF PORTC CALL BEKLE MOVLW B'000' MOVWF PORTE MOVLW B'00011111' MOVWF PORTC CALL BEKLEDON22 RLF PORTC BCF PORTC,0 CALL BEKLE BTFSS PORTC,7 GOTO DON22 MOVLW B'11110000' MOVWF PORTC MOVLW B'00000001' MOVWF PORTD CALL BEKLEDON23 RLF PORTC BCF PORTC,0 RLF PORTD BSF PORTD,0 CALL BEKLE BTFSS PORTD,4 GOTO DON23DON24 RLF PORTD BCF PORTD,0 CALL BEKLE BTFSS PORTD,7 GOTO DON24 MOVLW B'11110000' MOVWF PORTD MOVLW B'00000001' MOVWF PORTB CALL BEKLE MOVLW B'11100000' MOVWF PORTD MOVLW B'00000011' MOVWF PORTB CALL BEKLE MOVLW