contoh program memutar motor dc kekanan atau kekiri

;-------------------------------------------------------------------------------------------------------
;                                Contoh Program Memutar Motor DC kekiri dan Kekanan
;-------------------------------------------------------------------------------------------------------


$mod51

                          org    00h

motor1               bit        p2.0    ; data untuk motor dc berputar kekanan
motor2               bit        p2.1    ; data untuk motor dc berputar kekiri

mulai :
               clr        motor1         ; motor dc keadaan tidak berputar
               clr        motor2         ; motor dc keadaan tidak berputar
              acall      delay            ; Memanggil Labeb delay/waktu tunda
              acall      delay
               setb     motor1          ; motor dc berputar ke kanan
               clr       motor2          
               acall   delay               ; Memanggil Labeb delay/waktu tunda
               acall   delay
               clr       motor1          ; motor dc keadaan tidak berputar
               clr       motor2          ; motor dc keadaan tidak berputar
              acall     delay             ; Memanggil Labeb delay/waktu tunda
                clr      motor1
               setb    motor2           ; motor dc berputar kekiri
               acall    delay             ; Memanggil Labeb delay/waktu tunda
               acall    delay
               sjmp     mulai             ; melompat ke label mulai
delay:       mov   R0,#65           ; waktu tunda sebesar 65/mikrosecen
delay1:     mov    R1,#0FFH
delay2:     mov     R2,#0
               djnz      R2,$
               djnz      R1,delay2
               djnz      R0,delay1
                ret                             ; kembali ke sun rutin sebelumnya
                end                            ; akhiran program / penutup program