Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #INCLUDE P16F917.INC
- MPP EQU 20H
- ORG 0000H
- GOTO INIT
- ORG 0004H
- INTR: BCF PIR1,CCP1IF
- RRF MPP,F
- BCF MPP,7
- BTFSC STATUS,C
- BSF MPP,7
- MOVF MPP,W
- MOVWF PORTD
- RETFIE
- INIT: CLRF STATUS
- MOVLW 88H
- MOVWF MPP
- PD_INI: CLRF PORTD
- BSF STATUS,RP0
- MOVLW 0FH
- MOVWF TRISD
- BCF STATUS,RP0
- INTINI: MOVLW 0C0H
- MOVWF INTCON
- BSF STATUS,RP0
- MOVWF 04H
- MOVWF PIE1
- BCF STATUS,RP0
- CLRF PIR1
- T1_INI: MOVLW 0AH
- MOVWF T1CON
- CLRF TMR1H
- CLRF TMR1L
- CCPINI: MOVLW 0BH
- MOVWF CCP1CON
- MOVLW 20H
- MOVWF CCPR1H
- CLRF CCPR1L
- BSF T1CON,TMR1ON
- GOTO $
- END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement