51单片机 流水灯设计 用汇编语言

ORG 00H
LJMP STAR
ORG 30H
STAR:MOV A,#7FH
LOOP:RL A
MOV P1,A
LSALL DELAY
LJMP LOOP
DELAY:MOV R7,#250
D1: MOV R6,#250
D2: NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R6,D2
DJNZ R7,D1
RET
END

SGML:ANL P1,#00000000;
CLR C ;
MOVE A,#00000001 ; ;
DYP1:MOVE P1,A ;
DYS1:P7 #2 ;
DYS2:P6 #250 ;
DYS3:P5 #250 ;
DYS4:DJNZ P5,DYS4 ;
DJNZ P6,DYS3 ;
DJNZ P7,DYS2 ;
RL A ;
SJMP DYP1 ;