SPL,L,O,M 
!     NAME:   CK.SM 
!     SOURCE: 92070-18054 
!     RELOC:  92070-16054 
!     PGMR:   G.A.A.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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) " 92070-1X054  REV.1941  790712"
! 
! 
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 GOTO RTNF 
      CSS_ $(@BF+2)                              !INITIALIZE CHECKSUM 
      CS_ $(@BF+1)
      IF TYP THEN BFBP_ -1,                      \SET OFFSET AND IF ABS 
      ELSE[                                      \
          BFBP_ 1;                               \ADD WORD
          CS_ CSS+CS]                            !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 AND RETURN
RTNF: FRETURN 
      END 
      END 
      END$
                                        