Google
 

Trailing-Edge - PDP-10 Archives - BB-H138F-BM_1988 - 7-sources/rmsres.b36
There are 3 other files named rmsres.b36 in the archive. Click here to see a list.
!
!	COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1986.
!	ALL RIGHTS RESERVED.
!
!	THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY  BE  USED  AND
!	COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH
!	THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.   THIS  SOFTWARE  OR
!	ANY  OTHER  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE
!	AVAILABLE TO ANY OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE
!	SOFTWARE IS HEREBY TRANSFERRED.
!
!	THE INFORMATION IN THIS SOFTWARE IS  SUBJECT  TO  CHANGE  WITHOUT
!	NOTICE  AND  SHOULD  NOT  BE CONSTRUED AS A COMMITMENT BY DIGITAL
!	EQUIPMENT CORPORATION.
!
!	DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF
!	ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
!
MODULE RESET=
BEGIN
!
! Temp RESET code
!
REQUIRE 'RMSREQ';

GLOBAL ROUTINE R$Reset ( P_Fab, Err ) = ! Temp routine
BEGIN
BIND Fab=.P_Fab: $Fab_Decl;
BIND Fst=.Fab[Fab$a_Ifi]: $Rms_Fst;

IF .Fst[Fst$v_New_File]
THEN
    BEGIN
    $Rms_Close( Fab=Fab );
    $Rms_Erase( Fab=Fab );
    END
ELSE
    $Rms_Close( Fab=Fab );

END;
END ELUDOM