'HEAD'  LOCATION COUNTER CONTROL
C     EDIT DATE   10DEC78  19:03
C     SOURCE FILE LCCONTFTM.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     16
      'OUTFILE' RLCIFTM.FR
C     SUBROUTINE RLCI
C
C     RESETS THE LOCATION COUNTER INDEX TO THE NEW VALUE IF
C     THE NEW VALUE AND OLD VALUE ARE NOT THE SAME.
C
      SUBROUTINE RLCI (NEWLCI)
      'INCLUDE' LOGOSAJH.IN,
      'INCLUDE' WFLAGSJHP.IN,
      'INCLUDE' LCFUNCAJH.IN,
      'INCLUDE' LCONSTAJH.IN,
      'INCLUDE' LISTCMAJH.IN,
      INTEGER NEWLCI
      'IF' (NEWLCI .NE. LCI)
         IF (LENTER) ^
            CALL LIST (LMOVEP, 0, 0)
         LCTAB (LCI) = LC
         LCI = NEWLCI
         CALL BLDBLK (LCI, WF10)
         MAXLCV = LCTAB (LCI)
         CALL SETLCI
         'ENDIF'
      RETURN
      END
      'OUTFILE' RBOTHFTM.FR
C     SUBROUTINE RBOTH
C
C     RESET LCI AND LOAD LCI
C
      SUBROUTINE RBOTH (NEWLCI)
      'INCLUDE' LOGOSAJH.IN,
      'INCLUDE' WFLAGSJHP.IN,
      INTEGER NEWLCI
      LODLCI = NEWLCI
      CALL BLDBLK (LODLCI, WF14)
      CALL RLCI (LODLCI)
      RETURN
      END
      'OUTFILE' SETLCIFTM.FR
C     SUBROUTINE SETLCI
C
C     GENERATES LOADER BLOCKS FOR LOCATION COUNTER SWITCH
C
      SUBROUTINE SETLCI
      'INCLUDE' LOGOSAJH.IN,
      'INCLUDE' WFLAGSJHP.IN,
      CALL BLDBLK (MAXLCV, WF2)
      LC = MAXLCV
      LODLCV = LC - LDLCVO
      CALL BLDBLK (LODLCV, WF15)
      RETURN
      END