新會員
Joined
: 2004/6/13 18:06 最後登入時間
: 2011/2/19 15:49
Group:
註冊會員
Level : 2 HP : 0 / 43 MP : 5 / 2531 EXP : 74
|
片段
***************
list p=12f629 include "c:\program files\mplab ide\mchip_tools\p12f629.inc"
__CONFIG _CP_ON&_WDT_OFF&_MCLRE_OFF&_INTRC_OSC_NOCLKOUT&_PWRTE_ON&_BODEN_ON
;***** VARIABLE DEFINITIONS ***** CBLOCK 0x20
clkcount
W_TEMP ; STATUS_TEMP ;
endc
;
;************************
ORG 0x000 ; coding begins here bsf STATUS,RP0 call 3FFh movwf OSCCAL
goto _MAIN
;**************************** ;Interrupt Vector interpt: ORG 0x04 movwf W_TEMP ; ; swapf STATUS,W ; bcf STATUS,RP0 ; ; movwf STATUS_TEMP ;
NOP
SER_EXIT: bcf STATUS,RP0 ; swapf STATUS_TEMP,W ; ; movwf STATUS ; swapf W_TEMP,F ; swapf W_TEMP,W ; retfie ;**************************** _MAIN: call init _doing: nop
goto _doing
;************************** init: ;在PAGE0 bcf STATUS,RP0 ;Bank 0 clrf GPIO ;Init GPIO movlw 07h ;Set GP<2:0> to movwf CMCON ;digital IO(Not ADC IN)
bcf T1CON,T1OSCEN bcf T1CON,TMR1GE
bsf STATUS,RP0 ;Bank 1 movlw b'11110000' ;wake pull-ups movwf WPU ;clrf ANSEL ;digital I/O movlw b'11001111' movwf TRISIO movlw b'10000000' ; movwf OPTION_REG
movlw b'00001111' movwf IOCB ;pin on change bcf STATUS,RP0 NOP
bsf INTCON,PEIE bsf INTCON,T0IE bsf INTCON,GIE return
END
發表於: 2004/6/13 18:29
|