wonoffp4.#2

C8051F系列单片机外围电路功能模块程序

;参考程序A : WONOFFP4.ASM   8个LED灯依次循环点亮.
 $include (c8051f020.inc)  
ORG 	0000H
			LJMP 	MAIN
			ORG 	0100H
MAIN:		MOV 	SP,#40H
            MOV     WDTCN,#0DEH          ;禁止看门狗定时器
			MOV     WDTCN,#0ADH
			MOV 	A,  #0FEH	  ;先让第一个发光二极管亮
LOOP:		MOV  	P4,A		  ;从P4口输出数据到发光二极管
			LCALL	DELAY         ;延时1秒
			RL	A                 ;左移一位,准备点亮下一个发光二极管
			SJMP	LOOP          ;循环
DELAY:		MOV	R0,#10	          ;延时1秒子程序，使用参数R0、R7、R6
DELY0:		MOV	R7,#100	          ;延时0.1秒		
DELY1:		MOV	R6,#250           ;延时1mS
			DJNZ	R6,$
			DJNZ	R7,DELY1
			DJNZ	R0,DELY0
			RET
			END