burhan24
Üye
- Katılım
- 20 Ağu 2011
- Mesajlar
- 7
- Puanları
- 1
- Yaş
- 34
öncelikle okuyup yorum yapanlara teşekkürler
ben mikroişlemciyle flaşör programı yazdım ama iki ayrı gecikme kullandım mplab ikinci alt program olan gecikmeyi kabul etmedi bende yeniyim kendim yazmak istiyorum programı
lütfen yardım abilerr
program
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAY EQU H'0C'
SAY1 EQU H'0D'
SAY2 EQU H'0E'
BSF STATUS,5
CLRF TRISB
CLRF TRISA
BCF STATUS,5
START
MOVLW B'11111111'
MOVWF PORTB
MOVLW B'11111111'
MOVWF PORTA
CALL CAN
MOVLW B'00000000'
MOVWF PORTB
MOVLW B'00000000'
MOVWF PORTA
CALL CAN
MOVLW B'11111111'
MOVWF PORTB
MOVLW B'11111111'
MOVWF PORTA
CALL BEKLE
MOVLW B'00000000'
MOVWF PORTB
MOVLW B'00000000'
MOVWF PORTA
CALL BEKLE
GOTO START
CAN
MOVLW .10
MOVWF SAY
DON
MOVLW .10
MOVWF SAY1
DON1
MOVLW .10
MOVWF SAY2
DON2
DECFSZ SAY2,F
GOTO DON2
DECFSZ SAY1,F
GOTO DON1
DECFSZ SAY,F
GOTO DON
RETURN
END
BEKLE
MOVLW .10
MOVWF SAY
DON11
MOVLW .10
MOVWF SAY1
DON12
MOVLW .10
MOVWF SAY2
DON21
DECFSZ SAY2,F
GOTO DON21
DECFSZ SAY1,F
GOTO DON12
DECFSZ SAY,F
GOTO DON11
RETURN
END
yardımınızı bekliyorum abiler
ben mikroişlemciyle flaşör programı yazdım ama iki ayrı gecikme kullandım mplab ikinci alt program olan gecikmeyi kabul etmedi bende yeniyim kendim yazmak istiyorum programı
lütfen yardım abilerr
program
LIST P=16F84A
INCLUDE "P16F84A.INC"
SAY EQU H'0C'
SAY1 EQU H'0D'
SAY2 EQU H'0E'
BSF STATUS,5
CLRF TRISB
CLRF TRISA
BCF STATUS,5
START
MOVLW B'11111111'
MOVWF PORTB
MOVLW B'11111111'
MOVWF PORTA
CALL CAN
MOVLW B'00000000'
MOVWF PORTB
MOVLW B'00000000'
MOVWF PORTA
CALL CAN
MOVLW B'11111111'
MOVWF PORTB
MOVLW B'11111111'
MOVWF PORTA
CALL BEKLE
MOVLW B'00000000'
MOVWF PORTB
MOVLW B'00000000'
MOVWF PORTA
CALL BEKLE
GOTO START
CAN
MOVLW .10
MOVWF SAY
DON
MOVLW .10
MOVWF SAY1
DON1
MOVLW .10
MOVWF SAY2
DON2
DECFSZ SAY2,F
GOTO DON2
DECFSZ SAY1,F
GOTO DON1
DECFSZ SAY,F
GOTO DON
RETURN
END
BEKLE
MOVLW .10
MOVWF SAY
DON11
MOVLW .10
MOVWF SAY1
DON12
MOVLW .10
MOVWF SAY2
DON21
DECFSZ SAY2,F
GOTO DON21
DECFSZ SAY1,F
GOTO DON12
DECFSZ SAY,F
GOTO DON11
RETURN
END
yardımınızı bekliyorum abiler