芯海單片機跑燈程序

;============================================
; 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 ;循環(huán)次數(shù)
MOVWF 90H ;次數(shù)寄存器
MOVLW 01111111B ;驅(qū)動初始數(shù)
MOVWF 91H ;驅(qū)動數(shù)寄存器
A2: MOVLW 0FFH ;設置為輸出數(shù)
MOVWF PT3EN ;設置為輸出模式
MOVLW 0 ;禁止上拉
MOVWF PT3PU ;
MOVFW 91H ;禁止上拉
MOVWF PT3 ;
RRF 91H,0 ;循環(huán)右移C處理結(jié)果存在工作寄存器W中
RRF 91H,1 ;循環(huán)右移結(jié)果存在通用寄存器91H中
CALL M001 ;延時
DECFSZ 90H,1 ; 減一為0跳過下一條指令
GOTO A2 ;轉(zhuǎn)移
;********************************************************
; 左移模塊
;********************************************************
MOVLW 4 ;循環(huán)次數(shù)
MOVWF 90H ; 次數(shù)寄存器
MOVLW 11110111B ;驅(qū)動初始數(shù)
MOVWF 91H ;驅(qū)動數(shù)寄存器

A3:
MOVLW 0FFH ;設置為輸出數(shù)
MOVWF PT3EN ;設置為輸出模式
MOVLW 0 ;禁止上拉
MOVWF PT3PU ;
MOVFW 91H ;禁止上拉
MOVWF PT3 ;
RLF 91H,0 ;循環(huán)左移C處理結(jié)果存在工作寄存器W中
RLF 91H,1 ;循環(huán)左移結(jié)果存在通用寄存器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 ; (減一后結(jié)果存在82h中）減一為0跳過下一指令
; DECFSZ 82H,0 ;(減一后結(jié)果存在工作寄存器中)減一為0跳過下一指令
GOTO M004 ;
DECFSZ 81H,1 ;
GOTO M003 ;
DECFSZ 80H,1 ;
GOTO M002 ;
RETURN ;子程序返回
end ;結(jié)束

;============================================