1*0Sstevel@tonic-gate#!/usr/local/bin/perl 2*0Sstevel@tonic-gate# x86 assember 3*0Sstevel@tonic-gate 4*0Sstevel@tonic-gatesub bn_div_words 5*0Sstevel@tonic-gate { 6*0Sstevel@tonic-gate local($name)=@_; 7*0Sstevel@tonic-gate 8*0Sstevel@tonic-gate &function_begin($name,""); 9*0Sstevel@tonic-gate &mov("edx",&wparam(0)); # 10*0Sstevel@tonic-gate &mov("eax",&wparam(1)); # 11*0Sstevel@tonic-gate &mov("ebx",&wparam(2)); # 12*0Sstevel@tonic-gate &div("ebx"); 13*0Sstevel@tonic-gate &function_end($name); 14*0Sstevel@tonic-gate } 15*0Sstevel@tonic-gate1; 16