MOVWF PORTA CALL BEKLE MOVLW B'101110' MOVWF PORTA CALL BEKLE MOVLW B'101111' MOVWF PORTA CALL BEKLE;PORTA'DAN ITIBAREN GERI SONSUN MOVLW B'101110' MOVWF PORTA CALL BEKLE MOVLW B'101100' MOVWF PORTA CALL BEKLE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'100000' MOVWF PORTA CALL BEKLE MOVLW B'000000' MOVWF PORTA CALL BEKLE;PORTE GERI SONSUN MOVLW B'110' MOVWF PORTE CALL BEKLE MOVLW B'100' MOVWF PORTE CALL BEKLE MOVLW B'000' MOVWF PORTE CALL BEKLE;PORTC GERI SONSUN MOVLW B'11111111' MOVWF PORTCDON65 RLF PORTC BCF PORTC,0 CALL BEKLE BTFSC PORTC,7 GOTO DON65;PORTD GERI SONSUN MOVLW B'11111111' MOVWF PORTDDON66 RLF PORTD BCF PORTD,0 CALL BEKLE BTFSC PORTD,7 GOTO DON66;PORTB GERI SONSUN MOVLW B'11110110' 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 MOVLW B'00000000' MOVWF PORTB CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK5 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH5 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK5 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR5 ;GERI DONFLH5 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-6- PORTA'DAN ILERIYE 1-11-21-31. LEDLER YANSIN VE BIRER ARTSIN;---------------------------------------------------------------- CALL HIZLANTEKRAR6;PORTA 0 + PORTC 2 + PORTD 4+ PORTB 7 LEDLERI YANSIN MOVLW B'000001' MOVWF PORTA MOVLW B'00000100' MOVWF PORTC MOVLW B'00010000' MOVWF PORTD MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'000011' MOVWF PORTA MOVLW B'00001100' MOVWF PORTC MOVLW B'00110000' MOVWF PORTD CALL BEKLE MOVLW B'000111' MOVWF PORTA MOVLW B'00011100' MOVWF PORTC MOVLW B'01110000' MOVWF PORTD CALL BEKLE MOVLW B'001111' MOVWF PORTA MOVLW B'00111100' MOVWF PORTC MOVLW B'11110000' MOVWF PORTD CALL BEKLE MOVLW B'101111' MOVWF PORTA MOVLW B'01111100' MOVWF PORTC MOVLW B'10000001' MOVWF PORTB CALL BEKLE MOVLW B'001' MOVWF PORTE MOVLW B'11111100' MOVWF PORTC MOVLW B'10000011' MOVWF PORTB CALL BEKLE MOVLW B'011' MOVWF PORTE MOVLW B'11110001' MOVWF PORTD MOVLW B'10000111' MOVWF PORTB CALL BEKLE MOVLW B'111' MOVWF PORTE MOVLW B'11110011' MOVWF PORTD MOVLW B'10010111' MOVWF PORTB CALL BEKLE MOVLW B'111111101' MOVWF PORTC MOVLW B'11110111' MOVWF PORTD MOVLW B'10110111' MOVWF PORTB CALL BEKLE MOVLW B'111111111' MOVWF PORTC MOVLW B'11111111' MOVWF PORTD MOVLW B'11110111' MOVWF PORTB CALL BEKLE;GERI SONME ISLEMI MOVLW B'101110' MOVWF PORTA MOVLW B'11111011' MOVWF PORTC MOVLW B'11101111' MOVWF PORTD CALL BEKLE;2.LEDLER SONUYOR MOVLW B'101100' MOVWF PORTA MOVLW B'11110011' MOVWF PORTC MOVLW B'11001111' MOVWF PORTD CALL BEKLE;3.LEDLER SONUYOR MOVLW B'101000' MOVWF PORTA MOVLW B'11100011' MOVWF PORTC MOVLW B'10001111' MOVWF PORTD CALL BEKLE;4.LEDLER SONUYOR MOVLW B'100000' MOVWF PORTA MOVLW B'11000011' MOVWF PORTC MOVLW B'00001111' MOVWF PORTD CALL BEKLE;5.LEDLER SONUYOR MOVLW B'000000' MOVWF PORTA MOVLW B'10000011' MOVWF PORTC MOVLW B'11110110' MOVWF PORTB CALL BEKLE;6.LEDLER SONUYOR MOVLW B'110' MOVWF PORTE MOVLW B'00000011' MOVWF PORTC MOVLW B'11110100' MOVWF PORTB CALL BEKLE;7.LEDLER SONUYOR MOVLW B'100' MOVWF PORTE MOVLW B'00001110' MOVWF PORTD MOVLW B'11110000' MOVWF PORTB CALL BEKLE;8.LEDLER SONUYOR MOVLW B'000' MOVWF PORTE MOVLW B'00001100' MOVWF PORTD MOVLW B'11100000' MOVWF PORTB CALL BEKLE;9.LEDLER SONUYOR MOVLW B'00000010' MOVWF PORTC MOVLW B'00001000' MOVWF PORTD MOVLW B'11000000' MOVWF PORTB CALL BEKLE;10.LEDLER SONUYOR MOVLW B'00000000' MOVWF PORTC MOVLW B'00000000' MOVWF PORTD MOVLW