发送（通过）垃圾.asm

红外接受的发送程序载波３８k

	org 0000h
	ajmp start
	org 0040h
start:
	mov sp,#60h
	mov p1,#0
	mov r5,#100
	mov r6,#100
	mov r7,#10
	clr p3.7
delay:	
	djnz r5,delay
	mov r5,#100
	djnz r6,delay
	mov r6,#100
	djnz r7,delay

begain:
	mov a,#11010000b	;发送代码
	mov r2,#8
start1:	
	jnb acc.7,next
	lcall send1
	lcall delay_y
	ajmp haha
next:
	lcall send0
	lcall delay_y	
haha:
	rl a
	djnz r2,start1
	lcall delay_y
	lcall delay_y
	ajmp begain





send0:			
	mov r6,#15
nextwww:
	lcall send_once
	djnz r6,nextwww
	ret

send1:		
	mov r6,#30	   
nextww:
	lcall send_once
	djnz r6,nextww
	ret


send_once:
	setb p3.7		;1
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	clr p3.7	
	nop
	nop
	nop
	nop
	nop
	nop
	ret



delay_y:
	clr p3.7
	mov r4,#5	
	mov r3,#100		
qing:			;发完一位后清零一段时间。
	djnz r3,qing	
	mov r3,#100 
	djnz r4,qing

	ret	


	
	end