![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xla.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / kernel / io.386|
Return to xla.s CVS log | Up to [MW Coherent from dump] / coherent / b / kernel / io.386 |
1.1 root 1: /************************************************************************/
2: /* Copyright (c) 1988, 1989 ARCHIVE Corporation */
3: /* This program is an unpublished work fully protected by the */
4: /* United States Copyright laws and is considered a trade secret */
5: /* belonging to Archive Corporation. */
6: /************************************************************************/
7: /* file: xla.orig.s asm code for xl.c */
8: /* */
9: /* 13JUL88 14:00 */
10: /* Unix port 05/14/1989 */
11: /************************************************************************/
12:
13: /************************************************************************/
14: /* 386 version */
15: /************************************************************************/
16:
17: /************************************************************************/
18: /* request buffer structure */
19: /* must match struc rb{} in xl.c */
20: /************************************************************************/
21: .unixorder
22: rb: /* request buffer structure */
23: rbnxt: .long 0 /* ptr to next packet */
24: rbfun: .byte 0 /* function */
25: rbsts: .byte 0 /* status */
26: rbsgn: .value 0 /* segment # */
27: rbadr: .long 0 /* addr of buffer */
28: rbmap: .long 0 /* bad sector map */
29: rbhed: .byte 0 /* fdc head */
30: rbcyl: .byte 0 /* fdc cylinder */
31: rbsct: .byte 0 /* base fdc sector */
32: rbtrk: .byte 0 /* tape track */
33: rbtps: .byte 0 /* segment */
34: rbidc: .byte 0 /* read id cylinder */
35: rbids: .byte 0 /* sct */
36: rbnbk: .byte 0 /* # blocks */
37: rberc: .byte 0 /* error count */
38: rbers: .byte 0,0,0 /* error sectors */
39: rbtbl: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
40: /* parsed segment params*/
41: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
42: /rb ends
43: /********************************************************/
44: / data section */
45: /********************************************************/
46: .data
47: / tables must be on page boundary
48: / which is why they are in _data
49: .globl xl_log2
50: .globl xl_alg2
51: .globl xl_mx02
52: .globl xl_mxc0
53: .globl xl_mxc3
54: xl_log2: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /ecc tables
55: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /2
56: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /3
57: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /4
58: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /5
59: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /6
60: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /7
61: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /8
62: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /9
63: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /10
64: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /11
65: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /12
66: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /13
67: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /14
68: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /15
69: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /16
70: xl_alg2: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /ecc tables
71: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /2
72: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /3
73: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /4
74: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /5
75: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /6
76: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /7
77: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /8
78: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /9
79: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /10
80: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /11
81: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /12
82: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /13
83: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /14
84: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /15
85: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /16
86: xl_mx02: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /ecc tables
87: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /2
88: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /3
89: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /4
90: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /5
91: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /6
92: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /7
93: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /8
94: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /9
95: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /10
96: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /11
97: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /12
98: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /13
99: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /14
100: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /15
101: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /16
102: xl_mxc0: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /ecc tables
103: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /2
104: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /3
105: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /4
106: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /5
107: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /6
108: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /7
109: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /8
110: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /9
111: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /10
112: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /11
113: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /12
114: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /13
115: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /14
116: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /15
117: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /16
118: xl_mxc3: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /ecc tables
119: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /2
120: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /3
121: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /4
122: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /5
123: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /6
124: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /7
125: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /8
126: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /9
127: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /10
128: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /11
129: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /12
130: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /13
131: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /14
132: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /15
133: .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /16
134: encj: .long 0
135: chkj: .long 0
136:
137: .globl xl_encs
138: .globl xl_chks
139: xl_encs: .byte 0
140: xl_chks: .byte 0
141:
142: .globl xl_tbl
143: .globl xl_bst
144: .globl xl_sct
145: .globl xl_cnt
146: .globl xl_ofs
147: xl_tbl: .long 0 /* ptr to rb.tbl */
148: xl_bst: .byte 0 /* base sector for segment */
149: xl_sct: .byte 0 /* sector # for next chunk */
150: xl_cnt: .long 0 /* # bytes to xfer next chunk */
151: xl_ofs: .long 0 /* offset for next chunk */
152: prb: .long 0 /* pointer to rb */
153: xl_nbk: .byte 0 /* # blocks / segment */
154: /* rb.tbl format: */
155: /* bits 15-10 = dma count */
156: /* bits 9-5 = dma offset >> 5 */
157: /* bits 4-0 = sector */
158:
159: .bss
160: /********************************************************/
161: / code section */
162: /********************************************************/
163: .text
164: .align 4
165: /********************************************************/
166: / xl_move (src, dest, cnt) */
167: /********************************************************/
168: .globl xl_move
169: xl_move:
170: push %ebp /* set up
171: mov %esp,%ebp
172: push %es
173: push %edi
174: push %esi
175: push %ds
176: pop %es
177: mov 8(%ebp),%esi
178: mov 12(%ebp),%edi
179: mov 16(%ebp),%ecx
180: cld
181: jcxz xl_mov0 /* br if no data
182: shr $2,%ecx /* move longs
183: repz
184: movsl
185: mov 16(%ebp),%ecx /* move bytes (if any)
186: and $3,%ecx
187: rep
188: movsb
189: xl_mov0:
190: pop %esi /* exit
191: pop %edi
192: pop %es
193: pop %ebp
194: ret
195:
196: /********************************************************/
197: / xl_tbi initialize table */
198: /********************************************************/
199: .globl xl_tbi
200: xl_tbi:
201: push %ebx
202: push %esi
203: /
204: movl $enc2,%eax /initialize xl_encs
205: subl $enc1,%eax
206: movb %al,xl_encs
207: movl $chk2,%eax /initialize xl_chks
208: subl $chk1,%eax
209: movb %al,xl_chks
210: /
211: mov $xl_alg2,%ebx /init alog2 table
212: movb $01,%al
213: tbli0:
214: movb %al,(%ebx)
215: inc %ebx
216: addb %al,%al
217: jnc tbli1
218: xorb $0x87,%al
219: tbli1:
220: cmpb $01,%al
221: jne tbli0
222: movb %al,(%ebx)
223: /
224: mov $xl_alg2,%esi
225: movb $0x0ff,xl_log2
226: xor %eax,%eax
227: xor %ebx,%ebx
228: tbli2:
229: movb (%esi),%bl
230: movb %al,xl_log2(%ebx)
231: inc %esi
232: inc %eax
233: cmpb $255,%al
234: jne tbli2
235: /
236: movl $xl_mx02,%esi /init mpy by 02 table
237: mov $0x00200,%ecx
238: tbli3:
239: call _mpy
240: movb %al,(%esi)
241: inc %esi
242: incb %cl
243: jne tbli3
244: /
245: mov $xl_mxc0,%esi /init mpy by c0 table
246: mov $0x0c000,%ecx
247: tbli4: call _mpy
248: movb %al,(%esi)
249: inc %esi
250: incb %cl
251: jne tbli4
252: /
253: movl $xl_mxc3,%esi /init mpy by c3 table
254: mov $0x0c300,%ecx
255: tbli5:
256: call _mpy
257: movb %al,(%esi)
258: inc %esi
259: incb %cl
260: jne tbli5
261: pop %esi
262: pop %ebx
263: ret
264:
265: /encm macro a,c,d,o
266: / xor o*1024(%edi),%e&a&x ;eax = new r0 bytes
267: / xor %e&c&x,%e&d&x ;set up edx for later
268: / movb %&a&l,%bl ;multiply 4 bytes by c0
269: / xorb (%ebp,%ebx),%&c&l ; and xor to ecx
270: / movb %&a&h,%bl ; ecx will be new r2
271: / xorb (%ebp,%ebx),%&c&h
272: / rol $16,%e&a&x
273: / rol $16,%e&c&x
274: / movb %&a&l,%bl
275: / xorb (%ebp,%ebx),%&c&l
276: / movb %&a&h,%bl
277: / xorb (%ebp,%ebx),%&c&h
278: / rol $16,%e&a&x
279: / rol $16,%e&c&x
280: / xor %e&c&x,%e&d&x ;edx = new r1
281: / endm
282:
283: /********************************************************/
284: / xl_enc(bfr, nblks) 3/32 1024 byte blocks */
285: /********************************************************/
286: /
287: .globl xl_enc
288: xl_enc:
289: enter $0, $4 / loop count is a local variable
290: push %ebx
291: push %edi
292: push %esi
293: mov 8(%ebp),%edi /edi = bfr
294: mov 12(%ebp),%ebx /ebx = nblks
295: mov %ebx,%eax /adjust edi
296: dec %eax
297: shl $10,%eax
298: add %eax,%edi
299: mov $32,%eax /set encj according to # blocks
300: subb %bl,%al
301: mulb xl_encs
302: add $enc1,%eax
303: mov %eax,encj
304: mov $256,-4(%ebp) /set up for encode loop
305: enc0:
306: mov $xl_mxc0,%esi
307: xor %ebx,%ebx /edx ends up = r2
308: xor %edx,%edx /edx ends up = r2
309: xor %ecx,%ecx /ecx ends up = r1
310: xor %eax,%eax /eax ends up = r0
311: jmp *encj
312: / .even
313: .align 2
314: /
315: / encode data
316: /
317: enc1:
318: /encm c,a,d,-31
319: xor -31744(%edi),%ecx /eax = new r0 bytes
320: xor %eax,%edx /set up edx for later
321: movb %cl,%bl /multiply 4 bytes by c0
322: xorb (%ebx,%esi),%al / and xor to ecx
323: movb %ch,%bl / ecx will be new r2
324: xorb (%ebx,%esi),%ah
325: rol $16,%ecx
326: rol $16,%eax
327: movb %cl,%bl
328: xorb (%ebx,%esi),%al
329: movb %ch,%bl
330: xorb (%ebx,%esi),%ah
331: rol $16,%ecx
332: rol $16,%eax
333: xor %eax,%edx /edx = new r1
334: enc2:
335: /encm a,d,c,-30
336: xor -30720(%edi),%eax /eax = new r0 bytes
337: xor %edx,%ecx /set up edx for later
338: movb %al,%bl /multiply 4 bytes by c0
339: xorb (%ebx,%esi),%dl / and xor to ecx
340: movb %ah,%bl / ecx will be new r2
341: xorb (%ebx,%esi),%dh
342: rol $16,%eax
343: rol $16,%edx
344: movb %al,%bl
345: xorb (%ebx,%esi),%dl
346: movb %ah,%bl
347: xorb (%ebx,%esi),%dh
348: rol $16,%eax
349: rol $16,%edx
350: xor %edx,%ecx /edx = new r1
351: /encm d,c,a,-29
352: xor -29696(%edi),%edx /eax = new r0 bytes
353: xor %ecx,%eax /set up edx for later
354: movb %dl,%bl /multiply 4 bytes by c0
355: xorb (%ebx,%esi),%cl / and xor to ecx
356: movb %dh,%bl / ecx will be new r2
357: xorb (%ebx,%esi),%ch
358: rol $16,%edx
359: rol $16,%ecx
360: movb %dl,%bl
361: xorb (%ebx,%esi),%cl
362: movb %dh,%bl
363: xorb (%ebx,%esi),%ch
364: rol $16,%edx
365: rol $16,%ecx
366: xor %ecx,%eax /edx = new r1
367: /encm c,a,d,-28
368: xor -28672(%edi),%ecx /eax = new r0 bytes
369: xor %eax,%edx /set up edx for later
370: movb %cl,%bl /multiply 4 bytes by c0
371: xorb (%ebx,%esi),%al / and xor to ecx
372: movb %ch,%bl / ecx will be new r2
373: xorb (%ebx,%esi),%ah
374: rol $16,%ecx
375: rol $16,%eax
376: movb %cl,%bl
377: xorb (%ebx,%esi),%al
378: movb %ch,%bl
379: xorb (%ebx,%esi),%ah
380: rol $16,%ecx
381: rol $16,%eax
382: xor %eax,%edx /edx = new r1
383: /encm a,d,c,-27
384: xor -27648(%edi),%eax /eax = new r0 bytes
385: xor %edx,%ecx /set up edx for later
386: movb %al,%bl /multiply 4 bytes by c0
387: xorb (%ebx,%esi),%dl / and xor to ecx
388: movb %ah,%bl / ecx will be new r2
389: xorb (%ebx,%esi),%dh
390: rol $16,%eax
391: rol $16,%edx
392: movb %al,%bl
393: xorb (%ebx,%esi),%dl
394: movb %ah,%bl
395: xorb (%ebx,%esi),%dh
396: rol $16,%eax
397: rol $16,%edx
398: xor %edx,%ecx /edx = new r1
399: /encm d,c,a,-26
400: xor -26624(%edi),%edx /eax = new r0 bytes
401: xor %ecx,%eax /set up edx for later
402: movb %dl,%bl /multiply 4 bytes by c0
403: xorb (%ebx,%esi),%cl / and xor to ecx
404: movb %dh,%bl / ecx will be new r2
405: xorb (%ebx,%esi),%ch
406: rol $16,%edx
407: rol $16,%ecx
408: movb %dl,%bl
409: xorb (%ebx,%esi),%cl
410: movb %dh,%bl
411: xorb (%ebx,%esi),%ch
412: rol $16,%edx
413: rol $16,%ecx
414: xor %ecx,%eax /edx = new r1
415: /encm c,a,d,-25
416: xor -25600(%edi),%ecx /eax = new r0 bytes
417: xor %eax,%edx /set up edx for later
418: movb %cl,%bl /multiply 4 bytes by c0
419: xorb (%ebx,%esi),%al / and xor to ecx
420: movb %ch,%bl / ecx will be new r2
421: xorb (%ebx,%esi),%ah
422: rol $16,%ecx
423: rol $16,%eax
424: movb %cl,%bl
425: xorb (%ebx,%esi),%al
426: movb %ch,%bl
427: xorb (%ebx,%esi),%ah
428: rol $16,%ecx
429: rol $16,%eax
430: xor %eax,%edx /edx = new r1
431: /encm a,d,c,-24
432: xor -24576(%edi),%eax /eax = new r0 bytes
433: xor %edx,%ecx /set up edx for later
434: movb %al,%bl /multiply 4 bytes by c0
435: xorb (%ebx,%esi),%dl / and xor to ecx
436: movb %ah,%bl / ecx will be new r2
437: xorb (%ebx,%esi),%dh
438: rol $16,%eax
439: rol $16,%edx
440: movb %al,%bl
441: xorb (%ebx,%esi),%dl
442: movb %ah,%bl
443: xorb (%ebx,%esi),%dh
444: rol $16,%eax
445: rol $16,%edx
446: xor %edx,%ecx /edx = new r1
447: /encm d,c,a,-23
448: xor -23552(%edi),%edx /eax = new r0 bytes
449: xor %ecx,%eax /set up edx for later
450: movb %dl,%bl /multiply 4 bytes by c0
451: xorb (%ebx,%esi),%cl / and xor to ecx
452: movb %dh,%bl / ecx will be new r2
453: xorb (%ebx,%esi),%ch
454: rol $16,%edx
455: rol $16,%ecx
456: movb %dl,%bl
457: xorb (%ebx,%esi),%cl
458: movb %dh,%bl
459: xorb (%ebx,%esi),%ch
460: rol $16,%edx
461: rol $16,%ecx
462: xor %ecx,%eax /edx = new r1
463: /encm c,a,d,-22
464: xor -22528(%edi),%ecx /eax = new r0 bytes
465: xor %eax,%edx /set up edx for later
466: movb %cl,%bl /multiply 4 bytes by c0
467: xorb (%ebx,%esi),%al / and xor to ecx
468: movb %ch,%bl / ecx will be new r2
469: xorb (%ebx,%esi),%ah
470: rol $16,%ecx
471: rol $16,%eax
472: movb %cl,%bl
473: xorb (%ebx,%esi),%al
474: movb %ch,%bl
475: xorb (%ebx,%esi),%ah
476: rol $16,%ecx
477: rol $16,%eax
478: xor %eax,%edx /edx = new r1
479: /encm a,d,c,-21
480: xor -21504(%edi),%eax /eax = new r0 bytes
481: xor %edx,%ecx /set up edx for later
482: movb %al,%bl /multiply 4 bytes by c0
483: xorb (%ebx,%esi),%dl / and xor to ecx
484: movb %ah,%bl / ecx will be new r2
485: xorb (%ebx,%esi),%dh
486: rol $16,%eax
487: rol $16,%edx
488: movb %al,%bl
489: xorb (%ebx,%esi),%dl
490: movb %ah,%bl
491: xorb (%ebx,%esi),%dh
492: rol $16,%eax
493: rol $16,%edx
494: xor %edx,%ecx /edx = new r1
495: /encm d,c,a,-20
496: xor -20480(%edi),%edx /eax = new r0 bytes
497: xor %ecx,%eax /set up edx for later
498: movb %dl,%bl /multiply 4 bytes by c0
499: xorb (%ebx,%esi),%cl / and xor to ecx
500: movb %dh,%bl / ecx will be new r2
501: xorb (%ebx,%esi),%ch
502: rol $16,%edx
503: rol $16,%ecx
504: movb %dl,%bl
505: xorb (%ebx,%esi),%cl
506: movb %dh,%bl
507: xorb (%ebx,%esi),%ch
508: rol $16,%edx
509: rol $16,%ecx
510: xor %ecx,%eax /edx = new r1
511: /encm c,a,d,-19
512: xor -19456(%edi),%ecx /eax = new r0 bytes
513: xor %eax,%edx /set up edx for later
514: movb %cl,%bl /multiply 4 bytes by c0
515: xorb (%ebx,%esi),%al / and xor to ecx
516: movb %ch,%bl / ecx will be new r2
517: xorb (%ebx,%esi),%ah
518: rol $16,%ecx
519: rol $16,%eax
520: movb %cl,%bl
521: xorb (%ebx,%esi),%al
522: movb %ch,%bl
523: xorb (%ebx,%esi),%ah
524: rol $16,%ecx
525: rol $16,%eax
526: xor %eax,%edx /edx = new r1
527: /encm a,d,c,-18
528: xor -18432(%edi),%eax /eax = new r0 bytes
529: xor %edx,%ecx /set up edx for later
530: movb %al,%bl /multiply 4 bytes by c0
531: xorb (%ebx,%esi),%dl / and xor to ecx
532: movb %ah,%bl / ecx will be new r2
533: xorb (%ebx,%esi),%dh
534: rol $16,%eax
535: rol $16,%edx
536: movb %al,%bl
537: xorb (%ebx,%esi),%dl
538: movb %ah,%bl
539: xorb (%ebx,%esi),%dh
540: rol $16,%eax
541: rol $16,%edx
542: xor %edx,%ecx /edx = new r1
543: /encm d,c,a,-17
544: xor -17408(%edi),%edx /eax = new r0 bytes
545: xor %ecx,%eax /set up edx for later
546: movb %dl,%bl /multiply 4 bytes by c0
547: xorb (%ebx,%esi),%cl / and xor to ecx
548: movb %dh,%bl / ecx will be new r2
549: xorb (%ebx,%esi),%ch
550: rol $16,%edx
551: rol $16,%ecx
552: movb %dl,%bl
553: xorb (%ebx,%esi),%cl
554: movb %dh,%bl
555: xorb (%ebx,%esi),%ch
556: rol $16,%edx
557: rol $16,%ecx
558: xor %ecx,%eax /edx = new r1
559: /encm c,a,d,-16
560: xor -16384(%edi),%ecx /eax = new r0 bytes
561: xor %eax,%edx /set up edx for later
562: movb %cl,%bl /multiply 4 bytes by c0
563: xorb (%ebx,%esi),%al / and xor to ecx
564: movb %ch,%bl / ecx will be new r2
565: xorb (%ebx,%esi),%ah
566: rol $16,%ecx
567: rol $16,%eax
568: movb %cl,%bl
569: xorb (%ebx,%esi),%al
570: movb %ch,%bl
571: xorb (%ebx,%esi),%ah
572: rol $16,%ecx
573: rol $16,%eax
574: xor %eax,%edx /edx = new r1
575: /encm a,d,c,-15
576: xor -15360(%edi),%eax /eax = new r0 bytes
577: xor %edx,%ecx /set up edx for later
578: movb %al,%bl /multiply 4 bytes by c0
579: xorb (%ebx,%esi),%dl / and xor to ecx
580: movb %ah,%bl / ecx will be new r2
581: xorb (%ebx,%esi),%dh
582: rol $16,%eax
583: rol $16,%edx
584: movb %al,%bl
585: xorb (%ebx,%esi),%dl
586: movb %ah,%bl
587: xorb (%ebx,%esi),%dh
588: rol $16,%eax
589: rol $16,%edx
590: xor %edx,%ecx /edx = new r1
591: /encm d,c,a,-14
592: xor -14336(%edi),%edx /eax = new r0 bytes
593: xor %ecx,%eax /set up edx for later
594: movb %dl,%bl /multiply 4 bytes by c0
595: xorb (%ebx,%esi),%cl / and xor to ecx
596: movb %dh,%bl / ecx will be new r2
597: xorb (%ebx,%esi),%ch
598: rol $16,%edx
599: rol $16,%ecx
600: movb %dl,%bl
601: xorb (%ebx,%esi),%cl
602: movb %dh,%bl
603: xorb (%ebx,%esi),%ch
604: rol $16,%edx
605: rol $16,%ecx
606: xor %ecx,%eax /edx = new r1
607: /encm c,a,d,-13
608: xor -13312(%edi),%ecx /eax = new r0 bytes
609: xor %eax,%edx /set up edx for later
610: movb %cl,%bl /multiply 4 bytes by c0
611: xorb (%ebx,%esi),%al / and xor to ecx
612: movb %ch,%bl / ecx will be new r2
613: xorb (%ebx,%esi),%ah
614: rol $16,%ecx
615: rol $16,%eax
616: movb %cl,%bl
617: xorb (%ebx,%esi),%al
618: movb %ch,%bl
619: xorb (%ebx,%esi),%ah
620: rol $16,%ecx
621: rol $16,%eax
622: xor %eax,%edx /edx = new r1
623: /encm a,d,c,-12
624: xor -12288(%edi),%eax /eax = new r0 bytes
625: xor %edx,%ecx /set up edx for later
626: movb %al,%bl /multiply 4 bytes by c0
627: xorb (%ebx,%esi),%dl / and xor to ecx
628: movb %ah,%bl / ecx will be new r2
629: xorb (%ebx,%esi),%dh
630: rol $16,%eax
631: rol $16,%edx
632: movb %al,%bl
633: xorb (%ebx,%esi),%dl
634: movb %ah,%bl
635: xorb (%ebx,%esi),%dh
636: rol $16,%eax
637: rol $16,%edx
638: xor %edx,%ecx /edx = new r1
639: /encm d,c,a,-11
640: xor -11264(%edi),%edx /eax = new r0 bytes
641: xor %ecx,%eax /set up edx for later
642: movb %dl,%bl /multiply 4 bytes by c0
643: xorb (%ebx,%esi),%cl / and xor to ecx
644: movb %dh,%bl / ecx will be new r2
645: xorb (%ebx,%esi),%ch
646: rol $16,%edx
647: rol $16,%ecx
648: movb %dl,%bl
649: xorb (%ebx,%esi),%cl
650: movb %dh,%bl
651: xorb (%ebx,%esi),%ch
652: rol $16,%edx
653: rol $16,%ecx
654: xor %ecx,%eax /edx = new r1
655: /encm c,a,d,-10
656: xor -10240(%edi),%ecx /eax = new r0 bytes
657: xor %eax,%edx /set up edx for later
658: movb %cl,%bl /multiply 4 bytes by c0
659: xorb (%ebx,%esi),%al / and xor to ecx
660: movb %ch,%bl / ecx will be new r2
661: xorb (%ebx,%esi),%ah
662: rol $16,%ecx
663: rol $16,%eax
664: movb %cl,%bl
665: xorb (%ebx,%esi),%al
666: movb %ch,%bl
667: xorb (%ebx,%esi),%ah
668: rol $16,%ecx
669: rol $16,%eax
670: xor %eax,%edx /edx = new r1
671: /encm a,d,c,-9
672: xor -9216(%edi),%eax /eax = new r0 bytes
673: xor %edx,%ecx /set up edx for later
674: movb %al,%bl /multiply 4 bytes by c0
675: xorb (%ebx,%esi),%dl / and xor to ecx
676: movb %ah,%bl / ecx will be new r2
677: xorb (%ebx,%esi),%dh
678: rol $16,%eax
679: rol $16,%edx
680: movb %al,%bl
681: xorb (%ebx,%esi),%dl
682: movb %ah,%bl
683: xorb (%ebx,%esi),%dh
684: rol $16,%eax
685: rol $16,%edx
686: xor %edx,%ecx /edx = new r1
687: /encm d,c,a,-8
688: xor -8192(%edi),%edx /eax = new r0 bytes
689: xor %ecx,%eax /set up edx for later
690: movb %dl,%bl /multiply 4 bytes by c0
691: xorb (%ebx,%esi),%cl / and xor to ecx
692: movb %dh,%bl / ecx will be new r2
693: xorb (%ebx,%esi),%ch
694: rol $16,%edx
695: rol $16,%ecx
696: movb %dl,%bl
697: xorb (%ebx,%esi),%cl
698: movb %dh,%bl
699: xorb (%ebx,%esi),%ch
700: rol $16,%edx
701: rol $16,%ecx
702: xor %ecx,%eax /edx = new r1
703: /encm c,a,d,-7
704: xor -7168(%edi),%ecx /eax = new r0 bytes
705: xor %eax,%edx /set up edx for later
706: movb %cl,%bl /multiply 4 bytes by c0
707: xorb (%ebx,%esi),%al / and xor to ecx
708: movb %ch,%bl / ecx will be new r2
709: xorb (%ebx,%esi),%ah
710: rol $16,%ecx
711: rol $16,%eax
712: movb %cl,%bl
713: xorb (%ebx,%esi),%al
714: movb %ch,%bl
715: xorb (%ebx,%esi),%ah
716: rol $16,%ecx
717: rol $16,%eax
718: xor %eax,%edx /edx = new r1
719: /encm a,d,c,-6
720: xor -6144(%edi),%eax /eax = new r0 bytes
721: xor %edx,%ecx /set up edx for later
722: movb %al,%bl /multiply 4 bytes by c0
723: xorb (%ebx,%esi),%dl / and xor to ecx
724: movb %ah,%bl / ecx will be new r2
725: xorb (%ebx,%esi),%dh
726: rol $16,%eax
727: rol $16,%edx
728: movb %al,%bl
729: xorb (%ebx,%esi),%dl
730: movb %ah,%bl
731: xorb (%ebx,%esi),%dh
732: rol $16,%eax
733: rol $16,%edx
734: xor %edx,%ecx /edx = new r1
735: /encm d,c,a,-5
736: xor -5120(%edi),%edx /eax = new r0 bytes
737: xor %ecx,%eax /set up edx for later
738: movb %dl,%bl /multiply 4 bytes by c0
739: xorb (%ebx,%esi),%cl / and xor to ecx
740: movb %dh,%bl / ecx will be new r2
741: xorb (%ebx,%esi),%ch
742: rol $16,%edx
743: rol $16,%ecx
744: movb %dl,%bl
745: xorb (%ebx,%esi),%cl
746: movb %dh,%bl
747: xorb (%ebx,%esi),%ch
748: rol $16,%edx
749: rol $16,%ecx
750: xor %ecx,%eax /edx = new r1
751: /encm c,a,d,-4
752: xor -4096(%edi),%ecx /eax = new r0 bytes
753: xor %eax,%edx /set up edx for later
754: movb %cl,%bl /multiply 4 bytes by c0
755: xorb (%ebx,%esi),%al / and xor to ecx
756: movb %ch,%bl / ecx will be new r2
757: xorb (%ebx,%esi),%ah
758: rol $16,%ecx
759: rol $16,%eax
760: movb %cl,%bl
761: xorb (%ebx,%esi),%al
762: movb %ch,%bl
763: xorb (%ebx,%esi),%ah
764: rol $16,%ecx
765: rol $16,%eax
766: xor %eax,%edx /edx = new r1
767: /encm a,d,c,-3
768: xor -3072(%edi),%eax /eax = new r0 bytes
769: xor %edx,%ecx /set up edx for later
770: movb %al,%bl /multiply 4 bytes by c0
771: xorb (%ebx,%esi),%dl / and xor to ecx
772: movb %ah,%bl / ecx will be new r2
773: xorb (%ebx,%esi),%dh
774: rol $16,%eax
775: rol $16,%edx
776: movb %al,%bl
777: xorb (%ebx,%esi),%dl
778: movb %ah,%bl
779: xorb (%ebx,%esi),%dh
780: rol $16,%eax
781: rol $16,%edx
782: xor %edx,%ecx /edx = new r1
783: mov %edx,-2048(%edi) /store remainder bytes
784: mov %ecx,-1024(%edi)
785: mov %eax,(%edi)
786: add $4,%edi
787: decw -4(%ebp) /loop till done
788: jnz enc0
789: pop %esi /exit
790: pop %edi
791: pop %ebx
792: leave
793: ret
794:
795: /********************************************************/
796: / xl_chk(bfr, nblks) 3/32 1024 byte blocks */
797: / out: eax = 0 if ok */
798: /********************************************************/
799: .globl xl_chk
800: xl_chk:
801: enter $0, $4 / loop count is a local variable
802: push %ebx
803: push %edi
804: push %esi
805: mov 8(%ebp),%edi /edi = adr
806: mov 12(%ebp),%ebx /ebx = # blocks
807: mov %ebx,%eax /adjust edi
808: dec %eax
809: shl $10,%eax
810: add %eax,%edi
811: mov $32,%eax /set chkj according to # blocks
812: subb %bl,%al
813: mulb xl_chks
814: add $chk1,%eax
815: mov %eax,chkj
816: mov $256,-4(%ebp) /set up for check loop
817: chk0:
818: mov $xl_mxc0,%esi
819: xor %ebx,%ebx
820: xor %edx,%edx /edx ends up = r2
821: xor %ecx,%ecx /ecx ends up = r1
822: xor %eax,%eax /eax ends up = r0
823: jmp *chkj
824: / .even
825: .align 2
826: /
827: / encode data
828: /
829: chk1:
830: /encm c,a,d,-31
831: xor -31744(%edi),%ecx /eax = new r0 bytes
832: xor %eax,%edx /set up edx for later
833: movb %cl,%bl /multiply 4 bytes by c0
834: xorb (%ebx,%esi),%al / and xor to ecx
835: movb %ch,%bl / ecx will be new r2
836: xorb (%ebx,%esi),%ah
837: rol $16,%ecx
838: rol $16,%eax
839: movb %cl,%bl
840: xorb (%ebx,%esi),%al
841: movb %ch,%bl
842: xorb (%ebx,%esi),%ah
843: rol $16,%ecx
844: rol $16,%eax
845: xor %eax,%edx /edx = new r1
846: chk2:
847: /encm a,d,c,-30
848: xor -30720(%edi),%eax /eax = new r0 bytes
849: xor %edx,%ecx /set up edx for later
850: movb %al,%bl /multiply 4 bytes by c0
851: xorb (%ebx,%esi),%dl / and xor to ecx
852: movb %ah,%bl / ecx will be new r2
853: xorb (%ebx,%esi),%dh
854: rol $16,%eax
855: rol $16,%edx
856: movb %al,%bl
857: xorb (%ebx,%esi),%dl
858: movb %ah,%bl
859: xorb (%ebx,%esi),%dh
860: rol $16,%eax
861: rol $16,%edx
862: xor %edx,%ecx /edx = new r1
863: /encm d,c,a,-29
864: xor -29696(%edi),%edx /eax = new r0 bytes
865: xor %ecx,%eax /set up edx for later
866: movb %dl,%bl /multiply 4 bytes by c0
867: xorb (%ebx,%esi),%cl / and xor to ecx
868: movb %dh,%bl / ecx will be new r2
869: xorb (%ebx,%esi),%ch
870: rol $16,%edx
871: rol $16,%ecx
872: movb %dl,%bl
873: xorb (%ebx,%esi),%cl
874: movb %dh,%bl
875: xorb (%ebx,%esi),%ch
876: rol $16,%edx
877: rol $16,%ecx
878: xor %ecx,%eax /edx = new r1
879: /encm c,a,d,-28
880: xor -28672(%edi),%ecx /eax = new r0 bytes
881: xor %eax,%edx /set up edx for later
882: movb %cl,%bl /multiply 4 bytes by c0
883: xorb (%ebx,%esi),%al / and xor to ecx
884: movb %ch,%bl / ecx will be new r2
885: xorb (%ebx,%esi),%ah
886: rol $16,%ecx
887: rol $16,%eax
888: movb %cl,%bl
889: xorb (%ebx,%esi),%al
890: movb %ch,%bl
891: xorb (%ebx,%esi),%ah
892: rol $16,%ecx
893: rol $16,%eax
894: xor %eax,%edx /edx = new r1
895: /encm a,d,c,-27
896: xor -27648(%edi),%eax /eax = new r0 bytes
897: xor %edx,%ecx /set up edx for later
898: movb %al,%bl /multiply 4 bytes by c0
899: xorb (%ebx,%esi),%dl / and xor to ecx
900: movb %ah,%bl / ecx will be new r2
901: xorb (%ebx,%esi),%dh
902: rol $16,%eax
903: rol $16,%edx
904: movb %al,%bl
905: xorb (%ebx,%esi),%dl
906: movb %ah,%bl
907: xorb (%ebx,%esi),%dh
908: rol $16,%eax
909: rol $16,%edx
910: xor %edx,%ecx /edx = new r1
911: /encm d,c,a,-26
912: xor -26624(%edi),%edx /eax = new r0 bytes
913: xor %ecx,%eax /set up edx for later
914: movb %dl,%bl /multiply 4 bytes by c0
915: xorb (%ebx,%esi),%cl / and xor to ecx
916: movb %dh,%bl / ecx will be new r2
917: xorb (%ebx,%esi),%ch
918: rol $16,%edx
919: rol $16,%ecx
920: movb %dl,%bl
921: xorb (%ebx,%esi),%cl
922: movb %dh,%bl
923: xorb (%ebx,%esi),%ch
924: rol $16,%edx
925: rol $16,%ecx
926: xor %ecx,%eax /edx = new r1
927: /encm c,a,d,-25
928: xor -25600(%edi),%ecx /eax = new r0 bytes
929: xor %eax,%edx /set up edx for later
930: movb %cl,%bl /multiply 4 bytes by c0
931: xorb (%ebx,%esi),%al / and xor to ecx
932: movb %ch,%bl / ecx will be new r2
933: xorb (%ebx,%esi),%ah
934: rol $16,%ecx
935: rol $16,%eax
936: movb %cl,%bl
937: xorb (%ebx,%esi),%al
938: movb %ch,%bl
939: xorb (%ebx,%esi),%ah
940: rol $16,%ecx
941: rol $16,%eax
942: xor %eax,%edx /edx = new r1
943: /encm a,d,c,-24
944: xor -24576(%edi),%eax /eax = new r0 bytes
945: xor %edx,%ecx /set up edx for later
946: movb %al,%bl /multiply 4 bytes by c0
947: xorb (%ebx,%esi),%dl / and xor to ecx
948: movb %ah,%bl / ecx will be new r2
949: xorb (%ebx,%esi),%dh
950: rol $16,%eax
951: rol $16,%edx
952: movb %al,%bl
953: xorb (%ebx,%esi),%dl
954: movb %ah,%bl
955: xorb (%ebx,%esi),%dh
956: rol $16,%eax
957: rol $16,%edx
958: xor %edx,%ecx /edx = new r1
959: /encm d,c,a,-23
960: xor -23552(%edi),%edx /eax = new r0 bytes
961: xor %ecx,%eax /set up edx for later
962: movb %dl,%bl /multiply 4 bytes by c0
963: xorb (%ebx,%esi),%cl / and xor to ecx
964: movb %dh,%bl / ecx will be new r2
965: xorb (%ebx,%esi),%ch
966: rol $16,%edx
967: rol $16,%ecx
968: movb %dl,%bl
969: xorb (%ebx,%esi),%cl
970: movb %dh,%bl
971: xorb (%ebx,%esi),%ch
972: rol $16,%edx
973: rol $16,%ecx
974: xor %ecx,%eax /edx = new r1
975: /encm c,a,d,-22
976: xor -22528(%edi),%ecx /eax = new r0 bytes
977: xor %eax,%edx /set up edx for later
978: movb %cl,%bl /multiply 4 bytes by c0
979: xorb (%ebx,%esi),%al / and xor to ecx
980: movb %ch,%bl / ecx will be new r2
981: xorb (%ebx,%esi),%ah
982: rol $16,%ecx
983: rol $16,%eax
984: movb %cl,%bl
985: xorb (%ebx,%esi),%al
986: movb %ch,%bl
987: xorb (%ebx,%esi),%ah
988: rol $16,%ecx
989: rol $16,%eax
990: xor %eax,%edx /edx = new r1
991: /encm a,d,c,-21
992: xor -21504(%edi),%eax /eax = new r0 bytes
993: xor %edx,%ecx /set up edx for later
994: movb %al,%bl /multiply 4 bytes by c0
995: xorb (%ebx,%esi),%dl / and xor to ecx
996: movb %ah,%bl / ecx will be new r2
997: xorb (%ebx,%esi),%dh
998: rol $16,%eax
999: rol $16,%edx
1000: movb %al,%bl
1001: xorb (%ebx,%esi),%dl
1002: movb %ah,%bl
1003: xorb (%ebx,%esi),%dh
1004: rol $16,%eax
1005: rol $16,%edx
1006: xor %edx,%ecx /edx = new r1
1007: /encm d,c,a,-20
1008: xor -20480(%edi),%edx /eax = new r0 bytes
1009: xor %ecx,%eax /set up edx for later
1010: movb %dl,%bl /multiply 4 bytes by c0
1011: xorb (%ebx,%esi),%cl / and xor to ecx
1012: movb %dh,%bl / ecx will be new r2
1013: xorb (%ebx,%esi),%ch
1014: rol $16,%edx
1015: rol $16,%ecx
1016: movb %dl,%bl
1017: xorb (%ebx,%esi),%cl
1018: movb %dh,%bl
1019: xorb (%ebx,%esi),%ch
1020: rol $16,%edx
1021: rol $16,%ecx
1022: xor %ecx,%eax /edx = new r1
1023: /encm c,a,d,-19
1024: xor -19456(%edi),%ecx /eax = new r0 bytes
1025: xor %eax,%edx /set up edx for later
1026: movb %cl,%bl /multiply 4 bytes by c0
1027: xorb (%ebx,%esi),%al / and xor to ecx
1028: movb %ch,%bl / ecx will be new r2
1029: xorb (%ebx,%esi),%ah
1030: rol $16,%ecx
1031: rol $16,%eax
1032: movb %cl,%bl
1033: xorb (%ebx,%esi),%al
1034: movb %ch,%bl
1035: xorb (%ebx,%esi),%ah
1036: rol $16,%ecx
1037: rol $16,%eax
1038: xor %eax,%edx /edx = new r1
1039: /encm a,d,c,-18
1040: xor -18432(%edi),%eax /eax = new r0 bytes
1041: xor %edx,%ecx /set up edx for later
1042: movb %al,%bl /multiply 4 bytes by c0
1043: xorb (%ebx,%esi),%dl / and xor to ecx
1044: movb %ah,%bl / ecx will be new r2
1045: xorb (%ebx,%esi),%dh
1046: rol $16,%eax
1047: rol $16,%edx
1048: movb %al,%bl
1049: xorb (%ebx,%esi),%dl
1050: movb %ah,%bl
1051: xorb (%ebx,%esi),%dh
1052: rol $16,%eax
1053: rol $16,%edx
1054: xor %edx,%ecx /edx = new r1
1055: /encm d,c,a,-17
1056: xor -17408(%edi),%edx /eax = new r0 bytes
1057: xor %ecx,%eax /set up edx for later
1058: movb %dl,%bl /multiply 4 bytes by c0
1059: xorb (%ebx,%esi),%cl / and xor to ecx
1060: movb %dh,%bl / ecx will be new r2
1061: xorb (%ebx,%esi),%ch
1062: rol $16,%edx
1063: rol $16,%ecx
1064: movb %dl,%bl
1065: xorb (%ebx,%esi),%cl
1066: movb %dh,%bl
1067: xorb (%ebx,%esi),%ch
1068: rol $16,%edx
1069: rol $16,%ecx
1070: xor %ecx,%eax /edx = new r1
1071: /encm c,a,d,-16
1072: xor -16384(%edi),%ecx /eax = new r0 bytes
1073: xor %eax,%edx /set up edx for later
1074: movb %cl,%bl /multiply 4 bytes by c0
1075: xorb (%ebx,%esi),%al / and xor to ecx
1076: movb %ch,%bl / ecx will be new r2
1077: xorb (%ebx,%esi),%ah
1078: rol $16,%ecx
1079: rol $16,%eax
1080: movb %cl,%bl
1081: xorb (%ebx,%esi),%al
1082: movb %ch,%bl
1083: xorb (%ebx,%esi),%ah
1084: rol $16,%ecx
1085: rol $16,%eax
1086: xor %eax,%edx /edx = new r1
1087: /encm a,d,c,-15
1088: xor -15360(%edi),%eax /eax = new r0 bytes
1089: xor %edx,%ecx /set up edx for later
1090: movb %al,%bl /multiply 4 bytes by c0
1091: xorb (%ebx,%esi),%dl / and xor to ecx
1092: movb %ah,%bl / ecx will be new r2
1093: xorb (%ebx,%esi),%dh
1094: rol $16,%eax
1095: rol $16,%edx
1096: movb %al,%bl
1097: xorb (%ebx,%esi),%dl
1098: movb %ah,%bl
1099: xorb (%ebx,%esi),%dh
1100: rol $16,%eax
1101: rol $16,%edx
1102: xor %edx,%ecx /edx = new r1
1103: /encm d,c,a,-14
1104: xor -14336(%edi),%edx /eax = new r0 bytes
1105: xor %ecx,%eax /set up edx for later
1106: movb %dl,%bl /multiply 4 bytes by c0
1107: xorb (%ebx,%esi),%cl / and xor to ecx
1108: movb %dh,%bl / ecx will be new r2
1109: xorb (%ebx,%esi),%ch
1110: rol $16,%edx
1111: rol $16,%ecx
1112: movb %dl,%bl
1113: xorb (%ebx,%esi),%cl
1114: movb %dh,%bl
1115: xorb (%ebx,%esi),%ch
1116: rol $16,%edx
1117: rol $16,%ecx
1118: xor %ecx,%eax /edx = new r1
1119: /encm c,a,d,-13
1120: xor -13312(%edi),%ecx /eax = new r0 bytes
1121: xor %eax,%edx /set up edx for later
1122: movb %cl,%bl /multiply 4 bytes by c0
1123: xorb (%ebx,%esi),%al / and xor to ecx
1124: movb %ch,%bl / ecx will be new r2
1125: xorb (%ebx,%esi),%ah
1126: rol $16,%ecx
1127: rol $16,%eax
1128: movb %cl,%bl
1129: xorb (%ebx,%esi),%al
1130: movb %ch,%bl
1131: xorb (%ebx,%esi),%ah
1132: rol $16,%ecx
1133: rol $16,%eax
1134: xor %eax,%edx /edx = new r1
1135: /encm a,d,c,-12
1136: xor -12288(%edi),%eax /eax = new r0 bytes
1137: xor %edx,%ecx /set up edx for later
1138: movb %al,%bl /multiply 4 bytes by c0
1139: xorb (%ebx,%esi),%dl / and xor to ecx
1140: movb %ah,%bl / ecx will be new r2
1141: xorb (%ebx,%esi),%dh
1142: rol $16,%eax
1143: rol $16,%edx
1144: movb %al,%bl
1145: xorb (%ebx,%esi),%dl
1146: movb %ah,%bl
1147: xorb (%ebx,%esi),%dh
1148: rol $16,%eax
1149: rol $16,%edx
1150: xor %edx,%ecx /edx = new r1
1151: /encm d,c,a,-11
1152: xor -11264(%edi),%edx /eax = new r0 bytes
1153: xor %ecx,%eax /set up edx for later
1154: movb %dl,%bl /multiply 4 bytes by c0
1155: xorb (%ebx,%esi),%cl / and xor to ecx
1156: movb %dh,%bl / ecx will be new r2
1157: xorb (%ebx,%esi),%ch
1158: rol $16,%edx
1159: rol $16,%ecx
1160: movb %dl,%bl
1161: xorb (%ebx,%esi),%cl
1162: movb %dh,%bl
1163: xorb (%ebx,%esi),%ch
1164: rol $16,%edx
1165: rol $16,%ecx
1166: xor %ecx,%eax /edx = new r1
1167: /encm c,a,d,-10
1168: xor -10240(%edi),%ecx /eax = new r0 bytes
1169: xor %eax,%edx /set up edx for later
1170: movb %cl,%bl /multiply 4 bytes by c0
1171: xorb (%ebx,%esi),%al / and xor to ecx
1172: movb %ch,%bl / ecx will be new r2
1173: xorb (%ebx,%esi),%ah
1174: rol $16,%ecx
1175: rol $16,%eax
1176: movb %cl,%bl
1177: xorb (%ebx,%esi),%al
1178: movb %ch,%bl
1179: xorb (%ebx,%esi),%ah
1180: rol $16,%ecx
1181: rol $16,%eax
1182: xor %eax,%edx /edx = new r1
1183: /encm a,d,c,-9
1184: xor -9216(%edi),%eax /eax = new r0 bytes
1185: xor %edx,%ecx /set up edx for later
1186: movb %al,%bl /multiply 4 bytes by c0
1187: xorb (%ebx,%esi),%dl / and xor to ecx
1188: movb %ah,%bl / ecx will be new r2
1189: xorb (%ebx,%esi),%dh
1190: rol $16,%eax
1191: rol $16,%edx
1192: movb %al,%bl
1193: xorb (%ebx,%esi),%dl
1194: movb %ah,%bl
1195: xorb (%ebx,%esi),%dh
1196: rol $16,%eax
1197: rol $16,%edx
1198: xor %edx,%ecx /edx = new r1
1199: /encm d,c,a,-8
1200: xor -8192(%edi),%edx /eax = new r0 bytes
1201: xor %ecx,%eax /set up edx for later
1202: movb %dl,%bl /multiply 4 bytes by c0
1203: xorb (%ebx,%esi),%cl / and xor to ecx
1204: movb %dh,%bl / ecx will be new r2
1205: xorb (%ebx,%esi),%ch
1206: rol $16,%edx
1207: rol $16,%ecx
1208: movb %dl,%bl
1209: xorb (%ebx,%esi),%cl
1210: movb %dh,%bl
1211: xorb (%ebx,%esi),%ch
1212: rol $16,%edx
1213: rol $16,%ecx
1214: xor %ecx,%eax /edx = new r1
1215: /encm c,a,d,-7
1216: xor -7168(%edi),%ecx /eax = new r0 bytes
1217: xor %eax,%edx /set up edx for later
1218: movb %cl,%bl /multiply 4 bytes by c0
1219: xorb (%ebx,%esi),%al / and xor to ecx
1220: movb %ch,%bl / ecx will be new r2
1221: xorb (%ebx,%esi),%ah
1222: rol $16,%ecx
1223: rol $16,%eax
1224: movb %cl,%bl
1225: xorb (%ebx,%esi),%al
1226: movb %ch,%bl
1227: xorb (%ebx,%esi),%ah
1228: rol $16,%ecx
1229: rol $16,%eax
1230: xor %eax,%edx /edx = new r1
1231: /encm a,d,c,-6
1232: xor -6144(%edi),%eax /eax = new r0 bytes
1233: xor %edx,%ecx /set up edx for later
1234: movb %al,%bl /multiply 4 bytes by c0
1235: xorb (%ebx,%esi),%dl / and xor to ecx
1236: movb %ah,%bl / ecx will be new r2
1237: xorb (%ebx,%esi),%dh
1238: rol $16,%eax
1239: rol $16,%edx
1240: movb %al,%bl
1241: xorb (%ebx,%esi),%dl
1242: movb %ah,%bl
1243: xorb (%ebx,%esi),%dh
1244: rol $16,%eax
1245: rol $16,%edx
1246: xor %edx,%ecx /edx = new r1
1247: /encm d,c,a,-5
1248: xor -5120(%edi),%edx /eax = new r0 bytes
1249: xor %ecx,%eax /set up edx for later
1250: movb %dl,%bl /multiply 4 bytes by c0
1251: xorb (%ebx,%esi),%cl / and xor to ecx
1252: movb %dh,%bl / ecx will be new r2
1253: xorb (%ebx,%esi),%ch
1254: rol $16,%edx
1255: rol $16,%ecx
1256: movb %dl,%bl
1257: xorb (%ebx,%esi),%cl
1258: movb %dh,%bl
1259: xorb (%ebx,%esi),%ch
1260: rol $16,%edx
1261: rol $16,%ecx
1262: xor %ecx,%eax /edx = new r1
1263: /encm c,a,d,-4
1264: xor -4096(%edi),%ecx /eax = new r0 bytes
1265: xor %eax,%edx /set up edx for later
1266: movb %cl,%bl /multiply 4 bytes by c0
1267: xorb (%ebx,%esi),%al / and xor to ecx
1268: movb %ch,%bl / ecx will be new r2
1269: xorb (%ebx,%esi),%ah
1270: rol $16,%ecx
1271: rol $16,%eax
1272: movb %cl,%bl
1273: xorb (%ebx,%esi),%al
1274: movb %ch,%bl
1275: xorb (%ebx,%esi),%ah
1276: rol $16,%ecx
1277: rol $16,%eax
1278: xor %eax,%edx /edx = new r1
1279: /encm a,d,c,-3
1280: xor -3072(%edi),%eax /eax = new r0 bytes
1281: xor %edx,%ecx /set up edx for later
1282: movb %al,%bl /multiply 4 bytes by c0
1283: xorb (%ebx,%esi),%dl / and xor to ecx
1284: movb %ah,%bl / ecx will be new r2
1285: xorb (%ebx,%esi),%dh
1286: rol $16,%eax
1287: rol $16,%edx
1288: movb %al,%bl
1289: xorb (%ebx,%esi),%dl
1290: movb %ah,%bl
1291: xorb (%ebx,%esi),%dh
1292: rol $16,%eax
1293: rol $16,%edx
1294: xor %edx,%ecx /edx = new r1
1295: xor -2048(%edi),%edx /check encoded data
1296: xor -1024(%edi),%ecx
1297: xor (%edi),%eax
1298: add $4,%edi /adv 4 columns
1299: or %ecx,%eax /br if error
1300: or %edx,%eax
1301: jnz chk3
1302: decw -4(%ebp) /loop till done
1303: jnz chk0
1304: chk3:
1305: pop %esi /exit
1306: pop %edi
1307: pop %ebx
1308: leave
1309: ret
1310: /********************************************************/
1311: / mpy eax = ch*cl */
1312: /********************************************************/
1313: _mpy:
1314: movb $0,%al
1315: orb %cl,%cl /return if 0
1316: je mpy0
1317: orb %ch,%ch
1318: je mpy0
1319: /
1320: / al=log[ch]+log[cl]
1321: /
1322: xor %ebx,%ebx
1323: movb %ch,%bl
1324: movb xl_log2(%ebx),%al
1325:
1326: movb %cl,%bl
1327: /
1328: / al = sum modulo 255
1329: /
1330: addb xl_log2(%ebx),%al
1331: adcb $1,%al
1332: adcb $255,%al
1333:
1334: mov $xl_alg2,%ebx
1335: xlat
1336: mpy0:
1337: ret
1338:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.