25045d.asm

来自「MCS-51单片机实验 39个实用实验和源码」· 汇编 代码 · 共 22 行

		ORG 	0000H
		SJMP    MAIN
		ORG     0030H
MAIN:   MOV     SP,#60H		
		SETB 	P1.0
CP1: 	LCALL	DELAY
		CPL 	P1.0
		SJMP	CP1
DELAY:
        MOV     R0,#6
DELAY1:
        LCALL   DELAY3    
        DJNZ    R0,DELAY1
        RET		
DELAY3:		
		MOV   	R1,#00H		;延时100ms
DELAY4:  
	    MOV     R2,#0B3H
        DJNZ    R2,$
        DJNZ    R1,DELAY4
        RET
        END