ex5117.asm

启东计算机厂实验程序

 	ORG 0000H
START:	MOV SP,#60H
        MOV R7,#00H
START1:	ACALL ZH	
	ACALL PLAY
        mov r0,#0fh
 yh:    djnz r0, yh
        inc r7
       	cjne r7,#14h,start1


	SJMP $
;--------------------------------------------------
PLAY:	MOV DPTR,#8000H
	MOV A,#0FFH
	MOVX @DPTR,A	;STOP R/P
	MOV A,40H	;PLAY CODE
        MOV R2,#0FH
	ACALL DELY	;20MS

	MOVX @DPTR,A	;PE=1

	ANL A,#0BFH
	MOVX @DPTR,A	;PE=0
	ACALL D500MS	;PLAY TIME
	ACALL D500MS
;	ACALL D500MS
	MOV A,#0FFH
	MOVX @DPTR,A	;STOP R/P
	RET
ZH:	MOV A,R7	;R0 IS SEGMENT ADDRESS:0,1,2,....
 	MOV DPTR,#TAB
	MOVC A,@A+DPTR
	MOV 40H,A
	RET

TAB: 	DB 0C0H,0C2H,0C4H,0C6H,0C8H,0CAH,0CCH
	DB 0CEH
	DB 0D0H,0D2H,0D4H,0D6H,0D8H,0DAH,0DCH
	DB 0DEH
	DB 0E0H,0E2H,0E4H,0E6H

D500MS:	MOV R5,#05H
DL1:	LCALL D100MS
	DJNZ R5,DL1
	RET
D100MS:
	MOV R6,#64H
DL2:	MOV R4,#0FFH
DL3:	DJNZ R4,DL3
	DJNZ R6,DL2
	RET
DELY:	PUSH 02H
LP2:	PUSH 02H
LP1:	PUSH 02H
LP0:	DJNZ R2,LP0
	POP 02H
	DJNZ R2,LP1
	POP 02H
	DJNZ R2,LP2
	POP 02H
      	DJNZ R2,DELY
      	RET
	END