at89c55wd-dip-060915.asm

一个串口转ＴＣＰ／ＩＰ的原码

  mov    dph,a
  clr    a
  movx   @dptr,a
  sjmp   l_1345
l_12e6:
  mov    b,#00h
  mov    a,58h
  mul    ab
  add    a,#3bh
  mov    dpl,a
  mov    a,b
  addc   a,#0ch
  mov    dph,a
  mov    a,58h
  mov    b,#06h
  mul    ab
  add    a,dph
  mov    dph,a
  movx   a,@dptr
  jnz    l_1345
  mov    b,a
  mov    a,58h
  mul    ab
  add    a,#3ah
  mov    dpl,a
  mov    a,b
  addc   a,#0ch
  mov    dph,a
  mov    a,58h
  mov    b,#06h
  mul    ab
  add    a,dph
  mov    dph,a
  movx   a,@dptr
  inc    a
  movx   @dptr,a
  mov    b,#00h
  mov    a,58h
  mul    ab
  add    a,#3ah
  mov    dpl,a
  mov    a,b
  addc   a,#0ch
  mov    dph,a
  mov    a,58h
  mov    b,#06h
  mul    ab
  add    a,dph
  mov    dph,a
  movx   a,@dptr
  cjne   a,#08h,l_1340
  lcall  l_2761
l_1340:
  mov    r7,58h
  lcall  l_207a
l_1345:
  inc    58h
  mov    a,58h
  clr    c
  subb   a,#05h
  jnc    l_1351
  ljmp   l_126f
l_1351:
  ret
l_1352:
  mov    57h,r7
  mov    56h,r6
  mov    55h,r5
  mov    54h,r4
  clr    a
  mov    r7,a
l_135c:
  mov    a,r7
  add    a,acc
  add    a,#46h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#3eh
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  inc    r7
  cjne   r7,#03h,l_135c
  mov    dptr,#064ah
  mov    a,#08h
  movx   @dptr,a
  inc    dptr
  clr    a
  movx   @dptr,a
  mov    dptr,#0660h
  mov    a,#04h
  movx   @dptr,a
  inc    dptr
  mov    a,#01h
  movx   @dptr,a
  mov    dptr,#0662h
  mov    a,58h
  movx   @dptr,a
  inc    dptr
  mov    a,59h
  movx   @dptr,a
  mov    r7,57h
  mov    r6,56h
  mov    r5,55h
  mov    r4,54h
  mov    r0,#10h
  lcall  l_2209
l_13af:
  mov    dptr,#065ch
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    a,57h
  mov    r7,a
  mov    a,56h
  mov    r6,a
  mov    dptr,#065eh
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#6cb4h
  movx   a,@dptr
l_13c9:
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#0658h
  xch    a,r7
l_13d0:
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#6cb6h
  movx   a,@dptr
l_13d8:
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#065ah
  xch    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  clr    a
  mov    dptr,#0654h
  movx   @dptr,a
  inc    dptr
  mov    a,#11h
  movx   @dptr,a
  mov    dptr,#2a4dh
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r4,#00h
  add    a,#00h
  mov    5bh,a
  mov    a,r4
  addc   a,r6
  mov    5ah,a
  clr    a
  mov    r5,a
  mov    dptr,#2a4ch
  movx   a,@dptr
  mov    r7,a
l_1404:
  clr    c
  mov    a,r5
l_1406:
  subb   a,5bh
  mov    a,r4
  subb   a,5ah
  jnc    l_1432
  mov    a,r7
  add    a,r5
  mov    r3,a
  clr    a
  addc   a,r4
  mov    r2,a
  mov    a,#4ch
  add    a,r3
  mov    dpl,a
  mov    a,#2ah
  addc   a,r2
  mov    dph,a
  movx   a,@dptr
  mov    r6,a
  mov    a,#68h
  add    a,r5
  mov    dpl,a
  mov    a,#06h
  addc   a,r4
  mov    dph,a
  mov    a,r6
  movx   @dptr,a
  inc    r5
  cjne   r5,#00h,l_1430
  inc    r4
l_1430:
  sjmp   l_1404
l_1432:
  mov    a,#08h
  add    a,5bh
  mov    5bh,a
  clr    a
  addc   a,5ah
  mov    5ah,a
  mov    dptr,#0656h
  movx   @dptr,a
  inc    dptr
  mov    a,5bh
  movx   @dptr,a
  mov    dptr,#0664h
  mov    a,5ah
  movx   @dptr,a
  inc    dptr
  mov    a,5bh
  movx   @dptr,a
  clr    a
  mov    dptr,#0666h
  movx   @dptr,a
  inc    dptr
  movx   @dptr,a
  lcall  l_1b25
  mov    dptr,#0666h
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    r7,57h
  mov    r6,56h
  mov    r5,55h
  mov    r4,54h
  mov    r0,#10h
  lcall  l_2209
  mov    r5,07h
  mov    r4,06h
  mov    a,57h
  mov    r7,a
  mov    a,56h
  mov    r6,a
  mov    r3,07h
  mov    r2,06h
  mov    62h,#11h
  mov    r7,5bh
  mov    r6,5ah
  ljmp   l_1f37
l_1486:
  mov    dptr,#6cb4h
l_1489:
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0064h
  movx   a,@dptr
  xrl    a,r6
  jnz    l_1498
  inc    dptr
  movx   a,@dptr
  xrl    a,r7
l_1498:
  jz     l_149d
  ljmp   l_15b8
l_149d:
  mov    dptr,#6cb6h
l_14a0:
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0066h
  movx   a,@dptr
  xrl    a,r6
  jnz    l_14af
  inc    dptr
  movx   a,@dptr
  xrl    a,r7
l_14af:
  jz     l_14b4
  ljmp   l_15b8
l_14b4:
  mov    r7,#10h
l_14b6:
  mov    a,#3ah
  add    a,r7
  mov    dpl,a
  clr    a
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r6,a
  mov    a,#3ah
  add    a,r7
  mov    dpl,a
  clr    a
  addc   a,#06h
  mov    dph,a
  mov    a,r6
  movx   @dptr,a
  inc    r7
  cjne   r7,#40h,l_14b6
  clr    a
  mov    r7,a
l_14d4:
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#44h
  mov    dpl,a
  mov    a,b
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#3eh
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#44h
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
l_150b:
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#54h
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  mov    b,#02h
  mov    a,r7
  mul    ab
l_1529:
  add    a,#54h
  mov    dpl,a
  mov    a,b
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#5eh
  mov    dpl,a
  mov    a,b
  addc   a,#06h
l_1545:
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  inc    r7
  mov    a,r7
  xrl    a,#03h
  jnz    l_14d4
  clr    a
  mov    r7,a
l_1554:
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#5ah
  mov    dpl,a
  mov    a,b
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
l_1568:
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#64h
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#64h
  mov    dpl,a
  mov    a,b
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  mov    b,#02h
  mov    a,r7
  mul    ab
  add    a,#5ah
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  inc    r7
  cjne   r7,#02h,l_1554
  mov    dptr,#0652h
  clr    a
  movx   @dptr,a
  inc    dptr
  mov    a,#02h
  movx   @dptr,a
  mov    r7,#3ch
  mov    r6,#00h
  lcall  l_16c0
l_15b8:
  ret
l_15b9:
  mov    58h,r6
  mov    59h,r7
  mov    dptr,#001ch
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0064h
  movx   a,@dptr
  mov    r0,a
  inc    dptr
  movx   a,@dptr
  mov    r1,a
  inc    dptr
  movx   a,@dptr
  mov    r2,a
  inc    dptr
  movx   a,@dptr
  mov    r3,a
  clr    c
  lcall  l_21f8
  jz     l_15e2
  ljmp   l_16bf
l_15e2:
  mov    a,59h
  xrl    a,#1dh
  orl    a,58h
  jz     l_15ed
  ljmp   l_166f
l_15ed:
  mov    dptr,#0074h
  movx   a,@dptr
  xrl    a,#0aah
  jnz    l_166f
  mov    dptr,#0090h
  movx   a,@dptr
  xrl    a,#0aah
  jnz    l_166f
  mov    r2,#00h
  mov    r1,#74h
  mov    5ch,#01h
  mov    5dh,#00h
  mov    5eh,#74h
  mov    r7,#0ffh
  lcall  l_2a8d
  clr    a
  mov    5ah,a
  mov    5bh,a
l_1614:
  mov    r3,5ch
  mov    r2,5dh
  mov    r1,5eh
  mov    63h,5ah
  mov    64h,5bh
  mov    65h,#0a0h
  mov    r5,#01h
  lcall  l_1e67
  mov    a,#01h
  add    a,5eh
  mov    5eh,a
  clr    a
  addc   a,5dh
  mov    5dh,a
  mov    r7,#0ah
  lcall  l_2bd3
  inc    5bh
  mov    a,5bh
  jnz    l_1640
  inc    5ah
l_1640:
  clr    c
  subb   a,#1dh
  mov    a,5ah
  subb   a,#00h
  jc     l_1614
  mov    a,#34h
  add    a,32h
  mov    dpl,a
  mov    a,#2eh
  addc   a,31h
  mov    dph,a
  mov    a,#62h
  movx   @dptr,a
  inc    32h
  mov    a,32h
  jnz    l_1660
  inc    31h
l_1660:
  cjne   a,#40h,l_169a
  mov    a,31h
l_1665:
  cjne   a,#1fh,l_169a
  clr    a
  mov    31h,a
  mov    32h,a
  sjmp   l_169a
l_166f:
  clr    a
  mov    5ah,a
  mov    5bh,a
l_1674:
  clr    c
  mov    a,5bh
  subb   a,59h
  mov    a,5ah
  subb   a,58h
  jnc    l_169a
  mov    a,#74h
  add    a,5bh
  mov    dpl,a
  mov    a,#00h
  addc   a,5ah
  mov    dph,a
  movx   a,@dptr
  mov    r7,a
  lcall  l_2a8d
  inc    5bh
  mov    a,5bh
  jnz    l_1698
  inc    5ah
l_1698:
  sjmp   l_1674
l_169a:
  mov    dptr,#001ch
  movx   a,@dptr
  mov    r0,a
  inc    dptr
  movx   a,@dptr
  mov    r1,a
  inc    dptr
  movx   a,@dptr
  mov    r2,a
  inc    dptr
  movx   a,@dptr
  mov    r3,a
  clr    a
  mov    r4,a
  mov    r5,a
  mov    a,r3
  add    a,59h
  mov    r7,a
  mov    a,r2
  addc   a,58h
  mov    r6,a
  mov    a,r5
  addc   a,r1
  mov    r5,a
  mov    a,r4
  addc   a,r0
  mov    r4,a
  mov    dptr,#001ch
  lcall  l_221c
l_16bf:
  ret
l_16c0:
  mov    63h,r6
  mov    64h,r7
  clr    a
  mov    r7,a
  lcall  l_2b68
  clr    c
  mov    a,64h
  subb   a,#3ch
  mov    a,63h
  subb   a,#00h
  jnc    l_16da
  mov    63h,#00h
  mov    64h,#3ch
l_16da:
  clr    a
  mov    r5,a
l_16dc:
  mov    a,r5
  add    a,acc
  add    a,#0b8h
  mov    dpl,a
  clr    a
  addc   a,#6ch
  mov    dph,a
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    b,#02h
  mov    a,r5
  mul    ab
  add    a,#44h
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
l_1700:
  movx   @dptr,a
  inc    r5
  cjne   r5,#03h,l_16dc
  cpl    20h.2
  mov    dptr,#c900h
  jnb    20h.2,l_1712
  mov    a,#40h
  movx   @dptr,a
  sjmp   l_1715
l_1712:
  mov    a,#46h
  movx   @dptr,a
l_1715:
  mov    dptr,#c800h
  clr    a
  movx   @dptr,a
  mov    a,63h
  mov    dptr,#cb00h
  movx   @dptr,a
  mov    a,64h
  mov    dptr,#ca00h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#12h
  movx   @dptr,a
  mov    r7,#04h
  mov    r6,#00h
l_1730:
  mov    a,64h
  add    a,#04h
  mov    r3,a
  clr    a
  addc   a,63h
  mov    r2,a
  clr    c
  mov    a,r7
  subb   a,r3
  mov    a,r6
  subb   a,r2
  jnc    l_1756
  mov    a,#3ah
  add    a,r7
  mov    dpl,a
  mov    a,#06h
  addc   a,r6
  mov    dph,a
  movx   a,@dptr
  mov    dptr,#d000h
  movx   @dptr,a
  inc    r7
  cjne   r7,#00h,l_1754
  inc    r6
l_1754:
  sjmp   l_1730
l_1756:
  mov    dptr,#cb00h
  clr    a
  movx   @dptr,a
  mov    dptr,#ca00h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#22h
  movx   @dptr,a
  clr    a
  mov    r5,a
l_1767:
  clr    a
  mov    r6,a
  mov    r7,a
l_176a:
  mov    dptr,#c000h
  movx   a,@dptr
  jnb    acc.2,l_177c
  inc    r7
  cjne   r7,#00h,l_1776
  inc    r6
l_1776:
  cjne   r6,#03h,l_176a
  cjne   r7,#0e8h,l_176a
l_177c:
  mov    dptr,#c400h
  movx   a,@dptr
  jb     acc.0,l_178d
  mov    dptr,#c000h
  mov    a,#3eh
  movx   @dptr,a
  inc    r5
  cjne   r5,#10h,l_1767
l_178d:
  mov    dptr,#c700h
  mov    a,#0ffh
  movx   @dptr,a
  mov    dptr,#c400h
  jnb    20h.2,l_179e
  mov    a,#40h
  movx   @dptr,a
  sjmp   l_17a1
l_179e:
  mov    a,#46h
  movx   @dptr,a
l_17a1:
  mov    a,63h
  mov    dptr,#c600h
  movx   @dptr,a
  mov    a,64h
  mov    dptr,#c500h
l_17ac:
  movx   @dptr,a
  mov    dptr,#c700h
  mov    a,#0ffh
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#3eh
  movx   @dptr,a
  ret
l_17ba:
  mov    5bh,r7
  mov    5ah,r6
  mov    59h,r5
  mov    58h,r4
  mov    dptr,#064ah
  mov    a,#08h
  movx   @dptr,a
  inc    dptr
  mov    a,#06h
  movx   @dptr,a
  clr    a