Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-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)