课设题目 求大神帮忙

OUTPUT equ p1,0
Loop:
clr OUTPUT
mov A,#1
call Delay
setb OUTPUT
mov a,#9
call Delay
ljmp Loop
Delay:
mov r0,#0
DLOOP:
djnz r0,DLOOP
djnz acc,DLOOP
ret
end
这是pwm的程序，我想让它自动改变占空比，不知道怎么写，求大神帮忙