SPL,L,O,M,C 
!     NAME:   CK.SM 
!     SOURCE: 92064-18092 
!     RELOC:  92064-16071 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME CK.SM(7) " 92064-16071  REV.1650  761024"
! 
! 
CK.SM:SUBROUTINE(BF,TYP)GLOBAL,FEXIT  !CHECKSUM ROUTINE 
! 
!     A CHECKSUM IS DONE ON BUFFER BF FOR 
!     RECORD TYPE  TYP(1=RELOCATABLES, 0=>ABS)
!     FEXIT IF BAD CHECKSUM 
! 
      IF [TT_BF-<8]>377K THEN GO TO RTNF
      DO[CSS_$(@BF+2);CS_$(@BF+1)] !INITIALIZE CHECKSUM 
      IF TYP THEN BFBP_ -1,ELSE[\ !SET OFFSET AND IF ABS
                  BFBP_1;CS_CSS+CS] !ADD WD THREE TO CS 
      CLN_TT     +@BF+BFBP !SET LAST WORD ADDRESS AND 
      IFNOT TYP THEN CSS_$(CLN+1) !IF ABS. SET CHECKSUM 
      FOR BFPT_@BF+3 TO CLN DO[CS_CS+$BFPT] !SUM
      IF CS=CSS THEN RETURN               !CHECK & RETURN 
RTNF:  FRETURN
      END 
      END 
      END$
    