LED数码管实验程序

DISPBUFEQU50H;50H,51H,52H,53H是显示缓冲区
LED1EQUP2.0;第一位数码管的位控制
LED2EQUP2.1;第二位数码管的位控制

LED3EQUP2.2;第三位数码管的位控制
LED4EQUP2.3;第四位数码管的位控制
LED5EQUP2.4
LED6EQUP2.5
LED7EQUP2.6
LED8EQUP2.7
;==============================================================
org0000h
LJMPMAIN
ORG0003H
RETI
ORG000BH
RETI
ORG0013H
RETI
ORG001BH
RETI
ORG0023H
RETI
MAIN:
MOVR0,#50H
MOV65H,#2
MOV64H,#3
MOV63H,#5
MOV62H,#9
MOV61H,#5
MOV60H,#9
MOV59H,#1
MOV58H,#2

ACALLOUT
LOOP1:ACALLDISP;调用显示程序

JNBP3.2,K1
JNBP3.3,K2

ACALLTIME
AJMPLOOP1
K1:LJMPCLEAR
K2:LJMPPAUSE
TIME:
MOVR0,#59H;指向毫秒计时单元
ACALLADD1;调用加1程序（加1毫秒操作）
MOVA,R3;毫秒数据放入A（R3为2位十进制数组合）
CLRC;清进位标志
CJNEA,#60H,ADDS
ADDS:JCOUT;小于60毫秒时中断退出
ACALLCLR0;大于或等于60毫秒时对秒计时单元清0
MOVR0,#61H;指向秒计时单元
ACALLADD1;调用加1程序（加1秒操作）
MOVA,R3;秒数据放入A（R3为2位十进制数组合）
CLRC;清进位标志
CJNEA,#60H,ADDM
ADDM:JCOUT;小于60秒时中断退出
ACALLCLR0;大于或等于60秒时对秒计时单元清0
MOVR0,#63H;指向分计时单元
ACALLADD1;分计时单元加1分钟
MOVA,R3;分数据放入A
CLRC;清进位标志
CJNEA,#60H,ADDH
ADDH:JCOUT;小于60分时中断退出
ACALLCLR0;大于或等于60分时分计时单元清0
MOVR0,#65H;指向小时计时单元
ACALLADD1;小时计时单元加1小时
MOVA,R3;时数据放入A
CLRC;清进位标志
CJNEA,#24H,HOUR
HOUR:JCOUT;小于24小时中断退出
ACALLCLR0;大于或等于24小时计时单元清零
OUT:
MOVDISPBUF,65H
MOVDISPBUF+1,64H
MOVDISPBUF+2,63H
MOVDISPBUF+3,62H
MOVDISPBUF+4,61H
MOVDISPBUF+5,60H
MOVDISPBUF+6,59H
MOVDISPBUF+7,58H

RETI
;======================================================================
;清零程序
;======================================================================
CLR0:
CLRA;清累加器
MOV@R0,A;清当前地址单元
DECR0;指向前一地址
MOV@R0,A;前一地址单元清零
RET

;======================================================================
;加1子程序
;======================================================================
ADD1:
MOVA,@R0;取当前计时单元数据到A
DECR0;指向前一地址
SWAPA;A中数据高四位与低四位交换
ORLA,@R0;前一地址中数据放入A中低四位
ADDA,#01H;A加1操作
DAA;十进制调整
MOVR3,A;移入R3寄存器
ANLA,#0FH;高四位变0
MOV@R0,A;放回前一地址单元
MOVA,R3;取回R3中暂存数据
INCR0;指向当前地址单元
SWAPA;A中数据高四位与低四位交换
ANLA,#0FH;高四位变0
MOV@R0,A;数据放入当前地址单元中
RET
;======================================================================
;显示程序
;======================================================================
DISP:
;-----------------------------------------------------------
MOVA,DISPBUF;取第一个待显示数
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA;
MOVP0,A;将字形码送P0位（段口）
CLRLED1;开第一位显示器位口
LCALLDELAY;延时5毫秒
SETBLED1;关闭第一位显示器（开始准备第二位的数据）
;-----------------------------------------------------------
MOVA,DISPBUF+1;取显示缓冲区的第二位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR
CPLA;
MOVP0,A;将第二个字形码送P0口
CLRLED2;开第二位显示器
LCALLDELAY;延时5毫秒
SETBLED2;关第二位显示
;-----------------------------------------------------------
MOVA,DISPBUF+2;取显示缓冲区的第三位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA;
MOVP0,A;将第三个字形码送P0位（段口）
CLRLED3;开第三位显示器位口
LCALLDELAY;延时5毫秒
SETBLED3;关闭第三位显示器
;-----------------------------------------------------------
MOVA,DISPBUF+3;取显示缓冲区的第四位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA;
MOVP0,A;将第四个字形码送P0位（段口）
CLRLED4;开第四位显示器位口
LCALLDELAY;延时5毫秒
SETBLED4;关闭第四位显示器
;-----------------------------------------------------------
MOVA,DISPBUF+4;取显示缓冲区的第五位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA
MOVP0,A;将第五个字形码送P0位（段口）
CLRLED5;开第五位显示器位口
LCALLDELAY;延时5毫秒
SETBLED5;关闭第五位显示器

;-----------------------------------------------------------
MOVA,DISPBUF+5;取显示缓冲区的第六位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA
MOVP0,A;将第六个字形码送P0位（段口）
CLRLED6;开第六位显示器位口
LCALLDELAY;延时5毫秒
SETBLED6;关闭第六位显示器

;-----------------------------------------------------------
MOVA,DISPBUF+6;取显示缓冲区的第七位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA
MOVP0,A;将第七个字形码送P0位（段口）
CLRLED7;开第七位显示器位口
LCALLDELAY;延时5毫秒
SETBLED7;关闭第七位显示器

;-----------------------------------------------------------

MOVA,DISPBUF+7;取显示缓冲区的第八位
MOVDPTR,#DISPTAB
MOVCA,@A+DPTR;取字形码
CPLA
MOVP0,A;将第八个字形码送P0位（段口）
CLRLED8;开第八位显示器位口
LCALLDELAY;延时5毫秒
SETBLED8;关闭第八位显示器

;-----------------------------------------------------------
RET
PAUSE:
ACALLDISP
JNBP3.2,K3
AJMPPAUSE
K3:acallCLEAR
CLEAR:
MOV58H,#0
MOV59H,#0
MOV60H,#0
MOV61H,#0
MOV62H,#0
MOV63H,#0
MOV64H,#0
MOV65H,#0
LJMPLOOP1
RETI




;======================================================================
;延时程序
;======================================================================
DELAY:
MOVR6,#20H;延时约5mS
D1:MOVR7,#10H
D2:DJNZR7,D2
DJNZR6,D1
RET
;======================================================================
DISPTAB:DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0ffh