Google
 

Trailing-Edge - PDP-10 Archives - BB-5471C-BM_1982 - algol-documentation/algol.bwr
There are 4 other files named algol.bwr in the archive. Click here to see a list.


ALG310.BWR
January 1982






























COPYRIGHT (C) 1974,1981,1982 BY
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.


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.

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
                                                                Page 2


     This file contains last minute information and warnings  relevant
to  the  ALGOL  10B/1.2(310)  release.   Critical bug fixes discovered
since the software and the DOC file were  submitted  for  distribution
are  listed  here.  In addition, this file also contains bugs fixes to
other products that directly affect the usage/building of this version
of  ALGOL.   This  file serves as additional information to ALGOL.DOC,
which should  be  referenced  for  full  information  concerning  this
release.



[SYMPTOM]

     The ALGOL OTS and debugger (ALG310) will  not  function  properly
when protected execute-only on a KI10.  This is due to a deficiency in
the KI processor, such that when an XCT instruction is executed from a
concealed  area,  and  the  instruction  being executed is in a public
area, a memory protection violation is produced.  This occurs even  if
the  public area is not actually entered, and regardless of whether or
not   the   XCT   is   followed   by   a   PORTAL.    Refer   to   the
DECsystem-10/DECSYSTEM-20  Processor  Reference  Manual,  AA-H391A-TK,
Section 2.9, page 2-63, footnote 18.

[CURE]

     In all cases where the  OTS  and  ALGDDT  would  do  such  a  XCT
instruction, move the XCT and an appropriate JRST to the high seg into
the low seg (either on the stack, on in the program  data  base),  and
jump  to  do  the XCT completely in the low seg.  The JRST to the high
seg will re-enter the concealed area at an  appropriate  PORTAL.   The
following  code  is provided only as a workaround for this KI hardware
deficiency, and will not appear in any version of the  ALGOL  product.
It is applicable to edit level 310, and has been given minimal testing
on a KI10 while protected execute-only (protection <666>).

[FILCOM]
File 1) A1:ALGOTS.MAC[4,664]    created: 1329 22-Dec-1981
File 2) DSK:ALGOTS.MAC[4,53]    created: 1402 08-Jan-1982

1)39            XCT     @A5             ; EVALUATE FORMAL OR THUNK
1)              PORTAL  .+1             ; [303]
1)              RPOP    DL              ; RESTORE DL
****
2)39    ;**;[KIEXO] @ DEXP14 + 11L, Replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT @A5]    ;[KIEXO] FOR THUNK
2)              PUSH    SP,[JRST .+2]   ;[KIEXO] BACK
2)              JRST    -1(SP)          ;[KIEXO] EVAL FORMAL OR THUNK
2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]       ;[KIEXO] TIDY STACK
2)              RPOP    DL              ; RESTORE DL
**************
1)40            XCT     (AX)            ; NO - GET VALUE OF FORMAL
1)              PORTAL  .+1             ; [303]
1)              RPOP    DL              ; RESTORE CURRENT DL
****
                                                                Page 3


2)40    ;**;[KIEXO] @ FSVRC0 + 10L, replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT (AX)]   ;[KIEXO] FOR VALUE
2)              PUSH    SP,[JRST .+2]   ;[KIEXO] FOR RETURN
2)              JRST    -1(SP)          ;[KIEXO] GET VALUE OF FORMAL
2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]       ;[KIEXO] TIDY STACK
2)              RPOP    DL              ; RESTORE CURRENT DL
**************
1)40    FSVRCA: XCTA    (AX)            ; GET ADDRESS OF FORMAL
1)              PORTAL  .+1             ; [303]
1)              RPOP    DL              ; RESTORE CURRENT DL
****
2)40    ;**;[KIEXO] @ FSVRCA + 0L, replace 2 lines, 8-Jan-82
2)      FSVRCA: PUSH    SP,[XCTA (AX)]  ;[KIEXO] FOR VALUE
2)              PUSH    SP,[JRST .+2]   ;[KIEXO] FOR RETURN
2)              JRST    -1(SP)          ;[KIEXO] GET VALUE OF FORMAL
2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]       ;[KIEXO] TIDY STACK
2)              RPOP    DL              ; RESTORE CURRENT DL
**************
1)40            XCT     1(AX)           ; STORE RESULT IN FORMAL
1)              PORTAL  .+1             ; [303]
1)              RPOP    DL              ; RESTORE CURRENT DL
****
2)40    ;**;[KIEXO] @ FSVRDC + 6L, replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT 1(AX)]  ;[KIEXO] FOR RESULT
2)              PUSH    SP,[JRST .+2]   ;[KIEXO] FOR RETURN
2)              JRST    -1(SP)          ;[KIEXO] STORE RESULT IN FORMAL
2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]       ;[KIEXO] TIDY STACK
2)              RPOP    DL              ; RESTORE CURRENT DL
**************
1)56            XCT     (AX)            ; [E053] GET VALUE OF FORMAL
1)              PORTAL  .+1             ; [303]
1)              RPOP    DL              ; [E053] RESTORE CURRENT DL
****
2)56    ;**;[KIEXO] @ FLABF0 + 12L, replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT (AX)]   ;[KIEXO] FOR VALUE
2)              PUSH    SP,[JRST .+2]   ;[KIEXO] FOR RETURN
2)              JRST    -1(SP)          ;[KIEXO] GET VALUE OF FORMAL
2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]       ;[KIEXO] TIDY STACK
2)              RPOP    DL              ; [E053] RESTORE CURRENT DL
**************
1)170           MOVE    A3,%SYS16(DB)   ; AND A3
1)              XCT     %SYS17(DB)
1)              XCT     %SYS15(DB)      ; EXECUTE ORDERS
1)              JRSTF   @.JBTPC         ; AND RETURN
****
2)170   ;**;[KIEXO] @ APR4 + 4L, Replace 3 lines, 8-Jan-82
2)              MOVE    A3,%SYS17(DB)   ;[KIEXO] GET FIRST ORDER
2)              MOVEM   A3,%SYS14(DB)   ;[KIEXO] PUT BEFORE SECOND
2)              MOVE    A3,[JRST .+3]   ;[KIEXO] TO GET BACK
2)              EXCH    A3,%SYS16(DB)   ;[KIEXO] RELOAD A3, PLANT RETURN
2)              JRST    %SYS14(DB)      ;[KIEXO] EXECUTE ORDERS
                                                                Page 4


2)              PORTAL  .+1             ;[KIEXO] ALLOW RETURN
2)              JRSTF   @.JBTPC         ; AND RETURN
**************

[FILCOM]
File 1) A1:ALGDDT.MAC[4,664]    created: 1537 10-Nov-1981
File 2) DSK:ALGDDT.MAC[4,53]    created: 1322 08-Jan-1982

1)26            XCT     (AX)                    ; CALL OTS ROUTINE TO EVALUATE FORMAL
1)              SUB     SP,[3,,3]               ; TIDY UP THE STACK
1)              JRST    DDGOT5                  ; GO JOIN COMMON CODE
****
2)26    ;**;[KIEXO] @ DDGOT2 + 12L, Replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT (AX)]           ;[KIEXO] CALL TO OTS TO EVAL FORMAL
2)              PUSH    SP,[JRST .+2]           ;[KIEXO] WAY TO GET BACK
2)              JRST    -1(SP)                  ;[KIEXO] EVALUATE
2)              SUB     SP,[5,,5]               ;[KIEXO] TIDY UP THE STACK
2)              JRST    DDGOT5                  ; GO JOIN COMMON CODE
**************
1)51            XCTA    (A3)                    ; PUT - GET ADDRESS TO A2  F[0]
1)              PORTAL  .+1                     ; [303]
1)              POP     SP,A1                   ; RESCUE VALUE.
1)              POP     SP,A0
1)              XCT     1(A3)                   ; PUT VALUE     F[1]
1)              PORTAL  .+1                     ; [303]
1)              JRST    CPOPJ1                  ; DONE
****
2)51    ;**;[KIEXO] @ DDGT4 + 3L, Replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCTA (A3)]          ;[KIEXO] SETUP FOR THUNK
2)              PUSH    SP,[JRST .+2]           ;[KIEXO] WAY BACK
2)              JRST    -1(SP)                  ;[KIEXO] PUT - GET ADDR TO A2  F[0]
2)              PORTAL  .+1                     ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]               ;[KIEXO] TIDY STACK
2)              POP     SP,A1                   ; RESCUE VALUE.
2)              POP     SP,A0
2)      ;**;[KIEXO] @ DDGT4 + 7L, Replace 2 lines, 8-Jan-82
2)              PUSH    SP,[XCT 1(A3)]          ;[KIEXO] SETUP FOR THUNK
2)              PUSH    SP,[JRST .+2]           ;[KIEXO] WAY BACK
2)              JRST    -1(SP)                  ;[KIEXO] PUT VALUE    F[1]
2)              PORTAL  .+1                     ;[KIEXO] ALLOW RETURN
2)              SUB     SP,[2,,2]               ;[KIEXO] TIDY STACK
2)              JRST    CPOPJ1                  ; DONE
**************
[End FILCOMs]



[SYMPTOM]


     If a program contains a macro with the same name as the  tag  for
the  starting  address,  no start block is generated.  When assembling
one of the ALGOL source modules (using MACRO with edit 1155 installed)
that  uses  this code sequence, a bad .REL file will be produced which
will cause LINK to Ill Mem Ref.  This occurs  because  the  MACRO  END
                                                                Page 5


psuedo-op  code  incorrectly  determines  that the starting address is
located  in  other  than  the  current  Psect,  causing  an  incorrect
inter-Psect Polish block to be generated instead of a start address.

[CURE]


     Only use the right halfword of the current Psect for comparisons.
This patch is only applicable if edit 1155 has been installed to field
image MACRO 53A(1152).

[FILCOM]
File 1) DSK:MC1204.MAC[4,113]   created: 1608 03-Oct-1980
File 2) DSK:MC1205.MAC[4,113]   created: 1517 03-Oct-1980
 
1)1     TITLE MACRO %53B(1204)  2-Oct-80
1)      SUBTTL EDIT BY MCHC/JBC/EGM/MFB/PY
****
2)1     TITLE MACRO %53B(1205)  3-Oct-1980
2)      SUBTTL EDIT BY MCHC/JBC/EGM/MFB/PY
**************
1)1             VEDIT==1204             ;EDIT NUMBER
1)              VCUSTOM==0              ;NON-DEC UPDATE LEVEL
****
2)1             VEDIT==1205             ;EDIT NUMBER
2)              VCUSTOM==0              ;NON-DEC UPDATE LEVEL
**************
1)4     ;*****End of Revision History*****
****
2)4     ;1205   PY      3-Oct-80        SPR 10-30043
2)      ;       If processing the END statement, and the start address l
        abel
2)      ;       has the same name as a macro, do not incorrectly set the
2)      ;       inter-PSECT reference bit. Broken by Edit 1155.
2)      ;*****End of Revision History*****
**************
1)36            MOVE SX,SGNCUR          ;[1155] GET CURRENT PSECT NUMBER
1)              CAMN SX,SGWFND          ;[1155] SYMBOL FOUND IN CURRENT
        PSECT?
****
2)36    ;**;[1205] Replace 1 Line at EVAS3+7L           PY      3-Oct-80
2)              HRRZ SX,SGNCUR          ;[1205] GET CURRENT PSECT NUMBER
2)              CAMN SX,SGWFND          ;[1155] SYMBOL FOUND IN CURRENT
        PSECT?
**************
[End FILCOM]



[SYMPTOM]


     If FORTRAN subroutines are loaded with  an  ALGOL  main  program,
FORLIB  (version  6  only)  code will be loaded into the high segment.
This happens because LINK does not check where the code should  go  if
                                                                Page 6


loading FORLIB unless the main program is FORTRAN.

[CURE]


     Test to see whether there is a high segment.  If  there  is  not,
and  the /OTSEGMENT:NONSHAR has not been given, load FORLIB in the low
segment.  Note that the tag offsets (which apply to field  image  LINK
4A(1220)) are slightly different if edit 1225 has been installed.

[FILCOM]
File 1) DSKC:LNKHST.MAC[30,4507]        created: 2209 04-Sep-80
File 2) DSKC:LNKHST.MAC[30,5526]        created: 0846 08-Oct-80
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN/PY/MFB   
        4-Sep-80
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN/PY/MFB   
        7-Oct-80
2)      
**************
1)1     DECEVR==1220            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1271            ;DEC EDIT VERSION
2)      
**************
1)5     
****
2)5     ;1271   PY      7-Oct-80
2)      ;       Make FORLIB load into the low segment by default if the
        main
2)      ;       program is not a FORTRAN program.
2)      ;       Routine: LNKLOD
2)      
2)      
**************

[FILCOM]
File 1) DSKC:LNKLOD.MAC[30,4507]        created: 1945 10-Aug-80
File 2) DSKC:LNKLOD.MAC[30,5526]        created: 0853 08-Oct-80
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN/PY   10-Aug-8
        0
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN/PY   7-Oct-80
2)      
**************
1)1     DECEVR==1220            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1271            ;DEC EDIT VERSION
2)      
                                                                Page 7


**************
1)6     
****
2)6     ;1271   Cause FORLIB to load /SEG:LOW if main program is not FOR
        TRAN.
2)      
**************
1)92              JRST  FOR.L1          ;NO
1)              MOVX    W1,PT.SGN!PT.SYM
****
2)92    ;**;[1271] Replace 1 Line at FORL01+2 Lines     PY      7-Oct-80
2)      ;**;[1271] ***** at FORL01+3 lines if edit 1225 is installed
2)                JRST  FORL03          ;[1271] NO
2)              MOVX    W1,PT.SGN!PT.SYM
**************
1)92            PUSHJ   P,FOR.L1        ;[1200] PUT FORLIB IN LIST OF LI
        BRARIES
1)              ; ..
****
2)92    ;**;[1271] Replace 1 Line at FORL01+7 Lines     PY      7-Oct-80
2)      ;**;[1271] ***** at FORL01+9 lines if edit 1225 is installed
2)              PUSHJ   P,FORL03        ;[1271] PUT FORLIB IN LIST OF LI
        BRARIES
2)              ; ..
**************
1)93            MOVE    P2,F.NXZR       ;[1200] LAST LIBRARY PUT ON LIST
1)              CAMN    P1,F.NAME(P2)   ;[1200] WAS IT FORLIB?
****
2)93    ;**;[1271] Replace 1 Line at FORL01+13 Lines    PY      7-Oct-80
2)      ;**;[1271] ***** at FORL01+14 lines if edit 1225 is installed
2)      FORL04: MOVE    P2,F.NXZR       ;[1271] LAST LIBRARY PUT ON LIST
2)              CAMN    P1,F.NAME(P2)   ;[1200] WAS IT FORLIB?
**************
1)93    
1)      FOR.L1: SKIPL   FORLIB          ;TEST FOR USER SCREW-UP
1)              JRST    FORL10          ;NO
****
2)93    ;**;[1271] Replace at FOR.L1                    PY      7-Oct-80
2)      FOR.L1: PUSHJ   P,FORL03        ;[1271] LOAD THE LIBRARY
2)              SKIPE   T1,OTSEG        ;[1271] GET THE /OTS: SWITCH
2)              CAIE    T1,1            ;[1271] /OTS:NONSHAR?
2)              SKIPE   HL.S2           ;[1271] NO - HIGH SEG EXIST?
2)              POPJ    P,              ;[1271] LEAVE IT TWOSEG
2)              PJRST   FORL04          ;[1271] MAKE IT /SEG:LOW
2)      FORL03: SKIPL   FORLIB          ;[1271] TEST FOR USER SCREW-UP
2)              JRST    FORL10          ;NO
**************
[End FILCOMs]



[SYMPTOM]
                                                                Page 8


     LINK does not know about the ALGOL debugger, ALGDDT.

[CURE]


     Implement /DEBUG:ALGOL, and teach LINK about ALGDDT.  This  patch
changes  LNKPAR,  therefore  all modules of LINK should be recompiled.
Note that this edit can be installed directly into version 4A(1220) of
LINK.

[FILCOM]
File 1) DSKC:LNKHST.MAC[30,4507]        created: 1836 31-Aug-80
File 2) DSKC:LNKHST.MAC[30,5526]        created: 1938 31-Aug-80
 
1)1     DECEVR==1266            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1267            ;DEC EDIT VERSION
2)      
**************
1)5     
****
2)5     ;1267   PY      31-Aug-80
2)      ;       Teach LINK about /DEBUG:ALGOL and about ALGDDT.
2)      ;       Routines: LNKPAR, LNKWLD, LNKXIT
2)      
2)      
**************

[FILCOM]
File 1) DSKC:LNKPAR.MAC[30,4507]        created: 1500 10-Jul-80
File 2) DSKC:LNKPAR.MAC[30,5526]        created: 1943 31-Aug-80
 
1)1     DECEVR==1264            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1267            ;DEC EDIT VERSION
2)      
**************
1)5     
****
2)5     ;1267   Add ALGOL and ALGDDT to list of debuggers in DEB macro.
2)      
**************
1)37    KEYMAC  DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT^
        _
1)      ,FAIL,SDDT,SIMULA,SIMDDT>
1)      >
1)      IFN FTMANTIS,<
1)      KEYMAC  DEB,<,MACRO,DDT,*FORTRAN,MANTIS,*COBOL,COBDDT,SAIL,SDDT^
        _
1)      ,FAIL,SDDT,SIMULA,SIMDDT>
1)      >
****
2)37    ;**;[1267] Replace KEYMAC DEB in IFE FTMANTIS           PY      
                                                                Page 9


        31-Aug-80
2)      KEYMAC  DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT^
        _
2)      ,FAIL,SDDT,SIMULA,SIMDDT,ALGOL,ALGDDT>          ;[1267] ADD ALGO
        L AND ALGDDT
2)      >
2)      IFN FTMANTIS,<
2)      ;**;[1267] Replace KEYMAC DEB in IFN FTMANTIS           PY      
        31-Aug-80
2)      KEYMAC  DEB,<,MACRO,DDT,*FORTRAN,MANTIS,*COBOL,COBDDT,SAIL,SDDT^
        _
2)      ,FAIL,SDDT,SIMULA,SIMDDT,ALGOL,ALGDDT>          ;[1267] ADD ALGO
        L AND ALGDDT
2)      >
**************

[FILCOM]
File 1) DSKC:LNKWLD.MAC[30,4507]        created: 0906 27-May-80
File 2) DSKC:LNKWLD.MAC[30,5526]        created: 1957 31-Aug-80
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN/PY   23-May-8
        0
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN/PY   31-Aug-8
        0
2)      
**************
1)1     DECEVR==1255            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1267            ;DEC EDIT VERSION
2)      
**************
1)6     
****
2)6     ;1267   Teach /DEBUG and /TEST switches about ALGDDT.
2)      
**************
1)23            JRST    LNKWLD          ;AND TRY AGAIN
****
2)23    ;**;[1267] Insert 5 lines before SPCDDT-1L      PY      31-Aug-8
        0
2)              CAME    T1,['ALGDDT']   ;[1267] CHECK FOR ALGDDT
2)              JRST    LNKWLD          ;[1267] NOT ALGDDT
2)              SETOM   NULSPC          ;[1267] IT'S ALGDDT - DONT LOAD
        ANYTHING
2)              SETZM   F.NAME(P1)      ;[1267] SINCE ALGDDT IS PART OF
        ALGOTS
2)              TRO     FL,L.SYM        ;[1267] TURN ON SYMBOLS
2)              JRST    LNKWLD          ;AND TRY AGAIN
**************

[FILCOM]
File 1) DSKC:LNKXIT.MAC[30,4507]        created: 0901 06-Jun-80
                                                               Page 10


File 2) DSKC:LNKXIT.MAC[30,5526]        created: 1953 31-Aug-80
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN/MFB/PY   5-Jun-80
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN/MFB/PY   31-Aug-8
        0
2)      
**************
1)1     DECEVR==1261            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1267            ;DEC EDIT VERSION
2)      
**************
1)6     
****
2)6     ;1267   Add ALGDDT to KEYMAC definition.
2)      
**************
1)43              IFE %%2,<                     ;;[1144] IF IT WASN'T AB
        OVE DEBUGGERS
****
2)43    ;;**;[1267] Insert at KEYMAC(A,B) Definition +22L       PY      
        31-Aug-80
2)                IFIDN <B><ALGDDT>,<           ;;[1267] ALGDDT IS SPECI
        AL
2)              .JBREN(P1)              ;[1267] ALGDDT STARTS FROM REENT
        ER ADDRESS
2)                  %%2==1                      ;;[1267] REMEMBER WE FOU
        ND A DEBUGGER
2)                >
2)                IFE %%2,<                     ;;[1144] IF IT WASN'T AB
        OVE DEBUGGERS
**************
[End FILCOMs]



[SYMPTOM]


     LINK produces %LNKSFU symbol table errors when loading  an  ALGOL
program  in a small amount of memory or with a small /MAXCORE setting.
This happens because if LINK  has  insufficient  memory  to  keep  all
tables  in  memory,  the ALGOL symbols are the first thing to be paged
out to an overflow file.  When this happens, LINK removes  the  entire
ALGOL symbols area from memory.  Later, when the ALGOL symbols area is
to be expanded, LINK does not check to see if  there  are  symbols  in
memory,  and  attempts  to  move  the  memory  resident  area with the
exchange pages PAGE.  UUO.   Since  there  are  no  ALGOL  symbols  to
exchange, a page from the next area higher, the local symbols area, is
exchanged with a page of zeros.

[CURE]
                                                               Page 11


     Do not exchange  pages  if  the  area  being  expanded  has  been
entirely paged to disk.

[FILCOM]
File 1) DSKC:LNKHST.MAC[30,4507]        created: 2350 18-Jan-81
File 2) DSKC:LNKHST.MAC[30,5526]        created: 1755 28-Jan-81
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN/PY/MFB   
        19-Jan-81
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN/PY/MFB   
        28-Jan-81
2)      
**************
1)1     DECEVR==1274            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1275            ;DEC EDIT VERSION
2)      
**************
1)6     SUBTTL  THE END
****
2)5     ;1275   PY      SPR 10-30508
2)      ;       Fix core management bug which occurs if an area has
2)      ;       overflowed to disk, has no pages in memory, and is
2)      ;       being expanded on a VM system. This happens to the
2)      ;       Algol symbols area if it has overflowed, causing
2)      ;       the first AS area page to be swapped with the first
2)      ;       LS area page, producing %LNKSFU errors.
2)      ;       Routine: LNKCOR
2)      
2)      
2)6     SUBTTL  THE END
**************

File 1) DSKC:LNKCOR.MAC[30,4507]        created: 1447 24-Jan-80
File 2) DSKC:LNKCOR.MAC[30,5526]        created: 1747 28-Jan-81
 
1)1     SUBTTL  D.M.NIXON/DMN/JLd/JBC/JNG/DZN   16-Jan-80
1)      
****
2)1     SUBTTL  D.M.NIXON/DMN/JLd/JBC/JNG/DZN   28-Jan-81
2)      
**************
1)1     ;COPYRIGHT (C) 1973, 1980 BY DIGITAL EQUIPMENT CORPORATION
1)      
****
2)1     ;COPYRIGHT (C) 1973, 1981 BY DIGITAL EQUIPMENT CORPORATION
2)      
**************
1)1     DECEVR==1230            ;DEC EDIT VERSION
1)      
****
2)1     DECEVR==1275            ;DEC EDIT VERSION
                                                               Page 12


2)      
**************
1)3     
****
2)3     ;1275   Fix core management bug when expanding a zero length are
        a with PAGE.
2)      
**************
1)15            JUMPL   P1,MOVPG1       ;[650] MOVING UP?
****
2)15    ;**;[1275] Add 1 Line after MOVPAG+5 Lines      PY      28-Jan-8
        1
2)              JUMPE   P2,MOVPG4       ;[1275] DON'T MOVE IF AREA CONTA
        INS NO PAGES
2)              JUMPL   P1,MOVPG1       ;[650] MOVING UP?
**************
1)15            SPOP    <P3,P2,P1>      ;[650] RESTORE ACS USED
1)              JRST    ADJTBL          ;[650] GO FIXUP OTHER TAB.XX WOR
        DS
****
2)15    ;**;[1275] Replace 1 Line at MOVPG#+10 Lines    PY      28-Jan-8
        0
2)      MOVPG4: SPOP    <P3,P2,P1>      ;[1275] RESTORE ACS USED
2)              JRST    ADJTBL          ;[650] GO FIXUP OTHER TAB.XX WOR
        DS
**************
[End FILCOMs]