Pemrograman Assembly - Program MOTOR STEPPER berputar CW dan CCW bergantian

; ====================================================
; Judul:                         Program Output Motor Stepper
; Port : Port0       =>     CONTROL MOTOR STEPPER
; Port1                 => -
; Port2                 => -
; Port3                  => -
; Ket  :                          MOTOR STEPPER berputar CW dan CCW bergantian
; -------------------------------------------------------------------------------------
; By   : ARC. Robotika Club
;  ====================================================

$MOD51
                   ORG           0000H
                   AJMP          START
                   ORG            0100H
                   MOV           P0, #0H

DELAY:      MOV     R5, #04H
DEL1:         MOV           R6, #0FH
DEL2:         MOV     R7, #0FFH
                   DJNZ          R7, $
                   DJNZ     R6, DEL2
                   DJNZ     R5, DEL1
                   RET

START:       MOV         SP, #30H
LOOP:         MOV         R3, #0FH
LOOPKA:   MOV         R1,#04H
                   MOV         A, #00000001B

KANAN:    MOV         P0, AA
                   CALL       DELAY
                   RL              A
                   DJNZ         R1, KANAN
                   DJNZ         R3, LOOPKA
                   MOV         R4, #0FH

LOOPKI:    MOV         R2, #04H
                   MOV         A, #00001000B

KIRI:          MOV         P0, A
                   ACALL DELAY
                   RR A
                   DJNZ R2, KIRI
                   DJNZ R4, LOOPKI
                   SJMP LOOP
END