人狗畜禽COMPANY LIMITED|全是肉的高H文〈男男〉|全篇肉高H秘书被C办公室四爱|全黄H全肉共妻|全黄H全肉短篇禁乱NP慕浅浅|全黄H全肉短篇N男男

技術(shù)熱線: 4007-888-234
設(shè)計開發(fā)

專注差異化嵌入式產(chǎn)品解決方案 給智能產(chǎn)品定制注入靈魂給予生命

開發(fā)工具

提供開發(fā)工具、應(yīng)用測試 完善的開發(fā)代碼案例庫分享

技術(shù)支持

從全面的產(chǎn)品導(dǎo)入到強大技術(shù)支援服務(wù) 全程貼心伴隨服務(wù),創(chuàng)造無限潛能!

新品推廣

提供新的芯片及解決方案,提升客戶產(chǎn)品競爭力

新聞中心

提供最新的單片機資訊,行業(yè)消息以及公司新聞動態(tài)

按鍵實現(xiàn)多個功能的一個小程序

更新時間: 2019-03-26
閱讀量:2498

INCLUDE "P16F877A.INC"
COUNTER  EQU  25H
   ORG  0000H
   NOP
MAIN
   BSF  STATUS,5
   MOVLW 0F0H
   MOVWF TRISD
   MOVLW 00H
   MOVWF TRISC
   BCF  STATUS,5
   MOVLW 00H
   MOVWF   PORTC
   CLRF COUNTER
ST
   CALL KSM
   GOTO ST
;
;
;
KSM
   BTFSC PORTD,4
   GOTO BACK

PAGESEL DEL10MS
   CALL DEL10MS
   PAGESEL KSM
   BTFSC PORTD,4
   GOTO BACK
PPA
   BTFSS PORTD,4
   GOTO PPA
   PAGESEL DEL10MS
   CALL DEL10MS
   PAGESEL KSM
   BTFSS PORTD,4
   GOTO PPA
   INCF COUNTER
   MOVLW 03H
   ANDWF COUNTER,W
   ADDWF PCL,F
   GOTO XSH1
   GOTO XSH2

 GOTO XSH3
   GOTO XSH4
BACK
   NOP
   RETURN
;
;
;
XSH1
   MOVLW 0FH
   MOVWF PORTC
   CALL DELAY1S
   MOVLW 0F0H
   MOVWF PORTC
   CALL DELAY1S
   CALL KSM
   GOTO XSH1
;
;
;
XSH2
   INCF PORTC
   CALL DELAY1S
   CALL KSM
   GOTO XSH2

;
;
;
XSH3
   MOVLW 55H
   MOVWF PORTC
   CALL DELAY1S
   MOVLW 0AAH
   MOVWF PORTC
   CALL DELAY1S
   CALL KSM
   GOTO XSH3
;
;
;
XSH4
   MOVLW 03H
   MOVWF PORTC
   CALL DELAY1S

 MOVLW 0CH
   MOVWF PORTC
   CALL DELAY1S
   MOVLW 30H
   MOVWF PORTC
   CALL  DELAY1S
   MOVLW 0C0H
   MOVWF PORTC
   CALL DELAY1S
   CALL KSM
   GOTO XSH4
DELAY1S
   MOVLW 01H
   MOVWF 20H
LOOP1
   MOVLW 0EBH
   MOVWF  21H
LOOP2  MOVLW 0ECH
   MOVWF 22H
LOOP3  DECFSZ 22H,1
   GOTO LOOP3

   DECFSZ 21H,1
   GOTO LOOP2
   DECFSZ 20H,1
   GOTO LOOP1
    RETURN
;
;
;
   ORG  0100H
DEL10MS
   MOVLW 04H
   MOVWF 123H
L1
   MOVLW 0FFH
   MOVWF 124H
L2   DECFSZ 124H,1
   GOTO    L2
   DECFSZ 123H,1
   GOTO L1
   RETURN
   END


屯留县| 如皋市| 鄂伦春自治旗| 怀化市| 云南省| 广昌县| 天峻县| 兰西县| 蓝田县| 宜兴市| 宁阳县| 紫金县| 达日县| 土默特右旗| 淮阳县| 崇左市| 常德市| 仁布县| 禄丰县| 静宁县| 蓝田县| 汝城县| 通辽市| 宜君县| 信阳市| 上虞市| 乌拉特后旗| 朔州市| 陆丰市| 磐石市| 什邡市| 高雄县| 辽源市| 黄石市| 新巴尔虎左旗| 定边县| 县级市| 鸡东县| 鄱阳县| 罗田县| 凯里市|