;84led-a.asm 程序讓LED8不停的閃爍實驗，供初學入門用，熟悉廷時程序的編寫方法。
;PIC單片機學習網-----http://www.pic16.com   作者：陳學乾
;本程序的功能是：程序復位后，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                  ; 形式上的程序結束