LED电子屏字符显示器程序

;四个显示字符数据表放在50H-6FH单元内，字符用8*8点阵，R4（30H）用于
;控制显示静止字的时间，R5（31H）静止字显示跳转地址步距，B内放显示首址
;
;************;

;中断入口程序;
;************;
;
ORG0000H;程序执行开始地址
LJMPSTART;跳至START执行
ORG0003H;外中断0中断入口地址
RETI;中断返回（不开中断）
ORG000BH;定时器T0中断入口地址
RETI;中断返回（不开中断）
ORG0013H;外中断1中断入口地址
RETI;中断返回（不开中断）
ORG001BH;定时器T1中断入口地址
RETI;中断返回（不开中断）
ORG0023H;串行口中断入口地址
RETI;中断返回（不开中断）
ORG002BH;定时器T2中断入口地址
RETI;中断返回（不开中断）
;
;初始化程序
CLEARMEN:MOVA,#0FFH;四端口置1
MOVP1,A;
MOVP2,A;
MOVP3,A;
MOVP0,A;
MOVDPTR,#TAB;取"电子设计"字符表首址值
CLRA;
MOV21H,A;21H-24H内存单元清0
MOV22H,A;
MOV23H,A;
MOV24H,A;
MOVR3,A;R3寄存器清0
MOVR1,#50H;设字符表移入内存单元首址
MOVR2,#20H;设查表次数（32次）
CLLOOP:MOVCA,@A+DPTR;查表将"电子设计"字符数据移入内存单元
MOV@R1,A;
MOVA,R3;
INCA;
MOVR3,A;
INCR1;
DJNZR2,CLLOOP;查表32次，不到转CLLOOP再查
RET;子程序返回
;
;主体程序
START:MOV20H,#00H;20H内存单元清0
SETB00H;20H.0位置1
START1:LCALLCLEARMEN;调用上电初始化子程序
JB00H,FUN0;20H.0位为1，执行FUN0
JB01H,FUN1;20H.1位为1，执行FUN1
JB02H,FUN2;20H.2位为1，执行FUN2
AJMPSTART1;跳回START1循环
;
;键扫描子程序
KEYWORK:MOVP1,#0FFH;置输入状态
JNBP1.0,KEY1;P1.0为0（键按下）转KEY1
JNBP1.1,KEY2;P1.1为0（键按下）转KEY2
JNBP1.2,KEY3;P1.2为0（键按下）转KEY3
KEYRET:RET;无键按下，子程序返回
;按键1功能处理
KEY1:LCALLDL10MS;延时10MS削抖动
JBP1.0,KEYRET;是干扰转KEYRET结束
SETB00H;置逐字显示方式标志（20H.0=1）
CLR01H;
CLR02H;
RET;子程序返回
;按键2功能处理
KEY2:LCALLDL10MS;
JBP1.1,KEYRET;
SETB01H;置上移显示方式标志（20H.1=1）
CLR00H;
CLR02H;
RET;
;按键3功能处理
KEY3:LCALLDL10MS;
JBP1.2,KEYRET;
SETB02H;置左移显示方式标志（20H.2=1）
CLR01H;
CLR00H;
RET
;
;逐字显示功能程序
FUN0:MOV30H,#80H;1帧显示时间控制（约1秒）
MOV31H,#08H;换帧跳转步距为8
LJMPDISP1;转显示子程序DISP1
;上移显示功能程序
FUN1:MOV30H,#0AH;1帧显示时间控制（约80毫秒）
MOV31H,#01H;换帧跳转步距为1
LJMPDISP1;转显示子程序DISP1
;左移显示功能程序
FUN2:LJMPDISP2;
;
;显示控制程序
DISP1:MOVB,#50H;显示数据首址
MOVR4,30H;放入1帧显示时间控制数据
MOVR5,31H;放入跳转步距控制数据
LOOP:LCALLDISPLAY;调用显示子程序一次
DJNZR4,LOOP;1帧显示时间未到再转LOOP循环
MOVR4,30H;1帧显示时间到，重装初值
MOVA,B;
CJNEA,#68H,CONT;不是末地址转CONT
AJMPSTART1;是末地址，一次显示结束跳回START1
CONT:ADDA,R5;次帧扫描首址调整
MOVB,A;
AJMPLOOP;转LOOP进行次帧扫描
;
;显示子程序，字符数据从P0口输出，扫描控制字从P2口输出，显示1帧约需8MS
DISPLAY:MOVA,#0FFH;
MOVP0,A;关显示数据
MOVP2,A;关扫描
MOVR6,#0FEH;赋扫描字
MOVR0,B;赋显示数据首地址
MOVR7,#08H;一次扫描8行
DISLOOP:MOVA,@R0;取显示数据
MOVP0,A;放入P0口
MOVP2,R6;扫描输出（显示某一行）
LCALLDL1MS;亮1毫秒
INCR0;指向下一行数据地址
MOVA,R6;扫描字移入A
RLA;循环左移一位
MOVR6,A;放回R6
DJNZR7,DISLOOP;8行扫描未完转DISLOOP继续
RET;8行扫描结束
;
;左移显示控制程序
DISP2:MOVR5,#32;左移32次
DISP22:LCALLDISPP;调用左移显示控制子程序
LCALLMOVH;调用高位移出处理子程序MOVH
LCALLMOVH1;调用高位移出处理子程序MOVH1
DJNZR5,DISP22;左移显示32次控制
LJMPSTART1;跳回主程序
;
;左移显示控制子程序
DISPP:MOVB,#50H;第一显示字符首址
MOVR4,#25H;1帧显示时间控制
DISPP1:LCALLDISPLAY;调用显示子程序一次
DJNZR4,DISPP1;1帧显示时间不到转DISPP再循环
RET
;
;高位移出处理子程序。将"电子设计"四个字符数据的最高位移出至21H-24H单元内
MOVH:MOVR1,#21H;最高位移出存放单元首址
MOVR0,#50H;"电子设计"字符数据首址
MOVR2,#08H;每"字"移8次
MOV1:MOVA,@R0;取"电子设计"字符数据
CLRC;清进位C
RLCA;带进位循左移
MOV@R0,A;放回原单元
MOVA,@R1;存放单元数据入A
RRCA;带进位循右移
MOV@R1,A;放回存放单元
INCR0;字符数据地址加1
DJNZR2,MOV1;移8次未完转MOV1再移
MOVR2,#08H;8次移完赋初值
INCR1;存放单元地址加1
MOVA,R1;判断地址是否小于25H
SUBBA,#25H;
JZOUT;等于25H退出
AJMPMOV1;小于25H转MOV1继续
OUT:RET;子程序结束
;
;高位移出处理子程序。
MOVH1:MOVA,21H;21H与22H、23H、24H单元数据循交换
XCHA,24H;21H与24H全交换
XCHA,23H;23H与24H全交换
XCHA,22H;23H与22H全交换
MOV21H,A;22H与21H全交换
MOVR1,#21H;以下是重新组成显示字符数据表程序
MOVR0,#50H;将21H-24H的各位分别移入50H-6FH的低位
MOVR2,#08H;移位次数
MOV2:MOVA,@R0;取字符数据
RRA;右移
MOV@R0,A;放回原单元
MOVA,@R1;取原移出最高位存放单元数
CLRC;清C
RRCA;带进位循环右移
MOV@R1,A;放回原单元
MOVA,@R0;取字符数据
RLCA;带进位循环左移
MOV@R0,A;放回字符数据
INCR0;字符数据地址加1
DJNZR2,MOV2;8次未完转MOV2再继续
MOVR2,#08H;8次完赋初值
INCR1;原移出最高位存放单元地址加1
MOVA,R1;判断地址是否小于25H
SUBBA,#25H;
JZOUT;等于25H转OUT退出
AJMPMOV2;小于25H转MOV2继续
;
;1毫秒延时子程序，采用调用扫键子程序延时，可快速读出按纽的状态
DL1MS:MOVR3,#64H;100*（10+2）us
LOOPK:LCALLKEYWORK
DJNZR3,LOOPK
RET
;
;0.5毫秒延时子程序
DL512:MOVR2,#0FFH
LOOP1:DJNZR2,LOOP1
RET
;
;10毫秒延时子程序
DL10MS:MOVR3,#14H
LOOP2:LCALLDL512
DJNZR3,LOOP2
RET
;
;"电子设计"显示用ROM数据表
TAB:DB0EFH,83H,0ABH,83H,0ABH,83H,0EEH,0E0H;电
DB0FFH,0C7H,0EFH,83H,0EFH,0EFH,0CFH,0EFH;子
DB0B1H,0B5H,04H,0BFH,0B1H,0B5H,9BH,0A4H;设
DB0BBH,0BBH,1BH,0A0H,0BBH,0BBH,9BH,0BBH;计
DB00H,00H,00H,00H
END;程序结束