copy of 14433ad.asm

来自「请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都」· 汇编 代码 · 共 62 行

dbuf0   equ     30h
temp    equ     40h

        org 0
ad:     mov r0,#dbuf0
        mov @r0,#10h
        inc r0
        setb p3.3
ab2:     jnb p3.3,ab2
ab1:    jb  p3.3,ab1
       ; mov dptr,#0ffffh
ad0:    mov a,P0
        jnb acc.4,ad0
        jnb acc.3,ad1
        mov @r0,#0
        sjmp ad2
ad1:    mov @r0,#1
ad2:    inc r0
ad3:   mov a,P0
        jnb acc.5,ad3
        anl a,#0fh
        mov @r0,a
        inc r0
ad4:    mov a,P0
        jnb acc.6,ad4
        anl a,#0fh
        mov @r0,a
        inc r0
ad5:   mov a,P0 
        jnb acc.7,ad5
        anl a,#0fh
        mov @r0,a
        acall disp1
        ajmp ad

disp1:  mov r0,#dbuf0
        mov r1,#temp
        mov r2,#5
dp10:   mov dptr,#segtab
        mov a,@r0
        movc a,@a+dptr
        mov @r1,a
        inc r0
        inc r1
        djnz r2,dp10
        mov r0,#temp
        mov r1,#5
dp12:   mov r2,#8
        mov a,@r0
dp13:   rlc a
        mov p3.0,c
        clr p3.1
        setb p3.1
        djnz r2,dp13
        inc r0
        djnz r1,dp12
        ret
segtab: db 3fh,6,5bh,4fh,66h,6dh
        db 7dh,7,7fh,6fh,77h,7ch
        db 58h,5eh,7bh,71h,0,40h
        end