diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index abcb7c130..35f1a4ddb 100644
--- a/crypto/perlasm/x86ms.pl
+++ b/crypto/perlasm/x86ms.pl
@@ -367,4 +367,10 @@ sub out1p
 	push(@out,"\t$name\t ".&conv($p1)."\n");
 	}
 
+sub main'picmeup
+	{
+	local($dst,$sym)=@_;
+	&main'lea($dst,&main'DWP($sym));
+	}
+
 sub main'blindpop { &out1("pop",@_); }
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl
index 796556159..f30b7466d 100644
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -344,4 +344,10 @@ sub out1p
 	push(@out,"\t$name\t ".&conv($p1)."\n");
 	}
 
+sub main'picmeup
+	{
+	local($dst,$sym)=@_;
+	&main'lea($dst,&main'DWP($sym));
+	}
+
 sub main'blindpop { &out1("pop",@_); }