S1: MOV P2,#0FFH ;总开关 JB P2.0,S1
SETB EA SETB ET0
SETB TR0 ;开中断 SETB EX0 SETB IT0 SETB EX1 SETB IT1
MOV R1,#0 ;计数值初值 MOV R2,#50 ;占空比初值
LJMP $
UP: INC R2 ;加速 CLR C
CJNE R2,#100,UP1
UP1: JC UP_END ;未到最大值返回 MOV R2,#100 ;否则保持最大值 UP_END:LCALL PLAY RETI
DOWN: DEC R2 ;减速 CLR C
CJNE R2,#1,DOWN1
DOWN1: JNC DOWN_END ;未到最小值返回 MOV R2,#1 ;否则保持最小值 DOWN_END:LCALL PLAY RETI
IT00:MOV TH0,#0FCH MOV TL0, #018H
INC R1 CLR C
MOV 30H,R2 MOV A,R1
CJNE A,30H,P_OUT
P_OUT: JC P_OUT1 ;计数值小于预置r2高电平 CLR P1.1 ;计数值大于预置r2低电平
21
AJMP OUT_END
P_OUT1: SETB P1.1
LJMP OUT_END
OUT_END: CJNE R1,#100,NEXT ;判断一个周期结束 MOV R1,#0 NEXT: RETI
PLAY:PUSH ACC
MOV A,R2 ;显示占空比 MOV B,#100 DIV AB MOV 68H,A MOV A,B MOV B,#10 DIV AB MOV 67H,A MOV A,B MOV 66H,A MOV 69H,#0 MOV 6AH,#0 MOV 6BH,#0 MOV 6CH,#0
MOV 6DH,#0 LCALL leddisp POP ACC RET
$INCLUDE(LEDDISP_ASM.INC) END
22