Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - forhst.c11
There are 2 other files named forhst.c11 in the archive. Click here to see a list.
 REP 3/1	;11C1
		TV	FORHST	Fortran object time system, 10(4210)
 WIT
		TV	FORHST	Fortran object time system, 10(4216)
 INS 2850/1	;11C2
	;.BEGINR REVISION HISTORY
	;.COMPONENT FOROTS
	;.VERSION 7
	;.AUTOPATCH 6
 DEL 3477/1	;11C3
	;.ENDR REVISION HISTORY
 REP 4112/1	;11C4
		
	***** End V10 Development *****
 WIT

	***** End V10 Development *****

	;.VERSION 10
	;.AUTOPATCH 11
	;.EDIT	4211	DEALLOCATE UNUSED CHANNELS
	;;	Deallocate channels allocated by accident by TOPS-10 on FILOPs
	;;	which fail, thus preventing undeserved "out of channels" errors
	;;	for programs which open a few files many times.
	;		JLC,2-May-85,SPR:NONE
	;		A:SRC FORHST.MAC
	;.EDIT	4212	DATE 75 BUG
	;;	Fix yet another DATE75 bug, this one due to the fact that TOPS-10
	;;	deposits the rename error code in the right half of .RBEXT, where
	;;	the low-order 15 bits of the creation date reside. This happened
	;;	only on a rename failure after DIALOG.
	;		JLC,2-May-85,SPR:NONE
	;		A:SRC FOROPN.MAC,FORMSG.MAC
	;.EDIT	4213	ADD CHECK FOR BLOCKSIZE
	;;	Make sure BLOCKSIZE is an integral multiple of RECL for fixed-length 
	;;	records on industry magtape; issue fatal error 	if not.
	;		JLC,9-May-85,SPR:NONE
	;		A:SRC FOROPN.MAC
	;;.EDIT	4214	RESERVED FOR AUTOPATCH
	;;.ENDA	9-MAY-85
	;.EDIT	4215	FIX FLAG FOR UNFORMATTED CHARACTER IO
	;;	Don't clear RECLEN flag for unformatted character data input. This
	;;	fixes an undeserved "?Bad format binary file" error when FORIO
	;;	looks for a nonexistent LSCW 3.
	;		TGS, 4-Jun-85,SPR:NONE
	;		A:SRC FORIO.MAC
	;;.EDIT	4216	RESERVED FOR AUTOPATCH
	;;.ENDA		24-JUN-85
	;.ENDA
	;.ENDV
	;.ENDR REVISION HISTORY
 SUM 216499