;這是一個單片機進行脈寬調制(PWM) 直流電機調速測試程序.(2004/05/08)
   ;接線說明: p0.4跳帽選擇焊盤位置,再將S51E板上"控制輸入口"的"DC"(直流電機)接MCU P0.4 
   ;將直流電機接 "電機"焊盤,UNL2003提供電機驅動電流.(<=500MA/5V)
   ;使用六個按鍵實現六種不同速度
   ;程序編制人:蔡祥榮 2004/06/20

;------------------IT'S FOR S51E ---------------------------------------------------
              DC   BIT  P0.4
              KEY  BIT  P3.4
              speed equ 20h
              org 000h
              jmp dc_MOTOR
              ORG 100H
   dc_MOTOR:  mov  p2,#0ffh
              clr  KEY
              mov  a,p2
              mov  speed,a      ;鍵盤去抖動
              lcall del
              mov  a,p2
              cjne  a,speed,dc_MOTOR
              JB   ACC.7,JUD_SPD5
              MOV  SPEED,#06       ;SW1
              JMP  PWM
JUD_SPD5:     JB   ACC.6,JUD_SPD4
              MOV  SPEED,#05       ;SW2
              JMP  PWM
JUD_SPD4:     JB   ACC.5,JUD_SPD3
              MOV  SPEED,#04       ;SW3
              JMP  PWM
JUD_SPD3:     JB   ACC.4,JUD_SPD2
              MOV  SPEED,#03       ;SW4
              JMP  PWM
JUD_SPD2:     JB   ACC.3,JUD_SPD1
              MOV  SPEED,#02       ;SW5
              JMP  PWM
JUD_SPD1:     JB   ACC.2,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

;使用定時中斷方式調速,應怎樣修改程序??