1*0Sstevel@tonic-gate#!/usr/local/bin/perl 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gatepush(@INC,"perlasm","../../perlasm"); 4*0Sstevel@tonic-gaterequire "x86asm.pl"; 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gaterequire("x86/mul_add.pl"); 7*0Sstevel@tonic-gaterequire("x86/mul.pl"); 8*0Sstevel@tonic-gaterequire("x86/sqr.pl"); 9*0Sstevel@tonic-gaterequire("x86/div.pl"); 10*0Sstevel@tonic-gaterequire("x86/add.pl"); 11*0Sstevel@tonic-gaterequire("x86/sub.pl"); 12*0Sstevel@tonic-gaterequire("x86/comba.pl"); 13*0Sstevel@tonic-gate 14*0Sstevel@tonic-gate&asm_init($ARGV[0],$0); 15*0Sstevel@tonic-gate 16*0Sstevel@tonic-gate&bn_mul_add_words("bn_mul_add_words"); 17*0Sstevel@tonic-gate&bn_mul_words("bn_mul_words"); 18*0Sstevel@tonic-gate&bn_sqr_words("bn_sqr_words"); 19*0Sstevel@tonic-gate&bn_div_words("bn_div_words"); 20*0Sstevel@tonic-gate&bn_add_words("bn_add_words"); 21*0Sstevel@tonic-gate&bn_sub_words("bn_sub_words"); 22*0Sstevel@tonic-gate&bn_mul_comba("bn_mul_comba8",8); 23*0Sstevel@tonic-gate&bn_mul_comba("bn_mul_comba4",4); 24*0Sstevel@tonic-gate&bn_sqr_comba("bn_sqr_comba8",8); 25*0Sstevel@tonic-gate&bn_sqr_comba("bn_sqr_comba4",4); 26*0Sstevel@tonic-gate 27*0Sstevel@tonic-gate&asm_finish(); 28*0Sstevel@tonic-gate 29