黄金会员
主题
回帖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 |
|