crypto/perlasm/cbc.pl

61 	&mov($count,	&wparam(2));	# length
64 	&mov("ebx",	&wparam($iv_off));	# Get iv ptr
66 	&mov($in,	&DWP(0,"ebx","",0));#	iv[0]
67 	&mov($out,	&DWP(4,"ebx","",0));#	iv[1]
74 	&mov("ebx",	"esp");		# This is the address of tin[2]
76 	&mov($in,	&wparam(0));	# in
77 	&mov($out,	&wparam(1));	# out
81 	&mov("ecx",	&wparam($enc_off));	# Get enc flag
86 			{ &mov("eax",	&wparam($p3)); &push("eax"); }
93 			{ &mov("eax",	&wparam($p2)); &push("eax"); }
100 			{ &mov("eax",	&wparam($p1)); &push("eax"); }
109 	&mov("eax",	&DWP($data_off,"esp","",0));	# load iv[0]
110 	&mov("ebx",	&DWP($data_off+4,"esp","",0));	# load iv[1]
120 	&mov("ecx",	&DWP(0,$in,"",0));	# load first 4 bytes
121 	&mov("edx",	&DWP(4,$in,"",0));	# second 4 bytes
129 	&mov(&DWP($data_off,"esp","",0),	"eax");	# put in array for call
130 	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
134 	&mov("eax",	&DWP($data_off,"esp","",0));
135 	&mov("ebx",	&DWP($data_off+4,"esp","",0));
140 	&mov(&DWP(0,$out,"",0),"eax");
141 	&mov(&DWP(4,$out,"",0),"ebx");
153 	&mov($count,	&wparam(2));	# length
160 	&mov($count,&DWP(0,"ecx",$count,4));
175 	&mov("ecx",		&DWP(0,$in,"",0));
192 	&mov(&DWP($data_off,"esp","",0),	"eax");	# put in array for call
193 	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
197 	&mov("eax",	&DWP($data_off,"esp","",0));
198 	&mov("ebx",	&DWP($data_off+4,"esp","",0));
203 	&mov(&DWP(0,$out,"",0),"eax");
204 	&mov(&DWP(4,$out,"",0),"ebx");
214 	&mov("eax",	&DWP($data_off+8,"esp","",0));	# get iv[0]
215 	&mov("ebx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
219 	&mov("eax",	&DWP(0,$in,"",0));	# load first 4 bytes
220 	&mov("ebx",	&DWP(4,$in,"",0));	# second 4 bytes
225 	&mov(&DWP($data_off,"esp","",0),	"eax");	# put back
226 	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
230 	&mov("eax",	&DWP($data_off,"esp","",0));	# get return
231 	&mov("ebx",	&DWP($data_off+4,"esp","",0));	#
236 	&mov("ecx",	&DWP($data_off+8,"esp","",0));	# get iv[0]
237 	&mov("edx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
242 	&mov("eax",	&DWP(0,$in,"",0));	# get old cipher text,
243 	&mov("ebx",	&DWP(4,$in,"",0));	# next iv actually
245 	&mov(&DWP(0,$out,"",0),"ecx");
246 	&mov(&DWP(4,$out,"",0),"edx");
248 	&mov(&DWP($data_off+8,"esp","",0),	"eax");	# save iv
249 	&mov(&DWP($data_off+12,"esp","",0),	"ebx");	#
258 	&mov($count,	&wparam(2));	# length
262 	&mov("eax",	&DWP(0,$in,"",0));	# load first 4 bytes
263 	&mov("ebx",	&DWP(4,$in,"",0));	# second 4 bytes
268 	&mov(&DWP($data_off,"esp","",0),	"eax");	# put back
269 	&mov(&DWP($data_off+4,"esp","",0),	"ebx");	#
273 	&mov("eax",	&DWP($data_off,"esp","",0));	# get return
274 	&mov("ebx",	&DWP($data_off+4,"esp","",0));	#
279 	&mov("ecx",	&DWP($data_off+8,"esp","",0));	# get iv[0]
280 	&mov("edx",	&DWP($data_off+12,"esp","",0));	# get iv[1]
286 	&mov("eax",	&DWP(0,$in,"",0));	# get old cipher text,
287 	&mov("ebx",	&DWP(4,$in,"",0));	# next iv actually
298 	&mov(&DWP(0,$out,"",0),	"ecx");
316 	&mov("ecx",	&wparam($iv_off));	# Get iv ptr
325 	&mov(&DWP(0,"ecx","",0),	"eax");	# save iv
326 	&mov(&DWP(4,"ecx","",0),	"ebx");	# save iv