Pemrograman Assembly - LED menyala satu bergeser ke kiri

; =========================================
; Judul                           : Program Output LED
; Port                             : Port0 => DISPLAY LED
; Port1 => -
; Port2 => -
; Port3 => -
; Ket                              : LED menyala satu bergeser ke kiri
; -----------------------------------------
; By                               : ARC Robotika Club
;  =========================================

$MOD51
        ORG 0000H
        AJMP START
        ORG 0100H
DELAY: MOV R5, #04H
DEL1: MOV R6, #0FFH
DEL2: MOV R7, #0FFH
        DJNZ R7, $
        DJNZ R6, DEL2
        DJNZ R5, DEL1
        RET
START:
        MOV SP, #30H
LOOP:
        MOV P0, #11111111B
        ACALL DELAY
        MOV P0, #00000000B
        ACALL DELAY
        MOV P0, #00000001B
        ACALL DELAY
        MOV P0, #00000010B
        ACALL DELAY
        MOV P0, #00000100B
        ACALL DELAY
        MOV P0, #00001000B
        ACALL DELAY
        MOV P0, #00010000B
        ACALL DELAY
        MOV P0, #00100000B
        ACALL DELAY
        MOV P0, #01000000B
        ACALL DELAY
        MOV P0, #10000000B
        ACALL DELAY
        SJMP LOOP
END