Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93g-bb - infany.f07
There are 10 other files named infany.f07 in the archive. Click here to see a list.
;******************** START OF DBMS10-V5A EDIT 612 *******************
;	     PART 1 OF 3 (612.FIX + 612.F02 + DBINF1.612)
.EDIT 612
.NAME WTK
.DATE 28-SEP-83
.MODULE DBGATE
OTS%INF==1B0			;[612] 'This is DBINFO' flag
OTS.FLG==145			;[612] unused OTS.CNT(X)
.INSERT OTSCAL+4,AFTER,<MOVEI X,XSTAT>
	HRLZI	R1,(OTS%INF)	;[612] flag that this is DBINFO
	IORM	R1,OTS.FLG(X)	;[612]
.ENDI
.ENDE
;***************************** CAUTION *******************************
;
;		TO AVOID LOSING ANY PREVIOUS PATCHES  BE
;		SURE TO USE THE LATEST PATCHED REL FILES
;		       AS A BASE FOR THIS EDIT.
;
;	    THIS PATCH AFFECTS THE FOLLOWING DBMS COMPONENTS:
;
;			COBOL-68 (LIBOL.REL,LIBO12.EXE)
;			COBOL-74 (C74LIB.REL,C74O12.EXE)
;			FORTRAN  (FORLIB.REL,DBMSF.EXE)
;				DBMEND
;				DBINFO
;
;
;	------------------ TO INSTALL THIS EDIT ------------------
;
;	.RUN MAKLIB
;	*INFANY.REL=INFANY.REL,612.FIX/F
;	*DBSANY.REL=DBSANY.REL,612.F02/F
;	*^C
;	.SUB DBMS10/TAG:DBALL	;DBMS10.CTL FROM DISTRIBUTION TAPE
;
;************************** END OF EDIT 612 **************************
;		     PART 1 OF 2 (612.FIX + 612.F02)