hongfasong.asm

红外遥控发送程序

              ORG    0000H
LOOP0:        MOV    SCON,  	#0COH	；设定串行口工作为方式3
              MOV    TMOD,  	#20H   	；T1工作为方式2
              MOV    PCON, 	 #00H   	；波特率设置
              MOV    TL1,   	#0F4H  	；定时初始值F4送TL1
              MOV     TH1,  	#0F4H 	；定时初始值F4送TH1
;**********************************************************************
CP:          JB       P1.0, 	CPK   	；判断遥控按键P1.0是否按下
             LCALL    PP          		；调用延时
             JB       P1.0,   	CP                
             SETB     TR1           		；启动定时器T1
             MOV     50H, 		#5FH  	；将立即数5FH送50H存储单元
             MOV     R0,  	 	#50H 	；将立即数50H送R0寄存器
             MOV     R1, 		#05H  	；将立即数05H送R1寄存器
IND:         MOV     A,  	 	@R0  	；将50H中的5F送累加器A
             MOV     C,   		P
             MOV     TB8, 		C
             MOV     SBUF,		A        	；将要发送数据5F送串行数据缓冲器
AAA:         JNB     P1.1,		ON1  	；P1.1是“0”电平时转至调制程序
BBB:         JB      P1.1,   	CCC  	；P1.1是“1”电平等待
             AMP     AAA
CCC:         JBC     TI,     	CP   	；判断发送中断标志位
             SETB     P1.2            	；P1.2置1
             AJMP     BBB
ON1:         ACALL    ON
             AJMP     AAA
PP:          MOV     R6,   #05H       	；延时子程序
100P3:       MOV     R5,   #0F9HP
             NOP
             NOP
100P4:       DJNZ    R5,   100P4
             DJNZ    R6,   100P3
             RET
ON:          CP1     P1.2          	；0电平调制程序
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             CP1     P1.2
             RET
***********************************************************************