test10.asm

红外单片机开发基础

;=================================================
;
;	多功能红外单片机开发板	配套实验板学习例程
;
;	中国DSP网	
;
;	http://www.chinadsp.cn
;	E-mail:[e-mail]
;=================================================

	ORG 0000H 
	LJMP START;转入主程序


	ORG	0030H		

START:
	MOV	SP,#60H
	
MAIN:

	MOV	P1,#00H		;点亮所有LED
	LCALL	DELAY
	LCALL	DELAY
	LCALL	DELAY
	MOV	P1,#0FFH

	MOV	P2,#0FFH	;点第一个数码管
	MOV	P0,#00H
	CLR	P2.7
	LCALL	DELAY

	MOV	P2,#0FFH	;点第二个数码管
	MOV	P0,#00H
	CLR	P2.6
	LCALL	DELAY

	MOV	P2,#0FFH	;点第三个数码管
	MOV	P0,#00H
	CLR	P2.5
	LCALL	DELAY

	MOV	P2,#0FFH	;点第四一个数码管
	MOV	P0,#00H
	CLR	P2.4
	LCALL	DELAY
	SETB	P2.4
	

	CLR	P2.3		;发声
	LCALL	DELAY
	SETB	P2.3

	LJMP	MAIN


DELAY:
	MOV	R6,#5
S1:
	MOV	R7,#100
	DJNZ	R7,$				;$表示本行地址
	DJNZ	R6,S1
	DJNZ	R5,DELAY
RET


END