B'100001' MOVWF PORTA CALL BEKLE MOVLW B'101000' MOVWF PORTA CALL BEKLE MOVLW B'101100' MOVWF PORTA CALL BEKLE MOVLW B'101110' MOVWF PORTA CALL BEKLE MOVLW B'101111' MOVWF PORTA CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK7 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH7 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK7 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR7 ;GERI DONFLH7 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-8- ORTADAN BASA VE SONA DOGRU AKARDION;---------------------------------------------------------------- CALL HIZLANTEKRAR8 MOVLW B'10000000' MOVWF PORTC CALL BEKLEDON73 RRF PORTC BSF PORTC,7 RLF PORTD BSF PORTD,0 CALL BEKLE BTFSS PORTC,0 GOTO DON73 MOVLW B'100' MOVWF PORTE MOVLW B'11111111' MOVWF PORTD CALL BEKLE MOVLW B'110' MOVWF PORTE MOVLW B'00000001' MOVWF PORTB CALL BEKLE MOVLW B'111' MOVWF PORTE MOVLW B'00000011' MOVWF PORTB CALL BEKLE MOVLW B'100000' MOVWF PORTA MOVLW B'00000111' MOVWF PORTB CALL BEKLE MOVLW B'101000' MOVWF PORTA MOVLW B'00010111' MOVWF PORTB CALL BEKLE MOVLW B'101100' MOVWF PORTA MOVLW B'00110111' MOVWF PORTB CALL BEKLE MOVLW B'101110' MOVWF PORTA MOVLW B'01110111' MOVWF PORTB CALL BEKLE MOVLW B'101111' MOVWF PORTA MOVLW B'11110111' MOVWF PORTB CALL BEKLE;GERI DONUS HAREKETLERI 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 MOVLW B'110' MOVWF PORTE MOVLW B'00000001' MOVWF PORTB CALL BEKLE MOVLW B'100' MOVWF PORTE MOVLW B'00000000' MOVWF PORTB CALL BEKLE MOVLW B'000' MOVWF PORTE MOVLW B'01111111' MOVWF PORTD CALL BEKLEDON74 RLF PORTC BCF PORTC,0 RRF PORTD BCF PORTD,7 CALL BEKLE BTFSC PORTD,0 GOTO DON74 MOVLW B'00000000' MOVWF PORTC CALL BEKLE BCF STATUS,0 DECFSZ ADET,1 ;DECREMENT F SKIP IF ZERO-ADET DEGISKENINI 1 EKSILT GOTO MUK8 ;ADET DEGISKENI 0 DEGIL ISE MUK1 RUTININE GIT GOTO FLH8 ;ADET DEGISKENI 0 ISE FLH1 RUTININE GITMUK8 RLF HIZ ;HIZ DEGISKENINI SOLA KAYDIR (001)-(010)-(100) GOTO TEKRAR8 ;GERI DONFLH8 MOVLW B'001' MOVWF HIZ CALL FLASH ;ADET DEGISKENI SIFIR ISE, FLASH RUTININI CAGIR GEL;----------------------------------------------------------------;-9- PORTA'DAN SONA DOGRU TEK TEK HAREKET (TEKLI KARA SIMSEK);----------------------------------------------------------------; SONDENEY CALL HIZLANTEKRAR9 MOVLW B'000001' MOVWF PORTA CALL BEKLE MOVLW B'000010' MOVWF PORTA CALL BEKLE MOVLW B'000100' MOVWF PORTA CALL BEKLE MOVLW B'001000' MOVWF PORTA CALL BEKLE MOVLW B'100000' MOVWF PORTA CALL BEKLE;PORTE LEDLERI YANIYOR MOVLW B'000000' MOVWF PORTA MOVLW B'001' MOVWF PORTE CALL BEKLE MOVLW B'010' MOVWF PORTE CALL BEKLE MOVLW B'100' MOVWF PORTE CALL BEKLE;PORTC LEDLERI YANIYOR MOVLW B'000' MOVWF PORTE MOVLW B'00000001' MOVWF PORTC CALL BEKLEDON75 RLF PORTC BCF PORTC,0 CALL BEKLE BTFSS PORTC,7 GOTO DON75;PORTD LEDLERI YANIYOR MOVLW B'00000000' MOVWF PORTC MOVLW B'00000001' MOVWF PORTD CALL BEKLEDON76 RLF PORTD BCF PORTD,0 CALL BEKLE BTFSS PORTD,7 GOTO DON76;PORTB LEDLERI YANIYOR MOVLW B'00000000' MOVWF PORTD MOVLW B'00000001' MOVWF PORTB CALL BEKLE MOVLW B'00000010' MOVWF PORTB CALL BEKLE MOVLW B'00000100' MOVWF PORTB CALL BEKLE MOVLW B'00010000' MOVWF PORTB CALL BEKLE MOVLW B'00100000' MOVWF PORTB CALL BEKLE MOVLW B'01000000' MOVWF PORTB CALL BEKLE MOVLW B'10000000' MOVWF PORTB CALL BEKLE MOVLW B'00000000' MOVWF