GPIO<5:4>無法設成'OUTPUT'
|
||||
---|---|---|---|---|
新會員
|
片段
*************** 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
|
|||
|