LOOP: SETB P3.3 ;　      设置接口3第3位　1

LCALL DELAY ;　　　      长调用 DELAY

CLR P3.3 ;　　　　　     清0 接口3第3位

LCALL DELAY ;　　　　    长调用 DELAY

AJMP LOOP ;　　　　　    绝对转移 LOOP

DELAY: MOV R7,#100 ;　　 传送 通用寄存器7,立即数150

D1:MOV R6,#100 ;　　　   传送 通用寄存器6,立即数50

D2:DJNZ R6,D2 ;　　　    减一不为0转移 通用寄存器6,D2

DJNZ R7,D1 ;　　　　     减一不为0转移 通用寄存器7,D1

RET ;　　　　　　　　    子程序返回  

END ;　　　　　　　　     END