**********************************************************************
* Name:		LBCRC
* Stack:	( lib --> lib' )
*		( bak --> bak' )
* Desc:		Recalculate library checksum
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME LBCRC
::
  CK1&Dispatch
  library
  CODE
lbcrc	GOSBVL	=SAVPTR
	C=DAT1	A
	D0=C			->lib
	D0=D0+	5
	A=DAT0	A		libsize
	A=A-CON	A,4		-crc size
	GOSBVL	=DoCRC
	DAT0=A	4		store new crc
	GOVLNG	=GETPTRLOOP
  ENDCODE
  backup
  CODE
	GOTO	lbcrc
  ENDCODE
;

**********************************************************************