深圳市英銳恩科技有限公司:臺灣麥肯單片機(Micon MDT單片機)亞太地區(qū)A級代理商
8位LED流水燈
;本程序的功能是,將RB的8條引腳全部設(shè)置為輸出模式,依次從RB0;
;到RB7送出高電平,然后再依次從RB7到RB0送出高電平.并且周而復(fù)始;
;從而使接在RB口的LED循環(huán)往返發(fā)光；
;燒寫時應(yīng)注意：配置位已經(jīng)在程序中寫明，加載HEX文件時會自動加載，燒寫時不用再手動設(shè)置配置位。
;實驗時請注意套件跳線選擇；
;*********************************************************
  LIST P=16F84A,R=DEC ;告訴使用器件為16F84A，默認為十進制;
;---------------------------------------------------------
  __CONFIG B'11111111110001';_CP_OFF&_WDT_OFF&_PWRITE_ON&_XT_OSC
                                              ;沒有代碼保護
                                              ;看門狗關(guān)閉
                                              ;上電廷時器開啟
                                              ;振蕩器模式為XT
;-----------------------
STATUS EQU 03H   ;定義各寄存器
PORTA EQU 05H
PORTB EQU 06H

TRISA EQU 5H
TRISB EQU 6H
;---------------------- STATUS
C EQU 0
RP0 EQU 5
;--------------------
FLAG EQU 23H   ;定義用戶寄存器;
;--------------------------
  ORG 00h
  CLRF PORTA
  CLRF PORTB    ;初始IO口;

  bsf STATUS,RP0    ;設(shè)置數(shù)據(jù)寄存器1;
  movlw B'00000000'
  movwf TRISA       ;定義RA口全部為輸出;
  movlw B'00000000'
  movwf TRISB       ;定義RB口全部為輸出;
  bcf STATUS,RP0    ;恢復(fù)數(shù)據(jù)寄存器0

  movlw 01H         ;先認RB.0為1
  movwf PORTB 
  BCF STATUS,C      ;清標志位C
  BSF FLAG,0        ;置左右移標志位,先左移;
LOOP
  BTFSS STATUS,C    ;測試C,為1則修改標志位
  GOTO LOOP1
  COMF FLAG,1       ;取反左右移標志位
LOOP1
  BTFSS FLAG,0      ;FLAG.0為1左移,為0右移
  GOTO LOOP2
  RLF PORTB,0
  MOVWF PORTB
  GOTO LOOP3
LOOP2
  RRF PORTB,0
  MOVWF PORTB
LOOP3
  CALL DELAY
  CALL DELAY       ;調(diào)用廷時
  GOTO LOOP        ;返回
;-----------------------
DELAY              ;0.2S廷時子程序
  MOVLW 0FFH
  MOVWF 20H
LP0
  MOVLW 0FFH
  MOVWF 21H
LP1

  DECFSZ 21H,1
  GOTO LP1
  DECFSZ 20H,1
  GOTO LP0
  RETURN

;---------------------
  END