ASMB,R,L,C   ** RT TABLE AREA 2 MODULE ** 
*     DATE:   7/26/77, UPDATED 3/29/79-AVD
*     NAME:   $$TB2 
*     SOURCE: 92067-18116 
*     RELOC:  PART OF 92067-16103 
*     PGMR:   EJW, AVD
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 $$TB2,13 92067-16103 REV.2001 791016
* 
      ENT $MATA,$MCHN,$MBGP,$MRTP 
      ENT $DLTH,$DVPT,$TIME,$BATM 
      ENT $DLP,$PLP,$SSCT,$STRK 
      ENT $ENDS,$MPFT,$BGFR,$RTFR,$IDEX 
      ENT $MRMP,$MPS2,$EMRP,$MPSA 
      ENT $SDA,$SDT2,$CMST,$COML
      ENT $CFR,$MNP,$DVMP 
      ENT $RLB,$RLN,$SBTB,$OTAT,$OPRI 
      ENT $SPCR 
      ENT $ELTB 
      ENT $PNTI,$MAXI 
      ENT $SALI,$SRTI,$CES,$LMES,$SMEM
* 
      EXT $PNTR,$MAXE 
      EXT $SALC,$SRTN 
* 
* 
$MATA NOP 
$MCHN NOP 
$MBGP DEC 14
$MRTP DEC 5 
$DLTH DEC 1 
$DVPT NOP 
$TIME OCT 16000     JUN 1, 1979  8:00 AM
      OCT 177650
      OCT 6100      (YEAR-1970)*365 + (JULIAN_DAY - 1)
$BATM NOP           1.
      NOP           2.
$DLP  NOP 
$PLP  NOP 
$ENDS NOP 
$OTAT NOP 
$OPRI NOP 
$MPFT NOP 
$BGFR NOP 
$RTFR NOP 
$IDEX NOP 
$MRMP NOP 
$MPSA NOP 
$MPS2 NOP 
$SDA  NOP 
$SDT2 NOP 
$CMST NOP 
$STRK NOP 
$SSCT NOP 
$COML NOP 
$CFR  NOP 
$MNP  NOP 
$DVMP NOP 
$EMRP NOP 
$RLB  NOP 
$RLN  NOP 
$SBTB NOP           1.
      NOP           2.
      NOP           3.
      NOP           4.
      NOP           5.
      NOP           6.
* 
*  SPOOL DISC CRN 
* 
$SPCR NOP 
* 
      SKP 
**********************************************************************
* 
*                   EQUIPMENT LOCK TABLE
* 
*  THE EQUIPMENT LOCKING TABLE IS USED TO LOCK AN EQUIPMENT 
*  TO A PROGRAM AND TO HANG A LINKED LIST OF REQUESTS WAITING 
*  EITHER FOR USE OF THAT EQUIPMENT, OR TO LOCK THAT EQUIPMENT
*  TO THEMSELVES. 
*  ENTRY POINT $ELTB CONTAINS A POINTER TO THE TABLE (TO THE TABLE
*  HEADER, IN FACT).
*  THE TABLE HEADER, NAMED "HEADR" BELOW, IS ONE WORD LONG, AND 
*  CONTAINS THE TABLE LENGTH (# OF 3-WORD ENTRIES IN TABLE) IN ITS
*  LOWER BITS, AND THE UPPERMOST BIT IS SET IF THE TABLE HAS CUR- 
*  RENTLY AT LEAST ONE NONBLANK ENTRY (I. E., IT IS THE TABLE_
*  NOT_EMPTY BIT).
*  THERE FOLLOWS THE FIRST WORDS OF ALL ENTRIES, FOLLOWED BY THE
*  SECOND WORDS, AND THEN THE THIRD WORDS.
*  THE FIRST WORD OF EACH ENTRY, WHEN NON-ZERO, IS AN EQUIPMENT #,
*  LOCKED TO THE PROGRAM WHOSE ID SEGMENT ADDRESS IS IN WORD 2 OF 
*  THAT ENTRY.  BIT 15 OF THIS WORD 2 IS SET IF THE EQT. LOCKING
*  REQUEST SPECIFIED THAT THE EQUIPMENT SHOULD NOT BE RELEASED IF 
*  THE PROGRAM TERMINATED PREMATURELY (I. E., IT IS THE LOCK_ON_
*  ABORT BIT).
*  WORD 3 OF EACH ENTRY, WHEN NON-ZERO, POINTS TO A LINKED LIST 
*  OF $XSIO REQUESTS (FROM THE OPERATING SYSTEM) FOR THAT EQUIP-
*  MENT ISSUED SINCE THE LATTER WAS LOCKED, TO BE REHUNG ON THE 
*  EQT FOR THAT EQUIPMENT WHEN THE EQUIPMENT FINALLY IS UNLOCKED. 
* 
*  +--------------------------------+ 
*  !             $ELTB              !  ---- 
*  +---------------------------------    /
*                                       / 
*                                      /
*                                     / 
*                                    /
*                                   / 
*                                  /
*                                 / 
*                                /
*                               / 
*                              /    +--------------------------------+
*                      HEADR   -->  !N!            TBLEN             !
*                                   +--------------------------------+
*                                   !             EQT.  #            !
*                                   !--------------------------------!
*                                   !             EQT.  #            !
*                                   +--------------------------------+
*                                   !                .               !
*                                   !                .               !
*  N:  TABLE_NOT_EMPTY BIT          !                .               !
*                                   +--------------------------------+
*  L:  LOCK_ON_ABORT BIT            !L!     ID SEGMENT ADDRESS       !
*                                   !--------------------------------!
*                                   !L!     ID SEGMENT ADDRESS       !
*                                   +--------------------------------+
*                                   !                .               !
*                                   !                .               !
*                                   !                .               !
*                                   +--------------------------------+
*                                   !           LIST POINTER         !
*                                   !--------------------------------!
*                                   !           LIST POINTER         !
*                                   +--------------------------------+
*                                   !                .               !
*                                   !                .               !
*                                   !                .               !
*                                   +--------------------------------+
* 
* 
TBLEN EQU 2          TABLE_LENGTH_DEFINING EQUATE 
$ELTB DEF *+1        TABLE NAME AND POINTER TO TABLE HEADER.
HEADR ABS TBLEN      TABLE HEADER.
      BSS TBLEN+TBLEN+TBLEN THREE WORDS PER ENTRY.
* 
* 
* 
*  FOR USE BY 2001 WHZAT (92067-16501)
* 
$PNTI DEF $PNTR+0     INDIR PNTR TO FREE SAM LIST 
$MAXI DEF $MAXE+0     PNTR TO MAX NO. OF WDS OF SAM EVER
$SALI DEF $SALC+0   PNTR TO ENTRY $SALC FOR ACCTS 
$SRTI DEF $SRTN+0   PNTR TO ENTRY $SRTN FOR ACCTS 
$SMEM BSS 2 
$LMES DEC -16       PROMPT STRING FOR SESSION 
      ASC 10,PLEASE LOG-ON: _ 
* 
$CES  NOP           FMP MASTER SECURITY WITH MASK 
$ENBL NOP           $CES+1=FMP MASTER SECUTIRY WITHOUT MASK (NO ENT)
* 
* 
* 
      END $MATA 
                                                                                                                                                                                                                      