ep100.asm

在网上找到的收音机程序

Main:
	MOV SP,#60H
	MOV P1,#0FFH     ;	LED SHR
  	MOV A,#0FEH
Loop:
	MOV P1,A
	LCALL Delay_250ms
	RL A
	AJMP Loop

	;************************************************
	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