;左右移位指令应用
;============================================
; filename: 跑灯.asm
; chip : csu1181b
; author :
; date : 2012-07-27
;完整下载地址: http://www.51hei.com/f/xhpmd.rar
include csu1181b.inc
;============================================
; program start
;============================================
org 000h
goto A1
ORG 005H
;******************************************
; 右移模块
;******************************************
A1: MOVLW 6 ;循环次数
MOVWF 90H ;次数寄存器
MOVLW 01111111B ;驱动初始数
MOVWF 91H ;驱动数寄存器
A2: MOVLW 0F ;设置为输出数
MOVWF PT3EN ;设置为输出模式
MOVLW 0 ;禁止上拉
MOVWF PT3PU ;
MOVFW 91H ;禁止上拉
MOVWF PT3 ;
RRF 91H,0 ;循环右移C处理结果存在工作寄存器W中
RRF 91H,1 ;循环右移结果存在通用寄存器91H中
CALL M001 ;延时
DECFSZ 90H,1 ; 减一为0跳过下一条指令
GOTO A2 ;转移
;********************************************************
; 左移模块
;********************************************************
MOVLW 4 ;循环次数
MOVWF 90H ; 次数寄存器
MOVLW 11110111B ;驱动初始数
MOVWF 91H ;驱动数寄存器
A3:
MOVLW 0FFH ;设置为输出数
MOVWF PT3EN ;设置为输出模式
MOVLW 0 ;禁止上拉
MOVWF PT3PU ;
MOVFW 91H ;禁止上拉
MOVWF PT3 ;
RLF 91H,0 ;循环左移C处理结果存在工作寄存器W中
RLF 91H,1 ;循环左移结果存在通用寄存器91H中
CALL M001 ;延时
DECFSZ 90H,1 ;减一为0跳过下一条指令
GOTO A3 ;
GOTO A1 ;
;*****************************************************
; 延时子程序
;*****************************************************
M001: MOVLW 1 ;
MOVWF 80H ;
M002: MOVLW 150 ;
MOVWF 81H ;
M003: MOVLW 250 ;
MOVWF 82H ;
M004: DECFSZ 82H,1 ; (减一后结果存在82h中）减一为0跳过下一指令
; DECFSZ 82H,0 ;(减一后结果存在工作寄存器中)减一为0跳过下一指令
GOTO M004 ;
DECFSZ 81H,1 ;
GOTO M003 ;
DECFSZ 80H,1 ;
GOTO M002 ;
RETURN ;子程序返回
end ;结束
;============================================
-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
