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