B'00000000' MOVWF PORTB CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK6 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH6 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK6 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR6 ;GERI DONFLH6 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-7- PORTA'DAN ILERIYE LEDLER 5'ERLI YANSIN VE MEKSIKA DALGALANMASI;---------------------------------------------------------------- CALL HIZLANTEKRAR7;PORTA 0-5 LEDLERI YANSIN MOVLW B'101111' MOVWF PORTA CALL BEKLE;PORTE 0-1-2 VE PORTC 0-1 LEDLERI YANSIN MOVLW B'111' MOVWF PORTE MOVLW B'00000011' MOVWF PORTC CALL BEKLE;PORTC 2-3-4-5-6 LEDLERI YANSIN MOVLW B'01111111' MOVWF PORTC CALL BEKLE;PORTC 7 VE PORTD 0-1-2-3 LEDLERI YANSIN MOVLW B'11111111' MOVWF PORTC MOVLW B'00001111' MOVWF PORTD CALL BEKLE;PORTD 4-5-6-7 VE PORTB 0 LEDLERI YANSIN MOVLW B'11111111' MOVWF PORTD MOVLW B'00000001' MOVWF PORTB CALL BEKLE;PORTB 1-2-4-5-6-7- LEDLERI YANSIN MOVLW B'11110111' MOVWF PORTB CALL BEKLE;MEKSIKA DALGALANMASI -3 LEDLI HAREKET MOVLW B'101110' MOVWF PORTA CALL BEKLE MOVLW B'101100' MOVWF PORTA CALL BEKLE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'100001' MOVWF PORTA CALL BEKLE MOVLW B'000011' MOVWF PORTA CALL BEKLE MOVLW B'000111' MOVWF PORTA MOVLW B'110' MOVWF PORTE CALL BEKLE MOVLW B'001111' MOVWF PORTA MOVLW B'100' MOVWF PORTE CALL BEKLE MOVLW B'101111' MOVWF PORTA MOVLW B'000' MOVWF PORTE CALL BEKLE MOVLW B'001' MOVWF PORTE MOVLW B'11111110' MOVWF PORTC CALL BEKLE MOVLW B'011' MOVWF PORTE MOVLW B'11111100' MOVWF PORTC CALL BEKLE MOVLW B'111' MOVWF PORTE MOVLW B'11111000' MOVWF PORTC CALL BEKLEDON67 RLF PORTC BSF PORTC,0 CALL BEKLE BTFSC PORTC,7 GOTO DON67DON68 RLF PORTC BSF PORTC,0 RLF PORTD BCF PORTD,0 CALL BEKLE BTFSC PORTD,2 GOTO DON68DON69 RLF PORTD BSF PORTD,0 CALL BEKLE BTFSC PORTD,7 GOTO DON69 MOVLW B'00111111' MOVWF PORTD MOVLW B'11110110' MOVWF PORTB CALL BEKLE MOVLW B'01111111' MOVWF PORTD MOVLW B'11110100' MOVWF PORTB CALL BEKLE MOVLW B'11111111' MOVWF PORTD MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'11100001' MOVWF PORTB CALL BEKLE MOVLW B'11000011' MOVWF PORTB CALL BEKLE MOVLW B'10000111' MOVWF PORTB CALL BEKLE MOVLW B'00010111' MOVWF PORTB CALL BEKLE MOVLW B'00110111' MOVWF PORTB CALL BEKLE MOVLW B'01110111' MOVWF PORTB CALL BEKLE MOVLW B'11110111' MOVWF PORTB CALL BEKLE;GERI DONUS MOVLW B'01110111' MOVWF PORTB CALL BEKLE MOVLW B'00110111' MOVWF PORTB CALL BEKLE MOVLW B'00010111' MOVWF PORTB CALL BEKLE MOVLW B'10000111' MOVWF PORTB CALL BEKLE MOVLW B'11000011' MOVWF PORTB CALL BEKLE MOVLW B'11100001' MOVWF PORTB CALL BEKLE MOVLW B'11110000' MOVWF PORTB CALL BEKLE MOVLW B'01111111' MOVWF PORTD MOVLW B'11110100' MOVWF PORTB CALL BEKLE MOVLW B'00111111' MOVWF PORTD MOVLW B'11110110' MOVWF PORTB CALL BEKLE MOVLW B'00011111' MOVWF PORTD MOVLW B'11110111' MOVWF PORTB CALL BEKLEDON70 RRF PORTD BSF PORTD,7 CALL BEKLE BTFSC PORTD,0 GOTO DON70DON71 RRF PORTD BSF PORTD,7 RRF PORTC BCF PORTC,7 BTFSC PORTC,5 GOTO DON71DON72 RRF PORTC BSF PORTC,7 CALL BEKLE BTFSC PORTC,0 GOTO DON72 MOVLW B'00111111' MOVWF PORTC MOVLW B'011' MOVWF PORTE CALL BEKLE MOVLW B'01111111' MOVWF PORTC MOVLW B'001' MOVWF PORTE CALL BEKLE MOVLW B'11111111' MOVWF PORTC MOVLW B'000' MOVWF PORTE CALL BEKLE MOVLW B'100' MOVWF PORTE MOVLW B'001111' MOVWF PORTA CALL BEKLE MOVLW B'110' MOVWF PORTE MOVLW B'000111' MOVWF PORTA CALL BEKLE MOVLW B'111' MOVWF PORTE MOVLW B'000011' MOVWF PORTA CALL BEKLE MOVLW