pwmdc.asm

PWM VB source code for PWM pulse

       ORG  00H
       MOV  R0,#0
       ORG  50H
START:
       SETB  P1.5
       SETB  P1.6
       CLR   P1.7
       JNB   P0.0,DO1
       JNB   P0.1,DO2
       JNB   P0.2,DO3
       JNB   P0.3,DO4
       JMP   START
DO1:
       SETB  P1.5
       CLR   P1.6
       CLR   P1.7
       JB    P0.0,START
       JMP   DO1
DO2:
       CLR   P1.5
       SETB  P1.6
       CLR   P1.7
       JB    P0.1,START
       JMP   DO2
DO3:
       SETB  P1.5
       CLR   P1.6
       CLR   P1.7
       CALL  DELAY
       INC   R0
       MOV   A,R0
       CJNE  A,01,DO3
       JB    P0.2,START
DO31:
       CLR   P1.5
       SETB  P1.6
       CLR   P1.7
       CALL  DELAY
       INC   R0
       CJNE  R0,#00,DO31
       JB    P0.2,START
       JMP   DO3
DO4:
       SETB  P1.5
       SETB  P1.6
       CLR   P1.7
       CALL  DELAY
       INC   R0
       MOV   A,R0
       CJNE  A,01,DO4
       JB    P0.3,START
DO41:
       CLR   P1.5
       SETB  P1.6
       CLR   P1.7
       CALL  DELAY
       INC   R0
       CJNE  R0,#00,DO41
       JB    P0.3,START
       JMP   DO4
DELAY:
       MOV   R6,#10H
D1:
       MOV   R7,#0
       DJNZ  R7,$
       DJNZ  R6,D1
       RET