at89c55wd-dip-060915.asm

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

$MOD51

  org    0000h

  ljmp   l_237e
l_0003:
  mov    r7,#03h
  ljmp   l_2b68
l_0008:
  ret
  mov    r7,a
  mov    r7,a
  ljmp   l_27ae
l_000e:
  clr    p3.3
  nop
  nop
l_0012:
  nop
  nop
  setb   p3.5
  nop
  nop
l_0018:
  nop
  nop
  clr    p3.5
  nop
  nop
l_001e:
  nop
  nop
  setb   p3.3
  ret
  ljmp   l_22ef
l_0026:
  mov    a,26h
  xrl    a,32h
  jnz    l_0030
  mov    a,25h
  xrl    a,31h
l_0030:
  jnz    l_0035
  ljmp   l_0443
l_0035:
  lcall  l_2a5f
  mov    54h,r7
  mov    a,#4ch
  add    a,3bh
  mov    dpl,a
  mov    a,#2ah
  addc   a,3ah
  mov    dph,a
  mov    a,54h
  movx   @dptr,a
  xrl    a,#20h
  jz     l_005b
  mov    a,54h
  xrl    a,#0dh
  jz     l_005b
  inc    3bh
  mov    a,3bh
  jnz    l_005b
  inc    3ah
l_005b:
  mov    a,3bh
  cjne   a,#0e8h,l_006a
  mov    a,3ah
  cjne   a,#03h,l_006a
  clr    a
  mov    3ah,a
  mov    3bh,a
l_006a:
  mov    a,54h
  cjne   a,#0dh,l_0026
  setb   c
  mov    a,3bh
  subb   a,#09h
  mov    a,3ah
  subb   a,#00h
  jnc    l_007d
  ljmp   l_01a9
l_007d:
  mov    r6,#29h
  mov    r7,#4ch
  mov    r5,#04h
  lcall  l_2aba
  mov    a,r7
  jnz    l_008c
  ljmp   l_01a9
l_008c:
  clr    a
  mov    56h,a
  mov    55h,#04h
  mov    57h,a
l_0094:
  clr    c
  mov    a,55h
  subb   a,3bh
  clr    a
  subb   a,3ah
  jnc    l_00ef
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
l_00a9:
  movx   a,@dptr
  mov    r7,a
  xrl    a,#2eh
  jz     l_00d8
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r7
  anl    a,#0fh
  movx   @dptr,a
  mov    a,56h
  mov    b,#0ah
  mul    ab
  mov    56h,a
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  add    a,56h
  mov    56h,a
  sjmp   l_00eb
l_00d8:
  mov    a,#3eh
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,56h
  movx   @dptr,a
  inc    57h
  clr    a
  mov    56h,a
l_00eb:
  inc    55h
  sjmp   l_0094
l_00ef:
  mov    a,57h
  xrl    a,#03h
  jz     l_00f8
  ljmp   l_01a9
l_00f8:
  mov    a,#3eh
  add    a,57h
  mov    dpl,a
  clr    a
l_00ff:
  addc   a,#2ah
  mov    dph,a
  mov    a,56h
  movx   @dptr,a
  mov    2dh,#08h
  mov    dptr,#2a3ah
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
l_0114:
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#6cb4h
  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
l_0124:
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
l_0129:
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  push   04h
  push   05h
  push   06h
  mov    r3,07h
  mov    dptr,#2a3ah
  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,#2a3eh
  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
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  pop    02h
  pop    01h
  pop    00h
  clr    c
  lcall  l_21f8
  jnz    l_017c
  mov    dptr,#2a3eh
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
l_0170:
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  lcall  l_17ba
  sjmp   l_01a9
l_017c:
  mov    45h,#0ah
  clr    a
  mov    57h,a
l_0182:
  mov    a,#00h
  add    a,57h
  mov    dpl,a
  clr    a
l_0189:
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r7,a
  mov    a,#46h
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r7
  movx   @dptr,a
  inc    57h
  mov    a,57h
  cjne   a,#06h,l_0182
  mov    a,29h
  jnz    l_01a9
  mov    2dh,a
l_01a9:
  mov    r6,#29h
  mov    r7,#51h
  mov    r5,#06h
  lcall  l_2aba
  mov    a,r7
  jnz    l_01b8
  ljmp   l_02d9
l_01b8:
  clr    a
  mov    56h,a
  mov    55h,#06h
  mov    57h,a
l_01c0:
  clr    c
  mov    a,55h
  subb   a,3bh
  clr    a
  subb   a,3ah
  jnc    l_022a
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  mov    r7,a
  xrl    a,#2eh
  jz     l_0204
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r7
  anl    a,#0fh
  movx   @dptr,a
  mov    a,56h
  mov    b,#0ah
  mul    ab
  mov    56h,a
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
l_01f8:
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  add    a,56h
  mov    56h,a
  sjmp   l_0226
l_0204:
  mov    a,57h
  clr    c
  subb   a,#04h
  jnc    l_0219
  mov    a,#3eh
l_020d:
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,56h
  movx   @dptr,a
l_0219:
  mov    a,57h
  cjne   a,#04h,l_0221
  mov    38h,56h
l_0221:
  inc    57h
  clr    a
l_0224:
  mov    56h,a
l_0226:
  inc    55h
  sjmp   l_01c0
l_022a:
  mov    39h,56h
  mov    a,57h
  xrl    a,#05h
  jz     l_0236
  ljmp   l_02d9
l_0236:
  mov    40h,#14h
  mov    dptr,#2a3ah
  movx   a,@dptr
  mov    r4,a
  inc    dptr
l_023f:
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
l_0244:
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#6cb4h
  movx   a,@dptr
  mov    r0,a
  inc    dptr
l_024d:
  movx   a,@dptr
  mov    r1,a
  inc    dptr
  movx   a,@dptr
  mov    r2,a
  inc    dptr
  movx   a,@dptr
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  push   04h
  push   05h
  push   06h
  mov    r3,07h
  mov    dptr,#2a3ah
  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_0274:
  mov    r7,a
  mov    dptr,#2a3eh
  movx   a,@dptr
  mov    r0,a
  inc    dptr
  movx   a,@dptr
  mov    r1,a
l_027d:
  inc    dptr
  movx   a,@dptr
  mov    r2,a
  inc    dptr
  movx   a,@dptr
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  pop    02h
  pop    01h
  pop    00h
  clr    c
  lcall  l_21f8
  jnz    l_02ac
  mov    dptr,#2a3eh
  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
  lcall  l_17ba
  sjmp   l_02d9
l_02ac:
  mov    45h,#0ah
  clr    a
  mov    57h,a
l_02b2:
  mov    a,#00h
  add    a,57h
  mov    dpl,a
  clr    a
l_02b9:
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r7,a
  mov    a,#46h
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r7
  movx   @dptr,a
  inc    57h
  mov    a,57h
  cjne   a,#06h,l_02b2
  mov    a,29h
  jnz    l_02d9
  mov    40h,a
l_02d9:
  mov    r6,#29h
  mov    r7,#58h
  mov    r5,#03h
  lcall  l_2aba
  mov    a,r7
  jnz    l_02e8
  ljmp   l_043b
l_02e8:
  clr    a
  mov    56h,a
  mov    55h,#03h
  mov    57h,a
l_02f0:
  mov    r7,55h
  mov    r6,#00h
  clr    c
  mov    a,r7
  subb   a,3bh
  mov    a,r6
  subb   a,3ah
  jc     l_0300
  ljmp   l_038f
l_0300:
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  mov    r5,a
  xrl    a,#2eh
  jz     l_033a
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r5
  anl    a,#0fh
  movx   @dptr,a
l_0320:
  mov    a,56h
  mov    b,#0ah
  mul    ab
  mov    56h,a
  mov    a,#4ch
  add    a,55h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  movx   a,@dptr
  add    a,56h
  mov    56h,a
  sjmp   l_038a
l_033a:
  mov    a,57h
  clr    c
  subb   a,#04h
  jnc    l_034f
  mov    a,#3eh
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,56h
  movx   @dptr,a
l_034f:
  mov    a,57h
  cjne   a,#04h,l_0357
l_0354:
  mov    38h,56h
l_0357:
  mov    a,57h
  cjne   a,#05h,l_035f
  mov    39h,56h
l_035f:
  inc    57h
  mov    a,57h
  cjne   a,#06h,l_0387
  mov    a,55h
  inc    a
  mov    dptr,#2a4ch
  movx   @dptr,a
  clr    c
  mov    a,3bh
  subb   a,r7
  xch    a,r7
  mov    a,3ah
  subb   a,r6
  xch    a,r7
  add    a,#0ffh
  mov    3bh,a
  mov    a,r7
  addc   a,#0ffh
  mov    3ah,a
  inc    dptr
  movx   @dptr,a
  mov    a,3bh
  inc    dptr
  movx   @dptr,a
  sjmp   l_038f
l_0387:
  clr    a
  mov    56h,a
l_038a:
  inc    55h
  ljmp   l_02f0
l_038f:
  mov    a,57h
  xrl    a,#06h
  jz     l_0398
  ljmp   l_043b
l_0398:
  mov    41h,#0ah
  mov    dptr,#2a3ah
  movx   a,@dptr
  mov    r4,a
  inc    dptr
  movx   a,@dptr
  mov    r5,a
  inc    dptr
  movx   a,@dptr
  mov    r6,a
l_03a6:
  inc    dptr
  movx   a,@dptr
  mov    r7,a
  mov    dptr,#6cb4h
  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
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  push   04h
  push   05h
  push   06h
  mov    r3,07h
  mov    dptr,#2a3ah
  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,#2a3eh
  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
l_03e4:
  anl    a,r7
  mov    r7,a
  mov    a,r2
  anl    a,r6
  mov    r6,a
  mov    a,r1
  anl    a,r5
  mov    r5,a
  mov    a,r0
  anl    a,r4
  mov    r4,a
  pop    02h
  pop    01h
  pop    00h
  clr    c
  lcall  l_21f8
  jnz    l_040e
  mov    dptr,#2a3eh
  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_0408:
  mov    r7,a
  lcall  l_17ba
  sjmp   l_043b
l_040e:
  mov    45h,#0ah
  clr    a
  mov    57h,a
l_0414:
  mov    a,#00h
  add    a,57h
  mov    dpl,a
  clr    a
l_041b:
  addc   a,#00h
  mov    dph,a
  movx   a,@dptr
  mov    r7,a
  mov    a,#46h
  add    a,57h
  mov    dpl,a
  clr    a
  addc   a,#2ah
  mov    dph,a
  mov    a,r7
  movx   @dptr,a
  inc    57h
  mov    a,57h
  cjne   a,#06h,l_0414
  mov    a,29h
  jnz    l_043b
  mov    41h,a
l_043b:
  clr    a
  mov    3ah,a
  mov    3bh,a
  ljmp   l_0026
l_0443:
  ret
l_0444:
  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,#0068h
  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_0488
  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,#0068h
  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_04bd
l_0488:
  mov    dptr,#006dh
  movx   a,@dptr
  jnb    acc.4,l_04bd
  movx   a,@dptr
  jb     acc.2,l_04ba
  mov    dptr,#0068h
  movx   a,@dptr
  mov    r4,a
  inc    dptr