CSEG AT 00h
    MOV DPTR, #8000h
pocetak: mov R0,#100d
    mov A,#00h
petlja: JNB P3.1,petlja
    ADD A,P0
    DJNZ R0,petlja
    movx @DPTR,A
    JMP pocetak
    END