Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – planix.SVN – Blame – /os/branches/planix-v0/sys/src/cmd/unix/drawterm/win32-386/sha1block.spp – Rev 2

Subversion Repositories planix.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
.text
2 
 
3 
.p2align 2,0x90
4 
.globl ___sha1block
5 
___sha1block:
6 
	jmp sha1block
7 
 
8 
.p2align 2,0x90
9 
.globl __sha1block
10 
__sha1block:
11 
	jmp sha1block
12 
 
13 
.p2align 2,0x90
14 
.globl _sha1block
15 
_sha1block:
16 
	jmp sha1block
17 
 
18 
.p2align 2,0x90
19 
.globl sha1block
20 
sha1block:
21 
 
22 
/* x = (wp[off-f] ^ wp[off-8] ^ wp[off-14] ^ wp[off-16]) <<< 1;
23 
 * wp[off] = x;
24 
 * x += A <<< 5;
25 
 * E += 0xca62c1d6 + x;
26 
 * x = FN(B,C,D);
27 
 * E += x;
28 
 * B >>> 2
29 
 */
30 
#define BSWAPDI	BYTE $0x0f; BYTE $0xcf;
31 
 
32 
#define BODY(off,FN,V,A,B,C,D,E)\
33 
	movl (off-64)(%ebp), %edi;\
34 
	xorl (off-56)(%ebp), %edi;\
35 
	xorl (off-32)(%ebp), %edi;\
36 
	xorl (off-12)(%ebp), %edi;\
37 
	roll $1, %edi;\
38 
	movl %edi, off(%ebp);\
39 
	leal V(%edi, E, 1), E;\
40 
	movl A, %edi;\
41 
	roll $5, %edi;\
42 
	addl %edi, E;\
43 
	FN(B,C,D)\
44 
	addl %edi, E;\
45 
	rorl $2, B;\
46 
 
47 
#define BODY0(off,FN,V,A,B,C,D,E)\
48 
	movl off(%ebx), %edi;\
49 
	bswap %edi;\
50 
	movl %edi, off(%ebp);\
51 
	leal V(%edi,E,1), E;\
52 
	movl A, %edi;\
53 
	roll $5,%edi;\
54 
	addl %edi,E;\
55 
	FN(B,C,D)\
56 
	addl %edi,E;\
57 
	rorl $2,B;\
58 
 
59 
/*
60 
 * fn1 = (((C^D)&B)^D);
61 
 */
62 
#define FN1(B,C,D)\
63 
	movl C, %edi;\
64 
	xorl D, %edi;\
65 
	andl B, %edi;\
66 
	xorl D, %edi;\
67 
 
68 
/*
69 
 * fn24 = B ^ C ^ D
70 
 */
71 
#define FN24(B,C,D)\
72 
	movl B, %edi;\
73 
	xorl C, %edi;\
74 
	xorl D, %edi;\
75 
 
76 
/*
77 
 * fn3 = ((B ^ C) & (D ^= B)) ^ B
78 
 * D ^= B to restore D
79 
 */
80 
#define FN3(B,C,D)\
81 
	movl B, %edi;\
82 
	xorl C, %edi;\
83 
	xorl B, D;\
84 
	andl D, %edi;\
85 
	xorl B, %edi;\
86 
	xorl B, D;\
87 
 
88 
/*
89 
 * stack offsets
90 
 * void sha1block(uchar *DATA, int LEN, ulong *STATE)
91 
 */
92 
#define STACKSIZE (48+80*4)
93 
#define	DATA	(STACKSIZE+8)
94 
#define	LEN	(STACKSIZE+12)
95 
#define	STATE	(STACKSIZE+16)
96 
 
97 
/*
98 
 * stack offsets for locals
99 
 * ulong w[80];
100 
 * uchar *edata;
101 
 * ulong *w15, *w40, *w60, *w80;
102 
 * register local
103 
 * ulong *wp = %ebp
104 
 * ulong a = eax, b = ebx, c = ecx, d = edx, e = esi
105 
 * ulong tmp = edi
106 
 */
107 
#define WARRAY	(STACKSIZE-4-(80*4))
108 
#define TMP1	(STACKSIZE-8-(80*4))
109 
#define TMP2	(STACKSIZE-12-(80*4))
110 
#define W15	(STACKSIZE-16-(80*4))
111 
#define W40	(STACKSIZE-20-(80*4))
112 
#define W60	(STACKSIZE-24-(80*4))
113 
#define W80	(STACKSIZE-28-(80*4))
114 
#define EDATA	(STACKSIZE-32-(80*4))
115 
#define OLDEBX	(STACKSIZE-36-(80*4))
116 
#define OLDESI	(STACKSIZE-40-(80*4))
117 
#define OLDEDI	(STACKSIZE-44-(80*4))
118 
 
119 
	/* Prelude */
120 
	pushl %ebp
121 
	subl $(STACKSIZE), %esp
122 
 
123 
	mov %ebx, OLDEBX(%esp)
124 
	mov %esi, OLDESI(%esp)
125 
	mov %edi, OLDEDI(%esp)
126 
 
127 
	movl DATA(%esp), %eax
128 
	addl LEN(%esp), %eax
129 
	movl %eax, EDATA(%esp)
130 
 
131 
	leal (WARRAY+15*4)(%esp), %edi	/* aw15 */
132 
	movl %edi, W15(%esp)
133 
	leal (WARRAY+40*4)(%esp), %edx	/* aw40 */
134 
	movl %edx, W40(%esp)
135 
	leal (WARRAY+60*4)(%esp), %ecx	/* aw60 */
136 
	movl %ecx, W60(%esp)
137 
	leal (WARRAY+80*4)(%esp), %edi	/* aw80 */
138 
	movl %edi, W80(%esp)
139 
 
140 
0:
141 
	leal WARRAY(%esp), %ebp		/* warray */
142 
 
143 
	movl STATE(%esp), %edi		/* state */
144 
	movl (%edi),%eax
145 
	movl 4(%edi),%ebx
146 
	movl %ebx, TMP1(%esp)		/* tmp1 */
147 
	movl 8(%edi), %ecx
148 
	movl 12(%edi), %edx
149 
	movl 16(%edi), %esi
150 
 
151 
	movl DATA(%esp), %ebx		/* data */
152 
 
153 
1:
154 
	BODY0(0,FN1,0x5a827999,%eax,TMP1(%esp),%ecx,%edx,%esi)
155 
	movl %esi,TMP2(%esp)
156 
	BODY0(4,FN1,0x5a827999,%esi,%eax,TMP1(%esp),%ecx,%edx)
157 
	movl TMP1(%esp),%esi
158 
	BODY0(8,FN1,0x5a827999,%edx,TMP2(%esp),%eax,%esi,%ecx)
159 
	BODY0(12,FN1,0x5a827999,%ecx,%edx,TMP2(%esp),%eax,%esi)
160 
	movl %esi,TMP1(%esp)
161 
	BODY0(16,FN1,0x5a827999,%esi,%ecx,%edx,TMP2(%esp),%eax)
162 
	movl TMP2(%esp),%esi
163 
 
164 
	addl $20, %ebx
165 
	addl $20, %ebp
166 
	cmpl W15(%esp), %ebp	/* w15 */
167 
	jb 1b
168 
 
169 
	BODY0(0,FN1,0x5a827999,%eax,TMP1(%esp),%ecx,%edx,%esi)
170 
	addl $4, %ebx
171 
	MOVL %ebx, DATA(%esp)	/* data */
172 
	MOVL TMP1(%esp),%ebx
173 
 
174 
	BODY(4,FN1,0x5a827999,%esi,%eax,%ebx,%ecx,%edx)
175 
	BODY(8,FN1,0x5a827999,%edx,%esi,%eax,%ebx,%ecx)
176 
	BODY(12,FN1,0x5a827999,%ecx,%edx,%esi,%eax,%ebx)
177 
	BODY(16,FN1,0x5a827999,%ebx,%ecx,%edx,%esi,%eax)
178 
 
179 
	addl $20, %ebp
180 
 
181 
2:
182 
	BODY(0,FN24,0x6ed9eba1,%eax,%ebx,%ecx,%edx,%esi)
183 
	BODY(4,FN24,0x6ed9eba1,%esi,%eax,%ebx,%ecx,%edx)
184 
	BODY(8,FN24,0x6ed9eba1,%edx,%esi,%eax,%ebx,%ecx)
185 
	BODY(12,FN24,0x6ed9eba1,%ecx,%edx,%esi,%eax,%ebx)
186 
	BODY(16,FN24,0x6ed9eba1,%ebx,%ecx,%edx,%esi,%eax)
187 
 
188 
	addl $20,%ebp
189 
	cmpl W40(%esp), %ebp
190 
	jb 2b
191 
 
192 
3:
193 
	BODY(0,FN3,0x8f1bbcdc,%eax,%ebx,%ecx,%edx,%esi)
194 
	BODY(4,FN3,0x8f1bbcdc,%esi,%eax,%ebx,%ecx,%edx)
195 
	BODY(8,FN3,0x8f1bbcdc,%edx,%esi,%eax,%ebx,%ecx)
196 
	BODY(12,FN3,0x8f1bbcdc,%ecx,%edx,%esi,%eax,%ebx)
197 
	BODY(16,FN3,0x8f1bbcdc,%ebx,%ecx,%edx,%esi,%eax)
198 
 
199 
	addl $20, %ebp
200 
	cmpl W60(%esp), %ebp 	/* w60 */
201 
	jb 3b
202 
 
203 
4:
204 
	BODY(0,FN24,0xca62c1d6,%eax,%ebx,%ecx,%edx,%esi)
205 
	BODY(4,FN24,0xca62c1d6,%esi,%eax,%ebx,%ecx,%edx)
206 
	BODY(8,FN24,0xca62c1d6,%edx,%esi,%eax,%ebx,%ecx)
207 
	BODY(12,FN24,0xca62c1d6,%ecx,%edx,%esi,%eax,%ebx)
208 
	BODY(16,FN24,0xca62c1d6,%ebx,%ecx,%edx,%esi,%eax)
209 
 
210 
	addl $20, %ebp
211 
	cmpl W80(%esp), %ebp 	/* w80 */
212 
	jb 4b
213 
 
214 
	movl STATE(%esp), %edi	/* state */
215 
	addl %eax, 0(%edi)
216 
	addl %ebx, 4(%edi)
217 
	addl %ecx, 8(%edi)
218 
	addl %edx, 12(%edi)
219 
	addl %esi, 16(%edi)
220 
 
221 
	movl EDATA(%esp), %edi	/* edata */
222 
	cmpl %edi, DATA(%esp)	/* data */
223 
	jb 0b
224 
 
225 
	/* Postlude */
226 
	mov OLDEBX(%esp), %ebx
227 
	mov OLDESI(%esp), %esi
228 
	mov OLDEDI(%esp), %edi
229 
	addl $(STACKSIZE), %esp
230 
	popl %ebp
231 
	ret