Coherent4.2.10/conf/ft/src/eccas.s

/ eccas.s
		.unixorder
rb:					/* request buffer structure	*/
rbnxt:		.long	0			/* ptr to next packet	*/
rbfun:		.byte	0			/* function		*/
rbsts:		.byte	0			/* status		*/
rbsgn:		.value	0			/* segment #		*/
rbadr:		.long	0			/* addr of buffer	*/
rbmap:		.long	0			/* bad sector map	*/
rbhed:		.byte	0			/* fdc head		*/
rbcyl:		.byte	0			/* fdc cylinder		*/
rbsct:		.byte	0			/* base fdc sector	*/
rbtrk:		.byte	0			/* tape track		*/
rbtps:		.byte	0			/*	segment		*/
rbidc:		.byte	0			/* read id cylinder	*/
rbids:		.byte	0			/*	   sct		*/
rbnbk:		.byte	0			/* # blocks		*/
rberc:		.byte	0			/* error count		*/
rbers:		.byte	0,0,0			/* error sectors	*/
rbtbl:		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
						/* parsed segment params*/
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
/rb	ends
/********************************************************/
/	data section					*/
/********************************************************/
		.data
/	tables must be on page boundary
/	which is why they are in _data
		.globl	eccT0
		.globl	eccT1
		.globl	eccT2
		.globl	eccT3
		.globl	eccT4
eccT0:	.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/ecc tables
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/2
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/3
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/4
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/5
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/6
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/7
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/8
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/9
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/10
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/11
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/12
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/13
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/14
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/15
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/16
eccT1:	.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/ecc tables
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/2
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/3
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/4
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/5
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/6
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/7
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/8
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/9
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/10
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/11
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/12
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/13
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/14
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/15
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/16
eccT2:	.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/ecc tables
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/2
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/3
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/4
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/5
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/6
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/7
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/8
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/9
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/10
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/11
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/12
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/13
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/14
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/15
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/16
eccT3:	.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/ecc tables
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/2
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/3
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/4
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/5
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/6
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/7
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/8
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/9
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/10
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/11
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/12
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/13
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/14
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/15
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/16
eccT4:	.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/ecc tables
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/2
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/3
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/4
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/5
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/6
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/7
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/8
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/9
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/10
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/11
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/12
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/13
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/14
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/15
		.byte	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	/16
encj:		.long	0
chkj:		.long	0

/		.globl	encodes
/		.globl	checks

encodes:	.byte	0
checks:	.byte	0

/		.globl	ecc_tbl
/		.globl	ecc_bst
/		.globl	ecc_sct
/		.globl	ecc_cnt
/		.globl	ecc_ofs

ecc_tbl:		.long	0		/* ptr to rb.tbl		*/
ecc_bst:		.byte	0		/* base sector for segment	*/
ecc_sct:		.byte	0		/* sector # for next chunk	*/
ecc_cnt:		.long	0		/* # bytes to xfer next chunk	*/
ecc_ofs:		.long	0		/* offset for next chunk	*/

prb:		.long	0		/* pointer to rb		*/
ecc_nbk:		.byte	0		/* # blocks / segment		*/
					/* rb.tbl format:		*/
					/* bits 15-10 = dma count	*/
					/* bits  9-5  = dma offset >> 5	*/
					/* bits  4-0  = sector		*/

		.bss
/********************************************************/
/	code section					*/
/********************************************************/
		.text
		.align 4
/********************************************************/
/	ecc_move	(src, dest, cnt)			*/
/********************************************************/
		.globl	ecc_move
ecc_move:
		push	%ebp		/* set up
		mov	%esp,%ebp
		push	%es
		push	%edi
		push	%esi
		push	%ds
		pop	%es
		mov	8(%ebp),%esi
		mov	12(%ebp),%edi
		mov	16(%ebp),%ecx
		cld
		jcxz	ecc_mov0		/* br if no data
		shr	$2,%ecx		/* move longs
		repz
		movsl
		mov	16(%ebp),%ecx	/* move bytes (if any)
		and	$3,%ecx
		rep
		movsb
ecc_mov0:
		pop	%esi		/* exit
		pop	%edi
		pop	%es
		pop	%ebp
		ret

/********************************************************/
/	initEcc	initialize table			*/
/********************************************************/
		.globl	initEcc
initEcc:
		push	%ebx
		push	%esi
/
		movl	$enc2,%eax		/initialize encodes
		subl	$enc1,%eax
		movb	%al,encodes
		movl	$chk2,%eax		/initialize checks
		subl	$chk1,%eax
		movb	%al,checks
/
		mov	$eccT1,%ebx		/init alog2 table
		movb	$01,%al
tbli0:
		movb	%al,(%ebx)
		inc	%ebx
		addb	%al,%al
		jnc	tbli1
		xorb	$0x87,%al
tbli1:
		cmpb	$01,%al
		jne	tbli0
		movb	%al,(%ebx)
/
		mov	$eccT1,%esi
		movb	$0x0ff,eccT0
		xor	%eax,%eax
		xor	%ebx,%ebx
tbli2:
		movb	(%esi),%bl
		movb	%al,eccT0(%ebx)
		inc	%esi
		inc	%eax
		cmpb	$255,%al
		jne	tbli2
/
		movl	$eccT2,%esi		/init mpy by 02 table
		mov	$0x00200,%ecx
tbli3:
		call	_mpy
		movb	%al,(%esi)
		inc	%esi
		incb	%cl
		jne	tbli3
/
		mov	$eccT3,%esi		/init mpy by c0 table
		mov	$0x0c000,%ecx
tbli4:		call	_mpy
		movb	%al,(%esi)
		inc	%esi
		incb	%cl
		jne	tbli4
/
		movl	$eccT4,%esi		/init mpy by c3 table
		mov	$0x0c300,%ecx
tbli5:
		call	_mpy
		movb	%al,(%esi)
		inc	%esi
		incb	%cl
		jne	tbli5
		pop	%esi
		pop	%ebx
		ret

/encm		macro	a,c,d,o
/		xor	o*1024(%edi),%e&a&x	;eax = new r0 bytes
/		xor	%e&c&x,%e&d&x		;set up edx for later
/		movb	%&a&l,%bl 		;multiply 4 bytes by c0
/		xorb	(%ebp,%ebx),%&c&l		; and xor to ecx
/		movb	%&a&h,%bl 		; ecx will be new r2
/		xorb	(%ebp,%ebx),%&c&h
/		rol	$16,%e&a&x
/		rol	$16,%e&c&x
/		movb	%&a&l,%bl
/		xorb	(%ebp,%ebx),%&c&l
/		movb	%&a&h,%bl
/		xorb	(%ebp,%ebx),%&c&h
/		rol	$16,%e&a&x
/		rol	$16,%e&c&x
/		xor	%e&c&x,%e&d&x		;edx = new r1
/		endm

/********************************************************/
/	encodeEcc(bfr, nblks)   3/32  1024 byte blocks	*/
/********************************************************/
/
		.globl	encodeEcc
encodeEcc:
		enter	$0, $4		/ loop count is a local variable
		push	%ebx
		push	%edi
		push	%esi
		mov	8(%ebp),%edi	/edi = bfr
		mov	12(%ebp),%ebx	/ebx = nblks
		mov	%ebx,%eax 	/adjust edi
		dec	%eax
		shl	$10,%eax
		add	%eax,%edi
		mov	$32,%eax		/set encj according to # blocks
		subb	%bl,%al
		mulb	encodes
		add	$enc1,%eax
		mov	%eax,encj
		mov	$256,-4(%ebp) 	/set up for encode loop
enc0:
		mov	$eccT3,%esi
		xor	%ebx,%ebx 	/edx ends up = r2
		xor	%edx,%edx 	/edx ends up = r2
		xor	%ecx,%ecx 	/ecx ends up = r1
		xor	%eax,%eax 	/eax ends up = r0
		jmp	*encj
/		.even
		.align	2
/
/		encode data
/
enc1:
		/encm	c,a,d,-31
		xor	-31744(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
enc2:
		/encm	a,d,c,-30
		xor	-30720(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-29
		xor	-29696(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-28
		xor	-28672(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-27
		xor	-27648(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-26
		xor	-26624(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-25
		xor	-25600(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-24
		xor	-24576(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-23
		xor	-23552(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-22
		xor	-22528(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-21
		xor	-21504(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-20
		xor	-20480(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-19
		xor	-19456(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-18
		xor	-18432(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-17
		xor	-17408(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-16
		xor	-16384(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-15
		xor	-15360(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-14
		xor	-14336(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-13
		xor	-13312(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-12
		xor	-12288(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-11
		xor	-11264(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-10
		xor	-10240(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-9
		xor	-9216(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-8
		xor	-8192(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-7
		xor	-7168(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-6
		xor	-6144(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-5
		xor	-5120(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-4
		xor	-4096(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-3
		xor	-3072(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		mov	%edx,-2048(%edi)	/store remainder bytes
		mov	%ecx,-1024(%edi)
		mov	%eax,(%edi)
		add	$4,%edi
		decw	-4(%ebp)		/loop till done
		jnz	enc0
		pop	%esi			/exit
		pop	%edi
		pop	%ebx
		leave
		ret

/********************************************************/
/	checkEcc(bfr, nblks)   3/32  1024 byte blocks	*/
/	out:	eax = 0 if ok				*/
/********************************************************/
		.globl	checkEcc
checkEcc:
		enter	$0, $4		/ loop count is a local variable
		push	%ebx
		push	%edi
		push	%esi
		mov	8(%ebp),%edi	/edi = adr
		mov	12(%ebp),%ebx	/ebx = # blocks
		mov	%ebx,%eax 	/adjust edi
		dec	%eax
		shl	$10,%eax
		add	%eax,%edi
		mov	$32,%eax		/set chkj according to # blocks
		subb	%bl,%al
		mulb	checks
		add	$chk1,%eax
		mov	%eax,chkj
		mov	$256,-4(%ebp) 	/set up for check loop
chk0:
		mov	$eccT3,%esi
		xor	%ebx,%ebx
		xor	%edx,%edx 	/edx ends up = r2
		xor	%ecx,%ecx 	/ecx ends up = r1
		xor	%eax,%eax 	/eax ends up = r0
		jmp	*chkj
/		.even
		.align	2
/
/		encode data
/
chk1:
		/encm	c,a,d,-31
		xor	-31744(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
chk2:
		/encm	a,d,c,-30
		xor	-30720(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-29
		xor	-29696(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-28
		xor	-28672(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-27
		xor	-27648(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-26
		xor	-26624(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-25
		xor	-25600(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-24
		xor	-24576(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-23
		xor	-23552(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-22
		xor	-22528(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-21
		xor	-21504(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-20
		xor	-20480(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-19
		xor	-19456(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-18
		xor	-18432(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-17
		xor	-17408(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-16
		xor	-16384(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-15
		xor	-15360(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-14
		xor	-14336(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-13
		xor	-13312(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-12
		xor	-12288(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-11
		xor	-11264(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-10
		xor	-10240(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-9
		xor	-9216(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-8
		xor	-8192(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-7
		xor	-7168(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-6
		xor	-6144(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		/encm	d,c,a,-5
		xor	-5120(%edi),%edx	/eax = new r0 bytes
		xor	%ecx,%eax		/set up edx for later
		movb	%dl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%cl		/ and xor to ecx
		movb	%dh,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		movb	%dl,%bl
		xorb	(%ebx,%esi),%cl
		movb	%dh,%bl
		xorb	(%ebx,%esi),%ch
		rol	$16,%edx
		rol	$16,%ecx
		xor	%ecx,%eax		/edx = new r1
		/encm	c,a,d,-4
		xor	-4096(%edi),%ecx	/eax = new r0 bytes
		xor	%eax,%edx		/set up edx for later
		movb	%cl,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%al		/ and xor to ecx
		movb	%ch,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		movb	%cl,%bl
		xorb	(%ebx,%esi),%al
		movb	%ch,%bl
		xorb	(%ebx,%esi),%ah
		rol	$16,%ecx
		rol	$16,%eax
		xor	%eax,%edx		/edx = new r1
		/encm	a,d,c,-3
		xor	-3072(%edi),%eax	/eax = new r0 bytes
		xor	%edx,%ecx		/set up edx for later
		movb	%al,%bl 		/multiply 4 bytes by c0
		xorb	(%ebx,%esi),%dl		/ and xor to ecx
		movb	%ah,%bl 		/ ecx will be new r2
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		movb	%al,%bl
		xorb	(%ebx,%esi),%dl
		movb	%ah,%bl
		xorb	(%ebx,%esi),%dh
		rol	$16,%eax
		rol	$16,%edx
		xor	%edx,%ecx		/edx = new r1
		xor	-2048(%edi),%edx	/check encoded data
		xor	-1024(%edi),%ecx
		xor	(%edi),%eax
		add	$4,%edi			/adv 4 columns
		or	%ecx,%eax 		/br if error
		or	%edx,%eax
		jnz	chk3
		decw	-4(%ebp)		/loop till done
		jnz	chk0
chk3:
		pop	%esi			/exit
		pop	%edi
		pop	%ebx
		leave
		ret
/********************************************************/
/	mpy	eax = ch*cl				*/
/********************************************************/
_mpy:
		movb	$0,%al
		orb	%cl,%cl		/return if 0
		je	mpy0
		orb	%ch,%ch
		je	mpy0
/
/	al=log[ch]+log[cl]
/
		xor	%ebx,%ebx
		movb	%ch,%bl
		movb	eccT0(%ebx),%al

		movb	%cl,%bl
/
/	al = sum modulo 255
/
		addb	eccT0(%ebx),%al
		adcb	$1,%al
		adcb	$255,%al

		mov	$eccT1,%ebx
		xlat
mpy0:
		ret