金沙js5线路(中国)有限公司:台湾麦肯单片机(Micon MDT单片机)亚太地区A级代理商

一个LED闪烁实验
;本程序的功能是：程序复位后，RB7口的LED8每0.2秒闪一次，不停的闪烁
;烧写时应注意：配置位已经在程序中写明，加载HEX文件时会自动加载，烧写时不用再手动设置配置位。
;实验时请注意套件跳线选择，跳线全部插入串口座方向
;********************************************************************              
LIST P=16F84A,R=DEC;  告诉编译程序使用何种PIC单片机,默认数制为10进制。
;---------------------------------------------------------------------
  __CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;没有代码保护
                                              ;看门狗关闭
                                              ;上电廷时器开启
                                              ;振荡器模式为XT
;----------------------------------------------------------------------
STATUS EQU 03H ;定义状态寄存器地址
PORTA EQU 05H  ;端口A的数据寄存器地址
PORTB EQU 06H  ;端口B的数据寄存器地址

TRISA EQU 5H   ;定义端口A的方向控制寄存器地址
TRISB EQU 6H   ;定义端口B的方向控制寄存器地址
;---------------------- STATUS 
RP0       EQU 5  ;定义状态寄存器中的RAM页选位RP0
;--------------------;用户寄存器
L1    EQU 10H    ;廷时变量
L2    EQU 11H
L3    EQU 12H
;-------------------------

         ORG 0000H              ; 程序从零地址开始
         CLRF PORTA
         CLRF PORTB           ;初始化I/O口
    
         BSF STATUS,RP0       ;设置数据寄存器体1
         MOVLW B'00000000'    ; 1代表输入，0代表输出
         MOVWF TRISA           ; 设置PORTA全部IO为输出
     MOVLW B'00000000' 
         MOVWF TRISB          ; 设置PORTB 全部IO为输出
         BCF STATUS,RP0       ;恢复数据寄存器体0
LOOP                          ;下面是主程序
     MOVLW 80H            ;送80H到W
         XORWF PORTB,1        ;取反RB7，让LED8闪烁
         CALL DELAY           ;调用0。2S廷时程控
         GOTO LOOP            ;返回不断闪烁
;-------------------------------------以下是0。2S廷时子程序
DELAY                        
         MOVLW 2              ;（1US）定义最外层循环变量初始值
         MOVWF L1             ;（1US）
DELAY_1
         MOVLW 200            ;（1US）定义第二层循环变量初始值
         MOVWF L2             ;（1US）
DELAY_2
         MOVLW 200            ;（1US）定义第一层循环变量初始值
         MOVWF L3             ;（1US）
DELAY_3
         DECFSZ L3,1          ;（1US）L3-1=0？是！跳出内层循环
         GOTO DELAY_3         ;（2US）否！循环回去
         DECFSZ L2,1          ;（1US）L2-1=0？是！跳出循环
         GOTO DELAY_2         ;（2US）否！循环回去
         DECFSZ L1,1          ;（1US）L1-1=0？是！跳出循环
         GOTO DELAY_1         ;（2US）否！循环回去
         RETLW 0              ;子程序返回

         END                  ; 形式上的程序结束