;============================================
; filename: 5817驱动led.asm
; chip : csu1181b
; author :
; date : 2012-07-31
;============================================
include csu1181b.inc
;============================================
; program start
;============================================
SDA EQU 80H
org 000h
GOTO A1
ORG 05H
;***********************************************
; 数据表
;***********************************************
Q1:
DW 003 ;0
DW 0006H ;1
DW 005BH ;2
DW 004FH ;3
DW 0066H ;4
DW 006DH ;5
DW 007DH ;6
DW 0007H ;7
DW 007FH ;8
DW 006FH ;9
DW 0077H ;A
DW 007CH ;B
DW 0039H ;C
DW 005EH ;D
DW 0079H ;E
DW 0071H ;F
;************************************************
; 主程序
;************************************************
A1: MOVLW 0FFH ;设置PT3位输出口
MOVWF PT3EN ;
MOVLW 0FFH ;PT3输出高电平
MOVWF PT3 ;
MOVLW 60H ;第一个数码管位码
MOVWF 81H ;位码寄存器
MOVLW 16 ;总共位数
MOVWF 82H ;总共位数寄存器
;******************************************
; 显示初值
;
MOVLW 0H ;
MOVWF 90H ;
MOVLW 01H ;
MOVWF 91H ;
MOVLW 02H ;
MOVWF 92H ;
MOVLW 03H ;
MOVWF 93H ;
MOVLW 04H ;
MOVWF 94H ;
MOVLW 05H ;
MOVWF 95H ;
MOVLW 06H ;
MOVWF 96H ;
MOVLW 07H ;
MOVWF 97H ;
MOVLW 08H
MOVWF 98H
MOVLW 09H ;
MOVWF 99H ;
MOVLW 10 ;
MOVWF 9aH ;
MOVLW 11 ;
MOVWF 9bH ;
MOVLW 12 ;
MOVWF 9cH ;
MOVLW 13 ;
MOVWF 9dH ;
MOVLW 14 ;
MOVWF 9eH ;
MOVLW 15 ;
MOVWF 9fH ;
; 显示初值
;**********************************************
MOVLW 90H ;显示数据控制寄存器
MOVWF FSR0 ;间接寻址寄存器
A2: CLRWDT ;清看门狗
CALL ART ;开始
MOVLW 48H ;开显示命令
MOVWF SDA ;
CALL DATA1 ; 写命令
CALL ACK ;应答
MOVLW 01H ;开显示
MOVWF SDA ;
CALL DATA1 ; 写命令
CALL ACK ;
CALL STOP ; 结束
CALL START ;开始
MOVFW 81H ;写位码
MOVWF SDA ;
CALL DATA1 ;
CALL ACK ;
MOVLW Q1 ;数据表地址
ADDWF ind0,0 ;需要显示数据地址
MOVWF EADRL ;
MOVP ;查表
MOVWF SDA ;显示数据
CALL DATA1 ;
CALL ACK ;应答
CALL STOP ;结束
INCF FSR0,1 ;下一个显示数据
INCF 81H,1 ;下一个位码
INCF 81H,1 ;由于位码是60H,62H,等偶数所以用两次加1
DECFSZ 82H,1 ;判断是否显示完16位
GOTO A2 ;
GOTO A1 ;
;****************************************************************
; 5817开始子程序段
;****************************************************************
START:
BSF PT3EN,7 ;
BSF PT3,7 ;scl
NOP
BSF PT3EN,6 ;
BSF PT3,6 ;sda
NOP
BSF PT3EN,6
BCF PT3,6 ;sda
NOP
RETURN
;****************************************************************
; 5817结束子程序段
;****************************************************************
STOP:
BSF PT3EN,7
BSF PT3,7 ;scl
NOP
BSF PT3EN,3
BCF PT3,6 ;sda
NOP
BSF PT3EN,6
BSF PT3,6 ;sda
NOP
RETURN
;***************************************************************
; 5817应答子程序段
;***************************************************************
ACK:
BSF PT3EN,7
BSF PT3,7
NOP
ack1:
BCF PT3EN,6
BTFSS PT3,6 ;SDA判断应答信号
GOTO ACK1
NOP
BSF PT3EN,7
BCF PT3,7
NOP
RETURN
;*****************************************************************
; 5817写数据子程序段
;*****************************************************************
DATA1:
MOVLW 8
MOVWF 85H
DA:
BSF PT3EN,7
BCF PT3,7 ;SCL
NOP
CALL SDA1 ;SDA
NOP
BSF PT3EN,7
BSF PT3,7 ;SCL
NOP
BSF PT3EN,7
BCF PT3,7 ;SCL
NOP
BSF PT3EN,6
BSF PT3,6 ;SDA
NOP
RLF SDA,0
RLF SDA,1
DECFSZ 85H,1
GOTO DATA2
RETURN
;*********************************************
; 5817SDA数据处理子程序段
;*********************************************
SDA1:
BTFSC SDA,7
GOTO SDA2
BSF PT3EN,6
BCF PT3,6
GOTO SDA3
SDA2:
BSF PT3EN,6
BSF PT3,6
SDA3:
RETURN
;*******************************************
; 延时子程序段
;*******************************************
M001:
MOVLW 1 ;
MOVWF 8AH ;
M002:
MOVLW 10 ;
MOVWF 8BH ;
M003:
MOVLW 250 ;
MOVWF 8CH ;
M004:
DECFSZ 8CH,1 ;
GOTO M004 ;
DECFSZ 8BH,1 ;
GOTO M003 ;
DECFSZ 8AH,1 ;
GOTO M002 ;
RETURN ;子程序返回
end
;============================================
-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
