ASMB,R,L,C,Z
*     NAME:   $TBLCR
*     SOURCE: 92064-18059 
*     RELOC:  92064-16019 
*     PGMR:   G.L.M.
* 
*  ***************************************************************
*  * (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.       *
*  ***************************************************************
* 
* 
      NAM $TBLCR,6  92064-16019  REV.1650  760809 
* 
* 
      IFZ 
      UNL 
      XIF 
      ENT $CDIR,$CRLK,$DIRS 
      EXT $LCTU,$RCTU 
      LST 
* 
* 
*   MODIFY THE FOLLOWING INSTRUCTION IF MORE THAN 2 
*   CARTRIDGE TAPE UNITS ARE TO BE MOUNTED AT ANY ONE TIME. 
* 
* 
* 
#ENT  EQU 0         NUMBER OF ADDITIONAL CTU'S OTHER  
*                                   THAN FIRST 2. 
* 
      IFZ 
      UNL 
      XIF 
$CRLK NOP 
* 
* 
      DEF ENDIT 
$CDIR DEC 4         LU OF LEFT CTU
      DEF $LCTU 
      DEF $LCDT 
      NOP 
      DEC 5         LU,OF RIGHT CTU 
      DEF $RCTU 
      DEF $RCDT 
      REP #ENT+#ENT+#ENT+#ENT+1 
      NOP 
ENDIT EQU * 
      SPC 10
* 
* 
      LST 
*   EACH UNIT OF DIRECTORY SPACE HAS THE FOLLOWING FORMAT 
* 
*     NOP           TELLS WHICH LU IS ASSIGNED THIS DIRECTORY 
*     NOP           VALIDITY WORD FOR THIS DIR
*     DEF *+41      IDENTIFIES THE END OF THE DIRECTORY 
*     BSS 40
* 
* 
      IFZ 
      UNL 
      XIF 
$DIRS DEF ENDIR      IDENTIFIES END OF AVAIL--DIRS
* 
      OCT 4 
      NOP 
      DEF *+41
$LCDT BSS 40
* 
      OCT 5 
      NOP 
      DEF *+41
$RCDT BSS 40
* 
      LST 
* 
* 
* 
* 
* 
* 
********* ADD THE ADDITIONAL 4 WORD ENTRIES HERE ********** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
****************************************************
* 
* 
*     THIS INSTRUCTION MUST FOLLOW THE ABOVE ENTRIES. 
*     CAUTION!  DO NOT MOVE OR MODIFY THIS INSTRUCTION IN ANY WAY.
* 
ENDIR EQU * 
* 
* 
      IFZ 
      UNL 
      XIF 
      ORG $DIRS+1 
      REP #ENT+2
      BSS 43
CKEND EQU * 
      BSS CKEND-ENDIR 
      BSS ENDIR-CKEND 
      LST 
* 
* 
      END 
                      