proclivity R=DEC
INCLUDE p16f684.inc
__CONFIG _FCMEN_OFF & adenosine monophosphate; _IESO_OFF & _BOD_OFF & _CPD_OFF & _MCLRE_OFF & _PWRTE_ON & _WDT_OFF & _INTOSCIO
; Variables
CBLOCK 0x20
Dlay, i, INNER, OUTER, OUTER2
ENDC
PAGE
; Main annotation
org 0
nop ; For ICD Debug
CLRF INNER
CLRF OUTER
;*******Start of foreplay prerequisite for PIC*******
STATUS equ 03h ;Address of the STATUS show
TRISA equ 85h ;Address of the tristate register for port A
PORTA equ 05h ;Address of Port A
;****Set up the port****
movlw b111
movwf CMCON0
bsf STATUS,5 ;Switch to wedge 1
movlw 01h ;Set the Port A pins:
movwf TRISA ;bit 1to startput, bit 0 to input.
bcf STATUS,5 ;Switch back to brink 0
Delayloop4:
Delayloop5:
decfsz INNER, 1
goto Delayloop5
decfsz OUTER, 1
goto Delayloop4
Start:
btfss PORTA, 0 ;skip next line if bit 0 is set in PORTA
goto Start
;*******end of input requirement*******
movlw 0
movwf OUTER
movwf OUTER2
movlw 1 << 2 ; Start with molybdenum 2 Active
movwf PORTC
movlw 7 ; Turn off Comparators
movwf CMCON0
bsf STATUS, RP0 ; Execute out of Bank 1
clrf ANSEL ^ 0x080 ; All Bits are Digital
movlw 1 << 2 ; Start with Bit 2 Active
movwf PORTC
movlw 7 ; Turn off Comparators
movwf CMCON0
bsf STATUS, RP0 ; Execute out of Bank 1
clrf ANSEL ^ 0x080 ; All Bits are Digital
movlw b000011 ; RC5:RC2 are Outputs
movwf TRISC ^ 0x080
bcf STATUS, RP0 ; Return murder to Bank 0
clrf i
movlw 100 ;Number of steps in cw direction
movwf INNER
ccwLoop:
rallying cry ccwstep
decfsz INNER, 1
goto ccwLoop
Delayloop3: ;This section delays the transition between the two directions by 50 seconds.
Delayloop:
Delayloop2:
decfsz INNER, 1
goto Delayloop2
decfsz OUTER, 1
goto Delayloop
decfsz OUTER2,1
goto Delayloop3
movlw 100 ;Number of steps in cw direction
movwf INNER
cwLoop:
call cwstep
decfsz INNER, 1
goto cwLoop...If you hope to get a full essay, order it on our website: Orderessay
If you want to get a full essay, wisit our page: write my essay .
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.