read51

#include <sfr51.inc>
ORG 0000H

MULAI:      MOV     A,#00000000B
            ACALL   DELAY
            MOV     P0,A
            ACALL   DELAY
            MOV     P1,A
            ACALL   DELAY
            MOV     P2,A
            ACALL   DELAY
            MOV     P3,A
            ACALL   DELAY
            SJMP    MULAI
DELAY:      MOV     R0,#100
DELAY1:     MOV     R1,#0FFH
DELAY2:     MOV     R2,#0
            DJNZ    R2,$
            DJNZ    R1,DELAY2
            DJNZ    R0,DELAY1
            RET

            END