ASMB,R,L,C
*     NAME:   LOCK. 
*     SOURCE: 92064-18155 
*     RELOC:  92064-16055 
*     PGMR:   G.A.A.
*     MOD:    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 LOCK.,7  92064-16055  REV.1650  760826
* 
* 
*     THIS ROUTINE OBTAINS A LOCK AND RELEASES IT ON THE
*     GIVEN DISC
* 
      ENT LOCK. 
      EXT CLD.R,.P1,.P2,MSS.,DS.DF,DS.F1,.ENTR
* 
* 
DSID  NOP 
RQ    NOP 
LOCK. NOP 
* 
      JSB .ENTR 
      DEF DSID
* 
*   SET UP CLD.R FOR CALL TO D.RFP
* 
      LDA RQ,I      FETCH THE REQUEST CODE
      STA .P1       SET IT FOR CALL 
      LDA DSID,I
      STA .P2       SET DISK ID 
      JSB CLD.R 
* 
      LDA B,I       ANY ERRORS? 
      SZA,RSS       WELL? 
      JMP OK        NOPE --GO CLEAR A FLAG AND GET OUT
* 
      STA .P1       SAVE ERROR CODE 
      JSB MSS.      ISSUE ERROR 
      DEF MRTN
      DEF .P1              CODE 
MRTN  CCE           SET UP A SPL FRETURN
      JMP LOCK.,I 
* 
* 
OK    CLA,CLE       CLEAR 
      STA DS.DF     CORE FLAGS--FORCE NEW READ
      STA DS.F1 
      JMP LOCK.,I   E=0=GOOD RETURN 
* 
B     EQU 1 
      END 
                    