| 
黄金会员 主题
回帖0
积分7183
阅读权限40
注册时间2013-2-26
最后登录1970-1-1
在线时间 小时
 
 | 
| processor 10F200 #include <P10F200.INC>
 
 __CONFIG _MCLRE_OFF&_CP_ON&_WDT_OFF&_IntRC_OSC
 ;----------------------------------------------
 DELY1 EQU 10H
 DELY2 EQU 11H
 KEY EQU 12H
 ;----------------------------------------------------------
 ORG 00H                ;复位向量地址
 STAR    MOVLW 09H
 TRIS GPIO
 MOVLW 87H
 OPTION                ;允许弱上拉
 CLRF GPIO
 CLRF KEY
 ;-------------------------------------------------
 LOOP
 BTFSC GPIO,00H
 GOTO LOOP
 CALL DELAY10MS
 BTFSC GPIO,00H
 GOTO LOOP
 BTFSS GPIO,00H
 GOTO $-1
 
 BTFSC KEY,02H
 GOTO SETKEY
 BSF KEY,02H
 MOVF KEY,W
 MOVWF GPIO
 GOTO LOOP
 
 SETKEY
 BCF KEY,02H
 MOVF KEY,W
 MOVWF GPIO
 GOTO LOOP
 ;**************************************************
 DELAY10MS
 MOVLW         10H                                        ;外循环常数
 MOVWF         DELY1                                        ;外循环寄存器
 LOOP0        MOVLW         0E6H                                        ;中循环常数
 MOVWF         DELY2                                        ;中循环寄存器
 LOOP1        DECFSZ         DELY2,F                                        ;中循环寄存器递减
 GOTO         LOOP1                                        ;继续中循环
 DECFSZ         DELY1,F                                        ;外循环寄存器递减
 GOTO         LOOP0                                        ;继续外循环
 RETLW 00H
 ;----------------------------------------------------------
 END
 | 
 |