CLE Service Program

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Hi All.  I am converting some classes from a MS platform to the AS400.  I
need to load a service program.  Does anyone know which service program on
the 400 holds the C code for the bignum procedures?

I am particularly interested in:

    private native static int bignum_test();
    private native int bignum_new();
    private native void bignum_free();

    private native static int bignum_copy(BigNum a, BigNum b);
    private native static int bignum_iszero(BigNum a);
    private native static int bignum_grow(BigNum a, int i);
    private native static int bignum_bytelen();
    private native static int bignum_bitlen(BigNum a);

    private native int bignum_into_bytes(byte[] buffer);
    private native int bignum_from_bytes(byte[] buffer);

    private native int setToOne();
    private native int setToZero();

    private native static int bignum_add_word(BigNum a, int w);
    private native static int bignum_set_word(BigNum a, int w);
    private native static int bignum_add(BigNum r, BigNum a, BigNum b);
    private native static int bignum_sub(BigNum r, BigNum a, BigNum b);
    private native static int bignum_cmp(BigNum a, BigNum b);
    private native static int bignum_ucmp(BigNum a, BigNum b);

    // was hashCode() - need to fix the native library.
    public native int bignum_hashCode(); // just returns the MSB word.

    private native static int bignum_mul(BigNum r, BigNum a, BigNum b);
    private native static int bignum_mod(BigNum rem, BigNum m, BigNum d);
    private native static int bignum_div(BigNum dv, BigNum rem, BigNum m,
BigNum d);
    private native static int bignum_lshift(BigNum r, BigNum a, short n);
    private native static int bignum_lshift1(BigNum r, BigNum a);
    private native static int bignum_rshift(BigNum r, BigNum a, short n);
    private native static int bignum_rshift1(BigNum r, BigNum a);
    private native static int bignum_mod_exp(BigNum r, BigNum a, BigNum p,
BigNum m);
    private native static int bignum_modmul_recip(BigNum r, BigNum x, BigNum
y, BigNum m, BigNum i, short nb);
    private native static int bignum_mod_mul(BigNum r, BigNum a, BigNum b,
BigNum m);
    // was bignum_reciprical() - need to fix the native library.
    private native static int bignum_reciprocal(BigNum r, BigNum m);
    private native static int bignum_gcd(BigNum r, BigNum a, BigNum b);
    private native static int bignum_inverse_modn(BigNum r, BigNum a, BigNum
n);


Mike

================================

Mike Silvers
AS/400 Senior Programmer/Analyst
AS/400 IBM Certified RPG IV Developer
AS/400 IBM Certified Solutions Expert
Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http://www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
================================