基于AT系列单片机的音乐彩灯控制器(6)

20

SJMP KK2

;*************************************************************** KK2: MOV P1,#0FFH MOV P2,#0FFH LCALL DELAY MOV P1,#0FFH MOV P2,#0FFH T1: DEC P1 DEC P2 LCALL DELAY0 SJMP K3

DELAY0: MOV R1,#20 Q1: MOV R2,#100 Q2: MOV R3,#250 DJNZ R3,$ DJNZ R2,Q2 DJNZ R1,Q1 RET

;************************************************ K3: MOV P2,#0FFH MOV P1,#0FFH LCALL DELAYLS MOV P2,#0FCH MOV P1,#0FFH LCALL DELAYLS MOV P2,#0EBH MOV P1,#0FFH LCALL DELAYLS MOV P2,#0AFH MOV P1,#0FFH

21

LCALL DELAYLS MOV P2,#0BFH MOV P1,#0FEH LCALL DELAYLS MOV P2,#0FFH MOV P1,#0FAH LCALL DELAYLS MOV P2,#0FFH MOV P1,#0EBH LCALL DELAYLS MOV P2,#0FFH MOV P1,#0AFH LCALL DELAYLS MOV P2,#0FEH MOV P1,#0BFH LCALL DELAYLS MOV P2,#0F5H MOV P1,#0FFH LCALL DELAYLS MOV P2,#0D7H MOV P1,#0FFH LCALL DELAYLS MOV P2,#05FH MOV P1,#0FFH LCALL DELAYLS MOV P2,#07FH MOV P1,#0FDH LCALL DELAYLS MOV P2,#0FFH MOV P1,#0F5H

22

LCALL DELAYLS MOV P2,#0FFH MOV P1,#0D7H LCALL DELAYLS MOV P2,#0FFH MOV P1,#05FH LCALL DELAYLS SJMP K4 DELAYLS: mov 30h,#1 del1: mov 31h,#8 del2: mov 32h,#250 del3: mov 33h,#250 djnz 33h,$ djnz 32h,del3 djnz 31h,del2 djnz 30h,del1 ret

;****************************** K4: MOV P0,#00H MOV P2,#00H MOV P0,#0AAH MOV P2,#0AAH MOV R1,#20 LCALL DELAY1S MOV P0,#55H MOV P2,#55H MOV R1,#20 LCALL DELAY1S SJMP TT5

;*****************************************

23

TT5:MOV P1,#0FFH MOV P2,#0FFH LCALL DELAY MOV P1,#0FFH MOV P2,#0FFH TT6:INC P1 INC P2 LCALL DELAY JNZ TT5 LCALL DELAY

;******************************** MOV P1,#0FFH MOV P2,#0FFH LCALL DELAY1 TT2: CLR C MOV A,P2 RLC A MOV P2,A CLR C MOV A,P1 RRC A MOV P1,A

LCALL DELAY ; 两端到中间,中间到两端 ;****************************************** DELAY1S:MOV 30H,#1 DDL1:MOV 31H,#4 DDL2:MOV 32H,#250 DDL3:MOV 33H,#250 DJNZ 33H,$ DJNZ 32H,DDL3

24

DJNZ 31H,DDL2 DJNZ 30H,DDL1 RET

DELAY: MOV R1,#20 L1: MOV R2,#100 L2: MOV R3,#250 DJNZ R3,$ DJNZ R2,L2 DJNZ R1,L1 RET

DELAY1:MOV R1,#2 D1: MOV R2,#100 D2: MOV R3,#250 DJNZ R3,$ DJNZ R2,D2 DJNZ R1,D1 RET

DELAY2:MOV R1,#4 A1: MOV R2,#250 A2: MOV R3,#250 DJNZ R3,$ DJNZ R2,A2 DJNZ R1,A1 RET ORG 0001H LJMP START ORG 000BH

INC 20H ;中断服务,中断计数器加1 MOV TH0,#0D8H

MOV TL0,#0EFH ;12M晶振，形成10毫秒中断