PDP-10 Archive: frs5a.rnd from AP-D480B-SB

Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - frs5a.rnd
There are no other files named frs5a.rnd in the archive.
.LC
.COMMENT VARIABLE FTEN   GENERATES -10 LINES (DEFAULT)
.COMMENT VARIABLE FTTENX GENERATES -20 LINES
.VR FTEN 1 2
.VR FTTENX 2 1
.LM0;.RM70;.F;.J;.FLAG CAP;.SP1;.TS5
.IF FTTENX
<FOROTS-20 -- ^CHANGES FROM ^V5(620) TO ^V5^A(721)
.ELSE FTTENX
<FOROTS-10 -- ^CHANGES FROM ^V5(620) TO ^V5^A(721)
.ENDIF FTTENX
.BR
^OCTOBER 1977
.FG30
^^COPYRIGHT (C) 1976,1977 BY
.BR
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
.B 2
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED.
.B 1
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
.B 1
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL\\.
.IF FTTENX
.TI <FRS5A.DOC - <FOROTS-20
.ELSE FTTENX
.TI <FRS5A.DOC - <FOROTS-10
.ENDIF FTTENX
.PG
.IF FTTENX
<FOROTS-20 -- ^CHANGES FROM ^V5(620) TO ^V5^A(721)
.ELSE FTTENX
<FOROTS-10 -- ^CHANGES FROM ^V5(620) TO ^V5^A(721)
.ENDIF FTTENX
.BR
^OCTOBER 1977
.B3
1.0	<SUMMARY
.B
<FOROTS IS THE OBJECT TIME SYSTEM THAT PROVIDES RUNTIME SUPPORT FOR
^FORTRAN PROGRAMS, INCLUDING MONITOR INTERFACE FUNCTIONS FOR
<I/O, CORE MANAGEMENT AND ERROR HANDLING.  <FORLIB IS THE ^FORTRAN
LIBRARY CONTAINING THE MATHEMATICAL INTRINSIC FUNCTIONS AND VARIOUS
EXTERNAL SUBROUTINES.
.B 1
^THE REASON FOR THIS RELEASE IS TO CORRECT OUTSTANDING BUGS FOR
.IF FTTENX
<FORTRAN
.ELSE FTTENX
BOTH <FORTRAN AND ^F40
.ENDIF FTTENX
SUPPORT IN <FOROTS VERSION 5.
.B
<FOROTS VERSION 5^A IS <FOROTS VERSION 5 WITH EDITS _#620 THROUGH _#721
INCLUSIVE. ^THIS VERSION FULLY REPLACES VERSIONS 1, 1^A, 2, 3, 4, 4^A, 4^B AND 5.
.B2
1.1	^BIBLIOGRAPHY
.B
<FOROTS IS DOCUMENTED IN THE
.IF FTTENX
<FORTRAN-20 ^PROGRAMMER'S ^REFERENCE ^MANUAL <AA-4158B-TM.
.ELSE FTTENX
<FORTRAN-10 ^PROGRAMMER'S ^REFERENCE ^MANUAL <AA-0944E-TB.
.ENDIF FTTENX
.B2
1.2	^MONITORS
.B
.IF FTTENX
<FOROTS WILL RUN ON ANY MONITOR SUPPORTED BY <DEC ON THE <DEC<SYSTEM-20.
.ELSE FTTENX
^THIS RELEASE OF <FOROTS WILL RUN WITH 5.07^A, 5.07^B, 6.01^A,
6.01^B, 6.02 AND 6.03 (SEE "^DEFICIENCIES AND ^RESTRICTIONS").
^THE SUCCESSFUL OPERATION OF <DATE-75 HANDLING BY THE <FOROTS
SYSTEM REQUIRES ONE OF
THE FOLLOWING MONITORS:
.B
.LM 9.I-4
^A)##5.06^B WITH THE PATCHES AS PUBLISHED FOR THIS MONITOR TO HANDLE <DATE-75.
.B.I-4
^B)##5.07^A, 5.07^B, 6.01^A, 6.01^B, 6.02 OR 6.03 AS RELEASED.
.ENDIF FTTENX
.B2.LM0
1.3	^RELATED ^SYSTEM ^SOFTWARE
.B
^THE FOLLOWING SYSTEM SOFTWARE MUST BE USED WITH THE
<FOROTS SYSTEM:
.B.I5
.IFNOT FTTENX
.B.I5
<F40 ANY VERSION
.ENDIF FTTENX
.B.I5
<FORTRAN ANY VERSION
.B.I5
<LINK ANY VERSION
.B.I5
<MACRO  VERSION 52
.B.I5
.IF FTTENX
<MAKLIB  VERSION 2(20)
.ELSE FTTENX
<MAKLIB  VERSION 2(14) OR LATER
.ENDIF FTTENX
.PG
2.0	<EXTERNAL <CHANGES
.B
^LOWER CASE LETTERS ARE NOW ACCEPTED AS <FORMAT DESCRIPTORS AS THEY
ARE ALREADY ACCEPTABLE TO THE COMPILER.  ^LOWER CASE LETTERS FOR
^D OR ^E EXPONENTS AND ^TRUE OR ^FALSE LOGICAL CONSTANTS ARE NOW
ACCEPTED.
.B 1
^THE <PLOTS PLOTTER SUBROUTINE WILL NOW TAKE AN OPTIONAL SECOND
ARGUMENT WHICH IS THE STEP SIZE FOR THE PLOTTER INVOLVED.
.B 1
^THE <ALOG FUNCTION HAS BEEN REWRITTEN TO IMPROVE THE ACCURACY IN 
CERTAIN RANGES.
.B 1
^WHEN CLOSING A FILE WITH <DISPOSE='PRINT', THE <DEVICE= ARGUMENT WILL 
BE USED AS THE QUEUE NAME TO PASS TO <QMANGR.  ^IT WILL <NOT BE
ERROR CHECKED.
.B 1
^RECOVERY FROM AN ^^ILLEGAL LSCW\\ ERROR ON SEQUENTIAL INPUT NOW SCANS
FORWARD IN THE FILE UNTIL IT FINDS A WORD WHICH <LOOKS <LIKE (BUT CAN'T
BE GUARANTEED TO BE) A BEGINNING <LSCW TO POSITION THE FILE AT THE 
BEGINNING OF THE NEXT RECORD.
.B 1
^IF THE ARGUMENT VALUE OF THE <OPEN/CLOSE KEYWORD <DIRECTORY IS ZERO, THE
.IF FTTENX
CONNECTED DIRECTORY
.ELSE FTTENX
DEFAULT PATH
.ENDIF FTTENX
WILL BE USED INSTEAD OF THE LOGGED-IN ONE.
.B 1
^A TAPE DENSITY OF 6250 IS NOW ACCEPTED.
.B 1
^WITH FREE-FORMAT ^O FORMAT, A DOUBLE PRECISION ARGUMENT IN THE IOLIST
WILL INPUT TO AND OUTPUT FROM BOTH WORDS.
.B 1
.IFNOT FTTENX
^THE ROUTINES <BUFFER, <IBUFF, <OBUFF, <EOF1, <EOFC AND <MAGDEN
WILL ONLY BE SUPPORTED BY A <FOROTS/FORLIB BUILT FOR <F40.
.B 1
.ENDIF FTTENX
^ON MAGTAPE <I/O, IF NO <DENSITY= IS PRESENT, <FOROTS WILL USE
THE USER SET OR SYSTEM DEFAULT DENSITY.
.B 1
^THE <TRACE ROUTINE NOW WORKS CORRECTLY WHEN THE SUBROUTINES IN THE
<CALL HISTORY RESIDE IN <OVERLAY<S.
.B3
3.0	^^KNOWN BUGS AND DEFICIENCIES\\
.B
<FOROTS VERSION 5 HAS THE FOLLOWING DEFICIENCIES:
.B.LM9.I-4
^A)##<RANDOM <ACCESS IN <DUMP MODE IS UNIMPLEMENTED IN VERSION 5
OF <FOROTS.
.IF FTTENX
^AN
.ELSE FTTENX
^IT WILL BE IMPLEMENTED AT SUCH TIME
AS THE MONITOR SUPPORTS SCATTER/GATHER ^I/^O TO OTHER THAN <DECTAPE.
^UNTIL THEN AN
.ENDIF FTTENX
APPROPRIATE ERROR MESSAGE WILL BE ISSUED
IF ANY ATTEMPT IS MADE TO USE <RANDOM, <RANDIN, OR <APPEND
ACCESS WITH <DUMP MODE. ^THE USER IS ADVISED TO USE <IMAGE MODE
UNDER SUCH CIRCUMSTANCES.
.B.I-4
^B)##<REREAD ON A <TTY DEVICE ONLY REREADS AT MOST THE LAST 150 CHARACTERS
FROM THE PREVIOUS RECORD.
.B.I-4
^C)##<FOROTS WILL NOT AUTOMATICALLY HANDLE MULTIPLE REEL FILES ON <MAGTAPE.
.B.I-4
^D)##<IMAGE MODE <I/O DOES NOT WORK ON <TTY.
.B.I-4
^E)##^ENCODING AN ARRAY INTO THE SAME ARRAY IS NOT POSSIBLE.
(^THE TARGET ARRAY IS FIRST FILLED WITH BLANKS.)
.B.I-4
^F)##<FOROTS DOES NOT READ LINE SEQUENCED FILES DIRECTLY.
.B.I-4
^G)##<RANDOM <NUMBER GENERATOR ROUTINE FAILS IF IT IS INITIALIZED WITH A CALL TO <SETRAN WITH AN ARGUMENT OF 2**31-1.
.B.I-4
^H)##<REREAD WILL NOT WORK WITH SPOOLED DEVICES UNLESS THE <RECORDSIZE
IS A MULTIPLE OR DIVISOR OF 128 WORDS.
.B.I-4
^I)##^ATTEMPTING TO DO A CONTROL-^C AND THEN
.IF FTTENX
<@CLOSE
.ELSE FTTENX
<.CLOSE
.ENDIF FTTENX
WHILE A FILE IS
OPEN FOR <RANDOM ^I/^O WILL CAUSE LOST DATA, EXTRA SPURIOUS DATA, OR
<ADDRESS <CHECK <FOR <DEVICE.  ^THE SAME PROBLEMS CAN BE CAUSED BY
ATTEMPTING TO <EXIT FROM A <MACRO SUBROUTINE WHILE A <RANDOM ACCESS FILE
IS OPEN.
.IFNOT FTTENX
.B.I-4
^J)##<FOROTS CANNOT <BACKSPACE A BINARY FILE WRITTEN BY <FORSE.. ^IF THE
USER WISHES TO DO POSITIONING ON <FORSE. WRITTEN BINARY FILES, HE MUST
FIRST COPY THE FILE USING <FOROTS.
.ENDIF FTTENX
.B 3;.LM 0;.F;.J
4.0	<INSTALLATION <INSTRUCTIONS
.B
.IF FTTENX
^THE INSTALLATION OF THE <FOROTS/FORLIB SYSTEM INVOLVES COPYING
<FOROTS.EXE AND <FORLIB.REL FROM THE RELEASE TAPE.  ^IF YOU 
DESIRE TO ASSEMBLE THE <FOROTS OR <FORLIB SOURCES, A <FORPRM.UNV
FILE MUST BE CREATED.  ^ASSEMBLE (WITH <MACRO 50(272) OR LATER)
<FORPRM.MAC WITH <FORCPU.20.
.ELSE FTTENX
^THE INSTALLATION OF THE <FOROTS/FORLIB SYSTEM INVOLVES RENAMING
THE APPROPRIATE <KA OR <KI/KL FILES AND COPYING THEM TO <SYS:.  ^THE
<KI VERSION RUNS WITHOUT MODIFICATION ON THE <KL10.  ^THE
<FOROTS FILES ARE <FOROKA.SHR AND <FOROKI.SHR.  ^THE APPROPRIATE
ONE FOR YOUR <CPU SHOULD BE RENAMED TO <FOROTS.SHR AND COPIED TO
<SYS:.  ^THE <FORLIB FILES ARE <FORLKA.REL AND <FORLKI.REL.  ^THE
APPROPRIATE ONE SHOULD BE RENAMED TO <FORLIB.REL AND COPIED TO <SYS:.
^IF YOU DESIRE TO USE THE <.EXE RATHER THAN THE <.SHR FILES FOR
<FOROTS, THEY ARE <FOROKA.EXE AND <FOROKI.EXE.  ^COPY THE PROPER
ONE FOR YOUR <CPU TO <SYS: AS <FOROTS.EXE.
.B 1
^IF YOU DESIRE TO ASSEMBLE THE <FOROTS OR <FORLIB SOURCES, A
<FORPRM.UNV FILE MUST BE CREATED.  ^ASSEMBLE (WITH <MACRO 50(272)
OR LATER) <FORPRM.MAC
WITH <FORCPU.KA OR <FORCPU.KI AS APPROPRIATE FOR YOUR
<CPU.
.B 1
^THERE ARE TWO COMMAND FILES FOR <PIP (<FRSKA.CMD AND <FRSKI.CMD),
USED BY <B10FRS.CTL IN BUILDING <FORLIB, THAT MERGE ALL OF THE
LIBRARY <.REL FILES TOGETHER.  <MAKLIB IS USED TO CREATE AN <INDEX<ED
<FORLIB WITH NO LOCAL SYMBOLS.
.ENDIF FTTENX
.B 1
^SEE THE FILE
.IF FTTENX
<FTN5A.FIG
.ELSE FTTENX
<FTN5A.FIG
.ENDIF FTTENX
FOR INFORMATION REGARDING INSTALLATION.
.PG
5.0	<INTERNAL <CHANGES
.B 1
^THE FOLLOWING IS A LIST OF ALL OF THE EDITS MADE TO VERSION 5(617)
IN PRODUCING VERSION 5^A.
.B2;.LM 18;.TS 7,18
.I -18
_#620	<SPR-21396	^ALLOW LOWER CASE LETTERS IN <FORMAT DESCRIPTORS.
.B 1;.I -18
_#621	<SPR-21149	^ENFORCE FIXED-LENGTH RECORDS IN <IMAGE MODE.  ^THIS WILL
ALSO FIX <RANDOM ACCESS IN <IMAGE MODE.
.B 1;.I -18
_#622	<QAR-873	^FIX <NAMELIST PARTIAL ARRAYS AT END OF LIST.
.B 1;.I -18
_#623	<SPR-21441	^USE <EXP2.. INSTEAD OF <EXP2.0 IN <FORPLT SO THAT IT
WILL LOAD IF <FORSIN WAS COMPILED WITH
<F40LIB TURNED OFF.
.B 1;.I -18
_#624	<SPR-19860	^CHANGES TO <DEXP.2, <DEXP.3, <EXP.3 FOR CONSISTENT
.I -18
	<SPR-20411	HANDLING OF NEGATIVE SINGLE AND DOUBLE
PRECISION NUMBERS TO NON-INTEGER POWERS.  ^ALSO
REARRANGED ORDER OF <FORDBL.MAC BY REVERSING
POSITION OF <DEXP.2 AND <DEXP.3 TO FACILITATE
CALL FROM <DEXP.3 TO <DEXP.2.
.B 1;.I -18
_#625	<SPR-<NONE	^FIXES TO <FORTRP FOR DOUBLE PRECISION ZERO DIVIDE.
^IT SHOULD RETURN PLUS OR MINUS INFINITY,
DEPENDING ON THE SIGN OF THE DIVIDEND. 4^B(460)
ALWAYS RETURNED POSITIVE INFINITY; AFTER PATCH
531, ZERO WAS RETURNED.
.B 1;.I -18
_#626	<SPR-<NONE	^CHANGE DATA ERROR 11 IN <ER%DAT IN <FORERR TO
SPECIFY <NAMELIST NAME AND INVALID VARIABLE NAME.
.B 1;.I -18
_#627	<SPR-21476	^ALLOW _^^C AND 
.IF FTTENX
<@CLOSE
.ELSE FTTENX
<.CLOSE
.ENDIF FTTENX
WHEN <APPEND<ING TO A NULL FILE.
.B 1;.I -18
_#630	<QAR-951	^AVOID <IO TO UNASSIGNED CHANNEL IF <RENAME <UUO TO
DELETE A FILE WITH <DISPOSE='DELETE' LOSES.
.B 1;.I -18
_#631	<SPR-21591	^FIX <SCALE IN <FORPLT SO <XMIN GETS SET RIGHT IF
<INT(<LOWEST VALUE/^^DX\\)=0, AND PREVENT ZERO
DIVIDES WHEN ALL VALUES TO BE SCALED ARE
EQUAL BY ARBITRARILY SETTING UP THE SCALING.
.B 1;.I -18
_#632	<SPR-<NONE	^FIX <PLOTS IN <FORPLT TO ACCEPT OPTIONAL SECOND
ARGUMENT WHICH IS STEP SIZE.
.B 1;.I -18
_#633	<QAR-923	^MOVE EDIT 605 AND CHANGE EDIT 522 SO THAT IF IT IS
NECESSARY TO <RENAME A FILE WHEN IT IS
CLOSED, THE REASON FOR THE <RENAME IS KNOWN.
.B 1;.I -18
_#634	<SPR-10201	^LOGICAL DEVICE NAMES IGNORE THE DIRECTORY IF A
DIRECTORY WAS SPECIFIED.
.B 1;.I -18
_#635	<QAR-870	^FIX <OPEN(DISPOSE=DELETE),REWIND,END SO
THAT FILE WILL BE DELETED AT EXIT TIME.
.B 1;.I -18
_#636	<QAR-1037	^FIX <FORERR FOR ILLEGAL CHARACTER IN DATA WITH ^T FORMAT.
.B 1;.I -18
_#637	<SPR-<NONE	^CHANGE TO RANDOM NUMBER GENERATOR - FIX SO THAT '^Y' PART OF
<HRLI INSTRUCTION IS 0 RATHER THAN MNEMONIC
FOR REGISTER 0.
.B 1;.I -18
_#640	<SPR-<NONE	^ADD <F20LIB SWITCH TO <FORPRM AND MODIFY 
<PLOTS TO ASSEMBLE VALUE
OF <STPSIZE CONDITIONALLY UPON
<F20LIB SWITCH.
.B 1;.I -18
_#641	<SPR-21699	^CHANGE DEFINITIONS OF <FORSE ENTRY POINTS IN
<FORJAK FROM <INTERN<S TO <ENTRY<S.
.B 1;.I -18
_#642	<SPR-<NONE	^REWRITE OF <ALOG ROUTINE IN <FORSIN.  ^SPECIAL CASE
FOR VALUES OF ^X AROUND 1 MORE ACCURATE.
.B 1;.I -18
_#643	<SPR-<NONE	<FORDBL(DEXP.3) MOVE <ARGAX FOR <DMOVE MACRO UNDER <KA.
.B 1;.I -18
_#644	<SPR-<NONE	^CHANGE <ERRF40 MACRO IN <FOROPN TO ACCOMODATE USE WITH
<F40LIB SWITCH TURNED OFF.
.B 1;.I -18
_#645	<SPR-<NONE	^IN <FORXIT, TAKE DEFINITION OF <EXIT. OUT FROM
UNDER <F40LIB SWITCH SO IT WILL ALWAYS BE DEFINED.
.B 1;.I -18
_#646	<SPR-22428	^FIX <DISPOSE='PRINT!LIST!PUNCH' TO GET FILE'S PATH TO PASS
TO <QMANGR AS "ORIGINAL DIRECTORY".  ^AFTER EDIT 537
(DUE TO EDIT 617) <DD.PPN CONTAINS 0 NOT PPN AFTER
<LOOKUP.
.B 1;.I -18
_#647	<SPR-22171	^USE <DEVICE= AS QUEUE NAME FOR <DISPOSE='PRINT' ON <CLOSE.
.B 1;.I -18
_#650	<SPR-<NONE	^IN <FOROTS, <FORFUN, AND <FORERR CHANGE THE NAMES OF TWO
<EXTERNAL<S TO BE UNIQUE AND NOT VALID IN <FORTRAN.
^THE <EXTERNAL<S ARE <DMPSTR AND <ALCOR AND WILL BE
<DMPST. AND <FMEM%%.
.B 1;.I -18
_#651	<SPR-22415	^IN <FOROTS, FIX EDIT 615 TO ZERO OUT <DENSITY FIELD CORRECTLY.
.B 1;.I -18
_#652	<SPR-22508	^IN <FORCNV, ALLOW LOWER CASE ^D AND ^E IN INPUT EXPONENTS.
.B 1;.I -18
_#653	<SPR-22543	^IN <FORCNV, ALLOW LOWER CASE ^T AND ^F FOR TRUE AND FALSE.
.B 1;.I -18
_#654	<SPR-22691	^IN <FORCNV, FIX <FLIRT TO HANDLE INTEGERS CORRECTLY AND
<NAMELIST TO RECORD DATA TYPE IN LOW CORE.
.B 1;.I -18
_#655	<SPR-22727	^FIX <EOF ON <BINARY/IMAGE INPUT OF <SLIST TO CLEAR REST
OF <SLIST.
.B 1;.I -18
_#656	<SPR-22726	^FIX <DUMP MODE <I/O TO PROPERLY HANDLE CHAINING OF
<IOWD LIST BLOCKS.
.B 1;.I -18
_#657	<SPR-21821	^RECOVER FROM ILLEGAL <LSCW IN SEQ FILE BY SCANNING FORWARD
UNTIL FIND A WORD WHICH LOOKS LIKE AN <LSCW (<LH=001...);
NO RECOVERY IF <FORSE. BINARY RECORD !
.B 1;.I -18
_#660	<SPR-<NONE	^FIX <FLOUT% IN <FORCNV TO USE 8 NOT 9 AS MAX NUMBER OF
MANTISSA DIGITS TO PRINT ON SINGLE PRECISION SO 5.55
IN <F20.17 WON'T BE 5.55000001..
.B 1;.I -18
_#661	<SPR-<NONE	^GET RID OF <RUBOUT ON '$' AND '+' FORMAT DESCRIPTORS I.E., FIX PATCHES 567 AND 577.
.B 1;.I -18
_#662	<SPR-<NONE	^FIX <FORINI TO RESET <.JBOPS AFTER <GETSEG.
.B 1;.I -18
_#663	<SPR-22507	^FIX EDIT 610 TO UPDATE CHANNEL TABLE SO <IO.BSE (<ERRBS IN PROGRESS FOR <BSREAD) WILL BE RESET.
.B 1;.I -18
_#664	<SPR-22708	^FIX '$' FORMAT ON NON-CCC DEVICES NOT TO LOSE REST OF LINE AFTER '$'.  ^FIXES ERROR MADE BY PATCH 223, PARTIALLY REPAIRED BY 616.
.B 1;.I -18
_#665	<SPR-22886	^FIX EDIT 624 TO SAVE AND RESTORE TEMPORARY REGISTERS PROPERLY IN ALL CASES. IN <DEXP.3 IN <FORDBL.
.B 1;.I -18
_#666	<SPR-21877	^CLEAR <FST.DY AT FIN% SO ON <ERR= OF RANDOM READ, PREVIOUS FORMAT ARRAY WHICH WAS FREED IS NOT FREED AGAIN (SINCE  THAT LOOPS <PMEM%%).
.B 1;.I -18
_#667	<SPR-22601	^IN <OPEN/CLOSE, IF USER SPECIFIES <DIRECTORY=0,0, DON'T DEFAULT BOTH PROJ,PROG TO USER'S PPN (LIKE EDIT 536  SAYS).  ^JUST PASS 0 SO MONITOR CAN USE DEFAULT PATH.
.B 1;.I -18
_#670	<SPR-22686	^UNCOMMENT 6250 BPI ENTRY IN <TAPOP. DENSITY TABLE
.B 1;.I -18
_#671	<SPR-<NONE	^HANDLE SINGLETON <ELIST AS <SLIST (BEWARE: <FT.INC IN <FLIRT% = <FT.ELT).
.B 1;.I -18
_#672	<QAR-2104	^FIX EDIT 621 TO ENFORCE RECORD LENGTH ONLY ON OUTPUT IN <IMAGE MODE
.B 1;.I -18
_#673	<SPR-22607	^IMPLEMENT VBL WIDTH DOUBLE PRECISION OCTAL I/O (<FORCNV).
.B 1;.I -18
_#674	<SPR-23036	^OPEN NEW CHANNEL FOR DIRECTORY DEVICE EVEN IF DEVICE ALREADY ASSIGNED TO PROGRAM.
.B 1;.I -18
_#675	<SPR-23611	^SAVE + RESTORE <AOBJN PTR IN <EXIT CODE WHICH GETS CLOBBERED IF ANY QUEUING IS DONE.
.B 1;.I -18
_#676	<SPR-<NONE	^FIX <'DISPOSE=LIST!PRINT!PUNCH' TO GIVE VALID QUEUE NAME WHEN <DISPOSE SPECIFIED AT <OPEN AND IMPLICIT CALL TO <CLOSE.  ^FIX TO 674.
.B 1;.I -18
_#677	<SPR-22964	^FIX <CLOSE TO CHECK STATUS AFTER <CLOSE <UUO TO CATCH ANY ERRORS DURING <CLOSE.
.B 1;.I -18
_#700	<SPR-23542	^FIX <DEXP. IN <FORDBL NOT TO GIVE FLOATING DIVIDE CHECK.
.B 1;.I -18
_#701	<SPR-23412	^HANDLE <EOL IN <DIALOG MODE CORRECTLY.
.B 1;.I -18
_#702	<SPR-22877	^MAKE <DUMP MODE IO ERRORS UNRECOVERABLE BUT TRAPPABLE.
.B 1;.I -18
_#703	<SPR-22687	^IN <FOROPN PUT <BUFFER, <IBUFF, <OBUFF, <EOF1, <EOFC AND <MAGDEN UNDER <IFN <F40LIB.
.B 1;.I -18
_#704	<SPR-23073	^CHANGE <SETDEN TO DO NOTHING IF NO DENSITY WAS SPECIFIED TO PREVENT OVERWRITING IF SET BY <SET <DENSITY (FIX TO EDIT 615).
.B 1;.I -18
_#705	<SPR-<NONE	^DON'T CLOBBER SCAN FLAGS REG WHEN RETURNING PATH BLOCK WHEN PROCESSING PPN.
.B 1;.I -18
_#706	<SPR-<NONE	^FIX <SCNSIX TO ALWAYS SET CHARS/WORD WHEN SCANNING CORE SO <SFD<S DEEPER THAN 1 WORK.
.B 1;.I -18
_#707	<SPR-<NONE	^FIX PPN SCANNING TO HANDLE MAX OF 5 <SFD<S.
.B 1;.I -18
_#710	<SPR-23046	^FIX <SCNSTR TO STOP <DIALOG SCAN ON _$ AND MEMORY SCAN ON NULL WORD.
.B 1;.I -18
_#711	<SPR-<NONE	^STOP RECURSIVE ERRORS IN <ER%DEV.  ^FIX <EXIT% TO RESET <ERR.V2 SINCE NO ERROR IS IN PROGRESS.
.B 1;.I -18
_#712	<SPR-<NONE	^FIX TRACEBACK IN <ER%LIB TO USE CORRECT TOP OF STACK.
.B 1;.I -18
_#713	<SPR-<NONE	^FIX TRACEBACK OVER <OVERLAY<S IN <TRACE%
.B 1;.I -18
_#714	<SPR-<NONE	^FIX ERROR RECOVERY IN <FORERR AT <ERR%ER TO RETURN "RECOVERY FAILED" IF THERE IS AN <ERR= BUT NO RECOVERY ROUTINE SPECIFIED.
.B 1;.I -18
_#715	<QAR-2126	^INCLUDE <ERR= SETUP IN <CLOSE%.  ^ADJUST EDIT 564 SO <ERR= INITIALIZATION HAPPENS IN <SAVE.
.B 1;.I -18
_#717	<QAR-2174	^FIX EDIT 706 TO HANDLE CHAR COUNT FOR <FILE=<DOUBLE PREC:  DON'T RESET CHAR COUNT IF CHAR COUNT NOT = 0.
.B 1;.I -18
_#720	<SPR-<NONE	^FIX EDIT 710 TO TREAT <DIALOG MODE == LITERAL SCAN FOR STOPPING <SFD SEARCH IN <SCNSTR.
.B 1;.I -18
_#721	<SPR-<NONE	^FIX EDIT 714 SO ERRORS DURING <DIALOG MODE PROCESSING ARE REPORTED TO <TTY:.
.LM 0
.PG
6.0	<SUGGESTIONS
.B 1
^NONE.
.B 3.LM 0
[^END OF <FRS5A.DOC]
.COMMENT PREVIOUS .DOC FILE IS A -10 ONLY CONVENTION UNFORTUNATELY
.IFNOT FTTENX
.B1
[<FRS5.DOC IS APPENDED AS INTEGRAL PART OF <FRS5A.DOC]
.TI <FRS5.DOC - <FOROTS-10
.PG
<FOROTS-10 -- ^CHANGES ^FROM ^V4^B(460) TO ^V5(617)
.BR
^NOVEMBER 1976
.B3
1.0	<SUMMARY
.B
^THE REASON FOR THIS RELEASE IS TO CORRECT OUTSTANDING BUGS FOR
BOTH <FORTRAN AND ^F40
SUPPORT IN <FOROTS VERSION 4^B.  ^ALSO
THIS <FOROTS/FORLIB SUPPORTS NEW FUNCTIONALITY FOR USER-HANDLING 
OF BOTH HARD AND SOFT <I/O ERRORS ON <OPEN, <READ, <WRITE AND <CLOSE 
USING <ERR=.
.B
<FOROTS VERSION 5 IS <FOROTS VERSION 4^B WITH EDITS _#461 THROUGH _#617 INCLUSIVE. ^THIS VERSION FULLY REPLACES VERSIONS 1, 1^A, 2, 3, 4, 4^A, AND 4^B.
.B2
1.1	^BIBLIOGRAPHY
.B
<FOROTS IS DOCUMENTED IN THE
<FORTRAN-10 ^PROGRAMMER'S ^REFERENCE ^MANUAL <AA-0944E-TB.
.B2
1.2	^MONITORS
.B
^THIS RELEASE OF <FOROTS WILL RUN WITH 5.07^A, 5.07^B, 6.01^A,
6.01^B, AND 6.02 (SEE "^DEFICIENCIES AND ^RESTRICTIONS").
^THE SUCCESSFUL OPERATION OF <DATE-75 HANDLING BY THE <FOROTS
SYSTEM REQUIRES ONE OF
THE FOLLOWING MONITORS:
.B
.LM 9.I-4
^A)##506^B WITH THE PATCHES AS PUBLISHED FOR THIS MONITOR TO HANDLE <DATE-75.
.B.I-4
^B)##5.07^A, 5.07^B, 6.01^A, 6.01^B, OR 6.02 AS RELEASED.
.B2.LM0
1.3	^SYSTEM ^SOFTWARE
.B
^THIS RELEASE OF <FOROTS/FORLIB USES <MACRO VERSION
50^A WHICH CORRECTS MINOR CODE GENERATION PROBLEMS.
^THE FOLLOWING SYSTEM SOFTWARE MUST BE USED WITH THE
<FOROTS SYSTEM:
.B.I5
<MAKLIB
.B.I5
<F40 ANY VERSION
.B.I5
<LINK ANY VERSION
.B.I5
<FORTRAN ANY VERSION
.PG
2.0	<EXTERNAL <CHANGES
.B
^CHANGES HAVE BEEN MADE TO THE LIST-DIRECTED INPUT OF QUOTED
STRINGS.  ^A QUOTED STRING WHICH IS TOO LONG TO FIT IN ONE ELEMENT
OF THE INPUT LIST WILL BE PLACED IN ADJACENT ELEMENTS AND WILL BE
PADDED WITH BLANKS.  ^IF A QUOTED STRING IS BEING PLACED IN AN ARRAY
AND IT FILLS MORE THAN ONE ELEMENT OF THE ARRAY, THE REMAINING ELEMENTS
OF THE ARRAY WILL BE UNCHANGED.  ^IN THIS CASE, IT IS ASSUMED THAT THE
USER MEANT FOR THE LONG STRING TO GO INTO THE ARRAY AND FOR ANY
FOLLOWING DATA TO GO INTO THE REST OF THE INPUT LIST.  ^IF THE STRING
FITS INTO ONE ELEMENT OF THE ARRAY, THE ARRAY WILL BE FILLED.  ^VARIOUS
BUGS WHICH COULD CAUSE OTHER LOCATIONS TO BE FILLED WITH BLANKS HAVE
ALSO BEEN CORRECTED.
.B 1
^NEW FUNCTIONALITY HAS BEEN ADDED TO <FORTRAN, <FOROTS AND <FORLIB TO
ALLOW USER-HANDLING OF HARD AND SOFT ERRORS ON <OPEN, <CLOSE, <READ AND <WRITE
USING THE <ERR= BRANCH.  ^SEE THE <FORTRAN VERSION 5
DOCUMENTATION
(<FTN510.DOC)
FOR THE DETAILED SPECIFICATIONS.
.B 1
^F FORMAT FOR DOUBLE PRECISION VARIABLES NOW USES BOTH WORDS.
.B3
3.0	^^KNOWN BUGS AND DEFICIENCIES\\
.B
<FOROTS VERSION 5 HAS THE FOLLOWING DEFICIENCIES:
.B.LM9.I-4
^A)##<RANDOM <ACCESS IN <DUMP MODE IS UNIMPLEMENTED IN VERSION 5
OF <FOROTS.
^IT WILL BE IMPLEMENTED AT SUCH TIME
AS THE MONITOR SUPPORTS SCATTER/GATHER ^I/^O TO OTHER THAN <DECTAPE.
^UNTIL THEN AN
APPROPRIATE ERROR MESSAGE WILL BE ISSUED
IF ANY ATTEMPT IS MADE TO USE <RANDOM, <RANDIN, OR <APPEND
ACCESS WITH <DUMP MODE. ^THE USER IS ADVISED TO USE <IMAGE MODE
UNDER SUCH CIRCUMSTANCES.
.B.I-4
^B)##<REREAD ON A <TTY DEVICE ONLY REREADS AT MOST THE LAST 150 CHARACTERS
FROM THE PREVIOUS RECORD.
.B.I-4
^C)##<FOROTS WILL NOT AUTOMATICALLY HANDLE MULTIPLE REEL FILES ON <MAGTAPE.
.B.I-4
^D)##<IMAGE MODE <I/O DOES NOT WORK ON <TTY.
.B.I-4
^E)##^ENCODING AN ARRAY INTO THE SAME ARRAY IS NOT POSSIBLE.
(^THE TARGET ARRAY IS FIRST FILLED WITH BLANKS.)
.B.I-4
^F)##<FOROTS DOES NOT READ LINE SEQUENCED FILES DIRECTLY.
.B.I-4
^G)##<RANDOM <NUMBER GENERATOR ROUTINE FAILS IF IT IS INITIALIZED WITH A CALL TO <SETRAN WITH AN ARGUMENT OF 2**31-1.
.B.I-4
^H)##<REREAD WILL NOT WORK WITH SPOOLED DEVICES UNLESS THE <RECORDSIZE
IS A MULTIPLE OR DIVISOR OF 128 WORDS.
.B.I-4
^I)##^ATTEMPTING TO DO A CONTROL-^C AND THEN
<.CLOSE
WHILE A FILE IS
OPEN FOR <RANDOM ^I/^O WILL CAUSE LOST DATA, EXTRA SPURIOUS DATA, OR
<ADDRESS <CHECK <FOR <DEVICE.  ^THE SAME PROBLEMS CAN BE CAUSED BY
ATTEMPTING TO <EXIT FROM A <MACRO SUBROUTINE WHILE A <RANDOM ACCESS FILE
IS OPEN.
.B.I-4
^J)##<FOROTS CANNOT <BACKSPACE A BINARY FILE WRITTEN BY <FORSE.. ^IF THE
USER WISHES TO DO POSITIONING ON <FORSE. WRITTEN BINARY FILES, HE MUST
FIRST COPY THE FILE USING <FOROTS.
.B 3;.LM 0;.F;.J
4.0	<INSTALLATION <INSTRUCTIONS
.B
^THE INSTALLATION OF THE <FOROTS/FORLIB SYSTEM INVOLVES RENAMING
THE APPROPRIATE <KA OR <KI/KL FILES AND COPYING THEM TO <SYS:.  ^THE
<KI VERSION RUNS WITHOUT MODIFICATION ON THE <KL10.  ^THE
<FOROTS FILES ARE <FOROKA.SHR AND <FOROKI.SHR.  ^THE APPROPRIATE
ONE FOR YOUR <CPU SHOULD BE RENAMED TO <FOROTS.SHR AND COPIED TO
<SYS:.  ^THE <FORLIB FILES ARE <FORLKA.REL AND <FORLKI.REL.  ^THE
APPROPRIATE ONE SHOULD BE RENAMED TO <FORLIB.REL AND COPIED TO <SYS:.
^IF YOU DESIRE TO USE THE <.EXE RATHER THAN THE <.SHR FILES FOR
<FOROTS, THEY ARE <FOROKA.EXE AND <FOROKI.EXE.  ^COPY THE PROPER
ONE FOR YOUR <CPU TO <SYS: AS <FOROTS.EXE.
.B 1
^IF YOU DESIRE TO ASSEMBLE THE <FOROTS OR <FORLIB SOURCES, A
<FORPRM.UNV FILE MUST BE CREATED.  ^ASSEMBLE (WITH <MACRO 50(272)
OR LATER) <FORPRM.MAC
WITH <FORCPU.KA OR <FORCPU.KI AS APPROPRIATE FOR YOUR
<CPU.
.B 1
^THERE ARE TWO COMMAND FILES FOR <PIP (<FRSKA.CMD AND <FRSKI.CMD),
USED BY <B10FRS.CTL IN BUILDING <FORLIB, THAT MERGE ALL OF THE
LIBRARY <.REL FILES TOGETHER.  <MAKLIB IS USED TO CREATE AN <INDEX<ED
<FORLIB WITH NO LOCAL SYMBOLS.
.B 3
5.0	<INTERNAL <CHANGES
.B
^THE MEMORY MANAGEMENT ROUTINES HAVE BEEN REPLACED.  ^THE NEW
ROUTINES USE A FIRST-FIT RATHER THAN A BEST-FIT SCHEME FOR 
MEMORY ALLOCATION.  ^THEY HAVE ONLY ONE LIST OF FREE CORE (RATHER THAN
A SEPARATE ONE FOR USE BY THE OVERLAY HANDLER) THAT IS KEPT IN
INCREASING ORDER BY ADDRESS.  ^IN THE FREE LIST, ADJACENT AREAS
OF AVAILABLE CORE ARE IMMEDIATELY COLLAPSED INTO ONE AREA.
.B2
^THE FOLLOWING IS A LIST OF ALL EDITS MADE TO ^V4^B TO PRODUCE ^V5.
.B2.LM18.TS7,18.I-18
_#461	<SPR-16741	^FIX <NAMELIST IN <FORCNV TO ACCEPT ANY VARIABLE NAME OF SIX
CHARACTERS.
.B 1;.I -18
_#462	<SPR-16796	^FIX <FLIRT% IN <FORCNV SO THAT A CALL TO <ILL WILL
CORRECTLY CAUSE ILLEGAL CHARACTERS IN DATA TO BE SET TO ZERO.
.B 1;.I -18
_#463	<SPR-16661	^FIX ERROR MESSAGE IN <FORERR TO SAY "^ILLEGAL <MODE OR
<MODE ^SWITCH".
.B 1;.I -18
_#464	<SPR-17090	^PREVENT WIPING OUT RANDOM CORE IN THE <FORMAT STATEMENT
PROCESSOR IF THE FIRST <FORMAT STATEMENT HAS MORE THAN TWO LEVELS
OF NESTED PARENTHESES.
.B 1;.I -18
_#465	<SPR-17142	^READ QUOTED STRINGS INTO DOUBLE PRECISION VARIABLES CORRECTLY.
.B 1;.I -18
_#466	<SPR-17152	^FIX <SNG.X WHEN THE ARGUMENT IS NEGATIVE AND CLOSE TO
A POWER OF TWO.
.B 1;.I -18
_#467	<SPR-17304	^REWRITE OF <FORMAT PROCESSING CORE ALLOCATION SCHEME.
.B 1.I -18
_#470	<SPR-<NONE	^DO NOT TRAP OVERFLOWS OUT OF <DDT.
.B 1.I -18
_#471	<SPR-17385	^AVOID <ILL <MEM <REF<S ON <RANDOM ACCESS <ASCII
FORMATTED <READ<S.
.B 1.I -18
_#472	<SPR-<NONE	^PUT DATA FILES IN THE DEFAULT PATH IF NO PATH IS SPECIFIED.
.B 1.I -18
_#473	<SPR-17572	^FIX <DECODE BY CLEARING <CH.SAV IN <FIN%%.
.B 1.I -18
_#474	<SPR-17648	^FIX TO <FORERR TO NOT STOP PRINTING THE RECORD IN ERROR ON A <LF.
.B 1.I -18
_#475	<SPR-<NONE	^ADD <DBMS% DUMMY ROUTINE FOR UNBUNDLED <DBMS.
.B 1.I -18
_#476	<SPR-17725	^FIX ^G <FORMAT WHEN THE FIELD WIDTH IS TOO SMALL, BUT IS OK
WITHOUT THE 4^X.
.B 1;.I -18
_#477	<SPR-17759	^ALWAYS ALLOCATE AT LEAST TWO WORDS OF CORE IN <FORFUN.
.B 1.I -18
_#500	<SPR-17818	^RESET THE <ELIST AND <SLIST FLAGS WHEN STARTING A NEW
LIST IN <IOLST.
.B 1.I -18
_#501	<SPR-17900	^CLEAR <IO.EOL IN <CPYSTR SO THAT SOME DATA WILL ALWAYS MOVE.
.B 1.I -18
_#502	<SPR-17899	^MAKE THE <TTY INPUT BUFFER 132 CHARACTERS FOR A MORE REASONABLE <REREAD.
.B 1.I -18
_#503	<SPR-17871	^CLEAR <CH.SAV DURING ^T FORMAT PROCESSING, IN CASE A FREE-FIELD
FORMAT PRECEDED IT.
.B 1.I -18
_#504	<SPR-18010	^CORRECT <SAVE IN <FOROPN TO SAVE ^T5, AS IT TRIES TO DO.
.B 1.I -18
_#505	<SPR-18011	^STORE BLOCKS RATHER THAN WORDS IN .<RBEST ON <FILESIZE= IN
<OPEN.
.B 1.I -18
_#506	<SPR-17107	^USE ONLY ONE FREE CORE LIST.  ^DELETE THE ONE USED BY THE OVERLAY
HANDLER.
.B 1;.I -18
_#507	<SPR-17107	^DELETE THE CORE USED BY THE <FLU EVEN IF THE FILE HAS GONE AWAY.
.B 1;.I -18
_#510	<SPR-17898	^DO NOT TAKE THE <END= RETURN WITH THE BUFFER RING HEADERS
POINTING TO AN IN-CORE STRING.
.B 1;.I -18
_#511	<SPR-17107	^CHANGE CORE MANAGEMENT TO USE THE LOWEST ADDRESS THAT FITS RATHER THAN THE SMALLEST ONE, TO AVOID FRAGMENTATION.
.B 1;.I -18
_#512	<SPR-17107	^IF <GAD FAILS IN <FORFUN, DELETE THE <FORMAT BLOCKS AND
TRY AGAIN.
.B 1;.I -18
_#513	<SPR-15636	^PRODUCE CORRECT RESULTS FOR <DATAN(X) WHEN 
(5*<SQRT (5)-2)/11 _< <ABS(^X) _<
(5*<SQRT (5)+2)/11, THAT IS, WHEN
_.8346 _< <ABS(^X) _< 1_.198.
.B 1;.I -18
_#514	<SPR-18030	^RETURN AN ERROR TO <FUNCT. CORE FUNCTION IF NO CORE IS AVAILABLE.
.B 1.I -18
_#515	<SPR-18756	^CHECK PROPER REGISTER (^P3) AT <ER%DA1+10.  ^FIXES EDIT 424.
.B 1.I -18
_#516	<SPR-18207	^FIX <FORPLT TO USE ENTRY POINT NAMES WHICH END IN INVALID CHARACTERS, <INT. INSTEAD OF <INT, ETC.
.B 1.I -18
_#517	<SPR-18268	^FIX ^F <FORMAT FOR VERY NARROW FIELD WIDTHS.
.B 1;.I -18
_#520	<SPR-18814	^FIX TO EDIT 510 FOR ^T <FORMAT AFTER END-OF-FILE.
.B 1;.I -18
_#521	<SPR-18526	^ALLOW <DIALOG<-MODE <OPEN<S TO WORK FOR PROGRAMS COMPILED
WITH ^F40.
.B 1.I -18
_#522	<SPR-18445	^FIX PROTECTION ERROR TRYING TO CLOSE FILES PROTECTED 2 OR GREATER.
.B 1;.I -18
_#523	<SPR-18138	^DO A <LOOKUP BEFORE THE <RENAME DURING MODE CHANGE, AND MAKE ERRORS FATAL.
.B 1;.I -18
_#524	<SPR-18699	^FIX THE "QUOTA EXCEEDED" MESSAGE TO INDICATE THAT THE FILE STRUCTURE MAY ALSO BE FULL.
.B 1.I -18
_#525	<SPR-18856	^FIX <SEQINOUT ACCESS TO TRUNCATE THE LAST BLOCK OF A SUPERCEDED FILE, NOT JUST AN INTEGRAL NUMBER OF BLOCKS.
.B 1.I -18
_#526	<SPR-19256	^FIX CONTROL-^Z USED WITH <END= DURING DEFAULT <OPEN<S WHEN
<DIALOG MODE HAS BEEN ENTERED DUE TO AN ERROR.
.B 1.I -18
_#527	<SPR-19205	^FIX <FORERR TO AVOID <ILL <MEM <REF<S IN DISPATCH TABLES OR DURING EXIT AND TO ADD NEW ERROR MESSAGES.
.B 1.I -18
_#530	<SPR-18247	^FIX ^T <FORMAT FOR ALL CASES.
.B 1.I -18
_#531	<SPR-18074	^INSERT THE MISSING <PORTAL<S IN <FORTRP SO THAT <FOROTS
CAN BE RUN IN CONCEALED MODE.
.B 1.I -18
_#532	<SPR-18896	^FIX <AXIS IN <FORPLT TO CORRECTLY PRINT THE SCALING FACTOR ON THE AXIS.
.B 1.I -18
_#533	<SPR-19239	^CLEAR THE DOUBLE-PRECISION FLAG AT THE START OF AN <IOLST.  ^THIS MAKES LIST-DIRECTED ^I/^O WORK.
.B 1.I -18
_#534	<SPR-19239	^FIX <NMLST% IN <FORCNV FOR LIST-DIRECTED INPUT OF STRINGS.
.B 1.I -18
_#535	<SPR-18506	^DO A DUMMY <OUT DURING <APPEND MODE FILE POSITIONING TO SET UP THE BUFFERS PROPERLY FOR THE MONITOR.  ^THIS WILL ALLOW CONTROL-^C AND .<CLOSE TO WORK FOR <APPEND MODE.
.B 1.I -18
_#536	<SPR-19030	^ACCEPT DEFAULT PROJECT OR PROGRAMMER NUMBER FOR DIRECTORY IN
<OPEN STATEMENTS.
.B 1;.I -18
_#537	<SPR-18903	^ALLOW THE <DISPOSE PARAMETER IN A <CLOSE STATEMENT TO WORK FOR
FILES IN <SFD<S.
.B 1;.I -18
_#540	<SPR-19612	^FIX TIMING PROBLEMS CLOSING <APPEND MODE FILES.
.B 1.I -18
_#541	<SPR-19793	^FIX <NMLST% IN <FORCNV TO CORRECTLY RESET <FT.QOT AT THE END
OF QUOTED STRINGS.
.B 1.I -18
_#542	<SPR-19786	^USE THE SYSTEM DEFAULT RETURNED BY THE <DEVSIZ <UUO IF THE
BUFFER COUNT OR SIZE ARE INVALID AS GIVEN.
.B 1.I -18
_#543	<SPR-19696	^FIX <WRITE AFTER END-OF-FILE HAS OCCURED FOR <BINARY FILES, ESPECIALLY <RANDOM ACCESS FILES.
.B 1;.I -18
_#544	<SPR-12882	^MAKE THE ^P SCALING FACTOR FOR ^F <FORMAT WORK FOR NUMBERS WHICH
ARE IDENTICALLY ZERO.
.B 1;.I -18
_#545	<SPR-19834	^MAKE <ALTMODE A BREAK CHARACTER.  ^THIS MAKES <DIALOG MODE WORK
AGAIN AFTER EDIT 502.
.B 1;.I -18
_#546	<SPR-15285	^FIX THE <TRACE% ROUTINE IN <FORERR TO PRINT CORRECT TYPES FOR
ARGUMENTS TO ROUTINES.
.B 1.I -18
_#547	<SPR-<NONE	^INTRODUCE NEW FATAL ERROR FOR BAD CORE MANAGEMENT POINTERS.
.B 1.I -18
_#550	<SPR-19538	^DO NOT DEFAULT TO INVALID <ACCESS OR <MODE IN <SETOPN.
.B 1.I -18
_#551	<SPR-20056	^RETURN -1 FOR NEGATIVE CHANNEL REQUEST IN <ALCHN%.
.B 1;.I -18
_#552	<SPR-19131	^CLEAR <IO ACTIVE BIT AFTER <GETSTS BEFORE <JFFO IN <ER%DEV IN <FORERR.
.B 1.I -18
_#553	<SPR-<NONE	^FIX TO EDIT 550 FOR DEFAULT <OPEN<S.
.B 1.I -18
_#554	<SPR-20095	^CORRECT SPELLING OF ERROR MESSAGE IN <DSQRT. IN <FORDBL.
.B 1;.I -18
_#555	<SPR-<NONE	^FIX <PLOT ROUTINES TO NOT USE CHANNEL 17 WITHOUT CALLING <ALCHN.
.B 1.I -18
_#556	<SPR-20228	^FIX <ILL <MEM <REF<S IN <FOROPN WHEN USING <F10 AND CALLING
<BUFFER, <EOFC, <EOF1, <IBUFF, <OBUFF, OR <MAGDEN.
.B 1.I -18
_#557	<SPR-<NONE	^FIX <WRITE AFTER <END= WITH <SEQINOUT <READ OF NULL FILE.
.B 1.I -18
_#560	<SPR-<NONE	^FIX <SEQINOUT OUTPUTS AFTER <END= EXIT TAKEN.
.B 1.I -18
_#561	<SPR-20308	^PREVENT <IO <TO <UNASSIGNED <CHANNEL AFTER <FILE <BEING <MODIFIED.
.B 1;.I -18
_#562	<SPR-20376	^MAKE <MKTBL IN <FORPLT CORRECTLY SET TABLE ADDRESS IN <CTBL.
.B 1.I -18
_#563	<SPR-(V5)	^ALLOW ^F <FORMAT TO PRINT ALL DIGITS OF DOUBLE PRECISION
NUMBERS (<FLIRT% AND <FLOUT% IN <FORCNV).
.B 1.I -18
_#564	<SPR-VER5	^HANDLE HARD AND SOFT ERRORS WITH <ERR=.
.B 1.I -18
_#565	<SPR-20347	^MAKE ^X <FORMAT DO <FMTPSH IF UNBOUND DESCRIPTOR PRECEDED.
.B 1.I -18
_#566	<QAR-00569	^PRINT ZERO EXPONENT FOR IDENTICAL ZERO: ^D OR ^E FORMAT (<FORCNV).
.B 1.I -18
_#567	<SPR-20498	^FIX '+' FORMAT DESCRIPTOR AFTER '$' FOR NON-INTERACTIVE DEVICES.
.B 1.I -18
_#570	<SPR-20352	^PREVENT LOST RECORDS WHEN <RECORDSIZE IS EXACTLY FILLED ON OUTPUT.
.B 1.I -18
_#571	<SPR-<NONE	^ADD FUNCTIONS <RRS AND <WRS TO <FORFUN RESERVED FOR <DBMS.
.B 1.I -18
_#572	<SPR-<NONE	^ALLOW <CEXP TO LOAD WITH <F40LIB OFF BY DEFINING <EXP3..
LIKE <EXP2.. (<FORSIN AND <FORCPX).
.B 1.I -18
_#573	<SPR-<NONE	^PARSE UNBOUND ^X FORMAT DESCRIPTOR AS 1^X.
.B 1.I -18
_#574	<QAR-00654	^LIST DIRECTED INPUT OF COMPLEX NUMBERS SHOULD
REQUIRE PARENTHESIS AROUND THE ARGUMENT, AND
IF THERE IS A REPEAT COUNT IT SHOULD BE DELIMITED
BY AN ASTERISK.
.B 1.I -18
_#575	<SPR-18964	^FIX <SLIST<S WITH  LIST-DIRECTED <I/O WHEN INCREMENT
IS NOT ONE.
.B 1.I -18
_#576	<SPR-18964	^FIX <SLIST<S WITH  LIST-DIRECTED INPUT WHEN INCREMENT IS NOT ONE.
.B 1.I -18
_#577	<QAR-00808	^FIX EDIT 567 FOR BLANK CARRIAGE CONTROL AFTER DOLLAR SIGN FORMAT--USE <RUBOUT, NOT <NULL.
.B 1.I -18
_#600	<QAR-00573	^ADD STATIC WORD FOR <MAIN. ADDRESS FOR <TRACE%.
.B 1.I -18
_#601	<QAR-00688	^MAKE STACK SIZE IN <PLOT ROUTINES 40 WORDS TO ALLOW ROOM FOR <FORERR CALLS.
.B 1.I -18
_#602	<VER5	^COMPILE <FORCPU.K? + <FORPRM.MAC TO GET DEFINITION OF <CPU == <KA OR <KI.
.B 1.I -18
_#603	<QAR-00820	^DO NOT ALLOW <ENTER TO SUCCEED ON SECOND TRY TO <LIB:.
.B 1.I -18
_#604	<QAR-00822	^FIX TO EDIT 575 FOR <ELIST<S.
.B 1.I -18
_#605	<SPR-20-10062	^DO NOT SPECIFY ANY PROTECTION IN EXTENDED <RENAME BLOCK
UNLESS IT IS BEING CHANGED--THIS AVOIDS HAVING
THE COMPATIBILITY PACKAGE CHANGE THE PROTECTION
WHEN THE USER INTENDED IT TO NOT BE CHANGED.
.B 1;.I -18
_#606	<QAR-00832	^ZERO <ERR=,,END= ADDRESSES AT <EXIT%% SO <ER%SYS 1
(WHICH DOES THE <STOP) WON'T TRAP ON <ERR=.
.B 1.I -18
_#607	<QAR-00837	^FIX <0P <FORMAT DESCRIPTOR, BROKEN BY EDIT 573, BY
DUPLICATING CODE FROM <FMTX IN <FMTP.
.B 1.I -18
_#610	<QAR-00845	^FIX <ERRBS (<ERR= RECOVERY USING <BACKSPACE) TO SET/RESET
<IO.BSE IN <P3 TO TELL <BSREAD TO STOP BACKING UP WHEN
IT FINDS THE FIRST DELIMITER (SINCE THE ERROR OCCURRED
BEFORE THE END-OF-LINE (IE, DELIMITER) WAS HIT).
.B 1.I -18
_#611	<QAR-00846	<RESET IN <FORJAK MUST RESTORE <T0 SO <RESET. (<INIT%) CAN
SAVE IT.
.B 1.I -18
_#612	<QAR-00839	<ER%OPN 5 BECOMES "^ILLEGAL ^SEQUENCE OF ^MONITOR ^CALLS".
.B 1.I -18
_#613	<SPR-20719	^ADDITIONS TO 557 AND 560 FOR <WRITE<S AFTER <END= TAKEN
ON A <SEQINOUT FILE.
.B 1.I -18
_#614	<SPR-21142	^ZERO THE BUFFER LENGTH WHEN BACKING UP THE  BUFFER RING
HEADER AT <EOF AT <SETRWB IN CODE ADDED BY EDIT 560.
.B 1.I -18
_#615	<SPR-10110	^IMPLEMENT 1600 <BPI TAPE WITH A <TAPOP. <UUO.
.B 1.I -18
_#616	<SPR-21316	^FIX ^T FORMAT FOR <ENCODE/DECODE.
.B 1.I -18
_#617	<SPR-21371	^MOVE EDIT _#603 FROM <FILOPN TO <LOOKU..  ^THIS
PREVENTS HAVING THE PPN WORD OF THE EXTENDED BLOCK CHANGED INCORRECTLY
BY ANY <LOOKUP, <ENTER OR <RENAME.
.B 3.LM 0
6.0##<SUGGESTIONS
.B 1
^NONE.
.B 3.LM 0
[^END OF <FRS5.DOC]
.ENDIF FTTENX