DSEG   AT  30h
X:      DS      4
Y:      DS      4

        CSEG
        MOV     X+0, #12h
        MOV     X+1, #34h
        MOV     X+2, #56h
        MOV     X+3, #78h
        MOV     Y+0, #98h
        MOV     Y+1, #76h
        MOV     Y+2, #54h
        MOV     Y+3, #32h

        MOV     R0, #Y+3
        MOV     R1, #X+3
        MOV     R7, #4
        SETB    C
SUBLP:
        MOV     A,@R0
        MOV     R6,A
        CLR     A
        ADDC    A,#99H
        SUBB    A,@R1
        ADD     A,R6
        DA      A
        MOV     @R0,A
        DEC     R0
        DEC     R1
        DJNZ    R7,SUBLP

EEE:    SJMP    EEE
        END