历史上的今天
返回首页

历史上的今天

今天是:2025年01月07日(星期二)

正在发生

2018年01月07日 | 四字16*16点阵显示程序

2018-01-07 来源:eefocus

;显示字用查表法,不占内存,用四个16*16共阳LED点阵显示, 
;效果:向上滚动显示字,每次四个,重复循环。 
;R2:行扫描地址(从00-0FH)。 
;R3:滚动显示时控制移动速度,也可控制静止显示的时间。 
;************; 
;中断入口程序; 
;************; 

ORG     0000H 

LJMP    START 
ORG     0003H 
RETI 
ORG     000BH 
LJMP    INTT0 
ORG     0013H 
RETI 
ORG     001BH 
RETI 
ORG     0023H 
RETI 
ORG     002BH 
RETI 

;************; 
; 初始化程序 ; 
;************; 


;************; 
;   主程序   ; 
;************; 

START:          MOV     20H,#00H             ;清标志,00H为1帧扫描结束标志 
                MOV     A,#0FFH              ;端口初始化 
                MOV     P1,A 
                MOV     P2,A 
                MOV     P3,A 
                MOV     P0,A 
                CLR     P1.6            ;串行寄存器打入输出端控制位 
                MOV     TMOD,#01H       ;使用T0作16位定时器,行扫描用。 
                MOV     TH0,#0FCH       ;1ms初值(12MHz) 
                MOV     TL0,#18H 
                MOV     SCON,#00H       ;串口0方式传送显示字节 
                MOV     IE,#82H         ;T0中断允许,总中断允许 
                MOV     SP,#70H 
                LCALL   DIS1            ;显示准备,黑屏,1.5秒 
MAIN:           MOV     DPTR,#TAB 
                LCALL   MOVDISP         ;逐排显示,每次四字) 
                MOV     DPTR,#TAB 
                LCALL   MOVDISP1        ;滚动显示,每排四字) 
                AJMP    MAIN 


;********************; 
; 四字逐排显示子程序 ; 
;********************; 
;每次四字移入移出显示方式,入口时定义好DPTR值 

MOVDISP:        MOV     R1,#6           ;显示6排字,每排四字(R1=排数) 
DISLOOP:        MOV     R3,#100         ;每排显示时间1.6*100=1.6S 
DISMOV:         MOV     R2,#00H         ;第0行开始 
                SETB    TR0             ;开扫描(每次一帧) 
WAITMOV:        JBC     00H,DISMOV1     ;标志为1扫描一帧结束(16毫秒为1帧,每行1毫秒) 
                AJMP    WAITMOV 
DISMOV1:        DJNZ    R3,DISMOV       ;1帧重复显示(控制显示时间) 
                MOV     A,#128          ;显示字指针移一排(每排4字*32=128) 
                ADD     A,DPL           ; 
                MOV     DPL,A 
                MOV     A,#0 
                ADDC    A,DPH 
                MOV     DPH,A 
                DEC     R1              ;R1为0,显示完 
                MOV     A,R1 
                JZ      MOVOUT          ; 
                AJMP    DISLOOP         ; 
MOVOUT:         RET                     ;移动显示结束 

;********************; 
; 四字滚动显示子程序 ; 
;********************; 
;每排四字向上移出显示方式,入口时定义好DPTR值 

MOVDISP1:        MOV     R1,#255          ;向上移动显示6排字,每排四字(R1=排数*16) 
DISLOOP1:        MOV     R3,#10          ;移动速度1.6*10=0.16S 
DISMOV2:         MOV     R2,#00H         ;第0行开始 
                 SETB    TR0             ;开扫描(每次一帧) 
WAITMOV1:        JBC     00H,DISMOV3     ;标志为1扫描一帧结束(16毫秒为1帧,每行1毫秒) 
                 AJMP    WAITMOV1 
DISMOV3:         DJNZ    R3,DISMOV2      ;1帧重复显示(控制移动速度) 
                 INC     DPTR            ;显示字指针移一行(二字节位置) 
                 INC     DPTR 
                 DEC     R1              ;R1为0,显示完 
                 MOV     A,R1 
                 JZ      MOVOUT1         ; 
                 AJMP    DISLOOP1        ; 
MOVOUT1:         RET                     ;移动显示结束 


;*****************; 
; 四个字显示子程序  ; 
;*****************; 
;静止显示表中某四个字 
DIS1:           MOV     R3,#5AH         ;静止显示时间控制(16MS*#=1.6秒) 
DIS11:          MOV     R2,#00H         ;一帧扫描初始值(行地址从00-0FH) 
                MOV     DPTR,#TAB       ;取表首址 
                SETB    TR0             ;开扫描(每次一帧) 
WAIT11:         JBC     00H,DIS111      ;为1,扫描一帧结束 
                AJMP    WAIT11 
DIS111:         DJNZ    R3,DIS11 
                RET 


;************; 
;  扫描程序  ; 
;************; 
;1MS传送一行,每行显示1毫秒,一次传送四个字的某行共8个字节. 

INTT0:          PUSH    ACC 
                MOV     TH0,#0FCH       ;1ms初值重装 
                MOV     TL0,#18H 
                MOV     A,#97           ;指向第四个字行右字节 
                ADD     A,DPL 
                MOV     DPL,A 
                MOV     A,#0 
                ADDC    A,DPH 
                MOV     DPH,A 
                MOV     A,#0 
                MOVC     A,@A+DPTR      ;查表 
                MOV     SBUF,A          ;串口0方式发送 
WAIT:           JBC     TI,GO           ;等待发送完毕 
                AJMP    WAIT            ; 
GO:             MOV     A,DPL           ;指向第四个字行左字节 
                SUBB    A,#1 
                MOV     DPL,A 
                MOV     A,DPH 
                SUBB    A,#0 
                MOV     DPH,A 
                MOV     A,#0 
                MOVC     A,@A+DPTR 
                MOV     SBUF,A 
WAIT1:          JBC     TI,GO1 
                AJMP    WAIT1 

GO1:            MOV     R0,#03H 
MLOOP:          MOV     A,DPL           ;指向前三个字行右字节 
                SUBB    A,#31 
                MOV     DPL,A 
                MOV     A,DPH 
                SUBB    A,#0 
                MOV     DPH,A 
                MOV     A,#0 
                MOVC     A,@A+DPTR      ;查表 
                MOV     SBUF,A          ;串口0方式发送 
WAIT2:          JBC     TI,GO2           ;等待发送完毕 
                AJMP    WAIT2            ; 
GO2:            MOV     A,DPL           ;指向前三个字行左字节 
                SUBB    A,#1 
                MOV     DPL,A 
                MOV     A,DPH 
                SUBB    A,#0 
                MOV     DPH,A 
                MOV     A,#0 
                MOVC     A,@A+DPTR 
                MOV     SBUF,A 
WAIT3:          JBC     TI,GO3 
                AJMP    WAIT3 
GO3:            DJNZ    R0,MLOOP        ;执行三次 


                SETB    P1.7            ;关行显示,准备涮新 
                NOP                     ;串口寄存器数据稳定 
                SETB    P1.6            ;产生上升沿,行数据打入输出端 
                NOP                     ; 
                NOP                     ; 
                CLR     P1.6            ;恢复低电平 
                MOV     A,R2            ;修改显示行地址 
                ORL     A,#0F0H         ;修改显示行地址 
                MOV     R2,A            ;修改显示行地址 
                MOV     A,P1            ;修改显示行地址 
                ORL     A,#0FH          ;修改显示行地址 
                ANL     A,R2            ;修改显示行地址 
                MOV     P1,A            ;修改完成 
                CLR     P1.7            ;开行显示 
                INC     R2              ;下一行扫描地址值 
                INC     DPTR            ; 
                INC     DPTR            ;下一行数据地址 
                MOV     A,R2 
                ANL     A,#0FH 
                JNZ     GO4 
                SETB    00H             ;R2为10H,现为末行扫描,置1帧结束标志 
                MOV     A,DPL           ;指针修正为原帧初值 
                SUBB    A,#32 
                MOV     DPL,A 
                MOV     A,DPH 
                SUBB    A,#0 
                MOV     DPH,A 
                CLR     TR0             ;一帧扫描完,关扫描 
GO4:            POP     ACC 
                RETI                    ;退出 


;***************; 
;  扫描文字表   ; 
;***************; 
; 共五排字,每排四个字,前后为黑屏 
TAB:    DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH     ;黑屏 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH     ;黑屏 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH     ;黑屏 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH     ;黑屏 
        DB  0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH 
        DB  0F7H,0DFH,0F9H,0CFH,0FBH,0BFH,0C0H,007H,0DEH,0F7H,0C0H,007H,0DEH,0F7H,0DEH,0F7H    ;--  文字:  单  -- 
        DB  0C0H,007H,0DEH,0F7H,0FEH,0FFH,000H,001H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH 
        DB  0FFH,0BFH,0EFH,0BFH,0EFH,0BFH,0EFH,0BBH,0E0H,001H,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH    ;--  文字:  片  -- 
        DB  0E0H,00FH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0DFH,0EFH,0DFH,0EFH,0BFH,0EFH,07FH,0EFH 
        DB  0EFH,0FFH,0EFH,007H,0EFH,077H,001H,077H,0EFH,077H,0EFH,077H,0C7H,077H,0CBH,077H    ;--  文字:  机  -- 
        DB  0ABH,077H,0AFH,077H,06EH,0F7H,0EEH,0F5H,0EDH,0F5H,0EDH,0F5H,0EBH,0F9H,0EFH,0FFH 
        DB  0FFH,0FFH,0F0H,00FH,0F7H,0EFH,0F0H,00FH,0F7H,0EFH,0F0H,00FH,0FFH,0FFH,000H,001H    ;--  文字:  是  -- 
        DB  0FEH,0FFH,0F6H,0FFH,0F6H,007H,0F6H,0FFH,0EAH,0FFH,0DCH,0FFH,0BFH,001H,0FFH,0FFH 
        ; 
        DB  0FFH,0FFH,0C0H,003H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH     ;--  文字:  工  -- 
        DB  0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,000H,001H,0FFH,0FFH,0FFH,0FFH 
        DB  0FBH,0BFH,0FBH,0BFH,0FBH,0BFH,0FBH,0BBH,0BBH,0B9H,0DBH,0B3H,0DBH,0B7H,0EBH,0AFH     ;--  文字:  业  -- 
        DB  0E3H,0AFH,0EBH,09FH,0FBH,0BFH,0FBH,0BFH,0FBH,0BBH,000H,001H,0FFH,0FFH,0FFH,0FFH 
        DB  0FEH,0FFH,0FEH,0FFH,0DEH,0F7H,0C0H,003H,0DEH,0F7H,0DEH,0F7H,0DEH,0F7H,0DEH,0F7H     ;--  文字:  中  -- 
        DB  0DEH,0F7H,0C0H,007H,0DEH,0F7H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH 
        DB  0E0H,00FH,0EFH,0EFH,0E0H,00FH,0EFH,0EFH,0E0H,00FH,0FFH,0FFH,000H,001H,0DDH,0FFH    ;--  文字:  最  -- 
        DB  0C1H,003H,0DDH,077H,0C1H,0AFH,0DCH,0DFH,0C1H,0AFH,01DH,071H,0FCH,0FBH,0FDH,0FFH 
        ; 
        DB  0F7H,0DFH,0F7H,0DFH,080H,003H,0F7H,0DFH,0F0H,01FH,0F7H,0DFH,0F0H,01FH,0F7H,0DFH    ;--  文字:  基  -- 
        DB  000H,001H,0F7H,0DFH,0EEH,0E7H,0C0H,011H,03EH,0FBH,0FEH,0FFH,080H,003H,0FFH,0FFH 
        DB  0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,000H,001H,0FCH,07FH,0FCH,0BFH,0FAH,0BFH,0FAH,0DFH    ;--  文字:  本  -- 
        DB  0F6H,0EFH,0EEH,0E7H,0D0H,011H,03EH,0FBH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FFH,0FFH 
        DB  0EFH,07FH,0EFH,07FH,0DFH,07FH,083H,003H,0BAH,0FBH,0BAH,0FBH,0B9H,0FBH,083H,07BH    ;--  文字:  的  -- 
        DB  0BBH,0BBH,0BBH,09BH,0BBH,0DBH,0BBH,0FBH,083H,0FBH,0BBH,0D7H,0BFH,0EFH,0FFH,0FFH 
        DB  0FEH,0FFH,0FFH,07FH,0C0H,003H,0DFH,0FFH,0DDH,0FFH,0DEH,0F7H,0CFH,073H,0D7H,037H   ;--  文字:  应  -- 
        DB  0DBH,06FH,0DBH,06FH,0D9H,0DFH,0BBH,0DFH,0BFH,0BFH,0A0H,001H,07FH,0FFH,0FFH,0FFH 
        ; 
        DB  0FFH,0FFH,0E0H,003H,0EFH,07BH,0EFH,07BH,0EFH,07BH,0E0H,003H,0EFH,07BH,0EFH,07BH   ;--  文字:  用  -- 
        DB  0EFH,07BH,0E0H,003H,0EFH,07BH,0EFH,07BH,0DFH,07BH,0DFH,07BH,0BFH,06BH,07FH,077H 
        DB  0FDH,0FFH,0FEH,0FFH,0FFH,07FH,000H,001H,0FDH,0FFH,0FDH,0FFH,0FCH,00FH,0FDH,0EFH    ;--  文字:  方  -- 
        DB  0FBH,0EFH,0FBH,0EFH,0F7H,0EFH,0F7H,0EFH,0EFH,0EFH,0DFH,06FH,03FH,09FH,0FFH,0FFH 
        DB  0FFH,05FH,0FFH,067H,0FFH,06FH,080H,003H,0FFH,07FH,0FFH,07FH,0FFH,07FH,0C1H,07FH    ;--  文字:  式  -- 
        DB  0F7H,0BFH,0F7H,0BFH,0F7H,0BFH,0F4H,0DFH,0E3H,0DDH,08FH,0EDH,0DFH,0F5H,0FFH,0FBH 
        DB  0F9H,0BFH,0C7H,0AFH,0F7H,0B7H,0F7H,0B7H,0F7H,0BFH,000H,001H,0F7H,0BFH,0F7H,0B7H    ;--  文字:  我  -- 
        DB  0F1H,0D7H,0C7H,0CFH,037H,0DFH,0F7H,0AFH,0F6H,06DH,0F7H,0F5H,0D7H,0F9H,0EFH,0FDH 
        ; 
        DB  0FFH,007H,0C0H,06FH,0EDH,0EFH,0F6H,0DFH,0C0H,001H,0DDH,0FDH,0BDH,0FFH,0C0H,003H    ;--  文字:  爱  -- 
        DB  0FBH,0FFH,0F8H,00FH,0F3H,0DFH,0F4H,0BFH,0EFH,03FH,09CH,0CFH,073H,0F1H,0CFH,0FBH 
        DB  0F7H,0DFH,0F9H,0CFH,0FBH,0BFH,0C0H,007H,0DEH,0F7H,0C0H,007H,0DEH,0F7H,0DEH,0F7H    ;--  文字:  单  -- 
        DB  0C0H,007H,0DEH,0F7H,0FEH,0FFH,000H,001H,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH,0FEH,0FFH 
        DB  0FFH,0BFH,0EFH,0BFH,0EFH,0BFH,0EFH,0BBH,0E0H,001H,0EFH,0FFH,0EFH,0FFH,0EFH,0FFH    ;--  文字:  片  -- 
        DB  0E0H,00FH,0EFH,0EFH,0EFH,0EFH,0EFH,0EFH,0DFH,0EFH,0DFH,0EFH,0BFH,0EFH,07FH,0EFH 
        DB  0EFH,0FFH,0EFH,007H,0EFH,077H,001H,077H,0EFH,077H,0EFH,077H,0C7H,077H,0CBH,077H    ;--  文字:  机  -- 
        DB  0ABH,077H,0AFH,077H,06EH,0F7H,0EEH,0F5H,0EDH,0F5H,0EDH,0F5H,0EBH,0F9H,0EFH,0FFH 
        ; 
        END 


推荐阅读

史海拾趣

Excelsys公司的发展小趣事

品质是Excelsys公司的生命线。公司始终坚持严格的品质控制标准,从原材料采购到生产制造的每一个环节,都经过严格的质量检测。这种对品质的执着追求,让Excelsys的产品在市场上赢得了良好的口碑。同时,公司还建立了完善的售后服务体系,为客户提供及时、专业的技术支持,进一步提升了品牌的信誉度。

璟德(ACX)公司的发展小趣事

随着公司的发展,璟德(ACX)在LTCC技术的研发上取得了重大突破。这些突破不仅提升了产品的性能和质量,也为公司赢得了多项国内外专利。这些专利的获取进一步巩固了璟德(ACX)在无线通信领域的领先地位,也为其后续的市场拓展提供了有力支持。

Crystek公司的发展小趣事

为了更好地满足客户需求和推动业务发展,Crystek公司设立了专门负责频率控制的部门——Crystek Crystals和Crystek Microwave。这两个部门分别致力于开发和制造使用石英谐振器的频率产品以及为微波行业开发频率控制和支持产品。这种专业化的分工不仅提高了公司的运营效率,也使得Crystek公司能够更好地为客户提供定制化的解决方案和优质的服务。

FUJI公司的发展小趣事

Crystek公司成立于1958年,自创立之初,就致力于成为射频微波和频率控制行业的高性能技术领导者。创业初期,Crystek公司凭借其敏锐的市场洞察力和前瞻性的技术视野,成功开发了一系列高质量的频率产品,包括石英晶振、时钟振荡器(XO)等,逐渐在市场中树立起了良好的口碑。通过不断的努力和创新,Crystek公司逐渐在电子行业中崭露头角,赢得了客户的信任和认可。

Greenwich Instruments Ltd公司的发展小趣事

Greenconn Corp自创立之初便致力于连接器技术的研发与创新。在20世纪末,随着电子产品的普及和通讯技术的飞速发展,连接器作为电子设备间的桥梁,其重要性日益凸显。Greenconn Corp凭借其敏锐的市场洞察力和强大的研发实力,成功研发出了一系列高性能、高可靠性的连接器产品,迅速在汽车电子、通信设备等领域占据了一席之地。这些创新产品不仅满足了市场对连接器高质量、高效率的需求,还推动了整个电子行业的发展。

CoolerMaster公司的发展小趣事

林仁政跳出已有的框架,不断思考机箱的设计。他敏锐地觉察到人们对于免工具安装的主板散热片的偏好,并深知散热效果不仅仅取决于散热片和风扇,更需要考虑空气的流动情况。结合日本高水准的立体设计灵感,林仁政带领工程师挑战困难,成功设计出了一台铝制机箱。这一机箱不仅具有高度的创新性,更因其纯手工制作的特性而显得弥足珍贵,对Cooler Master的发展具有重要意义。

问答坊 | AI 解惑

求一份关于串联和并联谐振的资料

最近在用线圈耦合做无线识别,用12M做载波,求谐振资料。 有功放或放大或滤波图的来几张,多谢。 芯片也行 xuchaoda@126.com…

查看全部问答>

标准数字电路 54-74HC全系列高速CMOS数据手册(中文

标准数字电路 54-74HC全系列高速CMOS数据手册(中文)…

查看全部问答>

变色水龙头

似乎自来水管里除了在管道生锈时才会流出红色的水,剩下便是饮料机的出水口会流出带颜色的饮料,其它情况下正常的自来水都是无色透明的。不过使用 LED Faucet Lights 便可以给家里的自来水加上颜色,不过只是在水流出时,通过 LED 灯来照明显示出颜 ...…

查看全部问答>

如何做到长按power键唤醒系统!?

产品有了新需求:要求长按power键3秒钟,系统进入suspend状态;再长按power键3秒钟,唤醒系统。长按3s让系统suspend这个很好做,但是长按3s唤醒系统就让我郁闷了,这个似乎是控制不了,把power键设置为唤醒源之后,只要短按power键中断上来,系统就 ...…

查看全部问答>

64脚的STR711没有外部中断引脚么?

                                 类似于51的INT0、INT1引脚?…

查看全部问答>

5402和GAL16V8D输入端之间需不需要加164245?

请问,在5402和5V供电的GAL16V8D输入端之间需不需要加一片164245?我看芯片资料,GAL16V8D的VIH是2V。…

查看全部问答>

[求助]急急急!!MSPF1232静态电流过大

工作到扫尾状态时,突发的想测下电流,吓了好大一跳!天啊!28mA 一直找不到原因.甚至将所有外围电路去掉,最后将片子悬空只保留电源,跑最简单的程序,也有8mA. 从程序配置到硬件连线,查了个遍,身边的人问了个遍,无解! 极度郁闷中! 附带:拿的5个样片 ...…

查看全部问答>

硬件仿真时怎么都进不了定时器中断

这是我写的一段测试ad转换速度的程序,但是硬件仿真时发现怎么都进不了定时器中断,换成DCO时钟源也不行,不知问题出在哪里,希望各位牛人指点,谢谢!!!! #include <msp430x14x.h> #define uint unsigned int #define uchar unsi ...…

查看全部问答>

莫名的优盘

今天莫名收到一个TI的4G优盘,到现在都还不知道到底是哪里送的?怎么回事?…

查看全部问答>

protues上仿真的频率计

有图有程序的简易频率计…

查看全部问答>