wyh001.asm

用汇编语言开发的霓虹灯闪烁源码程序。（霓虹灯）

		ORG		0000H
		AJMP	START
		ORG		0040H
START:
		MOV		DPTR,#8300H
		MOV		P1,#0FFH
READ:
C0:		MOV		A,P1
		CJNE	A,#11111110B,C1
		LJMP	CH1
C1:		CJNE	A,#11111101B,C2
		LJMP	CH2
C2:		CJNE	A,#11111011B,C3
		LJMP	CH3
C3:		CJNE	A,#11110111B,C4
		LJMP	CH4
C4:		CJNE	A,#11101111B,C5
		LJMP	CH5
C5:		CJNE	A,#11011111B,C6
		LJMP	CH6
C6:		CJNE	A,#10111111B,C7
		LJMP	CH7
C7:		CJNE	A,#01111111B,C0
		LJMP	CH8
		AJMP	READ
		
CH1:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FEH
ROT0:	MOVX	@DPTR,A
		RL		A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT0
		AJMP	READ
			
		
CH2:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FEH
ROT1:	MOVX	@DPTR,A
		RL		A
		RL		A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT1
		LJMP	READ
		
CH3:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FEH
ROT2:	MOVX	@DPTR,A
		RL		A
		RL		A
		RL		A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT2
		LJMP	READ

CH4:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FFH
ROT3:	MOVX	@DPTR,A
		RR		A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT3
		LJMP	READ

CH5:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FFH
ROT4:	MOVX	@DPTR,A
		MOV		A,#01111110B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#00111100B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#00011000B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#00000000B
		MOVX	@DPTR,A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT4
		LJMP	READ
		
CH6:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FFH
ROT5:	MOVX	@DPTR,A
		MOV		A,#11100111B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#11000011B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#10000001B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#00000000B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#0FFH
		MOVX	@DPTR,A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT5
		LJMP	READ

CH7:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FFH
ROT6:	MOVX	@DPTR,A
		MOV		A,#01111110B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#10111101B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#11011011B
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#11100111B
		MOVX	@DPTR,A	
		LCALL	DELAY
		MOV		A,#11011011B
		MOVX	@DPTR,A	
		LCALL	DELAY
		MOV		A,#10111101B
		MOVX	@DPTR,A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT6
		LJMP	READ

CH8:
		MOV		SP,#60H
		MOV		R5,#02H
		MOV		A,#0FFH
ROT7:	MOVX	@DPTR,A
		MOV		A,#00H
		MOVX	@DPTR,A
		LCALL	DELAY
		MOV		A,#0FFH
		MOVX	@DPTR,A
		LCALL	DELAY
		NOP
		DJNZ	R5,ROT7
		LJMP	READ
				
DELAY:
		MOV		R0,#01H
DELAY1:	MOV		R1,#00H
DELAY2:	MOV		R2,#0B2H
		DJNZ	R2,$
		DJNZ	R1,DELAY2
		DJNZ	R0,DELAY1
		RET
		
		
		END