DEGIL ISE MUK1 RUTININE GIT GOTO FLH1 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK1 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR ;TEKRAR RUTININE GITFLH1 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-2- UC LED YAK VE SONA KADAR 3'LU OLARAK GIT (UCLU KARA SIMSEK);---------------------------------------------------------------- CALL HIZLAN;PORTA LEDLERI 0-1-2-3-5TEKRAR2 MOVLW B'000001' MOVWF PORTA CALL BEKLE MOVLW B'000011' MOVWF PORTA CALL BEKLE MOVLW B'000111' MOVWF PORTA CALL BEKLE MOVLW B'001110' MOVWF PORTA CALL BEKLE MOVLW B'101100' MOVWF PORTA CALL BEKLE;3'LU HAREKET PORTE'YE GECIYOR MOVLW B'101000' MOVWF PORTA MOVLW B'001' MOVWF PORTE CALL BEKLE MOVLW B'100000' MOVWF PORTA MOVLW B'011' MOVWF PORTE CALL BEKLE MOVLW B'000000' MOVWF PORTA MOVLW B'111' MOVWF PORTE CALL BEKLE;3'LU HAREKET PORTC'YE GECIYOR MOVLW B'110' MOVWF PORTE MOVLW B'00000001' MOVWF PORTC CALL BEKLE MOVLW B'100' MOVWF PORTE MOVLW B'00000011' MOVWF PORTC CALL BEKLE CLRF PORTE MOVLW B'00000111' MOVWF PORTC CALL BEKLEDON13 RLF PORTC BCF PORTC,0 CALL BEKLE BTFSS PORTC,7 GOTO DON13;3'LU HAREKET PORTC'DEN PORTD'YE GECIS MOVLW B'00000001' MOVWF PORTD RLF PORTC BCF PORTC,0 CALL BEKLEDON14 RLF PORTC BCF PORTC,0 RLF PORTD BSF PORTD,0 CALL BEKLE BTFSS PORTD,2 GOTO DON14DON15 RLF PORTD BCF PORTD,0 CALL BEKLE BTFSS PORTD,7 GOTO DON15;3'LU HAREKET PORTD'DEN PORTB'YE GECIS MOVLW B'00000001' MOVWF PORTB RLF PORTD BCF PORTD,0 CALL BEKLEDON16 RLF PORTD BCF PORTD,0 RLF PORTB BSF PORTB,0 CALL BEKLE BTFSS PORTB,2 GOTO DON16 MOVLW B'00010110' MOVWF PORTB CALL BEKLE MOVLW B'00110100' MOVWF PORTB CALL BEKLE MOVLW B'01110000' MOVWF PORTB CALL BEKLEDON17 RLF PORTB BCF PORTB,0 CALL BEKLE BTFSC PORTB,7 GOTO DON17;3'LU HAREKET 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'01110000' MOVWF PORTB CALL BEKLE MOVLW B'00110100' MOVWF PORTB CALL BEKLE MOVLW B'00010110' MOVWF PORTB CALL BEKLE MOVLW B'00000111' MOVWF PORTB CALL BEKLE MOVLW B'00000011' MOVWF PORTB MOVLW B'10000000' MOVWF PORTD CALL BEKLE MOVLW B'00000001' MOVWF PORTB MOVLW B'11000000' MOVWF PORTD CALL BEKLE MOVLW B'00000000' MOVWF PORTB MOVLW B'11100000' MOVWF PORTD CALL BEKLEDON18 RRF PORTD BCF PORTD,7 CALL BEKLE BTFSS PORTD,0 GOTO DON18 MOVLW B'00000011' MOVWF PORTD MOVLW B'10000000' MOVWF PORTC CALL BEKLE MOVLW B'00000001' MOVWF PORTD MOVLW B'11000000' MOVWF PORTC CALL BEKLE MOVLW B'00000000' MOVWF PORTD MOVLW B'11100000' MOVWF PORTC CALL BEKLEDON19 RRF PORTC BCF PORTC,7 CALL BEKLE BTFSS PORTC,0 GOTO DON19 MOVLW B'00000011' MOVWF PORTC MOVLW B'100' MOVWF PORTE CALL BEKLE MOVLW B'00000001' MOVWF PORTC MOVLW B'110' MOVWF PORTE CALL BEKLE MOVLW B'00000000' MOVWF PORTC MOVLW B'111' MOVWF PORTE CALL BEKLE MOVLW B'011' MOVWF PORTE MOVLW B'100000' MOVWF PORTA CALL BEKLE MOVLW B'001' MOVWF PORTE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'000' MOVWF PORTE MOVLW B'101100' MOVWF PORTA CALL BEKLE MOVLW B'001110' 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 MOVLW B'000000' MOVWF PORTA CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK2 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH2 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK2 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR2 ;TEKRAR RUTININE GITFLH2