ad01.asm

我学单片机89C51时编的大部分程序都在里面

        org 0000h      ;ADC0809的片选CS为7fffH,RAM6116的片选为b000H,显示AD采样的值
        ajmp main
        org 0013h
        ajmp int_1
main:   mov r2,#0b0h
        mov r3,#00h
        mov r0,#00h
        mov dptr,#07fffh
        mov a,#07h
        movx @dptr,a
  aa:   clr    ea
        mov    a,#00h
        mov    dptr,  #tabel
        acall  ll
        acall bcd
        mov  r1,22h
        acall led1
        mov   r1,21h
        acall  led
start:  setb it1
        setb ea
        setb ex1
        acall  delay
here:   sjmp aa
int_1:  mov dptr,#07fffh
        movx a,@dptr
        mov dph,r2
        mov dpl,r3
        movx @dptr,a
        inc r3
        cjne r3,#00h,ad1
   ad1: mov r0,a
        mov dptr,#07fffh
        mov a,#07h
        movx @dptr,a
        reti

 bcd:    mov     a,r0
         mov     b,#100
         div     ab
         mov     21h,a
         mov     a,#10
         xch     a,b
         div     ab
         swap    a
         add     a,b
         mov     22h,a
         clr     c
         mov     a,22h
         addc    a,22h
         da      a
         mov     22h,a
         mov     a,21h
         addc    a,21h
         da      a
         mov     21h,a
         ret
led1:    mov     a,r1
         mov     dptr,  #tabel
         anl     a,#0fh
         acall   ll
         mov     a,r1
         anl     a,#0f0h
         swap    a
         mov     dptr,#tabel1
         acall   ll
         ret
led:     mov     a,r1
         mov     dptr,  #tabel
         anl     a,#0fh
         acall   ll
         mov     a,r1
         anl     a,#0f0h
         swap    a
         acall   ll
         ret

  LL:   movc   a, @a+dptr
        mov    sbuf, a
        jnb    ti,   $
        clr    ti
        ret

 delay: mov     r7,     #02h
 del1:  mov     r6,     #0ffh
 del2:  mov     r5,     #0ffh
        djnz    r5,     $
        djnz    r6,     del2
        djnz    r7,     del1
        ret

tabel:  db 0bbh,09h,0eah,06bh,59h,73h,0f3h,0bh,0fbh,7bh
tabel1: db 0bfh,0dh,0eeh,06fh,5dh,77h,0f7h,0fh,0ffh,7fh