at89c55wd-dip-060915.asm

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

  lcall  l_221c
  mov    dptr,#0018h
  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
  add    a,#01h
  mov    r7,a
  clr    a
  addc   a,r6
  mov    r6,a
  clr    a
  addc   a,r5
  mov    r5,a
  clr    a
  addc   a,r4
  mov    r4,a
  mov    dptr,#0020h
  lcall  l_221c
  mov    dptr,#0064h
  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,#0030h
  lcall  l_221c
  mov    dptr,#0020h
  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
l_0e63:
  mov    r7,a
  mov    dptr,#0034h
  lcall  l_221c
  mov    dptr,#006eh
  movx   a,@dptr
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#0028h
  xch    a,r7
  movx   @dptr,a
  inc    dptr
l_0e77:
  mov    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,#04h
  movx   @dptr,a
  inc    dptr
  clr    a
  movx   @dptr,a
  inc    dptr
  mov    a,#02h
  movx   @dptr,a
  inc    dptr
  mov    a,#30h
  movx   @dptr,a
  mov    dptr,#006ch
  movx   a,@dptr
  setb   c
  subb   a,#14h
  jc     l_0eb0
  mov    dptr,#0074h
  movx   a,@dptr
  cjne   a,#02h,l_0eb0
  inc    dptr
  movx   a,@dptr
  cjne   a,#04h,l_0eb0
  inc    dptr
  movx   a,@dptr
l_0e9f:
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r4,#00h
  add    a,#00h
  mov    r7,a
  mov    a,r4
  addc   a,r6
  mov    dptr,#002ch
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
l_0eb0:
  mov    dptr,#002eh
  mov    a,#05h
  movx   @dptr,a
  inc    dptr
  mov    a,#0b4h
  movx   @dptr,a
  clr    a
  mov    r3,a
l_0ebc:
  mov    a,r3
  add    a,acc
  add    a,#0eh
  mov    dpl,a
  clr    a
  addc   a,#00h
  mov    dph,a
l_0ec8:
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    b,#02h
  mov    a,r3
  mul    ab
  add    a,#3eh
  mov    dpl,a
  mov    a,b
  addc   a,#06h
  mov    dph,a
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  inc    r3
  cjne   r3,#03h,l_0ebc
  mov    dptr,#064ah
  mov    a,#08h
  movx   @dptr,a
  inc    dptr
  clr    a
  movx   @dptr,a
  mov    dptr,#0006h
  movx   a,@dptr
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#0660h
  xch    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#0008h
  movx   a,@dptr
  mov    r7,a
  inc    dptr
l_0f03:
  movx   a,@dptr
  mov    dptr,#0662h
  xch    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#0018h
  lcall  l_1a67
  lcall  l_1f1a
  mov    dptr,#0038h
  mov    a,#01h
  movx   @dptr,a
l_0f1b:
  ret
l_0f1c:
  mov    57h,r7
  mov    56h,r6
  mov    55h,r5
  mov    54h,r4
  mov    r0,#10h
  lcall  l_2209
  mov    dptr,#000ah
  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
  inc    dptr
  mov    a,r6
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  clr    a
  mov    r7,a
l_0f3f:
  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    a,r7
  add    a,acc
  add    a,#0eh
  mov    dpl,a
  clr    a
  addc   a,#00h
  mov    dph,a
  mov    a,r4
  movx   @dptr,a
  inc    dptr
  mov    a,r5
  movx   @dptr,a
  inc    r7
  cjne   r7,#03h,l_0f3f
  mov    dptr,#0006h
  mov    a,#04h
  movx   @dptr,a
  inc    dptr
  clr    a
  movx   @dptr,a
  inc    dptr
  mov    a,58h
  movx   @dptr,a
  inc    dptr
  mov    a,59h
  movx   @dptr,a
  mov    dptr,#0014h
  lcall  l_2228
  nop
  nop
  nop
  nop
  mov    dptr,#001ch
  lcall  l_2228
  nop
  nop
  nop
  nop
  mov    dptr,#0020h
  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,#0018h
  lcall  l_221c
  mov    dptr,#0018h
  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,#0024h
  lcall  l_221c
  mov    dptr,#0018h
  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
  add    a,#01h
  mov    r7,a
  clr    a
  addc   a,r6
  mov    r6,a
  clr    a
  addc   a,r5
  mov    r5,a
  clr    a
  addc   a,r4
  mov    r4,a
  mov    dptr,#0020h
  lcall  l_221c
  mov    dptr,#0064h
  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,#0030h
  lcall  l_221c
  mov    dptr,#0020h
  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
l_0ff2:
  mov    r7,a
  mov    dptr,#0034h
  lcall  l_221c
  clr    a
  mov    dptr,#0028h
  movx   @dptr,a
  inc    dptr
  movx   @dptr,a
  inc    dptr
  mov    a,#04h
  movx   @dptr,a
  inc    dptr
  clr    a
l_1006:
  movx   @dptr,a
  inc    dptr
  mov    a,#02h
  movx   @dptr,a
  inc    dptr
l_100c:
  mov    a,#30h
l_100e:
  movx   @dptr,a
  inc    dptr
  mov    a,#05h
l_1012:
  movx   @dptr,a
  inc    dptr
  mov    a,#0b4h
  movx   @dptr,a
  clr    a
  mov    r7,a
l_1019:
  mov    a,r7
  add    a,acc
  add    a,#0eh
  mov    dpl,a
  clr    a
  addc   a,#00h
  mov    dph,a
l_1025:
  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_1019
  mov    dptr,#064ah
  mov    a,#08h
  movx   @dptr,a
  inc    dptr
  clr    a
  movx   @dptr,a
  mov    dptr,#0006h
  movx   a,@dptr
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#0660h
  xch    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#0008h
  movx   a,@dptr
  mov    r7,a
  inc    dptr
  movx   a,@dptr
  mov    dptr,#0662h
  xch    a,r7
  movx   @dptr,a
  inc    dptr
  mov    a,r7
  movx   @dptr,a
  mov    dptr,#0018h
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
  inc    dptr
l_1075:
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0664h
  lcall  l_221c
  mov    dptr,#001ch
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
l_1087:
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0668h
  lcall  l_221c
  mov    dptr,#066ch
  mov    a,#70h
  movx   @dptr,a
  mov    a,#02h
  lcall  l_1a94
  lcall  l_1f1a
  mov    dptr,#0038h
  mov    a,#02h
  movx   @dptr,a
  ret
l_10a6:
  clr    a
  mov    r7,a
  lcall  l_2b68
  mov    dptr,#c700h
  mov    a,#0ffh
  movx   @dptr,a
  mov    dptr,#c300h
  movx   a,@dptr
  mov    2ch,a
  lcall  l_2b5b
  mov    a,2eh
  jnz    l_10c0
  mov    r7,a
  ret
l_10c0:
  mov    33h,2ch
  inc    2ch
  mov    a,2ch
  setb   c
  subb   a,#7fh
  jc     l_10cf
  mov    2ch,#4ch
l_10cf:
  mov    a,2ch
  xrl    a,2eh
  jnz    l_10d8
  ljmp   l_120e
l_10d8:
  clr    a
  mov    r7,a
  lcall  l_2b68
  mov    dptr,#c900h
  mov    a,2ch
  movx   @dptr,a
  mov    dptr,#c800h
  clr    a
  movx   @dptr,a
  mov    dptr,#cb00h
  movx   @dptr,a
  mov    dptr,#ca00h
  mov    a,#12h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#0ah
  movx   @dptr,a
  clr    a
  mov    r7,a
l_10fa:
  mov    dptr,#d000h
  movx   a,@dptr
  mov    r6,a
  mov    a,#3ah
  add    a,r7
  mov    dpl,a
  clr    a
  addc   a,#00h
  mov    dph,a
  mov    a,r6
  movx   @dptr,a
  inc    r7
  cjne   r7,#12h,l_10fa
  mov    dptr,#cb00h
  clr    a
  movx   @dptr,a
  mov    dptr,#ca00h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#22h
  movx   @dptr,a
  mov    dptr,#003dh
  movx   a,@dptr
l_1122:
  mov    r7,a
  mov    dptr,#003ch
  movx   a,@dptr
  inc    dptr
  movx   @dptr,a
  mov    dptr,#003ch
  mov    a,r7
  movx   @dptr,a
  inc    dptr
  movx   a,@dptr
  add    a,#0fch
  movx   @dptr,a
  mov    dptr,#003ch
  movx   a,@dptr
  addc   a,#0ffh
  movx   @dptr,a
  mov    dptr,#003ah
  movx   a,@dptr
  jnb    acc.0,l_1155
  inc    dptr
  movx   a,@dptr
  setb   c
  subb   a,#7fh
  jnc    l_1155
  movx   a,@dptr
  clr    c
  subb   a,#4ch
  jc     l_1155
  inc    dptr
  movx   a,@dptr
  setb   c
  subb   a,#06h
  jc     l_1174
l_1155:
  lcall  l_2b5b
  mov    a,2eh
  dec    a
  mov    2ch,a
  clr    c
  subb   a,#4ch
  jnc    l_1165
  mov    2ch,#7fh
l_1165:
  mov    dptr,#c300h
  mov    a,2ch
  movx   @dptr,a
  mov    dptr,#c700h
  mov    a,#0ffh
  movx   @dptr,a
  mov    r7,#00h
  ret
l_1174:
  mov    dptr,#004ah
  movx   a,@dptr
  xrl    a,#08h
  jnz    l_117e
  inc    dptr
  movx   a,@dptr
l_117e:
  jz     l_118e
  mov    dptr,#004ah
  movx   a,@dptr
  xrl    a,#08h
  jnz    l_118c
  inc    dptr
  movx   a,@dptr
  xrl    a,#06h
l_118c:
  jnz    l_11f0
l_118e:
  mov    dptr,#c900h
  mov    a,2ch
  movx   @dptr,a
  mov    dptr,#c800h
  mov    a,#04h
  movx   @dptr,a
  mov    dptr,#003ch
  movx   a,@dptr
  mov    dptr,#cb00h
  movx   @dptr,a
  mov    dptr,#003dh
  movx   a,@dptr
  mov    dptr,#ca00h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#0ah
  movx   @dptr,a
  mov    r7,#04h
  mov    r6,#00h
l_11b4:
  mov    dptr,#003dh
  movx   a,@dptr
  add    a,#04h
  mov    r5,a
  mov    dptr,#003ch
  movx   a,@dptr
  addc   a,#00h
  mov    r4,a
  clr    c
  mov    a,r7
  subb   a,r5
  mov    a,r6
  subb   a,r4
  jnc    l_11e1
  mov    dptr,#d000h
  movx   a,@dptr
  mov    r5,a
  mov    a,#3ah
  add    a,r7
  mov    dpl,a
l_11d3:
  mov    a,#00h
  addc   a,r6
  mov    dph,a
  mov    a,r5
  movx   @dptr,a
  inc    r7
  cjne   r7,#00h,l_11df
  inc    r6
l_11df:
  sjmp   l_11b4
l_11e1:
  mov    dptr,#cb00h
  clr    a
  movx   @dptr,a
  mov    dptr,#ca00h
  movx   @dptr,a
  mov    dptr,#c000h
  mov    a,#22h
  movx   @dptr,a
l_11f0:
  mov    dptr,#003bh
  movx   a,@dptr
  dec    a
l_11f5:
  mov    2ch,a
  clr    c
l_11f8:
  subb   a,#4ch
  jnc    l_11ff
  mov    2ch,#7fh
l_11ff:
  mov    dptr,#c300h
  mov    a,2ch
  movx   @dptr,a
  mov    dptr,#c700h
  mov    a,#0ffh
  movx   @dptr,a
  mov    r7,#01h
  ret
l_120e:
  mov    r7,#00h
  ret
l_1211:
  mov    dptr,#0068h
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
l_121a:
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#0024h
  lcall  l_221c
l_1225:
  clr    a
  mov    58h,a
l_1228:
  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
  setb   c
  subb   a,#00h
  jc     l_1265
  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
l_1263:
  dec    a
  movx   @dptr,a
l_1265:
  inc    58h
  mov    a,58h
  cjne   a,#05h,l_1228
  clr    a
  mov    58h,a
l_126f:
  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
  jnz    l_128f
  ljmp   l_1345
l_128f:
  mov    b,#00h
  mov    a,58h
  mul    ab
  add    a,#64h
  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
  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,#0024h
  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
  setb   c
  lcall  l_21f8
  jc     l_12e6
  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