sda   equ p3.7
        scl   equ p3.6
        xybz  equ f0
        buf   equ 30h
        p_adr equ 00h

        org 0000h
        ajmp rd24c
        org 0001h
        ajmp rd24c
    org 001bh
        ajmp time1
        org 000bh
        ajmp time
        org 0013h
        ajmp main
       

        org 80h
rd24c:    mov 20h,#00h
        mov 40h,#150
        mov 45h,#00h
    mov 46h,#00h
    mov 47h,#00h
    mov dptr,#p_adr
rd24c1:    clr ea
        acall fbzm
        acall csxy
        jb xybz,rd24c1
        acall fdpl
        acall fjsm
        mov a,r3
        acall fsmw
        acall csxy
        jb xybz,rd24c1
        mov r0,#buf
        mov r2,#00h
rd24c2: mov r1,#08h
rd24c3: setb scl
        setb sda
        mov c,sda
        rlc a
        clr scl
        djnz r1,rd24c3
        mov @r0,a
        inc r0
        inc r2
        cjne r2,#04h,ww
        acall fjsm        
    mov tmod,#26h
    mov th1,#0c8h
    mov tl1,#0c8h
    mov th0,#0fbh
    mov tl0,#0fbh
        mov ip,#04h        
    mov ie,#86h
        mov tcon,#18h    
    mov sp,#70h    
next:    lcall disp    
    lcall key
    lcall ankey
    sjmp next    
    nop
    nop
    nop
ww:     acall fyd
        ajmp rd24c2
fbzm:   setb sda
        setb scl
        mov a,dph
        clr c
        rlc a
        anl a,#0fh
        orl a,#0a0h
        mov r3,a
        inc r3
fsmw:   clr sda
fsmw1:  mov r1,#08h
fsmw2:  clr scl
        rlc a
        mov sda,c
        setb scl
        djnz r1,fsmw2
        clr scl
        ret
csxy:   setb sda
        setb scl
        clr xybz
        jnb sda,csxy1
        setb xybz
csxy1:  clr scl
        ret
fyd:    clr sda
        setb scl
        nop
        clr scl
        setb sda
        ret
fjsm:   clr sda
        setb scl
        nop
        setb sda
        ret
fdpl:   mov a,dpl
facc:   acall fsmw1
        acall csxy
        ret

time:    push acc    
    push psw
        setb p2.7
    inc 20h        
    mov a,20h
    cjne a,#0ah,reti2
    mov 20h,#00h
    mov a,32h
    add a,#01h
    mov 32h,a
    cjne a,#64h,reti1
    mov 32h,#00h
    mov a,33h
    add a,#01h
    mov 33h,a
    cjne a,#64h,reti1
    mov 33h,#00h
    
reti1:  mov a,33h
        mov a,30h
    mov a,31h
        mov a,32h
        cjne a,30h,reti2
        mov a ,33h
        cjne a,31h,reti2
        clr p2.7
        ljmp reti3
        nop

reti3:  lcall delay1
        ljmp main
        nop
        nop

reti2:  pop psw    
    pop acc
    reti    
    nop
    nop

disp:   mov dptr,#table
loop1:    mov b,#10
        mov a,32h
        div ab
        mov 79h,b
        mov 7ah,a
        mov b,#10
        mov a,33h
        div ab
        mov 7bh,b
        mov 7ch,a
        mov a,79h
        movc a,@a+dptr
    mov p0,a
    clr p1.0
    acall delay1
    setb p1.0
    mov a,7ah
    add a,#0ah
        movc a,@a+dptr
    mov p0,a
    clr p1.1
    acall delay1
    setb p1.1
    mov a,7bh
        movc a,@a+dptr
    mov p0,a
    clr p1.2
    acall delay1
    setb p1.2
    mov a,7ch
        movc a,@a+dptr
    mov p0,a
    clr p1.3
    acall delay1
    setb p1.3
    ret
        nop
        nop

table:   ......

>>返回讨论的主题