ASMB,R,L,C * NAME: LOCK. * SOURCE: 92070-18063 * RELOC: 92070-16063 * PGMR: G.A.A. * MOD: G.L.M * * *************************************************************** * * (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. * * *************************************************************** * * NAM LOCK.,7 92070-1X063 REV.1941 790713 * * * THIS ROUTINE OBTAINS A LOCK AND RELEASES IT ON THE * GIVEN DISC * ENT LOCK. EXT CLD.R,.P1,.P2,.R1,MSS.,DS.DF,DS.F1,.ENTR * * DSID NOP DSID= +CRN, -LU OF DISC TO LOCK RQ NOP RQ = 3 TO LOCK, 5 TO UNLOCK LOCK. NOP * JSB .ENTR DEF DSID * * SET UP CLD.R FOR CALL TO D.RTR * 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 .R1 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