4灯溅明渐暗.asm

跑码灯渐明渐暗程式,包括源程式,原理图等等

;4灯渐明渐暗，周期12-15秒。
;Design:Amain date:2008-03-12
ZHOUQI  EQU  120
BIZHI   EQU   30H
COUNTER EQU   31H
STA     EQU   32H


MAIN:  	CLR P3.7
        CLR F0
        MOV STA,#0
	MOV COUNTER,#0
	MOV BIZHI,#0
	MOV TMOD ,#10H
	MOV TH1,#0FFH
	MOV TL1,#9CH
	SETB TR1
LP0:	JNB TF1,$
	CLR TF1
        MOV TH1,#0FFH
	MOV TL1,#9CH
	MOV A, COUNTER
	CJNE A,#ZHOUQI,LP1
LP1:	JNC LP2
	INC COUNTER
	MOV A, COUNTER
	CJNE A,BIZHI,LP11
LP11:	JNC LP12
        MOV A,STA
        CJNE A,#0,LP111
	CLR P0.0
LP111:  CJNE A,#1,LP112

        CLR P0.1
LP112:  CJNE A,#2,LP113
        CLR P0.2
LP113:  CJNE A,#3,LP114
        CLR P0.3


LP114:  SJMP LP0


LP12:	MOV A,STA
        CJNE A,#0,LP121
	SETB P0.0
LP121:  CJNE A,#1,LP122

        SETB P0.1
LP122:  CJNE A,#2,LP123
        SETB P0.2
LP123:  CJNE A,#3,LP124
        SETB P0.3

LP124:  SJMP LP0

LP2:
        MOV COUNTER,#0
        JB F0,LP23
	MOV A,BIZHI
	CJNE A,#ZHOUQI,LP21
LP21:	JNC LP22
	INC BIZHI
	SJMP LP0
LP22:	SETB F0
	SJMP LP0
LP23:   DJNZ BIZHI, LP0
        CLR F0
        MOV A,STA
        CJNE A,#3,LP24
LP24:   JNC LP25
        INC STA
        SJMP LP0
LP25:   MOV STA,#0
        SJMP LP0
	END