m   equ r1
i   equ r5
x   equ r2
si  equ r6
itr equ r4
j  equ r3

cseg at 0
    jmp start

; S0 = m - x; 
; Si+1 = m - x*Si/m; 

start:
    mov m,#100
    mov x, #0
    mov itr, #100

loop:

    ; S0 = m - x
    mov a, m 
    subb a, x
    mov si, a
    mov j, #10
    innerLoop:
        mov b, x     ; x 
        mov a, si    ; Si
        mul ab ; x*Si
        ; x*Si >> 7
        xch a,b
        rl a
        anl b,#0x7f
        orl a,b
        ; m - x*Si/m
        mov a, m
        subb a, b

        mov si, a
        dec j ; checking end of the innerloop
        mov a, j
    jnz innerLoop
    inc x ; increment X
    mov P3, si ; For analyzer
    dec itr ; checking end of the loop
    mov a, itr
    jnz loop
    jmp end