d.c motor kontrolü

[apollo99]

http://rapidshare.com/files/404888503/dc_motor.rar
  arkadaşlar yardımlarınızı bekliyorum...16f84 için arkadaş yapmıştı.bunda 16f877a bir de lcd var...aşağıda 16f84 ün asm var...

; PIC TANITMA KISMI
   LIST P=16F84
   INCLUDE "P16F84.INC"

;PORTA TAMAMI VE PORTB.0,1,2 GİRİŞ YAPILIYOR (KOMÜTATÖR VE BUTON İÇİN İÇİN)

ZAMAN Equ 16
ZAMANH Equ 17
   #Define BTNSURE PORTB,1
   #Define BTNMOT PORTB,2
   #Define SURE PORTB,4


   Movlw 31
   Bsf STATUS,5
ram_bank = 1
   Movwf TRISA

   Movlw 7
   Movwf TRISB

   Bcf STATUS,5
ram_bank = 0
   Clrf PORTA

   Clrf PORTB

   Clrf ZAMANH
   Clrf ZAMAN
;SÜRE BAŞLATMA BUTONUNA BAKILIYOR
BAS

   Btfsc PORTB,1
   Goto bc@ll2
   Goto KONUMBUL
bc@ll2

   Goto BAS
;KOMÜTATÖR KONUMU BULUNUYOR
KONUMBUL

   Btfsc PORTA,0
   Goto bc@ll4
   Goto SFR_DAK
bc@ll4

   Btfsc PORTA,1
   Goto bc@ll6
   Goto IKI_DAK
bc@ll6

   Btfsc PORTA,2
   Goto bc@ll8
   Goto DRT_DAK
bc@ll8

   Btfsc PORTA,3
   Goto bc@ll10
   Goto ALT_DAK
bc@ll10

   Btfsc PORTA,4
   Goto bc@ll12
   Goto SKZ_DAK
bc@ll12

   Btfsc PORTB,0
   Goto bc@ll14
   Goto ONN_DAK
bc@ll14

   Goto KONUMBUL

; 0 DAKİKA
SFR_DAK

   Goto BAS

; 2 DAKİKA BOYUNCA BUTONA BASILINCA MOTOR ÇALIŞTIRILIYOR
IKI_DAK

   Bsf PORTB,4

   Btfsc PORTB,2
   Goto bc@ll16
   Goto SUR2
bc@ll16

   Bcf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 4
   Movlw 176
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll18
   Goto SIFIRLA
bc@ll18

   Goto IKI_DAK
SUR2

   Bsf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 4
   Movlw 176
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll20
   Goto SIFIRLA
bc@ll20

   Goto IKI_DAK



; 4 DAKİKA BOYUNCA BUTONA BASILINCA MOTOR ÇALIŞTIRILIYOR
DRT_DAK

   Bsf PORTB,4

   Btfsc PORTB,2
   Goto bc@ll22
   Goto SUR4
bc@ll22

   Bcf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 9
   Movlw 96
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll24
   Goto SIFIRLA
bc@ll24

   Goto DRT_DAK
SUR4

   Bsf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 9
   Movlw 96
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll26
   Goto SIFIRLA
bc@ll26

   Goto DRT_DAK



; 6 DAKİKA BOYUNCA BUTONA BASILINCA MOTOR ÇALIŞTIRILIYOR
ALT_DAK

   Bsf PORTB,4

   Btfsc PORTB,2
   Goto bc@ll28
   Goto SUR6
bc@ll28

   Bcf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 14
   Movlw 16
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll30
   Goto SIFIRLA
bc@ll30

   Goto ALT_DAK
SUR6

   Bsf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 14
   Movlw 16
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll32
   Goto SIFIRLA
bc@ll32

   Goto ALT_DAK



; 8 DAKİKA BOYUNCA BUTONA BASILINCA MOTOR ÇALIŞTIRILIYOR

SKZ_DAK

   Bsf PORTB,4

   Btfsc PORTB,2
   Goto bc@ll34
   Goto SUR8
bc@ll34

   Bcf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 18
   Movlw 192
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll36
   Goto SIFIRLA
bc@ll36

   Goto SKZ_DAK
SUR8

   Bsf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 18
   Movlw 192
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll38
   Goto SIFIRLA
bc@ll38

   Goto SKZ_DAK


; 10 DAKİKA BOYUNCA BUTONA BASILINCA MOTOR ÇALIŞTIRILIYOR
ONN_DAK

   Bsf PORTB,4

   Btfsc PORTB,2
   Goto bc@ll40
   Goto SUR10
bc@ll40

   Bcf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 23
   Movlw 112
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll42
   Goto SIFIRLA
bc@ll42

   Goto ONN_DAK
SUR10

   Bsf PORTB,3

   Movlw 100
   Call dl@ms

   Incf ZAMAN,F
   Skpnz
   Incf ZAMANH,F

   Movfw ZAMANH
   Xorlw 23
   Movlw 112
   Btfsc STATUS,2
   Xorwf ZAMAN,W
   Btfss STATUS,2
   Goto bc@ll44
   Goto SIFIRLA
bc@ll44

   Goto ONN_DAK

; REGISTERLER SIFIRLANIYOR
SIFIRLA

   Clrf ZAMANH
   Clrf ZAMAN

   Bcf PORTB,3

   Bcf PORTB,4

   Goto BAS

Pb@lb46
   Sleep
   Goto Pb@lb46
   END