Infra Read Sensor to Control DC motor Assembly

DrRakha

Infra Read Sensor ( IR) to Control DC motor

Code:

list p=16f877
include <p16f877.inc>
BANK0 macro
bcf STATUS,RP0
bcf STATUS,RP1
endm

BANK1 macro
bsf STATUS,RP0
bcf STATUS,RP1
endm

BANK2 macro
bcf STATUS, RP0
bsf STATUS,RP1
endm

BANK3 macro
bsf STATUS,RP0
bsf STATUS,RP1.
endm

OFF EQU 0 ;MoTOR ozF
DELAY_TIME EQU 0x20
DELAY_LO EQU 0x21
DELAY_HI EQU 0x22
DELAY_VHI EQU 0x23
; *******
ORG 0
NOP
GOTO START
; *****
;*** 
; MAIN  ROUTINE
ORG 0x20


START CALL INITP ;INIIIAIJSE PORT

AGAIN MOVLW 1 ;SET MoTOR CW
MOVWF PORTE ; AND oUTPtT
MOVLW 0 ;SET MoToR CW
MOVWF PORTA ;AND OUTPUT
ON1 BTFSS PORTA,4 ;TEST FoR IR BIT
GOTO ON1 ;IF NOT SET WAIT
ON2 BTFSC PORTA,4 ;TEST ZR BIT
GOTO 0N2 ;IF SET WAIT
MOVLW 0xFF ;SET MOTOR OFF
MOVWF PORTE ;AND oUTPtT
MOVWF PORTA
CALL OFF_DELAY ;WAIT
GOTO AGAIN ;DO FOR EVER

; SUBROUTINES
; oFF DELAY RoUTIN
OFF_DELAY
MOVLW 0XE0
MOVWF DELAY_LO
MOVLW 0XA1
MOLWF DELAY_HI
MOVLW 0xFF
MOVWF DELAY_VHI
BIG
OUTER
INNER
INCFSZ DELAY_LO,1
GOTO INNER
INCFSZ DELAY_HI,1
GOTO OUTER
INCFSZ DElAY_VHI
GOTO INNER
RETURN
; PORT INITIALISATION
INITP BANK1 ;SET TO BANK 1
MOVLW 06 ;MAKE PORT A DIGITAL
MOVWF ADCON1
BCF PORTA,5 ;MAKE BIT 5 OUTPUT
CLRF TRISE ;SET PORT E TO OUTPUT
BANK0 ; BACK TO BANK 0
RETURN
END

Java

C/C++

PHP

C#

HTML

CSS

ASP

Javascript

JQuery

AJAX

XSD

Python

Matlab

R Scripts

Weka

Infra Read Sensor to Control DC motor Assembly