From gjc@mitech.UUCP Tue Oct 31 13:40:18 1989
Date: Tue, 31 Oct 89 10:46:53 EDT
From: <gjc@mitech.com>
To: root@bu-it.bu.edu
Subject: RE: just found this...
X-Vms-Mail-To: UUCP%"root@bu-it.bu.edu"

Oops. I guess that was pretty nasty to have UNDELETE.FOR without
the needed CHECKSUM routine. I will send the unfortunate person
mail directly. Perhaps they simply did not see the file named CHECKSUM.MAR,
which is in vax macro. Here it is if I left it out of its proper place
in the ~ftp directory.

FILENAME: CHECKSUM.MAR

	.title	CHECKSUM - Compute checksum: Call CHECKSUM(record)
;
	.psect	CHECKSUM$CODE,nowrt,exe,quad
;
	.ENTRY	CHECKSUM, ^M<R2>
	CLRL	R1			; Accumulate checksum in R1.
	MOVL	4(AP), R2		; Header address into R2.
	MOVZBL	#255, R0		; Loop counter into R0.
;
10$:	ADDW2	(R2)+, R1		; Compute checksum.
	SOBGTR	R0, 10$
;
	MOVW	R1, (R2)		; Store computed checksum.
	RET
	.END