电子开发网

电子开发网电子设计 | 电子开发网Rss 2.0 会员中心 会员注册
搜索: 您现在的位置: 电子开发网 >> 电子开发 >> 单片机 >> 正文

单片机制作的12864数字钟

作者:佚名    文章来源:本站原创    点击数:    更新时间:2008-12-4
nbsp;       ;重新设列单元
                LCALL Wcom
                MOV A,2eH
                swap A
                MOV     R1,A                   ;写入时个位
                LCALL WDATSZ
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     R1,#0B0H               ;写入冒号:
                LCALL WDATSZ
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     A,2dh                  ;写入分十位
                swap    A
                MOV     R1,A
                LCALL WDATSZ
                SETB CS1
                CLR CS2
                MOV 33H,#0C0H              ;设行单元初值
                MOV 34H,#0BCH              ;设页单元初值
                MOV 35H,#40H               ;设列单元初值
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     A,2cH                  ;写入分个位
                swap    A
                MOV     r1,A
                LCALL WDATSZ
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     R1,#0B0H               ;写入冒号:
                LCALL WDATSZ
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     A,2bH                  ;写入秒十位
                swap    A
                MOV     R1,A
                LCALL WDATSZ
                MOV com,33H                ;重新设行单元
                LCALL Wcom
                MOV com,34H                ;重新设页单元
                LCALL Wcom
                MOV com,35H                ;重新设列单元
                LCALL Wcom
                MOV     A,2aH
                swap    A
                MOV     R1,A                   ;写入秒个位
                LCALL WDATSZ
                pop     psw                    ;回复现场
                pop     acc
                pop     dph
                pop     dpl
                RET
;***************************************************写屏wxqsz12X12
Wxqsz:          push    dph                      ;保护现场
                push    dpl
                push    acc
                push    psw
                MOV     R2,#12                   ;写汉字的上半部分
LOOP14:         MOV     A,R1
                MOV     DPTR,#TABxqsz
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP14
                INC     34H                      ;移到下一页
                MOV     com,34h
                LCALL Wcom
                MOV     com,35h
                LCALL Wcom       
                MOV     R2,#12                   ;写汉字的下半部分
LOOP15:         MOV     A,R1
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP15
                DEC     34H                      ;再退回到上一页
                MOV com,34H
                LCALL Wcom
                MOV     A,35H
                ADD     A,#12                    ;加当前字的宽度
                MOV     35H,A
                pop     psw                      ;回复现场
                pop     acc
                pop     dph
                pop     dpl
                RET
;***************************************************写屏lxazz12X12       
lxazzz:         PUSH    Acc
                MOV     R2,#12                   ;写汉字的上半部分
LOOP8:          MOV     A,R1
                MOV     DPTR,#lxazz
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP8
                INC     34H                      ;移到下一页
                MOV     com,34h
                LCALL Wcom
                MOV     com,35h
                LCALL Wcom       
                MOV     R2,#12                   ;写汉字的下半部分
LOOP9:          MOV     A,R1
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP9
                DEC     34H                      ;再退回到上一页
                MOV com,34H
                LCALL Wcom
                MOV     A,35H
                ADD     A,#12                    ;加当前字的宽度
                MOV     35H,A
                POP     Acc
                RET
;***************************************************写星期12X12       
Wxq:            PUSH    Acc
                MOV     R2,#12                   ;写汉字的上半部分
LOOP6:          MOV     A,R1
                MOV     DPTR,#tabxq
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP6
                INC     34H                      ;移到下一页
                MOV     com,34h
                LCALL Wcom
                MOV     com,35h
                LCALL Wcom       
                MOV     R2,#12                   ;写汉字的下半部分
LOOP7:          MOV     A,R1
                MOVC    A,@A+DPTR
                MOV     DAT,A
                CALL    WDAT
                INC     R1
                DJNZ    R2,LOOP7
                DEC     34H                      ;再退回到上一页
                MOV com,34H
                LCALL Wcom
                MOV     A,35H
                ADD     A,#12                    ;加当前字的宽度
                MOV     35H,A
                POP     Acc
                RET             
;***************************************************写年月日16X16 &nb

上一页  [1] [2] [3] [4] [5] [6] 下一页

Tags:单片机数字钟,单片机,数字钟制作  
责任编辑:admin
请文明参与讨论,禁止漫骂攻击,不要恶意评论、违禁词语。 昵称:
1分 2分 3分 4分 5分

还可以输入 200 个字
[ 查看全部 ] 网友评论
关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 在线帮助 - 文章列表
返回顶部
刷新页面
下到页底
晶体管查询