$R0 = b0ad4555c1ee34c8cb0577d7105a475171760330d577a0777ddcb955b302ad0803487d78ca267e8e9f5e3f46e35e10ca641a27e622b2d04bb09f3f5e3ad274b1744f34aeaf90fd45129a02a298dbc430f404f9988c862d10b58c91faba2aa2922f079229b0c8f88d86bfe6def7d026294ed9dee2504b5d30466f7b0488e2666b
$R1 = aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
###################################
# A = R1 x R1  mod R0  ( R1 < R0 )
###################################
    X=0;A=SEL1;C=SEL2
    X=1;SEL(X);D=SEL2
    SEL(X);B=SEL2;J=1024
YDIV:
    ADDL=DIVA;ADDR=D;CMP;SUB;INV;A=SEL3;B=SEL3;C=SEL3;BJ(YDIV)
    ADDL=DIVA;ADDR=D;CMP;SUB;INV;A=SEL3;B=SEL3;C=SEL3
    X=0
    SEL(X);B=SEL2;X=1
    SEL(X);D=SEL2 
    MRES
    J=256;XCOUNT
YLBL1:
    XCOUNT;MMUL;BJ(YLBL1)
    XCOUNT;MMUL
    MMUL;MRES;A=SEL1
    CMP;SUB;INV;ADDL=A;ADDR=B;A=SEL1
    END(0);@A