TL       EQU 078h
TH       EQU 079h
PWMPos   EQU 07Bh
PWMVal   EQU 07Ch


        MOV PWMVal,#0

Run:
        MOV TL,#0
        MOV TH,#10
        CALL Delay
        
        DEC PWMPos
        MOV A,PWMPos
        
        CJNE A,PWMVal,CEND
        JMP Run

CEND:   MOV P2.0,C
        JMP Run


Delay:  DJNZ TL,$
        MOV TL,#255
        DJNZ TH,Delay
        RET

END