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] 下一页