led8.txt

Keil C51 开发环境下开发的对8个端口指示灯的控制的单片机程序

;****************************************
;功能：流水灯的显示实验
;使用资源：P1口的输出
;****************************************
        ORG 00H
	AJMP MAIN
	ORG 030H

MAIN:   MOV SP,#07H
        MOV R1,#0FEH
	SETB C
LOOP:
        MOV A,R1
	MOV P1,A
	RLC A
	MOV R1,A
	LCALL DLY
	AJMP LOOP
;-----------------------延时子程序
DLY:    MOV R0,#02
DLY0:   MOV R7,#100
DLY1:   MOV R6,#250
        DJNZ R6,$
	DJNZ R7,DLY1
	DJNZ R0,DLY0
	RET
	END