;這是一個單片機進行脈寬調制(PWM) 直流電機調速測試程序.
   ;UNL2003提供電機驅動電流.(<=500MA/5V)
   ;使用六個按鍵實現六種不同速度


              DC   BIT  P1.0
              speed equ 20h
              org 000h
              jmp dc_MOTOR
              ORG 100H
   dc_MOTOR:

              mov  a,p1
              mov  speed,a      ;鍵盤去抖動
              lcall del
              mov  a,p1
              cjne  a,speed,dc_MOTOR
              JB   P3.3,JUD_SPD5
              MOV  SPEED,#6      ;SW1
              JMP  PWM
JUD_SPD5:     JB   P3.2,JUD_SPD4
              MOV  SPEED,#5       ;SW2
              JMP  PWM
JUD_SPD4:     JB   P3.1,JUD_SPD3
              MOV  SPEED,#04       ;SW3
              JMP  PWM
JUD_SPD3:     JB   P3.0,JUD_SPD2
              MOV  SPEED,#03       ;SW4
              JMP  PWM
JUD_SPD2:     JB   P3.5,JUD_SPD1
              MOV  SPEED,#02       ;SW5
              JMP  PWM
JUD_SPD1:     JB   P3.6,JUD_SPD0
              MOV  SPEED,#01      ;SW6
              JMP  PWM
JUD_SPD0:     MOV  SPEED,#00

PWM:          MOV  R6,SPEED
              MOV  A,#06
              CLR  C
              SUBB  A,SPEED
              MOV  R5,A
              CLR  DC
WAIT1:        LCALL  DEL
              DJNZ   R5,WAIT1
              SETB  DC
WAIT2:        LCALL  DEL
              DJNZ   R5,WAIT2
              JMP   DC_MOTOR

Del:   mov  r7,#0ffh
       djnz  r7,$
       ret

            END