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