carr.asm

单片机51控制的红外线遥控小车（原创）

$MOD51

  org    0000h

  ljmp   l_0107
  ljmp   l_0006
  push   acc
  push   psw
  mov    0ch,th0
  mov    0dh,tl0
  mov    a,0ch
  clr    c
  subb   a,#03h
  jnc    l_0024
  mov    a,0ch
  subb   a,#02h
  jnc    l_008a
  mov    a,0ch
  clr    c
  subb   a,#01h
  jc     l_008a
  mov    a,0ch
  clr    c
  subb   a,#03h
  jc     l_002f
  setb   cy
  sjmp   l_0031
  clr    cy
  clr    a
  rlc    a
  orl    0ah,a
  mov    a,0ah
  add    a,acc
  mov    0ah,a
  dec    08h
  mov    a,08h
  cjne   a,#08h,l_0045
  mov    0bh,0ah
  mov    a,08h
  jnz    l_008a
  mov    08h,#10h
  mov    a,0bh
  xrl    a,#0e2h
  jnz    l_008a
  mov    a,0ah
  cjne   a,#0cch,l_005a
  mov    09h,#19h
l_005a:
  mov    a,0ah
  cjne   a,#0d4h,l_0062
  mov    09h,#18h
l_0062:
  mov    a,0ah
  cjne   a,#50h,l_006a
  mov    09h,#13h
l_006a:
  mov    a,0ah
  cjne   a,#48h,l_0072
  mov    09h,#14h
l_0072:
  mov    a,0ah
  cjne   a,#44h,l_007a
  mov    09h,#15h
l_007a:
  mov    a,0ah
  cjne   a,#54h,l_0082
  mov    09h,#16h
l_0082:
  mov    a,0ah
  cjne   a,#0c4h,l_008a
  mov    09h,#17h
l_008a:
  mov    th0,#00h
  mov    tl0,#00h
  setb   tr0
  pop    psw
  pop    acc
  reti
l_0097:
  mov    tmod,#09h
  setb   ea
  setb   ex0
  setb   it0
  clr    a
  mov    p1,a
  mov    p3,#04h
  mov    09h,a
  mov    08h,a
l_00aa:
  mov    a,09h
  cjne   a,#13h,l_00b7
  setb   p1.5
  setb   p1.6
  clr    p1.7
  clr    p1.4
l_00b7:
  mov    a,09h
  cjne   a,#14h,l_00c4
  clr    p1.5
  setb   p1.6
  setb   p1.4
  clr    p1.7
  mov    a,09h
  cjne   a,#15h,l_00d1
  clr    p1.7
  clr    p1.5
  clr    p1.4
  setb   p1.6
l_00d1:
  mov    a,09h
  cjne   a,#16h,l_00de
  setb   p1.7
  clr    p1.5
  clr    p1.4
  clr    p1.6
  mov    a,09h
  cjne   a,#17h,l_00eb
  setb   p1.7
  setb   p1.5
  clr    p1.4
  clr    p1.6
l_00eb:
  mov    a,09h
  cjne   a,#18h,l_00f8
  clr    p1.7
  clr    p1.5
  clr    p1.4
  clr    p1.6
  mov    a,09h
  cjne   a,#19h,l_00aa
  setb   p1.7
  clr    p1.5
  setb   p1.4
  clr    p1.6
  sjmp   l_00aa
l_0107:
  mov    r0,#7fh
  clr    a
  mov    @r0,a
  djnz   r0,l_010a
  mov    sp,#0dh
  ljmp   l_0097
  nop
  nop

END