zy1420a.asm

周立功DP51+试验板程序

A1		BIT	P1.0
A2		BIT	P1.1
A3		BIT	P1.2
A4		BIT	P1.3
A5		BIT	P1.4
A6		BIT	P1.5
A7		BIT	P1.6
A8		BIT	P1.7
REC		BIT	P3.2
PLAYE		BIT	P3.3
PLAYL		BIT	P3.4

	ORG	4000H
	AJMP	MAIN

	ORG	4100H
MAIN:
	MOV	SP,#60H
UP:	
	MOV	R6,#66
	MOV	R7,#40
	ACALL	PLAY
	MOV	R6,#6
	MOV	R7,#30
	ACALL	PLAY
	MOV	R6,#60
	MOV	R7,#30
	ACALL	PLAY
	MOV	R6,#54
	MOV	R7,#30
	ACALL	PLAY
	MOV	R6,#72
	MOV	R7,#100
	ACALL	PLAY
	MOV	R6,#36
	MOV	R7,#40
	ACALL	PLAY
	MOV	R6,#100
	MOV	R7,#80
	ACALL	PLAY
	MOV	R7,#200
	ACALL	DELAY
	AJMP	UP		
PLAY:
	MOV	P1,R6
	CLR	PLAYL
	ACALL	DELAY	
	SETB	PLAYL
	MOV	R7,#01
	ACALL	DELAY
	RET	
DELAY:  
DELAY0:	MOV	R5,#25
DELAY1:	MOV	R6,#249
DELAY2: DJNZ	R6,DELAY2
	DJNZ	R5,DELAY1
	DJNZ	R7,DELAY0
	RET

	END