PIC单片机“跑马灯”实验程序代码

;即轮流点亮C口的8个灯（先点亮RC0，再熄灭RCO点亮RC1。。。。）
;硬件要求：拨码开关S11全部置ON。
#include        ;调用头文件
__CONFIG _DEBUG_OFF&_CP_ALL&_WRT_HALF&_CPD_ON&_LVP_OFF&_BODEN_OFF&_PWRTE_ON&_WDT_OFF&_HS_OSC
;**********************用户寄存器定义********************
count     equ   20h           ;移位次数寄存器
del_va1   equ   0ffh          ;外层延时参数
del_va2   equ   0afh          ;内层延时参数

 org      00h                 ;程序人口地址
;**********************主程序开始***********************
main
 nop                          ;ICD所需要的一条空指令
 clrf     PORTC               ;先清楚C口所有显示
 banksel  TRISC               ;选择I/O口方向寄存器所在的体
 clrf     TRISC               ;设置C口全为输出
 clrf     STATUS              ;返回体0
 movlw    .8                
 movwf    count               ;装载循环次数8（C口共8位）

 bsf      STATUS,C            ;置进位标志位为1，因循环移位是带进位循环的
loop
 rlf      PORTC,1             ;C口左移1位
 call     delay
 call     delay
 CALL     delay               ;调用三次延时程序（保证亮度，以及流水灯闪烁速度）
 bcf      STATUS,C            ;清0进位标志位（永远只有一只LED亮）
 DECFSZ   count,1             ;判断是否一轮循环结束
 goto     loop                ;否，继续循环移位
 GOTO     main                ;是，程序重头开始

;***********************延时程序*************************
delay
 movlw    del_va1             ;延时程序外层参数
 movwf    30h
 movlw    del_va2             ;延时程序内层参数
 movwf    31h
 decfsz   31h,1
 goto     $-1
 decfsz   30h,1
 goto     $-4
 return

;********************程序结束****************************
 end