新兵 

 C51编程:在对门寻了一个宝
 刚才在丁丁哪，发现一名叫“老迂”网友传的BCD转换程序编的很妙，特别是SAWP A用的特
巧，现传抄过来让我们共同赏析。
    ;hex-bin
    ;例如dptr=56789---30h=5,31h=6 32h=7 33h=8 34h=9
bcd:mov dptr,#?
    mov r0,#34h
bcdst:mov a,dph
      mov b,#10
      div ab
      mov dph,a
      mov a,b
      swap a
      xch a,dpl
      mov b,a
      anl a,#0f0h
      xrl b,a
      swap a
      orl a,dpl
      mov dpl,b
      mov b,#10
      div ab
      swap a
      xch a,b
      swap a
      orl a,dpl
      mov dpl,b
      mov b,#10
      div ab
      orl dpl,a
      mov @r0,b
      dec r0
      cjne r0,#2fh,bcdst
      ret

      


发表时间:2002年1月22日14:51:00