深圳市英銳恩科技有限公司:臺灣麥肯單片機(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 ; 形式上的程序結束
.png)
2.png)
