zhanghu.asm

用单片机控制上下两排灯泡以四种不同的方式循环闪烁

ORG 0000H
    LJMP CHUSH
ORG 001BH
    LJMP MAIN


CHUSH: ORG  0020H
       MOV R1,#01H
       MOV R2,#00H
       MOV IE,#88H
       MOV TMOD,#11H
       MOV TCON,#00H
       MOV SP,#40H
       MOV TL1,#80H
       MOV TH1,#0FFH
       SETB TR1
       LJMP K00

   MAIN:
         CLR TR1
         MOV TL1,#80H
         MOV TH1,#80H
	INC R0
	CJNE R0,#05H,MAIN3
	MOV R0,#00H
	PUSH A
	MOV A,R1
	MOV P0,A
  	CJNE R2,#01H,XIASH
	SETB P2.5
	CLR P2.7
  	SETB P2.6
	CLR P2.6
	LJMP MAIN1
 XIASH: SETB P2.7
	CLR P2.5
	SETB P2.4
        CLR P2.4

MAIN1:  CJNE R3,#02H,L1  ;判断循环方式
  	CJNE R3,#01H,L2
	CJNE R3,#00H,L3
    L1: RR A
        LJMP MAIN2
    L2: RL A
    L3: RL A



MAIN2:  MOV R1,A
        POP A
MAIN3:  SETB TR1
	RETI

K00:    MOV A,P1
	CPL A
	JZ K00
	LCALL DELAY0
	MOV A,P1
	CPL A
	JZ K00

        MOV A,P1
	RRC A
	JNC K000
	RRC A
	JNC K111
	RRC A
	JNC K222
	RRC A
	JNC K333
	RRC A
	JNC K444
	RRC A
	JNC K555
	LJMP K00

K000:   MOV A,P1
	CPL A
	JNZ K000
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K000
	MOV R1,#01H
	MOV R2,#00H
        MOV R3,#00H
	LJMP K00

K111:   MOV A,P1
	CPL A
	JNZ K111
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K111
	MOV R1,#01H
	MOV R2,#01H
	MOV R3,#00H
	LJMP K00

K222:   MOV A,P1
	CPL A
	JNZ K222
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K222
	MOV R1,#03H
	MOV R2,#00H
        MOV R3,#01H
	LJMP K00


K333:   MOV A,P1
	CPL A
	JNZ K333
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K333
	MOV R1,#03H
	MOV R2,#01H
	MOV R3,#01H
	LJMP K00
K444:   MOV A,P1
	CPL A
	JNZ K444
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K444
	MOV R1,#80H
	MOV R2,#00H
	MOV R3,#02H
	LJMP K00
K555:   MOV A,P1
	CPL A
	JNZ K555
	LCALL DELAY0
	MOV A,P1
	CPL A
	JNZ K555
	MOV R1,#80H
	MOV R2,#01H
	MOV R3,#02H
	LJMP K00

DELAY0:MOV R7,#0AH
    DL2:MOV R6,#0DDH
    DL1:NOP
        DJNZ R6,DL1
        DJNZ R7,DL2
        RET
	END