ep100.asm.bak

在网上找到的收音机程序

Main:
	MOV		R2,#9
	MOV		DPTR,#Table
Loop1:
	MOV		A,R2
	MOVC	A,@A+DPTR
	MOV		P0,A
	MOV		P1,A
	CALL	Delay_250ms
	DJNZ	R2,Loop1

	MOV		R2,#9
Loop2:
	MOV		A,R2
	MOV		DPTR,#Table
	MOVC	A,@A+DPTR
	MOV		P3,A

	MOV		A,R2
	MOV		DPTR,#Table2
	MOVC	A,@A+DPTR
	MOV		P2,A
	CALL	Delay_250ms
	DJNZ	R2,Loop2
	JMP		Main

Table:
	DB		11111111B
	DB		11111111B
	DB		11111110B
	DB		11111101B
	DB		11111011B
	DB		11110111B
	DB		11101111B
	DB		11011111B
	DB		10111111B
	DB		01111111B

Table2:
	DB		11111111B
	DB		11111111B
	DB		01111111B
	DB		10111111B
	DB		11011111B
	DB		11101111B
	DB		11110111B
	DB		11111011B
	DB		11111101B
	DB		11111110B

	;************************************************
	Delay_250ms:
		MOV		R5,#25
	Delay_10ms_Com:
		CALL	Delay_10ms
		DJNZ	R5,Delay_10ms_Com
		RET
	;------------------------------------------------
	Delay_10ms:
		MOV		R6,#100
		CALL	Delay_100us_Com
		RET

	;------------------------------------------------
	Delay_100us:
		MOV		R6,#1
	Delay_100us_Com:
		MOV		R7,#49
		DJNZ	R7,$
		DJNZ	R6,Delay_100us_Com
		RET