time.asm

来自「at89c51单片机的串口通迅代码」· 汇编 代码 · 共 100 行

        minH data 20h
        minL data 21h
        secH data 22h
        secL data 23h
        min  data 24h
        sec  data 25h

        org 0000h
        ljmp main
        org 0023h
        ljmp re
        org 0100h
main:   mov min,#12
        mov sec,#30
        mov tmod,#00100000B
        anl pcon,#011111111B
        mov th1,#0f3h
        mov tl1,#0f3h
        setb tr1
        mov scon,#01010000B
        mov ie,#10010000B
start:  MOV A,min
        MOV B,#100
        DIV AB
        MOV R3,A
        MOV A,#10
        XCH A,B
        DIV AB
        MOV minH,A
        MOV minL,B

        MOV A,sec
        MOV B,#100
        DIV AB
        MOV R3,A
        MOV A,#10
        XCH A,B
        DIV AB
        MOV secH,A
        MOV secL,B


        mov dptr,#tab
        clr a

        mov a,minH
        movc a,@a+dptr
        mov p0,a
        clr p2.7
        acall del
        setb p2.7

        mov a,minL
        movc a,@a+dptr
        mov p0,a
        clr p0.0
        clr p2.6
        acall del
        setb p2.6

        mov a,secH
        movc a,@a+dptr
        mov p0,a
        clr p2.5
        acall del
        setb p2.5

        mov a,secL
        movc a,@a+dptr
        mov p0,a
        clr p2.4
        acall del
        setb p2.4

        ajmp start

tab: db 03h,9fh,25h,0dh,99h,49h,41h,1fh,01h,09h
;-------------------------------------------------------------

re:     push a
        push psw
        jnb ri,$
        clr ri
        mov a,sbuf
        mov min,a
        jnb ri,$
        clr ri
        mov a,sbuf
        mov sec,a
        pop psw
        pop a
        reti

DEL:
         MOV  R6,#25
 DL2:    MOV  R7,#50
         DJNZ  R7,$
         DJNZ  R6,DL2
         RET