led2.asm

初学者首选各种实验原代码

;-----------------------------
;LED4发光二极管跑马灯实验
;编写SG
;20040418
;-----------------------------
	ORG 0000H
	AJMP MAIN		;跳转到主程序开头
MAIN:
	NOP				;CPU空操作
	NOP				;CPU空操作
LOOP:
	CLR P2.0		;P2.0对应LED4管脚低电平点亮LED
	LCALL DELAY		;延时500MS,亮LED500MS
	CLR P2.1		;P2.1对应LED3管脚低电平点亮LED
	LCALL DELAY
	CLR P2.2		;P2.2对应LED2管脚低电平点亮LED
	LCALL DELAY
	CLR P2.3		;P2.3对应LED1管脚低电平点亮LED
	LCALL DELAY
	CLR P2.4		;P2.4对应LED1管脚低电平点亮LED
	LCALL DELAY
	CLR P2.5		;P2.5对应LED1管脚低电平点亮LED
	LCALL DELAY
	CLR P2.6		;P2.6对应LED1管脚低电平点亮LED
	LCALL DELAY
	CLR P2.7		;P2.7对应LED1管脚低电平点亮LED
	LCALL DELAY				
	SETB P2.0		;熄灭四个LED
	SETB P2.1
	SETB P2.3
	SETB P2.2
	SETB P2.4
	SETB P2.5
	SETB P2.6
	SETB P2.7				
	LCALL DELAY
	AJMP LOOP		;循环

;--------------------------
;500MS延时子程序
;--------------------------
DELAY:
	MOV R0,#0FFH
	MOV R1,#0FFH
DELAY_2:	
	MOV R1,#0FFH
DELAY_1:
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DJNZ R1,DELAY_1
	DJNZ R0,DELAY_2
	RET
;------------------------------
;END源程序到此结束后面的不被编译
;-----------------------------
	END