org 0
ljmp main

org 0bh
cpl clock
reti

org 23h
ljmp serial

org 30h
main:
        clock bit P3.2
        sc bit P3.3
        eoc bit P3.4
        oe bit P3.5
        ale bit P3.7

        mov dptr,#aray
        mov TMOD,#22h
        mov TH1,#0FDh
        mov SCON,#50h
        mov TH0,#0a3h
        mov IE,#10010010B
        setb TR1
        setb TR0
        mov P2,#0ffh
        setb eoc
        clr ale
        clr oe
        clr sc
while1:
        clr P1.0
        clr P1.1
        clr P1.2
        acall msdelay
        setb ale
        acall msdelay
        setb sc
        acall msdelay
        clr ale
        clr sc
wait:
        jb eoc,wait
wait1:
        jnb eoc,wait1
        setb oe
        acall msdelay
        mov r2,P2
        clr oe
        acall convert
        sjmp while1

convert:
        mov a,r2
        mov b,#10
        div ab
        mov r7,b;lower
        mov b,#10
        div ab
        mov r6,b ;mid
        mov r5,a ;high
        acall sendString
        ret

sendString:
        mov a,r5
        movc a,@a+dptr
        mov SBUF,a
fis:
        JNB TI,fis
        acall msdelay
        mov a,r6
        movc a,@a+dptr
        mov SBUF,a
sec:
        JNB TI,sec
        acall msdelay
        mov a,r7
        movc a,@a+dptr
        mov SBUF,a
thd:
        JNB TI,thd
        acall msdelay
        mov SBUF,#","
com:
        JNB TI,com
        acall msdelay
        ret

msdelay:
        mov r2,#50
he:
        mov r3,#250
she:
        nop
        nop
        djnz r3,she
        djnz r2,he
        ret

aray: db "0123456789"

serial:
        JB TI,trans
        reti
trans:
        clr TI
        reti
        end