send.asm

内有红外收发的子程序

org 0000h
AJMP MAIN
ORG 000BH
AJMP T00
ORG 0100H
MAIN:MOV TMOD,#02H
    MOV TL0,#0F3H
    MOV TH0,#0F3H
    SETB EA
    SETB ET0
    SETB TR0
 MOV A,#02H

 L0:MOV R0,#08H
 CLR P3.1
 
 SETB P3.1
MOV R2,#0f0H
DJNZ R2,$
CLR P3.1
MOV R2,#44H
DJNZ R2,$

 L1:MOV P3,A
  ACALL DELAY
 RR A
 DJNZ R0,L1
 CLR P3.1
ACALL DELAY1
inc a
AJMP L0
T00:
CLR EA
  CPL P1.0
  SETB EA

RETI
DELAY: MOV R1,#44H
       DJNZ R1,$
  RET
delay1:mov r7,#00h
     l3:mov r6,#00h
     djnz r6,$
     djnz r7,l3 
 ret 
END