nbsp;       ;重新設(shè)列單元
                LCALL Wcom
                MOV A,2eH
                swap A
                MOV     R1,A                   ;寫入時個位
                LCALL WDATSZ
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     R1,#0B0H               ;寫入冒號:
                LCALL WDATSZ
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     A,2dh                  ;寫入分十位
                swap    A
                MOV     R1,A
                LCALL WDATSZ
                SETB CS1
                CLR CS2
                MOV 33H,#0C0H              ;設(shè)行單元初值
                MOV 34H,#0BCH              ;設(shè)頁單元初值
                MOV 35H,#40H               ;設(shè)列單元初值
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     A,2cH                  ;寫入分個位
                swap    A
                MOV     r1,A
                LCALL WDATSZ
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     R1,#0B0H               ;寫入冒號:
                LCALL WDATSZ
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     A,2bH                  ;寫入秒十位
                swap    A
                MOV     R1,A
                LCALL WDATSZ
                MOV com,33H                ;重新設(shè)行單元
                LCALL Wcom
                MOV com,34H                ;重新設(shè)頁單元
                LCALL Wcom
                MOV com,35H                ;重新設(shè)列單元
                LCALL Wcom
                MOV     A,2aH
                swap    A
                MOV     R1,A                   ;寫入秒個位
                LCALL WDATSZ
                pop     psw                    ;回復(fù)現(xiàn)場
                pop     acc
                pop     dph
                pop     dpl
                RET
;***************************************************寫屏wxqsz12X12
Wxqsz:          push    dph                      ;保護現(xiàn)場
                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                    ;加當(dāng)前字的寬度
                MOV     35H,A
                pop     psw                      ;回復(fù)現(xiàn)場
                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                    ;加當(dāng)前字的寬度
                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                    ;加當(dāng)前字的寬度
                MOV     35H,A
                POP     Acc
                RET             
;***************************************************寫年月日16X16 &nb

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