PDP-10 Archive: autopatch/forhst.c17 from bb-kl11f-bm_tops20_v7_0_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/forhst.c17

There are 10 other files named forhst.c17 in the archive. Click here to see a list.

 REP 3/1	;17C1
		TV	FORHST	Fortran object time system, 11(5026)
 WIT
		TV	FORHST	Fortran object time system, 11(5035)
 DEL 3448/1	;17C2
	;.ENDR REVISION HISTORY
 DEL 4244/1	;17C3
	;.ENDR REVISION HISTORY
 INS 4335/1	;17C4
	***** End V11 Development *****

	;.BEGINR REVISION HISTORY
	;.COMPONENT FOROTS
	;.VERSION 11
	;.AUTOPATCH 16
	;.EDIT	5030	ERROR MESSAGE TYPEOUT ON KS PROCESSORS
	;;		The SIXBIT error message typeout routine (SIXPTR)
	;;		can't do OWGBPs' on a KS processor.
	;		MRB,21-JAN-87,SPR:NONE
	;		A:SRC FORHST.MAC,FORERR.MAC
	;		A:ENC FORLIB.REL,FORO11.EXE
	;.ENDA
	;.AUTOPATCH 17
	;.EDIT	5031	VERY LARGE RECORD NUMBERS CORRUPT RANDOM FILES
	;;		When using random files and the page number exceeds
	;;		512*512 pages, give an error message.
	;		MRB,9-MAR-87,SPR:20-21538
	;		A:SRC FORHST.MAC,FORIO.MAC
	;		A:ENC FORLIB.REL,FORO11.EXE
	;
	;.EDIT	5032	AVOID POSSIBLE SORT/RMS COLLISION
	;;		When looking for a first free section for SORT to
	;;		live in, start looking from section 2 upwards (previously
	;;		we started with section 1).  This avoids a possible
	;;		invocation collision if a section 0 program first calls
	;;		SORT in section 1 and then calls RMS, which maps a section
	;;		0 program together with section 1, thus destroying SORT
	;;		and causing an illegal instruction on a subsequent SORT
	;;		call.  Note that this is not a problem if the program
	;;		has been compiled /EXTEND.  To revert to the old SORT
	;;		placement, change the line at SORT5A: in FORSRT back to
	;;		SETZ P3,.
	;		TGS,10-MAR-87,SPR:NONE
	;		A:SRC FORSRT.MAC
	;.EDIT	5033	CORRECTION TO EDIT 5031 FOR RMS FILES
	;		MRB,18-MAR-87,SPR:NONE
	;		A:SRC FORIO.MAC
	;.EDIT	5034	IFS FUNCT. CLEARS DEVICE ARGUMENT
	;;		At INISF1, the BLT shouldn't clear I.DEV.
	;		JB,16-APR-87,SPR:10-35746
	;		A:SRC FOROTS.MAC
	;.EDIT	5035	Change ENTRY to INTERNAL so won't get
	;;		multiply defined symbols at link time
	;		RLF,11-AUG-87,SPR:NONE
	;		A:SRC MTHDUM.MAC,FORHST.MAC
	;.ENDA
	;.ENDV 
	;.ENDR REVISION HISTORY 

 SUM 38003