Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93i-bb - 7,6/ap017/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(5030)
 WIT
		TV	FORHST	Fortran object time system, 11(5035)
 REP 4344/1	;17C2
	;.ENDA
	;.ENDV
	;.ENDR REVISION HISTORY
 WIT
	;		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 243877