Trailing-Edge
-
PDP-10 Archives
-
BB-H138B-BM
-
4-documentation/link.pco
There are 8 other files named link.pco in the archive. Click here to see a list.
Digital Equipment Corporation 28-AUG-79 Page 1
PCO Log Report
*********************
*PCO #:10-LINK -224*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 25-APR-78
[Programmer] CHEN
[Routines] LNKLOD
[Key Words] KL RELS WRONG MSG
[Source Before Edit] %4 (000765)
[Source After Edit] %4A (000766)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 2
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When mixing KI10 and KL10 compiled code, LINK will
catch the conflict and give an error message, but the
message will complain about mixing KA10 and KI10 compiled
code.
**********
[DIAGNOSIS]
LINK doesn't understand REL files containing the KL10
flag.
**********
[CURE]
Until LINK is taught about KL10 REL files, just treat
them like KI10 REL files.
Digital Equipment Corporation 28-AUG-79 Page 3
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1904 01-Mar-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1932 25-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 27-FEB-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 17-Mar-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==766 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;START OF VERSION 4A
2) ;766 MCHC 17-MAR-78
2) ; Store correct KL code(offset calculated by JFFO) for inc
onsistancy
2) ; check of modules to come.
2) ; LNKLOD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 4
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1329 08-Mar-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1713 25-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC 17-Mar-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==766 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;START OF LINK 4A
2) ;766 Return cpu table offset in P2 from routine CPUTST.
2)5 SUBTTL LOAD CONTROL
**************
1)58 JRST @CPUTBL(T1) ;[752] DISPATCH TO RIGHT TEST
****
2)58 ;**;[766] Insert @ CPUTST+6L MCHC 17-Mar-78
2) MOVE P2,T1 ;[766] OFFSET NEEDED IN P2 AFTER
RETURNED
2) JRST @CPUTBL(T1) ;[752] DISPATCH TO RIGHT TEST
**************
1)58 CPUKA:: TXNN T4,KIBIT ;CANNOT HAVE BOTH KA10 AND KI10
1) POPJ P, ;OK
****
2)58 ;**;[766] Change @ CPUKA MCHC 17-Mar-78
2) CPUKA:: TXNN T4,KIBIT!KLBIT ;[766]CANNOT HAVE BOTH KA10 AND
KI10
2) POPJ P, ;OK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 5
PCO Log Report
*********************
*PCO #:10-LINK -225*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 26-APR-78
[Programmer] CHEN
[Routines] LNKOLD
[Key Words] LOOPING T.1LOW BAD AREA N
[Source Before Edit] %4A (000766)
[Source After Edit] %4A (000767)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 6
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When loading a large program, or one containing PSECTs,
LINK can go into a loop. If /ERR:0 is set, a LNKMOV message
referring to a non-existent or junk area name will probably
be seen.
**********
[DIAGNOSIS]
If the first address LINK sees is above 400000, then it
starts loading relative to the first address seen in an
attempt to save disk overflow time for speed. If an address
below the first one is seen later, then LINK gives up and
overflows to disk.
Unfortunately, the disk overflow routine it calls is a
local routine in LINK's memory manager that is otherwise
only called when LINK is trying to expand and discovers that
it must write a new area to disk in order to do so. In
fact, the routine assumes that it was called under those
conditions, and makes other calls to finish the expansion
process that it thought was in progress before returning to
its caller.
That assumption is not valid in this case, so none of
the memory manager's registers etc. are set up. This causes
the other calls back into the memory manager to "finish" the
expansion to loop.
**********
[CURE]
Before calling the disk overflow routine, set the
memory manager's register containing the number of words to
expand to zero, thus causing it to return immediately,
Digital Equipment Corporation 28-AUG-79 Page 7
PCO Log Report
before it gets into trouble.
Digital Equipment Corporation 28-AUG-79 Page 8
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1932 25-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 2309 25-Apr-1978
1)1 DECEVR==766 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==767 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;767 MCHC 17-MAR-78
2) ; Clear AC P2(required size) when coing forced dump of LC
area,
2) ; which returns through LNKCOR and will cause looping if
2) ; garbage is in it.
2) ; LNKOLD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 9
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1835 01-Mar-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 2133 25-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC 17-Mar-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==767
2) ;LOCAL ACC DEFINITIONS
**************
1)4 COMMENT \
****
2)4 ;START OF LINK V4A
2) ;767 Fix a bug to prevent LINK from looping when forced dump
of lc is done.
2) COMMENT \
**************
1)11 SETZ P3, ;[732]
1) PUSHJ P,LC.DMP## ;[742] FORCE CURRENT WINDOW TO D
ISK
****
2)11 ;**;[767] Change @ T.1LOW+11L MCHC 17-Mar-78
2) SETZ P2, ;[767][732] NO EXPANSION, PREVEN
T LOOPING
2) PUSHJ P,LC.DMP## ;[742] FORCE CURRENT WINDOW TO D
ISK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 10
PCO Log Report
*********************
*PCO #:10-LINK -226*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 27-APR-78
[Programmer] CHEN
[Routines] LNKXIT
[Key Words] LNKCEF AFTER LNKS
[Source Before Edit] %4A (000767)
[Source After Edit] %4A (000770)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 11
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK may fail with the LNKCEF message at the end of
loading, just after the LNKSST message has been typed.
**********
[DIAGNOSIS]
If the area into which the undefined symbol table is to
be loaded is not paging to disk, and if the area cannot be
expanded enough to contain the first word of the undefined
symbol table without overflowing to disk, then LINK will
fail with the LNKCEF message. There is simply no code to
start the appropriate area paging at that point.
**********
[CURE]
Add code to consider the case.
Digital Equipment Corporation 28-AUG-79 Page 12
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2309 25-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1449 27-Apr-1978
1)1 DECEVR==767 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==770 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;770 MCHC 17-MAR-78
2) ; Add code to allow paging for the first time in routine t
o
2) ; output undefined symbols(especially if undefined symbol
table
2) ; does not begin at end of a chunk of code.)
2) ; LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 13
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1503 03-Mar-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1445 27-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 17-Mar-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==770 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;START OF VERSION 4A
2) ;770 Add code to allow first-time paging in und-symbol table
routine.
2)5 SUBTTL ENTER HERE
**************
1)10 MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
****
2)10 ;**;[770] Insert @ UDF0A+1L MCHC 17-Mar-78
2) PUSHJ P,CHKPAG ;[770] INCASE PAGE FOR THE FIRST
TIME
2) MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
**************
1)10 ADD P2,TAB.LB(R) ;IN CORE
1) SUB P2,LW.S0(R) ;REMOVE WINDOW OFFSET
1) CAMG P2,TAB.AB(R) ;ENOUGH CORE?
****
2)10 ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
2) SUB P2,LW.S0(R) ;[770] REMOVE WINDOW OFFSET
2) ADD P2,TAB.LB(R) ;[770] IN CORE
2) CAMG P2,TAB.AB(R) ;ENOUGH CORE?
**************
1)10 PUSHJ P,LNKCOR## ;GET IT
1) PUSHJ P,NO.COR## ;TOTAL FAILURE
1) SKIPN TAB.PG(R) ;[570] PAGING?
****
2)10 ;**;[770] Replace @ UDF0A+12L MCHC 17-Mar-78
2) SETOM LS.PP ;[770] PREVENT OVERFLOW OF LS AR
EA
2) PUSHJ P,LNKCOR## ;GET IT
2) JRST [MOVE P2,USYM ;[770] NO CORE, LOOP BAC
K AND PAGE
Digital Equipment Corporation 28-AUG-79 Page 14
PCO Log Report
2) JRST UDF0A] ;[770]
2) SKIPN TAB.PG(R) ;[570] PAGING?
**************
1)10 UDF0B: PUSHJ P,CHKPAG ;[570] JUST INCASE WE STARTED PA
GING
1) MOVE P2,P4 ;RELATIVE
1) ADD P2,TAB.LB(R) ;FIX IN CORE
1) SUB P2,LW.S0(R) ;REMOVE WINDOW OFFSET
1) UDF1: SKIPGE SYMSEG ;[715] PSECT NAME USED?
1) JRST .+3 ;[715] YES, JUMP
****
2)10 ;**;[770] Delete @ UDF0B MCHC 17-Mar-78
2) UDF0B: MOVE P2,P4 ;RELATIVE
2) ADD P2,TAB.LB(R) ;FIX IN CORE
2) SUB P2,LW.S0(R) ;REMOVE WINDOW OFFSET
2) ;**;[770] Insert @ UDF1 MCHC 17-Mar-78
2) UDF1: SETZM LS.PP ;[770] CLEAR IT
2) SKIPGE SYMSEG ;[715] PSECT NAME USED?
2) JRST .+3 ;[715] YES, JUMP
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 15
PCO Log Report
*********************
*PCO #:20-LINK -004*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 27-APR-78
[Programmer] CHEN
[Routines] LNKCOR
[Key Words] ILL INST POP LOOP MISSING PO
[Source Before Edit] %4A (000770)
[Source After Edit] %4A (000771)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 16
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Illegal Instruction when loading an extremely large
program. This will only happen when running a version of
LINK whose high segment starts above 400000, as it does on
TOPS-20.
**********
[DIAGNOSIS]
LINK's POP loop to move memory areas up can only handle
an area of 377777 words or less. If one of the areas grows
beyond this, then LINK will split the move up into multiple
moves. Unfortunately, the code to do this PUSHes a word
onto the stack that is never POPed back off.
**********
[CURE]
POP the extra word off at the end of the loop.
Digital Equipment Corporation 28-AUG-79 Page 17
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1449 27-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1708 27-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 17-Mar-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 23-Mar-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==770 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==771 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;771 MCHC 23-MAR-78
2) ; Fix bug in doing large( > 400000) pop loop in 2 chunks.
2) ; LNKCOR
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 18
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1959 01-Mar-1978
File 2) LINK:LNKCOR.MAC[10,645063] created: 1718 27-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG 23-Mar-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SALL
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==771 ;DEC EDIT VERSION
2) SALL
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;771 Fix bug with shuffling large( >400000) core segment.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)14 MOVE T4,TAB.AB(T2) ;TOP
****
2)14 ;**;[771] Insert @ MOVUP1+5L MCHC 23-Mar-78
2) PUSH P,T2 ;[771] SAVE WHO WE ARE
2) MOVE T4,TAB.AB(T2) ;TOP
**************
1)14 CAMN T2,[CHUNK1,,0] ;[720] DOING 2 STEPS?
****
2)14 ;**;[771] Insert @ POPLP+2L MCHC 23-Mar-78
2) POP P,T2 ;[771] RESTORE STACK
2) CAMN T2,[CHUNK1,,0] ;[720] DOING 2 STEPS?
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 19
PCO Log Report
*********************
*PCO #:10-LINK -227*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(770)
[Date Entered] 27-APR-78
[Programmer] CHEN
[Routines] LNKXIT
[Key Words] PAT.. AREA NOALLOC
[Source Before Edit] %4A (000771)
[Source After Edit] %4A (000772)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 20
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a PSECT is created just to hold the symbol table,
then the PAT.. area will not be allocated.
**********
[DIAGNOSIS]
This case was never considered.
**********
[CURE]
Allocate the area. This edit requires edit 770 to have
been installed.
Digital Equipment Corporation 28-AUG-79 Page 21
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1708 27-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1833 27-Apr-1978
1)1 DECEVR==771 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==772 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;772 MCHC 23-MAR-78
2) ; Edit 770 did not adjust start of symbol table that came
after
2) ; the undefined symbol table.
2) ; If /SET:FOO:nnnnnn/SYMSEG:PSECT:FOO is used so that a PS
ECT
2) ; was created just for the symbol table, the following sho
uld
2) ; happen:
2) ; PAT..=nnnnnn
2) ; .JBUSY (117)/ -U,,PAT..+100
2) ; where U is the length of undefin
ed symbol table
2) ; .JBSYM (116)/ -L,,PAR..+100+U
2) ; where L is the length of the sym
bol table
2) ; LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 22
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1445 27-Apr-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1831 27-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 17-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 23-Mar-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==770 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==772 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;772 Adjust symbol table pointer to after undefined symbol ta
ble.
2)5 SUBTTL ENTER HERE
**************
1)10 ADDB P4,P2 ;SPACE WE NEED
1) ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
****
2)10 ;**;[772] Change @ UDF0A+5L MCHC 23-Mar-78
2) ADD P2,P4 ;[772] SPACE WE NEED IN P2
2) ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
**************
1)11 JRST GSDLT ;DELETE GLOBAL SYMBOL TABLE
****
2)11 ;**;[772] Insert @ UDFDN+10L MCHC 23-Mar-78
2) SUB P4,TAB.LB(R) ;[772] GET VIRTUAL ADDR OF UNDEF
TABLE
2) ADD P4,LW.S0(R) ;[722] NEED IT LATER FOR SYMBOL
TABLE
2) JRST GSDLT ;DELETE GLOBAL SYMBOL TABLE
**************
1)17 TDZA P4,P4 ;YES, DONE ALREADY
1) MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
****
2)17 ;**;[772] Replace @ LSREQ1+2L MCHC 23-Mar-78
2) JRST .+3 ;[772] YES, AT END OF UND-SYM TA
BLE
2) MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 23
PCO Log Report
*********************
*PCO #:10-LINK -228*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 30-APR-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] LNKPUF ILL MEM GS GONE
[Source Before Edit] %4A (000772)
[Source After Edit] %4A (000773)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 24
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Illegal memory reference or LNKPUF error in LNKXIT when
loading a program using overlays, after the LNKCSF message
has been typed. The LNKCSF message will only appear if
/ERR:0 is set.
**********
[DIAGNOSIS]
If the routine GSDLT is called with the GS area already
gone, then it can leave the UB pointer of the next lower
area pointing beyond .JBREL.
**********
[CURE]
Make GSDLT check to see if the GS area is already gone.
Digital Equipment Corporation 28-AUG-79 Page 25
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1833 27-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1803 30-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 23-Mar-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 30-Apr-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==772 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==773 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;773 JNG 30-Apr-78
2) ; Fix GSDLT in LNKXIT to not leave some area's UB
2) ; pointing beyond .JBREL if the GS area is already gone.
2) ; Routines: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 26
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1831 27-Apr-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1803 30-Apr-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 23-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 30-Apr-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==772 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==773 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;773 Fix GSDLT in case the GS area is already gone.
2)5 SUBTTL ENTER HERE
**************
1)14 MOVEM T2,GS.AB ;RESET TABLE
****
2)14 ;**;[773] Insert @ GSDLT+14L JNG 30-Apr-78
2) SKIPN GS.LB ;[773] GS AREA ALREADY GONE?
2) JRST GSDLT1 ;[773] YES, DON'T RECREATE IT
2) MOVEM T2,GS.AB ;RESET TABLE
**************
1)14 MOVEM T2,TAB.UB(T1) ;RESET HIGHEST FREE LOC AGAIN
1) SETZM GS.LB ;SO XX.ZAP CAN WORK
****
2)14 ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
2) GSDLT1: MOVEM T2,TAB.UB(T1) ;[773] RESET HIGHEST FREE LOC AG
AIN
2) SETZM GS.LB ;SO XX.ZAP CAN WORK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 27
PCO Log Report
*********************
*PCO #:10-LINK -229*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 30-APR-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] ADDR CHECK ADDI 1
[Source Before Edit] %4A (000773)
[Source After Edit] %4A (000774)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-25711
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 28
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an address check error from the monitor
when writing an EXE file. This will only happen if LINK is
paging to disk.
**********
[DIAGNOSIS]
LINK's calculation of the new upper window bound when
advancing to the next window is incorrect, causing a later
OUT UUO to get an address check.
**********
[CURE]
Correct the calculation to not add one to a number
which is already correct.
Digital Equipment Corporation 28-AUG-79 Page 29
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1803 30-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1841 30-Apr-1978
1)1 DECEVR==773 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==774 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;774 JNG 30-Apr-78 SPR 10-25711
2) ; Fix bad calculation of UW in EXE file writer.
2) ; Routines: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 30
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1803 30-Apr-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1843 30-Apr-1978
1)1 DECEVR==773 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==774 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;774 Fix bad calculation of UW in EXE file writer.
2)5 SUBTTL ENTER HERE
**************
1)56 ADDI T3,1 ;
1) MOVEM P3,LW.S0(R) ;[713] RESET BASE TO PROCESS PAG
E
****
2)56 ;**;[774] Delete @ XCMPR4+10L JNG 30-Apr-78
2) MOVEM P3,LW.S0(R) ;[713] RESET BASE TO PROCESS PAG
E
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 31
PCO Log Report
*********************
*PCO #:20-LINK -005*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 02-MAY-78
[Programmer] D. NEFF
[Routines] LNKWLD
[Key Words] START FDDT
[Source Before Edit] %4A (000774)
[Source After Edit] %4A (000775)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-11396
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 32
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK does not ignore the starting address of the user's
FORTRAN program when /DEBUG:FORTRAN is specified. FORDDT always
wants control before the FORTRAN program.
**********
[DIAGNOSIS]
LINK correctly guarantees that FORDDT is loaded after the file
(if any) on which /DEBUG:FORTRAN is specified, thus causing
FORDDT's starting address to override that file's starting address.
But if any later modules with starting addresses are loaded, these
then override FORDDT.
**********
[CURE]
Force starting addresses from all subsequent modules to be
ignored.
Digital Equipment Corporation 28-AUG-79 Page 33
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1841 30-Apr-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1541 02-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 30-Apr-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-May-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==774 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==775 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;775 DZN 1-May-78 SPR 20-11396
2) ; Make sure /DEBUG:FORTRAN loads the starting address of
2) ; FORDDT and not the user's program (unless explicit /STAR
T).
2) ; Routines: LNKWLD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 34
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1436 01-Mar-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 1756 02-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 1-May-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==775 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;775 Make sure /DEBUG:FORTRAN loads the starting address of F
ORDDT.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)19 CAME T1,['FORDDT'] ;SINCE IT NEED ITS SYMBOLS
1) PUSHJ P,%NOLOCAL ;BUT NOT FOR THIS FILE
****
2)19 ;**;[775] Replace @ DEBUG1+23L DZN 1-May-78
2) CAMN T1,['FORDDT'] ;[775] SINCE IT NEED ITS SYMBOLS
2) JRST [MOVSI T2,L.ISA ;[775] FORCE /NOSTART ON
NEW LINES
2) IORM T2,FLAGS ;[775] ..
2) PUSHJ P,.NOSTART ;[775] AND ON THIS LIN
E
2) TRZ FL,R.ISA ;[775] BUT USE FORDDT'
S START
2) JRST .+2] ;[775] LOAD FORDDT'S LOC
ALS
2) PUSHJ P,%NOLOCAL ;BUT NOT FOR THIS FILE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 35
PCO Log Report
*********************
*PCO #:10-LINK -230*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 04-MAY-78
[Programmer] D. NEFF
[Routines] LNKXIT
[Key Words] /SAV JBVER
[Source Before Edit] %4A (000775)
[Source After Edit] %4A (000776)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-23733
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 36
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK gets an address check if all of the following conditions
are met:
1. Loading a program small enough that LINK doesn't need to
page to disk
2. Loading no data into pages 0 or 1
3. Specifying /SAVE to get an EXE file
In this case, LINK is also not outputting the program version to
the EXE file.
**********
[DIAGNOSIS]
The special routine to handle EXE file writing when no data
exists in pages 0 or 1 does not get JOBDAT from the LC area if LINK
didn't have to page to disk. The resulting dump-mode IOWD to write
JOBDAT to the EXE file causes the address check.
Also, the length in the IOWD is set up to output one word too
little. Since .JBVER (the location in JOBDAT containing the
program version) is the last location in JOBDAT, it doesn't get
written.
**********
[CURE]
Check if not paging and if so, get JOBDAT from the LC area.
Also output all of JOBDAT so the program version gets written.
Note that this edit has been superseded by edit 1134, and should
not be installed.
Digital Equipment Corporation 28-AUG-79 Page 37
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1541 02-May-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 0938 04-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-May-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-May-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==775 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==776 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;776 DZN 4-May-78 SPR 10-23733
2) ; Fix address check and lost .JBVER when loading small pro
grams
2) ; with /SAVE and no data in core-image pages 0 or 1.
2) ; Routines: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 38
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1843 30-Apr-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1007 04-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 30-Apr-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-May-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==774 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==776 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;776 Fix /SAVE of small program with no data in pages 0 or 1.
2)5 SUBTTL ENTER HERE
**************
1)55 XCMPRJ: HRR T1,JOBPTR ;[732] OUTPUT JOBDAT DIRECTLY
1) SUBI T1,1 ;[732]
1) HRLI T1,-.JBDA+1 ;[732]
1) OUT DC,T1 ;OUTPUT PAGE 0
****
2)55 XCMPRJ: SKIPE PAG.S1 ;[776] PAGING?
2) SKIPA T1,JOBPTR ;[776] YES--USE IN-MEMORY COPY O
F JOBDAT
2) MOVE T1,LC.LB ;[776] NO--USE LC AREA STRAIGHT
2) SUBI T1,1 ;[732]
2) HRLI T1,-.JBDA ;[776] DUMP OUT JUST JOBDAT
2) OUT DC,T1 ;OUTPUT PAGE 0
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 39
PCO Log Report
*********************
*PCO #:10-LINK -231*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 18-MAY-78
[Programmer] D. NEFF
[Routines] LNKOLD LNKLOD
[Key Words] BAD COM LN
[Source Before Edit] %4A (000776)
[Source After Edit] %4A (000777)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-24008
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 40
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a COMMON block is referenced before it is defined (as in an
assembly program followed by a FORTRAN program), LINK allocates the
size of the COMMON incorrectly.
**********
[DIAGNOSIS]
After defining the COMMON block, LINK calls SY.RF to update
any now-definable symbols. It then allocates the memory for the
COMMON block from its symbol definition. Unfortunately, SY.RF
destroys the pointer to the COMMON block symbol, causing LINK to
get the wrong size.
**********
[CURE]
Save the symbol table pointer over the SY.RF call, and
document SY.RF as not saving P1-P4 to help prevent this kind of bug
in the future.
Digital Equipment Corporation 28-AUG-79 Page 41
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0909 18-May-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 0952 18-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-May-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 18-May-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==776 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==777 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;777 DZN 18-May-78 SPR 10-24008
2) ; Fix allocation of COMMON blocks when a COMMON block is f
irst
2) ; referenced but not defined, then later defined. Also doc
ument
2) ; SY.RF as destroying P1-P4.
2) ; Routines: LNKOLD, LNKLOD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 42
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1441 26-Apr-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 0936 18-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC 17-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 18-May-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==767
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==777 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)4 COMMENT \
****
2)4 ;777 Fix allocation of COMMON when a block is referenced firs
t, defined later.
2)5 COMMENT \
**************
1)96 PUSH P,R ;SAVE R OVER SY.RF
****
2)97 ;**;[777] Insert before T20UN1+6L DZN 18-May-78
2) PUSH P,P2 ;[777] SAVE COMMON SYMBOL OVER S
Y.RF
2) PUSH P,R ;SAVE R OVER SY.RF
**************
1)96 JRST CPOPJ1 ;SKIP RETURN
****
2)97 ;**;[777] Insert before T20UN1+9 DZN 18-May-78
2) POP P,P2 ;[777] RESTORE COMMAND SYMBOL
2) HRRZ P1,@HT.PTR ;[777] AND RECOMPUTE IN CASE I
T'S MOVED
2) JRST CPOPJ1 ;SKIP RETURN
**************
Digital Equipment Corporation 28-AUG-79 Page 43
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1713 25-Apr-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 0948 18-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC 17-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 18-May-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==766 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==777 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;777 Comment SY.RF as destroying P1-P4.
2)5 SUBTTL LOAD CONTROL
**************
1)27 SY.RF:: SOSGE USYM ;DECREMENT UNDEFINED GLOBAL COUN
T
****
2)27 ;P1-P4 ARE NOT SAVED BY THIS ROUTINE
2) SY.RF:: SOSGE USYM ;DECREMENT UNDEFINED GLOBAL COUN
T
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 44
PCO Log Report
*********************
*PCO #:10-LINK -258*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 01-FEB-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BIG EXE ADDR CHECK
[Source Before Edit] %4A (001002)
[Source After Edit] %4A (001003)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 45
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an address check error on TOPS-10 or write
a bad EXE file that is excessively large on TOPS-20 if all
of the following conditions occur:
1. The program being loaded contains no low segment
code or PSECTs other than the job data area,
although it may contain high segment code.
2. The user has requested a runtime DDT symbol table
to be loaded into the low segment (this is the
default on TOPS-20).
3. LINK is writing an EXE file, either because the
program is too large to load into memory, or
because the user has requested it with /SAVE or
/SSAVE.
**********
[DIAGNOSIS]
In this case, LINK has set its lowest location loaded
(LOWLOC) to the base of the high segment if there, or a
random positive number if not. Unfortunately, it does not
update this quantity when it decides to place the symbol
table below anything yet loaded, and the EXE file generator
believes the incorrect value and blows up.
**********
[CURE]
When generating the runtime symbol table, check to see
if it is being placed below any code yet loaded, and update
LOWLOC if so.
Digital Equipment Corporation 28-AUG-79 Page 46
PCO Log Report
Note that this edit has been superseded by edit 1132,
and is only being distributed so that sites encountering
this particular problem can fix it without having to install
all of edit 1132. This edit will not be present in any
future release of LINK, since edit 1132 will be present
instead.
Digital Equipment Corporation 28-AUG-79 Page 47
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507,4] created: 1904 01-Mar-1978
File 2) LINK:LNKHST.MAC[30,3737] created: 1127 01-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 27-FEB-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 1-Feb-79
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1003 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1003 MCHC/JNG 1-Feb-79 SPR 20-12546
2) ; Update LOWLOC in GETSST in case symbol table is lowest t
hing loaded.
2) ; Routine: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 48
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507,4] created: 1503 03-Mar-1978
File 2) LINK:LNKXIT.MAC[30,3737] created: 1120 01-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 1-Feb-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1003 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1003 Avoid address check or large EXE file if symbols only th
ing in low seg.
2)5 SUBTTL ENTER HERE
**************
1)15 POP P,T1 ;[727] RESTORE T1
1) POPJ P,] ;[715] RETURN FROM HERE
IF HIGH/LOW
1) SETZ R, ;[727] YES, HAVE PSECT NAME
****
2)15 ;**;[1003] Replace @ GETSST+7L JNG 1-Feb-79
2) JRST GETS5] ;[1003] GO UPDATE LOWLOC
AND RETURN
2) SETZ R, ;[727] YES, HAVE PSECT NAME
**************
1)15 GETS3: MOVE T1,P4 ;[764] GET START OF THE SYMBOL T
ABLE
1) TRZ T1,777 ;[764] ROUND DOWN TO PAGE BOUND
****
2)15 ;**;[1003] Insert @ GETS3 JNG 1-Feb-79
2) GETS3: MOVEI R,1 ;[1003] SET TO LOW SEGMENT
2) GETS5: MOVE T1,P4 ;[1003] GET START OF THE SYMBOL
TABLE
2) TRZ T1,777 ;[764] ROUND DOWN TO PAGE BOUND
**************
1)15 MOVEI R,1 ;[715] UPDATE SEGMENT#
1) POP P,T1 ;[715] RESTORE AC'S
****
2)15 ;**;[1003] Delete @ GETS3+4L JNG 1-Feb-79
2) POP P,T1 ;[715] RESTORE AC'S
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 49
PCO Log Report
*********************
*PCO #:10-LINK -232*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4(777)
[Date Entered] 29-MAY-78
[Programmer] D. NEFF
[Routines] LNKMAP
[Key Words] MAP IDX DY
[Source Before Edit] %4A (000777)
[Source After Edit] %4A (001100)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-24042
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 50
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK may die with various memory management errors (illegal
memory references, ?LNKRUC, etc.) any time after the map phase
(e.g., in the plotting phase), under the following conditions:
1. Loading an overlaid program
2. Giving names to some, but not all, links
3. Asking for a map
**********
[DIAGNOSIS]
When LINK is finished printing the map, it frees the memory it
used to sort the index of link names (module names in a
non-overlaid program). In freeing this memory, LINK tells its
memory manager to free enough words to sort all link (or module)
names. Unfortunately, the last index printed in the map of an
overlaid program is that of link names, which may be shorter than
the total number of links loaded if some were not given names. In
this case, LINK frees more words than it originally allocated,
leaving free memory messed up. Any later routine allocating memory
may thus die with memory management errors.
**********
[CURE]
Treat the overlay link indexes as special cases, and only free
the last index of module names at the end of the map.
Digital Equipment Corporation 28-AUG-79 Page 51
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0952 18-May-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1005 23-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 18-May-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-May-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==777 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1100 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1000 to 1077 Reserved for Development.
2) ;1100 DZN 23-May-78 SPR 10-24042
2) ; Fix LNKMAP to correctly free the index blocks it uses fo
r sorting,
2) ; to keep the integrity of the DY area.
2) ; Routines: LNKMAP
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 52
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1432 01-Mar-1978
File 2) LINK:LNKMAP.MAC[10,645063] created: 1201 23-May-1978
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG 27-FEG-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 23-May-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1100 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SKIPN T2,PRGNO ;NO. OF PROGRAMS
1) JRST OVMAP1 ;NONE
1) LSH T2,1 ;2 WORDS EACH
1) HRRZ T1,MDLIDX ;GIVE BACK TITLE BUFFER
1) PUSHJ P,DY.RET##
1) OVMAP1: MOVE P1,LNKNO.
****
2)5 ;**;[1100] Delete @ OVMAP0+6L DZN 23-May-78
2) OVMAP1: MOVE P1,LNKNO.
**************
1)49 MAPEND:
1) IFN FTOVERLAY,<
****
2)49 ;**;[1100] Insert before MAPEND DZN 23-May-78
2) MAPEND: SKIPN T2,PRGNO ;[1100] NOW DELETE INDEX BLOCK
2) JRST MAPND0 ;[1100] BUT NOT IF ZERO
2) LSH T2,1 ;[1100] TWO ENTRIES PER MODULE
2) HRRZ T1,MDLIDX ;[1100] GET ADDRESS OF BLOCK
2) JUMPE T1,MAPND0 ;[1100] UNLESS NO SYMBOLS
2) PUSHJ P,DY.RET## ;[1100] AND FREE IT
2) MAPND0:
2) IFN FTOVERLAY,<
**************
1)51 JRST MAPND1
****
2)51 ;**;[1100] Insert before OVXHDR+20L DZN 23-May-78
2) HRRZ T1,MDLIDX ;[1100] FREE INDEX BLOCK FOR LIN
K NAMES
2) HRRZ T2,LNMPTR ;[1100] LENGTH OF BLOCK
2) LSH T2,1 ;[1100] WITH TWO WORDS PER LIN
K NAME
2) PUSHJ P,DY.RET## ;[1100] DO THE WORK
2) JRST MAPND1
Digital Equipment Corporation 28-AUG-79 Page 53
PCO Log Report
**************
1)52 SKIPN T2,PRGNO ;NOW RESTORE INDEX BLOCK
1) JRST MAPRT0 ;BUT NOT IF ZERO
1) LSH T2,1 ;2 WORDS PER ENTRY
1) HRRZ T1,MDLIDX ;ADDRESS OF BLOCK
1) JUMPE T1,MAPRT0 ;WE HAD NO SYMBOLS
1) PUSHJ P,DY.RET##
1) MAPRT0: MOVE T1,LS.LB ;NOW TO MAKE SURE LS.PT IS CORRE
CT
1) ADD T1,LSYM ;BASE + LENGTH
****
2)52 ;**;[1100] Delete @MAPRET+2L DZN 23-May-78
2) MOVE T1,LS.LB ;NOW TO MAKE SURE LS.PT IS CORRE
CT
2) ADD T1,LSYM ;BASE + LENGTH
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 54
PCO Log Report
*********************
*PCO #:10-LINK -233*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 3A(560), 4(765)
[Date Entered] 30-MAY-78
[Programmer] GILBERT
[Routines] LNKOLD LNKLOD LNKWLD LNKLOW
[Key Words] INDEXED LI MAKLIB NO ENTRIES DECTAPE
[Source Before Edit] %4A (001100)
[Source After Edit] %4A (001101)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-23623
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 55
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When searching an indexed library created with MAKLIB, LINK
can get an LNKIRB (LNKILI in version 3A and earlier) error.
This is only possible if some module(s) in the indexed
library contain no entry points. This error will not occur
if such module(s) are removed, or if the index is created
with FUDGE2.
**********
[DIAGNOSIS]
When LINK is searching an indexed library, it assumes
that each module present in the library is also present in
the index. This was true with libraries created by FUDGE2,
but MAKLIB compresses modules that have no entry points out
of the index.
LINK makes this assumption in two ways. First, after
loading some module, if LINK wants to load the next module
in the index, it assumes that it can just continue reading
the REL file, without doing any positioning. Second, after
loading some module, if LINK decides NOT to load the next
module in the index, it remembers the address of the next
module anyway, on the assumption that its input stream
pointers now point there, having just finished with the
module before it.
Since this assumption is no longer true with MAKLIB,
LINK can get confused and start reading at the wrong place
in the library, thus getting LNKIRB errors.
**********
[CURE]
Remove all of the special checks that make this
Digital Equipment Corporation 28-AUG-79 Page 56
PCO Log Report
assumption. Instead, have the low level input routines keep
track of where LINK is in the current REL file, and make the
indexed library processor use this information.
Digital Equipment Corporation 28-AUG-79 Page 57
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1005 23-May-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 2200 29-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-May-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-May-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1100 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1101 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1101 JNG 29-May-78 SPR 10-23623
2) ; Fix LINK to correctly load indexed libraries that contai
n modules
2) ; which have no entry points and thus do not appear in the
index
2) ; when indexed with MAKLIB.
2) ; Routines: LNKOLD,LNKLOD,LNKWLD,LNKLOW
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 58
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 0936 18-May-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 1800 30-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 18-May-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 29-May-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==777 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1101 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1101 Fix searching indexed libraries that have some modules n
ot
2) ; represented in the index.
2)5 COMMENT \
**************
1)87 T.14I: POP P,LSTBLK ;SET UP LSTBLK FOR NEXT PROG
1) PUSHJ P,D.IN1## ;READ FIRST WORD
1) HLRZ T1,W1 ;BLOCK TYPE ONLY
****
2)87 ;**;[1101] Delete @ T.14I JNG 29-May-78
2) T.14I: PUSHJ P,D.IN1## ;READ FIRST WORD
2) HLRZ T1,W1 ;BLOCK TYPE ONLY
**************
1)88 T.14A: TRNE FL,R.INC ;INCLUDE BEING PROCESSED?
1) JRST T.14 ;PROCESS AS IF NO INDEX
****
2)88 ;**;[1101] Insert @ T.14A JNG 29-May-78
2) T.14A: SKIPN XBUF ;[1101] GIVE ERROR IF ALREADY BE
EN HERE
2) TRNE FL,R.INC ;INCLUDE BEING PROCESSED?
2) JRST T.14 ;PROCESS AS IF NO INDEX
**************
1)88 MOVEI T1,1 ;START ON BLOCK 1 (DSK)
1) HRROM T1,LSTBLK ;BUT INDICATE AN INDEX
1) MOVEI T1,DC ;INPUT CHAN #
1) DEVCHR T1,
1) TLNE T1,(DV.DTA) ;IS IT A DTA?
1) HRROS XBUF ;YES, SET SIGNAL
1) T.14J: HRRZ T1,XBUF ;AUX BUFFER
****
2)88 ;**;[1101] Delete @ T.14A+5L JNG 29-May-78
Digital Equipment Corporation 28-AUG-79 Page 59
PCO Log Report
2) T.14J: HRRZ T1,XBUF ;AUX BUFFER
**************
1)88 SETOM LSTLOD ;AND FAKE LAST PROG READ
1) T.14B:: ILDB W3,XBUF+1
****
2)88 ;**;[1101] Delete @ T.14J+6L JNG 29-May-78
2) T.14B:: ILDB W3,XBUF+1
**************
1)88 SKIPN LSTLOD ;WAS LAST PROG LOADED?
1) JRST T.14B ;NO
1) SETZM LSTLOD ;CLEAR FLAG
1) SKIPL XBUF ;ALWAYS SAVE IF DTA???
1) SKIPL LSTBLK ;SKIP IF LAST BLOCK WAS AN INDEX
1) MOVEM W3,LSTBLK ;SAVE POINTER FOR CALCULATIONS
1) JRST T.14B ;GET NEXT PROG
****
2)88 ;**;[1101] Delete @ T.14K+5L JNG 29-May-78
2) JRST T.14B ;GET NEXT PROG
**************
1)89 PUSH P,T1 ;SAVE THIS BLOCK
1) SKIPE LSTLOD ;DID WE LOAD LAST PROG?
1) JRST [SKIPGE LSTBLK ;WAS LAST BLOCK AN INDEX?
1) JRST NXTBLK ;YES, SO GET NEXT ONE
1) POP P,LSTBLK
1) JRST LOAD##] ;NEXT PROG IS ADJACENT
1) SETOM LSTLOD
1) HRRZ W3,LSTBLK ;GET LAST BLOCK NUMBER
****
2)89 ;**;[1101] Delete @ T.14E+10L JNG 29-May-78
2) HRRZ W3,LSTBLK ;GET LAST BLOCK NUMBER
**************
1)89 NXTNDX: SKIPGE XBUF ;DIFFERENT TEST FOR DTA
1) JRST NXTDTA ;CHECK IF NEXT BUFFER IN CORE
****
2)89 ;**;[1101] Change @ NXTNDX JNG 29-May-78
2) NXTNDX: SKIPGE DTAFLG ;[1101] DIFFERENT TEST FOR DTA
2) JRST NXTDTA ;CHECK IF NEXT BUFFER IN CORE
**************
1)90 JRST NEWBLK ;IT IS NOW
1) JRST D.ERR## ;EOF OR ERROR
1) NEWBLK: MOVE T1,(P) ;GET CURRENT BLOCK
1) JUMPL T1,T.14I ;JUST READ AN INDEX
1) HLRZ T1,T1 ;GET WORD COUNT
1) JRST T.14G ;WORD COUNT WILL BE CORRECT
1) THSBLK: SUB T1,LSTBLK ;GET WORD DIFFERENCE
1) MOVS T1,T1 ;INTO RIGHT HALF
1) T.14G: ADDM T1,DCBUF+1
1) MOVN T1,T1
1) ADDM T1,DCBUF+2
Digital Equipment Corporation 28-AUG-79 Page 60
PCO Log Report
1) T.14H: POP P,LSTBLK ;STORE THIS AS LAST BLOCK READ
1) JRST LOAD##
****
2)90 ;**;[1101] Revamp @ NXTBLK+1L JNG 29-May-78
2) JRST THSBLK ;[1101] IT IS NOW
2) JRST D.ERR## ;EOF OR ERROR
2) ;HERE WHEN THE DATA WE WANT IS IN THE CURRENT BUFFER.
2) ;IF WE WERE READING A NEW INDEX (T1.LT.0), THEN GO TO T.14I.
2) ;IF NOT, ADJUST THE BYTE COUNT & PTR TO POINT TO THE START OF
2) ;THE MODULE TO BE LOADED, THEN GO TO LOAD TO LOAD IT.
2) ;T1 CONTAINS MODULE POINTER (WORD,,BLOCK) FOR THIS MODULE.
2) THSBLK: HRRZM T1,LSTBLK ;[1101] WE KNOW WE'RE NOW ON THI
S BLOCK
2) JUMPL T1,T.14I ;[1101] JUMP IF BLOCK CONTAINS A
N INDEX
2) HLRZ T1,T1 ;[1101] NOT AN INDEX, GET WORD O
FFSET
2) HRRZ T2,DCBUF ;[1101] CONSTRUCT NEW BYTE POINT
ER
2) HLL T2,DCBUF+1 ;[1101] LH=LH(OLD BYTE PTR)
2) ADDI T2,1(T1) ;[1101] RH=RH(DCBUF)+OFFSET+1
2) EXCH T2,DCBUF+1 ;[1101] GET OLD PTR, STORE NEW O
NE
2) SUB T2,DCBUF+1 ;[1101] COMPUTE DIFFERENCE TO UP
DATE COUNT
2) ADDM T2,DCBUF+2 ;[1101] UPDATE BYTE COUNT
2) JRST LOAD##
**************
1)90 PUSH P,W3 ;STACK THIS BLOCK
1) HRRZ W3,LSTBLK ;GET LAST BLOCK
****
2)90 ;**;[1101] Replace @ T.14D+2L JNG 29-May-78
2) MOVE T1,W3 ;[1101] -1,,BLOCK # INTO T1 FOR
THSBLK
2) HRRZ W3,LSTBLK ;GET LAST BLOCK
**************
Digital Equipment Corporation 28-AUG-79 Page 61
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 0948 18-May-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1554 30-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 18-May-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 29-May-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==777 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1101 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1101 Keep LSTBLK (last block read from current file) up to da
te.
2)5 SUBTTL LOAD CONTROL
**************
1)86 IN DC, ;INPUT NEXT BUFFER
1) JRST D.IN1 ;AND RETURN
****
2)86 ;**;[1101] Replace @ D.INP+2L JNG 29-May-78
2) PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K
2) JRST D.IN1 ;AND RETURN
**************
1)86 IN DC, ;MORE DATA, PLEASE
1) JRST D.RED1 ;THAT WAS EASY
****
2)86 ;**;[1101] Replace @ D.READ+2L JNG 29-May-78
2) PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K #
2) JRST D.RED1 ;THAT WAS EASY
**************
1)87 EOF:: TRZE FL,R.LOD ;ENS BLOCK SEEN?
****
2)87 ;**;[1101] Insert @ D.READ+7L JNG 29-May-78
2) ;THIS ROUTINE DOES AN IN UUO AND KEEPS TRACK OF THE CURRENT BLOC
K
2) ;NUMBER. BLOCK NUMBER IS RELATIVE (LIKE USETI) ON DISK, ABSOLUT
E
2) ;ON DTA.
2) ;RETURNS +1 IF IN UUO WORKED, +2 IF FAILED (LIKE IN UUO DOES).
2) ;DESTROYS W1 ONLY.
2) D.CNT: SKIPN DTAFLG ;[1101] READING FROM DECtape?
Digital Equipment Corporation 28-AUG-79 Page 62
PCO Log Report
2) JRST D.CNT2 ;[1101] NO, JUST AOS THE COUNT F
OR DISK
2) ;HERE ON DECtape
2) SKIPGE LSTBLK ;[1101] IS THIS THE FIRST IN FRO
M DTA?
2) JRST D.CNT1 ;[1101] YES, MUST GET THE BLOCK
DIFFERENTLY
2) MOVE W1,DCBUF ;[1101] NORMAL CASE, GET PTR TO
NEXT
2) LDB W1,[POINT 18,1(W1),17] ;[1101] OUT OF OLD BUFFE
R
2) MOVEM W1,LSTBLK ;[1101] STORE IN LSTBLK
2) JRST D.CNT3 ;[1101] SKIP DISK'S AOS, GO DO I
N UUO
2) ;HERE ON FIRST IN FROM DECtape. GET FIRST BLOCK NUMBER FROM LOO
KUP
2) D.CNT1: LDB W1,[POINT 10,FEXT,35] ;[1101] ON FIRST IN,
2) MOVEM W1,LSTBLK ;[1101] GET FROM LOOKUP BLOCK
2) JRST D.CNT3 ;[1101] GO DO IN UUO
2) ;HERE ON DISK
2) D.CNT2: AOS LSTBLK ;[1101] ON DISK, JUST AOS LSTBLK
2) D.CNT3: IN DC, ;[1101] DO THE IN UUO
2) POPJ P, ;[1101] SUCCESS, RETURN
2) JRST CPOPJ1 ;[1101] IN UUO SKIPPED, PROPOGAT
E IT
2)88 EOF:: TRZE FL,R.LOD ;ENS BLOCK SEEN?
**************
Digital Equipment Corporation 28-AUG-79 Page 63
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1756 02-May-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 2153 29-May-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 1-May-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 29-May-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==775 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1101 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1101 Set LSTBLK and DTAFLG correctly on new input files.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)7 JRST RETFSP ;RETURN SPACE
1)8 ;HERE TO MERGE NEW FILE SPEC WITH PREVIOUS ONE
****
2)7 ;**;[1101] Insert @ LDFS1+3L JNG 29-May-78
2) SETZM LSTBLK ;[1101] ASSUME BLOCK 0
2) SETZM DTAFLG ;[1101] AND ON DISK (NORMAL CASE
)
2) MOVE T1,IO.CHR ;[1101] GET DEV CHARACTERISTICS
2) TXNN T1,DV.DTA ;[1101] ON DECtape?
2) JRST RETFSP ;RETURN SPACE
2) SETOM DTAFLG ;[1101] ON DECtape, REMEMBER THA
T
2) SETOM LSTBLK ;[1101] FLAG FOR D.CNT IN LNKLOD
2) JRST RETFSP ;[1101] DONE, GO RETURN SPACE
2)8 ;HERE TO MERGE NEW FILE SPEC WITH PREVIOUS ONE
**************
Digital Equipment Corporation 28-AUG-79 Page 64
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 1950 01-Mar-1978
File 2) LINK:LNKLOW.MAC[10,645063] created: 2157 29-May-1978
1)1 UNIVERSAL LNKLOW - LOW SEGMENT DATA MODULE FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 UNIVERSAL LNKLOW - LOW SEGMENT DATA MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC 29-May-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) LOC 137
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1101 ;DEC EDIT VERSION
2) LOC 137
**************
1)3 SUBTTL STORAGE
****
2)2 ;START OF VERSION 4A
2) ;1101 Delete LSTLOD, add DTAFLG.
2)3 SUBTTL STORAGE
**************
1)13 LSTLOD::BLOCK 1 ;INDEX - LAST PROG WAS LOADED
1) LSTBLK::BLOCK 1 ;INDEX - POINTER TO LAST BLOCK L
OADED
****
2)13 ;**;[1101] Replace @ LSTLOD JNG 29-May-78
2) DTAFLG::BLOCK 1 ;[1101] INPUT DEVICE IS DECtape
2) LSTBLK::BLOCK 1 ;INDEX - POINTER TO LAST BLOCK L
OADED
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 65
PCO Log Report
*********************
*PCO #:20-LINK -006*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 19-JUN-78
[Programmer] D. NEFF
[Routines] LNKLOD
[Key Words] LC > 512P
[Source Before Edit] %4A (001101)
[Source After Edit] %4A (001102)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-11085
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 66
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Loading very large programs can cause ?LNKILC errors with
status 20016 (end of file) when a request to load a word early in
the program (such as initializing FORTRAN COMMON) is followed by a
request to load a word within a few pages of 512P.
**********
[DIAGNOSIS]
In the case above, LINK must move the window into the overflow
file from the beginning of the memory image to somewhere near 512P.
In this case, no check is made to keep the window in bounds. Since
all of LINK's subsequent code depends on memory images never
exceeding 512P, it reads in the new window from past the end of the
overflow file.
**********
[CURE]
If the window is about to cross the 512P boundary, slide it
back so the end of the window just fits inside 512P.
Digital Equipment Corporation 28-AUG-79 Page 67
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2200 29-May-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1725 18-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-May-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 18-Jun-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1101 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1102 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1102 DZN 18-Jun-78 SPR 20-11085
2) ; Fix paging routines to detect moving a window past 512P.
In this
2) ; case, make the end of the window set right at 512P.
2) ; Routines: LNKLOD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 68
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1554 30-May-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1743 18-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 29-May-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 18-Jun-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1101 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1102 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1102 Keep window into overflow file in section 0.
2)5 SUBTTL LOAD CONTROL
**************
1)10 ;HERE TO MOVE WINDOW DOWN
1) ;FIRST OUTPUT THE WINDOW, THEN READ BACK WHAT WE NEED
1) ;READ BACK ONLY THE SMALLER OF LN.WD OR CURRENT SIZE
1) ;WE CAN ALWAYS EXPAND IF NEED BE
1) PG.SD: HRLZ T1,LW.S0(R) ;SETUP CONTROL WORD
****
2)10 ;HERE TO MOVE THE WINDOW EITHER UP OR DOWN, BUT WITH NO OVERLAPI
NG. FIRST,
2) ;OUTPUT CURRENT WINDOW, THEN READ BACK THE PORTION WE WILL NEED.
WINDOW
2) ;(POTENTIALLY) SHRINKS TO SMALLER OF LN.WD OR ITS CURRENT SIZE.
IF NEW WINDOW
2) ;ORIGIN PLUS LENGTH EXCEEDS 512P IN THE FILE'S ADDRESS SPACE, SL
IDE THE WINDOW
2) ;DOWN JUST ENOUGH SO IT ENDS AT 512P.
2) PG.SD: HRLZ T1,LW.S0(R) ;SETUP CONTROL WORD
**************
1)10 MOVEM T2,UW.S0(R) ;[717]
****
2)10 ;**;[1102] Insert before PG.SD+13L DZN 18-Jun-78
2) TLNE T2,-1 ;[1102] BUT IS WINDOW NOW PAST 5
12P?
2) JRST [SUBI T2,-1 ;[1102] YES--COMPUTE HOW
MUCH WE'RE OVER
2) SUB T2,LW.S0(R) ;[1102] MOVE WINDOW DOWN
BY THAT MUCH
2) MOVNM T2,LW.S0(R) ;[1102] ..
2) MOVEI T2,-1 ;[1102] TOP OF WINDOW IS
Digital Equipment Corporation 28-AUG-79 Page 69
PCO Log Report
NOW AT 512P
2) JRST .+1] ;[1102] CONTINUE WITH SA
ME WINDOW SIZE
2) MOVEM T2,UW.S0(R) ;[717]
**************
1)10
1)11 ;HERE TO MOVE WINDOW UP IN CORE
****
2)11 ;HERE TO MOVE WINDOW UP IN CORE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 70
PCO Log Report
*********************
*PCO #:10-LINK -234*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 3A, 4, TESTED IN 4(765)
[Date Entered] 20-JUN-78
[Programmer] D. NEFF
[Routines] LNKLOD
[Key Words] ZRO PRGPTR
[Source Before Edit] %4A (001102)
[Source After Edit] %4A (001103)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 71
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The observed symptom was LINK going into a loop after loading
the first link after the root in an overlaid COBOL version 12
program. However, a wide variety of errors are possible, all
related to LINK's dynamic area free list getting trashed. The
dependency on COBOL is caused by use of .REQUEST/.REQUIRE (REL
block types 16 and 17) which COBOL version 11 did not use.
**********
[DIAGNOSIS]
At the end of loading the root, LINK frees its list of
.REQUEST/.REQUIRE blocks, following their processing.
Unfortunately, the pointer to the now free list was not cleared,
causing LINK to free the same blocks again at the end of loading
the next link.
**********
[CURE]
Zero the pointer to the .REQUEST/.REQUIRE list after freeing
its contents.
Digital Equipment Corporation 28-AUG-79 Page 72
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1725 18-Jun-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1752 19-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 18-Jun-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 19-Jun-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1102 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1103 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1103 DZN 19-Jun-78
2) ; See that the list of .REQUEST/.REQUIRE blocks is not fre
ed twice,
2) ; to preserve the integrety of the DY area.
2) ; Routines: LNKLOD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 73
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1743 18-Jun-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1751 19-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 18-Jun-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 19-Jun-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1102 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1103 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1103 Zero the .REQUEST/.REQUIRE list pointer after freeing it
s contents.
2)5 SUBTTL LOAD CONTROL
**************
1)71 B16NOT: PJRST COR.FX ;FIXUP ALL CODE CHAINS
****
2)71 ;**;[1103] Insert before B16NOT DZN 19-Jun-78
2) SETZM PRGPTR ;[1103] REMEMBER THAT WE'RE DONE
2) B16NOT: PJRST COR.FX ;FIXUP ALL CODE CHAINS
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 74
PCO Log Report
*********************
*PCO #:10-LINK -235*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 20-JUN-78
[Programmer] GILBERT
[Routines] LNKCOR
[Key Words] ADDR CHECK EDIT 750
[Source Before Edit] %4A (001103)
[Source After Edit] %4A (001104)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-25712
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 75
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an address check error when loading an
extremely large program, or when loading in a restricted
amount of core on TOPS-10.
**********
[DIAGNOSIS]
When LINK decides to overflow the LC or HC areas to
disk, it tries to move about half of the area into the
overflow file. If half of the area is less than LINK's
default internal window size, then LINK tries to move at
least that much into the file. Unfortunately, if the entire
area is also smaller than LINK's internal window size, then
LINK tries to shrink the area by more pages than the area
contains. This results in an OUT UUO with a positive IOWD,
with the resulting address check.
**********
[CURE]
Remove the code that attempts to do this, since there
is no harm in the window being too small (it will grow as
required). It is necessary to output at least one page, but
this will never cause the above problem, since the area to
be output is always at least one page long.
This edit removes part of edit 750, and restores the
affected area of code to the way it looked in LINK version
3A and earlier.
Digital Equipment Corporation 28-AUG-79 Page 76
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1752 19-Jun-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1331 20-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 19-Jun-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 20-Jun-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1103 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1104 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1104 JNG 20-Jun-78
2) ; Fix address checks when dumping LC or HC area to disk.
Remove
2) ; edit 750 in LH.DMP, so we will never try to shrink the c
urrent
2) ; area by more pages than the area has.
2) ; Routines: LNKCOR
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 77
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1718 27-Apr-1978
File 2) LINK:LNKCOR.MAC[10,645063] created: 1337 20-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG 23-Mar-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG 20-Jun-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==771 ;DEC EDIT VERSION
1) SALL
****
2)1 DECEVR==1104 ;DEC EDIT VERSION
2) SALL
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1104 Remove part of edit 750 from LH.DMP to fix address check
s.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)61 CAIGE T2,.IWS ;[750] IN CASE ONLY RESERVE WIND
OW SIZE
1) MOVEI T2,.IWS ;[750]
1) SUBI T1,-1(T2) ;GET NEW BOTTOM WINDOW BOUND
****
2)61 ;**;[1104] Change @ LH.SET+1P8L JNG 20-Jun-78
2) CAIGE T2,.IPS ;[1104] IN CASE 1/2 IS .LT. 1 PA
GE,
2) MOVEI T2,.IPS ;[1104] DUMP ONE PAGE TO MARK
PAGING
2) SUBI T1,-1(T2) ;GET NEW BOTTOM WINDOW BOUND
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 78
PCO Log Report
*********************
*PCO #:10-LINK -236*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 20-JUN-78
[Programmer] GILBERT
[Routines] LNKFIO
[Key Words] SFDS
[Source Before Edit] %4A (001104)
[Source After Edit] %4A (001105)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 79
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK version 4 cannot find input files if they appear
in an SFD whose top-level directory is different than the
user's default path.
**********
[DIAGNOSIS]
Edit 740 destroyed an AC that contained the UFD. This
AC is later used to set up a path block if the path
specified includes SFDs.
**********
[CURE]
Move edit 740 up two lines, to before the AC has been
set up.
Digital Equipment Corporation 28-AUG-79 Page 80
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1331 20-Jun-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1534 20-Jun-1978
1)1 DECEVR==1104 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1105 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1105 JNG 20-Jun-78
2) ; Fix edit 740 to not destroy an AC that held the input fi
le's PPN.
2) ; This caused LINK to not be able to find a file when the
user gave
2) ; an explicit path including SFDs.
2) ; Routines: LNKFIO
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 81
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1500 03-Mar-1978
File 2) LINK:LNKFIO.MAC[10,645063] created: 1512 20-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH 20-Jun-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1105 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;START OF VERSION 4A
2) ;1105 Fix edit 740 to not destroy the path to the file if it i
ncludes SFDs.
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
1)7 MOVE T2,F.DIR(P1) ;DIRECTORY
1) MOVEM T2,UFDPPN
1) MOVE T2,F.VER(P1) ;[740] VERSION NUMBER SPECIFIED
FOR INPUT FILE
1) CAME T2,[-1,,-1] ;[740] IF -1 MEANS SCAN SAW NOTH
ING
1) MOVEM T2,VERNUM ;[740] USED TO SET GLOBAL DEFAUL
T VERSION.
1) IFN LN.DRB,< ;IF ALLOWED FOR SFD'S
****
2)7 ;**;[1105] Move up from below @ DVINP.+9L JNG 20-Jun-7
8
2) MOVE T2,F.VER(P1) ;[1105] VERSION NUMBER SPECIFIED
FOR INPUT FILE
2) CAME T2,[-1] ;[1105] IF -1 MEANS SCAN SAW NOT
HING
2) MOVEM T2,VERNUM ;[1105] USED TO SET GLOBAL DEFAU
LT VERSION.
2) MOVE T2,F.DIR(P1) ;DIRECTORY
2) MOVEM T2,UFDPPN
2) IFN LN.DRB,< ;IF ALLOWED FOR SFD'S
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 82
PCO Log Report
*********************
*PCO #:10-LINK -237*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 27-JUN-78
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] PSECT EXE FILE TOO SHORT
[Source Before Edit] %4A (001105)
[Source After Edit] %4A (001106)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 83
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When LINK is asked to write an EXE file, the last few
pages of the low segment may not get written into the file.
This will only happen if the last thing in the low segment
is a PSECT that ends with a BLOCK statement. The words
represented by the BLOCK may be lost.
**********
[DIAGNOSIS]
LINK will only write the low segment as far as HL.S1,
the pointer to the last location in the low segment, tells
it to. Unfortunately, this location is incorrect if the
last thing in the low segment is a PSECT.
**********
[CURE]
Make sure that this word is at least as big as the end
of the highest PSECT loaded.
Digital Equipment Corporation 28-AUG-79 Page 84
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1534 20-Jun-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 0313 27-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 20-Jun-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 27-Jun-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1105 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1106 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1106 JNG 27-Jun-78 QAR RDH
2) ; Update HL.S1 from RC.CV of the highest PSECT loaded at t
he end of
2) ; loading. This causes the EXE file generator to allocate
all of
2) ; the pages that it should if the last PSECT ends with a B
LOCK statement.
2) ; Routines: LNKLOD
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 85
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1751 19-Jun-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 0317 27-Jun-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 19-Jun-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 27-Jun-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1103 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1106 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1106 Update HL.S1 from RC.CV of the highest PSECT loaded.
2)5 SUBTTL LOAD CONTROL
**************
1)69 CHKLL1: MOVE R2,RC.NO ;[760] USED IN CHKBND FOR LOOP C
ONTROL
1) ; JRST CHKBND ;[760]
****
2)69 ;FALL THROUGH TO NEXT PAGE
2)70 ;HERE TO UPDATE HL.S1 FROM PSECT INFO, IF NEEDED
2) ;**;[1106] Insert @ CHKLL1 JNG 27-Jun-78
2) CHKLL1: MOVE R,RC.NO ;[1106] POINT TO HIGHEST PSECT
2) CHKLL2: MOVE T1,@RC.TB ;[1106] GET POINTER TO THIS RC B
LOCK
2) MOVE T2,RC.SG(T1) ;[1106] GET SEGMENT NUMBER
2) CAIN T2,1 ;[1106] LOW SEG?
2) JRST CHKLL3 ;[1106] GOT HIGHEST PSECT, GO FI
X HL.S1
2) SOJGE R,CHKLL2 ;[1106] NO, LOOP OVER OTHER RELO
C. COUNTERS
2) JRST CHKLL4 ;[1106] NONE FOUND, DONE
2) ;HERE WHEN WE HAVE FOUND THE HIGHEST RC IN THE LOW SEG (A PSECT)
2) CHKLL3: SKIPN T2,RC.HL(T1) ;[1106] GET HL IF AVAILABLE
2) MOVE T2,RC.CV(T1) ;[1106] OR CV IF ITS NOT
2) CAMLE T2,HL.S1 ;[1106] POINT BEYOND CURRENT HL.
S1?
2) MOVEM T2,HL.S1 ;[1106] YES, UPDATE WITH NEW VAL
UE
2) CHKLL4: MOVE R2,RC.NO ;[1106] USED IN CHKBND FOR LOOP
CONTROL
2) ; JRST CHKBND ;[760]
**************
Digital Equipment Corporation 28-AUG-79 Page 86
PCO Log Report
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 87
PCO Log Report
*********************
*PCO #:10-LINK -239*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 04-AUG-78
[Programmer] CHEN
[Routines] LNKWLD
[Key Words] LNKPOV BAD NAME CORE MGMT
[Source Before Edit] %4A (001106)
[Source After Edit] %4A (001107)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 88
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Could be anything, including LNKRUC errors, illegal
memory references, etc. The observed symptom was a bad
PSECT name typed out as part of the LNKPOV message. This
will only happen when loading a program that contains more
than ten PSECTs.
**********
[DIAGNOSIS]
When LINK's PSECT table fills up, LINK deallocates it
and allocates a new larger one. Edit 706 (included in LINK
4) added a new PSECT table, thus requiring LINK to free up
and reallocate two tables. Unfortunately, the new code got
confused, thus freeing up the same block twice.
**********
[CURE]
Instead of doing two allocations followed by two
deallocations, do two allocation/deallocation sequences, and
fix the register usage to keep all the required information
around.
Digital Equipment Corporation 28-AUG-79 Page 89
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0313 27-Jun-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1619 03-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 27-Jun-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 3-Aug-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1106 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1107 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)5 ;1107 MCHC 3-Aug-78
2) ; Fix bug in .SETEX--routine to expand RC.TB and RC.NTB ta
bles
2) ; in DY area by obtaining bigger spaces, copying the data
from
2) ; the old tables, and freeing the old table spaces.
2) ; The bug was in address calculation in freeing one of the
tables.
2) ; The code is re-arranged to do a DY.GET followed by DY.RE
T
2) ; then another DY.GET and DY.RET
2) ; LNKWLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 90
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 2153 29-May-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 1613 03-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 29-May-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 3-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1101 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1107 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1107 Fix bug with .SETEX routine to expand RC.TB and RC.NTB t
ables
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)40 POP P,T2 ;[706]
****
2)40 ;**;[1107] Insert @ .SETEX+8L MCHC 3-Aug-78
2) SUBI T2,RC.INC(T1) ;[1107] GET OLD LENGTH
2) MOVE T3,RC.NTB ;[1107] CURRENT POSITION
2) HRRM T1,RC.NTB ;[1107] NEW
2) HRRZ T1,T3 ;[1107] OLD
2) PUSHJ P,DY.RET ;[1107] RETURN SPACE
2) POP P,T2 ;[706]
**************
1)40 PUSHJ P,DY.RET ;[706] RETURN SPACE
1) MOVE T3,RC.NTB ;[706] CURRENT
1) HRRM T1,RC.NTB ;[706] NEW
1) HRRZ T1,T3 ;[706] OLD
1) PJRST DY.RET## ;RETURN SPACE
****
2)40 ;**;[1107] Delete @ .SETEX+20L MCHC 3-Aug-78
2) PJRST DY.RET## ;RETURN SPACE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 91
PCO Log Report
*********************
*PCO #:10-LINK -238*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 27-JUN-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BETTER MSG LNKPOV PSECT NAME
[Source Before Edit] %4A (001107)
[Source After Edit] %4A (001110)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 92
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The NPS message does not tell the user what PSECT it
was looking for.
**********
[DIAGNOSIS]
No code.
**********
[CURE]
Add the PSECT name to the end of the message.
Digital Equipment Corporation 28-AUG-79 Page 93
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1619 03-Aug-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1339 07-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 3-Aug-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 7-Aug-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1107 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1110 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1110 MCHC 7-Aug-78
2) ; Type out the PSECT name as part of the error message whe
n a
2) ; non-existent one is used with /SYMSEG in GETSST routine.
2) ; Don't clear the name from memory cell, loop back without
restoring the
2) ; stack and treat this case as a default case.
2) ; LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 94
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1007 04-May-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1348 07-Aug-1978
1)1 DECEVR==776 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1110 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1110 Output PSECT name as part of error message in GETSST.
2)5 SUBTTL ENTER HERE
**************
1)15 JRST [SKIPGE T1,SYMLIM ;[727] HAVE A DEFAULT LI
MIT?
1) HRRZM T1,SYMLIM ;[727] YES, MAKE IT THE
LIMIT
****
2)15 ;**;[1110] Add label @ GETSST+2L MCHC 7-Aug-78
2) GETS0: JRST [SKIPGE T1,SYMLIM ;[1110][727] HAVE A DEFA
ULT LIMIT?
2) HRRZM T1,SYMLIM ;[727] YES, MAKE IT THE
LIMIT
**************
1)15 .ERR. (MS,,V%M,L%W,S%W,NPS,<NON-EXISTENT PSECT SPECIFI
ED>)
1) SETZM SSGNAM ;[715]
1) MOVEI R,1 ;[715] SET TO LOW
1) MOVEM SYMSEG ;[715]
1) POP P,T1 ;[715] RESTORE AC'S
1) JRST GETSST+1 ;[715] AND LOOP BACK
1) GETS2: MOVE T2,RC.CV(T1) ;[715] GET HIGHEST LOCATION
****
2)15 ;**;[1110] Change @ GETS1+7L MCHC 7-Aug-78
2) .ERR. (MS,.EC,V%M,L%W,S%W,NPS,<NON-EXISTENT PSECT SPEC
IFIED -- >) ;[1110]
2) .ETC. (SBX,.EP,,,,SSGNAM) ;[1110] OUTPUT PSECT NAM
E
2) MOVEI R,1 ;[715] SET TO LOW
2) MOVEM SYMSEG ;[715]
2) JRST GETS0 ;[1110][715] AND LOOP BACK
2) GETS2: MOVE T2,RC.CV(T1) ;[715] GET HIGHEST LOCATION
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 95
PCO Log Report
*********************
*PCO #:10-LINK -240*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(772)
[Date Entered] 15-AUG-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] ADDR CHECK EDIT 772
[Source Before Edit] %4A (001110)
[Source After Edit] %4A (001111)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 96
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When edit 772 is installed, LINK can die with I/O to
unassigned channel errors when writing an EXE file.
**********
[DIAGNOSIS]
The left half of P2 and P4 are left set up with junk,
so address compares fail.
**********
[CURE]
Zero the left halves.
Digital Equipment Corporation 28-AUG-79 Page 97
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1339 07-Aug-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1625 07-Aug-1978
1)1 DECEVR==1110 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1111 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1111 MCHC 7-Aug-78
2) ; Fix LNKXIT core management bug introduced by edit 772.
2) ; LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 98
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1348 07-Aug-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1617 07-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-May-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 7-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1110 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1111 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1111 Fix core management bug introduced by edit 772.
2)5 SUBTTL ENTER HERE
**************
1)17 MOVE P2,P4 ;COPY INCASE NOT ENOUGH
****
2)17 ;**;[1111] Change @ LSREQ1+5L MCHC 7-Aug-78
2) HRRZS P2,P4 ;[1111] COPY RH IN CASE NOT ENOU
GH
2) MOVE P2,P4 ;COPY INCASE NOT ENOUGH
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 99
PCO Log Report
*********************
*PCO #:10-LINK -241*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 15-AUG-78
[Programmer] GILBERT
[Routines] LNKPAR LNKMAP
[Key Words] MAP FENCEPOST OFF BY 1
[Source Before Edit] %4A (001111)
[Source After Edit] %4A (001112)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-25902
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 100
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a segment is exactly a multiple of 1000 words long,
then the LINK map will report that it is one P (or K on KA
systems) longer than it really is, and the number of words
free in the segment will be reported as 512 instead of zero.
**********
[DIAGNOSIS]
LINK rounds up to the next 1P boundary by oring in 777,
and then adding one. This gives incorrect results for a
number already on a page boundary.
**********
[CURE]
Round up by adding 777, then truncating to a 1P
boundary.
Digital Equipment Corporation 28-AUG-79 Page 101
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1625 07-Aug-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1427 15-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 7-Aug-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Aug-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1111 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1112 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1112 JNG 15-Aug-78 SPR 10-25902
2) ; Fix one off bugs in map printing segment lengths in K/P
and
2) ; words free.
2) ; Routines: LNKPAR, LNKMAP
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 102
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1434 01-Mar-1978
File 2) LINK:LNKPAR.MAC[10,645063] created: 1422 15-Aug-1978
1)1 UNIVERSAL LNKPAR - PARAMETERS FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH 27-Feb-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 UNIVERSAL LNKPAR - PARAMETERS FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH 15-Aug-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1112 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)5 ;START OF VERSION 4A
2) ;1112 Insert the ADD. macro.
2)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)22 OPDEF IOR. [IORI] ;IMMEDIATE MODE
****
2)22 ;**;[1112] Insert @ IOR. definition under IFN TOPS20 JNG
15-Aug-78
2) OPDEF ADD. [ADDI] ;[1112] IMMEDIATE MODE
2) OPDEF IOR. [IORI] ;IMMEDIATE MODE
**************
1)22 OPDEF IOR. [IOR] ;FROM MEMORY
****
2)22 ;**;[1112] Insert @ IOR. definition under IFE TOPS20 JNG
15-Aug-78
2) OPDEF ADD. [ADD] ;[1112] FROM MEMORY
2) OPDEF IOR. [IOR] ;FROM MEMORY
**************
Digital Equipment Corporation 28-AUG-79 Page 103
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1201 23-May-1978
File 2) LINK:LNKMAP.MAC[10,645063] created: 1408 15-Aug-1978
1)1 TITLE LNKMAP - MAP MODULE FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 23-May-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LNKMAP - MAP MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 15-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1100 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1112 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL HEADER LINES
****
2)3 ;START OF VERSION 4A
2) ;1100 Don't free up a different size title buffer than we allo
cated.
2) ;1112 Get words free and segment lengths in K/P right in the m
ap.
2)4 SUBTTL HEADER LINES
**************
1)6 IFN TOPS20,<
1) JUMPE T1,.+3 ;LEAVE 0 ALONE
1) IORI T1,.PGSIZ ;ALWAYS PAGES
1) ADDI T1,1
1) >
1) IFE TOPS20,<
1) MOVE T2,.PGSIZ ;P OR K BOUND
1) JUMPE T1,.+3 ;LEAVE 0 ALONE
1) IOR T1,T2
1) ADDI T1,1
1) CAIE T2,777 ;PAGES?
****
2)7 ;**;[1112] Replace @ SGSTF0+24L JNG 15-Aug-78
2) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
2) ANDCM. T1,.PGSIZ ;[1112] ..
2) IFE TOPS20,<
2) MOVE T2,.PGSIZ ;[1112] GET THIS SYSTEM'S PAGE S
IZE
2) CAIE T2,777 ;PAGES?
**************
1)9 IFN TOPS20,<
1) JUMPE T1,.+3 ;LEAVE 0 ALONE
1) IORI T1,.PGSIZ ;ALWAYS PAGES
Digital Equipment Corporation 28-AUG-79 Page 104
PCO Log Report
1) ADDI T1,1
1) >
1) IFE TOPS20,<
1) MOVE T2,.PGSIZ ;P OR K BOUND
1) JUMPE T1,.+3 ;LEAVE 0 ALONE
1) IOR T1,T2
1) ADDI T1,1
1) CAIE T2,777 ;PAGES?
****
2)10 ;**;[1112] Replace @ SEGSTF+21L JNG 15-Aug-78
2) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
2) ANDCM. T1,.PGSIZ ;[1112] ..
2) IFE TOPS20,<
2) MOVE T2,.PGSIZ ;[1112] GET THIS SYSTEM'S PAGE S
IZE
2) CAIE T2,777 ;PAGES?
**************
1)11 IOR. T1,.PGSIZ ;ROUND UP TO NEXT P OR K
1) SUB T1,HL.S1 ;FIND WHATS LEFT
1) ADDI T1,1
1) PUSHJ P,.TDECW## ;PRINT IN DECIMAL
****
2)12 ;**;[1112] Replace @ SEGDN+2L JNG 15-Aug-78
2) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
2) ANDCM. T1,.PGSIZ ;[1112] ..
2) SUB T1,HL.S1 ;FIND WHATS LEFT
2) PUSHJ P,.TDECW## ;PRINT IN DECIMAL
**************
1)11 IOR. T1,.PGSIZ
1) SUB T1,HL.S2
1) ADDI T1,1
1) PUSHJ P,.TDECW##
****
2)12 ;**;[1112] Replace @ SEGDN+13L JNG 15-Aug-78
2) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
2) ANDCM. T1,.PGSIZ ;[1112] ..
2) SUB T1,HL.S2
2) PUSHJ P,.TDECW##
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 105
PCO Log Report
*********************
*PCO #:20-LINK -007*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 30-AUG-78
[Programmer] D. NEFF
[Routines] LNKPLT LNKCOR LNKXIT LNKERR
[Key Words] PLOT NO LC
[Source Before Edit] %4A (001112)
[Source After Edit] %4A (001113)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-12001
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 106
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When loading an overlaid program and asking for a plot of the
overlay tree, LINK dies with various errors, usually an illegal
memory reference. This error is more common when the overlay tree
is printed in line printer format, or if the tree is very large.
**********
[DIAGNOSIS]
LINK is trying to expand memory while plotting the tree, and
tries to move the LC area for more room. However, plotting is done
after everything else, so no LC area exists. On TOPS-20, this is
compounded by LINK's memory manager believing that it has expanded
as much as possible, even though the plotting code has shrunk back.
**********
[CURE]
Change LINK's memory manager to give LNKCEF if it has expanded
as much as it can, and there are no areas that can be moved or
paged out. On TOPS-20, see that LINK really does not shrink back
until final program placement, so that the memory manager's
assumptions are true. Finally, add a new message, LNKPOT, to
inform the user when LINK is plotting the overlay tree.
Digital Equipment Corporation 28-AUG-79 Page 107
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1427 15-Aug-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1533 25-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Aug-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 25-Aug-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1112 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1113 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1113 DZN 25-Aug-78 SPR 20-12001
2) ; Fix memory management problems when plotting the overlay
2) ; tree. See that LINK never shrinks back on TOPS-20 until
final
2) ; placement of the loaded program. Add LNKPOT message to t
ell user
2) ; when LINK is plotting the overlay tree.
2) ; Routines: LNKCOR, LNKXIT, LNKPLT, LNKERR
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 108
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1337 20-Jun-1978
File 2) LINK:LNKCOR.MAC[10,645063] created: 1235 30-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG 20-Jun-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 25-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1104 ;DEC EDIT VERSION
1) SALL
****
2)1 DECEVR==1113 ;DEC EDIT VERSION
2) SALL
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1113 Fix memory bugs when writing overlay tree.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)41 LCOVF: MOVE T1,LC.AB ;[650] FIND SIZE
1) SUB T1,LC.LB ;[650]
****
2)41 ;**;[1113] Insert before LCOVF DZN 25-Aug-78
2) LCOVF: SKIPN LC.LB ;[1113] LAST CHANCE--IS THERE AN
LC AREA?
2) JRST NO.COR ;[1113] NO--JUST RAN OUT OF LUCK
2) MOVE T1,LC.AB ;[650] FIND SIZE
2) SUB T1,LC.LB ;[650]
**************
Digital Equipment Corporation 28-AUG-79 Page 109
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1428 01-Mar-1978
File 2) LINK:LNKERR.MAC[10,645063] created: 1235 30-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1113 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL FIND MESSAGE
****
2)2 ;1113 Add long message for LNKPOT.
2)3 SUBTTL FIND MESSAGE
**************
1)9 PSF 31 31 Polish symbol fixups not yet implemented
****
2)9 POT 1 1 Plotting overlay tree
2) PSF 31 31 Polish symbol fixups not yet implemented
**************
1)10 HASH PSF,0,<^_
****
2)10 ;**;[1113] Insert in long messages before LNKPSF message
DZN 25-Aug-78
2) HASH POT,0,<^_
2) LINK is creating your overlay tree file.>
2) HASH PSF,0,<^_
**************
Digital Equipment Corporation 28-AUG-79 Page 110
PCO Log Report
[FILCOM]
File 1) LINK:LNKPLT.MAC[30,4507] created: 1439 07-Mar-1978
File 2) LINK:LNKPLT.MAC[10,645063] created: 1727 25-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SALL
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1113 ;DEC EDIT VERSION
2) SALL
**************
1)3 SUBTTL BLISS CONVENTIONS
****
2)2 ;1113 Don't shrink back on TOPS-20, and add LNKPOT message.
2)3 SUBTTL BLISS CONVENTIONS
**************
1)5 ZAPTMP ;CLEAR TEMP AREA
****
2)5 ;**;[1113] Insert after LNKPLT DZN 25-Aug-78
2) .ERR. (MS,0,V%L,L%I,S%I,POT,<Plotting overlay tree>)
2) ZAPTMP ;CLEAR TEMP AREA
**************
1)5 CORE T1, ;CUT BACK
1) JFCL ;TOO BAD
1) MOVE T1,DY.UB ;PREVIOUS UPPER BOUND
****
2)5 ;**;[1113] Insert after LNKPLT+4L DZN 25-Aug-78
2) IFN TOPS20,< ;[1113] SHRINK THEN EXPAND TO SA
ME SIZE ON TOPS-20
2) MOVE T2,.JBREL ;[1113] REMEMBER HOW BIG WE ARE
2) CORE T1, ;[1113] SHRINK TO KILL PAGES
2) JFCL ;[1113]
2) MOVE T1,T2 ;[1113] NOW GROW TO OLD SIZE WIT
H EMPTY PAGES
2) >
2) CORE T1, ;[1113] SHRINK ON TOPS-10, GROW
ON TOPS-20
2) JFCL ;TOO BAD
2) SETZM CORFUL ;[1113] ALLOW LNKCOR TO WORK HAR
D FOR US
2) MOVE T1,DY.UB ;PREVIOUS UPPER BOUND
**************
Digital Equipment Corporation 28-AUG-79 Page 111
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1617 07-Aug-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1709 25-Aug-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 7-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Aug-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1111 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1113 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1113 See that LINK doesn't shrink on TOPS-20 until really nec
essary.
2)5 SUBTTL ENTER HERE
**************
1)14 GSDLT: SKIPN .JBDDT(T1) ;SEE IF WE NEED LOCAL SYMBOLS
1) SKIPE SYMSEG ;EITHER FOR /DEB OR /SYMSEG
****
2)14 ;**;[1113] Change @GSDLT DZN 25-Aug-78
2) GSDLT:
2) IFE TOPS20,< ;[1113] DON'T SHRINK BACK ON TOP
S-20
2) SKIPN .JBDDT(T1) ;SEE IF WE NEED LOCAL SYMBOLS
2) SKIPE SYMSEG ;EITHER FOR /DEB OR /SYMSEG
**************
1)14 GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
****
2)14 ;**;[1113] Change @GSNRED DZN 25-Aug-78
2) > ;END OF IFE TOPS20
2) GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
**************
1)84 CAMG T1,.JBREL ;DO WE HAVE ENOUGH ALREADY?
****
2)84 ;**;[1113] Insert after JBCC+19L DZN 25-Aug-78
2) IFE TOPS20,< ;[1113] SEE IF WE CAN EXPAND ON
TOPS-10
2) CAMG T1,.JBREL ;DO WE HAVE ENOUGH ALREADY?
**************
1)84 ;FALL INTO JBGC TO READ IN READ
IN REST OF TEMP FILE
****
2)84 ;**;[1113] Insert after JBCC+28L DZN 25-Aug-78
2) >
2) IFN TOPS20,< ;[1113] WE'RE AS BIG AS WE CAN G
Digital Equipment Corporation 28-AUG-79 Page 112
PCO Log Report
ET ON TOPS-20
2) CAMLE T1,.JBREL ;[1113] DO WE HAVE ENOUGH ALREAD
Y?
2) JRST JBNC ;[1113] NO--GO DO IT THE HARD WA
Y
2) >
2) ;FALL INTO JBGC TO READ IN READ
IN REST OF TEMP FILE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 113
PCO Log Report
*********************
*PCO #:20-LINK -008*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 01-SEP-78
[Programmer] D. NEFF
[Routines] LNKOLD LNKLOD
[Key Words] COBOL SYMS ALGOL OWNS
[Source Before Edit] %4A (001113)
[Source After Edit] %4A (001114)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-11999
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 114
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK allocates too much room for modules after any COBOL
module used with /LOCALS or ALGOL module, when all the modules are
in a single REL file that is not being loaded with /SEARCH or
/INCLUDE. This causes programs to load much larger than necessary.
**********
[DIAGNOSIS]
COBOL symbols and ALGOL OWNs are not counted in the segment
break in REL block 5 (END), so that LINK must count them separately
and add them in at the end of the module. Unfortunately, when the
conditions above are met, LINK neglects to zero them when it is
through. Thus, the lengths get added in to each subsequent module
in the REL file.
**********
[CURE]
See that the counts get zeroed immediately after use.
Digital Equipment Corporation 28-AUG-79 Page 115
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1533 25-Aug-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1643 01-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 25-Aug-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Sep-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1113 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1114 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1114 DZN 1-Sep-78 SPR 20-11999
2) ; Zero count of COBOL symbol words and ALGOL OWNs loaded w
hen
2) ; done loading a module, so they don't get counted in subs
equent
2) ; modules in the same file.
2) ; Routines: LNKOLD, LNKLOD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 116
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1800 30-May-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 1647 01-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 29-May-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 1-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1101 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1114 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1114 Zero count of COBOL symbols and ALGOL OWNs in T.5A.
2)5 COMMENT \
**************
1)48 T.5F40:: ;ENTRY FROM LNKF40
****
2)47 ;**;[1114] Insert after T.5A+15L DZN 1-Sep-78
2) SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
2) SETZM OWNLNG ;[1114] AND ALGOL OWNS
2) ; SETZM VARLNG ;[1114] AND LVARS
2)48 T.5F40:: ;ENTRY FROM LNKF40
**************
Digital Equipment Corporation 28-AUG-79 Page 117
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 0317 27-Jun-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1654 01-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 27-Jun-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 1-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1106 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1114 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1114 Don't clear COBOL symbols and ALGOL OWNs in LODTST (move
d to T.5A).
2)5 SUBTTL LOAD CONTROL
**************
1)5 SETZM OWNLNG ;CLEAR ALGOL OWN BLOCK LENGTH
1) SETZM LOD37 ;COBOL LOCAL SYMBOL SIZE
1) ; SETZM VARLNG ;BLOCK TYPE 13 LVARS
1) TRNN FL,R.LIB!R.INC ;IN LIBRARY SEARCH MODE OR /INC
MODE?
****
2)5 ;**;[1114] Delete @LODTST+2 DZN 1-Sep-78
2) TRNN FL,R.LIB!R.INC ;IN LIBRARY SEARCH MODE OR /INC
MODE?
**************
1)89 POPJ P,
****
2)89 ;**;[1114] Insert after EOFTS+14L DZN 1-Sep-78
2) SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
2) SETZM OWNLNG ;[1114] AND ALGOL OWNS
2) ; SETZM VARLNG ;[1114] AND LVARS
2) POPJ P,
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 118
PCO Log Report
*********************
*PCO #:20-LINK -009*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 04-SEP-78
[Programmer] D. NEFF
[Routines] LNKOLD LNKERR
[Key Words] OV HGH COD LNKHCL
[Source Before Edit] %4A (001114)
[Source After Edit] %4A (001115)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:20-11997
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 119
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
No complaints from LINK when loading high segment code in a
link other than the root in an overlaid program. This frequently
happens when a user attempts to build an overlaid program with
COBOL modules compiled with the /R COBOL switch.
**********
[DIAGNOSIS]
LINK's overlay facility depends completely on all code in
links other than the root residing in the low segment. However, no
load-time check is made to save users much grief and confusion
later.
**********
[CURE]
Add a check, and new message LNKHCL.
Digital Equipment Corporation 28-AUG-79 Page 120
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1643 01-Sep-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1838 02-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Sep-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 2-Sep-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1114 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1115 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1115 DZN 2-Sep-78 SPR 20-11997
2) ; Add LNKHCL message to complain when loading high segment
code
2) ; into a link other than the root in an overlaid program.
2) ; Routines: LNKERR, LNKOLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 121
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1235 30-Aug-1978
File 2) LINK:LNKERR.MAC[10,645063] created: 1840 02-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 2-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1113 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1115 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL FIND MESSAGE
****
2)2 ;1115 Add long message for LNKHCL.
2)3 SUBTTL FIND MESSAGE
**************
1)9 HSL 31 31 Attempt to set high segment origin too l
ow
****
2)9 HCL 31 31 High segment code not allowed in an over
lay link in module [module]
2) HSL 31 31 Attempt to set high segment origin too l
ow
**************
1)10 IFE TOPS20,<
****
2)10 ;**;[1115] Insert before LNKHSL long message DZN 2-Sep-78
2) HASH HCL,0,<^_
2) You have attempted to load high segment code into
an
2) overlay link other than the root. Any high segment code
in
2) an overlaid program must be in the root.>
2) IFE TOPS20,<
**************
Digital Equipment Corporation 28-AUG-79 Page 122
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1647 01-Sep-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 1944 02-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 1-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 2-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1114 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1115 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1115 Add LNKHCL message to complain about loading high seg in
non-root link.
2)5 COMMENT \
**************
1)36 T.3: HRRZ W2,W1 ;GET WORD COUNT
1) PUSHJ P,D.IN1## ;GET A WORD (RELOCATION BYTES)
****
2)36 ;**;[1115] Replace @T.3 DZN 2-Sep-78
2) T.3:
2) IFN FTOVERLAY,<
2) TRNN FL,R.FLS ;[1115] NOT FORCING INTO LOW SEG
?
2) SKIPGE LNKMAX ;[1115] AND NOT ROOT LINK?
2) JRST T.3C ;[1115] NO
2) .ERR. (MS,.EC,V%L,L%F,S%F,HCL,<High segment code not a
llowed in an overlay link in module >)
2) .ETC. (SBX,.EP,,,,PRGNAM)
2) T.3C:
2) > ;END OF IFN FTOVERLAY
2) HRRZ W2,W1 ;GET WORD COUNT
2) PUSHJ P,D.IN1## ;GET A WORD (RELOCATION BYTES)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 123
PCO Log Report
*********************
*PCO #:20-LINK -010*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 07-SEP-78
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] LOST CODE EDIT 716 PSECTS
[Source Before Edit] %4A (001115)
[Source After Edit] %4A (001116)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 124
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Large areas of the program being loaded will be lost;
there will be zeros where there should be code and data.
This will only happen when loading a program that uses
PSECTs, or any large program that does not load some segment
monotonically (e.g., LOC or RELOC statements are used to
skip around in the address space being loaded). This will
only happen in LINK version 4 or later.
**********
[DIAGNOSIS]
Part of edit 716 removed code to read in data that had
already been loaded above the point where data was currently
being placed. Unfortunately, if the data is not read in, it
will be lost.
**********
[CURE]
Remove that portion of edit 716; replace the original
code.
Digital Equipment Corporation 28-AUG-79 Page 125
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1838 02-Sep-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 2135 07-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 2-Sep-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 7-Sep-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1115 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1116 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1116 JNG 7-Sep-78
2) ; Put back part of the code removed by edit 716. Performa
nce
2) ; improvements are only kosher as long as the code removed
is
2) ; unneeded.
2) ; Routines: LNKLOD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 126
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1654 01-Sep-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 2141 07-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 1-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 7-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1114 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1116 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1116 When expanding a window in PG.SX, read in any data alrea
dy in the
2) ; overflow file for the region being created. Broken by 7
16.
2)5 SUBTTL LOAD CONTROL
**************
1)12 ;[716] CAML T1,HB.S0(R) ;HOWEVER IF EVEN BIGGER HAS BEEN
SEEN?
1) JRST RPOPJ ;NO, RESTORE R AND RETURN
1) ;[716] HRLZI T1,1(T1) ;IT MUST BE ON THE DSK
1) ;[716] HRR T1,UW.S0(R) ;SO SETUP TRANSFER REQUEST
1) ;[716] PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
1) ;[716] PJRST FIXUP ;AND DO ANY FIXUPS
1)13 ;SIMILARLY FOR HIGH SEG
****
2)12 ;**;[1116] Remove edit 716 @ PG.SX+12L JNG 7-Sep-78
2) CAML T1,HB.S0(R) ;[1116] HOWEVER IF EVEN BIGGER H
AS BEEN SEEN?
2) JRST RPOPJ ;NO, RESTORE R AND RETURN
2) HRLZI T1,1(T1) ;[1116] IT MUST BE ON THE DSK
2) HRR T1,UW.S0(R) ;[1116] SO SETUP TRANSFER REQUES
T
2) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R) ;[1116]
2) PJRST FIXUP ;[1116] AND DO ANY FIXUPS
2)13 ;SIMILARLY FOR HIGH SEG
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 127
PCO Log Report
*********************
*PCO #:10-LINK -242*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765), TESTED IN 4A(1116)
[Date Entered] 21-SEP-78
[Programmer] D. NEFF
[Routines] LNKPAR LNKWLD
[Key Words] /NOINCLUDE
[Source Before Edit] %4A (001116)
[Source After Edit] %4A (001117)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-26102
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 128
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The command string
/INCLUDE:A D.REL
does not load module A from D.REL.
**********
[DIAGNOSIS]
There are two operations performed by the /INCLUDE switch. First,
the switch's arguments (if any) are added to the list of modules to
be loaded when a file is in `include mode'. Second, /INCLUDE may
also set `include mode'.
In old versions of LINK, /INCLUDE did both operations all the time.
Thus,
/INCLUDE:(A,B,C) D,E,F
loaded only modules A, B and C from REL files D, E and F. The
problem was that if, say, a user wanted all modules in E.REL to be
loaded, there was no way to turn off the `include mode' action of
the sticky /INCLUDE.
Therefore, an edit was made to partially decouple the two actions
of /INCLUDE, so that specifying /INCLUDE with arguments only added
module names to the list of those to include, but did not set
`include mode'. A /INCLUDE switch without any arguments would then
set `include mode' for a file. Thus, in the above example, one
could type
/INCLUDE:(A,B,C) D/INCLUDE,E,F/INCLUDE
and get the desired results of looking for modules A, B and C in
REL files D and F, but loading all modules in E.
Unfortunately, this action is counter-intuitive, and required
Digital Equipment Corporation 28-AUG-79 Page 129
PCO Log Report
numerous and seemingly redundant specifications of /INCLUDE.
Another problem was that after the edit, /INCLUDE specified with
arguments for a specific file (such as D/INCLUDE:A) would also set
`include mode'. This made the action of /INCLUDE even more
difficult to understand. In particular, the obvious case mentioned
in the symptom above no longer worked.
**********
[CURE]
Put /INCLUDE back the way it was so that it always sets `include
mode' along with adding any specified module names to the list to
be checked. However, also add a new switch /NOINCLUDE which will
temporarily turn off `include mode' without affecting the list of
modules to include. To clarify the new setup, consider the
following examples:
/INCLUDE:A D
will load only module A from B.REL
/INCLUDE:(A,B,C) D,E,F
will load only modules A, B and C from REL files D, E and
F
/INCLUDE:(A,B,C) D,E/NOINCLUDE,F
will load only modules A, B and C from REL files D and F,
but will load all of E.REL.
/INCLUDE:(A,B,C) D,/NOINCLUDE E,F,/INCLUDE G
will load only modules A, B and C from REL files D and G,
but will load all of REL files E and F
Note that /NOINCLUDE takes no arguments; its only intended use is
to temporarily turn off `include mode' for certain files.
Also, since the switch table in LNKPAR is changed by this edit, it
is suggested that all of LINK's modules be recompiled, rather than
just those explicitly edited by the following FILCOM.
Digital Equipment Corporation 28-AUG-79 Page 130
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2135 07-Sep-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1255 14-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 7-Sep-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Sep-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1116 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1117 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1117 DZN 14-Sep-78
2) ; Make /INCLUDE:args also set include mode, as it did long
ago.
2) ; But also add /NOINCLUDE to turn off include mode but not
2) ; delete the original args.
2) ; Routines: LNKPAR, LNKWLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 131
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1422 15-Aug-1978
File 2) LINK:LNKPAR.MAC[10,645063] created: 1259 14-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH 15-Aug-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 14-Sep-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1112 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1117 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)5 ;1117 Add /NOINCLUDE switch.
2)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)33 SWMAC SS,NOINITIAL,,0,,3
****
2)33 ;;**;[1117] Insert before /NOINITIAL switch in SWTCHS macro
DZN 14-Sep-78
2) SWMAC SS,NOINCLUDE,,0,,3,.;; ;[1117] TURN OFF STICKY
/INCLUDE
2) SWMAC SS,NOINITIAL,,0,,3
**************
Digital Equipment Corporation 28-AUG-79 Page 132
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1613 03-Aug-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 1308 14-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 3-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 14-Sep-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1107 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1117 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)3 ;775 Make sure /DEBUG:FORTRAN loads the starting address of F
ORDDT.
1) ;1101 Set LSTBLK and DTAFLG correctly on new input files.
1) ;1107 Fix bug with .SETEX routine to expand RC.TB and RC.NTB t
ables
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;START OF VERSION 4A
2) ;775 Make sure /DEBUG:FORTRAN loads the starting address of F
ORDDT.
2) ;1101 Set LSTBLK and DTAFLG correctly on new input files.
2) ;1107 Fix bug with .SETEX routine to expand RC.TB and RC.NTB t
ables.
2) ;1117 Add /NOINCLUDE switch and make /INCLUDE:args set include
mode.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)26 JUMPN T2,INCL.1 ;IF ARGUMENTS, JUST STORE THEM
1) TDO FL,[L.INC,,R.INC] ;ELSE /INC MODE ON THIS
LINE
1) POPJ P, ;DONE SINCE NO ARGS TO PROCESS
1) INCL.1: MOVSS EXCPTR ;SWAP PTR TO PUT PERMANENT PART
INTO RH
1) MOVSS INCPTR
1) PUSHJ P,%INCLUDE ;STORE NAME
1) TLNN FL,L.INC ;UNLESS BY STICKY SWITCH,
1) TRZ FL,R.INC ; NEXT FILE ISN'T IN /INCLUDE
1) MOVSS EXCPTR ;SWAP BACK
****
2)26 ;**;[1117] Change @.INCLUDE+1L DZN 14-Sep-78
2) TDO FL,[L.INC,,R.INC] ;[1117] ALWAYS SET INCLUDE MOD
E
2) SKIPN T2 ;[1117] SEE IF ANY ARGS TO STORE
2) POPJ P, ;[1117] NO--JUST RETURN
Digital Equipment Corporation 28-AUG-79 Page 133
PCO Log Report
2) MOVSS EXCPTR ;SWAP PTR TO PUT PERMANENT PART
INTO RH
2) MOVSS INCPTR
2) PUSHJ P,%INCLUDE ;STORE NAME
2) MOVSS EXCPTR ;SWAP BACK
**************
1)27 ;ROUTINES TO SEARCH THE INCLUDE/EXCLUDE BLOCKS FOR A MATCH.
****
2)26 ;**;[1117] Insert after %INCLUDE+10L DZN 14-Sep-78
2) .NOINCLUDE:
2) TDZ FL,[L.INC,,R.INC] ;[1117] TURN OFF INCLUDE MODE
2) POPJ P, ;[1117] CAN BE TURNED ON BY LATE
R /INCLUDE
2) %NOINCLUDE:
2) TRZ FL,R.INC ;[1117] TURN OFF LOCAL INCLUDE M
ODE
2) POPJ P, ;[1117] DONE
2)27 ;ROUTINES TO SEARCH THE INCLUDE/EXCLUDE BLOCKS FOR A MATCH.
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 134
PCO Log Report
*********************
*PCO #:10-LINK -243*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(766) TESTED IN 4(1117)
[Date Entered] 26-SEP-78
[Programmer] D. NEFF
[Routines] LNKOLD LNKLOD LNKMAP LNKERR
[Key Words] CPU TYPES
[Source Before Edit] %4A (001117)
[Source After Edit] %4A (001120)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-26135
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 135
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK doesn't handle the CPU type bits in the title REL block (type
6) correctly. Some of the possible symptoms are:
1. Saying .DIRECTIVE KA10,KI10 in a MACRO program causes LINK
to indicate in the map that the module was built for a KL
only.
2. `LNKKIA Cannot mix KI and KA compiled code' results even
when the mismatch is due to a KL specification.
Edit 766 only compounded the problem, by treating KIs and KLs as
the same.
**********
[DIAGNOSIS]
The field in the title REL block allows specification of a set of
CPUs on which the module may run, not just a single CPU. LINK's
tables and checks believe that the CPU field is a single number,
one for each CPU type.
**********
[CURE]
Make LINK understand the CPU type bits as defined in the title REL
block. This involves a number of changes:
1. Remove edit 766 if it was installed (the FILCOM shows the
removal of edit 766).
2. Keep a mask of all CPUs on which the program being loaded
will run, and update it as modules with CPU specifications
are read in. If loading a module with a CPU specification
keeps the entire program from running on any type of CPU,
Digital Equipment Corporation 28-AUG-79 Page 136
PCO Log Report
give the message
?LNKCCD CPU conflict detected in module [module]
3. Remove the LNKKIA message.
4. Print all applicable CPU types specified for a module in
the map (unless all CPUs were specified).
5. Indicate in the page header of the map after the program
name, all CPUs on which the entire program will run
(unless all CPUs). This is the logical AND of the CPU
specifications of all loaded modules.
Digital Equipment Corporation 28-AUG-79 Page 137
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1255 14-Sep-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1552 22-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Sep-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 22-Sep-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1117 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1120 DZN 22-Sep-78 SPR 10-26135
2) ; Fix CPU mismatch checks so that they work. Remove edit 7
66,
2) ; revamp all CPU check code to use a bit mask of valid CPU
s,
2) ; delete the LNKKIA message and add LNKCCD, and change the
2) ; map to include the correct information. Also, make the m
ap
2) ; show which CPUs the entire program can be run on.
2) ; Routines: LNKPAR, LNKERR, LNKOLD, LNKLOD, LNKINI, LNKMAP
, LNKLOW
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 138
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1259 14-Sep-1978
File 2) LINK:LNKPAR.MAC[10,645063] created: 1849 25-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 14-Sep-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 22-Sep-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1117 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)5 ;1120 Redefine CPU types to be bits rather than values.
2)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)15 ;CPUS
1) DEFINE CPUS<
1) X UNKNOWN,UNK
1) X KA10,KA
1) X KI10,KI
1) X KL10,KL
1) >
1) CP.LEN==0
1) CP.BIT==1B0
1) DEFINE X (A,B)<
1) CP.'B==CP.LEN
1) CP.LEN==CP.LEN+1
1) B'BIT==CP.BIT
1) CP.BIT==CP.BIT_-1
1) >
1) CPUS
1) IFE CP.BIT,<PRINTX TOO MANY CPUS>
1) PURGE X,CP.BIT
****
2)15 ;**;[1120] Replace @ CPUS definitions DZN 22-Sep-78
2) ;CPU TYPES. FIRST ARGUMENT TO INTERNAL X MACRO IS THE NAME AS
2) ;IT SHOULE BE PRINTED IN THE MAP. THE SECOND IS A TWO LETTER MNE
MONIC,
2) ;USED TO BUILD SYMBOLS. THESE ARE CURRENTLY THE SAME.
2) DEFINE CPUS<
2) X KA,KA
2) X KI,KI
2) X KL,KL
Digital Equipment Corporation 28-AUG-79 Page 139
PCO Log Report
2) >
2) CP.MSK==0 ;[1120] TO BE MASK OF ALL VALID
CPUS
2) CP.BIT==1B35 ;[1120] STARTING CPU BIT
2) DEFINE X(A,B)<
2) CP.'B==CP.BIT ;;[1120] ALLOCATE NEXT CPU BIT
2) CP.MSK==CP.MSK!CP.BIT ;;[1120] BUILD MASK OF ALL CPU B
ITS
2) CP.BIT==CP.BIT_1 ;;[1121] ADVANCE TO NEXT BIT
2) >
2) CPUS
2) PURGE X,CP.BIT
**************
Digital Equipment Corporation 28-AUG-79 Page 140
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1840 02-Sep-1978
File 2) LINK:LNKERR.MAC[10,645063] created: 1544 22-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 2-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 22-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1115 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL FIND MESSAGE
****
2)2 ;1120 Remove LNKKIA and add LNKCCD.
2)3 SUBTTL FIND MESSAGE
**************
1)9 CEF 31 31 Core expansion failed
****
2)9 CCD 31 31 CPU conflict detected in module [module]
2) CEF 31 31 Core expansion failed
**************
1)9 KIA 31 31 Cannot mix KI10 and KA10 compiled code
1) LDS 1 1 LOAD segment
****
2)9 LDS 1 1 LOAD segment
**************
1)10 HASH CEF,0,<^_
****
2)10 ;**;[1120] Insert before LNKCEF long message DZN 22-Sep-7
8
2) HASH CCD,0,<^_
2) You have loaded modules compiled with conflicting C
PU
2) specifications, such as loading a MACRO program compil
ed
2) with the statement .DIRECTIVE KA10 and another compil
ed
2) with .DIRECTIVE KI10. Recompile the affected modules wi
th
2) compatible CPU specifications.>
2) HASH CEF,0,<^_
**************
1)10 HASH KIA,0,<^_
1) Some modules loaded were compiled for the KA10 processo
r,
1) and some for the KI10 processor. Recompile so that a
Digital Equipment Corporation 28-AUG-79 Page 141
PCO Log Report
ll
1) modules are compiled for the same processor.>
1) HASH LDS,0,<^_
****
2)10 ;**;[1120] Delete LNKKIA long message DZN 22-Sep-78
2) HASH LDS,0,<^_
**************
Digital Equipment Corporation 28-AUG-79 Page 142
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 2157 29-May-1978
File 2) LINK:LNKLOW.MAC[10,645063] created: 1625 22-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC 29-May-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC 22-Sep-78-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1101 ;DEC EDIT VERSION
1) LOC 137
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) LOC 137
**************
1)3 SUBTTL STORAGE
****
2)2 ;1120 Delete CPUSN, add OKCPUS.
2)3 SUBTTL STORAGE
**************
1)6 CPUSN:: BLOCK 1 ;OR OF ALL CPU TYPES SEEN
1) COREFL::BLOCK 1 ;-1 IF LNKCOR SHUFFLED USER CORE
****
2)6 OKCPUS::BLOCK 1 ;[1120] BITS ON FOR ALL CPUS PRO
G WILL RUN ON
2) COREFL::BLOCK 1 ;-1 IF LNKCOR SHUFFLED USER CORE
**************
Digital Equipment Corporation 28-AUG-79 Page 143
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1949 01-Mar-1978
File 2) LINK:LNKINI.MAC[10,645063] created: 1636 22-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 22-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1120 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL INITIALIZE
****
2)2 ;START OF VERSION 4A
2) ;1120 Initialize OKCPUS to all known CPUs.
2)3 SUBTTL INITIALIZE
**************
1)14 IFL .FORLB,< ;.FORLB=-1 FOR FORSE, 0 FOR FORL
IB
****
2)14 ;**;[1120] Insert after NOLOG+14L DZN 22-Sep-78
2) MOVEI T1,CP.MSK ;[1120] START PROG RUNNABLE ON A
LL CPU TYPES
2) MOVEM T1,OKCPUS ;[1120] ..
2) IFL .FORLB,< ;.FORLB=-1 FOR FORSE, 0 FOR FORL
IB
**************
Digital Equipment Corporation 28-AUG-79 Page 144
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 2141 07-Sep-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1814 22-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 7-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 22-Sep-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1116 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1120 Remove CPUTST routine (T.6 does it now) and all calls to
it.
2)5 SUBTTL LOAD CONTROL
**************
1)55 DEFINE X(A,B)<
1) IF1,<BLOCK 1>
1) IF2,<
1) IFDEF B'NAM,<
1) PUSHJ P,B'NAM
1) >
1) IFNDEF B'NAM,<
1) PUSHJ P,CPUTST
1) >>>
1) XALL
1) CT.NAM::PROCESSORS
****
2)55 ;**;[1120] Various changes near CT.NAM DZN 22-Sep-78
2) DEFINE X(A,B)<
2) IF1,<BLOCK 1>
2) IF2,<
2) IFDEF B'NAM,< ;;[1120] CALL PROCESSOR ROUTINE
2) PUSHJ P,B'NAM
2) >
2) IFNDEF B'NAM,<
2) JFCL ;;[1120] NOTHING TO DO
2) >
2) >
2) >
2) XALL
2) CT.NAM::PROCESSORS
**************
1)55 CT.BIT:: PROCESSORS
Digital Equipment Corporation 28-AUG-79 Page 145
PCO Log Report
1) CP.BIT:: CPUS
1) SALL
1)56 ;CALLED BY PUSHJ P,xxxNAM
****
2)55 CT.BIT::PROCESSORS
2) SALL
2)56 ;CALLED BY PUSHJ P,xxxNAM
**************
1)56 ;T1 = INDEX TO CT.TAB
1) ;T2 = INDEX TO CP.TAB
1) ;T3 = PROCSN (CT.BIT)
1) ;T4 = CPUSN (CP.BIT)
1) ;-1(P) = BLANK COMMON
1) ;HERE IF ALGOL MAIN PROGRAM - SETS THIS AS PROGRAM NAME
1) ALGNAM: SKIPN -1(P) ;SEE IF BLANK COMMON SET
1) JRST CPUTST ;USES COMMON SIZE AS MAIN PROG M
ARKER.
1) SETZM -1(P) ;CLEAR COMMON SIZE
****
2)56 ; T1/ INDEX TO CT.TAB
2) ; T2/ PROCSN (CT.BIT)
2) ; W2/ PROGRAM NAME
2) ; -1(P)/ BLANK COMMON
2) ;HERE IF ALGOL MAIN PROGRAM - SETS THIS AS PROGRAM NAME
2) ALGNAM: SKIPN -1(P) ;SEE IF BLANK COMMON SET
2) ;**;[1120] Replace @ALGNAM+1L DZN 22-Sep-78
2) POPJ P, ;[1120] USES COMMON SIZE AS MAIN
PROG MARKER.
2) SETZM -1(P) ;CLEAR COMMON SIZE
**************
1)56 JRST CPUTST
1) F40NAM:
****
2)56 ;**;[1120] Replace @ALGNAM+5L DZN 22-Sep-78
2) POPJ P, ;[1120] DONE
2) F40NAM:
**************
1)56 TXNE T3,F40BIT ;1ST TIME SEEN F40?
1) JRST CPUTST ;NO, GO TEST CPU'S
1) MOVX W1,PT.SGN!PT.SYM ;YES,
1) MOVE W2,['FORSE.'] ;REQUEST FORSE., SO
1) SETZ W3, ;FORJAK WILL BE LOADED
1) PUSH P,T2 ;SAVE CPU TYPE
1) PUSH P,P1 ;SAVE PERM ACS
1) PUSH P,P2 ;..
1) PUSHJ P,SY.RQ## ;GENERATE REQUEST
1) POP P,P2 ;RESTORE PERM ACS
1) POP P,P1 ;..
1) POP P,T2 ;RESTORE FOR CPUTST
Digital Equipment Corporation 28-AUG-79 Page 146
PCO Log Report
1) JRST CPUTST]
1) > ;
1) TXNN T3,FORBIT ;CAN NOT HAVE BOTH
1) JRST CPUTST ;OK, SO TEST CPU TYPE
1) JRST F40ERR ;ERROR
1) IFN FTOVERLAY,<
****
2)56 ;**;[1120] Replace @F40NAM+8L DZN 22-Sep-78
2) TXNE T2,F40BIT ;[1120] 1ST TIME SEEN F4
0?
2) POPJ P, ;[1120] NO, GO TEST CPU'
S
2) MOVX W1,PT.SGN!PT.SYM;[1120] YES,
2) MOVE W2,['FORSE.'] ;REQUEST FORSE., SO
2) SETZ W3, ;FORJAK WILL BE LOADED
2) PUSH P,P1 ;SAVE PERM ACS
2) PUSHJ P,SY.RQ## ;GENERATE REQUEST
2) POP P,P1 ;..
2) POPJ P,] ;[1120] DONE
2) > ;
2) TXNE T2,FORBIT ;[1120] CAN NOT HAVE BOTH
2) JRST F40ERR ;ERROR
2) POPJ P, ;[1120] DONE
2) IFN FTOVERLAY,<
**************
1)57 CBLNAM: JUMPE T3,CPUTST ;OK FIRST TIME
1) TXNE T3,C74BIT ;TEST FOR OTHER COBOL
1) JRST C74ERR ;NOT ALLOWED
1) TXNE T3,CBLBIT ;OR IF COBOL ALREADY SEEN
1) JRST CPUTST
1) .ERR. (MS,0,V%L,L%F,S%F,CMF,<Cobol module must be load
ed first>)
1) C74NAM: JUMPE T3,CPUTST ;OK FIRST TIME
1) TXNE T3,CBLBIT ;TEST FOR OTHER COBOL
1) JRST C74ERR ;NOT ALLOWED
1) TXNE T3,C74BIT ;OR IF COBOL ALREADY SEEN
1) JRST CPUTST
1) .ERR. (MS,0,V%L,L%F,S%F,CMF)
****
2)57 ;**;[1120] Replace @CBLNAM DZN 22-Sep-78
2) CBLNAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
2) TXNE T2,C74BIT ;[1120] TEST FOR OTHER COBOL
2) JRST C74ERR ;NOT ALLOWED
2) TXNE T2,CBLBIT ;[1120] OR IF COBOL ALREADY SEEN
2) POPJ P, ;[1120] DONE
2) .ERR. (MS,0,V%L,L%F,S%F,CMF,<Cobol module must be load
ed first>)
2) C74NAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
2) TXNE T2,CBLBIT ;[1120] TEST FOR OTHER COBOL
Digital Equipment Corporation 28-AUG-79 Page 147
PCO Log Report
2) JRST C74ERR ;NOT ALLOWED
2) TXNE T2,C74BIT ;[1120] OR IF COBOL ALREADY SEEN
2) POPJ P, ;[1120] DONE
2) .ERR. (MS,0,V%L,L%F,S%F,CMF)
**************
1)57 ;FORTRAN-10
1) FORNAM:
****
2)57 ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
2) ;FORTRAN
2) FORNAM:
**************
1)57 JRST FORKLG ;YES>
1) TXNN T3,F40BIT
1) JRST FORCPU ;SEE IF WE CARE ABOUT CPU
1) F40ERR: .ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>)
1) IFN FMXFOR,<
1) FORKLG: HRRZS MIXFOR ;MAKE IT POSITIVE>
1) FORCPU: PUSHJ P,CPUTST ;TEST IF CAN LOAD WITH CURRENT P
ROGS
1) MOVE T1,OTSEG ;DID USER SPECIFY NON-REENT OTS?
1) SOJE T1,CPOPJ ;YES, SO LOAD TWO SEG CODE IN TW
O SEGMENTS
****
2)57 JRST FORKLG ;YES
2) >
2) TXNN T2,F40BIT ;[1120] F40 SEEN ALREADY?
2) JRST FORSEG ;[1120] SEE IF WE CARE ABOUT CPU
2) F40ERR: .ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>)
2) IFN FMXFOR,<
2) FORKLG: HRRZS MIXFOR ;MAKE IT POSITIVE
2) >
2) FORSEG: MOVE T1,OTSEG ;[1120] DID USER SPECIFY NON-REE
NT OTS?
2) SOJE T1,CPOPJ ;YES, SO LOAD TWO SEG CODE IN TW
O SEGMENTS
**************
1)58 DEFINE X(A,B)<
1) EXP CPU'B
1) >
1) CPUUNK==CPOPJ ;RUNS ON ANY CPU
1) CPUTBL: CPUS
1) CPUTST: MOVE T1,T2 ;[752] NEED 2 ACS FOR JFFO
1) JFFO T1,.+1 ;[752] T1 CONTAINS CPU CODE FROM
BLOCK 6
1) SKIPN T1,T2 ;[752] IF NOT ZERO, CONVERT TO T
ABLE OFFSET
Digital Equipment Corporation 28-AUG-79 Page 148
PCO Log Report
1) JRST .+3 ;[752]
1) MOVEI T1,^D36 ;[752]
1) SUB T1,T2 ;[752] OFFSET IN T1
1) ;**;[766] Insert @ CPUTST+6L MCHC 17-Mar-78
1) MOVE P2,T1 ;[766] OFFSET NEEDED IN P2 AFTER
RETURNED
1) JRST @CPUTBL(T1) ;[752] DISPATCH TO RIGHT TEST
1) CPUKL: ;[752] MAKE KL TEST SAME AS KI
1) CPUKI: TXNE T4,KABIT ;TEST FOR THE KA BIT
1) JRST CPUERR ;CAN NOT MIX KI AND KA
1) POPJ P, ;OK
1) ;**;[766] Change @ CPUKA MCHC 17-Mar-78
1) CPUKA:: TXNN T4,KIBIT!KLBIT ;[766]CANNOT HAVE BOTH KA10 AND
KI10
1) POPJ P, ;OK
1) CPUERR: .ERR. (MS,0,V%L,L%F,S%F,KIA,<Cannot mix KI10 and KA10
compiled code>)
1)59 SUBTTL MIXFOR FEATURE
****
2)57 ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
2)58 SUBTTL MIXFOR FEATURE
**************
Digital Equipment Corporation 28-AUG-79 Page 149
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1944 02-Sep-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 1847 25-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 2-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 22-Sep-7
8
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1115 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1120 Make T.6 handle mask of CPU bits rather than a single va
lue.
2)5 COMMENT \
**************
1)57 HLRZ T1,0(P) ;GET TYPE
1) HRRZS 0(P) ;AND CLEAR IT FROM STACK
1) HRRZ T2,T1 ;GET CPU TYPE
1) LSH T2,-^D12 ;RIGHT JUSTIFIED (WAS BITS 0-5)
1) ANDI T1,7777 ;AND CLEAR FROM COMPILER INDEX
1) CAILE T1,CT.LEN ;CHECK FOR RANGE
1) SETZ T1, ;MAKE IT UNKNOWN
1) CAILE T2,CP.LEN ;SAME FOR CPUS
1) SETZ T2, ;MAKE ILLEGAL VALUES UNKNOWN
1) HRLZM T1,CTYPE ;STORE PROCESSOR CODE
1) HRRM T2,CTYPE ;AND CPU TYPE CODE
1) MOVE T3,PROCSN ;GET LIST OF DIF PROCESSORS SEEN
1) MOVE T4,CPUSN ;AND CPUS
1) MOVE P1,T1 ;SAFE PLACE
1) MOVE P2,T2
1) XCT CT.NAM##(T1) ;SEE IF ANYTHING SPECIAL TO DO
1) MOVE T3,CT.BIT##(P1) ;GET CORRESPONDING BIT
1) MOVE T4,CP.BIT##(P2) ;ALSO FOR CPU
1) IORM T3,PROCSN ;SIGNAL WE HAVE SEEN THIS ONE
1) IORM T3,LIBPRC ;A NEW MODULE THIS LIBRARY PASS
1) IORM T4,CPUSN
1)58 ;HERE TO HANDLE BLANK COMMON ARG IN TITLE BLOCK
1) POP P,T1 ;GET BLANK COMMON BACK
1) SKIPE BLCOMM ;SEEN BLANK COMMON BEFORE?
****
2)57 ;**;[1120] Replace @T.6OK+1P2L DZN 22-Sep-78
2) LDB T1,[POINT 6,(P),5] ;[1120] GET RUNNABLE CPU BITS
2) ANDI T1,CP.MSK ;[1120] CLEAR CPUS WE DON'T KNOW
Digital Equipment Corporation 28-AUG-79 Page 150
PCO Log Report
ABOUT
2) JUMPN T1,.+2 ;[1120] ASKED FOR NONE?
2) MOVEI T1,CP.MSK ;[1120] YES--MEANS ALL
2) HRRZM T1,CTYPE ;[1120] SAVE WITH COMPILER TYPE
2) ANDM T1,OKCPUS ;[1120] ENFORCE CPU FLAGS
2) SKIPN OKCPUS ;[1120] CAN PROG RUN AT ALL NOW?
2) JRST ERRCCD ;[1120] NO--CPU CONFLICT DETECTE
D
2) LDB T1,[POINT 12,(P),17] ;[1120] NOW GET PROCESSOR T
YPE
2) HRRZS (P) ;[1120] LEAVE JUST BLANK COMMON
ON STACK
2) CAILE T1,CT.LEN ;CHECK FOR RANGE
2) SETZ T1, ;[1120] MAKE IT UNKNOWN
2) HRLM T1,CTYPE ;[1120] SAVE COMPILER TYPE
2) MOVE T2,PROCSN ;[1120] GET LIST OF PROCS SEEN S
O FAR
2) MOVE P1,T1 ;SAFE PLACE
2) XCT CT.NAM##(T1) ;[1120] PROC ROUTINES EXPECT MAN
Y ACS + (P)
2) MOVE T1,CT.BIT##(P1) ;[1120] GET CORRESPONDING BIT
2) IORM T1,PROCSN ;[1120] SIGNAL WE HAVE SEEN THIS
ONE
2) IORM T1,LIBPRC ;[1120] A NEW MODULE THIS LIBRAR
Y PASS
2) JRST T.6BLK ;[1120] GO HANDLE BLANK COMMON
2) ERRCCD: .ERR. (MS,.EC,V%L,L%F,S%F,CCD,<CPU conflict detected i
n module >)
2) .ETC. (SBX,.EP,,,,PRGNAM)
2)58 ;HERE TO HANDLE BLANK COMMON ARG IN TITLE BLOCK
2) T.6BLK: POP P,T1 ;[1120] GET BLANK COMMON BACK
2) SKIPE BLCOMM ;SEEN BLANK COMMON BEFORE?
**************
Digital Equipment Corporation 28-AUG-79 Page 151
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1408 15-Aug-1978
File 2) LINK:LNKMAP.MAC[10,645063] created: 1921 25-Sep-1978
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 15-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 22-Sep-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1112 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1120 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL HEADER LINES
****
2)3 ;1120 Pring correct CPU specifications in the map for module a
nd program.
2)4 SUBTTL HEADER LINES
**************
1)26 TTLCPU: POP P,W3 ;RESTORE CPU BITS
1) TTLCP1: TLZ W3,-1 ;ZAP PROCESSOR TYPE BITS
1) JUMPE W3,TTLCRE ;IF NOT SPECIFIED, GO PRINT CRE
STUFF
1) CAILE W3,CP.LEN ;IN RANGE?
1) SETZ W3, ;NO, MAKE UNKNOWN
1) IFE TOPS20,<
1) MOVE T1,CPUTAB(W3) ;GET ASCII FOR CPU TYPE
1) PUSHJ P,.TSTRG## ;OUT IT GOES
1) > ;END IFE TOPS20
1) JRST TTLCRE ;GO PRINT CRE STUFF
****
2)26 ;**;[1120] Replace @TTLCPU DZN 22-Sep-78
2) TTLCPU: POP P,T1 ;[1120] RESTORE CPU BITS
2) TTLCP1: TLZ T1,-1 ;[1120] ZAP PROCESSOR TYPE BITS
2) PUSHJ P,TYPCPU ;[1120] TYPE CPUS FOR THIS MODUL
E
2) JRST TTLCRE ;GO PRINT CRE STUFF
**************
1)26 JRST TTLCP1 ;PRINT CPU BITS
****
2)26 ;**;[1120] Insert after TTLCRL+1 DZN 22-Sep-78
2) HRRZI T1,(W3) ;[1120] GET CPU BITS
2) JRST TTLCP1 ;PRINT CPU BITS
**************
1)40 SKIPN MAPVER ;ONLY PRINT IF NOT ZERO
****
2)40 ;**;[1120] Insert after .TYHDR+3L DZN 22-Sep-78
2) MOVE T1,OKCPUS ;[1120] PRINT CPUS FOR PROGRAM
Digital Equipment Corporation 28-AUG-79 Page 152
PCO Log Report
2) PUSHJ P,TYPCPU ;[1120] ..
2) SKIPN MAPVER ;ONLY PRINT IF NOT ZERO
**************
1)44 DEFINE X (A,B)<
1) IFIDN <A><FORTRAN>,<
1) IFE TOPS20,<
1) [ASCIZ \A'-10\]
1) >
1) IFN TOPS20,<
1) [ASCIZ \A\]
1) >
1) >
1) IFDIF <A><FORTRAN>,<
1) IFIDN <A><PLI>,<
****
2)44 ;**;[1120] Replace @END1+1P0L DZN 22-Sep-78
2) DEFINE X (A,B)<
2) IFIDN <A><PLI>,<
**************
1)44 IFIDN <A><CBL74>,<
1) [ASCIZ \COBOL-74\]
1) >
1) IFDIF <A><CBL74>,<
1) IFIDN <A><COBOL>,<
1) [ASCIZ \COBOL-68\]
1) >
1) IFDIF <A><COBOL>,<
1) [ASCIZ \A\]
1) >>>>>
1) [ASCIZ \LINK\]
****
2)44 IFIDN <A><CBL74>,<
2) [ASCIZ \COBOL-74\]
2) >
2) IFDIF <A><CBL74>,<
2) IFIDN <A><COBOL>,<
2) [ASCIZ \COBOL-68\]
2) >
2) IFDIF <A><COBOL>,<
2) [ASCIZ \A\]
2) >
2) >
2) >
2) >
2) [ASCIZ \LINK\]
**************
1)44 IFE TOPS20,<
1) DEFINE X (A,B)<
1) [ASCIZ \ /A\]
Digital Equipment Corporation 28-AUG-79 Page 153
PCO Log Report
1) >
1) CPUTAB: CPUS
1) > ;END IFE TOPS20
1) SALL
****
2)44 SALL
2)45 ;**;[1120] Revamp @PRCTAB+2L DZN 22-Sep-78
2) ;ROUTINE TO PRINT CPUS ON WHICH A MODULE OR PROGRAM WILL RUN. IF
ALL CPUS
2) ;KNOWN TO LINK ARE ALLOWED, PRINT NOTHING.
2) ;ON CALL:
2) ; T1/ CP.??? BITS
2) TYPCPU: CAIN T1,CP.MSK ;[1120] RUNNABLE ON ALL CPUS?
2) POPJ P, ;[1120] YES--DON'T BOTHER PRINTI
NG
2) PUSH P,P1 ;[1120] SAVE SOME VARS
2) PUSH P,P2 ;[1120] ..
2) MOVE P1,T1 ;[1120] SAVE CPU BITS IN SAFE AC
2) PUSHJ P,.TSPAC## ;[1120] SEPARATE BY A SPACE
2) SETZ P2, ;[1120] START CHECK AT KA
2) TYPCPL: JUMPE P1,TYPCPE ;[1120] ANY CPUS LEFT TO PRINT?
2) MOVE T1,CPUTAB(P2) ;[1120] YES--GET ADDR OF CPU NAM
E
2) TXNE P1,1B35 ;[1120] PRINT THIS CPU?
2) PUSHJ P,.TSTRG## ;[1120] YES--PRINT IT
2) LSH P1,-1 ;[1120] ADVANCE TO NEXT CPU
2) AOJA P2,TYPCPL ;[1120] AND LOOP UNTIL DONE
2) TYPCPE: POP P,P2 ;[1120] RESTORE VARS
2) POP P,P1 ;[1120] ..
2) POPJ P,
2) DEFINE X(A,B)<
2) [ASCIZ \/A\]
2) >
2) XALL
2) CPUTAB: CPUS
2) SALL
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 154
PCO Log Report
*********************
*PCO #:10-LINK -244*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(772)
[Date Entered] 04-OCT-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BAD .JBSYM EDIT 772
[Source Before Edit] %4A (001120)
[Source After Edit] %4A (001121)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 155
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 772 is installed, users will not be able to
define undefined symbols correctly with DDT. A closer
examination will reveal that the symbol table (pointed to by
.JBSYM) and the undefined table (pointed to by .JBUSY)
overlap.
**********
[DIAGNOSIS]
After the code rearrangement in edit 772, the pointer
to the start of the symbol table is no longer incremented
past the end of the undefined table.
**********
[CURE]
Re-introduce the increment code. This edit requires
that edits 770 and 772 be installed in LINK first.
Digital Equipment Corporation 28-AUG-79 Page 156
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1552 22-Sep-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1437 04-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 22-Sep-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-Oct-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1121 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1121 JNG 4-Oct-78 QAR JMF
2) ; Fix LNKXIT bug so .JBSYM ptr won't include the undefined
symbol
2) ; table. This was broken by edit 772.
2) ; Routines: LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 157
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1709 25-Aug-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1531 04-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1113 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1121 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1121 Fix edit 772 so symbol table and undefined table don't o
verlap.
2)5 SUBTTL ENTER HERE
**************
1)10 ADD P2,P4 ;[772] SPACE WE NEED IN P2
1) ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
****
2)10 ;**;[1121] Change @UDF0A+5L JNG 4-Oct-78
2) ADDB P2,P4 ;[1121] SPACE WE NEED IN P2 AND
P4
2) ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 158
PCO Log Report
*********************
*PCO #:10-LINK -245*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+1105
[Date Entered] 08-OCT-78
[Programmer] D. NEFF
[Routines] LNKPAR LNKSCN LNKWLD LNKFIO
[Key Words] /*VERSION
[Source Before Edit] %4A (001121)
[Source After Edit] %4A (001122)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-26222
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 159
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Version 4 of LINK broke the /VERSION switch. If the switch is
specified on an input file or with no file at all, .JBVER does not
get set. Also, /VERSION does not override version specifications
(by LOCing to .JBVER) in REQUIREd files.
**********
[DIAGNOSIS]
The original problem in version 3A of LINK was that /VERSION had to
be typed to 6 characters, since SCAN also had a /VERSION switch.
Development for LINK version 4 attempted to solve the problem by
doing away with LINK's /VERSION switch, and trying to grab the
value of SCAN's /VERSION switch at all the right times.
There are two problems with this method:
1. There are many places where LINK internally creates SCAN
blocks (e.g., for REQUEST/REQUIREd files). All of these
places need to be changed to follow SCAN's conventions
regarding initial switch values (-1), since /VERSION is
the first SCAN switch that LINK cares about in these
cases.
2. SCAN's usage of /VERSION is different from LINK's. SCAN
treats /VERSION as a file-specific switch, so that typing
/VERSION in front of a file specification would cause the
switch to apply to all subsequent files on the line,
whether input or output. However, LINK treats the switch
having a meaning only with respect to the file on which it
is specified.
Though the first problem could be solved with a patch, the second
is not solvable within the current specifications of SCAN.
Therefore, another method is necessary.
**********
Digital Equipment Corporation 28-AUG-79 Page 160
PCO Log Report
[CURE]
Put LINK's own /VERSION switch back in, as it was in version 3A
(i.e., remove edit 740). However, to solve the original problem of
having to type /VERSION to 6 characters, make LINK's /VERSION
switch unique in any abbreviation. Thus, /V, /VE, /VER, /VERS, and
/VERSI are all valid abbreviations of /VERSION.
Note that the attached FILCOM shows the edit as if edit 1105 were
installed. If this is not the case, simply remove the lines marked
**********
[740] in the DVINP. routine in LNKFIO.MAC instead of those marked
**********
[1105].
Digital Equipment Corporation 28-AUG-79 Page 161
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1437 04-Oct-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1250 05-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-Oct-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Oct-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1121 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1122 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1122 DZN 5-Oct-78 SPR 10-26222
2) ; Remove edit 740, which attempted to use SCAN's /VERSION
switch,
2) ; rather than LINK's. SCAN's switch is a file-specific swi
tch, which
2) ; is not the way LINK wants it to work. However, still fix
the original
2) ; problem (having to type /VERSION to 6 characters to work
) by making
2) ; LINK's /VERSION switch unique to any abbreviation.
2) ; Routines: LNKPAR, LNKSCN, LNKWLD, LNKFIO
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 162
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1849 25-Sep-1978
File 2) LINK:LNKPAR.MAC[10,645063] created: 1812 05-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 22-Sep-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1122 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)5 ;1122 Remove edit 740 and make /VERSION unique in any abbrevia
tion.
2)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)33 IFE TOPS20,<
****
2)33 ;;**;[1122] Insert after /VERBOSITY switch DZN 5-Oct-78
2) SWMAC SP,VERSION,,.SWVER,SYM,3,,* ;;[1122]
2) IFE TOPS20,<
**************
Digital Equipment Corporation 28-AUG-79 Page 163
PCO Log Report
[FILCOM]
File 1) LINK:LNKSCN.MAC[30,4507] created: 1438 07-Mar-1978
File 2) LINK:LNKSCN.MAC[10,645063] created: 1836 05-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 5-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1122 ;DEC EDIT VERSION
2) VERSION
**************
1)3 ;START OF VERSION 3B
1) ;600 Remove call to DEFVALUES macro
****
2)3 ;START OF VERSION 4
2) ;600 Remove call to DEFVALUES macro
**************
1)4 SUBTTL INITIALIZE SCANNER
****
2)3 ;START OF VERSION 4A
2) ;1122 Remove edit 740.
2)4 SUBTTL INITIALIZE SCANNER
**************
1)22 ; [ 740 ] Remove .SWVER code.
1) ;ENTRY .SWVER
1) ;HERE WHEN SWITCH VALUE IS A VERSION NUMBER
1) ;.SWVER::PUSHJ P,.VERSW## ;GET THE WORD
1) ; JRST .SWDPB## ;AND STORE IT
1)23 SUBTTL STORAGE DATA
****
2)22 ;**;[1122] Replace @.SWVER DZN 5-Oct-78
2) ENTRY .SWVER ;[1122]
2) ;HERE WHEN SWITCH VALUE IS A VERSION NUMBER
2) .SWVER::PUSHJ P,.VERSW## ;[1122] GET THE WORD
2) JRST .SWDPB## ;[1122] AND STORE IT
2)23 SUBTTL STORAGE DATA
**************
Digital Equipment Corporation 28-AUG-79 Page 164
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1308 14-Sep-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 1844 05-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 14-Sep-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 5-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1117 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1122 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1122 Remove edit 740.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)48 ;[ 740 ] Remove %VERSION code
1) ;%VERSION:
1) ; PUSHJ P,STRLSW ;WAIT TIL FILE INITED
1) ; MOVE T2,2(P2) ;GET VALUE
1) ; SKIPE T1,IO.CHN ;GET CURRENT CHAN#
1) ; CAIN T1,DC ;IF 0 OR INPUT CHAN
1) ; JRST [MOVEM T2,VERNUM ;STORE VERSION NUMBER
1) ; POPJ P,] ;IN CORE
1) ; MOVE T1,IO.PTR(T1) ;IF OUTPUT SPEC
1) ; MOVEM T2,I.VER(T1) ;SAVE IN DATA BLOCK
1) ; POPJ P,
1)49 SUBTTL OUTPUT DEVICE SWITCHES
****
2)48 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
2) %VERSION:
2) PUSHJ P,STRLSW ;[1122] WAIT TIL FILE INITED
2) MOVE T2,2(P2) ;[1122] GET VALUE
2) SKIPE T1,IO.CHN ;[1122] GET CURRENT CHAN#
2) CAIN T1,DC ;[1122] IF 0 OR INPUT CHAN
2) JRST [MOVEM T2,VERNUM ;[1122] STORE VERSION NU
MBER
2) POPJ P,] ;[1122] IN CORE
2) MOVE T1,IO.PTR(T1) ;[1122] IF OUTPUT SPEC
2) MOVEM T2,I.VER(T1) ;[1122] SAVE IN DATA BLOCK
2) POPJ P, ;[1122]
2)49 SUBTTL OUTPUT DEVICE SWITCHES
**************
Digital Equipment Corporation 28-AUG-79 Page 165
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1512 20-Jun-1978
File 2) LINK:LNKFIO.MAC[10,645063] created: 1640 06-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH 20-Jun-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH 5-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1105 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1122 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;1122 Remove edit 740.
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
1)7 ;**;[1105] Move up from below @ DVINP.+9L JNG 20-Jun-7
8
1) MOVE T2,F.VER(P1) ;[1105] VERSION NUMBER SPECIFIED
FOR INPUT FILE
1) CAME T2,[-1] ;[1105] IF -1 MEANS SCAN SAW NOT
HING
1) MOVEM T2,VERNUM ;[1105] USED TO SET GLOBAL DEFAU
LT VERSION.
1) MOVE T2,F.DIR(P1) ;DIRECTORY
****
2)7 ;**;[1122] Delete @DVINP.+9L DZN 6-Oct-78
2) MOVE T2,F.DIR(P1) ;DIRECTORY
**************
1)9 MOVE T1,F.VER(P1) ;[740] USE SPECIFIED VERSION NUM
BER
1) CAMN T1,[-1,,-1] ;[740] -1 MEANS SCAN SAW NOTHING
1) MOVE T1,VERNUM ;[740] OR DEFAULT VERSION NUMBER
1) MOVEM T1,I.VER(T3) ;[740] IN THE I/O BLOCK
1) SKIPN T1,F.PROT(P1) ;PROTECTION CODE
****
2)9 ;**;[1122] Delete @DVOUT.+25L DZN 6-Oct-78
2) SKIPN T1,F.PROT(P1) ;PROTECTION CODE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 166
PCO Log Report
*********************
*PCO #:10-LINK -246*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4(1122)
[Date Entered] 10-OCT-78
[Programmer] D. NEFF
[Routines] LNKFIO
[Key Words] HRL > HRLI
[Source Before Edit] %4A (001122)
[Source After Edit] %4A (001123)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26580
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 167
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
None, but if LINK's start address were ever moved to the low
segment, ENTER error messages would be printed as LOOKUP messages.
**********
[DIAGNOSIS]
Setting up the flag meaning an ENTER error is done with an
erroneous HRL instruction. Currently, this loads LINK's start
address from vestigial JOBDAT. Since the flag has the value
400000, this works only as long as LINK's start address is in the
high segment.
**********
[CURE]
Load the flag correctly.
Digital Equipment Corporation 28-AUG-79 Page 168
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1250 05-Oct-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1113 10-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Oct-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 10-Oct-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1122 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1123 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1123 DZN 10-Oct-78 SPR 10-26580
2) ; Use HRLI instead of HRL to load ENTER error flag.
2) ; Routines: LNKFIO
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 169
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1640 06-Oct-1978
File 2) LINK:LNKFIO.MAC[10,645063] created: 1115 10-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH 5-Oct-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 10-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1122 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1123 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;1123 Use HRLI instead of HRL to load ENTER error flag.
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
1)23 HRL T1,(%ENT) ;SIGNAL ENTER
1) PUSH P,T1
****
2)23 ;**;[1123] Replace @ENTERR+1L DZN 10-Oct-78
2) HRLI T1,(%ENT) ;[1123] SIGNAL ENTER
2) PUSH P,T1
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 170
PCO Log Report
*********************
*PCO #:10-LINK -247*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4A(1123)
[Date Entered] 11-OCT-78
[Programmer] D. NEFF
[Routines] LNKINI
[Key Words] EXEC ONLY
[Source Before Edit] %4A (001123)
[Source After Edit] %4A (001124)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26712
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 171
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK cannot be run execute-only. The first time LINK must type a
message to the terminal, it blows up with a proprietary violation.
**********
[DIAGNOSIS]
Edit 636 broke the ability of routine TTYIT, which is in the low
segment, to return to a concealed high segment.
**********
[CURE]
Fix TTYIT to return through LINK's standard return point in the
high segment.
Digital Equipment Corporation 28-AUG-79 Page 172
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1113 10-Oct-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1243 11-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 10-Oct-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 11-Oct-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1123 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1124 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1124 DZN 11-Oct-78 SPR 10-26712
2) ; Edit 636 broke LINK's ability to be run execute-only. Fi
x
2) ; this by making the TTY log routine once more return into
the
2) ; potentially execute-only high segment properly.
2) ; Routine: LNKINI
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 173
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1636 22-Sep-1978
File 2) LINK:LNKINI.MAC[10,645063] created: 1406 11-Oct-1978
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 22-Sep-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 11-Oct-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1124 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL INITIALIZE
****
2)2 ;1124 Make TTYIT return to a potentially execute-only high seg
ment again.
2)3 SUBTTL INITIALIZE
**************
1)30 TTYDMP: PUSH P,T1 ;SAVE CHAR
1) PUSHJ P,TTYOUT ;OUTPUT LINE
1) POP P,T1
1) ;NOW TRY
1) TTYIT: SOSGE TTYBUF+2 ;ANY SPACE LEFT
****
2)30 ;ROUTINE TO LOG A CHARACTER TO THE USER'S TERMINAL. USES A LINE
BUFFER
2) ;FOR SPEED. TTYIT IS THE ENTRY POINT. SAVES T1.
2) ;**;[1124] Replace @TTYDMP DZN 11-Oct-78
2) TTYDMP: PUSHJ P,TTYOUT ;[1124] OUTPUT LINE
2) TTYIT: SOSGE TTYBUF+2 ;ANY SPACE LEFT
**************
1)30 IFE FTSINGLE,<
1) JRST TTYRET ;NO, JUST RETURN
1) >
1) IFN FTSINGLE,<
1) POPJ P,
1) >
1) TTYOUT: SETZ T1,
1) IDPB T1,TTYBUF+1 ;END WITH NULL
****
2)30 ;**;[1124] Replace @TTYIT+5L DZN 11-Oct-78
2) SKIPA ;[1124] NO--JUST RETURN
2) PUSHJ P,TTYOUT ;[1124] YES--DUMP THE LINE FIRST
2) IFE FTSINGLE,<
2) TTYRET: PUSH P,T1 ;[1124] SAVE CHAR IN T1
2) MOVE T1,SEGPGN ;[1124] GET SEGMENT ORIGIN
2) ADDI T1,%%RET ;[1124] POINT TO WHERE WE WANT T
Digital Equipment Corporation 28-AUG-79 Page 174
PCO Log Report
O GO
2) EXCH T1,0(P) ;[1124] SAVE GOTO ADDR, RESTORE
T1
2) >
2) POPJ P, ;[1124] RETURN
2) ;LOCAL ROUTINE TO DUMP THE TERMINAL BUFFER WHEN FULL OR END-OF-L
INE
2) ;CHARACTER IS SEEN. SAVES T1.
2) TTYOUT: PUSH P,T1 ;[1124] SAVE PENDING CHAR
2) SETZ T1,
2) IDPB T1,TTYBUF+1 ;END WITH NULL
**************
1)30 POPJ P, ;[636] RETURN TO TTYDMP
1) IFE FTSINGLE,<
1) TTYRET:
1) PUSH P,T1 ;[636] SAVE CHAR IN T1
1) MOVE T1,SEGPGN ;GET SEGMENT ORIGIN
1) ADDI T1,%%RET ;[636] POINT TO WHERE WE WANT TO
GO
1) EXCH T1,0(P) ;[636] SAVE GOTO ADDR, RESTORE T
1
1) POPJ P, ;[636] GO TO CPOPJ ENTRY
1) >
1)31 SUBTTL LOG FILE OUTPUT SUBROUTINE
****
2)30 ;**;[1124] Replace @TTYOUT+9L DZN 11-Oct-78
2) POP P,T1 ;[1124] RESTORE PENDING CHAR
2) POPJ P, ;[1124] RETURN
2)31 SUBTTL LOG FILE OUTPUT SUBROUTINE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 175
PCO Log Report
*********************
*PCO #:10-LINK -248*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 01-NOV-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] NNNLHC /SAVE/DEB /SAVE/EXEC RUN UUO
[Source Before Edit] %4A (001124)
[Source After Edit] %4A (001125)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26379
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 176
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK fails with an error like "?nnnLHC not found".
This will only happen when loading a two segment program
large enough to force the high segment to overflow to disk,
and only if the user types /SAVE/EXEC or /SAVE/DEBUG.
**********
[DIAGNOSIS]
LINK uses the same pointers to store the low and high
segment overflow file specs as it does to store the
corresponding save file specs. This used to be OK, since
LINK would always write a save file for a particular segment
on /SAVE if it overflowed to disk, because that would mean
that it existed. With EXE save file generation, however,
both segments are saved into the "low segment" EXE file, so
that the high segment pointer is left pointing to the
overflow file if the high segment code overflows to disk
during the load.
This is a problem because LINK's RUN UUO code always
tries to run the high segment save file, and is only willing
to run the low segment file if there is no high segment
file. If the high segment overflows to disk, this means
that LINK will try to run its temporary overflow file, which
has been deleted.
**********
[CURE]
If generating EXE save files, always issue a RUN UUO to
the EXE file.
Digital Equipment Corporation 28-AUG-79 Page 177
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1243 11-Oct-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1426 01-Nov-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 11-Oct-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Nov-78
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1124 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1125 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1125 JNG 1-Nov-78 SPR 10-26379
2) ; Don't try to run the high segment file on /SAVE/RUN (or
/SAVE/DEBUG)
2) ; when generating an EXE file. This fixes ?nnnLHC.EXE not
found when
2) ; the user types the above switches and the HC area has ov
erflowed.
2) ; Routines: LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 178
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1531 04-Oct-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1436 01-Nov-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-Oct-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 1-Nov-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1121 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1125 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1125 Don't try to do a RUN UUO to the hiseg file when generat
ing an EXE file.
2)5 SUBTTL ENTER HERE
**************
1)75 RUNUU1: SKIPN T1,IO.PTR+HC ;GET HIGH SEG POINTER
1) MOVE T1,IO.PTR+LC ;SETTLE FOR LOW SEG IF NO HIGH
****
2)76 ;**;[1125] Insert @ RUNUU1 JNG 1-Nov-78
2) RUNUU1:
2) IFE FTEXE,<
2) SKIPN T1,IO.PTR+HC ;[1125] GET HIGH SEG POINTER
2) > ;END IFE FTEXE
2) MOVE T1,IO.PTR+LC ;SETTLE FOR LOW SEG IF NO HIGH
**************
1)75 SKIPN T1,IO.PTR+LC ;[575] MAKE SURE POINTING AT LOW
SEG
1) JRST RUNUU3 ;[575] HISEG ONLY, USE .LOW
1) MOVE T2,I.EXT(T1) ;[575] MAY AS WELL USE KNOWN EXT
1) TLNN T2,-1 ;[575] EXTENSION KNOWN?
1) RUNUU3: MOVSI T2,'LOW' ;[575] NO, USE .LOW
1) HLLZM T2,%RUN+2 ;[575] STORE EXTENSION & ZERO DA
TE
1) SETZM %RUN+3 ;CLEAR DATE TIME
****
2)76 ;**;[1125] Insert @ RUNUU1+6L JNG 1-Nov-78
2) IFE FTEXE,<
2) SKIPN T1,IO.PTR+LC ;[1125] MAKE SURE POINTING AT LO
W SEG
2) JRST RUNUU3 ;[1125] HISEG ONLY, USE .LOW
2) MOVE T2,I.EXT(T1) ;[1125] MAY AS WELL USE KNOWN EX
T
2) TLNN T2,-1 ;[1125] EXTENSION KNOWN?
2) RUNUU3: MOVSI T2,'LOW' ;[1125] NO, USE .LOW
Digital Equipment Corporation 28-AUG-79 Page 179
PCO Log Report
2) > ;END IFE FTEXE
2) IFN FTEXE,<
2) MOVE T2,I.EXT(T1) ;[1125] GET EXTENSION OF EXE FIL
E
2) > ;END IFN FTEXE
2) HLLZM T2,%RUN+2 ;[1125] STORE EXTENSION & ZERO D
ATE
2) SETZM %RUN+3 ;CLEAR DATE TIME
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 180
PCO Log Report
*********************
*PCO #:10-LINK -249*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 07-NOV-78
[Programmer] GILBERT
[Routines] LNKINI
[Key Words] RUN SFDS ?LNK999.SA 7.01 EX ONLY
[Source Before Edit] %4A (001125)
[Source After Edit] %4A (001126)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26433
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 181
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When LINK is run from an SFD, it will fail with
"?LNK999.SAV not found" before printing an askerisk.
**********
[DIAGNOSIS]
LINK figures out where to GETSEG its other high
segments from by asking the monitor where its first high
segment came from, then GETSEGging the other high segments
from the same place. Unfortunately, in monitors prior to
7.01, the monitor's database that remembers where high
segments come from does not include SFD information, so the
path that LINK gets from the monitor is incorrect if LINK
was run from an SFD.
**********
[CURE]
If LINK finds itself running under a monitor prior to
7.01, have it GETSEG its other high segments using the
arguments that the user typed in the "R" or "RUN" command
that invoked LINK, and which are left in the ACs by the
monitor when LINK starts. These arguments should be
sufficient to find LINK's other high segments, since they
were sufficient to find LINK itself. This means that if
LINK came from an SFD, then it was from some SFD accessible
by specifying the default path, since the monitor's command
decoder (and the arguments left in the ACs) do not allow
SFDs to be specified explicitly.
Note that this change means that LINK will do
non-physical-only GETSEGs under monitors prior to 7.01, and
thus will not be secure if protected execute-only. LINK
will be secure under 7.01, because it will continue to ask
Digital Equipment Corporation 28-AUG-79 Page 182
PCO Log Report
the monitor where its original EXE file came from and do
physical-only GETSEGs to the resulting full path if running
under a 7.01 or later monitor.
Digital Equipment Corporation 28-AUG-79 Page 183
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1426 01-Nov-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1722 01-Nov-1978
1)1 DECEVR==1125 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1126 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1126 JNG 1-Nov-78 SPR 10-26433
2) ; If all 7.01 GETTABs to determine where we came from are
not available,
2) ; use the contents of the ACs to do GETSEG UUOs.
2) ; Routines: LNKINI
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 184
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1406 11-Oct-1978
File 2) LINK:LNKINI.MAC[10,645063] created: 1728 01-Nov-1978
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 11-Oct-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 1-Nov-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1124 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1126 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL INITIALIZE
****
2)2 ;1126 Use ACs for GETSEG args if all 7.01 GETTABs are not avai
lable.
2)3 SUBTTL INITIALIZE
**************
1)4 MOVEM R3,FSTSEG ;SAVE SEGMENT NAME
1) MOVEM R3,SEGBLK+1 ;[600] ALSO FOR RESTART LOGIC
1) MOVE T1,[-2,,.GTDEV] ;DEVICE OF HIGH SEG IF SHAREABLE
1) GETTAB T1, ;FROM MONITOR TABLES
1) SETZ T1, ;FAILED
1) JUMPE T1,[MOVEI T1,<<GETSEG T1,>&777777>
1) HRRM T1,NGTSEG ;REMOVE UU.PHY BIT
1) HRRM T1,EGTSEG ;FROM GETSEGS
1) JRST LINK1A]
1) MOVE .SGDEV,T1 ;USE DEVICE FROM GETTAB
1) MOVE T1,[-2,,.GTPPN] ;IF DEVICE WAS SHAREABLE WE NEED
PPN
1) GETTAB T1, ;SINCE MOST LIKELY WAS SYS:
1) SETZ T1, ;SHOULD NOT FAIL
1) SKIPE T1 ;OR BE ZERO
1) MOVE .SGPPN,T1 ;SO USE [PPN] FROM MONITOR TABLE
S
1) LINK1A: SKIPN T1,.SGDEV ;ALREADY SETUP BY MONITOR?
1) MOVSI T1,'DSK' ;NO, JUST LOADED ASSUME DSK
1) MOVEM T1,SEGBLK ;STORE DEVICE
1) MOVEM T1,ERRBLK ;FOR LNK999 ALSO
1) MOVEM .SGPPN,SEGBLK+4 ;AND PPN
1) MOVEM .SGPPN,ERRBLK+4
1) JUMPE .SGDEV,GETHSO ;IF JUST LOADED, GETTABS POINT T
O LINK
1)5 ;NOW TRY TO GET WHERE WE CAME FROM (INCLUDING SFD'S) VIA GETTAB.
****
2)4 ;**;[1126] Revamp @ F1+1P8L JNG 1-Nov-78
2) ;NOW SET UP THE GETSEG BLOCKS FROM THE ARGUMENTS THE USER TYPED
Digital Equipment Corporation 28-AUG-79 Page 185
PCO Log Report
TO THE
2) ;RUN COMMAND, WHICH ARE LEFT IN THE ACS. IF THE .GTR?? GETTABS
ARE
2) ;AVAILABLE, THE INFORMATION SET UP HERE WILL BE OVERWRITTEN. IF
WE
2) ;ARE RUNNING ON A PRE-7.01 MONITOR, HOWEVER, DOING THE GETSEG ON
THE
2) ;SAME ARGS THAT THE USER TYPED WILL MAXIMIZE OUR CHANCES OF FIND
ING THE
2) ;OTHER SEGMENTS, ESPECIALLY IF SFDS ARE INVOLVED.
2) MOVEM .SGDEV,SEGBLK ;[1126] STORE DEVICE THE USER TY
PED
2) MOVEM .SGDEV,ERRBLK ;[1126] AND A COPY FOR LNK999
2) MOVEM R3,FSTSEG ;SAVE SEGMENT NAME
2) MOVEM R3,SEGBLK+1 ;[600] ALSO FOR RESTART LOGIC
2) MOVEM .SGPPN,SEGBLK+4 ;AND PPN
2) MOVEM .SGPPN,ERRBLK+4
2) ;NOW TRY TO GET WHERE WE CAME FROM (INCLUDING SFD'S) VIA GETTAB.
**************
1)5 SEGLUP: MOVE T3,T2 ;SETUP FOR NEXT SFD
1) GETTAB T3, ;GET IT
1) JRST [TRNN T1,-1 ;FAILED, FIRST TIME?
1) JRST GETHSO ;YES, NOT IMPLEMENTED, GIVE UP
1) JRST GETUFD] ;NO, IMPLEMENTED, BUT WE RAN OUT
1) MOVEM T3,SEGPTH+.PTSFD(T1) ;STORE THIS SFD
1) ADDI T2,1 ;INCREMENT GETTAB ARG
1) AOBJN T1,SEGLUP ;LOOP FOR ALL SFD'S
1) GETUFD: SETZM SEGPTH+.PTSFD(T1) ;FORCE A ZERO AFTER THE
LAST SFD
****
2)4 ;**;[1126] Replace @ SEGLUP JNG 1-Nov-78
2) SFDLUP: MOVE T3,T2 ;[1126] SET UP FOR NEXT SFD
2) GETTAB T3, ;GET IT
2) JRST NOSFD ;[1126] GETTAB FAILED, SEE WHY
2) MOVEM T3,SEGPTH+.PTSFD(T1) ;STORE THIS SFD
2) ADDI T2,1 ;INCREMENT GETTAB ARG
2) AOBJN T1,SFDLUP ;[1126] LOOP FOR ALL SFD'S
2) JRST GETUFD ;[1126] GOT ALL SFDS, NOW FOR UF
D
2) ;HERE WHEN A GETTAB TO GET AN SFD FAILED. SEE IF THE MONITOR IS
TOO OLD.
2) NOSFD: TRNE T1,-1 ;[1126] FAIL FIRST TIME?
2) JRST GETUFD ;[1126] NO, GOT SOME SFDS, USE N
EW DATA
2) MOVEI T1,<<GETSEG T1,>&RH.ALF>;[1126] USE DATA ABOVE
2) HRRM T1,NGTSEG ;[1126] BUT NEED TO REPLACE GETS
EGS
2) HRRM T1,EGTSEG ;[1126] TO REPLACE PHYSICAL ONLY
BIT
Digital Equipment Corporation 28-AUG-79 Page 186
PCO Log Report
2) JRST GETHSO ;[1126] GETSEG INFO DONE, PROCEE
D
2)5 ;HERE IF THE 7.01 GETTABS WORK. FILL IN THE REST OF THE DATA.
2) GETUFD: SETZM SEGPTH+.PTSFD(T1) ;FORCE A ZERO AFTER THE
LAST SFD
**************
1)5 MOVEI T1,SEGPTH ;NOW POINT GETSEG BLOCKS TO PATH
BLOCK
****
2)5 ;**;[1126] Insert @ GETUFD+14L JNG 1-Nov-78
2) HRROI T1,.GTRFN ;[1126] THE FILE NAME WE CAME FR
OM
2) GETTAB T1, ;[1126] GET IT
2) JRST GETHSO ;[1126] CAN'T, LEAVE WELL ENOUGH
ALONE
2) SKIPN T1 ;[1126] RETURN ANYTHING?
2) JRST GETHSO ;[1126] NO, IGNORE IT
2) MOVEM T1,FSTSEG ;[1126] OK, STORE IT
2) MOVEM T1,SEGBLK+1 ;[1126] FOR GETSEGS TOO
2) MOVEI T1,SEGPTH ;NOW POINT GETSEG BLOCKS TO PATH
BLOCK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 187
PCO Log Report
*********************
*PCO #:10-LINK -250*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 14-NOV-78
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] PAT.. LENGTH
[Source Before Edit] %4A (001126)
[Source After Edit] %4A (001127)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: A
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 188
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
No symptoms have been observed because no programs
require it, but the runtime symbol table generated by LINK
does not quite match the spec. In particular, the title
entry for the module PAT.. (which is inserted by LINK) does
not have the negative length of PAT..'s symbol table in the
left half of the value word.
**********
[DIAGNOSIS]
There is no code to put it out. It was probably an
oversight.
**********
[CURE]
Store the negated size of PAT..'s symbol table in the
left half of the value word of the module name entry in the
runtime symbol table.
Digital Equipment Corporation 28-AUG-79 Page 189
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1722 01-Nov-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1723 14-Nov-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Nov-78
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Nov-7
8
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==1126 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1127 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1127 JNG 14-Nov-78 QAR DIB
2) ; Set up the module length for PAT.. in the runtime symbol
table.
2) ; Routine: LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 190
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1436 01-Nov-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1727 14-Nov-1978
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 1-Nov-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Nov-78
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1125 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1127 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1127 Set up the module length for PAT.. in the runtime symbol
table.
2)5 SUBTTL ENTER HERE
**************
1)18 PUSHJ P,SYMOUT
****
2)18 ;**;[1127] Insert @ LSY1+37L JNG 14-Nov-78
2) HRLI W3,-4 ;[1127] FOUR WORDS IN PAT..'S TA
BLE
2) PUSHJ P,SYMOUT
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 191
PCO Log Report
*********************
*PCO #:10-LINK -251*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 26-JAN-79
[Programmer] D. NEFF
[Routines] LNKCOR
[Key Words] PASS /MAXC
[Source Before Edit] %4A (001127)
[Source After Edit] %4A (001130)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27212
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 192
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Edit 650 broke LINK's ability to load large programs in a
relatively small amount of memory by specifying /MAXCOR.
**********
[DIAGNOSIS]
If LINK requests memory from an area that is not big enough, LINK
tries first to expand it to make the request fit in. Prior to edit
650, LINK did this, but forgot to take into account the size of the
request itself, which would then result in a LNKNEC message.
However, edit 650 made LINK always count the size of the request,
even for pageable areas. For these, callers of LNKCOR know that
the request may fail, and will then move the window to the desired
address, and so the added amount of the request can cause LINK to
expand past the /MAXCOR value unnecessarily.
**********
[CURE]
Do not add in the size of the current request if the area for which
the request was made is pageable, i.e., the LC, HC, LS and AS
areas.
Digital Equipment Corporation 28-AUG-79 Page 193
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1723 14-Nov-1978
File 2) LINK:LNKHST.MAC[10,645063] created: 1317 26-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Nov-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
1) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 26-Jan-7
9
2) ;COPYRIGHT (C) 1973, 1979 BY
2) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1127 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1130 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1130 DZN 26-Jan-79 SPR 10-27212
2) ; Make LINK honor /MAXCOR correctly when a request for mem
ory in a
2) ; pagable area is made. In this case, edit 650 made LINK c
ount the
2) ; memory request toward the /MAXCOR value, even though the
window
2) ; can simply be moved.
2) ; Routine: LNKCOR
2)6 END ;OF LNKHST
**************
**********
[SYMPTOM]
If the low segment of a FORTRAN or ALGOL program exceeds the origin
of the associated OTS (object-time system) that will be brought in
at run-time, LINK forces the OTS to be loaded into the low segment
(if possible). However, this determination is made before the
system libraries are searched, which could then cause the low
segment to cross the OTS origin. This causes GETSEG errors or
other problems at run-time.
**********
[DIAGNOSIS]
The decision to load the OTS into the low segment must be made
prior to the system library search, since totally different modules
from the library might be required for the low segment version.
However, if the decision is made to GETSEG the OTS at run-time but
the low segment then grows past the OTS origin, it is too late to
back out to prevent a run-time error.
**********
[CURE]
Change the check so that a low-segment version of the OTS is loaded
if the low segment has grown to within 40 (decimal) pages of the
OTS origin. This is about twice the size of the low segment
portion of the sharable OTS, and will therefore guarantee that the
load will succeed.
Note however that this is only a load-time decision, and it is
still possible for the user's run-time memory requirements to
exceed the room left below the OTS. This can generally be found
simply by trial and error, and the /OTS switch used to force a
sharable OTS (if less memory is needed) or a low-segment OTS (if
more memory is needed).
Digital Equipment Corporation 28-AUG-79 Page 197
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1317 26-Jan-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1433 26-Jan-1979
1)1 DECEVR==1130 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1131 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1131 DZN 26-Jan-79 SPR 10-27123
2) ; Make LINK decide to load a non-sharable OTS if the low s
egment
2) ; has grown within 40 pages of the origin of the OTS high
segment
2) ; rather than letting the low segment grow past it first.
2) ; Otherwise, the low segment may cross the beginning of th
e OTS
2) ; during the system library search when it is too late to
fix it.
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 198
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1814 22-Sep-1978
File 2) LINK:LNKLOD.MAC[10,645063] created: 1529 26-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 22-Sep-7
8
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 26-Jan-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKLOD
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKLOD
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1131 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1131 Force non-reentrant OTS sooner, if low segment is within
40 pages of 400000.
2)5 SUBTTL LOAD CONTROL
**************
1)85 QREENT: HRLZ T1,HL.S1 ;[574] GET CURRENT END OF LOW SE
G
1) JUMPGE T1,QREEN1 ;[574] IF .GT. 128K, CAN'T BE SH
ARABLE
1) SKIPN HL.S2 ;[574] NON-SHARABLE OTS. HIGH SE
G EXIST?
****
2)85 ;**;[1131] Replace @QREENT DZN 26-Jan-79
2) QREENT: MOVE T1,HL.S1 ;[1131] GET CURRENT END OF LOW S
EGMENT
2) CAIGE T1,400000-50000 ;[1131] SEE IF WITHIN 40 DECIMAL
PAGES OF HISEG
2) JRST QREEN1 ;[1131] YES--GO TRY TO FOR NON-S
HARABLE OTS
2) SKIPN HL.S2 ;[574] NON-SHARABLE OTS. HIGH SE
G EXIST?
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 199
PCO Log Report
*********************
*PCO #:10-LINK -253*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) + EDIT 1110
[Date Entered] 30-JAN-79
[Programmer] GILBERT
[Routines] LNKXIT LNKOLD LNKLOD LNKWLD
[Key Words] BAD EXE FI MANY BUGS
[Source Before Edit] %4A (001131)
[Source After Edit] %4A (001132)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26576
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 200
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
There are several problems that users may run into if
LINK tries to create an EXE file, as follows:
1. LINK will get an address check if the low segment
ends on the last word of a page, and if the program
is not so large that LINK needs to overflow to
disk.
2. LINK will get an address check if loading a PSECTed
program. This will occur if the lowest code loaded
is at 2000 or above, and the program is not so
large that LINK needs to overflow to disk.
3. Any absolute code loaded beyond the last
relocatable code will be lost, and will not appear
in the EXE file.
4. LINK will write a bad EXE directory when loading
overlays if the user gives a /SPACE switch with a
small (less than a page) argument.
5. LINK will write a bad EXE directory if the program
being loaded is so complex that the EXE directory
is longer than two pages.
6. The EXE file that LINK writes will be bad if the
user loads any PSECTs at higher addresses than the
high segment. The high segment will be written
into the EXE file twice.
7. LINK can write an EXE file that does not contain
page 0. Instead, what should have been page 1 will
be written as page 0, page 2 will be written as
page 201 and so on for some or possibly the rest of
the EXE file. This will happen if page 202 is the
lowest page that the user has loaded anything into.
8. PSECT attributes specified by the user in the
source program will be ignored by LINK, and will
not appear in the EXE directory.
Digital Equipment Corporation 28-AUG-79 Page 203
PCO Log Report
9. If the user is loading PSECTs and requests a DDT
symbol table, the symbol table written will contain
junk. LINK incorrectly writes each PSECT into the
symbol table as a null module name once for each
module that uses that PSECT.
10. LINK can get a ?LNKCNW error when loading PSECTs if
the user has requested a DDT symbol table. This
will happen if the last program loaded does not
define any more symbols after the first appearance
of a PSECT statement for some PSECT that LINK has
never seen before.
11. LINK can overwrite an overlaid PSECT with the
symbol table. This will happen if the user tells
LINK to place the DDT symbol table after the
overlaid PSECT, using the /SYMSEG:PSECT:name
switch.
**********
[DIAGNOSIS]
Several logic errors in the EXE file writing code.
**********
[CURE]
Rework the faulty routines, as shown in the attached
FILCOM. Note that this edit requires edit 1110, and
supersedes edits 774 and 776 if installed.
Digital Equipment Corporation 28-AUG-79 Page 204
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1433 26-Jan-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 0835 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 26-Jan-7
9
1)
1)
1) ;COPYRIGHT (C) 1973, 1979 BY
1) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 30-Jan-7
9
2)
2)
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
2) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1131 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)5
1)6 END ;OF LNKHST
****
2)5 ; Routine: LNKLOD
2)
2) ;1132 JNG 30-Jan-79 SPR 10-26576
2) ; Re-work EXE file writer to fix several problems, includi
ng:
2) ; . PSECTs above the high segment not written properly.
2) ; . Absolute code not loaded correctly.
2) ; . Bad EXE directory if loading overlays and small /SPACE
switch.
2) ; . PSECT attributes not written into the EXE file.
2) ; . Page 1 written into page 0 if page 1 is lowest page co
ntaining code.
2) ; . Address checks when writing the EXE file.
2) ; . Bad EXE file if EXE directory is longer than two pages
.
2) ; . ?LNKCNW or bad DDT symbol table when loading PSECTs.
2) ; Routines: LNKPAR, LNKINI, LNKLOD, LNKOLD, LNKWLD, LNKXIT
.
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 205
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1812 05-Oct-1978
File 2) LINK:LNKPAR.MAC[10,645063] created: 0833 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Oct-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 30-Jan-7
9
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1122 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1132 Add AT.PS.
2)
**************
1)16 AT.PA==:1B13 ;[722] PAGE ALIGNED
****
2)16 ;**;[1132] Insert @ AT.RP definition +1L JNG 30-Jan-7
9
2) AT.PS==:1B1 ;[1132] PSECT SEEN (IN THIS MODULE)
2) AT.PA==:1B13 ;[722] PAGE ALIGNED
**************
Digital Equipment Corporation 28-AUG-79 Page 206
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1728 01-Nov-1978
File 2) LINK:LNKINI.MAC[10,645063] created: 1101 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 1-Nov-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 30-Jan-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1126 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1132 Initialize .LOW.'s RC.AT and RC.HL.
2)
**************
1)8 SETZM RC.SG(P1) ;SET TO 0 SEGMENT
1) HRL T2,P1 ;BUILD BLT POINTER
1) HRRI T2,1(P1) ;TO CLEAR ALL OF ABS RC BLOCK
1) BLT T2,RC.INC-1(P1)
1) MOVE T2,['.ABS. '] ;NAME OF IT
****
2)8 ;**;[1132] Change @ CORINI+25L JNG 30-Jan-79
2) MOVEI T2,1 ;[1132] SET TO LC AREA
2) MOVEM T2,RC.SG(P1) ;[1132]
2) MOVEI T2,.JBDA ;[1132] INIT H?.S0 TO SHOW JOBDA
T LOADED
2) MOVEM T2,HC.S0 ;[1132] HIGHEST LOCATION NON-ZER
O
2) MOVEM T2,HL.S0 ;[1132] HIGHEST LOCATION SEEN
2) MOVE T2,['.ABS. '] ;NAME OF IT
**************
1)9 SETZM RC.OF(P1) ;ZERO RELATIVE TO LC.LB
1) SETZM RC.HL(P1) ;HAVEN'T LOADED ANY YET
1) MOVEI T2,LC.LB ;POINT TO LOW SEGMENT
****
2)9 ;**;[1132] Change @ CORINI+1P13L JNG 30-Jan-79
2) MOVEM T2,RC.HL(P1) ;[1132] ALSO HIGHEST LOADED SO F
Digital Equipment Corporation 28-AUG-79 Page 207
PCO Log Report
AR
2) SETZM RC.OF(P1) ;ZERO RELATIVE TO LC.LB
2) MOVEI T2,LC.LB ;POINT TO LOW SEGMENT
**************
Digital Equipment Corporation 28-AUG-79 Page 208
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1529 26-Jan-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 0835 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 26-Jan-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 30-Jan-7
9
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1131 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1132 Teach SEGCHK about PSECTs above the high segment.
2)
**************
1)50 SEGCHK::HRRI R,2 ;ASSUME IN HIGH SEG
1) SKIPE LL.S2 ;MUST BE LOW IF ONLY ONE SEGMENT
1) CAMGE T2,LL.S2 ;IN HIGH SEGMENT
1) HRRI R,1 ;[632] NO, SET R TO LOW SEGMENT
1) SKIPN PAG.S0(R) ;[632] IS THIS AREA PAGING?
1) JRST SEGCK1 ;[632] NO, ADDR CAN'T BE ON DISK
1) IFN FTOVERLAY,<
1) TRNN R,-2 ;[632] LOW SEG?
1) SUB T2,PH.ADD ;[632] YES, OFFSET IF NOT ROOT
1) > ;END OF IFN FTOVERLAY
1) SUB T2,LL.S0(R) ;[632] CONVERT TO OFFSET IN SEGM
ENT
1) CAML T2,LW.S0(R) ;[632] IS ADDRESS IN CORE?
1) CAMLE T2,UW.S0(R) ;[632] MAYBE, IS IT?
1) TLZA R,1 ;[632] NO, REMEMBER IT (BORROW 1
B17)
1) TLO R,1 ;[632] YES, IT IS IN CORE
1) ADD T2,LL.S0(R) ;[632] PUT T2 BACK IN CASE WE RE
TURN
1) IFN FTOVERLAY,<
Digital Equipment Corporation 28-AUG-79 Page 209
PCO Log Report
1) TRNN R,-2 ;[632] LOW SEG ADDRESS?
1) ADD T2,PH.ADD ;[632] YES, PUT BACK FOR .JDDT O
R POPJ
1) > ;END OF IFN FTOVERLAY
1) TLZN R,1 ;[632] SHOULD WE CONTINUE?
1) POPJ P, ;[632] ADDRESS WAS ON DISK, RETU
RN
1)
1) ;HERE IF ADDRESS IS DEFINITELY IN CORE. CONVERT TO PHYS. ADDR &
RETURN.
1) SEGCK1: .JDDT LNKLOD,SEGCK1,<<CAMN T2,$LOCATION>> ;[632]
1) IFN FTOVERLAY,<
1) TRNN R,-2 ;[632] IF LOW SEGMENT
1) SUB T2,PH.ADD ;[632] MAKE OFFSET FROM START OF
LINK
1) > ;END OF IFN FTOVERLAY
1) SUB T2,LL.S0(R) ;[632] MAKE RELATIVE TO SEGMENT
START
1) SUB T2,LW.S0(R) ;[632] RELATIVE TO IN-CORE PART
OF AREA
****
2)50 ;**;[1132] Replace @ SEGCHK JNG 30-Jan-79
2) SEGCHK::
2) PUSH P,T2 ;[1132] SAVE USER VIRTUAL ADDRES
S
2) HRRI R,2 ;ASSUME IN HIGH SEG
2) SKIPE LL.S2 ;[1132] MUST BE LOW IF ONLY ONE
SEGMENT
2) CAMGE T2,LL.S2 ;[1132] BELOW BOTTOM OF HIGH SE
GMENT?
2) SOJA R,SEGCK2 ;[1132] IN LOW SEGMENT
2) SUB T2,LL.S2 ;[1132] FORM OFFSET INTO HIGH SE
GMENT
2) CAMGE T2,HL.S2 ;[1132] BEFORE END OF HIGH SEGME
NT?
2) JRST SEGCK4 ;[1132] YES, IN HIGH SEGMENT
2) MOVE T2,0(P) ;[1132] RESTORE ADDRESS (OFFSET
INTO LOW SEG)
2) HRRI R,1 ;[1132] SET R TO LOW SEGMENT
2) SEGCK2: ;[1132] HERE IF T2 AND R POINT T
O LOW SEG
2) IFN FTOVERLAY,<
2) SUB T2,PH.ADD ;[1132] OFFSET INTO LC IF NOT RO
OT LINK
2) > ;END IFN FTOVERLAY
2)
2) SEGCK4: SKIPN PAG.S0(R) ;[1132] IS THIS AREA PAGING?
2) JRST SEGCK6 ;[1132] NO, ADDR CAN'T BE ON DIS
K
Digital Equipment Corporation 28-AUG-79 Page 210
PCO Log Report
2) CAML T2,LW.S0(R) ;[632] IS ADDRESS IN CORE?
2) CAMLE T2,UW.S0(R) ;[632] MAYBE, IS IT?
2) JRST [POP P,T2 ;[1132] NOT IN CORE, RESTORE CAL
LER'S T2
2) POPJ P,] ;[1132] RETURN TO CALLER
2)
2) ;HERE IF ADDRESS IS DEFINITELY IN CORE.
2) SEGCK6: EXCH T2,0(P) ;[1132] GET PHYSICAL ADDRESS FOR
.JDDT
2) .JDDT LNKLOD,SEGCK6,<<CAMN T2,$LOCATION>> ;[1132]
2) POP P,T2 ;[1132] RESTORE OFFSET INTO SEGM
ENT
2) SUB T2,LW.S0(R) ;[632] RELATIVE TO IN-CORE PART
OF AREA
**************
1)68 MOVE T1,@RC.TB ;[747] NEXT PSECT ORIGIN MUST BE
THE LOWEST LOC
1) MOVE W1,RC.IV(T1) ;[747]
****
2)68 ;**;[1132] Replace @ CHKLLC+13L JNG 30-Jan-79
2) CAMLE R,RC.NO ;[1132] NEXT PSECT ORG MUST BE L
OWEST
2) JRST [SETZM LOWLOC ;[1132] NO NEXT, LOWLOC IS ZERO
2) JRST CHKLL1] ;[1132] DONE
2) MOVE T1,@RC.TB ;[1132] GET POINTER TO RC BLOCK
2) MOVE W1,RC.IV(T1) ;[747]
**************
1)88 SETZM RC.HL(R) ;CLEAR IN EITHER CASE
1) MOVEI R,2 ;NO FOR HIGH SEGMENT
****
2)88 ;**;[1132] Delete @ EOFTS+7L JNG 30-Jan-79
2) MOVEI R,2 ;NO FOR HIGH SEGMENT
**************
1)88 SETZM RC.HL(R) ;CLEAR IN EITHER CASE
1) ;**;[1114] Insert after EOFTS+14L DZN 1-Sep-78
****
2)88 ;**;[1132] Delete @ EOFTS+14L JNG 30-Jan-79
2) ;**;[1114] Insert after EOFTS+14L DZN 1-Sep-78
**************
Digital Equipment Corporation 28-AUG-79 Page 211
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1847 25-Sep-1978
File 2) LINK:LNKOLD.MAC[10,645063] created: 0834 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 22-Sep-7
8
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 30-Jan-7
9
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1132 Check for PSECT seen in this module with AT.PS; preserve
RC.HL
2)
**************
1)42 MOVEI T2,-.FRESP-1(W1) ;[745] RESERVED SOME FRE
E SPACE
1) MOVEM T2,SYMLIM ;[745] CORRECT SYMBOL TABLE LIMI
T
1) MOVEI R,2 ;RELOCATION FOR HIGH SEGMENT
1) MOVE R,@SG.TB ;GET BLOCK POINTER
1) MOVEM W1,LL.S2 ;FOR INPUT ROUTINE ONLY
****
2)42 ;**;[1132] Delete @ SETRC+13L JNG 30-Jan-79
2) MOVEM W1,LL.S2 ;FOR INPUT ROUTINE ONLY
**************
1)42 MOVEI T1,2 ;SEGMENT NUMBER
****
2)42 ;**;[1132] Insert @ SETRC+33L JNG 30-Jan-79
2) MOVEM W1,RC.HL(R) ;[1132] CONSIDER THESE TO BE LOA
DED
2) MOVEI T1,2 ;SEGMENT NUMBER
**************
1)42 SETZM RC.HL(R)
Digital Equipment Corporation 28-AUG-79 Page 212
PCO Log Report
1) MOVEI T1,HC.LB
****
2)42 ;**;[1132] Delete @ SETRC+36L JNG 30-Jan-79
2) MOVEI T1,HC.LB
**************
1)42
1)43 ;HERE IF DESIRED RC SLOT IS NOT FREE
****
2)43 ;HERE IF DESIRED RC SLOT IS NOT FREE
**************
1)48 SETZM RC.HL(R) ;CLEAR HIGHEST IN PROGRESS
1) CAMLE W1,HL.S1 ;AND HIGHEST ADDRESS IN THIS SEG
MENT
****
2)48 ;**;[1132] Replace @ T.5LS+6L JNG 22-Jan-79
2) MOVEM W1,RC.HL(R) ;[1132] MAKE SURE HL IS UP TO DA
TE TOO
2) CAMLE W1,HL.S1 ;AND HIGHEST ADDRESS IN THIS SEG
MENT
**************
1)48 SETZM RC.HL(R)
1) MOVE T1,W2 ;GET A COPY
****
2)48 ;**;[1132] Replace @ T.5HS+6L JNG 30-Jan-79
2) MOVEM W2,RC.HL(R) ;[1132] MAKE SURE HL IS HIGHEST
POSSIBLE
2) MOVE T1,W2 ;GET A COPY
**************
1)49 T.5RET: SKIPE UW.LS ;ARE WE PAGING SYMBOLS?
****
2)49
2)50 T.5RET: SKIPE UW.LS ;ARE WE PAGING SYMBOLS?
**************
1)49 SKIPN T2,RC.HL(T1) ;DID WE LOAD CODE FOR THIS ONE?
1) JRST T.5PSB ;NO
1) MOVE W2,RC.NM(T1) ;GET NAME
****
2)50 ;**;[1132] Change @ T.5PSA+1L JNG 30-Jan-79
2) MOVX T2,AT.PS ;[1132] FLAG FOR PSECT SEEN IN T
HIS MODULE
2) TDNN T2,RC.AT(T1) ;[1132] DID WE SEE THIS PSECT IN
THIS MODULE?
2) JRST T.5PSB ;NO
2) ANDCAB T2,RC.AT(T1) ;[1132] CLEAR FLAG FOR NEXT TIME
2) MOVE W2,RC.NM(T1) ;GET NAME
**************
1)49 HLL T3,RC.AT(T1) ;[722] GET ATTRIBUTE
1) TXNE T3,AT.OV ;[722] TO BE OVERLAYED?
1) JRST [CAMLE T2,RC.CV(T1) ;[757] THIS MODULE CAUSE
Digital Equipment Corporation 28-AUG-79 Page 213
PCO Log Report
AN
1) JRST T.5PSB ;[757] OVERLAYABLE PSECT
TO GROW? NO,
1) JRST T.5PSD] ;[757] YES, DON'T UPDATE
RC.CV
1) CAMLE T2,RC.CV(T1) ;BIGGER THAN WHAT WE HAVE?
1) MOVEM T2,RC.CV(T1) ;YES
1) SETZM RC.HL(T1) ;[757] CLEAR FOR NEXT MODULE
1) T.5PSD: PUSHJ P,LS.ADD## ;PUT IN LOCAL TABLE
****
2)50 ;**;[1132] Change @ T.5PSA+6L JNG 30-Jan-79
2) MOVE T3,RC.HL(T1) ;[1132] GET HIGHEST SEEN
2) TXNN T2,AT.OV ;[1132] OVERLAID PSECT?
2) CAMG T3,RC.CV(T1) ;[1132] OR LOWER THAN WHAT WE HA
VE?
2) JRST T.5PSD ;[1132] YES, DONE UPDATE RC.CV
2) MOVEM T3,RC.CV(T1) ;[1132] UPDATE CV FOR NEXT MODUL
E
2) T.5PSD: PUSHJ P,LS.ADD## ;PUT IN LOCAL TABLE
**************
1)51 SETZM RC.HL(R) ;CLEAR HIGHEST IN PROGRE
SS
1) CAMLE W2,HL.S1 ;AND HIGHEST ADDRESS IN
THIS SEGMENT
****
2)52 ;**;[1132] Replace @ T.5FL+13L JNG 30-Jan-79
2) MOVEM W2,RC.HL(R) ;[1132] HIGHEST LOCATION
LOADED
2) CAMLE W2,HL.S1 ;AND HIGHEST ADDRESS IN
THIS SEGMENT
**************
1)51 SETZM RC.HL(R) ;CLEAR HIGHEST IN PROGRESS
1) CAMLE W1,HL.S1 ;AND HIGHEST ADDRESS IN THIS SEG
MENT
****
2)52 ;**;[1132] Replace @ T.5FL+21L JNG 30-Jan-79
2) MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
2) CAMLE W1,HL.S1 ;AND HIGHEST ADDRESS IN THIS SEG
MENT
**************
1)51
1)52 ;HERE FOR FORCED HIGH SEGMENT
****
2)52 ;HERE FOR FORCED HIGH SEGMENT
**************
1)52 SETZM RC.HL(R)
1) MOVE T1,W2 ;GET A COPY
****
2)52 ;**;[1132] Replace @ T.5FH+13L JNG 30-Jan-79
Digital Equipment Corporation 28-AUG-79 Page 214
PCO Log Report
2) MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
2) MOVE T1,W2 ;GET A COPY
**************
1)52 SETZM RC.HL(R)
1) MOVE T1,W2 ;GET A COPY
****
2)52 ;**;[1132] Delete @ T.5FH+23L JNG 30-Jan-79
2) MOVEM W2,RC.HL(R) ;[1132] FOR LNKXIT
2) MOVE T1,W2 ;GET A COPY
**************
1)101 T.24A: AOS RC.CUR ;GOES IN NEXT SLOT
1) MOVE R,RC.NO ;START AT BACK OF TABLE
****
2)101 ;**;[1132] Insert @ T.24A JNG 30-Jan-79
2) T.24A: TXO W3,AT.PS ;[1132] PSECT SEEN IN THIS MODUL
E
2) AOS RC.CUR ;GOES IN NEXT SLOT
2) MOVE R,RC.NO ;START AT BACK OF TABLE
**************
1)101 JRST [TXZ W1,AT.RP ;FOUND IT, MUST HAVE ORI
G ALREADY
1) IORM W1,RC.AT(T1) ;UPDATE ATTRIBUTES
1) JRST T.24B] ;GO CHECK ORDERING
****
2)101 ;**;[1132] Change @ T.24A+4L JNG 30-Jan-79
2) JRST [TXZ W3,AT.RP ;[1132] FOUND IT, MUST H
AVE ORIG ALREADY
2) IORM W3,RC.AT(T1) ;[1132] UPDATE ATTRIBUTE
S
2) JRST T.24B] ;GO CHECK ORDERING
**************
Digital Equipment Corporation 28-AUG-79 Page 215
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1844 05-Oct-1978
File 2) LINK:LNKWLD.MAC[10,645063] created: 0834 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 5-Oct-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 30-Jan-7
9
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1122 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1132 Allow loading of PSECTs above the high segment.
2)
**************
1)40 SET2: CAMG R1,RC.NO ;CHECKED ALL WE'VE SET UP?
1) AOJA R1,SET1 ;NO
1) SET3: PUSHJ P,.SAVE4## ;[714] SAVE P1-P4
1) MOVX W1,PT.SGN!PT.SYM ;[714] SET FLAGS
****
2)40 ;**;[1132] Change @ SET2 JNG 30-Jan-79
2) SET2: CAMGE R1,RC.NO ;[1132] CHECKED ALL WE'VE SET UP
?
2) AOJA R1,SET1 ;NO
2) SET3: ADDI R,1 ;[1132] NOT THERE - INSERT IN NE
XT FREE SLOT
2) PUSHJ P,.SAVE4## ;[714] SAVE P1-P4
2) MOVX W1,PT.SGN!PT.SYM ;[714] SET FLAGS
**************
1)40 SET4: MOVEI T1,1 ;ASSUME LOW SEG
1) SKIPE LL.S2 ;DO WE HAVE A CHOICE?
1) CAMGE W3,LL.S2 ;YES, BUT IN HIGH SEG?
1) JRST SET5 ;NOT HIGH SEG
1) ADDI T1,1 ;HIGH = 2
1) SET5: MOVEM T1,RC.SG(R) ;SEGMENT NUMBER
1) EXCH R,T1 ;SWAP, PUT SEG # IN R
Digital Equipment Corporation 28-AUG-79 Page 216
PCO Log Report
****
2)40 ;**;[1132] Replace @ SET4 JNG 30-Jan-79
2) SET4: MOVEI T1,1 ;[1132] ALL PSECTS ARE IN THE LC
AREA
2) MOVEM T1,RC.SG(R) ;[1132] SEGMENT NUMBER
2) EXCH R,T1 ;SWAP, PUT SEG # IN R
**************
1)40 MOVE T2,RC.LB(R) ;BASE OF AREA
****
2)40 ;**;[1132] Insert @ SET4+17L JNG 30-Jan-79
2) CAMLE W3,RC.HL(T1) ;[1132] HIGHEST LOCATION SO FAR?
2) MOVEM W3,RC.HL(T1) ;[1132] YES, STORE IT
2) MOVE T2,RC.LB(R) ;BASE OF AREA
**************
1)40 SETE: .ERR. (MS,,V%L,L%F,S%F,RCF,<Relocation counter table f
ull>)
1)
1) SETL: .ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set >)
****
2)40 ;**;[1132] Delete @ SETE JNG 30-Jan-79
2) SETL: .ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set >)
**************
Digital Equipment Corporation 28-AUG-79 Page 217
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1727 14-Nov-1978
File 2) LINK:LNKXIT.MAC[10,645063] created: 1219 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Nov-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 30-Jan-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1127 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1132 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1132 Teach the EXE file writer about PSECTs above the high se
gment.
2)
**************
1)15 SKIPL SYMSEG ;[715] A PSECT WAS SPECIFIED?
1) ;**;[1110] Add label @ GETSST+2L MCHC 7-Aug-78
1) GETS0: JRST [SKIPGE T1,SYMLIM ;[1110][727] HAVE A DEFA
ULT LIMIT?
1) HRRZM T1,SYMLIM ;[727] YES, MAKE IT THE
LIMIT
1) SKIPN HL.S0(R) ;[715] NO, NULL SEGMENT?
1) ADD P4,[EXP .JBDA,.JBHDA]-1(R) ;[715] SAVE J
OBDAT
1) ADDB P4,HL.S0(R) ;[715] HIGHEST LOADED F
OR SEG
1) POP P,T1 ;[727] RESTORE T1
1) POPJ P,] ;[715] RETURN FROM HERE
IF HIGH/LOW
1) SETZ R, ;[727] YES, HAVE PSECT NAME
1) GETS1: MOVE T1,@RC.TB ;[715]
1) MOVE T2,RC.NM(T1) ;[715] GET PSECT NAME
1) CAMN T2,SSGNAM ;[715] IS THIS THE ONE?
1) JRST GETS2 ;[715] YES,
1) ADDI R,1 ;[715] NEXT ONE
1) CAMG R,RC.NO ;[715] ANY MORE?
Digital Equipment Corporation 28-AUG-79 Page 218
PCO Log Report
1) JRST GETS1 ;[715] YES, LOOP
1) ;**;[1110] Change @ GETS1+7L MCHC 7-Aug-78
1) .ERR. (MS,.EC,V%M,L%W,S%W,NPS,<NON-EXISTENT PSECT SPEC
IFIED -- >) ;[1110]
1) .ETC. (SBX,.EP,,,,SSGNAM) ;[1110] OUTPUT PSECT NAM
E
1) MOVEI R,1 ;[715] SET TO LOW
1) MOVEM SYMSEG ;[715]
1) JRST GETS0 ;[1110][715] AND LOOP BACK
1)
1) GETS2: MOVE T2,RC.CV(T1) ;[715] GET HIGHEST LOCATION
1) ADDB P4,T2 ;[715] GET SYMBOL START ADDR
1) CAMLE P4,HL.S1 ;[715] GREATER THAN HIGHT LOCATI
ON?
1) MOVEM P4,HL.S1 ;[715] UPDATE IT IN THAT CASE
1) SKIPLE SYMLIM ;[727] DO WE HAVE A LIMIT
1) JRST GETS3 ;[715] FROM THE LAST CALL TO HE
RE
1) GETS4: ADDI R,1 ;[715] NEXT PSECT
1) CAMG R,RC.NO ;[715] SKIP IF NO MORE
1) JRST [MOVE T1,@RC.TB ;[715] THERE IS ONE
1) MOVE T2,RC.IV(T1) ;[715] GET ITS ORIGIN
1) SUBI T2,1 ;[727] ONE LESS
1) MOVEM T2,SYMLIM ;[715] MAKE IT THE SYMBO
L LIMIT
1) JRST GETS3] ;[715]
1) SETOM SYMLIM ;[715] NO LIMIT AND BEEN HERE BE
FORE
1) GETS3: MOVE T1,P4 ;[764] GET START OF THE SYMBOL T
ABLE
1) TRZ T1,777 ;[764] ROUND DOWN TO PAGE BOUND
1) CAMGE T1,LOWLOC ;[764] LOWER THAN ANY CODE?
1) MOVEM T1,LOWLOC ;[764] YES, UPDATE LOWEST LOCATI
ON
1) MOVEI R,1 ;[715] UPDATE SEGMENT#
1) POP P,T1 ;[715] RESTORE AC'S
****
2)15 ;**;[1132] Revamp @ GETSST+1L JNG 30-Jan-79
2) SKIPGE SYMSEG ;[1132] /SYMSEG TO A PSECT?
2) JRST GETS10 ;[1132] YES, GO FIND IT
2) GETS2: CAIE R,1 ;[1132] /SYMSEG:LOW?
2) JRST GETS8 ;[1132] NO, MUST BE /SYMSEG:HIGH
2)
2) SPUSH <T2,T3,T4> ;[1132] SAVE SOME ACS FOR LOOP
2) SETZB R,T3 ;[1132] ON /SYMSEG:LOW, WE WANT
TO PUT THE
2) GETS4: MOVE T1,@RC.TB ;[1132] SYMBOLS AFTER THE LAST
PSECT, SO WE
2) MOVE T2,RC.NM(T1) ;[1132] GET THE NAME OF THIS PSE
Digital Equipment Corporation 28-AUG-79 Page 219
PCO Log Report
CT
2) CAMN T2,['.HIGH.'] ;[1132] IS THIS THE HIGH SEG?
2) JRST GETS6 ;[1132] YES, IT DOESN'T COUNT FO
R /SYMSEG:LOW
2) MOVE T2,RC.HL(T1) ;[1132] NEED TO FIND THE PSECT
THAT ENDS LAST
2) CAMG T2,T3 ;[1132] HIGHEST SO FAR?
2) JRST GETS6 ;[1132] NO, CONTINUE
2) MOVE T3,T2 ;[1132] SAVE NEW BEST
2) MOVE T4,R ;[1132] AND WHAT PSECT IT WAS
2) GETS6: CAMGE R,RC.NO ;[1132] ALL DONE?
2) AOJA R,GETS4 ;[1132] NO, LOOP
2) MOVE R,T4 ;[1132] YES, SAVE PSECT INDEX OF
LAST ONE
2) SPOP <T4,T3,T2> ;[1132] RESTORE ACS
2) JRST GETS14 ;[1132] GO UPDATE THAT PSECT
2)
2) GETS8: MOVE T1,['.HIGH.'] ;[1132] /SYMSEG:HIGH IS JUST LIK
E A PSECT
2) MOVEM T1,SSGNAM ;[1132] STORE
2)
2) GETS10: SETZ R, ;[727] YES, HAVE PSECT NAME
2) GETS12: MOVE T1,@RC.TB ;[1132]
2) MOVE T1,RC.NM(T1) ;[1132] GET PSECT NAME
2) CAMN T1,SSGNAM ;[1132] IS THIS THE ONE?
2) JRST GETS14 ;[1132] YES,
2) ADDI R,1 ;[715] NEXT ONE
2) CAMG R,RC.NO ;[715] ANY MORE?
2) JRST GETS12 ;[1132] YES, LOOP
2) .ERR. (MS,.EC,V%M,L%W,S%W,NPS,<NON-EXISTENT PSECT SPEC
IFIED -- >) ;[1110]
2) .ETC. (SBX,.EP,,,,SSGNAM) ;[1110] OUTPUT PSECT NAM
E
2) MOVEI R,1 ;[1132] SET TO LOW
2) MOVEM R,SYMSEG ;[1132]
2) JRST GETS2 ;[1132] AND LOOP BACK
2)
2) ;FALL INTO NEXT PAGE
2)
2)16 ;FALL IN FROM ABOVE
2)
2) GETS14: SKIPL SYMLIM ;[1132] HAVE A LIMIT YET?
2) JRST GETS18 ;[1132] YES, PROCEED
2) ADDI R,1 ;[1132] NO, CHECK NEXT PSECT
2) CAMLE R,RC.NO ;[1132] IS THERE ONE?
2) JRST GETS16 ;[1132] NO, USE 777777
2) MOVE T1,@RC.TB ;[1132] RC BLOCK FOR NEXT PSECT
2) MOVE T1,RC.IV(T1) ;[1132] BOTTOM OF IT
2) SOSA T1 ;[1132] LIMIT IS ONE BELOW
Digital Equipment Corporation 28-AUG-79 Page 220
PCO Log Report
2) GETS16: MOVEI T1,777777 ;[1132] USE 777777 IF NO NEXT PS
ECT
2) MOVEM T1,SYMLIM ;[1132] STORE
2) SUBI R,1 ;[1132] BACK TO OLD PSECT
2)
2) GETS18: MOVE T1,@RC.TB ;[1132] THIS PSECT'S RC BLOCK
2) MOVEM T1,SYMPSC ;[1132] SAVE FOR SYDONE
2) ADD P4,RC.HL(T1) ;[1132] COMPUTE START OF SYMBOL
TABLE
2) MOVE R,RC.SG(T1) ;[1132] SEGMENT SYMBOL TABLE IS
IN
2) MOVE T1,P4 ;[1132] GET START OF THE SYMBOL
TABLE
2) TRZ T1,777 ;[1132] ROUND DOWN TO PAGE BOUND
2) CAMGE T1,LOWLOC ;[1132] LOWER THAN ANY CODE?
2) MOVEM T1,LOWLOC ;[1132] YES, UPDATE LOWEST LOCAT
ION
2) SUB P4,LL.S0(R) ;[1132] OFFSET TO SEGMENT START
2) CAMLE P4,HL.S0(R) ;[1132] UPDATE HL FOR THAT SEGME
NT
2) MOVEM P4,HL.S0(R) ;[1132] BUT NEVER DECREASE
2) POP P,T1 ;[715] RESTORE AC'S
**************
1)34 SUBI T2,0(T3) ;FIND - LENGTH
****
2)35 ;**;[1132] Insert @ SYDONE+15L JNG 30-Jan-79
2) MOVE T1,SYMPSC ;[1132] GET POINTER TO /SYMSEG R
C BLOCK
2) CAMLE T3,RC.HL(T1) ;[1132] INCORPORATE SYMBOLS INTO
THAT PSECT
2) MOVEM T3,RC.HL(T1) ;[1132] BUT NEVER SHRINK A PSECT
2) SUBI T2,0(T3) ;FIND - LENGTH
**************
1)35 LTITLE: PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
1) TXNE W1,PT.BLK ;ONLY A FAIL BLOCK HEADER?
****
2)36 ;**;[1132] Insert @ LTITLE JNG 30-Jan-79
2) LTITLE: TXNE W1,PT.PSC ;[1132] JUST A PSECT DEFINITION?
2) JRST LSLOOP ;[1132] YES, DON'T PUT IN SYMBOL
TABLE
2) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
2) TXNE W1,PT.BLK ;ONLY A FAIL BLOCK HEADER?
**************
1)41 IFN FTEXE,<JRST JBEXE> ;SET UP TO WRITE AN EXE FILE
****
2)42 ;**;[1132] Insert @ JBSAVE+23L JNG 30-Jan-79
2) SKIPL SYMSEG ;[1132] SYMBOLS IN A PSECT?
2) JRST JBSAVX ;[1132] NO, SKIP THIS
2) HLRE T1,.JBSYM(P1) ;[1132] YES, GET -LENGTH OF TABL
E
2) HRRZ T2,.JBSYM(P1) ;[1132] GET FIRST ADDR OF TABLE
Digital Equipment Corporation 28-AUG-79 Page 221
PCO Log Report
2) SUB T2,T1 ;[1132] COMPUTE FIRST FREE AFTER
TABLE
2) CAMLE T2,HC.S1 ;[1132] UPDATE AMOUNT OF CODE IN
LC AREA
2) MOVEM T2,HC.S1 ;[1132] BUT NEVER DECREASE
2) CAMLE T2,HL.S1 ;[1132] ALSO UPDATE SIZE OF SEGM
ENT
2) MOVEM T2,HL.S1 ;[1132] NEVER DECREASE
2) JBSAVX:
2) IFN FTEXE,<JRST JBEXE> ;SET UP TO WRITE AN EXE FILE
**************
1)51 ;HERE FOR EXECUTABLE FILE
1) ;THE ACTIONS IS
1) ;RESERVE SPACE FOR DIRECTORY (1 PAGE)
1) ;WRITE OUT LOW SEGMENT REMOVING ALL ZERO BUT ALLOCATED PAGES
1) ;THEN WRITE OUT THE HIGH SEGMENT THE SAME WAY
1) ;NOW GO BACK AND WRITE THE DIRECTORY
1) ;NOTE, PAGE 0 AND FIRST PAGE OF HIGH SEGMENT ARE ALWAYS WRITTEN
1)
****
2)52 ;HERE TO WRITE THE EXE FILE.
2) ;THE STRATEGY IS:
2) ;RESERVE ONE PAGE FOR THE DIRECTORY.
2) ;WRITE OUT EACH PSECT (POINTED TO BY RC.TB), COMPRESSING OUT ZER
O PAGES,
2) ; AND ACCUMULATING THE EXE DIRECTORY IN A BLOCK IN THE DY AREA.
2) ;GO BACK TO THE BEGINNING OF THE FILE AND WRITE OUT THE EXE DIRE
CTORY.
2) ;NOTES:
2) ;PAGE 0 IS ALWAYS WRITTEN, AND IF A HIGH SEG EXIST, SO IS ITS FI
RST PAGE.
2) ;IF THE EXE DIRECTORY PAGE IN THE DY AREA OVERFLOWS, LINK WRITES
IT OUT
2) ; AT THE BEGINNING OF THE FILE, THEN FREES UP ANOTHER PAGE IN T
HE FILE BY
2) ; MAKING A BACKWARDS PASS OVER THE EXE FILE, MOVING EACH PAGE D
OWN ONE.
2)
2)
**************
1)51 SKIPN PAG.S1 ;READY TO DUMP CORE, FIRST SEE I
F PAGED?
****
2)52 ;**;[1132] Insert @ JBEXEN+3L JNG 30-Jan-79
2)
2)53 IFN FTOVERLAY,<
2)
2) ;IF LOADING OVERLAYS, IT IS THE EXE FILE GENERATOR'S RESPONSIBIL
ITY
Digital Equipment Corporation 28-AUG-79 Page 222
PCO Log Report
2) ;TO INSERT THE SYMBOLS INTO THE PROGRAM ON THE FLY WHILE IT IS W
RITING
2) ;THE EXE FILE. THE SYMBOLS ARE IN THE LS AREA IN RADIX50 FORM.
2) ;THE EXE FILE WRITING LOOP IS VERY PAGE ORIENTED, SO TO MAKE THI
NGS
2) ;EASIER, WE WILL COPY THE FIRST PARTIAL PAGE OF SYMBOLS INTO THE
2) ;LC AREA HERE.
2)
2) SKIPL LNKMAX ;[1132] LOADING OVERLAYS?
2) SKIPN JOB116 ;[1132] AND SYMBOLS TO PROCESS?
2) JRST JBEXEE ;[1132] NO, SKIP THIS
2) HRRZ P3,JOB116 ;[1132] GET FIRST ADDRESS TO COP
Y INTO
2) HRRZ P4,P3 ;[1132] COMPUTE LAST ADDRESS IN
P4
2) ADDI P4,777 ;[1132] ROUND UP TO PAGE BOUND
2) ANDCMI P4,777 ;[1132] ADDRESS OF FIRST FULL PA
GE OF SYMS
2) CAMLE P4,HL.S1 ;[1132] MAKE SURE EXE FILE WRITE
R GOES THIS FAR
2) MOVEM P4,HL.S1 ;[1132] SO OVERLAY CODE CAN JUST
CONTINUE
2) MOVEI R,1 ;[1132] POINTER TO .LOW. RC BLOC
K
2) MOVE R,@SG.TB ;[1132] SINCE OVERLAY SYMBOLS AR
E IN .LOW.
2) CAMLE P4,RC.HL(R) ;[1132] UPDATE .LOW. TO SYMBOLS
WRITTEN HERE
2) MOVEM P4,RC.HL(R) ;[1132] BUT NEVER SHRINK IT
2) ANDI P3,777 ;[1132] OFFSET TO FIRST WORD TO
WRITE
2) JUMPE P3,JBEXEE ;[1132] IF PAGE-ALIGNED, NOTHING
TO DO
2) CAMLE P4,HC.S1 ;[1132] SINCE COPYING SYMS, UPDA
TE NON-ZERO PTR
2) MOVEM P4,HC.S1 ;[1132] ALSO REMEMBERS HOW LONG
LC AREA IS
2) SKIPE PAG.S1 ;[1132] IS LC AREA PAGING?
2) JRST JBEXEB ;[1132] YES, GO SET ON CORRECT P
AGE
2) MOVE P2,P4 ;[1132] EXTEND LC AREA TO WHERE
SYMS GO
2) ADD P2,LC.LB ;[1132] MIGHT BE QUITE A WAY IF
BIG /SPACE
2) SUB P2,LC.AB ;[1132] DISTANCE = LAST ADDR - S
IZE OF LC AREA
2) SUBI P2,1 ;[1132] SIZE IS LAST-FIRST+1
2) JUMPLE P2,JBEXEC ;[1132] ALREADY THERE
2) MOVEI P1,LC.IX ;[1132] TELL LNKCOR TO EXPAND LC
Digital Equipment Corporation 28-AUG-79 Page 223
PCO Log Report
AREA
2) PUSHJ P,LNKCOR ;[1132] DO IT
2) JRST JBEXEB ;[1132] FAILED, BUT LC AREA IS P
AGING NOW
2) JRST JBEXEC ;[1132] OK, GO DO THE COPY
2)
2)54 ;HERE IF THE LC AREA IS PAGING, EITHER FROM THE START, OR BECAUS
E
2) ;IT COULDN'T EXPAND FAR ENOUGH. JUST SET UP A ONE-PAGE WINDOW T
O
2) ;THE PAGE WE WANT TO COPY INTO.
2)
2) JBEXEB: HRLZ T1,LW.S1 ;[1132] WRITE ENTIRE LC AREA
2) HRR T1,UW.S1 ;[1132] TO AVOID LOST DATA
2) PUSHJ P,LC.OUT## ;[1132] DUMP IT TO THE OVERFLOW
FILE
2) MOVE T1,LC.LB ;[1132] REDUCE LC WINDOW TO ONE
PAGE
2) ADDI T1,777 ;[1132] AVOIDS CHECKS FOR OVER 2
56K
2) MOVEM T1,LC.AB ;[1132] AREA IS NOW 1 PAGE
2) MOVSI T1,-1000(P4) ;[1132] LOWEST LOCATION TO READ
2) MOVSM T1,LW.S1 ;[1132] UPDATE LOWER WINDOW
2) HRRI T1,-1(P4) ;[1132] HIGHEST LOCATION TO READ
2) HRRZM T1,UW.S1 ;[1132] UPDATE UPPER WINDOW
2) PUSHJ P,LC.IN ;[1132] READ IN CODE IN THAT PAG
E
2)
2)
2) ;HERE WHEN THE LC AREA INCLUDES THE PAGE THAT WE WANT TO UPDATE.
2) ;NOW GET THE PAGE OF SYMBOLS WE WANT TO PUT HERE INTO THE LS ARE
A.
2)
2) JBEXEC: PUSHJ P,CHKPAG ;[1132] IN CASE WE JUST STARTED
PAGING
2) SKIPN LW.LS ;[1132] ARE THE FIRST PAGE OF SY
MBOLS IN?
2) JRST JBEXED ;[1132] YES, GO DO THE COPY
2) MOVE T1,LW.LS ;[1132] WRITE CURRENT LS WINDOW
2) ADD T1,LS.AB ;[1132] SO SYMBOLS WON'T BE LOST
2) SUB T1,LS.LB ;[1132] T1 HAS NEW UPPER BOUND
2) MOVEM T1,UW.LS ;[1132] STORE IN CASE IT WAS -1
2) HRL T1,LW.LS ;[1132] ARG TO LS.OUT
2) PUSHJ P,LS.OUT ;[1132] WRITE THE LS AREA OUT
2) MOVE T1,LS.LB ;[1132] REDUCE LS WINDOW TO 1 PA
GE
2) ADDI T1,777 ;[1132] WILL BE EXPANDED LATER I
F NEEDED
2) MOVEM T1,LS.AB ;[1132] AB IS LB+1P
2) SETZM LW.LS ;[1132] WANT FIRST PAGE OF SYMBO
LS
Digital Equipment Corporation 28-AUG-79 Page 224
PCO Log Report
2) MOVEI T1,777 ;[1132] FROM 0 TO 777
2) MOVEM T1,UW.LS ;[1132] UPDATE UPPER WINDOW
2) PUSHJ P,LS.IN ;[1132] READ IN THE SYMBOLS
2)
2)
2) ;HERE WHEN BOTH THE LC AND LS AREAS HAVE THE PAGE IN MEMORY THAT
WE CARE
2) ;ABOUT. NOW TO BLT THE FIRST PARTIAL PAGE OF SYMBOLS INTO THE L
C AREA.
2)
2) JBEXED: MOVE T3,LC.LB ;[1132] CALCULATE OFFSET FROM VI
RTUAL
2) SUB T3,LW.S1 ;[1132] TO PHYSICAL ADDRESSES
2) HRRZ T1,JOB116 ;[1132] FIRST VIRTUAL ADDRESS TO
WRITE
2) ADD T1,T3 ;[1132] FIRST PHYSICAL ADDRESS
2) HRL T1,LS.LB ;[1132] FROM START OF LS AREA
2) MOVE T2,P4 ;[1132] FIRST VIRTUAL ADDRESS NO
T TO WRITE
2) ADD T2,T3 ;[1132] FIRST PHYSICAL ADDRESS
2) BLT T1,-1(T2) ;[1132] COPY THE SYMBOLS
2)
2) JBEXEE:
2) > ;END IFN FTOVERLAY
2)
2) ;FALL INTO NEXT PAGE
2)
2)55 ;FALL IN FROM ABOVE
2)
2) SKIPN PAG.S1 ;READY TO DUMP CORE, FIRST SEE I
F PAGED?
**************
1)53 ADDI T2,4 ;[744] 1 FOR REMAINDER, 1 FOR EX
E-DIR, 2 FOR RIBS
1) MOVEM T2,I.EST(T1) ;AT LEAST THIS IS ENOUGH
****
2)57 ;**;[1132] Change @ EXEINI+18L JNG 30-Jan-79
2) ADDI T2,7 ;[1132] 1 FOR REM, 4 FOR EXE DIR
, 2 FOR RIBS
2) MOVEM T2,I.EST(T1) ;AT LEAST THIS IS ENOUGH
**************
1)54
1) ;here to compress out pages containing all zeros
1) ;uses acc as follows
1) ;t1 iowd -1000,address
1) ;t2 0 (terminator)
1) ;p1 flags,,file page
1) ;p2 repeat count,,process page
Digital Equipment Corporation 28-AUG-79 Page 225
PCO Log Report
1) ;p3 process address
1) ;P4 FLAGS TO DETERMINE WHAT TO DO WITH THE DIRECTORY ENTRY:
1) ; ZEROF==400000
1) ; DATAF==200000
1) ; GAPF==100000
1) ;
1) ; ZEROF TO ZEROF : BUMP REPEAT COUNT
****
2)58 ;HERE TO WRITE THE EXE FILE, COMPRESSING OUT ALL-ZERO PAGES
2) ;USES ACS AS FOLLOWS:
2) ;
2) ;P1 FLAGS,,FILE PAGE
2) ;P2 REPEAT COUNT,,PROCESS PAGE
2) ;P3 ADDRESS WITHIN SEGMENT (PROCESS ADDRESS - LL.S0(R))
2) ;P4 FLAGS TO DETERMINE WHAT TO DO WITH THE DIRECTORY ENTRY,,
FILE PAGE COUNT
2) ;
2) ; ZEROF TO ZEROF : BUMP REPEAT COUNT
**************
1)54 ;r index to segment either 1 or 2
1) ;w1 store ptr
1)
1) ZEROF==400000 ;[704]
1) DATAF==200000 ;[704]
1) GAPF==100000 ;[704]
1)
1) XCMPRS: SETZM RC.CUR ;[704] INITIALIZE CURRENT PSECT
INDEX
1) MOVEI R,1 ;MAKE SURE LOW SEGMENT
1) MOVEM R,EXEBLK ;CONVENIENT 1
1) USETO DC,5 ;BYPASS DIRECTORY
1) MOVE P1,[SV%WRT+1] ;FLAGS AND FILE PAGE FOR PAGE 0
1) SETZB P2,P3 ;CLEAR PROCESS PAGE #
1) SETZB P4,T2 ;
1) MOVSI W1,-1000 ;- LENGTH
1) HRR W1,EXEDIR ;AOBJN PTR
1) MOVE T3,LOWLOC ;[742] GET LOWEST LOCATION
1) CAIL T3,2000 ;[742] LOWEST LOCATION IN PAGE0
OR PAGE 1?
1) JRST XCMPRJ ;[742] NO,
1) MOVE T1,LC.LB ;[742] YES,
1) SUBI T1,1 ;[742]
1) JRST XCMPRL ;[742]
1)
1)55
1)
1) ;HERE IF THE LOWEST LOCATION IS IN PAGE 2 OR HIGHER.
1) ;MUST OUTPUT JOBDAT FIRST, THEN CHECK TO SEE IF PAGE0 AND PAGE 1
1) ;IS PART OF .LOW. IF THAT IS THE CASE, OUTPUT A DIRECTORY ENTRY
Digital Equipment Corporation 28-AUG-79 Page 226
PCO Log Report
1) ;TO MAKE THOSE PAGES ALLOCATED.
1)
1) XCMPRJ: SKIPE PAG.S1 ;[776] PAGING?
1) SKIPA T1,JOBPTR ;[776] YES--USE IN-MEMORY COPY O
F JOBDAT
1) MOVE T1,LC.LB ;[776] NO--USE LC AREA STRAIGHT
1) SUBI T1,1 ;[732]
1) HRLI T1,-.JBDA ;[776] DUMP OUT JUST JOBDAT
1) OUT DC,T1 ;OUTPUT PAGE 0
1) TLOA P4,GAPF ;[732] FLAG IT GAP, OUTPUT DIR
HERE
1) JRST XCMPER ;ERROR
1) USETO DC,9 ;WRITE REST OF PAGE AS 0
1) DMOVEM P1,1(W1) ;STORE ENTRIES
1) HRRI P1,2 ;NEXT FREE FILE PAGE
1) AOBJN W1,.+1 ;
1) AOBJN W1,.+1 ;[732] ADJUST DIR PTR BY 2 ALSO
1) MOVE T3,HC.S1 ;[732] NO CODE IN PAGE0, BUT ANY
CODE AT ALL?
1) CAIG T3,.JBDA ;[732]
1) JRST XCMPR8 ;[732] NO, NOW FOR HIGH SEG
1) MOVE T2,@RC.TB ;[742] YES,
1) MOVE T2,RC.CV(T2) ;[742] PAGE 0 AND PAGE 1 IN .LOW
.?
1) CAILE T2,.JBDA ;[742]
1) JRST [PUSHJ P,XCMPXD ;[742] YES, NEED TO MAKE
AN ENTRY
1) HLLZM P1,(W1) ;[742] IN EXE DIRECTORY
1) PUSHJ P,XCMPXD ;[742]
1) HRLZ T2,LOWLOC ;[742] ALLOCATE ALL PAGE
S UP TO
1) TLZ T2,2777 ;[742] THAT PAGE THAT CO
NATAINS LOWLOC
1) ADDI T2,1 ;[742] BUMP PROCESS PAGE
1) MOVEM T2,(W1) ;[742]
1) JRST .+1] ;[742]
1) MOVE P3,LOWLOC ;[732] YES, GET LOWEST LOCATION
1) MOVE P2,P3 ;[732] ALSO UPDATE PROCESS PAGE
1) LSH P2,-^D9 ;[732]
1) HRR T1,LC.LB ;[742] NOW, READY TO DUMP THE AC
TUAL CORE
1) SUBI T1,1 ;[742]
1) HRLI T1,-1000 ;[732] ASSUME AT LEAST A PAGE
1) JRST XCMPR4 ;[732] AND THAT CORE IS ALREADY
SETUP
1)
1)
1)56
1) XCMPRL: HRLI T1,-1000 ;SET UP IOWD WORD
Digital Equipment Corporation 28-AUG-79 Page 227
PCO Log Report
1) XCMPR7: SETZ T2, ;MAKE SURE TERMINATOR IS 0
1) OUT DC,T1 ;ALWAYS OUTPUT PAGES 0 & 400
1) TLOA P4,DATAF ;[704] JUST OUTPUT A DATA PAGE
1) JRST XCMPER ;ERROR
1) XCMPR0: ADDI T1,1000 ;NEXT PAGE
1) ADDI P3,1000 ;INCREMENT PROCESS ADDRES
1) CAILE P3,777777 ;[732] OVERFLOWED INTO LH?
1) JRST [PUSHJ P,XCMPRD ;[732] YES, WRITE DIR EN
TRY OUT
1) JRST XCMPRH] ;[732] TRY HIGH SEG
1) XCMPR4: PUSHJ P,INGAP ;[732] CHECK TO SEE IF IN PSECT
GAP
1) JRST XCMPR0 ;[704] YES, SKIP OVER THIS PAGE
1) MOVEI T3,1(T1) ;ADDRESS ONLY
1) CAMG T3,TAB.AB(R) ;NEXT PAGE IN CORE
1) JRST XCMPR1 ;YES
1) CAMLE P3,HC.S0(R) ;FINISHED?
1) JRST [PUSHJ P,XCMPRD ;NO, WRITE IT OUT
1) JRST XCMPRH] ;TRY HIGH SEG
1) MOVE T3,TAB.AB(R) ;
1) SUB T3,TAB.LB(R) ;GET SIZE
1) ;**;[774] Delete @ XCMPR4+10L JNG 30-Apr-78
1) MOVEM P3,LW.S0(R) ;[713] RESET BASE TO PROCESS PAG
E
1) ADD T3,LW.S0(R) ;[764] GET NEW UPPER WINDOW
1) CAILE T3,-1 ;[764] MAKE SURE IT DOESN'T OVER
FLOW
1) MOVEI T3,-1 ;[764] JUST IN CASE
1) MOVEM T3,UW.S0(R) ;[763]
1) CAMLE T3,HC.S0(R) ;STILL IN RANGE?
1) JRST [MOVE T3,HC.S0(R) ;NO
1) IORI T3,.IPM ;GET PAGE LIMIT
1) MOVEM T3,UW.S0(R) ;SET NEW
1) SUB T3,LW.S0(R) ;GET LENGTH
1) ADD T3,TAB.LB(R) ;
1) MOVEM T3,TAB.AB(R) ;RESET TOP
1) JRST .+1] ;
1) HRLZ T1,LW.S0(R) ;LOWER BOUND
1) HRR T1,UW.S0(R) ;TO UPPER BOUND
1) PUSHJ P,@[EXP LC.IN##,HC.IN]-1(R) ;READ IN NEW PAG
E
1) MOVE T3,TAB.LB(R) ;RESET INCORE PROCESS ADDRESS
1) MOVEI T1,-1(T3) ;RESET IOWD ADDRESS
1) HRLI T1,-1000 ;AND COUNT
1) XCMPR1: MOVEI T4,(P3) ;[732] MUST USED 2 INSTRS TO DO
THIS
1) ADDI T4,1000 ;[732] INCASE OVERFLOW INTO LH
1) CAMLE T4,HC.S0(R) ;WHOLE PAGE EXITS?
1) JRST [MOVE T4,HC.S0(R)
1) SUBI T4,(P3)
1) MOVN T4,T4
Digital Equipment Corporation 28-AUG-79 Page 228
PCO Log Report
1) HRL T3,T4
1) HRL T1,T4
1) JRST .+2]
1) HRLI T3,-1000 ;NORMAL AOBJN WORD
1) SKIPE (T3) ;LOOK FOR A NON-ZERO
1) JRST XCMPR3 ;FOUND ONE
1) AOBJN T3,.-2 ;LOOP FOR ALL OF PAGE
1) TLNE P4,ZEROF ;[704] GOT A ZERO PAGE, WAS LAST
ONE ALSO ZERO?
1) JRST XCMPR2 ;[704] LAST ONE WAS ALSO ZERO
1) TLNN P4,DATAF ;[704] NO, WAS LAST ONE DATA?
1) TLNA P4,GAPF ;[704] NO, MUST HAVE BEEN GAP, S
O SKIP
1) PUSHJ P,XCMPRD ;[704] YES,IT WAS DATA, GO OUTPU
T CURRET DIR
1) TLO P4,ZEROF ;[704] SET ZEROF
1) TLZ P4,DATAF+GAPF ;[704] AND OFF WITH OTHERS
1) JRST XCMPR0 ;LOOP AGAIN
1)
1)
1)
1)57 ;[704] HERE TO SEE OF NEXT PAGE(CORE ADDR IN P3) FALLS IN
1) ;A PSECT GAP. RETURN IF IN GAP. SKIP RETURN IF NOT IN A GAP.
1)
1) INGAP: CAILE R,1 ;[713] DOING LOW SEG OR ABS?
1) JRST CPOPJ1 ;[704] NO, DON'T BOTHER, SKIP RE
TURN
1) CAMLE P3,HC.S1 ;[724] EXCEEDED ADDR SPACE?
1) JRST CPOPJ1 ;[724] YES,
1) PUSH P,R ;[704] USES ACS R, T1, AND T2
1) PUSH P,T1 ;[704]
1) MOVE R,RC.CUR ;[704] GET CURRENT PSECT
1) INGAP1: MOVE T1,@RC.TB ;[704] GET RELOC TABLE ADDR FOR
CURRENT PSECT
1) MOVE T2,RC.SG(T1) ;[704] SET SEGMENT NO.
1) CAILE T2,1 ;[713] LOW SEG?
1) JRST INGAP5 ;[724] NO, FORGET IT
1) MOVE T2,RC.CV(T1) ;[704] GET CURRENT PSECT BREAK
1) TRO T2,777 ;[704] ROUND UP PSECT BREAK
1) CAIG P3,(T2) ;[704] ADDR LARGER THAN THE PSEC
T BREAK?
1) JRST [MOVE T2,RC.IV(T1) ;[704] MAKE SURE IT IN P
SECT RANGE
1) TRZ T2,777 ;[704] ROUND DOWN
1) CAIGE P3,(T2) ;[704] IN RANGE?
1) JRST INGAP3 ;[704] NO, IN GAP
1) JRST INGAP5] ;[724] YES, DO SKIP RETU
RN
1) ADDI R,1 ;[704] ADDR IS GT CURRENT PSECT
Digital Equipment Corporation 28-AUG-79 Page 229
PCO Log Report
1) CAMLE R,RC.NO ;[704] IS THERE A NEXT PSECT?
1) JRST INGAP5 ;[724] NO, SKIP RETURN
1) MOVE T1,@RC.TB ;[704] GET ADDR OF RELOC TABLE
1) MOVE T2,RC.IV(T1) ;[704] GET ORIGIN
1) TRZ T2,777 ;[704] ROUND IT DOWN TO PAGE BOU
ND
1) CAIL P3,(T2) ;[704] ADDR IS LESS THAN THE ORI
GIN?
1) JRST [MOVEM R,RC.CUR ;[704] UPDATE TO NEXT PS
ECT
1) JRST INGAP1] ;[704] AND LOOP FOR ANOT
HER CHECK
1) INGAP3:
1) IFN FTOVERLAY,< ;[724]
1) SKIPL LNKMAX ;[724] ANY OVERLAYS (SKIP IF NO)
1) JRST INGAP4> ;[724] YES,
1) HRRZ T1,JOB116 ;[724] CHECK TO SEE IF IT'S IN S
YMBOL
1) HLRE T2,JOB116 ;[724] TABLE RANGE
1) SUBM T1,T2 ;[724] GET TOP
1) TRZ T1,777 ;[726] ROUND DOWN LOWER BOUND
1) TRO T2,777 ;[726] ROUND UP UB OF SYMBOL TAB
LE
1) CAML P3,T1 ;[724]
1) CAMLE P3,T2 ;[724] IN RANGE?
1) JRST INGAP4 ;[724] NO,
1) INGAP5: POP P,T1 ;[724] YES, RESTORE ACS
1) POP P,R ;[724]
1) JRST CPOPJ1 ;[724] SKIP RETURN
1)
1) INGAP4: POP P,T1 ;[704] YES, IN A GAP, DO NON-SKI
P RET
1) POP P,R ;[704]
1) TLOE P4,GAPF ;[704] WE HAVE A GAP, WAS LAST P
AGE ALSO GAP?
1) JRST INGAP2 ;[704] BUMP PROCESS PAGE AND RET
URN
1) PUSHJ P,XCMPRD ;[704] NO, WRITE OUT LAST DIR,
1) TLZ P4,ZEROF+DATAF ;[704] OFF WITH OTHER FLAGS
1) INGAP2: ADDI P2,1 ;[704] BUMP PROCESS PAGE
1) POPJ P, ;[704]
1)
1)
1)58
****
2)58 ;
2) ;R INDEX TO SEGMENT EITHER 1 OR 2
2) ;R2 POINTER TO RC BLOCK FOR CURRENT PSECT
2) ;W1 STORE PTR
Digital Equipment Corporation 28-AUG-79 Page 230
PCO Log Report
2) ;W2 IOWD TO DATA NOT YET WRITTEN
2) ;W3 IOWD LIST TERMINATOR (0)
2)
2) ZEROF==1B0 ;[1132] LAST THING FOUND WAS A Z
ERO PAGE
2) DATAF==1B1 ;[1132] LAST THING FOUND WAS A N
ON-ZERO PAGE
2) GAPF==1B2 ;[1132] LAST THING FOUND WAS AN
INTER-PSECT GAP
2)
2) ;**;[1132] Revamp @ XCMPRS JNG 30-Jan-79
2) XCMPRS: SETZ R, ;[1132] START WITH .ABS.
2) MOVEM R,RC.CUR ;[1132] STORE CUURENT PSECT INDE
X IN RC.CUR
2) MOVEI T1,1 ;[1132] CURRENT BLOCK OF EXE DIR
2) MOVEM T1,EXEBLK ;[1132] SAVE FOR XCMPXD
2) USETO DC,5 ;[1132] START WRITING DATA AT BL
OCK 5
2) MOVEI P1,1 ;[1132] NEXT FILE PAGE TO WRITE
IS 1
2) MOVE R2,@RC.TB ;[1132] POINTER TO RC BLOCK FOR
.ABS.
2) MOVE R,RC.SG(R2) ;[1132] KEEP R POINTING TO SEGME
NT INDEX
2) MOVE T1,RC.AT(R2) ;[1132] GET ITS PSECT ATTRIBUTES
2) TXNN T1,AT.RO ;[1132] READ-ONLY?
2) TXO P1,SV%WRT ;[1132] NO, LOWSEG IS USUALLY WR
ITABLE
2) SETZB P2,P3 ;[1132] CORE PAGE 0, CURRENT ADD
R IS 0
2) MOVX P4,GAPF ;[1132] FLAG NO OLD EXE DIR ENTR
Y TO WRITE
2) MOVE R,RC.SG(R2) ;[1132] POINT TO AREA CONTAINING
THIS PSECT
2) MOVSI W1,-1000 ;[1132] W1 IS AOBJN PTR TO COPY
OF EXE DIR
2) HRR W1,EXEDIR ;[1132] BEING BUILT IN DY AREA
2) SETZB W2,W3 ;[1132] INIT IOWD
2) SKIPN LW.S1 ;[1132] IS JOBDAT STILL IN DY AR
EA?
2) JRST XCMLUP ;[1132] NO (NORMAL CASE), GO STA
RT WRITING
2)
2)
2) ;FALL THROUGH TO NEXT PAGE
2)
2)59 ;FALL IN FROM ABOVE
2)
2) ;HERE IF THE LOWEST LOCATION IS IN PAGE 1 OR HIGHER, AND THE
2) ;LC AREA IS PAGING TO DISK.
2) ;IF THAT IS THE CASE, THEN JOBDAT IS IN A BLOCK IN THE DY AREA
Digital Equipment Corporation 28-AUG-79 Page 231
PCO Log Report
2) ;POINTED TO BY JOBPTR, INSTEAD OF IN THE LC AREA.
2) ;WHAT WE WANT TO DO NOW IS WRITE JOBDAT INTO THE EXE FILE DIRECT
LY
2) ;FROM THE DY AREA, THEN JUMP INTO THE MAIN LOOP BELOW TO FINISH
THE SAVE.
2)
2) ;**;[1132] Replace XCMPRJ routine JNG 30-Jan-79
2) ;**;[1132] This supercedes edit 776 if installed.
2) HRLOI W2,-.JBDA-1 ;[1132] FORM IOWD TO JOBDAT
2) ADD W2,JOBPTR ;[1132] ..
2) OUT DC,W2 ;[1132] WRITE JOBDAT TO THE EXE
FILE
2) TXCA P4,DATAF!GAPF!1 ;[1132] CLEAR GAPF, SET DATAF, 1
PAGE WRITTEN
2) PUSHJ P,XCMPER ;[1132] I/O ERROR
2) USETO DC,9 ;[1132] WRITE ZEROS INTO THE RES
T OF PAGE 0
2) SETZ W2, ;[1132] FLAG NO DATA TO WRITE
2) JRST XCMADP ;[1132] GO FIND NEXT PSECT
2)
2)60 ;THIS IS THE MAIN LOOP FOR THE EXE FILE WRITER.
2) ;WE GET BACK HERE ON EACH NEW PSECT, ON EACH NEW BLOCK OF PAGES
2) ;READ IN IF AN AREA HAS OVERFLOWED TO DISK, AND ON EACH PAGE OF
2) ;EACH PSECT.
2)
2) XCMLUP: SKIPE PAG.S0(R) ;[1132] AREA OVERFLOWING TO DISK
2) CAMG P3,UW.S0(R) ;[1132] AND OFF END OF WINDOW?
2) CAML P3,HC.S0(R) ;[1132] NO, BUT OFF END OF SEGME
NT?
2) JRST XCMADV ;[1132] OFF END OF SOMETHING
2) MOVE T1,RC.HL(R2) ;[1132] FIRST ADDRESS BEYOND PSE
CT
2) SUB T1,LL.S0(R) ;[1132] CONVERT TO OFFSET IN SEG
MENT, LIKE P3
2) CAML P3,T1 ;[1132] OFF END OF PSECT?
2) JRST XCMADV ;[1132] YES, GO FIND THE NEXT ON
E
2)
2)
2) ;TIME TO SAVE THE PAGE WHOSE ADDRESS IS IN P3. SEE IF IT'S ALL
ZERO
2)
2) HRRZ T1,P3 ;[1132] OFFSET INTO SEGMENT
2) SUB T1,LW.S0(R) ;[1132] OFFSET INTO CURRENT WIND
OW
2) ADD T1,TAB.LB(R) ;[1132] ADDRESS OF PAGE IN LINK'
S VAS
2) SKIPN W2 ;[1132] KNOW BASE OF IOWD YET?
2) MOVEI W2,-1(T1) ;[1132] NO, SET IT UP NOW
Digital Equipment Corporation 28-AUG-79 Page 232
PCO Log Report
2) HRLI T1,-1000 ;[1132] SET UP AN AOBJN PTR TO T
HE PAGE
2) SKIPN (T1) ;[1132] NEXT WORD ZERO?
2) AOBJN T1,.-1 ;[1132] YES, LOOP OVER ALL THE P
AGES
2) JUMPGE T1,XCMZER ;[1132] JUMP IF PAGE IS ALL ZERO
2)
2)
2) ;HERE WHEN THE PAGE IS NON-ZERO
2)
2) TXON P4,DATAF ;[1132] FLAG IN REAL DATA, FIRST
TIME?
2) JRST XCMNWD ;[1132] YES, START A NEW DIRECTO
RY ENTRY
2) ADD W2,[-1000,,0] ;[1132] NO, JUST BUMP OUTPUT IOW
D
2) ADDI P4,1 ;[1132] REMEMBER DATA PAGES WRIT
TEN
2) ADD P2,[1B8] ;[1132] AND REPEAT COUNT FOR THI
S ENTRY
2) JRST XCMADP ;[1132] ADVANCE TO THE NEXT PAGE
2)
2) XCMNWD: TXZ P4,ZEROF ;[1132] NO LONGER IN A ZERO AREA
2) TXZN P4,GAPF ;[1132] WERE WE IN A GAP?
2) PUSHJ P,XCMPRD ;[1132] NO, WRITE DIR ENTRY OUT
2) HRRZ W2,P3 ;[1132] START A NEW IOWD
2) SUB W2,LW.S0(R) ;[1132] MAKE ADDR INTO OFFSET FR
OM WINDOW START
2) ADD W2,TAB.LB(R) ;[1132] AND THENCE TO ADDR IN LI
NK
2) SUB W2,[1000,,1] ;[1132] CONVERT TO ONE PAGE IOWD
2) MOVE P2,P3 ;[1132] COMPUTE NEW PROCESS PAGE
2) ADD P2,LL.S0(R) ;[1132] BY FINDING PROCESS ADDRE
SS
2) LSH P2,-9 ;[1132] THEN SHIFTING TO GET A P
AGE NUMBER
2) ADDI P4,1 ;[1132] WILL WRITE 1 MORE DATA P
AGE
2) JRST XCMADP ;[1132] GO ADVANCE TO NEXT PAGE
2)
2)61 ;HERE ON AN ALL-ZERO PAGE
2)
2) XCMZER: TXON P4,ZEROF ;[1132] IS THIS THE FIRST ALL-ZE
RO PAGE?
2) JRST XCMNWZ ;[1132] YES, GO SETUP A NEW DIR
ENTRY
2) ADD P2,[1B8] ;[1132] JUST BUMP REPEAT COUNT
2) JRST XCMADP ;[1132] ADVANCE TO THE NEXT PAGE
2)
Digital Equipment Corporation 28-AUG-79 Page 233
PCO Log Report
2)
2) ;HERE IF THE ALL-ZERO PAGE IS THE FIRST ONE AFTER DATA OR A GAP.
2) ;IF DATA, WRITE IT OUT AND STORE THE DIR ENTRY. ALWAYS SET UP A
NEW ENTRY.
2)
2) XCMNWZ: TXZ P4,DATAF ;[1132] NO LONGER WRITING DATA
2) TXZN P4,GAPF ;[1132] NOT IN A GAP. WERE WE?
2) PUSHJ P,XCMPRD ;[1132] NO, WRITE THE DATA DIR E
NTRY
2) ADDI P1,(P4) ;[1132] BUMP FILE PAGE COUNT
2) HLLZS P4 ;[1132] CLEAR ACCUMULATED COUNT
2) SKIPGE W2 ;[1132] SEEN ANY DATA PAGES?
2) OUT DC,W2 ;[1132] YES, WRITE THEM
2) TDZA W2,W2 ;[1132] SUCCESS, CLEAR IOWD
2) JRST XCMPER ;[1132] I/O ERROR
2) MOVE P2,P3 ;[1132] SET UP NEW PROCESS PAGE
2) ADD P2,LL.S0(R) ;[1132] BY COMPUTING PROCESS ADD
RESS
2) LSH P2,-9 ;[1132] THEN SHIFTING TO A PAGE
NUMBER
2)
2)
2) ;HERE TO ADVANCE TO THE NEXT PAGE.
2)
2) XCMADP: ADDI P3,1000 ;[1132] POINT TO NEXT PAGE
2) JRST XCMLUP ;[1132] LOOP BACK TO PROCESS IT
2)
2)62 ;HERE WHEN WE RAN OFF THE END OF THE PSECT, THE SEGMENT, OR THE
WINDOW.
2) ;FIGURE OUT WHAT TO PROCESS NEXT.
2)
2) XCMADV: SKIPGE W2 ;[1132] ANY DATA STILL TO WRITE?
2) OUT DC,W2 ;[1132] YES, WRITE IT
2) TDZA W2,W2 ;[1132] SUCCESS, CLEAR IOWD POIN
TER
2) JRST XCMPER ;[1132] I/O ERROR
2) CAML P3,HC.S0(R) ;[1132] OFF THE END OF THE SEGME
NT?
2) JRST XCMBLK ;[1132] YES, GO WRITE ABZ PAGES
AND ADVANCE
2) CAML P3,RC.HL(R2) ;[1132] OFF END OF PSECT?
2) JRST XCMNXP ;[1132] YES, GO FIND THE NEXT ON
E
2)
2)
2) ;HERE IF PAGING AND WE RAN OFF THE END OF THE CURRENT LC/HC WIND
OW.
2) ;ADVANCE THE WINDOW AND LOOP BACK.
2)
2) MOVEM P3,LW.S0(R) ;[1132] STORE NEW LOWER WINDOW B
OUND
Digital Equipment Corporation 28-AUG-79 Page 234
PCO Log Report
2) MOVE T1,P3 ;[1132] VIRTUAL ADDRESS OF 1ST W
ORD TO READ
2) ADD T1,TAB.AB(R) ;[1132] CONVERT TO VIRTUAL ADDRE
SS OF LAST WORD
2) SUB T1,TAB.LB(R) ;[1132] BY ADDING SIZE OF LC/H
C AREA
2) MOVEM T1,UW.S0(R) ;[1132] STORE NEW UPPER WINDOW B
OUND
2) CAMGE T1,HC.S0(R) ;[1132] DOES THE AREA CONTAIN TH
AT MUCH?
2) JRST XCMRED ;[1132] YES, JUST GO READ IT IN
2) SUB T1,HC.S0(R) ;[1132] NO, FIGURE OUT HOW MUCH
EXTRA WE HAVE
2) ANDCMI T1,.IPM ;[1132] PUT ON THE PAGE BOUND
2) MOVN T1,T1 ;[1132] DECREMENT THE AB OF THE
AREA
2) ADDM T1,TAB.AB(R) ;[1132] SO EXTRA SPACE IS AVAI
LABLE TO OTHERS
2) ADDM T1,UW.S0(R) ;[1132] AREN'T GOING TO READ THA
T MUCH AFTER ALL
2) MOVE T1,UW.S0(R) ;[1132] LAST ADDRESS TO READ
2) XCMRED: HRL T1,P3 ;[1132] FIRST,,LAST
2) PUSHJ P,@TB.IN(R) ;[1132] READ IN THE NEXT WINDOW
2) JRST XCMLUP ;[1132] LOOP BACK TO PROCESS THE
NEXT PAGE
2)
2)63 ;HERE IF WE RAN OFF THE END OF THIS SEGMENT (LC OR HC). WRITE E
NOUGH
2) ;ALLOCATED BUT ZERO PAGES INTO THE EXE DIRECTORY TO ALLOCATE THE
REST
2) ;OF THE CURRENT PSECT AS ALL ZEROS.
2)
2) XCMBLK: MOVE R3,RC.HL(R2) ;[1132] GET FIRST WORD BEYOND PS
ECT END
2) ADDI R3,777 ;[1132] LAST WORD TO ALLOCATE +
A PAGE
2) ANDCMI R3,777 ;[1132] GET START OF THAT PAGE
2) SUB R3,P3 ;[1132] COMPUTE EXTRA PAGES THAT
NEED ALLOCATING
2) SUB R3,LL.S0(R) ;[1132] P3 IS AN OFFSET, BUT R3
IS AN ADDRESS
2) JUMPLE R3,XCMNXP ;[1132] NONE, GO FIND THE NEXT P
SECT TO PROCESS
2) TXON P4,ZEROF ;[1132] WERE WE WRITING ZEROS BE
FORE THIS?
2) JRST XCMBL2 ;[1132] NO, MUST START A NEW DIR
ENTRY
2) ADD P3,R3 ;[1132] KEEP OFFSET INTO SEGMENT
CORRECT
Digital Equipment Corporation 28-AUG-79 Page 235
PCO Log Report
2) MOVSI R3,(R3) ;[1132] PUT COUNT WHERE EXE DIR
ENTRY WANTS IT
2) ADD P2,R3 ;[1132] JUST BUMP REPEAT COUNT
2) JRST XCMNXP ;[1132] AND GO PROCESS THE NEXT
PSECT
2)
2)
2) ;HERE WHEN WE WANT TO WRITE AN ABZ DIRECTORY ENTRY, BUT WE HAVE
ANOTHER
2) ;TYPE OF ENTRY IN PROGRESS. WRITE THE CURRENT ENTRY, THEN START
A NEW ONE.
2)
2) XCMBL2: TXZ P4,DATAF ;[1132] REMEMBER NO LONGER WRITI
NG DATA
2) TXZN P4,GAPF ;[1132] WERE WE IN A GAP?
2) PUSHJ P,XCMPRD ;[1132] NO, WRITE THE DIRECTORY
ENTRY
2) ADDI P1,(P4) ;[1132] BUMP FILE PAGE POINTER
2) HLLZS P4 ;[1132] RESET FILE PAGE COUNT
2) MOVE P2,P3 ;[1132] FIRST OFFSET TO WRITE
2) ADD P2,LL.S0(R) ;[1132] FIRST ADDRESS TO WRITE
2) LSH P2,-^D9 ;[1132] FIRST PAGE NOT YET WRITT
EN
2) ADD P3,R3 ;[1132] KEEP OFFSET INTO SEGMENT
CORRECT
2) MOVSI R3,-1000(R3) ;[1132] PUT COUNT WHERE EXE DIR
ENTRY WANTS IT
2) ADD P2,R3 ;[1132] INSERT REPEAT COUNT FROM
ABOVE
2)
2)
2) ;HERE TO ADVANCE TO THE NEXT PSECT, IF ANY
2)
2) XCMNXP: PUSHJ P,ADVPSC ;[1132] CALL A SUBROUTINE TO DO
THE WORK
2) JRST XCMPRX ;[1132] ALL DONE, GO CLOSE THE F
ILE
2) JRST XCMLUP ;[1132] FOUND ANOTHER PSECT, LOO
P BACK FOR IT
2)
2)64 ;ADVPSC -- SUBROUTINE TO ADVANCE TO THE NEXT PSECT.
2) ;CALL:
2) ; SET UP P1-P4 AS IN XCMPRS
2) ; PUSHJ P,ADVPSC
2) ; ALL DONE
2) ; ANOTHER PSECT FOUND
2) ;
2) ;ON THE SKIP RETURN, P1-P4 HAVE BEEN SET UP TO POINT TO THE STAR
T OF
Digital Equipment Corporation 28-AUG-79 Page 236
PCO Log Report
2) ;THE NEXT PSECT, INCLUDING PSECT PROPERTIES IN P1.
2) ;THIS ROUTINE ALSO CHECKS TO SEE IF THE OVERLAY SYMBOL TABLE NEE
DS TO
2) ;BE APPENDED AFTER THE PSECT OR SEGMENT THAT JUST GOT WRITTEN, A
ND
2) ;APPENDS IT IF SO.
2)
2)
2) ADVPSC:
2) IFN FTOVERLAY,<
2) CAIN R,1 ;[1132] IN LOW SEGMENT?
2) CAMGE P3,HL.S1 ;[1132] AND JUST FINISHED IT?
2) JRST ADVPS1 ;[1132] NO, PROCEED
2) SKIPL LNKMAX ;[1132] YES, LOADING OVERLAYS?
2) SKIPN JOB116 ;[1132] AND SYMBOLS NEED INSERTI
NG?
2) JRST ADVPS1 ;[1132] NO, PROCEED
2) PUSHJ P,XCMPOV ;[1132] YES, PUT SYMBOLS INTO EX
E FILE
2) ADVPS1:
2) > ;END IFN FTOVERLAY
2)
2) ADD P3,LL.S0(R) ;[1132] P3 WILL BE AN ADDRESS FO
R THIS ROUTINE
2) AOS R,RC.CUR ;[1132] GET PSECT INDEX OF NEXT
PSECT
2) CAMG R,RC.NO ;[1132] IS THERE A NEXT ONE?
2) JRST ADVPS2 ;[1132] YES, GO PROCESS IT
2) SOS (P) ;[1132] GIVE NON-SKIP RETURN
2) JRST ADVPS6 ;[1132] BUT WRITE CURRENT ENTRY
FIRST
2)
2)
2) ;HERE WHEN THERE IS ANOTHER PSECT, AND R CONTAINS ITS INDEX.
2) ;POINT R AND R2 TO IT, THEN SET UP ITS PSECT PROPERTIES IN R3
2)
2) ADVPS2: MOVE R2,@RC.TB ;[1132] POINT TO RC BLOCK FOR PS
ECT
2) MOVE R,RC.SG(R2) ;[1132] PUT SEGMENT PSECT IS IN
INTO R
2) MOVX R3,SV%WRT ;[1132] GET ASSUMED PSECT PROPER
TY
2) MOVE T1,RC.AT(R2) ;[1132] GET REAL PSECT PROPERTIE
S
2) TXNE T1,AT.RO ;[1132] EXPLICITLY READ-ONLY?
2) TXZ R3,SV%WRT ;[1132] YES, CLEAR WRITE BIT
2) CAIE R,2 ;[1132] IS THIS THE HIGH SEGMENT
?
2) JRST ADVPS4 ;[1132] NO, PSECT PROPERTIES OK
AS THEY ARE
2) IFE TOPS20,<
Digital Equipment Corporation 28-AUG-79 Page 237
PCO Log Report
2) TXO R3,SV%HIS ;[1132] TOPS-10 HIGH SEG, READ-O
NLY
2) TXNN T1,AT.RW ;[1132] EXPLICITLY WRITE-ENABLED
?
2) TXZ R3,SV%WRT ;[1132] NO, WRITE-LOCK IT
2) MOVE T1,SSEXT ;[1132] GET SAVE/SSAVE FLAGS
2) TXNE T1,SS.SHR ;[1132] USER TYPE /SSAVE?
2) > ;END IFE TOPS20
2) TXO R3,SV%SHR ;[1132] /SSAVE OR TOPS-20, MARK
SHARABLE
2)
2) ;FALL INTO NEXT PAGE
2)
2)65 ;HERE WHEN PSECT PROPERTIES COMPUTED IN R3.
2) ;NOW DETERMINE WHETHER TO STORE THIS DIRECTORY ENTRY AND START A
NOTHER,
2) ;OR TO JUST LET THIS ONE CONTINUE.
2) ;CAN ONLY LET THIS ONE CONTINUE IF NEXT PSECT IS ADJACENT WITH S
AME PROPERTIES.
2)
2) ADVPS4: MOVE T1,RC.IV(R2) ;[1132] GET BOTTOM OF NEW PSECT
2) ANDCMI T1,777 ;[1132] ROUND DOWN TO PAGE BOUND
2) CAMLE T1,P3 ;[1132] IS THERE A PSECT GAP HER
E?
2) JRST [MOVE P3,T1 ;[1132] YES, START NEXT LOOP AT
BASE OF NEW ONE
2) JRST ADVPS6] ;[1132] AND GO DUMP THIS DIRECTO
RY ENTRY
2) MOVE T2,R3 ;[1132] COPY OF PSECT PROPERTIES
2) XOR T2,P1 ;[1132] COMPARE WITH OLD
2) TXNN T2,777B8 ;[1132] SAME AS LAST TIME?
2) JRST ADVPS8 ;[1132] YES, CAN CONTINUE CURREN
T DIR ENTRY
2)
2)
2) ;ENTER HERE IF ALL DONE TO WRITE OUT THE LAST DIRECTORY ENTRY AN
D RETURN.
2)
2) ADVPS6: TXC P4,DATAF!ZEROF ;[1132] XCMPRD WANTS THE FLAGS R
EVERSED
2) TXNN P4,GAPF ;[1132] IN A GAP FROM LAST TIME?
2) PUSHJ P,XCMPRD ;[1132] NO, WRITE CURRENT DIR EN
TRY
2) ADDI P1,(P4) ;[1132] BUMP FILE PAGE COUNT
2) MOVX P4,GAPF ;[1132] FLAG NOW IN A GAP, CLEAR
RH P4
2) ADVPS8: SUB P3,LL.S0(R) ;[1132] MAKE P3 AN OFFSET INTO N
EW SEGMENT
2) TXZ P1,777B8 ;[1132] CLEAR OLD PSECT PROPERTI
Digital Equipment Corporation 28-AUG-79 Page 238
PCO Log Report
ES
2) IOR P1,R3 ;[1132] SET NEW PSECT PROPERTIES
2) JRST CPOPJ1 ;[1132] GIVE GOOD RETURN TO CALL
ER
2)
**************
1)58 TLNE P4,ZEROF ;[704] ZEFO PAGE?
1) HLLZS (W1) ;YES, SO NO FILE PAGES
1) PUSHJ P,XCMPXD ;SECOND WORD
1) MOVEM P2,(W1) ;
1) LDB T3,[POINT 9,P2,8] ;GET REPEAT COUNT
1) TLNE P4,DATAF ;[704] DATA PAGE?
1) ADDI P1,1(T3) ;INCREMENT FILE PTR
1) ADDI P2,1(T3) ;AND PROCESS PTR
1) TXZ P2,777B8 ;CLEAR REPEAT COUNT
1) POPJ P,
1)
1) ;HERE IF WE HAVE A PAGE OF ALLOCATED ZEROES
1)
1) XCMPR2: ADD P2,[1B8] ;INCREMENT REPEAT COUNT
1) TLO P4,ZEROF ;[704] WE GOT A ZERO PAGE
1) TLZ P4,DATAF+GAPF ;[704] OFF OTHER FLAGS
1) JRST XCMPR0 ;GET NEXT PAGE
1)
1) ;HERE IF NON-ZERO FOUND
1) ;IF WE WERE OUTPUTTING DATA LAST, JUST INCREMENT REPEAT COUNT
1) ;IF NOT, UPDATE DIRECTORY
1)
1) XCMPR3: SETZ T2, ;MAKE SURE
1) OUT DC,T1 ;OUTPUT THIS PAGE
1) CAIA ;OK
1) JRST XCMPER
1) TLNE P4,DATAF ;[704] LAST PAGE WAS ALSO DATA?
1) JRST [ADD P2,[1B8] ;[704] BUMP REPEAT COUNT
1) JRST XCMPR0] ;[704]
1) TLNN P4,GAPF ;[704] NO, LAST PAGE GAP THEN SK
IP
1) PUSHJ P,XCMPRD ;[704] NO, MUST BE ZERO, OUTPUT
DIR
1) TLO P4,DATAF ;[704] SET DATAF
1) TLZ P4,GAPF+ZEROF ;[704] OFF WITH OTHERS
1) JRST XCMPR0 ;[704] GET NEXT PAGE
1)
1)
1)
1)59
1) XCMPRH: TLNN T1,777 ;A PARTIAL WORD?
1) JRST XCMPR8 ;NO
1) MOVE T1,P1 ;GET FILE PTR
Digital Equipment Corporation 28-AUG-79 Page 239
PCO Log Report
1) LSH T1,2 ;IN BLOCKS
1) USETO DC,1(T1) ;ALLOCATE REMAINDER
1) XCMPR8: MOVE T1,HC.S0(R) ;GET HIGHEST DATA LOCATION
1) MOVE T3,HL.S0(R) ;AND HIGHEST ALLOCATEDLOCATION
1) IORI T1,777 ;PUT ON PAGE BOUNDARY
1) IORI T3,777 ;...
1) SUB T3,T1 ;SEE IF SAME PAGE
1) JUMPE T3,XCMPR9 ;YES
1) HRL P2,T3 ;[733] P2 HAS RIGHT PROCESS PAGE
1) SUB P2,[1B8] ;[733] REPEAT COUNT IS ONE LESS
IN LH
1) PUSHJ P,XCMPXD ;SEE IF ENOUGH ROOM
1) HLLZM P1,(W1) ;STORE FLAGS
1) PUSHJ P,XCMPXD ;
1) MOVEM P2,(W1) ;[733] STORE ALLOCATED BUT ZERO
PAGES
1) XCMPR9: SKIPE PAG.S0(R) ;A TEMP FILE STILL?
1) PUSHJ P,@[EXP LC.DLT,HC.DLT]-1(R) ;YES, GET RID OF
IT
1) CAIE R,1 ;JUST DUMPED LOW CORE?
1) JRST [CAIE R,2 ;JUST DUMPED HIGH CORE?
1) JRST XCMPHG ;NO, GO CHECK HIGH
1) JRST XCMPRX] ;YES, FINISH UP
1) IFN FTOVERLAY,<
1) SKIPL LNKMAX ;YES, SEE IF ANY OVERLAY?
1) SKIPN JOB116 ;ANY SYMBOLS TO DUMP?
1) JRST XCMPHG ;NO, GO CHECK HIGH
1) JRST XCMPOV ;YES, GO DUMP OVERLAY SYMBOL
1) >
1)
1)
1)60 IFN FTOVERLAY,<
1) ;HERE IF OVERLAY AND LOCAL SYMBOLS OF ROOT MODULES ARE TO BE DUM
PED
1) ;FIRST SET UP EXE FILE DIRECTORY ENTRIES FOR THE
1) ;ZERO PAGES BETWEEN LOW CORE AND THE SYMBOL TABLE
1) ;AND THE SYMBOLS.
1) ;ALSO, ZEROS GET PADDED IN FRONT IS LOCAL SYMBOLS DON'T
1) ;START AT A VIRTUAL PAGE BOUND
1) ;
1)
1) XCMPOV: PUSHJ P,XCMPXD ;INCREMENT W1 AND SEE IF ENOUGH
ROOM?
1) HLLZM P1,(W1) ;FLAGS+0 FILE PAGE
1) PUSHJ P,XCMPXD ;ENOUGH ROOM?
1) MOVEM P2,0(W1) ;CORE-PAGE
1) HRRZ T1,JOB116 ;START ADDR. FOR LOCAL SYMBOLS
1) MOVE T3,T1
1) IDIVI T1,1000 ;T1/PAGE # T2/ZERO WORDS
1) SUBM T1,P2 ;GET THE NUMBER OF ZERO PAGES
1) SUBI P2,1
Digital Equipment Corporation 28-AUG-79 Page 240
PCO Log Report
1) DPB P2,[POINT 9,0(W1),8] ;DEPOSIT AS THE REPEAT C
OUNT
1) PUSHJ P,XCMPXD ;ENOUGH ROOM?
1) MOVEM P1,(W1) ;FLAGS+FILE PAGE#
1) PUSHJ P,XCMPXD ;ENOUGH ROOM?
1) MOVEM T1,0(W1) ;CORE PAGE #
1) ADD T3,LSYM ;GET REPEAT COUNT FROM START+LEN
GTH
1) LSH T3,-9 ;CONVERT TO PAGE
1) SUB T3,T1 ;TAKE AWAY STARTING PAGE COUNT
1) ADD P1,T3 ;[725] INCREMENT PROCESS PAGE
1) SUBI T3,1
1) DPB T3,[POINT 9,0(W1),8] ;REPEAT COUNT
1) MOVE P2,T2 ;# OF ZEROS IN FRONT
1) MOVEI T2,200 ;GET A 200 WORD
1) PUSHJ P,DY.GET## ;SCRATCH BLOCK
1) MOVEM T1,SCRTCH ;SAVE IT, SO WE CAN GIVE
BACK
1) SUBI T1,1 ;MAKE IT IOWD
1) HRLI T1,-200 ;
1) SETZ T2,
1) XCMPO1: CAIGE P2,200 ;MORE THAN 200 ZEROS?
1) JRST XCMPO2 ;NO,
1) OUT DC,T1 ;YES, OUTPUT A BLOCK OF ZEROES
1) JRST [SUBI P2,200
1) JRST XCMPO1]
1) JRST XCMPER
1)
1)
1)
1)61
1) ;HERE IF LOCAL SYMBOLS ARE PAGED
1) ;
1)
1) XCMPO2: PUSH P,T1 ;SAVE IOWD TO SCRATCH FOR A WHIL
E
1) SKIPN PAG.LS ;PAGED?
1) JRST XCMPLS ;NO
1) HRLZ T1,LW.LS ;YES, GO OUTPUT CURRENT WINDOW
1) HRR T1,LSYM
1) PUSHJ P,LS.OUT##
1) SETZM LW.LS ;START AT LOWEST LOCATION
1) SKIPN HC.S2 ;GET MORE CORE AREA--ANY HIGH?
1) JRST XCMPP1 ;NO
1) MOVE T1,HC.AB ;YES,
1) MOVEM T1,HC.UB
1) JRST XCMPP2
1) XCMPP1: MOVE T1,LC.AB
1) MOVEM T1,LC.UB
Digital Equipment Corporation 28-AUG-79 Page 241
PCO Log Report
1) XCMPP2: ADDI T1,1
1) MOVEM T1,LS.LB ;NEW LOWER BOUND
1) MOVE T2,.JBREL ;NEW UPPER BOUND
1) MOVEM T2,LS.UB
1) SUBM T2,T1 ;GET LEGTH OF CORE AVAILABLE
1) SETZ R,
1) MOVEM T1,UW.LS ;WE HAVE UPPER WINDOW
1) CAMGE T1,LSYM ;WINDOW BIG ENOUGH FOR ALL?
1) JRST [PUSHJ P,LS.IN## ;NO, READ IN AS MUCH AS
WE CAN
1) JRST XCMPO3]
1) MOVE T1,LSYM ;YES, JUST READIN WHAT WE HAVE
1) IORI T1,.IPM
1) MOVE T2,T1
1) ADD T2,LS.LB ;
1) MOVEM T2,LS.AB ;AND UPDATE
1) PUSHJ P,LS.IN##
1) PUSHJ P,LS.DLT ;GO DELETE THE TMP FILE
1) JRST XCMPO3 ;GO FIX UP FIRST BLOCK
1)
1) ;DUMP LOCAL SYMBOLS--HERE ONLY IF NOT PAGED
1)
1) XCMPLS: MOVEI R,LS.IX-1 ;SEE WHO HAS CORE RIGHT BELOW IT
1) SKIPN T2,TAB.UB(R) ;LOOK FOR NON-ZERO
1) SOJGE R,.-1 ;IT'S ZERO, DECREMENT INDEX
1) SUB T2,TAB.AB(R) ;GET LENTH OF GAP
1) SETZ R, ;KEEP COUNT OF LEGTH OF LS ALREA
DY OUT
1) CAMGE T2,P2 ;IS THE GAP BIT ENOUGH?
1) JRST XCMPO3 ;NO, GO FIXUP FIRST BLOCK
1) HRLS P2,P2 ;YES, BORROW WHAT WE NEED
1) MOVE R,LSYM ;UPDATE R SO WE KNOW ITS END
1) MOVE T1,LS.LB ;SET UP IOWD
1) HLL T1,JOB116 ;IN T1
1) SUB T1,P2 ;ADJUST BY NUMBER OF ZEROS
1) SUBI T1,1
1) SETZ T2, ;MAKE SURE ENDS WITH ZERO
1) JRST XCMPO4 ;GO DO OUTPUT
1)
1)62
1)
1) XCMPO3: POP P,T1 ;GET IOWD TO SCRATCH BACK FROM S
TACK
1) MOVEI T2,201(T1) ;USE SCRATCH SPACE
1) MOVEI P1,1(T1) ;GET START OF THE AREA
1) ADD P1,P2 ;GET WHERE DATA SHOULD GO
1) HRL P1,LS.LB
1) BLT P1,(T2)
1) MOVE T4,LS.AB ;
Digital Equipment Corporation 28-AUG-79 Page 242
PCO Log Report
1) SUB T4,LS.LB ;LENTH IN CORE
1) ADDI T4,1 ;NUMBER OF WORDS TO BE READ IN
1) CAMGE T4,LSYM ;WOULD WE HAVE READ ALL?
1) JRST [MOVNI T3,-200(T4) ;NO, NUMBER OF WORDS TO
DUMP
1) MOVE R,T4
1) SUBI R,(P2)
1) JRST XCMPO5]
1) MOVN T3,LSYM ;YES, NUMBER OF WORDS TO DUMP
1) SUBI T3,-200(P2) ;LESS BY DATA BLT TO SCRATCH BLO
CK
1) MOVE R,LSYM
1) XCMPO5: MOVE T2,LS.LB ;GET BEGINNING OF DATA
1) SUBI T2,-200(P2) ;ADJUST IT TO EXCLUDE DATA TO SC
RATCH
1) SUBI T2,1 ;1 LESS FOR IOWD
1) HRL T2,T3 ;MINUS LENGTH IN LH OF IOWD
1) PUSH P,T2 ;SAVE IOWD, NEED IT LATER IF PAG
ED
1) SETZ T3, ;MAKE SURE LIST END WITH ZERO
1) XCMPO4: OUT DC,T1
1) CAIA
1) JRST XCMPER
1) CAML R,LSYM ;FINISHED?
1) JRST [POP P,0(P) ;YES, RESTORE STACK
1) MOVEI R,1 ;INDICATE WE JUST DID LO
W SEG
1) MOVE T1,SCRTCH ;GIVE BACK THE SCRATCH S
PACE
1) MOVEI T2,200 ;OF 200 WORDS
1) PUSHJ P,DY.RET##
1) SKIPE PAG.LS ;STILL A TEMP FILE?
1) PUSHJ P,LS.DLT ;YES, DELETE IT
1) JRST XCMPHG] ;GO CHECK HIGH CORE
1)
1) ;FALL THROUGH TO NEXT PAGE
1)
1)63 ;HERE TO DUMP THE NEXT BLOCK OF SYMBOLS, IF NEEDED
1)
1) MOVE T1,LW.LS ;GET LOWER WINDOW
1) ADDI T1,-200(T4) ;INCRREMENT IT
1) MOVEM T1,LW.LS ;NEW LOWER WINDOW
1) ADD T1,T4 ;ADD THE NUMBER OF WORDS TO BE R
EAD
1) CAML T1,LSYM ;EXCEEDED THE END?
1) MOVE T1,LSYM ;YES, READ ONLY WHAT WE NEED
1) MOVE R,T1 ;UPDATE R
1) MOVEM T1,UW.LS ;UPDATE UPPER WINDOW
1) HRL T1,LW.LS ;LOW WINDOW IN LH FOR LS.IN
Digital Equipment Corporation 28-AUG-79 Page 243
PCO Log Report
1) PUSHJ P,LS.IN## ;GO READ IT
1) HRRZ T1,T1 ;GET NEW OUTPUT LENGTH
1) SUB T1,LW.LS
1) ADDI T1,-200(P2) ;ADJUST IT BY PREVIOUS OUT
1) MOVN T3,T1 ;NEGATE IT AND SAVE IN CASE AT
END
1) MOVE T1,LW.LS ;GET LOWER WINDOW
1) MOVE T1,0(P) ;GET IOWD FROM STACK
1) CAML R,LSYM ;AT END, NEED TO FISUP THE LH
1) HRL T1,T3 ;YES,
1) SETZ T2, ;END LIST WITH ZERO
1) JRST XCMPO4 ;GO OUTPUT
1)
1) >
1)
1)64 XCMPHG: SKIPN HC.LB ;ANY HIGH SEGMENT?
1) JRST XCMPRX ;NO, FINISH UP
1) SKIPN PAG.S2 ;PAGING?
1) JRST XCMPRN ;NO,
1) MOVE T1,HC.AB ;GET TOP
1) SUB T1,HC.LB ;LENTH
1) ADDI T1,1 ;ROUND UP
1) ANDCMI T1,777 ;MAKE SURE ON PAGE BOUNDARY
1) SUBI T1,1 ;GET CORRESPONDING UPPER BOUND
1) MOVEM T1,PAG.S2 ;RESET WINDOW
1) ADD T1,HC.LB ;
1) MOVEM T1,HC.AB ;AND CORE BOUND
1) XCMPRN: MOVE T1,SSEXT ;GET TYPE BITS
1) HRRZ P1,P1 ;CLEAR FLAGS
1) IFE TOPS20,<
1) TXO P1,SV%HIS ;HIGH ALWAYS FOR -10
1) TXNE T1,SS.SHR ;SHAREABLE?
1) > ;END OF IFE TOPS20
1) TXO P1,SV%SHR ;YES,
1) MOVE T1,HC.LB ;START OF HI SEG
1) SUBI T1,1 ;IOWD IS 1 LESS
1) MOVE P2,LL.S2 ;GET ORIGIN
1) LSH P2,-9 ;IN PAGES
1) SETZB P3,P4 ;RESET FLAGS
1) MOVE T3,HC.S2 ;GET LENGTH OF HI SEG
1) CAIL T3,1000 ;LESS THAN 1 PAGE
1) AOJA R,XCMPRL ;NOW SAVE HIGH SEGMENT
1) MOVN T3,T3 ;YES, GET ACTUAL WORD COUNT
1) HRL T1,T3 ;JUST OUTPUT THAT MUCH
1) AOJA R,XCMPR7 ;OF HIGH SEGMENT
1)
1)65
1)
1)
Digital Equipment Corporation 28-AUG-79 Page 244
PCO Log Report
1) XCMPRX:
1) IFN TOPS20,<
****
2)66 ;**;[1132] Change @ XCMPRD+2L JNG 30-Jan-79
2) TXNN P4,ZEROF ;[1132] ZERO PAGE? (FLAGS ALREAD
Y CHANGED)
2) HLLZS (W1) ;YES, SO NO FILE PAGES
2) PUSHJ P,XCMPXD ;SECOND WORD
2) MOVEM P2,(W1) ;[1132]
2) POPJ P, ;[1132]
2)
2)67 ;HERE TO ALLOCATE A DIRECTORY ENTRY IF SUFFICIENT ROOM EXISTS.
2) ;IF NOT, EXTEND THE FILE BY ONE PAGE TO MAKE ROOM FOR ANOTHER
2) ;PAGE OF DIRECTORY.
2)
2) ;**;[1132] Move up from below and revamp JNG 30-Jan-7
9
2) XCMPXD: AOBJN W1,CPOPJ ;ALLOCATE IF ENOUGH ROOM
2)
2)
2) ;WRITE THE CURRENT PAGE OF THE EXE DIRECTORY TO DISK.
2) ;THEN START FROM THE FRONT OF THE FILE, AND FIX ALL PAGES OF
2) ;EXE DIRECTORY PRESENT, INCLUDING THE ONE WE JUST WROTE.
2)
2) HRLOI T3,-1000-1 ;[1132] FORM IOWD TO IN CORE EXE
DIRECTORY
2) ADD T3,EXEDIR ;[1132] ..
2) SETZ T4, ;[1132] TERMINATE IO LIST
2) USETO DC,@EXEBLK ;[1132] SET TO LATEST EXE DIRECT
ORY BLOCK
2) OUT DC,T3 ;[1132] WRITE THE DIRECTORY
2) CAIA ;[1132] SUCCESS
2) JRST XCMPER ;[1132] IO ERROR
2) MOVEI W1,1 ;[1132] NOW LOOP OVER DIR, START
ING AT BLOCK 1
2) XCMPXE: USETI DC,@W1 ;[1132] SET ON NEXT PAGE OF EXE
DIR
2) IN DC,T3 ;[1132] READ IT INTO SCRATCH PAG
E
2) CAIA ;[1132] OK
2) JRST XCMPER ;[1132] FAILED
2) MOVE T2,EXEDIR ;[1132] NOW SETUP AOBJN PTR TO E
XE DIR PAGE
2) HRLI T2,-400 ;[1132] COUNT OF DIR ENTRIES THI
S PAGE
2) XCMPXF: MOVE T1,1(T2) ;[1132] GET 1ST WORD OF NEXT ENT
RY
2) TRNE T1,-1 ;[1132] AN ABZ POINTER?
2) AOS 1(T2) ;[1132] NO, BUMP THE FILE PAGE N
UMBER
Digital Equipment Corporation 28-AUG-79 Page 245
PCO Log Report
2) ADDI T2,1 ;[1132] SKIP 2ND WORD OF THIS DI
R ENTRY
2) AOBJN T2,XCMPXF ;[1132] LOOP OVER THE ENTIRE PAG
E
2) USETO DC,@W1 ;[1132] POINT TO WHERE WE GOT TH
E PAGE
2) OUT DC,T3 ;[1132] PUT IT BACK, SLIGHTLY MO
DIFIED
2) CAIA ;[1132] OK
2) JRST XCMPER ;[1132] I/O ERROR
2) ADDI W1,4 ;[1132] BLOCK NUMBER OF NEXT PAG
E
2) CAMG W1,EXEBLK ;[1132] MORE DIRECTORY PAGE(S) T
O PROCESS?
2) JRST XCMPXE ;[1132] YES, PROCESS THEM
2) MOVEM W1,EXEBLK ;[1132] PAGE WE'RE FREEING UP FO
R MORE DIRECTORY
2)
2)68 ;FALL IN FROM ABOVE
2)
2) ;NOW TO LOOP OVER THE FILE BACKWARDS, MOVING ALL OF THE DATA PAG
ES
2) ;ONE PAGE HIGHER.
2)
2) MOVEI W1,-1(P1) ;[1132] LAST PAGE WRITTEN
2) ADDI W1,0(P4) ;[1132] PLUS ANY FOUND IN THIS D
IR ENTRY
2) ASHC W2,-^D27 ;[1132] NEED TO LOOK AT IOWD, SI
NCE PAGES
2) ADD W1,W2 ;[1132] IT POINTS TO HAVEN'T B
EEN WRITTEN
2) ASHC W2,^D27 ;[1132] RESET IOWD TO PREVIOUS V
ALUE
2) SETZ W3, ;[1132] CLEAR SIGN BIT LEFT FROM
ASHC
2) LSH W1,2 ;[1132] CONVERT PAGE TO BLOCK NU
MBET
2) ADDI W1,1 ;[1132] BLOCK NUMBERS START AT 1
2) MOVEI T2,10(W1) ;[1132] REMEMBER NEXT BLOCK TO W
RITE FOR LATER
2) XCMPXG: CAMGE W1,EXEBLK ;[1132] ANY DATA PAGES LEFT TO C
OPY?
2) JRST XCMPXH ;[1132] NO, GO FINISH UP
2) USETI DC,@W1 ;[1132] POINT TO NEXT DATA PAGE
2) IN DC,T3 ;[1132] READ IT
2) CAIA ;[1132] OK
2) JRST XCMPER ;[1132] ERROR
2) OUT DC,T3 ;[1132] WRITE IT INTO THE NEXT P
AGE
Digital Equipment Corporation 28-AUG-79 Page 246
PCO Log Report
2) CAIA ;[1132] OK
2) JRST XCMPER ;[1132] ERROR
2) SUBI W1,4 ;[1132] BACK UP ONE MORE DATA BL
OCK
2) JRST XCMPXG ;[1132] LOOP OVER ALL DATA PAGES
2)
2)
2) ;HERE WHEN THE DIRECTORY AND THE FILE HAVE BEEN UPDATED.
2) ;FIX THE POINTERS THAT OUR CALLERS LOOK AT, THEN RETURN.
2)
2) XCMPXH: USETO DC,@T2 ;[1132] NEXT WRITE TO NEXT FREE
BLOCK
2) ADDI P1,1 ;[1132] THIS DIR ENTRY IS ONE OF
F TOO
2) MOVE W1,EXEDIR ;[1132] RESET DIR AOBJN PTR FOR
NEXT CALL
2) HRLI W1,-1000 ;[1132] SET UP COUNT FOR INITIAL
AOBJN
2) HRLZ T1,W1 ;[1132] NOW ZERO THE DY AREA BLO
CK
2) HRRI T1,1(W1) ;[1132] ..
2) SETZM 0(W1) ;[1132] ..
2) BLT T1,777(W1) ;[1132] ..
2) POPJ P, ;[1132] RETURN TO CALLER
2)
2)69 IFN FTOVERLAY,<
2)
2) ;HERE WHEN GENERATING AN EXE FILE FOR THE ROOT OF AN OVERLAID PR
OGRAM,
2) ;AND IT IS TIME TO INSERT THE LOCAL SYMBOLS FROM THE LS AREA INT
O THE
2) ;EXE FILE. ALL ZEROS BEFORE THE SYMBOLS AND THE FIRST PARTIAL P
AGE OF
2) ;SYMBOLS HAVE ALREADY BEEN COPIED INTO THE EXE FILE, SINCE THEY
WERE
2) ;PUT INTO THE LC AREA AT JBEXE.
2)
2) XCMPOV: HRRZ T1,JOB116 ;[1132] SYMBOLS ARE NOT PAGE ALI
GNED IN LS
2) ANDI T1,777 ;[1132] SO PUT OFFSET TO FIRST S
YM IN R3
2) MOVEI R3,1000 ;[1132] OFFSET IS REST OF PAGE N
OT COPIED
2) SUB R3,T1 ;[1132] AT JBEXE
2) SETZB R2,P3 ;[1132] ASSUME LS AREA ISN'T PAG
ING
2) SKIPN PAG.LS ;[1132] IS THE LS AREA PAGING?
2) JRST XOVDMP ;[1132] NO, JUST DUMP IT TO THE
EXE FILE
Digital Equipment Corporation 28-AUG-79 Page 247
PCO Log Report
2) MOVE T1,LW.LS ;[1132] CALCULATE UPPER WINDOW
2) ADD T1,LS.AB ;[1132] FROM LOWER WINDOW + SIZE
2) SUB T1,LS.LB ;[1132] SO WE CAN WRITE OUT CURR
ENT LS AREA
2) MOVEM T1,UW.LS ;[1132] SAVE IT IN CASE IT WAS -
1
2) HRL T1,LW.LS ;[1132] FIRST,,LAST FOR LS.OUT
2) PUSHJ P,LS.OUT ;[1132] UPDATE THE DISK COPY
2) PUSHJ P,FR.CNT## ;[1132] SEE HOW MUCH ROOM IS LEF
T
2) MOVE T2,LSYM ;[1132] COUNT OF WORDS IN THE LS
AREA
2) SUBI T2,1 ;[1132] CONVERT FIRST FREE TO LA
ST USED
2) IORI T2,777 ;[1132] ROUND UP TO PAGE END
2) MOVE T3,LS.AB ;[1132] FIND CURRENT SIZE OF LS
AREA
2) SUB T3,LS.LB ;[1132] AS END - START
2) CAMG T2,T3 ;[1132] IS AREA BIG ENOUGH?
2) JRST XOVNXW ;[1132] YES, JUST DUMP IT TO THE
FILE
2) SUB T2,T3 ;[1132] EXTRA WE NEED
2) CAMLE T1,T2 ;[1132] LESS THAN WE HAVE?
2) MOVE T1,T2 ;[1132] YES, DON'T ASK FOR MORE
THAN WE NEED
2) SETOM LS.PP ;[1132] DON'T PAGE THE LS AREA T
O SATISFY THIS
2) SPUSH <P1,P2> ;[1132] SAVE CURRENT EXE DIR ENT
RY
2) MOVEI P1,LS.IX ;[1132] EXPAND THE LS AREA
2) MOVE P2,T1 ;[1132] BY THIS MUCH
2) PUSHJ P,LNKCOR## ;[1132] GO SHUFFLE
2) PUSHJ P,NO.COR## ;[1132] FR.CNT LIED!!
2) SPOP <P2,P1> ;[1132] RESTORE THE SACRED COWS
2) SETZM LS.PP ;[1132] LS AREA CAN PAGE NOW
2)
2) ;FALL INTO NEXT PAGE
2)
2)70 ;FALL IN FROM ABOVE
2)
2) ;HERE WHEN THE LS AREA IS PAGING TO BRING THE NEXT WINDOW OF SYM
BOLS
2) ;IN TO BE WRITTEN TO THE EXE FILE. P3 HAS THE FIRST ADDRESS TO
READ IN
2) ;STORED IN IT, AND WE WILL PUT THE COUNT OF HOW FAR THIS PASS FA
ILED TO
2) ;FINISH BY IN R2.
2)
2) XOVNXW: MOVEM P3,LW.LS ;[1132] INIT LOWER WINDOW
2) ADD P3,LS.AB ;[1132] NOW COMPUTE UPPER WINDOW
2) SUB P3,LS.LB ;[1132] AS LOWER+SIZE
Digital Equipment Corporation 28-AUG-79 Page 248
PCO Log Report
2) MOVEM P3,UW.LS ;[1132] STORE FOR LS.IN
2) ANDCMI P3,777 ;[1132] FIRST TO READ NEXT TIME
2) MOVE R2,LSYM ;[1132] END OF SYMBOLS
2) SUBI R2,1 ;[1132] LAST WORD CONTAINING SYM
BOLS
2) IORI R2,777 ;[1132] THE END OF THAT PAGE
2) SUB R2,UW.LS ;[1132] FIND OUT HOW FAR YET TO
GO
2) JUMPGE R2,XOVNX2 ;[1132] ALL OK UNLESS THIS TIME
WILL END IT
2) ADDM R2,LS.AB ;[1132] REDUCE SIZE OF WINDOW
2) ADDM R2,UW.LS ;[1132] AND LAST ADDRESS IN WIND
OW
2) XOVNX2: HRLZ T1,LW.LS ;[1132] SET UP LOWEST,,HIGHEST
2) HRR T1,UW.LS ;[1132] FOR LS.IN
2) PUSHJ P,LS.IN ;[1132] READ IN THE NEXT BLOCK O
F SYMBOLS
2) JUMPLE R2,XOVDMP ;[1132] IF LAST TIME, WRITE ALL
OF LS AREA
2) MOVE T1,UW.LS ;[1132] NOT LAST TIME, ONLY WRIT
E THROUGH
2) ANDCMI T1,777 ;[1132] FIRST PART OF LAST PAG
E
2) TROA T1,R3 ;[1132] WILL GET REST OF THAT PA
GE NEXT PASS
2) XOVDMP: MOVE T1,LSYM ;[1132] LAST TIME, WRITE THROUGH
THE END
2) MOVE W2,LW.LS ;[1132] PUT IOWD TO SYMBOLS TO W
RITE IN W2
2) ADD W2,R3 ;[1132] DON'T START AT BEGINNING
OF LS
2) SUB W2,T1 ;[1132] -COUNT IS FIRST-LAST
2) HRLZ W2,W2 ;[1132] -COUNT,,0
2) HRR W2,LS.LB ;[1132] -COUNT,,BOTTOM OF LS ARE
A
2) ADDI W2,-1(R3) ;[1132] BUT DON'T START WRITING
AT START
2) OUT DC,W2 ;[1132] WRITE THE SYMBOLS
2) TDZA W2,W2 ;[1132] CLEAR W2 AGAIN IN CASE D
ONE
2) JRST XCMPER ;[1132] I/O ERROR
2) JUMPG R2,XOVNXW ;[1132] IF NOT DONE, LOOP BACK T
O TRY AGAIN
2) SKIPE PAG.LS ;[1132] ALL DONE, ANY TEMP FILE?
2) PUSHJ P,LS.DLT ;[1132] YES, DELETE IT
2) PUSHJ P,LS.ZAP ;[1132] ALL DONE WITH LS AREA
2)
2) ;FALL INTO NEXT PAGE
2)
Digital Equipment Corporation 28-AUG-79 Page 249
PCO Log Report
2)71 ;FALL IN FROM ABOVE
2)
2) ;NOW THAT THE DATA HAS BEEN WRITTEN, UPDATE THE EXE DIRECTORY TO
2) ;REFLECT THE CHANGE. ALSO ZERO THE REST OF THE LAST PAGE WITH
A USETO.
2)
2) HRRZ R3,JOB116 ;[1132] START OF SYMBOL TABLE
2) HLRE T1,JOB116 ;[1132] - COUNT
2) SUB R3,T1 ;[1132] FIRST WORD BEYOND TABLE
2) ADDI R3,777 ;[1132] ROUND UP TO NEXT PAGE BO
UND
2) ANDCMI R3,777 ;[1132] FIRST PAGE NOW FREE
2) HRRZ P3,JOB116 ;[1132] FIRST WORD WRITTEN
2) ADDI P3,777 ;[1132] ROUND UP TO PAGE BOUND
2) ANDCMI P3,777 ;[1132] SO WE DON'T COUNT SYMS W
RITTEN AT JBEXE
2) SUB R3,P3 ;[1132] R3 NOW HAS COUNT OF WORD
S WRITTEN HERE
2) HRRZ T1,P1 ;[1132] FIRST DISK PAGE FREE BEF
ORE XCMPOV
2) ADDI T1,(P4) ;[1132] ACCOUNT FOR EXTRA OUTS D
ONE
2) MOVE R2,R3 ;[1132] NUMBER OF WORDS WRITTEN
HERE
2) LSH R2,-^D9 ;[1132] NUMBER OF PAGES WE ADDED
TO THE EXE FILE
2) ADD T1,R2 ;[1132] NEW FIRST FREE = OLD + C
OUNT
2) LSH T1,2 ;[1132] CONVERT TO BLOCKS FOR US
ETO
2) USETO DC,1(T1) ;[1132] SET FILE POINTER TO FIRS
T FREE BLOCK
2) TXON P4,DATAF ;[1132] NOW IN A DATA DIR ENTRY,
FIRST TIME?
2) JRST XOVNWD ;[1132] YES, GO DUMP OLD DIR ENT
RY AND START NEW
2) ADD P3,R3 ;[1132] MAKE P3 BE THE FIRST FRE
E ADDRESS
2) MOVSI R3,(R3) ;[1132] TURN WORD COUNT INTO PAG
E COUNT IN LH
2) ADD P2,R3 ;[1132] BUMP COUNT IN DIR ENTRY
2) ADD P4,R2 ;[1132] COUNT FILE PAGES WRITTEN
HERE
2) POPJ P, ;[1132] DONE, BACK TO ADVPSC
2)
2)
2) ;HERE TO START A NEW EXE DIRECTORY ENTRY
2)
2) XOVNWD: TXZ P4,ZEROF ;[1132] NO LONGER WRITING AN ABZ
ENTRY
2) TXZN P4,GAPF ;[1132] NOR IN A GAP. WERE WE?
Digital Equipment Corporation 28-AUG-79 Page 250
PCO Log Report
2) PUSHJ P,XCMPRD ;[1132] NO, WRITE CURRENT DIR EN
TRY
2) ADDI P1,(P4) ;[1132] BUMP FILE PAGE NUMBER
2) HRR P4,R2 ;[1132] ACCOUNT FOR PAGES WRITTE
N HERE
2) MOVE P2,P3 ;[1132] FIRST WORD WE WROTE HERE
2) LSH P2,-^D9 ;[1132] FIRST PAGE WE WROTE HERE
2) ADD P3,R3 ;[1132] MAKE P3 POINT TO FIRST W
ORD BEYOND SYMS
2) MOVSI R3,-1000(R3) ;[1132] CONVERT WORD CNT INTO EX
E DIR PAGE CNT
2) ADD P2,R3 ;[1132] NOW HAVE A NEW EXE DIR S
LOT
2) POPJ P, ;[1132] DONE
2)
2)72 ;HERE WHEN DONE WRITING THE MEMORY IMAGE TO THE EXE FILE.
2) ;WRITE THE START ADDRESS BLOCK, DELETE THE TEMP FILES, AND
2) ;RETURN THE EXE DIRECTORY STORAGE TO FREE SPACE.
2)
2) ;**;[1132] Insert @ XCMPRX JNG 30-Jan-79
2) XCMPRX: SKIPE PAG.S1 ;[1132] STILL GOT AN LC TEMP FIL
E?
2) PUSHJ P,LC.DLT ;[1132] YES, DELETE IT
2) SKIPE PAG.S2 ;[1132] HOW ABOUT AN HC TEMP FIL
E?
2) PUSHJ P,HC.DLT ;[1132] YES, DELETE IT
2)
2) IFN TOPS20,<
**************
1)65 USETO DC,@EXEBLK ;NOW TO WRITE THE DIRECTORY
****
2)72
2)73 USETO DC,@EXEBLK ;NOW TO WRITE THE DIRECTORY
**************
1)66
1) XCMPXD: AOBJN W1,CPOPJ ;ALLOCATE IF ENOUGH ROOM
1) PUSH P,T1 ;SAVES SPACE TO SAVE IT HERE
1) USETO DC,@EXEBLK ;SET ON IT
1) MOVE W1,EXEDIR ;PTR TO START
1) HRLI W1,-400 ;NO. TO TRY
1) MOVEI T1,1 ;INCREMENT
1) XCMPXE: MOVE T3,1(W1) ;GET FILE PAGE
1) TRNE T3,-1 ;TEST FOR ALLOCATED BUT ZERO
1) ADDM T1,1(W1) ;INCREMENT REAL PAGE
1) ADDI W1,1 ;
1) AOBJN W1,XCMPXE ;LOOP
1) HRRZ T1,EXEDIR ;
1) SUBI T1,1 ;
1) HRLI T1,-1000 ; FORM IOWD
Digital Equipment Corporation 28-AUG-79 Page 251
PCO Log Report
1) SETZ T2, ;MAKE SURE
1) OUT DC,T1 ;WRITE OUT DIRECTORY
1) CAIA ;OK
1) JRST XCMPER ;ERROR
1) MOVEI T3,4 ;NO. OF BLOCKS WE WILL MOVE BY
1) ADDB T3,EXEBLK ;WHERE REST OF DIRECTORY WILL GO
1) LSH T3,-2 ;NO. OF PAGES
1) SUBI T3,1(P1) ;- NO. OF PAGES TO COPY
1) MOVEI T4,(P1) ;PAGE NO.
1) LSH T4,2 ;BLOCK NO.
1) HRL T4,T3 ;AOBJN PTR
1) XCMPXL: USETI DC,1(T4) ;SET ON INPUT BLOCK
1) IN DC,T1 ;READ FILE BACKWARDS
1) CAIA ;OK
1) JRST XCMPER ;ERROR
1) OUT DC,T1 ;WRITE IT BACK OUT 1 PAGE HIGHER
1) CAIA ;OK
1) JRST XCMPER ;
1) HRRI T4,-5(T4) ;SUBTRACT BUT WORRY ABOUT CARRY
1) AOBJN T4,XCMPXL ;LOOP
1) HRRZ W1,EXEDIR ;RESET DEPOSIT PTR
1) HRLI W1,-1000 ;
1) HRLZ T1,W1 ;
1) HRRI T1,1(W1) ;FORM BLT PTR
1) SETZM (W1) ;
1) BLT T1,777(W1) ;CLEAR DIRECTORY BLOCK
1) AOS T1,P1 ;NEW FILE PAGE
1) LSH T1,2 ;BLOCKS
1) USETO DC,5(T1) ;RESET OUTPUT PTR
1) POP P,T1 ;RESTORE
1) POPJ P, ;
1)
1) XCMPER: PUSH P,[DC]
****
2)73 XCMPER: PUSH P,[DC]
**************
1)100 U (SCRTCH) ;POINTER TO A SCRATCH PAGE
1)
****
2)107 ;**;[1132] Replace @ SCRTCH JNG 30-Jan-79
2) U (SYMPSC) ;[1132] RC BLOCK OF /SYMSEG PSEC
T
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 252
PCO Log Report
*********************
*PCO #:10-LINK -254*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 30-JAN-79
[Programmer] GILBERT
[Routines] LNKERR
[Key Words] LNKSTL LONG MSG
[Source Before Edit] %4A (001132)
[Source After Edit] %4A (001133)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-26576
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 253
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
There is no long message for the LNKSTL message.
**********
[DIAGNOSIS]
Oversight.
**********
[CURE]
Add an appropriate message.
Digital Equipment Corporation 28-AUG-79 Page 254
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0835 30-Jan-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1327 30-Jan-1979
1)1 DECEVR==1132 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1133 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1133 JNG 30-Jan-79 SPR 10-26576
2) ; Add a long message for the LNKSTL message.
2) ; Routine: LNKERR
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 255
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1544 22-Sep-1978
File 2) LINK:LNKERR.MAC[10,645063] created: 1309 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 22-Sep-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 30-Jan-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1133 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1133 Add a long message for the LNKSTL message.
2)
**************
1)9 T13 31 31 LVAR (type 13) code not implemented
****
2)9 STL 31 31 High segment code too long
2) T13 31 31 LVAR (type 13) code not implemented
**************
1)10 HASH T13,0,<^_
****
2)10 ;**;[1133] Insert @ the T13 message JNG 30-Jan-79
2) HASH STL,0,<^_
2) The high segment of your program has overflowed the end
of
2) memory. You can move the high segment down by using t
he
2) /SET:.HIGH.:address switch, or you can force your enti
re
2) program into the low segment with the /SEGMENT:LOW switc
h.>
2)
2) HASH T13,0,<^_
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 256
PCO Log Report
*********************
*PCO #:10-LINK -255*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 30-JAN-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] ADDR CHECK EDIT 776 EDIT 1132
[Source Before Edit] %4A (001133)
[Source After Edit] %4A (001134)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27024
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 257
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an address check if all of the following
conditions are met:
1. The lowest code or data loaded occurs between 2000
and 377777.
2. The program being loaded is small enough so that
LINK does not have to overflow to disk.
3. LINK is writing an EXE file, either because the
program is too large to fit in memory, or because
the user requested an EXE file with /SAVE.
Also, LINK will fail to write out the correct .JBVER
(location 137) if the lowest location loaded is 2000 or
above.
If edit 776 has been installed, users will not see the
above problems. Instead, LINK will set up an incorrect page
0 (JOBDAT) when all of the following conditions are met:
1. LINK has overflowed to disk, either because the
program was too large to fit in memory, or because
disk overflow was forced by the first location
loaded being above 400000.
2. The program being loaded is small enough so that
LINK is able to read all of it (from the lowest
location loaded on up) back in at the end of
loading.
3. LINK is writing an EXE file.
**********
[DIAGNOSIS]
Digital Equipment Corporation 28-AUG-79 Page 258
PCO Log Report
LINK always tries to write JOBDAT from the DY buffer
(JOBPTR) if the lowest location loaded (LOWLOC) is 2000 or
above, on the assumption that disk overflow has already
occurred. However, if the program is small enough so that
disk overflow has not occurred, and if disk overflow was not
forced by the lowest location being 400000 or higher, then
JOBDAT is in the LC area instead of the DY area. In that
case, LINK will pick up a zero address and try to write its
own JOBDAT into the EXE file.
The missing .JBVER is due to an erroneous output IOWD
in the same area of code.
If edit 776 has been installed, then an error in that
edit will cause LINK to write out the page containing the
lowest location loaded as the JOBDAT area, instead of
writing the correct JOBDAT area.
**********
[CURE]
Do not try to get JOBDAT out of the DY area unless it is
really there, and correct the output IOWD.
Note that this problem was fixed in LINK by edit 1132,
and that this PCO is simply a small patch to fix this
particular problem without having to install all of edit
1132. This edit will never appear in any future release of
LINK, since edit 1132 will be shipped instead.
This edit also supersedes LINK edit 776 (PCO
10-LINK-254), which was an incorrect fix for this same
problem. Edit 776 should be removed before the installation
of this edit.
Digital Equipment Corporation 28-AUG-79 Page 259
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507,4,T10] created: 1904 01-Mar-1978
File 2) LINK:LNKHST.MAC[30,3737] created: 1747 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 27-FEB-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 30-Jan-7
9
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1134 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1134 JNG 30-Jan-79 SPR 10-26897
2) ; Avoid address check in LNKXIT while writing EXE file if
lowest
2) ; code loaded is between 2000 and 377777, but the program
being
2) ; loaded is not so large that LINK needs to overflow to di
sk.
2) ; Routines: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 260
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507,4,T10] created: 1503 03-Mar-1978
File 2) LINK:LNKXIT.MAC[30,3737] created: 1824 30-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 30-Jan-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1134 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1134 Avoid address check when not paging but LOWLOC is non-ze
ro.
2)5 SUBTTL ENTER HERE
**************
1)54 MOVE T3,LOWLOC ;[742] GET LOWEST LOCATION
1) CAIL T3,2000 ;[742] LOWEST LOCATION IN PAGE0
OR PAGE 1?
1) JRST XCMPRJ ;[742] NO,
****
2)54 ;**;[1134] Replace @ XCMPRS+9L JNG 30-Jan-79
2) ;**;[1134] This edit will not appear in any future release of LI
NK
2) ;**;[1134] This problem has been fixed in a different way by edi
t 1132
2) ;**;[1134] This edit is solely to avoid having to install all of
edit 1132
2) SKIPE LW.S1 ;[1134] IS JOBDAT IN THE LC OR D
Y AREAS?
2) JRST XCMPRJ ;[742] NO,
**************
1)55 HRLI T1,-.JBDA+1 ;[732]
1) OUT DC,T1 ;OUTPUT PAGE 0
****
2)55 ;**;[1134] Change @ XCMPRJ+2L JNG 30-Jan-79
2) HRLI T1,-.JBDA ;[1134]
2) OUT DC,T1 ;OUTPUT PAGE 0
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 261
PCO Log Report
*********************
*PCO #:10-LINK -256*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4A(1134)
[Date Entered] 31-JAN-79
[Programmer] D. NEFF
[Routines] LNKLOD
[Key Words] LOST DATA
[Source Before Edit] %4A (001134)
[Source After Edit] %4A (001135)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26792
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 262
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK may lose up to 17 words of data in the program, replacing them
with zeros, if all of the following conditions are met:
1. The block of data being loaded crosses a page boundary in
the loaded program's address space
2. Data has already been loaded at higher addresses in the
same segment
3. The segment is paging to disk
**********
[DIAGNOSIS]
When the above conditions are true, LINK's window into the overflow
file for the segment can become only one page long. In this case,
an optimization made by edit 716 causes LINK not to expand the
window, but just to leave it alone.
Those words in the block following the page 263undary are then
stored past the end of LINK's window and lost.
**********
[CURE]
Change the optimization check to require the window to be at least
two pages long if the request crosses a page boundary.
Digital Equipment Corporation 28-AUG-79 Page 264
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1937 30-Jan-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1640 31-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 30-Jan-7
9
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 31-Jan-7
9
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1134 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1135 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1135 DZN 31-Jan-79 SPR 10-26792
2) ; Force PG.SU to expand anyway if a request crosses a page
boundary
2) ; and the window is not at least two pages long.
2) ; Routine: LNKLOD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 265
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 0835 30-Jan-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1336 31-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 30-Jan-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 31-Jan-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 ;COPYRIGHT (C) 1973, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1135 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1135 Make PG.SU expand anyway if request crosses page and win
dow only a page.
2)5 SUBTTL LOAD CONTROL
**************
1)11 ;HERE TO MOVE WINDOW UP IN CORE
1) ;DUMP LOWER PART OF WINDOW, BLT DOWN AND READ IN TOP PART
1) ;THIS PART IS MOST LIKELY ZERO
1) PG.SU: CAMG P2,TAB.HB(R) ;[716] THE HIGH ADDR ALREADY OUT
ON DISK?
1) JRST PG.SD ;[716] YES, DON'T BOTHER TO EXPA
ND
1) PUSHJ P,FR.CNT## ;SEE HOW MUCH FREE SPACE WE HAVE
1) ADD T1,UW.S0(R) ;IF WE GIVE IT ALL TO THIS AREA
****
2)11 ;HERE TO MOVE THE WINDOW UP IN MEMORY. IF NECESSARY, DUMP THE LO
WER PART OF THE
2) ;WINDOW AND MOVE DOWN THE REST. THEN EXPAND THE END OF THE WINDO
W IF NECESSARY
2) ;AND READ IN THE UPPER PART WHICH IS USUALLY ZERO. TRY TO KEEP T
HE SIZE OF THE
2) ;WINDOW REASONABLE AS A FIRST APPROXIMATION.
2) PG.SU: MOVE T1,P2 ;[1135] SEE IF REQUEST CROSSES A
PAGE BOUNDARY
2) XOR T1,P3 ;[1135] ..
2) TXNN T1,^-<.IPS-1> ;[1135] ..
Digital Equipment Corporation 28-AUG-79 Page 266
PCO Log Report
2) JRST PG.SU1 ;[1135] NO--NO SWEAT
2) MOVE T1,TAB.AB(R) ;[1135] YES--THEN MAKE SURE AT L
EAST 2 PAGES
2) SUB T1,TAB.LB(R) ;[1135] IN THE WINDOW
2) CAIGE T1,.IPS ;[1135] ..
2) JRST PG.SU2 ;[1135] ONLY 1 PAGE--MUST EXPAND
2) PG.SU1: CAMG P2,TAB.HB(R) ;[1135] THE HIGH ADDR ALREADY OU
T ON DISK?
2) JRST PG.SD ;[716] YES, DON'T BOTHER TO EXPA
ND
2) PG.SU2: PUSHJ P,FR.CNT## ;[1135] SEE HOW MUCH FREE SPACE
WE HAVE
2) ADD T1,UW.S0(R) ;IF WE GIVE IT ALL TO THIS AREA
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 267
PCO Log Report
*********************
*PCO #:10-LINK -257*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 31-JAN-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] I/O TO UNA /SAVE EDIT 1132
[Source Before Edit] %4A (001135)
[Source After Edit] %4A (001136)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26518
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 268
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an I/O to unassigned channel error while
writing an EXE file. This will happen if the last word of
either the low or high segment (counting the symbol table if
one is loaded) falls on the last word of a page, and if the
program being loaded is not so large that LINK needs to page
that segment to disk.
**********
[DIAGNOSIS]
When LINK finishes writing its current segment window
into the EXE file, it tests to see if it has just finished
with the segment, and if not, assumes that the segment is
paging and calls the paging routines to advance the window
to the next piece of the segment. Unfortunately, the check
to see if the segment is finished is off by one, so if the
segment ends on the last word of a page, LINK will
erroneously think that it has not yet finished with the
segment, and call the paging routines to advance the window.
If LINK is not paging, this will lead to an I/O to
unassigned channel error, since the overflow files have not
been opened.
**********
[CURE]
Correct the test for end of segment, as shown in the
attached FILCOM.
Note that this edit is an extract of part of edit 1132,
and has been made solely to prevent sites from having to
install all of edit 1132 just to fix this problem. This
edit will not appear in the next release of LINK, since edit
1132 will be present instead.
Digital Equipment Corporation 28-AUG-79 Page 269
PCO Log Report
Digital Equipment Corporation 28-AUG-79 Page 270
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507,4] created: 1904 01-Mar-1978
File 2) LINK:LNKHST.MAC[30,3737] created: 1633 31-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 27-FEB-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 31-Jan-7
9
2) ;COPYRIGHT (C) 1973, 1978 BY
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1136 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;1136 JNG 31-Jan-79 SPR 10-26518
2) ; Avoid IO to unassigned channel in LNKXIT while writing a
n EXE file
2) ; if segment ends on last word of a page and LINK is not p
aging to disk.
2) ; This edit is an extract of part of edit 1132.
2) ; Routine: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 271
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507,4] created: 1503 03-Mar-1978
File 2) LINK:LNKXIT.MAC[30,3737] created: 1528 31-Jan-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 31-Jan-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1136 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1136 Avoid IO to unassigned channel if segment ends on last w
ord of page.
2)5 SUBTTL ENTER HERE
**************
1)56 CAMLE P3,HC.S0(R) ;FINISHED?
1) JRST [PUSHJ P,XCMPRD ;NO, WRITE IT OUT
****
2)56 ;**;[1136] Change @ XCMPR4+5L JNG 31-Jan-79
2) ;**;[1136] This edit will not appear in the next release of LINK
.
2) ;**;[1136] It is just a small patch to avoid having to install e
dit 1132.
2) CAML P3,HC.S0(R) ;[1136] FINISHED?
2) JRST [PUSHJ P,XCMPRD ;NO, WRITE IT OUT
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 272
PCO Log Report
*********************
*PCO #:10-LINK -259*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 01-FEB-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] PSECTS LOST CODE BLOCK 24
[Source Before Edit] %4A (001136)
[Source After Edit] %4A (001137)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 273
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When loading a module containing mixed low segment and
PSECT code, LINK will lose any low segment code appearing in
the source file before the first PSECT code.
**********
[DIAGNOSIS]
A set of REL blocks (type 24) appear early in a PSECT
REL file to describe all of the PSECTs appearing in the
module. Unfortunately, one of the things LINK does when it
sees a REL block type 24 is perform a set default PSECT
action, as if it had seen a REL block type 22. If the first
code (REL block type 1) appearing in the REL file does not
load into a PSECT, and thus is not preceded by a set
default PSECT block, then LINK will end up loading it into
whatever PSECT was described by the last REL block type 24
seen. The loaded code will then be overwritten when the
code that really belongs in that PSECT is loaded.
**********
[CURE]
Change the processing of REL block type 24 to not
change LINK's default load PSECT (RC.CUR), as shown in the
attached FILCOM.
Digital Equipment Corporation 28-AUG-79 Page 274
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1627 31-Jan-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1803 01-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 31-Jan-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Feb-79
2)
**************
1)1 DECEVR==1136 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1137 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1137 JNG 1-Feb-79 SPR 20-12411
2) ; Don't change RC.CUR in T.24. Also set default PSECT nam
e to left-
2) ; justified .LOW. (not right-justified) if name not given
in block.
2) ; Routine: LNKOLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 275
PCO Log Report
[FILCOM]
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 30-Jan-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 1-Feb-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1137 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1137 Don't change RC.CUR in T.24.
2)5 COMMENT \
**************
1)101 IN ADDITION IT ESTABLISHES THE PSECT ORDERING FOR
1) THE POLISH FIXUPS TO FOLLOW
1) *
1) T.24: PUSHJ P,RB.2 ;PSECT NAME
1) JRST [MOVEI T1,24
1) JRST ILIERR]
1) MOVE W3,W1 ;ATTRIBUTE IN W3
1) HRRZM W1,RC.CUR ;GET PSECT INDEX(IT'S ONE LESS,
AOS LATER)
1) JUMPE W2,[MOVE W2,['.LOW.'] ;BLANK PSECT
1) SETZB W1,RC.CUR ;SHOULD BE AT SL
OT 1
1) JRST T.24A]
1) JUMPL W3,[ SETZ W1, ;JUMP IF RELOCATABLE PSE
CT AND
1) JRST T.24A] ;ZERO ORIGIN AND JUMP
1) PUSHJ P,RB.1 ;GET ORIGIN
1) JRST [MOVEI T1,24
1) JRST ILIERR] ;ERROR
1) T.24A: AOS RC.CUR ;GOES IN NEXT SLOT
1) MOVE R,RC.NO ;START AT BACK OF TABLE
1) MOVE T1,@RC.TB ;GET RC BLOCK
1) CAMN W2,RC.NM(T1) ;IS THIS THE ONE WE WANT?
1) JRST [TXZ W1,AT.RP ;FOUND IT, MUST HAVE ORI
G ALREADY
1) IORM W1,RC.AT(T1) ;UPDATE ATTRIBUTES
1) JRST T.24B] ;GO CHECK ORDERING
1) SOJG R,.-3 ;NO, TRY AGAIN
1) EXCH W1,W3 ;.SET0 WANTS ORIGIN IN W3
1) PUSHJ P,.SET0## ;GO CREATE A NEW RELOCATION COUN
TER
Digital Equipment Corporation 28-AUG-79 Page 276
PCO Log Report
1) MOVE R,RC.NO ;GET RELOCATION COUNTER NUMBER
1) T.24B: CAMN R,RC.CUR ;WHERE IT SHOULD BE?
1) JRST LOAD## ;YES
1) MOVE T1,@RC.TB ;NO, GET RC BLOCK
1) EXCH R,RC.CUR ;WHERE IT SHOULD BE
1) EXCH T1,@RC.TB ;PUT IT THERE
1) EXCH R,RC.CUR ;PUT RC.CUR BACK
1) MOVEM T1,@RC.TB ;AND OUT OF PLACE BLOCK
****
2)101 *
2) T.24: PUSHJ P,RB.2 ;PSECT NAME
2) ;**;[1137] Replace @ T.24+1L JNG 1-Feb-79
2) ;**;[1137] This edit replaces the T.24 portion of edit 1132 if i
nstalled.
2) JRST ILIERR ;[1137] BLOCK TOO SHORT
2) ;**;[1137] Install the next line ONLY if edit 1132 has been inst
alled.
2) TXO W1,AT.PS ;[1137] REMEMBER THIS PSECT SEEN
IN THIS MODULE
2) HLLZ W3,W1 ;[1137] SAVE ATTRIBUTES IN W3
2) MOVEI P1,1(W1) ;[1137] SAVE LINK'S PSECT INDEX
IN P1
2) SETZ W1, ;[1137] ASSUME PSECT ORIGIN IS Z
ERO
2) JUMPN W2,T.24A ;[1137] IF NAME SPECIFIED, GO CH
ECK ORIGIN
2) MOVEI P1,1 ;[1137] DEFAULT PSECT IS AT SLOT
1
2) MOVE W2,['.LOW. '] ;[1137] AND ITS NAME IS .LOW.
2) JRST T.24B ;[1137] GO SEE IF ITS ORIGIN IS
CORRECT
2) T.24A: JUMPL W3,T.24B ;[1137] IF NO ORIGIN GIVEN, DON'
T TRY TO GET IT
2) PUSHJ P,RB.1 ;[1137] GET ORIGIN FROM THE REL
FILE
2) JRST ILIERR ;[1137] NOT THERE?
2) T.24B: MOVE R,RC.NO ;[1137] LOOP OVER ALL RC BLOCKS
2) T.24C: MOVE T1,@RC.TB ;[1137] RC BLOCK WHERE THIS PSEC
T MIGHT BE
2) CAME W2,RC.NM(T1) ;[1137] IS IT HERE?
2) SOJG R,T.24C ;[1137] NO, LOOP OVER ALL PSECTS
2) JUMPE R,T.24D ;[1137] IF NOT FOUND, INSERT A N
EW RC BLOCK
2) TXZ W3,AT.RP ;[1137] WE FOUND IT, SO ALREADY
HAVE ORIGIN
2) ;***** SHOULD CHECK HERE FOR CONFLICTING PSECT PROPERTIES *****
2) IORM W3,RC.AT(T1) ;[1137] ACCUMULATE ATTRIBUTES
2) JRST T.24E ;[1137] MAKE SURE IT'S WHERE WE
EXPECT IT
Digital Equipment Corporation 28-AUG-79 Page 277
PCO Log Report
2)102 T.24D: EXCH W1,W3 ;[1137] SET ACS FOR .SET0
2) PUSHJ P,.SET0## ;[1137] SET UP A NEW RC BLOCK
2) MOVE R,RC.NO ;[1137] ITS INDEX IS THE LAST PS
ECT
2) T.24E: CAMN P1,R ;[1137] IS THE RC BLOCK IN THE R
IGHT PLACE?
2) JRST LOAD## ;[1137] YES, DONE
2) MOVE T1,@RC.TB ;[1137] RC BLOCK OF THIS PSECT
2) EXCH R,P1 ;[1137] POINT TO RC BLOCK IN THE
WAY
2) EXCH T1,@RC.TB ;[1137] PUT OUR RC BLOCK WHERE I
T BELONGS
2) EXCH R,P1 ;[1137] BACK TO WHERE OUR PSECT
USED TO BE
2) MOVEM T1,@RC.TB ;AND OUT OF PLACE BLOCK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 278
PCO Log Report
*********************
*PCO #:10-LINK -260*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 06-FEB-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] LSTSYM ILL MEM RE FORTRAN
[Source Before Edit] %4A (001137)
[Source After Edit] %4A (001140)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26410
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 279
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can get an illegal memory reference when loading a
FORTRAN program. This can happen if the FORTRAN program has
a data element in a COMMON block and an ENTRY of the same
name, and if the program is being loaded without local
symbols (default on TOPS-10).
**********
[DIAGNOSIS]
In this case, FORTRAN generates three adjacent RADIX-50
symbols in a REL block type two in the REL file: a global
definition for the ENTRY name, a local definition for the
COMMON data element name, and an external request that adds
the base of the COMMON block to the previous symbol, namely
the COMMON data element name. When LINK sees the external
request, it checks to see if the symbol it is trying to fix
up is the same as the last symbol loaded, and if so,
processes the fixup.
Unfortunately, when LINK is not loading locals, the
last symbol loaded when the external request is seen is the
global definition for the ENTRY name. Since this symbol has
the same name as the object symbol of the external request,
LINK thinks all is OK and adds the base of the COMMON block
to the value of the entry name. It then gets an illegal
memory reference when attempting to track down all
references to the symbol it just defined and fix them up.
**********
[CURE]
When not loading locals, clear the pointer to the last
symbol loaded every time a local is skipped, so any
following symbol fixups will be ignored.
Digital Equipment Corporation 28-AUG-79 Page 280
PCO Log Report
Digital Equipment Corporation 28-AUG-79 Page 281
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1803 01-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1520 06-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 1-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 6-Feb-79
2)
**************
1)1 DECEVR==1137 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1140 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1140 JNG 6-Feb-79 SPR 10-26410
2) ; Clear LSTSYM when a non-loaded local is encountered.
2) ; Routine: LNKOLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 282
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1827 01-Feb-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1523 06-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 1-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 6-Feb-79
2)
**************
1)1 DECEVR==1137 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1140 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1140 Clear LSTSYM if a non-loaded local is encountered.
2)
**************
1)25 TRNN FL,R.SYM ;IN LOCAL SYMBOL MODE
****
2)25 ;**;[1140] Change @ SY.LS+1L JNG 6-Feb-79
2) SETZM LSTSYM ;[1140] IN CASE WE DON'T LOAD TH
IS SYMBOL
2) TRNN FL,R.SYM ;IN LOCAL SYMBOL MODE
**************
1)25
1)26 SUBTTL BLOCK TYPE 2 - LOCAL BLOCK HEADER (FAIL)
****
2)26 SUBTTL BLOCK TYPE 2 - LOCAL BLOCK HEADER (FAIL)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 283
PCO Log Report
*********************
*PCO #:10-LINK -261*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 15-FEB-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BIG EXE LOWLOC EDIT 1132
[Source Before Edit] %4A (001140)
[Source After Edit] %4A (001141)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-26290
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 284
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 767 is installed, LINK can write EXE files
that contain extra pages after the end of the low segment.
This can only happen if the lowest location loaded is at
400000 or higher, e.g. if PSECTs are being used.
**********
[DIAGNOSIS]
The EXE file writer writes out the entire area
containing the low segment, on the assumption that the area
contains only enough room to hold the segment. If the
lowest location loaded is above 400000, however, the low
segment area can end up being larger than the minimum
necessary to hold the segment.
**********
[CURE]
Move the EXE file writer's check for end of segment to
before the check for end of segment area.
This edit is an extract of part of edit 1132, and has
been made only to keep users who wish to fix this particular
problem from having to install all of edit 1132. This edit
will not be present in any future release of LINK, since
edit 1132 will be present instead. Note also that this edit
supercedes edit 1136 (another extract of edit 1132), which
should be removed if it has been installed prior to
installing this edit.
Digital Equipment Corporation 28-AUG-79 Page 285
PCO Log Report
[FILCOM]
File 1) DSKC:LNKHST.MAC[30,4507] created: 1520 06-Feb-1979
File 2) DSKC:LNKHST.MAC[30,3737] created: 1709 15-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 6-Feb-79
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Feb-7
9
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1140 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1141 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1141 JNG 15-Feb-79 SPR 10-26290
2) ; Make the EXE file writer stop writing when it passes the
size
2) ; of the user program, instead of writing the entire LC ar
ea.
2) ; This edit supercedes edit 1136 and is an extract of edit
1132.
2) ; Routine: LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 286
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507,4] created: 1503 03-Mar-1978
File 2) DSKC:LNKXIT.MAC[30,3737] created: 1703 15-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 15-Feb-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1141 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1141 Don't make EXE file too big if LC area is larger than ne
cessary.
2)5 SUBTTL ENTER HERE
**************
1)56 MOVEI T3,1(T1) ;ADDRESS ONLY
1) CAMG T3,TAB.AB(R) ;NEXT PAGE IN CORE
1) JRST XCMPR1 ;YES
1) CAMLE P3,HC.S0(R) ;FINISHED?
1) JRST [PUSHJ P,XCMPRD ;NO, WRITE IT OUT
1) JRST XCMPRH] ;TRY HIGH SEG
1) MOVE T3,TAB.AB(R) ;
****
2)56 ;**;[1141] Move up from below @ XCMPR4+2L JNG 15-Feb-7
9
2) ;**;[1141] This edit will not appear in the next release of LINK
.
2) ;**;[1141] It is just an extract of part of edit 1132, to avoid
having
2) ;**;[1141] to install that entire edit. It also supercedes edit
1136,
2) ;**;[1141] (another extract of edit 1132), which should be remov
ed if installed.
2) CAML P3,HC.S0(R) ;[1141] FINISHED?
2) JRST [PUSHJ P,XCMPRD ;[1141] NO, WRITE IT OUT
2) JRST XCMPRH] ;[1141] TRY HIGH SEG
2) MOVEI T3,1(T1) ;ADDRESS ONLY
2) CAMG T3,TAB.AB(R) ;NEXT PAGE IN CORE
2) JRST XCMPR1 ;YES
2) MOVE T3,TAB.AB(R) ;
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 287
PCO Log Report
*********************
*PCO #:10-LINK -262*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) + EDIT 1132
[Date Entered] 16-FEB-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] /SET:.HIGH EDIT 1132
[Source Before Edit] %4A (001141)
[Source After Edit] %4A (001142)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 288
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Various, including looping, losing the runtime symbol
table, and writing a very large overflow file. This will
only happen if a /SET:.HIGH. switch is used after a high
segment already exists to change the current value of the
high segment relocation counter, and only if edit 1132 has
been installed.
**********
[DIAGNOSIS]
An error in edit 1132 caused the high segment
relocation counter to be pointed to the low segment if a
/SET switch is ever used to change its value. This confuses
the rest of LINK tremendously, leading to various errors.
**********
[CURE]
Never cause the high segment relocation counter to
point to the low segment.
Digital Equipment Corporation 28-AUG-79 Page 289
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1709 15-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1141 16-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Feb-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 16-Feb-7
9
2)
**************
1)1 DECEVR==1141 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1142 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1142 JNG 16-Feb-79
2) ; Fix problems with multiple /SET:.HIGH.s introduced by ed
it 1132.
2) ; Routine: LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 290
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 0834 30-Jan-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1136 16-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 30-Jan-7
9
1)
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 16-Feb-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1142 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1142 Fix problems with /SET introduced by edit 1132.
2)
**************
1)40 SET3: ADDI R,1 ;[1132] NOT THERE - INSERT IN NE
XT FREE SLOT
1) PUSHJ P,.SAVE4## ;[714] SAVE P1-P4
1) MOVX W1,PT.SGN!PT.SYM ;[714] SET FLAGS
****
2)40 ;**;[1142] Move label down @ SET3 JNG 16-Feb-79
2) ADDI R,1 ;[1142] NOT THERE - INSERT IN NE
XT FREE SLOT
2) SET3: PUSHJ P,.SAVE4## ;[1142] SAVE P1-P4
2) MOVX W1,PT.SGN!PT.SYM ;[714] SET FLAGS
**************
1)40 SET4: MOVEI T1,1 ;[1132] ALL PSECTS ARE IN THE LC
AREA
1) MOVEM T1,RC.SG(R) ;[1132] SEGMENT NUMBER
1) EXCH R,T1 ;SWAP, PUT SEG # IN R
****
2)40 ;**;[1142] Move label down @ SET4 JNG 16-Feb-79
2) MOVEI T1,1 ;[1142] ALL PSECTS ARE IN THE LC
AREA
2) MOVEM T1,RC.SG(R) ;[1132] SEGMENT NUMBER
2) SET4: MOVE T1,RC.SG(R) ;[1142] FETCH SEGMENT NUMBER
2) EXCH R,T1 ;SWAP, PUT SEG # IN R
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 291
PCO Log Report
*********************
*PCO #:10-LINK -263*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 16-FEB-79
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] BAD RST /NOINIT /SET
[Source Before Edit] %4A (001142)
[Source After Edit] %4A (001143)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 292
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The runtime symbol table can end with a symbol name
rather than a module name. This happens if the user types
/NOINITIAL and then some switch that defines a symbol (such
as /SET or /COMMON) before loading anything.
**********
[DIAGNOSIS]
In this case, the switch processing routines add the
symbols to the LS area before JOBDAT or any other module has
been loaded. When the LS area is scanned backwards to build
the runtime symbol table, the last thing seen is a symbol
rather than a module name.
**********
[CURE]
If LS.ADD is called to insert a symbol before any
module names have appeared, generate a fake module name
using the name of the symbol being inserted.
Digital Equipment Corporation 28-AUG-79 Page 293
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1141 16-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1507 16-Feb-1979
1)1 DECEVR==1142 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1143 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1143 JNG 16-Feb-79 QAR CKS
2) ; Make sure symbols never get into the LS area before a mo
dule name.
2) ; If they try (/NOINITIAL/SET), dummy up a module name fro
m the symbol.
2) ; Routine: LNKLOD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 294
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1336 31-Jan-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1457 16-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 31-Jan-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 16-Feb-7
9
2)
**************
1)1 DECEVR==1135 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1143 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1143 Fake a module name if LS.ADD called with a symbol before
a module seen.
2)
**************
1)24 LS.ADD::MOVE T1,LSYM ;GET SYMBOL TABLE POINTER
1) HRRM T1,LSTSYM ;STORE REL POINTER TO NEXT SYMBO
L
****
2)24 ;**;[1143] Insert @ LS.ADD JNG 16-Feb-79
2) LS.ADD::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
2) PUSHJ P,LS.CHK ;[1143] YES, SEE IF NEED A DUMMY
MODULE NAME
2) LSADD: MOVE T1,LSYM ;[1143] GET SYMBOL TABLE POINTER
2) HRRM T1,LSTSYM ;STORE REL POINTER TO NEXT SYMBO
L
**************
1)25 LS.ADE::MOVE T1,LSYM ;SYMBOL TABLE PTR.
1) HRRM T1,LSTSYM ;REL PTR. TO NEXT SYMBOL
****
2)25 ;**;[1143] Insert @ LS.ADE JNG 16-Feb-79
2) LS.ADE::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
2) PUSHJ P,LS.CHK ;[1143] YES, SEE IF NEED TO FAKE
A MODULE NAME
2) MOVE T1,LSYM ;SYMBOL TABLE PTR.
2) HRRM T1,LSTSYM ;REL PTR. TO NEXT SYMBOL
**************
1)26 SUBTTL GLOBAL SYMBOL STORE
****
2)25
2) ;HERE IF USER TYPED /NOINITIAL. IF USER TYPES /SET, /COMMON, ET
C. BEFORE
Digital Equipment Corporation 28-AUG-79 Page 295
PCO Log Report
2) ;LOADING ANYTHING, THEN WE NEED TO INSERT A MODULE NAME SO SYMBO
LS WILL
2) ;NOT OCCUR OUTSIDE OF A MODULE. USE THE SYMBOL NAME FOR THE MOD
ULE NAME.
2)
2) ;**;[1143] Insert @ LS.ADE+14L JNG 16-Feb-79
2) LS.CHK: MOVE T1,LSYM ;[1143] GET SIZE OF LS AREA SO F
AR
2) CAIN T1,1 ;[1143] EMPTY?
2) TXNN W1,PT.SYM ;[1143] YES, BUT IS THIS A SYMBO
L?
2) POPJ P, ;[1143] NO, NOT THE SPECIAL CASE
2) MOVEM T1,NAMPTR ;[1143] CREATING A NEW MODULE
2) AOS PRGNO ;[1143] REMEMBER ONE MORE
2) SPUSH <W1,W3,T2> ;[1143] SAVE CALLER'S ARGS
2) MOVX W1,PT.SGN!PT.TTL ;[1143] THIS IS A TITLE
2) SETZ W3, ;[1143] NO PREVIOUS PTR
2) PUSHJ P,LSADD ;[1143] INSERT IN LS AREA
2) SPOP <T2,W3,W1> ;[1143] RESTORE ACS
2) SETZM LSTSYM ;[1143] SINCE NOT REALLY A SYMBO
L
2) POPJ P, ;[1143] RETURN TO LS.ADD OR LS.A
DE
2)
2)26 SUBTTL GLOBAL SYMBOL STORE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 296
PCO Log Report
*********************
*PCO #:20-LINK -011*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 19-FEB-79
[Programmer] D. NEFF
[Routines] LNKERR LNKLOG LNKPAR LNKXIT
[Key Words] KIL PA1050
[Source Before Edit] %4A (001143)
[Source After Edit] %4A (001144)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:20-12473
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 297
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If LINK must run the loaded program from an .EXE file (either too
large or /SAVE/EXECUTE specified), PA1050 is left in memory even
though the loaded program does not use TOPS-10 UUOs.
**********
[DIAGNOSIS]
PA1050's simulation of the RUN UUO does not clear away PA1050
itself, under the assumption that pages 700 and up do not matter to
user programs.
**********
[CURE]
Rewrite LINK's run code to not use the RUN UUO, but to do the work
itself. Unmap all of memory unless /DEBUG:DDT is specified, in
which case do not unmap UDDT.
Note that since universal files are changed as a result of this
edit, all of the LINK sources must be recompiled following
installation of the edit.
Digital Equipment Corporation 28-AUG-79 Page 298
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1507 16-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2053 17-Feb-1979
1)1 DECEVR==1143 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1144 DZN 16-Feb-79 SPR 20-12473
2) ; Clean up code to run the .EXE file so that PA1050 is not
left in
2) ; memory on TOPS-20, and so that more of the final message
s use .ERR.
2) ; instead of OUTSTRs.
2) ; Routines: LNKERR, LNKLOG, LNKLOW, LNKPAR, LNKWLD, LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 299
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 0833 30-Jan-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 0052 17-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 30-Jan-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 16-Feb-7
9
2)
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1144 Juggle fields in .ERR. and .ETC. words to get more flags
, add .EN.
2)
**************
1)12
1)
1)13 ;FIXUP TYPES
****
2)13 ;FIXUP TYPES
**************
1)16
1)17 SUBTTL PROTOTYPE SCAN BLOCK
****
2)17 SUBTTL PROTOTYPE SCAN BLOCK
**************
1)17
1)18 SUBTTL PROTOTYPE DATA BLOCK
****
2)18 SUBTTL PROTOTYPE DATA BLOCK
**************
1)26
1)27 ;MACRO TO INITIALIZE REL FILE INPUT IN LNKNEW
****
2)27 ;MACRO TO INITIALIZE REL FILE INPUT IN LNKNEW
**************
1)28 ;.ERR. MACRO GENERATES USUAL CALLS TO ERROR/LOG MODULE
1) ;GENERAL FORM IS .ERR. (TYP,FLG,VER,LVL,SEV,CODE,TXT)
1) ;TYP IS OFFSET TO LOG/ERROR ENTRY
1) ;FLG IS SOME FLAGS FOR SPECIAL CASES, SUCH AS
1) ; .EP CODE IS POINTER TO ERROR WORD
1) ; .EC ERROR OUTPUT IS CONTINUED
Digital Equipment Corporation 28-AUG-79 Page 300
PCO Log Report
1) ; .EE ERROR MAY BE EDITED AND JOB CONTINUE
1) ; .EB PRINT BLANK LINE IN LOG AFTER THIS MESSA
GE
1)
1) ;VER IS VERBOSITY LEVEL (NOT USED YET)
1) ;LVL IS ASSIGNED TYPE-OUT LEVEL
1) ;SEV IS ASSIGNED SEVERITY LEVEL
1) ;CODE IS ASSIGNED MESSAGE NMEMONIC
1) ;TXT IS TEXT OF MESSAGE
1)
1) DEFINE .ERR. (TYP,FLG,VER,LVL,SEV,CODE,TXT)<
1) IFL L%MAX-LVL,<LVL=L%MAX>
1) %LVL==LVL-.LVL
1) IFGE %LVL,<
1) IFL V%MAX-VER,<VER=V%MAX>
1) IFL S%MAX-SEV,<SEV=S%MAX>
1) IFNB <TYP>,<
1) ERRUUO ER%'TYP
1) >
1) IFNB <CODE>,<
1) IFNB <TXT>,<
1) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<[.ER'COD
E::ASCIZ \CODE \
1)
ASCIZ \TXT\]>>
1) IFB <TXT>,<
1) IF2,<
1) IFNDEF .ER'CODE,<EXTERN .ER'CODE>
1) >
1) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<.ER'CODE
>>
1) >
1) IFB <CODE>,<
1) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<[ ASCIZ
\TXT\]>>
1) >
****
2)28 ;**;[1144] Replace .ERR. macro DZN 16-Feb-79
2) ;.ERR. MACRO GENERATES USUAL CALLS TO ERROR/LOG MODULE. GENERAL
FORM IS:
2) ;
2) ; .ERR. (TYP,FLG,VER,LVL,SEV,CODE,TXT)
2) ; .ETC. (TYP,FLG,,,,CODE,TXT)
2) ; ...
2) ;
2) ;TYP TYPE OF ERROR, USED AS DISPATCH, ONE OF:
2) ; MS PRINTS SELF-EXPLANATORY MESSAGE
2) ; LRE LOOKUP/RENAME/ENTER ERROR, I/O CHANNEL ON STACK,
PRINTS REASON
Digital Equipment Corporation 28-AUG-79 Page 301
PCO Log Report
2) ; AND FILE
2) ; I INIT/OPEN ERROR, I/O CHANNEL ON STACK, PRINTS DE
VICE
2) ; ST I/O ERROR, CHANNEL ON STACK, PRINTS STATUS AND F
ILE
2) ;FLG LOGICAL 'OR' OF SPECIAL CASE FLAGS, SUCH AS:
2) ; .EP CODE IS POINTER TO ERROR WORD
2) ; .EC ERROR OUTPUT IS CONTINUED (MORE .ETC.'S COMING)
2) ; .EE ERROR MAY BE EDITED AND JOB CONTINUED
2) ; .EB PRINT BLANK LINE IN LOG AFTER THIS MESSAGE
2) ; .EN .ERR. WITHOUT MESSAGE (JUST CODE)
2) ;VER VERBOSITY LEVEL, ONE OF:
2) ; V%S ONLY PREFIX AVAILABLE (LNKxxx)
2) ; V%M PREFIX AND FIRST LINE AVAILABLE
2) ; V%L PREFIX, FIRST LINE AND LONG EXPLANATION AVAILABL
E
2) ;LVL ASSIGNED TYPE-OUT LEVEL (WHETHER TO PRINT)
2) ;SEV ASSIGNED SEVERITY LEVEL (WHETHER [, % OR ?)
2) ;CODE MESSAGE NMEMONIC (THE xxx IN LNKxxx)
2) ;TXT TEXT OF MESSAGE
2)
2) DEFINE .ERR.(TYP,FLG,VER,LVL,SEV,CODE,TXT)<
2) IFL L%MAX-LVL,<LVL=L%MAX>
2) %LVL==LVL-.LVL
2) IFGE %LVL,<
2) IFL V%MAX-VER,<VER=V%MAX>
2) IFL S%MAX-SEV,<SEV=S%MAX>
2) IFNB <TYP>,<
2) ERRUUO ER%'TYP
2) >
2) IFNB <CODE>,<
2) ..PTR==1 ;;[1144] ASSUME POINTER TO MESSA
GE
2) IFNB <TXT>,<..PTR==0> ;;[1144] TEXT SPECIFIED--NO POIN
TER
2) IFN <<FLG>&.EN>,<..PTR==0>;;[1144] TEXT EXPLICTLY MISSING-
-NO POINTER
2) IFE ..PTR,< ;;[1144] GENERATE TEXT HERE
2) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<^_
2) [
2) .ER'CODE::ASCIZ \CODE \
2) IFE <<FLG>&.EN>,<ASCIZ \TXT\>
2) ]^_
2) >
2) >
2) IFN ..PTR,< ;;[1144] GENERATE POINTER TO MES
SAGE
2) IF2,<
2) IFNDEF .ER'CODE,<EXTERN .ER'CODE>
Digital Equipment Corporation 28-AUG-79 Page 302
PCO Log Report
2) >
2) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<.ER
'CODE>
2) >
2) PURGE ..PTR ;;[1144]
2) >
2) IFB <CODE>,<
2) EXP <FLG>+<VER>B<B%VER>+<SEV>B<B%SEV>+<LVL>B<B%LVL>+<[ ASC
IZ \TXT\]>
2) >
2) >
**************
1)28
1)29 ;CONTINUED ERROR WORDS HAVE SIMILAR FORM
1) ;DIFFERENCES ARE
1) ;TYP IS STORED IN LVL FIELD
1) ;VER IS USUALLY BLANK
1) ;LVL IS USUALLY BLANK
1) ;SEV IS USUALLY BLANK
1) ;CODE IS LOCATION OF ERROR POINTER
1) ;
1)
****
2)29 ;CONTINUED ERROR WORDS HAVE SIMILAR FORM. DIFFERENCES ARE:
2) ;TYP INTERNALLY STORED IN LVL FIELD, ONE OF:
2) ; STR ASCII STRING, TXT IS MESSAGE, OR CODE IS ADDRESS
OF IT
2) ; SBX CODE IS ADDRESS OF SIXBIT WORD
2) ; OCT CODE IS ADDRESS OF OCTAL WORD
2) ; DEC CODE IS ADDRESS OF DECIMAL WORD
2) ; FSP CODE IS I/O CHANNEL, PRINT THE FILE SPEC
2) ; ASC CODE IS ADDRESS OF ASCII CHARACTER
2) ; COR CODE IS ADDRESS OF CORE SIZE, PRINT nK OR nP
2) ; JMP CODE IS ADDRESS OF NEW LIST OF .ETC.'S
2) ;VER BLANK
2) ;LVL BLANK
2) ;SEV BLANK
2) ;CODE SET UP ACCORDING TO TYPE ABOVE
2) ;TXT BLANK, OR ASCII TEXT IF .EP NOT SPECIFIED AND TYP = STR
2)
**************
1)29
1)
1)
1)30 ;DEFINE ALL MAIN ERROR TYPES
****
2)30 ;DEFINE ALL MAIN ERROR TYPES
**************
1)31 ;BIT POSITIONS
Digital Equipment Corporation 28-AUG-79 Page 303
PCO Log Report
1) B%VER==:^D5 ;VERBOSITY FIELD
1) B%SEV==:^D11 ;SEVERITY FIELD
1) B%LVL==:^D17 ;LEVEL FIELD
1)
****
2)31 ;**;[1144] Replace @B%VER-1L DZN 16-Feb-79
2) ; 0 5 67 8 12 13 17 18 35
2) ; !-------------------------------------------------------
!
2) ; ! Flags !VB!SEVERE!LOG LVL ! ADDRESS OF ARGUMENT
!
2) ; !-------------------------------------------------------
!
2)
2) ;FLAGS
2) .EP==1B0 ;[1144] WORD IS A POINTER, **MUST** BE S
IGN BIT
2) .EC==1B1 ;[1144] WORD IS CONTINUED
2) .EE==1B2 ;[1144] ERROR CAN BE EDITED
2) .EB==1B3 ;[1144] PRINT BLANK LINE IN LOG AFTER TH
IS MESSAGE
2) .EN==1B4 ;[1144] .ERR. WITHOUT MESSAGE (JUST CODE
)
2)
2) ;BIT POSITIONS
2) B%VER==:^D7 ;[1144] VERBOSITY FIELD
2) B%SEV==:^D12 ;[1144] SEVERITY FIELD
2) B%LVL==:^D17 ;LEVEL FIELD
2)
2) ;MAXIMUM VALUES
2) V%MAX==:3 ;[1144] VERBOSITY FIELD
2) S%MAX==:37 ;[1144] SEVERITY FIELD
2) L%MAX==:37 ;[1144] LEVEL FIELD
2)
2) ;FIELD POSITIONS
2) F%VER==:<V%MAX>B<B%VER> ;[1144] VERBOSITY FIELD
2) F%SEV==:<S%MAX>B<B%SEV> ;[1144] SEVERITY FIELD
2) F%LVL==:<L%MAX>B<B%LVL> ;[1144] LEVEL FIELD
2)
**************
1)31
1) ;SEVERITY
****
2)31 ;SEVERITY
**************
1)31 ;MAXIMUM VALUES
1) V%MAX==:3
1) L%MAX==:37
1) S%MAX==:37
1)
1) DEFINE LEVELS (ITEM,LEVEL)<
Digital Equipment Corporation 28-AUG-79 Page 304
PCO Log Report
****
2)31 ;**;[1144] Delete @L%F+2L DZN 16-Feb-79
2) DEFINE LEVELS (ITEM,LEVEL)<
**************
1)31 ;FLAGS
1) .EP==1B0 ;WORD IS A POINTER
1) .EC==1B1 ;WORD IS CONTINUED
1) .EE==1B2 ;ERROR CAN BE EDITED
1) .EB==1B3 ;PRINT BLANK LINE IN LOG AFTER THIS MESS
AGE
1)
1) %ENT==1B0 ;ENTER ERROR
****
2)31 ;**;[1144] Delete @.EP-1L DZN 16-Feb-79
2) %ENT==1B0 ;ENTER ERROR
**************
1)32
1)33 DEFINE SWTCHS<
****
2)33 DEFINE SWTCHS<
**************
1)34
1)
1)
1)35 SUBTTL DEFAULT VALUES
****
2)35 SUBTTL DEFAULT VALUES
**************
1)36 \
1)
1)
1)37 SUBTTL PRE-DEFINED KEYWORDS
****
2)37 SUBTTL PRE-DEFINED KEYWORDS
**************
1)39
1)40 SUBTTL OVERLAY TYPE KEY WORDS
****
2)40 SUBTTL OVERLAY TYPE KEY WORDS
**************
1)41
1)41
Digital Equipment Corporation 28-AUG-79 Page 305
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 1625 22-Sep-1978
File 2) LINK:LNKLOW.MAC[10,645063] created: 0049 17-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC 22-Sep-78-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 16-Feb-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2)
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)1
1) SALL
****
2)1 SALL
**************
1)2
****
2)2 ;1144 Add DDTMAP to flag that DDT has been mapped in.
2)
**************
1)4
1)
1)5 SUBTTL PAGING DATA
****
2)5 SUBTTL PAGING DATA
**************
1)5
1)6 SUBTTL SYMBOL TABLE DATA
****
2)6 SUBTTL SYMBOL TABLE DATA
**************
1)9
1)10 ;I/O BUFFER HEADERS
****
2)10 ;I/O BUFFER HEADERS
**************
1)11
Digital Equipment Corporation 28-AUG-79 Page 306
PCO Log Report
1)
1)12 ;FULL WORD SWITCHES
****
2)12 ;FULL WORD SWITCHES
**************
1)12 EXECSW::BLOCK 1 ;EXECUTION SWITCH
1) DEBUGSW::BLOCK 1 ;-1 IF START AT .JBDDT
1) DDEBUG::BLOCK 1 ;DEFAULT DEBUGGING AID
1) FORLIB::BLOCK 1 ;EITHER FORSE OR FOROTS
****
2)12 ;**;[1144] Replace @EXECSW DZN 16-Feb-79
2) EXECSW::BLOCK 1 ;[1144] -1,,x IF /EXECUTE, x = A
DDR TO START
2) DEBUGSW::BLOCK 1 ;[1144] -1,,INDEX IF /DEBUG, 0,,
INDEX IF /TEST
2) DDEBUG::BLOCK 1 ;DEFAULT DEBUGGING AID
2) DDTMAP::BLOCK 1 ;[1144] -1 IF DDT HAS BEEN MAPPE
D IN
2) FORLIB::BLOCK 1 ;EITHER FORSE OR FOROTS
**************
1)12
1)
1)13 NEGOFF==:400
****
2)13 NEGOFF==:400
**************
1)13
1)14 SUBTTL PLOT DATA STORAGE
****
2)14 SUBTTL PLOT DATA STORAGE
**************
1)15
1)
1)16 ;DATA REQUIRED FOR OVERLAYS
****
2)16 ;DATA REQUIRED FOR OVERLAYS
**************
Digital Equipment Corporation 28-AUG-79 Page 307
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1309 30-Jan-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 0039 17-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 30-Jan-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 16-Feb-79
2)
**************
1)1 DECEVR==1133 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)1
1)
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)2
****
2)2 ;1144 Add long messages for LNKNSA, LNKDLT, LNKXCT, LNKDEB and
LNKGFE.
2)
**************
1)4
1)
1)
1)5 SUBTTL HASH MACROS
****
2)5 SUBTTL HASH MACROS
**************
1)6
1)7 SUBTTL HASH TABLE
****
2)7 SUBTTL HASH TABLE
**************
1)9 DEB * 1 [name] execution
1) DLT * 1 Execution deleted
****
2)9 DEB * 1 [Debugger] execution
2) DLT * 1 Execution deleted
**************
1)9 GSE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
rror)
****
2)9 GFE 31 31 GTJFN% JSYS failed for [file]
2) GSE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
Digital Equipment Corporation 28-AUG-79 Page 308
PCO Log Report
rror)
**************
1)9 XCT * 1 [name] Execution
1) ZSV 8 8 Zero switch value illegal
****
2)9 XCT * 1 [Name] execution
2) ZSV 8 8 Zero switch value illegal
**************
1)10 ;(There is no long text for the DEB message.)
1)
1) ;(There is no long text for the DLT message.)
1)
****
2)10 ;**;[1144] Replace before DNA long message DZN 16-Feb-7
9
2) HASH DEB,0,<^_
2) LINK is beginning program execution at the named debugg
er
2) which you have specified.>
2)
2) HASH DLT,0,<^_
2) Though you have asked for program execution, LINK cann
ot
2) proceed due to earlier fatal compiler or LINK errors.>
2)
**************
1)10 HASH GSE,@
****
2)10 ;**;[1144] Insert before LNKGST long message DZN 16-Feb-7
8
2) HASH GFE,0,<^_
2) While attempting to run your program from the named fil
e,
2) LINK received an error from the monitor. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2)
2) HASH GSE,@
**************
1)10 ;(There is no long text for the NSA message.)
1)
****
2)10 ;**;[1144] Replace before LNKOAS long message DZN 16-Feb-7
9
2) HASH NSA,0,<^_
Digital Equipment Corporation 28-AUG-79 Page 309
PCO Log Report
2) Your program does not have a starting address. This c
an
2) happen if you neglect to load a main program. Progr
am
2) execution, if requested, will be suppressed unless y
ou
2) specified debugger execution.>
2)
**************
1)10 ;(There is no long text for the XCT message.)
1)
****
2)10 ;**;[1144] Replace before LNKZSV long message DZN 16-Feb-7
9
2) HASH XCT,0,<^_
2) LINK is beginning execution of your program.>
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 310
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOG.MAC[30,4507] created: 1431 01-Mar-1978
File 2) LINK:LNKLOG.MAC[10,645063] created: 0045 17-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG 27-Feb-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 16-Feb-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2)
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1)
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)1
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL ENTER HERE FROM LINK-10
1) ;UUO TYPE IS IN AC T1
****
2)2 ;START OF VERSION 4A.
2) ;1144 Support .EN (no message specified with .ETC.).
2)
2)3 SUBTTL ENTER HERE FROM LINK
2) ;UUO TYPE IS IN AC T1
**************
1)4 HRRZ T1,P1 ;ADDRESS OF MESSAGE STRING
****
2)4 ;**;[1144] Insert before ER.MS+4L DZN 16-Feb-79
2) TXNE P1,.EN ;[1144] SEE IF THERE'S A MESSAGE
TO PRINT
2) JRST ERRNXT ;[1144] NO--DON'T PRINT ANYTHING
2) HRRZ T1,P1 ;ADDRESS OF MESSAGE STRING
**************
1)4 LDB T1,BTHPTR ;GET SEVERITY AND VERBOSITY
1) AOS UUOTRAP ;ADVANCE RETURN POINTER
1) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
Digital Equipment Corporation 28-AUG-79 Page 311
PCO Log Report
1) DPB T1,BTHPTR ;STORE SEVERITY AGAIN
1) TRNN P1,-1 ;IF ZERO , ITS ON THE STACK
****
2)4 ;**;[1144] Replace @ERRNXT+2L DZN 16-Feb-79
2) LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERI
TY
2) AOS UUOTRAP ;ADVANCE RETURN POINTER
2) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
2) DPB T1,VSPTR ;[1144] STORE VERBOSITY AND SEVE
RITY AGAIN
2) TRNN P1,-1 ;IF ZERO , ITS ON THE STACK
**************
1)5
1)6 ;HERE WHEN LOG FILE GETS ERROR
****
2)6 ;HERE WHEN LOG FILE GETS ERROR
**************
1)7
1)8 ERXIT: MOVEI T1,FINMES ;TELL USER WE CLOSED FILE
****
2)8 ERXIT: MOVEI T1,FINMES ;TELL USER WE CLOSED FILE
**************
1)8
1)9 NOERR: TXNN P1,.EC ;MORE TO DO?
****
2)9 NOERR: TXNN P1,.EC ;MORE TO DO?
**************
1)10 TLNE P1,(77B<B%SEV>) ;DO WE HAVE SEVERITY?
1) JRST ERLRE2 ;YES
****
2)10 ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
2) TXNE P1,F%SEV ;[1144] DO WE HAVE SEVERITY?
2) JRST ERLRE2 ;YES
**************
1)10 DPB T3,[POINT 12,P1,B%LVL] ;STORE SEV AND LEVEL
1) LDB T3,SEVPTR ;GET SEVERITY
****
2)10 ;**;[1144] Replace @ER.LRE+12L DZN 16-Feb-79
2) DPB T3,SLPTR ;[1144] STORE SEVERITY AND LEVEL
2) LDB T3,SEVPTR ;GET SEVERITY
**************
1)10 TLO P1,(<S%F>B<B%SEV>) ;MARK AS FATAL
1) ERLRE2: PUSHJ P,CHKCHN ;IF EDITABLE, SEE IF FATAL
****
2)10 ;**;[1144] Replace @ER.LRE+17L DZN 16-Feb-79
2) TXO P1,F%SEV ;[1144] MARK AS FATAL
2) ERLRE2: PUSHJ P,CHKCHN ;IF EDITABLE, SEE IF FATAL
**************
1)10 HRRZ T1,P1 ;ADDRESS OF MESSAGE
Digital Equipment Corporation 28-AUG-79 Page 312
PCO Log Report
1) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
1) POP P,T4 ;RESTORE CHAN PLUS FLAGS
1) IFE FTSINGLE,<
****
2)10 ;**;[1144] Insert before ERLRE2+3L DZN 16-Feb-79
2) TXNE P1,.EN ;[1144] SEE IF THERE'S TEXT TO P
RING
2) JRST ERLRE3 ;[1144] NO--DON'T PRINT ANYTHING
2) HRRZ T1,P1 ;ADDRESS OF MESSAGE
2) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
2) ERLRE3: POP P,T4 ;[1144] RESTORE CHAN PLUS FLAGS
2) IFE FTSINGLE,<
**************
1)11 ERLRE3: HRRZ T1,P1 ;POINT TO SCAN BLOCK
1) ERFSPC: OUTVIA .TEBLK ;OUTPUT LOOKUP BLOCK
****
2)11 ;**;[1144] Replace @ERLRE3 DZN 16-Feb-79
2) HRRZ T1,P1 ;[1144] POINT TO SCAN BLOCK
2) ERFSPC: OUTVIA .TEBLK ;OUTPUT LOOKUP BLOCK
**************
1)11
1)
1)12 IFE FTSINGLE,<
****
2)12 IFE FTSINGLE,<
**************
1)13 HRRZ T1,P1 ;GET MESSAGE
1) OUTVIA .TSTRG##
1) POP P,T4 ;GET CHAN#
1) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
****
2)13 ;**;[1144] Insert before ER.I+2L DZN 16-Feb-79
2) TXNE P1,.EN ;[1144] ANY MESSAGE TO PRINT?
2) JRST ERI1 ;[1144] NO--DON'T PRINT ANYTHING
2) HRRZ T1,P1 ;GET MESSAGE
2) OUTVIA .TSTRG##
2) ERI1: POP P,T4 ;[1144] GET CHAN#
2) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
**************
1)13
1)
1)14 ;STATUS CHECK ERRORS
****
2)14 ;STATUS CHECK ERRORS
**************
1)14 HRRZ T1,P1 ;GET MESSAGE
1) OUTVIA .TSTRG##
1) MOVEI T1,[ASCIZ \ STATUS \]
1) OUTVIA .TSTRG##
Digital Equipment Corporation 28-AUG-79 Page 313
PCO Log Report
****
2)14 ;**;[1144] Replace @ER.ST+2L DZN 16-Feb-79
2) TXNE P1,.EN ;[1144] ANY MESSAGE TO TYPE?
2) JRST ERST1 ;[1144] NO--DON'T PRINT ANYTHING
2) HRRZ T1,P1 ;GET MESSAGE
2) OUTVIA .TSTRG##
2) MOVX T1," " ;[1144] SEPARATE MESSAGE FROM RE
ST
2) OUTVIA .TCHAR## ;[1144] ..
2) ERST1: MOVEI T1,[ASCIZ \Status \] ;[1144]
2) OUTVIA .TSTRG##
**************
1)14 MOVEI T1,[ASCIZ \ FOR \]
1) OUTVIA .TSTRG##
****
2)14 ;**;[1144] Replace @ER.ST+12L DZN 16-Feb-79
2) MOVEI T1,[ASCIZ \for \] ;[1144]
2) OUTVIA .TSTRG##
**************
1)14
1)
1)15 ;INPUT CHAN CHECK
****
2)15 ;INPUT CHAN CHECK
**************
1)16
1)
1)17 ;CORE ARG EITHER K OR P (DECIMAL)
****
2)17 ;CORE ARG EITHER K OR P (DECIMAL)
**************
1)17
1)18 ;RELATIVE POINTER TO TRIPLET(S) IN LS AREA
****
2)18 ;RELATIVE POINTER TO TRIPLET(S) IN LS AREA
**************
1)18
1)19 SUBTTL USEFUL SUBROUTINES
****
2)19 SUBTTL USEFUL SUBROUTINES
**************
1)22
1)
1)23 ;UNSTCK REMOVES TOP DATA ITEM FROM STACK
****
2)23 ;UNSTCK REMOVES TOP DATA ITEM FROM STACK
**************
1)23 VERPTR: POINT 3,P1,B%VER ;VERBOSITY LEVEL
1) SEVPTR: POINT 6,P1,B%SEV ;SEVERITY LEVEL
Digital Equipment Corporation 28-AUG-79 Page 314
PCO Log Report
1) BTHPTR: POINT 9,P1,B%SEV ;SEVERITY AND VERBOSITY
1) LVLPTR: POINT 6,P1,B%LVL ;OUTPUT MESSAGE LEVEL
1)
1)
****
2)23 ;**;[1144] Replace @VERPTR DZN 16-Feb-79
2) VERPTR: POINTR P1,F%VER ;[1144] VERBOSITY LEVEL
2) SEVPTR: POINTR P1,F%SEV ;[1144] SEVERITY LEVEL
2) LVLPTR: POINTR P1,F%LVL ;[1144] OUTPUT MESSAGE LEVEL
2)
2) VSPTR: POINTR P1,<F%VER!F%SEV>;[1144] VERBOSITY AND SEVERITY
2) SLPTR: POINTR P1,<F%SEV!F%LVL>;[1144] SEVERITY AND MESSAGE LEV
EL
2)
**************
1)24
1)25 ;.TSBLK --TYPE GETSEG BLOCK (NOT SAME AS .TFBLK##)
****
2)25 ;.TSBLK --TYPE GETSEG BLOCK (NOT SAME AS .TFBLK##)
**************
1)25
1)26 ;STANDARD ERROR MESSAGES - USED EVERYWHERE
****
2)26 ;STANDARD ERROR MESSAGES - USED EVERYWHERE
**************
1)27
1)27
Digital Equipment Corporation 28-AUG-79 Page 315
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1136 16-Feb-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 2047 17-Feb-1979
1)1 EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP
****
2)1 IFN TOPS20,<SEARCH MACSYM,MONSYM>
2) EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP
**************
1)1 DECEVR==1142 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)1
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)3
****
2)3 ;1144 Remember if we mapped in DDT as a result of /DEBUG:DDT o
n TOPS-20.
2)
**************
1)4
1)5 ;HERE TO FILL IN DEFAULTS FOR INPUT DEVICE
****
2)5 ;HERE TO FILL IN DEFAULTS FOR INPUT DEVICE
**************
1)12
1)13 ;HERE TO HANDLE SWITCHES
****
2)13 ;HERE TO HANDLE SWITCHES
**************
1)13
1)
1)
1)
1)14 ;HERE TO STORE SWITCHES THAT CAN NOT BE EXECUTED UNTIL FILE IS O
PENED
****
2)14 ;HERE TO STORE SWITCHES THAT CAN NOT BE EXECUTED UNTIL FILE IS O
PENED
**************
1)14
1)
1)15 SUBTTL DISPATCH TABLE FOR SWITCHES
****
2)15 SUBTTL DISPATCH TABLE FOR SWITCHES
Digital Equipment Corporation 28-AUG-79 Page 316
PCO Log Report
**************
1)15
1)16 SUBTTL SWITCH ACTION
****
2)16 SUBTTL SWITCH ACTION
**************
1)16
1)17 IFE TOPS20,<
****
2)17 IFE TOPS20,<
**************
1)17
1)
1)18 %COUNTER:
****
2)18 %COUNTER:
**************
1)19 JRST DDT10X ;SPECIAL FOR TENEX DDT
1) >
****
2)19 ;**;[1144] Replace @DEBUG1+34L DZN 16-Feb-79
2) JRST MAPDDT ;[1144] MAP IN UDDT RIGHT NOW
2) >
**************
1)19
1)20 SPCDDT: SKIPN MNTYPE ;HAVE WE LOADED A MAIN PROGRAM Y
ET?
****
2)20 SPCDDT: SKIPN MNTYPE ;HAVE WE LOADED A MAIN PROGRAM Y
ET?
**************
1)21 ;HERE FOR TENEX DDT
1) IFN TOPS20,<
1) DDT10X: MOVSI T1,100001 ;
1) HRROI T2,[ASCIZ /SYS:UDDT.EXE/]
1) GTJFN
1) JRST TXDDTR ;FAILED
1) PUSH P,T1 ;DDT JFN
1) MOVEI T1,400000 ;LINK-10 EV
1) GEVEC
1) POP P,T1
1) PUSH P,T2
1) HRLI T1,400000 ;THIS FORK
1) GET
1) MOVEI T1,400000
1) GEVEC ;DDT'S EV
1) MOVE T3,LC.LB ;OFFSET
1) MOVEM T2,.JBDDT(T3)
1) POP P,T2
Digital Equipment Corporation 28-AUG-79 Page 317
PCO Log Report
1) SEVEC ;RESTORE LINK-10'S EVEC
1) TRO FL,L.SYM ;SHOULD BE ON BY DEFAULT
1) SETOM NULSPC
1) SETZM F.NAME(P1)
1) JRST LNKWLD ;FORGET DDT REQUEST AND GET NEXT
FILE
****
2)21 ;**;[1144] Revamp @DDT10X DZN 16-Feb-79
2) ;HERE FOR /DEBUG:DDT ON TOPS-20. SINCE THERE IS NO .REL FILE FOR
DDT ON TOPS-20,
2) ;WE MUST MERGE UDDT.EXE RIGHT INTO THE CORE IMAGE. IN THE EVENT
THAT THE PROGRAM
2) ;LOADS INTO MEMORY, SIMPLY MAP DDT INTO LINK'S ADDRESS SPACE NOW
AND IT WILL BE
2) ;PROPERLY PLACED WHEN LOADING IS COMPLETED. IF LINK MUST (OR IS
REQUESTED TO)
2) ;WRITE AN .EXE FILE, UDDT WILL NOT BE THERE, BUT AN EXEC DDT COM
MAND WILL THEN
2) ;MERGE IN DDT. IF DDT IS ALREADY MAPPED IN, LEAVE IT ALONE. THIS
HAPPENS IF LINK
2) ;IS BEING DEBUGGED.
2)
2) IFN TOPS20,<
2) MAPDDT: MOVX T1,<.FHSLF,,770>;[1144] SEE IF PAGE 770 EXISTS
2) RPACS ;[1144] ..
2) TXNN T2,PA%EX ;[1144] ..
2) JRST MAPDD1 ;[1144] NO--CAN'T BE ANY DDT THE
RE
2) MOVE T1,770000 ;[1144] SEE IF IT'S DDT THAT'S T
HERE
2) CAMN T1,[JRST 770002];[1144] CROCK, BUT THIS IS WHAT
EXEC DOES
2) JRST MAPDD2 ;[1144] IT'S DDT--DON'T DESTROY
IT
2) MAPDD1: MOVX T1,GJ%OLD!GJ%SHT;[1144] NO DDT THERE--LOAD IT
2) HRROI T2,[ASCIZ /SYS:UDDT.EXE/]
2) GTJFN ;[1144] FIND UDDT
2) ERJMP TXDDTR ;[1144] FAILED
2) PUSH P,T1 ;[1144] SAVE JFN FOR UDDT
2) MOVX T1,.FHSLF ;[1144] SAVE LINK'S CURRENT ENTR
Y VECTOR
2) GEVEC ;[1144] ..
2) POP P,T1 ;[1144] GET BACK JFN FOR UDDT
2) PUSH P,T2 ;[1144] REMEMBER LINK'S ENTRY VE
CTOR
2) HRLI T1,.FHSLF ;[1144] NOW BRING IN UDDT WHICH
2) GET ;[1144] DESTROYS LINK'S ENTRY
VECTOR
2) MOVX T1,.FHSLF ;[1144] SO RESTORE LINK'S ENTRY
Digital Equipment Corporation 28-AUG-79 Page 318
PCO Log Report
VECTOR
2) POP P,T2 ;[1144] ..
2) SEVEC ;[1144] ..
2) MAPDD2: SETOM NULSPC ;[1144] REMEMBER TO THROW AWAY T
HIS SPEC
2) SETZM F.NAME(P1) ;[1144] ..
2) SETOM DDTMAP ;[1144] REMEMBER THAT WE'VE MAPP
ED DDT
2) JRST LNKWLD ;FORGET DDT REQUEST AND GET NEXT
FILE
**************
1)21
1)22 ;TABLE OF NAMES OF DEBUGGING AIDS
****
2)22 ;TABLE OF NAMES OF DEBUGGING AIDS
**************
1)25
1)26 ;INCLUDE/EXCLUDE SWITCHES
****
2)26 ;INCLUDE/EXCLUDE SWITCHES
**************
1)34
1)35 .LOCALS:
****
2)35 .LOCALS:
**************
1)38
1)39 %SET:
****
2)39 %SET:
**************
1)39
1)40 ;**;[1132] Change @ SET2 JNG 30-Jan-79
****
2)40 ;**;[1132] Change @ SET2 JNG 30-Jan-79
**************
1)40
1)41 %SEVERITY:
****
2)41 %SEVERITY:
**************
1)41
1)42 %SYMSEG: PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOA
DED
****
2)42 %SYMSEG: PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOA
DED
**************
1)43
Digital Equipment Corporation 28-AUG-79 Page 319
PCO Log Report
1)44 %SYSLIBRARY:
****
2)44 %SYSLIBRARY:
**************
1)44
1)45 %USERLIBRARY:
****
2)45 %USERLIBRARY:
**************
1)47
1)48 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
****
2)48 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
**************
1)50
1)51 %XPN:
****
2)51 %XPN:
**************
1)51
1)52 %LOG:
****
2)52 %LOG:
**************
1)54
1)55 .SKIP:
****
2)55 .SKIP:
**************
1)55
1)56 .MTAPE:
****
2)56 .MTAPE:
**************
1)56
1)57 %ZERO:
****
2)57 %ZERO:
**************
1)57
1)58 CHKLSW: MOVE T3,IO.CHN ;GET CHAN
****
2)58 CHKLSW: MOVE T3,IO.CHN ;GET CHAN
**************
1)64
1)65 ;ERROR MESSAGES
****
2)65 ;ERROR MESSAGES
**************
Digital Equipment Corporation 28-AUG-79 Page 320
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1219 30-Jan-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 2146 17-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 30-Jan-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 16-Feb-79
2)
**************
1)1 EXTERN LNKCOR,LNKLOG,LNKFIO
****
2)1 IFN TOPS20,<SEARCH MACSYM, MONSYM>
2) EXTERN LNKCOR,LNKLOG,LNKFIO
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1144 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1144 Zap PA1050 but not DDT on /EXECUTE, /DEBUG when running
from .EXE file.
2)
**************
1)8
1)9 ;HERE TO READ IN FIRST 10 WORDS OF HIGH SEGMENT
****
2)9 ;HERE TO READ IN FIRST 10 WORDS OF HIGH SEGMENT
**************
1)11
1)12 UDFGB0: TXNE W1,S.LST ;IS THIS THE LAST BLOCK
****
2)12 UDFGB0: TXNE W1,S.LST ;IS THIS THE LAST BLOCK
**************
1)19
1)20 IFN FTOVERLAY,<
****
2)20 IFN FTOVERLAY,<
**************
1)24
1)
1)
1)25 ;HERE TO READ MORE SYMBOLS IF THEY ARE ON DSK
****
2)25 ;HERE TO READ MORE SYMBOLS IF THEY ARE ON DSK
**************
1)29
1)30 ;HERE WHEN WE HAVE TO OUTPUT CORE
Digital Equipment Corporation 28-AUG-79 Page 321
PCO Log Report
****
2)30 ;HERE WHEN WE HAVE TO OUTPUT CORE
**************
1)31
1)
1)32 ;HERE IF TOP OF SYMBOL TABLE IS ALREADY IN CORE
****
2)32 ;HERE IF TOP OF SYMBOL TABLE IS ALREADY IN CORE
**************
1)34
1)35 SYDONE: SKIPE PAG.S1 ;PAGING LOW SEG?
****
2)35 SYDONE: SKIPE PAG.S1 ;PAGING LOW SEG?
**************
1)35
1)36 SUBTTL ROUTINES FOR SYMBOLS
****
2)36 SUBTTL ROUTINES FOR SYMBOLS
**************
1)47 ;NOW SETUP STARTING ADDRESS FOR
EXECUTION
1) SETZ T1, ;INITIALLY ZERO
1) SKIPE EXECSW ;GO INTO EXECUTION?
1) MOVE T1,STADDR ;YES, ASSUME .JBSA
1) SKIPGE DEBUGSW ;UNLESS DEBUG
1) MOVE T1,.JBDDT(P1) ;INWHICH CASE ASSUME DDT SETUP
1) HRRM T1,EXECSW ;IN ANY CASE STORE BACK IN EXECS
W
****
2)47 ;**;[1144] Replace @JOBST0+3L DZN 16-Feb-79
2)
2) ; ..
2)
2)48 ; ..
2)
2) ;COMPUTE ADDRESS AT WHICH TO START PROGRAM. IF A DEBUGGER IS LOA
DED, THIS IS NOT
2) ;NECESSARILY THE MAIN PROGRAM'S START ADDRESS, BUT DEPENDS ON TH
E DEBUGGER.
2)
2) SETZ T1, ;[1144] ASSUME WE DON'T START PR
OGRAM
2) SKIPE EXECSW ;GO INTO EXECUTION?
2) MOVE T1,STADDR ;YES, ASSUME .JBSA
2) HRRZ T2,DEBUGSW ;[1144] IF DEBUGGING, DEBUGGER'S
START ADDRESS
2) SKIPGE DEBUGSW ;[1144] TAKES PRIORITY SO
2) MOVE T1,@STLOCN(T2) ;[1144] FIND IT
2) HRRM T1,EXECSW ;IN ANY CASE STORE BACK IN EXECS
Digital Equipment Corporation 28-AUG-79 Page 322
PCO Log Report
W
**************
1)48 ;HERE TO SETUP REST OF VESTIGIAL JOBDAT AREA
****
2)48
2) DEFINE KEYMAC(A,B)<
2) XALL ;;[1144] GIVE A GOOD LIS
TING
2) IFIDN <A><DEB>,< ;;[1144] SELECT ONLY DEB
UGGING KEYWORDS
2) %%1==-1 ;;[1144] SKIP DUMMY ENTR
Y
2) IRP B,< ;;[1144] CHECK EACH KEYW
ORD
2) IFGE %%1,< ;;[1144] THAT IS NOT T
HE DUMMY
2) IFN <%%1&1>,< ;;[1144] AND IS A DEGU
GGER NAME
2) %%2==0 ;;[1144] ASSUME WE WON'T
FIND A DEBUGGER
2) IFN TOPS20,< ;;[1144] TOPS-20 UDDT IS
SPECIAL
2) IFIDN <B><DDT>,< ;;[1144] CHECK FOR DDT D
EBUGGER
2) [770000] ;UDDT STARTS AT 770000
2) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
2) >
2) >
2) IFIDN <B><FORDDT>,< ;;[1144] FORDDT IS SPECI
AL
2) STADDR ;FORDDT FORCES START ADDRESS TO
ITSELF
2) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
2) >
2) IFIDN <B><COBDDT>,< ;;[1144] COBDDT IS SPECI
AL
2) STADDR ;COBDDT GETS CONTROL FROM COBOL
PROGRAM
2) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
2) >
2) IFE %%2,< ;;[1144] IF IT WASN'T AB
OVE DEBUGGERS
2) .JBDDT(P1) ;OTHER DEBUGGERS SET .JBDDT
2) >
2) >
2) >
Digital Equipment Corporation 28-AUG-79 Page 323
PCO Log Report
2) %%1==%%1+1 ;;[1144] ADVANCE TO NEXT
ENTRY
2) >
2) >
2) PURGE %%1,%%2 ;;[1144] CLEAN UP AFTERW
ARD
2) SALL ;;[1144] ..
2) >
2)
2) STLOCN: KEYWORDS
2)
2)49 ;HERE TO SETUP REST OF VESTIGIAL JOBDAT AREA
**************
1)51
1) ;HERE TO OPEN XPN FILE (IF NOT PAGING) USING LC
****
2)52 ;HERE TO OPEN XPN FILE (IF NOT PAGING) USING LC
**************
1)56
1) JBEXEA: SKIPN T1,LS.LB ;TO BOTTOM OF LS, IF IT'S THERE
****
2)57 JBEXEA: SKIPN T1,LS.LB ;TO BOTTOM OF LS, IF IT'S THERE
**************
1)57
1)58 ;HERE TO WRITE THE EXE FILE, COMPRESSING OUT ALL-ZERO PAGES
****
2)59 ;HERE TO WRITE THE EXE FILE, COMPRESSING OUT ALL-ZERO PAGES
**************
1)74
1)75 ;HERE WHEN CURRENT WINDOW IS FULL
****
2)76 ;HERE WHEN CURRENT WINDOW IS FULL
**************
1)77
1)78 ;NOW TO MOVE DOWN THE REMAINING DATA IN THE BUFFER PRIOR TO
****
2)79 ;NOW TO MOVE DOWN THE REMAINING DATA IN THE BUFFER PRIOR TO
**************
1)78
1)79 SUBTTL RUN UUO
1)
****
2)80 SUBTTL FINAL LOADING CLEAN-UP
2)
**************
1)79 JRST ENDSAV ;[616] NO, DO RUN UUO OR EXIT
1)
****
2)80 ;**;[1144] Replace @ENDCMP+19L DZN 16-Feb-79
2) JRST ENDSAV ;[1144] NO, RUN PROGRAM OR EXIT
Digital Equipment Corporation 28-AUG-79 Page 324
PCO Log Report
2)
**************
1)79 JRST RUNUUO ;YES, DO RUN UUO ON FILE
1) SKIPN N.ZER## ;RUN SWITCH PENDING?
****
2)80 ;**;[1144] Replace @ENDSAV+2L DZN 16-Feb-79
2) JRST RUNEXE ;[1144] YES, RUN THE .EXE FILE
2) SKIPN N.ZER## ;RUN SWITCH PENDING?
**************
1)79
1)80 ENDCLR: PHASE 0
****
2)81 ENDCLR: PHASE 0
**************
1)80
1)81 DEFINE KEYMAC (A,B)<
****
2)82 DEFINE KEYMAC (A,B)<
**************
1)82 ;HERE FOR RUN UUO
1) RUNUUO: SKIPN STADDR ;WARN USER IF NO STARTING ADDRES
S
1) OUTSTR [ASCIZ \[LNKNSA No start address]
1) \]
1) SKIPN STADDR
1) AOSA T2,ERRNO ;PREVENT EXECUTION IF NO START A
DDRESS
1) MOVE T2,ERRNO ;SAVE ERROR COUNT, GETS WIPED OU
T
1) SKIPL DEBUGSW ;IF DDT
1) SKIPA P1,STADDR ;NO
1) MOVE P1,EXECSW ;NEED TO START AT IT
1) SUB P1,STADDR ;OFFSET OR 0
1) MOVE T1,[%RHIGH,,%RLOW]
1) BLT T1,%RUN ;MOVE DOWN RUN UUO
1) SKIPGE DEBUGSW ;IF DEBUGGING
1) JRST RUNUUD ;YES
1) JUMPN T2,RUNUU2 ;ERRORS, TOO BAD U LOSE
1) SKIPN T2,RUNAME ;GET NAME TO CALL CORE IMAGE
1) MOVE T2,LODNAM ;USE DEFAULT IF NOT SET
1) MOVE T4,[POINT 7,%DEXM]
1) SETZ T1, ;CLEAR RECEIVING AC
1) LSHC T1,6 ;GET NEXT CHAR
1) ADDI T1," " ;INTO ASCII
1) IDPB T1,T4
1) JUMPN T2,.-4 ;MORE TO DO
1) IDPB T2,T4 ;MAKE SURE A 0 THERE
1)
1)83 ;**;[1125] Insert @ RUNUU1 JNG 1-Nov-78
1) RUNUU1:
Digital Equipment Corporation 28-AUG-79 Page 325
PCO Log Report
1) IFE FTEXE,<
1) SKIPN T1,IO.PTR+HC ;[1125] GET HIGH SEG POINTER
1) > ;END IFE FTEXE
1) MOVE T1,IO.PTR+LC ;SETTLE FOR LOW SEG IF NO HIGH
1) MOVE T2,I.DEV(T1) ;GET DEVICE
1) MOVEM T2,%RUN+0 ;RUN DEVICE
1) MOVE T2,I.NAM(T1) ;FILE NAME
1) MOVEM T2,%RUN+1
1) ;**;[1125] Insert @ RUNUU1+6L JNG 1-Nov-78
1) IFE FTEXE,<
1) SKIPN T1,IO.PTR+LC ;[1125] MAKE SURE POINTING AT LO
W SEG
1) JRST RUNUU3 ;[1125] HISEG ONLY, USE .LOW
1) MOVE T2,I.EXT(T1) ;[1125] MAY AS WELL USE KNOWN EX
T
1) TLNN T2,-1 ;[1125] EXTENSION KNOWN?
1) RUNUU3: MOVSI T2,'LOW' ;[1125] NO, USE .LOW
1) > ;END IFE FTEXE
1) IFN FTEXE,<
1) MOVE T2,I.EXT(T1) ;[1125] GET EXTENSION OF EXE FIL
E
1) > ;END IFN FTEXE
1) HLLZM T2,%RUN+2 ;[1125] STORE EXTENSION & ZERO D
ATE
1) SETZM %RUN+3 ;CLEAR DATE TIME
1) SETZM %RUN+4 ;PPN
1) MOVE T1,RUNCOR ;CORE FOR RUN UUO IF SET
1) ADD T1,RUNCOR+1 ;IN CASE LK+HK
1) MOVEM T1,%RUN+5
1) CAIGE T1,%RUN+7 ;USE LARGER OF WHAT WE WANT AND
WHAT WE NEED
1) MOVEI T1,%RUN+7
1) HRLI T1,1 ;REMOVE HIGH SEG IN EITHER CASE
1) MOVEI T2,%RUN ;ADDRESS OF RUN BLOCK
1) HRL T2,P1 ;GET OFFSET
1) JRST %RLOW ;GO TO LOW SEG
1)
1)
1)
1)84 RUNUUD: MOVE T1,DEBUGSW ;GET DEB INDEX
1) DMOVE T1,@DEBNAM(T1) ;GET NAME (POSSIBLE 6 CHARS PLU
S NULL)
1) DMOVEM T1,%DEXM ;STORE IT
1) CAMN T1,[ASCII \COBDD\]
1) SETZ P1, ;START AT MAIN PROG IF COBOL
1) IFE FTKIONLY,<
1) MOVE T1,[ASCIZ \[LNKDEB \] ;
1) MOVE T1+1,1+[ASCIZ \[LNKDEB \] ;
1) > ;END IFE FTKIONLY
Digital Equipment Corporation 28-AUG-79 Page 326
PCO Log Report
1) IFN FTKIONLY,<
1) DMOVE T1,[ASCIZ \[LNKDEB \] ;
1) > ;END IFN FTKIONLY
1) DMOVEM T1,%DEXH
1) JRST RUNUU1 ;RETURN
1)
1) RUNUU2: OUTSTR DLTTXT
1) JRST ENDZAP ;AND DELETE USER
1) DLTTXT: ASCIZ \?LNKDLT Execution Deleted\
1)
1)85 ;ENTER WITH :-
1) ;T1 = ARG FOR CORE UUO
1) ;T2 = ARG FOR RUN UUO
1)
1) %RHIGH:
1) PHASE .TEMP
1) %RLOW: CORE T1,
1) JFCL
1) OUTSTR %DEXH
1) OUTSTR %DEXM ;NAME OF DEBUGGER
1) OUTSTR %REXM ;TELL USER
1) RUN T2,
1) HALT
1) EXIT
1) %DEXH: ASCIZ \[LNKXCT \
1) %DEXM: EXP 0,0
1) %REXM: ASCIZ \ Execution]
1) \
1)
1) %RUN:
1) DEPHASE
1)
****
2)83 SUBTTL RUN THE PROGRAM
2)
2) ;**;[1144] Revamp @RUNUUO DZN 16-Feb-79
2) RUNEXE: SKIPE STADDR ;[1144] INFORM USER IF NO START
ADDRESS
2) JRST RUNEX1 ;[1144] NO
2) AOS ERRNO ;[1144] DON'T START PROGRAM IF N
O START ADDR
2) .ERR. (MS,0,V%L,L%F,S%I,NSA,<No start address>)
2) RUNEX1: SKIPE ERRNO ;[1144] DON'T RUN IF ANY ERRORS
2) SKIPGE DEBUGSW ;[1144] UNLESS DEBUGGING
2) JRST RUNEX2 ;[1144] DO RUN PROGRAM
2) RUNDLT: .ERR. (MS,0,V%L,L%F,S%F,DLT,<Execution deleted>)
2) JRST ENDZAP ;[1144] JUST ZERO MEMORY AND EXI
T
2)
Digital Equipment Corporation 28-AUG-79 Page 327
PCO Log Report
2)84 SUBTTL RUN THE PROGRAM FROM EXE FILE -- TOPS-20
2)
2) IFN TOPS20,<
2) RUNEX2: MOVE T1,[R%ACS,,ACS] ;[1144] COPY RUN CODE TO WRITABL
E PLACE
2) BLT T1,ACS+R%17 ;[1144] ..
2) MOVE T1,[POINT 7,RUNSPC] ;[1144] BUILD TOPS-20 FILE S
PEC OF .EXE FILE
2) MOVE T4,IO.PTR+LC ;[1144] ..
2) MOVE T2,I.DEV(T4) ;[1144] COPY DEVICE NAME
2) PUSHJ P,SIXTO7 ;[1144] ..
2) MOVX T2,":" ;[1144] COPY DEVICE DELIMITER
2) IDPB T2,T1 ;[1144] ..
2) MOVE T2,I.NAM(T4) ;[1144] COPY FILE NAME
2) PUSHJ P,SIXTO7 ;[1144] ..
2) MOVX T2,"." ;[1144] COPY FILE TYPE DELIMIT
ER
2) IDPB T2,T1 ;[1144] ..
2) HLLZ T2,I.EXT(T4) ;[1144] COPY FILE TYPE
2) PUSHJ P,SIXTO7 ;[1144] ..
2) SETZ T2, ;[1144] TURN INTO ASCIZ STRING
WITH A NUL
2) IDPB T2,T1 ;[1144] ..
2) MOVX T1,GJ%OLD+GJ%SHT;[1144] GO FIND THE FILE
2) HRROI T2,RUNSPC ;[1144] ..
2) GTJFN ;[1144] ..
2) ERJMP GFEERR ;[1144] GETJFN FAILED FOR EXE FI
LE
2) HRRM T1,ACS+R%16 ;[1144] PUT JFN IN GET JSYS ARGU
MENT
2) MOVE T1,EXECSW ;[1144] GET ADDRESS TO START PRO
GRAM
2) HRRM T1,ACS+R%15 ;[1144] STORE IN FINAL JRST
2) MOVEI T1,1000 ;[1144] ASSUME WE'LL UNMAP ALL M
EMORY PAGES
2) SKIPE DDTMAP ;[1144] SEE IF WE MAPPED IN DDT
VIA /DEB:DDT
2) MOVEI T1,764 ;[1144] YES--DON'T UNMAP IT THEN
2) HRRM T1,ACS+R%3 ;[1144] STORE IN PMAP JSYS ARGUM
ENT
2) PUSHJ P,EXEMES ;[1144] PRINT PROGRAM EXECUTION
MESSAGE
2)
2) ;FINAL EXECUTION. SET PROGRAM NAME, SET NEW SYMBOL TABLE POINTER
S IF DDT, MOVE
2) ;SUICIDE CODE TO ACS AND JUMP TO IT.
2)
2) SKIPN T1,RUNAME ;[1144] SET PROGRAM NAME
2) MOVE T1,LODNAM ;[1144] ..
Digital Equipment Corporation 28-AUG-79 Page 328
PCO Log Report
2) SETNM ;[1144] ..
2) SKIPN DDTMAP ;[1144] SEE IF /DEB:DDT SPECIFIE
D
2) JRST RUNEX3 ;[1144] NO--DON'T SET UP SYMBOL
TABLE PTRS
2) MOVE T1,JOB116 ;[1144] YES--FORCE-FEED SYMBOL T
ABLE PTRS TO DDT
2) MOVEM T1,@770001 ;[1144] AT LAST MINUTE FOR LIN
K DEBUGGERS
2) MOVE T1,JOB117 ;[1144] ..
2) MOVEM T1,@770002 ;[1144] ..
2) RUNEX3: MOVE R%17,[ACS,,R%0] ;[1144] COPY POKED CODE TO ACS
2) BLT R%17,R%17 ;[1144] ..
2) JRST R%4 ;[1144] GO UMMAP PAGES, BRING IN
PROG AND START
2)
2)85 ;SIXTO7 CONVERTS A SIXBIT WORD TO AN ASCII STRING WITHOUT TRAILI
NG SPACES.
2) ;CALL:
2) ; T1/ <BYTE POINTER TO STRING>
2) ; T2/ <SIXBIT WORD TO CONVERT>
2) ;RETURNS WITH T1 UPDATED, T2 AND T3 DESTROYED.
2)
2) SIXTO7: JUMPE T2,CPOPJ ;[1144] DONE IF SIXBIT HAS GONE
TO 0
2) SETZ T3, ;[1144] CLEAR DESTINATION AC
2) ROTC T2,6 ;[1144] EXTRACT NEXT SIXBIT CHAR
ACTER
2) ADDI T3,"A"-'A' ;[1144] CONVERT TO ASCII
2) IDPB T3,T1 ;[1144] STORE IN DESTINATION STR
ING
2) JRST SIXTO7 ;[1144] LOOP UNTIL DONE
2)
2) GFEERR: .ERR. (MS,.EC,V%L,L%F,S%F,GFE,<GTJFN% JSYS failed for
>)
2) .ETC. (STR,,,,,RUNSPC)
2)
2) ;FINAL SUICIDE CODE FOR RUNNING A PROGRAM ON TOPS-20.
2)
2) R%ACS: PHASE 0 ;[1144] GET INTO THE ACS
2) R%0:! 0 ;[1144] SEED FOR ZEROING ACS WHE
N DONE
2) R%1:! -1 ;[1144] PMAP ARGUMENTS TO UNMAP
ALL OF MEMORY
2) R%2:! .FHSLF,,0 ;[1144] ..
2) R%3:! PM%CNT+.-. ;[1144] UNLESS /DEB:DDT THEN D
ON'T UNMAP UDDT
2) R%4:! PMAP ;[1144] BEGINNING OF SUICIDE COD
E--UNMAP PAGES
2) R%5:! MOVE R%1,R%16 ;[1144] LOAD GET ARGUMENT
2) R%6:! GET ;[1144] BRING IN PROGRAM
Digital Equipment Corporation 28-AUG-79 Page 329
PCO Log Report
2) R%7:! JSYS 147 ;[1144] DO RESET JSYS TO CLEAR P
SI, ETC.
2) R%10:! DMOVEM R%14,.JBBLT ;[1144] MOVE LAST CODE TO JOBDAT
2) R%11:! JRST .JBBLT ;[1144] AND JUMP TO IT
2) R%12:! 0 ;[1144] UNUSED
2) R%13:! 0 ;[1144] UNUSED
2) R%14:! BLT R%17,R%17 ;[1144] CODE IN JOBDAT--CLEAR AL
L ACS
2) R%15:! JRST .-. ;[1144] POKED TO PROGRAM EXECUTI
ON ADDRESS
2) R%16:! .FHSLF,,.-. ;[1144] POKED TO GET JSYS ARGUME
NT
2) R%17:! R%0,,R%1 ;[1144] BLT ARGUMENT TO CLEAR AC
S
2) DEPHASE
2) > ;[1144] END OF IFN TOPS20
2)
2)86 SUBTTL RUN THE PROGRAM FROM EXE FILE -- TOPS-10
2)
2) IFE TOPS20,<
2) RUNEX2: MOVE T1,[U%LOW,,LOW] ;[1144] MOVE DOWN FINAL RUN UUO
CODE
2) BLT T1,U%END ;[1144] ..
2) IFE FTEXE,<
2) SKIPN T1,IO.PTR+HC ;[1144] GET HIGH SEG POINTER
2) > ;END IFE FTEXE
2) MOVE T1,IO.PTR+LC ;[1144] SETTLE FOR LOW SEG IF NO
HIGH
2) MOVE T2,I.DEV(T1) ;[1144] SET UP RUN UUO DEVICE
2) MOVEM T2,U%RUNB+0 ;[1144] ..
2) MOVE T2,I.NAM(T1) ;[1144] SET UP FILE NAME
2) MOVEM T2,U%RUNB+1 ;[1144] ..
2) IFE FTEXE,<
2) SKIPN T1,IO.PTR+LC ;[1144] MAKE SURE POINTING AT LO
W SEG
2) JRST RUNEX3 ;[1144] HISEG ONLY, USE .LOW
2) MOVE T2,I.EXT(T1) ;[1144] MAY AS WELL USE KNOWN EX
T
2) TLNN T2,-1 ;[1144] EXTENSION KNOWN?
2) RUNEX3: MOVSI T2,'LOW' ;[1144] NO, USE .LOW
2) > ;END IFE FTEXE
2) IFN FTEXE,<
2) MOVE T2,I.EXT(T1) ;[1144] GET EXTENSION OF EXE FIL
E
2) > ;END IFN FTEXE
2) HLLM T2,U%RUNB+2 ;[1144] STORE EXTENSION
2) MOVE T1,RUNCOR ;[1144] LOW SEGMENT SIZE FROM /R
UNCOR:
2) ADD T1,RUNCOR+1 ;[1144] AND HIGH SEG SIZE
Digital Equipment Corporation 28-AUG-79 Page 330
PCO Log Report
2) MOVEM T1,U%RUNB+5 ;[1144] STORE AS RUN UUO ARGUMEN
T
2) CAIGE T1,U%END ;[1144] PREPARE TO SHRINK MEMORY
TO LARGER
2) MOVEI T1,U%END ;[1144] OF WHAT WE NEED AND WH
AT PROGRAM NEEDS
2) HRRM T1,U%CORA ;[1144] STORE AS CORE UUO ARGUME
NT
2) HRRZ T1,EXECSW ;[1144] COMPUTE RUN UUO OFFSET
2) SUB T1,STADDR ;[1144] IN CASE WE START A DEB
UGGER
2) HRLM T1,U%RUNA ;[1144] STORE IN RUN UUO ARGUMEN
T
2) PUSHJ P,EXEMES ;[1144] PRINT PROGRAM EXECUTION
MESSAGES
2) JRST LOW ;[1144] GO SHRINK AND RUN PROGRA
M
2)
2)87 ;FINAL SUICIDE CODE FOR RUNNING A PROGRAM ON TOPS-10.
2)
2) U%LOW: PHASE .TEMP ;[1144] LOW MUST BE FIRST IN .TE
MP
2) DMOVE T1,U%CORA ;[1144] LOAD UP CORE AND RUN UUO
ARGS
2) CORE T1, ;[1144] REMOVE HIGH SEG AND SHRI
NK LOW SEG
2) JFCL ;[1144] DON'T WORRY IF FAILURE
2) RUN T2, ;[1144] RUN THE PROGRAM
2) HALT ;[1144] CAN'T--MONITOR PRINTS US
EFUL MESSAGE
2) EXIT ;[1144] IN CASE USER TYPES CONTI
NUE
2) U%RUNB: .-. ;[1144] RUN UUO DEVICE
2) .-. ;[1144] FILE NAME
2) .-.,,0 ;[1144] EXTENSION
2) 0 ;[1144] UNUSED
2) 0 ;[1144] PPN (FILE WRITTEN ON [
-])
2) .-. ;[1144] MEMORY ARGUMENT
2) U%CORA: 1,,.-. ;[1144] CORE UUO ARG, POKED WITH
LOW SEG SIZE
2) U%RUNA: .-.,,U%RUNB ;[1144] RUN UUO ARG, POKED WITH
RUN OFFSET
2) U%END=.-1 ;[1144] LAST LOCATION IN PHASED
CODE
2) DEPHASE ;[1144] BACK TO THE REAL WORLD
2) LOWLEN==.-U%LOW ;[1144] LENGTH OF PHASED CODE FO
R LATER
2) > ;END IFN TOPS10
2)
Digital Equipment Corporation 28-AUG-79 Page 331
PCO Log Report
2)88 SUBTTL RUN THE PROGRAM FROM EXE FILE -- SUBROUTINES
2)
2) ;TERMES GIVES THE LINK TERMINATION MESSAGE AND CLOSES THE LOG FI
LE IF ANY. IF
2) ;NECESSARY, THE LOG FILE IS RENAMED TO THE PROPER NAME AS WELL.
2)
**************
1)86
****
2)88 ;**;[1144] Insert after FINMES+1L DZN 16-Feb-79
2) ;EXEMES GIVES THE PROGRAM EXECUTION MESSAGE. THIS INCLUDES THE N
AME OF THE
2) ;PROGRAM, OR THE DEBUGGER IF /DEBUG WAS SPECIFIED.
2)
2) EXEMES: SKIPE T1,DEBUGSW ;[1144] IF DEBUGGING
2) JRST EXEME1 ;[1144] THEN [LNKDEB debugger ex
ecution]
2) SKIPN T1,RUNAME ;[1144] ELSE [LNKXIT program exe
cution]
2) MOVE T1,LODNAM ;[1144] GET PROGRAM NAME TO PRIN
T
2) .ERR. (MS,.EC!.EN,V%L,L%F,S%I,XCT)
2) .ETC. (SBX,.EC!.EP,,,,T1)
2) .ETC. (JMP,.EC,,,,EXEME2)
2)
2) EXEME1: MOVEI T1,@DEBNAM(T1) ;[1144] LOAD UP ASCIZ DEBUGGER N
AME
2) .ERR. (MS,.EC!.EN,V%L,L%F,S%I,DEB)
2) .ETC. (STR,.EC!.EP,,,,T1)
2) EXEME2: .ETC. (STR,,,,,,< execution>)
2) POPJ P, ;[1144] DONE
2)
2)89
**************
1)91
1)
1)92 ;HERE TO SEE IF WE CAN GET ENOUGH CORE TO FINISH THIS LOAD
****
2)95 ;HERE TO SEE IF WE CAN GET ENOUGH CORE TO FINISH THIS LOAD
**************
1)95
1)96 JBGCHU: ;HERE TO MOVE HIGH UP
****
2)99 JBGCHU: ;HERE TO MOVE HIGH UP
**************
1)96
1)97 ;HERE TO MOVE WINDOW UP IN EITHER AREA
****
2)100 ;HERE TO MOVE WINDOW UP IN EITHER AREA
**************
Digital Equipment Corporation 28-AUG-79 Page 332
PCO Log Report
1)101 MOVE T1,[DLTTXT,,%TMES]
1) BLT T1,%TMES+5
****
2)104 ;**;[1144] Replace @JBNEX+4L DZN 16-Feb-79
2) MOVE T1,[[ASCIZ /?LNKDLT Execution Deleted/],,%TMES]
;[1144]
2) BLT T1,%TMES+5
**************
1)102
1)103 JBEX3: MOVE T1,DEBUGSW ;GET INDEX TO DEBUG NAME
****
2)106 JBEX3: MOVE T1,DEBUGSW ;GET INDEX TO DEBUG NAME
**************
1)104
1)105 %TMES: ASCIZ \[LNKXCT \
****
2)108 %TMES: ASCIZ \[LNKXCT \
**************
1)105
1)106 %0: .-. ;BLT POINTER
****
2)109 %0: .-. ;BLT POINTER
**************
1)106
1)107 SUBTTL DATA AREAS
****
2)110 SUBTTL DATA AREAS
**************
1)107 U (LSCNT) ;COUNT OF WORDS LEFT IN THIS 128
WORD BLOCK
****
2)110 ;**;[1144] Insert before LSCNT DZN 16-Feb-79
2) IFE TOPS20,<
2) U (LOW,LOWLEN) ;[1144] LOW CODE FOR RUN UUO--MU
ST BE FIRST
2) >
2) IFN TOPS20,<
2) U (ACS,20) ;[1144] PLACE TO WORK ON SUICIDE
CODE
2) U (RUNSPC,4) ;[1144] ASCIZ FILE SPEC FOR EXE
FILE
2) > ;END IFN TOPS20
2) U (LSCNT) ;COUNT OF WORDS LEFT IN THIS 128
WORD BLOCK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 333
PCO Log Report
*********************
*PCO #:20-LINK -012*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+1144
[Date Entered] 23-FEB-79
[Programmer] D. NEFF
[Routines] LNKWLD LNKXIT
[Key Words] /DEB BROKE
[Source Before Edit] %4A (001144)
[Source After Edit] %4A (001145)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 334
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When LINK edit 1144 is installed, the EXEC's DEBUG command or
explicit specification of /DEBUG:DDT to LINK does not set up the
DDT symbol table pointers or load local symbols. This only happens
if LINK can load the program directly into memory (i.e., does not
have to write an .EXE file).
**********
[DIAGNOSIS]
The method of determining whether DDT was mapped in as a result of
/DEBUG:DDT was changed by edit 1144, but the load-and-go code was
not modified to reflect the change.
Also, one too many intructions were removed from the code to load
DDT, causing LINK to forget to load local symbols for the next
file.
**********
[CURE]
Check properly whether DDT was loaded, and force loading of locals
for the next file.
Digital Equipment Corporation 28-AUG-79 Page 335
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2053 17-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1617 22-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 16-Feb-7
9
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 22-Feb-7
9
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1145 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1145 DZN 22-Feb-79
2) ; Load local symbols and store symbol table pointers on TO
PS-20 if
2) ; /DEBUG:DDT and leaving program in memory. Broken by edit
1144.
2) ; Routines: LNKXIT, LNKWLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 336
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 2047 17-Feb-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1622 22-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 16-Feb-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 22-Feb-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1145 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1145 Load locals if /DEBUG:DDT on TOPS-20. Broken by edit 114
4.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)21 MAPDD2: SETOM NULSPC ;[1144] REMEMBER TO THROW AWAY T
HIS SPEC
1) SETZM F.NAME(P1) ;[1144] ..
****
2)21 ;**;[1145] Insert @MAPDD2 DZN 22-Feb-79
2) MAPDD2: TRO FL,L.SYM ;[1145] LOAD LOCALS (TURNED OFF
EARLIER)
2) SETOM NULSPC ;[1145] REMEMBER TO THROW AWAY T
HIS SPEC
2) SETZM F.NAME(P1) ;[1144] ..
**************
Digital Equipment Corporation 28-AUG-79 Page 337
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 2146 17-Feb-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1529 22-Feb-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 16-Feb-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 22-Feb-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1145 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;1145 Set up symbol table pointers on TOPS-20 if no .EXE file
written; broken by 1144.
2)5 SUBTTL ENTER HERE
**************
1)102 MOVE T2,.JBDDT(T1) ;GET DDT ADDRESS
1) IFN TOPS20,<
1) HRRZ T1,T2 ;GET ADDRESS
1) CAIE T1,770000 ;IDDT?
1) JRST JBEX1A ;NO
1) MOVE T2,LC.LB ;GET BASE
1) MOVE T1,.JBSYM(T2) ;
1) MOVEM T1,@770001 ;GIVE SYMBOLS TO DDT
1) MOVE T1,.JBUSY(T2) ;
1) MOVEM T1,@770002 ;AND UNDEFS
1) SETZ T2, ;AND DON'T STORE IN .JBDDT
1) JBEX1A:>
1)103 ;NOW PUT PHASED CODE INTO LOW SEG
****
2)102 ;**;[1145] Replace @JBEX10+12L DZN 22-Feb-79
2) IFN TOPS20,<
2) SKIPN DDTMAP ;[1145] DDT MAPPED FROM /DEBUG:D
DT?
2) JRST JBEX1A ;[1145] NO--NOTHING TO DO
2) MOVE T2,.JBSYM(T1) ;[1145] YES--FORCE-FEED SYMBOL T
ABLE
2) MOVEM T2,@770001 ;[1145] TO DDT
2) MOVE T2,.JBUSY(T1) ;[1145] ..
2) MOVEM T2,@770002 ;[1145] ..
2) JBEX1A:
2) >
2) MOVE T2,.JBDDT(T1) ;[1145] GET DEBUGGER ADDRESS
2)103 ;NOW PUT PHASED CODE INTO LOW SEG
**************
Digital Equipment Corporation 28-AUG-79 Page 338
PCO Log Report
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 339
PCO Log Report
*********************
*PCO #:10-LINK -264*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4A(1145)
[Date Entered] 09-MAR-79
[Programmer] D. NEFF
[Routines] LNKXIT LNKERR
[Key Words] /SAVE MORE
[Source Before Edit] %4A (001145)
[Source After Edit] %4A (001146)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-26290
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 340
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Various symptoms are possible. Some examples are:
1. When loading a PSECTed program with large gaps between
PSECTs, LINK will create the pages in the gaps if the
program is loaded into memory but not if the program is
written with /SAVE.
2. `?LNKRME REMAP error' results if the high segment origin
of a two-segment program is set lower than the combined
length of LINK's low segment and the program's low
segment.
**********
[DIAGNOSIS]
1. LINK cannot in general load a program sprinkled with
non-existent pages. There is only monitor support for
LINK to set up non-existent pages below the high segment
(the REMAP UUO). Programs with non-existent pages
elsewhere must be written to an .EXE file.
2. In this case, LINK is requesting that the REMAP UUO move
the prospective high segment down. This is not possible
since this would overlay the low segment.
The common problem is that LINK's checks for deciding to write an
.EXE file instead of loading the program into memory are
insufficient.
**********
[CURE]
Digital Equipment Corporation 28-AUG-79 Page 341
PCO Log Report
Restructure the code in LNKXIT so that all checks used to determine
whether to load the program or write an .EXE file are in one place.
Then add the above cases to the checks. Since these cases are more
general than the current condition of not enough memory, change the
LNKNCL and LNKNCX messages to LNKPCL and LNKPCX.
The effect of this edit is to cause LINK to force .EXE file
generation for those cases in which LINK cannot leave the program
in memory.
There are several points to consider when installing this edit.
1. The FILCOMs show the edit installation assuming that edits
1113 and 1132 were previously installed. If this is not
the case, simply ignore the references to these edits.
2. The majority of the changes in LNKXIT.MAC are simply
moving code around to centralize the checks for a complex
program. The FILCOM therefore contains information
indicating how to move the code around, so that deleting
and retyping of the moved code should not be necessary.
Digital Equipment Corporation 28-AUG-79 Page 342
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1617 22-Feb-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1157 08-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 22-Feb-7
9
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 8-Mar-79
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1145 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1146 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1146 DZN 8-Mar-79 SPR 10-26290
2) ; Change the 'Not enough core to load' message to 'Program
too complex'.
2) ; Then cause more cases to force .EXE file generation (e.g
., PSECTs above
2) ; high segment, gaps between PSECTS).
2) ; Routines: LNKPAR, LNKXIT, LNKERR
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 343
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 0039 17-Feb-1979
File 2) LINK:LNKERR.MAC[12,4700] created: 1156 08-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 16-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 8-Mar-79
2)
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1146 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1146 Delete long messages for LNKNCL, LNKNCX; add LNKPCL, LNK
PCX.
2)
**************
1)9 NCL 8 8 Not enough core to load job, saved as [f
ile]
1) NCX 8 1 Not enough core to load and execute jo
b, will
1) run from [file]
1) NEB 8 8 No end block seen for [module]
****
2)9 NEB 8 8 No end block seen for [module]
**************
1)9 PEF 31 8 Premature end of file in [file]
****
2)9 PCL 8 8 Program too complex to load, saving as [
file]
2) PCX 8 1 Program too complex to load and execute,
will run from [file]
2) PEF 31 8 Premature end of file in [file]
**************
1)10 HASH NCL,0,<^_
1) Your program is too large to load from LINK. LINK h
as
1) saved it as an .EXE file on disk and cleared your us
er
1) memory. You can use a GET or RUN command to load the .E
XE
1) file. If it is still too large: use a larger machin
e;
1) obtain a larger core limit; or define an overl
ay
1) structure for your program.>
Digital Equipment Corporation 28-AUG-79 Page 344
PCO Log Report
1)
1) HASH NCX,0,<^_
1) Your program is too large to load into memory; LINK sav
ed
1) it as an .EXE file on disk. LINK will automatical
ly
1) execute the program with a RUN monitor call, but the .E
XE
1) file will not be deleted.>
1)
1) HASH NEB,0,<^_
****
2)10 ;**;[1146] Delete LNKNCL and LNKNCX long messages DZN
8-Mar-79
2) HASH NEB,0,<^_
**************
1)10 HASH PEF,0,<^_
****
2)10 ;**;[1146] Insert LNKPCL and LNKPCX long messages before LNKPEF
DZN 8-Mar-79
2) IFE TOPS20,<
2) HASH PCL,0,<^_
2) Your program is too complex to load into memory for one
of
2) the following reasons:
2)
2) 1. There are page gaps between PSECTs (except bel
ow
2) the high segment).
2)
2) 2. There are PSECTs above the origin of the hi
gh
2) segment.
2)
2) 3. Your program will not fit in memory along wi
th
2) LINK's final placement code.
2)
2) LINK has saved your program as an .EXE file on disk a
nd
2) cleared your user memory. You can use a GET or R
UN
2) command to load the .EXE file.>
2)
2) HASH PCX,0,<^_
2) Your program is too complex to load into memory for one
of
2) the following reasons:
2)
Digital Equipment Corporation 28-AUG-79 Page 345
PCO Log Report
2) 1. There are page gaps between PSECTs (except bel
ow
2) the high segment).
2)
2) 2. There are PSECTs above the origin of the hi
gh
2) segment.
2)
2) 3. Your program will not fit in memory along wi
th
2) LINK's final placement code.
2)
2) LINK will save your program as an .EXE file on disk a
nd
2) automatically run it, but the .EXE file will not
be
2) deleted.>
2) > ;END IFE TOPS20
2)
2) IFN TOPS20,<
2) HASH PCL,0,<^_
2) Your program is too complex to load into memory for one
of
2) the following reasons:
2)
2) 1. There are page gaps between PSECTs (except bel
ow
2) the high segment).
2)
2) 2. There are PSECTs above the origin of the hi
gh
2) segment.
2)
2) 3. Your program will not fit in memory along wi
th
2) LINK's final placement code.
2)
2) 4. One or more PSECTs has the read-only attribute.
2)
2) LINK has saved your program as an .EXE file on disk a
nd
2) cleared your user memory. You can use a GET or R
UN
2) command to load the .EXE file.>
2)
2) HASH PCX,0,<^_
2) Your program is too complex to load into memory for one
of
2) the following reasons:
2)
Digital Equipment Corporation 28-AUG-79 Page 346
PCO Log Report
2) 1. There are page gaps between PSECTs (except bel
ow
2) the high segment).
2)
2) 2. There are PSECTs above the origin of the hi
gh
2) segment.
2)
2) 3. Your program will not fit in memory along wi
th
2) LINK's final placement code.
2)
2) 4. One or more PSECTs has the read-only attribute.
2)
2) LINK will save your program as an .EXE file on disk a
nd
2) automatically run it, but the .EXE file will not
be
2) deleted.>
2) > ;END IFN TOPS20
2)
2) HASH PEF,0,<^_
**************
Digital Equipment Corporation 28-AUG-79 Page 347
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1529 22-Feb-1979
File 2) LINK:LNKXIT.MAC[12,4700] created: 1302 08-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 22-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 8-Mar-79
2)
**************
1)1 DECEVR==1145 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1146 ;DEC EDIT VERSION
2)
**************
1)4
1)5 SUBTTL ENTER HERE
****
2)4 ;1146 Force writing an .EXE file more often, especially with P
SECTs.
2) SUBTTL ENTER HERE
**************
1)35 SAVTST: SKIPE IO.PTR+%VC ;SAVE FILE REQUIRED?
1) JRST JBSAVE ;YES
1) JRST JBEXIT ;NO, EXECUTE OR FORM CORE IMAGE
1)
****
2)34 ;**;[1146] Replace @REMVLS+15L DZN 8-Mar-79
2) JRST SAVTST ;[1146] DONE WITH SYMBOLS
2)
**************
1)42 SUBTTL GENERATE .EXE (OR .XPN/.SHR/.HGH/.LOW) FILE
1)
1) ;SOME JOBDAT LOCATIONS WE NEED TO KNOW
1) .JBHSO==75 ;PAGE # OF HIGH SEG ORIGIN
1) .JBSDD==114 ;SAVED .JBDDT
1) .JBS41==122 ;SAVED .JB41
1) EXTERN .JBREN
1) JOBHSA==0 ;HIGH .JBSA
1) JOBH41==1 ;HIGH .JB41
1) JOBHRN==3 ;HIGH .JBHRL & .JBREN
1) JOBHSO==7 ;PAGE # OF HIGH SEG ORIGIN IN HIGH
1)
1) ;HERE TO SETUP SAVED LOCATIONS
1) JBSAVE: .ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>)
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA P1,JOBPTR ;YES
1) MOVE P1,LC.LB ;NO, USE INCORE ADDRESS
1) SKIPE PAG.S2 ;PAGING HIGH SEG?
1) SKIPA P2,JBHPTR ;YES, LOAD CORRECT OFFSET
Digital Equipment Corporation 28-AUG-79 Page 348
PCO Log Report
1) MOVE P2,HC.LB ;LOAD UP OFFSET
1) IFE FTEXE,<
1) MOVE T2,.JBDDT(P1) ;GET DDT START
1) MOVEM T2,.JBSDD(P1) ;TO SAFE PLACE
1) MOVE T2,.JB41(P1) ;SAME FOR UUO HANDLER
1) MOVEM T2,.JBS41(P1)
1) >
1) PUSHJ P,JOBSET ;SETUP REST OF JOBDAT
1) HLRZ T1,.JBSA(P1) ;ALSO SETUP RIGHT HALF OF .JBCOR
1) IFN FTOVERLAY,<
1) SKIPL LNKMAX ;SEEN ANY?
1) SKIPN JOB116 ;YES, AND WANT SYMBOLS?
1) CAIA ;NO
1) HLRZ T1,.JBCOR(P1) ;INCLUDE SYMBOLS
1) >
1) IOR. T1,.PGSIZ ;TO HIGHEST LOC REQUIRED
1) HRRM T1,.JBCOR(P1) ;SO SAVE GET WORKS
1) ;**;[1132] Insert @ JBSAVE+23L JNG 30-Jan-79
1) SKIPL SYMSEG ;[1132] SYMBOLS IN A PSECT?
1) JRST JBSAVX ;[1132] NO, SKIP THIS
1) HLRE T1,.JBSYM(P1) ;[1132] YES, GET -LENGTH OF TABL
E
1) HRRZ T2,.JBSYM(P1) ;[1132] GET FIRST ADDR OF TABLE
1) SUB T2,T1 ;[1132] COMPUTE FIRST FREE AFTER
TABLE
1) CAMLE T2,HC.S1 ;[1132] UPDATE AMOUNT OF CODE IN
LC AREA
1) MOVEM T2,HC.S1 ;[1132] BUT NEVER DECREASE
1) CAMLE T2,HL.S1 ;[1132] ALSO UPDATE SIZE OF SEGM
ENT
1) MOVEM T2,HL.S1 ;[1132] NEVER DECREASE
1) JBSAVX:
1) IFN FTEXE,<JRST JBEXE> ;SET UP TO WRITE AN EXE FILE
1) IFE FTEXE,<
1) SKIPN HC.LB ;ANYTHING IN HIGH SEG?
1) JRST JBNOHI ;NO, JUST SAVE LOW SEG
1) PUSHJ P,HJBSET ;SETUP VESTIGIAL JOB DATA AREA (
HIGH)
1) SKIPN PAG.S2 ;PAGING HIGH SEG?
1) JRST JBSHGH ;NO, JUST SAVE IT
1)
1)43 ;JUST WRITE OUT LAST PAGES
1) ;AND JBHDA (0-7 RELATIVE)
1) ;AND EITHER RENAME OR COPY FILE
1) ;TO RIGHT F/S
1) HRLZ T1,LW.S2 ;LOWER WINDOW
1) HRR T1,UW.S2 ;UPPER WINDOW
1) PUSHJ P,HC.OUT## ;OUTPUT LAST BLOCKS
1)
Digital Equipment Corporation 28-AUG-79 Page 349
PCO Log Report
1) SETZM LW.S2 ;START BACK AT ZERO
1) MOVEI T1,.IPM ;READ IN FIRST
1) PUSHJ P,HC.IN## ;READ IT BACK
1) PUSHJ P,BLTJHA ;COPY FIRST 10 WORDS BACK
1) ;WE NOW HAVE A HIGH SEG FILE ON
DSK
1) ;BUT IS IT THE RIGHT W/S
1) MOVE T2,IO.PTR+%VC ;[606] TO CHANNEL
1) PUSHJ P,DVPRO. ;[606] GET THE PROTECTION RIGHT
1) MOVEI T1,HC ;FROM HIGH CODE OVERFLOW
1) MOVEI T2,%VC ;TO SAVE FILE
1) PUSHJ P,DVMOV. ;RENAME OR COPY
1) JRST JBSHDL ;RENAMED, REMOVE HC AREA
1)
1) ;HERE IF NOT PAGING. WRITE OUT THE HIGH SEGMENT FILE.
1) JBSHGH: MOVEI R,2 ;POINT TO HIGH SEGMENT
1) PUSHJ P,SAVINI ;OPEN SAVE FILE
1) JBSHG1: MOVE T1,HC.AB ;GET LENGTH OF HIGH CODE AREA
1) SUB T1,HC.LB
1) SKIPN PAG.S2 ;PAGING (NOT ALL IN CORE)
1) SKIPE .JBDDT(P1) ;OR DDT LOADED?
1) JRST JBSHGN ;USE ALL OF AREA
1) CAMLE T1,HL.S2 ;UNLESS SMALLER THAN HIGHEST LOC
1) MOVE T1,HL.S2 ;USE HIGHEST LOC LOADED
1) JBSHGN: MOVN T1,T1 ;IOWD IS NEG
1) HRLZ T1,T1 ;IN LEFT HALF
1) HRR T1,HC.LB ;GET ADDRESS OF FIRST WORD
1) HRRI T1,-1(T1) ;-1
1) SETZ T2, ;TERMINATE LIST
1) OUT DC,T1 ;DUMP CORE IMAGE AS IS
1) JRST JBSHGR ;OK
1) PUSH P,[DC]
1) .ERR. (ST,,V%L,L%F,S%F,SOE,<SAVE file output error>)
1)
1)44 JBSHGR: MOVEI T1,DC ;MAKE SURE CHAN# SETUP
1) MOVEM T1,IO.CHN
1) PUSHJ P,DVRLS.## ;RELEASE DEVICE
1)
1)
1) ;HERE AFTER HI SEG SAVED. DELETE POSSIBLE .HGH/.SHR & .LOW FILES
1) JBSHDL: MOVEI T1,TC ;CHAN#
1) MOVEM T1,IO.CHN
1) MOVE T1,IO.PTR+%VC ;PSEUDO CHAN#
1) MOVEM T1,IO.PTR+TC ;INCASE OF ERROR
1) PUSHJ P,DVCHN.## ;T1 POINTS TO DATA BLOCK ON RETU
RN
1) MOVSI T2,(Z TC,) ;RESET CHAN # IN AC FIELD
1) MOVEM T2,I.CHN(T1) ;SINCE %VC IS THERE CURRENTLY
1) SKIPE T2,SSNAME ;GET REQUIRED NAME
Digital Equipment Corporation 28-AUG-79 Page 350
PCO Log Report
1) JRST .+3 ;USUALLY ITS GIVEN
1) SKIPN T2,RUNAME ;IF NOT TRY /RUNAME
1) MOVE T2,LODNAM ;DEFAULT AS LAST RESORT
1) MOVEM T2,I.NAM(T1) ;DELETE THIS FILE
1) PUSH P,T2 ;SAVE NAME FOR .LOW
1) HLLZ T2,SSEXT ;GET EXT WE WANT
1) TLC T2,331732 ;DELETE OTHER ONE
1) MOVEM T2,I.EXT(T1)
1) PUSHJ P,DVOPN.## ;OPEN DEVICE
1) MOVEI T1,TC ;SET CHAN#
1) PUSHJ P,DVDEL.##
1) JFCL
1) PUSHJ P,DVCHN.##
1) POP P,I.NAM(T1) ;RESTORE NAME
1) PUSH P,I.EXT(T1) ;[575] SAVE EXTENSION IN CASE /E
XEC
1) HRLZ T2,SSEXT ;INCASE USER SUPPLIED EXT
1) SKIPN T2 ;DELETE IT INCASE ONLY HIGH
1) MOVSI T2,'LOW'
1) MOVEM T2,I.EXT(T1) ;AND DELETE THIS ALSO
1) PUSHJ P,DVOPN.## ;OPEN CHAN AGAIN
1) MOVEI T1,TC ;SET CHAN#
1) PUSHJ P,DVDEL.##
1) JFCL
1) ;FALL THROUGH TO NEXT PAGE
1)
1)45 ;HERE TO SETUP LOW SEG FILE SPEC
1) PUSHJ P,DVCHN.## ;[575] POINT BACK AT I/O DATA BL
OCK
1) POP P,I.EXT(T1) ;[575] RESTORE EXTENSION IN CASE
/EXEC
1) HRLZ T1,SSEXT ;INCASE USER SUPPLIED
1) SKIPN T1
1) MOVSI T1,'LOW' ;IF ANY LOW SEG STUFF
1) MOVEM T1,SSEXT ;EXT IS NOW LOW NOT SAV
1) MOVEI T1,HC.IX ;ALL DONE WITH HIGH SEG CODE ARE
A
1) PUSHJ P,XX.ZAP ;SO GET RID OF IT
1) MOVE T1,IO.PTR+DC ;BUT SAVE FILE SPEC
1) MOVEM T1,IO.PTR+HC ;IN CASE /EXEC
1) JRST JBSLOW ;NOW SAVE LOW SEG
1) JBNOHI: HRLZ T1,SSEXT ;INCASE USER SUPPLIED IT
1) SKIPN T1
1) IFE TOPS20,<
1) MOVSI T1,'SAV' ;EXT IS NOW SAV NOT LOW
1) >
1) IFN TOPS20,<
1) MOVSI T1,'EXE' ;EXT IS NOW EXE NOT LOW
1) >
Digital Equipment Corporation 28-AUG-79 Page 351
PCO Log Report
1) MOVEM T1,SSEXT
1) ;FALL INTO JBSLOW
1)
1)46 ;JOBDAT IS NOW SETUP - IF PAGING WRITE OUT REST OF CORE IMAGE
1) ;AND READ IN AS MUCH AS POSSIBLE FOR CORE COMPRESSOR
1) JBSLOW: SKIPN PAG.S1 ;PAGING?
1) JRST JBSAV3 ;NO, JUST OUTPUT CORE IMAGE
1) HRLZ T1,LW.S1 ;GET LOWER WINDOW
1) HRR T1,UW.S1 ;TO UPPER
1) PUSHJ P,LC.OUT## ;OUTPUT IT ALL
1) ;NOW TO SEE IF WE CAN READ ALL OF CORE FILE BACK INTO CORE
1) ; IF NOT READ IN AS MUCH AS POSSIBLE
1) SETZM LW.S1 ;START AT LOWEST LOCATION
1) MOVE T1,DY.AB ;HIGHEST LOC WE CAN NOT USE
1) MOVEM T1,DY.UB ;TELL LNKCOR ABOUT IT
1) ADDI T1,1
1) MOVEM T1,LC.LB ;BACKUP IF WE CAN
1) SKIPN T1,LS.LB ;CAN ONLY USE TO BOTTOM OF LS
1) ;AREA IF IT'S STILL THERE
1) SKIPA T1,.JBREL ;IF IT'S NOT, CAN USE ALL OF COR
E
1) SUBI T1,1 ;LAST TO USE IS START OF LS - 1
1) MOVEM T1,LC.UB ;RESET POINTERS
1) MOVEM T1,LC.AB ;FOR CONSISTENCY
1) SUB T1,LC.LB ;MINUS WHAT WE ALREADY HAVE
1) MOVEM T1,UW.S1 ;ASSUME IT WON'T FIT
1) CAMGE T1,HC.S1 ;ENOUGH EXTRA FOR ALL OF FILE?
1) JRST JBSAV1 ;NO, DO IT THE HARD WAY
1) MOVE T1,HC.S1 ;WE NEED ONLY THIS MUCH
1) IORI T1,.IPM ;ROUNDED UP
1) MOVE T2,T1 ;CAN ALSO CUT BACK LC.AB
1) ADD T2,LC.LB ;TO WHAT WE ACTUALLY NEED
1) MOVEM T2,LC.AB ;TO SAVE TIME
1) PUSHJ P,LC.IN## ;READ WHAT WE CAN
1) PUSHJ P,LC.DLT ;DELETE LC FILE UNLESS .XPN WANT
ED
1) JRST JBSAV2 ;AND COPY 0-137 BACK INTO CORE
1)
1) JBSAV1: PUSHJ P,LC.IN## ;READ BACK AS MUCH CORE AS WE CA
N
1) JBSAV2: PUSHJ P,BLTJDA ;BLT .JBDA TO LOW SEG
1) JBSAV3: MOVE T1,LC.LB ;JOBDAT NOW SETUP IN CORE
1) SKIPN .JBDDT(T1) ;ALWAYS SAVE IF DDT LOADED
1) SKIPN HC.S2 ;ANY HIGH SEG (HC.LB IS ZERO BY
NOW)
1) JRST JBSAV4 ;NO, SO MUST WANT LOW SEG
1) MOVE T1,HC.S1 ;YES, SEE IF LOW SEG CONTAINS DA
TA
1) CAIG T1,.JBDA ;IF .JBCOR GREATER THAN 137
Digital Equipment Corporation 28-AUG-79 Page 352
PCO Log Report
1) JRST ENDSAV ;NO, SO NO LOW SEG FILE
1) JBSAV4: MOVEI R,1 ;POINT TO LOW SEGMENT
1) PUSHJ P,SAVINI ;INIT/ENTER SAV FILE
1) SKIPE IO.PTR+%XC ;WANT .XPN FILE?
1) SKIPE IO.PTR+LC ;BUT NOT PAGING
1) JRST ZCMPRS ;NO, NOW FOR ZERO COMPRESSOR
1) PUSHJ P,WRTXPN ;WRITE IT OUT
1) JRST ZCMPRS ;AND COMPRESS CORE IMAGE
1)
1) > ;END OF IFE FTEXE
1)
1)47 ;HERE TO SETUP REST OF JOBDAT AREA
1) ;ENTER WITH P1 POINTING TO JOBDAT AREA
1) ;AND P2 TO HIGH DATA AREA (0 IF NO HIGH SEG)
1)
****
2)41 ;**;[1146] Move 5 pages starting at JBSAVE down where indicated
2) ;**;[1146] below. Then insert this code before JOBSET-3L
2) ;**;[1146] DZN 8-Mar-79
2) SUBTTL FINISH JOBDAT AND DECIDE TO LOAD OR SAVE
2)
2) ;DETERMINE IF WE CAN LOAD THE PROGRAM INTO MEMORY OR MUST WRITE
AN .EXE FILE
2) ;INSTEAD. WE MUST WRITE AN .EXE FILE IF ANY OF THE FOLLOWING ARE
SATISFIED:
2) ;
2) ; 1. USER SPECIFIED /SAVE (SCAN BLOCK ALREADY SET UP).
2) ; 2. THERE ARE PAGE GAPS BETWEEN PSECTS, EXCEPT BELOW .HIGH.
(BEWARE THAT
2) ; OVERLAPS DO NOT COUNT AS GAPS).
2) ; 3. THERE ARE ANY PSECTS ABOVE THE HIGH SEGMENT.
2) ; 4. ON TOPS-20, ANY PSECT HAS THE READ-ONLY ATTRIBUTE.
2) ; 5. THE PROGRAM WILL NOT FIT IN MEMORY WITH LINK'S FINAL PLA
CEMENT CODE
2) ; (THIS INCLUDES THE CASE IN WHICH THE REMAP UUO WOULD HAV
E TO MOVE THE
2) ; HIGH SEGMENT DOWN).
2)
2) SAVTST: PUSHJ P,JOBSET ;[1146] FINISH SETTING UP JOBDAT
2) PUSHJ P,HJBSET ;[1146] AND VESTIGIAL JOBDAT
2) SKIPE IO.PTR+%VC ;[1146] SAVE FILE REQUIRED?
2) JRST JBSAVE ;YES
2)
2) ;TEST FOR GAPS BETWEEN PSECTS, PSECTS ABOVE THE HIGH SEGMENT AND
TOPS-20 WRITE-
2) ;LOCKED PSECTS.
2)
2) MOVE T1,HL.S1 ;[1146] SEE IF LOW SEG (CONTAINS
ALL PSECTS)
2) SKIPE HC.S2 ;[1146] HITS HIGH SEG (IF ANY)
WHICH CHECKS
Digital Equipment Corporation 28-AUG-79 Page 353
PCO Log Report
2) CAMG T1,LL.S2 ;[1146] FOR PSECTS ABOVE HIGH
SEG ORIGIN
2) SKIPA ;[1146] NO--OK SO FAR
2) JRST JBCMPX ;[1146] YES--CAN'T LOAD IT
2) MOVEI R,0 ;[1146] START AT .ABS.
2) MOVE W1,@RC.TB ;[1146] GET POINTER TO ITS RELOC
BLOCK
2) MOVE T1,RC.HL(W1) ;[1146] START WITH ITS HIGH LIMI
T
2) ADDI R,1 ;[1146] ADVANCE TO .LOW. FOR CHE
CKS
2) MOVX T4,2 ;[1146] # OF SEG CONTAINING ONLY
.HIGH.
2) SAVTS1: MOVE W2,@RC.TB ;[1146] GET POINTER TO THIS RELO
C BLOCK
2) IFN TOPS20,<
2) MOVE T2,RC.AT(W2) ;[1146] CHECK PSECT ATTRIBUTES F
OR READ-ONLY
2) TXNE T2,AT.RO ;[1146] ..
2) JRST JBCMPX ;[1146] CAN'T SET UP READ-ONLY P
AGES IN MEMORY
2) >
2) CAML T1,RC.HL(W2) ;[1146] DOES PREVIOUS PSECT ENGU
LF THIS ONE?
2) JRST SAVTS3 ;[1146] YES--NO GAP POSSIBLE YET
2) CAMN T4,RC.SG(W2) ;[1146] POSSIBLE GAP BELOW .HIGH
.?
2) JRST SAVTS2 ;[1146] YES--OK. USUAL CASE
2) MOVEI T2,-1(T1) ;[1146] COMPUTE LAST PAGE USED
2) LSH T2,-9 ;[1146] ..
2) LDB T3,[POINTR RC.IV(W2),^-^O777] ;[1146] GET FIRST
PAGE USED BY NEXT PSECT
2) SUB T3,T2 ;[1146] COMPUTE # PAGES BETWEEN
THIS AND LAST
2) SOJG T3,JBCMPX ;[1146] CAN'T LEAVE GAPS IN MEMO
RY
2) SAVTS2: MOVE T1,RC.HL(W2) ;[1146] SO FAR SO GOOD--ADVANCE
TO NEXT PSECT
2) SAVTS3: MOVE W1,W2 ;[1146] ADVANCE TO NEXT PSECT
2) CAMGE R,RC.NO ;[1146] LOOKED AT ALL PSECTS?
2) AOJA R,SAVTS1 ;[1146] NO--LOOK AT NEXT
2)
2) ; ..
2)
2)42 ; ..
2)
2) ;COMPUTE HOW MUCH MEMORY IT WILL TAKE TO HOLD THE PROGRAM.
2)
2) MOVE T1,DY.AB ;[1146] START WITH HIGHEST ADDR
Digital Equipment Corporation 28-AUG-79 Page 354
PCO Log Report
LINK NEEDS
2) ADD T1,HC.S1 ;[1146] ADD LENGTH OF ACTUALLY L
OADED CODE
2) IOR. T1,.PGSIZ ;[1146] ..
2) SKIPE HC.S2 ;[1146] HIGH SEG EXISTS
2) CAMGE T1,LL.S2 ;[1146] AND ORIGIN BELOW WHERE
WE CAN PUT IT?
2) SKIPA ;[1146] NO--OK
2) JRST JBCMPX ;[1146] YES--REMAP WOULD FAIL SO
TOO COMPLEX
2) SKIPN PAG.S1 ;[1146] PAGING LOW SEGMENT
2) SKIPE PAG.S2 ;[1146] OR HIGH SEG?
2) SKIPA ;[1146] YES--SEE IF ALL WILL FIT
IN
2) JRST JBLOAD ;[1146] NO--IT FITS NOW SO JUST
SHUFFLE
2) ADD T1,HL.S2 ;[1146] ADD LENGTH OF HIGH SEGME
NT
2) IOR. T1,.PGSIZ ;[1146] ..
2) TLNE T1,-1 ;[732] OVERFLOWED INTO THE LH?
2) JRST JBCMPX ;[1146] YES--CAN'T FIT SO WRITE
.EXE FILE
2) IFE TOPS20,< ;[1113] SEE IF WE CAN EXPAND ON
TOPS-10
2) CAMG T1,.JBREL ;DO WE HAVE ENOUGH ALREADY?
2) JRST JBLOAD ;[1146] YES, READ IN REST OF TEM
P FILE
2) CORE T1, ;NO TRY FOR IT
2) JRST JBCMPX ;[1146] WON'T FIT--WRITE .EXE FI
LE
2) MOVEI T1,HG.TAB ;OK, BUT DON'T FORGET TO GIVE IT
TO SOMEONE
2) SKIPN TAB.LB(T1) ;USUAL LOOP
2) SOJA T1,.-1
2) MOVE T2,.JBREL
2) MOVEM T2,TAB.UB(T1)
2) >
2) IFN TOPS20,< ;[1113] WE'RE AS BIG AS WE CAN G
ET ON TOPS-20
2) CAMLE T1,.JBREL ;[1113] DO WE HAVE ENOUGH ALREAD
Y?
2) JRST JBCMPX ;[1146] NO--PROGRAM WON'T FIT WI
TH LINK
2) >
2) JRST JBLOAD ;[1146] PROGRAM WILL FIT--GO BRI
NG IT IN
2)
2)43 ;HERE TO SET UP THE REST OF THE JOBDAT AREA. ENTER WITH P1 POINT
ING TO JOBDAT
Digital Equipment Corporation 28-AUG-79 Page 355
PCO Log Report
2) ;AREA AND P2 TO VESTIGIAL JOBDAT (0 IF NO HIGH SEGMENT).
2)
**************
1)50 ;HERE TO DELETE LC FILE
****
2)46 ;**;[1146] Insert before LC.DLT-5L DZN 8-Mar-79
2) SUBTTL FORCE nnnLNK/SAVE
2)
2) ;HERE IF USER DID NOT SPECIFY /SAVE BUT PROGRAM IS TOO COMPLEX (
TOO LARGE, PSECT
2) ;GAPS, ETC.) TO LOAD. DUMMY UP A SCAN BLOCK AS IF THE USER TYPED
nnnLNK/SAVE,
2) ;PRINT A WARNING AND FALL INTO .EXE WRITING CODE.
2)
2) JBCMPX: MOVEI T2,F.LEN ;[1146] SET UP FILE SPEC
2) PUSHJ P,DY.GET## ;AS THOUGH WE HAD SEEN /SAVE
2) MOVE P1,T1 ;STORE POINTER TO "SCAN" BLOCK
2) HLLZ T2,JOBNUM ;SIXBIT JOBNUMBER
2) HRRI T2,'LNK' ;REST OF NAME
2) MOVEM T2,F.NAME(T1)
2) MOVEM T2,SSNAME ;HERE ALSO
2) IFE FTEXE,<
2) MOVSI T2,'HGH' ;MARK NON-SHAREABLE
2) SKIPN HL.S2 ;IF NO HIGH
2) MOVSI T2,'SAV' ;SO MESSAGE IS CORRECT
2) >
2) IFN FTEXE,<
2) MOVSI T2,'EXE' ;SO MESSAGE IS CORRECT
2) >
2) MOVEM T2,F.EXT(T1)
2) MOVEM T2,SSEXT ;FOR SAVE FILE
2) MOVSI T2,'DSK' ;MAKE SURE IT GOES ON DSK
2) MOVEM T2,F.DEV(T1) ;INCASE DEFAULTS SCREWED UP BY N
OW
2) PUSHJ P,DVOUT.## ;SETUP DATA BLOCK
2) %VC,,.IODPR ;ON FAKE CHAN IN DUMP MODE
2) SKIPE EXECSW ;WANT TO EXECUTE?
2) JRST JBCMP1 ;[1146] YES--LNKPCX
2) .ERR. (MS,.EC,V%L,L%W,S%W,PCL,<Program too complex to
load, saving as >)
2) .ETC. (JMP,.EC,,,,JBCMP2)
2) JBCMP1: .ERR. (MS,.EC,V%L,L%W,S%I,PCX,<Program too complex to
load and execute, will run from >)
2) JBCMP2: .ETC. (FSP,,,,,%VC)
2) ; JRST JBSAVE ;[1146] FALL THROUGH TO WRITE .E
XE FILE
2)
2)47 ;**;[1146] Place 5 pages here from JBSAVE above. Then make minor
2) ;**;[1146] changes as noted. DZN 8-Mar-79
2) SUBTTL GENERATE .EXE (OR .XPN/.SHR/.HGH/.LOW) FILE
2)
Digital Equipment Corporation 28-AUG-79 Page 356
PCO Log Report
2) ;SOME JOBDAT LOCATIONS WE NEED TO KNOW
2) .JBHSO==75 ;PAGE # OF HIGH SEG ORIGIN
2) .JBSDD==114 ;SAVED .JBDDT
2) .JBS41==122 ;SAVED .JB41
2) EXTERN .JBREN
2) JOBHSA==0 ;HIGH .JBSA
2) JOBH41==1 ;HIGH .JB41
2) JOBHRN==3 ;HIGH .JBHRL & .JBREN
2) JOBHSO==7 ;PAGE # OF HIGH SEG ORIGIN IN HIGH
2)
2) ;HERE TO SETUP SAVED LOCATIONS
2) JBSAVE: .ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>)
2) ;**;[1146] Delete @JBSAVE+1L DZN 8-Mar-79
2) IFE FTEXE,<
2) MOVE T2,.JBDDT(P1) ;GET DDT START
2) MOVEM T2,.JBSDD(P1) ;TO SAFE PLACE
2) MOVE T2,.JB41(P1) ;SAME FOR UUO HANDLER
2) MOVEM T2,.JBS41(P1)
2) >
2) ;**;[1146] Delete @JBSAVE+13L DZN 8-Mar-79
2) HLRZ T1,.JBSA(P1) ;ALSO SETUP RIGHT HALF OF .JBCOR
2) IFN FTOVERLAY,<
2) SKIPL LNKMAX ;SEEN ANY?
2) SKIPN JOB116 ;YES, AND WANT SYMBOLS?
2) CAIA ;NO
2) HLRZ T1,.JBCOR(P1) ;INCLUDE SYMBOLS
2) >
2) IOR. T1,.PGSIZ ;TO HIGHEST LOC REQUIRED
2) HRRM T1,.JBCOR(P1) ;SO SAVE GET WORKS
2) ;**;[1132] Insert @ JBSAVE+23L JNG 30-Jan-79
2) SKIPL SYMSEG ;[1132] SYMBOLS IN A PSECT?
2) JRST JBSAVX ;[1132] NO, SKIP THIS
2) HLRE T1,.JBSYM(P1) ;[1132] YES, GET -LENGTH OF TABL
E
2) HRRZ T2,.JBSYM(P1) ;[1132] GET FIRST ADDR OF TABLE
2) SUB T2,T1 ;[1132] COMPUTE FIRST FREE AFTER
TABLE
2) CAMLE T2,HC.S1 ;[1132] UPDATE AMOUNT OF CODE IN
LC AREA
2) MOVEM T2,HC.S1 ;[1132] BUT NEVER DECREASE
2) CAMLE T2,HL.S1 ;[1132] ALSO UPDATE SIZE OF SEGM
ENT
2) MOVEM T2,HL.S1 ;[1132] NEVER DECREASE
2) JBSAVX:
2) IFN FTEXE,<JRST JBEXE> ;SET UP TO WRITE AN EXE FILE
2) IFE FTEXE,<
2) SKIPN HC.LB ;ANYTHING IN HIGH SEG?
2) JRST JBNOHI ;NO, JUST SAVE LOW SEG
2) ;**;[1146] Delete @JBSAVX+5L DZN 8-Mar-79
Digital Equipment Corporation 28-AUG-79 Page 357
PCO Log Report
2) SKIPN PAG.S2 ;PAGING HIGH SEG?
2) JRST JBSHGH ;NO, JUST SAVE IT
2)
2)48 ;JUST WRITE OUT LAST PAGES
2) ;AND JBHDA (0-7 RELATIVE)
2) ;AND EITHER RENAME OR COPY FILE
2) ;TO RIGHT F/S
2) HRLZ T1,LW.S2 ;LOWER WINDOW
2) HRR T1,UW.S2 ;UPPER WINDOW
2) PUSHJ P,HC.OUT## ;OUTPUT LAST BLOCKS
2)
2) SETZM LW.S2 ;START BACK AT ZERO
2) MOVEI T1,.IPM ;READ IN FIRST
2) PUSHJ P,HC.IN## ;READ IT BACK
2) PUSHJ P,BLTJHA ;COPY FIRST 10 WORDS BACK
2) ;WE NOW HAVE A HIGH SEG FILE ON
DSK
2) ;BUT IS IT THE RIGHT W/S
2) MOVE T2,IO.PTR+%VC ;[606] TO CHANNEL
2) PUSHJ P,DVPRO. ;[606] GET THE PROTECTION RIGHT
2) MOVEI T1,HC ;FROM HIGH CODE OVERFLOW
2) MOVEI T2,%VC ;TO SAVE FILE
2) PUSHJ P,DVMOV. ;RENAME OR COPY
2) JRST JBSHDL ;RENAMED, REMOVE HC AREA
2)
2) ;HERE IF NOT PAGING. WRITE OUT THE HIGH SEGMENT FILE.
2) JBSHGH: MOVEI R,2 ;POINT TO HIGH SEGMENT
2) PUSHJ P,SAVINI ;OPEN SAVE FILE
2) JBSHG1: MOVE T1,HC.AB ;GET LENGTH OF HIGH CODE AREA
2) SUB T1,HC.LB
2) SKIPN PAG.S2 ;PAGING (NOT ALL IN CORE)
2) SKIPE .JBDDT(P1) ;OR DDT LOADED?
2) JRST JBSHGN ;USE ALL OF AREA
2) CAMLE T1,HL.S2 ;UNLESS SMALLER THAN HIGHEST LOC
2) MOVE T1,HL.S2 ;USE HIGHEST LOC LOADED
2) JBSHGN: MOVN T1,T1 ;IOWD IS NEG
2) HRLZ T1,T1 ;IN LEFT HALF
2) HRR T1,HC.LB ;GET ADDRESS OF FIRST WORD
2) HRRI T1,-1(T1) ;-1
2) SETZ T2, ;TERMINATE LIST
2) OUT DC,T1 ;DUMP CORE IMAGE AS IS
2) JRST JBSHGR ;OK
2) PUSH P,[DC]
2) .ERR. (ST,,V%L,L%F,S%F,SOE,<SAVE file output error>)
2)
2)49 JBSHGR: MOVEI T1,DC ;MAKE SURE CHAN# SETUP
2) MOVEM T1,IO.CHN
2) PUSHJ P,DVRLS.## ;RELEASE DEVICE
2)
Digital Equipment Corporation 28-AUG-79 Page 358
PCO Log Report
2)
2) ;HERE AFTER HI SEG SAVED. DELETE POSSIBLE .HGH/.SHR & .LOW FILES
2) JBSHDL: MOVEI T1,TC ;CHAN#
2) MOVEM T1,IO.CHN
2) MOVE T1,IO.PTR+%VC ;PSEUDO CHAN#
2) MOVEM T1,IO.PTR+TC ;INCASE OF ERROR
2) PUSHJ P,DVCHN.## ;T1 POINTS TO DATA BLOCK ON RETU
RN
2) MOVSI T2,(Z TC,) ;RESET CHAN # IN AC FIELD
2) MOVEM T2,I.CHN(T1) ;SINCE %VC IS THERE CURRENTLY
2) SKIPE T2,SSNAME ;GET REQUIRED NAME
2) JRST .+3 ;USUALLY ITS GIVEN
2) SKIPN T2,RUNAME ;IF NOT TRY /RUNAME
2) MOVE T2,LODNAM ;DEFAULT AS LAST RESORT
2) MOVEM T2,I.NAM(T1) ;DELETE THIS FILE
2) PUSH P,T2 ;SAVE NAME FOR .LOW
2) HLLZ T2,SSEXT ;GET EXT WE WANT
2) TLC T2,331732 ;DELETE OTHER ONE
2) MOVEM T2,I.EXT(T1)
2) PUSHJ P,DVOPN.## ;OPEN DEVICE
2) MOVEI T1,TC ;SET CHAN#
2) PUSHJ P,DVDEL.##
2) JFCL
2) PUSHJ P,DVCHN.##
2) POP P,I.NAM(T1) ;RESTORE NAME
2) PUSH P,I.EXT(T1) ;[575] SAVE EXTENSION IN CASE /E
XEC
2) HRLZ T2,SSEXT ;INCASE USER SUPPLIED EXT
2) SKIPN T2 ;DELETE IT INCASE ONLY HIGH
2) MOVSI T2,'LOW'
2) MOVEM T2,I.EXT(T1) ;AND DELETE THIS ALSO
2) PUSHJ P,DVOPN.## ;OPEN CHAN AGAIN
2) MOVEI T1,TC ;SET CHAN#
2) PUSHJ P,DVDEL.##
2) JFCL
2) ;FALL THROUGH TO NEXT PAGE
2)
2)50 ;HERE TO SETUP LOW SEG FILE SPEC
2) PUSHJ P,DVCHN.## ;[575] POINT BACK AT I/O DATA BL
OCK
2) POP P,I.EXT(T1) ;[575] RESTORE EXTENSION IN CASE
/EXEC
2) HRLZ T1,SSEXT ;INCASE USER SUPPLIED
2) SKIPN T1
2) MOVSI T1,'LOW' ;IF ANY LOW SEG STUFF
2) MOVEM T1,SSEXT ;EXT IS NOW LOW NOT SAV
2) MOVEI T1,HC.IX ;ALL DONE WITH HIGH SEG CODE ARE
A
2) PUSHJ P,XX.ZAP ;SO GET RID OF IT
Digital Equipment Corporation 28-AUG-79 Page 359
PCO Log Report
2) MOVE T1,IO.PTR+DC ;BUT SAVE FILE SPEC
2) MOVEM T1,IO.PTR+HC ;IN CASE /EXEC
2) JRST JBSLOW ;NOW SAVE LOW SEG
2) JBNOHI: HRLZ T1,SSEXT ;INCASE USER SUPPLIED IT
2) SKIPN T1
2) IFE TOPS20,<
2) MOVSI T1,'SAV' ;EXT IS NOW SAV NOT LOW
2) >
2) IFN TOPS20,<
2) MOVSI T1,'EXE' ;EXT IS NOW EXE NOT LOW
2) >
2) MOVEM T1,SSEXT
2) ;FALL INTO JBSLOW
2)
2)51 ;JOBDAT IS NOW SETUP - IF PAGING WRITE OUT REST OF CORE IMAGE
2) ;AND READ IN AS MUCH AS POSSIBLE FOR CORE COMPRESSOR
2) JBSLOW: SKIPN PAG.S1 ;PAGING?
2) JRST JBSAV3 ;NO, JUST OUTPUT CORE IMAGE
2) HRLZ T1,LW.S1 ;GET LOWER WINDOW
2) HRR T1,UW.S1 ;TO UPPER
2) PUSHJ P,LC.OUT## ;OUTPUT IT ALL
2) ;NOW TO SEE IF WE CAN READ ALL OF CORE FILE BACK INTO CORE
2) ; IF NOT READ IN AS MUCH AS POSSIBLE
2) SETZM LW.S1 ;START AT LOWEST LOCATION
2) MOVE T1,DY.AB ;HIGHEST LOC WE CAN NOT USE
2) MOVEM T1,DY.UB ;TELL LNKCOR ABOUT IT
2) ADDI T1,1
2) MOVEM T1,LC.LB ;BACKUP IF WE CAN
2) SKIPN T1,LS.LB ;CAN ONLY USE TO BOTTOM OF LS
2) ;AREA IF IT'S STILL THERE
2) SKIPA T1,.JBREL ;IF IT'S NOT, CAN USE ALL OF COR
E
2) SUBI T1,1 ;LAST TO USE IS START OF LS - 1
2) MOVEM T1,LC.UB ;RESET POINTERS
2) MOVEM T1,LC.AB ;FOR CONSISTENCY
2) SUB T1,LC.LB ;MINUS WHAT WE ALREADY HAVE
2) MOVEM T1,UW.S1 ;ASSUME IT WON'T FIT
2) CAMGE T1,HC.S1 ;ENOUGH EXTRA FOR ALL OF FILE?
2) JRST JBSAV1 ;NO, DO IT THE HARD WAY
2) MOVE T1,HC.S1 ;WE NEED ONLY THIS MUCH
2) IORI T1,.IPM ;ROUNDED UP
2) MOVE T2,T1 ;CAN ALSO CUT BACK LC.AB
2) ADD T2,LC.LB ;TO WHAT WE ACTUALLY NEED
2) MOVEM T2,LC.AB ;TO SAVE TIME
2) PUSHJ P,LC.IN## ;READ WHAT WE CAN
2) PUSHJ P,LC.DLT ;DELETE LC FILE UNLESS .XPN WANT
ED
2) JRST JBSAV2 ;AND COPY 0-137 BACK INTO CORE
2)
Digital Equipment Corporation 28-AUG-79 Page 360
PCO Log Report
2) JBSAV1: PUSHJ P,LC.IN## ;READ BACK AS MUCH CORE AS WE CA
N
2) JBSAV2: PUSHJ P,BLTJDA ;BLT .JBDA TO LOW SEG
2) JBSAV3: MOVE T1,LC.LB ;JOBDAT NOW SETUP IN CORE
2) SKIPN .JBDDT(T1) ;ALWAYS SAVE IF DDT LOADED
2) SKIPN HC.S2 ;ANY HIGH SEG (HC.LB IS ZERO BY
NOW)
2) JRST JBSAV4 ;NO, SO MUST WANT LOW SEG
2) MOVE T1,HC.S1 ;YES, SEE IF LOW SEG CONTAINS DA
TA
2) CAIG T1,.JBDA ;IF .JBCOR GREATER THAN 137
2) JRST ENDSAV ;NO, SO NO LOW SEG FILE
2) JBSAV4: MOVEI R,1 ;POINT TO LOW SEGMENT
2) PUSHJ P,SAVINI ;INIT/ENTER SAV FILE
2) SKIPE IO.PTR+%XC ;WANT .XPN FILE?
2) SKIPE IO.PTR+LC ;BUT NOT PAGING
2) JRST ZCMPRS ;NO, NOW FOR ZERO COMPRESSOR
2) PUSHJ P,WRTXPN ;WRITE IT OUT
2) JRST ZCMPRS ;AND COMPRESS CORE IMAGE
2)
2) > ;END OF IFE FTEXE
2)
2)52 ;HERE TO DELETE LC FILE
**************
1)93 SUBTTL HERE WHEN NOT ENOUGH CORE TO LOAD OR EXECUTE JOB
1)
1) ;WHEN THERE IS NOT ENOUGH CORE TO LOAD OR EXECUTE JOB
1) ;BUT USER DID NOT SPECIFY A SAV FILE
1) ;GIVE WARNING AND CREATE A SAV FILE
1) ;AND IF /EXECUTE , RUN IT
1)
1) JBNC: MOVEI T2,F.LEN ;SETUP FAKE FILE SPEC
1) PUSHJ P,DY.GET## ;AS THOUGH WE HAD SEEN /SAVE
1) MOVE P1,T1 ;STORE POINTER TO "SCAN" BLOCK
1) HLLZ T2,JOBNUM ;SIXBIT JOBNUMBER
1) HRRI T2,'LNK' ;REST OF NAME
1) MOVEM T2,F.NAME(T1)
1) MOVEM T2,SSNAME ;HERE ALSO
1) IFE FTEXE,<
1) MOVSI T2,'HGH' ;MARK NON-SHAREABLE
1) SKIPN HL.S2 ;IF NO HIGH
1) MOVSI T2,'SAV' ;SO MESSAGE IS CORRECT
1) >
1) IFN FTEXE,<
1) MOVSI T2,'EXE' ;SO MESSAGE IS CORRECT
1) >
1) MOVEM T2,F.EXT(T1)
1) MOVEM T2,SSEXT ;FOR SAVE FILE
1) MOVSI T2,'DSK' ;MAKE SURE IT GOES ON DSK
1) MOVEM T2,F.DEV(T1) ;INCASE DEFAULTS SCREWED UP BY N
OW
Digital Equipment Corporation 28-AUG-79 Page 361
PCO Log Report
1) PUSHJ P,DVOUT.## ;SETUP DATA BLOCK
1) %VC,,.IODPR ;ON FAKE CHAN IN DUMP MODE
1) SKIPN EXECSW ;WANT TO EXECUTE?
1) TDZA T1,T1 ;NO
1) MOVEI T1,1 ;YES
1) PUSHJ P,@[EXP JBNCM1,JBNCM2](T1) ;PRINT MESSAGE
1) JRST JBSAVE ;AND TREAT AS IF /SAVE SEEN
1)
1) JBNCM1: .ERR. (MS,.EC,V%L,L%W,S%W,NCL,<Not enough core to load
job, saved as >)
1) .ETC. (FSP,,,,,%VC)
1) POPJ P,
1)
1) JBNCM2: .ERR. (MS,.EC,V%L,L%W,S%I,NCX,<Not enough core to load
and execute job, will run from >)
1) .ETC. (FSP,,,,,%VC)
1) POPJ P,
1)
1)94 SUBTTL HERE TO BLT DOWN AREA AND EITHER GO TO EXECUTION OR EXI
T
1)
1) ;HERE TO CHECK FOR HIGH SEG AND MAKE SURE IT'S ON A K BOUNDARY
1) JBEXIT: PUSHJ P,JOBSET ;SETUP REST OF JOBDAT
1) PUSHJ P,HJBSET ;AND VESTIGIAL JOB DATA AREA
1) SKIPN PAG.S1 ;SEE IF PAGING LOW
1) SKIPE PAG.S2 ;OR HIGH
1) PUSHJ P,JBCC ;YES, SEE IF ENOUGH CORE
1) SKIPE IO.PTR+%XC ;DO WE WANT .XPN FILE
1) SKIPE IO.PTR+LC ;AND DON'T ALRADY HAVE AN OVERFL
OW FILE
1) CAIA ;NOT BOTH TRUE
1) PUSHJ P,WRTXPN ;WRITE OUT CURRENT CORE IMAGE
1) SKIPE T1,HC.LB ;ANY HIGH SEG CODE
1) IFN TOPS20,<
1) TRNN T1,.PGSIZ ;[650] ON A PAGE BOUND ALREADY?
1) JRST JBEX1 ;[650] YES, EXPECTED
1) SUBI T1,1001 ;[650] NO, FIND NEXT LOWER PAGE
1) > ;END IFN TOPS20
1) IFE TOPS20,<
1) TDNN T1,.PGSIZ ;[650] ON A (K/P) BOUND?
1) JRST JBEX1 ;[650] YES, WHAT LUCK
1) SUB T1,.PGSIZ ;[650] NO, NEXT LOWER PAGE
1) SUBI T1,2 ;[650] 1 FOR EVEN PAGE, 1 FOR LO
W END
1) > ;END OF IFE TOPS20
1) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
1) CAMGE T1,LC.AB ;ENOUGH SPARE TO BLT DOWN?
1) JRST JBEXUP ;NO MOVE UPWARDS
1) ADDI T1,1 ;PUT THE 1 BACK
Digital Equipment Corporation 28-AUG-79 Page 362
PCO Log Report
1) HRL T1,HC.LB ;FROM,,TO BLT POINTER
1) MOVE T2,HC.AB
1) SUB T2,HC.LB ;GET LENGTH
1) ADDI T2,(T1) ;LAST ADD TO BLT
1) HRRZM T1,HC.LB ;NEW LOW BASE
1) MOVEM T2,HC.AB ;NEW HIGH BASE
1) BLT T1,-1(T2) ;MOVE DATA
1) ;NOW TO ZERO REST OF AREA UP TO
K BOUND
1) HRRZI T1,-1(T2) ;GET TOP DATA WORD
1) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
1) SETZM (T2) ;ZERO FIRST WORD
1) HRLI T2,1(T2) ;FORM BLT POINTER
1) MOVS T2,T2 ;RIGHT WAY ROUND
1) BLT T2,(T1) ;ZERO JUNK
1) JRST JBEX1 ;NOW FOR REMAP
1)
1)95 ;HERE TO SEE IF WE CAN GET ENOUGH CORE TO FINISH THIS LOAD
1) ;IF WE CAN DO SO (UNLESS ALREADY ENOUGH)
1) ;IF NOT CREATE A SAVE FILE AND TRY TO RUN IT
1)
1) P0==P1-1 ;TO MAKE CODE EASIER TO READ
1)
1) JBCC: MOVE T1,HL.S2 ;GET HIGH SEG STUFF
1) IFE TOPS20,<
1) TDZE T1,.PGSIZ ;BUT MUST BE IN K OR P
1) >
1) IFN TOPS20,<
1) TRZE T1,.PGSIZ
1) >
1) IOR. T1,.PGSIZ ;SO ROUND UP
1) ADD T1,HC.S1 ;ADD HIGHEST DATA LOCATION REQUI
RED
1) ADD T1,DY.AB ;TOP OF SPACE WE STILL NEED
1) IFE TOPS20,<
1) TDZE T1,.PGSIZ ;ROUND UP
1) >
1) IFN TOPS20,<
1) TRZE T1,.PGSIZ
1) >
1) IOR. T1,.PGSIZ ;TO NEXT K OR P
1) ADDI T1,1 ;UP TO NEXT BLOCK
1) TLNE T1,-1 ;[732] OVERFLOWED INTO THE LH?
1) JRST JBNC ;[732] DO IT THE HARD WAY.
1) ;**;[1113] Insert after JBCC+19L DZN 25-Aug-78
1) IFE TOPS20,< ;[1113] SEE IF WE CAN EXPAND ON
TOPS-10
1) CAMG T1,.JBREL ;DO WE HAVE ENOUGH ALREADY?
1) JRST JBGC ;YES, READ IN REST OF TEMP FILE
Digital Equipment Corporation 28-AUG-79 Page 363
PCO Log Report
1) CORE T1, ;NO TRY FOR IT
1) JRST JBNC ;NO LUCK, DO IT THE HARD WAY
1) MOVEI T1,HG.TAB ;OK, BUT DON'T FORGET TO GIVE IT
TO SOMEONE
1) SKIPN TAB.LB(T1) ;USUAL LOOP
1) SOJA T1,.-1
1) MOVE T2,.JBREL
1) MOVEM T2,TAB.UB(T1)
1) ;**;[1113] Insert after JBCC+28L DZN 25-Aug-78
1) >
1) IFN TOPS20,< ;[1113] WE'RE AS BIG AS WE CAN G
ET ON TOPS-20
1) CAMLE T1,.JBREL ;[1113] DO WE HAVE ENOUGH ALREAD
Y?
1) JRST JBNC ;[1113] NO--GO DO IT THE HARD WA
Y
1) >
1) ;FALL INTO JBGC TO READ IN READ
IN REST OF TEMP FILE
1)
1)96 ;HERE TO READ IN HIGH/LOW TEMP FILES
1) ;IN ORDER TO MINIMIZE DSK TRANSFERES CURRENT CODE WILL NOT
1) ;BE OUTPUT AND REREAD, RATHER WE WILL BLT CODE TO CORRECT PLACE
1) ;AND READ IN REST ARROUND IT
1) ;AT THE END THE TEMP FILES WILL BE DELETED
1)
1) JBGC: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
1) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
1) MOVE T1,DY.AB ;TOP OF FIXED AREA
1) ADDI T1,1 ;NEXT FREE
1) MOVEM T1,LC.LB ;MAKE LOWEST FOR LOW CODE
1) ADD T1,HC.S1 ;HOW MUCH WE NEED
1) IORI T1,.IPM ;BLOCK BOUND
****
2)95 ;**;[1146] Delete entire page @JBNC and down through JBEXIT+4L
2) ;**;[1146] on next page. Move JBEXIT+5L through the end of the p
age
2) ;**;[1146] down where indicated below. Delete entire page @JBCC.
2) ;**;[1146] Then replace @JBGC-6L DZN 8-Mar-79
2) SUBTTL LOAD PROGRAM INTO MEMORY
2)
2) ;HERE TO BRING THE ENTIRE PROGRAM INTO MEMORY. IF NOT PAGING, TH
IS ONLY INVOLVES
2) ;COMPACTING THE LC AND HC AREAS DOWN TOWARD 0 AS FAR AS POSSIBLE
. IF PAGING,
2) ;MINIMIZE DISK TRANSFERS BY MOVING THE WINDOW (VIA BLT OR POP LO
OP) TO ITS FINAL
2) ;LOCATION, THEN READING IN THE REST OF THE APPROPRIATE OVERFLOW
FILE AROUND THE
Digital Equipment Corporation 28-AUG-79 Page 364
PCO Log Report
2) ;WINDOW.
2)
2) JBLOAD: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
2) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
2) MOVE T1,DY.AB ;TOP OF FIXED AREA
2) ADDI T1,1 ;NEXT FREE
2) MOVEM T1,LC.LB ;MAKE LOWEST FOR LOW CODE
2) ADD T1,HC.S1 ;HOW MUCH WE NEED
2) ;**;[1146] Insert before JBGC+6L DZN 8-Mar-79
2) SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
NEEDED
2) IORI T1,.IPM ;BLOCK BOUND
**************
1)96 IORI T1,.IPM ;BLOCK BOUND
****
2)95 ;**;[1146] Insert before JBGC+16L DZN 8-Mar-79
2) SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
NEEDED
2) IORI T1,.IPM ;BLOCK BOUND
**************
1)97 POPJ P, ;RETURN
1)
1)
1)98 ;HERE TO MOVE CODE FOR EITHER SEG AND READ IN DATA
1)
1) JBGCMV: MOVE T1,TAB.LB(R) ;BASE
1) ADD T1,LW.S0(R) ;PLUS WINDOW OFFSET
1) CAME T1,P0(R) ;IF WHERE WE SHOULD BE DO NOTHIN
G
1) PUSHJ P,[CAMG T1,P0(R) ;OTHERWISE MOVE UP OR DO
WN
1) JRST JBGCD ;DOWN
1) JRST JBGCU] ;UP
1) ;NOW FOR REST OF CODE
1) SKIPN PAG.S0(R) ;HOWEVER IF THIS SEGMENT NOT PAG
ED
1) POPJ P, ;WE MUST BE IN RIGHT PLACE ALREA
DY
1) HRRZ T1,LW.S0(R) ;GET LOWER WINDOW
1) SOJL T1,.+3 ;DONE IF WAS ZERO
1) SETZM LW.S0(R) ;NOW POINT TO BASE
1) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
1) MOVE T1,HC.S0(R) ;HIGHEST DATA WE NEED
1) IORI T1,.IPM ;UP TO BOUND
1) CAMG T1,UW.S0(R) ;IF WE'VE ALREADY GOT IT IN
1) JRST .+5 ;JUST IGNORE
1) EXCH T1,UW.S0(R) ;GET BASE
1) HRLZI T1,1(T1) ;FIRST LOC TO READ
1) HRR T1,UW.S0(R) ;LAST
Digital Equipment Corporation 28-AUG-79 Page 365
PCO Log Report
1) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
1) ;NOW TO ZERO JUNK AT TOP
1) HRRZ T1,TAB.AB(R) ;TOP IN USE OR KNOWN TO BE ZERO
1) CAMN T1,TAB.UB(R) ;ALL TAKEN?
1) POPJ P, ;YES
1) HRLI T1,1(T1) ;FIRST TO ZERO
1) SETZM 1(T1) ;CLEAR IT
1) ADDI T1,2 ;FORM BLT PTR
1) BLT T1,@TAB.UB(R) ;ALL THE WAY
1) POPJ P, ;ALL DONE
1)
1)99 JBGCHU: ;HERE TO MOVE HIGH UP
****
2)96 ;**;[1146] Replace @JBGCZ1+1L DZN 8-Mar-79
2) JRST JBEXIT ;[1146] PROGRAM NOW ALL IN MEMOR
Y
2)
2)97 ;**;[1146] Swap pages @JBGCMV and JBGCHU DZN 8-Mar-79
2) JBGCHU: ;HERE TO MOVE HIGH UP
**************
1)100 ;HERE TO MOVE WINDOW UP IN EITHER AREA
****
2)98 ;**;[1146] (Swapped as noted above). Make minor changes below.
2) ;**;[1146] DZN 8-Mar-79
2) ;HERE TO MOVE CODE FOR EITHER SEG AND READ IN DATA
2)
2) ;**;[1146] Insert before JBCHMV DZN 8-Mar-79
2) P0==P1-1 ;[1146] USED FOR REFERENCING P1
OR P2 VIA R
2)
2) JBGCMV: MOVE T1,TAB.LB(R) ;BASE
2) ADD T1,LW.S0(R) ;PLUS WINDOW OFFSET
2) CAME T1,P0(R) ;IF WHERE WE SHOULD BE DO NOTHIN
G
2) PUSHJ P,[CAMG T1,P0(R) ;OTHERWISE MOVE UP OR DO
WN
2) ;**;[1146] Replace @JBGCMV+4L DZN 8-Mar-79
2) PJRST JBGCD ;[1146] DOWN
2) PJRST JBGCU] ;[1146] UP
2) ;NOW FOR REST OF CODE
2) SKIPN PAG.S0(R) ;HOWEVER IF THIS SEGMENT NOT PAG
ED
2) POPJ P, ;WE MUST BE IN RIGHT PLACE ALREA
DY
2) HRRZ T1,LW.S0(R) ;GET LOWER WINDOW
2) SOJL T1,.+3 ;DONE IF WAS ZERO
2) SETZM LW.S0(R) ;NOW POINT TO BASE
2) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
2) MOVE T1,HC.S0(R) ;HIGHEST DATA WE NEED
2) IORI T1,.IPM ;UP TO BOUND
2) CAMG T1,UW.S0(R) ;IF WE'VE ALREADY GOT IT IN
Digital Equipment Corporation 28-AUG-79 Page 366
PCO Log Report
2) JRST .+5 ;JUST IGNORE
2) EXCH T1,UW.S0(R) ;GET BASE
2) HRLZI T1,1(T1) ;FIRST LOC TO READ
2) HRR T1,UW.S0(R) ;LAST
2) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
2) ;NOW TO ZERO JUNK AT TOP
2) HRRZ T1,TAB.AB(R) ;TOP IN USE OR KNOWN TO BE ZERO
2) CAMN T1,TAB.UB(R) ;ALL TAKEN?
2) POPJ P, ;YES
2) HRLI T1,1(T1) ;FIRST TO ZERO
2) SETZM 1(T1) ;CLEAR IT
2) ADDI T1,2 ;FORM BLT PTR
2) BLT T1,@TAB.UB(R) ;ALL THE WAY
2) POPJ P, ;ALL DONE
2)
2)99 ;HERE TO MOVE WINDOW UP IN EITHER AREA
**************
1)101 ;HERE TO MOVE CODE UP TO A K BOUND SO REMAP WILL WORK
****
2)100 ;**;[1146] Place saved code from JBEXIT here, then make minor ch
anges
2) ;**;[1146] as indicated. DZN 8-Mar-79
2) SUBTTL HERE TO BLT DOWN AREA AND EITHER GO TO EXECUTION OR EXIT
2)
2) ;HERE TO CHECK FOR HIGH SEG AND MAKE SURE IT'S ON A K BOUNDARY
2) JBEXIT: SKIPE IO.PTR+%XC ;[1146] DO WE WANT .XPN FILE
2) SKIPE IO.PTR+LC ;AND DON'T ALRADY HAVE AN OVERFL
OW FILE
2) CAIA ;NOT BOTH TRUE
2) PUSHJ P,WRTXPN ;WRITE OUT CURRENT CORE IMAGE
2) SKIPE T1,HC.LB ;ANY HIGH SEG CODE
2) IFN TOPS20,<
2) TRNN T1,.PGSIZ ;[650] ON A PAGE BOUND ALREADY?
2) JRST JBEX1 ;[650] YES, EXPECTED
2) SUBI T1,1001 ;[650] NO, FIND NEXT LOWER PAGE
2) > ;END IFN TOPS20
2) IFE TOPS20,<
2) TDNN T1,.PGSIZ ;[650] ON A (K/P) BOUND?
2) JRST JBEX1 ;[650] YES, WHAT LUCK
2) SUB T1,.PGSIZ ;[650] NO, NEXT LOWER PAGE
2) SUBI T1,2 ;[650] 1 FOR EVEN PAGE, 1 FOR LO
W END
2) > ;END OF IFE TOPS20
2) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
2) CAMGE T1,LC.AB ;ENOUGH SPARE TO BLT DOWN?
2) JRST JBEXUP ;NO MOVE UPWARDS
2) ADDI T1,1 ;PUT THE 1 BACK
2) HRL T1,HC.LB ;FROM,,TO BLT POINTER
2) MOVE T2,HC.AB
Digital Equipment Corporation 28-AUG-79 Page 367
PCO Log Report
2) SUB T2,HC.LB ;GET LENGTH
2) ADDI T2,(T1) ;LAST ADD TO BLT
2) HRRZM T1,HC.LB ;NEW LOW BASE
2) MOVEM T2,HC.AB ;NEW HIGH BASE
2) BLT T1,-1(T2) ;MOVE DATA
2) ;NOW TO ZERO REST OF AREA UP TO
K BOUND
2) HRRZI T1,-1(T2) ;GET TOP DATA WORD
2) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
2) SETZM (T2) ;ZERO FIRST WORD
2) HRLI T2,1(T2) ;FORM BLT POINTER
2) MOVS T2,T2 ;RIGHT WAY ROUND
2) BLT T2,(T1) ;ZERO JUNK
2) JRST JBEX1 ;NOW FOR REMAP
2)
2)101 ;HERE TO MOVE CODE UP TO A K BOUND SO REMAP WILL WORK
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 368
PCO Log Report
*********************
*PCO #:10-LINK -266*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 14-MAR-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BAD EXE LOWLOC
[Source Before Edit] %4A (001146)
[Source After Edit] %4A (001147)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 369
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can write an incorrect EXE file under the
following conditions:
1. The lowest location loaded is at 400000 or above.
2. The lowest location loaded is not loaded first,
i.e., the load is not monotonic.
3. LINK is paging to disk.
4. The last location loaded is fairly near to the
first location loaded.
**********
[DIAGNOSIS]
Under the above conditions, the lowest location loaded
will be in the middle of the LC area window. If that
happens, LINK will move the bottom of the LC window up to
point to the lowest location loaded, but will not bother to
adjust the size of the LC area or the top of the window, so
the physical and virtual limits of the LC area disagree as
to how large the area is. This disagreement violates
assumptions made in the EXE file writer.
**********
[CURE]
When moving up the bottom of the virtual window, move
up the bottom of the area as well by giving the bottom of
the area to the DY area.
Digital Equipment Corporation 28-AUG-79 Page 370
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1157 08-Mar-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1612 12-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 8-Mar-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Mar-7
9
2)
**************
1)1 DECEVR==1146 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1147 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1147 JNG 12-Mar-79
2) ; Avoid bad EXE file if lowest location loaded is above 40
0000, LINK
2) ; is overflowing to disk, and lowest location loaded was n
ot the first
2) ; location loaded (i.e., load was not monotonic).
2) ; Routine: LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 371
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1302 08-Mar-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1611 12-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 8-Mar-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 12-Mar-79
2)
**************
1)1 DECEVR==1146 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1147 ;DEC EDIT VERSION
2)
**************
1)4 SUBTTL ENTER HERE
****
2)4 ;1147 Adjust LC.LB when adjusting LW.S1 in JBEXE. Broken by 7
32.
2) SUBTTL ENTER HERE
**************
1)58 MOVEM T1,LW.S1 ;[732] NO, START AT LOWE
ST LOC
****
2)58 ;**;[1147] Replace @ JBEXEN+10L JNG 12-Mar-79
2) ;**;[1147] This is JBEXEE+1P9L if edit 1132 has been installed.
2) SUB T1,LW.S1 ;[1147] NO, FIND HOW FAR
TO SHRINK
2) ADDM T1,LW.S1 ;[1147] MOVE VIRTUAL WIN
DOW UP
2) ADDM T1,LC.LB ;[1147] GIVE AWAY BOTTOM
OF AREA
2) ADDM T1,DY.UB ;[1147] GIVE TO AREA JUS
T BELOW
2) JRST JBEXE1] ;[732]
**************
1)95 ADDI T1,1 ;NEXT FREE
****
2)95 ;**;[1147] Insert @ JBGC+3L JNG 12-Mar-79
2) ;**;[1147] This is JBLOAD+3L if edit 1146 has been installed.
2) MOVEM T1,DY.UB ;[1147] MAKE SURE UB IS UP TO DA
TE
2) ADDI T1,1 ;NEXT FREE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 372
PCO Log Report
*********************
*PCO #:10-LINK -265*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4A(1147)
[Date Entered] 14-MAR-79
[Programmer] D. NEFF
[Routines] LNKINI
[Key Words] LOG LNKFRE
[Source Before Edit] %4A (001147)
[Source After Edit] %4A (001150)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27632
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 373
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK gives the ?LNKFRE message for the log file if all of the
following conditions are met:
1. The user's default path is in an SFD.
2. A log device has been assigned the logical name LOG:,
requesting that LINK write a log file.
3. The /LOG switch is given to LINK to give the log file a
name.
**********
[DIAGNOSIS]
If a log file is requested at LINK start-up time by assigning a log
file device a logical name of LOG:, LINK begins the log file with a
temporary name of nnnLNK.LOG. If a /LOG switch is later specifed,
LINK remembers to rename the log file to the correct name at the
end of loading.
Unfortunately, LINK's initialization routines create the file by
hand but do not save the file's path over the ENTER UUO. Thus,
when LINK attempts to find the file later with the RENAME UUO, it
uses the junk left by the previous ENTER UUO. This causes LINK to
not find the file.
**********
[CURE]
Change the log file initialization routines to use LINK's own file
routines instead of doing the work by hand. These routines save
the path pointer over the ENTER UUO, allowing the subsequent RENAME
UUO to find the log file again.
Digital Equipment Corporation 28-AUG-79 Page 374
PCO Log Report
Digital Equipment Corporation 28-AUG-79 Page 375
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1612 12-Mar-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1033 14-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Mar-7
9
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Mar-7
9
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1147 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1150 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1150 DZN 14-Mar-79 SPR 10-27632
2) ; Make LOGINI in LNKINI.MAC use standard LKNFIO routines t
o set up the log
2) ; file, so that the default path of a log file is preserve
d over the
2) ; ENTER.
2) ; Routine: LNKINI
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 376
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1101 30-Jan-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1041 14-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 30-Jan-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 14-Mar-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1132 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1150 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL INITIALIZE
****
2)2 ;1150 Call proper LNKFIO routines if a log file is opened at s
tart-up time.
2)3 SUBTTL INITIALIZE
**************
1)12 PUSH P,T1 ;SAVE DEVCHR WORD
1) MOVEI T2,LN.IO ;SPACE WE NEED
****
2)12 ;**;[1150] Delete @LOGINI+26L DZN 14-Mar-79
2) MOVEI T2,LN.IO ;SPACE WE NEED
**************
1)12 MOVEI T2,.IOASC ;ASCII MODE
****
2)12 ;**;[1150] Insert before LOGINI+30L DZN 14-Mar-79
2) MOVEI T2,RC ;[1150] SET UP LOG FILE CHANNEL
2) MOVEM T2,IO.CHN ;[1150] ..
2) MOVX T2,<Z RC,> ;[1150] AND IN FORM WE CAN IOR
INTO UUOS
2) MOVEM T2,I.CHN(T1) ;[1150] ..
2) MOVEI T2,.IOASC ;ASCII MODE
**************
1)12 HLLZ T2,JOBNUM ;SIXBIT JOB NUMBER
1) HRRI T2,'LNK' ;000LNK AS NAME
1) MOVEM T2,I.NAM(T1)
1) MOVSI T2,'LOG' ;EXTENSION
1) MOVEM T2,I.EXT(T1)
1) OPEN RC,@IO.PTR+RC ;OPEN IT
1) JRST OPNERR ;FAILED
1)13 ;HERE WITH LOG DEVICE OPENED. CREATE THE FILE.
1) MOVE T1,IO.PTR+RC ;GET ADDRESS
1) ADDI T1,I.RIB ;GET ENTER BLOCK
1) POP P,T2 ;GET DEVCHR BACK
1) TXNN T2,DV.DSK ;ONLY DO EXTENDED ENTER ON DSK
1) ADDI T1,2 ;POINT TO NAME
Digital Equipment Corporation 28-AUG-79 Page 377
PCO Log Report
1) ENTER RC,(T1)
1) JRST ENTERR ;FAILED
1) MOVE T1,IO.PTR+RC ;POINT TO OPEN BLOCK
1) DEVSIZ T1, ;GET BUFFER SIZE
1) MOVE T1,[2,,203] ;SHOULD NOT HAPPEN, SO FAKE IT
1) PUSH P,T1 ;SAVE INFO
1) HLRZ T2,T1 ;NUMBER OF BUFFERS
1) HRRZ T1,T1 ;SIZE
1) IMULI T2,(T1) ;TOTAL SPACE REQUIRED
1) PUSHJ P,DY.GET##
1) MOVE T3,IO.PTR+RC ;GET AREA
1) POP P,I.DVZ(T3) ;STORE DEVSIZ WORD
1) MOVEM T1,I.RNG(T3) ;POINT TO RING BUFFERS
1) MOVEM T1,.JBFF ;NOW TO SETUP BUFFER
1) MOVSI T1,(Z RC,) ;CHAN#
1) MOVEM T1,I.CHN(T3) ;FOR CLOSE
1) HLRZ T2,I.DVZ(T3) ;GET NO. OF BUFFERS
1) OUTBUF RC,(T2) ;SET THEM UP
1) MOVE T1,.JBREL ;SET .JBFF OUTSIDE CORE RANGE
1) MOVEM T1,.JBFF ;INCASE /HELP
1) MOVEI T1,LOGIT ;NOW WE CAN POINT TO IT
****
2)12 ;**;[1150] Replace @LOGINI+38L DZN 14-Mar-79
2) MOVSI T2,'LOG' ;EXTENSION
2) MOVEM T2,I.EXT(T1)
2) PUSHJ P,DVNAM.## ;[1150] SET UP DEFAULT FILE NAME
2) PUSHJ P,DVCHK.## ;[1150] MAKE SURE DEVICE CAN HAN
DLE I/O MODE
2) PUSHJ P,DVOPN.## ;[1150] OPEN THE LOG FILE
2) PUSHJ P,DVENT.## ;[1150] ENTER THE FILE
2)13 ;HERE WITH LOG FILE OPENED AND ENTERED. ALLOW LINK TO USE IT FOR
LOGGING.
2) MOVEI T1,LOGIT ;NOW WE CAN POINT TO IT
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 378
PCO Log Report
*********************
*PCO #:10-LINK -267*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 29-MAR-79
[Programmer] GILBERT
[Routines] LNKINI
[Key Words] .JBEDV
[Source Before Edit] %4A (001150)
[Source After Edit] %4A (001151)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 379
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Users need to be able to reference the symbol .JBEDV as
a JOBDAT symbol, since it has been added to the monitor, but
they can't since it isn't in LINK.
**********
[DIAGNOSIS]
It was never added.
**********
[CURE]
Insert it.
Digital Equipment Corporation 28-AUG-79 Page 380
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1033 14-Mar-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1448 29-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Mar-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-Mar-7
9
2)
**************
1)1 DECEVR==1150 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1151 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1151 JNG 29-Mar-79
2) ; Add the new Job Data Area location .JBEDV to the initial
symbols.
2) ; Routine: LNKINI
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 381
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1041 14-Mar-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1450 29-Mar-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 14-Mar-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 29-Mar-79
2)
**************
1)1 DECEVR==1150 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1151 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1151 Add .JBEDV.
2)
**************
1)23 .JB ,ERR
****
2)23 ;**;[1151] Insert @ %%%BDT+16L JNG 29-Mar-79
2)23 .JB ,EDV,112 ;[1151] VALUE HERE FOR ASSEMBLY
WITH 6.03A
2) .JB ,ERR
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 382
PCO Log Report
*********************
*PCO #:10-LINK -268*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+1132
[Date Entered] 03-APR-79
[Programmer] GILBERT
[Routines] LNKOV1 LNKXIT
[Key Words] OVERLAYS ED 1132
[Source Before Edit] %4A (001151)
[Source After Edit] %4A (001152)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 383
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Overlaid programs may fail with an illegal UUO or other
error indicating that zeros were loaded where code or data
should have gone. This will only happen after edit 1132 has
been installed in LINK.
**********
[DIAGNOSIS]
The new EXE file writer looks at RC.HL in the RC block
to determine how much to save. The overlay code in LINK
does not bother to keep it up to date.
**********
[CURE]
Keep RC.HL up to date in the overlay processing
routines.
Digital Equipment Corporation 28-AUG-79 Page 384
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1448 29-Mar-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1546 03-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-Mar-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 3-Apr-79
2)
**************
1)1 DECEVR==1151 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1152 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1152 JNG 3-Apr-79
2) ; Get EXE file right when loading overlays. Broken by 113
2.
2) ; Routines: LNKOV1, LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 385
PCO Log Report
[FILCOM]
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 3-Apr-79
2)
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1)
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1152 ;DEC EDIT VERSION
2)
**************
1)3 SUBTTL ENTRY POINT
****
2)2 ;START OF VERSION 4A
2) ;1152 Set up RC.HL correctly on /LINK and /NODE.
2)
2)3 SUBTTL ENTRY POINT
**************
1)33 SETZM RC.HL(R) ;CLEAR
1) PUSHJ P,Z.INEX## ;CLEAR INCLUDE/EXCLUDE STORAGE
****
2)33 ;**;[1152] Replace @ LNKZA+5L JNG 3-Apr-79
2) MOVEM T1,RC.HL(R) ;[1152] AND AS NEW FIRST FREE
2) PUSHJ P,Z.INEX## ;CLEAR INCLUDE/EXCLUDE STORAGE
**************
Digital Equipment Corporation 28-AUG-79 Page 386
PCO Log Report
[FILCOM]
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 12-Mar-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 3-Apr-79
2)
**************
1)1 DECEVR==1147 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1152 ;DEC EDIT VERSION
2)
**************
1)4 SUBTTL ENTER HERE
****
2)6 ;1152 Set RC.HL for .LOW. during initialization when loading o
verlays.
2) SUBTTL ENTER HERE
**************
1)5 JRST LNKX1 ;
****
2)7 ;**;[1152] Insert @ LNKX0B+4L JNG 3-Apr-79
2) MOVEI R,1 ;[1152] LOW SEGMENT
2) MOVE R,@RC.TB ;[1152] POINTER TO RC BLOCK FOR
LC AREA
2) HRRZM T1,RC.CV(R) ;[1152] SAVE AS CURRENT VALUE OF
RELOC COUNTER
2) HRRZM T1,RC.HL(R) ;[1152] AND FIRST FREE BEYOND RO
OT
2) JRST LNKX1 ;
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 387
PCO Log Report
*********************
*PCO #:10-LINK -269*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+E1137
[Date Entered] 13-APR-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] BLOCK 24 LNKIPX
[Source Before Edit] %4A (001152)
[Source After Edit] %4A (001153)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 388
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a PSECT header REL block (type 24) contains an
invalid PSECT index, LINK will loop, get an illegal memory
reference, or generate a bad program.
**********
[DIAGNOSIS]
There is no consistency check. This is a common error,
because a PSECT index of zero is sufficient to make LINK
fail.
**********
[CURE]
Give a LNKIPX error in this case. Note that this edit
requires edit 1137 to LINK.
Digital Equipment Corporation 28-AUG-79 Page 389
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1546 03-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1928 12-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 3-Apr-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Apr-7
9
2)
**************
1)1 DECEVR==1152 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1153 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1153 JNG 12-Apr-79 QAR JBD
2) ; Give LNKIPX message if a Define PSECT block (type 24) co
ntains
2) ; an invalid PSECT index.
2) ; Routine: LNKOLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 390
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1448 08-Feb-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1947 12-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 6-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 12-Apr-7
9
2)
**************
1)1 DECEVR==1140 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1153 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1153 Give LNKIPX if block 24 is illegal.
2)
**************
1)69 T11IPX: .ERR. (MS,,V%M,L%F,S%F,IPX,<Invalid PSECT index>)
1)
****
2)69 ;**;[1153] Change @ T11IPX JNG 12-Apr-79
2) T11IPX: .ERR. (MS,,V%L,L%F,S%F,IPX,<Invalid PSECT index>)
2)
**************
1)102 MOVE T1,@RC.TB ;[1137] RC BLOCK OF THIS PSECT
****
2)102 ;**;[1153] Insert @ T.24E+2L JNG 12-Apr-79
2) CAILE P1,1 ;[1153] DISALLOW CHANGING .LOW.
OR BELOW
2) CAMLE P1,RC.NO ;[1153] CATCH GARBAGE PSECT INDI
CES
2) JRST T24IPX ;[1153] INDEX IS JUNK, COMPLAIN
2) MOVE T1,@RC.TB ;[1137] RC BLOCK OF THIS PSECT
**************
1)103 SUBTTL BLOCK TYPE 37 - COBOL LOCAL SYMBOLS
****
2)102
2) ;**;[1153] Insert @ T.24E+8L JNG 12-Apr-79
2) ;HERE ON AN INVALID PSECT INDEX.
2) T24IPX: .ERR. (MS,.EC,V%L,L%F,S%F,IPX)
2) .ETC. (STR,.EC,,,,,< for PSECT >)
2) .ETC. (SBX,.EP,,,,W2)
2)
2)103 SUBTTL BLOCK TYPE 37 - COBOL LOCAL SYMBOLS
**************
Digital Equipment Corporation 28-AUG-79 Page 391
PCO Log Report
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 392
PCO Log Report
*********************
*PCO #:10-LINK -270*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-APR-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] BLOCK 23 REWORK
[Source Before Edit] %4A (001153)
[Source After Edit] %4A (001154)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 393
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
There are several problems with the PSECT Break block
(REL block type 24), as follows:
1. LINK re-arranges the PSECT indices for the module
being loaded based on the order of the PSECT Break
blocks in the REL file, so that if the PSECT Break
blocks are not put into the REL file sorted by
PSECT index, then any following Set PSECT blocks
(type 22) or Polish blocks (type 11) containing
PSECT indices will get the wrong PSECT.
2. LINK requires a PSECT Break block with a blank name
to be the first one seen for each module.
3. Unlike all of the other REL blocks that reference
defined PSECTs, the PSECT Break block takes a PSECT
name instead of a PSECT index.
4. The PSECT Break block inadvertently takes the
action of a Set PSECT block (i.e., sets the default
PSECT) during its processing.
**********
[DIAGNOSIS]
The PSECT Break block used to do something else in an
early implementation of PSECTs. It was only partially
converted to the final design.
**********
[CURE]
Re-work the PSECT Break processing code in LINK. This
Digital Equipment Corporation 28-AUG-79 Page 394
PCO Log Report
REL block will now expect a PSECT index instead of a name,
although a name will still work for compatability.
Digital Equipment Corporation 28-AUG-79 Page 395
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.OLD[30,3737] created: 2112 12-Apr-1979
File 2) LINK:LNKHST.MAC[30,3737] created: 2028 12-Apr-1979
1)1 DECEVR==1153 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1154 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1154 JNG 12-Apr-79 QAR JBD
2) ; Re-write T.23 to fix the following problems:
2) ; . Don't re-define the PSECT indices in terms of the orde
r of block 23s.
2) ; . Don't require a name of zero in the first block 23.
2) ; . Don't do a set PSECT (block type 22) action on block t
ype 23.
2) ; . Expect PSECT index instead of name in first word (name
still works).
2) ; Routine: LNKOLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 396
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.OLD[30,3737] created: 2109 12-Apr-1979
File 2) LINK:LNKOLD.MAC[30,3737] created: 2033 12-Apr-1979
1)1 DECEVR==1153 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1154 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1154 Don't re-order PSECT indices in T.23; general re-write o
f T.23.
2)
**************
1)100 ; ! PSECT NAME !
1) ; -----------------
1) ; ! ATTR ! BREAK !
1) ; -----------------
1) COMMENT *
1) THIS BLOCK CONSISTS OF :-
1) PSECT NAME IN SIXBIT
1) ATTRIBUTES (LHS)
1) PSECT BREAK (RHS)
1) IN ADDITION IT ESTABLISHES THE PSECT ORDERING FOR
1) THE POLISH FIXUPS TO FOLLOW
1) *
1) T.23: PUSHJ P,RB.1 ;PSECT NAME
1) JRST [MOVEI T1,23
1) JRST ILIERR]
1) SKIPE W2,W1 ;NAMES ALWAYS GO IN W2
1) JRST T.23A ;NOTHING SPECIAL
1) MOVE W2,['.LOW. '] ;LOW SEG BY DEFAULT
1) SETZM RC.CUR ;SHOULD BE AT SLOT 1
1) T.23A: AOS RC.CUR ;GOES IN NEXT SLOT
1) MOVE R,RC.NO ;START AT BACK OF TABLE
1) MOVE T1,@RC.TB ;GET RC BLOCK
1) CAMN W2,RC.NM(T1) ;IS THIS THE ONE WE WANT?
1) JRST T.23B ;YES
1) SOJG R,.-3 ;NO, TRY AGAIN
1) HALT ;CANNOT HAPEN
1)
1) T.23B: CAMN R,RC.CUR ;WHERE IT SHOULD BE?
1) JRST T.23C ;YES
1) MOVE T1,@RC.TB ;NO, GET RC BLOCK
1) EXCH R,RC.CUR ;WHERE IT SHOULD BE
1) EXCH T1,@RC.TB ;PUT IT THERE
1) EXCH R,RC.CUR ;PUT RC.CUR BACK
1) MOVEM T1,@RC.TB ;AND OUT OF PLACE BLOCK
1) T.23C: PUSHJ P,RB.1 ;NOW GET BREAK CORRECTLY RELOCAT
Digital Equipment Corporation 28-AUG-79 Page 397
PCO Log Report
ED
1) JRST [MOVEI T1,23
1) JRST ILIERR] ;ERROR
1) HRRZ W3,W1 ;VALUE IN W3, ATTRIBUTES IN W1
1) MOVE R,RC.CUR ;MAKE SURE R IS SETUP
1) MOVE R,@RC.TB ;AND POINTING TO RC BLOCK
1) CAMLE W3,RC.HL(R) ;USE GREATER
1) MOVEM W3,RC.HL(R) ;FIXUP CV AT T.5
1) SKIPL RC.AT(R) ;[761] RELOCATABLE PSECT?
1) TXZ W1,AT.RP ;[761] NO,
1) JRST LOAD## ;DONE
1)
****
2)100 ; ! PSECT INDEX !
2) ; -----------------
2) ; ! BREAK !
2) ; -----------------
2)
2)
2) ;**;[1154] Revamp @ T.23 JNG 12-Apr-79
2) T.23: PUSHJ P,RB.1 ;[1154] GET PSECT INDEX
2) JRST ILIERR ;[1154] TOO SHORT
2) MOVEI R,1(W1) ;[1154] PUT INTERNAL PSECT INDEX
INTO R
2) TXNN W1,77B5 ;[1154] OLD STYLE (NAME IN SIXBI
T)?
2) JRST T.23B ;[1154] NO, WE HAVE THE PSECT IN
DEX.
2)
2)
2) ;HERE WITH OLD-STYLE NAME IN SIXBIT. LOOP OVER RC BLOCKS LOOKIN
G FOR IT.
2)
2) MOVE R,RC.NO ;[1154] START AT THE TOP PSECT
2) T.23A: MOVE T1,@RC.TB ;[1154] POINT TO NEXT RC BLOCK
2) CAME W1,RC.NM(T1) ;[1154] IS THIS IT?
2) SOJG R,T.23A ;[1154] NO, LOOP
2) JUMPE R,[MOVEI T1,23 ;[1154] IF NOT FOUND, GO COMPLAI
N
2) JRST ILIERR] ;[1154] USUAL MESSAGE
2)
2)
2) ;HERE WITH THE INTERNAL PSECT INDEX IN R. NEED TO PUT THIS IN R
C.CUR,
2) ;SO CALL TO RB.1 WILL GET BREAK RELOCATED WITH RESPECT TO THIS P
SECT.
2)
2) T.23B: MOVE P1,RC.CUR ;[1154] SAVE OVER MUNGING BELOW
2) MOVE P2,@RC.TB ;[1154] SAVE ADDRESS OF RC BLOCK
Digital Equipment Corporation 28-AUG-79 Page 398
PCO Log Report
2) MOVEM R,RC.CUR ;[1154] SET UP FOR RB.1
2) PUSHJ P,RB.1 ;[1154] GET BREAK
2) JRST [MOVEI T1,23 ;[1154] NOT THERE, COMPLAIN
2) JRST ILIERR] ;[1154] ..
2) MOVEM P1,RC.CUR ;[1154] RESTORE RC.CUR
2) CAMLE W1,RC.HL(P2) ;[1154] A NEW RECORD FOR THE BRE
AK?
2) MOVEM W1,RC.HL(P2) ;[1154] YES, SET HL (CV FIXED IN
T.5)
2) JRST LOAD## ;[1154] DONE, GO GET NEXT BLOCK
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 399
PCO Log Report
*********************
*PCO #:10-LINK -271*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-APR-79
[Programmer] GILBERT
[Routines] LNKOLD LNKWLD
[Key Words] .HIGH. PSECT
[Source Before Edit] %4A (001154)
[Source After Edit] %4A (001155)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 400
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
PSECT .HIGH. is not equivalent to TWOSEG. If a user
tries to specify PSECT .HIGH., LINK gets internal errors.
**********
[DIAGNOSIS]
The REL file input routines add 400000 to relocatable
quantities from this PSECT twice: once because they are in
a PSECT that starts at 400000, and once because they are in
the high segment.
**********
[CURE]
Re-work the REL file input routines (RB.1) to handle
this case correctly. As part of this edit, preserve the
PSECT attributes for the .HIGH. PSECT.
Digital Equipment Corporation 28-AUG-79 Page 401
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2028 12-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1307 13-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Apr-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 13-Apr-7
9
2)
**************
1)1 DECEVR==1154 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1155 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1155 JNG 13-Apr-79 QAR JBD
2) ; Allow PSECT .HIGH. to be synonymous with TWOSEG.
2) ; Routines: LNKOLD, LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 402
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 2033 12-Apr-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1422 13-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 12-Apr-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 13-Apr-7
9
2)
**************
1)1 DECEVR==1154 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1155 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1155 Allow PSECT .HIGH. to work as TWOSEG.
2)
**************
1)110 MOVE T2,RC.CV(R) ;GET CURRENT VALUE
1) SKIPN RC.CUR ;IF NOT PSECT
1) SUB T2,RC.IV(R) ;REMOVE BASE ADDRESS
1) SKIPGE RC.AT(R) ;[761] RELOCATABLE PSECT?
1) JRST R.ERR ;[761] YES, ERROR
1) ADDI T1,0(T2) ;GET RELOCATED VALUE
1) MOVE T2,RC.SG(R) ;GET SEGMENT #
1) ADD T1,LL.S0(T2) ;MAKE RELATIVE TO SEG ORIGIN
1) HRL W1,T1 ;AND REPLACE IT
1) MOVSI R,(1B1) ;CLEAR R BUT REMEMBER RELOCATABL
E
1) ;INCASE RH SIDE NOT (FOR SYMBOL)
1)
****
2)110 ;**;[1155] Replace @ RWORD5+1L JNG 13-Apr-79
2) SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
2) JRST R.ERR ;[1155] NO, CAN'T USE IT
2) SKIPE RC.CUR ;[1155] RELOCATE WRT A PSECT?
2) JRST [ADD T1,RC.CV(R);[1155] YES, PSECTS ARE SIMPLE
2) JRST RWORD4] ;[1155] GO STORE AND CHECK RH RE
LOCATION
2) MOVE T2,RC.SG(R) ;[1155] OLD LOWSEG/HIGHSEG, GET
SEGMENT #
2) MOVE T2,LL.S0(T2) ;[1155] GET ORIGIN OF SEGMENT
2) ADD T2,RC.CV(R) ;[1155] ADD CURRENT VALUE OF REL
OC. COUNTER
2) SUB T2,RC.IV(R) ;[1155] T2 NOW HAS RELOCATION FA
Digital Equipment Corporation 28-AUG-79 Page 403
PCO Log Report
CTOR
2) ADDI T1,0(T2) ;[1155] RELOCATE THE HALF WORD
2) RWORD4: HRL W1,T1 ;[1155] STORE THE RESULT
2) MOVX R,1B1 ;[1155] CLEAR R BUT REMEMBER REL
OCATABLE
2)
**************
1)111 MOVE T2,RC.CV(R) ;GET CURRENT VALUE
1) SKIPN RC.CUR ;IF DOING PSECT, SKIPE
1) SUB T2,RC.IV(R) ;REMOVE BASE ADDRESS
1) SKIPGE RC.AT(R) ;[761] RELOCATABLE PSECT?
1) JRST R.ERR ;[761] YES, ERROR
1) ADDI T1,0(T2) ;GET RELOCATED VALUE
1) MOVE T2,RC.SG(R) ;GET SEGMENT #
1) ADD T1,LL.S0(T2) ;MAKE RELATIVE TO SEG ORIGIN
1) HRR W1,T1 ;AND REPLACE IT
1) CPOPJ1: AOS (P) ;SKIP RETURN
****
2)111 ;**;[1155] Replace @ RWORD6+2L JNG 13-Apr-79
2) SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
2) JRST R.ERR ;[1155] NO, CAN'T USE IT
2) SKIPE RC.CUR ;[1155] RELOCATE WRT A PSECT?
2) JRST [ADD T1,RC.CV(R);[1155] YES, PSECTS ARE SIMPLE
2) JRST RWORD8] ;[1155] GO STORE
2) MOVE T2,RC.SG(R) ;[1155] OLD LOWSEG/HIGHSEG, GET
SEGMENT #
2) MOVE T2,LL.S0(T2) ;[1155] GET ORIGIN OF SEGMENT
2) ADD T2,RC.CV(R) ;[1155] ADD CURRENT VALUE OF REL
OC. COUNTER
2) SUB T2,RC.IV(R) ;[1155] T2 NOW HAS RELOCATION FA
CTOR
2) ADDI T1,0(T2) ;[1155] RELOCATE THE HALF WORD
2) RWORD8: HRR W1,T1 ;[1155] STORE THE RESULT
2) CPOPJ1: AOS (P) ;SKIP RETURN
**************
Digital Equipment Corporation 28-AUG-79 Page 404
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1622 22-Feb-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1348 13-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 22-Feb-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 13-Apr-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1145 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1155 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1155 Store PSECT properties even if PSECT name is .HIGH.
2)
**************
1)40 PJRST SETRC##]
1) SOSGE RC.FRE ;ANY FREE SLOTS
****
2)40 ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
2) PUSHJ P,SETRC## ;[1155] SETUP HIGHSEG RC
BLOCK ETC.
2) MOVEI R,2 ;[1155] GET POINTER TO N
EW RC BLOCK
2) MOVE R,@SG.TB ;[1155] ..
2) MOVE T1,RC.SET ;[1155] GET ATTRIBUTES
2) MOVEM T1,RC.AT(R) ;[1155] STORE
2) POPJ P,] ;[1155] RETURN
2) SOSGE RC.FRE ;ANY FREE SLOTS
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 405
PCO Log Report
*********************
*PCO #:10-LINK -272*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-APR-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] BLOCK 5 CLEAR RC.CUR
[Source Before Edit] %4A (001155)
[Source After Edit] %4A (001156)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 406
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The program break in the end block (REL block type 5)
is relocated with respect to whatever PSECT is the current
default. It should be relocated with respect to .LOW..
**********
[DIAGNOSIS]
The T.5 routine calls the standard relocating input
routines, which relocate with respect to the current PSECT.
**********
[CURE]
Clear the current PSECT before reading the program
break.
Digital Equipment Corporation 28-AUG-79 Page 407
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1307 13-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1529 13-Apr-1979
1)1 DECEVR==1155 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1156 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1156 JNG 13-Apr-79 QAR JBD
2) ; Relocate the breaks in block type 5 with respect to .LOW
.
2) ; every time, even if the current PSECT is not .LOW..
2) ; Routine: LNKOLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 408
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1422 13-Apr-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1534 13-Apr-1979
1)1 DECEVR==1155 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1156 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1156 Clear RC.CUR before reading data words in T.5.
2)
**************
1)47 T.5: SKIPN POLSTK ;GIVE BACK POLISH STACK IF FINIS
HED
1) JRST T.5A
****
2)47 ;**;[1156] Insert @ T.5 JNG 13-Apr-79
2) T.5: MOVEI T1,1 ;[1156] BREAKS ARE RELOCATABLE I
N .LOW.
2) SKIPE RC.CUR ;[1156] SO UNLESS NOT LOADING PS
ECTS,
2) MOVEM T1,RC.CUR ;[1156] FORCE RELOCATION TO .LOW
.
2) SKIPN POLSTK ;GIVE BACK POLISH STACK IF FINIS
HED
2) JRST T.5A
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 409
PCO Log Report
*********************
*PCO #:10-LINK -273*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-APR-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] SUPPRESS PSECTS DDT TYPEOU
[Source Before Edit] %4A (001156)
[Source After Edit] %4A (001157)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 410
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
PSECT names type out too often when using DDT on a
program built with PSECTs.
**********
[DIAGNOSIS]
They are defined as global symbols that are not
suppressed to DDT typeout.
**********
[CURE]
Suppress them.
Digital Equipment Corporation 28-AUG-79 Page 411
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1529 13-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1639 13-Apr-1979
1)1 DECEVR==1156 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1157 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1157 JNG 13-Apr-79 QAR DZN
2) ; Suppress the PSECT name global symbols to DDT typeout.
2) ; Routine: LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 412
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1348 13-Apr-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1643 13-Apr-1979
1)1 DECEVR==1155 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1157 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1157 Suppress the PSECT name global symbols to DDT typeout.
2)
**************
1)40 MOVX W1,PT.SGN!PT.SYM ;[714] SET FLAGS
1) PUSHJ P,SY.GS## ;[714] ADD TO GLOBAL SYMBOL TABL
E.
****
2)40 ;**;[1157] Change @ SET3+1L JNG 13-Apr-79
2) MOVX W1,PT.SGN!PT.SYM!PS.DDT ;[1157] SET FLAGS
2) PUSHJ P,SY.GS## ;[714] ADD TO GLOBAL SYMBOL TABL
E.
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 413
PCO Log Report
*********************
*PCO #:10-LINK -274*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 14-APR-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] BAD USY POLISH
[Source Before Edit] %4A (001157)
[Source After Edit] %4A (001160)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 414
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Defining an undefined symbol with DDT can cause DDT to
destroy random low addresses. Examination of the undefined
symbol table pointed to by .JBUSY=117 will reveal additive
fixups to the locations destroyed.
This will only happen if the symbol defined with DDT
was used in the source program as part of a Polish
expression.
**********
[DIAGNOSIS]
LINK is putting out Polish requests for undefined
symbols as if they were additive fixups, with the address to
be added to as the offset to the Polish string in LINK's
internal FX area. It is doing this because it checks for
some things that it doesn't know how to put into the
undefined table, and avoids them. When Polish was added to
LINK, this check was not extended, so LINK thinks Polish is
OK to put out.
**********
[CURE]
Instead of checking for the things LINK doesn't know
how to put into the undefined table and avoiding them, check
for the few things that LINK does know how to do and avoid
everything else.
Digital Equipment Corporation 28-AUG-79 Page 415
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1639 13-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1915 14-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 13-Apr-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Apr-7
9
2)
**************
1)1 DECEVR==1157 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1160 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1160 JNG 14-Apr-79 QAR TW/JMF
2) ; Don't put junk in runtime undefined symbol table for sym
bols
2) ; that are used in Polish blocks.
2) ; Routine: LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 416
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1623 12-Apr-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1916 14-Apr-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 3-Apr-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Apr-79
2)
**************
1)1 DECEVR==1152 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1160 ;DEC EDIT VERSION
2)
**************
1)6 SUBTTL ENTER HERE
****
2)6 ;1160 Don't put junk in the undefined table when symbol used i
n Polish.
2)
2)7 SUBTTL ENTER HERE
**************
1)13 TXNN W1,FP.SYM ;ADDITIVE GLOBAL FIXUP?
1) JRST UDFGB2 ;NO
1) DMOVE W2,1(T1) ;GET DATA WORDS
1) TXNE W1,FS.FXS ;SYMBOL FIXUP?
1) JRST UDFGB2 ;*** DON'T KNOW HOW TO DO IT YET
***
1) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
****
2)14 ;**;[1160] Replace @ UDFGB1+3L JNG 14-Apr-79
2) TXNE W1,FP.SYM ;[1160] FIXUP BASED ON UNDEFINED
SYMBOL?
2) TXNN W1,FS.FXR!FS.FXL ;[1160] CAN ONLY PUT OUT RH OR
LH ADDITIVE
2) JRST UDFGB2 ;[1160] CAN'T OUTPUT POLISH, SYM
FIXUPS, ETC.
2) DMOVE W2,1(T1) ;GET DATA WORDS
2) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 417
PCO Log Report
*********************
*PCO #:10-LINK -275*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 11-MAY-79
[Programmer] GILBERT
[Routines] LNKMAP LNKSUB
[Key Words] MAP PSECTS AESTHETICS
[Source Before Edit] %4A (001160)
[Source After Edit] %4A (001161)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27727
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 418
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The lines in the map that describe PSECTs that have
been loaded are not lined up, and are not in the same format
as the low segment and high segment lines.
**********
[DIAGNOSIS]
Nobody noticed the inconsistency.
**********
[CURE]
Make the PSECT descriptor lines look just like the
segment descriptor lines.
Digital Equipment Corporation 28-AUG-79 Page 419
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1915 14-Apr-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 0052 03-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Apr-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-May-79
2)
**************
1)1 DECEVR==1160 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1161 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1161 JNG 4-May-79 SPR 10-27727
2) ; Clean up Psect printout in map.
2) ; Routines: LNKSUB, LNKMAP.
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 420
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1921 25-Sep-1978
File 2) LINK:LNKMAP.MAC[10,645063] created: 0103 03-May-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 22-Sep-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 4-May-79
2)
**************
1)1 DECEVR==1120 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1161 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1161 Clean up printout of PSECT lengths.
2)
**************
1)31 MOVEI T1,[ASCIZ /Psect /]
1) PUSHJ P,.TSTRG##
1) MOVE T1,1(R) ;NAME
1) PUSHJ P,.TSIXN##
1) MOVEI T1,[ASCIZ / starts at /]
****
2)31 ;**;[1161] Change @ TTLPSC+5L JNG 4-May-79
2) MOVEI T1,[ASCIZ / Psect /] ;[1161]
2) PUSHJ P,.TSTRG##
2) MOVE T1,1(R) ;NAME
2) PUSHJ P,.TSIXB## ;[1161] TYPE WITH TRAILING BLANK
S
2) MOVEI T1,[ASCIZ / starts at /]
**************
1)31 MOVEI T1,[ASCIZ / (octal), /]
1) PUSHJ P,.TSTRG##
1) POP P,T1 ;LENGTH
1) PUSHJ P,.TDECW##
1) MOVEI T1,[ASCIZ /, (decimal)/]
1) PUSHJ P,.TSTRG##
****
2)31 ;**;[1161] Change @ TTLPSC+26L JNG 4-May-79
2) MOVEI T1,[ASCIZ / (octal),/] ;[1161]
2) PUSHJ P,.TSTRG##
2) MOVE T1,0(P) ;[1161] GET LENGTH AGAIN
2) PUSHJ P,.TDSPC ;[1161] ALIGN WORD TO COME
2) POP P,T1 ;LENGTH
2) PUSHJ P,.TDECW##
2) MOVEI T1,[ASCIZ /. (decimal)/] ;[1161]
2) PUSHJ P,.TSTRG##
Digital Equipment Corporation 28-AUG-79 Page 421
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 422
PCO Log Report
[FILCOM]
File 1) LINK:LNKSUB.MAC[30,4507] created: 1846 27-Apr-1978
File 2) LINK:LNKSUB.MAC[10,645063] created: 0041 03-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 27-Feb-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 4-May-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
2)
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1)
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1161 ;DEC EDIT VERSION
2)
**************
1)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
****
2)2 ;START OF VERSION 4A
2) ;1161 Add .TSIXB to .TSUBS
2)
2)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
**************
1)6 ENTRY .T6OCT,.TFOCT,.T6ZOC,.TDEP,.TOEP
1)
****
2)6 ENTRY .T6OCT,.TFOCT,.T6ZOC,.TDEP,.TOEP,.TSIXB
2)
**************
1)8
****
2)8 ;**;[1161] Insert @ .TOEP+7L JNG 4-May-79
2) ;TYPE SIXBIT WORD, BLANK FILLED
2) ;CALL:
2) ; T1/ WORD
2) ; PUSHJ P,.TSIXB
2) ;
2) ;USES T1,T2,T3
2)
2) .TSIXB::MOVEI T3,6 ;[1161] NUMBER OF CHARACTERS TO
TYPE
Digital Equipment Corporation 28-AUG-79 Page 423
PCO Log Report
2) MOVE T2,T1 ;[1161] SIXBIT WORD INTO T2
2) TSIXB2: SETZ T1, ;[1161] CLEAN AC
2) LSHC T1,6 ;[1161] NEXT CHAR INTO T1
2) ADDI T1,"0"-'0' ;[1161] CONVERT TO ASCII
2) PUSHJ P,.TCHAR## ;[1161] TYPE IT
2) SOJG T3,TSIXB2 ;[1161] LOOP OVER SIX CHARACTERS
2) POPJ P, ;[1161] RETURN
2)
2)
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 424
PCO Log Report
*********************
*PCO #:20-LINK -013*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 03-MAY-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] DDT/SYMS DDT COMMAN ILL INST
[Source Before Edit] %4A (001161)
[Source After Edit] %4A (001162)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:20-12825
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 425
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
UDDT cannot find any symbols when a program is loaded
with both /SAVE and /DEBUG in the same command string to
LINK. Also, the DDT command does not work if the resulting
EXE file is later set up with a GET command. Instead, the
user will get an illegal instruction at 770000.
**********
[DIAGNOSIS]
LINK does not set up DDT's symbol table pointers if is
creating an EXE file. Instead, it (incorrectly) sets up
.JBDDT.
**********
[CURE]
Set up the right things at the right times. Note that
this edit is an extract of edit 1144, and should not be
installed if edit 1144 has been installed. This edit will
not be present in any future release of LINK, because edit
1144 will be shipped instead.
Digital Equipment Corporation 28-AUG-79 Page 426
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.765[30,3737] created: 0218 03-May-1979
File 2) LINK:LNKHST.MAC[30,3737] created: 0219 03-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 27-FEB-7
8
1) ;COPYRIGHT (C) 1973, 1978 BY
1) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH 4-May-79
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
2) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1162 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)5 END ;OF LNKHST
****
2)4 ;START OF VERSION 4A
2) ;1162 JNG 4-May-79 SPR 20-12825
2) ; Set up DDT's symbol table pointers on /DEBUG/SAVE. This
edit is
2) ; an extract of edit 1144.
2) ; Routines: LNKXIT
2)5 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 427
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.765[30,3737] created: 0219 03-May-1979
File 2) LINK:LNKXIT.MAC[30,3737] created: 0222 03-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 4-May-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1162 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL ENTER HERE
****
2)4 ;START OF VERSION 4A
2) ;1162 Set up UDDT's symbol table pointers on /DEB/SAVE. Extra
ct of 1144.
2)5 SUBTTL ENTER HERE
**************
1)53 EXEINI: MOVEI T1,DC ;CHAN#
1) MOVEM T1,IO.CHN
****
2)53 ;**;[1162] Insert @ EXEINI JNG 4-May-79
2) EXEINI:
2) IFN TOPS20,<
2) SKIPE LW.S1 ;[1162] PAGE 0 IN CORE?
2) JRST EXEIN2 ;[1162] NO, FORGET IT
2) MOVE T1,LC.LB ;[1162] YES, POINT TO PAGE 0
2) HRRZ T2,.JBDDT(T1) ;[1162] GET DDT START ADDRESS
2) CAIE T2,770000 ;[1162] IS THIS UDDT?
2) JRST EXEIN2 ;[1162] NO, PROCEED
2) SETZM .JBDDT(T1) ;[1162] YES, DON'T WANT .JBDDT N
ON-ZERO
2) MOVE T2,JOB116 ;[1162] GET SYMBOL TABLE POINTER
2) MOVEM T2,@770001 ;[1162] SAVE IN DDT
2) MOVE T2,JOB117 ;[1162] GET UNDEFINED POINTER
2) MOVEM T2,@770002 ;[1162] SAVE IN DDT
2) EXEIN2: > ;END IFN TOPS20
2) MOVEI T1,DC ;CHAN#
2) MOVEM T1,IO.CHN
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 428
PCO Log Report
*********************
*PCO #:10-LINK -276*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1155)
[Date Entered] 08-MAY-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] .HIGH.
[Source Before Edit] %4A (001162)
[Source After Edit] %4A (001163)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 429
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
With edit 1155 installed, users must specify an origin
for the .HIGH. psect. If they don't, LINK fails with the
LNKRPN message.
**********
[DIAGNOSIS]
LINK sets the flags in the .HIGH. block from the
user's input. If the user didn't specify an origin, then
LINK marks .HIGH. as not having a known origin. This is OK
for most psects, but LINK will supply a default value for
.HIGH.'s origin if the user didn't specify one, so it
doesn't really apply to .HIGH..
**********
[CURE]
Don't set the relocatable psect bit in the .HIGH.
descriptor block.
Digital Equipment Corporation 28-AUG-79 Page 430
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0231 03-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1805 08-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-May-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 8-May-79
2)
**************
1)1 DECEVR==1162 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1163 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1163 JNG 8-May-79 QAR DC
2) ; Never mark .HIGH. as relocatable, since we default its o
rigin.
2) ; This was broken by edit 1155.
2) ; Routine: LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 431
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1643 13-Apr-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1801 08-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 13-Apr-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 8-May-79
2)
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1157 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1163 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1163 Fix edit 1155 to not mark .HIGH. as relocatable.
2)
**************
1)40 MOVEM T1,RC.AT(R) ;[1155] STORE
****
2)40 ;**;[1163] Insert @ SET3+12L JNG 8-May-79
2) TXZ T1,AT.RP ;[1163] .HIGH. ALWAYS HA
S AN ORIGIN
2) MOVEM T1,RC.AT(R) ;[1155] STORE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 432
PCO Log Report
*********************
*PCO #:10-LINK -277*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 09-MAY-79
[Programmer] GILBERT
[Routines] LNKMAP
[Key Words] 1B11 CLEAR BAD SYMS BAD MAP LS PAGING
[Source Before Edit] %4A (001163)
[Source After Edit] %4A (001164)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27598
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 433
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Some symbols may appear in the map and the runtime DDT
symbol table with incorrect values, typically zero. This
will only happen to symbols that appear late in the load,
and that are defined in terms of other external symbols. In
addition, bit 11 of some word in the program being loaded
may get zeroed.
This can only happen under the following circumstances:
1. The user has requested LINK to print a map.
2. The program being loaded is so large that LINK has
to overflow its LS area to disk.
This error is very dependent on memory layout, and can be
made to disappear by playing with the /MAXCOR or /HASHSIZE
switches, or by varying the job's virtual limit.
**********
[DIAGNOSIS]
If the LS area is paging to disk, then LNKMAP reads it
into an internal window a piece at a time in order to
process it and print the map. If the last partial piece
does not take up the entire window, then LINK zeroes the
unused part and returns it to free space, so it can be used
for other purposes. Unfortunately, the test to check for an
unused part is wrong, so LINK always thinks that at least
the last page of the window is unused. If the last piece of
the LS area exactly fills the window, then LINK will
erroneously zero the first page of the next area (the FX
area).
Clearing the first page of the FX area can obliterate
some symbol fixups that were destined for the last piece of
the LS area, resulting in symbols with incorrect values in
the map and the DDT symbol table. In addition, if LINK
Digital Equipment Corporation 28-AUG-79 Page 434
PCO Log Report
attempts to process an all-zero block as a valid fixup, it
will clear the undefined bit (1B11) in what it thinks is a
triplet in the LS area, but which is actually some word of
the program being loaded.
**********
[CURE]
Correct the test so that LINK will not try to zero or
return anything if the last piece of the LS area completely
fills the window.
Digital Equipment Corporation 28-AUG-79 Page 435
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1805 08-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2103 08-May-1979
1)1 DECEVR==1163 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1164 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1164 JNG 8-May-79 SPR 10-27598
2) ; Don't overwrite the first page of the FX area when writi
ng a map
2) ; if the LS area is paging and the last piece of the area
exactly
2) ; fits into the window.
2) ; Routine: LNKMAP
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 436
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 0103 03-May-1979
File 2) LINK:LNKMAP.MAC[10,645063] created: 2056 08-May-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 4-May-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 8-May-79
2)
**************
1)1 DECEVR==1161 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1164 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1164 Don't overwrite FX area in SHFSYM if no extra room.
2)
**************
1)36 CAMG T3,LSYM ;HAVE WE TOO MUCH ROOM NOW?
****
2)36 ;**;[1164] Insert @ SHFSYM+16L JNG 8-May-79
2) ANDCMI T3,.IPM ;[1164] FORM FIRST FREE IN ALL B
UT LAST PAGE
2) CAMG T3,LSYM ;HAVE WE TOO MUCH ROOM NOW?
**************
1)36 SHFSY1: ADDI T1,(T2) ;INPUT PTR
****
2)36 ;**;[1164] Insert @ SHFSYM+31L JNG 8-May-79
2) SUBI T2,.IPS ;[1164] LAST PAGE HAS ALREADY BE
EN COUNTED
2) SHFSY1: ADDI T1,(T2) ;INPUT PTR
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 437
PCO Log Report
*********************
*PCO #:10-LINK -278*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) TESTED IN 4A(1164)
[Date Entered] 16-MAY-79
[Programmer] D. NEFF
[Routines] LNKLOD
[Key Words] 60,50 FXUP
[Source Before Edit] % (000000)
[Source After Edit] %4A (001165)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27925
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 438
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
When loading programs that contain complicated symbol fixup
requests, various internal errors (such as illegal memory reads)
may occur. This will happen only when not loading local symbols,
or when local symbols have been removed from the .REL file (via
/NOLOCAL to MAKLIB).
**********
[DIAGNOSIS]
This problem is caused by the way that fixups to partially defined
symbols are done. A common case is a local symbol defined as the
value of an external symbol plus a constant. This is handled by
specifying a word pair in a symbol .REL block (type 2) that first
defines the local with the value of the constant. Then IMMEDIATELY
FOLLOWING this, another word pair requests the external with a
fixup request to the previous local. The fixup is only valid if
the symbol requested for fixup was the last symbol definition in
the .REL file. If it was not, the request should be ignored.
Unfortunately, if LINK is not loading locals, one of these special
fixup requests may `see' a very old symbol as the last loaded one
that just happens to match. LINK then believes that the fixup
should be done rather than ignored, usually leading to disaster.
**********
[CURE]
Whenever a check of a special fixup request matching the last
symbol loaded fails, forget what the last loaded symbol was. This
is valid since the rule that the symbol definitions must be
adjacent cannot be met until another symbol is actually loaded.
Digital Equipment Corporation 28-AUG-79 Page 439
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1747 10-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1612 15-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 8-May-79
1) ;COPYRIGHT (C) 1973, 1978, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-May-7
9
2) ;COPYRIGHT (C) 1973, 1978, 1979 BY
**************
1)1 DECEVR==1164 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1165 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1165 DZN 15-May-79 SPR 10-27925
2) ; Zero LSTSYM whenever a call to SY.RLS says a symbol requ
ested for symbol
2) ; table fixup was not the last symbol loaded. This prevent
s symbol fixup
2) ; requests from finding a long-obsolete symbol in LSTSYM t
hat just happens
2) ; to match.
2) ; Routine:LNKLOD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 440
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1457 16-Feb-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1737 15-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 16-Feb-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 15-May-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1143 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1165 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1165 Zero LSTSYM in SY.RLS if the symbol was rejected.
2)5 SUBTTL LOAD CONTROL
**************
1)54 JUMPE T1,[JUMPE T2,CPOPJ ;NO LOCALS, TRY GLOBAL
1) CAME W3,1(T2) ;IF IN GLOBAL TABLE
1) POPJ P, ;NO MATCH
1) JRST SYRLSM] ;GOT IT HERE
1) CAME W3,1(T1) ;SAME?
1) POPJ P, ;NO
1) SYRLSM: MOVE W3,LSTSYM ;YES, SET POINTER IN W3
****
2)54 ;**;[1165] Replace @SY.RLS+7L DZN 15-May-79
2) JUMPE T1,[JUMPE T2,SYRLSZ ;[1165] NO LOCALS, TRY G
LOBAL
2) CAME W3,1(T2) ;IF IN GLOBAL TABLE
2) JRST SYRLSZ ;[1165] NO MATCH
2) JRST SYRLSM] ;GOT IT HERE
2) CAME W3,1(T1) ;SAME?
2) JRST SYRLSZ ;[1165] NO
2) SYRLSM: MOVE W3,LSTSYM ;YES, SET POINTER IN W3
**************
1)55 SUBTTL COMPILER SPECIFIC ROUTINES
****
2)54 ;**;[1165] Insert after CPOPJ DZN 15-May-79
2) SYRLSZ: SETZM LSTSYM ;[1165] DON'T CONFUSE SYMBOLS DO
WN THE PIKE
2) POPJ P, ;[1165]
2)55 SUBTTL COMPILER SPECIFIC ROUTINES
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 441
PCO Log Report
*********************
*PCO #:10-LINK -279*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 17-MAY-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] POLISH SET PSECT ILLEGAL BL LNKIPX
[Source Before Edit] %4A (001165)
[Source After Edit] %4A (001166)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 442
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a Polish block does not contain a default PSECT
index in the first halfword, but does contain an embedded
PSECT index later on, LINK will take the embedded PSECT
index as the default PSECT index. This is actually an
illegally formatted Polish block, but a plausible one for a
new compiler to generate.
**********
[DIAGNOSIS]
LINK identifies the default PSECT for a Polish block as
the first set PSECT byte seen in the block. The
documentation states that a Polish block that uses PSECTs
must have a set PSECT byte as the first half word.
**********
[CURE]
Identify the default PSECT for the Polish block by
checking the first byte of the Polish block to see if it is
a set PSECT byte, and snarfing it if so. If not, remember
that this Polish block is not allowed to contain PSECTs, and
give the LNKIPX error if a set PSECT byte is seen later in
the block.
Digital Equipment Corporation 28-AUG-79 Page 443
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1612 15-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1915 15-May-1979
1)1 DECEVR==1165 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1166 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1166 JNG 15-May-79
2) ; Don't allow PSECT indices in Polish blocks unless the fi
rst halfword
2) ; was the default PSECT index for the block.
2) ; Routine: LNKOLD.
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 444
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 0812 17-Apr-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1934 15-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 13-Apr-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 15-May-7
9
2)
**************
1)1 DECEVR==1156 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1166 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1166 Make sure default PSECT index is first half word in T.11
.
2)
**************
1)67 ;FALL THRU
1)
****
2)67
2)
2) ;FALL INTO NEXT PAGE
2)
2)68 ;**;[1166] Replace @ T.11+19L JNG 15-May-79
2) PUSHJ P,RB.1 ;[1166] READ FIRST WORD
2) JRST T.11CS ;[1166] EMPTY?
2) HLRZ T1,W1 ;[1166] GET FIRST HALF WORD
2) CAILE T1,MXPLOP ;[1166] A PSECT INDEX?
2) CAIL T1,-STRLEN ;[1166] MAYBE, IS IT?
2) JRST T11RD2 ;[1166] NO, FORGET IT
2) MOVEI P4,-377777(T1) ;[1166] YES, SET IT AS DEFAULT
2) CAMLE P4,RC.NO ;[1166] IN RANGE?
2) JRST T11IPX ;[1166] NO, ERROR
2) MOVEM P4,RC.CUR ;[1166] SET FOR NEXT WORD
2) JRST T11RD2 ;[1166] ENTER MAIN LOOP
2)
2)
**************
1)68 HLRZ T1,W1 ;GET LHS
1) HRRZ T2,W1 ;GET RHS
****
2)68 ;**;[1166] Add label @ T.11RD+2L JNG 15-May-79
2) T11RD2: HLRZ T1,W1 ;[1166] GET LHS
Digital Equipment Corporation 28-AUG-79 Page 445
PCO Log Report
2) HRRZ T2,W1 ;GET RHS
**************
1)68 CAILE T1,RC.NO ;MAKE SURE VALID
1) JRST T11IPX ;INVALID
1) MOVEM T1,RC.CUR ;SET FOR NEXT READ
1) SKIPN P4 ;ALREADY BEEN SET?
1) MOVE P4,T1 ;NO, THIS IS FIRST TIME
1) HRRO P4,P4
1) T11RHS: JUMPE T2,T11GRF ;18 BIT VALUE FOLLOWING
****
2)68 ;**;[1166] Replace @ T.11RD+16L JNG 15-May-79
2) CAMLE T1,RC.NO ;[1166] MAKE SURE VALID
2) JRST T11IPX ;INVALID
2) MOVEM T1,RC.CUR ;SET FOR NEXT READ
2) JUMPE P4,T11IPX ;[1166] PSECT INDEX ILLEGAL IF 1
ST BYTE WASN'T
2) HRRO P4,P4
2)
2) ;FALL THROUGH TO NEXT PAGE
2)
2)69 T11RHS: JUMPE T2,T11GRF ;18 BIT VALUE FOLLOWING
**************
1)68 CAILE T2,RC.NO ;MAKE SURE VALID
1) JRST T11IPX ;INVALID
1) MOVEM T2,RC.CUR ;SET FOR NEXT READ
1) SKIPN P4 ;INCASE, THIS IS THE FIRST PSECT
INX IN THIS BLK
1) MOVE P4,T2 ; THEN SAVE IT
1) HRRO P4,P4 ;SIGNAL MIGHT TAKE TWO WORDS
****
2)69 ;**;[1166] Replace @ T11RHS+12L JNG 15-May-79
2) CAMLE T2,RC.NO ;[1166] MAKE SURE VALID
2) JRST T11IPX ;INVALID
2) MOVEM T2,RC.CUR ;SET FOR NEXT READ
2) JUMPE P4,T11IPX ;[1166] ENFORCE DEFAULT PSECT IN
DEX FIRST BYTE
2) HRRO P4,P4 ;SIGNAL MIGHT TAKE TWO WORDS
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 446
PCO Log Report
*********************
*PCO #:10-LINK -280*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 18-MAY-79
[Programmer] GILBERT
[Routines] LNKSCN
[Key Words] SYMBOL NAM INITIAL DI
[Source Before Edit] %4A (001166)
[Source After Edit] %4A (001167)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-Q3081
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 447
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Users can define symbols whose names are all digits
using LINK switches such as /SET or /DEFINE. This causes
user confusion when using DDT, and does not catch some user
errors in commnad strings to LINK.
**********
[DIAGNOSIS]
LINK's command scanner is too permissive.
**********
[CURE]
Require symbol names to start with a non-digit.
Digital Equipment Corporation 28-AUG-79 Page 448
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1915 15-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2155 17-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-May-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 17-May-7
9
2)
**************
1)1 DECEVR==1166 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1167 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1167 JNG 17-May-79 QAR 10-3081
2) ; Don't allow symbols typed as switch arguments to begin w
ith digits.
2) ; Routines: LNKSCN
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 449
PCO Log Report
[FILCOM]
File 1) LINK:LNKSCN.MAC[30,4507] created: 1836 05-Oct-1978
File 2) LINK:LNKSCN.MAC[10,645063] created: 2318 17-May-1979
1)1 TITLE LNKSCN - INTERFACE TO SCAN FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 5-Oct-78
1)
****
2)1 TITLE LNKSCN - INTERFACE TO SCAN FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 17-May-79
2)
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)
****
2)1 ;COPYRIGHT (C) 1973, 1978, 1979 BY DIGITAL EQUIPMENT CORPORATION
, MAYNARD, MASS.
2)
**************
1)1 DECEVR==1122 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1167 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1167 Don't allow symbol names to start with digits.
2)
**************
1)18 SYMS3: SUBI C," "-' ' ;CONVERT TO SIXBIT
1) TLNE T1,(77B5) ;DON'T OVERFLOW
****
2)18 ;**;[1167] Insert @ SYMS3 JNG 17-May-79
2) SYMS3: JUMPE N,[CAIL C,"0" ;[1167] IF FIRST CHAR, IS IT A D
IGIT?
2) CAILE C,"9" ;[1167] MAYBE, IS IT?
2) JRST .+1 ;[1167] NO, FIRST CHAR IS OK
2) POPJ P,] ;[1167] DON'T ALLOW FIRST CHAR T
O BE A DIGIT
2) SUBI C," "-' ' ;CONVERT TO SIXBIT
2) TLNE T1,(77B5) ;DON'T OVERFLOW
**************
1)19 SYOS1: PUSHJ P,.TICAN## ;SEE IF CHARACTER IS ALPHA-NUMER
IC
1) JRST [CAIN C,"#" ;NO, BUT IS IT OCTAL
****
2)19 ;**;[1167] Remove label @ SYOS1 JNG 17-May-79
2) PUSHJ P,.TICAN## ;[1167] SEE IF CHARACTER IS ALPH
A-NUMERIC
Digital Equipment Corporation 28-AUG-79 Page 450
PCO Log Report
2) JRST [CAIN C,"#" ;NO, BUT IS IT OCTAL
**************
1)19 JRST SYOS2] ;END OF OCTAL NUMBER
1) TLNN T1,(77B5) ;SEEN SIX YET?
1) JRST SYOS2 ;YES, AND ALL NUMERIC, SO MUST B
E OCTAL
1) CAIL C,"0" ;IF ALPHABETIC
1) CAILE C,"7"
1) JRST SYMS3 ;WE'VE GOT A SYMBOL
1) SUBI C," " ;CONVERT TO SIXBIT
1) IDPB C,T1 ;DON'T KNOW WHICH YET
1) PUSHJ P,.TIAUC## ;GO GET ANOTHER CHARACTER
1) JRST SYOS1 ;PROCESS IT
1)
1) ;HERE WHEN SIXBIT WORD IS OCTAL (THROUGH FIRST SIX CHARS)
1) ;CONVERT SIXBIT SYMBOL INTO RIGHT JUSTIFIED OCTAL
1)
1) SYOS2: PUSH P,N+1 ;GET A SPARE ACC
1) LSHC N,-^D36 ;LEFT JUST SYMBOL IN LOWER ACC,
CLEAR RECEIVING ACC
1) LSH N+1,3 ;GET RID OF TOP 3 BITS
1) LSHC N,3 ;SHIFT IN LOWER 3 BITS (OCTAL NU
MBER)
1) JUMPN N+1,.-2 ;LOOP FOR ALL SYMBOL
1) POP P,N+1 ;RESTORE ACC
1) SYOS3: CAIL C,"0" ;SEE IF OCTAL
1) CAILE C,"7"
1) POPJ P, ;NO, DONE
1) LSH N,3 ;YES, MULTIPLY NUMBER
1) ADDI N,-"0"(C) ;INCORPORATE DIGIT
1) PUSHJ P,.TIAUC## ;GET NEXT CHAR
1) JRST SYOS3 ;LOOP BACK
1)
****
2)19 ;**;[1167] Revamp @ SYOS1+8L JNG 17-May-79
2) POPJ P,] ;[1167] TERMINATOR
2) CAIL C,"0" ;[1167] DIGITS?
2) CAILE C,"9" ;[1167] ?
2) JRST SYMS3 ;[1167] NO, MUST BE A SYMBOL
2) JRST .OCTNC## ;[1167] OCTAL NUMBER
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 451
PCO Log Report
*********************
*PCO #:10-LINK -281*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+1146 TESTED IN 4A(1167)
[Date Entered] 21-MAY-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] MEM MGT LNKXIT BUG NO EXE FIL
[Source Before Edit] % (000000)
[Source After Edit] %4A (001170)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27945
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 452
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
There are several problems with LINK's memory management
near the end of loading, when LINK is setting up the user's
program in memory. Note that the errors listed below can
only happen if LINK is NOT generating an EXE file. The
specific symptoms fixed by this edit are as follows:
1. LINK can leave zeros in place of a large portion of
the user's high segment when it leaves the loaded
program set up in memory. This error is much more
likely if the command string to LINK contains the
/MAXCOR switch.
2. If the low segment ends with a module that declares
a larger program break than it actually loaded,
then LINK may load the program with insufficient
memory to run. This will cause illegal memory
references when the program runs.
3. LINK can get an illegal memory reference near the
end of loading. Closer inspection will reveal that
the failure occurred on a BLT instruction.
4. After edit 1146 has been installed, LINK is very
slow loading small programs on TOPS-20. It can
also be slow on TOPS-10 if the user specified a
/CORE switch with an argument which was so large
that LINK was forced to go virtual.
**********
[DIAGNOSIS]
1. If LINK decides that it has enough memory to leave
the program loaded into memory, it will allocate
two large arrays, one for the low segment and one
for the high segment. To fill these arrays with
the program, it will BLT that portion of the
Digital Equipment Corporation 28-AUG-79 Page 453
PCO Log Report
program already somewhere in memory into its proper
place in the array(s). If either segment is paging
to disk, then LINK will fill the rest of the array
for that segment by reading the data in from the
overflow file.
The problem arises when LINK had to overflow an
area to disk earlier in the load, but now decides
that it will all fit into memory after all (this is
unlikely unless the user has artificially
restricted the amount of memory available to LINK
via the /MAXCOR switch). In this case, the portion
of the segment currently in memory is just a window
into the overflow file which contains the entire
segment, and LINK will try to move this window
buffer into the array at the proper place.
Unfortunately, the window is usually pointing to
the very end of the overflow file, and contains
several pages that are actually off the end of the
file. This causes a problem because the array was
allocated based on the actual size of the overflow
file, and does not provide for the extra pages in
the window buffer. When LINK tries to move the
entire window into the segment array, it will BLT
past the end of the array and overwrite several
pages following the array, usually either the next
segment or illegal memory.
2. LINK is not taking the extra memory into account in
its decision to load the program into memory or to
write an .EXE file.
3. When LINK allocates an array for the program's high
segment as described in (1), it allocates the size
based on the entire size of the high segment,
including any area allocated but not loaded at the
end of the high segment. If not paging the high
segment to disk, it then moves the entire high
segment into its new area with a BLT instruction,
based on the size of the new area. Unfortunately,
the old area that contained the high segment did
not include the non-loaded area at the end, so the
BLT can be moving more data than the old area
contained. If the old area was near the top of
memory (which it usually will be), this excess will
result in an illegal memory reference.
Illegal memory references can also be produced by
problem (1).
4. After LINK has finished moving both segments to
Digital Equipment Corporation 28-AUG-79 Page 454
PCO Log Report
their new homes and compressing out the free space
between them, it tries to reduce the size of the
low segment to the minimum necessary, then clear
the last partial-page gaps remaining between the
segments. Unfortunately, the code to reduce the
size of LINK's low segment is not even reached
unless the program being loaded has a high segment,
and even then the test to decide whether to reduce
the low segment size is backwards, so LINK will
never actually shrink. This means that it can
potentially end up clearing many "extra" pages,
instead of just a few partial pages.
This extra clearing will not cause much problem on
TOPS-10 systems, since the low segment usually
isn't too much bigger than it needs to be (unless
forced to be so by the user with /CORE). On
TOPS-20, however, LINK's low segment starts out at
maximum size, and stays that way throughout the
load. Under these conditions, this BLT will clear
about 300 extra pages, which can more than triple
the time needed to load a small program.
**********
[CURE]
1. Only move the valid portion of the window buffer
into the segment array.
2. Modify the memory check to include this case.
Note however that if execution was also requested
in the load but there is still not enough memory to
run the program, then the monitor message `?nP of
core needed' will result. This can only be fixed
by increasing the job's physical and/or virtual
limits.
3. Allocate the new high segment array based only on
the portion of the high segment before the last
non-loaded part. This is already the way that the
low segment allocation is done.
4. Fix the flow of control to always get to the low
segment reduction check, and then fix the sense of
the check.
Digital Equipment Corporation 28-AUG-79 Page 455
PCO Log Report
These problems were all fixed as one edit because they are
all in the same section of code, and could not have been
easily split out into different edits.
This edit requires edit 1146 to be installed.
Digital Equipment Corporation 28-AUG-79 Page 456
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.OLD[30,3737] created: 1553 29-May-1979
File 2) LINK:LNKHST.MAC[30,3737] created: 1547 29-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-May-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-May-7
9
2)
**************
1)1 DECEVR==1167 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1170 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1170 JNG 23-May-79 SPR 10-27945, QAR 10-3070, 10-30
87
2) ; Fix some memory management problems in LNKXIT when not w
riting an
2) ; EXE file.
2) ; Routine: LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 457
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[10,400000] created: 1934 15-May-1979
File 2) LINK:LNKOLD.MAC[30,3737] created: 2159 22-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 15-May-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 23-May-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1166 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1170 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1170 Set up HC.S2 in SETRC in case hiseg contains only BLOCKs
.
2)5 COMMENT \
**************
1)42 IFE TOPS20,<
1) ; CAIL W1,400000 ;ERROR IF LESS THAN 128K>
1) CAMG W1,RC.CV(R) ;BUT MUST BE HIGHER THAN LOW SEG
1) JRST T.3F ;TOO LOW
1) ;**;[1132] Delete @ SETRC+13L JNG 30-Jan-79
****
2)42 ;**;[1170] Replace @ SETRC+9L JNG 23-May-79
2) CAMG W1,RC.CV(R) ;BUT MUST BE HIGHER THAN LOW SEG
2) JRST T.3F ;TOO LOW
2) MOVEI T1,.JBHDA ;[1170] SIZE OF VESTIGIAL JOBDAT
2) MOVEM T1,HC.S2 ;[1170] STORE IN CASE NOTHING EL
SE LOADED
2) ;**;[1132] Delete @ SETRC+13L JNG 30-Jan-79
**************
Digital Equipment Corporation 28-AUG-79 Page 458
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[10,400000] created: 1916 14-Apr-1979
File 2) LINK:LNKXIT.MAC[30,3737] created: 1711 24-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Apr-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 23-May-79
2)
**************
1)1 DECEVR==1160 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1170 ;DEC EDIT VERSION
2)
**************
1)6
****
2)6 ;1170 Fix core management problems when not writing an EXE fil
e.
2)
**************
1)44 SKIPE HC.S2 ;[1146] HITS HIGH SEG (IF ANY)
WHICH CHECKS
1) CAMG T1,LL.S2 ;[1146] FOR PSECTS ABOVE HIGH
SEG ORIGIN
****
2)44 ;**;[1170] Change @ SAVTST+9L JNG 23-May-79
2) SKIPE LL.S2 ;[1170] HITS HIGH SEG (IF ANY)
WHICH CHECKS
2) CAMG T1,LL.S2 ;[1146] FOR PSECTS ABOVE HIGH
SEG ORIGIN
**************
1)45 ;COMPUTE HOW MUCH MEMORY IT WILL TAKE TO HOLD THE PROGRAM.
1)
****
2)45 ;COMPUTE HOW MUCH MEMORY IT WILL TAKE TO HOLD THE PROGRAM DURING
THE LAST STAGES
2) ;OF LOADING, AND MAKE SURE THAT WE CAN GET THAT MUCH. IF WE C
AN'T, THEN THE
2) ;PROGRAM IS TOO COMPLEX. THERE ARE TWO SIZES TO WORRY ABOUT:
2) ;
2) ; 1. LINK'S LOW SEGMENT + THE PROGRAM'S ACTUALLY LOADED LOW
SEGMENT (DOESN'T
2) ; COUNT BLOCK'S AT THE END OF THE LOW SEGMENT) + THE PROGR
AM'S ACTUALLY
2) ; LOADED HIGH SEGMENT. THIS IS THE MEMORY REQUIREMENT IN J
BLOAD.
2) ;
2) ; 2. THE PROGRAM'S ENTIRE LOW SEGMENT + HIGH SEGMENT. TH
IS IS THE MEMORY
Digital Equipment Corporation 28-AUG-79 Page 459
PCO Log Report
2) ; REQUIREMENT IN THE FINAL EXIT CODE AT %5. NOTE THAT WE
MUST REMEMBER
2) ; THAT WE HAVE A HIGH SEGMENT NOW BUT WON'T THEN.
2)
**************
1)45 SKIPE HC.S2 ;[1146] HIGH SEG EXISTS
1) CAMGE T1,LL.S2 ;[1146] AND ORIGIN BELOW WHERE
WE CAN PUT IT?
****
2)45 ;**;[1170] Change @ SAVTS3+1P7L JNG 23-May-79
2) SKIPE LL.S2 ;[1170] HIGH SEG EXISTS
2) CAMGE T1,LL.S2 ;[1146] AND ORIGIN BELOW WHERE
WE CAN PUT IT?
**************
1)45 SKIPN PAG.S1 ;[1146] PAGING LOW SEGMENT
1) SKIPE PAG.S2 ;[1146] OR HIGH SEG?
1) SKIPA ;[1146] YES--SEE IF ALL WILL FIT
IN
1) JRST JBLOAD ;[1146] NO--IT FITS NOW SO JUST
SHUFFLE
1) ADD T1,HL.S2 ;[1146] ADD LENGTH OF HIGH SEGME
NT
1) IOR. T1,.PGSIZ ;[1146] ..
1) TLNE T1,-1 ;[732] OVERFLOWED INTO THE LH?
****
2)45 ;**;[1170] Replace @SAVTS3+1P11L DZN 18-May-79
2) ADD T1,HC.S2 ;[1170] ADD LENGTH OF HIGH SEGME
NT
2) IOR. T1,.PGSIZ ;[1146] ..
2) HRRZ T2,.JBHRL## ;[1170] DON'T COUNT SIZE OF CURR
ENT HIGH SEG
2) SUB T2,HIORGN ;[1170] ..
2) MOVNI T2,2(T2) ;[1170] ..
2) ADD T2,HL.S1 ;[1170] + ENTIRE PROGRAM LOW SEG
2) IOR. T2,.PGSIZ ;[1170] ROUNDED TO A PAGE
2) ADD T2,HL.S2 ;[1170] + ENTIRE PROGRAM HIGH SE
G
2) IOR. T2,.PGSIZ ;[1170] ROUNDED TO A PAGE TOO
2) CAMGE T1,T2 ;[1170] PICK MAX OF TWO
2) MOVE T1,T2 ;[1170] ..
2) TLNE T1,-1 ;[732] OVERFLOWED INTO THE LH?
**************
1)98 JBLOAD: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
1) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
****
2)98 ;**;[1070] Insert @ JBLOAD JNG 23-May-79
2) JBLOAD: MOVE T1,[HC.IX+1-HG.TAB,,HC.IX+1] ;[1070] AOBJN PT
R TO AREAS
2) PUSHJ P,XX.ZAP ;[1070] CLEAR ALL AREAS ABOVE HC
Digital Equipment Corporation 28-AUG-79 Page 460
PCO Log Report
2) AOBJN T1,.-1 ;[1070] SINCE CORE MGT BELOW A
SSUMES THEM GONE
2) DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
2) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
**************
1)98 JUMPE P2,[HRRZ T1,.JBREL
1) MOVEM T1,LC.UB ;IGNORE IF NO HIGH SEG
1) JRST JBGCL] ;BUT RESET UPPER LIMIT
1) ADDI T1,1 ;LOWER BOUND FOR HISEG
1) MOVEM T1,HC.LB ;RESET IT
1) ADD T1,HL.S2 ;HIGHEST LOC WE NEED
1) ;**;[1146] Insert before JBGC+16L DZN 8-Mar-79
****
2)98 ;**;[1170] Change @ JBLOAD+12L JNG 23-May-79
2) JUMPE P2,JBGCL ;[1170] GO MOVE IF NO HI SEG
2) ADDI T1,1 ;LOWER BOUND FOR HISEG
2) MOVEM T1,HC.LB ;RESET IT
2) ADD T1,HC.S2 ;[1170] HIGHEST LOC WE NEED
2) ;**;[1146] Insert before JBGC+16L DZN 8-Mar-79
**************
1)99 JBGC1: ;NOW FOR MOVES
1) ;MAKE TWO SIMPLE TESTS FIRST
1) ;THEN MOVE IN HIGH AND LOW CODE
1) JUMPE P2,JBGCL ;ONLY LOW CODE TO WORRY ABOUT
1) CAMGE P2,HC.LB ;IF BOTTOM OF CODE IS UNDER WHER
E IT SHOULD BE
1) JRST JBGCHU ;MOVE IT UP (TO CORRECT PLACE)
1) CAMLE P3,LC.AB ;IF TOP OF LOW IS ABOVE WHERE IT
SHOULD BE
1) JRST JBGCLD ;MOVE LOWER
1)
1) JBGCH: ;NOW FOR HIGH SEG
1) SKIPN T1,HC.UB ;FIRST GET RID OF EXCESS CORE IF
ANY
1) MOVE T1,LC.UB ;NO HIGH USE LOW
1) CAMLE T1,.JBREL ;BUT DON'T WASTE TIME IF ALREADY
THERE
1) CORE T1,
1) JFCL ;TOO BAD
1) JUMPE P2,JBGCL ;NO HIGH
1) MOVEI R,HC.IX ;INDEX TO HIGH
****
2)99 ;FALL IN FROM ABOVE IFF WE HAVE A HIGH SEGMENT (HC AREA)
2) ;NOW DO THE FOLLOWING:
2) ;
2) ; 1. IF THE LC AREA IS SO HIGH THAT IT MIGHT GET OVERWRITTEN
WHEN WE MOVE THE
2) ; HC AREA TO WHERE IT BELONGS, THEN MOVE THE LC AREA DOWN
OUT OF THE WAY.
Digital Equipment Corporation 28-AUG-79 Page 461
PCO Log Report
2) ; 2. MOVE THE HC AREA TO WHERE IT BELONGS, AND READ IN ANY DA
TA STILL OUT IN
2) ; OVERFLOW FILES.
2) ; 3. MOVE THE LC AREA TO WHERE IT BELONGS, AND READ IN ANY DA
TA STILL OUT IN
2) ; OVERFLOW FILES.
2) ; 4. DO A CORE UUO TO GET RID OF CORE FOR TABLES NO LONGER NE
EDED.
2) ; 5. MAKE SURE THE CORE BETWEEN AREAS IS STILL ZERO AFTER ALL
THIS MOVING.
2) ;
2) ;ENTER FROM ABOVE AT JBGCL (STEP 3) IF WE DON'T HAVE A HIGH SEG.
2)
2) ;**;[1170] Replace @ JBGC1 JNG 23-May-79
2) MOVEI R,LC.IX ;[1170] POINT TO LOW SEG FOR JBC
GM
2) CAMLE P3,LC.AB ;[1170] MIGHT LC AREA BE WIPED B
Y MOVING HC?
2) PUSHJ P,JBGCM ;[1170] YES, MOVE LC AREA FIRST
2) MOVEI R,HC.IX ;INDEX TO HIGH
**************
1)99 ;NOW TO ZERO ALL SPACE NOT USED
****
2)99 ;**;[1170] Insert @ JBGCL+3L JNG 23-May-79
2) SKIPN T1,HC.UB ;[1170] GET LAST LOCATION USED
2) MOVE T1,LC.UB ;[1170] NO HI SEG, END OF LOW IS
LAST USED
2) IOR. T1,.PGSIZ ;[1170] UP TO PAGE BOUND IF NEED
ED
2) CAME T1,.JBREL ;[1170] ALREADY THE RIGHT SIZE?
2) CORE T1, ;[1170] NO, SHRINK DOWN (OR GROW
???)
2) JFCL ;[1170] ALREADY WAS THE RIGHT SI
ZE
2) ;NOW TO ZERO ALL SPACE NOT USED
**************
1)99 SETZM T1,-1(T1) ;CLEAR FIRST WORD
1) BLT T1,@TAB.UB(R) ;AND REST
****
2)99 ;**;[1170] Change @ JBGCZ+5L JNG 23-May-79
2) SETZM -1(T1) ;[1170] CLEAR FIRST WORD
2) BLT T1,@TAB.UB(R) ;AND REST
**************
1)100 ;**;[1146] Swap pages @JBGCMV and JBGCHU DZN 8-Mar-79
1) JBGCHU: ;HERE TO MOVE HIGH UP
1) ;USUAL REVERSE BLT IN T1-T4
1) MOVE T1,HC.LB ;WHERE BOTTOM SHOULD BE
1) SUBI T1,(P2) ;WHERE IT NOW IS (GIVES DIFF)
1) ADD T1,LW.S2 ;ADD IN WINDOW ADDRESS
1) MOVE T4,P4 ;FIND LENGTH TO MOVE
1) SUBI T4,-1(P2)
Digital Equipment Corporation 28-AUG-79 Page 462
PCO Log Report
1) MOVS T4,T4 ;LENGTH IN LEFT
1) HRR T4,P4 ;TOP OF OLD DATA
1) TLO T4,(1B0) ;PREVENT PDLOV
1) HRLI T1,(POP T4,0(T4))
1) MOVE T2,[JUMPL T4,T1]
1) MOVE T3,[JRST JBGCH]
1) MOVE P2,HC.LB ;NOW FIXUP P2
1) ADD P2,LW.S2 ;SO WE DON'T MOVE THIS STUFF AGA
IN
1) JRST T1 ;JUMP INTO FAST LOOP
1)
1) JBGCLD: ;HERE TO MOVE LOW DOWN
1) MOVE T1,LC.LB ;START OF WHERE LOW CODE GOES
1) ADD T1,LW.S1 ;WHERE THIS WINDOW GOES
1) MOVE T2,T1 ;COPY SO WE CAN END
1) HRL T1,P1 ;BLT WORD
1) SKIPN UW.S1 ;MAY NOT BE PAGING
1) SKIPA T2,LC.AB ;SO USE ALL OF AVAILABLE CORE
1) ADD T2,UW.S1 ;WHERE IT SHOULD END
1) BLT T1,0(T2) ;MOVE ALL DATA
1) MOVE P1,LC.LB ;FIXUP P1 TO REFLECT CHANGE
1) ADD P1,LW.S1 ;SO WE DON'T MOVE AGAIN
1) JRST JBGCH ;NOW DO INTERNAL MOVES
1)
1)101 ;**;[1146] (Swapped as noted above). Make minor changes below.
****
2)100 ;**;[1170] Delete @ JBGHCU JNG 23-May-79
2) ;**;[1146] (Swapped as noted above). Make minor changes below.
**************
1)101 PUSHJ P,[CAMG T1,P0(R) ;OTHERWISE MOVE UP OR DO
WN
1) ;**;[1146] Replace @JBGCMV+4L DZN 8-Mar-79
1) PJRST JBGCD ;[1146] DOWN
1) PJRST JBGCU] ;[1146] UP
1) ;NOW FOR REST OF CODE
****
2)100 ;**;[1170] Replace @ JBGCMV+3L JNG 23-May-79
2) PUSHJ P,JBGCM ;[1170] MOVE THE AREA, UP OR DOW
N
2) ;NOW FOR REST OF CODE
**************
1)101 JRST .+5 ;JUST IGNORE
1) EXCH T1,UW.S0(R) ;GET BASE
****
2)100 ;**;[1170] Replace @ JBGCMV+17L JNG 23-May-79
2) POPJ P, ;[1170] ALL DONE
2) EXCH T1,UW.S0(R) ;GET BASE
**************
1)101 PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R)
Digital Equipment Corporation 28-AUG-79 Page 463
PCO Log Report
1) ;NOW TO ZERO JUNK AT TOP
1) HRRZ T1,TAB.AB(R) ;TOP IN USE OR KNOWN TO BE ZERO
1) CAMN T1,TAB.UB(R) ;ALL TAKEN?
1) POPJ P, ;YES
1) HRLI T1,1(T1) ;FIRST TO ZERO
1) SETZM 1(T1) ;CLEAR IT
1) ADDI T1,2 ;FORM BLT PTR
1) BLT T1,@TAB.UB(R) ;ALL THE WAY
1) POPJ P, ;ALL DONE
1)
1)102 ;HERE TO MOVE WINDOW UP IN EITHER AREA
1) ;ENTER WITH R=1 FOR LOW
1) ;R=2 FOR HIGH
1)
1) JBGCU: ;HERE TO MOVE UP
1) ;USUAL REVERSE BLT IN T1-T4
1) MOVE T1,TAB.LB(R) ;WHERE BOTTOM SHOULD BE
1) SUB T1,P0(R) ;WHERE IT NOW IS (GIVES DIFF)
1) ADD T1,LW.S0(R) ;ADD IN WINDOW ADDRESS
1) MOVE T4,P2(R) ;FIND LENGTH TO MOVE
1) SUB T4,P0(R)
1) ADDI T4,400001 ;PREVENT PDLOV, INCREMENT LENGTH
CORRECTLY
1) MOVS T4,T4 ;LENGTH IN LEFT
1) HRR T4,P2(R) ;TOP OF OLD DATA
1) HRLI T1,(POP T4,0(T4))
1) MOVE T2,[JUMPL T4,T1]
1) MOVSI T3,(POPJ P,)
1) PJRST T1 ;JUMP INTO FAST LOOP
1)
1) JBGCD: ;HERE TO MOVE DOWN
1) SKIPN PAG.S0(R) ;IF NOT PAGED
1) JRST JBGCN ;USE DIFFERENT ROUTINE
1) MOVE T1,TAB.LB(R) ;START OF WHERE LOW CODE GOES
1) ADD T1,LW.S0(R) ;WHERE THIS WINDOW GOES
1) MOVE T2,T1 ;COPY SO WE CAN END
1) HRL T1,P0(R) ;BLT WORD
1) ADD T2,UW.S0(R) ;WHERE IT SHOULD END
1) BLT T1,0(T2) ;MOVE ALL DATA
1) POPJ P,
1)
1) JBGCN: ;MOVE DOWN WHEN NOT PAGED
1) MOVE T1,TAB.LB(R) ;START OF WHERE LOW CODE GOES
1) HRL T1,P0(R) ;WHERE IT IS NOW
1) BLT T1,@TAB.AB(R) ;MOVE IT ALL
1) POPJ P,
1)
****
2)100 ;**;[1170] Replace @ JBGCMV+19L JNG 23-May-79
Digital Equipment Corporation 28-AUG-79 Page 464
PCO Log Report
2) PJRST @[EXP LC.IN##,HC.IN##]-1(R) ;[1170] READ IT
IN AND RETURN
2)
2)101 ;**;[1170] Revamp @ JBGCU JNG 23-May-79
2) ;SUBROUTINE TO MOVE AN AREA TO ITS FINAL RESTING PLACE.
2) ;CALL WITH:
2) ; R/ INDEX TO SEGMENT, ??.IX
2) ; P1-P4/ OLD LB/AB OF AREAS
2) ; ??.LB&AB/ NEW LB/AB OF AREAS
2) ;
2) ;UPDATES P1-P4 TO INDICATE THE AREA HAS BEEN MOVED.
2) ;THIS SUBROUTINE USES BLTS, A PIECE AT A TIME IF OVERLAPPING UPW
ARDS.
2)
2) JBGCM: MOVE W1,HC.S0(R) ;[1170] FIRST, CALCULATE LAST DE
ST+1
2) SUBI W1,1 ;[1170] DEPENDS ON IF PAGING, AN
D
2) IORI W1,.IPM ;[1170] WHERE WINDOW IS IF SO
2) SKIPE PAG.S0(R) ;[1170] PAGING?
2) CAMG W1,UW.S0(R) ;[1170] YES, DOES WINDOW POINT T
O END OF AREA?
2) CAIA ;[1170] NOT PAGING OR WINDOW AT
END
2) MOVE W1,UW.S0(R) ;[1170] WINDOW IN MIDDLE, STOP B
LT AT UW
2) ADDI W1,1 ;[1170] CONVERT LAST DEST TO FIR
ST NOT TOUCHED
2) ADD W1,TAB.LB(R) ;[1170] FORM ABSOLUTE ADDRESS
2) MOVE T1,TAB.LB(R) ;[1170] NOW CALCULATE FIRST DEST
INATION ADDR
2) ADD T1,LW.S0(R) ;[1170] WHERE CURRENT WINDOW GOE
S IN NEW LC AREA
2) MOVE T3,W1 ;[1170] T1 GETS TOTAL LENGTH TO
MOVE
2) SUB T3,T1 ;[1170] LAST+1-FIRST IS LENGTH
2) MOVE T4,T1 ;[1170] T4 GETS OFFSET (HOW FAR
TO MOVE)
2) SUB T4,P0(R) ;[1170] THIS IS ALSO CHUNK SIZE
IF OVERLAPS UP
2) SKIPG T4 ;[1170] MOVE DOWN OR IN PLACE?
2) MOVE T4,T3 ;[1170] YES, MOVE ENTIRE THING I
N ONE PIECE
2) HRLS T4 ;[1170] FORM CHUNK SIZE,,CHUNK S
IZE (FOR BLT AC)
2) MOVEI W3,-1(W1) ;[1170] W1 GETS LAST DEST
2) MOVE T2,P0(R) ;[1170] T2 GETS LAST SOURCE + 1
2) ADD T2,T3 ;[1170] FOR LH OF W1 AS PROTOTYP
E BLT POINTER
Digital Equipment Corporation 28-AUG-79 Page 465
PCO Log Report
2) HRLM T2,W1 ;[1170] W1/ LAST SRC+1,,LAST DST
+1
2) MOVEM T1,P0(R) ;[1170] UPDATE P1/P2 SO WE KNOW
WE DID THIS
2)
2) ; ..
2)
2)102 ; ..
2)
2) ;LOOP BACK HERE TO DO EACH NEW PIECE OF THE BLT. THIS CODE USES
ACS AS FOLLOWS:
2) ;
2) ; T3/ TOTAL # WORDS LEFT TO MOVE
2) ; T4/ CHUNK SIZE,,CHUNK SIZE (.GT. T3 IF LAST OR ONLY
TIME)
2) ; W1/ LAST SRC+1,,LAST DEST+1 FOR NEXT BLT
2) ; W2/ SCRATCH AC FOR BLT
2) ; W3/ LAST DEST FOR NEXT BLT
2) ;
2) ;W1 AND W3 ARE DECREMENTED BY CHUNK SIZE WITH EACH BLT UNTIL DON
E.
2)
2) JBGCM6: CAIGE T3,(T4) ;[1170] LAST (OR ONLY) TIME?
2) JRST JBGCM8 ;[1170] YES, GO ADJUST CHUNK SIZ
E ETC.
2) SUB W1,T4 ;[1170] DECREMENT PROTOTYPE BLT
POINTER
2) MOVE W2,W1 ;[1170] SCRATCH COPY FOR BLT
2) BLT W2,(W3) ;[1170] BLT NEXT PIECE
2) SUBI W3,(T4) ;[1170] DECREMENT LAST BLT ADDRE
SS
2) SUBI T3,(T4) ;[1170] DECREMENT TOTAL LEFT TO
DO
2) JRST JBGCM6 ;[1170] LOOP BACK
2)
2)
2) ;HERE THE LAST TIME
2)
2) JBGCM8: JUMPE T3,CPOPJ ;[1170] ALL DONE?
2) MOVE T4,T3 ;[1170] DO WHAT'S LEFT
2) HRLS T4 ;[1170] SET NEW CHUNK SIZE
2) JRST JBGCM6 ;[1170] BACK THROUGH THE LOOP, O
NE MORE TIME
2)
**************
1)103 ;HERE TO CHECK FOR HIGH SEG AND MAKE SURE IT'S ON A K BOUNDARY
1) JBEXIT: SKIPE IO.PTR+%XC ;[1146] DO WE WANT .XPN FILE
****
2)103 JBEXIT: SKIPE IO.PTR+%XC ;[1146] DO WE WANT .XPN FILE
**************
1)103 SKIPE T1,HC.LB ;ANY HIGH SEG CODE
Digital Equipment Corporation 28-AUG-79 Page 466
PCO Log Report
1) IFN TOPS20,<
1) TRNN T1,.PGSIZ ;[650] ON A PAGE BOUND ALREADY?
1) JRST JBEX1 ;[650] YES, EXPECTED
1) SUBI T1,1001 ;[650] NO, FIND NEXT LOWER PAGE
1) > ;END IFN TOPS20
1) IFE TOPS20,<
1) TDNN T1,.PGSIZ ;[650] ON A (K/P) BOUND?
1) JRST JBEX1 ;[650] YES, WHAT LUCK
1) SUB T1,.PGSIZ ;[650] NO, NEXT LOWER PAGE
1) SUBI T1,2 ;[650] 1 FOR EVEN PAGE, 1 FOR LO
W END
1) > ;END OF IFE TOPS20
1) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
1) CAMGE T1,LC.AB ;ENOUGH SPARE TO BLT DOWN?
1) JRST JBEXUP ;NO MOVE UPWARDS
1) ADDI T1,1 ;PUT THE 1 BACK
1) HRL T1,HC.LB ;FROM,,TO BLT POINTER
1) MOVE T2,HC.AB
1) SUB T2,HC.LB ;GET LENGTH
1) ADDI T2,(T1) ;LAST ADD TO BLT
1) HRRZM T1,HC.LB ;NEW LOW BASE
1) MOVEM T2,HC.AB ;NEW HIGH BASE
1) BLT T1,-1(T2) ;MOVE DATA
1) ;NOW TO ZERO REST OF AREA UP TO
K BOUND
1) HRRZI T1,-1(T2) ;GET TOP DATA WORD
1) IOR. T1,.PGSIZ ;[650] UP TO CORE BLOCK BOUND
1) SETZM (T2) ;ZERO FIRST WORD
1) HRLI T2,1(T2) ;FORM BLT POINTER
1) MOVS T2,T2 ;RIGHT WAY ROUND
1) BLT T2,(T1) ;ZERO JUNK
1) JRST JBEX1 ;NOW FOR REMAP
1)
1)104 ;HERE TO MOVE CODE UP TO A K BOUND SO REMAP WILL WORK
1)
1) JBEXUP: MOVE T4,HC.AB ;TOP
1) SUB T4,HC.LB ;MINUS BOTTOM GIVES LENGTH
1) MOVE T1,LC.AB ;GET TO OF CURRENT AREA
1) IOR. T1,.PGSIZ ;[650] PUT ON BLOCK BOUND
1) ADD T1,T4 ;GET NEW TOP
1) CAMG T1,HC.UB ;WILL IT FIT?
1) JRST JXUP1 ;YES
1) CORE T1, ;EXPAND
1) PUSHJ P,NO.COR## ;SHOULD NEVER GET HERE
1) MOVE T1,.JBREL ;GET NEW TOP
1) MOVEM T1,HC.UB ;SET IT
1) JRST JBEXUP ;RESET T4
1)
1) JXUP1: MOVE T3,T4 ;GET A COPY
Digital Equipment Corporation 28-AUG-79 Page 467
PCO Log Report
1) HRL T4,T4 ;IN BOTH HALVES
1) ADD T4,HC.LB ;TOP OF DATA
1) TLO T4,(1B0) ;PREVENT PDLOV
1) MOVE T1,HC.LB ;GET CURRENT BOTTOM
1) IOR. T1,.PGSIZ ;[650] UP TO BLOCK BOUND
1) ADDI T1,1 ;STARTS ON NEXT WORD
1) MOVE T2,T1 ;GET COPY
1) SUB T1,HC.LB ;GET OFFSET
1) HRLI T1,(POP T4,0(T4))
1) PUSH P,HC.LB ;SAVE OLD BASE
1) MOVEM T2,HC.LB ;RESET BASE
1) ADDI T3,(T2) ;START + LENGTH
1) MOVEM T3,HC.AB ;AND TOP
1) MOVE T2,[JUMPL T4,T1] ;LOAD INST
1) MOVSI T3,(POPJ P,) ;RETURN
1) PUSHJ P,T1 ;JUMP INTO CODE IN ACCS
1) POP P,T1 ;GET OLD HC.LB
1) SETZM (T1) ;ZERO FIRST WORD
1) HRL T1,T1
1) ADDI T1,1 ;BLT PTR
1) MOVE T2,HC.LB ;NEW LOWER BOUND
1) BLT T1,-1(T2) ;CLEAR JUNK WE LEFT BEHIND
1) ;FALL INTO JBEX1
1)
1)105 JBEX1: SKIPE STADDR ;WARN USER IF NO STARTING ADDRES
S
1) JRST JBEX10 ;IS A STARTING ADDRESS, KEEP GOI
NG
****
2)103 ;**;[1170] Delete @ JBEXIT+4L JNG 23-May-79
2) SKIPE STADDR ;WARN USER IF NO STARTING ADDRES
S
2) JRST JBEX10 ;IS A STARTING ADDRESS, KEEP GOI
NG
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 468
PCO Log Report
*********************
*PCO #:10-LINK -282*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 21-MAY-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] LNKPCL TOPS-10 PSECT PROP
[Source Before Edit] %4A (001170)
[Source After Edit] %4A (001171)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-Q3049
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 469
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Even after edit 1146 is installed, the TOPS-10 version
of LINK will not say LNKPCL and write an EXE file if the
user requests a write-enabled high segment or a write-locked
low segment. The monitor group suggests that these might be
implemented some day, and requests that LINK not disallow
such a construct.
**********
[DIAGNOSIS]
Edit 1146 didn't think PSECT attributes were relevant
to TOPS-10.
**********
[CURE]
Remove the TOPS-20 conditional, and special-case the
TOPS-10 high segment.
Digital Equipment Corporation 28-AUG-79 Page 470
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1547 29-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 0023 30-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-May-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 30-May-7
9
2)
**************
1)1 DECEVR==1170 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1171 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1171 JNG 30-May-79 QAR 10-3049
2) ; Fix edit 1146 to say LNKPCL even on TOPS-10 if it doesn'
t like
2) ; the PSECT attributes.
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 471
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1711 24-May-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 0010 30-May-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 23-May-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 30-May-79
2)
**************
1)1 DECEVR==1170 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1171 ;DEC EDIT VERSION
2)
**************
1)6
****
2)6 ;1171 Fix edit 1171 to say LNKPCL if bad PSECT properties, eve
n on TOPS-10.
2)
**************
1)44 ;TEST FOR GAPS BETWEEN PSECTS, PSECTS ABOVE THE HIGH SEGMENT AND
TOPS-20 WRITE-
1) ;LOCKED PSECTS.
1)
****
2)44 ;TEST FOR GAPS BETWEEN PSECTS, PSECTS ABOVE THE HIGH SEGMENT AND
PSECT
2) ;PROPERTIES THAT WE CAN'T HANDLE EXCEPT IN AN EXE FILE.
2)
**************
1)44 SAVTS1: MOVE W2,@RC.TB ;[1146] GET POINTER TO THIS RELO
C BLOCK
1) IFN TOPS20,<
1) MOVE T2,RC.AT(W2) ;[1146] CHECK PSECT ATTRIBUTES F
OR READ-ONLY
1) TXNE T2,AT.RO ;[1146] ..
1) JRST JBCMPX ;[1146] CAN'T SET UP READ-ONLY P
AGES IN MEMORY
1) >
1) CAML T1,RC.HL(W2) ;[1146] DOES PREVIOUS PSECT ENGU
LF THIS ONE?
1) JRST SAVTS3 ;[1146] YES--NO GAP POSSIBLE YET
1) CAMN T4,RC.SG(W2) ;[1146] POSSIBLE GAP BELOW .HIGH
.?
1) JRST SAVTS2 ;[1146] YES--OK. USUAL CASE
1) MOVEI T2,-1(T1) ;[1146] COMPUTE LAST PAGE USED
****
2)44 ; ..
2)
Digital Equipment Corporation 28-AUG-79 Page 472
PCO Log Report
2)45 ; ..
2)
2) ;BACK HERE FOR EACH NEW PSECT.
2)
2) SAVTS1: MOVE W2,@RC.TB ;[1146] GET POINTER TO THIS RELO
C BLOCK
2) ;**;[1171] Replace @ SAVTS1+1L JNG 30-May-79
2) MOVE T2,RC.AT(W2) ;[1171] GET THIS PSECT'S ATTRIBU
TES
2)
2) IFE TOPS20,<
2) CAMN T4,RC.SG(W2) ;[1171] TOPS-10 HIGH SEGMENT?
2) JRST [TXNE T2,AT.RW ;[1171] YES, USER ASKED FOR WRIT
EABLE?
2) JRST JBCMPX ;[1171] YES, LET MONITOR FIGURE
IT OUT
2) JRST SAVTS2] ;[1171] NO, ATTRIBUTES ARE OK
2) > ;END IFE TOPS20
2)
2) TXNE T2,AT.RO ;[1171] NON-HI SEG PAGE TO BE RE
AD ONLY?
2) JRST JBCMPX ;[1171] YES, WE CAN'T HANDLE IT
2) SAVTS2: CAML T1,RC.HL(W2) ;[1171] DOES PREVIOUS PSECT ENGU
LF THIS ONE?
2) JRST SAVTS6 ;[1171] YES--NO GAP POSSIBLE YET
2) CAMN T4,RC.SG(W2) ;[1146] POSSIBLE GAP BELOW .HIGH
.?
2) JRST SAVTS5 ;[1171] YES--OK. USUAL CASE
2) MOVEI T2,-1(T1) ;[1146] COMPUTE LAST PAGE USED
**************
1)44 SAVTS2: MOVE T1,RC.HL(W2) ;[1146] SO FAR SO GOOD--ADVANCE
TO NEXT PSECT
1) SAVTS3: MOVE W1,W2 ;[1146] ADVANCE TO NEXT PSECT
1) CAMGE R,RC.NO ;[1146] LOOKED AT ALL PSECTS?
1) AOJA R,SAVTS1 ;[1146] NO--LOOK AT NEXT
1)
1) ; ..
1)
1)45 ; ..
1)
****
2)45 ;**;[1171] Change @ SAVTS2 JNG 30-May-79
2) SAVTS5: MOVE T1,RC.HL(W2) ;[1171] SO FAR SO GOOD--ADVANCE
TO NEXT PSECT
2) SAVTS6: MOVE W1,W2 ;[1171] ADVANCE TO NEXT PSECT
2) CAMGE R,RC.NO ;[1146] LOOKED AT ALL PSECTS?
2) AOJA R,SAVTS1 ;[1146] NO--LOOK AT NEXT
2) ; ..
2)
Digital Equipment Corporation 28-AUG-79 Page 473
PCO Log Report
2)46 ; ..
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 474
PCO Log Report
*********************
*PCO #:10-LINK -283*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1160), DON'T INSTALL!
[Date Entered] 09-JUN-79
[Programmer] GILBERT
[Routines] LNKPAR LNKLOW LNKINI LNKXIT
[Key Words] DDT SYMS GEN RST BIG REWORK
[Source Before Edit] %4A (001171)
[Source After Edit] %4A (001172)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 475
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The routines in LNKXIT.MAC having to do with generation
of the runtime symbol table and the associated memory
management are some of the worst in LINK. They are very
difficult to understand and maintain, are poorly written,
and have been the source of many edits to correct bugs
reported via SPRs (including 8 new edits in the year that
LINK v4 has been out).
This PCO is a re-work of that section of LNKXIT.MAC in
LINK in an attempt to improve its reliability and
maintainability. Some of the specific problems that have
been fixed by this edit are as follows:
1. If LINK does not have sufficient room to generate a
complete runtime symbol table (and thus issues the
LNKISS message), then the table generated will be
incorrect. The last word of the table will not be
a module name, and there will therefore be no
linked list of module names in the symbol table.
2. Field image LINK will not allocate a patch area if
the user asks (via /SYMSEG) for the symbols to go
into a psect that is empty except for the symbols.
Edit 772 fixed this problem, but introduced the
problem that the contents of .JBUSY will be
incorrect if the program contains any undefined
symbols. Edit 1121 fixed this problem, but
re-introduced the original problem.
3. LINK ignores other psects and the /UPTO switch when
writing the undefined symbol table. This means
that the undefined table can overwrite whatever
follows it, or can cause LINK to blow up if there
are so many undefined symbols that the undefined
symbol table extends beyond 777777.
4. LINK can generate a bad runtime symbol table for
some links of an overlaid program if loading in a
restricted amount of memory.
Digital Equipment Corporation 28-AUG-79 Page 476
PCO Log Report
5. The contents of the left half of .JBCOR (the last
location loaded with non-zero data) can be
incorrect if the symbols are appended to a psect.
The symbols will not be counted as non-zero data.
6. Any code or data immediately beyond the end of the
runtime symbol table can be lost up to the first
page boundary beyond the end of the symbol table.
This can only occur if the segment into which the
symbol table is being inserted has overflowed to
disk.
7. The segment containing the symbol table will be too
long if the program contains undefined symbols
requiring additive fixups, and if the symbols are
appended to a psect. The segment will be extended
by two words for each additive fixup request
appearing in the undefined table.
8. After edit 1132 has been installed, LINK will get
an I/O error to its low segment overflow file
(nnnLLC.TMP) if the LC area is overflowing to disk,
LINK is writing an EXE file, and location 777777
has been loaded with non-zero data (e.g., the last
word of the symbol table).
9. LINK will write an incorrect, very small .SYM file
if the user asks for a new-style symbol file via
/SYFILE:TRIPLET, and LINK's internal LS area has
NOT overflowed to disk.
10. LINK will not allocate a patch area in an overlaid
program, despite code in LNKOV1 which attempts to
do so. Even when this is fixed, the runtime symbol
table LINK generates for overlaid programs does not
contain the PAT.. module or symbol, so the patch
area cannot be found.
11. The left half of the value word of the first module
in the runtime symbol table will contain zero. It
should contain the negated number of words in the
part of the symbol table describing that module.
12. After edit 770 has been installed, the contents of
.JBUSY and possibly other JOBDAT locations can be
incorrect. This will only happen if the program
being loaded contains undefined symbols, a runtime
symbol table is being generated, and the LC area
overflows to disk at the wrong time.
13. When LINK is writing the runtime symbol table, it
Digital Equipment Corporation 28-AUG-79 Page 477
PCO Log Report
thinks it has run out of room and truncates the
table one location before it has to. In other
words, it always leaves a zero word after the
runtime symbol table, even if it has to truncate
the table to do so.
14. After edit 1132 has been installed, LINK will
truncate the runtime symbol table too soon or skip
writing it entirely in certain instances of psect
overlap. The cases that fail occur when another
psect starts in the middle of the psect to which
symbols are being appended.
15. If LINK comes close to running into the high
segment when writing the runtime symbol table, it
will stop and truncate the table 100 words before
it has to. It will not do this if the symbol table
threatens to overlap any psect but the high
segment.
16. The /UPTO switch can cause problems when loading an
overlaid program. LINK tries to ignore this switch
for overlaid programs, since the runtime symbol
table is placed at runtime by the overlay handler.
However, the switch is not completely ignored, so
that LINK will stop generating symbols for any link
whose symbol table size exceeds the argument to the
/UPTO switch. For example, /UPTO:10 will guarantee
that the overlay file will not contain more than 10
words of symbol table information for any link.
17. LINK will leave a temporary file names nnnLAS.TMP
in the user's default path if the AS (Algol
symbols) area overflows to disk, but the user
prevents generation of an Algol .SYM file (e.g.,
via /SYFILE:RADIX50).
18. The LNKXIT module is much larger than it needs to
be, and frequently reveals bugs related to memory
management when generating the runtime symbol
table.
**********
[DIAGNOSIS]
1. When LINK runs out of room to write the symbol
table, it just stops, without any attempt to insure
Digital Equipment Corporation 28-AUG-79 Page 478
PCO Log Report
that the table is terminated by a module name.
2. The same register (P2) is assumed to hold two
different numbers, depending on whether the program
being loaded contains psects or not.
Unfortunately, some places still want the non-psect
number, even when psects are being loaded. This
doesn't work, since the number is not in the
register, and was never stored anywhere else.
3. The undefined symbol table writer does not call
SYMOUT (which checks psect bounds and /UPTO).
Instead, it simply stores the symbol table data by
hand, without making any of the necessary checks.
4. When LNKOV2 calls LSLOOP in LNKXIT to generate a
runtime symbol table for each link, it insures that
the LC area has not overflowed to disk. However,
if the overflow occurs during LSLOOP's execution,
LNKOV2 will ignore it and take whatever data has
not been paged out as the entire runtime symbol
table for the link.
5. LINK does not update its internal pointer to the
last location containing non-zero data when
appending the runtime symbol table to a psect.
This is apparently because the number needed is not
conveniently available at that point in LNKXIT.
6. LINK assumes that it is appending the symbol table
to the end of a segment, and that there can thus be
nothing in the overflow file for the segment beyond
the symbol table. It therefore writes pages of
symbols out to the overflow file without trying to
save the old contents of the pages. This
assumption fails when using psects, since the psect
to which the symbol table is being appended can
appear anywhere within the segment.
7. LINK estimates the length of the undefined table
before writing it, and if the table is being
appended to a segment, it updates the segment
length by the size of the table. This estimate
does not include additive fixups, however, and when
LINK finds one of these, it goes back and
increments the segment length by two.
Unfortunately, the segment length should not be
incremented when the undefined symbols are being
appended to a psect in the middle of the segment,
so the segment length is being incorrectly
incremented in this case.
Digital Equipment Corporation 28-AUG-79 Page 479
PCO Log Report
8. The .EXE file writer assumes that the pointer to
the first free word beyond the program is a pointer
to the last used word of the program when
processing overflow files. This causes it to call
the paging routines with a request for a page
beyond 777 if the last used word in the program is
777777. This large page number causes the paging
routines to issue an invalid IN UUO, resulting in
an I/O error.
9. When the LS area has not overflowed to disk, LINK
deletes it as it scans through it generating the
runtime symbol table. Unfortunately, the contents
of this area are needed for the sixbit .SYM file,
which is not generated until after the runtime
symbol table has been completed.
10. LNKOV1 does not update enough pointers to get the
patch area allocated. Even if it did, the code to
generate the PAT.. symbol is not reached when
generating the symbol table for an overlaid
program.
11. LNKXIT's internal pointer to the last module name
written to the symbol table (TTLPTR) is not
initialized correctly before generating the symbol
tables for overlay links.
12. Edit 770 removed a necessary call to CHKPAG, which
checks to see if JOBDAT has been paged out, and if
so, puts it into a buffer in the DY area. If this
is missed, LINK will store into what it thinks is
JOBDAT, but is actually some random place in LINK's
low segment.
13. The truncation check is off by one.
14. LINK assumes that the psect with the next higher
psect origin beyond the one to which symbols are
being appended is the one to use as a cutoff.
However, if the next higher psect starts within the
psect to which symbols are being appended, then
LINK will think that it has run out of room before
writing anything.
15. There was apparently some attempt to implement a
100 word gap area after the runtime symbol table.
However, the implementation was not complete, so
the relevant code is only reached if the limiting
psect is .HIGH..
Digital Equipment Corporation 28-AUG-79 Page 480
PCO Log Report
16. Since the runtime symbols for an overlaid program
are put into the overlay file and not into memory,
LNKXIT loads them into a dummy area starting at
address 0. However, the symbol deposit routine
still looks at /UPTO, so it will stop when its
internal "fake" address reaches the /UPTO
parameter.
17. LINK never tries to delete the nnnLAS.TMP file. It
will only go away if is renamed to be a .SYM file,
which will only happen if the user wants an Algol
.SYM file.
18. LNKXIT does much of its own memory management and
disk overflow handling when creating the runtime
symbol table. This causes LNKXIT to be huge and
complex, and leads to bugs when it does decide to
call LNKCOR for some action, because the memory
management data base maintained by LNKCOR is not
always updated correctly when LNKXIT does things by
hand.
**********
[CURE]
Re-work the runtime symbol generation code in LNKXIT,
maintaining existing routines or code where possible. The
specific fixes to each problem (where applicable) are listed
below.
1. Reserve the last two words of the symbol table for
the last module name, and, if the symbol table is
about to be truncated, skip ahead until a module
name is found, so that the table can be terminated
properly.
2. Re-work that section of code so that everything
always looks like a psect, thus removing many
special case checks and the need to carry around
two sets of numbers.
3. Generalize SYMOUT so that the undefined symbol
table generator can call it, and then make every
place that wants to write something to the symbol
table go through it.
Digital Equipment Corporation 28-AUG-79 Page 481
PCO Log Report
4. Check for the LC area overflowing to disk when
generating the symbol table for an overlay link,
and complain to the user of insufficient memory
(the ?LNKCEF error) if this occurs.
5. Move the update of .JBCOR to after all of the
symbols have been written, so that the data is
always available, and so that the psect and
non-psect cases need not be distinguished and
handled differently.
6. Check the size of the overflow file, and read in
any valid data beyond the symbol table before
generating the symbol table.
7. Don't update the segment length until after the
entire symbol table has been written, so that the
exact length can be computed.
8. Subtract one from the first-free pointer before
using it as a last-used pointer.
9. Do not delete the LS area until after the sixbit
.SYM file (if any) has been written.
10. Allocate the area, and make the code that inserts
PAT.. into the symbol table a subroutine, so the
overlay symbol table generator can call it.
11. Initialize TTLPTR correctly.
12. Re-work the code so that LINK cannot possibly start
to page at that point.
13. Correct the test to not be off by one.
14. Change the routine that decides how far the runtime
symbol table can be allowed to extend. The new
algorithm looks for the first psect origin that
lies beyond where the symbol table starts, and
ignores zero length psects during its search.
15. Remove the code to reserve 100 words beyond the end
of the symbol table. The symbol table will now
always be allowed to run right up into (but not
overlap) the next psect.
16. Initialize the /UPTO parameter to a large number
before writing the overlay symbol tables.
17. Insert code to delete the nnnLAS.TMP file if the
Digital Equipment Corporation 28-AUG-79 Page 482
PCO Log Report
user does not want it.
18. Remove the routines to do memory management by
hand, and replace them by calls to LNKCOR except
where absolutely necessary to do something by hand.
This PCO has been made for informational purposes only.
Due to the size and complexity of this edit, no attempt
should be made to install it as a patch to LINK version 4.
This edit requires edits 770, 772, 773, 774, 776, 1110,
1111, 1113, 1121, 1127, 1132, 1144, 1145, 1146, 1152, 1155,
and 1160 to have been previously installed.
Digital Equipment Corporation 28-AUG-79 Page 483
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0023 30-May-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2222 08-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 30-May-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1171 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1172 JNG 5-Jun-79
2) ; Fix many memory management problems when writing a runti
me symbol
2) ; table, especially when psects are involved.
2) ; Routines: LNKPAR, LNKINI, LNKOV1, LNKOV2, LNKWLD, LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 484
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 0052 17-Feb-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 0230 09-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 16-Feb-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)3 ND .OVPSP,0 ;DEFAULT PATCH SPACE IN LINKS OTHER THAN
ROOT
1) ND LN.OVL,^D128*^D10*2 ;MAX. NO. OF OVERLAYS ALLOWED
****
2)3 ;**;[1172] Delete @ .OVPSP JNG 5-Jun-79
2) ND LN.OVL,^D128*^D10*2 ;MAX. NO. OF OVERLAYS ALLOWED
**************
1)3 ND .FRESP,100 ;[727] LENGTH TO LEAVE AFTER SYMBOL TABL
E
1) ND .SYLIM,777777 ;[745] DEFAULT SYMBOL TABLE LIMIT
1) ND .LLOC,200000 ;[732] INITIAL VALUE FOR LOWEST LOCATION
1)
****
2)3 ;**;[1172] Delete @ .FRESP JNG 5-Jun-79
2)
**************
1)5
****
2)5 ;1172 Delete .FRESP, .SYLIM, .OVPSP, and .LLOC.
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 485
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 0049 17-Feb-1979
File 2) LINK:LNKLOW.MAC[10,645063] created: 2146 08-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 16-Feb-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1172 Add PATLOC.
2)
**************
1)3
****
2)3 ;**;[1172] Insert @ POPOFS+1L JNG 5-Jun-79
2) PATLOC: BLOCK 1 ;[1172] LOCATION OF PAT.. AREA
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 486
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 0232 05-Apr-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1301 07-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 29-Mar-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1151 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1172 Don't initialize SYMLIM.
2)
**************
1)7 MOVSI T1,.LLOC ;[732] INITIALIZE LOWEST LOCATIO
N
1) MOVEM T1,LOWLOC ;[732]
****
2)7 ;**;[1172] Change @ PJLOOP+25L JNG 5-Jun-79
2) MOVX T1,.INFIN ;[1172] NO LOWEST LOCATION YET S
EEN
2) MOVEM T1,LOWLOC ;[732]
**************
1)11 MOVEI T1,.SYLIM ;[727] SET DEFAULT SYMBOL TABLE
LIMIT
1) TXO T1,1B0 ;[727] TO HIGH SEG ORIGIN (ON WI
TH 1B0)
1) MOVEM T1,SYMLIM ;[727]
1)
****
2)11 ;**;[1172] Delete @ CORINI+3P29L JNG 5-Jun-79
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 487
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1801 08-May-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1208 07-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 8-May-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1163 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1172 Don't change SYMLIM on /SET to .HIGH..
2)
**************
1)40 MOVEI W3,-.FRESP-1(W3) ;[727] LESS FREE
SPACE AT END
1) HRRM W3,SYMLIM ;[727] ADJUST SYMLIM TO
NEW HI ORG
1) MOVE W3,W1 ;[727]
1) ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
****
2)40 ;**;[1172] Delete @ SET3+6L JNG 5-Jun-79
2) ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
**************
Digital Equipment Corporation 28-AUG-79 Page 488
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 1547 03-Apr-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 2144 08-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 3-Apr-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 5-Jun-79
2)
**************
1)1 DECEVR==1152 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1172 Allocate PAT.. in the root.
2)
**************
1)11 JRST LNKT0B] ;CONTINUE
1) JUMPN T2,LNKT0B ;OK IF USER ALREADY SAID /SYMSEG
1) SKIPN .JBDDT(T1) ;IS DDT LOADED
1) JRST LNKT0B ;NO, CONTINUE
1) MOVEI T2,$SEGLOW ;SYMBOLS IN LOW SEG INDEX
1) MOVEM T2,SYMSEG ;SET VALUE SO WE CAN SAVE SYMBOL
S
1) MOVE T2,['.LOW. '] ;NAME OF SYMSEG PSECT
1) MOVEM T2,SSGNAM ;STORE FOR LNKXIT
1)
1) LNKT0B: MOVE T2,.JBVER(T1) ;GET VERSION N0.
1) SKIPN VERNUM
****
2)11 ;**;[1172] Replace @ LNKT0A+5L JNG 5-Jun-79
2) JRST LNKT0C] ;[1172] CONTINUE
2) JUMPN T2,LNKT0B ;OK IF USER ALREADY SAID /SYMSEG
2) SKIPN .JBDDT(T1) ;IS DDT LOADED
2) JRST LNKT0C ;[1172] NO, CONTINUE
2) MOVEI T2,$SEGLOW ;SYMBOLS IN LOW SEG INDEX
2) MOVEM T2,SYMSEG ;SET VALUE SO WE CAN SAVE SYMBOL
S
2)
2)
2) ;HERE IF WE'RE GOING TO HAVE A RUNTIME SYMBOL TABLE. ALLOCATE P
AT..
2) ;AT THE END OF THE ROOT.
2)
2) LNKT0B: MOVE T2,SYMSEG ;[1172] GET INDEX TO SYMBOL SEGM
ENT
2) SKIPN T3,PATSPC ;[1172] GET PATCHING SPACE
Digital Equipment Corporation 28-AUG-79 Page 489
PCO Log Report
2) MOVEI T3,PATSP. ;[1172] DEFAULT
2) EXCH T3,HL.S0(T2) ;[1172] GET LOCATION OF PAT..
2) MOVEM T3,PATLOC ;[1172] SAVE FOR LSOVX
2) ADDM T3,HL.S0(T2) ;[1172] ALLOCATE THE PAT.. AREA
2) ; ..
2)
2)12 ; ..
2)
2) LNKT0C: MOVE T2,.JBVER(T1) ;[1172] GET VERSION N0.
2) SKIPN VERNUM
**************
1)13 LNKT1B: SKIPE CS.NUM ;ROOT IS SPECIAL
1) SMOVE T1,.OVPSP ;PATCH SPACE IF NOT ROOT
1) MOVEI T1,PATSP. ;PATCH SPACE IF ROOT
1) SKIPN PATSPC
1) MOVEM T1,PATSPC ;SETUP IF NOT ALREADY
1) SKIPN T1,HL.S1 ;GET CURRENT HIGHEST LOC
1) JRST [SKIPN T1,PH.ADD ;NEVER SETUP, SO NO LOW
SEG
****
2)14 ;**;[1172] Delete @ LNKT1B JNG 5-Jun-79
2) LNKT1B: SKIPN T1,HL.S1 ;GET CURRENT HIGHEST LOC
2) JRST [SKIPN T1,PH.ADD ;NEVER SETUP, SO NO LOW
SEG
**************
Digital Equipment Corporation 28-AUG-79 Page 490
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV2.MAC[30,4507] created: 1433 01-Mar-1978
File 2) LINK:LNKOV2.MAC[10,645063] created: 2238 08-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC 27-Feb-78
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC 5-Jun-79
2)
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1)
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)3 SUBTTL DEFINITIONS
****
2)2 ;START OF VERSION 4A
2) ;1172 Call LSLOOP correctly.
2)
2)3 SUBTTL DEFINITIONS
**************
1)22 ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
1)
****
2)22 ;**;[1172] Add comment @ OVR6H+1P JNg 5-Jun-79
2) ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
2) ;WE DO THIS BY FILLING THE LS AREA WITH TRIPLETS, CLEARING THE L
C AREA,
2) ;AND CALLING LSLOOP IN LNKXIT TO GENERATE A RUNTIME SYMBOL TABLE
IN THE
2) ;LC AREA. WE DON'T ALLOW EITHER AREA TO PAGE.
2)
**************
1)22 ;THIS CODE SHOULD BE REWRITTEN TO PAGE IF NECESSARY!!!
1) USETI OC,(T1) ;SET ON SYMBOL BLOCK
****
2)22 ;**;[1172] Delete @ OVR6S+6L JNG 5-Jun-79
2) USETI OC,(T1) ;SET ON SYMBOL BLOCK
**************
1)22 MOVE T2,T1
1) IORI T2,.IPM ;MAKE SURE ON BLOCK BOUND
1) SUBI T2,(T1) ;FIND WHATS FREE
1) MOVEM T2,LS.FR ;AND STORE IT
1) MOVEI T1,.IPS ;SIZE WE CARE ABOUT
1) SUB T1,T2 ;MINUS FREE
1) PUSHJ P,LSOVX## ;STORE WHATS LEFT FOR LNKXIT
1)
Digital Equipment Corporation 28-AUG-79 Page 491
PCO Log Report
****
2)22 ;**;[1172] Delete @ OVR6S1+21L JNG 5-Jun-79
2)
**************
1)23 MOVEI T1,.IPS ;NO. OF FREE WORDS
1) MOVEM T1,TAB.FR(R) ;IN THIS BLOCK
1) MOVE P3,PH.ADD ;SYMBOL TABLE STARTS AT REL 0
****
2)23 ;**;[1172] Delete @ OVR6S1+1P12L JNG 5-Jun-79
2) MOVE P3,PH.ADD ;SYMBOL TABLE STARTS AT REL 0
**************
1)23 OVR6L: PUSHJ P,LSLOOP## ;YES
1) MOVE T2,TAB.PT(R) ;FINAL LENGTH
****
2)23 ;**;[1172] Insert @ OVR6L JNG 5-Jun-79
2) OVR6L: PUSHJ P,LSOVX## ;[1172] INITIALIZE LNKXIT FOR LS
LOOP CALL
2) PUSHJ P,LSLOOP## ;YES
2) MOVE T2,TAB.PT(R) ;FINAL LENGTH
**************
Digital Equipment Corporation 28-AUG-79 Page 492
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[10,400000] created: 0010 30-May-1979
File 2) LINK:LNKXIT.MAC[30,3737] created: 1544 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 30-May-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 5-Jun-79
2)
**************
1)1 DECEVR==1171 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1172 ;DEC EDIT VERSION
2)
**************
1)6 ;1171 Fix edit 1171 to say LNKPCL if bad PSECT properties, eve
n on TOPS-10.
1)
****
2)6 ;1171 Fix edit 1146 to say LNKPCL if bad PSECT properties, eve
n on TOPS-10.
2) ;1172 Fix many problems with runtime symbol table generator.
2)
**************
1)10 JRST UDF0 ;NOW FOR UNDEFINED SYMBOLS
1)
****
2)10 ;**;[1172] Change @ RDJBDA+7L JNG 5-Jun-79
2) JRST CHKRST ;[1172] NOW GO DO RUNTIME SYMBOL
TABLE
2)
**************
1)12 SUBTTL UNDEFINED SYMBOLS
1)
1) ;HERE TO PUT UNDEFINED GLOBALS INTO UNDEF TABLE IN CORE
1) ;THIS IS OLD FORMAT (2 WORD SYMBOLS)
1) UDF0: SKIPN R,SYMSEG ;LOAD OFFSET TO EITHER LC OR HC
1) MOVEI R,LC.IX ;ASSUME LOWSEG FOR SYMBOLS
1) SKIPN NOSYMS ;DON'T WANT UNDEFS IF /NOSYM
1) SKIPN P2,USYM ;ANY UNDEFINED SYMBOLS?
1) JRST NOUNDF ;NO, GET RID OF AREA
1) ;BUT DO WE REALLY NEED UNDEFS?
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT POINTER
1) MOVE T1,LC.LB ;NO
1) SKIPN .JBDDT(T1) ;JOBDDT NON-ZERO
1) SKIPE SYMSEG ;OR SYMBOLS REQUESTED
1) JRST UDF0A ;YES
1) SKIPE IO.PTR+%SC ;BUT DO WE WANT SYMBOL FILE
1) SKIPL SYMFRM ; OLD STYLE?
Digital Equipment Corporation 28-AUG-79 Page 493
PCO Log Report
1) JRST NOUNDF ;NO, GET RID OF THEM
1) UDF0A: LSH P2,1 ;2 WORDS PER SYMBOL
1) ;**;[770] Insert @ UDF0A+1L MCHC 17-Mar-78
1) PUSHJ P,CHKPAG ;[770] INCASE PAGE FOR THE FIRST
TIME
1) MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
1) PUSHJ P,GETSST ;[715] GET FINAL SYMBOL START AD
DR
1) SKIPE PAG.S0(R) ;PAGING?
1) PUSHJ P,LSYP ;YES, GET RIGHT PAGE IN CORE
1) ;**;[772] Change @ UDF0A+5L MCHC 23-Mar-78
1) ;**;[1121] Change @UDF0A+5L JNG 4-Oct-78
1) ADDB P2,P4 ;[1121] SPACE WE NEED IN P2 AND
P4
1) ;**;[770] Exchange 2 lines @ UDF0A+6L MCHC 17-Mar-78
1) SUB P2,LW.S0(R) ;[770] REMOVE WINDOW OFFSET
1) ADD P2,TAB.LB(R) ;[770] IN CORE
1) CAMG P2,TAB.AB(R) ;ENOUGH CORE?
1) JRST UDF1 ;YES,
1) SUB P2,TAB.AB(R) ;GET EXTRA WE NEED
1) MOVEI P1,(R) ;FROM WHERE
1) ;**;[770] Replace @ UDF0A+12L MCHC 17-Mar-78
1) SETOM LS.PP ;[770] PREVENT OVERFLOW OF LS AR
EA
1) PUSHJ P,LNKCOR## ;GET IT
1) JRST [MOVE P2,USYM ;[770] NO CORE, LOOP BAC
K AND PAGE
1) JRST UDF0A] ;[770]
1) SKIPN TAB.PG(R) ;[570] PAGING?
1) JRST UDF0B ;[570] NO, SKIP THIS
1) MOVE T1,P4 ;[570] YES, UPDATE UW
1) IORI T1,.IPM ;[570] SINCE PAGING ROUTINES DON
'T
1) MOVEM T1,TAB.UW(R) ;[570] WHEN MAKING WINDOW BIGGER
1) ;**;[770] Delete @ UDF0B MCHC 17-Mar-78
1) UDF0B: MOVE P2,P4 ;RELATIVE
1) ADD P2,TAB.LB(R) ;FIX IN CORE
1) SUB P2,LW.S0(R) ;REMOVE WINDOW OFFSET
1) ;**;[770] Insert @ UDF1 MCHC 17-Mar-78
1) UDF1: SETZM LS.PP ;[770] CLEAR IT
1) SKIPGE SYMSEG ;[715] PSECT NAME USED?
1) JRST .+3 ;[715] YES, JUMP
1) MOVEM P4,HC.S0(R) ;FOR .JBCOR
1)
1)13 ;NOW LOOP THROUGH GS AREA LOOKING FOR UNDEFINED SYMBOLS
1)
1) EXCH P4,HL.S0(R) ;GET BASE OF UNDFS
1) MOVN T2,USYM ;NUMBER OF UNDEF SYMBOLS
Digital Equipment Corporation 28-AUG-79 Page 494
PCO Log Report
1) MOVMM T2,JOB117 ;WILL FIX IT LATER, JUST NO. NOW
1) HRL P4,T2 ;AOBJN POINTER TO UNDEFS
1) LSH T2,^D18+1 ;PUT 2*COUNT IN LEFT HALF
1) HRR T2,P4 ;ADDRESS
1) ADD T2,LL.S0(R) ;+OFFSET
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE T1,LC.LB ;CODE OFFSET
1) MOVEM T2,.JBUSY(T1) ;FIXUP POINTER
1) ADD P4,TAB.LB(R) ;FIX IN CORE
1) SUB P4,LW.S0(R) ;REMOVE WINDOW OFFSET
1) MOVE P2,HT.PRM ;GET HASH SIZE
1) SKIPE T1,@HT.PTR ;GET POINTER IF NON-ZERO
1) JRST UDFTRY ;SEE IF A REQUEST
1) UDFNXT: SOJGE P2,.-2 ;MORE?
1) JRST UDFDN ;NO
1)
1) UDFTRY: ADD T1,GS.LB ;ADD IN BASE
1) MOVE W1,(T1) ;GET FLAGS
1) TXNN W1,PS.REQ ;GLOBAL REQUEST
1) JRST UDFNXT ;NO, TRY NEXT SYMBOL
1) DMOVE W2,1(T1) ;GET SIXBIT SYMBOL & VALUE (REQU
EST POINTER)
1) PUSHJ P,SXBR50 ;CONVERT TO SIXBIT
1) TXO W2,R5.GLB ;MAKE GLOBAL DEFINITION
1) ADDI P4,1 ;WILL BUMP LOCATION BY 2 (LATER)
1) HRRZ T1,P4 ;ADDRESS ONLY
1) CAMLE T1,TAB.AB(R) ;WILL IT FIT IN WHAT WE HAVE?
1) PUSHJ P,UDFEXP ;NO, EXPAND AREA
1) DMOVEM W2,-1(P4) ;STORE NAME & VALUE
1) TXNE W1,PS.FXP ;ANY ADDITIVE GLOBAL FIXUPS
1) JRST UDFGB ;YES, RECREATE THE REQUESTS
1) UDFLUP: AOBJN P4,UDFNXT ;AND COUNT BY 1
1) UDFDN: ;UNLESS FINISHED
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE T1,LC.LB ;CODE OFFSET
1) MOVE T2,JOB117 ;GET NUMBER OF UNDEFS
1) LSH T2,1 ;2 WORDS PER SYMBOL
1) MOVN T2,T2
1) HRLM T2,.JBUSY(T1) ;FIXUP POINTER
1) MOVE T2,.JBUSY(T1) ;GET A COPY
1) MOVEM T2,JOB117 ;FOR LATER
1) ;**;[772] Insert @ UDFDN+10L MCHC 23-Mar-78
1) SUB P4,TAB.LB(R) ;[772] GET VIRTUAL ADDR OF UNDEF
TABLE
1) ADD P4,LW.S0(R) ;[722] NEED IT LATER FOR SYMBOL
TABLE
1) JRST GSDLT ;DELETE GLOBAL SYMBOL TABLE
Digital Equipment Corporation 28-AUG-79 Page 495
PCO Log Report
1)
1)14 UDFGB0: TXNE W1,S.LST ;IS THIS THE LAST BLOCK
1) JRST UDFLUP ;YES
1) ADDI T1,.L ;NO, GET NEXT TRIPLET
1) UDFGB: HRRZ T1,@HT.PTR ;GET POINTER AGAIN
1) ADD T1,GS.LB ;ADD IN BASE
1) SKIPG W1,.L(T1) ;GET NEXT FLAG WORD
1) JRST UDFERR ;MUST HAVE SIGN BIT ON
1) TXNN W1,S.FXP ;AND A FIXUP
1) JRST UDFGB0 ;NOT YET
1) MOVE W3,.L+2(T1) ;GET VALUE
1) MOVE T1,W3
1) UDFGB1: ADD T1,FX.LB ;RELOCATE IN FIXUP TABLE
1) SKIPL W1,0(T1) ;GET FLAGS
1) JRST UDFERR ;JUST INCASE
1) ;**;[1160] Replace @ UDFGB1+3L JNG 14-Apr-79
1) TXNE W1,FP.SYM ;[1160] FIXUP BASED ON UNDEFINED
SYMBOL?
1) TXNN W1,FS.FXR!FS.FXL ;[1160] CAN ONLY PUT OUT RH OR
LH ADDITIVE
1) JRST UDFGB2 ;[1160] CAN'T OUTPUT POLISH, SYM
FIXUPS, ETC.
1) DMOVE W2,1(T1) ;GET DATA WORDS
1) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
1) TXO W2,R5.GLB ;MAKE INTO A GLOBAL DEFINITION
1) TXO W3,R5.FXA ;AND TURN ON ADDITIVE BIT
1) TXNE W1,FS.FXL ;LEFT HALF?
1) TXO W3,R5.FXL ;YES
1) ADDI P4,2 ;USES 2 WORDS
1) HRRZ T1,P4 ;ADDRESS ONLY
1) CAMLE T1,TAB.AB(R) ;WILL IT FIT
1) PUSHJ P,UDFEXP ;NO
1) DMOVEM W2,-1(P4) ;STORE
1) AOS JOB117 ;COUNT 1 MORE WORD PAIR
1) SKIPGE SYMSEG ;[715]
1) JRST UDFGB2 ;[715] JUMP IF PSECT SPCIFIED
1) MOVEI T1,2 ;AND INCLUDE IN SPACE ASSIGNED
1) ADDM T1,HL.S0(R) ;SINCE WE DIDN'T ACCOUNT FOR IT
EARLIER
1)
1) ;FALL THROUGH TO NEXT PAGE
1) ; JRST UDFGB2
1)
1)15 ;FALL IN FROM PREVIOUS PAGE
1)
1) UDFGB2: HRRZ T1,W1 ;GET POINTER
1) JUMPE T1,UDFLUP ;ALL DONE IF ZERO
1) JRST UDFGB1 ;GET NEXT BLOCK
1)
Digital Equipment Corporation 28-AUG-79 Page 496
PCO Log Report
1) UDFEXP: PUSH P,P2 ;SAVE P2 BEFORE EXPANDING CORE
1) MOVEI P1,(R)
1) MOVEI P2,2 ;AT LEAST 2 WORDS EXTRA
1) SUB P4,TAB.LB(R) ;REMOVE BASE INCASE WE MOVE
1) ADD P4,LW.S0(R) ;INCASE PAGES CHANGE
1) PUSHJ P,LNKCOR##
1) PUSHJ P,NO.COR## ;FAILED
1) SKIPN TAB.PG(R) ;[570] PAGING THIS AREA?
1) JRST UDFEX1 ;[570] NO, FORGET IT
1) MOVE T1,P4 ;[570] YES, MUST UPDATE UW OURSE
LVES
1) IORI T1,.IPM ;[570] ONLY EXPANDED TO THIS PAG
E
1) MOVEM T1,TAB.UW(R) ;[570] UPDATE THE WORD
1) UDFEX1: PUSHJ P,CHKPAG ;[570] INCASE WE STARTED PAGING
1) SUB P4,LW.S0(R) ;BACK AS IT WAS
1) ADD P4,TAB.LB(R)
1) POP P,P2 ;RESTORE P2 TO BEFORE UDFEXP
1) POPJ P,
1)
1) UDFERR: JRST UDFLUP ;SYMBOL TABLE FOULED UP
1)
1)16 ;HERE TO GET RID OF GLOBAL TABLE AND IF POSSIBLE CUT BACK CORE
1) NOUNDF: SETZM USYM ;MAKE SURE ITS CLEAR
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE T1,LC.LB ;BASE OF LOW SEG
1) SETZM .JBUSY(T1) ;CLEAR UNDF POINTER
1) ;**;[1113] Change @GSDLT DZN 25-Aug-78
1) GSDLT:
1) IFE TOPS20,< ;[1113] DON'T SHRINK BACK ON TOP
S-20
1) SKIPN .JBDDT(T1) ;SEE IF WE NEED LOCAL SYMBOLS
1) SKIPE SYMSEG ;EITHER FOR /DEB OR /SYMSEG
1) JRST GSNRED ;YES, DON'T CUT BACK CORE YET
1) MOVEI T1,GS.IX-1 ;START AT AREA JUST LOWER
1) SKIPN TAB.LB(T1) ;FIND HIGHEST AREA IN USE
1) SOJA T1,.-1 ;WILL GET THERE EVENTUALLY
1) MOVE T2,TAB.AB(T1) ;GET HIGHEST LOC IN USE IN IT
1) IORI T2,1777 ;K BOUND
1) ADDI T2,2000 ;EXTRA K FOR SAFETY
1) CAML T2,.JBREL ;ANYTHING TO GIVE BACK?
1) JRST GSNRED ;NO, REDUCED ALREADY
1) CORE T2, ;DELETE TOP PART
1) JRST GSNRED ;NEVER CAN HAPPEN
1) MOVE T2,.JBREL ;GET NEW TOP
1) ;**;[773] Insert @ GSDLT+14L JNG 30-Apr-78
1) SKIPN GS.LB ;[773] GS AREA ALREADY GONE?
1) JRST GSDLT1 ;[773] YES, DON'T RECREATE IT
1) MOVEM T2,GS.AB ;RESET TABLE
Digital Equipment Corporation 28-AUG-79 Page 497
PCO Log Report
1) MOVEM T2,GS.UB
1) CAMLE T2,GS.LB ;INCASE WE REDUCED IT ALL
1) JRST GSRED ;NO, ALL IS WELL
1) ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
1) GSDLT1: MOVEM T2,TAB.UB(T1) ;[773] RESET HIGHEST FREE LOC AG
AIN
1) SETZM GS.LB ;SO XX.ZAP CAN WORK
1) GSRED: .ERR. (MS,.EC,V%L,L%I,S%I,RED,<Reducing low segment to
>)
1) .ETC. (COR,.EP,,,,.JBREL)
1) ;**;[1113] Change @GSNRED DZN 25-Aug-78
1) > ;END OF IFE TOPS20
1) GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
1) JRST LSY0 ;[715] GO DO LOCAL SYMBOLS
1)
1)17
1) ;HERE TO SETUP THE SPECIFIED PSECT FOR SYMBOL TABLE
1)
1) GETSST: PUSH P,T1 ;[727]
1) ;**;[1132] Revamp @ GETSST+1L JNG 30-Jan-79
1) SKIPGE SYMSEG ;[1132] /SYMSEG TO A PSECT?
1) JRST GETS10 ;[1132] YES, GO FIND IT
1) GETS2: CAIE R,1 ;[1132] /SYMSEG:LOW?
1) JRST GETS8 ;[1132] NO, MUST BE /SYMSEG:HIGH
1)
1) SPUSH <T2,T3,T4> ;[1132] SAVE SOME ACS FOR LOOP
1) SETZB R,T3 ;[1132] ON /SYMSEG:LOW, WE WANT
TO PUT THE
1) GETS4: MOVE T1,@RC.TB ;[1132] SYMBOLS AFTER THE LAST
PSECT, SO WE
1) MOVE T2,RC.NM(T1) ;[1132] GET THE NAME OF THIS PSE
CT
1) CAMN T2,['.HIGH.'] ;[1132] IS THIS THE HIGH SEG?
1) JRST GETS6 ;[1132] YES, IT DOESN'T COUNT FO
R /SYMSEG:LOW
1) MOVE T2,RC.HL(T1) ;[1132] NEED TO FIND THE PSECT
THAT ENDS LAST
1) CAMG T2,T3 ;[1132] HIGHEST SO FAR?
****
2)12 ;**;[1172] Replace @ BLTJBL+1P JNG 5-Jun-79
2) SUBTTL RUNTIME SYMBOL TABLE GENERATION
2)
2) ;HERE TO DECIDE IF WE WANT TO PUT A RUNTIME SYMBOL TABLE INTO TH
E
2) ;IMAGE, AND IF SO, TO DO IT. WE WANT A RUNTIME SYMBOL TABLE IF
ANY
2) ;OF THE FOLLOWING CONDITIONS ARE TRUE:
2) ;
2) ; 1. C(.JBDDT) IS NONZERO
2) ; 2. USER SAID /SYMSEG
Digital Equipment Corporation 28-AUG-79 Page 498
PCO Log Report
2) ; 3. USER SAID /SYFILE:RADIX50
2) ;
2) ;IF THE USER SAID /NOSYMBOLS, WE NEVER WANT A RUNTIME SYMBOL TAB
LE.
2)
2) CHKRST: SKIPE PAG.S1 ;[1172] FIND JOBDAT
2) SKIPA T1,JOBPTR ;[1172] IN DY IF PAGING
2) MOVE T1,LC.LB ;[1172] IN LC AREA IF NOT
2) SETZM .JBSYM(T1) ;[1172] ASSUME NO SYMBOLS
2) SETZM .JBUSY(T1) ;[1172] ..
2) SKIPE NOSYMS ;[1172] /NOSYMBOLS?
2) JRST NORST ;[1172] YES, FORGET IT
2) SKIPN .JBDDT(T1) ;[1172] C(.JBDDT) <> 0?
2) SKIPE SYMSEG ;[1172] OR USER SAY /SYMSEG?
2) JRST DORST ;[1172] YES, GO DO IT!
2) SKIPL SYMFRM ;[1172] /SYFILE:RADIX50?
2) JRST NORST ;[1172] NOPE, NO SYMBOL TABLE
2)
2)
2) ;HERE TO GENERATE A RUNTIME SYMBOL TABLE.
2) ;FIRST, MAKE SURE THE AREA (LC/HC) THAT THE SYMBOLS ARE GOING
2) ;INTO IS BIG ENOUGH, OR IS PAGING AND THE RIGHT PAGE IS IN.
2)
2) DORST:
2) IFN FTOVERLAY,<
2) SKIPL LNKMAX ;[1172] LOADING OVERLAYS?
2) JRST OVLRST ;[1172] YES, THINGS ARE DIFFEREN
T
2) > ;END IFN FTOVERLAY
2)
2) .ERR. (MS,0,V%L,L%I,S%I,SST,<Sorting symbol table>)
2) PUSHJ P,GETSST ;[1172] FIND BASE OF SYMBOLS, SE
T R AND P4
2) SKIPE PAG.S0(R) ;[1172] SYMBOL SEGMENT PAGING?
2) JRST DORST2 ;[1172] YES, GO GET THE RIGHT PA
GE INTO MEMORY
2) MOVE P2,RC.HL(P4) ;[1172] GET FIRST WORD OF TABLE
2) SUB P2,LL.S0(R) ;[1172] CONVERT TO OFFSET IN SEG
MENT
2) SUB P2,LW.S0(R) ;[1172] THENCE TO OFFSET IN WIND
OW
2) ADD P2,TAB.LB(R) ;[1172] FIRST ADDRESS WE'RE GOIN
G TO STORE INTO
2) CAMG P2,TAB.AB(R) ;[1172] IS THE AREA BIG ENOUGH?
2) JRST DORST4 ;[1172] YES, GO FILL IT IN
2) MOVE P1,R ;[1172] WHICH AREA TO EXPAND
2) SUB P2,TAB.AB(R) ;[1172] HOW MUCH WE NEED
2) PUSHJ P,LNKCOR ;[1172] EXPAND THE AREA
2) JRST DORST2 ;[1172] FINE, JUST START PAGING
Digital Equipment Corporation 28-AUG-79 Page 499
PCO Log Report
2) JRST DORST3 ;[1172] GO CHECK PAGING FOR THE
FIRST TIME
2)
2)13 ;HERE IF PAGING TO BRING THE RIGHT LC/HC PAGE INTO MEMORY.
2)
2) DORST2: PUSHJ P,LSYP ;[1172] NOW PAGING, GET RIGHT PA
GE IN MEMORY
2) DORST3: PUSHJ P,CHKPAG ;[1172] SEE IF WE JUST STARTED P
AGING
2) DORST4: MOVE T1,RC.HL(P4) ;[1172] NOW TO SET UP XX.PT
2) SUB T1,LL.S0(R) ;[1172] FIRST ADDRESS TO STORE I
NTO
2) SUB T1,LW.S0(R) ;[1172] CONVERT TO OFFSET IN ARE
A
2) ADD T1,TAB.LB(R) ;[1172] ADDRESS IN AREA
2) MOVEM T1,TAB.PT(R) ;[1172] STORE FOR SYMOUT
2)
2)
2) ;OK, EVERYTHING IS INITIALIZED. NOW WRITE OUT THE SYMBOL TABLE(
S).
2)
2) SKIPE USYM ;[1172] ANY UNDEFINED SYMBOLS?
2) PUSHJ P,DOUDFS ;[1172] YES, WRITE THEM OUT
2) PUSHJ P,GSDLT ;[1172] DELETE THE GS AREA
2) SKIPN SYMFUL ;[1172] IF ANY ROOM LEFT
2) PUSHJ P,DOLOCS ;[1172] WRITE THE LOCAL SYMBOLS
OUT
2)
2)
2) ;THE SYMBOLS HAVE BEEN WRITTEN. NOW UPDATE THE HL/HC WORDS, THE
N GO CLEAN UP.
2)
2) MOVE T1,TAB.PT(R) ;[1172] NEXT FREE WORD
2) SUB T1,TAB.LB(R) ;[1172] OFFSET IN WINDOW
2) ADD T1,LW.S0(R) ;[1172] OFFSET IN SEGMENT
2) CAMLE T1,HL.S0(R) ;[1172] BIGGEST WE'VE SEEN?
2) MOVEM T1,HL.S0(R) ;[1172] YES, STORE IT
2) CAMLE T1,HC.S0(R) ;[1172] BIGGEST LOADED LOC?
2) MOVEM T1,HC.S0(R) ;[1172] YES, STORE IT
2) ADD T1,LL.S0(R) ;[1172] FORM VIRTUAL ADDRESS
2) CAMLE T1,RC.HL(P4) ;[1172] BIGGEST YET FOR THIS PSE
CT?
2) MOVEM T1,RC.HL(P4) ;[1172] YES, REMEMBER IT
2) SKIPGE SYMFRM ;[1172] OLD STYLE SYMBOL FILE WA
NTED?
2) PUSHJ P,OLDSYM ;[1172] YES, WRITE IT OUT
2) .ERR. (MS,0,V%L,L%I,S%I,STC,<Symbol table completed>)
2) JRST FINRST ;[1172] GO JOIN COMMON CLEAN UP
CODE
Digital Equipment Corporation 28-AUG-79 Page 500
PCO Log Report
2)
2)14 ;HERE WHEN LOADING OVERLAYS.
2)
2) IFN FTOVERLAY,<
2) OVLRST: HLRE T2,PH.RDX ;[1172] GET - NO. OF SYMBOLS
2) MOVM T3,T2 ;[1172] +
2) ADD T3,HL.S1 ;[1172] HIGHEST LOCATION
2) ADD T3,SPACE ;[1172] PLUS BUFFER SPACE
2) IOR. T3,.PGSIZ ;[1172] UP TO PAGE BOUND
2) ADDI T3,1 ;[1172] NEXT FREE
2) ADD T3,T2 ;[1172] START OF SYMBOLS
2) HLL T3,PH.RDX ;[1172] - COUNT
2) MOVEM T3,JOB116 ;[1172] STORE IN INTERNAL PTR
2) MOVEM T3,.JBSYM(T1) ;[1172] STORE SYMBOL TABLE PTR
2) > ;END IFN FTOVERLAY
2)
2)
2) ;HERE IF NOT WRITING A RUNTIME SYMBOL TABLE. JUST DELETE LINK'S
TABLES.
2)
2) NORST: PUSHJ P,GSDLT ;[1172] GET RID OF THE GS AREA
2) ; ..
2)
2)15 ; ..
2)
2) ;ALL PATHS REJOIN HERE. DELETE TABLES, SET UP JOBDAT, AND EXIT.
2)
2) FINRST: SKIPLE T1,SYMFRM ;[1172] WANT NEW STYLE SYMBOL FI
LE?
2) PUSHJ P,SAVSYM ;[1172] YES, WRITE IT OUT
2) PUSHJ P,AS.ZAP ;[1172] DONE WITH AS AREA
2) MOVEI T1,AC ;[1172] ALGOL SYMS CHANNEL
2) SKIPE PAG.AS ;[1172] AREA PAGING?
2) PUSHJ P,DVDEL.## ;[1172] YES, DELETE OVERFLOW FIL
E
2) JFCL ;[1172] DON'T CARE
2) PUSHJ P,FX.ZAP ;[1172] DONE WITH FX AREA
2)
2) IFN FTOVERLAY,<
2) SKIPL LNKMAX ;[1172] LOADING OVERLAYS?
2) JRST FINRS2 ;[1172] YES, SAVE LS AREA
2) > ;END IFN FTOVERLAY
2)
2) PUSHJ P,LS.ZAP ;[1172] KILL OFF THE LS AREA
2) MOVEI T1,SC ;[1172] LS OVERFLOW CHANNEL
2) SKIPE PAG.LS ;[1172] LS AREA PAGING?
2) PUSHJ P,DVDEL.## ;[1172] YES, DELETE OVERFLOW FIL
E
2) JFCL ;[1172] WASN'T PAGING
2)
2)
Digital Equipment Corporation 28-AUG-79 Page 501
PCO Log Report
2) ;NOW UPDATE JOBDAT, THEN EXIT VIA SAVTST.
2)
2) FINRS2: SKIPE PAG.S1 ;[1172] LC AREA PAGING?
2) SKIPA P1,JOBPTR ;[1172] YES, JOBDAT IS IN DY
2) MOVE P1,LC.LB ;[1172] NO, IT'S IN LC
2) SKIPE PAG.S2 ;[1172] HC AREA?
2) SKIPA P2,JBHPTR ;[1172] YES, FETCH DY PTR
2) MOVE P2,HC.LB ;[1172] NO, FETCH HC PTR (OR 0)
2) PUSHJ P,JOBSET ;[1172] SET UP JOBDAT
2) PUSHJ P,HJBSET ;[1172] VESTIGAL JOBDAT
2) JRST SAVTST ;[1172] DONE WITH CHKRST, GO CHE
CK /SAVE
2)
2)16 ;GETSST - ROUTINE TO FIGURE OUT WHERE THE SYMBOL TABLE GOES
2) ;CALLED ONLY WHEN A RUNTIME SYMBOL TABLE IS DEFINITELY NEEDED.
2) ;RETURNS WITH:
2) ;
2) ; SSGNAM/ NAME (SIXBIT) OF PSECT TO APPEND SYMBOLS
TO
2) ; R/ AREA PSECT IS IN, LC.IX OR HC.IX
2) ; P4/ POINTER TO RC BLOCK OF PSECT NAMED IN SS
GNAM
2) ; RC.HL(P4)/ FIRST ADDRESS TO STORE A SYMBOL IN
2) ; SYMLIM/ LAST ADDRESS TO STORE A SYMBOL IN
2) ;
2) ;ALSO UPDATES LOWLOC IF NECESSARY.
2)
2) GETSST: SKIPGE R,SYMSEG ;[1172] /SYMSEG TO A PSECT?
2) JRST GETS10 ;[1132] YES, GO FIND IT
2) GETS2: CAIN R,2 ;[1172] /SYMSEG:HIGH?
2) JRST GETS8 ;[1172] YES, TREAT IT LIKE /SYMS
EG:PSECT:.HIGH.
2)
2)
2) ;HERE IF /SYMSEG:LOW OR NO /SYMSEG (E.G., C(.JBDDT<>0).
2) ;WE WANT TO APPEND PAT.. AND THE SYMBOL TABLE TO THE LAST PSECT
IN THE IMAGE.
2) ;OUR FIRST MISSION IS TO FIND THAT PSECT...
2)
2) SETZB R,T3 ;[1172] INIT HIGHEST ADDR AND PS
ECT IDX
2) GETS4: MOVE T1,@RC.TB ;[1172] GET POINTER TO RC BLOCK
OF NEXT PSECT
2) MOVE T2,RC.SG(T1) ;[1172] GET THE SEGMENT THAT THI
S PSECT IS IN
2) CAIE T2,1 ;[1172] IN THE LOW SEGMENT?
2) JRST GETS6 ;[1172] NO, IT DOESN'T COUNT FOR
/SYMSEG:LOW
2) MOVE T2,RC.HL(T1) ;[1172] GET THE FIRST FREE AFTER
Digital Equipment Corporation 28-AUG-79 Page 502
PCO Log Report
THIS PSECT
2) CAMG T2,T3 ;[1132] HIGHEST SO FAR?
**************
1)17 GETS6: CAMGE R,RC.NO ;[1132] ALL DONE?
****
2)16 ;**;[1172] Insert @ GETS4+9L JNG 5-Jun-79
2) MOVE T2,RC.NM(T1) ;[1172] GET THE WINNER'S NAME
2) MOVEM T2,SSGNAM ;[1172] STORE FOR ERROR MESSAGES
2) GETS6: CAMGE R,RC.NO ;[1132] ALL DONE?
**************
1)17 SPOP <T4,T3,T2> ;[1132] RESTORE ACS
1) JRST GETS14 ;[1132] GO UPDATE THAT PSECT
1)
****
2)16 ;**;[1172] Delete @ GETS6+3L JNG 5-Jun-79
2) JRST GETS14 ;[1132] GO UPDATE THAT PSECT
2)
2)17 ;HERE ON /SYMSEG:HIGH. FAKE /SYMSEG:PSECT:.HIGH. AND FALL INTO
PSECT CODE.
2)
**************
1)17 GETS10: SETZ R, ;[727] YES, HAVE PSECT NAME
****
2)17
2) ;HERE ON /SYMSEG:PSECT:xxxxxx. FIND THE PSECT IN THE RC TABLES.
2)
2) GETS10: SETZ R, ;[727] YES, HAVE PSECT NAME
**************
1)17 ;FALL INTO NEXT PAGE
1)
1)18 ;FALL IN FROM ABOVE
1)
1) GETS14: SKIPL SYMLIM ;[1132] HAVE A LIMIT YET?
1) JRST GETS18 ;[1132] YES, PROCEED
1) ADDI R,1 ;[1132] NO, CHECK NEXT PSECT
1) CAMLE R,RC.NO ;[1132] IS THERE ONE?
1) JRST GETS16 ;[1132] NO, USE 777777
1) MOVE T1,@RC.TB ;[1132] RC BLOCK FOR NEXT PSECT
1) MOVE T1,RC.IV(T1) ;[1132] BOTTOM OF IT
1) SOSA T1 ;[1132] LIMIT IS ONE BELOW
1) GETS16: MOVEI T1,777777 ;[1132] USE 777777 IF NO NEXT PS
ECT
1) MOVEM T1,SYMLIM ;[1132] STORE
1) SUBI R,1 ;[1132] BACK TO OLD PSECT
1)
1) GETS18: MOVE T1,@RC.TB ;[1132] THIS PSECT'S RC BLOCK
1) MOVEM T1,SYMPSC ;[1132] SAVE FOR SYDONE
1) ADD P4,RC.HL(T1) ;[1132] COMPUTE START OF SYMBOL
TABLE
Digital Equipment Corporation 28-AUG-79 Page 503
PCO Log Report
1) MOVE R,RC.SG(T1) ;[1132] SEGMENT SYMBOL TABLE IS
IN
1) MOVE T1,P4 ;[1132] GET START OF THE SYMBOL
TABLE
1) TRZ T1,777 ;[1132] ROUND DOWN TO PAGE BOUND
1) CAMGE T1,LOWLOC ;[1132] LOWER THAN ANY CODE?
1) MOVEM T1,LOWLOC ;[1132] YES, UPDATE LOWEST LOCAT
ION
1) SUB P4,LL.S0(R) ;[1132] OFFSET TO SEGMENT START
1) CAMLE P4,HL.S0(R) ;[1132] UPDATE HL FOR THAT SEGME
NT
1) MOVEM P4,HL.S0(R) ;[1132] BUT NEVER DECREASE
1) POP P,T1 ;[715] RESTORE AC'S
1) POPJ P, ;[715]
1)
1)19 SUBTTL LOCAL SYMBOLS
1)
1) ;IF LOCAL SYMBOLS AREA REQUIRED IN CORE STORE THEM ON TOP
1) ; OF LOW SEG OR HIGH SEG CODE
1) ;IF LOWSEG LEAVE A GAP (PATSPC) FOR MORE SYMBOLS OR PATCHING
1) ; IF HIGH PUT AGAINST PAGE BOUND (0.5K)
1) ;
1) ;IF LOCAL SYMBOLS NOT REQUIRED JUST FLUSH SPACE
1) ;IF SYMBOLS ON DSK READ BACK IN FIRST
1)
1) LSY0: SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE T1,LC.LB ;LOAD UP OFFSET
1) SKIPN T2,VERNUM ;GET VERSION# SET BY SWITCH
1) SKIPA T2,.JBVER(T1) ;GET VERSION FROM LOC .JBVER
1) MOVEM T2,.JBVER(T1) ;STORE BACK IN CORE IMAGE
1) MOVEM T2,VERNUM ;SAVE FOR .RBVER OF FILES
1) SKIPE NOSYMS ;NOT IF /NOSYMS
1) JRST LSY00
1) SKIPN .JBDDT(T1) ;IF DDT WE NEED LOCALS
1) SKIPE SYMSEG ;OR IF USER SPECIFIED WHERE TO P
UT THEM
1) JRST LSREQ ;YES,
1) LSY00: SETZM .JBSYM(T1) ;CLEAR POINTER
1) SKIPE IO.PTR+%SC ;HOWEVER IF WE WANT OLD SYMBOL F
ILE
1) SKIPL SYMFRM ;WE STILL NEED TO CONVERT SYMBOL
S
1) JRST NOLOCS ;NO, DONT BOTHER
1)
1)20 ;HERE IF /SYMSEG, /SYFILE:RADIX50, OR C(.JBDDT) <> 0.
1) ;CONVERT THE SYMBOLS IN THE LS AREA TO RADIX50 AND PUT THEM IN C
ORE.
1)
Digital Equipment Corporation 28-AUG-79 Page 504
PCO Log Report
1) LSREQ:
1) IFN FTOVERLAY,<
1) SKIPL LNKMAX ;DID WE SEE ANY OVERLAYS?
1) JRST LSOVS ;YES, SPECIAL
1) >
1) .ERR. (MS,0,V%L,L%I,S%I,SST,<Sorting symbol table>)
1) PUSHJ P,SYMINI ;DO THE MAGIC TO MOVE SYMBOLS UP
IN CORE
1) LSREQ1: PUSHJ P,CHKPAG ;[645] INCASE PAGE FOR THE FIRST
TIME
1) SKIPE USYM ;IF NO UNDEFINED SYMBOLS
1) ;**;[772] Replace @ LSREQ1+2L MCHC 23-Mar-78
1) JRST .+3 ;[772] YES, AT END OF UND-SYM TA
BLE
1) MOVE P4,PATSPC ;NEED TO LEAVE A HOLE FOR PATCHI
NG
1) PUSHJ P,GETSST ;[715] GET FINAL SYMBOL START AD
DR
1) ;**;[1111] Change @ LSREQ1+5L MCHC 7-Aug-78
1) HRRZS P2,P4 ;[1111] COPY RH IN CASE NOT ENOU
GH
1) MOVE P2,P4 ;COPY INCASE NOT ENOUGH
1) SKIPE PAG.S0(R) ;PAGING THIS AREA?
1) SKIPE USYM ;YES, BUT ALREADY SETUP IF UNDEF
S
1) CAIA ;DON'T HAVE TO WORRY
1) PUSHJ P,LSYP ;YES, GET RIGHT PAGES IN CORE
1) SUB P2,LW.S0(R) ;REMOVE PAGED BASE
1) ADD P2,TAB.LB(R) ;IN CORE
1) CAMG P2,TAB.AB(R) ;ENOUGH CORE?
1) JRST LSY1 ;YES,
1) SUB P2,TAB.AB(R) ;GET EXTRA WE NEED
1) MOVEI P1,(R) ;FROM WHERE
1) SETOM LS.PP ;[754] PROHIBIT PAGING OF SYMBOL
S
1) PUSHJ P,LNKCOR## ;GET IT
1) JRST LSREQ1 ;[645] NO CORE, LOOP BACK AND PA
GE
1) SKIPN TAB.PG(R) ;[570] PAGING?
1) JRST LSREQ0 ;[570] NO, FORGET IT
1) MOVE T1,P4 ;[570] YES, UPDATE UW
1) IORI T1,.IPM ;[570] FROM MAX VIRT ADDR, IN P4
1) MOVEM T1,TAB.UW(R) ;[570]
1)
1)21 LSREQ0: MOVE P2,P4 ;[570] RELATIVE
1) SUB P2,LW.S0(R) ;REMOVE PAGED BASE
1) ADD P2,TAB.LB(R) ;FIX IN CORE
1) LSY1: SETZM LS.PP ;[754]
1) SKIPGE SYMSEG ;[715]
1) JRST .+3 ;[715] JUMP IF PSECT SPCIFIED
1) MOVEM P4,HC.S0(R) ;FOR .JBCOR
Digital Equipment Corporation 28-AUG-79 Page 505
PCO Log Report
1) EXCH P4,HL.S0(R) ;GET BASE OF UNDFS
1) SKIPE PAG.S1 ;PAGING?
1) SKIPA T1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE T1,LC.LB ;CODE OFFSET
1) ADD P4,LL.S0(R) ;PLUS STARTING OFFSET
1) HRRZM P4,.JBSYM(T1) ;FIXUP POINTER (ADDRESS ONLY)
1) HRRZM P4,JOB116 ;AND FOR .SYM FILE
1) MOVEI T1,.IPS ;SIZE WE CARE ABOUT
1) SUB T1,LS.FR ;MINUS FREE
1) MOVEM T1,LSCNT ;LEFT IN THIS BLOCK
1) SKIPGE SYMSEG ;[715] PSECT NAME USED?
1) SKIPA T1,P4 ;[715] YES, USED P4 INSTEAD
1) MOVE T1,HL.S0(R) ;SETUP CORE POINTER
1) MOVEI T2,2(T1) ;REL ADDRESS OF "TITLE" FOR PAT.
.
1) MOVEM T2,TTLPTR
1) SUB T1,LW.S0(R) ;REMOVED PAGED BASE
1) ADD T1,TAB.LB(R) ;ADD FIXED BASE
1) MOVEM T1,TAB.PT(R) ;ABS POINTER TO NEXT FREE LOC
1)
1)
1) ;NOW OUTPUT THE SYMBOL PAT.. IN MODULE PAT.. AS THE LAST SYMBOL
1)
1) MOVE W2,[RADIX50 04,PAT..] ;BE COMPATIBLE (ALMOST)
1) SKIPGE SYMSEG ;[715] PSECT NAME USED?
1) SKIPA W3,P4 ;[715] YES, USE P4 INSTEAD
1) HRRZ W3,HL.S0(R) ;VALUE
1) SUB W3,PATSPC ;POINT TO BOTTOM OF AREA
1) HLRE T1,JOB117 ;BUT TAKE INTO ACCOUNT UNDEFINED
SYMBOLS
1) ADD W3,T1 ;WHICH ARE BETWEEN PAT.. AND .JB
SYM
1) ADD W3,LL.S0(R) ;ADD IN OFFSET TO SEGMENT
1) PUSHJ P,SYMOUT ;LAST SYMBOL
1) JRST SYDONE ;[715] EXCEEDED SPACE, ALL DONE
1) TLZ W2,740000 ;MAKE RADIX50 0,PAT.. BE THE TIT
LE
1) ;**;[1127] Insert @ LSY1+37L JNG 14-Nov-78
1) HRLI W3,-4 ;[1127] FOUR WORDS IN PAT..'S TA
BLE
1) PUSHJ P,SYMOUT
1) SKIPA ;[715] EXCEEDED SPACE, ALL DONE
1) PUSHJ P,LSLOOP ;READ ALL OF SYMBOLS
1) JRST SYDONE ;ALL DONE
1)
1)22 IFN FTOVERLAY,<
1) LSOVX:: MOVEM T1,LSCNT ;STORE WORDS LEFT IN THIS BLOCK
1) SETZM TTLPTR ;START AFRESH
1) POPJ P,
Digital Equipment Corporation 28-AUG-79 Page 506
PCO Log Report
1)
1) LSOVS: HLRE T2,PH.RDX ;GET - NO. OF SYMBOLS
1) MOVM T3,T2 ;+
1) ADD T3,HL.S1 ;HIGHEST LOCATION
1) ADD T3,SPACE ;PLUS BUFFER SPACE
1) ADD T3,PATSPC ;AND PATCHING SPACE
1) IOR. T3,.PGSIZ ;UP TO PAGE BOUND
1) ADDI T3,1 ;NEXT FREE
1) ADD T3,T2 ;START OF SYMBOLS
1) HLL T3,PH.RDX ;- COUNT
1) MOVEM T3,JOB116
1) MOVEM T3,.JBSYM(T1) ;STORE SYMBOL TABLE PTR
1) JRST NOLOCS ;BUT DON'T READ IN
1) >
1)
1)23 ;HERE TO SETUP CORRECT LC/HC PAGES
1) ;WRITE OUT ALL OF CURRENT (UPTO START OF LAST LOC IN USE)
1) ;ALLOCATE INITIALLY 1 BLOCK (IT WILL EXPAND AS REQUIRED)
1)
1) LSYP: HRLZ T1,LW.S0(R) ;BASE
1) HRR T1,UW.S0(R) ;UPPER LIMIT
1) PUSHJ P,@[EXP LC.OUT##,HC.OUT##]-1(R) ;GO TO CORRECT R
OUTINE
1) SKIPGE SYMSEG ;[715] PSECT SPECIFIED?
1) SKIPA T2,P4 ;[715] YES,
1) HRRZ T2,HL.S0(R) ;THIS IS THE LOCATION WE REQUIRE
1) ANDCMI T2,.IPM ;WILL BE LOWER PAGE BOUND
1) MOVEM T2,LW.S0(R) ;STORE IT NOW
1) IORI T2,.IPM ;THENCE UPPER BOUND
1) EXCH T2,UW.S0(R) ;SWAP WITH CURRENT
1) CAME T2,UW.S0(R) ;IF IDENTICAL
1) JRST [MOVE T1,UW.S0(R) ;GET UPPER LIMIT
1) HRLI T1,-.IPM(T1) ;GET LOWER LIMIT FOR THI
S BLOCK
1) PUSHJ P,@[EXP LC.IN##,HC.IN##]-1(R) ;READ IN
TOP BLOCK
1) JRST LSYP1] ;AND CONTINUE
1) HRLZ T2,TAB.AB(R) ;WE MUST BLT DOWN THE LAST BLOCK
1) TLZ T2,.IPM ;AS IT MAY CONTAIN DATA
1) HRR T2,TAB.LB(R)
1) MOVEI T1,.IPS(T2) ;BASE OF FREE
1) BLT T2,-1(T1) ;MOVE IT
1) LSYP1: HRRZ T1,TAB.LB(R) ;LOWEST LOC IN CORE
1) ADDI T1,.IPS ;FIRST BLOCK NOW CONTAINS DATA
1) CAML T1,TAB.AB(R) ;AREA ONLY ONE PAGE LONG?
1) JRST LSYP2 ;YES, DON'T ZERO NEXT AREA
1) HRL T1,T1
1) SETZM (T1) ;ZERO IT
1) ADDI T1,1 ;FORM BLT PTR
Digital Equipment Corporation 28-AUG-79 Page 507
PCO Log Report
1) BLT T1,@TAB.AB(R) ;CLEAR ALL OF THIS CORE
1)
1)24 ;NOW GIVE REST TO NEXT LOWER AREA
1)
1) LSYP2: MOVE T1,TAB.LB(R) ;GET BASE
1) IORI T1,.IPM ;MAKE IT ONE BLOCK LONG
1) MOVEM T1,TAB.AB(R) ;SO WE CAN CORRECTLY COUNT
1) MOVEI T1,-1(R) ;GET INDEX TO NEXT AREA
1) SKIPN TAB.LB(T1) ;FIND ONE SETUP (MUST BE)
1) SOJA T1,.-1 ;SHOULD NEVER GET HERE ANYWAY
1) MOVE T2,TAB.AB(T1) ;GET HIGHEST IN USE
1) ADDI T2,1 ;POINT TO NEXT FREE
1) CAML T2,TAB.LB(R) ;ALREADY HERE?
1) POPJ P, ;YES, NOTHING WE CAN DO ABOUT IT
1) SUBI T2,1 ;UPPER LIMIT AGAIN
1) MOVEM T2,TAB.UB(T1) ;RESET IT FOR LOWER AREA
1) HRRZI T1,1(T2) ;NEXT FREE WHERE BLOCK WILL GOTO
1) HRL T1,TAB.LB(R) ;FROM WHERE IN LEFT
1) HRRZM T1,TAB.LB(R) ;NOW RESET IT
1) MOVE T2,T1 ;GET A COPY
1) BLT T1,.IPM(T2) ;THIS BLOCK DOWN
1) MOVS T2,T2 ;PUT FROM ADDR. IN RIGHT
1) HRLI T1,(T2) ;NOW FOR ZERO BLT
1) HRRI T1,1(T2)
1) SETZM (T2)
1) TLO T2,.IPM ;STILL HAVE TO SET TOP INUSE
1) HLRZM T2,TAB.AB(R) ;FOR 1 BLOCK
1) BLT T1,.IPM(T2) ;THROUGH THIS BLOCK
1) POPJ P,
1)
****
2)18 ;**;[1172] Replace @ GETS14 JNG 5-Jun-79
2) ;HERE WITH THE PSECT INDEX TO USE IN R, AND ITS NAME IN SSGNAM.
2) ;WE NOW WANT TO CALCULATE HOW FAR THE SYMBOL TABLE IS ALLOWED TO
EXTEND.
2) ;BELIEVE THE USER'S /UPTO SWITCH IF HE GAVE ONE, OTHERWISE STOP
ONE BELOW
2) ;THE NEXT PSECT ORIGIN WE WOULD CROSS, OR STOP AT 777777 IF NO M
ORE PSECTS.
2)
2) GETS14: MOVE P4,@RC.TB ;[1172] POINTER TO THIS PSECT'S
RC BLOCK
2) SKIPE SYMLIM ;[1172] USER TYPE /UPTO?
2) JRST GETS20 ;[1172] YES, BELIEVE IT
2) MOVE T4,RC.HL(P4) ;[1172] ADDR OF START OF PATCH A
REA
2) ADDI R,1 ;[1172] START THE SEARCH AT THE
NEXT PSECT
2)
Digital Equipment Corporation 28-AUG-79 Page 508
PCO Log Report
2)
2) ;LOOP BACK HERE ON EACH NEW PSECT, LOOKING FOR ONE WHOSE ORIGIN
2) ;IS .GE. C(T4).
2)
2) GETS16: CAMLE R,RC.NO ;[1172] CHECKED THEM ALL YET?
2) JRST GETS18 ;[1172] YES, GO USE 777777
2) MOVE T1,@RC.TB ;[1172] GET PSECT'S RC BLOCK
2) MOVE T2,RC.IV(T1) ;[1172] GET ORIGIN OF THIS PSECT
2) CAMGE T2,T4 ;[1172] START ABOVE THE SYMSEG P
SECT?
2) AOJA R,GETS16 ;[1172] NO, MUST HAVE BEEN OVERL
APPING PSECT
2) MOVE T3,RC.HL(T1) ;[1172] YES, CHECK FOR ZERO-LENG
TH PSECT
2) CAMG T3,T2 ;[1172] WOULD WE OVERWRITE ANYTH
ING?
2) AOJA R,GETS16 ;[1172] NO, IGNORE THIS PSECT
2) SOSA T2 ;[1172] YES, LAST ADDR TO USE IS
ONE LESS
2) GETS18: MOVEI T2,777777 ;[1172] NO MORE PSECTS, USE END
OF SECTION 0
2) MOVEM T2,SYMLIM ;[1172] STORE NEWLY CALCULATED L
IMIT
2)
2)
2) ;NOW SET UP SOME FINAL THINGS FOR THE REST OF LINK, THEN RETURN.
2)
2) GETS20: MOVE R,RC.SG(P4) ;[1172] FETCH SEGMENT INDEX FOR
PSECTS
2) MOVE T1,RC.HL(P4) ;[1172] START OF PATCH AREA
2) MOVEM T1,PATLOC ;[1172] REMEMBER FOR RST
2) ADD T1,PATSPC ;[1172] START OF REAL SYMBOL TAB
LE
2) MOVEM T1,RC.HL(P4) ;[1172] UPDATE SIZE OF PSECT
2) TRZ T1,777 ;[1172] ROUND DOWN TO PAGE BOUND
2) CAMGE T1,LOWLOC ;[1172] LOWEST LOCATION YET LOAD
ED?
2) MOVEM T1,LOWLOC ;[1172] YES, SAVE FOR EXE FILE W
RITER.
2) POPJ P, ;[1172] END OF GETSST
2)
2)19 ;HERE IF PAGING TO SETUP LC/HC AREA TO INSERT SYMBOLS INTO.
2) ;WRITE OUT ENTIRE WINDOW, THEN SET UP LAST PAGE ONLY.
2) ;AREA WILL EXPAND AS REQUIRED IN SYMOUT.
2)
2) LSYP: HRLZ T1,LW.S0(R) ;[1172] BOTTOM OF WINDOW
2) HRR T1,UW.S0(R) ;[1172] TOP
2) PUSHJ P,@TB.OUT##(R) ;[1172] WRITE ENTIRE WINDOW TO D
ISK
Digital Equipment Corporation 28-AUG-79 Page 509
PCO Log Report
2) MOVE T1,TAB.AB(R) ;[1172] REDUCE WINDOW TO ONE PAG
E
2) ANDCMI T1,.IPM ;[1172] NEW BOTTOM OF AREA
2) SUBI T1,1 ;[1172] FIRST WORD BELOW NEW BAS
E
2) CAML T1,TAB.LB(R) ;[1172] AREA ALREADY ONE PAGE?
2) PUSHJ P,GBCK.L## ;[1172] NO, SHRINK IT DOWN
2) MOVE T1,RC.HL(P4) ;[1172] GET FIRST ADDR TO STORE
A SYMBOL IN
2) SUB T1,LL.S0(R) ;[1172] RELATIVE TO SEGMENT STAR
T
2) ANDCMI T1,.IPM ;[1172] NEW BOTTOM OF WINDOW
2) MOVEM T1,LW.S0(R) ;[1172] STORE
2) IORI T1,.IPM ;[1172] NEW TOP OF WINDOW
2) CAMN T1,UW.S0(R) ;[1172] WHERE IT WAS ALREADY?
2) POPJ P, ;[1172] YES, DONE
2) MOVEM T1,UW.S0(R) ;[1172] NO, MUST READ IN THE DAT
A
2) HRL T1,LW.S0(R) ;[1172] FORM TRANSFER WORD
2) PJRST @TB.IN(R) ;[1172] READ IN DATA AND RETURN
2)
2)20 ;**;[1172] Move down and change as indicated @ UDF0 JNG
5-Jun-79
2) ;HERE TO WRITE THE UNDEFINED SYMBOL TABLE. THE TABLE IS GENERAT
ED
2) ;BY SCANNING THE GLOBAL SYMBOL TABLE LOOKING FOR UNDEFINED SYMBO
LS.
2) ;WE GENERATE ONE RADIX50 PAIR FOR EACH UNDEFINED SYMBOL, AND ADD
ITIONAL
2) ;PAIRS IF ANY ADDITIVE FIXUPS ARE ENCOUNTERED.
2) ;
2) ;THE ONLY FIXUP TYPES HANDLED ARE ADDITIVE AND RIGHT AND LEFT HA
LF CHAINED.
2) ;OTHER TYPES, SUCH AS SYMBOL FIXUPS AND POLISH, ARE DISCARDED HE
RE. THIS
2) ;IS DUE TO LACK OF A SYMBOL TABLE FORMAT SPEC, AND LACK OF DDT S
UPPORT.
2) ;
2) ;ENTERED WITH:
2) ;
2) ; P4/ POINTER TO RC BLOCK OF /SYMSEG PSECT
2) ; R/ INDEX TO /SYMSEG AREA, LC OR HC
2)
2)
2) ;**;[1172] Replace @ UDF0 JNG 5-Jun-79
2) DOUDFS: MOVE T1,TAB.PT(R) ;[1172] LINK'S ADDRESS OF NEXT W
ORD
2) SUB T1,TAB.LB(R) ;[1172] FIND OFFSET IN WINDOW
2) ADD T1,LW.S0(R) ;[1172] FIND OFFSET IN SEGMENT
2) ADD T1,LL.S0(R) ;[1172] FORM ABSOLUTE ADDRESS
2) HRLZM T1,JOB117 ;[1172] STORE IN LH(JOB117) FOR
Digital Equipment Corporation 28-AUG-79 Page 510
PCO Log Report
A WHILE
2) SETZM SYMDEW ;[1172] DON'T NEED EXTRA ROOM FR
OM SYMOUT
2) MOVE P2,HT.PRM ;GET HASH SIZE
2) SKIPE T1,@HT.PTR ;GET POINTER IF NON-ZERO
2) JRST UDFTRY ;SEE IF A REQUEST
2) UDFNXT: SOJGE P2,.-2 ;MORE?
2) JRST UDFDN ;NO
2)
2) UDFTRY: ADD T1,GS.LB ;ADD IN BASE
2) MOVE W1,(T1) ;GET FLAGS
2) TXNN W1,PS.REQ ;GLOBAL REQUEST
2) JRST UDFNXT ;NO, TRY NEXT SYMBOL
2) DMOVE W2,1(T1) ;GET SIXBIT SYMBOL & VALUE (REQU
EST POINTER)
2) PUSHJ P,SXBR50 ;CONVERT TO SIXBIT
2) TXO W2,R5.GLB ;MAKE GLOBAL DEFINITION
2) ;**;[1172] Replace @ UDFTRY+7L JNG 5-Jun-79
2) PUSHJ P,SYMOUT ;[1172] STORE W2/W3 IN IMAGE
2) JRST UDFDN ;[1172] NO MORE ROOM, CLOSE UP S
HOP
2) AOS JOB117 ;[1172] ANOTHER ONE STORED, BUMP
COUNT
2) TXNE W1,PS.FXP ;ANY ADDITIVE GLOBAL FIXUPS
2) JRST UDFGB ;YES, RECREATE THE REQUESTS
2) JRST UDFNXT ;[1172] NO, LOOK FOR ANOTHER SYM
BOL
2)
2)21 ;THE LOOP BELOW FINDS THE S.FXP TRIPLET IN THE GS AREA, THEN CHA
SES
2) ;THE CHAIN OF FIXUPS DEPENDING ON THIS SYMBOL THROUGH THE FX ARE
A,
2) ;WRITING UNDEFINED SYMBOL TABLE ENTRIES FOR APPLICABLE FIXUPS AS
IT GOES.
2) ;
2) ;ENTER AT UDFGB.
2)
2) UDFGB0: TXNE W1,S.LST ;IS THIS THE LAST BLOCK
2) JRST UDFNXT ;[1172] YES
2) ADDI T1,.L ;NO, GET NEXT TRIPLET
2) UDFGB: HRRZ T1,@HT.PTR ;GET POINTER AGAIN
2) ADD T1,GS.LB ;ADD IN BASE
2) SKIPG W1,.L(T1) ;GET NEXT FLAG WORD
2) JRST UDFERR ;MUST HAVE SIGN BIT ON
2) TXNN W1,S.FXP ;AND A FIXUP
2) JRST UDFGB0 ;NOT YET
2) ;**;[1172] Replace @ UDFGB+6L JNG 5-Jun-79
2) MOVE T1,.L+2(T1) ;[1172] GET VALUE
2) UDFGB1: ADD T1,FX.LB ;RELOCATE IN FIXUP TABLE
Digital Equipment Corporation 28-AUG-79 Page 511
PCO Log Report
2) SKIPL W1,0(T1) ;GET FLAGS
2) JRST UDFERR ;JUST INCASE
2) ;**;[1160] Replace @ UDFGB1+3L JNG 14-Apr-79
2) TXNE W1,FP.SYM ;[1160] FIXUP BASED ON UNDEFINED
SYMBOL?
2) TXNN W1,FS.FXR!FS.FXL ;[1160] CAN ONLY PUT OUT RH OR
LH ADDITIVE
2) JRST UDFGB2 ;[1160] CAN'T OUTPUT POLISH, SYM
FIXUPS, ETC.
2) DMOVE W2,1(T1) ;GET DATA WORDS
2) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
2) TXO W2,R5.GLB ;MAKE INTO A GLOBAL DEFINITION
2) TXO W3,R5.FXA ;AND TURN ON ADDITIVE BIT
2) TXNE W1,FS.FXL ;LEFT HALF?
2) TXO W3,R5.FXL ;YES
2) ;**;[1172] Replace @ UDFGB1+13L JNG 5-Jun-79
2) PUSHJ P,SYMOUT ;[1172] WRITE W2/W3 INTO THE IMA
GE
2) JRST UDFDN ;[1172] SPACE EXCEEDED, STOP
2) AOS JOB117 ;[1172] OK, WROTE ANOTHER ONE
2) UDFGB2: HRRZ T1,W1 ;GET POINTER
2) JUMPE T1,UDFNXT ;[1172] ALL DONE IF ZERO
2) JRST UDFGB1 ;GET NEXT BLOCK
2)
2)
2) ;HERE WHEN AN UNDEFINED SYMBOL WITH PS.FXP SET IS NOT FOLLOWED B
Y A
2) ;SECONDARY TRIPLET WITH S.FXP SET.
2)
2) UDFERR: JRST UDFNXT ;[1172] SYMBOL TABLE FOULED UP
2)
2)22 ;HERE WHEN FINISHED WRITING THE UNDEFINED SYMBOL TABLE.
2) ;SET UP .JBUSY AND RETURN.
2)
2) UDFDN: SKIPE PAG.S1 ;[1172] PAGING?
2) SKIPA T1,JOBPTR ;[1172] YES, LOAD CORRECT OFFSET
2) MOVE T1,LC.LB ;[1172] CODE OFFSET
2) HRRZ T2,JOB117 ;[1172] GET NUMBER OF UNDEFINED
SYMBOLS
2) IMULI T2,-2 ;[1172] 2 WORDS/SYMBOL, WANT NEG
ATIVE
2) HRRM T2,JOB117 ;[1172] FORM ADDR,,-LEN
2) MOVSS T2,JOB117 ;[1172] FORM -LEN,,ADDR
2) MOVEM T2,.JBUSY(T1) ;[1172] STORE IN IMAGE
2) POPJ P, ;[1172] DONE WITH UNDEFINED TABL
E, RETURN
2)
2)23 ;SUBROUTINE TO DELETE THE GS AREA, AND CUT BACK MEMORY IF POSSIB
LE.
Digital Equipment Corporation 28-AUG-79 Page 512
PCO Log Report
2)
2) ;**;[1172] Move down and change as indicated JNG 5-Jun-79
2) GSDLT:
2) IFE TOPS20,< ;[1113] DON'T SHRINK BACK ON TOP
S-20
2) SKIPN .JBDDT(T1) ;SEE IF WE NEED LOCAL SYMBOLS
2) SKIPE SYMSEG ;EITHER FOR /DEB OR /SYMSEG
2) JRST GSNRED ;YES, DON'T CUT BACK CORE YET
2) MOVEI T1,GS.IX-1 ;START AT AREA JUST LOWER
2) SKIPN TAB.LB(T1) ;FIND HIGHEST AREA IN USE
2) SOJA T1,.-1 ;WILL GET THERE EVENTUALLY
2) MOVE T2,TAB.AB(T1) ;GET HIGHEST LOC IN USE IN IT
2) IORI T2,1777 ;K BOUND
2) ADDI T2,2000 ;EXTRA K FOR SAFETY
2) CAML T2,.JBREL ;ANYTHING TO GIVE BACK?
2) JRST GSNRED ;NO, REDUCED ALREADY
2) CORE T2, ;DELETE TOP PART
2) JRST GSNRED ;NEVER CAN HAPPEN
2) MOVE T2,.JBREL ;GET NEW TOP
2) ;**;[773] Insert @ GSDLT+14L JNG 30-Apr-78
2) SKIPN GS.LB ;[773] GS AREA ALREADY GONE?
2) JRST GSDLT1 ;[773] YES, DON'T RECREATE IT
2) MOVEM T2,GS.AB ;RESET TABLE
2) MOVEM T2,GS.UB
2) CAMLE T2,GS.LB ;INCASE WE REDUCED IT ALL
2) JRST GSRED ;NO, ALL IS WELL
2) ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
2) GSDLT1: MOVEM T2,TAB.UB(T1) ;[773] RESET HIGHEST FREE LOC AG
AIN
2) SETZM GS.LB ;SO XX.ZAP CAN WORK
2) GSRED: .ERR. (MS,.EC,V%L,L%I,S%I,RED,<Reducing low segment to
>)
2) .ETC. (COR,.EP,,,,.JBREL)
2) ;**;[1113] Change @GSNRED DZN 25-Aug-78
2) > ;END OF IFE TOPS20
2) GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
2) ;**;[1172] Replace @ GSNRED+1L JNG 5-Jun-79
2) POPJ P, ;[1172] END OF GSDLT
2)
2)24 ;HERE TO WRITE THE DEFINED SYMBOLS INTO THE IMAGE.
2)
2) DOLOCS: SKIPE PAG.LS ;[1172] PAGING?
2) PUSHJ P,SYMINI ;[1172] YES, SET WINDOW TO END O
F LS AREA
2) MOVEI T1,2 ;[1172] NEED ENOUGH WARNING TO P
UT A TITLE OUT
2) MOVEM T1,SYMDEW ;[1172] STORE FOR SYMOUT
2) MOVE T1,TAB.PT(R) ;[1172] COMPUTE START OF THIS TA
BLE
2) SUB T1,TAB.LB(R) ;[1172] OFFSET IN WINDOW TO FIRS
T AFTER USY
Digital Equipment Corporation 28-AUG-79 Page 513
PCO Log Report
2) ADD T1,LW.S0(R) ;[1172] OFFSET IN SEGMENT
2) ADD T1,LL.S0(R) ;[1172] FORM ABSOLUTE ADDRESS FO
R RH(.JBSYM)
2) HRLZM T1,JOB116 ;[1172] STORE IN LH(JOB116) A WH
ILE
2) PUSHJ P,PATOUT ;[1172] WRITE THE PAT.. SYMBOL A
ND MODULE
2) SKIPN SYMFUL ;[1172] ANY ROOM LEFT?
2) PUSHJ P,LSLOOP ;[1172] DO THE WORK
2)
2)
2) ;HERE WHEN THE SYMBOLS HAVE BEEN INSERTED INTO THE IMAGE. UPDAT
E .JBSYM.
2)
2) SKIPE PAG.S1 ;[1172] PAGING?
2) SKIPA T1,JOBPTR ;[1172] YES, JOBDAT'S IN DY
2) MOVE T1,LC.LB ;[1172] NO, IT'S IN LC
2) HRRZ T2,JOB116 ;[1172] NUMBER OF WORD PAIRS WRI
TTEN
2) IMULI T2,-2 ;[1172] WANT -COUNT
2) HRRM T2,JOB116 ;[1172] ADDR,,-LEN
2) MOVSS T2,JOB116 ;[1172] -LEN,,ADDR
2) MOVEM T2,.JBSYM(T1) ;[1172] STORE IN JOBDAT
2) POPJ P, ;[1172] DONE WITH DOLOCS
2)
2)25 ;HERE TO MOVE SYMBOLS TO TOP OF CORE
2) ;IF SORTING PUT SORT BUFFER IN AREA GS
2)
2) ;**;[1172] Move up and change as indicated @ SYMINI JNG
5-Jun-79
2) SYMINI: SKIPL UW.LS ;[1172] IF -1 THEN SYMBOL TABLE
NOT OUTPUT YET
2) JRST RDSYM ;JUST READ IT BACK IN
2) MOVE T1,LSYM ;ADRESS OF LAST SYMBOL STORED +1
2) SUBI T1,1
2) IORI T1,.IPM ;BLOCK BOUND
2) HRL T1,LW.LS ;FORM BLT WORD
2) HRRZM T1,UW.LS ;SIGNAL ALL OF SYMBOLS ON DSK
2) PUSHJ P,LS.OUT## ;AND OUTPUT IT
2) ;FALL INTO RDSYM TO READ IT BACK
2)
2) ;**;[1172] Replace @ RDSYM JNG 5-Jun-79
2) RDSYM: PUSHJ P,FR.CNT## ;[1172] SEE HOW MUCH IS FREE
2) LSH T1,-1 ;[1172] TAKE HALF OF IT FOR LS W
INDOW
2) ANDCMI T1,.IPM ;[1172] KEEP ON A PAGE BOUND
2) CAIGE T1,2*.IPS ;[1172] BUT NEED AT LEAST TWO PA
GES
2) MOVEI T1,2*.IPS ;[1172] SO FORCE AT LEAST THAT M
Digital Equipment Corporation 28-AUG-79 Page 514
PCO Log Report
ANY
2) MOVE T2,LS.AB ;[1172] CALCULATE CURRENT SIZE O
F LS AREA
2) SUB T2,LS.LB ;[1172] LAST - FIRST
2) ADDI T2,1 ;[1172] PLUS 1
2) CAML T2,T1 ;[1172] HAVE LESS THAN WE WANT?
2) JRST RDSYM2 ;[1172] ALREADY BIG ENOUGH
2) SUB T1,T2 ;[1172] HOW MUCH MORE WE NEED
2) MOVEI P1,LS.IX ;[1172] ARRANGE TO GET IT
2) MOVE P2,T1 ;[1172] HOW MUCH TO GET
2) PUSHJ P,LNKCOR## ;[1172] SHUFFLE
2) PUSHJ P,NO.COR## ;[1172] CANNOT HAPPEN
2)
2)
2) ;NOW READ THE LAST PAGE OF SYMBOLS INTO THE FIRST PAGE OF THE LS
AREA.
2) ;LSLOOP WILL QUICKLY FALL OFF THE BOTTOM (READING BACKWARDS), AN
D
2) ;FILL THE ENTIRE WINDOW WITH THE NEXT LOWER PIECE.
2)
2) RDSYM2: MOVE T1,LSYM ;[1172] LAST WORD OF SYMBOLS + 1
2) SUBI T1,1 ;[1172] LAST WORD IN USE
2) ANDCMI T1,.IPM ;[1172] BOTTOM OF NEW WINDOW
2) MOVEM T1,LW.LS ;[1172] SET FOR PAGING ROUTINES
2) ADD T1,LS.AB ;[1172] ADD WINDOW SIZE
2) SUB T1,LS.LB ;[1172] TO GET TOP OF WINDOW
2) MOVEM T1,UW.LS ;[1172] STORE FOR PAGING ROUTINE
S
2) MOVE T1,LSYM ;[1172] FIRST UNUSED WORD AGAIN
2) SUB T1,LW.LS ;[1172] HOW FAR INTO WINDOW IT I
S
2) ADD T1,LS.LB ;[1172] FIX IN MEMORY
2) MOVEM T1,LS.PT ;[1172] SAVE FOR GETSYM
2) HRLZ T1,LW.LS ;[1172] NOW FILL BOTTOM PAGE
2) HRR T1,LW.LS ;[1172] REST WILL BE FILLED BY P
AGSYM
2) IORI T1,.IPM ;[1172] ROUND UP TO TOP OF PAGE
2) PJRST LS.IN## ;[1172] FILL THE WINDOW AND RETU
RN
2)
2)26 ;LNKOV2 FILLS THE LS AREA WITH SYMBOL TRIPLETS, ZEROES THE LC AR
EA,
2) ;AND THEN PUSHJ'S DIRECTLY TO LSLOOP TO CONVERT THE SYMBOLS TO
2) ;RADIX50 AND PUT A RUNTIME SYMBOL TABLE INTO THE LC AREA. IT
2) ;THEN WRITES THE LC AREA TO THE APPROPRIATE PLACE IN THE OVERLAY
FILE.
2) ;
2) ;THIS IS AN INITIALIZATION ROUTINE CALLED BY LNKOV2 TO SET THING
S UP
Digital Equipment Corporation 28-AUG-79 Page 515
PCO Log Report
2) ;BEFORE CALLING LSLOOP.
2)
2) IFN FTOVERLAY,<
2)
2) LSOVX:: MOVX T1,.INFIN ;[1172] DON'T STOP FOR A SYMBOL
LIMIT
2) MOVEM T1,SYMLIM ;[1172] SINCE NOT REALLY LOADING
INTO MEMORY
2) SETZM SYMDEW ;[1172] DON'T NEED ANY WARNING
2) SETZM SYMFUL ;[1172] HAVE LOTS OF ROOM FOR SY
MBOLS
2) SETZM JOB116 ;[1172] LSLOOP AOSES THIS FOR EV
ERY SYMBOL
2) SKIPN LNKNO. ;[1172] IS THIS THE ROOT?
2) PJRST PATOUT ;[1172] YES, WRITE PAT.. AND RET
URN
2) MOVNI T1,2 ;[1172] NO, INIT TTLPTR
2) MOVEM T1,TTLPTR ;[1172] SO FIRST MODULE WILL BE
RIGHT
2) POPJ P, ;[1172] RETURN TO LNKOV2
2) > ;END IFN FTOVERLAY
2)
2)27 ;HERE TO WRITE THE PAT.. SYMBOL AND MODULE TO THE SYMBOL TABLE.
2)
2) PATOUT: MOVE W2,[RADIX50 04,PAT..] ;[1172] NAME
2) MOVE W3,PATLOC ;[1172] VALUE
2) PUSHJ P,SYMOUT ;[1172] WRITE IT OUT
2) JRST [HRLI W3,-2 ;[1172] SYMBOL WON'T FIT, JUST W
RITE NAME
2) SETZM SYMDEW ;[1172] IF IT WILL FIT
2) JRST PATOU2] ;[1172] RE-JOIN COMMON CODE
2) AOS JOB116 ;[1172] A SYMBOL PAIR SUCCESSFUL
LY WRITTEN
2) HRLI W3,-4 ;[1172] FOUR WORDS IN THIS MODUL
E
2) PATOU2: MOVE T1,TAB.PT(R) ;[1172] BEFORE WRITING THE TITLE
,
2) SUB T1,TAB.LB(R) ;[1172] FIGURE OUT WHERE IT GOES
2) ADD T1,LW.S0(R) ;[1172] AS AN OFFSET INTO THE SE
GMENT
2) MOVEM T1,TTLPTR ;[1172] SAVE FOR LTITLE
2) TLZ W2,740000 ;[1172] MAKE 0,PAT.. BE THE TITL
E
2) PUSHJ P,SYMOUT ;[1172] WRITE THE TITLE
2) CAIA ;[1172] OOPS! SEE WHAT WENT WRON
G
2) JRST PATOU4 ;[1172] OK, NOW GO WRITE THE REA
L SYMBOLS
2) SKIPN SYMDEW ;[1172] 4,PAT.. FAILED ABOVE? (D
ON'T USE SYMFUL)
2) JRST [SETZM JOB116 ;[1172] YES, THERE WON'T BE A SY
Digital Equipment Corporation 28-AUG-79 Page 516
PCO Log Report
MBOL TABLE
2) POPJ P,] ;[1172] JUST RETURN
2) SETZM SYMDEW ;[1172] USE OUR RESERVE FOR PAT.
.'S TITLE
2) PUSHJ P,SYMOUT ;[1172] WRITE IT
2) JFCL ;[1172] CAN'T HAPPEN
2) PATOU4: AOS JOB116 ;[1172] ANOTHER SYMBOL WRITTEN
2) POPJ P, ;[1172] DONE
2)
**************
1)25 TXNE W1,PT.SYM ;ONLY WANT REAL SYMBOLS
****
2)28 ;**;[1172] Insert @ LSLOOP+5L JNG 5-Jun-79
2) SKIPE SYMFUL ;[1172] SKIPPING FOR LAST MODULE
NAME?
2) JRST LSLOOP ;[1172] YES, REJECT ALL OTHER RA
NDOM SYMBOLS
2) TXNE W1,PT.SYM ;ONLY WANT REAL SYMBOLS
**************
1)25 POPJ P, ;[715] EXCEEDED SPACE, RETURN
1) SKIPGE LSCNT ;DO WE HAVE SOMETHING TO GIVE BA
CK?
1) PUSHJ P,RDUSYM ;YES, SAFE TO DO SO NOW
1) JRST LSLOOP ;AND BACK FOR MORE
1)
1) LSLUPC: PUSHJ P,SYMOUT ;OUTPUT IT
1) POPJ P, ;[715] EXCEEDED SPACE, RETURN
1) PUSH P,W3 ;SAVE ADDRESS
****
2)28 ;**;[1172] Replace @ LSLUP1+1L JNG 5-Jun-79
2) JRST [SETZM SYMDEW ;[1172] GO INTO FIND MODULE NAME
MODE
2) JRST LSLOOP] ;[1172] START THE HUNT
2) AOS JOB116 ;[1172] ANOTHER SYMBOL STORED
2) JRST LSLOOP ;AND BACK FOR MORE
2)
2) LSLUPC: MOVEI T1,4 ;[1172] NEED FOUR WORDS OR NOTHI
NG
2) MOVEM T1,SYMDEW ;[1172] SO BUMP WARNING LEVEL
2) PUSHJ P,SYMOUT ;OUTPUT IT
2) JRST [SETZM SYMDEW ;[1172] WON'T BOTH FIT
2) JRST LSLOOP] ;[1172] CLOSE OFF TABLE AND STOP
2) AOS JOB116 ;[1172] ANOTHER PAIR OUT
2) MOVEI T1,2 ;[1172] PUT SYMOUT CUTOFF BACK
2) MOVEM T1,SYMDEW ;[1172] NEXT PAIR GUARANTEED TO
FIT
2) PUSH P,W3 ;SAVE ADDRESS
**************
1)26 ;HERE TO GET NEXT SYMBOL BLOCK
Digital Equipment Corporation 28-AUG-79 Page 517
PCO Log Report
****
2)29 ;HERE ON A TITLE IN THE LS AREA.
2)
2) ;**;[1172] Move up and change as indicated JNG 5-Jun-79
2) LTITLE: TXNE W1,PT.PSC ;[1132] JUST A PSECT DEFINITION?
2) JRST LSLOOP ;[1132] YES, DON'T PUT IN SYMBOL
TABLE
2) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
2) TXNE W1,PT.BLK ;ONLY A FAIL BLOCK HEADER?
2) JRST BTITLE ;YES
2) MOVE T2,TTLPTR ;GET ADDRESS OF LAST PROG
2) HRRZ T1,TAB.PT(R) ;GET THIS ADDRESS
2) SUB T1,TAB.LB(R) ;MINUS OFFSET
2) ADD T1,TAB.LW(R) ;PLUS BASE OF WINDOW
2) MOVEM T1,TTLPTR ;SAVE FOR NEXT
2) SUB T1,T2 ;GET DIFFERENCE
2) MOVN T1,T1 ;NEGATE
2) HRL W3,T1 ;FIXUP POINTER
2) PUSH P,W2 ;SAVE SYMBOLS
2) PUSH P,W3
2) TTLLUP: MOVX T1,S.TTL!S.SEG ;FLAGS
2) PUSHJ P,GETAST ;GET EXTENSION TRIPLET
2) SETZB W2,W3 ;ONLY HERE IF DEFINED BY /SWITCH
2) SKIPE W3 ;IF ANY HIGH SEG STUFF
2) MOVE W2,W3 ;USE IT
2) POP P,W3 ;GET W3 BACK
2) HLR W3,W2 ;FIX IT UP
2) POP P,W2
2) PUSHJ P,SYMOUT ;OUTPUT PSEUDO SYMBOL
2) ;**;[1172] Replace @ TTLLUP+9L JNG 5-Jun-79
2) JRST [SETZM SYMDEW ;[1172] USE THE RESERVE TO STORE
THIS TITLE
2) JRST .-1] ;[1172] TRY AGAIN
2) AOS JOB116 ;[1172] COUNT ANOTHER SYMBOL PAI
R
2) SKIPE SYMFUL ;[1172] WAS THIS OUR LAST TITLE?
2) POPJ P, ;[1172] YES, QUIT, SINCE NO MORE
ROOM
2) JRST LSLOOP ;RETURN
2)
2)
2)
2) BTITLE: SKIPE SYMFUL ;[1172] ROOM FOR THIS?
2) JRST LSLOOP ;[1172] NO, DON'T STORE IT
2) TXO W2,R5.LCL!R5.GLB ;MAKE RADIX50 14,SYM
2) HRRZ W3,W3 ;BLOCK LEVEL ONLY
2) JRST LSLUP1 ;AND TREAT AS LOCAL SYMBOL
2)
2)30 ;HERE TO GET NEXT SYMBOL BLOCK
Digital Equipment Corporation 28-AUG-79 Page 518
PCO Log Report
**************
1)26 MOVNI T1,3
1) ADDB T1,LSCNT ;REDUCE COUNT IN THIS BLOCK
1) JRST CPOPJ1 ;SKIP RETURN
1)
1) ;HERE TO GIVE BACK TOP BLOCK OF SYMBOLS
1) ;CAN ONLY BE DONE IF WE HAVE FINISHED WITH CURRENT SYMBOL
1) ;AND ITS SECONDARY TRIPLETS
1) ;SPECIFICALLY TITLE SECONDARIES MUST NOT BE DELETED UNTIL
1) ;TITLE IS OUTPUT
1)
1) RDUSYM: MOVE T1,LS.PT ;GET LOWEST ADDRESS WE STILL NEE
D
1) IORI T1,.IPM ;FORM BLOCK BOUND
1) MOVE T2,LS.AB ;PREV TOP
1) SUBI T2,(T1) ;LENGTH
1) JUMPE T2,CPOPJ ;JUST IN CASE
1) HRLZ T3,T1 ;FORM BLT PTP
1) HRRI T3,1(T1)
1) SETZM (T1) ;CLEAR FIRST WORD
1) EXCH T1,LS.AB ;SET IT SO
1) BLT T3,(T1)
1) MOVEI T1,.IPS ;RESET COUNT
1) ADDM T2,LSCNT ;RESET WORD COUNT
1) MOVN T2,T2 ;NEGATE IT
1) SKIPE UW.LS ;LEAVE ALONE IF NOT PAGING
1) ADDM T2,UW.LS ;ADJUST UPPER WINDOW
1) POPJ P,
1)
****
2)30 ;**;[1172] Delete @ GETSYM+6L JNG 5-Jun-79
2) JRST CPOPJ1 ;SKIP RETURN
2)
**************
1)27 SKIPE T1,FX.LB ;ANY FIXUPS LEFT
1) SOJA T1,.+2 ;YES, BETTER LEAVE AREA WHERE IT
IS
1) MOVE T1,.JBREL ;MOVE LAST BLOCK TO A SAFE PLACE
1) MOVE T2,T1 ;GET A COPY FOR END OF BLT
1) ANDCMI T1,.IPM ;AT TOP OF CORE
1) CAMG T1,LS.LB ;SAME AREA BLT FROM/TO?
1) JRST PAGSY2 ;YES, DON'T CLEAR IT!
1) MOVEI T3,-1(T1) ;END OF VACATED AREA
1) CAMLE T3,LS.AB ;CLEAR ALL OF IT?
1) MOVE T3,LS.AB ;NO, JUST PART NOT DONE
1) HRL T1,LS.LB ;SO WE HAVE THE HOLE IN THE MIDD
LE
1) BLT T1,(T2) ;GO
1) HRRZ T1,LS.LB ;NOW TO ZERO THE JUNK WE LEFT BE
Digital Equipment Corporation 28-AUG-79 Page 519
PCO Log Report
HIND
1) SETZM (T1) ;FIRST WORD
1) HRL T1,T1
1) ADDI T1,1 ;BLT PTR
1) BLT T1,(T3) ;CLEAR 200 WORDS (USUALLY)
1) PAGSY2: MOVE T1,T2 ;
1) MOVEM T1,LS.UB ;ABSOLUTE NEW TOP
1) MOVEM T1,LS.AB ;NO FREE SPACE (AB SAME)
1) SUB T1,LS.LB ;+DIFF (TOTAL AREA - 1)
1) ANDCMI T1,.IPM ;DON'T COUNT PART IN USE
1) ADDM T1,LS.LB ;FIXUP PTRS
1) ADDM T1,LS.PT
1) MOVEI T1,LS.IX ;ACCOUNT FOR NEW FREE SPACE
1) PUSHJ P,ADJ.L ;BY GIVING IT TO NEXT LOWER AREA
1)
1)28 ;NOW CHECK TO SEE IF AREA IS BIG ENOUGH
1)
1) PAGSY1: PUSHJ P,FR.CNT## ;SEE WHATS FREE
1) LSH T1,-1 ;CUT IN HALF
1) ANDCMI T1,.IPM ;BUT KEEP ON A BLOCK BOUND
1) JUMPE T1,[MOVEI T1,(R) ;AREA
1) MOVEI T2,2*.IPS ;SIZE
1) PUSHJ P,EXPSYM ;INCREASE SYMBOL SIZE
1) MOVNI T1,2*.IPS ;NOW GIVE BACK SPACE
1) ADDM T1,TAB.AB(R)
1) JRST PAGSY1] ;AND TRY AGAIN
1) CAMLE T1,LW.LS ;DO WE NEED ALL OF THIS SPACE
1) MOVE T1,LW.LS ;NO, JUST USE ENOUGH
1) MOVN T1,T1 ;-INCREASE IN SIZE
1) ADDM T1,LS.LB ;ADJUST LOWER BOUND
1) MOVEI T2,LS.IX-1 ;NOW TO FIND NEXT LOWER BOUND
1) SKIPN TAB.LB(T2) ;IN USE
1) SOJA T2,.-1
1) MOVE T3,TAB.AB(T2) ;GET UPPER BOUND OF NEXT LOWER
1) CAML T3,LS.LB ;IS THERE ENOUGH ROOM?
1) AOJA T3,[SPUSH <P1,P2> ;SAVE
1) MOVEI P1,LS.IX ;AREA TO EXPAND
1) MOVM P2,T1 ; AND SIZE
1) ADDM P2,LS.LB ;ADD BACK
1) PUSHJ P,LNKCOR## ;GET THE SPACE
1) PJRST NO.COR## ;SHOULD NEVER OCCUR
1) SPOP <P2,P1> ;RESTORE
1) PJRST PAGSYM] ;GO GET SYMBOLS
1) MOVE T3,LS.LB ;BOTTOM OF THIS AREA
1) SUBI T3,1 ;-1 IS TOP OF NEXT
1) MOVEM T3,TAB.UB(T2) ;TAKE IT ALL (SHUFFLER WILL GET
US OUT OF TROUBLE)
1) ADDM T1,LW.LS ;BACKUP WINDOW
1) HRLZ T1,LW.LS ;FORM INPUT PTR
Digital Equipment Corporation 28-AUG-79 Page 520
PCO Log Report
1) HRR T1,UW.LS ;LOWER ,, UPPER
1) PUSHJ P,LS.IN## ;INPUT AREA
1) JRST CPOPJ1 ;SKIP RETURN
1)
****
2)31 ;**;[1172] Replace @ PAGSYM+3L JNG 5-Jun-79
2) HRLZ T1,LS.LB ;[1172] MOVE FIRST BLOCK OF SYMB
OLS
2) HRR T1,LS.AB ;[1172] UP TO LAST BLOCK OF LS
AREA
2) ANDCMI T1,.IPM ;[1172] NOW HAVE SRC,,DEST
2) BLT T1,@LS.AB ;[1172] MOVE THE DATA
2) MOVE T1,LS.AB ;[1172] CHECK TO SEE IF LAST TIM
E
2) ANDCMI T1,.IPM ;[1172] ACCOUNT FOR PAGE WE KEPT
2) MOVEI T2,.IPM ;[1172] MASK FOR PAGE OFFSET
2) ANDM T2,LS.PT ;[1172] OFFSET TO CURRENT SYMBOL
2) ADDM T1,LS.PT ;[1172] MOVE POINTER TO LAST PAG
E OF AREA
2) SUB T1,LW.LS ;[1172] BOTTOM ADDR IF WE FINISH
ED THIS TIME
2) SUBI T1,1 ;[1172] GET LOCATION BELOW FIRST
USED
2) CAML T1,LS.LB ;[1172] LS AREA TOO BIG (LAST TI
ME)?
2) PUSHJ P,GBCK.L## ;[1172] YES, GET RID OF BOTTOM P
ART
2) MOVE T1,LW.LS ;[1172] GET OLD LOWER WINDOW ADD
RESS
2) IORI T1,.IPM ;[1172] THE END OF THAT PAGE
2) MOVEM T1,UW.LS ;[1172] FORM NEW UPPER WINDOW
2) ADD T1,LS.LB ;[1172] SUBTRACT LENGTH OF AREA
2) SUB T1,LS.AB ;[1172] TO FORM LOWER WINDOW
2) MOVEM T1,LW.LS ;[1172] STORE FOR PAGING ROUTINE
S
2) HRLZ T1,T1 ;[1172] NOW TO READ IN THE DATA
2) HRR T1,UW.LS ;[1172] TRANSFER WORD TO WHOLE A
REA
2) SUBI T1,.IPS ;[1172] BUT WE ALREADY HAVE LAST
PAGE
2) PUSHJ P,LS.IN ;[1172] FILL UP THE AREA
2) JRST CPOPJ1 ;[1172] SKIP RETURN
2)
**************
1)30 SYMOUT: AOS T1,TAB.PT(R) ;SEE IF ENOUGH TO STORE 2 WORDS
1) SKIPG T2,SYMLIM ;[715] IS IT LIMITED BY NEXT PSE
CT?
1) JRST SYMO4 ;[715] NO,
1) PUSH P,T1 ;[715] YES, SAV T1
1) SUB T1,LC.LB ;[715] MINUS WINDOW
1) ADD T1,LW.LC ;[715] CONVERT TO VIRTUAL ADDR
Digital Equipment Corporation 28-AUG-79 Page 521
PCO Log Report
1) CAMGE T1,SYMLIM ;[715] EXCEEDED THE LIMIT
1) JRST [POP P,T1 ;[715] RESTURE T1
1) JRST SYMO4] ;[715] AND RETURN
1) SKIPN SSGNAM ;[727] HAVE A NAME TO OUTPUT?
1) JRST SYMOE1 ;[727] NO, JUMP OVER OUTPUTTING
NAME
1) .ERR. (MS,.EC,V%L,L%W,S%W,ISS,<Insufficient space for
symbol table>)
****
2)33 ;**;[1172] Move up @ SXBR50 JNG 5-Jun-79
2) ;SXBR50 -- SUBROUTINE TO CONVERT SIXBIT TO RADIX-50
2) ;CALLED BY
2) ; MOVE W2,SIXBIT WORD
2) ; PUSHJ P,SXBR50
2) ;RETURN
2) ; RADIX-50 IN W2
2) ;USES T1, T2
2)
2) SXBR50: MOVE T2,W2 ;GET SIXBIT SYMBOL
2) SETZ W2, ;WHERE TO STORE RADIX50 SYMBOL
2) SETZ T1, ;CLEAR RECEIVING ACC
2) LSHC T1,6 ;GET NEXT CHAR
2) IMULI W2,50 ;MULTIPLE BY 50
2) ADD W2,SXBTAB(T1) ;ADD IN NEW CHAR
2) JUMPN T2,.-4 ;NOT DONE YET
2) POPJ P,
2)
2) DEFINE SXBCHR (CHR)<
2) IRPC CHR,<
2) RADIX50 0,CHR
2) >>
2)
2) XALL
2) SXBTAB: SXBCHR ( $% . 0123456789 ABCDEFGHIJKLMNO
PQRSTUVWXYZ )
2) SALL
2)
2)34 ;HERE TO WRITE THE RADIX-50 SYMBOL IN W2/W3 TO THE IMAGE.
2) ;RETURNS NON-SKIP, MESSAGE PRINTED, IF SYMBOL WON'T FIT BELOW SY
MLIM.
2) ;SYMBOL WON'T FIT IF IT IS WITHIN C(SYMDEW) WORDS OF PASSING SYM
LIM.
2)
2) ;**;[1172] Replace @ SYMOUT JNG 5-Jun-79
2) SYMOUT: MOVE T1,TAB.PT(R) ;[1172] ADDRESS TO STORE INTO NE
XT
2) AOS T2,T1 ;[1172] LAST ADDRESS THIS SYMBOL
WILL USE
2) SUB T2,TAB.LB(R) ;[1172] CONVERT TO OFFSET IN SEG
Digital Equipment Corporation 28-AUG-79 Page 522
PCO Log Report
MENT
2) ADD T2,TAB.LW(R) ;[1172] (USUALLY SAME AS VIRTUAL
ADDRESS)
2) ADD T2,LL.S0(R) ;[1172] MAKE SURE IT'S A VIRTUAL
ADDRESS
2) ADD T2,SYMDEW ;[1172] RESPECT DISTANT EARLY WA
RNING FACTOR
2) CAMG T2,SYMLIM ;[1172] WOULD WE STORE BEYOND LE
GAL BOUNDS?
2) JRST SYMOU2 ;[1172] NO, CONTINUE
2) SKIPE SYMFUL ;[1172] ALREADY ISSUED A MESSAGE
?
2) POPJ P, ;[1172] YES, DONT SAY IT AGAIN
2) SETOM SYMFUL ;[1172] REMEMBER FOR NEXT TIME &
CALLERS
2) .ERR. (MS,.EC,V%L,L%W,S%W,ISS,<Insufficient space for
symbol table>)
**************
1)30 JRST SYMOE2 ;[727]
1) SYMOE1: .ERR. (MS,.EC,V%L,L%W,S%W,ISS)
1) .ETC. (STR,,,,,,<--table truncated>)
1) SYMOE2: SOS TAB.PT(R) ;[727] DECREMENT ONE
1) POP P,T1 ;[715]
1) POPJ P, ;[715] ERROR RETURN
1) SYMO4: CAMG T1,TAB.AB(R)
1) JRST SYMO1 ;YES
1) ;SEE IF WE CAN JUST EXPAND
1) CAML T1,TAB.UB(R) ;INTO FREE SPACE?
1) JRST SYMO2 ;NO, EXPAND OR WRITE PAGE OUT
1) MOVEI T2,.IPS ;PAGE SIZE
1) ADDM T2,TAB.AB(R) ;ACCOUNT FOR IT
1) SKIPE UW.S0(R) ;IF PAGING THIS SEGMENT
1) ADDM T2,UW.S0(R) ;INCREASE WINDOW
1) ;FALL INTO SYMO1
1)
1) SYMO1: AOS T1,TAB.PT(R) ;POINT TO NEXT FREE
1) DMOVEM W2,-2(T1) ;STORE SYMBOL & VALUE
1) IFN FTOVERLAY,<
****
2)34 ;**;[1172] Replace @ SYMOE1-1L JNG 5-Jun-79
2) POPJ P, ;[1172] ERROR RETURN
2)
2)35 ;HERE IF NOT PAST SYMLIM. CHECK TO SEE IF THE AREA/WINDOW IS BI
G ENOUGH.
2)
2) SYMOU2: CAMG T1,TAB.AB(R) ;[1172] STILL ROOM IN THE AREA?
2) AOJA T1,SYMOU8 ;[1172] YES, GO STORE THE SYMBOL
2) SETOM LS.PP ;[1172] DON'T SHRINK THE LS AREA
2) MOVE P1,R ;[1172] SEGMENT TO EXPAND
Digital Equipment Corporation 28-AUG-79 Page 523
PCO Log Report
2) MOVEI P2,.IPS ;[1172] BY ONE PAGE
2) PUSHJ P,LNKCOR## ;[1172] EXPAND
2) PUSHJ P,NO.COR## ;[1172] SHOULD NEVER GET HERE
2) SETZM LS.PP ;[1172] RESTORE
2)
2) IFN FTOVERLAY,<
2) SKIPL LNKMAX ;[1172] LSLOOP CALLED FROM LNKOV
2?
2) SKIPN PAG.S0(R) ;[1172] AND LNKCOR STARTED AREA
PAGING?
2) CAIA ;[1172] NO
2) PUSHJ P,NO.COR## ;[1172] YES, LNKOV2 CAN'T HANDLE
THAT
2) > ;END IFN FTOVERLAY
2)
2) PUSHJ P,CHKPAG ;[1172] FIX JOBDAT IF JUST START
ED PAGING
2) SKIPN TAB.PG(R) ;[1172] AREA NOW PAGING?
2) JRST SYMOUT ;[1172] NO, GO TRY AGAIN
2) MOVE T1,LW.S0(R) ;[1172] YES, MUST UPDATE UW
2) ADD T1,TAB.AB(R) ;[1172] LNKCOR SOMETIMES DOES
2) SUB T1,TAB.LB(R) ;[1172] BUT SOMETIMES IT DOESN'T
2) MOVEM T1,UW.S0(R) ;[1172] SO MAKE SURE IT'S RIGHT
2) ANDCMI T1,.IPM ;[1172] FIRST ADDRESS IN PAGE WE
JUST ADDED
2) CAML T1,HC.S0(R) ;[1172] ANY DATA FURTHER ON IN O
VERFLOW FILE?
2) JRST SYMOUT ;[1172] NO, JUST LEAVE NEW PAGE
ZERO
2) HRLZ T1,T1 ;[1172] YES, MUST FILL IN NEW PA
GE
2) HRR T1,UW.S0(R) ;[1172] OTHERWISE WE LOSE DATA
2) PUSHJ P,@TB.IN(R) ;[1172] DO THE I/O
2) JRST SYMOUT ;[1172] AND TRY AGAIN
2)
2)
2) ;HERE WHEN ALL IS OK TO STORE THE NEW SYMBOL.
2)
2) SYMOU8: DMOVEM W2,-2(T1) ;[1172] DO THE STORE
2) MOVEM T1,TAB.PT(R) ;[1172] UPDATE THE PT FOR NEXT T
IME
2)
2) IFN FTOVERLAY,<
**************
1)30 POPJ P,
1)
1) ;HERE WHEN NOT ENOUGH ROOM
1) SYMO2: SKIPE PAG.S0(R) ;PAGING?
1) JRST SYMO3 ;YES, NOT WORTH EXPANDING, JUST
Digital Equipment Corporation 28-AUG-79 Page 524
PCO Log Report
OUTPUT IT
1) MOVE T1,R ;EITHER LC.IX OR HC.IX
1) MOVEI T2,.IPS ;EXPAND THIS MUCH
1) PUSHJ P,EXPSYM ;GET SPACE
1) JRST SYMO1 ;AND STORE
1)
1)31 ;SUBROUTINE TO EXPAND CORE, BUT NOT TO PAGE SYMBOLS
1) ;USUALLY CALLED TO CAUSE OTHER AREA TO START PAGING
1) ;CALLED BY
1) ; MOVEI T1,AREA
1) ; MOVEI T2,SIZE
1) ; PUSHJ P,EXPSYM
1)
1) EXPSYM: PUSHJ P,.SAVE2## ;USES P1, P2
1) SETOM LS.PP ;PROHIBIT PAGING OF SYMBOLS
1) DMOVE P1,T1 ;GET ARGS
1) PUSHJ P,LNKCOR## ;MUST BE ABLE TO GET IT
1) JRST NO.COR## ;SHOULD NEVER HAPPEN
1)
1)
****
2)35 ;**;[1172] Delete @ SYMOU2-3L JNG 5-Jun-79
2)
2)36 ;**;[1172] Move up OLDSYM, SAVSYM, WRTSYM, JOBSET, and HJBSET
JNG 5-Jun-79
2) ;HERE FOR OLD FORM SYMBOLS (RADIX-50)
2) ;IF IN CORE WRITE THEM OUT WITH THREE INFORMATION WORDS AT FRONT
2) ;HEADER, .JBSYM (116) AND .JBUSY (117)
2) ;HEADER IS 776(TYPE) ,, LENGTH
2) ;OTHER TWO WORDS ARE RELATIVE TO ZERO
2) ;.JBSYM MUST HAVE A NEGATIVE LEFT HALF
2) ;.JBUSY IS ZERO IF NO UNDEFINED SYMBOLS
2)
2) OLDSYM: MOVEI T1,MC ;USE MAP CHAN INCASE PAGING LC
2) MOVEM T1,IO.CHN
2) MOVE T1,IO.PTR+%SC ;POINT TO CORRECT DATA
2) MOVEM T1,IO.PTR+MC
2) PUSHJ P,DVCHN.##
2) MOVSI T2,(Z MC,) ;RESET CHAN #
2) MOVEM T2,I.CHN(T1) ;SINCE %SC IS THERE CURRENTLY
2) HLRO T2,JOB116 ;NUMBER OF SYMBOLS
2) MOVM T2,T2
2) LSH T2,-.DBS2W ;[650] INTO BLOCKS (ASSUME FEW U
NDEFS)
2) MOVEM T2,I.EST(T1)
2) MOVE T2,VERNUM ;GET VERSION OF CORE IMAGE
2) SKIPN I.VER(T1) ;SKIP IF SET BY SWITCH
2) MOVEM T2,I.VER(T1) ;NO, SO SET IT
2) PUSHJ P,DVNAM.## ;MAKE SURE NAME SETUP
2) PUSHJ P,DVOPN.## ;INIT DEV
2) PUSHJ P,DVENT.## ;DO ENTER
Digital Equipment Corporation 28-AUG-79 Page 525
PCO Log Report
2) ;NOW TO STORE THREE INFO WORDS
2) HLRE T1,JOB116 ;NO. OF DEFINED SYMBOLS
2) HLRE T2,JOB117 ;NO. OF UNDEFS
2) MOVM T1,T1 ;+
2) MOVM T2,T2
2) ADDI T2,2(T1) ;PLUS TWO EXTRA WORDS
2) HRLI T2,776 ;BLOCK TYPE FOR LINK
2) SKIPN T1,JOB117 ;.JBUSY IF NON-ZERO
2) MOVE T1,JOB116 ;OTHERWISE .JBSYM
2) HRRZ T1,T1 ;REMOVE NEG LEFT HALF
2) SUB T1,LL.S0(R) ;REMOVE ORIGIN
2) SUB T1,LW.S0(R) ;INCASE PAGING
2) ADD T1,TAB.LB(R) ;FIX IN CORE
2)
2)37 ;NOW PUT HEADER WORDS IN CORE IMAGE SO WE CAN DUMP IT ALL WITH
2) ;ONE IOWD. PUSH REAL CONTENTS OF THOSE LOCATIONS (USUALLY 0) FIR
ST,
2) ;THEN RESTORE THEM LATER
2)
2) SUBI T1,3 ;BACKUP 3
2) PUSH P,0(T1) ;SAVE WORDS INCASE NOT ZERO
2) PUSH P,1(T1)
2) PUSH P,2(T1)
2) MOVEM T2,0(T1) ;SAVE HEADER
2) HLLZ T2,JOB117 ;COPY INFO WORDS
2) MOVEM T2,2(T1) ;TO NEXT 2 LOCS
2) HLRE T2,T2 ;GET - LENGTH (OR 0)
2) MOVM T2,T2 ;+
2) HLL T2,JOB116 ;-LENGTH,,OFFSET
2) MOVEM T2,1(T1) ;FIRST INFO WORD
2) HLRE T2,JOB116 ;FIND TOTAL LENGTH TO OUTPUT
2) HLRE T3,JOB117 ;.JBSYM+.JBUSY
2) ADD T2,T3
2) SUBI T2,3 ;+3 INFO WORDS
2) HRLZ T2,T2 ;-LENGTH
2) HRRI T2,-1(T1) ;IOWD LENGTH,ADDRESS
2) SETZ T3, ;TERMINATE
2) OUT MC,T2 ;DUMP IT
2) JRST [POP P,2(T1) ;RESTORE DATA
2) POP P,1(T1)
2) POP P,0(T1)
2) PJRST DVRLS.##] ;CLOSE FILE
2) POP P,2(T1) ;RESTORE DATA
2) POP P,1(T1)
2) POP P,0(T1)
2) PUSH P,[MC]
2) .ERR. (ST,,V%L,L%W,S%W,OES,<Output error on symbol fil
e, file closed, job continuing>)
2) POPJ P,
Digital Equipment Corporation 28-AUG-79 Page 526
PCO Log Report
2)
2)
2)38 ;HERE TO SAVE NEW FORM SYMBOL TABLE
2) ;IF ALL IN CORE JUST OPEN AND WRITE OUT
2) ;IF ON DSK EITHER RENAME OR COPY THEM
2)
2) SAVSYM: PUSHJ P,.SAVE1## ;NEED AN AC
2) CAIN T1,1 ;SIXBIT SYM FILE WANTED?
2) MOVEI P1,LS.IX ;YES, STORED IN LS AREA
2) CAIN T1,2 ;HOW ABOUT ALGOL .SYM FILE?
2) MOVEI P1,AS.IX ;YES, USE AS AREA INSTEAD
2) SKIPN TAB.UW(P1) ;PAGING?
2) JRST WRTSYM ;NO
2) MOVE T1,TAB.AB(P1) ;MAKE SURE UW.XX IS OK
2) SUB T1,TAB.LB(P1) ;MIGHT BE -1 IF LS AREA
2) ADD T1,TAB.LW(P1) ;NOW HAVE HIGHEST LOC IN CORE
2) MOVEM T1,TAB.UW(P1) ;UPDATE UW.XX
2) SETCM T1,TAB.LB(P1) ;ALSO MAKE SURE DISK FILE IS OK
2) ADD T1,TAB.PT(P1) ;IN CASE NEVER OUTPUT BEFORE
2) JUMPE T1,.+4 ;FORGET IT IF NOTHING TO OUTPUT
2) ADD T1,TAB.LW(P1) ;NOTE WE'RE GETTING EXACT WORD C
NT
2) HRL T1,TAB.LW(P1) ;ALGOL 7 NEEDS .RBSIZ EXACT
2) PUSHJ P,@TB.OUT##(P1) ;SO USE XX.PT INSTEAD OF XX.AB
2) MOVE T1,TAB.AB(P1) ;NOW READ IN FRONT OF FILE
2) SUB T1,TAB.LB(P1) ;SO CAN SET UP 10??,,COUNT
2) SETZM TAB.LW(P1) ;?W.?S MUST BE UP TO DATE
2) MOVEM T1,TAB.UW(P1) ;FOR FOLLOWING CALL
2) PUSHJ P,@TB.IN##(P1) ;AS FIRST WORD OF FILE
2) CAIE P1,AS.IX ;ALGOL?
2) JRST SAVSY0 ;NO, DO IT FOR LS AREA
2) MOVE T2,ASYM ;YES, GET SYMBOL COUNT
2) HRLI T2,1044 ;AND BLOCK TYPE
2) JRST SAVSY1 ;AND CONTINUE
2) SAVSY0: MOVE T2,LSYM ;COUNT FOR LS AREA
2) HRLI T2,1700 ;AND BLOCK TYPE
2) SAVSY1: SUBI T2,1 ;WORDS FOLLOWING IS 1 LESS
2) MOVEM T2,@TAB.LB(P1) ;STORE COUNT WORD
2) PUSHJ P,@TB.OUT##(P1) ;AND UPDATE FILE
2) MOVEI T1,SC ;FROM CHAN#
2) CAIN P1,AS.IX ;UNLESS AS AREA
2) MOVEI T1,AC ;IN WHICH CASE ALGOL CHANNEL
2) MOVE T2,IO.PTR+%SC ;TO CHANNEL
2) PUSHJ P,DVPRO. ;GET PROTECTION RIGHT
2) MOVEI T2,%SC ;TO CHAN#
2) MOVE T3,IO.PTR+%SC ;GET POINTER TO NEW FILE
2) MOVE T4,VERNUM ;GET VERSION OF PROGRAM
2) SKIPN I.VER(T3) ;UNLESS ALREADY SET BY SWITCH...
2) MOVEM T4,I.VER(T3) ;SAVE FOR ENTER
Digital Equipment Corporation 28-AUG-79 Page 527
PCO Log Report
2) PJRST DVMOV. ;GO COPY PAGED FILE TO SYMBOL FI
LE
2)
2)39 WRTSYM: MOVEI T1,DC ;USE THIS CHAN
2) MOVEM T1,IO.CHN
2) MOVE T1,IO.PTR+%SC ;HIDE DATA BLOCK HERE
2) MOVEM T1,IO.PTR+DC ;NOW BRING IT FORTH
2) PUSHJ P,DVCHN.## ;PUT ADDRESS OF BLOCK IN T1
2) MOVSI T2,(Z DC,) ;RESET CHAN # IN AC FIELD
2) MOVEM T2,I.CHN(T1) ;SINCE %SC IS THERE CURRENTLY
2) CAIE P1,AS.IX ;ALGOL?
2) JRST WRTSY0 ;NO, SETUP 1ST WORD FOR LS
2) MOVE T3,ASYM ;YES, SETUP COUNT WORD
2) HRLI T3,1044 ;AND BLOCK TYPE
2) JRST WRTSY1 ;CONTINUE
2) WRTSY0: MOVE T3,LSYM ;LS AREA COUNT
2) HRLI T3,1700 ;BLOCK TYPE FOR TRIPLET SYMBOLS
2) WRTSY1: HRRZ T2,T3 ;SAVE COUNT FOR ESTIMATE
2) SUBI T3,1 ;WORDS FOLLOWING IS 1 LESS
2) MOVEM T3,@TAB.LB(P1) ;SAVE WORD COUNT IN AREA
2) LSH T2,-.DBS2W ;[650] INTO BLOCKS
2) MOVEM T2,I.EST(T1) ;WE NEED THIS MUCH
2) MOVE T2,VERNUM ;GET VERSION OF CORE IMAGE
2) SKIPN I.VER(T1) ;SKIP IF SET BY SWITCH
2) MOVEM T2,I.VER(T1) ;NO, SO SET IT
2) PUSHJ P,DVNAM.## ;MAKE SURE NAME IS SET UP
2) PUSHJ P,DVOPN.## ;INIT DEVICE
2) PUSHJ P,DVENT.## ;ENTER FILE
2) ;NOW FOR OUTPUT
2) WRTSY2: MOVE T1,TAB.LB(P1) ;GET BOTTOM ADDR IN CORE
2) SUB T1,TAB.PT(P1) ;-LENGTH
2) HRLZ T1,T1 ;-LENGTH,,0
2) HRR T1,TAB.LB(P1) ;FIRST ADDR OF BUFFER
2) HRRI T1,-1(T1) ;-LENGTH,,ADDR-1
2) SETZ T2,
2) OUT DC,T1 ;OUTPUT IT
2) PJRST DVRLS.## ;PAGING NO LONGER HANDLED HERE
2) PUSH P,[DC]
2) .ERR. (ST,,V%L,L%W,S%W,OES)
2) POPJ P,
2)
2)40 ;HERE TO SET UP THE REST OF THE JOBDAT AREA. ENTER WITH P1 POINT
ING TO JOBDAT
2) ;AREA AND P2 TO VESTIGIAL JOBDAT (0 IF NO HIGH SEGMENT).
2)
2) JOBSET: SKIPE T2,HC.S1 ;GET HIGHEST DATA LOCATION LOADE
D
2) SUBI T2,1 ;MAKE IT HIGHEST LOC LOADED
2) IFN FTOVERLAY,<
Digital Equipment Corporation 28-AUG-79 Page 528
PCO Log Report
2) SKIPL LNKMAX ;LOADED ANY OVERLAYS?
2) SKIPN T1,JOB116 ;AND SAVED SYMBOLS?
2) JRST .+4 ;NO
2) HLRE T2,T1 ;-LENGTH
2) MOVM T2,T2
2) ADDI T2,-1(T1) ;HIGHEST LOCATION
2) >
2) HRLZM T2,.JBCOR(P1) ;PUT HIGHEST LOC IN LEFT HALF
2) HRRZ T2,HL.S1 ;GET HIGHEST LOC REQUIRED
2) HRL T2,STADDR ;GET STARTING ADDRESS
2) MOVSM T2,.JBSA(P1) ;SET .JBSA AND .JBFF
2) HRRZM T2,.JBFF(P1) ;INCASE RESET NOT DONE FIRST
2) IOR. T2,.PGSIZ ;INCLUDE ALL OF THIS PAGE
2) HRRZM T2,.JBREL(P1) ;SET .JBREL
2) MOVSI T2,(HALT) ;PUT A HALT IN .JB41
2) SKIPN .JB41(P1) ;UNLESS ALREADY SETUP
2) MOVEM T2,.JB41(P1)
2) MOVE T2,.JBSYM(P1) ;GET SYMBOL TABLE POINTER
2) HRRZ T1,T2 ;GET POINTER
2) JUMPE P2,JOBST0 ;NO HIGH SEG POSSIBLE
2) CAML T1,LL.S2 ;SEE IF IN HIGH SEG
2) MOVEM T2,.JBHSM(P2) ;STORE IN HIGH SEG DATA AREA
2) SKIPE T1,HL.S2 ;GET HIGHEST LOC +1
2) SUBI T1,1 ;HIGHEST LEGAL ADDRESS
2) ADD T1,LL.S2 ;PLUS ORIGIN
2) IOR. T1,.PGSIZ ;PUT ON PAGE BOUND
2) SKIPN T2,HL.S2 ;[650] LENGTH TO SAVE
2) JRST JOBST1 ;[650] NONE?
2) SKIPN .JBDDT##(P1) ;[650] DDT LOADED?
2) JRST JOBST1 ;[650] NO, NUMBER IS OK
2) SUBI T2,1 ;[650] YES, BE LIKE MONITOR
2) IOR. T2,.PGSIZ ;[650] ROUND UP TO TOP OF PAGE
2) ADDI T2,1 ;[650] THENCE TO BOTTOM OF NEXT
2) JOBST1: HRL T1,T2 ;[650] LENGTH TO SAVE,,HIGHEST A
DDR
2) MOVEM T1,.JBHRL(P1) ;LENGTH,,HIGHEST ADDRESS
2) JOBST0: MOVE T1,.JBERR ;GET NO OF PREVIOUS ERRORS
2) MOVEM T1,.JBERR(P1) ;COUNT AS EXECUTION ERRORS
2) MOVEM T1,ERRNO ;PROHIBIT EXECUTION IF NON-ZERO
2) ;**;[1144] Replace @JOBST0+3L DZN 16-Feb-79
2)
2) ; ..
2)
2)41 ; ..
2)
2) ;COMPUTE ADDRESS AT WHICH TO START PROGRAM. IF A DEBUGGER IS LOA
DED, THIS IS NOT
2) ;NECESSARILY THE MAIN PROGRAM'S START ADDRESS, BUT DEPENDS ON TH
E DEBUGGER.
Digital Equipment Corporation 28-AUG-79 Page 529
PCO Log Report
2)
2) SETZ T1, ;[1144] ASSUME WE DON'T START PR
OGRAM
2) SKIPE EXECSW ;GO INTO EXECUTION?
2) MOVE T1,STADDR ;YES, ASSUME .JBSA
2) HRRZ T2,DEBUGSW ;[1144] IF DEBUGGING, DEBUGGER'S
START ADDRESS
2) SKIPGE DEBUGSW ;[1144] TAKES PRIORITY SO
2) MOVE T1,@STLOCN(T2) ;[1144] FIND IT
2) HRRM T1,EXECSW ;IN ANY CASE STORE BACK IN EXECS
W
2) POPJ P,
2)
2)42 ;TABLE OF WHERE TO START FOR EACH DEBUGGER.
2)
2) DEFINE KEYMAC(A,B)<
2) XALL ;;[1144] GIVE A GOOD LIS
TING
2) IFIDN <A><DEB>,< ;;[1144] SELECT ONLY DEB
UGGING KEYWORDS
2) %%1==-1 ;;[1144] SKIP DUMMY ENTR
Y
2) IRP B,< ;;[1144] CHECK EACH KEYW
ORD
2) IFGE %%1,< ;;[1144] THAT IS NOT T
HE DUMMY
2) IFN <%%1&1>,< ;;[1144] AND IS A DEGU
GGER NAME
2) %%2==0 ;;[1144] ASSUME WE WON'T
FIND A DEBUGGER
2) IFN TOPS20,< ;;[1144] TOPS-20 UDDT IS
SPECIAL
2) IFIDN <B><DDT>,< ;;[1144] CHECK FOR DDT D
EBUGGER
2) [770000] ;UDDT STARTS AT 770000
2) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
2) >
2) >
2) IFIDN <B><FORDDT>,< ;;[1144] FORDDT IS SPECI
AL
2) STADDR ;FORDDT FORCES START ADDRESS TO
ITSELF
2) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
2) >
2) IFIDN <B><COBDDT>,< ;;[1144] COBDDT IS SPECI
AL
2) STADDR ;COBDDT GETS CONTROL FROM COBOL
PROGRAM
2) %%2==1 ;;[1144] REMEMBER WE FOU
Digital Equipment Corporation 28-AUG-79 Page 530
PCO Log Report
ND A DEBUGGER
2) >
2) IFE %%2,< ;;[1144] IF IT WASN'T AB
OVE DEBUGGERS
2) .JBDDT(P1) ;OTHER DEBUGGERS SET .JBDDT
2) >
2) >
2) >
2) %%1==%%1+1 ;;[1144] ADVANCE TO NEXT
ENTRY
2) >
2) >
2) PURGE %%1,%%2 ;;[1144] CLEAN UP AFTERW
ARD
2) SALL ;;[1144] ..
2) >
2)
2) STLOCN: KEYWORDS
2)
2)43 ;HERE TO SETUP REST OF VESTIGIAL JOBDAT AREA
2) ;ENTER WITH P1 POINTING TO JOBDAT AREA
2)
2) HJBSET: JUMPE P2,CPOPJ ;DON'T NEED TO DO THIS IF NO HIG
H SEG
2) HRRZ T1,HL.S2 ;GET HIGHEST HIGH SEG LOCATION+1
2) SKIPE .JBDDT(P1) ;IF DDT LOADED
2) SOJA T1,[IOR. T1,.PGSIZ ;INCLUDE ALL OF THIS PAG
E
2) AOJA T1,.+1] ;IN LENGTH
2) HRL T1,.JBREN(P1) ;GET .JBREN
2) MOVSM T1,JOBHRN(P2) ;SET BOTH HALVES OF JOBHRN
2) MOVE T1,.JBSA(P1) ;PUT .JBSA
2) MOVEM T1,JOBHSA(P2) ;IN HIGH SEG
2) MOVE T1,.JB41(P1)
2) MOVEM T1,JOBH41(P2)
2) MOVS T1,.JBCOR(P1)
2) SKIPN .JBDDT(P1) ;TEST FOR RARE CASE OF DDT, SYMB
OLS AND CODE
2) JRST .+3 ; ALL IN HIGH SEGMENT
2) TRNN T1,-140 ;TRUE IF HIGHEST LOC IS 137 OR L
ESS
2) ADDI T1,1 ;IF SO MAKE IT 140 IN HIGH SEG
2) MOVSM T1,.JBHCR(P2) ; SO WE LOAD LOW
2) MOVE T1,.JBVER(P1)
2) MOVEM T1,.JBHVR(P2)
2) SKIPE T1,RUNAME ;GET PROGNAM
2) JRST .+3 ;SET
2) SKIPN T1,SSNAME ;IF NOT TRY SAVE FILE NAME
2) MOVE T1,LODNAM ;USE DEFAULT IF NOT SET
Digital Equipment Corporation 28-AUG-79 Page 531
PCO Log Report
2) MOVEM T1,.JBHNM(P2) ;INTO HIGH SEG
2) MOVE T1,HL.S1 ;HIGHEST LOC +1 IN LOW SEG
2) SUBI T1,1
2) IOR. T1,.PGSIZ ;ROUND UP TO PAGE BOUNDARY
2) ADDI T1,1 ;NEXT PAGE
2) CAMGE T1,LL.S2 ;GREATER THAN HI-ORG?
2) MOVE T1,LL.S2 ;NO
2) LSH T1,-9 ;PAGE #
2) HRLZM T1,JOBHSO(P2) ;STORE IN HIGH
2) HRRZM T1,.JBHSO(P1) ;AND STORE
2) POPJ P,
2)
**************
1)31 CAIA
1) PUSHJ P,RDJBH ;SET UP JOBDAT IN HIGH
1) SETZM LS.PP ;BACK AS BEFORE
1) POPJ P,
1)
1)32 ;HERE WHEN WE HAVE TO OUTPUT CORE
1) ;THERE IS NO NEED TO KEEP ANY OF IT SO OUTPUT IT ALL
1)
1) SYMO3: AOS T1,TAB.PT(R) ;POINT TO NEXT FREE
1) TRNE T1,1 ;SEE IF 1 FREE LOC
1) MOVEM W2,-2(T1) ;YES, OUTPUT HALF OF SYMBOL
1) HRLZ T1,LW.S0(R) ;OUTPUT ALL OF WINDOW
1) HRR T1,UW.S0(R)
1) PUSHJ P,@[EXP LC.OUT##,HC.OUT##]-1(R) ;GO TO CORRECT R
OUTINE
1) SKIPGE SYMFRM ;NEED OLD SYMBOLS (RADIX50)
1) PUSHJ P,OLDSYM ;YES
1) HRRZ T1,TAB.LB(R) ;NOW TO CLEAR JUNK
1) HRLI T1,(T1)
1) ADDI T1,1 ;LOW,,LOW+1
1) SETZM -1(T1)
1) BLT T1,@TAB.AB(R) ;TO HIGH
1) MOVE T1,UW.S0(R) ;PREVIOUS HIGH WINDOW
1) ADDI T1,1 ;NEW LOW
1) MOVEM T1,LW.S0(R)
1) IORI T1,.IPM ;NEW HIGH IS END OF PAGE
1) MOVEM T1,UW.S0(R)
1) MOVE T1,TAB.PT(R) ;GET POINTER (JUST BEYOND END OF
CORE)
1) ANDI T1,.IPM ;SO JUST KEEP OFFSET IN THIS PAG
E
1) IOR T1,TAB.LB(R) ;ADD IN BASE
1) MOVEM T1,TAB.PT(R) ;AND STORE
1) TRNN T1,1 ;DID WE STORE 1 WORD BEFORE?
1) MOVEM W2,-2(T1) ;NO, DO SO NOW
1) MOVEM W3,-1(T1)
Digital Equipment Corporation 28-AUG-79 Page 532
PCO Log Report
1) IORI T1,.IPM ;LAST ADDRESS IN BLOCK
1) MOVEM T1,TAB.AB(R) ;NOW WINDOWS MATCH
1) JRST CPOPJ1 ;[715] SKIP RETURN
1)
****
2)44 ;**;[1172] Replace @ CHKPAG+6L JNG 5-Jun-79
2) POPJ P, ;[1172] DONE
2) PUSHJ P,RDJBH ;SET UP JOBDAT IN HIGH
2) POPJ P,
2)
**************
1)33 ;HERE TO MOVE SYMBOLS TO TOP OF CORE
1) ;IF SORTING PUT SORT BUFFER IN AREA GS
1)
1) SYMINI: SKIPE FX.LB ;ANY FIXUPS LEFT?
1) PUSHJ P,MOVFX ;YES, MUST MOVE THEM UP
1) SKIPN UW.LS ;IF LOCAL SYMBOLS ON DSK?
1) PJRST MOVSYM ;NO, JUST MOVE UP
1) ; PJRST LKPSYM ;READ BACK INTO CORE
1)
1) ;HERE TO WRITE OUT END OF SYMBOL TABLE AND SET IT UP FOR SORTING
1) LKPSYM: SKIPL UW.LS ;IF -1 THEN SYMBOL TABLE NOT OUT
PUT YET
1) JRST RDSYM ;JUST READ IT BACK IN
1) MOVE T1,LSYM ;ADRESS OF LAST SYMBOL STORED +1
1) SUBI T1,1
1) IORI T1,.IPM ;BLOCK BOUND
1) HRL T1,LW.LS ;FORM BLT WORD
1) HRRZM T1,UW.LS ;SIGNAL ALL OF SYMBOLS ON DSK
1) PUSHJ P,LS.OUT## ;AND OUTPUT IT
1) ;FALL INTO RDSYM TO READ IT BACK
1)
1)
1) RDSYM: PUSHJ P,MOVSYM ;MOVE WHAT WE HAVE UP IN CORE
1) ;AT THIS POINT THERE IS NO NEED
TO READ
1) ;MORE SYMBOLS, THAT WILL HAPPEN
NEXT TIME ANYWAY
1) ;UNLESS WE ONLY HAVE ONE BLOCK I
N CORE
1) ;THIS CASES PROBLEMS SO READ IN
MORE
1) MOVE T1,UW.LS ;UPPER LIMIT
1) ANDCMI T1,.IPM ;START OF THIS PAGE
1) CAME T1,LW.LS ;IS IT THE LOWER PAGE BOUND?
1) POPJ P, ;NO, JUST RETURN
1) MOVEI T1,LS.IX-1 ;YES, SEE HOW MUCH SPACE WE HAVE
WITHOUT SHUFFLING
1) SKIPN TAB.LB(T1) ;USUAL LOOK FOR LOWER AREA
Digital Equipment Corporation 28-AUG-79 Page 533
PCO Log Report
1) SOJA T1,.-1
1) MOVE T2,LS.LB ;WHERE WE START AT
1) SUB T2,TAB.AB(T1) ;MINUS WHATS IN USE
1) SUBI T2,1 ;COUNT OF WHATS FREE
1) LSH T2,-1 ;CUT IN HALF
1) ANDCMI T2,.IPM ;ON BLOCK BOUND
1) CAMLE T2,LW.LS ;BUT DON'T GET TOO MUCH
1) MOVE T2,LW.LS ;IF WE DON'T HAVE ENOUGH SYMBOLS
1) MOVN T2,T2 ;GET NEG SO WE CAN BACKUP
1) ADDM T2,LS.LB ;MOVE DOWN IN CORE
1) ADDM T2,TAB.UB(T1) ;AND TAKE THIS SPACE
1) ADDM T2,LW.LS ;OPEN WINDOW WIDER
1) MOVE T1,UW.LS ;GET TOP OF WINDOW
1) SUBI T1,.IPS ;BUT WE ALREADY HAVE THIS PAGE
1) HRL T1,LW.LS ;FORM TRANS WORD
1) PJRST LS.IN## ;READ IT IN
1)
1)34 ;HERE IF TOP OF SYMBOL TABLE IS ALREADY IN CORE
1) ;HOWEVER IT IS NOT AT TOP OF CORE WHERE WE WOULD LIKE IT
1) ;THEREFOR MOVE ALL LS UP TO .JBREL
1) ;USE REVERSE BLT IN ACCS
1)
1) MOVSYM:
1) IFN FTOVERLAY,<
1) SKIPLE LNKMAX ;ANY OVERLAYS
1) SKIPN LNKNO. ;BUT NOT ROOT
1) JRST .+3 ;NO
1) MOVE T1,LS.UB ;CAN NOT USE TOP OF CORE
1) JRST .+4
1) >
1) SKIPE T1,FX.LB ;STILL FIXUPS TO DO?
1) SOJA T1,.+2 ;YES, MAKE T1 POINT TO HIGHEST F
REE
1) MOVE T1,.JBREL ;NO, GET TOP OF CORE
1) CAMN T1,LS.AB ;AT ACTUAL TOP OF LS?
1) POPJ P, ;YES, JUST RETURN
1) MOVEM T1,LS.UB ;MAKE IT TOP
1) SUB T1,LS.AB ;GET DIFFERENCE = OFFSET
1) PUSH P,T1 ;SAVE OFFSET
1) MOVE T4,LS.AB ;TOP
1) SUB T4,LS.LB ;-BOTTOM
1) ADDI T4,400001 ;400000+LENGTH
1) MOVS T4,T4
1) HRR T4,LS.AB ;TOP OF OLD DATA
1) HRLI T1,(POP T4,0(T4))
1) MOVE T2,[JUMPL T4,T1]
1) MOVSI T3,(POPJ P,) ;REVERSE BLT NOW SET UP
1) PUSHJ P,T1 ;DO IT
1) MOVE T2,LS.AB ;[647]
1) MOVE T1,LS.UB
Digital Equipment Corporation 28-AUG-79 Page 534
PCO Log Report
1) MOVEM T1,LS.AB ;SET BOUNDS THE SAME
1) POP P,T1 ;OFFSET
1) ADD T1,LS.LB ;NEW BASE
1) SUBI T1,1 ;HIGHEST TO GIVE BACK
1) HRL T1,T2 ;[647] HIGHEST ADDR TO ZERO
1) PUSHJ P,GBCK.L##
1) MOVE T1,LSYM ;NOW RESET LS.PT TO POINT TO LAS
T SYMBOL
1) SUB T1,LW.LS ;MINUS WINDOW BASE
1) ADD T1,LS.LB ;PLUS OFFSET IN CORE
1) MOVEM T1,LS.PT ;OK NOW
1) POPJ P,
1)
1)35 ;HERE TO ADD FREE SPACE TO NEXT LOWEST AREA IN USE
1) ;CALLED BY
1) ; MOVEI T1,THIS AREA
1) ; PUSHJ P,ADJ.L
1) ;USES T1, T2
1)
1) ADJ.L: MOVE T2,TAB.LB(T1) ;GET CURRENT LOWEST SIZE
1) SUBI T2,1 ;THIS IS NOW UPPER OF NEXT LOWER
1) SKIPN TAB.LB-1(T1) ;FIND ONE
1) SOJA T1,.-1 ;EVENTUALLY
1) MOVEM T2,TAB.UB-1(T1)
1) POPJ P, ;RETURN
1)
1)36 ;HERE IF WE HAVE TO MOVE FIXUP AREA (IT MAY CONTAIN SYMBOL FIXUP
S)
1) ;MOVE UP TO VERY TOP OF CORE, OUT OF WAY OF SYMBOLS
1) ;USE REVERSE BLT IN ACCS
1)
1) MOVFX: MOVE T1,.JBREL ;GET TOP OF CORE
1) CAMN T1,FX.AB ;AT ACTUAL TOP OF FIXUPS?
1) POPJ P, ;YES, JUST RETURN
1) MOVEM T1,FX.UB ;MAKE IT TOP
1) SUB T1,FX.AB ;GET DIFFERENCE = OFFSET
1) PUSH P,T1 ;SAVE OFFSET
1) MOVE T4,FX.AB ;TOP
1) SUB T4,FX.LB ;-BOTTOM
1) ADDI T4,400001 ;400000+LENGTH
1) MOVS T4,T4
1) HRR T4,FX.AB ;TOP OF OLD DATA
1) HRLI T1,(POP T4,0(T4))
1) MOVE T2,[JUMPL T4,T1]
1) MOVSI T3,(POPJ P,) ;REVERSE BLT NOW SET UP
1) PUSHJ P,T1 ;DO IT
1) MOVE T1,FX.UB
1) MOVEM T1,FX.AB ;SET BOUNDS THE SAME
1) POP P,T1 ;OFFSET
1) ADDM T1,FX.PT
Digital Equipment Corporation 28-AUG-79 Page 535
PCO Log Report
1) ADD T1,FX.LB ;NEW BASE
1) SUBI T1,1 ;HIGHEST LOC TO GIVE AWAY
1) PJRST GBCK.L## ;TO NEXT LOWER
1)
1)37 SYDONE: SKIPE PAG.S1 ;PAGING LOW SEG?
1) SKIPA P1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE P1,LC.LB ;LOAD UP OFFSET
1) SKIPE PAG.S2 ;PAGING HIGH SEG?
1) SKIPA P2,JBHPTR ;YES, LOAD CORRECT OFFSET
1) MOVE P2,HC.LB ;LOAD UP OFFSET
1) MOVE T2,.JBSYM(P1) ;GET ADDRESS OF BASE OF SYMBOLS
1) HRRZ T3,TAB.PT(R) ;AND CURRENT TOP
1) SUB T3,TAB.LB(R) ;REMOVE OFFSET
1) ADD T3,LW.S0(R) ;BUT ADD IN BASE OF INCORE WINDO
W
1) CAMG T3,HC.S0(R) ;[715] PSECT NAME USED?
1) JRST .+3 ;[715] YES, DON'T UPDATE
1) MOVEM T3,HC.S0(R) ;RESET HIGHEST LOC IN USE COUNTE
RS
1) MOVEM T3,HL.S0(R) ;SO WE WILL PRESERVE THE SYMBOLS
1) ADD T3,LL.S0(R) ;ADD IN SEGMENT OFFSET
1) ;**;[1132] Insert @ SYDONE+15L JNG 30-Jan-79
1) MOVE T1,SYMPSC ;[1132] GET POINTER TO /SYMSEG R
C BLOCK
1) CAMLE T3,RC.HL(T1) ;[1132] INCORPORATE SYMBOLS INTO
THAT PSECT
1) MOVEM T3,RC.HL(T1) ;[1132] BUT NEVER SHRINK A PSECT
1) SUBI T2,0(T3) ;FIND - LENGTH
1) HRLM T2,.JBSYM(P1) ;FIXUP SYMBOL TABLE POINTER
1) HRLM T2,JOB116 ;AND FOR .SYM FILE
1) SKIPGE SYMFRM ;OLD STYLE SYMBOL FILE REQUIRED?
1) PUSHJ P,OLDSYM ;YES, WRITE OR COMPLETE IT
1) .ERR. (MS,0,V%L,L%I,S%I,STC,<Symbol table completed>)
1) JRST REMVLS ;SETUP REST AND DELETE LS AREA
1)
1) NOLOCS: SKIPE PAG.S1 ;PAGING LOW SEG?
1) SKIPA P1,JOBPTR ;YES, LOAD CORRECT OFFSET
1) MOVE P1,LC.LB ;LOAD UP OFFSET
1) SKIPE PAG.S2 ;PAGING HIGH SEG?
1) SKIPA P2,JBHPTR ;YES, LOAD CORRECT OFFSET
1) MOVE P2,HC.LB ;LOAD UP OFFSET
1)
1) REMVLS:
1) SKIPLE T1,SYMFRM ;NEW STYLE SYMBOL FILE NEEDED?
1) PUSHJ P,SAVSYM ;YES, OUTPUT THEM NOW
1) PUSHJ P,AS.ZAP ;DONE WITH ALGOL SYMBOLS
1) PUSHJ P,FX.ZAP ;ALSO DONE WITH FIXUP BY NOW
1) IFN FTOVERLAY,<
1) SKIPL LNKMAX ;OVERLAYS?
Digital Equipment Corporation 28-AUG-79 Page 536
PCO Log Report
1) JRST SAVTST ;KEEP UNTIL SAV FILE MADE
1) >
1) PUSHJ P,LS.ZAP ;GET RID OF LS
1) SKIPN PAG.LS ;IF NOT PAGING
1) JRST SAVTST ;DON'T DELETE LS FILE
1) MOVEI T1,SC ;CAN DELETE CHAN# NOW
1) PUSHJ P,DVDEL.##
1) JFCL
1) ;**;[1146] Replace @REMVLS+15L DZN 8-Mar-79
1) JRST SAVTST ;[1146] DONE WITH SYMBOLS
1)
1)38 SUBTTL ROUTINES FOR SYMBOLS
1)
1)
1) ;**;[1132] Insert @ LTITLE JNG 30-Jan-79
1) LTITLE: TXNE W1,PT.PSC ;[1132] JUST A PSECT DEFINITION?
1) JRST LSLOOP ;[1132] YES, DON'T PUT IN SYMBOL
TABLE
1) PUSHJ P,SXBR50 ;CONVERT TO RADIX-50
1) TXNE W1,PT.BLK ;ONLY A FAIL BLOCK HEADER?
1) JRST BTITLE ;YES
1) MOVE T2,TTLPTR ;GET ADDRESS OF LAST PROG
1) HRRZ T1,TAB.PT(R) ;GET THIS ADDRESS
1) SUB T1,TAB.LB(R) ;MINUS OFFSET
1) ADD T1,TAB.LW(R) ;PLUS BASE OF WINDOW
1) MOVEM T1,TTLPTR ;SAVE FOR NEXT
1) SUB T1,T2 ;GET DIFFERENCE
1) MOVN T1,T1 ;NEGATE
1) JUMPE T2,.+2 ;IGNORE IF FIRST TIME
1) HRL W3,T1 ;FIXUP POINTER
1) PUSH P,W2 ;SAVE SYMBOLS
1) PUSH P,W3
1) TTLLUP: MOVX T1,S.TTL!S.SEG ;FLAGS
1) PUSHJ P,GETAST ;GET EXTENSION TRIPLET
1) SETZB W2,W3 ;ONLY HERE IF DEFINED BY /SWITCH
1) SKIPE W3 ;IF ANY HIGH SEG STUFF
1) MOVE W2,W3 ;USE IT
1) POP P,W3 ;GET W3 BACK
1) HLR W3,W2 ;FIX IT UP
1) POP P,W2
1) PUSHJ P,SYMOUT ;OUTPUT PSEUDO SYMBOL
1) POPJ P, ;[715] EXCEEDED SPACE, RETURN
1) JRST LSLOOP ;RETURN
1)
1)
1)
1) BTITLE: TXO W2,R5.LCL!R5.GLB ;MAKE RADIX50 14,SYM
1) HRRZ W3,W3 ;BLOCK LEVEL ONLY
1) JRST LSLUP1 ;AND TREAT AS LOCAL SYMBOL
Digital Equipment Corporation 28-AUG-79 Page 537
PCO Log Report
1)
1)39 ;SXBR50 -- SUBROUTINE TO CONVERT SIXBIT TO RADIX-50
1) ;CALLED BY
1) ; MOVE W2,SIXBIT WORD
1) ; PUSHJ P,SXBR50
1) ;RETURN
1) ; RADIX-50 IN W2
1) ;USES T1, T2
1)
1) SXBR50: MOVE T2,W2 ;GET SIXBIT SYMBOL
1) SETZ W2, ;WHERE TO STORE RADIX50 SYMBOL
1) SETZ T1, ;CLEAR RECEIVING ACC
1) LSHC T1,6 ;GET NEXT CHAR
1) IMULI W2,50 ;MULTIPLE BY 50
1) ADD W2,SXBTAB(T1) ;ADD IN NEW CHAR
1) JUMPN T2,.-4 ;NOT DONE YET
1) POPJ P,
1)
1) DEFINE SXBCHR (CHR)<
1) IRPC CHR,<
1) RADIX50 0,CHR
1) >>
1)
1) XALL
1) SXBTAB: SXBCHR ( $% . 0123456789 ABCDEFGHIJKLMNO
PQRSTUVWXYZ )
1) SALL
1)
1)40 ;HERE FOR OLD FORM SYMBOLS (RADIX-50)
1) ;IF IN CORE WRITE THEM OUT WITH THREE INFORMATION WORDS AT FRONT
1) ;HEADER, .JBSYM (116) AND .JBUSY (117)
1) ;HEADER IS 776(TYPE) ,, LENGTH
1) ;OTHER TWO WORDS ARE RELATIVE TO ZERO
1) ;.JBSYM MUST HAVE A NEGATIVE LEFT HALF
1) ;.JBUSY IS ZERO IF NO UNDEFINED SYMBOLS
1)
1) OLDSYM: MOVEI T1,MC ;USE MAP CHAN INCASE PAGING LC
1) MOVEM T1,IO.CHN
1) MOVE T1,IO.PTR+%SC ;POINT TO CORRECT DATA
1) MOVEM T1,IO.PTR+MC
1) PUSHJ P,DVCHN.##
1) MOVSI T2,(Z MC,) ;RESET CHAN #
1) MOVEM T2,I.CHN(T1) ;SINCE %SC IS THERE CURRENTLY
1) HLRO T2,JOB116 ;NUMBER OF SYMBOLS
1) MOVM T2,T2
1) LSH T2,-.DBS2W ;[650] INTO BLOCKS (ASSUME FEW U
NDEFS)
1) MOVEM T2,I.EST(T1)
1) MOVE T2,VERNUM ;GET VERSION OF CORE IMAGE
Digital Equipment Corporation 28-AUG-79 Page 538
PCO Log Report
1) SKIPN I.VER(T1) ;SKIP IF SET BY SWITCH
1) MOVEM T2,I.VER(T1) ;NO, SO SET IT
1) PUSHJ P,DVNAM.## ;MAKE SURE NAME SETUP
1) PUSHJ P,DVOPN.## ;INIT DEV
1) PUSHJ P,DVENT.## ;DO ENTER
1) ;NOW TO STORE THREE INFO WORDS
1) HLRE T1,JOB116 ;NO. OF DEFINED SYMBOLS
1) HLRE T2,JOB117 ;NO. OF UNDEFS
1) MOVM T1,T1 ;+
1) MOVM T2,T2
1) ADDI T2,2(T1) ;PLUS TWO EXTRA WORDS
1) HRLI T2,776 ;BLOCK TYPE FOR LINK
1) SKIPN T1,JOB117 ;.JBUSY IF NON-ZERO
1) MOVE T1,JOB116 ;OTHERWISE .JBSYM
1) HRRZ T1,T1 ;REMOVE NEG LEFT HALF
1) SUB T1,LL.S0(R) ;REMOVE ORIGIN
1) SUB T1,LW.S0(R) ;INCASE PAGING
1) ADD T1,TAB.LB(R) ;FIX IN CORE
1)
1)41 ;NOW PUT HEADER WORDS IN CORE IMAGE SO WE CAN DUMP IT ALL WITH
1) ;ONE IOWD. PUSH REAL CONTENTS OF THOSE LOCATIONS (USUALLY 0) FIR
ST,
1) ;THEN RESTORE THEM LATER
1)
1) SUBI T1,3 ;BACKUP 3
1) PUSH P,0(T1) ;SAVE WORDS INCASE NOT ZERO
1) PUSH P,1(T1)
1) PUSH P,2(T1)
1) MOVEM T2,0(T1) ;SAVE HEADER
1) HLLZ T2,JOB117 ;COPY INFO WORDS
1) MOVEM T2,2(T1) ;TO NEXT 2 LOCS
1) HLRE T2,T2 ;GET - LENGTH (OR 0)
1) MOVM T2,T2 ;+
1) HLL T2,JOB116 ;-LENGTH,,OFFSET
1) MOVEM T2,1(T1) ;FIRST INFO WORD
1) HLRE T2,JOB116 ;FIND TOTAL LENGTH TO OUTPUT
1) HLRE T3,JOB117 ;.JBSYM+.JBUSY
1) ADD T2,T3
1) SUBI T2,3 ;+3 INFO WORDS
1) HRLZ T2,T2 ;-LENGTH
1) HRRI T2,-1(T1) ;IOWD LENGTH,ADDRESS
1) SETZ T3, ;TERMINATE
1) OUT MC,T2 ;DUMP IT
1) JRST [POP P,2(T1) ;RESTORE DATA
1) POP P,1(T1)
1) POP P,0(T1)
1) PJRST DVRLS.##] ;CLOSE FILE
1) POP P,2(T1) ;RESTORE DATA
1) POP P,1(T1)
Digital Equipment Corporation 28-AUG-79 Page 539
PCO Log Report
1) POP P,0(T1)
1) PUSH P,[MC]
1) .ERR. (ST,,V%L,L%W,S%W,OES,<Output error on symbol fil
e, file closed, job continuing>)
1) POPJ P,
1)
1)
1)42 ;HERE TO SAVE NEW FORM SYMBOL TABLE
1) ;IF ALL IN CORE JUST OPEN AND WRITE OUT
1) ;IF ON DSK EITHER RENAME OR COPY THEM
1)
1) SAVSYM: PUSHJ P,.SAVE1## ;NEED AN AC
1) CAIN T1,1 ;SIXBIT SYM FILE WANTED?
1) MOVEI P1,LS.IX ;YES, STORED IN LS AREA
1) CAIN T1,2 ;HOW ABOUT ALGOL .SYM FILE?
1) MOVEI P1,AS.IX ;YES, USE AS AREA INSTEAD
1) SKIPN TAB.UW(P1) ;PAGING?
1) JRST WRTSYM ;NO
1) MOVE T1,TAB.AB(P1) ;MAKE SURE UW.XX IS OK
1) SUB T1,TAB.LB(P1) ;MIGHT BE -1 IF LS AREA
1) ADD T1,TAB.LW(P1) ;NOW HAVE HIGHEST LOC IN CORE
1) MOVEM T1,TAB.UW(P1) ;UPDATE UW.XX
1) SETCM T1,TAB.LB(P1) ;ALSO MAKE SURE DISK FILE IS OK
1) ADD T1,TAB.PT(P1) ;IN CASE NEVER OUTPUT BEFORE
1) JUMPE T1,.+4 ;FORGET IT IF NOTHING TO OUTPUT
1) ADD T1,TAB.LW(P1) ;NOTE WE'RE GETTING EXACT WORD C
NT
1) HRL T1,TAB.LW(P1) ;ALGOL 7 NEEDS .RBSIZ EXACT
1) PUSHJ P,@TB.OUT##(P1) ;SO USE XX.PT INSTEAD OF XX.AB
1) MOVE T1,TAB.AB(P1) ;NOW READ IN FRONT OF FILE
1) SUB T1,TAB.LB(P1) ;SO CAN SET UP 10??,,COUNT
1) SETZM TAB.LW(P1) ;?W.?S MUST BE UP TO DATE
1) MOVEM T1,TAB.UW(P1) ;FOR FOLLOWING CALL
1) PUSHJ P,@TB.IN##(P1) ;AS FIRST WORD OF FILE
1) CAIE P1,AS.IX ;ALGOL?
1) JRST SAVSY0 ;NO, DO IT FOR LS AREA
1) MOVE T2,ASYM ;YES, GET SYMBOL COUNT
1) HRLI T2,1044 ;AND BLOCK TYPE
1) JRST SAVSY1 ;AND CONTINUE
1) SAVSY0: MOVE T2,LSYM ;COUNT FOR LS AREA
1) HRLI T2,1700 ;AND BLOCK TYPE
1) SAVSY1: SUBI T2,1 ;WORDS FOLLOWING IS 1 LESS
1) MOVEM T2,@TAB.LB(P1) ;STORE COUNT WORD
1) PUSHJ P,@TB.OUT##(P1) ;AND UPDATE FILE
1) MOVEI T1,SC ;FROM CHAN#
1) CAIN P1,AS.IX ;UNLESS AS AREA
1) MOVEI T1,AC ;IN WHICH CASE ALGOL CHANNEL
1) MOVE T2,IO.PTR+%SC ;TO CHANNEL
1) PUSHJ P,DVPRO. ;GET PROTECTION RIGHT
Digital Equipment Corporation 28-AUG-79 Page 540
PCO Log Report
1) MOVEI T2,%SC ;TO CHAN#
1) MOVE T3,IO.PTR+%SC ;GET POINTER TO NEW FILE
1) MOVE T4,VERNUM ;GET VERSION OF PROGRAM
1) SKIPN I.VER(T3) ;UNLESS ALREADY SET BY SWITCH...
1) MOVEM T4,I.VER(T3) ;SAVE FOR ENTER
1) PJRST DVMOV. ;GO COPY PAGED FILE TO SYMBOL FI
LE
1)
1)43 WRTSYM: MOVEI T1,DC ;USE THIS CHAN
1) MOVEM T1,IO.CHN
1) MOVE T1,IO.PTR+%SC ;HIDE DATA BLOCK HERE
1) MOVEM T1,IO.PTR+DC ;NOW BRING IT FORTH
1) PUSHJ P,DVCHN.## ;PUT ADDRESS OF BLOCK IN T1
1) MOVSI T2,(Z DC,) ;RESET CHAN # IN AC FIELD
1) MOVEM T2,I.CHN(T1) ;SINCE %SC IS THERE CURRENTLY
1) CAIE P1,AS.IX ;ALGOL?
1) JRST WRTSY0 ;NO, SETUP 1ST WORD FOR LS
1) MOVE T3,ASYM ;YES, SETUP COUNT WORD
1) HRLI T3,1044 ;AND BLOCK TYPE
1) JRST WRTSY1 ;CONTINUE
1) WRTSY0: MOVE T3,LSYM ;LS AREA COUNT
1) HRLI T3,1700 ;BLOCK TYPE FOR TRIPLET SYMBOLS
1) WRTSY1: HRRZ T2,T3 ;SAVE COUNT FOR ESTIMATE
1) SUBI T3,1 ;WORDS FOLLOWING IS 1 LESS
1) MOVEM T3,@TAB.LB(P1) ;SAVE WORD COUNT IN AREA
1) LSH T2,-.DBS2W ;[650] INTO BLOCKS
1) MOVEM T2,I.EST(T1) ;WE NEED THIS MUCH
1) MOVE T2,VERNUM ;GET VERSION OF CORE IMAGE
1) SKIPN I.VER(T1) ;SKIP IF SET BY SWITCH
1) MOVEM T2,I.VER(T1) ;NO, SO SET IT
1) PUSHJ P,DVNAM.## ;MAKE SURE NAME IS SET UP
1) PUSHJ P,DVOPN.## ;INIT DEVICE
1) PUSHJ P,DVENT.## ;ENTER FILE
1) ;NOW FOR OUTPUT
1) WRTSY2: MOVE T1,TAB.LB(P1) ;GET BOTTOM ADDR IN CORE
1) SUB T1,TAB.PT(P1) ;-LENGTH
1) HRLZ T1,T1 ;-LENGTH,,0
1) HRR T1,TAB.LB(P1) ;FIRST ADDR OF BUFFER
1) HRRI T1,-1(T1) ;-LENGTH,,ADDR-1
1) SETZ T2,
1) OUT DC,T1 ;OUTPUT IT
1) PJRST DVRLS.## ;PAGING NO LONGER HANDLED HERE
1) PUSH P,[DC]
1) .ERR. (ST,,V%L,L%W,S%W,OES)
1) POPJ P,
1)
1)44 ;**;[1146] Move 5 pages starting at JBSAVE down where indicated
****
2)45 ;**;[1172] Delete and move up @ SYMINI JNG 5-Jun-79
2) ;**;[1146] Move 5 pages starting at JBSAVE down where indicated
**************
Digital Equipment Corporation 28-AUG-79 Page 541
PCO Log Report
1)44 SUBTTL FINISH JOBDAT AND DECIDE TO LOAD OR SAVE
1)
****
2)45 SUBTTL DECIDE TO LOAD OR SAVE
2)
**************
1)44 ; 4. ON TOPS-20, ANY PSECT HAS THE READ-ONLY ATTRIBUTE.
1) ; 5. THE PROGRAM WILL NOT FIT IN MEMORY WITH LINK'S FINAL PLA
CEMENT CODE
****
2)45 ; 4. ANY PSECT HAS NON-DEFAULT WRITEABILITY.
2) ; 5. THE PROGRAM WILL NOT FIT IN MEMORY WITH LINK'S FINAL PLA
CEMENT CODE
**************
1)44 SAVTST: PUSHJ P,JOBSET ;[1146] FINISH SETTING UP JOBDAT
1) PUSHJ P,HJBSET ;[1146] AND VESTIGIAL JOBDAT
1) SKIPE IO.PTR+%VC ;[1146] SAVE FILE REQUIRED?
1) JRST JBSAVE ;YES
****
2)45 ;**;[1172] Delete @ SAVTST JNG 5-Jun-79
2) SAVTST: SKIPE IO.PTR+%VC ;[1146] SAVE FILE REQUIRED?
2) JRST JBSAVE ;YES
**************
1)47 ;HERE TO SET UP THE REST OF THE JOBDAT AREA. ENTER WITH P1 POINT
ING TO JOBDAT
1) ;AREA AND P2 TO VESTIGIAL JOBDAT (0 IF NO HIGH SEGMENT).
1)
1) JOBSET: SKIPE T2,HC.S1 ;GET HIGHEST DATA LOCATION LOADE
D
1) SUBI T2,1 ;MAKE IT HIGHEST LOC LOADED
1) IFN FTOVERLAY,<
1) SKIPL LNKMAX ;LOADED ANY OVERLAYS?
1) SKIPN T1,JOB116 ;AND SAVED SYMBOLS?
1) JRST .+4 ;NO
1) HLRE T2,T1 ;-LENGTH
1) MOVM T2,T2
1) ADDI T2,-1(T1) ;HIGHEST LOCATION
1) >
1) HRLZM T2,.JBCOR(P1) ;PUT HIGHEST LOC IN LEFT HALF
1) HRRZ T2,HL.S1 ;GET HIGHEST LOC REQUIRED
1) HRL T2,STADDR ;GET STARTING ADDRESS
1) MOVSM T2,.JBSA(P1) ;SET .JBSA AND .JBFF
1) HRRZM T2,.JBFF(P1) ;INCASE RESET NOT DONE FIRST
1) IOR. T2,.PGSIZ ;INCLUDE ALL OF THIS PAGE
1) HRRZM T2,.JBREL(P1) ;SET .JBREL
1) MOVSI T2,(HALT) ;PUT A HALT IN .JB41
1) SKIPN .JB41(P1) ;UNLESS ALREADY SETUP
1) MOVEM T2,.JB41(P1)
1) MOVE T2,.JBSYM(P1) ;GET SYMBOL TABLE POINTER
Digital Equipment Corporation 28-AUG-79 Page 542
PCO Log Report
1) HRRZ T1,T2 ;GET POINTER
1) JUMPE P2,JOBST0 ;NO HIGH SEG POSSIBLE
1) CAML T1,LL.S2 ;SEE IF IN HIGH SEG
1) MOVEM T2,.JBHSM(P2) ;STORE IN HIGH SEG DATA AREA
1) SKIPE T1,HL.S2 ;GET HIGHEST LOC +1
1) SUBI T1,1 ;HIGHEST LEGAL ADDRESS
1) ADD T1,LL.S2 ;PLUS ORIGIN
1) IOR. T1,.PGSIZ ;PUT ON PAGE BOUND
1) SKIPN T2,HL.S2 ;[650] LENGTH TO SAVE
1) JRST JOBST1 ;[650] NONE?
1) SKIPN .JBDDT##(P1) ;[650] DDT LOADED?
1) JRST JOBST1 ;[650] NO, NUMBER IS OK
1) SUBI T2,1 ;[650] YES, BE LIKE MONITOR
1) IOR. T2,.PGSIZ ;[650] ROUND UP TO TOP OF PAGE
1) ADDI T2,1 ;[650] THENCE TO BOTTOM OF NEXT
1) JOBST1: HRL T1,T2 ;[650] LENGTH TO SAVE,,HIGHEST A
DDR
1) MOVEM T1,.JBHRL(P1) ;LENGTH,,HIGHEST ADDRESS
1) JOBST0: MOVE T1,.JBERR ;GET NO OF PREVIOUS ERRORS
1) MOVEM T1,.JBERR(P1) ;COUNT AS EXECUTION ERRORS
1) MOVEM T1,ERRNO ;PROHIBIT EXECUTION IF NON-ZERO
1) ;**;[1144] Replace @JOBST0+3L DZN 16-Feb-79
1)
1) ; ..
1)
1)48 ; ..
1)
1) ;COMPUTE ADDRESS AT WHICH TO START PROGRAM. IF A DEBUGGER IS LOA
DED, THIS IS NOT
1) ;NECESSARILY THE MAIN PROGRAM'S START ADDRESS, BUT DEPENDS ON TH
E DEBUGGER.
1)
1) SETZ T1, ;[1144] ASSUME WE DON'T START PR
OGRAM
1) SKIPE EXECSW ;GO INTO EXECUTION?
1) MOVE T1,STADDR ;YES, ASSUME .JBSA
1) HRRZ T2,DEBUGSW ;[1144] IF DEBUGGING, DEBUGGER'S
START ADDRESS
1) SKIPGE DEBUGSW ;[1144] TAKES PRIORITY SO
1) MOVE T1,@STLOCN(T2) ;[1144] FIND IT
1) HRRM T1,EXECSW ;IN ANY CASE STORE BACK IN EXECS
W
1) POPJ P,
1)
1)
1) DEFINE KEYMAC(A,B)<
1) XALL ;;[1144] GIVE A GOOD LIS
TING
1) IFIDN <A><DEB>,< ;;[1144] SELECT ONLY DEB
Digital Equipment Corporation 28-AUG-79 Page 543
PCO Log Report
UGGING KEYWORDS
1) %%1==-1 ;;[1144] SKIP DUMMY ENTR
Y
1) IRP B,< ;;[1144] CHECK EACH KEYW
ORD
1) IFGE %%1,< ;;[1144] THAT IS NOT T
HE DUMMY
1) IFN <%%1&1>,< ;;[1144] AND IS A DEGU
GGER NAME
1) %%2==0 ;;[1144] ASSUME WE WON'T
FIND A DEBUGGER
1) IFN TOPS20,< ;;[1144] TOPS-20 UDDT IS
SPECIAL
1) IFIDN <B><DDT>,< ;;[1144] CHECK FOR DDT D
EBUGGER
1) [770000] ;UDDT STARTS AT 770000
1) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
1) >
1) >
1) IFIDN <B><FORDDT>,< ;;[1144] FORDDT IS SPECI
AL
1) STADDR ;FORDDT FORCES START ADDRESS TO
ITSELF
1) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
1) >
1) IFIDN <B><COBDDT>,< ;;[1144] COBDDT IS SPECI
AL
1) STADDR ;COBDDT GETS CONTROL FROM COBOL
PROGRAM
1) %%2==1 ;;[1144] REMEMBER WE FOU
ND A DEBUGGER
1) >
1) IFE %%2,< ;;[1144] IF IT WASN'T AB
OVE DEBUGGERS
1) .JBDDT(P1) ;OTHER DEBUGGERS SET .JBDDT
1) >
1) >
1) >
1) %%1==%%1+1 ;;[1144] ADVANCE TO NEXT
ENTRY
1) >
1) >
1) PURGE %%1,%%2 ;;[1144] CLEAN UP AFTERW
ARD
1) SALL ;;[1144] ..
1) >
1)
Digital Equipment Corporation 28-AUG-79 Page 544
PCO Log Report
1) STLOCN: KEYWORDS
1)
1)49 ;HERE TO SETUP REST OF VESTIGIAL JOBDAT AREA
1) ;ENTER WITH P1 POINTING TO JOBDAT AREA
1)
1) HJBSET: JUMPE P2,CPOPJ ;DON'T NEED TO DO THIS IF NO HIG
H SEG
1) HRRZ T1,HL.S2 ;GET HIGHEST HIGH SEG LOCATION+1
1) SKIPE .JBDDT(P1) ;IF DDT LOADED
1) SOJA T1,[IOR. T1,.PGSIZ ;INCLUDE ALL OF THIS PAG
E
1) AOJA T1,.+1] ;IN LENGTH
1) HRL T1,.JBREN(P1) ;GET .JBREN
1) MOVSM T1,JOBHRN(P2) ;SET BOTH HALVES OF JOBHRN
1) MOVE T1,.JBSA(P1) ;PUT .JBSA
1) MOVEM T1,JOBHSA(P2) ;IN HIGH SEG
1) MOVE T1,.JB41(P1)
1) MOVEM T1,JOBH41(P2)
1) MOVS T1,.JBCOR(P1)
1) SKIPN .JBDDT(P1) ;TEST FOR RARE CASE OF DDT, SYMB
OLS AND CODE
1) JRST .+3 ; ALL IN HIGH SEGMENT
1) TRNN T1,-140 ;TRUE IF HIGHEST LOC IS 137 OR L
ESS
1) ADDI T1,1 ;IF SO MAKE IT 140 IN HIGH SEG
1) MOVSM T1,.JBHCR(P2) ; SO WE LOAD LOW
1) MOVE T1,.JBVER(P1)
1) MOVEM T1,.JBHVR(P2)
1) SKIPE T1,RUNAME ;GET PROGNAM
1) JRST .+3 ;SET
1) SKIPN T1,SSNAME ;IF NOT TRY SAVE FILE NAME
1) MOVE T1,LODNAM ;USE DEFAULT IF NOT SET
1) MOVEM T1,.JBHNM(P2) ;INTO HIGH SEG
1) MOVE T1,HL.S1 ;HIGHEST LOC +1 IN LOW SEG
1) SUBI T1,1
1) IOR. T1,.PGSIZ ;ROUND UP TO PAGE BOUNDARY
1) ADDI T1,1 ;NEXT PAGE
1) CAMGE T1,LL.S2 ;GREATER THAN HI-ORG?
1) MOVE T1,LL.S2 ;NO
1) LSH T1,-9 ;PAGE #
1) HRLZM T1,JOBHSO(P2) ;STORE IN HIGH
1) HRRZM T1,.JBHSO(P1) ;AND STORE
1) POPJ P,
1)
1)50 ;**;[1146] Insert before LC.DLT-5L DZN 8-Mar-79
****
2)48 ;**;[1172] Move up JOBSET and HJBSET JNG 5-Jun-79
2) ;**;[1146] Insert before LC.DLT-5L DZN 8-Mar-79
**************
1)69 ANDCMI T1,.IPM ;[1132] PUT ON THE PAGE BOUND
****
Digital Equipment Corporation 28-AUG-79 Page 545
PCO Log Report
2)67 ;**;[1172] Insert @ XCMADV+21L JNG 5-Jun-79
2) ADDI T1,1 ;[1172] SUBTRACTED ONE TOO MUCH,
HC IS FF FORMAT
2) ANDCMI T1,.IPM ;[1132] PUT ON THE PAGE BOUND
**************
1)85 ZCMP9A: SKIPE T1,LSTPAG ;NOW CUT BACK CORE
****
2)83 ; ..
2)
2)84 ; ..
2) ZCMP9A: SKIPE T1,LSTPAG ;NOW CUT BACK CORE
**************
1)88 DEBNAM: KEYWORDS
1)
****
2)87 XALL
2) DEBNAM: KEYWORDS
2) SALL
2)
**************
1)99 ;**;[1070] Insert @ JBLOAD JNG 23-May-79
1) JBLOAD: MOVE T1,[HC.IX+1-HG.TAB,,HC.IX+1] ;[1070] AOBJN PT
R TO AREAS
1) PUSHJ P,XX.ZAP ;[1070] CLEAR ALL AREAS ABOVE HC
1) AOBJN T1,.-1 ;[1070] SINCE CORE MGT BELOW A
SSUMES THEM GONE
1) DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
1) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
****
2)98 ;**;[1172] Delete @ JBLOAD JNG 5-Jun-79
2) JBLOAD: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
2) DMOVE P3,LC.AB ; SO WE CAN MOVE DATA
**************
1)112 U (LSCNT) ;COUNT OF WORDS LEFT IN THIS 128
WORD BLOCK
1) U (TTLPTR) ;BACK POINTER TO LAST SUBPROGRAM
1) U (LCSIZE) ;SIZE OF LOCAL SYMBOL FILE
1) U (JOBPTR) ;POINTER TO COPY OF JOBDAT AREA
1) U (JBHPTR) ;DITTO FOR HIGH SEG
1) U (LSTPAG) ;-1 WHEN LAST PAGE IS IN CORE
1) U (ERRNO) ;.JBERR COUNT
****
2)111 ;**;[1172] Replace @ LSCNT JNG 5-Jun-79
2) U (TTLPTR) ;BACK POINTER TO LAST SUBPROGRAM
2) U (JOBPTR) ;POINTER TO COPY OF JOBDAT AREA
2) U (JBHPTR) ;DITTO FOR HIGH SEG
2) IFE FTEXE,<
2) U (LSTPAG) ;-1 WHEN LAST PAGE IS IN CORE
2) > ;END IFE FTEXE
Digital Equipment Corporation 28-AUG-79 Page 546
PCO Log Report
2) U (ERRNO) ;.JBERR COUNT
**************
1)112 ;**;[1132] Replace @ SCRTCH JNG 30-Jan-79
1) U (SYMPSC) ;[1132] RC BLOCK OF /SYMSEG PSEC
T
1)
****
2)111 ;**;[1172] Replace @ SYMPSC JNG 5-Jun-79
2) U (SYMDEW) ;[1172] RESERVE SPACE IN SYMBOL
TABLE
2) U (SYMFUL) ;[1172] SYMOUT HAS NON-SKIPPED O
NCE
2)
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 547
PCO Log Report
*********************
*PCO #:10-LINK -284*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 10-JUN-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] /COMMON NOALLOC RC.HL
[Source Before Edit] %4A (001172)
[Source After Edit] %4A (001173)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 548
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can forget to allocate pages containing a common
block declared with the /COMMON switch. This will only
occur if no modules are loaded after the /COMMON switch, and
only if LINK is writing an EXE file.
**********
[DIAGNOSIS]
The /COMMON switch updates the current value of the
.LOW. relocation counter, but not the highest location ever
loaded. If no other module is ever seen, then the highest
location loaded counter will remain incorrect.
**********
[CURE]
Update the highest location loaded (RC.HL) in the
/COMMON switch processor.
Digital Equipment Corporation 28-AUG-79 Page 549
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2222 08-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1557 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 10-Jun-7
9
2)
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1173 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1173 JNG 10-Jun-79
2) ; Update RC.HL on /COMMON.
2) ; Routine: LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 550
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1208 07-Jun-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1558 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 10-Jun-7
9
2)
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1173 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1173 Update RC.HL on /COMMON.
2)
**************
1)16 CAML T2,HL.S1 ;NEVER DECREASE HL.S1
****
2)16 ;**;[1173] Insert @ .COMMON+3L JNG 10-Jun-79
2) CAMLE T2,RC.HL(T1) ;[1173] NEVER DECREASE
2) MOVEM T2,RC.HL(T1) ;[1173] UPDATE HIGHEST LOCATION
IN THIS PSECT
2) CAML T2,HL.S1 ;NEVER DECREASE HL.S1
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 551
PCO Log Report
*********************
*PCO #:10-LINK -285*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+766 THRU 1173 TESTED IN 4A(1173)
[Date Entered] 12-JUN-79
[Programmer] D. NEFF
[Routines] ALL!
[Key Words] ALL MESAGS
[Source Before Edit] % (000000)
[Source After Edit] %4A (001174)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-12548
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 552
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK's error message facility has a number of problems:
1. Specifying /VERBOSITY:SHORT can result in a variety of
fatal memory errors following a message that, in its
medium form, prints a large amount of variable text.
2. After edit 1144, defining the logical name LOG: as TTY:
results in an address check.
3. Various messages added to LINK by the psect project for
version 4 did not include long messages (available with
the /VERBOSITY:LONG switch) to explain them. This has the
additional side effect that the LINK manual does not
explain these messages, since the appendix describing all
messages was generated directly from LINK's sources.
4. The listing of LNKERR, which lists all messages in LINK,
does not agree with the actual messages in LINK. As noted
above, this has adversely affected the LINK manual.
5. LINK's messages, especially the ones that cannot use
LINK's internal message facility, are in general hard to
find when debugging and when attempting to keep LNKERR
up-to-date.
6. LINK is missing first line messages and long explanations
for the more recent LOOKUP/RENAME/ENTER error codes.
Again, this has impacted the LINK manual.
7. Several of LINK's messages print the module or file
associated with a particular error, but not both. Also,
many messages that ought to include this information do
not.
8. After edit 1144, the blank line in the log file following
the processing of a link in an overlaid program is
missing.
9. The code to handle common portions of the long
LOOKUP/RENAME/ENTER messages was put under REPEAT 0
Digital Equipment Corporation 28-AUG-79 Page 553
PCO Log Report
(turned off) without including the text in the long
messages.
10. Several of LINK's messages do not get written to the log
file as they should, or are not under control of the /LOG,
/LOGLEVEL, /ERRORLEVEL or /VERBOSITY switches. Some
examples are the LNKUGS, LNKRER, LNKRLC and LNKLSS
messages.
11. Long (multi-line) messages are not very readable in the
log file. Typically, the heading of a list does not line
up with the data under it.
**********
[DIAGNOSIS]
1. If a JMP code is used in an .ETC. macro representing a
non-fatal error, LINK is supposed to follow the JMP to a
message continuation list and subsequent return after
printing the message. However, if the /VERBOSITY:SHORT
switch is specified, LINK attempts to speed error message
processing by skipping any .ETC. codes. This causes LINK
to return to a random word following the message.
2. Edit 1144 made log file initialization always use LINK's
generalized file initialization routines. Unfortunately,
edit 604 made these routines fail for terminals other than
the controlling one.
3. The long messages were inadvertently left out.
4&5.The difficulty of finding LINK's messages in the sources
has generally led to LNKERR getting out of date.
6. LINK's table must be periodically updated as new monitor
error codes are added.
7. There is no general facility to print common message
segments, so each maintainer or developer has had to
remember to include the module and file in all appropriate
messages. This has made it difficult to keep all such
messages consistent.
8. The feature that printed a blank line in the log file
relied on a bug in LINK that was fixed by edit 1144. In
particular, the blank line feature required a bit to be
Digital Equipment Corporation 28-AUG-79 Page 554
PCO Log Report
saved by a byte pointer that was not intended to save it.
Since edit 1144 caused the byte pointer to save only what
it was supposed to, the blank line bit got lost.
9. The common message feature was turned off without
realizing its effect on the long LOOKUP/RENAME/ENTER text.
10. The affected messages do not use LINK's internal message
facility, but instead do everything by hand. These
messages neglect to take the log file into account if
necessary.
11. Many of LINK's more complex messages contain imbedded tabs
to line up columns of data. This works on the terminal
because each new line starts at a tab stop. However, the
combination of the time-stamp, level and severity numbers
and error code in the log file does not end on a tab stop.
Thus, subsequent tabs in the text do not line up.
**********
[CURE]
1. Make LINK's error message routines only ignore those .ETC.
codes that do not affect program control.
2. Fix LINK's file initialization routines to correctly
detect the job's controlling terminal.
3. Include long message text for all messages. This affects
the following messages:
LNKDEB LNKDLT LNKEGD LNKELF LNKIMI LNKIMM
LNKIRC LNKIRR LNKISS LNKIUU LNKLFC LNKLFI
LNKLNS LNKLSS LNKNSA LNKONS LNKRER LNKRLC
LNKRME LNKUGS LNKVAL LNKXCT
4&5.Label all of LINK's error messages with well-defined
labels. Also, use a special OPDEF in place of OUTSTR for
those messages that cannot use the regular message
facility. This makes all messages easy to find both in
the listing and in debugging versions of LINK. Then,
update LNKERR so that it agrees with the real messages.
6. Update LINK's tables to include all current
LOOKUP/RENAME/ENTER errors. This affects the following
messages:
Digital Equipment Corporation 28-AUG-79 Page 555
PCO Log Report
LNKFEE LNKFLE LNKFRE LNKGSE
7. Add a facility to print common segments of messages, and
use it to print the module and file currently being
processed wherever possible. This affects the following
messages:
LNKAIC LNKB4R LNKCCD LNKCMC LNKCMF LNKDRC
LNKDSC LNKDSL LNKDSO LNKFCD LNKFOV LNKFSF
LNKHCL LNKHSL LNKI4D LNKI4S LNKI4T LNKICB
LNKIPO LNKIPX LNKIRB LNKIRC LNKIRR LNKISD
LNKISN LNKISO LNKMDS LNKMSR LNKOFN LNKPBI
LNKRBS LNKSRB LNKSRP LNKSTL LNKT13 LNKTMA
LNKUAR LNKURC
8. Add a new function to .ETC. to print a blank line in the
log file, since the bit used before cannot work.
9. Include the common portions of the long
LOOKUP/RENAME/ENTER messages directly in the long text for
each separate message. This affects the following
messages:
LNKFEE LNKFLE LNKFRE LNKGSE
10. Make the following messages use LINK's internal message
facility so that these messages get written to the log
file when necessary:
LNKEGD LNKLFB LNKLFC LNKLFI LNKLIN LNKLSS
LNKRER LNKRLC LNKUGS
11. Restructure the log file format slightly so that the text
portion of each message begins on a tab stop.
As a result of a general clean-up of LINK's messages also done
along with this edit, the following message mnemonics were changed:
LNKIBC, LNKTEC --> LNKAIC LNKEOI, LNKEID --> LNKEIF
LNKANC --> LNKANM LNKCEF --> LNKMEF
LNK999 --> LNKEGD LNKICI --> LNKIMI
LNKITT --> LNKICB LNKIFD --> LNKOFD
LNKIPL --> LNKIRR LNKLIM --> LNKLIN
LNKLNC --> LNKLNM LNKODV --> LNKOFS
LNKSLS --> LNKOSL LNLRPN --> LNKSRP
LNKRUC --> LNKRUM
Also, the following messages were deleted:
Digital Equipment Corporation 28-AUG-79 Page 556
PCO Log Report
LNKPOO LNKPSF
Digital Equipment Corporation 28-AUG-79 Page 557
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1557 10-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1633 10-Jun-1979
1)1 ;COPYRIGHT (C) 1973, 1978, 1979 BY
1) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY
2) ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1173 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1174 DZN 10-Jun-79 SPRs 20-12548, 20-12244, QAR 10-
03199
2) ; Revamp all error messages.
2) ; . Label all messages with E$$xxx:: or Ennxxx:: so messa
ges can be found
2) ; when debugging. E$$xxx should be the label of the
.ERR. (or its
2) ; preceeding PUSH P,[channel]) that defines the .E
Rxxx text block.
2) ; Ennxxx should be the label of all other .ERR.s with th
e same assigned
2) ; mnemonic, with nn starting at 01.
2) ; . Include the module and file name in which an error was
detected in all
2) ; applicable messages.
2) ; . Make .OERR. synonamous with OUTSTR for use in place
of .ERR. when a
2) ; message must be printed with an OUTSTR, so that all su
ch messages can
2) ; be found easily.
2) ; . Make the list of messages and long text in LNKER
R and the actual
2) ; messages in LINK agree.
2) ; . Fix log device being a terminal other than the control
ling one.
2) ; . Clean up the wording of all messages to be more consis
tent.
2) ; Routines: All
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 558
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 0230 09-Jun-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 1652 11-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 10-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 ;COPYRIGHT (C) 1973, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)5 ;1172 Delete .FRESP, .SYLIM, .OVPSP, and .LLOC.
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)5 ;1172 Delete .FRESP, .SYLIM, .OVPSP, AND .LLOC.
2) ;1174 Label and clean up all error messages.
2)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)10 PT.FAK==:1B7 ;TITLE DEFINED BY LINK-10 NOT USER
1) PT.BLK==:1B8 ;FAIL LOCAL BLOCK
****
2)10 PT.FAK==:1B7 ;TITLE DEFINED BY LINK NOT USER
2) PT.BLK==:1B8 ;FAIL LOCAL BLOCK
**************
1)26 T.'X,,T.ERR
1) >>
****
2)26 T.'X,,E$$IRB ;;[1174]
2) >>
**************
1)26 T.ERR,,T.'Y
1) >
1) IFNDEF T.'Y,<
1) T.ERR,,T.ERR
1) >>>>
****
2)26 E$$IRB,,T.'Y ;;[1174]
2) >
2) IFNDEF T.'Y,<
Digital Equipment Corporation 28-AUG-79 Page 559
PCO Log Report
2) E$$IRB,,E$$IRB ;;[1174]
2) >>>>
**************
1)28 ; .ERR. (TYP,FLG,VER,LVL,SEV,CODE,TXT)
1) ; .ETC. (TYP,FLG,,,,CODE,TXT)
1) ; ...
****
2)28 ; .ERR. (TYP,FLG,VER,LVL,SEV,CODE,TXT)
2) ; .ETC. (TYP,FLG,,,,CODE,TXT)
2) ; ...
**************
1)28 ; .EE ERROR MAY BE EDITED AND JOB CONTINUED
1) ; .EB PRINT BLANK LINE IN LOG AFTER THIS MESSAGE
****
2)28 ; .EB PRINT BLANK LINE IN LOG AFTER THIS MESSAGE
**************
1)28 DEFINE .ERR.(TYP,FLG,VER,LVL,SEV,CODE,TXT)<
****
2)28 ;
2) ;THE .ERR. CALL (OR THE PUSHJ P,[CHANNEL] THAT PRECEEDS IT) THAT
DEFINES TXT (OR
2) ;THAT USES THE .EN FLAG IN ITS PLACE) SHOULD HAVE THE LABEL E$$x
xx::, WHERE xxx
2) ;IS THE CODE ARGUMENT. ALL OTHER .ERR.'S THAT USE THE SAME CODE
SHOULD HAVE
2) ;LABELS OF Ennxxx, WHERE nn BEGINS WITH 01 AND INCREASES BY 1 FO
R EACH USE.
2) ;REALLY FATAL ERRORS THAT CANNOT USE .ERR. SHOULD USE .OERR. WIT
H THE SAME LABEL
2) ;CONVENTIONS.
2)29 DEFINE .ERR.(TYP,FLG,VER,LVL,SEV,CODE,TXT)<
**************
1)28 .ER'CODE::ASCIZ \CODE \
1) IFE <<FLG>&.EN>,<ASCIZ \TXT\>
1) ]^_
****
2)29 .ER'CODE::ASCIZ \CODE\ ;;[1174]
2) IFE <<FLG>&.EN>,<ASCIZ \TXT\>
2) IFN <<FLG>&.EN>,<0> ;;[1174] NULL TEXT
2) ]^_
**************
1)29 ;CONTINUED ERROR WORDS HAVE SIMILAR FORM. DIFFERENCES ARE:
****
2)29 SYN OUTSTR,.OERR. ;[1174] USED FOR MESSAGES LNKLOG
CAN'T HANDLE
2)30 ;CONTINUED ERROR WORDS HAVE SIMILAR FORM. DIFFERENCES ARE:
**************
1)29 ;VER BLANK
****
Digital Equipment Corporation 28-AUG-79 Page 560
PCO Log Report
2)30 ; RTN RETURN FROM PREVIOUS JMP
2) ; NLN PRINT A NEW LINE WITH CORRECT INDENTATION
2) ; XCT CODE IS ADDRESS OF INSTRUCTION TO XCT, SKIP ALLO
WED
2) ; BKL PRINT A BLANK IN THE LOG FILE ONLY, AND ONLY IF
REAL LOG FILE
2) ; DAT PRINT TODAY'S DATE
2) ; NOP NO OPERATION (GOOD FOR JMPING TO)
2) ;VER BLANK
**************
1)29 DEFINE .ETC. (TYP,FLG,VER,LVL,SEV,CODE,TXT)<
1) IFGE %LVL,<
****
2)30 DEFINE .ETC.(TYP,FLG,VER,LVL,SEV,CODE,TXT)< ;;[1174]
2) IFGE %LVL,<
**************
1)29 IFNB <TXT>,<
1) EXP <FLG>+<ET%'TYP>B<B%LVL>+<[ ASCIZ \TXT\]>
1) >
1) IFB <TXT>,<
1) EXP <FLG>+<ET%'TYP>B<B%LVL>
****
2)30 ;;**;[1174] Replace in .ETC. macro DZN 3-Jun-79
2) IFIDN <TYP><STR>,< ;;[1174]
2) EXP <FLG>+<ET%'TYP>B<B%LVL>+<[ ASCIZ \TXT\]>
2) >
2) IFDIF <TYP><STR>,< ;;[1174]
2) EXP <FLG>+<ET%'TYP>B<B%LVL>
**************
1)30 IFN .NWBLK,<
****
2)31 XXX (RTN);;[1174] RETURN FROM LAST JMP
2) XXX (NLN);;[1174] NEW LINE
2) XXX (XCT);;[1174] XCT AN INSTRUCTION
2) XXX (BKL);;[1174] BLANK LINE IN LOG FILE (OLD .EB FLAG)
2) XXX (DAT);;[1174] PRINT TODAY'S DATE
2) XXX (NOP);;[1174] NO OPERATION
2) IFN .NWBLK,<
**************
1)31 .EE==1B2 ;[1144] ERROR CAN BE EDITED
1) .EB==1B3 ;[1144] PRINT BLANK LINE IN LOG AFTER TH
IS MESSAGE
1) .EN==1B4 ;[1144] .ERR. WITHOUT MESSAGE (JUST CODE
)
1) ;BIT POSITIONS
****
2)32 .EN==1B2 ;[1174] .ERR. WITHOUT MESSAGE (JUST CODE
)
2) ;BIT POSITIONS
Digital Equipment Corporation 28-AUG-79 Page 561
PCO Log Report
**************
1)31 S%I==:1 ;INFORMATION ONLY
****
2)32 ;**;[1174] Insert before S%I DZN 29-May-79
2) S%D==:0 ;[1174] DEFERRED (SEVERITY DEPENDS ON LO
OKUP/ENTER CODE)
2) S%I==:1 ;INFORMATION ONLY
**************
1)31 S%F==:37 ;ALWAYS FATAL
1) ;LOG LEVEL CUTOFF
1) L%I==:1 ;INFORMATION ONLY
****
2)32 S%C==:^D28 ;[1174] FATAL (?) BUT CONTINUE ANYWAY
2) S%F==:37 ;ALWAYS FATAL
2) ;LOG LEVEL CUTOFF
2) ;**;[1174] Insert before L%I DZN 29-May-79
2) L%D==:0 ;[1174] DEFERRED (LEVEL DEPENDS ON LOOKU
P/ENTER CODE)
2) L%I==:1 ;INFORMATION ONLY
**************
Digital Equipment Corporation 28-AUG-79 Page 562
PCO Log Report
[FILCOM]
File 1) LINK:LNK999.MAC[30,4507] created: 1428 01-Mar-1978
File 2) LINK:LNK999.MAC[10,645063] created: 1639 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNK999
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNK999
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL EMERGENCY GETSEG
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up error messages.
2)3 SUBTTL EMERGENCY GETSEG
**************
1)3 .ERR. (MS,,V%L,L%I,S%I,999,<Emergency GETSEG done>)
1) HRRZ T1,SEGBLK+2 ;GET ERROR CODE
****
2)3 E$$EGD::.ERR. (MS,,V%L,L%I,S%I,EGD,<Emergency GETSEG done>)
2) HRRZ T1,SEGBLK+2 ;GET ERROR CODE
**************
1)3 LNKDIE: PUSH P,[0] ;GETSEG ON CHAN 0
1) .ERR. (LRE,,V%L,L%F,S%F,GSE)
****
2)3 E01GSE::PUSH P,[0] ;[1174] GETSEG ON CHAN 0
2) .ERR. (LRE,,V%L,L%F,S%F,GSE)
**************
1)4 JUMPE T1,LNKDIE ;NO CORE AVAILABLE
1) MOVE P2,T1 ;TRY FOR THIS
****
2)4 JUMPE T1,E01GSE ;[1174] NO MEMORY AVAILABLE
2) MOVE P2,T1 ;TRY FOR THIS
**************
1)4 PUSH P,[0] ;GETSEG ON CHAN 0
Digital Equipment Corporation 28-AUG-79 Page 563
PCO Log Report
1) .ERR. (LRE,,V%L,L%W,S%W,GSE)
****
2)4 E02GSE::PUSH P,[0] ;[1174] GETSEG ON CHAN 0
2) .ERR. (LRE,,V%L,L%W,S%W,GSE)
**************
1)4 END
Digital Equipment Corporation 28-AUG-79 Page 564
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1324 26-Jan-1979
File 2) LINK:LNKCOR.MAC[10,645063] created: 1640 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 26-Jan-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1130 ;DEC EDIT VERSION
1) SALL
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) SALL
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1174 Label and clean up all error messages.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)6 .ERR. (MS,.EC,V%L,L%I3,S%I,EXP,<Expanding low segment
to >)
1) .ETC. (COR,.EP,,,,.JBREL)
****
2)6 E$$EXP::.ERR. (MS,.EC,V%L,L%I3,S%I,EXP,<Expanding low segment
to >) ;[1174]
2) .ETC. (COR,.EP,,,,.JBREL)
**************
1)7 .ERR. (MS,.EC,V%L,L%I3,S%I,EXP)
1) .ETC. (COR,.EP,,,,.JBREL)
****
2)7 E01EXP::.ERR. (MS,.EC,V%L,L%I3,S%I,EXP) ;[1174]
2) .ETC. (COR,.EP,,,,.JBREL)
**************
1)7 NO.COR::.ERR. (MS,0,V%L,L%F,S%F,CEF,<Core expansion failed>)
1)8 ;WE HAVE ENOUGH CORE SOMEWHERE BUT IS IT ABOVE WHERE WE ARE?
****
2)7 E$$MEF::.ERR. (MS,0,V%L,L%F,S%F,MEF,<Memory expansion failed>)
;[1174]
2)8 ;WE HAVE ENOUGH CORE SOMEWHERE BUT IS IT ABOVE WHERE WE ARE?
**************
1)8 .ERR. (MS,.EC,V%L,L%I,S%I,MOV,<Moving low segment to e
xpand area >)
1) .ETC. (STR,.EP,,,,T1)
****
2)8 E$$MOV::.ERR. (MS,.EC,V%L,L%I,S%I,MOV,<Moving low segment to e
xpand area >) ;[1174]
2) .ETC. (STR,.EP,,,,T1)
**************
1)17 PUSHJ P,PAGERR ;[650] DIDN'T MAKE IT
Digital Equipment Corporation 28-AUG-79 Page 565
PCO Log Report
1) MOVSI T3,-LN.PAG ;[650] RESTORE AOBJN POINTER TO
GOODNESS
****
2)17 PUSHJ P,E$$PUF ;[1174] DIDN'T MAKE IT
2) MOVSI T3,-LN.PAG ;[650] RESTORE AOBJN POINTER TO
GOODNESS
**************
1)17 PAGERR: .ERR. (MS,.EC,V%L,L%F,S%F,PUF,<PAGE. UUO Failed, error
code was >)
1) .ETC. (OCT,.EP,,,,T3)
****
2)17 E$$PUF::.ERR. (MS,.EC,V%L,L%F,S%F,PUF,<PAGE. UUO failed, error
code was >) ;[1174]
2) .ETC. (OCT,.EP,,,,T3)
**************
1)20 .ERR. (MS,,V%L,L%F,S%F,AZW,<Allocating zero words>)
1) GETWDS: CAMLE T2,TB.FSP(P1) ;SEE IF ENOUGH TOTAL FREE SPACE
****
2)20 E$$AZW::.ERR. (MS,,V%L,L%F,S%F,AZW,<Allocating zero words>) ;[
1174]
2) GETWDS: CAMLE T2,TB.FSP(P1) ;SEE IF ENOUGH TOTAL FREE SPACE
**************
1)22 JRST NO.COR ;FAILED
1) POP P,P2 ;RESTORE P2
****
2)22 JRST E$$MEF ;[1174] FAILED
2) POP P,P2 ;RESTORE P2
**************
1)23 PUSHJ P,NO.COR
1) MOVNI T1,.IPS ;WE MUST HAVE GOT THE SPACE
****
2)23 PUSHJ P,E$$MEF ;[1174]
2) MOVNI T1,.IPS ;WE MUST HAVE GOT THE SPACE
**************
1)26 PUSHJ P,RETSPE ;ITS NOT, GIVE ERROR
1) CAIGE T2,.IPS ;IF MORE THAN 1 BLOCK
****
2)26 PUSHJ P,E$$RUM ;[1174] IT'S NOT, GIVE ERROR
2) CAIGE T2,.IPS ;IF MORE THAN 1 BLOCK
**************
1)26 RETSPE: .ERR. (MS,,V%L,L%F,S%F,RUC,<Returning unavailable core
>)
1)27 ADDWD1: MOVEI T4,TB.LNK(P1) ;START OF CHAIN
****
2)26 E$$RUM::.ERR. (MS,,V%L,L%F,S%F,RUM,<Returning unavailable memo
ry>) ;[1174]
2)27 ADDWD1: MOVEI T4,TB.LNK(P1) ;START OF CHAIN
**************
1)37
Digital Equipment Corporation 28-AUG-79 Page 566
PCO Log Report
1)38 SUBTTL DSK OVERFLOW ROUTINES
****
2)38 SUBTTL DSK OVERFLOW ROUTINES
**************
1)41 JRST NO.COR ;[1113] NO--JUST RAN OUT OF LUCK
1) MOVE T1,LC.AB ;[650] FIND SIZE
****
2)41 JRST E$$MEF ;[1174] NO--JUST RAN OUT OF LUCK
2) MOVE T1,LC.AB ;[650] FIND SIZE
**************
1)42 .ERR. (MS,.EC,V%L,L%W,S%W,MSS,<MAXCOR set too small, e
xpanding to >)
1) .ETC. (COR,.EP,,,,T1)
****
2)42 E$$MSS::.ERR. (MS,.EC,V%L,L%W,S%W,MSS,</MAXCOR: set too small,
expanding to >) ;[1174]
2) .ETC. (COR,.EP,,,,T1)
**************
1)44 PUSH P,[CHAN] ;STACK ERROR CHAN
1) .ERR. (ST,0,V%L,L%F,S%F,O'%AREA,<Error outputting area
%AREA>)
****
2)44 ;;**;[1174] Replace @%AREA'.OUT+16L DZN 4-Jun-79
2) E$$O'%AREA::PUSH P,[CHAN] ;[1174] STACK ER
ROR CHAN
2) .ERR. (ST,0,V%L,L%F,S%F,O'%AREA,<Error outputting area
%AREA>)
**************
1)49 %OK: HLRZ T2,T1 ;GET FIRST ADDRESS
1) LSH T2,-.DBS2W ;[650] INTO 128 WORD BLOCKS
****
2)49 ;**;[1174] Replace @%AREA'.IN+7L DZN 4-Jun-79
2) %OK:! HLRZ T2,T1 ;[1174] GET FIRST ADDRESS
2) LSH T2,-.DBS2W ;[650] INTO 128 WORD BLOCKS
**************
1)49 PUSH P,[CHAN] ;SAVE ERROR CHAN
1) .ERR. (ST,0,V%L,L%F,S%F,I'%AREA,<Error inputting area
%AREA>)
****
2)49 ;;**;[1174] Replace @%AREA'.IN+24L DZN 4-Jun-79
2) E$$I'%AREA::PUSH P,[CHAN] ;[1174] SAVE ERR
OR CHAN
2) .ERR. (ST,0,V%L,L%F,S%F,I'%AREA,<Error inputting area
%AREA>)
**************
1)55 .ERR. (MS,0,V%L,L%I,S%I,PLS,<Area LS overflowing to DS
K>)
1) SKIPLE T1,SYMFRM ;[604] USER REQUESTING A SYMBOL
FILE?
Digital Equipment Corporation 28-AUG-79 Page 567
PCO Log Report
****
2)55 E$$PLS::.ERR. (MS,0,V%L,L%I,S%I,PLS,<Area LS overflowing to di
sk>) ;[1174]
2) SKIPLE T1,SYMFRM ;[604] USER REQUESTING A SYMBOL
FILE?
**************
1)55 PUSHJ P,CLSERR ;ERROR
1)56 ;NOW FOR OUTPUT, SETUP IOWD FOR ALL SYMBOLS NOT IN CURRENT PROG
****
2)55 PUSHJ P,E$$ELS ;[1174] ERROR
2)56 ;NOW FOR OUTPUT, SETUP IOWD FOR ALL SYMBOLS NOT IN CURRENT PROG
**************
1)56 CLSERR: PUSH P,[SC]
1) .ERR. (LRE,0,V%L,L%F,S%F,ELS,<Error creating overflow
file for area LS -
1) >)
1) POPJ P,
****
2)56 E$$ELS::PUSH P,[SC] ;[1174]
2) .ERR. (LRE,0,V%L,L%F,S%F,ELS,<Error creating area LS o
verflow file>) ;[1174]
2) POPJ P,
**************
1)57 .ERR. (MS,0,V%L,L%I,S%I,PAS,<Area AS overflowing to DS
K>)
1) SKIPLE T1,SYMFRM ;[604] USER WANT ALGOL SYFILE?
****
2)57 E$$PAS::.ERR. (MS,0,V%L,L%I,S%I,PAS,<Area AS overflowing to di
sk>) ;[1174]
2) SKIPLE T1,SYMFRM ;[604] USER WANT ALGOL SYFILE?
**************
1)57 PUSHJ P,CASERR ;ERROR CREATING AS AREA FILE
1)58 MOVE T1,AS.PT ;FIGURE SIZE OF AS AREA
****
2)57 PUSHJ P,E$$EAS ;[1174] ERROR CREATING AS AREA F
ILE
2)58 MOVE T1,AS.PT ;FIGURE SIZE OF AS AREA
**************
1)58 CASERR: PUSH P,[AC] ;INDICATE WHICH CHANNEL
1) .ERR. (LRE,0,V%L,L%F,S%F,EAS,<Error creating overflow
file for area AS - >)
1) POPJ P, ;NEVER GET HERE
****
2)58 E$$EAS::PUSH P,[AC] ;[1174] INDICATE WHICH CHANNEL
2) .ERR. (LRE,0,V%L,L%F,S%F,EAS,<Error creating area AS o
verflow file>) ;[1174]
2) POPJ P, ;NEVER GET HERE
**************
1)59 LC.DMP::.ERR. (MS,0,V%L,L%I,S%I,PLC,<Area LC overflowing to DS
K>)
1) PUSH P,R ;SAVE R
Digital Equipment Corporation 28-AUG-79 Page 568
PCO Log Report
****
2)59 LC.DMP:: ;[1174]
2) E$$PLC::.ERR. (MS,0,V%L,L%I,S%I,PLC,<Area LC overflowing to di
sk>) ;[1174]
2) PUSH P,R ;SAVE R
**************
1)59 HC.DMP::.ERR. (MS,0,V%L,L%I,S%I,PHC,<Area HC overflowing to DS
K>)
1) PUSH P,R
****
2)59 HC.DMP:: ;[1174]
2) E$$PHC::.ERR. (MS,0,V%L,L%I,S%I,PHC,<Area HC overflowing to di
sk>) ;[1174]
2) PUSH P,R
**************
1)60 PUSHJ P,@[EXP CLCERR,CHCERR]-1(R)
1)61 ;NOW FOR OUTPUT, SETUP IOWD FOR DATA TO BE OUTPUT
****
2)60 PUSHJ P,@[EXP E$$ELC,E$$EHC]-1(R) ;[1174]
2)61 ;NOW FOR OUTPUT, SETUP IOWD FOR DATA TO BE OUTPUT
**************
1)62 CLCERR: PUSH P,[LC]
1) .ERR. (LRE,0,V%L,L%F,S%F,ELC,<Error creating overflow
file for area LC -
1) >)
1) POPJ P,
1) CHCERR: PUSH P,[HC]
1) .ERR. (LRE,0,V%L,L%F,S%F,EHC,<Error creating overflow
file for area HC -
1) >)
1) POPJ P,
****
2)62 E$$ELC::PUSH P,[LC] ;[1174]
2) .ERR. (LRE,0,V%L,L%F,S%F,ELC,<Error creating area LC o
verflow file>) ;[1174]
2) POPJ P,
2) E$$EHC::PUSH P,[HC] ;[1174]
2) .ERR. (LRE,0,V%L,L%F,S%F,EHC,<Error creating area HC o
verflow file>) ;[1174]
2) POPJ P,
**************
1)70 .ERR. (MS,0,V%L,L%W,S%W,SFU,<Symbol table fouled up>)
;OUCH!
1) POP P,T1 ;RECOVER FIXUP POINTER
****
2)70 E$$SFU::.ERR. (MS,0,V%L,L%W,S%W,SFU,<Symbol table fouled up>)
;[1174] OUCH!
2) POP P,T1 ;RECOVER FIXUP POINTER
**************
Digital Equipment Corporation 28-AUG-79 Page 569
PCO Log Report
Digital Equipment Corporation 28-AUG-79 Page 570
PCO Log Report
[FILCOM]
File 1) LINK:LNKCST.MAC[30,4507] created: 1435 07-Mar-1978
File 2) LINK:LNKCST.MAC[10,645063] created: 1641 10-Jun-1979
1)1 TITLE LNKCST - LOAD CUSTOMER LINK ITEMS MODULE FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LNKCST - LOAD CUSTOMER LINK ITEMS MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKCST
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKCST
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)2 SUBTTL REVISION HISTORY
****
2)1 SALL
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
**************
1)4 JRST T.ERR## ;NEW BLOCK TYPES NOT IMPLEMENTED
1) > ;END IFE .NWBLK
****
2)4 JRST E$$IRB## ;[1174] NEW BLOCK TYPES NOT IMPL
EMENTED
2) > ;END IFE .NWBLK
**************
1)4 JRST T.ERR## ;SNH,GIVE ERROR MESSAGE
1) HRREI T2,-<2000+CDSTL3>(T1) ;OFFSET TYPE
****
2)4 JRST E$$IRB## ;[1174] SNH,GIVE ERROR MESSAGE
2) HRREI T2,-<2000+CDSTL3>(T1) ;OFFSET TYPE
Digital Equipment Corporation 28-AUG-79 Page 571
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 572
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1156 08-Mar-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 1720 11-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 8-Mar-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) ENTRY LNKERR
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKERR
**************
1)1 DECEVR==1146 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)2 SUBTTL REVISION HISTORY
****
2)1 LRELEN==:42 ;[1174] **MUST** AGREE WITH LNKLOG
2)2 SUBTTL REVISION HISTORY
**************
1)2 ;1113 Add long message for LNKPOT.
****
2)3 ;START OF VERSION 4A
2) ;1113 Add long message for LNKPOT.
**************
1)3 SUBTTL FIND MESSAGE
****
2)3 ;1174 Label and clean up all error messages.
2)4 SUBTTL FIND MESSAGE
**************
1)8 VIATBL (FEE,-1,32)
1) VIATBL (FLE,0,32)
1) VIATBL (FRE,0,32)
1) VIATBL (GSE,0,32)
1)9 .HWFRMT ;SAVE SPACE
1) COMMENT \
1) SHORT LEVEL MESSAGE
1) THESE ARE INCORE AT ALL TIMES (IN OTHER SEGMENTS)
1) CODE LVL SEV MESSAGE
1) ABT 31 31 Load aborted due to %LNKTMA errors, max.
/ARSIZE
1) needed was [decimal]
Digital Equipment Corporation 28-AUG-79 Page 573
PCO Log Report
1) AMP 8 8 ALGOL main program not loaded
1) ANC 31 31 Address not in core
1) ARL 8 8 Ambiguous request in link [decimal] for
[symbol]
1) defined in links [decimal]
1) AZW 31 31 Allocating zero words
1) B4R 8 8 Bad F40 produced .REL file for [name]
1) CCD 31 31 CPU conflict detected in module [module]
1) CEF 31 31 Core expansion failed
1) CLF 1 1 Closing LOG file, continuing on [file]
1) CMC 31 31 Cannot mix COBOL-68 and COBOL-74 compile
d code
1) Error detected in module [module] from
[file]
1) CMF 31 31 COBOL module must be loaded first
1) CNW 31 31 Code not yet written at [label]
1) CSF 1 1 Creating saved file
1) DEB * 1 [Debugger] execution
1) DLT * 1 Execution deleted
1) DNA 31 31 DDT not available
1) DNS 8 8 Device not specified for /[switch]
1) DRC 8 8 Decreasing relocation counter [symbol
] from
1) [octal] to [octal]
1) DSC 31 31 Data store to COMMON [symbol] not in lin
k number
1) [decimal] for [module] in [file]
1) DSL 31 31 Data store to location [octal] not
in link
1) number [decimal] for [module] in [file]
1) DSO 31 31 Data statement overflow in module [name]
1) DUZ 31 31 Decreasing undefined symbol count below
zero
1) EAS 31 31 Error creating overflow file for area AS
1) ECE 31 31 Error creating .EXE file
1) EHC 31 31 Error creating overflow file for area HC
1) EID 31 31 Error on input device status [status] fo
r [file]
1) ELC 31 31 Error creating overflow file for area LC
1) ELF 1 1 End of LOG file
1) ELN 7 1 End of link number [number], name [name]
1) ELS 31 31 Error creating overflow file for area LS
1) EMS 1 1 End of MAP segment
1) EOE 31 31 .EXE file output error
1) EOI 31 31 Error on input status [status] for [file
]
1) EOO 31 31 Error on output status [status] for [fil
e]
1) EOV 31 31 Error creating overlay file for [file]
Digital Equipment Corporation 28-AUG-79 Page 574
PCO Log Report
1) ESN 31 31 Extended symbol not expected
1) EXP 4 1 Expanding low segment to [decimal]P
1) EXS 1 1 EXIT segment
1) FCD 31 31 FORTRAN confused about data statements i
n module
1) [name]
1) FCF 1 1 Final code fixups
1) FEE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
rror)
1) FIN 1 1 LINK finished
1) FLE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
rror)
1) FOV 31 31 Cannot overlay F40 compiled code in [mod
ule]
1) FRE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
rror)
1) FSF 8 8 FORTRAN subroutine [name] not in expecte
d form,
1) MIXFOR fixup not done
1) FSI 8 8 FORTRAN requires FOROTS, /FORSE switch i
gnored
1) FSN 31 31 FUNCT. subroutine not loaded
1) GFE 31 31 GTJFN% JSYS failed for [file]
1) GSE 31 31 (Indexed file LOOKUP, ENTER, or RENAME e
rror)
1) HCL 31 31 High segment code not allowed in an over
lay link in module [module]
1) HSL 31 31 Attempt to set high segment origin too l
ow
1) HTL 31 31 Symbol hash table too large
1) IAS 31 31 Error inputting area AS
1) I4D 31 31 Illegal F40 DATA code [octal] in module
[name]
1) I4S 31 31 Illegal F40 sub-block [octal] in module
[name]
1) I4T 31 31 Illegal F40 table entry [octal] in modul
e [name]
1) IBC 31 31 Attempt to increase size of blank COMM
ON from
1) [decimal] to [decimal]
1) ICI 31 31 Insufficient core to initialize LINK
1) IDM 31 31 Illegal data mode for device
1) IFD 31 31 INIT failure for device [device]
1) IHC 31 31 Error inputting area HC
1) ILC 31 31 Error inputting area LC
1) ILS 31 31 Error inputting area LS
1) IMA 8 8 Incremental maps not yet available
1) IMM * 1 [number] included modules missing (fr
om file
Digital Equipment Corporation 28-AUG-79 Page 575
PCO Log Report
1) [file])
1) INS 31 31 I/O data block not set up
1) IOV 31 31 Input error for overlay file
1) IPO 31 31 Invalid Polish operator [octal]
1) IPX 31 31 Invalid PSECT index
1) IRB 31 31 Illegal REL Block Type [octal] for [mod
ule] in
1) [file]
1) ISD 8 8 Inconsistent symbol definition for [symb
ol]
1) ISN 31 31 Illegal symbol name
1) ISO 31 31 Invalid store operator [octal]
1) ISP 31 31 Incorrect symbol pointer
1) ISS 8 8 Insufficient space for symbol table (aft
er PSECT
1) [name])--table truncated
1) IST 31 31 Inconsistency in switch table
1) ITT 8 8 Illegal type 12 link number [octal] in
module
1) [name]
1) IUU * 31 Illegal user UUO at PC [octal]
1) IVC 31 31 Index validation check failed at [addres
s]
1) LDS 1 1 LOAD segment
1) LFC 1 1 LOG file continuation
1) LFI 1 1 LOG file initilaization
1) LII 8 1 Library index inconsistent, continuing
1) LIM 1 1 LINK initialization
1) LMN 6 1 Loading module [module]
1) LNA 8 8 Link name [name] already assigned to lin
k number
1) [decimal]
1) LNC 31 31 Link number [decimal] not in core
1) LNL 8 8 Link number [decimal] not loaded
1) LNN 8 8 Link name [name] not assigned
1) LSM 8 8 /LINK switch missing while loading link
number
1) [decimal] -- /LINK assumed
1) LSS * 1 Library Search Symbols (Entry points)
1) MDS 31 8 Multiply-Defined Global symbol [symb
ol] in
1) module [name] defined value = [octal
], this
1) value = [octal]
1) MOV 1 1 Moving low segment to expand area [area]
1) MPS 1 1 MAP segment
1) MRN 1 1 Multiple regions not yet implemented
1) MSN 8 8 MAP sorting not yet implemented
1) MSR 31 31 /MIXFOR switch required to mix F40 and
FORTRAN
1) code
Digital Equipment Corporation 28-AUG-79 Page 576
PCO Log Report
1) MSS 8 8 MAXCOR set too small, increasing to [dec
imal]P
1) MTB 8 8 MAXCOR too big, [decimal]P used
1) MTS 8 8 MAXCOR too small, at least [decima
l]P is
1) required
1) NBR 31 31 Attempt to position to node before root
1) NEB 8 8 No end block seen for [module]
1) NED 31 24 Non-existent device
1) NSA * 1 No start address
1) OAS 31 31 Error outputting area AS
1) ODV 31 31 Overlay file must be created on a file s
tructure
1) OEL 8 8 Output error on LOG file, file clos
ed, job
1) continuing
1) OEM 8 8 Output error on MAP file, file clos
ed, job
1) continuing
1) OES 8 8 Output error on symbol file, file clos
ed, job
1) continuing
1) OEX 8 8 Output error on XPN file, file clos
ed, job
1) continuing
1) OFN 31 31 Old FORTRAN (F40) module not available
1) OHC 31 31 Error outputting area HC
1) OHN 31 31 Overlay handler not loaded
1) OLC 31 31 Error outputting area LC
1) OLS 31 31 Error outputting area LS
1) OMB 31 31 /OVERLAY switch must be first
1) ONS 8 1 Overlays not supported in this version o
f LINK
1) OOV 31 31 Output error for overlay file status
[status]
1) for [file]
1) OS2 1 1 Overlay segment phase 2
1) PAS 1 1 Area AS overflowing to DSK
1) PBI 8 8 Program break [octal] invalid in [name]
1) PCL 8 8 Program too complex to load, saving as [
file]
1) PCX 8 1 Program too complex to load and execute,
will run from [file]
1) PEF 31 8 Premature end of file in [file]
1) PHC 1 1 Area HC overflowing to DSK
1) PLC 1 1 Area LC overflowing to DSK
1) PLS 1 1 Area LS overflowing to DSK
1) POO 8 8 PSECT overlay occurred--[name],[name]
1) POT 1 1 Plotting overlay tree
Digital Equipment Corporation 28-AUG-79 Page 577
PCO Log Report
1) PSF 31 31 Polish symbol fixups not yet implemented
1) PUF 31 31 PAGE. UUO failed, error code was [octal]
1) RBS 31 31 REL Block Type [octal] too short for [fi
le]
1) RCU 31 31 Relocation counter [symbol] undefined,
set to
1) [symbol]
1) RED 1 1 Reducing low segment to [decimal]P
1) RER * 1 Request External References (Inter-Lin
k Entry
1) Points)
1) RGS 1 1 Rehashing Global symbol table from [deci
mal] to
1) [decimal]
1) RLC * 1 Reloc ctr. initial value current value
[octal]
1) RUC 31 31 Returning unavailable core
1) SFU 8 8 Symbol table fouled up
1) SIF 31 31 Symbol insert failure, non-zero hole fou
nd
1) SLS 8 8 Symbols must be in low segment
1) SMP 8 8 SIMULA main program not loaded
1) SNC 31 31 Symbol [symbol] already defined, but
not as
1) COMMON
1) SNL 1 1 Scanning new command line
1) SNP 8 8 Subroutine [symbol] in link number [deci
mal] not
1) on path for call from link number [deci
mal]
1) SOE 31 31 Saved file output error - status [status
]
1) SRB 8 8 Attempt to set relocation counter [name
] below
1) initial value of [octal]
1) SSN 8 8 Symbol table sorting not yet implemented
1) SST 1 1 Sorting symbol table
1) STC 1 1 Symbol table completed
1) STL 31 31 High segment code too long
1) T13 31 31 LVAR (type 13) code not implemented
1) TDS 8 8 Too late to delete initial symbols
1) TEC 31 31 Trying to expand COMMON [symbol] from [
decimal]
1) to [decimal] in module [name]
1) TMA 31 8 Too many ambiguous requests in link [
number],
1) use /ARSIZE:[decimal]
1) TTF 8 8 Too many titles found
1) UAR 8 8 Undefined assign for [symbol] in [file]
Digital Equipment Corporation 28-AUG-79 Page 578
PCO Log Report
1) UGS * 1 Undefined global symbols
1) UNS 31 31 Universal files not supported loading [f
ile]
1) URC 31 1 Unknown Radix-50 symbol code
1) USA 8 8 Undefined start address [symbol]
1) USC 31 8 Undefined subroutine [name] called fr
om link
1) number [decimal]
1) VAL * 1 [symbol] [value] [type]
1) XCT * 1 [Name] execution
1) ZSV 8 8 Zero switch value illegal
1) END OF COMMENT \
1)10 SUBTTL LONG MESSAGES
****
2)9 VIATBL (FEE,-1,LRELEN)
2) VIATBL (FLE,0,LRELEN)
2) VIATBL (FRE,0,LRELEN)
2) VIATBL (GSE,0,LRELEN)
2)10 SUBTTL CODE LVL SEV FIRST LINE MESSAGE
2) COMMENT \
2) CODE LVL SEV MESSAGE
2) ABT 31 31 Load aborted due to %LNKTMA errors, max. /ARSIZE
: needed was [decimal]
2) AIC 31 31 Attempt to increase size of {blank common} fro
m [decimal] to [decimal]
2) {common [symbol}
2) {Detected in module [symbol] from file [file]}
2) AMP 8 8 ALGOL main program not loaded
2) ANM 31 31 Address not in memory
2) ARL 8 8 Ambiguous request in link [decimal] {name [name]
} for [symbol] defined in
2) links [decimal], [decimal], ...
2) AZW 31 31 Allocating zero words
2) B4R 8 8 Bad F40 produced REL file
2) {Detected in module [symbol] from file [file]}
2) CCD 31 31 CPU conflict
2) {Detected in module [symbol] from file [file]}
2) CLF 1 1 Closing log file, continuing on file [file]
2) CMC 31 31 Cannot mix COBOL-68 and COBOL-74 compiled code
2) {Detected in module [symbol] from file [file]}
2) CMF 31 31 COBOL module must be loaded first
2) {Detected in module [symbol] from file [file]}
2) CNW 31 31 Code not yet written at [label]
2) CSF 1 1 Creating saved file
2) DEB 31 1 [Name] execution
2) DLT 38 1 Execution deleted
2) DNA 31 31 DDT not available
2) DNS 8 8 Device not specified for switch [switch]
2) DRC 8 8 Decreasing relocation counter [symbol] from [oct
al] to [octal]
2) {Detected im module [symbol] from file [file]}
Digital Equipment Corporation 28-AUG-79 Page 579
PCO Log Report
2) DSC 31 31 Data store to common [symbol] not in link number
[decimal]
2) {Detected in module [symbol] from file [file]}
2) DSL 31 * Data store to location [octal] not in link numbe
r [decimal]
2) {Detected in module [symbol] from file [file]}
2) DSO 31 31 Data statement overflow
2) {Detected in module [symbol] from file [file]}
2) DUZ 31 31 Decreasing undefined symbol count below zero
2) EAS 31 31 Error creating area AS overflow file [reason] [f
ile]
2) ECE 31 31 Error creating EXE file [reason] [file]
2) EGD 1 1 Emergency GETSEG done
2) EHC 31 31 Error creating area HC overflow file [reason] [f
ile]
2) EIF 31 31 Error for input file Status [octal] for file [fi
le]
2) ELC 31 31 Error creating area LC overflow file [reason] [f
ile]
2) ELF 1 1 End of log file
2) ELN 7 1 End of link number [decimal] {name [name]}
2) ELS 31 31 Error creating area LS overflow file [reason] [f
ile]
2) EMS 1 1 End of MAP segment
2) EOE 31 31 EXE file output error Status [octal] for file [f
ile]
2) EOI 31 31 Error on input Status [octal] for file [file]
2) EOO 31 31 Error on output Status [octal] for file [file]
2) EOV 31 31 Error creating overlay file [reason] [file]
2) ESN 31 31 Extended symbol not expected
2) EXP 3 1 Expanding low segment to [memory]
2) EXS 1 1 EXIT segment
2) FCD 31 31 F40 confused about data statements
2) {Detected in module [symbol] from file [file]}
2) FCF 1 1 Final code fixups
2) FEE 31 31 ENTER error [reason] [file]
2) FIN 1 1 LINK finished
2) FLE 31 31 LOOKUP error [reason] [file]
2) FOV 31 31 Cannot overlay F40 compiled code
2) {Detected in module [symbol] from file [file]}
2) FRE 31 31 RENAME error [reason] [file]
2) FSF 8 8 FORTRAN subroutine not in expected format, /MIXF
OR fixup not done
2) {Detected in module [symbol] from file [file]}
2) FSI 8 8 FORTRAN requires FOROTS, /FORSE switch ignored
2) FSN 31 31 FUNCT. subroutine not loaded
2) GFE 31 31 GTJFN% JSYS failed for file [file]
2) GSE * * GETSEG error [reason] [file]
2) HCL 31 31 High segment code not allowed in an overlay link
Digital Equipment Corporation 28-AUG-79 Page 580
PCO Log Report
2) {Detected in module [symbol] from file [file]}
2) HSL 31 31 Attempt to set high segment origin too low
2) {Detected in module [symbol] from file [file]}
2) HTL 31 31 Symbol hash table too large
2) IAS 31 31 Error inputting area AS Status [octal] for file
[file]
2) I4D 31 31 Illegal F40 data code [octal]
2) {Detected in module [symbol] from file [file]}
2) I4S 31 31 Illegal F40 sub-block [octal]
2) {Detected in module [symbol] from file [file]}
2) I4T 31 31 Illegal F40 table entry [octal]
2) {Detected in module [symbol] from file [file]}
2) ICB 8 8 Invalid chain REL block (type 12) link number [o
ctal]
2) {Detected in module [symbol] from file [file]}
2) IDM 31 31 Illegal data mode for device [device]
2) IHC 31 31 Error inputting area HC Status [octal] for file
[file]
2) ILC 31 31 Error inputting area LC Status [octal] for file
[file]
2) ILS 31 31 Error inputting area LS Status [octal] for file
[file]
2) IMA 8 8 Incremental maps not yet available
2) IMI 31 31 Insufficient memory to initialize LINK
2) IMM * 1 [Decimal] included modules missing {from file [f
ile]}
2) INS 31 31 I/O data block not set up
2) IOV 31 31 Input error for overlay file Status [octal] for
file [file]
2) IPO 31 31 Invalid polish operator [octal]
2) {Detected in module [symbol] from file [file]}
2) IPX 31 31 Invalid psect index {for psect [symbol]}
2) {Detected in module [symbol] from file [file]}
2) IRB 31 31 Illegal REL block type [octal]
2) {Detected in module [symbol] from file [file]}
2) IRC 31 31 Illegal relocation counter
2) {Detected in module [symbol] from file [file]}
2) IRR 8 8 Illegal request/require block
2) {Detected in module [symbol] from file [file]}
2) ISD 8 8 Inconsistent symbol definition for symbol [symbo
l]
2) {Detected in module [symbol] from file [file]}
2) ISN 31 31 Illegal symbol name [symbol]
2) {Detected in module [symbol] from file [file]}
2) ISO 31 31 Invalid polish store operator [octal]
2) {Detected in module [symbol] from file [file]}
2) ISP 31 31 Incorrect symbol pointer
2) ISS 8 8 Insufficient space for symbol table after psect
[symbol] -- table truncated
Digital Equipment Corporation 28-AUG-79 Page 581
PCO Log Report
2) IST 31 31 Inconsistency in switch table
2) ITB 31 31 Invalid text in ASCII block from file [file]
2) IUU * 31 Illegal user UUO at PC [octal]
2) IVC 31 31 Index validation check failed at [address]
2) LDS 1 1 LOAD segment
2) LFB 1 1 LINK log file begun on [date]
2) LFC 1 1 Log file continuation
2) LFI 1 1 Log file initialization
2) LII 8 1 Library index inconsistent, continuing
2) LIN 1 1 LINK initialization
2) LMN 6 1 Loading module [symbol]
2) LNA 8 8 Link name [name] already assigned to link number
[decimal]
2) LNL 8 8 Link number [decimal] not loaded
2) LNM 31 31 Link number [decimal] not in memory
2) LNN 8 8 Link name [name] not assigned
2) LNS 31 8 Low segment data base not same size
2) LSM 8 8 /LINK switch missing while loading link number [
decimal] -- assumed
2) LSS 31 1 {No} Library search symbols (entry points)
2) {[symbol] [octal]
2) . . . . . . }
2) MDS 8 8 Multiply-defined global symbol [symbol]
2) {Detected in module [symbol] from file [file]}
2) Defined value = [octal], this value = [octal]
2) MEF 31 31 Memory expansion failed
2) MOV 1 1 Moving low segment to expand area [area]
2) MPS 1 1 MAP segment
2) MRN 1 1 Multiple regions not yet implemented
2) MSN 8 8 Map sorting not yet implemented
2) MSR 31 31 /MIXFOR switch required to mix F40 and FORTRAN c
ode
2) {Detected in module [symbol] from file [file]}
2) MSS 8 8 /MAXCOR: set too small, expanding to [memory]
2) MTB 8 8 /MAXCOR: too big, [memory] used
2) MTS 8 8 /MAXCOR: too small, at least [memory] is require
d
2) NBR 31 31 Attempt to position to node before the root
2) NEB 8 8 No end block seen
2) {Detected in module [symbol] from file [file]}
2) NED 31 24 Non-existent device [device]
2) NPS 8 8 Non-existent psect [symbol] specified for symbol
table
2) NSA 31 1 No start address
2) OAS 31 31 Error outputting area AS Status [octal] for file
[file]
2) OEL 8 8 Output error on log file, file closed, load cont
inuing {Status [octal] for
2) file [file]}
Digital Equipment Corporation 28-AUG-79 Page 582
PCO Log Report
2) OEM 8 8 Output error on map file, file closed, load cont
inuing Status [octal] for
2) file [file]
2) OES 8 8 Output error on symbol file, file closed, load c
ontinuing Status [octal] for
2) file [file]
2) OEX 8 8 Output error on XPN file, file closed, load cont
inuing Status [octal] for
2) file [file]
2) OFD 31 31 OPEN failure for device [device]
2) OFN 31 31 Old FORTRAN (F40) module not available
2) {Detected in module [symbol] from file [file]}
2) OFS 31 31 Overlay file must be created on a file structure
2) OHC 31 31 Error outputting area HC Status [octal] for file
[file]
2) OHN 31 31 Overlay handler not loaded
2) OLC 31 31 Error outputting area LC Status [octal] for file
[file]
2) OLS 31 31 Error outputting area LS Status [octal] for file
[file]
2) OMB 31 31 /OVERLAY switch must be first
2) ONS 8 1 Overlays not supported in this version of LINK
2) OOV 31 31 Output error for overlay file Status [octal] for
file [file]
2) OS2 1 1 Overlay segment phase 2
2) OSL 8 8 Overlaid program symbols must be in low segment
2) PAS 1 1 Area AS overflowing to disk
2) PBI 8 8 Program break [octal] invalid
2) {Detected in module [symbol] from file [file]}
2) PCL 8 8 Program too complex to load, saving as file [fil
e]
2) PCX 8 1 Program too complex to load and execute, will ru
n from file [file]
2) PEF 31 8 Premature end of file from file [file]
2) PHC 1 1 Area HC overflowing to disk
2) PLC 1 1 Area LC overflowing to disk
2) PLS 1 1 Area LS overflowing to disk
2) POT 1 1 Plotting overlay tree
2) POV 8 8 Psects [symbol] and [symbol] overlap from [addre
ss] to [address]
2) PUF 31 31 PAGE. UUO failed, error code was [octal]
2) RBS 31 31 REL block type [octal] too short
2) {Detected in module [symbol] from file [file]}
2) RED 1 1 Reducing low segment to [memory]
2) RER * 1 {No} Request external references (inter-link ent
ry points)
2) {[symbol] [octal]
2) . . . . . .}
2) RGS 1 1 Rehashing global symbol table from [decimal] to
[decimal]
2) RLC 31 1 Reloc ctr. initial value current value
Digital Equipment Corporation 28-AUG-79 Page 583
PCO Log Report
2) [symbol] [octal] [octal]
2) {. . . . . . . . .}
2) RME 31 * REMAP error{, high segment origin may be incorre
ct}
2) RUM 31 31 Returning unavailable memory
2) SFU 8 8 Symbol table fouled up
2) SIF 31 31 Symbol insert failure, non-zero hole found
2) SMP 8 8 SIMULA main program not loaded
2) SNC 31 31 Symbol [symbol] already defined, but not as comm
on
2) {Detected in module [symbol] from file [file]}
2) SNL 1 1 Scanning new command line
2) SNP 8 8 Subroutine [symbol] in link number [decimal] not
on path for call from link
2) number [decimal] {name [name]}
2) SOE 31 31 Saved file output error Status [octal] for file
[file]
2) SRB 8 8 Attempt to set relocation counter [symbol] below
initial value of [octal]
2) {Detected in module [symbol] from file [file]}
2) SRP 31 31 /SET: switch required for psect [symbol]
2) {Detected in module [symbol] from file [file]}
2) SSN 8 8 Symbol table sorting not yet implemented
2) SST 1 1 Sorting symbol table
2) STC 1 1 Symbol table completed
2) STL 31 31 High segment code too long
2) {Detected in module [symbol] from file [file]}
2) T13 31 31 LVAR REL block (type 13) not implemented
2) {Detected in module [symbol] from file [file]}
2) TDS 8 8 Too late to delete initial symbols
2) TMA 31 8 Too many ambiguous requests in link [decimal] {n
ame [name]}, use
2) /ARSIZE:[decimal]
2) {Detected in module [symbol] from file [file]}
2) TTF 8 8 Too many titles found
2) UAR 8 8 Undefined assign for [symbol]
2) {Detected in module [symbol] from file [file]}
2) UGS * 1 {No} Undefined global symbols
2) {[symbol] [octal]
2) . . . . . .}
2) UNS 31 31 Universal file REL block (type 777) not supporte
d
2) from file [file]
2) URC 31 1 Unknown radix-50 symbol code [octal] [symbol]
2) {Detected in module [symbol] from file [file]}
2) USA 8 8 Undefined start address [symbol]
2) {Detected in module [symbol] from file [file]}
2) USC 31 8 Undefined subroutine [symbol] called from link n
umber [decimal] {name
Digital Equipment Corporation 28-AUG-79 Page 584
PCO Log Report
2) [name]}
2) USI 8 16 Undefined symbol [symbol] illegal in switch [swi
tch]
2) VAL 31 1 Symbol [symbol] [octal] [type]
2) XCT 31 1 [Name] execution
2) ZSV 8 8 Zero switch value illegal
2) END OF COMMENT \
2)11 SUBTTL LONG MESSAGES
**************
1)10 HASH AMP,0,<^_
****
2)11 HASH AIC,0,<^_
2) FORTRAN common areas cannot be expanded once define
d.
2) Either load the module with the largest definition firs
t,
2) or use the /COMMON: switch to reserve the needed space.>
2) HASH AMP,0,<^_
**************
1)10 HASH ANC,0,<^_
1) LINK expected a particular user address to be in memor
y,
****
2)11 HASH ANM,0,<^_
2) LINK expected a particular user address to be in memor
y,
**************
1)10 ;**;[1120] Insert before LNKCEF long message DZN 22-Sep-7
8
1) HASH CCD,0,<^_
****
2)11 HASH CCD,0,<^_
**************
1)10 HASH CEF,0,<^_
1) LINK cannot expand core further. All permitted overflo
ws
1) to disk have been tried, but your program is still t
oo
1) large for available memory. A probable cause is a lar
ge
1) global symbol table, which cannot be overflowed to disk.
>
1) HASH CLF,0,<^_
1) You have changed the log file device. The old log file
is
1) closed; further log entries are written in the new l
og
1) file.>
1) HASH CMC,0,<^_
Digital Equipment Corporation 28-AUG-79 Page 585
PCO Log Report
****
2)11 HASH CLF,0,<^_
2) You have changed the log file specification. The old l
og
2) file is closed; further log entries are written in t
he
2) new log file.>
2) HASH CMC,0,<^_
**************
1)10 LINK is generating your .EXE file.>
1) ;**;[1144] Replace before DNA long message DZN 16-Feb-7
9
1) HASH DEB,0,<^_
1) LINK is beginning program execution at the named debugg
er
1) which you have specified.>
1) HASH DLT,0,<^_
1) Though you have asked for program execution, LINK cann
ot
1) proceed due to earlier fatal compiler or LINK errors.>
1) HASH DNA,0,<^_
1) A monitor call for SYS:UDDT.EXE failed.>
1) HASH DNS,0,<^_
****
2)11 LINK is generating your executable (EXE) file.>
2) HASH DEB,0,<^_
2) LINK is beginning program execution at the named debugge
r.>
2) HASH DLT,0,<^_
2) Though you have asked for program execution, LINK cann
ot
2) proceed due to earlier fatal compiler or LINK error
s.
2) Your program is left in memory or in an executable file.
>
2) IFN TOPS20,<
2) HASH DNA,0,<^_
2) A monitor call to obtain SYS:UDDT.EXE failed. This c
an
2) happen if you have redefined the logical name SYS: a
nd
2) neglected to include any directory that contains UDDT.EX
E.>
2) > ;END IFN TOPS20
2) HASH DNS,0,<^_
**************
1)10 You loaded a FORTRAN-compiled file with DATA stateme
nt
1) assignments to a COMMON area. The COMMON area is alrea
dy
1) defined in an ancestor link.>
Digital Equipment Corporation 28-AUG-79 Page 586
PCO Log Report
1) HASH DSL,0,<^_
****
2)11 You loaded a FORTRAN-compiled module with DATA stateme
nt
2) assignments to a common area. The common area is alrea
dy
2) defined in an ancestor link. Restructure the load so th
at
2) the DATA statements are loaded in the same link as t
he
2) common area to which they refer.>
2) HASH DSL,0,<^_
**************
1)10 If [octal] is less than 140, this message has
1) level 8 and severity 8.
****
2)11 If the location is less than 140, this message has
2) level 8 and severity 8.
**************
1)10 HASH EHC,0,<^_
****
2)11 HASH EGD,0,<^_
2) LINK has expanded its low segment so large that one of i
ts
2) larger high segments will not now fit in memory. LI
NK
2) will attempt to shrink its internal tables so that t
he
2) GETSEG will succeed and loading continue.>
2) HASH EHC,0,<^_
**************
1)10 HASH EID,0,<^_
1) A read error has occurred on the input device. Use of t
he
1) device is terminated and the file is released. The stat
us
1) is represented by the right half of the file status wor
d.
****
2)11 HASH EIF,0,<^_
2) A read error has occurred on the input file. Use of t
he
2) file is terminated and the file is released. The stat
us
2) is represented by the right half of the file status wor
d.
**************
1)10 HASH EID,0,<^_
1) A read error has occurred on the input device. Use of t
Digital Equipment Corporation 28-AUG-79 Page 587
PCO Log Report
he
1) device is terminated and the file is released.>
1) > ;END IFN TOPS20
****
2)11 HASH EIF,0,<^_
2) A read error has occurred on the input file. Use of t
he
2) file is terminated and the file is released.>
2) > ;END IFN TOPS20
**************
1)10 ;(There is no long text for the ELF message.)
1) HASH ELN,0,<^_
****
2)11 HASH ELF,0,<^_
2) LINK has finished writing your log file. The file
is
2) closed.>
2) HASH ELN,0,<^_
**************
1)10 HASH EOE,0,<^_
1) LINK could not write the saved file on the disk. Y
ou
1) could be over your disk quota, or the disk could be fu
ll
1) or have errors.>
1) IFE TOPS20,<
****
2)11 IFE TOPS20,<
2) HASH EOE,0,<^_
2) LINK could not write the saved file on the disk. T
he
2) status is represented by the left half of the file stat
us
2) word. Refer to the DECsystem-10 Monitor Calls for t
he
2) explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH EOE,0,<^_
2) LINK could not write the saved file on the disk.>
2) > ;END IFN TOPS20
2) IFE TOPS20,<
**************
1)10 HASH EOV,0,<^_
1) LINK cannot write the overlay file on disk. You may
be
1) over your disk quota; the disk may be full; or the di
sk
1) may have errors.>
Digital Equipment Corporation 28-AUG-79 Page 588
PCO Log Report
1) HASH ESN,0,<^_
****
2)11 IFE TOPS20,<
2) HASH EOV,0,<^_
2) LINK could not write the overlay file on the disk. T
he
2) status is represented by the left half of the file stat
us
2) word. Refer to the DECsystem-10 Monitor Calls for t
he
2) explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH EOV,0,<^_
2) LINK could not write the saved file on the disk.>
2) > ;END IFN TOPS20
2) HASH ESN,0,<^_
**************
1)10 HASH EXP,0,<^_
1) LINK is expanding memory to the specified amount. You c
an
1) speed up future loads of this program by using the /CO
RE
1) switch to allocate the required core.>
1) HASH EXS,0,<^_
1) LINK is in the last stages of loading your program (f
or
1) example, creating .EXE and symbol files, preparing f
or
1) execution if requested).>
****
2)11 IFE TOPS20,<
2) HASH EXP,0,<^_
2) LINK is expanding memory to the specified amount. You c
an
2) speed up future loads of this program by using the /COR
E:
2) switch to allocate the required memory.>
2) > ;END IFE TOPS20
2) HASH EXS,0,<^_
2) LINK is in the last stages of loading your program (f
or
2) example, creating EXE and symbol files, preparing f
or
2) execution if requested).>
**************
1)10 subroutine.>
1) HASH FSI,0,<^_
1) You gave the /FORSE switch while loading FORTRAN-compil
ed
1) code.>
Digital Equipment Corporation 28-AUG-79 Page 589
PCO Log Report
1) HASH FSN,0,<^_
****
2)11 subroutine. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) HASH FSI,0,<^_
2) You gave the /FORSE switch while loading FORTRAN-compil
ed
2) code. LINK ignored the switch and will use the FORTR
AN
2) run-time system.>
2) HASH FSN,0,<^_
**************
1)10 ;**;[1144] Insert before LNKGST long message DZN 16-Feb-7
8
1) HASH GFE,0,<^_
****
2)11 HASH GFE,0,<^_
**************
1)10 ;**;[1115] Insert before LNKHSL long message DZN 2-Sep-78
1) HASH HCL,0,<^_
****
2)11 HASH HCL,0,<^_
**************
1)10 HASH IAS,0,<^_
1) An error occurred while reading in the ALGOL symb
ol
1) table.>
1) HASH I4D,0,<^_
****
2)11 IFE TOPS20,<
2) HASH IAS,0,<^_
2) An error occurred while reading in the ALGOL symb
ol
2) table. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH IAS,0,<^_
2) An error occurred while reading in the ALGOL symb
ol
2) table.>
2) > ;END IFN TOPS20
2) HASH I4D,0,<^_
Digital Equipment Corporation 28-AUG-79 Page 590
PCO Log Report
**************
1)10 HASH IBC,0,<^_
1) A blank COMMON area cannot be expanded once define
d.
1) Either load the module with the largest definition firs
t,
1) or use the /COMMON switch to reserve the needed space.>
1) HASH ICI,0,<^_
1) LINK needs more memory than is available.>
1) HASH IDM,0,<^_
****
2)11 HASH ICB,0,<^_
2) REL block type 12 (chain), generated by the MAC
RO
2) pseudo-op .LINK and .LNKEND, must contain a number from
1
2) to 100 (octal) in its first word. The link word
is
2) ignored.>
2) HASH IDM,0,<^_
**************
1)10 HASH IFD,0,<^_
1) An OPEN or INIT monitor call for the specified devi
ce
1) failed. The device may be under another user's control.
>
1) HASH IHC,0,<^_
****
2)11 IFE TOPS20,<
2) HASH IHC,0,<^_
2) An error occurred while reading in your high-segme
nt
2) code. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH IHC,0,<^_
**************
1)10 HASH ILC,0,<^_
1) An error occurred while reading in your low-segment code
.>
1) HASH ILS,0,<^_
****
2)11 > ;END IFN TOPS20
2) IFE TOPS20,<
2) HASH ILC,0,<^_
Digital Equipment Corporation 28-AUG-79 Page 591
PCO Log Report
2) An error occurred while reading in your low-segment cod
e.
2) The status is represented by the right half of the fi
le
2) status word. Refer to the DECsystem-10 Monitor Calls f
or
2) the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH ILC,0,<^_
2) An error occurred while reading in your low-segment code
.>
2) > ;END IFN TOPS20
2) IFE TOPS20,<
2) HASH ILS,0,<^_
2) An error occurred while reading in your local symb
ol
2) table. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH ILS,0,<^_
**************
1)10 HASH IMA,0,<^_
1) The INCREMENTAL keyword for /MAP is not implemented. T
he
1) switch is ignored.>
1) ;(There is no long text for the IMM message.)
1) HASH INS,0,<^_
****
2)11 > ;END IFN TOPS20
2) HASH IMA,0,<^_
2) The INCREMENTAL keyword for the /MAP: switch is n
ot
2) implemented. The switch is ignored.>
2) HASH IMI,0,<^_
2) LINK needs more memory than is available.>
2) HASH IMM,0,<^_
2) You have requested with the /INCLUDE: switch that t
he
2) named modules (if any) be loaded. Specify fil
es
2) containing these modules.>
2) HASH INS,0,<^_
**************
1)10 REL Block Type 11 (POLISH). This is an internal LI
NK
1) error. This message is not expected to occur. If
Digital Equipment Corporation 28-AUG-79 Page 592
PCO Log Report
it
1) does, please notify your Software Specialist or send
a
1) Software Performance Report (SPR) to DIGITAL.>
1) HASH IPX,0,<^_
1) A REL block contains a reference to a nonexistent PSEC
T.
1) This error is probably caused by a fault in the langua
ge
1) translator used for the program.>
1) HASH IRB,0,<^_
****
2)11 REL block type 11 (polish). This message is not expect
ed
2) to occur. If it does, please notify your Softwa
re
2) Specialist or send a Software Performance Report (SPR)
to
2) DIGITAL.>
2) HASH IPX,0,<^_
2) A REL block contains a reference to a nonexistent psec
t.
2) This error is probably caused by a fault in the langua
ge
2) translator used for the program. This error is n
ot
2) expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) HASH IRB,0,<^_
**************
1)10 recognize, or it may be an ASCII or .EXE file.>
1) HASH ISD,0,<^_
****
2)11 recognize, or it may be an ASCII or EXE file.>
2) IFN .NWBLK,<
2) HASH IRC,0,<^_
2) One of the new style 1000+ block types has an illeg
al
2) relocation counter. This message is not expected
to
2) occur. If it does, please notify your Software Speciali
st
2) or send a Software Performance Report (SPR) to DIGITAL.>
2) HASH IRR,0,<^_
2) One of the REL block types 1042 or 1043 is in the wro
ng
Digital Equipment Corporation 28-AUG-79 Page 593
PCO Log Report
2) format. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) > ;END IFN .NWBLK
2) HASH ISD,0,<^_
**************
1)10 symbol. This is an internal LINK error. This message
is
1) not expected to occur. If it does, please notify yo
ur
1) Software Specialist or send a Software Performance Repo
rt
1) (SPR) to DIGITAL.>
****
2)11 symbol. This error can be caused by a fault in t
he
2) language translator used for the program. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
**************
1)10 REL Block Type 11 (POLISH). This is an internal LI
NK
1) error. This message is not expected to occur. If
it
1) does, please notify your Software Specialist or send
a
1) Software Performance Report (SPR) to DIGITAL.>
1) HASH ISP,0,<^_
1) There is an error in the global symbol table. Th
is
1) message is not expected to occur. If it does, plea
se
1) notify your Software Specialist or send a Softwa
re
1) Performance Report (SPR) to DIGITAL.>
1) ;(There is no long text for the ISS message.)
1) HASH IST,0,<^_
1) LINK has found errors in the switch table passed from t
he
1) SCAN module. This message is not expected to occur.
If
1) it does, please notify your Software Specialist or send
a
Digital Equipment Corporation 28-AUG-79 Page 594
PCO Log Report
1) Software Performance Report (SPR) to DIGITAL.>
1) HASH ITT,0,<^_
1) REL Block Type 12 (CHAIN) must contain a number from 1
to
1) 100 (octal) in its first word.>
1) ;(There is no long text for the IUU message.)
1) HASH IVC,0,<^_
****
2)11 REL block type 11 (polish). This error can be caused by
a
2) fault in the language translator used for the progra
m.
2) This message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) HASH ISP,0,<^_
2) There is an error in the global symbol table. This is
an
2) internal LINK error. This message is not expected
to
2) occur. If it does, please notify your Software Speciali
st
2) or send a Software Performance Report (SPR) to DIGITAL.>
2) HASH ISS,0,<^_
2) There is insufficient address space for the symbol tab
le
2) between the named psect and the next higher one or the e
nd
2) of the address space. Restructure your psect layout
to
2) allow sufficient room for the symbol table.>
2) HASH IST,0,<^_
2) LINK has found errors in the switch table passed from t
he
2) SCAN module. This is an internal error. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) HASH ITB,0,<^_
2) LINK has failed to complete the processing of an ASC
II
2) text REL block from the named file. This is an intern
al
2) error. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
Digital Equipment Corporation 28-AUG-79 Page 595
PCO Log Report
a
2) Software Performance Report (SPR) to DIGITAL.>
2) HASH IUU,0,<^_
2) LINK's user UUO (LUUO) handler has detected an illeg
al
2) UUO. This is an internal error. This message is n
ot
2) expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) HASH IVC,0,<^_
**************
1)10 at which failure occurred. This message is not expect
ed
1) to occur. If it does, please notify your Softwa
re
1) Specialist or send a Software Performance Report (SPR)
to
1) DIGITAL.>
1) ;**;[1120] Delete LNKKIA long message DZN 22-Sep-78
1) HASH LDS,0,<^_
1) The LINK module LNKLOD is beginning its processing.>
1) ;(There is no long text for the LFC message.)
1) ;(There is no long text for the LFI message.)
1) HASH LII,0,<^_
1) A REL Block Type 14 (INDEX) for a MAKLIB or FUDGE2 libra
ry
1) file is inconsistent. The library is searched, but t
he
1) index is ignored.>
1) HASH LIM,0,<^_
1) LINK is ready for your input.>
1) HASH LMN,0,<^_
****
2)11 at which failure occurred. This is an internal erro
r.
2) This message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) HASH LDS,0,<^_
2) The LINK module LNKLOD is beginning its processing.>
2) HASH LFB,0,<^_
2) LINK is creating your log file as a result of defining t
he
2) logical name LOG:.>
Digital Equipment Corporation 28-AUG-79 Page 596
PCO Log Report
2) HASH LFC,0,<^_
2) LINK is continuing your log file as a result of the /L
OG
2) switch.>
2) HASH LFI,0,<^_
2) LINK is beginning your log file as a result of the /L
OG
2) switch.>
2) HASH LII,0,<^_
2) A REL block type 14 (index) for a MAKLIB or FUDG
E2
2) generated library file is inconsistent. The library
is
2) searched, but the index is ignored.>
2) HASH LIN,0,<^_
2) LINK is beginning its processing by initializing i
ts
2) internal tables and variables.>
2) HASH LMN,0,<^_
**************
1)10 HASH LNC,0,<^_
1) LINK cannot find the named link in memory. This messa
ge
1) is not expected to occur. If it does, please notify yo
ur
1) Software Specialist or send a Software Performance Repo
rt
1) (SPR) to DIGITAL.>
1) HASH LNL,0,<^_
****
2)11 HASH LNL,0,<^_
**************
1)10 HASH LNN,0,<^_
****
2)11 HASH LNM,0,<^_
2) LINK cannot find the named link in memory. This is
an
2) internal error. This message is not expected to occu
r.
2) If it does, please notify your Software Specialist or se
nd
2) a Software Performance Report (SPR) to DIGITAL.>
2) HASH LNN,0,<^_
**************
1)10 HASH LSM,0,<^_
****
2)11 IFE FTSINGLE,<
2) HASH LNS,0,<^_
2) The length of LINK's low segment differs from the leng
Digital Equipment Corporation 28-AUG-79 Page 597
PCO Log Report
th
2) stored in the current LINK high segment. This occurs
if
2) some but not all of LINK's EXE files have been updat
ed
2) after rebuilding LINK from sources. Update all of LINK
's
2) EXE files.>
2) > ;END OF IFE FTSINGLE
2) HASH LSM,0,<^_
**************
1)10 ;(There is no long text for the LSS message.)
1) HASH MDS,0,<^_
1) The named module contains a new definition of an alrea
dy
1) defined global symbol. The new definition is used. Ma
ke
1) the definitions consistent and reload.>
1) HASH MOV,0,<^_
1) LINK is rearranging the low segment to make more room f
or
1) the specified area. area is one of the followin
g:
1) AS=ALGOL symbol table, BG=bound global symbols, DY=dynam
ic
1) free core, FX=fixup area, GS=global symbol table, HC=yo
ur
1) high-segment code, LC=your low-segment code, LS=loc
al
1) symbol tables, RT=relocation tables.>
1) HASH MPS,0,<^_
****
2)11 HASH LSS,0,<^_
2) The listed symbols and their values (if any) are tho
se
2) that are library search entry points.>
2) HASH MDS,0,<^_
2) The named module contains a new definition of an alrea
dy
2) defined global symbol. The old definition is used. Ma
ke
2) the definitions consistent and reload.>
2) HASH MEF,0,<^_
2) LINK cannot expand memory further. All permitt
ed
2) overflows to disk have been tried, but your program
is
2) still too large for available memory. A probable cause
is
2) a large global symbol table, which cannot be overflowed
to
Digital Equipment Corporation 28-AUG-79 Page 598
PCO Log Report
2) disk.>
2) HASH MOV,0,<^_
2) LINK is rearranging its low segment to make more room f
or
2) the specified area. Area is one of the followin
g:
2) AS=ALGOL symbol table, BG=bound global symbols, DY=dynam
ic
2) free memory, FX=fixup area, GS=global symbol tabl
e,
2) HC=your high-segment code, LC=your low-segment cod
e,
2) LS=local symbol tables, RT=relocation tables.>
2) HASH MPS,0,<^_
**************
1)10 Overlay structures consisting of more than one region a
re
1) not supported.>
1) HASH MSN,0,<^_
****
2)11 The REGION keyword for the /OVERLAY: switch is n
ot
2) implemented. The argument is ignored.>
2) HASH MSN,0,<^_
**************
1)10 must precede any module names or filenames.>
1) HASH MSS,0,<^_
****
2)11 must precede any file specifications.>
2) HASH MSS,0,<^_
**************
1)10 setting the /MAXCOR switch to this expanded size at t
he
1) beginning of the load.>
1) HASH MTB,0,<^_
1) You are attempting to set MAXCOR so large that the l
ow
1) segment cannot fit before the high segment. LINK will u
se
1) only the core indicated.>
1) HASH MTS,0,<^_
1) LINK needs more space than you gave with the /MAXC
OR
1) switch. Give a new /MAXCOR switch with at least t
he
1) required size.>
****
2)11 setting the /MAXCOR: switch to this expanded size at t
he
Digital Equipment Corporation 28-AUG-79 Page 599
PCO Log Report
2) beginning of the load.>
2) HASH MTB,0,<^_
2) You are attempting to specify the /MAXCOR: switch so lar
ge
2) that the low segment cannot fit before the high segmen
t.
2) LINK will use only the core indicated.>
2) HASH MTS,0,<^_
2) LINK needs more space than you gave with the /MAXCO
R:
2) switch. Give a new /MAXCOR: switch with at least t
he
2) required size.>
**************
1)10 ;**;[1146] Delete LNKNCL and LNKNCX long messages DZN
8-Mar-79
1) HASH NEB,0,<^_
1) No REL Block Type 5 (END) was found in the named modul
e.
1) This will happen if LINK finds two Type 6 Blocks (NAM
E)
1) without an intervening END, or if an end-of-file is fou
nd
1) before the END. Fatal messages usually follow th
is
1) message.>
1) HASH NED,0,<^_
****
2)11 HASH NEB,0,<^_
2) No REL block type 5 (end) was found in the named modul
e.
2) This will happen if LINK finds two type 6 blocks (nam
e)
2) without an intervening end, or if an end-of-file is fou
nd
2) before the end block is seen. LINK simulates the missi
ng
2) end block. However, fatal messages usually follow thi
s,
2) since this condition usually indicates a bad REL file.>
2) HASH NED,0,<^_
**************
1)10 ;**;[1144] Replace before LNKOAS long message DZN 16-Feb-7
9
1) HASH NSA,0,<^_
****
2)11 HASH NPS,0,<^_
2) You have specified the name of a psect after which LI
NK
2) should append the symbol table, but no psect with th
at
Digital Equipment Corporation 28-AUG-79 Page 600
PCO Log Report
2) name was loaded. Load the named psect or specify
an
2) existing psect for the symbols.>
2) HASH NSA,0,<^_
**************
1)10 HASH OAS,0,<^_
1) An error occurred while writing out the ALGOL symb
ol
1) table.>
1) HASH ODV,0,<^_
1) Specify a disk device for the overlay file.>
1) IFE TOPS20,<
****
2)11 IFE TOPS20,<
2) HASH OAS,0,<^_
2) An error occurred while writing out the ALGOL symb
ol
2) table. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH OAS,0,<^_
2) An error occurred while writing out the ALGOL symb
ol
2) table.>
2) > ;END IFN TOPS20
2) IFE TOPS20,<
**************
1)10 HASH OEX,0,<^_
****
2)11 IFE TOPS20,<
2) HASH OEX,0,<^_
**************
1)10 IFE TOPS20,<
****
2)11 > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH OEX,0,<^_
2) An error has occurred on the output file. The output fi
le
2) is closed at the end of the last data successfully outpu
t.>
2) > ;END IFN TOPS20
2) HASH OFD,0,<^_
2) An OPEN or INIT monitor call for the specified devi
ce
Digital Equipment Corporation 28-AUG-79 Page 601
PCO Log Report
2) failed. The device may be under another user's control.
>
2) IFE TOPS20,<
**************
1)10 HASH OHC,0,<^_
1) An error occurred while writing out your high-segme
nt
1) code.>
1) HASH OHN,0,<^_
****
2)11 HASH OFS,0,<^_
2) Specify a disk device for the overlay file.>
2) IFE TOPS20,<
2) HASH OHC,0,<^_
2) An error occurred while writing out your high-segme
nt
2) code. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH OHC,0,<^_
2) An error occurred while writing out your high-segme
nt
2) code.>
2) > ;END IFN TOPS20
2) HASH OHN,0,<^_
**************
1)10 HASH OLC,0,<^_
****
2)11 IFE TOPS20,<
2) HASH OLC,0,<^_
2) An error occurred while writing out your low-segme
nt
2) code. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH OLC,0,<^_
**************
1)10 HASH OLS,0,<^_
****
2)11 > ;END IFN TOPS20
2) IFE TOPS20,<
Digital Equipment Corporation 28-AUG-79 Page 602
PCO Log Report
2) HASH OLS,0,<^_
2) An error occurred while writing out your local symb
ol
2) table. The status is represented by the right half of t
he
2) file status word. Refer to the DECsystem-10 Monitor Cal
ls
2) for the explanation of the file status bits.>
2) > ;END IFE TOPS20
2) IFN TOPS20,<
2) HASH OLS,0,<^_
**************
1)10 HASH OMB,0,<^_
1) The /OVERLAY switch must appear before you can use any
of
1) the following switches: /ARSIZE, /LINK, /NODE, /PLO
T,
1) /SPACE. (It is sufficient that the /OVERLAY switch appe
ar
1) on the same line as the first of these switches you use.
)>
1) ;(There is no long text for the ONS message.)
1) IFE TOPS20,<
****
2)11 > ;END IFN TOPS20
2) HASH OMB,0,<^_
2) The /OVERLAY switch must appear before you can use any
of
2) the following switches: /ARSIZE:, /LINK, /NODE, /PLO
T,
2) /SPACE. (It is sufficient that the /OVERLAY switch appe
ar
2) on the same line as the first of these switches you use.
)>
2) HASH ONS,0,<^_
2) LINK handles overlays with its LNKOV1 and LNKOV2 module
s.
2) Your installation has substituted dummy versions of thes
e.
2) You should request that your installation rebuild LI
NK
2) with the real LNKOV1 and LNKOV2 modules.>
2) IFE TOPS20,<
**************
1)10 HASH PAS,0,<^_
1) The job is too large to fit into the allowed memory a
nd
1) the ALGOL symbol table is being moved to disk.>
****
2)11 HASH OSL,0,<^_
2) You have specified /SYMSEG:HIGH or /SYMSEG:PSECT: wh
Digital Equipment Corporation 28-AUG-79 Page 603
PCO Log Report
en
2) loading an overlay structure. Specify /SYMSEG:LOW
or
2) /SYMSEG:DEFAULT.>
2) HASH PAS,0,<^_
2) The load is too large to fit into the allowed memory a
nd
2) the ALGOL symbol table is being moved to disk.>
**************
1)10 ;**;[1146] Insert LNKPCL and LNKPCX long messages before LNKPEF
DZN 8-Mar-79
1) IFE TOPS20,<
****
2)11 IFE TOPS20,<
**************
1)10 1. There are page gaps between PSECTs (except bel
ow
1) the high segment).
1) 2. There are PSECTs above the origin of the hi
gh
1) segment.
****
2)11 1. There are page gaps between psects (except bel
ow
2) the high segment).
2) 2. There are psects above the origin of the hi
gh
2) segment.
**************
1)10 LINK has saved your program as an .EXE file on disk a
nd
1) cleared your user memory. You can use a GET or R
UN
1) command to load the .EXE file.>
1) HASH PCX,0,<^_
****
2)11 4. Your program's low segment has the read-on
ly
2) attribute, or the high segment has the read a
nd
2) write attribute.
2) LINK has saved your program as an EXE file on disk a
nd
2) cleared your user memory. You can use a GET or R
UN
2) command to load the EXE file.>
2) HASH PCX,0,<^_
**************
1)10 1. There are page gaps between PSECTs (except bel
Digital Equipment Corporation 28-AUG-79 Page 604
PCO Log Report
ow
1) the high segment).
1) 2. There are PSECTs above the origin of the hi
gh
1) segment.
****
2)11 1. There are page gaps between psects (except bel
ow
2) the high segment).
2) 2. There are psects above the origin of the hi
gh
2) segment.
**************
1)10 LINK will save your program as an .EXE file on disk a
nd
1) automatically run it, but the .EXE file will not
be
1) deleted.>
****
2)11 4. Your program's low segment has the read-on
ly
2) attribute, or the high segment has the read a
nd
2) write attribute.
2) LINK will save your program as an EXE file on disk a
nd
2) automatically run it, but the EXE file will not
be
2) deleted.>
**************
1)10 1. There are page gaps between PSECTs (except bel
ow
1) the high segment).
1) 2. There are PSECTs above the origin of the hi
gh
1) segment.
****
2)11 1. There are page gaps between psects (except bel
ow
2) the high segment).
2) 2. There are psects above the origin of the hi
gh
2) segment.
**************
1)10 4. One or more PSECTs has the read-only attribute.
1) LINK has saved your program as an .EXE file on disk a
nd
1) cleared your user memory. You can use a GET or R
UN
Digital Equipment Corporation 28-AUG-79 Page 605
PCO Log Report
1) command to load the .EXE file.>
1) HASH PCX,0,<^_
****
2)11 4. One or more psects has the read-only attribute.
2) LINK has saved your program as an EXE file on disk a
nd
2) cleared your user memory. You can use a GET or R
UN
2) command to load the EXE file.>
2) HASH PCX,0,<^_
**************
1)10 1. There are page gaps between PSECTs (except bel
ow
1) the high segment).
1) 2. There are PSECTs above the origin of the hi
gh
1) segment.
****
2)11 1. There are page gaps between psects (except bel
ow
2) the high segment).
2) 2. There are psects above the origin of the hi
gh
2) segment.
**************
1)10 4. One or more PSECTs has the read-only attribute.
1) LINK will save your program as an .EXE file on disk a
nd
1) automatically run it, but the .EXE file will not
be
1) deleted.>
****
2)11 4. One or more psects has the read-only attribute.
2) LINK will save your program as an EXE file on disk a
nd
2) automatically run it, but the EXE file will not
be
2) deleted.>
**************
1)10 LINK found an end-of-file inside a REL Block (that is, t
he
1) word count for the block extended beyond t
he
1) end-of-file).>
1) HASH PHC,0,<^_
1) The job is too large to fit into the allowed memory a
nd
1) your high-segment code is being moved to disk.>
1) HASH PLC,0,<^_
1) The job is too large to fit into the allowed memory a
nd
Digital Equipment Corporation 28-AUG-79 Page 606
PCO Log Report
1) your low-segment code is being moved to disk.>
1) HASH PLS,0,<^_
1) The job is too large to fit into the allowed memory a
nd
1) your local symbol tables are being moved to disk.>
1) ;(There is no long text for the POO message.)
1) ;**;[1113] Insert in long messages before LNKPSF message
DZN 25-Aug-78
1) HASH POT,0,<^_
1) LINK is creating your overlay tree file.>
1) HASH PSF,0,<^_
1) The feature you requested is not available.>
1) HASH PUF,0,<^_
****
2)11 LINK found an end-of-file inside a REL block (that is, t
he
2) word count for the block extended beyond t
he
2) end-of-file). This error can be caused by a fault in t
he
2) language translator used for the program.>
2) HASH PHC,0,<^_
2) The load is too large to fit into the allowed memory a
nd
2) your high-segment code is being moved to disk.>
2) HASH PLC,0,<^_
2) The load is too large to fit into the allowed memory a
nd
2) your low-segment code is being moved to disk.>
2) HASH PLS,0,<^_
2) The load is too large to fit into the allowed memory a
nd
2) your local symbol tables are being moved to disk.>
2) HASH POT,0,<^_
2) LINK is creating your overlay tree file.>
2) HASH POV,0,<^_
2) The named psects overlap each other in the indicated ran
ge
2) of addresses. If you do not expect this messag
e,
2) restructure your psect origins with the /SET:PSEC
T:
2) switch.>
2) IFE TOPS20,<
2) HASH PUF,0,<^_
**************
1)10 the /CORE and /MAXCOR switches. This is an internal LI
NK
1) error. This message is not expected to occur. If
Digital Equipment Corporation 28-AUG-79 Page 607
PCO Log Report
it
1) does, please notify your Software Specialist or send
a
1) Software Performance Report (SPR) to DIGITAL.>
1) HASH RBS,0,<^_
1) The REL Block is inconsistent. This may be caused
by
1) incorrect output from a translator (for example, missi
ng
1) argument for an END block). Recompile the module a
nd
1) reload.>
1) HASH RCU,0,<^_
1) The global symbol you gave with the /SET switch is n
ot
1) defined. Load a module that defines the symbol.>
1) HASH RED,0,<^_
****
2)11 the /CORE: and /MAXCOR: switches. This is an intern
al
2) LINK error. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) > ;END IFE TOPS20
2) HASH RBS,0,<^_
2) The REL block is inconsistent. This may be caused
by
2) incorrect output from a translator (for example, missi
ng
2) argument for an end block). Recompile the module a
nd
2) reload.>
2) HASH RED,0,<^_
**************
1)10 ;(There is no long text for the RER message.)
1) HASH RGS,0,<^_
1) LINK is expanding the global symbol table either to
a
1) prime number larger than your /HASHSIZE switch requeste
d,
1) or by about 50 percent. You can speed up future loads
of
1) this program by setting /HASHSIZE this large at t
he
1) beginning of the load.>
1) ;(There is no long text for the RLC message.)
1) HASH RUC,0,<^_
Digital Equipment Corporation 28-AUG-79 Page 608
PCO Log Report
1) LINK attempted to return memory to the memory manager, b
ut
1) the specified memory was never allocated to this jo
b.
1) This message is not expected to occur. If it does, plea
se
1) notify your Software Specialist or send a Softwa
re
1) Performance Report (SPR) to DIGITAL.>
1) HASH SFU,0,<^_
****
2)11 HASH RER,0,<^_
2) The listed symbols and their values (if any) represe
nt
2) subroutine entry points in the current link.>
2) HASH RGS,0,<^_
2) LINK is expanding the global symbol table either to
a
2) prime number larger than your /HASHSIZE: switch requeste
d,
2) or by about 50 percent. You can speed up future loads
of
2) this program by setting /HASHSIZE: this large at t
he
2) beginning of the load.>
2) HASH RLC,0,<^_
2) The listed symbols and values represent the curre
nt
2) placement of psects in your address space.>
2) HASH RME,0,<^_
2) The REMAP UUO to place your program's high segment h
as
2) failed. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) HASH RUM,0,<^_
2) LINK attempted to return memory to the memory manager, b
ut
2) the specified memory was not previously allocated. Th
is
2) is an internal error. This message is not expected
to
2) occur. If it does, please notify your Software Speciali
st
2) or send a Software Performance Report (SPR) to DIGITAL.>
2) HASH SFU,0,<^_
**************
1)10 control section lengths. This message is not expected
to
Digital Equipment Corporation 28-AUG-79 Page 609
PCO Log Report
1) occur. If it does, please notify your Software Speciali
st
1) or send a Software Performance Report (SPR) to DIGITAL.>
1) HASH SIF,0,<^_
****
2)11 control section lengths. This is an internal error. Th
is
2) message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) HASH SIF,0,<^_
**************
1)10 load your files in a different order. This message is n
ot
1) expected to occur. If it does, please notify yo
ur
1) Software Specialist or send a Software Performance Repo
rt
1) (SPR) to DIGITAL.>
1) HASH SLS,0,<^_
1) You have specified /SYMSEG:HIGH or /SYMSEG:PSECT wh
en
1) loading an overlay structure. Specify /SYMSEG:LOW
or
1) /SYMSEG:DEFAULT.>
1) HASH SMP,0,<^_
****
2)11 load your files in a different order. This is an intern
al
2) error. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) HASH SMP,0,<^_
**************
1)10 You defined a COMMON symbol with the same name as
a
1) non-COMMON symbol. You must decide which definition y
ou
1) want. If you want the COMMON definition, load the COMM
ON
1) area first.>
****
2)11 You defined a FORTRAN common area with the same name as
a
2) non-common symbol. You must decide which definition y
Digital Equipment Corporation 28-AUG-79 Page 610
PCO Log Report
ou
2) want. If you want the common definition, load the comm
on
2) area first.>
**************
1)10 An error occurred in outputting the .EXE file. The fi
le
1) was closed after the last successful output. The stat
us
1) is represented by the right half of the file status wor
d.
****
2)11 An error occurred in outputting the EXE file. The stat
us
2) is represented by the right half of the file status wor
d.
**************
1)10 An error occurred in outputting the .EXE file. The fi
le
1) was closed after the last successful output.>
1) > ;END IFN TOPS20
1) HASH SRB,0,<^_
1) You cannot /SET the named relocation counter below i
ts
1) initial value. The attempt is ignored.>
1) HASH SSN,0,<^_
****
2)11 An error occurred in outputting the .EXE file.>
2) > ;END IFN TOPS20
2) HASH SRB,0,<^_
2) You cannot use the /SET: switch to set the nam
ed
2) relocation counter below its initial value. The attem
pt
2) is ignored.>
2) HASH SRP,0,<^_
2) Relocatable psects are not implemented; you must speci
fy
2) an explicit absolute origin with the /SET:PSECT: swit
ch
2) for the named psect.>
2) HASH SSN,0,<^_
**************
1)10 indicated on the /SYMSEG, /SYMBOL, or /DEBUG switch.>
1) HASH STC,0,<^_
1) The symbol table has been sorted and moved according
to
1) the /SYMSEG, /SYMBOL, or /DEBUG switch.>
1) ;**;[1133] Insert @ the T13 message JNG 30-Jan-79
1) HASH STL,0,<^_
****
Digital Equipment Corporation 28-AUG-79 Page 611
PCO Log Report
2)11 indicated on the /SYMSEG, /SYFILE, or /DEBUG switch.>
2) HASH STC,0,<^_
2) The symbol table has been sorted and moved according
to
2) the /SYMSEG, /SYFILE, or /DEBUG switch.>
2) HASH STL,0,<^_
**************
1)10 REL Block Type 13 (LVAR) is obsolete. Use the MAC
RO
1) pseudo-op TWOSEG.>
****
2)11 REL block type 13 (LVAR) is obsolete. Use the MAC
RO
2) pseudo-op TWOSEG.>
**************
1)10 HASH TEC,0,<^_
1) You cannot expand an already defined COMMON area. Lo
ad
1) the largest definition of a given named COMMON first,
or
1) use the /COMMON switch to reserve space for it. You c
an
1) define a new COMMON area with a new name any time.>
1) HASH TMA,0,<^_
****
2)11 HASH TMA,0,<^_
**************
1)10 is in error. This message is not expected to occur.
If
1) it does, please notify your Software Specialist or send
a
1) Software Performance Report (SPR) to DIGITAL.>
1) HASH UAR,0,<^_
1) The named symbol was referenced in an .ASSIGN pseudo-o
p,
1) but the symbol is undefined. The .ASSIGN pseudo-op
is
1) ignored. You should load a module that defines t
he
1) symbol.>
1) ;(There is no long text for the UGS message.)
1) HASH UNS,0,<^_
****
2)11 is in error. This is an internal error. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
Digital Equipment Corporation 28-AUG-79 Page 612
PCO Log Report
2) (SPR) to DIGITAL.>
2) HASH UAR,0,<^_
2) The named symbol was referenced in a REL block type 1
00
2) (ASSIGN), but the symbol is undefined. This is generat
ed
2) with the MACRO pseudo-op .ASSIGN. The assignment
is
2) ignored. You should load a module that defines t
he
2) symbol.>
2) HASH UGS,0,<^_
2) The listed symbols and their values (if any) represe
nt
2) symbols not yet defined by any module. Each value is t
he
2) first address in a chain of references for the associat
ed
2) symbol.
2) If this message resulted automatically at the end
of
2) loading, this is a user error. In this case, the lo
ad
2) will continue, leaving references to these symbo
ls
2) unresolved.>
2) HASH UNS,0,<^_
**************
1)10 In a REL Block Type 2 (SYMBOLS), the first 4 bits of ea
ch
1) word pair contain the Radix-50 symbol code. LINK fou
nd
1) one or more invalid codes in the block.>
1) HASH USA,0,<^_
****
2)11 In a REL block type 2 (symbols), the first 4 bits of ea
ch
2) word pair contain the Radix-50 symbol code. LINK fou
nd
2) one or more invalid codes in the block. This error can
be
2) caused by a fault in the language translator used for t
he
2) program.>
2) HASH USA,0,<^_
**************
1)10 ;(There is no long text for the VAL message.)
1) ;**;[1144] Replace before LNKZSV long message DZN 16-Feb-7
9
Digital Equipment Corporation 28-AUG-79 Page 613
PCO Log Report
1) HASH XCT,0,<^_
****
2)11 HASH USI,0,<^_
2) You have specified an undefined symbol to a switch th
at
2) can only take a defined symbol or a number. Specify t
he
2) correct switch value.>
2) HASH VAL,0,<^_
2) LINK has printed the specified symbol, its value and i
ts
2) attributes as requested.>
2) HASH XCT,0,<^_
**************
1)11 1. The filename given was illegal.
1) 2. When updating a file, the filename given did not mat
ch
1) the file to be updated.
1) 3. The RENAME monitor call following a LOOKUP monitor c
all
1) failed.>
1) INDEX <FLE,GSE>,0,0,<^_
1) The file requested by the user was not found. The us
er
1) should respecify the correct filename.>
1) INDEX <FEE,FLE,FRE,GSE>,1,0,<^_
1) The directory does not exist on the named file structur
e,
1) or the project-programmer number given was incorrect.>
1) INDEX <FEE,FLE,FRE,GSE>,2,0,<^_
1) The user does not have the correct privileges to acce
ss
1) the named file.>
1) INDEX FEE,-1,0,<^_
1) The directory on the DECtape has no room for the file.>
1) INDEX <FEE,FLE,FRE,GSE>,3,0,<^_
1) Another user is currently modifying the named file. T
he
1) user should try accessing the file later.>
1) INDEX <FEE,FLE,FRE,GSE>,4,0,<^_
1) The specified filename already exists, or a differe
nt
1) filename was given on the ENTER monitor call following
a
1) LOOKUP monitor call.>
1) INDEX <FEE,FLE,FRE,GSE>,5,%SPR,<^_
1) The user specified an illegal sequence of monitor cal
ls
1) (e.g., a RENAME without a preceding LOOKUP or ENTER, or
a
1) LOOKUP after an ENTER).>
Digital Equipment Corporation 28-AUG-79 Page 614
PCO Log Report
1) INDEX <FEE,FLE,FRE,GSE>,6,0,<^_
1) One of the following conditions occurred:
1) 1. Transmission, device, or data error occurred whi
le
1) attempting to read the UFD or RIB.
1) 2. A hardware-detected device or data error was detect
ed
1) while reading the UFD RIB or UFD data block.
1) 3. A software-detected data inconsistency error w
as
1) detected while reading the UFD RIB or file RIB.>
1) INDEX <FEE,FLE,FRE,GSE>,7,%NPOS,<^_
1) The named file is not a saved file.>
1) INDEX <FEE,FLE,FRE,GSE>,10,%NPOS,<^_
1) The system cannot supply enough memory to use as buffe
rs
1) or to read in a program.>
1) INDEX <FEE,FLE,FRE,GSE>,11,%NPOS,<^_
1) The device indicated by the user is currently n
ot
1) available.>
1) INDEX <FEE,FLE,FRE,GSE>,12,%NPOS,<^_
1) The device specified by the user does not exist.>
1) INDEX <FEE,FLE,FRE,GSE>,13,%NPOS,<^_
1) The machine does not have a two-register relocati
on
1) capability.>
1) INDEX <FEE,FLE,FRE,GSE>,14,0,<^_
1) There is no room on the file structure for the named fil
e,
1) or the user's quota on the file structure would
be
1) exceeded if the file were placed on the structure.>
1) INDEX <FEE,FLE,FRE,GSE>,15,0,<^_
1) The user cannot write on the specified device because
it
1) is write-locked.>
1) INDEX <FEE,FLE,FRE,GSE>,16,0,<^_
1) There is not enough table space in the monitor's 4-WO
rd
1) blocks for the specified file. The user should try runni
ng
1) the job at a later time.>
1) INDEX <FEE,FLE,FRE,GSE>,17,0,<^_
1) Because of the user's quota or the available space on t
he
1) device, the total number of blocks requested could not
be
1) allocated and a partial allocation was given.>
Digital Equipment Corporation 28-AUG-79 Page 615
PCO Log Report
1) INDEX <FEE,FLE,FRE,GSE>,20,%NPOS,<^_
1) The block required by LINK is not available for allocati
on.>
1) INDEX <FEE,FLE,FRE,GSE>,21,0,<^_
1) The user attempted to supersede an existing director
y.>
1) INDEX <FEE,FLE,FRE,GSE>,22,%NPOS,<^_
1) The user attempted to delete a directory that was n
ot
1) empty.>
1) INDEX <FEE,FLE,FRE,GSE>,23,0,<^_
1) The required sub-file directory in the specified path w
as
1) not found.>
1) INDEX <FEE,FLE,FRE,GSE>,24,0,<^_
1) A LOOKUP and ENTER monitor call was performed on gener
ic
1) device DSK and the search list is empty.>
1) INDEX <FEE,FLE,FRE,GSE>,25,0,<^_
1) An attempt was made to create a subfile directory nest
ed
1) deeper than the maximum level allowed.>
1) INDEX <FEE,FLE,FRE,GSE>,26,0,<^_
1) No file structure in the job's search list has both t
he
1) no-create bit and the write-lock bit equal to zero and h
as
1) the UFD or SFD specified by the default or explicit path
.>
1) INDEX <FEE,FLE,FRE,GSE>,27,%NPOS,<^_
1) A GETSEG monitor call was issued from a locked low segme
nt
1) to a high segment which is not a dormant, active, or id
le
1) segment.>
1) INDEX <FEE,FLE,FRE,GSE>,30,0,<^_
1) A LOOKUP and ENTER monitor call was given to update
a
1) file, but the file cannot be updated for some reas
on
1) (e.g., another user is superseding it or the file w
as
1) deleted between the time of the LOOKUP and the ENTER).>
****
2)12 1. The specified file name was illegal.
2) 2. When updating a file, the specified file name did n
ot
2) match the file being updated.
2) 3. The RENAME monitor call following a LOOKUP monit
Digital Equipment Corporation 28-AUG-79 Page 616
PCO Log Report
or
2) call failed.>
2) INDEX <FLE,GSE>,0,0,<^_
2) The named file was not found. Specify an existing file.
>
2) INDEX <FEE,FLE,FRE,GSE>,1,0,<^_
2) The named directory does not exist on the named fi
le
2) structure, or the project-programmer number given w
as
2) incorrect.>
2) INDEX <FEE,FLE,FRE,GSE>,2,0,<^_
2) You do not have sufficient access privileges to use t
he
2) named file.>
2) INDEX FEE,-1,0,<^_
2) The directory on the DECtape has no room for the fil
e.
2) Delete some files from the DECtape or specify anoth
er
2) device.>
2) INDEX <FEE,FLE,FRE,GSE>,3,0,<^_
2) Another job is currently modifying the named file. T
ry
2) accessing the file later.>
2) INDEX <FEE,FLE,FRE,GSE>,4,0,<^_
2) The named file already exists, or a different file w
as
2) specified on the ENTER monitor call following a LOOK
UP
2) monitor call.>
2) INDEX <FEE,FLE,FRE,GSE>,5,%SPR,<^_
2) LINK has specified an illegal sequence of monitor cal
ls
2) (e.g., a RENAME without a preceding LOOKUP or ENT
ER
2) monitor call, or a LOOKUP after an ENTER). This is
an
2) internal error. This message is not expected to occu
r.
2) If it does, please notify your Software Specialist or se
nd
2) a Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,6,0,<^_
2) One of the following conditions occurred:
2) 1. A transmission, device or data error occurred whi
le
2) attempting to read the directory or the RIB of t
he
2) named file.
2) 2. A hardware-detected device or data error was detect
Digital Equipment Corporation 28-AUG-79 Page 617
PCO Log Report
ed
2) while reading the named directory's RIB or data bloc
k.
2) 3. A software-detected data inconsistency error w
as
2) detected while reading the named directory's or file
's
2) RIB.>
2) INDEX <FEE,FLE,FRE,GSE>,7,%NPOS,<^_
2) The named file is not a saved file. This message c
an
2) never occur and is included only for completeness of t
he
2) LOOKUP, ENTER and RENAME error codes. This message is n
ot
2) expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,10,%NPOS,<^_
2) The system cannot supply enough memory to use as buffe
rs
2) or to read in a program. This message can never occur a
nd
2) is included only for completeness of the LOOKUP, ENTER a
nd
2) RENAME error codes. This message is not expected
to
2) occur. If it does, please notify your Software Speciali
st
2) or send a Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,11,%NPOS,<^_
2) The named device is currently not available. This messa
ge
2) can never occur and is included only for completeness
of
2) the LOOKUP, ENTER and RENAME error codes. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,12,%NPOS,<^_
2) The named device dies not exist. This message can nev
er
2) occur and is included only for completeness of the LOOKU
P,
Digital Equipment Corporation 28-AUG-79 Page 618
PCO Log Report
2) ENTER and RENAME error codes. This message is n
ot
2) expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,13,%NPOS,<^_
2) The machine does not have a two-register relocati
on
2) capability. This message can never occur and is includ
ed
2) only for completeness of the LOOKUP, ENTER and RENA
ME
2) error codes. This message is not expected to occur.
If
2) it does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,14,0,<^_
2) You have exceeded the quota of the named directory, or t
he
2) entire capacity of the file structure. Delete some file
s,
2) or specify a directory or structure with sufficient spac
e.>
2) INDEX <FEE,FLE,FRE,GSE>,15,0,<^_
2) The named device is write-locked. Specify a write-enabl
ed
2) device or ask the operator to write-enable the nam
ed
2) device.>
2) INDEX <FEE,FLE,FRE,GSE>,16,0,<^_
2) There is not enough internal monitor table space for t
he
2) named file. Try the load at a later time.>
2) INDEX <FEE,FLE,FRE,GSE>,17,0,<^_
2) Because of the named directory's quota or the availab
le
2) space on the file structure, the total number of bloc
ks
2) requested could not be allocated. A partial allocati
on
2) was given.>
2) INDEX <FEE,FLE,FRE,GSE>,20,%NPOS,<^_
2) The block required by LINK is not available f
or
2) allocation. This message can never occur and is includ
ed
2) only for completeness of the LOOKUP, ENTER and RENA
ME
Digital Equipment Corporation 28-AUG-79 Page 619
PCO Log Report
2) error codes. This message is not expected to occur.
If
2) it does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,21,0,<^_
2) You have attempted to supercede the named directory.>
2) INDEX <FEE,FLE,FRE,GSE>,22,%NPOS,<^_
2) You have attempted to delete a directory that is n
ot
2) empty. This message can never occur and is included on
ly
2) for completeness of the LOOKUP, ENTER and RENAME err
or
2) codes. This message is not expected to occur. If
it
2) does, please notify your Software Specialist or send
a
2) Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,23,0,<^_
2) One of the sub-file directories in the named path was n
ot
2) found.>
2) INDEX <FEE,FLE,FRE,GSE>,24,0,<^_
2) A LOOKUP or ENTER monitor call was performed on gener
ic
2) device DSK: and the search list is empty.>
2) INDEX <FEE,FLE,FRE,GSE>,25,0,<^_
2) You have attempted to create a sub-file directory nest
ed
2) deeper than the maximum level allowed.>
2) INDEX <FEE,FLE,FRE,GSE>,26,0,<^_
2) No file structure in your job's search list has both t
he
2) no-create bit and the write-lock bit equal to zero, a
nd
2) has the named directory.>
2) INDEX <FEE,FLE,FRE,GSE>,27,%NPOS,<^_
2) A GETSEG monitor call was issued from a locked low segme
nt
2) to a high segment which is not a dormant, active or id
le
2) segment. This message can never occur and is includ
ed
2) only for completeness of the LOOKUP, ENTER and RENA
ME
2) error codes. This message is not expected to occur.
If
2) it does, please notify your Software Specialist or send
Digital Equipment Corporation 28-AUG-79 Page 620
PCO Log Report
a
2) Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,30,0,<^_
2) A LOOKUP and ENTER monitor call was given to update
a
2) file, but the file cannot be updated for some reas
on
2) (e.g., another user is superceding it or the file w
as
2) deleted between the time of the LOOKUP and the ENTER).>
**************
1)11 This message indicates that a LOOKUP, ENTER, or RENA
ME
1) error occurred which was larger in number than the erro
rs
1) LINK knows about.>
1) IF2,< PURGE N,M>
****
2)12 An attempt has been made to run a program from
a
2) not-logged-in job. This message can never occur and
is
2) included only for completeness of the LOOKUP, ENTER a
nd
2) RENAME error codes. This message is not expected
to
2) occur. If it does, please notify your Software Speciali
st
2) or send a Software Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,33,%NPOS,<^_
2) The ENQ/DEQ facility has been used for simultaneo
us
2) updating of the named file, but some ENQ/DEQ requests a
re
2) still outstanding and the file cannot be closed. Th
is
2) message can never occur and is included only f
or
2) completeness of the LOOKUP, ENTER and RENAME error code
s.
2) This message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,34,%NPOS,<^_
2) The named file has a bad EXE format directory. Th
is
2) message can never occur and is included only f
or
2) completeness of the LOOKUP, ENTER and RENAME error code
Digital Equipment Corporation 28-AUG-79 Page 621
PCO Log Report
s.
2) This message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,35,%SPR,<^_
2) An attempt has been made to run an EXE-format file with
a
2) non-.EXE extension. EXE format files (those with
an
2) internal directory) must have the extension .EXE. Th
is
2) message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,36,0,<^_
2) An attempt has been made to run an EXE-format file with
a
2) directory that is too large for the monitor to handl
e.
2) This message can never occur and is included only f
or
2) completeness of the LOOKUP, ENTER and RENAME error code
s.
2) This message is not expected to occur. If it does, plea
se
2) notify your Software Specialist or send a Softwa
re
2) Performance Report (SPR) to DIGITAL.>
2) INDEX <FEE,FLE,FRE,GSE>,37,0,<^_
2) The monitor's ability to accept another network connecti
on
2) has been exceeded.>
2) INDEX <FEE,FLE,FRE,GSE>,40,0,<^_
2) The named task is not available. Specify an existing ta
sk
2) name.>
2) INDEX <FEE,FLE,FRE,GSE>,41,0,<^_
2) You have specified a network node that does not exis
t.
2) Wait for the node to come up or specify an existi
ng
2) network node.>
2) INDEX <FEE,FLE,FRE,GSE>,42,%SPR,<^_
2) This message indicates that a LOOKUP, ENTER or RENA
ME
Digital Equipment Corporation 28-AUG-79 Page 622
PCO Log Report
2) monitor call error occurred with an error code larger
in
2) number than the errors LINK knows about. This message
is
2) not expected to occur. If it does, please notify yo
ur
2) Software Specialist or send a Software Performance Repo
rt
2) (SPR) to DIGITAL.>
2) IF2,< PURGE N,M>
**************
1)12 the job is too large to fit into the allowed memory a
nd
1) the named area is being moved to disk (LC=user low segme
nt
****
2)13 The load is too large to fit into the allowed memory a
nd
2) the named area is being moved to disk (LC=user low segme
nt
**************
1)12 Performance Report (SPR) to DEC.>
1)13 ERRLIT:
1) END LNKERR
****
2)13 Performance Report (SPR) to DIGITAL.>
2)14 ERRLIT:
2) END LNKERR
**************
Digital Equipment Corporation 28-AUG-79 Page 623
PCO Log Report
[FILCOM]
File 1) LINK:LNKEXO.MAC[30,4507] created: 1436 07-Mar-1978
File 2) LINK:LNKEXO.MAC[10,645063] created: 1643 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) .JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) .JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SEGMENT
1)2 SUBTTL REVISION HISTORY
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) SEGMENT
2) SALL
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
**************
1)3 OUTSTR [ASCIZ/%LNKLNS Low seg data base not same size/
] ;[600]
1) SKIPE T3,-.JBHDA+.JBHSM(T2) ;[600] MONITOR BUG
****
2)3 ;**;[1174] Replace @+4L DZN 7-Jun-79
2) E$$LNS::.OERR. [ASCIZ /%LNKLNS Low segment data base not same s
ize/] ;[1174]
2) SKIPE T3,-.JBHDA+.JBHSM(T2) ;[600] MONITOR BUG
**************
Digital Equipment Corporation 28-AUG-79 Page 624
PCO Log Report
[FILCOM]
File 1) LINK:LNKF40.MAC[30,4507] created: 1436 07-Mar-1978
File 2) LINK:LNKF40.MAC[10,645063] created: 1646 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG 20-Jun-76
1) ;***COPYRIGHT 1973, 1974, 1975, 1976 DIGITAL EQUIPMENT CORP., M
AYNARD, MASS.***
1) ENTRY LNKF40
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
2) ;***COPYRIGHT 1973, 1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS
.***
2) ENTRY LNKF40
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SEGMENT
1) LNKF40: ;ENTRY POINT TO FORCE LOADING
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) SEGMENT
2) SALL
2) LNKF40: ;ENTRY POINT TO FORCE LOADING
**************
1)1 SALL
1) DEFINE LOADRC <MOVE R,SAVERC>
****
2)1 DEFINE LOADRC <MOVE R,SAVERC>
**************
1)3 SUBTTL INITIALIZE TABLES
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL INITIALIZE TABLES
**************
1)4 .ERR. (MS,.EC,V%L,L%F,S%F,I4S,<Illegal F40 sub-block >
)
1) .ETC. (OCT,.EC!.EP,,,,W1) ;
1) TYPMOD: .ETC. (STR,.EC,,,,,< in module >) ;
1) .ETC. (SBX,.EP,,,,PRGNAM) ;
1)5 SUBTTL PROCESS TABLE ENTRIES
****
2)4 ;**;[1174] Replace @HEADER+16L DZN 29-May-79
2) E$$I4S::.ERR. (MS,.EC,V%L,L%F,S%F,I4S,<Illegal F40 sub-block >
) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W1) ;
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)5 SUBTTL PROCESS TABLE ENTRIES
**************
1)12 PUSHJ P,BADFILE ;REPORT ERROR
Digital Equipment Corporation 28-AUG-79 Page 625
PCO Log Report
1) PUSHJ P,R50T6## ;CONVERT TO 6BIT
****
2)12 ;**;[1174] Replace @COMTOP+4L DZN 29-May-79
2) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) PUSHJ P,R50T6## ;CONVERT TO 6BIT
**************
1)13 PUSHJ P,BADFILE ;REPORT ERROR
1) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
1) JRST [PUSHJ P,BADFILE ;REPORT ERROR
1) AOJA W1,.+1] ;MAKE EVEN
****
2)13 ;**;[1174] Replace @GSWDPR+1L DZN 29-May-79
2) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
2) ;**;[1174] Replace @GSWDPR+3L DZN 29-May-79
2) JRST [PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) AOJA W1,.+1] ;MAKE EVEN
**************
1)14 PUSHJ P,BADFILE ;REPORT ERROR
1) PUSHJ P,DY.GET## ;FROM DY AREA
****
2)14 ;**;[1174] Replace @FSWD+2L DZN 29-May-79
2) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) PUSHJ P,DY.GET## ;FROM DY AREA
**************
1)14 PUSHJ P,BADFILE ;REPORT ERROR
1) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
1) JRST [PUSHJ P,BADFILE ;REPORT ERROR
1) AOJA W1,.+1] ;MAKE EVEN
****
2)14 ;**;[1174] Replace @DYSWDP+1L DZN 29-May-79
2) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
2) JRST [PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) AOJA W1,.+1] ;MAKE EVEN
**************
1)16 STOP: .ERR. (MS,.EC,V%L,L%F,S%F,I4T,<Illegal F40 table entry
>)
1) .ETC. (OCT,.EC!.EP,,,,W1) ;
1) .ETC. (JMP,.EC,,,,TYPMOD) ;
1) TABDIS: PPLT ;PROGRAMMER LABELS
1) PATO ;ARRAYS OFFSET
1) STOP
1) STOP
1) STOP
1) PST ;SCALARS
****
2)16 ;**;[1174] Replace @STOP DZN 29-May-79
2) E$$I4T::.ERR. (MS,.EC,V%L,L%F,S%F,I4T,<Illegal F40 table entry
Digital Equipment Corporation 28-AUG-79 Page 626
PCO Log Report
>) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W1) ;
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) TABDIS: PPLT ;PROGRAMMER LABELS
2) PATO ;ARRAYS OFFSET
2) E$$I4T ;[1174]
2) E$$I4T ;[1174]
2) E$$I4T ;[1174]
2) PST ;SCALARS
**************
1)16 STOP
1) PCONS ;CONSTANTS
1) STOP
1) PPT ;PERMANENT TEMPORARIES
1) PTT ;TEMPORARY TEMPORARIES
1) STOP
1) PMLT ;MADE LABELS
****
2)16 E$$I4T ;[1174]
2) PCONS ;CONSTANTS
2) E$$I4T ;[1174]
2) PPT ;PERMANENT TEMPORARIES
2) PTT ;TEMPORARY TEMPORARIES
2) E$$I4T ;[1174]
2) PMLT ;MADE LABELS
**************
1)20 .ERR. (MS,.EC,V%L,L%F,S%F,I4D,<Illegal F40 DATA code >
)
1) .ETC. (OCT,.EC!.EP,,,,T1) ;
1) .ETC. (JMP,.EC,,,,TYPMOD) ;
1)21 INNER: HRRZ T1,@LOCA; GET ADDRESS
****
2)20 ;**;[1174] Replace @LOOP+16L DZN 29-May-79
2) E$$I4D::.ERR. (MS,.EC,V%L,L%F,S%F,I4D,<Illegal F40 data code >
) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,T1) ;
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)21 INNER: HRRZ T1,@LOCA; GET ADDRESS
**************
1)21 JUMPE T1,FORCNF
1) SUB T1,PT1; SUBTRACT INDUCTION NUMBER
****
2)21 ;**;[1174] Replace @INNER+3L DZN 29-May-79
2) JUMPE T1,E$$FCD; [1174]
2) SUB T1,PT1; SUBTRACT INDUCTION NUMBER
**************
1)23 DATAOV: .ERR. (MS,.EC,V%L,L%F,S%F,DSO,<Data statement overflow
>)
1) .ETC. (JMP,.EC,,,,TYPMOD) ;
Digital Equipment Corporation 28-AUG-79 Page 627
PCO Log Report
1) FORCNF: .ERR. (MS,.EC,V%L,L%F,S%F,FCD,<FORTRAN confused about
data statements>)
1) .ETC. (JMP,.EC,,,,TYPMOD) ;
1) BADFIL: .ERR. (MS,.EC,V%M,L%W,S%W,B4R,<Bad F40 produced REL fi
le for >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) POPJ P,
****
2)23 ;**;[1174] Replace @DATAOV DZN 29-May-79
2) E$$DSO::.ERR. (MS,.EC,V%L,L%F,S%F,DSO,<Data statement overflow
>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) E$$FCD::.ERR. (MS,.EC,V%L,L%F,S%F,FCD,<F40 confused about data
statements>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) E$$B4R::.ERR. (MS,.EC,V%L,L%W,S%W,B4R,<Bad F40 produced REL fi
le>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) POPJ P,
**************
1)25 JRST DATAOV ;AND GIVE ERROR ELSE PDLOV WILL
OCCUR
1) POP W1,(W1); SUBTRACT ONE FROM BOTH HALFS
****
2)25 ;**;[1174] Replace @DREAD+8L DZN 29-May-79
2) JRST E$$DSO ;[1174] AND GIVE ERROR ELSE PDLO
V WILL OCCUR
2) POP W1,(W1); SUBTRACT ONE FROM BOTH HALFS
**************
Digital Equipment Corporation 28-AUG-79 Page 628
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1115 10-Oct-1978
File 2) LINK:LNKFIO.MAC[10,645063] created: 1647 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 10-Oct-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKFIO
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKFIO
**************
1)1 DECEVR==1123 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;1174 Label and clean up all error messages.
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
1)3 .ERR. (MS,0,V%L,L%F,S%F,INS,<I/O data block not set up
>)
1) ;HERE TO DO DEVCHR FOR DEVICE
****
2)3 ;**;[1174] Replace @DVCHN.+3L DZN 29-May-79
2) E$$INS::.ERR. (MS,0,V%L,L%F,S%F,INS,<I/O data block not set up
>) ;[1174]
2) ;HERE TO DO DEVCHR FOR DEVICE
**************
1)3 JUMPE T2,NSDERR ;NO SUCH DEVICE
1) MOVEI T2,DV.M0 ;MODE BIT
****
2)3 ;**;[1174] Replace @DVCHK.+4L DZN 29-May-79
2) JUMPE T2,E01NED ;[1174] NO SUCH DEVICE
2) MOVEI T2,DV.M0 ;MODE BIT
**************
1)3 PUSH P,IO.CHN ;SAVE CHAN
1) .ERR. (I,0,V%L,L%F,S%F,IDM,<Illegal data mode for devi
ce >)
****
2)3 ;**;[1174] Replace @DVCHK.+11L DZN 29-May-79
2) E$$IDM::PUSH P,IO.CHN ;[1174] SAVE CHAN
Digital Equipment Corporation 28-AUG-79 Page 629
PCO Log Report
2) .ERR. (I,0,V%L,L%F,S%F,IDM,<Illegal data mode for devi
ce >)
**************
1)4 JRST OPNERR ;FAILED
1) ;HERE TO ALLOCATE SPACE FOR BUFFERS
****
2)4 JRST E01OFD ;[1174] FAILED
2) ;HERE TO ALLOCATE SPACE FOR BUFFERS
**************
1)4 HRLI T2,.IBR ;NO, USE LINK-10 DEFAULT
1) DVNDC:>;END IFE TOPS20
****
2)4 HRLI T2,.IBR ;[1174] NO, USE TOPS-10 LINK DEF
AULT
2) DVNDC:>;END IFE TOPS20
**************
1)6 TLC T2,-1-<(DV.TTA)> ;[604] NUL: ISN'T A TTY
1) TLCE T2,-1-<(DV.TTA)> ;[604]
1) TXNN T2,DV.TTY ;[604] IS IT A TTY
1) CAIA ;[604] NO, PROCEED
1) JRST DVTTY ;YES
1) MOVE T2,I.DVZ(T1) ;GET BACK DEVSIZ INFO
****
2)6 TXC T2,DV.TTA!DV.TTY;[1174] MUST BE CONTROLLING TTY:
(NUL: ISN'T)
2) TXCN T2,DV.TTA!DV.TTY;[1174] ..
2) JRST DVTTY ;[1174] YES
2) MOVE T2,I.DVZ(T1) ;GET BACK DEVSIZ INFO
**************
1)16 JRST OPNERR ;SHOULD NEVER HAPPEN FOR DSK
1) HRRI T2,I.RIB(T1) ;POINT TO LOOKUP/ENTER BLOCK
****
2)16 ;**;[1174] Replace @DVUPD.+7L DZN 29-May-79
2) JRST E01OFD ;[1174] SHOULD NEVER HAPPEN FOR
DSK
2) HRRI T2,I.RIB(T1) ;POINT TO LOOKUP/ENTER BLOCK
**************
1)20 PUSHJ P,NO.COR## ;[604] NO, ERROR
1) HRL T2,T1 ;[604] YES, FORM BLT PTR TO IO.E
MG AREA
****
2)20 PUSHJ P,E$$MEF## ;[1174] NO, ERROR
2) HRL T2,T1 ;[604] YES, FORM BLT PTR TO IO.E
MG AREA
**************
1)23 ;ERROR MESSAGES
1) OPNERR: PUSH P,IO.CHN ;PUT ON STACK
1) .ERR. (I,0,V%L,L%F,S%F,IFD)
1) NSDERR: MOVE T1,IO.CHN ;GET CHAN #
Digital Equipment Corporation 28-AUG-79 Page 630
PCO Log Report
1) PUSH P,T1 ;STACK CHAN #
1) CAIN T1,DC ;SEE IF INPUT CHAN
1) JRST NSDDC ;YES, THIS IS RECOVERABLE
1) .ERR. (I,0,V%L,L%F,S%F,NED)
1) NSDDC: .ERR. (I,0,V%L,L%F,S%E,NED)
1) POPJ P, ;RECOVER IF WE CAN
1) ENTERR: MOVE T1,IO.CHN
****
2)23 SUBTTL ERROR MESSAGES
2) E01OFD::PUSH P,IO.CHN ;[1174] PUT CHANNEL ON STACK
2) .ERR. (I,0,V%L,L%F,S%F,OFD) ;[1174]
2) ;**;[1174] Replace @NSDERR DZN 29-May-79
2) E01NED::PUSH P,T1 ;[1174] PUT CHANNEL ON STACK FOR
LNKLOG
2) .ERR. (I,0,V%L,L%F,S%E,NED)
2) POPJ P, ;[1174] RETURNS IF CHAN WAS DC;
TRY NOW
2) ENTERR: MOVE T1,IO.CHN
**************
1)23 PUSH P,T1
1) MOVE T2,IO.CHR ;GET DEVCHR WORD
1) TXNE T2,DV.DTA ;DTA MIGHT BE SPECIAL
1) JRST [MOVE T1,IO.PTR(T1) ;GET DATA BLOCK POINTER
1) HRRZ T2,I.EXT(T1) ;IF ERROR WAS 2
1) CAIN T2,2 ;AS IT MEANS DIRECTORY F
ULL
1) HLLOS I.EXT(T1) ;SIGNAL BY -1
1) JRST .+1]
1) .ERR. (LRE,,V%L,0,0,FEE)
1) POPJ P,
1) LKPERR::PUSH P,IO.CHN ;REMEMBER WHAT # FAILED
1) .ERR. (LRE,,V%L,0,0,FLE)
1) POPJ P,
1) ODVERR::.ERR. (MS,0,V%M,L%F,S%F,ODV,<Overlay file must be crea
ted on a file structure>)
1) FIOLIT:
1) END
****
2)23 MOVE T2,IO.CHR ;GET DEVCHR WORD
2) TXNE T2,DV.DTA ;DTA MIGHT BE SPECIAL
2) JRST [MOVE T2,IO.PTR(T1) ;[1174] GET DATA BLOCK P
OINTER
2) HRRZ T3,I.EXT(T2) ;[1174] IF ERROR WAS ERP
RT%
2) CAXN T3,ERPRT% ;[1174] AS IT MEANS DIRE
CTORY FULL
2) HLLOS I.EXT(T2) ;[1174] SIGNAL BY -1
2) JRST .+1]
2) E01FEE::PUSH P,T1 ;[1174] SAVE CHANNEL FOR LNKLOG
Digital Equipment Corporation 28-AUG-79 Page 631
PCO Log Report
2) .ERR. (LRE,,V%L,S%D,L%D,FEE) ;[1174]
2) POPJ P,
2) E01FLE::PUSH P,IO.CHN ;[1174] REMEMBER WHAT # FAILED
2) .ERR. (LRE,,V%L,S%D,L%D,FLE) ;[1174]
2) POPJ P,
2) FIOLIT:
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 632
PCO Log Report
[FILCOM]
File 1) LINK:LNKHSH.MAC[30,4507] created: 1437 07-Mar-1978
File 2) LINK:LNKHSH.MAC[10,645063] created: 1648 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY TRYSYM
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY TRYSYM
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) SALL
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) SALL
**************
1)3 SUBTTL SYMBOL TABLE HASH SEARCH
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL SYMBOL TABLE HASH SEARCH
**************
1)4 JUMPE W2,ILLSYM ;0 IS ILLEGAL SYMBOL
1) TRYS1H: PUSHJ P,HASH ;INITIALIZE FOR SEARCH
****
2)4 ;**;[1174] Replace @TRYSYM+2L DZN 3-Jun-79
2) JUMPE W2,E$$ISN ;[1174] 0 IS ILLEGAL SYMBOL
2) TRYS1H: PUSHJ P,HASH ;INITIALIZE FOR SEARCH
**************
1)5 .ERR. (MS,,V%L,L%F,S%F,ESN,<Extended symbol not expect
ed>)>
1) IFN .EXSYM,<
****
2)5 ;**;[1174] Replace @COMPAR+16L DZN 3-Jun-79
2) E$$ESN::.ERR. (MS,,V%L,L%F,S%F,ESN,<Extended symbol not expect
ed>) ;[1174]
2) >
2) IFN .EXSYM,<
**************
1)6 .ERR. (MS,,V%L,L%F,S%F,ESN)>
1) IFN .EXSYM,<
Digital Equipment Corporation 28-AUG-79 Page 633
PCO Log Report
****
2)6 ;**;[1174] Replace @HASH+4L DZN 3-Jun-79
2) E02ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
2) >
2) IFN .EXSYM,<
**************
1)7 .ERR. (MS,.EC,V%L,L%I,S%I,RGS,<Rehashing Global symbol
table from >)
1) .ETC. (DEC,.EC!.EP,,,,T1)
****
2)7 ;**;[1174] Replace @REHASH+21L DZN 3-Jun-79
2) E$$RGS::.ERR. (MS,.EC,V%L,L%I,S%I,RGS,<Rehashing global symbol
table from >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,T1)
**************
1)8 .ERR. (MS,,V%L,L%F,S%F,ESN)>
1) HRRZ W3,T1 ;POINT TO SYMBOL
****
2)8 ;**;[1174] Replace @REHSH1+13L DZN 3-Jun-79
2) E03ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
2) >
2) HRRZ W3,T1 ;POINT TO SYMBOL
**************
1)9 ILLSYM: .ERR. (MS,.EC,V%L,L%F,S%F,ISN,<Illegal symbol name >)
1) .ETC. (SBX,.EP,,,,W2)
1) END
****
2)9 ;**;[1174] Replace @ILLSYM DZN 3-Jun-79
2) E$$ISN::.ERR. (MS,.EC,V%L,L%F,S%F,ISN,<Illegal symbol name >)
;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 634
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1301 07-Jun-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1743 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 ;COPYRIGHT (C) 1973, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 ENTRY LINK10
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
****
2)1 ENTRY LINK
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL INITIALIZE
1) ;HERE AFTER START, RUN, EXECUTE, LOAD OR RUN UUO
1) LINK10: PORTAL .+2 ;EXECUTE ONLY
1) PORTAL .+2 ;CCL
****
2)2 ;1174 Label and clean up all error messages.
2)3 SUBTTL INITIALIZE
2) ;HERE AFTER START, RUN, EXECUTE, LOAD OR RUN UUO
2) LINK: PORTAL .+2 ;EXECUTE ONLY
2) PORTAL .+2 ;CCL
**************
1)3 JRST NOCORE ;YOU LOSE
1) MOVEM P1,OFFSET ;SAFE TO STORE OFFSET NOW
****
2)3 ;**;[1174] Replace @F1+4L DZN 5-Jun-79
2) JRST E$$IMI ;[1174] YOU LOSE
2) MOVEM P1,OFFSET ;SAFE TO STORE OFFSET NOW
**************
1)7 JRST NOCORE ;SHOULD NEVER HAPPEN
1) >
****
2)7 ;**;[1174] Replace @PJLOOP+16L DZN 5-Jun-79
2) JRST E$$IMI ;[1174] SHOULD NEVER HAPPEN
Digital Equipment Corporation 28-AUG-79 Page 635
PCO Log Report
2) >
**************
1)7 MOVX T1,.INFIN ;[1172] NO LOWEST LOCATION YET S
EEN
1) MOVEM T1,LOWLOC ;[732]
****
2)7 MOVX T1,.INFIN ;[1172] INITIALIZE LOWEST LOCATI
ON
2) MOVEM T1,LOWLOC ;[732]
**************
1)10 JRST NOCORE ;YOU LOSE
1) >;END IFE TOPS20
****
2)10 ;**;[1174] Replace @**somewhere** DZN 5-Jun-79
2) JRST E$$IMI ;[1174] YOU LOSE
2) >;END IFE TOPS20
**************
1)12 MOVEI T1,S%F ;AND FATALITY
1) SKIPE BATCH ;HOWEVER IN BATCH MODE
****
2)12 MOVEI T1,S%C ;[1174] SET UP DEFAULT SEVERITY
2) SKIPE BATCH ;HOWEVER IN BATCH MODE
**************
1)12 MOVSI T1,'LOG' ;SEE IF WE ALREADY HAVE A LOG DE
VICE
****
2)12 ;**;[1174] Revamp @LOGINI+11L DZN 5-Jun-79
2) MOVE T1,[LOGIT,,TTYIT] ;[1174] IN CASE /LOG LATER
2) MOVEM T1,LOWSUB ;[1174] SO WE CAN FIND ROUTINES
2) MOVEI T1,V%M ;[1174] GET DEFAULT VALUE
2) MOVEM T1,VERLVL ;[1174] SAVE IT
2) MOVSI T1,'LOG' ;SEE IF WE ALREADY HAVE A LOG DE
VICE
**************
1)12 PUSHJ P,.ERLOG ;OUTPUT HEADER LINE
1) MOVEI T1,[ASCIZ \[LNK\]
1) PUSHJ P,.TSTRG## ;INITIALIZATION CODE
1) MOVEI T1,.ERLIM
1) PUSHJ P,.TSTRG## ;AND SPECIFIC CODE
1) MOVEI T1,.ERLIM+1 ;TEXT STRING
1) PUSHJ P,.TSTRG##
1) PUSHJ P,CLSSQB ;END INFO STRING
1) JRST NOLOG]
1) ;**;[1150] Delete @LOGINI+26L DZN 14-Mar-79
****
2)12 JRST LOGMSG] ;[1174] GO PRINT START OF LOG MS
G
2) ;**;[1150] Delete @LOGINI+26L DZN 14-Mar-79
**************
Digital Equipment Corporation 28-AUG-79 Page 636
PCO Log Report
1)13 PUSHJ P,.ERLOG ;HEADER
1) MOVE T1,TIMEON ;GET TIME WE STARTED
1) PUSHJ P,.TTIME## ;INITIAL TIME STAMP
1) MOVEI T1,ER000A ;GET SEVERITY CODE ETC
1) PUSHJ P,.TSTRG## ;ON LOG DEV IF NOT TTY
1) MOVEI T1,.ERLIM ;GET CODE
1) PUSHJ P,.TSTRG##
1) LOGIT1: MOVEI T1,.ERLIM+1 ;MESSAGE
1) PUSHJ P,.TSTRG##
1) MOVEI T1,CRLF ;END LINE
1) PUSHJ P,.TSTRG##
1) ; JRST NOLOG ;NOW DO OTHER THINGS
1)14 ;HERE TO INITIALIZE OTHER ODD ITEMS
1) NOLOG: MOVE T1,[LOGIT,,TTYIT] ;INCASE /LOG LATER
1) MOVEM T1,LOWSUB ;SO WE CAN FIND ROUTINES
1) MOVEI T1,V%M ;GET DEFAULT VALUE
1) MOVEM T1,VERLVL ;SAVE IT
1) MOVEI T1,OPENBL ;PUT ADDRESS OF INPUT I/O BLOCK
****
2)13 LOGMSG:
2) E$$LFB::.ERR. (MS,.EC,V%L,L%I,S%I,LFB,<LINK log file begun on
>) ;[1174]
2) .ETC. (DAT) ;[1174]
2) ; JRST NOLOG ;NOW DO OTHER THINGS
2)14 ;HERE TO INITIALIZE OTHER ODD ITEMS
2) NOLOG:
2) E$$LIN::.ERR. (MS,,V%L,L%I,S%I,LIN,<LINK initialization>) ;[11
74] NO POINT TIL NOW
2) MOVEI T1,OPENBL ;PUT ADDRESS OF INPUT I/O BLOCK
**************
1)18 ER000A: ASCIZ / 1 1 /
1) .ERLIM: ASCIZ /LIM /
1) .ASCIZ <LINK initialization>
1) CRLF: ASCIZ /
1) /
1) NOCORE: OUTSTR [ASCIZ \?LNKICI Insufficient core to ini
tialize LINK\]
1) EXIT
1) OPNERR: PUSH P,[RC] ;PUT CHAN. INDEX ON STACK
1) .ERR. (I,0,V%L,L%I,S%I,IFD)
1) JRST NOLOG ;DO WITHOUT LOG FILE NOW
1) ENTERR: PUSH P,[%ENT+RC] ;CHAN INDEX
1) .ERR. (LRE,0,0,0,0,FEE)
1) JRST NOLOG
1) .ERLOG: MOVEI T1,[ASCIZ \ [LINK LOG file \]
1) PUSHJ P,.TSTRG## ;HEADER
1) PUSHJ P,.TDATN## ;WITH DATE
1) CLSSQB: MOVEI T1,[ASCIZ \]
1) \]
Digital Equipment Corporation 28-AUG-79 Page 637
PCO Log Report
1) PJRST .TSTRG## ;END LINE
1) CPOPJ: POPJ P, ;SOMEWHERE TO PUT IT
****
2)18 ;**;[1174] Replace @.ERLIM DZN 30-May-79
2) E$$IMI::.OERR. [ASCIZ \?LNKIMI Insufficient memory to initializ
e LINK
2) \]
2) EXIT
2) ;**;[1174] Delete @OPNERR DZN 30-May-79
2) CPOPJ: POPJ P, ;SOMEWHERE TO PUT IT
**************
1)28 OUTSTR UUOMES ;ILL UUO
1) SOS T2,UUOTRAP ;PC+1
****
2)28 ;**;[1174] Replace @UUOHANDLER+10L DZN 7-Jun-79
2) E$$IUU::.OERR. [ASCIZ /?LNKIUU Illegal user UUO at PC /] ;[1174
]
2) SOS T2,UUOTRAP ;PC+1
**************
1)28 UUOMES: .ASCIZ <?LNKIUU Illegal user UUO at PC >
1)29 SUBTTL ENTER DDT
****
2)29 SUBTTL ENTER DDT
**************
1)31 OUTSTR .EROEL ;WILL USE .ERR. IN FUTURE
1) IFE FTSINGLE,<
****
2)31 ;**;[1174] Replace @LOGDMP+6L DZN 7-Jun-79
2) E01OEL::.OERR. .EROEL ;[1174] LNKOEL
2) IFE FTSINGLE,<
**************
1)31 .EROEL: .ASCIZ <%LNKOEL Output error on log file, file closed,
job continuing.
1) >
****
2)31 .EROEL: .ASCIZ <%LNKOEL Output error on log file, file c
losed, load continuing
2) >
**************
1)32 MOVEI T1,LINK10 ;GET ORIGINAL START ADDRESS
1) HRRM T1,.JBSA ;RESET IT
****
2)32 MOVEI T1,LINK ;GET ORIGINAL START ADDRESS
2) HRRM T1,.JBSA ;RESET IT
**************
1)32 END LINK10
****
2)32 END LINK
**************
Digital Equipment Corporation 28-AUG-79 Page 638
PCO Log Report
Digital Equipment Corporation 28-AUG-79 Page 639
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1737 15-May-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1938 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 15-May-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 10-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1165 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1174 Label and clean up all error messages.
2)5 SUBTTL LOAD CONTROL
**************
1)5 .ERR. (MS,0,V%L,L%I,S%I,LDS,<LOAD segment>)
1) LODNXT: HLR FL,FL ;CLEAR TEMP FLAGS AND SET FROM G
LOBAL ONES
****
2)5 E$$LDS::.ERR. (MS,0,V%L,L%I,S%I,LDS,<LOAD segment>) ;[1174]
2) LODNXT: HLR FL,FL ;CLEAR TEMP FLAGS AND SET FROM G
LOBAL ONES
**************
1)6 T.ERR:: .ERR. (MS,.EC,V%L,L%F,S%F,IRB,<Illegal REL Block Type
>)
1) .ETC. (OCT,.EP!.EC,,,,T1)
1) .ETC. (STR,.EC,,,,,< for >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,.EC,,,,,< in >)
1) .ETC. (FSP,0,,,,DC)
1)7 SUBTTL CLEAR INCLUDE/EXCLUDE STORAGE
****
2)6 E$$IRB::.ERR. (MS,.EC,V%L,L%F,S%F,IRB,<Illegal REL block type
>) ;[1174]
2) .ETC. (OCT,.EP!.EC,,,,T1)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)7 SUBTTL CLEAR INCLUDE/EXCLUDE STORAGE
**************
1)12 PUSHJ P,NO.COR## ;NOT POSSIBLE
1) POP P,P2 ;RESTORE
****
2)12 PUSHJ P,E$$MEF## ;[1174] NOT POSSIBLE
2) POP P,P2 ;RESTORE
Digital Equipment Corporation 28-AUG-79 Page 640
PCO Log Report
**************
1)19 .ERR. (MS,0,V%L,L%I,S%I,FCF,<Final core fixups>)
1) CORFXL: ;HERE FOR LOW SEGMENT
****
2)19 E$$FCF::.ERR. (MS,0,V%L,L%I,S%I,FCF,<Final code fixups>) ;[117
4]
2) CORFXL: ;HERE FOR LOW SEGMENT
**************
1)21 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) HRRZ T1,(T2) ;GET RIGHT HALF VALUE
****
2)21 ;**;[1174] Replace @PFF.AR+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) HRRZ T1,(T2) ;GET RIGHT HALF VALUE
**************
1)21 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) HLRZ T1,(T2) ;GET LEFT HALF VALUE
****
2)21 ;**;[1174] Replace @PFF.AL+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) HLRZ T1,(T2) ;GET LEFT HALF VALUE
**************
1)21 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) ADDM T1,W3 ;PLUS DEFINED SYMBOL
****
2)21 ;**;[1174] Replace @PFF.AF+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) ADDM T1,W3 ;PLUS DEFINED SYMBOL
**************
1)22 ANCERR: .ERR. (MS,,V%L,L%F,S%F,ANC,<Address not in core>)
1)23 ;REPLACEMENTS
****
2)22 ;**;[1174] Replace @ANCERR DZN 30-May-79
2) E$$ANM::.ERR. (MS,,V%L,L%F,S%F,ANM,<Address not in memory>)
2)23 ;REPLACEMENTS
**************
1)23 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) HRRM W3,(T2) ;JUST REPLACE WHATS THERE
****
2)23 ;**;[1174] Replace @PFF.RR+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
Digital Equipment Corporation 28-AUG-79 Page 641
PCO Log Report
2) HRRM W3,(T2) ;JUST REPLACE WHATS THERE
**************
1)23 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) HRLM W3,(T2)
****
2)23 ;**;[1174] Replace @PFF.RL+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) HRLM W3,(T2)
**************
1)23 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) MOVEM W3,(T2) ;REPLACE VALUE
****
2)23 ;**;[1174] Replace @PFF.RF+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) MOVEM W3,(T2) ;REPLACE VALUE
**************
1)24 PUSHJ P,NO.COR## ;CANNOT EXPAND ANY MORE
1) POP P,T2
****
2)24 PUSHJ P,E$$MEF## ;[1174] CANNOT EXPAND ANY MORE
2) POP P,T2
**************
1)26 JRST INSRTF ;NO, ERROR, SHOULD NEVER HAPPEN
1) INSRT0: AOS GSYM ;COUNT SYMBOL
****
2)26 ;**;[1174] Replace @INSRT+1L DZN 30-May-79
2) JRST E$$SIF ;[1174] NO, ERROR, SHOULD NEVER
HAPPEN
2) INSRT0: AOS GSYM ;COUNT SYMBOL
**************
1)26 INSRTF: .ERR. (MS,0,V%L,L%F,S%F,SIF,<Symbol insert failure, no
n-zero hole found>)
1)27 SUBTTL SATISFY GLOBAL REQUESTS
****
2)26 ;**;[1174] Replace @INSRTF DZN 30-May-79
2) E$$SIF::.ERR. (MS,0,V%L,L%F,S%F,SIF,<Symbol insert failure, no
n-zero hole found>) ;[1174]
2)27 SUBTTL SATISFY GLOBAL REQUESTS
**************
1)27 PUSHJ P,DUZERR ;BUT NOT TOO FAR
1) TRNE FL,R.FHS ;ARE RC TABLES SCREWED UP?
****
2)27 ;**;[1174] Replace @SY.RF+1L DZN 30-May-79
2) PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
2) TRNE FL,R.FHS ;ARE RC TABLES SCREWED UP?
Digital Equipment Corporation 28-AUG-79 Page 642
PCO Log Report
**************
1)27 DUZERR: .ERR. (MS,,V%L,L%F,S%F,DUZ,<Decreasing undefined symbo
l count below zero>)
1) SY.FHS: SKIPA T1,[1] ;LOW SEG HAS BEEN FAKED
****
2)27 ;**;[1174] Replace @DUZERR DZN 30-May-79
2) E$$DUZ::.ERR. (MS,,V%L,L%F,S%F,DUZ,<Decreasing undefined symbo
l count below zero>) ;[1174]
2) SY.FHS: SKIPA T1,[1] ;LOW SEG HAS BEEN FAKED
**************
1)28 ISPERR: .ERR. (MS,,V%L,L%F,S%F,ISP,<Incorrect symbol pointer>)
1)29 SY.RF5: POP P,P1
****
2)28 ;**;[1174] Replace @ISPERR DZN 30-May-79
2) E$$ISP::.ERR. (MS,,V%L,L%F,S%F,ISP,<Incorrect symbol pointer>)
;[1174]
2)29 SY.RF5: POP P,P1
**************
1)33 PUSHJ P,ISPERR ;NO???
1) HRL W3,2(T1) ;RESET REAL POINTER
****
2)33 ;**;[1174] Replace @SYSTF1+7L DZN 30-May-79
2) PUSHJ P,E$$ISP ;[1174] NO???
2) HRL W3,2(T1) ;RESET REAL POINTER
**************
1)33 PUSHJ P,ISPERR ;NO, NO PVS TRIPLET???
1) SYSTF3: ADDI T1,.L ;LOOK AT NEXT TRIPLET
1) SKIPG T3,0(T1) ;PICK UP FLAGS
1) PUSHJ P,ISPERR ;MUSN'T BE PRIMARY
1) TXNN T3,S.PVS ;FOUND THE PVS TRIPLET?
****
2)33 ;**;[1174] Replace @SYSTF2+1L DZN 30-May-79
2) PUSHJ P,E$$ISP ;[1174] NO, NO PVS TRIPLET???
2) SYSTF3: ADDI T1,.L ;LOOK AT NEXT TRIPLET
2) SKIPG T3,0(T1) ;PICK UP FLAGS
2) ;**;[1174] Replace @SYSTF3+2L DZN 30-May-79
2) PUSHJ P,E$$ISP ;[1174] MUSN'T BE PRIMARY
2) TXNN T3,S.PVS ;FOUND THE PVS TRIPLET?
**************
1)34 PUSHJ P,DUZERR ;BUT NOT TOO FAR
1) MOVE W3,2(T1) ;GET NOW-DEFINED VALUE
****
2)34 ;**;[1174] Replace SYSTF3+1P21L DZN 30-May-79
2) PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
2) MOVE W3,2(T1) ;GET NOW-DEFINED VALUE
**************
1)40 PUSHJ P,ANCERR ;WE ONLY GET HERE WHEN PAGE IS I
N CORE
1) MOVEM W3,(T2) ;REPLACE VALUE
Digital Equipment Corporation 28-AUG-79 Page 643
PCO Log Report
****
2)40 ;**;[1174] Replace @RP.CHF+2L DZN 30-May-79
2) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
2) MOVEM W3,(T2) ;REPLACE VALUE
**************
1)41 .ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at >)
1) .ETC. (OCT,.EP,,,,T1)
****
2)41 ;**;[1174] Replace @INVIDX+2L DZN 30-May-79
2) E$$IVC::.ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at >) ;[1174]
2) .ETC. (OCT,.EP,,,,T1)
**************
1)43 .ERR. (MS,.EC,V%L,L%W,S%W,MDS,<Multiply-Defined Global
symbol >)
1) .ETC. (SBX,.EC!.EP,,,,W2) ;SYMBOL IN W2
1) .ETC. (STR,.EC,,,,,<, in module >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,.EC,,,,,<
1) defined value = >)
1) .ETC. (OCT,.EC!.EP,,,,T1) ;CURRENT VALUE
1) .ETC. (STR,.EC,,,,,<, this value = >)
1) .ETC. (OCT,.EP,,,,W3) ;IN W3
1) SETZM LSTSYM ;SO WE DON'T DO FIXUPS?
****
2)43 ;**;[1174] Replace @SY.MDF+5L DZN 30-May-79
2) E$$MDS::.ERR. (MS,.EC,V%L,L%W,S%W,MDS,<Multiply-defined global
symbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;SYMBOL IN W2
2) .ETC. (JMP,.EC,,,,.ETIMF##) ;[1174] PRINT OFFENDING MO
DULE
2) .ETC. (NLN,.EC) ;[1174]
2) .ETC. (STR,.EC,,,,,<Defined value = >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,T1) ;CURRENT VALUE
2) .ETC. (STR,.EC,,,,,<, this value = >)
2) .ETC. (OCT,.EP,,,,W3) ;[1174]
2) SETZM LSTSYM ;SO WE DON'T DO FIXUPS?
**************
1)44 PUSHJ P,DUZERR ;BUT NOT TOO FAR
1) MOVX T3,PS.REQ ;IF NOW FULLY DEFINED
****
2)44 ;[1174] Replace @SY.AS0+9L DZN 30-May-79
2) PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
2) MOVX T3,PS.REQ ;IF NOW FULLY DEFINED
**************
1)45 PUSHJ P,ISPERR
1) TXNN T2,S.LST ;GOT THERE YET
****
2)45 ;**;[1174] Replace @SY.ZS1+5L DZN 30-May-79
Digital Equipment Corporation 28-AUG-79 Page 644
PCO Log Report
2) PUSHJ P,E$$ISP ;[1174]
2) TXNN T2,S.LST ;GOT THERE YET
**************
1)49 PUSHJ P,ISPERR ;SHOULD NEVER HAPPEN
1) ADDI T2,.L ;ADVANCE PAST
****
2)49 ;**;[1174] Replace @SYCHK2+1L DZN 30-May-79
2) PUSHJ P,E$$ISP ;[1174] SHOULD NEVER HAPPEN
2) ADDI T2,.L ;ADVANCE PAST
**************
1)56 JRST F40OVE ;YES
1) > ;
****
2)56 ;**;[1174] Replace @F40NAM+3L DZN 30-May-79
2) JRST E$$FOV ;[1174] YES
2) > ;
**************
1)56 JRST F40ERR ;ERROR
1) POPJ P, ;[1120] DONE
1) IFN FTOVERLAY,<
1) F40OVE: .ERR. (MS,.EC,V%L,L%F,S%F,FOV,<Cannot overlay F40 comp
iled code in >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) >
1)57 ;**;[1120] Replace @CBLNAM DZN 22-Sep-78
****
2)56 ;**;[1174] Replace @F40NAM+20L DZN 30-May-79
2) JRST E$$MSR ;[1174] ERROR
2) POPJ P, ;[1120] DONE
2) IFN FTOVERLAY,<
2) ;**;[1174] Replace @F40OVE DZN 30-May-79
2) E$$FOV::.ERR. (MS,.EC,V%L,L%F,S%F,FOV,<Cannot overlay F40 comp
iled code>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]>
2)57 ;**;[1120] Replace @CBLNAM DZN 22-Sep-78
**************
1)57 JRST C74ERR ;NOT ALLOWED
1) TXNE T2,CBLBIT ;[1120] OR IF COBOL ALREADY SEEN
1) POPJ P, ;[1120] DONE
1) .ERR. (MS,0,V%L,L%F,S%F,CMF,<Cobol module must be load
ed first>)
1) C74NAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
1) TXNE T2,CBLBIT ;[1120] TEST FOR OTHER COBOL
1) JRST C74ERR ;NOT ALLOWED
1) TXNE T2,C74BIT ;[1120] OR IF COBOL ALREADY SEEN
1) POPJ P, ;[1120] DONE
1) .ERR. (MS,0,V%L,L%F,S%F,CMF)
1) C74ERR: .ERR. (MS,.EC,V%L,L%F,S%F,CMC,<Cannot mix COBOL-68 and
COBOL-74 compiled code
Digital Equipment Corporation 28-AUG-79 Page 645
PCO Log Report
1) Error detected in module >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,.EC,,,,,< from >)
1) .ETC. (FSP,,,,,DC)
1) ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
****
2)57 ;**;[1174] Replace @CBLNAM+2L DZN 30-May-79
2) JRST E$$CMC ;[1174] NOT ALLOWED
2) TXNE T2,CBLBIT ;[1120] OR IF COBOL ALREADY SEEN
2) POPJ P, ;[1120] DONE
2) E$$CMF::.ERR. (MS,0,V%L,L%F,S%F,CMF,<COBOL module must be load
ed first>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) C74NAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
2) TXNE T2,CBLBIT ;[1120] TEST FOR OTHER COBOL
2) ;**;[1174] Replace @C74NAM+2L DZN 30-May-79
2) JRST E$$CMC ;[1174] NOT ALLOWED
2) TXNN T2,C74BIT ;[1174] OR IF COBOL ALREADY SEEN
2) JRST E$$CMF ;[1174]
2) ;**;[1174] Replace @C74ERR DZN 30-May-79
2) E$$CMC::.ERR. (MS,.EC,V%L,L%F,S%F,CMC,<Cannot mix COBOL-68 and
COBOL-74 compiled code>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
**************
1)57 F40ERR: .ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>)
1) IFN FMXFOR,<
****
2)57 ;**;[1174] Replace @F40ERR DZN 30-May-79
2) E$$MSR::.ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) IFN FMXFOR,<
**************
1)60 JRST MXFERR ;NO, SO GIVE UP
1) MXFOR3: PUSHJ P,ADCKMX ;GET NEXT DATA WORD
****
2)60 ;**;[1174] Replace @MXFR2A+6L DZN 30-May-79
2) JRST E$$FSF ;[1174] NO, SO GIVE UP
2) MXFOR3: PUSHJ P,ADCKMX ;GET NEXT DATA WORD
**************
1)60 JRST MXFERR ;ERROR
1) MOVSI T1,(SOJA 16,) ;CHANGE INST TO SOJA 16,.JRA16##
****
2)60 ;**;[1174] Replace @MXFOR3+14L DZN 30-May-79
2) JRST E$$FSF ;[1174] ERROR
2) MOVSI T1,(SOJA 16,) ;CHANGE INST TO SOJA 16,.JRA16##
**************
Digital Equipment Corporation 28-AUG-79 Page 646
PCO Log Report
1)61 ; JRST MXFERR ;SHOULD HAVE FOUND IT BY NOW
1)62 ;HERE IF SUBROUTINE IS NOT STANDARD FORM
1) MXFERR: .ERR. (MS,.EC,V%L,L%W,S%W,FSF,<Fortran subroutine >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,,,,,,< not in expected form, MIXFOR fixup n
ot done>)
1) JRST MXFOR5 ;TRY NEXT
****
2)61 ;**;[1174] Replace @MXFOR9+7L DZN 30-May-79
2) ; JRST E$$FSF ;[1174] SHOULD HAVE FOUND IT BY
NOW
2)62 ;HERE IF SUBROUTINE IS NOT STANDARD FORM
2) ;**;[1174] Replace @MXFERR DZN 30-May-79
2) E$$FSF::.ERR. (MS,.EC,V%L,L%W,S%W,FSF,<FORTRAN subroutine not
in expected format, /MIXFOR fixup not done>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174] RETURNS WHEN MODULE A
ND FILE PRINTED
2) JRST MXFOR5 ;TRY NEXT
**************
1)66 GOSTER: PUSHJ P,STARTU## ;UNDEFINED MESSAGE
1) SETZM STADDR ;CLEAR ADDRESS
****
2)66 ;**;[1174] Replace @GOSTER DZN 3-Jun-79
2) GOSTER: PUSHJ P,E$$USA## ;[1174] UNDEFINED MESSAGE
2) SETZM STADDR ;CLEAR ADDRESS
**************
1)67 PUSHJ P,[PUSHJ P,.SAVE4## ;INCASE WE NEED THEM
1) HRRZ T1,LOWSUB ;[605] ON TTY ONLY
1) PUSHJ P,.TYOCH## ;INITIALIZE
1) PUSH P,T1 ;STORE OLD
1) MOVEI T1,[ASCIZ \?LNKUGS \] ;FATAL F
OR BATCH
1) SETZ P2, ;NO TERMINATOR
1) PJRST UNDEF1##] ;AND JOIN OUTPUT ROUTINE
1) HLRZ P1,INCPTR ;GET GLOBAL INCLUDE POINTER
****
2)67 PUSHJ P,LODUGS ;[1174] PRINT UNDEFINED GLOBALS
MESSAGE
2) HLRZ P1,INCPTR ;GET GLOBAL INCLUDE POINTER
**************
1)68 ;[704] HERE TO SORT THE PSECT RELOCATION TABLES BY ORDER OF
****
2)67 LODUGS: MOVE T1,[PUSHJ P,UNDNXT##] ;[1174] SET UP NEXT SYMBOL
ROUTINE
2) MOVEM T1,NXTGLB ;[1174] ..
2) MOVE W3,HT.PRM ;[1174] SET UP INDEX TO HASH TAB
LE
2) ADDI W3,1 ;[1174] START 1 UP FOR SOSGE IN
UGSNXT
Digital Equipment Corporation 28-AUG-79 Page 647
PCO Log Report
2) E01UGS::.ERR. (MS,.EC,V%L,L%F,S%C,UGS) ;[1174]
2) .ETC. (JMP,,,,,.ETUGS##) ;[1174] PRINT UNDEF'ED GLOBAL
S AND RETURN
2)68 ;[704] HERE TO SORT THE PSECT RELOCATION TABLES BY ORDER OF
**************
1)70 .ERR. (MS,.EC,V%L,L%W,S%W,POV,<PSECTs overlapped: >)
1) .ETC. (OCT,.EC!.EP,,,,W1)
1) .ETC. (STR,.EC,,,,,< to >)
1) .ETC. (OCT,.EC!.EP,,,,W2)
1) .ETC. (STR,.EC,,,,,< PSECTS >)
1) .ETC. (SBX,.EC!.EP,,,,T1)
1) .ETC. (STR,.EC,,,,,< and >)
1) .ETC. (SBX,.EP,,,,T2)
1) CHKBN2: JUMPG R,CHKBN1 ;[760] LOOP DOWN IF MORE IN THIS
SWEEP
****
2)70 ;**;[1174] Replace @CHKBN1+11L DZN 30-May-79
2) E$$POV::.ERR. (MS,.EC,V%L,L%W,S%W,POV,<Psects >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,T1) ;[1174]
2) .ETC. (STR,.EC,,,,,< and >)
2) .ETC. (SBX,.EC!.EP,,,,T2) ;[1174]
2) .ETC. (STR,.EC,,,,,< overlap from >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W1) ;[1174]
2) .ETC. (STR,.EC,,,,,< to >)
2) .ETC. (OCT,.EP,,,,W2) ;[1174]
2) CHKBN2: JUMPG R,CHKBN1 ;[760] LOOP DOWN IF MORE IN THIS
SWEEP
**************
1)83 .ERR. (MS,0,V%L,L%W,S%W,FSI,<FORTRAN-10 requires FOROT
S, /FORSE switch ignored>)
1) FORL02: SETZM FORLIB ;IGNORE STUPID USER REQUEST
****
2)83 ;**;[1174] Replace @FOR.L2+5L DZN 30-May-79
2) E$$FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI,<FORTRAN requires FOROTS,
/FORSE switch ignored>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) FORL02: SETZM FORLIB ;IGNORE STUPID USER REQUEST
**************
1)83 .ERR. (MS,0,V%L,L%W,S%W,FSI)
1) SETZM FORLIB
****
2)83 ;**;[1174] Replace @FOR.L1+2L DZN 30-May-79
2) E01FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI) ;[1174]
2) .ETC. (STR,,,,,.ETIMF##) ;[1174]
2) SETZM FORLIB
**************
1)85 .ERR. (MS,,V%L,L%W,S%W,AMP,<ALGOL main program not loa
ded>)
1) ALG.L2: MOVE P1,['ALGLIB']
****
2)85 ;**;[1174] Replace @ALG.L1+2L DZN 30-May-79
Digital Equipment Corporation 28-AUG-79 Page 648
PCO Log Report
2) E$$AMP::.ERR. (MS,,V%L,L%W,S%W,AMP,<ALGOL main program not loa
ded>) ;[1174]
2) ALG.L2: MOVE P1,['ALGLIB']
**************
1)85 .ERR. (MS,,V%L,L%W,S%W,SMP,<SIMULA main program not lo
aded>)
1) SIM.L0: MOVE P1,['SIMLIB']
****
2)85 ;**;[1174] Replace @SIM.L1+2L DZN 30-May-79
2) E$$SMP::.ERR. (MS,,V%L,L%W,S%W,SMP,<SIMULA main program not lo
aded>) ;[1174]
2) SIM.L0: MOVE P1,['SIMLIB']
**************
1)86 PUSH P,[DC] ;SAVE CHAN#
1) .ERR. (ST,0,V%L,L%F,S%F,EID,<Error on input device>)
1) ;THESE ROUTINES ARE LIKE THE CORRESPONDING D.IN? ROUTINES, EXCEP
T
****
2)86 ;**;[1174] Replace @D.ERR+2L DZN 30-May-79
2) E01EIF::PUSH P,[DC] ;[1174] SAVE CHANNEL FOR LNKLOG
2) .ERR. (ST,0,V%L,L%F,S%F,EIF) ;[1174]
2) ;THESE ROUTINES ARE LIKE THE CORRESPONDING D.IN? ROUTINES, EXCEP
T
**************
1)88 PUSHJ P,EOFTS ;NO GIVE WARNING
1) POP P,(P) ;POP OFF RETURN
****
2)88 ;**;[1174] Replace @EOF+1L DZN 30-May-79
2) PUSHJ P,E$$NEB ;[1174] NO GIVE WARNING
2) POP P,(P) ;POP OFF RETURN
**************
1)88 EOFTS:: .ERR. (MS,.EC,V%L,L%W,S%W,NEB,<No end block seen for >
)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) MOVEI R,1 ;NOW TRY TO FIXUP RELOC TABLES
****
2)88 E$$NEB::.ERR. (MS,.EC,V%L,L%W,S%W,NEB,<No end block seen>) ;[1
174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) MOVEI R,1 ;NOW TRY TO FIXUP RELOC TABLES
**************
Digital Equipment Corporation 28-AUG-79 Page 649
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOG.MAC[30,4507] created: 0045 17-Feb-1979
File 2) LINK:LNKLOG.MAC[10,645063] created: 1729 11-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 16-Feb-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1144 ;DEC EDIT VERSION
1) SEGMENT
1) ;USES T1-T4 ONLY (PLUS PUSHDOWN STACK)
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) SEGMENT
2) SALL
2) ;USES T1-T4 ONLY (PLUS PUSHDOWN STACK)
**************
1)3 SUBTTL ENTER HERE FROM LINK
1) ;UUO TYPE IS IN AC T1
1) IFN FTSINGLE,<
****
2)2 ;1174 Label and clean up all error messages. Remove most of ed
it 1144. Support
2) ; .ETC. codes RTN, NLN, XCT, BKL, DAT and NOP. Support S%C
. Clean up the
2) ; listing.
2)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
2) ;DISPATCH TABLE FOR MAIN MESSAGE TYPE. THE MESSAGE TYPE IS
SPECIFIED IN THE
2) ;FIRST ARGUMENT TO THE .ERR. MACRO.
2) DEFINE XXX(TYPE)<
2) EXP ER.'TYPE
2) >
2) XALL
2) TYPTAB: ERRTYPE
2) ;DISPATCH TABLE FOR CONTINUATION MESSAGE TYPE. THE CONTIN
UATION TYPE IS
2) ;SPECIFIED IN THE FIRST ARGUMENT TO THE .ETC. MACRO.
2) DEFINE XXX(TYPE)<
2) ..CTRL==<<IFIDN <TYPE><JMP>,<1>>!<IFIDN <TYPE><RTN>,<1>>>
2) IFN ..CTRL,<
2) XWD 1B18,ER'TYPE ;FLOW OF CONTROL ONLY
2) >
2) IFE ..CTRL,<
2) EXP ER'TYPE ;PRINT TEXT
2) >
2) >
2) ER.TAB: ETCTYPE
2) ERLEN==.-ER.TAB
Digital Equipment Corporation 28-AUG-79 Page 100
PCO Log Report
2) SALL
2)4 SUBTTL ENTRY FROM ERRUUO AND MESSAGE DISPATCH
2) IFN FTSINGLE,<
**************
1)3 JRST @TYPTAB(T1)
1) DEFINE XXX (TYPE) <
1) EXP ER.'TYPE
1) >
1) TYPTAB: ERRTYPE
1) SALL
1)4 ;ENTRY POINT FOR ASCII STRING
1) ;CALLED BY
1) ; ERRUOO MS
1) ; ARGS
1) ER.MS: PUSHJ P,CHKLVL ;OUTPUT %,? OR TIME STAMP ETC
1) JRST NOERR ;NOTHING TO OUTPUT
1) MOVE T1,VERLVL ;GET VERBOSITY LEVEL
1) SOJE T1,ERRLV1 ;END NOW IF /VER:SHORT
1) ;**;[1144] Insert before ER.MS+4L DZN 16-Feb-79
1) TXNE P1,.EN ;[1144] SEE IF THERE'S A MESSAGE
TO PRINT
1) JRST ERRNXT ;[1144] NO--DON'T PRINT ANYTHING
1) HRRZ T1,P1 ;ADDRESS OF MESSAGE STRING
1) OUTVIA .TSTRG## ;OUTPUT MESSAGE
1) ERRNXT: TXNN P1,.EC ;MORE TO DO?
1) JRST ERRFIN ;NO, END LINE
1) ;**;[1144] Replace @ERRNXT+2L DZN 16-Feb-79
1) LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERI
TY
1) AOS UUOTRAP ;ADVANCE RETURN POINTER
1) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
1) DPB T1,VSPTR ;[1144] STORE VERBOSITY AND SEVE
RITY AGAIN
1) TRNN P1,-1 ;IF ZERO , ITS ON THE STACK
1) PUSHJ P,UNSTCK ;GET IT
1) HRRZ T1,P1 ;GET VALUE
1) TXNN P1,.EP ;ONLY A POINTER?
1) JRST .+4 ;NO, ALL SET
1) CAIG T1,P1 ;IS IT ONE OF THE SAVED ONES?
1) SKIPA T1,SAVEAC(T1) ;YES, GET FROM SAVED SET
1) MOVE T1,(T1) ;NO, GET REAL VALUE
1) LDB T2,LVLPTR ;GET TYPE
1) JRST @ER.TAB(T2) ;DO CORRECT FUNCTION
1) ERRFIN: MOVE T1,VERLVL ;GET WHAT USER WANTS
1) CAIGE T1,V%L ;DOES HE WANT LONG?
1) JRST ERRFN0 ;NO
****
2)4 JRST @TYPTAB(T1) ;[1174] ROUTINES RETURN TO ERRFI
N BELOW
Digital Equipment Corporation 28-AUG-79 Page 101
PCO Log Report
2) ERRFIN: SKIPGE PRTMSG ;[1174] DID WE PRINT ANYTHING AT
ALL?
2) JRST ERRET ;[1174] NO--NO LINE TO FINISH OF
F THEN
2) MOVE T1,VERLVL ;[1174] DID USER REQUEST LONG ME
SSAGE?
2) CAIGE T1,V%L ;[1174] ..
2) JRST ERRFN0 ;NO
**************
1)4 CAIL T2,S%W ;WAS IT
****
2)4 CAMGE T2,SEVLVL ;[1174] SUPPRESS ] IF MESSAGE FO
RCED TO FATAL
2) CAIL T2,S%W ;WAS IT
**************
1)4 TXNE P1,.EB ;BLANK LINE NEEDED?
1) SKIPN LOGSUB ;YES, BUT HAVE A LOG FILE?
1) CAIA ;NO TO EITHER
1) PUSHJ P,.TCRLF## ;YES, BLANK LINE IN LOG ONLY
1)5 ;HERE WHEN THE MESSAGE HAS BEEN TYPED. SHOULD WE CONTINUE?
****
2)4 ; ..
2)5 ; ..
2) ;HERE WHEN THE MESSAGE HAS BEEN TYPED. SHOULD WE CONTINUE?
**************
1)5 JRST ERXIT ;NO
1) HRRZS LOGSUB ;CLEAR FLAG
1) CAIL T1,S%E ;DO WE NEED TO EDIT THIS ERROR F
IRST
1) JRST EDITER ;YES, FATAL IF WE DON'T
****
2)5 CAXN T1,S%C ;[1174] ..
2) SKIPA ;[1174] YES--RETURN TO CALLER
2) JRST ERXIT ;[1174] NO--GO EXIT
2) HRRZS LOGSUB ;CLEAR FLAG
2) CAIN T1,S%E ;[1174] DO WE NEED TO EDIT THIS
ERROR FIRST
2) JRST EDITER ;YES, FATAL IF WE DON'T
**************
1)6 ;HERE WHEN LOG FILE GETS ERROR
1) ;FINISH ORIGINAL MESSAGE THEN OUTPUT LOG ERROR MESSAGE
1) REPEAT 0,< ;NOT YET WORKING
1) ERRLOG: POP P,T1 ;GET RETURN OFF STACK
1) PUSH P,UUOTRAP ;SAVE REAL RETURN ADDRESS
1) PUSH P,T1 ;STACK RETURN
1) MOVEI T1,LOGERR-1 ;FAKE RETURN
1) HRRM T1,UUOTRAP ;SO WE CAN TYPE 2ND MESSAGE
1) POPJ P, ;IF NOTHING MORE IMPORTANT OCCUR
S
Digital Equipment Corporation 28-AUG-79 Page 102
PCO Log Report
1) LOGERR: PUSH P,[RC] ;CHAN#
1) .ERR. (ST,0,V%M,L%W,S%W,OEL,<Output error on LOG file,
file closed, job continuing.>)
1) POP P,T1 ;GET ORIGINAL RETURN
1) JRSTF @T1 ;RETURN
1) >;END OF REPEAT 0
1)7 ;HERE TO "EDIT" THE ERRONEOUS FILE SPEC
1) ;STORE CURRENT STRING IN F.EDIT
1) ;AND GO TO SCAN
1) EDITER: MOVEI T2,1 ;GET A WORD TO HOLD FL
****
2)5 ;HERE TO "EDIT" THE ERRONEOUS FILE SPECIFICATION. THIS OCCURS W
HEN A MESSAGE OF
2) ;SEVERITY S%E IS PRINTED UNDER TIMESHARING. STORE THE STILL PEND
ING LIST OF SCAN
2) ;BLOCKS IN F.EDIT, AND RETURN TO THE LNKSCN FOR THE CORRECTION L
INE.
2) EDITER: MOVEI T2,1 ;GET A WORD TO HOLD FL
**************
1)7 EDTMES: ASCIZ \[ Please retype the incorrect parts of the
file specification]
1) \
1)8 ERXIT: MOVEI T1,FINMES ;TELL USER WE CLOSED FILE
****
2)5 EDTMES: .ASCIZ <[ Please retype the incorrect parts of the
file specification]
2) >
2)6 ;HERE WHEN LOG FILE GETS ERROR
2) ;FINISH ORIGINAL MESSAGE THEN OUTPUT LOG ERROR MESSAGE
2) REPEAT 0,< ;NOT YET WORKING
2) ERRLOG: POP P,T1 ;GET RETURN OFF STACK
2) PUSH P,UUOTRAP ;SAVE REAL RETURN ADDRESS
2) PUSH P,T1 ;STACK RETURN
2) ;**;[1174] Replace @ERRLOG+3L DZN 4-Jun-79
2) MOVEI T1,E$$OEL-1 ;[1174] FAKE RETURN
2) HRRM T1,UUOTRAP ;SO WE CAN TYPE 2ND MESSAGE
2) POPJ P, ;IF NOTHING MORE IMPORTANT OCCUR
S
2) ;**;[1174] Replace @LOGERR DZN 4-Jun-79
2) E$$OEL::PUSH P,[RC] ;CHANNNEL #
2) .ERR. (ST,0,V%L,L%W,S%W,OEL,<Output error on log file,
file closed, load continuing>)
2) POP P,T1 ;GET ORIGINAL RETURN
2) JRSTF @T1 ;RETURN
2) >;END OF REPEAT 0
2)7 SUBTTL FATAL ERROR FINAL CLEAN-UP AND EXIT
2) ;HERE IF FATAL NON-CONTINUABLE (E.G., NOT EDITABLE) ERROR OCCURS
, AFTER PRINTING
2) ;THE MESSAGE. CLOSE THE LOG FILE AND DELETE ALL OF LINK'S .TMP
Digital Equipment Corporation 28-AUG-79 Page 103
PCO Log Report
FILES. IF WE'RE
2) ;UNDER BATCH, FORCE OUT THE LONG MESSAGE IF APPLICABLE. OTHERW
ISE, MERELY GIVE
2) ;THE USER A HINT THAT THE LONG MESSAGE MAY BE TYPED IF DESIRED.
2) ERXIT: MOVEI T1,FINMES ;TELL USER WE CLOSED FILE
**************
1)8 FINMES: .ASCIZ < [END OF LOG FILE]
1) >
1)9 NOERR: TXNN P1,.EC ;MORE TO DO?
1) JRST ERRET ;NO, END LINE
1) LDB T1,SEVPTR ;GET SEVERITY
1) AOS UUOTRAP ;ADVANCE RETURN POINTER
1) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
1) DPB T1,SEVPTR ;STORE SEVERITY AGAIN
1) TRNN P1,-1 ;IF ZERO , ITS ON THE STACK
1) PUSHJ P,UNSTCK ;GET IT
1) JRST NOERR ;SEE IF END
1) ;HERE IF /VER:SHORT
1) ;WE MUST REMOVE ALL ITEMS FROM STACK
1) ;SET SEVERITY LEVEL
1) ;AND CLOSE OPEN ] ETC
1) ERRLV1: TXNN P1,.EC ;MORE TO DO?
1) JRST ERRFN0 ;NO, END LINE
1) LDB T1,SEVPTR ;GET SEVERITY
1) AOS UUOTRAP ;ADVANCE RETURN POINTER
1) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
1) DPB T1,SEVPTR ;STORE SEVERITY AGAIN
1) TRNN P1,-1 ;IF ZERO , ITS ON THE STACK
1) PUSHJ P,UNSTCK ;GET IT
1) JRST ERRLV1 ;SEE IF END
1)10 ;HERE FOR LOOKUP/ENTER/RENAME ERROR
****
2)7 FINMES: .ASCIZ < [End of log file]
2) >
2)8 SUBTTL MAIN ERROR MESSAGE SUBROUTINES
2) ;ENTRY POINT FOR ASCII STRING
2) ;CALLED BY
2) ; ERRUUO ER%MS
2) ; ARGS
2) ER.MS: PUSHJ P,CHKLVL ;OUTPUT %,? OR TIME STAMP ETC
2) JRST ERRNXT ;[1174] NOTHING TO OUTPUT
2) HRRZ T1,P1 ;ADDRESS OF MESSAGE STRING
2) OUTVIA .TSTRG## ;OUTPUT MESSAGE
2) JRST ERRNXT ;[1174] GO PROCESS .ETC. WORDS
2) ;HERE FOR LOOKUP/ENTER/RENAME ERROR
**************
1)10 ; ERRUUO LRE
1) ; ARGS
1) ER.LRE: MOVE T4,0(P) ;GET CHAN#
1) ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
****
Digital Equipment Corporation 28-AUG-79 Page 104
PCO Log Report
2)8 ; ERRUUO ER%LRE
2) ; ARGS
2) ER.LRE: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STAC
K
2) MOVE T4,ERCHAN ;[1174] GET CHANNEL WHERE CHKCHN
LIKES IT
2) ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
**************
1)10 ERLRE2: PUSHJ P,CHKCHN ;IF EDITABLE, SEE IF FATAL
1) PUSHJ P,CHKLVL ;OUTPUT TIME ETC
1) JRST ERRET1 ;NOTHING TO DO
1) ;**;[1144] Insert before ERLRE2+3L DZN 16-Feb-79
1) TXNE P1,.EN ;[1144] SEE IF THERE'S TEXT TO P
RING
1) JRST ERLRE3 ;[1144] NO--DON'T PRINT ANYTHING
1) HRRZ T1,P1 ;ADDRESS OF MESSAGE
1) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
1) ERLRE3: POP P,T4 ;[1144] RESTORE CHAN PLUS FLAGS
1) IFE FTSINGLE,<
****
2)8 ; ..
2)9 ; ..
2) ERLRE2: PUSHJ P,CHKCHN ;IF EDITABLE, SEE IF FATAL
2) PUSHJ P,CHKLVL ;OUTPUT TIME ETC
2) JRST ERRNXT ;[1174] NOTHING TO DO
2) ;**;[1144] Insert before ERLRE2+3L DZN 16-Feb-79
2) HRRZ T1,P1 ;ADDRESS OF MESSAGE
2) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
2) ERLRE3: MOVE T4,ERCHAN ;[1174] RESTORE CHAN PLUS FLAGS
2) IFE FTSINGLE,<
**************
1)11 ERRET1: POP P,T1 ;REMOVE CHAN#
1) JRST ERRET ;AND RETURN
1)12 IFE FTSINGLE,<
****
2)10 IFE FTSINGLE,<
**************
1)13 ; ERRUUO I
1) ; ARGS
1) ER.I: PUSHJ P,CHKLVL ;OUTPUT % OR ?
1) JRST ERRET1 ;NOTHING TO DO
1) ;**;[1144] Insert before ER.I+2L DZN 16-Feb-79
1) TXNE P1,.EN ;[1144] ANY MESSAGE TO PRINT?
1) JRST ERI1 ;[1144] NO--DON'T PRINT ANYTHING
1) HRRZ T1,P1 ;GET MESSAGE
1) OUTVIA .TSTRG##
1) ERI1: POP P,T4 ;[1144] GET CHAN#
1) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
****
Digital Equipment Corporation 28-AUG-79 Page 105
PCO Log Report
2)11 ; ERRUUO ER%I
2) ; ARGS
2) ER.I: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STAC
K
2) PUSHJ P,CHKLVL ;OUTPUT % OR ?
2) JRST ERRNXT ;[1174] NOTHING TO DO
2) ;**;[1144] Insert before ER.I+2L DZN 16-Feb-79
2) HRRZ T1,P1 ;GET MESSAGE
2) OUTVIA .TSTRG##
2) ERI1: MOVE T4,ERCHAN ;[1174] GET CHANNEL FOR CHKCHN
2) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
**************
1)14 ; ERRUUO ST
1) ; ARGS
1) ER.ST: PUSHJ P,CHKLVL ;OUTPUT % OR ?
1) PJRST ERRET1 ;NOTHING TO DO
1) ;**;[1144] Replace @ER.ST+2L DZN 16-Feb-79
1) TXNE P1,.EN ;[1144] ANY MESSAGE TO TYPE?
1) JRST ERST1 ;[1144] NO--DON'T PRINT ANYTHING
1) HRRZ T1,P1 ;GET MESSAGE
****
2)12 ; ERRUUO ER%ST
2) ; ARGS
2) ER.ST: POP P,ERCHAN ;[1174] RESCUE CHANNEL FROM STAC
K
2) PUSHJ P,CHKLVL ;OUTPUT % OR ?
2) PJRST ERRNXT ;[1174] NOTHING TO DO
2) ;**;[1144] Replace @ER.ST+2L DZN 16-Feb-79
2) HRRZ T1,P1 ;GET MESSAGE
**************
1)14 HRLZ T1,(P) ;GET CHAN#
1) LSH T1,5 ;PUT IN AC FIELD
****
2)12 HRLZ T1,ERCHAN ;[1174] GET CHANNEL FOR GETSTS
2) LSH T1,5 ;PUT IN AC FIELD
**************
1)14 MOVEI T1,[ASCIZ \for \] ;[1144]
1) OUTVIA .TSTRG##
1) POP P,T4 ;GET CHAN#
1) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
****
2)12 MOVEI T1,[ASCIZ \ for file \] ;[1144]
2) OUTVIA .TSTRG##
2) MOVE T4,ERCHAN ;[1174] GET CHANNEL NUMBER FOR C
HKCHN
2) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
**************
1)16 SUBTTL CONTINUATION DISPATCH
1) DEFINE XXX (TYPE)<
Digital Equipment Corporation 28-AUG-79 Page 106
PCO Log Report
1) EXP ER'TYPE
1) >
1) XALL
1) ER.TAB: ETCTYPE ;GENERATE DISPATCHES
1) ERLEN==.-ER.TAB ;LENGTH OF TABLE
1) SALL
1) ;ASCII LINE
1) ERSTR: OUTVIA .TSTRG##
1) JRST ERRNXT ;SEE IF MORE
1) ERSBX: OUTVIA .TSIXN##
1) JRST ERRNXT
1) EROCT: OUTVIA .TOCTW##
1) JRST ERRNXT
1) ERDEC: OUTVIA .TDECW##
1) JRST ERRNXT
1) ;FILE SPECS
1) ERFSP: HRR P1,IO.PTR(P1) ;GET ADDRESS
****
2)14 SUBTTL CONTINUATION OF FIRST LINE DISPATCH
2) ;HERE AFTER PROCESSING AN .ETC. FUNCTION. IF THERE ARE NO MORE
LEFT, RETURN VIA
2) ;ERRFIN. OTHERWISE, PROCESS THE NEXT .ETC. FUNCTION ONLY IF THE
FIRST LINE OF
2) ;THE MESSAGE SHOULD BE PRINTED OR IF THE .ETC. REPRESENTS FLOW-O
F-CONTROL RATHER
2) ;THAN TEXT.
2) ERRNXT: TXNN P1,.EC ;MORE TO DO?
2) JRST ERRFIN ;NO, END LINE
2) ;**;[1144] Replace @ERRNXT+2L DZN 16-Feb-79
2) LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERI
TY
2) AOS UUOTRAP ;ADVANCE RETURN POINTER
2) MOVE P1,@UUOTRAP ;GET ADDRESS OF OUTPUT INFO
2) DPB T1,VSPTR ;[1144] STORE VERBOSITY AND SEVE
RITY AGAIN
2) SKIPLE PRTMSG ;[1174] ARE WE SUPPOSED TO PRINT
FIRST LINE?
2) JRST ERRNX1 ;[1174] YES--GO STRAIGHT TO IT
2) LDB T1,LVLPTR ;[1174] NO--ONLY PROCESS CONTROL
.ETC. WORDS
2) SKIPL ER.TAB(T1) ;[1174] ONE THAT PRINTS TEXT?
2) JRST ERRNXT ;[1174] NO--IGNORE IT AND GET NE
XT
2) ERRNX1: HRRZ T1,P1 ;[1174] GET VALUE
2) TXNN P1,.EP ;ONLY A POINTER?
2) JRST .+4 ;NO, ALL SET
2) CAIG T1,P1 ;IS IT ONE OF THE SAVED ONES?
2) SKIPA T1,SAVEAC(T1) ;YES, GET FROM SAVED SET
2) MOVE T1,(T1) ;NO, GET REAL VALUE
Digital Equipment Corporation 28-AUG-79 Page 107
PCO Log Report
2) LDB T2,LVLPTR ;[1174] GET .ETC. TYPE CODE
2) JRST @ER.TAB(T2) ;DO CORRECT FUNCTION
2) ;PRINT ASCII TEXT IN ASCIZ FORMAT.
2) ERSTR: OUTVIA .TSTRG##
2) JRST ERRNXT ;SEE IF MORE
2) ;PRINT A SIXBIT WORD WITHOUT TRAILING SPACES.
2) ERSBX: OUTVIA .TSIXN##
2) JRST ERRNXT
2) ;PRINT AN OCTAL FULL WORD WITHOUT LEADING ZEROS.
2) EROCT: OUTVIA .TOCTW##
2) JRST ERRNXT
2)15 ;PRINT A SIGNED DECIMAL VALUE.
2) ERDEC: OUTVIA .TDECW##
2) JRST ERRNXT
2) ;PRINT A FILE SPECIFICATION. THE ARGUMENT IS LINK'S INTERNAL CHA
NNEL NUMBER.
2) ERFSP: HRR P1,IO.PTR(P1) ;GET ADDRESS
**************
1)16 ;ASCII CHARACTER
1) ERASC: OUTVIA .TCHAR##
1) JRST ERRNXT
1)17 ;CORE ARG EITHER K OR P (DECIMAL)
1) ERCOR: ADDI T1,1 ;ROUND UP TO 1000 OR 2000
1) IFE TOPS20,<
1) MOVE T2,.PGSIZ ;GET PAGE SIZE
1) CAIE T2,777 ;P OR K
1) JRST [MOVEI T2,"K" ;K
1) LSH T1,-^D10 ;CONVERT TO K
1) JRST ERCOR1]
1) >;END IFE TOPS20
1) MOVEI T2,"P" ;PAGES
1) LSH T1,-9 ;GET INTO PAGES
1) ERCOR1: PUSH P,T2 ;SAVE CHAR
1) OUTVIA .TDECW## ;DECIMAL NUMBER
1) POP P,T1 ;AND LETTER
1) OUTVIA .TCHAR##
1) JRST ERRNXT
1) ;GOTO WORD
1) ERJMP: SUBI P1,1 ;BACKUP SO AOS WILL GET RIGHT LO
C
1) HRRM P1,UUOTRAP ;STORE GOTO ADDRESS
1) JRST ERRNXT
1)18 ;RELATIVE POINTER TO TRIPLET(S) IN LS AREA
1) IFN .NWBLK,<
****
2)15 ;PRINT A SINGLE ASCII CHARACTER.
2) ERASC: OUTVIA .TCHAR##
2) JRST ERRNXT
2) ;MEMORY SIZE ARGUMENT. PRINT MEMORY SIZE IN K FOR KA'S, PAGES FO
Digital Equipment Corporation 28-AUG-79 Page 108
PCO Log Report
R ALL OTHERS.
2) ERCOR: ADD. T1,.PGSIZ ;[1174] ROUND UP TO MONITOR'S PA
GE SIZE
2) ANDCM. T1,.PGSIZ ;[1174] ..
2) OUTVIA .TCORW## ;[1174] .TOUTS HAS THE SMARTS
2) JRST ERRNXT ;[1174] DONE
2) ;JUMP TO A CONTINUATION LIST OF .ETC. MACROS. CONTROL RETURNS FR
OM LNKLOG TO THE
2) ;INSTRUCTIONS AFTER THE CONTINUATION LIST, NOT THE OLD LIST. WE
ALSO SAVE THE
2) ;ADDRESS OF THE CURRENT .ETC. WORD SO RTN BELOW CAN USE IT.
2) ERJMP: HRRZ T2,UUOTRAP ;[1174] GET ADDRESS OF CURRENT .
ETC.
2) MOVEM T2,RTNPC ;[1174] SAVE IN CASE RTN NEEDS I
T
2) SUBI T1,1 ;[1174] LOOK LIKE WE JUST PROCES
SED PREVIOUS WORD
2) HRRM T1,UUOTRAP ;[1174] ..
2) TXO P1,.EC ;[1174] IMPLIED CONTINUATION FOR
JMP'S
2) JRST ERRNXT ;[1174]
2) ;RETURN FROM PREVIOUS JUMP. NOTE THAT THE .EC FLAG OF THE JUMP
THAT GOT US HERE
2) ;CONTROLS WHETHER THERE ARE ANY MORE .ETC. WORDS, NOT THE .EC
FLAG OF THE RTN
2) ;FUNCTION.
2) ERRTN: ADD T1,RTNPC ;[1174] FOR CPOPJ1, ETC.
2) HRRM T1,UUOTRAP ;[1174] LOOK LIKE WE JUST PROCES
SED LAST JMP
2) LDB T2,VSPTR ;[1174] SAVE ORIGINAL VERBOSITY,
SEVERITY
2) MOVE P1,(T1) ;[1174] FINISH LOOKING LIKE THE
JMP
2) DPB T2,VSPTR ;[1174] RESTORE ORIGINAL VERBOSI
TY AND SEVERITY
2) JRST ERRNXT ;[1174] DONE
2)16 ;PRINT A NEW LINE. THIS PRINTS A CRLF FOLLOWED BY THE RIGHT IND
ENTATION FOR THE
2) ;DESTINATION. FOR A REAL LOG FILE, THIS INCLUDES THE TIME STA
MP PLUS LEVEL,
2) ;SEVERITY AND MESSAGE PREFIX. FOR A REAL TERMINAL, THIS INCLUDE
S A TAB FOR NOW,
2) ;BUT SHOULD OPTIONALLY BE 2 SPACES IF LINK EVER LOOKS AT THE JOB
'S MESSAGE BITS.
2) ERNLN: MOVEI T1,[ASCIZ /
2) /] ;[1174] INDENT PAST TIME STAMP I
N LOG FILE
2) SKIPE LOGSUB ;[1174] REAL LOG FILE?
2) PUSHJ P,.TSTRG## ;[1174] YES--PRINT IT TO JUST LO
G FILE
2) SKIPN LOGTTY ;[1174] NOW, OUTPUT GOING TO TER
Digital Equipment Corporation 28-AUG-79 Page 109
PCO Log Report
MINAL?
2) SKIPG LOGSUB ;[1174] ..
2) SKIPA ;[1174] YES
2) JRST ERRNXT ;[1174] NO--DONE
2) SKIPL LOGTTY ;[1174] TERMINAL A LOG FILE?
2) JRST ERNLN1 ;[1174] NO--DO IT THE HARD WAY
2) MOVEI T1,[ASCIZ /
2) /] ;[1174] YES--LOWSUB ALREADY POIN
TS TO TTYIT
2) PUSHJ P,.TSTRG## ;[1174] SEND NEW LINE AND INDENT
ATION
2) JRST ERRNXT ;[1174] DONE
2) ERNLN1: MOVE T1,TTYSUB ;[1174] NEW LINE ON TERMINAL--SE
T TO JUST TERMINAL
2) PUSHJ P,.TYOCH## ;[1174] ..
2) PUSH P,T1 ;[1174] SAVE LOG FILE ROUTINE
2) MOVEI T1,[ASCIZ /
2) /] ;[1174] JUST A TAB FOR NOW
2) PUSHJ P,.TSTRG## ;[1174] ..
2) POP P,T1 ;[1174] RESTORE LOG FILE ROUTINE
2) PUSHJ P,.TYOCH## ;[1174] ..
2) JRST ERRNXT ;[1174] DONE
2) ;RELATIVE POINTER TO TRIPLET(S) IN LS AREA.
2) IFN .NWBLK,<
**************
1)19 SUBTTL USEFUL SUBROUTINES
1) ;ROUTINE CHKLVL - CHECKS THE MESSAGE TO SEE IF IT SHOULD
1) ;GO TO LOG FILE, TTY, OR BOTH.
1) ;ALSO OUTPUTS TIME STAMP AND EITHER % OR ? IF REQUIRED
1) ;ENTER WITH LOGSUB AND LOGTTY SET UP AS
1) ;LOGSUB NON-ZERO IF LOG DEVICE EXISTS AND IS NOT TTY
1) ;LOGTTY = -1 IF LOG DEVICE IS TTY
1) ;CHKLVL CHANGES THESE TO BE
1) ;LOGSUB <-1,,NON-ZERO> IF BOTH LOG AND TTY OUTPUT REQUIRED
1) ;LOGTTY <0,,NON-ZERO> IF TTY BUT NOT LOG AND TTY NOT = LOG
1) CHKLVL: LDB T1,LVLPTR ;GET LIST LEVEL
****
2)17 ;EXECUTE AN INSTRUCTION. THIS IS USEFUL WHEN THE SET-UP PERFOR
MED BY LNKLOG IS
2) ;DESIRED, BUT A COMPLEX MESSAGE IS NEEDED.
2) ERXCT: XCT (T1) ;[1174] EXECUTE THE INSTRUCTION
2) JRST ERRNXT ;[1174] NON-SKIP--CONTINUE NORMA
L FLOW
2) AOS UUOTRAP ;[1174] SKIP--SKIP NEXT .ETC.
2) JRST ERRNXT ;[1174] DONE
2) ;BLANK LINE IN THE LOG FILE. THIS IS USEFUL FOR SEPARATING SEC
TIONS OF THE LOG
2) ;FILE, AS BETWEEN OVERLAY LINKS.
2) ERBKL: SKIPE LOGSUB ;[1174] REAL LOG FILE?
Digital Equipment Corporation 28-AUG-79 Page 110
PCO Log Report
2) PUSHJ P,.TCRLF## ;[1174] YES--SEND A CRLF
2) JRST ERRNXT ;[1174] DONE
2) ;PRINT TODAY'S DATE.
2) ERDAT: OUTVIA .TDATN## ;[1174] PRINTS TODAY'S DATE
2) JRST ERRNXT ;[1174] DONE
2) ;NO OPERATION. THIS FUNCTION IS GOOD FOR NOTHING.
2) ERNOP: JRST ERRNXT ;[1174] DONE
2)18 SUBTTL USEFUL SUBROUTINES
2) ;CHKLVL CHECKS TO SEE IF THE CURRENT MESSAGE SHOULD GO
TO LOG FILE, THE
2) ;TERMINAL, OR BOTH. IF THE MESSAGE IS DESTINED TO THE LOG FILE,
A TIME STAMP IS
2) ;PRINTED, AND IF THE MESSAGE IS DESTINED FOR THE TERMINAL THEN
THE PROPER ERROR
2) ;CHARACTER ("?", "%" OR "[") PLUS THE LNK??? PREFIX IS PRINTED.
2) ;
2) ;CALL:
2) ; LOGSUB/ NON-ZERO IF REAL NON-CONTROLLING TERMINAL LOG FI
LE
2) ; LOGTTY/ -1 IF LOG FILE IS THE CONTROLLING TERMINAL
2) ;SKIP RETURNS IF FIRST LINE MESSAGE SHOULD REALLY BE PRINTED SOM
EWHERE, WITH:
2) ; LOGSUB/ <-1,,NON-ZERO> IF BOTH LOG AND TERMINAL OUTPUT R
EQUIRED
2) ; LOGTTY/ <0,,NON-ZERO> IF TERMINAL BUT NOT LOG FILE OUTPU
T REQUIRED
2) ; PRTMSG/ -1: PRINT NOTHING; 0: ONLY PREFIX; 1: PRINT FIRS
T LINE TEXT
2) ; P1/ <ADDRESS OF FIRST LINE TEXT>
2) CHKLVL: LDB T1,LVLPTR ;GET LIST LEVEL
**************
1)19 JRST [AOS (P) ;SKIP RET
1) JRST CHKLV4] ;OUTPUT % OR ? AND CODE
1) SKIPN LOGSUB ;DO WE REALLY HAVE A LOG DEVICE?
1) JRST CHKLV2 ;NO, JUST TRY TTY
1) CHKLV1: AOS (P) ;SET FOR SKIP RETURN
1) PUSHJ P,TSTAMP ;PUT TIME STAMP ON LOG FILE
****
2)18 JRST [MOVEI T1,1 ;[1174] POSITIVE FOR FIR
ST LINE
2) MOVEM T1,PRTMSG ;[1174] ..
2) JRST CHKLV4] ;OUTPUT [, % OR ? AND CO
DE
2) SKIPN LOGSUB ;DO WE REALLY HAVE A LOG DEVICE?
2) JRST CHKLV2 ;NO, JUST TRY TTY
2) ;HERE FOR A REAL NON-CONTROLLING TERMINAL LOG FILE. PRINT THE T
IME STAMP IN THE
2) ;LOG FILE ONLY. THEN SEE IF THE TERMINAL SHOULD SEE THE MESSAG
E TOO. IF SO,
Digital Equipment Corporation 28-AUG-79 Page 111
PCO Log Report
2) ;PRINT THE PREFIX THERE AND CAUSE THE OUTVIA MACRO TO PRINT ALL
TEXT TO BOTH.
2) MOVEI T1,1 ;[1174] MARK THAT WE SHOULD PRIN
T THE MESSAGE
2) MOVEM T1,PRTMSG ;[1174] ..
2) PUSHJ P,TSTAMP ;PUT TIME STAMP ON LOG FILE
**************
1)19 PUSHJ P,SEVTST ;USE TTY TO OUTPUT % OR ?
1) POP P,T1 ;GET OUTPUT ROUTINE BACK
****
2)18 PUSHJ P,SEVTST ;USE TTY TO OUTPUT [, % OR ?
2) POP P,T1 ;GET OUTPUT ROUTINE BACK
**************
1)20 ;HERE WHEN NO LOG DEVICE. CHECK FOR TTY OUTPUT.
1) CHKLV2: LDB T1,LVLPTR ;GET ERROR LEVEL
1) CAMGE T1,ERRLVL ;TO GO TO TTY?
1) CPOPJ: POPJ P, ;NOTHING TO DO AT ALL
1) AOS (P) ;SKIP RETURN
1) SKIPE LOGTTY ;LOG = TTY?
1) JRST CHKLV4 ;YES, JUST PRINT CODE AND RETURN
1) CHKLV3: HRRZ T1,LOWSUB ;[605] SET FOR TTY OUTPUT ONLY
1) PUSHJ P,.TYOCH ;GET OLD RETURN
1) HRRZM T1,LOGTTY ;STORE OLD RETURN
1) CHKLV4: PUSHJ P,SEVTST ;OUTPUT % OR ?
1) CHKLV5: MOVE T1,(P1) ;GET CODE
1) TRZ T1,<BYTE (7) 0,0,0,177,177>
1) MOVEM T1,ERRCOD ;INCASE MORE MESSAGE REQUIRED
1) MOVE T1,VERLVL ;IF /VER:SHORT
1) SOJE T1,CHKLV6 ;DON'T OUTPUT SPACE AFTER 3 CHAR
S
1) HRRZ T1,P1 ;GET ERROR CODE ADDRESS
1) OUTVIA .TSTRG##
1) AOJA P1,CPOPJ ;RETURN WITH P1 POINTING TO REST
OF MESS
1) CHKLV6: MOVEI T1,ERRCOD ;JUST 3 CHARS
1) OUTVIA .TSTRG##
1) AOJA P1,CPOPJ
1)21 ;ROUTINE SEVTST CHECKS ERROR FOR FATAL OR NOT
1) ;AND OUTPUTS EITHER % OR ? ON TTY ONLY
1) SEVTST: LDB T2,SEVPTR ;GET SEVERITY
****
2)19 ;HERE WHEN THERE IS NO REAL LOG FILE, OR THE MESSAGE TO IT I
S CUT OFF DUE TO
2) ;/LOGLEVEL:. CHECK FOR TERMINAL OUTPUT. IF THE MESSAGE SHOULD
GO THERE, CHECK
2) ;FOR THE SPECIAL CASE OF THE TERMINAL BEING THE LOG FILE (TO PRE
VENT TIME STAMPS
2) ;ON THE TERMINAL) THEN PRINT THE ERROR CHARACTER AND THE
MESSAGE PREFIX.
2) ;OTHERWISE, GIVE NON-SKIP RETURN SINCE NOTHING SHOULD GET PRINTE
D. NOTE THAT THE
Digital Equipment Corporation 28-AUG-79 Page 112
PCO Log Report
2) ;PREFIX MUST END WITH A TAB SO THAT MESSAGES WITH IMBEDDED TABS
LOOK THE SAME ON
2) ;THE TERMINAL AND IN THE LOG FILE.
2) CHKLV2: LDB T1,LVLPTR ;GET ERROR LEVEL
2) CAMGE T1,ERRLVL ;TO GO TO TTY?
2) JRST [SETOM PRTMSG ;[1174] NO--REMEMBER NOT
HING TO DO
2) JRST CHKLV6] ;[1174] GO RETURN
2) MOVEI T1,1 ;[1174] YES--THEN REMEMBER SOMET
HING TO PRINT
2) MOVEM T1,PRTMSG ;[1174] ..
2) SKIPE LOGTTY ;LOG = TTY?
2) JRST CHKLV4 ;YES, JUST PRINT CODE AND RETURN
2) HRRZ T1,LOWSUB ;[1174] SET FOR TTY OUTPUT ONLY
2) PUSHJ P,.TYOCH ;GET OLD RETURN
2) HRRZM T1,LOGTTY ;STORE OLD RETURN
2) ;HERE WHEN LOG FILE IS THE USER'S TERMINAL.
2) CHKLV4: PUSHJ P,SEVTST ;OUTPUT [, % OR ?
2) ;HERE TO PRINT THE MESSAGE PREFIX TO POTENTIALLY BOTH THE USE
R'S TERMINAL AND
2) ;THE LOG FILE.
2) CHKLV5: MOVE T1,(P1) ;[1174] GET MESSAGE PREFIX
2) MOVEM T1,ERRCOD ;SAVE IN CASE LONG MESSAGE REQUI
RED LATER
2) MOVEI T1,ERRCOD ;[1174] PRINT THE PREFIX
2) OUTVIA .TSTRG## ;[1174] ..
2) MOVE T1,VERLVL ;[1174] SEE IF /VERBOSITY:SHORT
2) SOJE T1,[SETZM PRTMSG ;[1174] YES--NO FIRST LI
NE MSG
2) JRST CHKLV6] ;[1174] GO RETURN
2) MOVX T1,.CHTAB ;[1174] PRINT TAB AFTER PREFIX
2) OUTVIA .TCHAR## ;[1174] ..
2) CHKLV6: ADDI P1,1 ;[1174] POINT TO BEGINNING OF FI
RST LINE TEXT
2) SKIPLE PRTMSG ;[1174] SHOULD FIRST LINE BE PRI
NTED?
2) CPOPJ1: AOS (P) ;[1174] YES--SKIP RETURN
2) CPOPJ: POPJ P, ;[1174] NO--NON-SKIP RETURN
2)20 ;SEVTST PRINTS THE PROPER ERROR CHARACTER [, % OR ? BASED
ON THE MESSAGE'S
2) ;ASSIGNED SEVERITY AND THE USER'S /SEVERITY: SWITCH. IF THE MES
SAGE IS FATAL,
2) ;CLEAR TYPE-AHEAD FIRST. FINALLY, PRINT THE FIRST PART OF THE
MESSAGE PREFIX.
2) ;SEVTST ASSUMES THAT IT WILL ONLY PRINT TO THE USER'S TERMINAL.
2) SEVTST: LDB T2,SEVPTR ;GET SEVERITY
**************
1)22 LDB T1,LVLPTR ;GET PRINT LEVEL
****
Digital Equipment Corporation 28-AUG-79 Page 113
PCO Log Report
2)21 PUSHJ P,.TSPAC## ;[1174] ANOTHER SPACE
2) LDB T1,LVLPTR ;GET PRINT LEVEL
**************
1)22 LDB T1,SEVPTR ;ERR LEVEL
****
2)21 PUSHJ P,.TSPAC## ;[1174] ANOTHER SPACE
2) LDB T1,SEVPTR ;ERR LEVEL
**************
1)22 PJRST .TSPAC## ;FINISH WITH A SPACE
1)23 ;UNSTCK REMOVES TOP DATA ITEM FROM STACK
1) ;AND PUT RH IN P1 AND T1
1) UNSTCK: POP P,T3 ;GET RETURN ADDRESS
1) POP P,T2 ;MAIN RETURN
1) POP P,T1 ;WHAT WE WANT
1) PUSH P,T2 ;RESTACK
1) HRR P1,T1 ;GET A COPY
1) JRSTF @T3 ;RETURN
1) ;**;[1144] Replace @VERPTR DZN 16-Feb-79
****
2)21 MOVEI T1,[ASCIZ / /];[1174] FINISH WITH 3 SPACES
2) PJRST .TSTRG## ;[1174] ..
2)22 ;**;[1144] Replace @VERPTR DZN 16-Feb-79
**************
1)24 ;.TEBLK --TYPE LOOKUP/ENTER/RENAME BLOCK (NOT SAME AS .TFBLK##)
****
2)23 SUBTTL EXTENSIONS TO SCAN'S .TOUTS SUBROUTINES
2) ;.TEBLK --TYPE LOOKUP/ENTER/RENAME BLOCK (NOT SAME AS .TFBLK##)
**************
1)26 ;STANDARD ERROR MESSAGES - USED EVERYWHERE
1) .ERFEE::ASCIZ \FEE \
1) .ASCIZ <ENTER error >;;[564]
1) .ERFLE::ASCIZ \FLE \
1) .ASCIZ <LOOKUP error >
1) .ERFRE::ASCIZ \FRE \
1) .ASCIZ <RENAME error >
1) .ERGSE::ASCIZ \GSE \
1) .ASCIZ <GETSEG error >
1) .ERNED::ASCIZ \NED \
1) .ASCIZ <Non-existent device >
1) .ERIFD::ASCIZ \IFD \
1) .ASCIZ <INIT failure for device >
1) .ERR. (,0,V%L,L%F,S%F,,<(2) directory full >)
****
2)25 SUBTTL COMMON .ERR. SUBROUTINES
2) ;**;[1174] Replace @.ERFEE DZN 30-May-79
2) .ERFEE::ASCIZ \FEE\
2) .ASCIZ <ENTER error >;;[564]
2) .ERFLE::ASCIZ \FLE\
2) .ASCIZ <LOOKUP error >
Digital Equipment Corporation 28-AUG-79 Page 114
PCO Log Report
2) .ERFRE::ASCIZ \FRE\
2) .ASCIZ <RENAME error >
2) .ERGSE::ASCIZ \GSE\
2) .ASCIZ <GETSEG error >
2) .ERNED::ASCIZ \NED\
2) .ASCIZ <Non-existent device >
2) .EROFD::ASCIZ \OFD\
2) .ASCIZ <OPEN failure for device >
2) .EREIF::ASCIZ \EIF\
2) .ASCIZ <Error for input file >
2) .ERCNW::ASCIZ \CNW\
2) .ASCIZ <Code not yet written at >
2)26 SUBTTL DEFERRED SEVERITY AND LEVEL TABLE FOR INDEXED FILE ERROR
S
2) .ERR. (,0,V%L,L%F,S%F,,<(2) directory full >)
**************
1)26 LRELEN==.-LRETAB
1) LREDEF: .ERR. (,0,V%L,L%F,S%F,,<) Unknown cause >)
1) .ERCNW::ASCIZ \CNW \
1) .ASCIZ <Code not yet written at >
1)27 LOGLIT:
1) END
****
2)26 ;**;[1174] Insert before LRELEN DZN 30-May-79
2) .ERR. (,0,V%L,L%F,S%F,,<(32) RUN not allowed when not
logged in >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(33) file still has outstandin
g ENQ/DEQ locks >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(34) bad EXE file directory fo
rmat >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(35) EXE format files must hav
e .EXE extension >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(36) EXE file directory is too
big >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(37) network capability exceed
ed for TSK: >) ;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(40) task is not available >)
;[1174]
2) .ERR. (,0,V%L,L%F,S%F,,<(41) undefined network node fo
r TSK: >) ;[1174]
2) LRELEN==:.-LRETAB ;[1174] **MUST** AGREE WITH LNKERR
2) LREDEF: .ERR. (,0,V%L,L%F,S%F,,<) Unknown cause >)
2)27 SUBTTL COMMON .ETC. SUBROUTINES
2) ;PRINT 'DETECTED IN MODULE [SYMBOL] FROM FILE [FILE]' IF WE'RE C
URRENTLY LOADING
2) ;A MODULE. CALLED FROM ALL ERROR MESSAGES THAT POTENTIALLY
PERTAIN TO A
2) ;PATICULAR MODULE.
2) .ETIMF::.ETC. (XCT,.EC,,,,<[TRNN FL,R.LOD]>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 115
PCO Log Report
2) .ETC. (RTN) ;[1174] NO MODULE, MAYBE A SWITC
H
2) .ETC. (NLN,.EC) ;[1174]
2) .ETC. (STR,.EC,,,,,<Detected in module >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,PRGNAM) ;[1174]
2) .ETC. (STR,.EC,,,,,< from file >) ;[1174]
2) .ETC. (FSP,.EC,,,,DC) ;[1174]
2) .ETC. (RTN) ;[1174]
2) IFN .NWBLK,<
2) .ETNMF::.ETC. (XCT,.EC,,,,<[TRNN FL,R.LOD]>) ;[1174]
2) .ETC. (RTN) ;[1174] NO MODULE, MAYBE A SWITC
H
2) .ETC. (NLN,.EC) ;[1174]
2) .ETC. (STR,.EC,,,,,<Error detected in module >) ;[1174
]
2) .ETC. (LSP,.EC!.EP,,,,NAMPTR) ;[1174]
2) .ETC. (STR,.EC,,,,,< from file >) ;[1174]
2) .ETC. (FSP,.EC,,,,DC) ;[1174]
2) .ETC. (RTN) ;[1174]
2) > ;[1174] END OF IFN .NWBLK
2) IFN FTOVERLAY,<
2) ;PRINT ' LINK NUMBER n[, NAME x]'.
2) .ETLNN::.ETC. (STR,.EC,,,,,< link number >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,CS.NUM) ;[1174]
2) .ETC. (XCT,.EC,,,,<[SKIPN CS.LNM]>) ;[1174]
2) .ETC. (RTN) ;[1174] DON'T PRINT NAME IF NONE
2) .ETC. (STR,.EC,,,,,< name >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,CS.LNM) ;[1174]
2) .ETC. (RTN)
2) >
2)28 ;PRINT SYMBOLS WITH VALUES. THIS IS CALLED FROM VARIOUS PLACES,
SUCH AS /ENTRY,
2) ;/REQUEST, /UNDEFINED. THIS IS A LOOP THAT PRINTS ALL APPLICABL
E SYMBOLS UNTIL
2) ;DONE.
2) ;
2) ;CALL:
2) ; W1/ SIXBIT SYMBOL NAME
2) ; W2/ OCTAL SYMBOL VALUE
2) ; NXTGLB/ <PUSHJ P,LOCN>, WHERE LOCN IS NEXT SYMBOL ROUTIN
E
2) ;W3 IS SAVED AND CAN BE USED FOR DATA. THE ROUTINE REFERENCED
IN NXTGLB SHOULD
2) ;GIVE A NON-SKIP RETURN IF THERE ARE NO MORE SYMBOLS. OTHERWISE
, IT SHOULD GIVE
2) ;A SKIP RETURN WITH W1-W3 SET UP AS ABOVE.
2) .ETSAV::.ETC. (NLN,.EC) ;[1174] NEW LINE FOR NEXT SYMBOL
2) .ETC. (SBX,.EC!.EP,,,,W1) ;[1174] PRINT SYMBOL NAME
2) .ETC. (ASC,.EC,,,,.CHTAB) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W2) ;[1174] PRINT SYMBOL VALUE
2) .ETC. (XCT,.EC,,,,NXTGLB) ;[1174] FETCH NEXT SYMBOL
Digital Equipment Corporation 28-AUG-79 Page 116
PCO Log Report
2) .ETC. (JMP,.EC,,,,.ETDON) ;[1174] NO MORE LEFT
2) .ETC. (JMP,.EC,,,,.ETSAV) ;[1174] LOOP FOR THIS ONE
2) .ETDON::.ETC. (NOP) ;[1174] DONE
2) POPJ P, ;[1174] ALL DONE
2)29 SUBTTL THE END
2) LOGLIT:
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 117
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 2146 08-Jun-1979
File 2) LINK:LNKLOW.MAC[10,645063] created: 1804 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) LOC 137
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) LOC 137
**************
1)3 SUBTTL STORAGE
****
2)2 ;1174 Add NXTGLB, RTNPC and ERCHAN.
2)3 SUBTTL STORAGE
**************
1)3 PATLOC: BLOCK 1 ;[1172] LOCATION OF PAT.. AREA
1)4 SUBTTL PER SEGMENT DATA
****
2)3 PATLOC::BLOCK 1 ;[1172] LOCATION OF PAT.. AREA
2)4 SUBTTL PER SEGMENT DATA
**************
1)6 IFN .NWBLK,<
****
2)6 ;**;[1174] Insert after ENTPTR DZN 5-Jun-79
2) NXTGLB::BLOCK 1 ;[1174] PUSHJ P,LOCN FOR /ENTRY,
/U, ETC.
2) IFN .NWBLK,<
**************
1)13 NEGOFF==:400
****
2)12 RTNPC:: BLOCK 1 ;[1174] ADDR OF LAST JMP .ETC. F
OR RTN
2) ERCHAN::BLOCK 1 ;[1174] CHANNEL FOR FILE-RELATED
ERRORS
2) PRTMSG::BLOCK 1 ;[1174] FLAG FOR HOW MUCH OF MES
SAGE TO PRINT
2)13 NEGOFF==:400
**************
Digital Equipment Corporation 28-AUG-79 Page 118
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 2056 08-May-1979
File 2) LINK:LNKMAP.MAC[10,645063] created: 1656 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 8-May-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1164 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL HEADER LINES
1) LNKMAP: JFCL .+1 ;INCASE CCL
1) .ERR. (MS,0,V%L,L%I,S%I,MPS,<MAP segment>)
1) ZAPTMP ;CLEAR DATA AREA
****
2)3 ;1174 Label and clean up all error messages.
2)4 SUBTTL HEADER LINES
2) LNKMAP: JFCL .+1 ;INCASE CCL
2) ;**;[1174] Replace @LNKMAP+1L DZN 31-May-79
2) E$$MPS::.ERR. (MS,0,V%L,L%I,S%I,MPS,<MAP segment>) ;[1174]
2) ZAPTMP ;CLEAR DATA AREA
**************
1)8 PUSHJ P,NO.COR##
1) PUSHJ P,LOGBCK ;BUT ALL OTHERS IN MAP
****
2)8 PUSHJ P,E$$MEF## ;[1174]
2) PUSHJ P,LOGBCK ;BUT ALL OTHERS IN MAP
**************
1)9 PJRST ER.IOV##] ;GO REPORT INPUT ERROR
1) ILDB T1,P1 ;GET FIRST #
****
2)9 ;**;[1174] Replace @**somewhere**+1P9L DZN 1-Jun-79
2) PJRST E$$IOV##] ;[1174] GO REPORT INPUT
ERROR
2) ILDB T1,P1 ;GET FIRST #
**************
1)9 PJRST ER.IOV##] ;INPUT ERROR
1) ROT T1,-1 ;USUAL WAY TO ADDRESS 1/2 WORD
****
2)9 ;**;[1174] Replace @OVMAP6+9L DZN 1-Jun-79
2) PJRST E$$IOV##] ;[1174] INPUT ERROR
2) ROT T1,-1 ;USUAL WAY TO ADDRESS 1/2 WORD
**************
1)11 PUSHJ P,ER.IOV## ;INPUT ERROR
1) MOVEM T1,MAPVER
Digital Equipment Corporation 28-AUG-79 Page 119
PCO Log Report
****
2)11 ;**;[1174] Replace @RDVER+15L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) MOVEM T1,MAPVER
**************
1)11 PUSH P,[LC] ;CHAN #
1) .ERR. (ST,,V%L,L%F,S%F,ILC)
****
2)11 ;**;[1174] Replace @RDVER1+23L DZN 31-May-79
2) E01ILC::PUSH P,[LC] ;[1174] CHAN #
2) .ERR. (ST,,V%L,L%F,S%F,ILC)
**************
1)23 JRST TTLTTF ;NO, MUST BE ERROR
1) ;CONTINUED ON NEXT PAGE
****
2)23 ;**;[1174] Replace @TTLBLK+33L DZN 31-May-79
2) JRST E$$TTF ;[1174] NO, MUST BE ERROR
2) ;CONTINUED ON NEXT PAGE
**************
1)32 TTLTTF: .ERR. (MS,,V%L,L%W,S%W,TTF,<Too many titles found>)
1) JRST NXTSYM ;IGNORE, BUT TRY TO COMPLETE MAP
****
2)32 ;**;[1174] Replace @TTLTTF DZN 31-May-79
2) E$$TTF::.ERR. (MS,,V%L,L%W,S%W,TTF,<Too many titles found>) ;[
1174]
2) JRST NXTSYM ;IGNORE, BUT TRY TO COMPLETE MAP
**************
1)34 PUSHJ P,NO.COR## ;CANNOT HAPPEN
1) PUSHJ P,LOGBCK ;RESTORE MAP DEVICE
****
2)34 PUSHJ P,E$$MEF## ;[1174] CANNOT HAPPEN
2) PUSHJ P,LOGBCK ;RESTORE MAP DEVICE
**************
1)39 PUSH P,[MC] ;ERROR, SAVE CHAN
1) .ERR. (ST,0,V%L,L%W,S%W,OEM,<Output error on MAP file,
file closed, job continuing>)
1) CLOSE MC,
****
2)39 ;**;[1174] Replace @MAPDMP+3L DZN 31-May-79
2) E$$OEM::PUSH P,[MC] ;ERROR, SAVE CHAN
2) .ERR. (ST,,V%L,L%W,S%W,OEM,<Output error on map file,
file closed, load continuing>) ;[1174]
2) CLOSE MC,
**************
1)54 .ERR. (MS,0,V%L,L%I,S%I,EMS,<End of MAP segment>)
1) ;**;[1100] Delete @MAPRET+2L DZN 23-May-78
****
2)54 ;**;[1174] Replace @MAPRET+1L DZN 31-May-79
2) E$$EMS::.ERR. (MS,0,V%L,L%I,S%I,EMS,<End of MAP segment>) ;[11
Digital Equipment Corporation 28-AUG-79 Page 120
PCO Log Report
74]
2) ;**;[1100] Delete @MAPRET+2L DZN 23-May-78
**************
Digital Equipment Corporation 28-AUG-79 Page 121
PCO Log Report
[FILCOM]
File 1) LINK:LNKNEW.MAC[30,4507] created: 1437 07-Mar-1978
File 2) LINK:LNKNEW.MAC[10,645063] created: 1657 10-Jun-1979
1)1 TITLE LNKNEW - LOAD NEW BLOCKS MODULE FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LNKNEW - LOAD NEW BLOCKS MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKNEW
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKNEW
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)2 SUBTTL REVISION HISTORY
****
2)1 SALL
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL BLOCK DISPATCH TABLES
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL BLOCK DISPATCH TABLES
**************
1)4 JRST T.ERR## ;NO, NOT YET AVAILABLE
1) TRNE FL,R.LIB ;IN LIBRARY SEARCH MODE?
****
2)4 JRST E$$IRB## ;[1174] NO, NOT YET AVAILABLE
2) TRNE FL,R.LIB ;IN LIBRARY SEARCH MODE?
**************
1)6 T.1001==T.ERR## ;ILLEGAL IF NOT THERE
1) > ;END IFE .NWBLK
****
2)6 T.1001==E$$IRB## ;[1174] ILLEGAL IF NOT T
HERE
2) > ;END IFE .NWBLK
Digital Equipment Corporation 28-AUG-79 Page 122
PCO Log Report
**************
1)8 T.1002=T.ERR## ;ERROR UNLESS FIXED
1) > ;END IFE .NWBLK
****
2)8 T.1002==E$$IRB## ;[1174] ERROR UNLESS FIXED
2) > ;END IFE .NWBLK
**************
1)12 T.1003==T.ERR##
1) >
****
2)12 T.1003==E$$IRB##
2) >
**************
1)15 JRST T.ERR## ;SO WARN THE USER
1) ;HERE IF /SEG:HIGH. MAKE SURE HIGH SEG EXISTS, THEN FAKE THE RC
TABLES.
****
2)15 JRST E$$IRB## ;[1174] SO WARN THE USER
2) ;HERE IF /SEG:HIGH. MAKE SURE HIGH SEG EXISTS, THEN FAKE THE RC
TABLES.
**************
1)20 JRST TELLOD ;YES, BROADCAST ITS NAME AND RET
URN
1) PUSH P,W2 ;SAVE OVER CALLS TO LNKOLD
****
2)20 ;**;[1174] Replace @NAMRED+1L DZN 31-May-79
2) JRST E01LMN ;[1174] YES, BROADCAST ITS NAME
AND RETURN
2) PUSH P,W2 ;SAVE OVER CALLS TO LNKOLD
**************
1)20 TELLOD: .ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;TELL WHAT WE'RE
LOADING
1) .ETC. (LSP,.EP,,,,NAMPTR)
****
2)20 ;**;[1174] Replace @TELLOD DZN 31-May-79
2) E01LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] TELL WHAT WE'R
E LOADING
2) .ETC. (LSP,.EP,,,,NAMPTR)
**************
1)23 JRST T1042E ;ERROR - NOT ENOUGH DATA WORDS
1) T1042A: MOVEI T2,R.LEN ;LENGTH OF A REQUEST/REQUIRE BLO
CK
****
2)23 ;**;[1174] Replace @T.1043+3L DZN 1-Jun-79
2) JRST E$$IRR ;[1174] ERROR - NOT ENOUGH DATA
WORDS
2) T1042A: MOVEI T2,R.LEN ;LENGTH OF A REQUEST/REQUIRE BLO
CK
**************
Digital Equipment Corporation 28-AUG-79 Page 123
PCO Log Report
1)23 JRST T1042E ;ERROR
1) MOVEM W1,R.PPN(T1) ;REMEMBER IT
****
2)23 ;**;[1174] Replace @T.1042A+7L DZN 1-Jun-79
2) JRST E$$IRR ;[1174] ERROR
2) MOVEM W1,R.PPN(T1) ;REMEMBER IT
**************
1)23 JRST T1042E ;NONE THERE, COUNT LIED
1) MOVEM W1,R.SFD(T2) ;STORE THIS SFD
****
2)23 ;**;[1174] Replace @T1042L+1L DZN 1-Jun-79
2) JRST E$$IRR ;[1174] NONE THERE, COUNT LIED
2) MOVEM W1,R.SFD(T2) ;STORE THIS SFD
**************
1)23 T1042E: .ERR. (MS,.EC,V%L,L%W,S%W,IPL,<Illegal request block i
n module >)
1) TYPFIL: .ETC. (LSP,.EP!.EC,,,,NAMPTR)
1) .ETC. (STR,.EC,,,,,< from >)
1) .ETC. (FSP,,,,,DC)
1) JRST LOAD## ;NOT ALWAYS A FATAL ERROR
****
2)23 ;**;[1174] Replace @T1042E DZN 1-Jun-79
2) E$$IRR::.ERR. (MS,.EC,V%L,L%W,S%W,IRR,<Illegal request/require
block>) ;[1174]
2) .ETC. (JMP,,,,,.ETNMF##) ;[1174]
2) JRST LOAD## ;NOT ALWAYS A FATAL ERROR
**************
1)26 PUSHJ P,NO.COR## ;CAN'T???
1) JRST T1044P ;NOW GO PUT THE SYMBOL INTO THE
FILE
****
2)26 PUSHJ P,E$$MEF## ;[1174] CAN'T???
2) JRST T1044P ;NOW GO PUT THE SYMBOL INTO THE
FILE
**************
1)27 T.1060: JRST T.ERR## ;SHOULD PUT INFO IN LS FOR MAP
1) > ;END IFN .NWBLK
****
2)27 T.1060: JRST E$$IRB## ;[1174] SHOULD PUT INFO IN LS FO
R MAP
2) > ;END IFN .NWBLK
**************
1)32 JRST TOSHRT ;WORD COUNT WAS WRONG
1) AOBJN WC,DRELN ;GO RELOCATE UNLESS NEED NEW SUB
-BLOCK
****
2)32 ;**;[1174] Replace @D.REL1+3L DZN 1-Jun-79
2) JRST E$$PEF ;[1174] WORD COUNT WAS WRONG
2) AOBJN WC,DRELN ;GO RELOCATE UNLESS NEED NEW SUB
Digital Equipment Corporation 28-AUG-79 Page 124
PCO Log Report
-BLOCK
**************
1)32 ; JRST RELERR ;RELOCATED TO SEGMENT NOT SET UP
1) ;********* ADD MORE CODE HERE ********************************
1) RELERR: .ERR. (MS,.EC,V%L,L%F,S%F,IRC,<Illegal relocation coun
ter in module >)
1) .ETC. (JMP,,,,,TYPFIL)
1) > ;END IFN .NWBLK
****
2)32 ;**;[1174] Replace @DRELN+4L DZN 1-Jun-79
2) ; JRST E$$IRC ;[1174] RELOCATED TO SEGMENT NOT
SET UP
2) ;********* ADD MORE CODE HERE ********************************
2) E$$IRC::.ERR. (MS,.EC,V%L,L%F,S%F,IRC,<Illegal relocation coun
ter>) ;[1174]
2) .ETC. (JMP,,,,,.ETNMF##)
2) > ;END IFN .NWBLK
**************
1)33 JRST TOSHRT ;PREMATURE END OF FILE
1) AOJA WC,CPOPJ1 ;COUNT WORD & GIVE GOOD RETURN
****
2)33 ;**;[1174] Replace @D.GET1+3L DZN 1-Jun-79
2) JRST E$$PEF ;[1174] PREMATURE END OF FILE
2) AOJA WC,CPOPJ1 ;COUNT WORD & GIVE GOOD RETURN
**************
1)33 TOSHRT: .ERR. (MS,.EC,V%L,L%F,S%W,PEF,<Premature end of file i
n >)
1) .ETC. (FSP,,,,,DC)
****
2)33 ;**;[1174] Replace @TOSHRT DZN 1-Jun-79
2) E$$PEF::.ERR. (MS,.EC,V%L,L%F,S%W,PEF,<Premature end of file f
rom file >) ;[1174]
2) .ETC. (FSP,,,,,DC)
**************
Digital Equipment Corporation 28-AUG-79 Page 125
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 2159 22-May-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1406 11-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 23-May-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 10-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
****
2)1 ;COPYRIGHT (C) 1973, 1979
2) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
**************
1)1 DECEVR==1170 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)2 SUBTTL REVISION HISTORY
****
2)1 SALL
2)2 SUBTTL REVISION HISTORY
**************
1)5 COMMENT \
****
2)4 ;1174 Label and clean up all error messages.
2)5 COMMENT \
**************
1)8 JRST T.ERR## ;NO, GIVE ERROR MESSAGE
1) HRREI T2,-<700+FDISPL>(T1) ;GET OFFSET TYPE
****
2)8 JRST E$$IRB## ;[1174] NO, GIVE ERROR MESSAGE
2) HRREI T2,-<700+FDISPL>(T1) ;GET OFFSET TYPE
**************
1)8 JRST T.ERR## ;NO, ILLEGAL
1)9 ;HERE IF IN LIBRARY SEARCH MODE - TEST FOR BLOCK TYPE 4, 6, 14
****
2)8 JRST E$$IRB## ;[1174] NO, ILLEGAL
2)9 ;HERE IF IN LIBRARY SEARCH MODE - TEST FOR BLOCK TYPE 4, 6, 14
**************
1)15 JUMPL P3,T1HSTL ;ERROR
1) CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
****
2)15 ;**;[1174] Replace @T.1H+4L DZN 1-Jun-79
2) JUMPL P3,E$$STL ;[1174] ERROR
Digital Equipment Corporation 28-AUG-79 Page 126
PCO Log Report
2) CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
**************
1)15 T1HSTL: .ERR. (MS,,V%L,L%F,S%F,STL,<High segment code too long
>)
1)16 ;HERE IF FIRST WORD IS A SYMBOL
****
2)15 ;**;[1174] Replace @T1HSTL DZN 1-Jun-79
2) E$$STL::.ERR. (MS,.EC,V%L,L%F,S%F,STL,<High segment code too l
ong>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)16 ;HERE IF FIRST WORD IS A SYMBOL
**************
1)16 JRST T.ERR## ;GIVE ERROR MESSAGE
1) PUSHJ P,R50T6 ;SIXBITIZE IT
****
2)16 JRST E$$IRB## ;[1174] GIVE ERROR MESSAGE
2) PUSHJ P,R50T6 ;SIXBITIZE IT
**************
1)17 .ERR. (MS,.EC,V%L,L%F,S%F,DSC,<Data store to common >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
****
2)17 ;**;[1174] Replace @T.1SE+2L DZN 1-Jun-79
2) E$$DSC::.ERR. (MS,.EC,V%L,L%F,S%F,DSC,<Data store to common >)
;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
**************
1)17 .ERR. (MS,.EC,V%L,L%F,S%F,DSL,<Data store to location
>)
1) T.1OVF: .ETC. (OCT,.EC!.EP,,,,P3)
****
2)17 ;**;[1174] Replace @T.1OVE+3L DZN 1-Jun-79
2) E$$DSL::.ERR. (MS,.EC,V%L,L%F,S%F,DSL,<Data store to location
>) ;[1174]
2) T.1OVF: .ETC. (OCT,.EC!.EP,,,,P3)
**************
1)17 .ETC. (STR,.EC,,,,,< for >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,.EC,,,,,< in >)
1) .ETC. (FSP,,,,,DC)
1) JRST T.0C ;GET RID OF BLOCK
1) T.1OVW: SOS LNKMAX ;PUT LINK # BACK
1) .ERR. (MS,.EC,V%L,L%F,S%W,DSL)
1) .ETC. (JMP,.EC,,,,T.1OVF)
****
2)17 ;**;[1174] Replace @T.1OVG+2L DZN 1-Jun-79
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) JRST T.0C ;GET RID OF BLOCK
2) T.1OVW: SOS LNKMAX ;PUT LINK # BACK
2) E01DSL::.ERR. (MS,.EC,V%L,L%F,S%W,DSL) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 127
PCO Log Report
2) .ETC. (JMP,.EC,,,,T.1OVF)
**************
1)17 .ERR. (MS,.EC,V%L,L%F,S%F,CNW)
1) .ETC. (STR,,,,,,<T.1UN+1>)
****
2)17 ;**;[1174] Replace @T.1UN+1L DZN 1-Jun-79
2) E01CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
2) .ETC. (STR,,,,,,<T.1UN+1>)
**************
1)20 T.2TAB::T.2R5U ; 0 - 00 NAME (SHOULD NEVER HAPP
EN)
1) SY.GS ; 1 - 04 GLOBAL DEFINITION
****
2)20 ;**;[1174] Replace @T.2TAB DZN 1-Jun-79
2) T.2TAB::E$$URC ;[1174] 0 - 00 NAME (SHOULD NEV
ER HAPPEN)
2) SY.GS ; 1 - 04 GLOBAL DEFINITION
**************
1)20 T.2R5U ; 4 - 20
1) SY.DGR ; 5 - 24 GLOBAL DEFINITION DEFER
ED RIGHT HALF
1) T.2R5U ; 6 - 30
1) T.2R5U ; 7 - 34
1) T.2R5U ;10 - 40
1) SY.GSS ;11 - 44 GLOBAL DEF. (SUPPRESSED
) ! LEFT DEFERED
1) SY.LSS ;12 - 50 LOCAL DEF. (SUPPRESSED)
1) T.2R5U ;13 - 54
1) SY.RQ ;14 - 60 GLOBAL REQUEST
1) SY.DGL ;15 - 64 GLOBAL DEFERED DEF (RH)
SUPP. ! LEFT HALF
1) T.2R5U ;16 - 70
1) ; T.2R5U ;17 - 74
1) T.2R5U: .ERR. (MS,.EC,V%L,L%F,S%I,URC,<Unknown radix-50 symbol
code >)
1) .ETC. (OCT,.EC!.EP,,,,P1)
****
2)20 E$$URC ;[1174] 4 - 20
2) SY.DGR ; 5 - 24 GLOBAL DEFINITION DEFER
ED RIGHT HALF
2) E$$URC ;[1174] 6 - 30
2) E$$URC ;[1174] 7 - 34
2) E$$URC ;[1174] 10 - 40
2) SY.GSS ;11 - 44 GLOBAL DEF. (SUPPRESSED
) ! LEFT DEFERED
2) SY.LSS ;12 - 50 LOCAL DEF. (SUPPRESSED)
2) E$$URC ;[1174] 13 - 54
2) SY.RQ ;14 - 60 GLOBAL REQUEST
2) SY.DGL ;15 - 64 GLOBAL DEFERED DEF (RH)
Digital Equipment Corporation 28-AUG-79 Page 128
PCO Log Report
SUPP. ! LEFT HALF
2) E$$URC ;[1174] 16 - 70
2) ; E$$URC ;[1174] 17 - 74
2) ;**;[1174] Replace @T.2R5U DZN 1-Jun-79
2) E$$URC::.ERR. (MS,.EC,V%L,L%F,S%I,URC,<Unknown radix-50 symbol
code >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,P1)
**************
1)20 .ETC. (STR,.EC,,,,,< in >)
1) .ETC. (SBX,.EC!.EP,,,,PRGNAM)
1) .ETC. (STR,.EC,,,,,< in >)
1) .ETC. (FSP,,,,,DC)
1) POPJ P, ;BUT CONTINUE
****
2)20 .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) POPJ P, ;BUT CONTINUE
**************
1)22 ;CODE INLINE FOR EXTRA SPEED SINCE LINK-10 SPENDS ABOUT 10% OF
1) ;ITS TIME IN THIS LOOP.
****
2)22 ;CODE INLINE FOR EXTRA SPEED SINCE LINK SPENDS ABOUT 10% OF
2) ;ITS TIME IN THIS LOOP.
**************
1)26 JRST T.5SER ;NO
1) MOVE T2,LSYM ;GET CURRENT VALUE
****
2)26 ;**;[1174] Replace @SY.BH+11L DZN 1-Jun-79
2) JRST E02SFU ;[1174] NO
2) MOVE T2,LSYM ;GET CURRENT VALUE
**************
1)27 JRST SY.DG2 ;[567] INCONSISTENT SYMBOL DEFIN
ITION
1) ;HERE TO PUT REQUEST IN GLOBAL TABLE
****
2)27 ;**;[1174] Replace @SY.DGR+11L DZN 1-Jun-79
2) JRST E$$ISD ;[1174] INCONSISTENT SYMBOL DEFI
NITION
2) ;HERE TO PUT REQUEST IN GLOBAL TABLE
**************
1)28 JRST SY.DG2 ;YES, SECOND PARTIAL DEFINITION
1) MOVEI T1,.L ;NEED 1 EXTRA TRIPLET
****
2)28 ;**;[1174] Replace @SY.DG1+6L DZN 1-Jun-79
2) JRST E$$ISD ;[1174] YES, SECOND PARTIAL DEFI
NITION
2) MOVEI T1,.L ;NEED 1 EXTRA TRIPLET
**************
1)28 SY.DG2: .ERR. (MS,.EC,V%L,L%W,S%W,ISD,<Inconsistent symbol def
inition for >)
Digital Equipment Corporation 28-AUG-79 Page 129
PCO Log Report
1) .ETC. (SBX,.EP,,,,W2)
1) SETZM LSTSYM ;SO WE IGNORE SYMBOL FIXUP FOLLO
WING
****
2)28 ;**;[1174] Replace @SY.DG2 DZN 1-Jun-79
2) E$$ISD::.ERR. (MS,.EC,V%L,L%W,S%W,ISD,<Inconsistent symbol def
inition for symbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) SETZM LSTSYM ;SO WE IGNORE SYMBOL FIXUP FOLLO
WING
**************
1)31 .ERR. (MS,,V%L,L%F,S%F,ESN)>
1) HRRZ W3,T2 ;POINT TO SYMBOL
****
2)31 ;[1174] Replace @SYADSS-2L DZN 1-Jun-79
2) E01ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
2) >
2) HRRZ W3,T2 ;POINT TO SYMBOL
**************
1)35 JRST SY.RUH ;NOT THE RIGHT SORT OF EXTENDED
TRIPLET
1) TXNN W1,S.FXP ;IS THIS THE ONE
****
2)35 ;**;[1174] Replace @SY.RUC+2L DZN 1-Jun-79
2) JRST E02CNW ;[1174] NOT THE RIGHT SORT OF EX
TENDED TRIPLET
2) TXNN W1,S.FXP ;IS THIS THE ONE
**************
1)35 SY.RUH: .ERR. (MS,.EC,V%L,L%F,S%F,CNW)
1) .ETC. (STR,,,,,,<SY.RUH>)
****
2)35 ;**;[1174] Replace @SY.RUH DZN 1-Jun-79
2) E02CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
2) .ETC. (STR,,,,,,<SY.RUH>)
**************
1)36 .ERR. (MS,.EC,V%L,L%F,S%F,HCL,<High segment code not a
llowed in an overlay link in module >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) T.3C:
****
2)36 ;**;[1174] Replace @T.3+5L DZN 1-Jun-79
2) E$$HCL::.ERR. (MS,.EC,V%L,L%F,S%F,HCL,<High segment code not a
llowed in an overlay link>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) T.3C:
**************
1)37 .ERR. (MS,0,V%L,L%I,S%I,SFU)
1) JRST LOAD## ;TRY TO CONTINUE
****
2)37 ;**;[1174] Replace @T.3SER+1L DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 130
PCO Log Report
2) E01SFU::.ERR. (MS,0,V%L,L%I,S%I,SFU) ;[1174]
2) JRST LOAD## ;TRY TO CONTINUE
**************
1)40 T.3TSO: .ERR. (MS,.EC,V%L,L%F,S%F,TSO,<Cannot load a two segme
nt module in one segment >)
1) .ETC. (FSP,0,,,,DC)
1)41 ;HERE IF LOW SEGMENT LENGTH GIVEN (FORTRAN-10)
****
2)41 ;HERE IF LOW SEGMENT LENGTH GIVEN (FORTRAN-10)
**************
1)41 PUSHJ P,T.3F ;NO, GIVE FATAL ERROR
1) HRRZM W1,SO.S2 ;OFFSET FOR RELOCATION
****
2)41 ;**;[1174] Replace @T.3L+2L DZN 1-Jun-79
2) PUSHJ P,E$$HSL ;[1174] NO, GIVE FATAL ERROR
2) HRRZM W1,SO.S2 ;OFFSET FOR RELOCATION
**************
1)42 JRST T.3F ;TOO LOW
1) MOVEI T1,.JBHDA ;[1170] SIZE OF VESTIGIAL JOBDAT
****
2)42 ;**;[1174] Replace @SETRC+12L DZN 1-Jun-79
2) JRST E$$HSL ;[1174] TOO LOW
2) MOVEI T1,.JBHDA ;[1170] SIZE OF VESTIGIAL JOBDAT
**************
1)44 PUSHJ P,NO.COR##
1) MOVNI T1,2*.IPS ;BUT LC.AB WAS INCREMENTED
****
2)44 PUSHJ P,E$$MEF## ;[1174]
2) MOVNI T1,2*.IPS ;BUT LC.AB WAS INCREMENTED
**************
1)44 T.3F: .ERR. (MS,,V%L,L%F,S%F,HSL,<Attempt to set high segmen
t origin too low>)
1)45 SUBTTL BLOCK TYPE 4 - ENTRIES
****
2)44 ;**;[1174] Replace @T.3F DZN 1-Jun-79
2) E$$HSL::.ERR. (MS,.EC,V%L,L%F,S%F,HSL,<Attempt to set high seg
ment origin too low>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)45 SUBTTL BLOCK TYPE 4 - ENTRIES
**************
1)47 JRST ILIERR]
1) TLNE W1,-1 ;MAKE SURE VALID
1) PUSHJ P,T.5W1 ;NOT
1) TLNE W2,-1
1) PUSHJ P,T.5W2 ;SAME FOR W2
1) SKIPE W3,LOD37 ;COBOL LOCAL SYMBOLS
****
2)47 ;**;[1174] Replace @T.5A+6L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 131
PCO Log Report
2) TLNE W1,-1 ;MAKE SURE VALID
2) ;**;[1174] Replace @T.5A+8L DZN 1-Jun-79
2) PUSHJ P,E$$PBI ;[1174] NOT
2) TLNE W2,-1
2) PUSHJ P,E01PBI ;[1174] SAME FOR W2
2) SKIPE W3,LOD37 ;COBOL LOCAL SYMBOLS
**************
1)49 JRST T.5SER ;ERROR
1) MOVE T2,LSYM ;POINT TO END (NEXT FILE)
****
2)49 ;**;[1174] Replace @T.5END+7L DZN 1-Jun-79
2) JRST E02SFU ;[1174] ERROR
2) MOVE T2,LSYM ;POINT TO END (NEXT FILE)
**************
1)49 JRST T.5SER
1) TXNN T2,S.SEG ;SEG BLOCK?
****
2)49 ;**;[1174] Replace @T.5LP+7L DZN 1-Jun-79
2) JRST E02SFU ;[1174]
2) TXNN T2,S.SEG ;SEG BLOCK?
**************
1)55 T.5SER: .ERR. (MS,0,V%L,L%W,S%W,SFU) ;
1) JRST T.5RET ;TRY TO CONTINUE
1) ;HERE WHEN PROGRAM BREAK IS INCORRECT, ZERO BREAK AND CONTINUE
1) T.5W1: .ERR. (MS,.EC,V%L,L%W,S%W,PBI,<Program break >)
1) .ETC. (OCT,.EP!.EC,,,,W1)
1) .ETC. (STR,.EC,,,,,< invalid in >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) SETZ W1, ;CLEAR AND CONTINUE
1) POPJ P,
1) T.5W2: .ERR. (MS,.EC,V%L,L%W,S%W,PBI)
1) .ETC. (OCT,.EP!.EC,,,,W2)
1) .ETC. (STR,.EC,,,,,< invalid in >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) SETZ W2, ;CLEAR AND CONTINUE
****
2)55 ;**;[1174] Replace @T.5SER DZN 1-Jun-79
2) E02SFU::.ERR. (MS,0,V%L,L%W,S%W,SFU) ;[1174]
2) JRST T.5RET ;TRY TO CONTINUE
2) ;HERE WHEN PROGRAM BREAK IS INCORRECT, ZERO BREAK AND CONTINUE
2) ;**;[1174] Replace @T.5W1 DZN 1-Jun-79
2) E$$PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI,<Program break >) ;[1174
]
2) .ETC. (OCT,.EP!.EC,,,,W1)
2) .ETC. (STR,.EC,,,,,< invalid>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) SETZ W1, ;CLEAR AND CONTINUE
2) POPJ P,
2) ;**;[1174] Replace @T.5W2 DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 132
PCO Log Report
2) E01PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI) ;[1174]
2) .ETC. (OCT,.EP!.EC,,,,W2)
2) .ETC. (STR,.EC,,,,,< invalid>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) SETZ W2, ;CLEAR AND CONTINUE
**************
1)56 PUSHJ P,EOFTS## ;NO, PREMATURE END OF MODULE
1) TRNE FL,R.FHS ;NEED TO ADJUST THE RELOC TABLES
?
****
2)56 ;**;[1174] Replace @T.6+1L DZN 30-May-79
2) PUSHJ P,E$$NEB## ;[1174] NO, PREMATURE END OF MOD
ULE
2) TRNE FL,R.FHS ;NEED TO ADJUST THE RELOC TABLES
?
**************
1)56 JRST ILIERR]
1) PUSH P,W1 ;SAVE VALUE
****
2)56 ;**;[1174] Replace @T.6+6L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174]
2) PUSH P,W1 ;SAVE VALUE
**************
1)56 .ERR. (MS,.EC,V%L,L%I5,S%I,LMN,<Loading module >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
****
2)56 ;**;[1174] Replace @T.OK+6L DZN 1-Jun-79
2) E$$LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN,<Loading module >) ;[11
74]
2) .ETC. (SBX,.EP,,,,PRGNAM)
**************
1)57 JRST ERRCCD ;[1120] NO--CPU CONFLICT DETECTE
D
1) LDB T1,[POINT 12,(P),17] ;[1120] NOW GET PROCESSOR T
YPE
****
2)57 ;**;[1174] Replace @??????+1P11L DZN 1-Jun-79
2) JRST E$$CCD ;[1174] NO--CPU CONFLICT DETECTE
D
2) LDB T1,[POINT 12,(P),17] ;[1120] NOW GET PROCESSOR T
YPE
**************
1)57 ERRCCD: .ERR. (MS,.EC,V%L,L%F,S%F,CCD,<CPU conflict detected i
n module >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1)58 ;HERE TO HANDLE BLANK COMMON ARG IN TITLE BLOCK
****
2)57 ;**;[1174] Replace @ERRCCD DZN 1-Jun-79
2) E$$CCD::.ERR. (MS,.EC,V%L,L%F,S%F,CCD,<CPU conflict>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 133
PCO Log Report
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)58 ;HERE TO HANDLE BLANK COMMON ARG IN TITLE BLOCK
**************
1)61 .ERR. (MS,.EC,V%L,L%F,S%F,IBC,<Attempt to increase siz
e of blank common from >)
1) .ETC. (DEC,.EC!.EP,,,,T2)
1) .ETC. (STR,.EC,,,,,< to >)
1) .ETC. (DEC,.EP,,,,T1)
1)62 ;HERE TO PUT THE REL FILE DESCRIPTOR INFO INTO THE LS AREA
****
2)61 ;**;[1174] Replace @T.6BC+3L DZN 1-Jun-79
2) E$$AIC::.ERR. (MS,.EC,V%L,L%F,S%F,AIC,<Attempt to increase siz
e of >) ;[1174]
2) .ETC. (STR,.EC,,,,,<blank common>) ;[1174]
2) .ETAIC: .ETC. (STR,.EC,,,,,< from >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,T2)
2) .ETC. (STR,.EC,,,,,< to >)
2) .ETC. (DEC,.EC!.EP,,,,T1) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)62 ;HERE TO PUT THE REL FILE DESCRIPTOR INFO INTO THE LS AREA
**************
1)64 JRST ILIERR]
1) TRNE FL,R.LSO!R.HSO ;SELECTIVE LOADING?
****
2)64 ;**;[1174] Replace @T.7+4L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174]
2) TRNE FL,R.LSO!R.HSO ;SELECTIVE LOADING?
**************
1)64 JRST T.ERR## ;GIVE ERROR MESSAGE
1) PUSHJ P,R50T6 ;SIXBITIZE IT
****
2)64 JRST E$$IRB## ;[1174] GIVE ERROR MESSAGE
2) PUSHJ P,R50T6 ;SIXBITIZE IT
**************
1)66 JRST T.10TS ;SHOULD NOT HAPPEN
1) HRRZ W3,W1 ;[565] VALUE OF SYMBOL
****
2)66 ;**;[1174] Replace @T.10L+1L DZN 1-Jun-79
2) JRST [MOVEI T1,10 ;[1174] BLOCK TYPE 10 TO
O SHORT
2) JRST E$$RBS] ;[1174]
2) HRRZ W3,W1 ;[565] VALUE OF SYMBOL
**************
1)66 T.10TS: .ERR. (MS,.EC,V%L,L%W,S%W,RBS,<REL Block Type >)
1) .ETC. (OCT,.EC,,,,10)
1) .ETC. (STR,.EC,,,,,< too short for >)
1) .ETC. (FSP,,,,,DC)
1) JRST LOAD## ;TRY TO CONTINUE
1)67 SUBTTL BLOCK TYPE 11 - POLISH FIXUPS (FAIL)
Digital Equipment Corporation 28-AUG-79 Page 134
PCO Log Report
****
2)67 SUBTTL BLOCK TYPE 11 - POLISH FIXUPS (FAIL)
**************
1)68 JRST T11IPX ;[1166] NO, ERROR
1) MOVEM P4,RC.CUR ;[1166] SET FOR NEXT WORD
****
2)68 ;**;[1174] Replace @T.11+1P9L DZN 1-Jun-79
2) JRST E$$IPX ;[1174] NO, ERROR
2) MOVEM P4,RC.CUR ;[1166] SET FOR NEXT WORD
**************
1)68 JRST T11IPX ;INVALID
1) MOVEM T1,RC.CUR ;SET FOR NEXT READ
1) JUMPE P4,T11IPX ;[1166] PSECT INDEX ILLEGAL IF 1
ST BYTE WASN'T
1) HRRO P4,P4
****
2)68 ;**;[1174] Replace @T11RD2+17L DZN 1-Jun-79
2) JRST E$$IPX ;[1174] INVALID
2) MOVEM T1,RC.CUR ;SET FOR NEXT READ
2) JUMPE P4,E$$IPX ;[1174] PSECT INDEX ILLEGAL IF 1
ST BYTE WASN'T
2) HRRO P4,P4
**************
1)69 JRST T11IPX ;INVALID
1) MOVEM T2,RC.CUR ;SET FOR NEXT READ
1) JUMPE P4,T11IPX ;[1166] ENFORCE DEFAULT PSECT IN
DEX FIRST BYTE
1) HRRO P4,P4 ;SIGNAL MIGHT TAKE TWO WORDS
****
2)69 ;**;[1174] Replace @T11RHS+14L DZN 1-Jun-79
2) JRST E$$IPX ;[1174] INVALID
2) MOVEM T2,RC.CUR ;SET FOR NEXT READ
2) JUMPE P4,E$$IPX ;[1174] ENFORCE DEFAULT PSECT IN
DEX FIRST BYTE
2) HRRO P4,P4 ;SIGNAL MIGHT TAKE TWO WORDS
**************
1)69 ;**;[1153] Change @ T11IPX JNG 12-Apr-79
1) T11IPX: .ERR. (MS,,V%L,L%F,S%F,IPX,<Invalid PSECT index>)
1)70 ;HERE TO FIND THE STORE OPERATOR AND CHECK TO SEE IF WE WANT IT.
****
2)69 ;**;[1174] Replace @T11IPX DZN 1-Jun-79
2) E$$IPX::.ERR. (MS,.EC,V%L,L%F,S%F,IPX,<Invalid psect index>) ;
[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)70 ;HERE TO FIND THE STORE OPERATOR AND CHECK TO SEE IF WE WANT IT.
**************
1)70 JRST T11SPE ;NO
1) ;FALL THROUGH TO NEXT PAGE
****
2)70 ;**;[1174] Replace @T.11SP+8L DZN 1-Jun-79
2) JRST E$$ISO ;[1174] NO
Digital Equipment Corporation 28-AUG-79 Page 135
PCO Log Report
2) ;FALL THROUGH TO NEXT PAGE
**************
1)72 T11SPE: .ERR. (MS,.EC,V%L,L%F,S%F,ISO,<Invalid store operator
>)
1) .ETC. (OCT,.EP,,,,T1)
1)74 ;HERE IF GLOBAL SYMBOL NOT IN GLOBAL SYMBOL TABLE YET
****
2)72 ;**;[1174] Replace @T11SPE DZN 1-Jun-79
2) E$$ISO::.ERR. (MS,.EC,V%L,L%F,S%F,ISO,<Invalid polish store op
erator >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,T1) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)74 ;HERE IF GLOBAL SYMBOL NOT IN GLOBAL SYMBOL TABLE YET
**************
1)75 JRST T11DFE ;PRIMARY OR NO FLAGS SET
1) TXNN W1,S.FXP ;IS THIS THE ONE
****
2)75 ;**;[1174] Replace @T.11DF+2L DZN 1-Jun-79
2) JRST E$$ISP## ;[1174] PRIMARY OR NO FLAGS SET
2) TXNN W1,S.FXP ;IS THIS THE ONE
**************
1)75 JRST T11DFE
1) HRLI W1,(FP.SGN!FP.SYM!FP.PTR!FP.POL) ;
****
2)75 ;**;[1174] Replace @T.11DF+6L DZN 1-Jun-79
2) JRST E$$ISP## ;[1174]
2) HRLI W1,(FP.SGN!FP.SYM!FP.PTR!FP.POL) ;
**************
1)75 T11DFE: .ERR. (MS,,V%L,L%F,S%F,ISP)
1)76 ;HERE TO EVALUATE POLISH FIXUP
****
2)75 ;**;[1174] Delete @T11DFE DZN 1-Jun-79
2)76 ;HERE TO EVALUATE POLISH FIXUP
**************
1)76 JRST T11RPE
1) PUSH W3,W1 ;SAVE OPERATOR ON STACK
****
2)76 ;**;[1174] Replace @T.11RP+9L DZN 1-Jun-79
2) JRST E$$IPO ;[1174]
2) PUSH W3,W1 ;SAVE OPERATOR ON STACK
**************
1)76 T11RPE: .ERR. (MS,.EC,V%L,L%F,S%F,IPO,<Invalid polish operator
>)
1) .ETC. (OCT,.EP,,,,W1)
1)77 ;HANDLE OPERANDS
****
2)76 ;**;[1174] Replace @T11RPE DZN 1-Jun-79
2) E$$IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO,<Invalid polish operator
>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 136
PCO Log Report
2) .ETC. (OCT,.EC!.EP,,,,W1) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)77 ;HANDLE OPERANDS
**************
1)80 JRST ILIERR
1) MOVEI T1,(W1) ;NUMBER OF WORDS TO SKIP
****
2)80 ;**;[1174] Replace @SKENEW+3L DZN 1-Jun-79
2) JRST E$$RBS ;[1174]
2) MOVEI T1,(W1) ;NUMBER OF WORDS TO SKIP
**************
1)81 JRST T11STE ;NO
1) ILDB T2,W2 ;[572] GET CORE ADDR OR GS POIN
TER
****
2)81 ;**;[1174] Replace @T.11ST DZN 1-Jun-79
2) JRST E01IPO ;[1174] NO
2) ILDB T2,W2 ;[572] GET CORE ADDR OR GS POIN
TER
**************
1)81 T11STE: .ERR. (MS,.EC,V%L,L%F,S%F,IPO)
1) .ETC. (OCT,.EP,,,,T2)
1)82 ;HERE TO DISPATCH FOR SYMBOL TABLE FIXUPS
****
2)81 ;**;[1174] Replace @T11STE DZN 1-Jun-79
2) E01IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,T2) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)82 ;HERE TO DISPATCH FOR SYMBOL TABLE FIXUPS
**************
1)82 T11PSF: .ERR. (MS,,V%L,L%W,S%W,PSF,<Polish symbol fixups not y
et implemented>)
1) SETZ W1, ;NO-OP
1) POPJ P, ;CONTINUE
1) REPEAT 0,< ;[735]
****
2)82 REPEAT 0,< ;[735]
**************
1)82 AOJA W2,T11STE ;RANGE CHECK
1) XCT T2 ;STORE W3
****
2)82 ;**;[1174] Replace @T11LNK+11L DZN 1-Jun-79
2) AOJA W2,E01IPO ;[1174] RANGE CHECK
2) XCT T2 ;STORE W3
**************
1)83 ;HERE IF FAIL INNER BLOCK LABELED LITERALS
1) ;HERE TO SEE IF REQUESTED BLOCK HAS BEEN LOADED FOR THIS PROGRAM
1) T11FBH: SKIPN T1,FBHPTR ;GET POINTER TO BLOCK HEADERS
1) POPJ P, ;NONE LOADED
Digital Equipment Corporation 28-AUG-79 Page 137
PCO Log Report
1) HRRZ T1,NAMPTR ;GET POINTER TO LOCAL SYMBOL
1) CAIA ;ALREADY IN T1 FIRST TIME
1) T11FBL: HLRZ T1,2(T1) ;GET POINTER TO BLOCK HEADER
1) JUMPE T1,CPOPJ ;END OF CHAIN
1) CAMGE T1,LW.LS ;IN CORE?
1) JRST T11PSF ;NOT AVAILABLE YET
1) SUB T1,LW.LS ;GET ADDRESS IN CORE
1) ADD T1,LS.LB
1) SKIPGE T2,(T1) ;MUST BE PRIMARY
1) TXNN T2,PT.TTL ;AND A TITLE BLOCK
1) JRST T.5SER ;NO
1) CAME W2,1(T1) ;SEE IF THIS IS THE BLOCK
1) JRST T11FBL ;NOT YET
1) MOVE W2,W3 ;PUT SYMBOL WE WANT IN W2
1) T11FBS: ADDI T1,.L ;ADVANCE
1) CAML T1,LS.AB ;MAKE SURE WE DON'T GO TOO FAR
1) POPJ P, ;DIDN'T FIND IT
1) SKIPLE T2,(T1) ;ONLY WANT PRIMARIES (OR 0)
1) JRST T11FBS ;IGNORE ALL SECONDARY STUFF
1) JUMPE T2,.+2 ;0 MARKS END
1) TXNE T2,PT.TTL ;STOP AT NEXT BLOCK
1) POPJ P,
1) TXNE T2,PT.SYM ;MUST BE A SYMBOL
1) CAME W2,1(T1) ;YES, BUT IS IT ONE WE WANT?
1) JRST T11FBS ;NO REQUIRED SYMBOL
1) SUB T1,LS.LB ;RELATIVE-IZE THIS POINTER
1) ADD T1,LW.LS
1) SETZ T2, ;CLEAR GLOBAL SYMBOL PTR
1) JRST CPOPJ1 ;OK RETURN
1)84 SUBTTL BLOCK TYPE 12 - LINK (FAIL)
****
2)83 SUBTTL BLOCK TYPE 12 - LINK (FAIL)
**************
1)84 AOJA W2,T.12I ;ILLEGAL LINK #
1) TLNN W1,-1 ;THIRD ARG SPECIFIED?
****
2)83 ;**;[1174] Replace @T.12A+9L DZN 1-Jun-79
2) AOJA W2,E$$ICB ;[1174] ILLEGAL LINK #
2) TLNN W1,-1 ;THIRD ARG SPECIFIED?
**************
1)85 AOJA W2,T.12I ;ILLEGAL
1) HRLM W1,@LINKTB ;SAVE END OF LINK INFO
1) JRST T.12A ;BACK FOR MORE
1) T.12I: .ERR. (MS,.EC,V%L,L%W,S%W,ITT,<Illegal type 12 link nu
mber >)
1) .ETC. (OCT,.EP,.EC,,,,W2)
1) .ETC. (STR,.EC,,,,,< in module >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) JRST T.12A ;TRY TO CONTINUE
Digital Equipment Corporation 28-AUG-79 Page 138
PCO Log Report
****
2)84 ;**;[1174] Replace @T.12E+3L DZN 1-Jun-79
2) AOJA W2,E$$ICB ;[1174] ILLEGAL
2) HRLM W1,@LINKTB ;SAVE END OF LINK INFO
2) JRST T.12A ;BACK FOR MORE
2) ;**;[1174] Replace @T.12I DZN 1-Jun-79
2) E$$ICB::.ERR. (MS,.EC,V%L,L%W,S%W,ICB,<Invalid chain REL block
(type 12) link number >) ;[1174]
2) .ETC. (OCT,.EC!.EP,.EC,,,,W2) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) JRST T.12A ;TRY TO CONTINUE
**************
1)86 T.13: .ERR. (MS,0,V%L,L%F,S%F,T13,<LVAR (type 13) code not i
mplemented>)
1)87 SUBTTL BLOCK TYPE 14 - INDEX
****
2)85 T.13:
2) E$$T13::.ERR. (MS,.EC,V%L,L%F,S%F,T13,<LVAR REL block (type 13
) not implemented>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)86 SUBTTL BLOCK TYPE 14 - INDEX
**************
1)87 .ERR. (MS,,V%L,L%W,S%I,LII,<Library index inconsistent
, continuing>)
1) JRST LOAD## ;AND CONTINUE
****
2)86 ;**;[1174] Replace @T.14ER+3L DZN 1-Jun-79
2) E$$LII::.ERR. (MS,,V%L,L%W,S%I,LII,<Library index inconsistent
, continuing>) ;[1174]
2) JRST LOAD## ;AND CONTINUE
**************
1)91 JRST ILIERR]
1) MOVEI R,1 ;MUST GO TO LOW SEG
****
2)90 ;**;[1174] Replace @T.15+2L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174]
2) MOVEI R,1 ;MUST GO TO LOW SEG
**************
1)95 JRST T.20NC ;NO, ERROR
1) HRRZ T1,P1 ;GET COPY
****
2)94 ;**;[1174] Replace @T.COMM+6L DZN 1-Jun-79
2) JRST E$$SNC ;[1174] NO, ERROR
2) HRRZ T1,P1 ;GET COPY
**************
1)95 .ERR. (MS,.EC,V%L,L%F,S%F,TEC,<Trying to expand common
>)
1) .ETC. (SBX,.EC!.EP,,,,W2)
1) .ETC. (STR,.EC,,,,,< from >)
Digital Equipment Corporation 28-AUG-79 Page 139
PCO Log Report
1) .ETC. (DEC,.EC!.EP,,,,T1)
1) .ETC. (STR,.EC,,,,,< to >)
1) .ETC. (DEC,.EC!.EP,,,,T2)
1) .ETC. (STR,.EC,,,,,< in module >)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) T.20NC: .ERR. (MS,.EC,V%L,L%F,S%F,SNC,<Symbol >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
1) .ETC. (STR,,,,,,< already defined, but not as common>)
1)96 ;HERE TO PUT SYMBOL IN TABLE AND GENERATE SPACE
****
2)94 ;**;[1174] Replace @T.20ER+1L DZN 1-Jun-79
2) EXCH T1,T2 ;[1174] SWAP FOR .ETAIC ROUTINE
2) E01AIC::.ERR. (MS,.EC,V%L,L%F,S%F,AIC) ;[1174]
2) .ETC. (STR,.EC,,,,,<common >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
2) .ETC. (JMP,.EC,,,,.ETAIC) ;[1174]
2) E$$SNC::.ERR. (MS,.EC,V%L,L%F,S%F,SNC,<Symbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
2) .ETC. (STR,.EC,,,,,< already defined, but not as commo
n>)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)95 ;HERE TO PUT SYMBOL IN TABLE AND GENERATE SPACE
**************
1)97 JRST T.20NC ;SHOULD NOT HAPPEN
1) PUSHJ P,SY.CHK## ;SEE HOW LONGG CURRENT SYMBOL IS
****
2)96 ;**;[1174] Replace @T.20UN+2L DZN 1-Jun-79
2) JRST E$$SNC ;[1174] SHOULD NOT HAPPEN
2) PUSHJ P,SY.CHK## ;SEE HOW LONGG CURRENT SYMBOL IS
**************
1)99 JRST ILIERR] ;ERROR
1) MOVE W3,W1 ;STORE VALUE IN SAFE PLACE
****
2)98 ;**;[1174] Replace @T.22+2L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174] ERROR
2) MOVE W3,W1 ;STORE VALUE IN SAFE PLACE
**************
1)99 JRST T11IPX ;[763] MAKE SURE THIS PSECT EXIS
T
1) MOVEM W2,RC.CUR ;[763] SWITCH CURRENT RELOC COUN
TER TO IT
****
2)98 ;**;[1174] Replace @T.22C+2L DZN 1-Jun-79
2) JRST E$$IPX ;[1174] MAKE SURE THIS PSECT EXI
ST
2) MOVEM W2,RC.CUR ;[763] SWITCH CURRENT RELOC COUN
TER TO IT
**************
1)100 JRST ILIERR ;[1154] TOO SHORT
1) MOVEI R,1(W1) ;[1154] PUT INTERNAL PSECT INDEX
INTO R
Digital Equipment Corporation 28-AUG-79 Page 140
PCO Log Report
****
2)99 ;**;[1174] Replace @T.23+1L DZN 1-Jun-79
2) JRST E$$RBS ;[1174] TOO SHORT
2) MOVEI R,1(W1) ;[1154] PUT INTERNAL PSECT INDEX
INTO R
**************
1)100 JRST ILIERR] ;[1154] USUAL MESSAGE
1) ;HERE WITH THE INTERNAL PSECT INDEX IN R. NEED TO PUT THIS IN R
C.CUR,
****
2)99 ;**;[1174] Replace @T.23A+4L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174] USUAL MESSAGE
2) ;HERE WITH THE INTERNAL PSECT INDEX IN R. NEED TO PUT THIS IN R
C.CUR,
**************
1)100 JRST ILIERR] ;[1154] ..
1) MOVEM P1,RC.CUR ;[1154] RESTORE RC.CUR
****
2)99 ;**;[1174] Replace @T.23B+5L DZN 1-Jun-79
2) JRST E$$RBS] ;[1174] ..
2) MOVEM P1,RC.CUR ;[1154] RESTORE RC.CUR
**************
1)101 JRST ILIERR ;[1137] BLOCK TOO SHORT
1) ;**;[1137] Install the next line ONLY if edit 1132 has been inst
alled.
****
2)100 ;**;[1174] Replace @T.24+3L DZN 1-Jun-79
2) JRST E$$RBS ;[1174] BLOCK TOO SHORT
2) ;**;[1137] Install the next line ONLY if edit 1132 has been inst
alled.
**************
1)101 JRST ILIERR ;[1137] NOT THERE?
1) T.24B: MOVE R,RC.NO ;[1137] LOOP OVER ALL RC BLOCKS
****
2)100 ;**;[1174] Replace @T.24A+2L DZN 1-Jun-79
2) JRST E$$RBS ;[1174] NOT THERE?
2) T.24B: MOVE R,RC.NO ;[1137] LOOP OVER ALL RC BLOCKS
**************
1)102 JRST T24IPX ;[1153] INDEX IS JUNK, COMPLAIN
1) MOVE T1,@RC.TB ;[1137] RC BLOCK OF THIS PSECT
****
2)101 ;**;[1174] Replace @T.24E+5L DZN 4-Jun-79
2) JRST E01IPX ;[1174] INDEX IS JUNK, COMPLAIN
2) MOVE T1,@RC.TB ;[1137] RC BLOCK OF THIS PSECT
**************
1)102 ;**;[1153] Insert @ T.24E+8L JNG 12-Apr-79
1) ;HERE ON AN INVALID PSECT INDEX.
1) T24IPX: .ERR. (MS,.EC,V%L,L%F,S%F,IPX)
1) .ETC. (STR,.EC,,,,,< for PSECT >)
Digital Equipment Corporation 28-AUG-79 Page 141
PCO Log Report
1) .ETC. (SBX,.EP,,,,W2)
1)103 SUBTTL BLOCK TYPE 37 - COBOL LOCAL SYMBOLS
****
2)101 ;**;[1174] Replace @T24IPX-2L DZN 4-Jun-79
2) ;HERE ON AN INVALID PSECT INDEX WHEN W2 CONTAINS SIXBIT PSECT NA
ME.
2) E01IPX::.ERR. (MS,.EC,V%L,L%F,S%F,IPX) ;[1174]
2) .ETC. (STR,.EC,,,,,< for psect >)
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)102 SUBTTL BLOCK TYPE 37 - COBOL LOCAL SYMBOLS
**************
1)104 .ERR. (MS,.EC,V%L,L%W,S%W,UAR,<Undefined assign for >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
1) .ETC. (STR,.EC,,,,,< in >)
1) .ETC. (FSP,0,,,,DC)
1) T.100R: PUSHJ P,RB.1 ;IGNORE REST OF BLOCK
****
2)103 ;**;[1174] Replace @T.100E+1L DZN 1-Jun-79
2) E$$UAR::.ERR. (MS,.EC,V%L,L%W,S%W,UAR,<Undefined assign for sy
mbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) T.100R: PUSHJ P,RB.1 ;IGNORE REST OF BLOCK
**************
1)105 JRST LKPERR## ;WILL DO FOR NOW
1) PUSHJ P,DVOPN.## ;OPEN DEVICE
1) LOOKUP TC,I.RIB(T1)
1) JRST LKPERR## ;FAILED
1)106 ;HERE WHEN FILE OPENED. ALLOCATE A 1P BUFFER AND READ IT.
****
2)104 ;**;[1174] Replace @T.776+23L DZN 30-May-79
2) JRST E01FLE## ;[1174] WILL DO FOR NOW
2) PUSHJ P,DVOPN.## ;OPEN DEVICE
2) LOOKUP TC,I.RIB(T1)
2) JRST E01FLE## ;[1174] FAILED
2)105 ;HERE WHEN FILE OPENED. ALLOCATE A 1P BUFFER AND READ IT.
**************
1)107 JRST T776TC ;HANDLE ERROR
1) JUMPN R3,T776RD ;DONE UNLESS LAST TIME
****
2)106 ;**;[1174] Replace @T776R2+10L DZN 30-May-79
2) JRST E02EIF ;[1174] HANDLE ERROR
2) JUMPN R3,T776RD ;DONE UNLESS LAST TIME
**************
1)107 T776TC: PUSH P,[TC] ;INDICATE ERROR ON CHANNEL TC
1) .ERR. (ST,0,V%L,L%F,S%F,EID) ;'ERROR ON INPUT DEVICE'
1)108 ;HERE ON A "TITLE" (RADIX50 CODE 0)
****
Digital Equipment Corporation 28-AUG-79 Page 142
PCO Log Report
2)106 E02EIF::PUSH P,[TC] ;[1174] INDICATE ERROR ON CHANNE
L TC
2) .ERR. (ST,0,V%L,L%F,S%F,EIF) ;[1174] 'ERROR ON INPUT F
ILE'
2)107 ;HERE ON A "TITLE" (RADIX50 CODE 0)
**************
1)108 .ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;GIVE INFO MESSA
GE
1) .ETC. (SBX,.EP,,,,PRGNAM) ;FOR LINK DEBUGGERS
****
2)107 ;**;[1174] Replace @T776OK+1 DZN 1-Jun-79
2) E02LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] GIVE INFO MESS
AGE
2) .ETC. (SBX,.EP,,,,PRGNAM) ;FOR LINK DEBUGGERS
**************
1)109 T.777: .ERR. (MS,.EC,V%L,L%F,S%F,UNS,<Universal files not sup
ported loading >)
1) .ETC. (FSP,,,,,DC)
****
2)108 T.777:
2) E$$UNS::.ERR. (MS,.EC,V%L,L%F,S%F,UNS,<Universal file REL bloc
k (type 777) not supported>) ;[1174]
2) .ETC. (NLN,.EC) ;[1174]
2) .ETC. (STR,.EC,,,,,<from file >) ;[1174]
2) .ETC. (FSP,,,,,DC)
**************
1)111 .ERR. (MS,.EC,V%M,L%F,S%F,RPN,<Relocatable PSECTs not
implemented>)
1) .ETC. (STR,.EC,,,,,<--/SET switch required for PSECT:
>)
1) .ETC. (SBX,.EP,,,,T1)
1)112 ;CHKSEG - ROUTINE TO SEE IF ADDRESS IS REQUIRED OR NOT
****
2)110 ;**;[1174] Replace @R.ERR+1L DZN 1-Jun-79
2) E$$SRP::.ERR. (MS,.EC,V%L,L%F,S%F,SRP,</SET: switch required f
or psect >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,T1) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)111 ;CHKSEG - ROUTINE TO SEE IF ADDRESS IS REQUIRED OR NOT
**************
1)112 ILIERR: .ERR. (MS,.EC,V%L,L%F,S%F,RBS)
1) .ETC. (OCT,.EC!.EP,,,,T1)
1) .ETC. (STR,.EC,,,,,< too short for >)
1) .ETC. (FSP,,,,,DC)
1) IFN DEBSW,<
****
2)111 ;**;[1174] Replace @ILIERR DZN 1-Jun-79
2) E$$RBS::.ERR. (MS,.EC,V%L,L%F,S%F,RBS,<REL block type >) ;[117
4]
Digital Equipment Corporation 28-AUG-79 Page 143
PCO Log Report
2) .ETC. (OCT,.EC!.EP,,,,T1)
2) .ETC. (STR,.EC,,,,,< too short>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) IFN DEBSW,<
**************
Digital Equipment Corporation 28-AUG-79 Page 144
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 2144 08-Jun-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 1810 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKOV1
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKOV1
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL ENTRY POINT
****
2)2 ;1174 Label and clean up all error messages.
2)3 SUBTTL ENTRY POINT
**************
1)6 .ERR. (MS,.EC,V%L,L%W,S%W,LNA,<Link name >)
1) .ETC. (SBX,.EC!.EP,,,,P1)
****
2)6 ;**;[1174] Replace @LNKLNA+1L DZN 1-Jun-79
2) E$$LNA::.ERR. (MS,.EC,V%L,L%W,S%W,LNA,<Link name >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,P1)
**************
1)7 JRST ZSVERR## ;ZERO IS ILLEGAL
1) SETZ W3, ;VALUE
****
2)7 ;**;[1174] Replace @.NOENTRY+4L DZN 3-Jun-79
2) JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
2) SETZ W3, ;VALUE
**************
1)7 JRST ZSVERR## ;ZERO IS ILLEGAL
1) SETZ W3, ;VALUE
****
2)7 ;**;[1174] Replace @.NOREQUEST+4L DZN 3-Jun-79
2) JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
2) SETZ W3, ;VALUE
**************
1)7 .ERR. (MS,0,V%L,L%I,S%I,MRN,<Multiple regions not yet
Digital Equipment Corporation 28-AUG-79 Page 145
PCO Log Report
implemented>)
1) POPJ P,
****
2)7 ;**;[1174] Replace @%REGION+2L DZN 1-Jun-79
2) E$$MRN::.ERR. (MS,0,V%L,L%I,S%I,MRN,<Multiple regions not yet
implemented>) ;[1174]
2) POPJ P,
**************
1)8 PUSHJ P,.SAVE4## ;SAVE P1-P4
1) MOVE P2,HT.PRM ;GET INDEX INTO HASH TABLE
1) HRRZ T1,LOWSUB ;[605] TTY TYPEOUT ROUTINE
1) PUSHJ P,.TYOCH## ;TYPE-OUT ON TTY ONLY
1) PUSH P,T1 ;SAVE IT
1) PUSH P,[-1] ;MARKER FOR NO REQUESTS
1) REQST1: SKIPN P3,@HT.PTR ;GET POINTER TO SYMBOL
1) JRST REQST3 ;NO POINTER, NO SYMBOL
1) ADD P3,GS.LB ;ADD IN BASE
1) MOVE T1,0(P3) ;GET FLAGS
1) TXNE T1,PT.SYM ;WE ONLY WANT SYMBOLS
1) TXNN T1,PS.ENT ;SEE IF AN ENTRY
1) JRST REQST3 ;NO
1) TXNN T1,PS.NRQ ;NOT WANTED?
1) SKIPN 2(P3) ;OR ZERO VALUE (I.E. NOT A CALL
FOO)
1) JRST REQST3 ;DO NOT LIST
1) AOSE (P) ;FIRST TIME?
1) JRST REQST2 ;NO
1) MOVEI T1,REQHDR
1) PUSHJ P,.TSTRG## ;YES. OUTPUT HEADER LINE
1) MOVEI T1,REQMES
1) PUSHJ P,.TSTRG##
1) REQST2: PUSHJ P,.TTABC##
1) MOVE T1,1(P3) ;GET SYMBOL
1) PUSHJ P,.TSIXN## ;SIXBIT WORD
1) PUSHJ P,.TTABC## ;TAB
1) MOVE T1,2(P3) ;VALUE
1) PUSHJ P,.TOCTW## ;IN OCTAL
1) PUSHJ P,.TCRLF## ;NEW LINE
1) REQST3: SOJGE P2,REQST1 ;LOOP IF MORE SYMBOLS TO LOOK AT
1) SKIPL (P) ;-1 IF NONE SEEN
1) JRST REQST4
1) MOVEI T1,REQHDR
1) PUSHJ P,.TSTRG##
1) MOVEI T1,[ASCIZ \No \]
1) PUSHJ P,.TSTRG## ;FAILED TO FIND ANY
1) MOVEI T1,REQMES ;REST OF MESSAGE
1) PUSHJ P,.TSTRG##
1) REQST4: POP P,T1 ;CLEAR STACK
1) POP P,T1 ;RESTORE OLD TYPE-OUT ROUTINE
Digital Equipment Corporation 28-AUG-79 Page 146
PCO Log Report
1) PJRST .TYOCH## ;AND RETURN
1)9 REQHDR: ASCIZ \[LNKRER \
****
2)8 MOVE T1,[PUSHJ P,REQNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
2) MOVEM T1,NXTGLB ;[1174] ..
2) MOVE W3,HT.PRM ;[1174] SET UP HASH TABLE INDEX
2) ADDI W3,1 ;[1174] START UP BY 1 FOR SOSGE
BELOW
2) PUSHJ P,REQNXT ;[1174] GET NEXT (FIRST) ENTRY
2) PJRST E01RER ;[1174] NONE--GO SAY SO SPECIALL
Y
2) E$$RER::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,RER) ;[1174]
2) .ETC. (STR,.EC,,,,,<Request external references (inter
link entry points)>) ;[1174]
2) .ETC. (JMP,,,,,.ETSAV##) ;[1174] GO PRINT THE LIST
2) ;REQNXT RETURNS THE NEXT INTER-LINK ENTRY POINT FOR USE BY THE A
BOVE .ERR..
2) ;
2) ;CALL:
2) ; W3/ NEXT HASH TABLE INDEX TO CHECK
2) ;RETURNS WITH A NON-SKIP RETURN IF THERE ARE NO MORE SUCH SYMB
OLS. OTHERWISE,
2) ;GIVES A SKIP RETURN WITH:
2) ; W1/ NEXT SYMBOL
2) ; W2/ OCTAL VALUE
2) ; W3/ UPDATED
2) REQNXT: PUSHJ P,.SAVE4## ;[1174] SAVE LNKLOG'S P ACS
2) REQLUP: SOSGE P2,W3 ;[1174] CHECK NEXT HASH TABLE EN
TRY
2) POPJ P, ;[1174] NONE LEFT--GIVE NON-SKIP
RETURN
2) SKIPN P3,@HT.PTR ;[1174] IGNORE IF NO SYMBOL HERE
2) JRST REQLUP ;[1174] ..
2) ADD P3,GS.LB ;[1174] RELOCATE IN CASE GS AREA
MOVED
2) MOVE T1,0(P3) ;[1174] MUST BE UNDEFINED LINK E
NTRY SYMBOL
2) TXNE T1,PT.SYM ;[1174] ..
2) TXNN T1,PS.ENT ;[1174] ..
2) JRST REQLUP ;[1174] NO--TRY NEXT
2) TXNN T1,PS.NRQ ;[1174] DID USER SAY NO FOR THIS
SYMBOL?
2) SKIPN 2(P3) ;[1174] OR ZERO VALUE (I.E. NO
T A CALL FOO)
2) JRST REQLUP ;[1174] YES--TRY NEXT
2) MOVE W1,1(P3) ;[1174] NO--A WINNER! LOAD UP SY
MBOL AND VALUE
2) MOVE W2,2(P3) ;[1174] ..
Digital Equipment Corporation 28-AUG-79 Page 147
PCO Log Report
2) JRST CPOPJ1 ;[1174] DONE--GIVE SKIP RETURN
2) E01RER::.ERR. (MS,.EC,V%L,L%F,S%I,RER) ;[1174]
2) .ETC. (STR,,,,,,<No request external references (inter
-link entry points)>) ;[1174]
2) POPJ P, ;[1174]
2)9 REQHDR: ASCIZ \[LNKRER \
**************
1)10 JRST LNKFSN ;OVRLAY NEEDS IT, MUST BE THERE
1) MOVX W1,PT.SGN!PT.SYM ;
****
2)10 ;**;[1174] Replace @LNKT0+8L DZN 1-Jun-79
2) JRST E$$FSN ;[1174] OVRLAY NEEDS IT, MUST BE
THERE
2) MOVX W1,PT.SGN!PT.SYM ;
**************
1)10 JRST LNKOHN ;MUST BE THERE
1) JRST LNKOHN ;BUT WARN USER
1) MOVE T1,2(P1) ;GET ADDRESS
****
2)10 ;**;[1174] Replace @LNKT0+13L DZN 1-Jun-79
2) JRST E$$OHN ;[1174] MUST BE THERE
2) JRST E$$OHN ;[1174] BUT WARN USER
2) MOVE T1,2(P1) ;GET ADDRESS
**************
1)10 JRST LNKOHN
1) JRST LNKOHN
1)11 ;HERE TO SET UP FRONT OF OVERLAY FILE.
****
2)10 ;**;[1174] Replace @LNKT0+20L DZN 1-Jun-79
2) JRST E$$OHN ;[1174]
2) JRST E$$OHN ;[1174]
2)11 ;HERE TO SET UP FRONT OF OVERLAY FILE.
**************
1)12 JRST LNKOHN
1) JRST LNKOHN
1) HRRZ P2,2(P1) ;GET ADDRESS
****
2)12 ;**;[1174] Replace @LNKT0B+21L DZN 1-Jun-79
2) JRST E$$OHN ;[1174]
2) JRST E$$OHN ;[1174]
2) HRRZ P2,2(P1) ;GET ADDRESS
**************
1)18 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1)19 LNKT4D: SKIPE PAG.S1 ;[666] PAGING?
****
2)18 ;**;[1174] Replace @LNKT4G+6L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2)19 LNKT4D: SKIPE PAG.S1 ;[666] PAGING?
**************
Digital Equipment Corporation 28-AUG-79 Page 148
PCO Log Report
1)20 PUSHJ P,NO.COR## ;TOO BAD
1) LNKT5E: SETZM LW.LS ;START BACK AT FRONT OF FILE
****
2)20 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2) LNKT5E: SETZM LW.LS ;START BACK AT FRONT OF FILE
**************
1)20 PUSHJ P,NO.COR## ;TOO BAD
1) > ;END IFL .IPS-2*.DBS
****
2)20 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2) > ;END IFL .IPS-2*.DBS
**************
1)21 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1)22 LNKT5C: SKIPE PAG.LS ;PAGING?
****
2)21 ;**;[1174] Replace @LNKT5H+6L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2)22 LNKT5C: SKIPE PAG.LS ;PAGING?
**************
1)23 PUSHJ P,ER.OOV##
1) SKIPN RBGPTR ;ANY OTHER RELOCATION
****
2)23 ;**;[1174] Replace @LNKT6+23L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174]
2) SKIPN RBGPTR ;ANY OTHER RELOCATION
**************
1)26 PUSHJ P,ER.OOV##
1)27 RT.DPB: SOSL RT.FR ;ANY ROOM
****
2)26 ;**;[1174] Replace @LNKT6Z+17L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174]
2)27 RT.DPB: SOSL RT.FR ;ANY ROOM
**************
1)27 PUSHJ P,NO.COR##
1) SPOP <P2,P1,T1>
****
2)27 PUSHJ P,E$$MEF## ;[1174]
2) SPOP <P2,P1,T1>
**************
1)28 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1) ;HERE TO OUTPUT PREAMBLE - MUST BE LAST
****
2)28 ;**;[1174] Replace @LNKT7+19L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2) ;HERE TO OUTPUT PREAMBLE - MUST BE LAST
**************
1)28 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1) LNKT9: MOVE T1,CS.NUM ;GET THIS LINK
****
2)28 ;**;[1174] Replace @LNKT8+5L DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 149
PCO Log Report
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2) LNKT9: MOVE T1,CS.NUM ;GET THIS LINK
**************
1)31 PUSHJ P,NO.COR##
1) MOVNI T1,.IPS ;NOW TAKE BACK EXTRA
****
2)31 PUSHJ P,E$$MEF## ;[1174]
2) MOVNI T1,.IPS ;NOW TAKE BACK EXTRA
**************
1)32 PUSHJ P,NO.COR## ;TOO BAD
1) MOVNI T1,.IPS
****
2)32 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2) MOVNI T1,.IPS
**************
1)33 PUSHJ P,NO.COR## ;FAILED
1) LNKZB1: MOVE T1,GS.LB ;GET BASE
****
2)33 PUSHJ P,E$$MEF## ;[1174] FAILED
2) LNKZB1: MOVE T1,GS.LB ;GET BASE
**************
1)34 SKIPN CS.LNM ;DOES THIS LINK HAVE A NAME?
1) JRST LNKZNN ;NO
1) .ERR. (MS,.EC!.EB,V%L,L%I6,S%I,ELN,<End of link number
>) ;
1) .ETC. (DEC,.EC!.EP,,,,CS.NUM) ;
1) .ETC. (STR,.EC,,,,,<, name >) ;
1) .ETC. (SBX,.EP,,,,CS.LNM) ;
1) JRST LNKZA ;JOIN COMMON CODE
1) LNKZNN: .ERR. (MS,.EC!.EB,V%L,L%I6,S%I,ELN) ;
1) .ETC. (DEC,.EP,,,,CS.NUM) ;
1) LNKZA: MOVEI R,1 ;POINT TO RELOC TABLE 1
****
2)34 ;**;[1174] Replace @LNKZB1+1P1L DZN 1-Jun-79
2) E$$ELN::.ERR. (MS,.EC,V%L,L%I6,S%I,ELN,<End of>) ;[1174]
2) .ETC. (JMP,.EC,,,,.ETLNN##) ;[1174]
2) .ETC. (BKL) ;[1174] BLANK LINE IN THE LOG FI
LE
2) LNKZA: MOVEI R,1 ;POINT TO RELOC TABLE 1
**************
1)36 LKSTER: PUSHJ P,STARTU## ;UNDEFINED MESSAGE
1) SETZM STADDR ;CLEAR ADDRESS
****
2)36 ;**;[1174] Replace @LKSTER DZN 3-Jun-79
2) LKSTER: PUSHJ P,E$$USA## ;[1174] UNDEFINED MESSAGE
2) SETZM STADDR ;CLEAR ADDRESS
**************
1)37 PJRST ODVERR## ;DEV IS NOT A DSK, DIE
1) MOVE T1,IO.PTR+OC ;RESTORE THE I/O DATA
****
Digital Equipment Corporation 28-AUG-79 Page 150
PCO Log Report
2)37 ;**;[1174] Replace @OC.OPN+22L DZN 30-May-79
2) PJRST E$$OFS ;[1174] DEV IS NOT A DSK, DIE
2) MOVE T1,IO.PTR+OC ;RESTORE THE I/O DATA
**************
1)37 JRST ER.EOV ;FAILED
1) POPJ P,
1) ER.EOV: PUSH P,IO.CHN ;[631] TELL ERROR ROUTINE CHANNE
L NUMBER
1) .ERR. (LRE,.EC,V%L,L%F,S%F,EOV,<Error creating overlay
file >)
1) .ETC. (FSP,,,,,OC)
1)38 SUBTTL RESET SWITCH
****
2)37 ;**;[1174] Replace @OC.OPN+37L DZN 30-May-79
2) JRST E$$EOV ;[1174] FAILED
2) POPJ P,
2) ;**;[1174] Replace @ER.EOV DZN 30-May-79
2) E$$OFS::.ERR. (MS,0,V%M,L%F,S%F,OFS,<Overlay file must be crea
ted on a file structure>) ;[1174]
2) E$$EOV::PUSH P,IO.CHN ;[1174] TELL ERROR ROUTINE CHANN
EL NUMBER
2) .ERR. (LRE,.EC,V%L,L%F,S%F,EOV,<Error creating overlay
file>) ;[1174]
2)38 SUBTTL RESET SWITCH
**************
1)38 .ERR. (MS,.EC,V%L,L%W,S%W,LSM,</LINK switch mi
ssing while loading link number >) ;
1) .ETC. (DEC,.EC!.EP,,,,P2) ;LINK NUM
****
2)38 ;**;[1174] Replace @%RESET+6L DZN 1-Jun-79
2) E$$LSM::.ERR. (MS,.EC,V%L,L%W,S%W,LSM,</LINK switch mi
ssing while loading link number >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,P2) ;LINK NUM
**************
1)38 JRST RSTNE ;NO
1) MOVEM T2,CS.NUM ;NO, STORE SO WE KNOW WHO TO LIN
K TO
****
2)38 ;**;[1174] Replace @RSTA+3L DZN 1-Jun-79
2) JRST E$$LNL ;[1174] NO
2) MOVEM T2,CS.NUM ;NO, STORE SO WE KNOW WHO TO LIN
K TO
**************
1)41 PUSHJ P,ER.LNC## ;MUST BE INCORE
1) MOVE P1,1(P1) ;GET PREVIOUS
****
2)41 ;**;[1174] Replace @RST2A+2L DZN 1-Jun-79
2) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
2) MOVE P1,1(P1) ;GET PREVIOUS
Digital Equipment Corporation 28-AUG-79 Page 151
PCO Log Report
**************
1)41 PUSHJ P,ER.LNC## ;MUST BE INCORE
1) TLNN T2,-1 ;FORWARD PTR?
****
2)41 ;**;[1174] Replace @RST2B+15L DZN 1-Jun-79
2) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
2) TLNN T2,-1 ;FORWARD PTR?
**************
1)43 PUSHJ P,ER.IOV## ;INPUT ERROR
1) HRRZ P1,P2 ;INDEX INTO BRANCH TABLES
****
2)43 ;**;[1174] Replace @RST3H+12L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) HRRZ P1,P2 ;INDEX INTO BRANCH TABLES
**************
1)43 PUSHJ P,NO.COR##
1) POP P,P2
****
2)43 PUSHJ P,E$$MEF## ;[1174]
2) POP P,P2
**************
1)44 PUSHJ P,ER.IOV## ;INPUT ERROR
1) HRRZ P1,P2 ;TO HOLD BRN DEPTH
****
2)44 ;**;[1174] Replace @RST3J+6L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) HRRZ P1,P2 ;TO HOLD BRN DEPTH
**************
1)45 JRST RSTRPR ;YES - ERROR
1) MOVS T1,LSTPTR ;MUST BACKUP BY ONE LEVEL
****
2)45 ;**;[1174] Replace @RSTN+2L DZN 1-Jun-79
2) JRST E$$NBR ;[1174] YES - ERROR
2) MOVS T1,LSTPTR ;MUST BACKUP BY ONE LEVEL
**************
1)45 JUMPE T1,RSTLE ;ERROR
1) RSTLA: CAMN T2,(T1) ;IS THIS IT
****
2)45 ;**;[1174] Replace @RSTL+1L DZN 1-Jun-79
2) JUMPE T1,E$$LNN ;[1174] ERROR
2) RSTLA: CAMN T2,(T1) ;IS THIS IT
**************
1)45 RSTLE: .ERR. (MS,.EC,V%L,L%W,S%W,LNN,<Link name >)
1) .ETC. (SBX,.EC!.EP,,,,T2)
****
2)45 ;**;[1174] Replace @RSTLE DZN 1-Jun-79
2) E$$LNN::.ERR. (MS,.EC,V%L,L%W,S%W,LNN,<Link name >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,T2)
**************
Digital Equipment Corporation 28-AUG-79 Page 152
PCO Log Report
1)45 RSTNE: .ERR. (MS,.EC,V%L,L%W,S%W,LNL,<Link number >)
1) .ETC. (DEC,.EC!.EP,,,,T2)
****
2)45 ;**;[1174] Replace @RSTNE DZN 1-Jun-79
2) E$$LNL::.ERR. (MS,.EC,V%L,L%W,S%W,LNL,<Link number >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,T2)
**************
1)45 RSTRPR: .ERR. (MS,,V%L,L%F,S%F,NBR,<Attempt to position to nod
e before ROOT>) ;
1)46 ;HERE IF RESET IS ALL THE WAY BACK TO THE ROOT
****
2)45 ;**;[1174] Replace @RSTRPR DZN 1-Jun-79
2) E$$NBR::.ERR. (MS,,V%L,L%F,S%F,NBR,<Attempt to position to nod
e before the root>) ;[1174]
2)46 ;HERE IF RESET IS ALL THE WAY BACK TO THE ROOT
**************
1)46 PUSHJ P,ER.LNC## ;MUST BE INCORE
1) RST02: HRRZ T1,@BRNTBL ;GET ORIGIN OF TABLE
****
2)46 ;**;[1174] Replace @RST01+6L DZN 1-Jun-79
2) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
2) RST02: HRRZ T1,@BRNTBL ;GET ORIGIN OF TABLE
**************
1)47 PUSHJ P,ER.IOV## ;INPUT ERROR
1)48 SUBTTL COMMON SUBROUTINES
****
2)47 ;**;[1174] Replace @RST06+8L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2)48 SUBTTL COMMON SUBROUTINES
**************
1)50 JRST RSTRPR ;ERROR
1) HRLM T1,LSTPTR ;BACK UP
****
2)50 ;**;[1174] Replace @BKPBRN+3L DZN 1-Jun-79
2) JRST E$$NBR ;[1174] ERROR
2) HRLM T1,LSTPTR ;BACK UP
**************
1)50 PUSHJ P,ER.LNC## ;MUST BE INCORE
1)51 SUBTTL SEARCH BOUND GLOBALS
****
2)50 ;**;[1174] Replace @DLTBRN+13L DZN 1-Jun-79
2) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
2)51 SUBTTL SEARCH BOUND GLOBALS
**************
1)51 PUSHJ P,ER.LNC## ;MUST BE INCORE
1) ADD T2,BG.LB ;ADD IN BASE
****
2)51 ;**;[1174] Replace @TRYBG1+8L DZN 1-Jun-79
2) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
Digital Equipment Corporation 28-AUG-79 Page 153
PCO Log Report
2) ADD T2,BG.LB ;ADD IN BASE
**************
1)59 LNKOHN: .ERR. (MS,,V%L,L%F,S%F,OHN,<Overlay handler not loaded
>)
1) LNKFSN: .ERR. (MS,,V%L,L%F,S%F,FSN,<FUNCT. subroutine not load
ed>)
1) OV1LIT:
1) END LNKOV1
****
2)59 ;**;[1174] Replace @LNKOHN DZN 1-Jun-79
2) E$$OHN::.ERR. (MS,,V%L,L%F,S%F,OHN,<Overlay handler not loaded
>) ;[1174]
2) E$$FSN::.ERR. (MS,,V%L,L%F,S%F,FSN,<FUNCT. subroutine not load
ed>) ;[1174]
2) OV1LIT:
2) END LNKOV1
**************
Digital Equipment Corporation 28-AUG-79 Page 154
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV2.MAC[30,4507] created: 2238 08-Jun-1979
File 2) LINK:LNKOV2.MAC[10,645063] created: 1831 10-Jun-1979
1)1 TITLE LNKOV2 - PHASE 2 OVERLAY MODULE FOR LINK-10
1) SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LNKOV2 - PHASE 2 OVERLAY MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKOV2
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKOV2
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL DEFINITIONS
****
2)2 ;1174 Label and clean up all error messages.
2)3 SUBTTL DEFINITIONS
**************
1)4 .ERR. (MS,,V%L,L%I,S%I,OS2,<Overlay segment phase 2>)
1) MOVE T1,SYMSEG ;GET /SYMSEG VALUE
****
2)4 ;**;[1174] Replace @LNKOV2+1L DZN 1-Jun-79
2) E$$OS2::.ERR. (MS,,V%L,L%I,S%I,OS2,<Overlay segment phase 2>)
;[1174]
2) MOVE T1,SYMSEG ;GET /SYMSEG VALUE
**************
1)5 PUSHJ P,NO.COR##
1) SKIPA T1,GS.AB ;GS.AB IS NOW SETUP CORRECTLY
****
2)5 PUSHJ P,E$$MEF## ;[1174]
2) SKIPA T1,GS.AB ;GS.AB IS NOW SETUP CORRECTLY
**************
1)6 PUSHJ P,NO.COR##
1) OVR3A: AOS P1,LNKNO. ;PICKUP LINK #
****
2)6 PUSHJ P,E$$MEF## ;[1174]
2) OVR3A: AOS P1,LNKNO. ;PICKUP LINK #
**************
Digital Equipment Corporation 28-AUG-79 Page 155
PCO Log Report
1)7 PUSHJ P,NO.COR##
1) JRST OVR3I ;TRY AGAIN
****
2)7 PUSHJ P,E$$MEF## ;[1174]
2) JRST OVR3I ;TRY AGAIN
**************
1)8 PUSHJ P,NO.COR## ;NOT 1 WORD ????!!!!!!
1) JRST .+1] ;REJOIN MAIN STREAM
****
2)8 PUSHJ P,E$$MEF## ;[1174] NOT 1 WORD ????!
!!!!!
2) JRST .+1] ;REJOIN MAIN STREAM
**************
1)11 JRST OVR6CU
1) JRST OVR6CU
1) MOVE T2,EI.FLG(P1) ;GET LINK#
****
2)11 ;**;[1174] Replace @OVR6C+2L DZN 1-Jun-79
2) JRST E$$USC ;[1174]
2) JRST E$$USC ;[1174]
2) MOVE T2,EI.FLG(P1) ;GET LINK#
**************
1)11 PUSHJ P,ER.LNC##] ;BUT!!!
1) HLRZ T1,P1 ;GET POINTER
****
2)11 ;**;[1174] Replace @OVR6C+13L DZN 1-Jun-79
2) PUSHJ P,E$$LNM##] ;[1174] BUT!!!
2) HLRZ T1,P1 ;GET POINTER
**************
1)12 OVR6CU: .ERR. (MS,.EC,V%L,L%F,S%W,USC,<Undefined subroutine >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
1) .ETC. (STR,.EC,,,,,< called from link number >)
1) .ETC. (DEC,.EP,,,,CS.NUM)
1) OVR6CE: MOVE T1,ADDOVU ;ADDRESS OF UNDEFINED ROUTINE
****
2)12 ;**;[1174] Replace @OVR6CU DZN 1-Jun-79
2) E$$USC::.ERR. (MS,.EC,V%L,L%F,S%W,USC,<Undefined subroutine >)
;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
2) .ETC. (STR,.EC,,,,,< called from>) ;[1174]
2) .ETC. (JMP,,,,,.ETLNN##) ;[1174]
2) OVR6CE: MOVE T1,ADDOVU ;ADDRESS OF UNDEFINED ROUTINE
**************
1)12 .ERR. (MS,.EC,V%L,L%W,S%W,SNP,<Subroutine >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
****
2)12 ;**;[1174] Replace @OVR6CN+1L DZN 1-Jun-79
2) E$$SNP::.ERR. (MS,.EC,V%L,L%W,S%W,SNP,<Subroutine >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
Digital Equipment Corporation 28-AUG-79 Page 156
PCO Log Report
**************
1)12 .ETC. (STR,.EC,,,,,< not on path for call from link nu
mber >)
1) .ETC. (DEC,.EP,,,,CS.NUM)
1) MOVE P1,P3 ;RESTORE P1
****
2)12 .ETC. (STR,.EC,,,,,< not on path for call from>) ;[117
4]
2) .ETC. (JMP,,,,,.ETLNN##) ;[1174]
2) MOVE P1,P3 ;RESTORE P1
**************
1)13 PUSHJ P,ER.LNC##] ;BUT!
1) HLRZ T1,P1 ;GET POINTER
****
2)13 ;**;[1174] Replace @OVR6M+8L DZN 1-Jun-79
2) PUSHJ P,E$$LNM##] ;[1174] BUT!
2) HLRZ T1,P1 ;GET POINTER
**************
1)15 .ERR. (MS,.EC,V%L,L%W,S%W,ARL,<Ambiguous request in li
nk >)
1) .ETC. (DEC,.EC!.EP,,,,CS.NUM)
1) .ETC. (STR,.EC,,,,,< for >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
****
2)15 ;**;[1174] Replace @OVR6MG+27L DZN 1-Jun-79
2) E$$ARL::.ERR. (MS,.EC,V%L,L%W,S%W,ARL,<Ambiguous request in>)
;[1174]
2) .ETC. (JMP,.EC,,,,.ETLNN##) ;[1174]
2) .ETC. (STR,.EC,,,,,< for symbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
**************
1)18 PUSHJ P,NO.COR## ;[635] TOO BAD
1) SPOP <P2,P1,T2,T1> ;[635] RESTORE NEEDED ACCS
****
2)18 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2) SPOP <P2,P1,T2,T1> ;[635] RESTORE NEEDED ACCS
**************
1)18 .ERR. (MS,.EC,V%L,L%F,S%W,TMA,<Too many ambiguous requ
ests in link >)
1) .ETC. (DEC,.EC!.EP,,,,CS.NUM)
1) .ETC. (STR,.EC,,,,,<, use /ARSIZE:>)
****
2)18 ;**;[1174] Replace @OVR6FC+3L DZN 1-Jun-79
2) E$$TMA::.ERR. (MS,.EC,V%L,L%F,S%W,TMA,<Too many ambiguous requ
ests in>) ;[1174]
2) .ETC. (JMP,.EC,,,,.ETLNN##) ;[1174]
2) .ETC. (STR,.EC,,,,,<, use /ARSIZE:>)
**************
1)20 PUSHJ P,ER.OOV## ;OUTPUT ERROR
Digital Equipment Corporation 28-AUG-79 Page 157
PCO Log Report
1)21 OVR6H: SKIPE T1,RT.PT ;RELOC TABLE TO PUT OUT?
****
2)20 ;**;[1174] Replace @OVR6GC+15L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2)21 OVR6H: SKIPE T1,RT.PT ;RELOC TABLE TO PUT OUT?
**************
1)21 PUSHJ P,ER.OOV## ;[573] THIS IS AN OUTPUT ERROR
1)22 ;**;[1172] Add comment @ OVR6H+1P JNg 5-Jun-79
1) ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
****
2)21 ;**;[1174] Replace @OVR6H+28L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] THIS IS AN OUTPUT ERROR
2)22 ;**;[1172] Add comment @OVR6H+1P JNg 5-Jun-79
2) ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
**************
1)22 ;**;[1172] Delete @ OVR6S+6L JNG 5-Jun-79
1) USETI OC,(T1) ;SET ON SYMBOL BLOCK
****
2)22 ;**;[1172] Delete @OVR6S+6L JNG 5-Jun-79
2) USETI OC,(T1) ;SET ON SYMBOL BLOCK
**************
1)22 PUSHJ P,NO.COR## ;TOO BAD
1) OVR6S1: HLRE T1,PH.SYM ;GET -LENGTH AGAIN
****
2)22 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2) OVR6S1: HLRE T1,PH.SYM ;GET -LENGTH AGAIN
**************
1)22 PUSHJ P,ER.IOV## ;ERROR
1) SUB T1,LW.LS ;SHOULD BE 0
****
2)22 ;**;[1174] Replace @OVR6S1+17L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] ERROR
2) SUB T1,LW.LS ;SHOULD BE 0
**************
1)23 PUSHJ P,ER.OOV## ;FAILED
1)24 OVR6R: SKIPE T1,RT.PT ;ANY RELOCATION TABLES?
****
2)23 ;**;[1174] Replace @OVR6L+16L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] FAILED
2)24 OVR6R: SKIPE T1,RT.PT ;ANY RELOCATION TABLES?
**************
1)24 PUSHJ P,ER.OOV## ;ERROR
1)25 OVR6P: HLRZ T1,OVLBLK ;BLOCK # OF PREAMBLE
****
2)24 ;**;[1174] Replace @OVR6R+18L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] ERROR
2)25 OVR6P: HLRZ T1,OVLBLK ;BLOCK # OF PREAMBLE
**************
1)25 PUSHJ P,ER.OOV## ;OUTPUT ERROR
Digital Equipment Corporation 28-AUG-79 Page 158
PCO Log Report
1) OVR6X: SKIPN PH.RDX ;ANY RADIX-50 SYMBOLS
****
2)25 ;**;[1174] Replace @OVR6Z+2L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2) OVR6X: SKIPN PH.RDX ;ANY RADIX-50 SYMBOLS
**************
1)25 PUSHJ P,ER.IOV##
1) MOVE T2,PH.RDX ;GET SYMBOL TABLE PTR
****
2)25 ;**;[1174] Replace @OVR6X+18L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174]
2) MOVE T2,PH.RDX ;GET SYMBOL TABLE PTR
**************
1)25 PUSHJ P,ER.OOV##
1)26 OVR7: SKIPN TMAMAX ;[635] ANY %LNKTMA MESSAGES OUTP
UT?
1) JRST OVR7C ;[635] NO, CONTINUE
1) .ERR. (MS,.EC,V%L,L%F,S%F,ABT,<Load aborted due to %LN
KTMA errors, max. /ARSIZE needed was >)
1) .ETC. (DEC,.EP,,,,TMAMAX)
****
2)25 ;**;[1174] Replace @OVR6X+25L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174]
2)26 OVR7: SKIPN TMAMAX ;[635] ANY %LNKTMA MESSAGES OUTP
UT?
2) JRST OVR7C ;[635] NO, CONTINUE
2) ;**;[1174] Replace @OVR7+2L DZN 1-Jun-79
2) E$$ABT::.ERR. (MS,.EC,V%L,L%F,S%F,ABT,<Load aborted due to %LN
KTMA errors, max. /ARSIZE: needed was >) ;[1174]
2) .ETC. (DEC,.EP,,,,TMAMAX)
**************
1)26 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1) MOVN T1,L.MAX ;GET MAX LINKS ALLOWED
****
2)26 ;**;[1174] Replace @OVR7C+10L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2) MOVN T1,L.MAX ;GET MAX LINKS ALLOWED
**************
1)26 PUSHJ P,ER.OOV## ;OUTPUT ERROR
1)27 ;NOW FOR LINK NAMES, THERE WILL BE AT LEAST ONE (ROOT)
****
2)26 ;**;[1174] Replace @OVR7C+18L DZN 1-Jun-79
2) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
2)27 ;NOW FOR LINK NAMES, THERE WILL BE AT LEAST ONE (ROOT)
**************
1)27 PUSHJ P,ER.OOV## ;ERROR
1) HLRE T2,T1 ;GET BACK LENGTH
****
2)27 ;**;[1174] Replace @OVR7B+4L DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 159
PCO Log Report
2) PUSHJ P,E$$OOV## ;[1174] ERROR
2) HLRE T2,T1 ;GET BACK LENGTH
**************
1)28 PUSHJ P,NO.COR## ;TOO BAD
1)29 OVR8A: MOVE T2,LS.UB ;GET TOP
****
2)28 PUSHJ P,E$$MEF## ;[1174] TOO BAD
2)29 OVR8A: MOVE T2,LS.UB ;GET TOP
**************
1)29 PUSHJ P,ER.IOV## ;ERROR
1) OVR8B: MOVEI T1,LS.IX ;NOW DELETE LOCAL SYMBOLS
****
2)29 ;**;[1174] Replace @OVR8A+23L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] ERROR
2) OVR8B: MOVEI T1,LS.IX ;NOW DELETE LOCAL SYMBOLS
**************
1)30 PUSHJ P,ER.IOV## ;INPUT ERROR
1) ADD T3,LC.LB ;POINT TO FIRST CS WORD
****
2)30 ;**;[1174] Replace @RDCST+18L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) ADD T3,LC.LB ;POINT TO FIRST CS WORD
**************
1)31 PUSHJ P,NO.COR##
1) HLRZ T1,R1 ;RESET EXCESS SIZE
****
2)31 PUSHJ P,E$$MEF## ;[1174]
2) HLRZ T1,R1 ;RESET EXCESS SIZE
**************
1)31 PUSHJ P,ER.IOV## ;INPUT ERROR
1) CPOPJ: POPJ P,
****
2)31 ;**;[1174] Replace @CPOPJ1+1L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) CPOPJ: POPJ P,
**************
1)31 PUSHJ P,ER.IOV## ;INPUT ERROR
1)32 RDREL: MOVE T1,RT.LB ;MAKE RT.PT SAME AS RT.LB
****
2)31 ;**;[1174] Replace @INPH+10L DZN 1-Jun-79
2) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2)32 RDREL: MOVE T1,RT.LB ;MAKE RT.PT SAME AS RT.LB
**************
1)32 PJRST ER.IOV## ;I/O ERROR
1)33 OV2LIT:
1) END LNKOV2
****
2)32 ;**;[1174] Replace @RDREL1+5L DZN 1-Jun-79
2) PJRST E$$IOV## ;[1174] I/O ERROR
2)33 OV2LIT:
2) END LNKOV2
Digital Equipment Corporation 28-AUG-79 Page 160
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 161
PCO Log Report
[FILCOM]
File 1) LINK:LNKOVS.MAC[30,4507] created: 1439 07-Mar-1978
File 2) LINK:LNKOVS.MAC[10,645063] created: 1659 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 27-Feb-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY TR.WLK
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY TR.WLK
**************
1)1 DECMVR==0 ;DEC MINOR VERSION
1) DECEVR==765 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL TREE WALK ROUTINE
****
2)2 ;START OF VERSION 4A
2) ;1174 Label and clean up all error messages.
2)3 SUBTTL TREE WALK ROUTINE
**************
1)6 PUSHJ P,NO.COR## ;SHOULD NOT HAPPEN
1) HRLI T1,(POINT 2) ;RESET BYTE PTR
****
2)6 PUSHJ P,E$$MEF## ;[1174] SHOULD NOT HAPPEN
2) HRLI T1,(POINT 2) ;RESET BYTE PTR
**************
1)7 ER.IOV::PUSH P,[OC]
1) .ERR. (ST,,V%L,L%F,S%F,IOV,<Input error for overlay fi
le>)
1) ER.OOV::PUSH P,[OC]
1) .ERR. (ST,,V%L,L%F,S%F,OOV,<Output error for overlay f
ile>)
1) ER.LNC::.ERR. (MS,.EC,V%L,L%F,S%F,LNC,<Link number >)
1) .ETC. (DEC,.EC!.EP,,,,P2)
1) .ETC. (STR,,,,,,< not in core>)
1) END
****
2)7 ;**;[1174] Replace @ER.IOV DZN 1-Jun-79
2) E$$IOV::PUSH P,[OC] ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 162
PCO Log Report
2) .ERR. (ST,,V%L,L%F,S%F,IOV,<Input error for overlay fi
le>)
2) E$$OOV::PUSH P,[OC] ;[1174]
2) .ERR. (ST,,V%L,L%F,S%F,OOV,<Output error for overlay f
ile>)
2) E$$LNM::.ERR. (MS,.EC,V%L,L%F,S%F,LNM,<Link number >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,P2)
2) .ETC. (STR,,,,,,< not in memory>) ;[1174]
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 163
PCO Log Report
[FILCOM]
File 1) LINK:LNKPLT.MAC[30,4507] created: 1727 25-Aug-1978
File 2) LINK:LNKPLT.MAC[10,645063] created: 1700 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Aug-78
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKPLT,GETSON
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKPLT,GETSON
**************
1)1 DECEVR==1113 ;DEC EDIT VERSION
1) SALL
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) SALL
**************
1)3 SUBTTL BLISS CONVENTIONS
****
2)2 ;1174 Label and clean up all error messages.
2)3 SUBTTL BLISS CONVENTIONS
**************
1)5 ;**;[1113] Insert after LNKPLT DZN 25-Aug-78
1) .ERR. (MS,0,V%L,L%I,S%I,POT,<Plotting overlay tree>)
1) ZAPTMP ;CLEAR TEMP AREA
****
2)5 ;**;[1174] Replace @LNKPLT+1L DZN 1-Jun-79
2) E$$POT::.ERR. (MS,0,V%L,L%I,S%I,POT,<Plotting overlay tree>) ;
[1174]
2) ZAPTMP ;CLEAR TEMP AREA
**************
Digital Equipment Corporation 28-AUG-79 Page 164
PCO Log Report
[FILCOM]
File 1) LINK:LNKSCN.MAC[30,4507] created: 2318 17-May-1979
File 2) LINK:LNKSCN.MAC[10,645063] created: 1743 11-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 17-May-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979 BY DIGITAL EQUIPMENT CORPORATION
, MAYNARD, MASS.
1) ENTRY LNKSCN
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKSCN
**************
1)1 DECEVR==1167 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL INITIALIZE SCANNER
****
2)3 ;1174 Label and clean up all error messages.
2)4 SUBTTL INITIALIZE SCANNER
**************
1)4 .ERR. (MS,0,V%L,L%I,S%I,SNL,<Scanning new command line
>)
1) SETZ T1, ;SCAN CAN USE TTCALLS
****
2)4 ;**;[1174] Replace @LNKSCN+15L DZN 1-Jun-79
2) E$$SNL::.ERR. (MS,,V%L,L%I,S%I,SNL,<Scanning new command line>
) ;[1174]
2) SETZ T1, ;SCAN CAN USE TTCALLS
**************
1)10 PUSHJ P,SWTERR ;NO, ERROR IN SWITCH MACRO
1) SUBI T2,2(T3) ;YES, T2 GETS WORDS LEFT OVER
****
2)10 ;**;[1174] Replace @**somewhere**+1P6L DZN 1-Jun-79
2) PUSHJ P,E$$IST ;[1174] NO, ERROR IN SWITCH MACR
O
2) SUBI T2,2(T3) ;YES, T2 GETS WORDS LEFT OVER
**************
1)11 SWTERR: .ERR. (MS,,V%L,L%F,S%F,IST,<Inconsistency in switch ta
ble>)
1)12 SUBTTL GENERATE SWITCH TABLES
****
2)11 ;**;[1174] Replace @SWTERR DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 165
PCO Log Report
2) E$$IST::.ERR. (MS,,V%L,L%F,S%F,IST,<Inconsistency in switch ta
ble>) ;[1174]
2)12 SUBTTL GENERATE SWITCH TABLES
**************
1)15 TXTERR: .ERR. (MS,.EC,V%L,L%F,S%F,ITB,<Invalid text in ASCII B
lock in file >)
1) .ETC. (FSP,,,,,DC)
****
2)15 ;**;[1174] Replace @TXTERR DZN 1-Jun-79
2) E$$ITB::.ERR. (MS,.EC,V%L,L%F,S%F,ITB,<Invalid text in ASCII b
lock from file >) ;[1174]
2) .ETC. (FSP,,,,,DC)
**************
1)16 JUMPE C,TXTERR ;IF SCAN STILL WANTS MORE, GIVE
UP
1) POPJ P, ;ELSE RETURN IT THE CHARACTER
****
2)16 ;**;[1174] Replace @TXTKOM+6L DZN 1-Jun-79
2) JUMPE C,E$$ITB ;[1174] IF SCAN STILL WANTS MORE
, GIVE UP
2) POPJ P, ;ELSE RETURN IT THE CHARACTER
**************
Digital Equipment Corporation 28-AUG-79 Page 166
PCO Log Report
[FILCOM]
File 1) LINK:LNKSUB.MAC[30,4507] created: 0041 03-May-1979
File 2) LINK:LNKSUB.MAC[10,645063] created: 1702 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG 4-May-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) SEARCH LNKLOW,LNKPAR
1) CUSTVR==0 ;CUSTMER VERSIN
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) SEARCH LNKLOW,LNKPAR
2) ENTRY NPRIME
2) EXTERN LNKLOG
2) CUSTVR==0 ;CUSTMER VERSIN
**************
1)1 DECEVR==1161 ;DEC EDIT VERSION
1) SEGMENT
1) ENTRY NPRIME
1) EXTERN LNKLOG
1) SALL
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) SEGMENT
2) SALL
**************
1)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
****
2)2 ;1174 Label and clean up all error messages.
2)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
**************
1)3 JUMPE T1,PRMERR ;NONE THERE (0 IS END MARKER)
1) SKIPE HASHSZ ;SKIP IF NO USER SIZE REQUEST
****
2)3 ;**;[1174] Replace @NPRIME+4L DZN 1-Jun-79
2) JUMPE T1,E$$HTL ;[1174] NONE THERE (0 IS END MAR
KER)
2) SKIPE HASHSZ ;SKIP IF NO USER SIZE REQUEST
**************
1)3 PRMERR: .ERR. (MS,0,V%L,L%F,S%F,HTL,<Symbol hash table too lar
ge>)
1)4 SUBTTL TABLE OF PRIME NUMBER STORED 2 PER WORD
****
2)3 ;**;[1174] Replace @PRMERR DZN 1-Jun-79
2) E$$HTL::.ERR. (MS,0,V%L,L%F,S%F,HTL,<Symbol hash table too lar
Digital Equipment Corporation 28-AUG-79 Page 167
PCO Log Report
ge>) ;[1174]
2)4 SUBTTL TABLE OF PRIME NUMBER STORED 2 PER WORD
**************
1)9 TITLE LNK000 - DUMMY LINK10
1) SUBTTL D.M.NIXON/DMN 27-OCT-72
1) ENTRY LINK10
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
1) LINK10:
1) IFE FTSINGLE,<
****
2)10 TITLE LNK000 - DUMMY LINK
2) SUBTTL D.M.NIXON/DMN/DZN 8-Jun-79
2) ENTRY LINK ;[1174]
2) SEARCH LNKPAR,LNKLOW
2) SEGMENT
2) LINK: ;[1174]
2) IFE FTSINGLE,<
**************
1)9 SUBTTL D.M.NIXON/DMN/JNG 10-Apr-77
1) SEARCH LNKPAR,LNKLOW
****
2)19 SUBTTL D.M.NIXON/DMN/JNG/DZN 8-Jun-79
2) SEARCH LNKPAR,LNKLOW
**************
1)9 ENTRY ER.IOV
1) RT.INC:: LINKGO:: INPH:: RDCST:: ER.IOV:
1) RT.T2F:: RT.T2R:: RT.T2L:: RT.P3:: RT.P2:: RT.FX::
****
2)19 ;**;[1174] Replace @ER.IOV-1L DZN 1-Jun-79
2) ENTRY E$$IOV ;[1174]
2) RT.INC:: LINKGO:: INPH:: RDCST:: E$$IOV: ;[1174]
2) RT.T2F:: RT.T2R:: RT.T2L:: RT.P3:: RT.P2:: RT.FX::
**************
1)9 .ERR. (MS,,V%M,L%W,S%I,ONS,<OVERLAYS not supported in
this version of LINK>)
1) > ;END OF IFE FTOVERLAY
1) IFN FTOVERLAY,<
1) .ERR. (MS,,V%L,L%F,S%F,OMB,</OVERLAY switch must be fi
rst>)
1) > ;END OF IFN FTOVERLAY
****
2)19 ;**;[1174] Replace @RT.T2F+1L DZN 1-Jun-79
2) E$$ONS::.ERR. (MS,,V%L,L%W,S%I,ONS,<Overlays not supported in
this version of LINK>) ;[1174]
2) > ;END OF IFE FTOVERLAY
2) IFN FTOVERLAY,<
2) E$$OMB::.ERR. (MS,,V%L,L%F,S%F,OMB,</OVERLAY switch must be fi
rst>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 168
PCO Log Report
2) > ;END OF IFN FTOVERLAY
**************
1)9 SUBTTL D.M.NIXON/DMN/JNG 17-Jul-75
1) ENTRY LNKF40
****
2)21 SUBTTL D.M.NIXON/DMN/JNG/DZN 8-Jun-79
2) ENTRY LNKF40
**************
1)9 JRST F40OVR ;YES, GIVE BETTER MESSAGE
1) >
1) .ERR. (MS,0,V%L,L%F,S%F,OFN,<Old FORTRAN (F40) module
not available.>)
1) IFN FTOVERLAY,<
1) F40OVR: .ERR. (MS,.EC,V%L,L%F,S%F,FOV)
1) .ETC. (SBX,.EP,,,,PRGNAM)
1) >
1) END
****
2)21 ;**;[1174] Replace @T.401+4L DZN 1-Jun-79
2) JRST E$$FOV## ;[1174] YES, GIVE BETTER
MESSAGE
2) >
2) E$$OFN::.ERR. (MS,.EC,V%L,L%F,S%F,OFN,<Old FORTRAN (F40) modul
e not available>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 169
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1558 10-Jun-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1614 11-Jun-1979
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) ENTRY LNKWLD
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
2) ENTRY LNKWLD
**************
1)1 EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP,TTYCHK
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1173 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1174 Label and clean up all error messages.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)7 PUSHJ P,LKPERR## ;GIVE ERROR MESSAGE
1) ;**;[1101] Insert @ LDFS1+3L JNG 29-May-78
****
2)7 ;**;[1174] Replace @LDFS1+2L DZN 30-May-79
2) PUSHJ P,E01FLE## ;[1174] GIVE ERROR MESSAGE
2) ;**;[1101] Insert @ LDFS1+3L JNG 29-May-78
**************
1)17 JRST CORE3 ;[650] OK, TELL USER
1) MOVE T2,T1 ;[650] NOW TRY VIRTUALLY
****
2)17 ;**;[1174] Replace @%CORE+12L DZN 3-Jun-79
2) JRST E02EXP ;[1174] OK, TELL USER
2) MOVE T2,T1 ;[650] NOW TRY VIRTUALLY
**************
1)17 CORE3: .ERR. (MS,.EC,V%L,L%I,S%I,EXP)
1) .ETC. (COR,.EP,,,,.JBREL)
****
2)17 ;**;[1174] Replace @CORE3 DZN 3-Jun-79
2) E02EXP::.ERR. (MS,.EC,V%L,L%I,S%I,EXP) ;[1174]
2) .ETC. (COR,.EP,,,,.JBREL)
**************
1)18 %COUNTER:
Digital Equipment Corporation 28-AUG-79 Page 170
PCO Log Report
****
2)18 SUBTTL SWITCH ACTION -- /COUNTER
2) ;/COUNTER CAUSES LINK TO PRINT A LIST OF ALL CURRENT RELOCATION
COUNTERS, THEIR
2) ;INITIAL VALUES AND THEIR CURRENT VALUES. THIS IS DONE BY USING
A .ETC. MACRO
2) ;LOOP TO PRINT EACH COUNTER LINE.
2) %COUNTER:
**************
1)18 HRRZ T1,LOWSUB ;[605] TTY OUTSTR ROUTINE
1) PUSHJ P,.TYOCH## ;ONLY ON TTY
1) PUSH P,T1 ;SAVE IT
1) MOVEI R1,1 ;START AT 1 (COUNTER .LOW.)
1) MOVEI T1,[ASCIZ \[LNKRLC Reloc. CTR. initial value
current value (octal)]
1) \]
1) PUSHJ P,.TSTRG## ;OUTPUT HEADER
1) COUNT1: SKIPN R2,@RC.TB ;SEE IF ANYTHING THERE?
1) JRST COUNT3 ;NO
1) PUSHJ P,.TTABC##
1) MOVE T1,RC.NM(R2) ;GET NAME
1) PUSHJ P,.TSIXN## ;YES
1) PUSHJ P,.TTABC## ;TAB TO SEPARATE
1) PUSHJ P,.TTABC##
1) COUNT2: MOVE T1,RC.IV(R2) ;INITIAL VALUE
1) PUSHJ P,.T6OCT##
1) PUSHJ P,.TTABC##
1) PUSHJ P,.TTABC##
1) MOVE T1,RC.AT(R2) ;[755] GET PSECT ATTRIBUTE
1) TXNE T1,AT.OV ;[755] HAVE AN OVERLAYABLE PSECT
?
1) SKIPN T1,RC.HL(R2) ;[755] YES, USE HIGHEST LOCATION
INSTEAD
1) MOVE T1,RC.CV(R2) ;CURRENT VALUE
1) PUSHJ P,.T6OCT##
1) PUSHJ P,.TCRLF## ;CLOSE LINE
1) CAMGE R1,RC.NO ;ALL DONE?
1) AOJA R1,COUNT1 ;NO
1) COUNT3: POP P,T1 ;GET BACK TYPE OUT ROUTINE
1) PJRST .TYOCH## ;RETURN
1) %CPU:
****
2)18 ;**;[1174] Revamp @.COUNTER+1L DZN 3-Jun-79
2) MOVEI R,1 ;[1174] START AT 1 (COUNTER .LOW
.)
2) E$$RLC::.ERR. (MS,.EC,V%L,L%F,S%I,RLC,<Reloc. ctr. initial
value current value>) ;[1174]
2) COUNEX: .ETC. (XCT,.EC,,,,<[PUSHJ P,COUNGT]>) ;[1174] ANY MORE
TO PRINT?
Digital Equipment Corporation 28-AUG-79 Page 171
PCO Log Report
2) .ETC. (JMP,.EC,,,,COUNDN) ;[1174] NO--DONE
2) .ETC. (NLN,.EC) ;[1174] YES--NEW LINE FOR IT
2) .ETC. (SBX,.EC!.EP,,,,W1) ;[1174] RELOCATION COUNTER N
AME
2) .ETC. (STR,.EC,,,,,< >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W2) ;[1174] INITIAL VALUE
2) .ETC. (STR,.EC,,,,,< >) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W3) ;[1174] CURRENT VALUE
2) .ETC. (JMP,.EC,,,,COUNEX) ;[1174] LOOP FOR REST
2) COUNDN: .ETC. (STR,,,,,<>) ;[1174] JUST A DUMMY TO JUMP TO
2) POPJ P, ;[1174] DONE
2) ;COUNGT IS CALLED FROM THE ABOVE LNKRLC MESSAGE TO FIND THE
NEXT RELOCATION
2) ;COUNTER VALUES, IF ANY.
2) ;
2) ;CALL:
2) ; R/ RELOCATION COUNTER TO CHECK
2) ;RETURNS NON-SKIP IF NO MORE, OR SKIP WITH:
2) ; W1/ NAME OF RELOCATION COUNTER
2) ; W2/ INITIAL VALUE
2) ; W3/ CURRENT VALUE
2) ; R/ INCREMENTED FOR NEXT TIME
2) COUNGT: CAMG R,RC.NO ;[1174] ANY MORE?
2) SKIPN R2,@RC.TB ;[1174] ..
2) POPJ P, ;[1174] NO--NON-SKIP RETURN
2) MOVE W1,RC.NM(R2) ;[1174] FETCH RELOCATION COUNTER
NAME
2) MOVE W2,RC.IV(R2) ;[1174] FETCH INITIAL VALUE
2) MOVE T1,RC.AT(R2) ;[1174] IF OVERLAID PSECT
2) TXNE T1,AT.OV ;[1174] ..
2) SKIPN W3,RC.HL(R2) ;[1174] THEN TRY HIGHEST SEEN SO
FAR
2) MOVE W3,RC.CV(R2) ;[1174] ELSE JUST USE CURRENT VA
LUE
2) AOJA R,CPOPJ1 ;[1174] ADV TO NEXT AND GIVE SKI
P RETURN
2)19 SUBTTL SWITCH ACTION -- /CPU:, /CRLF:
2) %CPU:
**************
1)21 ERJMP TXDDTR ;[1144] FAILED
1) PUSH P,T1 ;[1144] SAVE JFN FOR UDDT
****
2)22 ;**;[1174] Replace @MAPDD1+3L DZN 3-Jun-79
2) ERJMP E$$DNA ;[1174] FAILED
2) PUSH P,T1 ;[1144] SAVE JFN FOR UDDT
**************
1)21 TXDDTR: .ERR. (MS,,V%L,L%F,S%F,DNA,<DDT not available>)
1) >
****
Digital Equipment Corporation 28-AUG-79 Page 172
PCO Log Report
2)22 ;**;[1174] Replace @TXDDTR DZN 3-Jun-79
2) E$$DNA::.ERR. (MS,,V%L,L%F,S%F,DNA,<DDT not available>) ;[1174
]
2) >
**************
1)22 DEBTBL: KEYWORDS
1) ;HERE FOR /DDEBUG
****
2)23 ;**;[1174] Replace @DEBTBL-1L DZN 5-Jun-79
2) XALL ;[1174]
2) DEBTBL: KEYWORDS
2) SALL ;[1174]
2) ;HERE FOR /DDEBUG
**************
1)23 JRST ZSVERR ;ZERO IS INVALID
1) MOVE W3,3(P2) ;AND VALUE
****
2)24 ;**;[1174] Replace @%DEFINE+4L DZN 3-Jun-79
2) JRST E$$ZSV ;[1174] ZERO IS INVALID
2) MOVE W3,3(P2) ;AND VALUE
**************
1)24 PUSHJ P,.SAVE4## ;SAVE P1-P4
1) MOVE P2,HT.PRM ;GET INDEX INTO HASH TABLE
1) HRRZ T1,LOWSUB ;[605] TTY OUTSTR ROUTINE ADDRES
S
1) PUSHJ P,.TYOCH## ;TYPE-OUT ON TTY ONLY
1) PUSH P,T1 ;SAVE IT
1) PUSH P,[-1] ;MARKER FOR NO ENTRIES
1) ENTRY1: SKIPN P3,@HT.PTR ;GET POINTER TO SYMBOL
1) JRST ENTRY3 ;NO POINTER, NO SYMBOL
1) ADD P3,GS.LB ;ADD IN BASE
1) MOVE T1,0(P3) ;GET FLAGS
1) TXNE T1,PT.SYM ;WE ONLY WANT SYMBOLS
1) TXNN T1,PS.ENT ;SEE IF AN ENTRY
1) JRST ENTRY3 ;NO
1) AOSE (P) ;FIRST TIME
1) JRST ENTRY2 ;NO
1) MOVEI T1,ENTHDR
1) PUSHJ P,.TSTRG## ;YES, OUTPUT HEADER LINE
1) MOVEI T1,ENTMES
1) PUSHJ P,.TSTRG##
1) ENTRY2: PUSHJ P,.TTABC##
1) MOVE T1,1(P3) ;GET SYMBOL
1) PUSHJ P,.TSIXN## ;SIXBIT WORD
1) PUSHJ P,.TTABC## ;TAB
1) MOVE T1,2(P3) ;VALUE
1) PUSHJ P,.TOCTW## ;IN OCTAL
1) PUSHJ P,.TCRLF## ;NEW LINE
1) ENTRY3: SOJGE P2,ENTRY1 ;LOOP IF MORE SYMBOLS TO LOOK AT
Digital Equipment Corporation 28-AUG-79 Page 173
PCO Log Report
1) SKIPL (P) ;-1 IF NONE SEEN
1) JRST ENTRY4
1) MOVEI T1,ENTHDR
1) PUSHJ P,.TSTRG##
1) MOVEI T1,[ASCIZ \No \]
1) PUSHJ P,.TSTRG## ;FAILED TO FIND ANY
1) MOVEI T1,ENTMES ;REST OF MESSAGE
1) PUSHJ P,.TSTRG##
1) ENTRY4: POP P,T1 ;CLEAR STACK
1) POP P,T1 ;RESTORE OLD TYPE-OUT ROUTINE
1) PJRST .TYOCH## ;AND RETURN
1) ENTHDR: ASCIZ \[LNKLSS \
1) ENTMES: ASCIZ \Library Search Symbols (Entry points)]
1) \
1)25 %ESTIMATE:
****
2)25 ;**;[1174] Revamp @.ENTRY+1L DZN 5-Jun-79
2) MOVE T1,[PUSHJ P,ENTNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
2) MOVEM T1,NXTGLB ;[1174] ..
2) MOVE W3,HT.PRM ;[1174] GET INDEX TO HASH TABLE
2) ADDI W3,1 ;[1174] START 1 UP FOR SOSGE BEL
OW
2) PUSHJ P,ENTNXT ;[1174] GET NEXT (FIRST) ENTRY P
OINT
2) PJRST E01LSS ;[1174] NONE THERE--GO SAY SO
2) E$$LSS::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,LSS) ;[1174]
2) .ETC. (STR,.EC,,,,,<Library search symbols (entry poin
ts)>) ;[1174]
2) .ETC. (JMP,.EC,,,,.ETSAV##) ;[1174] GO PRINT SYMBOLS A
ND VALUES
2) ;ENTNXT IS CALLED FROM THE ABOVE .ERR. TO RETURN THE NEXT ENTRY
POINT SYMBOL AND
2) ;VALUE.
2) ;
2) ;CALL:
2) ; W3/ NEXT HASH TABLE INDEX TO LOOK AT
2) ;RETURNS WITH NON-SKIP IF NO MORE, OTHERWISE SKIP RETURN WITH:
2) ; W1/ NAME OF NEXT ENTRY POINT
2) ; W2/ VALUE OF ABOVE
2) ; W3/ UPDATED
2) ENTNXT: PUSHJ P,.SAVE4## ;[1174] SAVE LNKLOG'S P ACS
2) ENTLUP: SOSGE P2,W3 ;[1174] ANY MORE TABLE TO CHECK?
2) POPJ P, ;[1174] NO--DONE WITH NON-SKIP R
ETURN
2) SKIPN P3,@HT.PTR ;[1174] GET POINTER TO GS TRIPLE
T
2) JRST ENTLUP ;[1174] NONE THERE--TRY NEXT POI
NTER
2) ADD P3,GS.LB ;[1174] RELOCATE IN CASE IT MOVE
D
Digital Equipment Corporation 28-AUG-79 Page 174
PCO Log Report
2) MOVE T1,0(P3) ;[1174] DO FLAGS SAY SYMBOL AND
ENTRY?
2) TXNE T1,PT.SYM ;[1174] ..
2) TXNN T1,PS.ENT ;[1174] ..
2) JRST ENTLUP ;[1174] NO--TRY NEXT POINTER
2) MOVE W1,1(P3) ;[1174] YES--A WINNER! SET UP SY
MBOL NAME
2) MOVE W2,2(P3) ;[1174] AND VALUE
2) JRST CPOPJ1 ;[1174] DONE WITH SKIP RETURN
2) E01LSS::.ERR. (MS,.EC,V%L,L%F,S%I,LSS) ;[1174]
2) .ETC. (STR,,,,,,<No library search symbols (entry poin
ts)>) ;[1174]
2) POPJ P, ;[1174] DONE
2)26 %ESTIMATE:
**************
1)26 JRST ZSVERR ;ZERO IS INVALID
1) MOVEI T1,EXCPTR ;GET INITIAL POINTER
****
2)27 ;**;[1174] Replace @%EXCLUDE+2L DZN 3-Jun-79
2) JRST E$$ZSV ;[1174] ZERO IS INVALID
2) MOVEI T1,EXCPTR ;GET INITIAL POINTER
**************
1)31 JRST MAXERR ;AND IGNORE IF TOO SMALL
1) MOVEM T2,MAXCOR ;STORE MAXIMUM INCORE SIZE
****
2)32 ;**;[1174] Replace @MAXCORE+28L DZN 3-Jun-79
2) JRST E$$MTS ;[1174] AND IGNORE IF TOO SMALL
2) MOVEM T2,MAXCOR ;STORE MAXIMUM INCORE SIZE
**************
1)31 .ERR. (MS,.EC,V%L,L%W,S%W,MTB,<MAXCOR too big, >)
1) .ETC. (COR,.EC!.EP,,,,T2)
****
2)32 ;**;[1174] Replace @MAXCORE+35L DZN 3-Jun-79
2) E$$MTB::.ERR. (MS,.EC,V%L,L%W,S%W,MTB,</MAXCOR: too big, >) ;[
1174]
2) .ETC. (COR,.EC!.EP,,,,T2)
**************
1)31 MAXERR: .ERR. (MS,.EC,V%L,L%W,S%W,MTS,<MAXCOR too small, at le
ast >)
1) .ETC. (COR,.EC!.EP,,,,T1)
****
2)32 ;**;[1174] Replace @MAXERR DZN 3-Jun-79
2) E$$MTS::.ERR. (MS,.EC,V%L,L%W,S%W,MTS,</MAXCOR: too small, at
least >) ;[1174]
2) .ETC. (COR,.EC!.EP,,,,T1)
**************
1)34 JRST TDS ;TOO LATE TO CHANGE NOW
1) ;RESET GLOBAL SPACE
****
Digital Equipment Corporation 28-AUG-79 Page 175
PCO Log Report
2)35 ;**;[1174] Replace @%NOINITIAL+9L DZN 3-Jun-79
2) JRST E$$TDS ;[1174] TOO LATE TO CHANGE NOW
2) ;RESET GLOBAL SPACE
**************
1)34 TDS: .ERR. (MS,,V%L,L%W,S%W,TDS,<Too late to delete initial
symbols>)
1) POPJ P,
****
2)35 ;**;[1174] Replace @TDS DZN 3-Jun-79
2) E$$TDS::.ERR. (MS,,V%L,L%W,S%W,TDS,<Too late to delete initial
symbols>) ;[1174]
2) POPJ P,
**************
1)36 JRST ZSVERR ;ZERO IS INVALID
1) SETZ W3, ;ZERO VALUE FOR DUMMY REQUEST
****
2)37 ;**;[1174] Replace @%REQUIRE+4L DZN 3-Jun-79
2) JRST E$$ZSV ;[1174] ZERO IS INVALID
2) SETZ W3, ;ZERO VALUE FOR DUMMY REQUEST
**************
1)39 JRST SETU ;NOT DEFINED
1) JRST SETU
1) MOVE W2,W3 ;RECOVER W2
****
2)40 ;**;[1174] Replace @.SET0+8L DZN 3-Jun-79
2) JRST SETUND ;[1174] NOT DEFINED
2) JRST SETUND ;[1174]
2) MOVE W2,W3 ;RECOVER W2
**************
1)39 JRST SETL ;YES, DO NOT ALLOW IT
1) MOVE W1,RC.CV(R2) ;GET VALUE
1) .ERR. (MS,.EC,V%L,L%W,S%W,DRC,<Decreasing relocation c
ounter >)
1) .ETC. (SBX,.EC!.EP,,,,W2)
****
2)40 ;**;[1174] Replace @SET1+12L DZN 3-Jun-79
2) JRST E$$SRB ;[1174] YES, DO NOT ALLOW IT
2) MOVE W1,RC.CV(R2) ;GET VALUE
2) E$$DRC::.ERR. (MS,.EC,V%L,L%W,S%W,DRC,<Decreasing relocation c
ounter >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
**************
1)39 .ETC. (OCT,.EP,,,,W3)
1) JRST SET4 ;AND CONTINUE
****
2)40 .ETC. (OCT,.EC!.EP,,,,W3) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) JRST SET4 ;AND CONTINUE
**************
Digital Equipment Corporation 28-AUG-79 Page 176
PCO Log Report
1)40 ;**;[1172] Delete @ SET3+6L JNG 5-Jun-79
1) ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
****
2)41 ;**;[1172] Delete @SET3+6L JNG 5-Jun-79
2) ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
**************
1)40 SETU: .ERR. (MS,.EC,V%L,L%F,S%F,RCU,<Relocation counter >)
1) .ETC. (SBX,.EC!.EP,,,,W3)
1) .ETC. (STR,.EC,,,,,< undefined, set to >)
1) .ETC. (SBX,.EP,,,,W2)
1) ;**;[1132] Delete @ SETE JNG 30-Jan-79
1) SETL: .ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set >)
1) .ETC. (SBX,.EC!.EP,,,,W2) ;
1) .ETC. (STR,.EC,,,,,< below initial value of >)
1) .ETC. (OCT,.EP,,,,W1) ;
1) POPJ P, ;IGNORE SWITCH
****
2)41 ;**;[1174] Replace @SETU DZN 3-Jun-79
2) SETUND: MOVEI T1,[ASCIZ /SET:/] ;[1174] SIGNAL UNDEFINED SYMBO
L ERROR
2) JRST E$$USI ;[1174] ..
2) ;**;[1132] Delete @ SETE JNG 30-Jan-79
2) ;**;[1174] Replace @SETL DZN 3-Jun-79
2) E$$SRB::.ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set relocati
on counter >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;
2) .ETC. (STR,.EC,,,,,< below initial value of >)
2) .ETC. (OCT,.EC!.EP,,,,W1) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) POPJ P, ;IGNORE SWITCH
**************
1)41 JRST STARTU ;NO
1) JRST STARTU ;UNDEFINED
1) MOVE T2,2(P1) ;GET VALUE
****
2)42 ;**;[1174] Replace @STARTS+4L DZN 3-Jun-79
2) JRST E$$USA ;[1174] NO
2) JRST E$$USA ;[1174] UNDEFINED
2) MOVE T2,2(P1) ;GET VALUE
**************
1)41 STARTU::.ERR. (MS,.EC,V%L,L%W,S%W,USA,<Undefined start address
>)
1) .ETC. (SBX,.EP,,,,W2)
1) POPJ P,
****
2)42 ;**;[1174] Replace @STARTU DZN 3-Jun-79
2) E$$USA::.ERR. (MS,.EC,V%L,L%W,S%W,USA,<Undefined start address
>) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 177
PCO Log Report
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) POPJ P,
**************
1)42 .ERR. (MS,,V%M,L%W,S%W,SLS,<Symbols must be in low seg
ment>)
1) MOVEI T2,$SEGLOW ;PUT THEM IN LOW SEG
****
2)43 ;**;[1174: Replace @.SYMSEG+6L DZN 3-Jun-79
2) E$$OSL::.ERR. (MS,,V%L,L%W,S%W,OSL,<Overlaid program symbols m
ust be in low segment>) ;[1174]
2) MOVEI T2,$SEGLOW ;PUT THEM IN LOW SEG
**************
1)43 %UNDEFINED:
****
2)44 SUBTTL SWITCH ACTION -- /UNDEFINED
2) %UNDEFINED:
**************
1)43 PUSHJ P,.SAVE4## ;INCASE WE NEED THEM
1) HRRZ T1,LOWSUB ;[605] ON TTY ONLY
1) PUSHJ P,.TYOCH## ;INITIALIZE
1) PUSH P,T1 ;STORE OLD
1) MOVEI T1,[ASCIZ \[LNKUGS \]
1) MOVEI P2,"]"
1) UNDEF1::PUSHJ P,.TSTRG## ;TYPE IDENTIFIER
1) MOVE P1,USYM ;GET NUMBER OF UNDEFS IN A PRESE
RVED AC
1) SKIPE T1,P1 ;WHERE SCAN EXPECTS NUMBER
1) PUSHJ P,.TDECW## ;TYPE NO. UNLESS 0
1) MOVE T1,P1 ;GET UNDEFS AGAIN
1) CAILE T1,2 ;LEAVE 0 OR 1 ALONE
1) MOVEI T1,2 ;SET INDEX TO 0,1, OR 2
1) MOVE T1,UNDTAB(T1) ;GET ADDRESS
1) PUSHJ P,.TSTRG## ;OUTPUT MESSAGE
1) SKIPE T1,P2 ;GET TERMINATOR
1) PUSHJ P,.TCHAR## ;CLOSE IF "]"
1) PUSHJ P,.TCRLF## ;AND CR-LF
1) JUMPE P1,UNDF3 ;DONE IF NONE LEFT
1) SKIPA P2,HT.PRM ;GET INDEX INTO HASH TABLE
1) UNDF1: SKIPN P3,@HT.PTR ;GET POINTER TO SYMBOL
1) JRST UNDF2 ;NO POINTER, NO SYMBOL
1) ADD P3,GS.LB ;ADD IN BASE
1) MOVE T1,0(P3) ;GET FLAGS
1) TXNE T1,PT.SYM ;WE ONLY WANT SYMBOLS
1) TXNN T1,PS.UDF!PS.REQ ;SEE IF UNDEFINED STILL
1) JRST UNDF2 ;NO
1) PUSHJ P,.TTABC## ;OFFSET EACH LINE
1) MOVE T1,1(P3) ;GET SYMBOL
1) PUSHJ P,.TSIXN## ;SIXBIT WORD
1) PUSHJ P,.TTABC## ;TAB
Digital Equipment Corporation 28-AUG-79 Page 178
PCO Log Report
1) MOVE T1,2(P3) ;VALUE
1) PUSHJ P,.TOCTW## ;IN OCTAL
1) PUSHJ P,.TCRLF## ;NEW LINE
1) IFE DEBSW,< ;IF DEBUGGING SCAN ALL OF TABLE
1) SOJLE P1,UNDF3 ;DONE IF NO MORE UNDFS
1) ;INCASE COUNT OFF>
1) UNDF2: SOJGE P2,UNDF1 ;LOOP IF MORE SYMBOLS TO LOOK AT
1) UNDF3: POP P,T1 ;RESTORE OLD TYO ROUTINE
1) PJRST .TYOCH##
1) UNDTAB: [ASCIZ /No undefined global symbols/]
****
2)44 ;**;[1174] Revamp @.UNDEFINED+1L DZN 6-Jun-79
2) MOVE T1,[PUSHJ P,UNDNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
2) MOVEM T1,NXTGLB ;[1174] ..
2) MOVE W3,HT.PRM ;[1174] SET UP INDEX TO HASH TAB
LE
2) ADDI W3,1 ;[1174] SET UP BY 1 FOR SOSGE BE
LOW
2) E$$UGS::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,UGS) ;[1174]
2) .ETUGS::.ETC. (XCT,.EC,,,,<[PUSHJ P,UNDHDR]>) ;[1174] PRINT HE
ADER AND SEE IF ANY SYMBOLS
2) .ETC. (JMP,.EC,,,,.ETDON##) ;[1174] NO UNDEFINED SYMBO
LS
2) .ETC. (JMP,,,,,.ETSAV##) ;[1174] GO PRINT SYMBOLS AND
VALUES
2) ;UNDHDR PRINTS THE APPROPRIATE HEADER FOR THE LNKUGS MESSAGE (E
ITHER NO, 1 OR N
2) ;UNDEFINED GLOBALS). THE CARDINALITY OF THE HEADER IS DETERMINE
D BY LOOKING AT
2) ;USYM, WHICH SOMETIMES GETS OUT OF SYNC WITH THE ACTUAL GS TA
BLE. BUT UNDNXT
2) ;(BELOW) PRINTS ALL UNDEFINED GLOBALS REGARDLESS.
2) UNDHDR: SKIPN T1,USYM ;[1174] ANY SYMBOLS TO PRINT?
2) JRST UNDHD1 ;[1174] NO--PRINT 'NO' INSTEAD O
F '0'
2) OUTVIA .TDECW## ;[1174] PRINT NUMBER OF UNDEFINE
D GLOBALS
2) UNDHD1: MOVE T1,USYM ;[1174] GET NUMBER OF UNDEFS BAC
K
2) CAILE T1,2 ;[1174] TURN MANY INTO 2 FOR HEA
DER MESSAGE
2) MOVEI T1,2 ;[1174] ..
2) MOVE T1,UNDTAB(T1) ;[1174] GET PROPER HEADER MESSAG
E
2) OUTVIA .TSTRG## ;[1174] PRINT IT
2) PJRST UNDNXT ;[1174] RETURN, SETTING UP FIRST
SYMBOL
2)45 ;UNDNXT RETURNS THE NEXT UNDEFINED SYMBOL AND ITS VALUE.
2) ;
2) ;CALL:
Digital Equipment Corporation 28-AUG-79 Page 179
PCO Log Report
2) ; W3/ NEXT HASH TABLE INDEX TO CHECK
2) ;RETURNS WITH A NON-SKIP RETURN IF NO MORE SYMBOLS. OTHERWISE
, RETURNS WITH A
2) ;SKIP RETURN WITH:
2) ; W1/ SIXBIT SYMBOL NAME
2) ; W2/ OCTAL VALUE
2) ; W3/ UPDATED
2) UNDNXT::PUSHJ P,.SAVE4## ;[1174] SAVE LNKLOG'S P ACS
2) UGSLUP: SOSGE P2,W3 ;[1174] ANY MORE SYMBOLS TO CHEC
K?
2) POPJ P, ;[1174] NO--NON-SKIP RETURN
2) SKIPN P3,@HT.PTR ;[1174] ANY SYMBOL HERE?
2) JRST UGSLUP ;[1174] NO--TRY NEXT
2) ADD P3,GS.LB ;[1174] YES--RELOCATE SO WE CAN
LOOK AT IT
2) MOVE T1,0(P3) ;[1174] GET SYMBOL'S FLAGS
2) TXNE T1,PT.SYM ;[1174] MUST BE A SYMBOL AND UND
EFINED
2) TXNN T1,PS.UDF!PS.REQ;[1174] ..
2) JRST UGSLUP ;[1174] NO--TRY NEXT
2) MOVE W1,1(P3) ;[1174] YES--A WINNER!! SET UP S
YMBOL'S NAME
2) MOVE W2,2(P3) ;[1174] AND VALUE
2) JRST CPOPJ1 ;[1174] DONE--GIVE SKIP RETURN
2) UNDTAB: [ASCIZ /No undefined global symbols/]
**************
1)47 %VALUE:
****
2)49 SUBTTL /VALUE:SYMBOL
2) ;/VALUE:SYMBOL PRINTS THE VALUE OF THE SYMBOL (IF IT HAS ONE
YET), ALONG WITH
2) ;SOME STATUS INFORMATION (E.G., COMMON).
2) %VALUE:
**************
1)47 PUSHJ P,.SAVE4## ;SAVE P1-P4
1) MOVX W1,PT.SGN!PT.SYM ;SET FLAGS
1) SKIPN W2,T2 ;SYMBOL
1) JRST ZSVERR ;ZERO IS INVALID
1) SETZ W3, ;[605] VALUE 0 UNLESS LONG SYMBO
L
1) HRRZ T1,LOWSUB ;[605] USE OUTSTR'S
1) PUSHJ P,.TYOCH## ;INIT TTY
1) PUSH P,T1 ;SAVE OLD ROUTINE
1) MOVEI T1,[ASCIZ \[LNKVAL \]
1) PUSHJ P,.TSTRG##
1) MOVE T1,W2 ;SYMBOL
1) PUSHJ P,.TSIXN## ;IN SIXBIT
1) PUSHJ P,.TTABC## ;SEPARATED BY TAB
1) PUSHJ P,TRYSYM## ;SEE IF IN TABLE
Digital Equipment Corporation 28-AUG-79 Page 180
PCO Log Report
1) JRST UNVALU ;SYMBOL UNKNOWN
1) JRST UDVALU ;SYMBOL UNDEFINED
1) MOVE T1,2(P1) ;GET VALUE
1) PUSHJ P,.TOCTW## ;TYPE IN OCTAL
1) MOVE T1,0(P1) ;GET PRIMARY FLAGS
1) TXNE T1,PS.COM ;COMMON?
1) JRST CMVALU ;YES
1) MOVEI T1,[ASCIZ / defined]/]
1) VALOUT: PUSHJ P,.TSTRG## ;AND DEFINED MESSAGE
1) PUSHJ P,.TCRLF## ;FINISH WITH A CR-LF
1) POP P,T1 ;RESTORE OLD
1) PJRST .TYOCH##
1) CMVALU: MOVEI T1,[ASCIZ / common, length /]
1) PUSHJ P,.TSTRG##
1) MOVE T1,.L+2(P1) ;LENGTH
1) PUSHJ P,.TDECW## ;IN DECIMAL
1) MOVEI T1,[ASCIZ \ (decimal)]\]
1) JRST VALOUT ;INFORM USER
1) UNVALU: MOVEI T1,[ASCIZ /unknown]/]
1) JRST VALOUT
1) UDVALU: MOVE T1,2(P1) ;GET VALUE
1) PUSHJ P,.TOCTW## ;IN OCTAL
1) MOVEI T1,[ASCIZ / undefined]/]
1) JRST VALOUT
1)48 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
****
2)49 ;**;[1174] Revamp @.VALUE+1L DZN 3-Jun-79
2) MOVX W1,PT.SGN!PT.SYM ;SET FLAGS
2) SKIPN W2,T2 ;[1174] SET UP SYMBOL FOR TRYSYM
AND CHECK FOR 0
2) JRST E$$ZSV ;[1174] ZERO IS INVALID
2) SETZ W3, ;[605] VALUE 0 UNLESS LONG SYMBO
L
2) E$$VAL::.ERR. (MS,.EC,V%L,L%F,S%I,VAL,<Symbol >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
2) .ETC. (ASC,.EC,,,,.CHTAB) ;[1174]
2) .ETC. (XCT,,,,,<[PUSHJ P,VALOUT]>) ;[1174] THE REST IS
COMPLEX
2) POPJ P, ;[1174] DONE
2) ;VALOUT IS CALLED FROM THE MIDDLE OF THE ABOVE .ERR. MESS
AGE TO PRINT THE
2) ;VARIABLE PORTION OF THE MESSAGE.
2) VALOUT: PUSHJ P,.SAVE4## ;[1174] SAVE LNKLOG'S P ACX
2) PUSHJ P,TRYSYM## ;SEE IF IN TABLE
2) JRST VALOND ;[1174] SYMBOL NEVER DEFINED
2) JRST VALOUN ;[1174] SYMBOL UNDEFINED
2) MOVE T1,2(P1) ;[1174] PRINT VALUE IN OCTAL
2) OUTVIA .TOCTW## ;[1174] ..
2) MOVE T1,0(P1) ;[1174] CHECK FOR COMMON BLOCKS
Digital Equipment Corporation 28-AUG-79 Page 181
PCO Log Report
2) TXNE T1,PS.COM ;[1174] ..
2) JRST VALOCM ;[1174] GO PRINT LENGTH OF COMMO
N
2) MOVEI T1,[ASCIZ / defined/] ;[1174] OTHERWISE JUST
ORDINARY SYMBOL
2) VALOST: OUTVIA .TSTRG## ;[1174] PRINT STATUS OF SYMBOL
2) POPJ P, ;[1174] DONE
2) VALOCM: MOVEI T1,[ASCIZ / common, length /] ;[1174] START
STATUS OF SYMBOL
2) OUTVIA .TSTRG## ;[1174] ..
2) MOVE T1,.L+2(P1) ;[1174] PRINT LENGTH IN DECIMAL
2) OUTVIA .TDECW## ;[1174] ..
2) MOVEI T1,[ASCIZ /./] ;[1174] A DOT TO INDICATE DECIMA
L
2) PJRST VALOST ;[1174] GO PRINT STATUS AND RETU
RN
2) VALOND: MOVEI T1,[ASCIZ /unknown/] ;[1174] HAVEN'T SEEN THE SY
MBOL YET
2) PJRST VALOST ;[1174] GO PRINT STATUS AND RETU
RN
2) VALOUN: MOVE T1,2(P1) ;[1174] PRINT VALUE IN OCTAL
2) OUTVIA .TOCTW## ;[1174] ..
2) MOVEI T1,[ASCIZ / undefined/] ;[1174] ONLY SEEN RE
FERENCES SO FAR
2) PJRST VALOST ;[1174] GO PRINT STATUS AND RETU
RN
2)50 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
**************
1)51 .ERR. (MS,0,V%L,L%W,S%W,IMA,<Incremental maps not yet
available>)
1) MAPOK: MOVSI T1,'MAP' ;DEFAULT EXT
****
2)53 ;**;[1174] Replace @%MAP+5L DZN 3-Jun-79
2) E$$IMA::.ERR. (MS,0,V%L,L%W,S%W,IMA,<Incremental maps not yet
available>) ;[1174]
2) MAPOK: MOVSI T1,'MAP' ;DEFAULT EXT
**************
1)52 LOG1: PUSHJ P,LOG99 ;OUTPUT INFO MESSAGE
1) SETZM LOGTTY ;CLEAR IT
****
2)54 ;**;[1174] Replace @LOG1 DZN 3-Jun-79
2) LOG1: PUSHJ P,E$$CLF ;[1174] OUTPUT INFO MESSAGE
2) SETZM LOGTTY ;CLEAR IT
**************
1)52 JUMPL P2,LOG2A ;BEEN INITIALIZED ONCE
1) .ERR. (MS,0,V%L,L%I,S%I,LFI,<LOG file initialization>)
1) PJRST LOG0 ;AND REMOVE DATA BLOCK
1) LOG2A: .ERR. (MS,0,V%L,L%I,S%I,LFC,<LOG file continuation>)
1) PJRST LOG0
****
2)54 ;**;[1174] Replace @LOG2+11L DZN 3-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 182
PCO Log Report
2) JUMPL P2,E$$LFC ;[1174] BEEN INITIALIZED ONCE
2) E$$LFI::.ERR. (MS,0,V%L,L%I,S%I,LFI,<Log file initialization>)
;[1174]
2) PJRST LOG0 ;AND REMOVE DATA BLOCK
2) ;**;[1174] Replace @LOG2A DZN 3-Jun-79
2) E$$LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC,<Log file continuation>) ;
[1174]
2) PJRST LOG0
**************
1)53 JUMPL P2,LOG4B ;BEEN INITIALIZED
1) .ERR. (MS,0,V%L,L%I,S%I,LFI)
1) JRST RESTP1 ;AND RETURN
1) LOG4B: .ERR. (MS,0,V%L,L%I,S%I,LFC)
1) PJRST RESTP1
1) LOG5: PUSHJ P,LOG99 ;OUTPUT MESSAGE
1) RELEASE RC,
****
2)55 ;**;[1174] Replace @LOG4+13L DZN 3-Jun-79
2) JUMPL P2,E01LFC ;[1174] BEEN INITIALIZED
2) E01LFI::.ERR. (MS,0,V%L,L%I,S%I,LFI) ;[1174]
2) JRST RESTP1 ;AND RETURN
2) ;**;[1174] Replace @LOG4B DZN 3-Jun-79
2) E01LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC) ;[1174]
2) PJRST RESTP1
2) LOG5: PUSHJ P,E$$CLF ;[1174] OUTPUT MESSAGE
2) RELEASE RC,
**************
1)53 LOG99: .ERR. (MS,.EC,V%L,L%I,S%I,CLF,<Closing LOG file, conti
nuing on >)
1) .ETC. (FSP,,,,,%RC)
****
2)55 ;**;[1174] Replace @LOG99 DZN 3-Jun-79
2) E$$CLF::.ERR. (MS,.EC,V%L,L%I,S%I,CLF,<Closing log file, conti
nuing on file >) ;[1174]
2) .ETC. (FSP,,,,,%RC)
**************
1)57 JRST DNSERR ;NO CHAN# NO DEVICE!
1) MOVE T1,IO.PTR(T1) ;POINT TO DATA BLOCK
****
2)59 ;**;[1174] Replace @DNSCHK+1L DZN 3-Jun-79
2) JRST E$$DNS ;[1174] NO CHAN# NO DEVICE!
2) MOVE T1,IO.PTR(T1) ;POINT TO DATA BLOCK
**************
1)57 JRST DNSERR ;NO, DON'T ALLOW DSK BY DEFAULT
1) HRLZ T1,IO.CHN ;GET LAST I/O CHAN INITED
****
2)59 ;**;[1174] Replace @DNSCHK+5L DZN 3-Jun-79
2) JRST E$$DNS ;[1174] NO, DON'T ALLOW DSK BY D
EFAULT
Digital Equipment Corporation 28-AUG-79 Page 183
PCO Log Report
2) HRLZ T1,IO.CHN ;GET LAST I/O CHAN INITED
**************
1)57 DNSERR: .ERR. (MS,.EC,V%L,L%F,S%F,DNS,<Device not specified fo
r />)
1) .ETC. (STR,.EP,,,,T2)
****
2)59 ;**;[1174] Replace @DNSERR DZN 3-Jun-79
2) E$$DNS::.ERR. (MS,.EC,V%L,L%F,S%F,DNS,<Device not specified fo
r switch />) ;[1174]
2) .ETC. (STR,.EP,,,,T2)
**************
1)64 .ERR. (MS,0,V%L,L%W,S%W,MSN,<MAP sorting not yet imple
mented>)
1) $MPSUNSORTED:
****
2)66 ;**;[1174] Replace @MPSNUMERICAL+1L DZN 3-Jun-79
2) E$$MSN::.ERR. (MS,0,V%L,L%W,S%W,MSN,<Map sorting not yet imple
mented>) ;[1174]
2) $MPSUNSORTED:
**************
1)64 .ERR. (MS,0,V%L,L%W,S%W,SSN,<Symbol table sorting not
yet implemented>)
1) $SYSUNSORTED:
****
2)66 ;**;[1174] Replace @SYSNUMERICAL+1L DZN 3-Jun-79
2) E$$SSN::.ERR. (MS,0,V%L,L%W,S%W,SSN,<Symbol table sorting not
yet implemented>) ;[1174]
2) $SYSUNSORTED:
**************
1)65 ZSVERR::.ERR. (MS,0,V%M,L%W,S%W,ZSV,<Zero switch value illegal
>)
1) POPJ P,
1) WLDLIT:
1) END
****
2)67 ;**;[1174] Replace @ZSVERR DZN 3-Jun-79
2) E$$ZSV::.ERR. (MS,0,V%L,L%W,S%W,ZSV,<Zero switch value illegal
>) ;[1174]
2) POPJ P,
2) E$$USI::.ERR. (MS,.EC,V%L,L%F,S%B,USI,<Undefined symbol >) ;[1
174]
2) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
2) .ETC. (STR,.EC,,,,,< illegal in switch />) ;[1174]
2) .ETC. (STR,.EP,,,,T1) ;[1174]
2) POPJ P, ;[1174] RETURNS IF NOT BATCH
2) WLDLIT:
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 184
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1544 10-Jun-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1941 10-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 5-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 10-Jun-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1172 ;DEC EDIT VERSION
1) VERSION
1) SEGMENT
1) ;LOCAL ACC DEFINITION
1) R==R1
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1174 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
2) SALL
2) ;LOCAL ACC DEFINITION
2) R==R1
2)2 SUBTTL REVISION HISTORY
**************
1)7 SUBTTL ENTER HERE
1) LNKXIT: JFCL .+1 ;IN CASE CCL ENTRY
1) .ERR. (MS,0,V%L,L%I,S%I,EXS,<EXIT segment>)
1) ZAPTMP ;CLEAR ALL TEMP SPACE
****
2)6 ;1174 Label and clean up all error messages.
2)7 SUBTTL ENTER HERE
2) LNKXIT: JFCL .+1 ;IN CASE CCL ENTRY
2) E$$EXS::.ERR. (MS,0,V%L,L%I,S%I,EXS,<EXIT segment>) ;[1174]
2) ZAPTMP ;CLEAR ALL TEMP SPACE
**************
1)8 PUSHJ P,ER.IOV## ;INPUT ERROR
1) HRRZM T1,HL.S1 ;
****
2)8 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
2) HRRZM T1,HL.S1 ;
**************
1)9 PUSHJ P,ER.IOV##
1) SUB T1,LC.LB
****
2)9 PUSHJ P,E$$IOV## ;[1174]
2) SUB T1,LC.LB
**************
1)11 PUSH P,[HC]
1) .ERR. (ST,,V%L,L%F,S%F,IHC)
Digital Equipment Corporation 28-AUG-79 Page 185
PCO Log Report
1) ;HERE IF LOWSEG PAGED, WE NEED BOTH ENDS OF FILE AT ONCE
****
2)11 PUSHJ P,E$$IHC## ;[1174] DIE WITH ERROR
2) ;HERE IF LOWSEG PAGED, WE NEED BOTH ENDS OF FILE AT ONCE
**************
1)11 PUSH P,[LC]
1) .ERR. (ST,,V%L,L%F,S%F,ILC)
1) ;HERE TO JUST BLT JOBDAT AREA TO SAFE PLACE
****
2)11 PUSHJ P,E$$ILC## ;[1174] DIE WITH ERROR
2) ;HERE TO JUST BLT JOBDAT AREA TO SAFE PLACE
**************
1)12 .ERR. (MS,0,V%L,L%I,S%I,SST,<Sorting symbol table>)
1) PUSHJ P,GETSST ;[1172] FIND BASE OF SYMBOLS, SE
T R AND P4
****
2)12 E$$SST::.ERR. (MS,0,V%L,L%I,S%I,SST,<Sorting symbol table>) ;[
1174]
2) PUSHJ P,GETSST ;[1172] FIND BASE OF SYMBOLS, SE
T R AND P4
**************
1)13 .ERR. (MS,0,V%L,L%I,S%I,STC,<Symbol table completed>)
1) JRST FINRST ;[1172] GO JOIN COMMON CLEAN UP
CODE
****
2)13 E$$STC::.ERR. (MS,0,V%L,L%I,S%I,STC,<Symbol table completed>)
;[1174]
2) JRST FINRST ;[1172] GO JOIN COMMON CLEAN UP
CODE
**************
1)17 .ERR. (MS,.EC,V%M,L%W,S%W,NPS,<NON-EXISTENT PSECT SPEC
IFIED -- >) ;[1110]
1) .ETC. (SBX,.EP,,,,SSGNAM) ;[1110] OUTPUT PSECT NAM
E
1) MOVEI R,1 ;[1132] SET TO LOW
****
2)17 E$$NPS::.ERR. (MS,.EC,V%L,L%W,S%W,NPS,<Non-existent psect >)
;[1110] ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,SSGNAM) ;[1174] OUTPUT PSECT NAM
E
2) .ETC. (STR,,,,,,< specified for symbol table>) ;[1174]
2) MOVEI R,1 ;[1132] SET TO LOW
**************
1)23 JRST GSRED ;NO, ALL IS WELL
1) ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
****
2)23 JRST E$$RED ;[1174] NO, ALL IS WELL
2) ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
**************
Digital Equipment Corporation 28-AUG-79 Page 186
PCO Log Report
1)23 GSRED: .ERR. (MS,.EC,V%L,L%I,S%I,RED,<Reducing low segment to
>)
1) .ETC. (COR,.EP,,,,.JBREL)
****
2)23 E$$RED::.ERR. (MS,.EC,V%L,L%I,S%I,RED,<Reducing low segment to
>) ;[1174]
2) .ETC. (COR,.EP,,,,.JBREL)
**************
1)25 PUSHJ P,NO.COR## ;[1172] CANNOT HAPPEN
1) ;NOW READ THE LAST PAGE OF SYMBOLS INTO THE FIRST PAGE OF THE LS
AREA.
****
2)25 PUSHJ P,E$$MEF## ;[1174] CANNOT HAPPEN
2) ;NOW READ THE LAST PAGE OF SYMBOLS INTO THE FIRST PAGE OF THE LS
AREA.
**************
1)32 .ERR. (MS,.EC,V%L,L%F,S%F,CNW)
1) .ETC. (STR,,,,,,<FNDNIC>)
****
2)32 E03CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
2) .ETC. (STR,,,,,,<FNDNIC>)
**************
1)34 .ERR. (MS,.EC,V%L,L%W,S%W,ISS,<Insufficient space for
symbol table>)
1) .ETC. (STR,.EC,,,,,< after PSECT >)
1) .ETC. (SBX,.EP!.EC,,,,SSGNAM)
1) .ETC. (STR,,,,,,<--Table truncated>)
1) ;**;[1172] Replace @ SYMOE1-1L JNG 5-Jun-79
****
2)34 E$$ISS::.ERR. (MS,.EC,V%L,L%W,S%W,ISS,<Insufficient space for
symbol table after psect >) ;[1174]
2) .ETC. (SBX,.EP!.EC,,,,SSGNAM)
2) .ETC. (STR,,,,,,< -- table truncated>)
2) ;**;[1172] Replace @ SYMOE1-1L JNG 5-Jun-79
**************
1)35 PUSHJ P,NO.COR## ;[1172] SHOULD NEVER GET HERE
1) SETZM LS.PP ;[1172] RESTORE
****
2)35 PUSHJ P,E$$MEF## ;[1174] SHOULD NEVER GET HERE
2) SETZM LS.PP ;[1172] RESTORE
**************
1)35 PUSHJ P,NO.COR## ;[1172] YES, LNKOV2 CAN'T HANDLE
THAT
1) > ;END IFN FTOVERLAY
****
2)35 PUSHJ P,E$$MEF## ;[1174] YES, LNKOV2 CAN'T HANDLE
THAT
2) > ;END IFN FTOVERLAY
**************
Digital Equipment Corporation 28-AUG-79 Page 187
PCO Log Report
1)37 PUSH P,[MC]
1) .ERR. (ST,,V%L,L%W,S%W,OES,<Output error on symbol fil
e, file closed, job continuing>)
1) POPJ P,
****
2)37 E$$OES::PUSH P,[MC] ;[1174]
2) .ERR. (ST,,V%L,L%W,S%W,OES,<Output error on symbol fil
e, file closed, load continuing>)
2) POPJ P,
**************
1)39 PUSH P,[DC]
1) .ERR. (ST,,V%L,L%W,S%W,OES)
****
2)39 E01OES::PUSH P,[DC] ;[1174]
2) .ERR. (ST,,V%L,L%W,S%W,OES)
**************
1)48 JRST JBCMP1 ;[1146] YES--LNKPCX
1) .ERR. (MS,.EC,V%L,L%W,S%W,PCL,<Program too complex to
load, saving as >)
1) .ETC. (JMP,.EC,,,,JBCMP2)
1) JBCMP1: .ERR. (MS,.EC,V%L,L%W,S%I,PCX,<Program too complex to
load and execute, will run from >)
1) JBCMP2: .ETC. (FSP,,,,,%VC)
****
2)49 ;**;[1174] Replace @JBCMPX+21L DZN 3-Jun-79
2) JRST E$$PCX ;[1174] YES--LNKPCX
2) E$$PCL::.ERR. (MS,.EC,V%L,L%W,S%W,PCL,<Program too complex to
load, saving as file >) ;[1174]
2) .ETC. (JMP,.EC,,,,JBCMP2)
2) E$$PCX::.ERR. (MS,.EC,V%L,L%W,S%I,PCX,<Program too complex to
load and execute, will run from file >) ;[1174]
2) JBCMP2: .ETC. (FSP,,,,,%VC)
**************
1)49 JBSAVE: .ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>)
1) ;**;[1146] Delete @JBSAVE+1L DZN 8-Mar-79
****
2)50 ;**;[1174] Replace @JBSAVE DZN 3-Jun-79
2) JBSAVE: ;[1174] WRITE A SAVED FILE
2) E$$CSF::.ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>) ;[1
174]
2) ;**;[1146] Delete @JBSAVE+1L DZN 8-Mar-79
**************
1)50 PUSH P,[DC]
1) .ERR. (ST,,V%L,L%F,S%F,SOE,<SAVE file output error>)
1)51 JBSHGR: MOVEI T1,DC ;MAKE SURE CHAN# SETUP
****
2)51 ;**;[1174] Replace @JBSHGN+7L DZN 3-Jun-79
2) E$$SOE::PUSH P,[DC] ;[1174]
2) .ERR. (ST,,V%L,L%F,S%F,SOE,<Saved file output error>)
Digital Equipment Corporation 28-AUG-79 Page 188
PCO Log Report
;[1174]
2)52 JBSHGR: MOVEI T1,DC ;MAKE SURE CHAN# SETUP
**************
1)56 PUSHJ P,XPNERR
1) PUSHJ P,DVRLS.## ;RELEASE DEV
1) PJRST DVZAP.## ;FORGET ABOUT .XPN FILE NOW
1) XPNERR: PUSH P,[LC]
1) .ERR. (ST,,V%L,L%W,S%W,OEX,<Output error on XPN file,
file closed, job continuing>)
1) POPJ P,
****
2)57 ;**;[1174] Replace @WRTXPN+9L DZN 3-Jun-79
2) PUSHJ P,E$$OEX ;[1174]
2) PUSHJ P,DVRLS.## ;RELEASE DEV
2) PJRST DVZAP.## ;FORGET ABOUT .XPN FILE NOW
2) ;**;[1174] Replace @XPNERR DZN 3-Jun-79
2) E$$OEX::PUSH P,[LC] ;[1174]
2) .ERR. (ST,,V%L,L%W,S%W,OEX,<Output error on XPN file,
file closed, load continuing>) ;[1174]
2) POPJ P,
**************
1)62 JRST [PUSH P,[DC] ;FATAL CHAN
1) .ERR. (LRE,0,V%L,L%F,S%F,ECE,<Error creating E
XE file - >)]
1) SKIPE IO.PTR+%XC ;WANT .XPN FILE?
****
2)63 ;**;[1174] Replace @EXEINI+27L DZN 3-Jun-79
2) JRST E$$ECE ;[1174] CAN'T
2) SKIPE IO.PTR+%XC ;WANT .XPN FILE?
**************
1)64 PUSHJ P,XCMPER ;[1132] I/O ERROR
1) USETO DC,9 ;[1132] WRITE ZEROS INTO THE RES
T OF PAGE 0
****
2)65 ;**;[1174] Replace @ DZN 3-Jun-79
2) PUSHJ P,E$$EOE ;[1174] I/O ERROR
2) USETO DC,9 ;[1132] WRITE ZEROS INTO THE RES
T OF PAGE 0
**************
1)65 ;THIS IS THE MAIN LOOP FOR THE EXE FILE WRITER.
****
2)65 ;**;[1174] Insert after **somewhere**+1P18L DZN 3-Jun-79
2) E$$ECE::PUSH P,[DC] ;[1174] GIVE OFFENDING CHANNEL T
O LNKLOG
2) .ERR. (LRE,0,V%L,L%F,S%F,ECE,<Error creating EXE file>
) ;[1174]
2)66 ;THIS IS THE MAIN LOOP FOR THE EXE FILE WRITER.
**************
1)66 JRST XCMPER ;[1132] I/O ERROR
1) MOVE P2,P3 ;[1132] SET UP NEW PROCESS PAGE
****
Digital Equipment Corporation 28-AUG-79 Page 189
PCO Log Report
2)67 ;**;[1174] Replace @XCMNWZ+8L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] I/O ERROR
2) MOVE P2,P3 ;[1132] SET UP NEW PROCESS PAGE
**************
1)67 JRST XCMPER ;[1132] I/O ERROR
1) CAML P3,HC.S0(R) ;[1132] OFF THE END OF THE SEGME
NT?
****
2)68 ;**;[1174] Replace @XCMADV+3L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] I/O ERROR
2) CAML P3,HC.S0(R) ;[1132] OFF THE END OF THE SEGME
NT?
**************
1)72 JRST XCMPER ;[1132] IO ERROR
1) MOVEI W1,1 ;[1132] NOW LOOP OVER DIR, START
ING AT BLOCK 1
****
2)73 ;**;[1174] Replace @XCMPXD+13L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] IO ERROR
2) MOVEI W1,1 ;[1132] NOW LOOP OVER DIR, START
ING AT BLOCK 1
**************
1)72 JRST XCMPER ;[1132] FAILED
1) MOVE T2,EXEDIR ;[1132] NOW SETUP AOBJN PTR TO E
XE DIR PAGE
****
2)73 ;**;[1174] Replace @XCMPXE+3L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] FAILED
2) MOVE T2,EXEDIR ;[1132] NOW SETUP AOBJN PTR TO E
XE DIR PAGE
**************
1)72 JRST XCMPER ;[1132] I/O ERROR
1) ADDI W1,4 ;[1132] BLOCK NUMBER OF NEXT PAG
E
****
2)73 ;**;[1174] Replace @XCMPXF+8L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] I/O ERROR
2) ADDI W1,4 ;[1132] BLOCK NUMBER OF NEXT PAG
E
**************
1)73 JRST XCMPER ;[1132] ERROR
1) OUT DC,T3 ;[1132] WRITE IT INTO THE NEXT P
AGE
1) CAIA ;[1132] OK
1) JRST XCMPER ;[1132] ERROR
1) SUBI W1,4 ;[1132] BACK UP ONE MORE DATA BL
OCK
****
2)74 ;**;[1174] Replace @XCMPXG+5L DZN 3-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 190
PCO Log Report
2) JRST E$$EOE ;[1174] ERROR
2) OUT DC,T3 ;[1132] WRITE IT INTO THE NEXT P
AGE
2) CAIA ;[1132] OK
2) JRST E$$EOE ;[1174] ERROR
2) SUBI W1,4 ;[1132] BACK UP ONE MORE DATA BL
OCK
**************
1)74 PUSHJ P,NO.COR## ;[1132] FR.CNT LIED!!
1) SPOP <P2,P1> ;[1132] RESTORE THE SACRED COWS
****
2)75 PUSHJ P,E$$MEF## ;[1174] FR.CNT LIED!!
2) SPOP <P2,P1> ;[1132] RESTORE THE SACRED COWS
**************
1)75 JRST XCMPER ;[1132] I/O ERROR
1) JUMPG R2,XOVNXW ;[1132] IF NOT DONE, LOOP BACK T
O TRY AGAIN
****
2)76 ;**;[1174] Replace @XOVDMP+9L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] I/O ERROR
2) JUMPG R2,XOVNXW ;[1132] IF NOT DONE, LOOP BACK T
O TRY AGAIN
**************
1)78 JRST XCMPER ;ERROR
1) CAIE T3,1 ;WAS IT JUST SIMPLE CASE?
****
2)79 ;**;[1174] Replace @**somewhere**+7L DZN 3-Jun-79
2) JRST E$$EOE ;[1174] ERROR
2) CAIE T3,1 ;WAS IT JUST SIMPLE CASE?
**************
1)78 JRST XCMPER] ;ERROR
1) MOVE T1,EXEDIR ;GET BASE AGAIN
****
2)79 ;**;[1174] Replace @**somewhere**+1P18L DZN 3-Jun-79
2) JRST E$$EOE] ;[1174] ERROR
2) MOVE T1,EXEDIR ;GET BASE AGAIN
**************
1)78 XCMPER: PUSH P,[DC]
1) .ERR. (ST,,V%L,L%F,S%F,EOE,<EXE FILE OUTPUT ERROR>)
1) >;END OF IFN FTEXE
****
2)79 ;**;[1174] Replace @XCMPER DZN 3-Jun-79
2) E$$EOE::PUSH P,[DC] ;[1174]
2) .ERR. (ST,,V%L,L%F,S%F,EOE,<EXE file output error>) ;[
1174]
2) >;END OF IFN FTEXE
**************
1)80 PUSHJ P,NO.COR## ;CANNOT HAPPEN
1) POP P,P2 ;RESTORE RELATIVE ADDRESS
Digital Equipment Corporation 28-AUG-79 Page 191
PCO Log Report
****
2)81 PUSHJ P,E$$MEF## ;[1174] CANNOT HAPPEN
2) POP P,P2 ;RESTORE RELATIVE ADDRESS
**************
1)82 ZCMP7E: PUSH P,[DC]
1) .ERR. (ST,,V%L,L%F,S%F,SOE)
1)83 ;NOW TO MOVE DOWN THE REMAINING DATA IN THE BUFFER PRIOR TO
****
2)83 ;**;[1174] Replace @ZCMPR7+10L DZN 3-Jun-79
2) JRST E$$SOE ;[1174] PRINT ERROR AND DIE
2)84 ;NOW TO MOVE DOWN THE REMAINING DATA IN THE BUFFER PRIOR TO
**************
1)83 ; ..
1)84 ; ..
1) ZCMP9A: SKIPE T1,LSTPAG ;NOW CUT BACK CORE
****
2)84 ZCMP9A: SKIPE T1,LSTPAG ;NOW CUT BACK CORE
**************
1)85 JRST OVRENE ;[616] REPORT RENAME ERROR
1) SKIPE PLOTSW ;WANT PLOT PACKAGE?
****
2)85 ;**;[1174] Replace @ENDCMP+16L DZN 3-Jun-79
2) JRST E01FRE ;[1174] REPORT RENAME ERROR
2) SKIPE PLOTSW ;WANT PLOT PACKAGE?
**************
1)85 OVRENE: PUSH P,[%OC] ;[616] SET UP CORRECT CHANNEL
1) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] GIVE A FATAL ERRO
R
****
2)85 ;**;[1174] Replace @OVRENE DZN 3-Jun-79
2) E01FRE::PUSH P,[%OC] ;[1174] SET UP CORRECT CHANNEL
2) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] GIVE A FATAL ERRO
R
**************
1)87 XALL
1) DEBNAM: KEYWORDS
1) SALL
1)88 SUBTTL RUN THE PROGRAM
****
2)87 DEBNAM: KEYWORDS
2)88 SUBTTL RUN THE PROGRAM
**************
1)88 .ERR. (MS,0,V%L,L%F,S%I,NSA,<No start address>)
1) RUNEX1: SKIPE ERRNO ;[1144] DON'T RUN IF ANY ERRORS
****
2)88 ;**;[1174] Replace @RUNEXE+3L DZN 3-Jun-79
2) E$$NSA::.ERR. (MS,0,V%L,L%F,S%I,NSA,<No start address>) ;[1174
]
2) RUNEX1: SKIPE ERRNO ;[1144] DON'T RUN IF ANY ERRORS
Digital Equipment Corporation 28-AUG-79 Page 192
PCO Log Report
**************
1)88 RUNDLT: .ERR. (MS,0,V%L,L%F,S%F,DLT,<Execution deleted>)
1) JRST ENDZAP ;[1144] JUST ZERO MEMORY AND EXI
T
****
2)88 ;**;[1174] Replace @RUNDLT DZN 3-Jun-79
2) E$$DLT::.ERR. (MS,0,V%L,L%F,S%W,DLT,<Execution deleted>) ;[117
4]
2) JRST ENDZAP ;[1144] JUST ZERO MEMORY AND EXI
T
**************
1)90 GFEERR: .ERR. (MS,.EC,V%L,L%F,S%F,GFE,<GTJFN% JSYS failed for
>)
1) .ETC. (STR,,,,,RUNSPC)
****
2)90 ;**;[1174] Replace @GFEERR DZN 3-Jun-79
2) E$$GFE::.ERR. (MS,.EC,V%L,L%F,S%F,GFE,<GTJFN% JSYS failed for
file >) ;[1174]
2) .ETC. (STR,,,,,RUNSPC)
**************
1)93 TERMES: .ERR. (MS,0,V%L,L%I,S%I,FIN,<LINK finished>)
1) MOVEI T1,FINMES ;TELL USER WE'VE CLOSE LOG FILE
1) SKIPE LOGSUB ;BUT ONLY IF A REAL LOG FILE
1) PUSHJ P,.TSTRG##
1) SKIPN IO.PTR+RC ;SEE IF A LOG FILE?
****
2)93 ;**;[1174] Replace @TERMES DZN 3-Jun-79
2) TERMES:
2) E$$FIN::.ERR. (MS,0,V%L,L%I,S%I,FIN,<LINK finished>) ;[1174]
2) E$$ELF::.ERR. (MS,,V%L,L%I,S%I,ELF,<End of log file>) ;[1174]
2) SKIPN IO.PTR+RC ;SEE IF A LOG FILE?
**************
1)93 PUSH P,[%RC] ;[616] CHANNEL FOR ERROR
1) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] SEND THE MESSAGE
1) FINMES: ASCIZ \[LNKELF End of log file]
1) \
1) ;**;[1144] Insert after FINMES+1L DZN 16-Feb-79
****
2)93 ;**;[1174] Replace @TERMES+13L DZN 3-Jun-79
2) E02FRE::PUSH P,[%RC] ;[1174] CHANNEL FOR ERROR
2) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] SEND THE MESSAGE
2) ;**;[1144] Insert after FINMES+1L DZN 16-Feb-79
**************
1)93 SKIPN T1,RUNAME ;[1144] ELSE [LNKXIT program exe
cution]
1) MOVE T1,LODNAM ;[1144] GET PROGRAM NAME TO PRIN
T
1) .ERR. (MS,.EC!.EN,V%L,L%F,S%I,XCT)
1) .ETC. (SBX,.EC!.EP,,,,T1)
****
2)93 SKIPN T1,RUNAME ;[1144] ELSE [LNKXCT program exe
Digital Equipment Corporation 28-AUG-79 Page 193
PCO Log Report
cution]
2) MOVE T1,LODNAM ;[1144] GET PROGRAM NAME TO PRIN
T
2) ;**;[1174] Replace @EXEMES+4L DZN 3-Jun-79
2) E$$XCT::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,XCT) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,T1)
**************
1)93 .ERR. (MS,.EC!.EN,V%L,L%F,S%I,DEB)
1) .ETC. (STR,.EC!.EP,,,,T1)
****
2)93 ;**;[1174] Replace @EXEME1+1L DZN 3-Jun-79
2) E$$DEB::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,DEB) ;[1174]
2) .ETC. (STR,.EC!.EP,,,,T1)
**************
1)94 PUSH P,IO.CHN ;SAVE CHANNEL FOR LNKLOG
1) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;
****
2)94 ;**;[1174] Replace @DVMOV.+12L DZN 3-Jun-79
2) E03FRE::PUSH P,IO.CHN ;[1174] SAVE CHANNEL FOR LNKLOG
2) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;
**************
1)94 JRST LKPERR## ;???
1) MOVE T3,I.SIZ(T1) ;GET INPUT FILE SIZE FOR LATER
****
2)94 ;**;[1174] Replace @DVCOPY+5L DZN 30-May-79
2) JRST E01FLE## ;[1174] ???
2) MOVE T3,I.SIZ(T1) ;GET INPUT FILE SIZE FOR LATER
**************
1)95 JRST INERR ;ERROR, GIVE UP
1) MOVE T3,I.SIZ(P1) ;RETRIEVE FILE SIZE
****
2)95 ;**;[1174] Replace @DVMOV1+5L DZN 3-Jun-79
2) JRST E$$EOI ;[1174] ERROR, GIVE UP
2) MOVE T3,I.SIZ(P1) ;RETRIEVE FILE SIZE
**************
1)95 JRST DVMOV4 ;OH WELL, GIVE ERROR
1) DVMOV2: PUSHJ P,DY.RET## ;DONE WITH THE BUFFER, SO FREE I
T
****
2)95 ;**;[1174] Replace @DVMOV1+13L DZN 3-Jun-79
2) JRST E$$EOO ;[1174]OH WELL, GIVE ERROR
2) DVMOV2: PUSHJ P,DY.RET## ;DONE WITH THE BUFFER, SO FREE I
T
**************
1)96 DVMOV4: PUSH P,[TC] ;TELL WHICH CHANNEL HAD THE ERRO
R
1) .ERR. (ST,,V%L,L%F,S%F,EOO,<Error on output>) ;
1) INERR: .ERR. (ST,,V%L,L%F,S%F,EOI,<Error on input>) ;
1)97 ;HERE TO GET PROTECTION CODE RIGHT
Digital Equipment Corporation 28-AUG-79 Page 194
PCO Log Report
****
2)96 ;**;[1174] Replace @DVMOV4 DZN 3-Jun-79
2) E$$EOO::PUSH P,[TC] ;[1174] TELL WHICH CHANNEL HAD T
HE ERROR
2) .ERR. (ST,,V%L,L%F,S%F,EOO,<Error on output>) ;
2) E$$EOI::;PUSH P,IO.CHN ;[1174] CHANNEL ALREADY ON STACK
2) .ERR. (ST,,V%L,L%F,S%F,EOI,<Error on input>) ;
2)97 ;HERE TO GET PROTECTION CODE RIGHT
**************
1)103 OUTSTR [ASCIZ \[LNKNSA No start address]
1) \]
****
2)104 E01NSA::.OERR. [ASCIZ \[LNKNSA No start address]
2) \]
**************
1)105 MOVE T1,[[ASCIZ /?LNKDLT Execution Deleted/],,%TMES]
;[1144]
1) BLT T1,%TMES+5
****
2)107 MOVE T1,[[ASCIZ /%LNKDLT Execution deleted/],,%TM
ES] ;[1144]
2) BLT T1,%TMES+5
**************
1)107 MOVE T1,[ASCIZ \[LNKDEB \] ;
1) MOVE T1+1,1+[ASCIZ \[LNKDEB \] ;
1) > ;END IFE FTKIONLY
1) IFN FTKIONLY,<
1) DMOVE T1,[ASCIZ \[LNKDEB \] ;
1) > ;END IFN FTKIONLY
****
2)109 MOVE T1,[ASCIZ \[LNKDEB \] ;
2) MOVE T1+1,1+[ASCIZ \[LNKDEB \] ;
2) > ;END IFE FTKIONLY
2) IFN FTKIONLY,<
2) DMOVE T1,[ASCIZ \[LNKDEB \] ;
2) > ;END IFN FTKIONLY
**************
1)108 OUTSTR %TMES ;INFO INDICATOR
1) %DDMES: OUTSTR %DTXT ;NAME OF DEBUGGER
****
2)110 E01XCT:: ;[1174]
2) E01DEB::.OERR. %TMES ;[1174] LNKDEB OR LNKXCT
2) %DDMES: OUTSTR %DTXT ;NAME OF DEBUGGER
**************
1)109 %TMES: ASCIZ \[LNKXCT \
1) %DTXT: EXP 0,0 ;ENOUGH FOR 6 CHARS PLUS NULL
1) %RTXT: ASCIZ \ Execution]
1) \
1) REMERR: TLZN T2,-1 ;REMAP FOR V/M?
Digital Equipment Corporation 28-AUG-79 Page 195
PCO Log Report
1) JRST REMER1 ;NO, OR FAILED TWICE
1) HRRZS %1 ;MAKE SURE CORE UUO IN BOUNDS
****
2)111 %TMES: ASCIZ \[LNKXCT \
2) %DTXT: EXP 0,0 ;ENOUGH FOR 6 CHARS PLUS NULL
2) %RTXT: ASCIZ \ execution]
2) \
2) REMERR: TLZN T2,-1 ;REMAP FOR V/M?
2) ;**;[1174] Replace @REMERR+1L DZN 7-Jun-79
2) JRST E01RME ;[1174] NO, OR FAILED TWICE
2) HRRZS %1 ;MAKE SURE CORE UUO IN BOUNDS
**************
1)109 OUTSTR %VMRERR ;WARN USER
1) JRST %REMAP ;NOW TRY AGAIN
1) REMER1: OUTSTR %RMPE ;ERROR MESSAGE
1) EXIT
****
2)111 ;**;[1174] Replace @REMERR+6L DZN 7-Jun-79
2) E$$RME::.OERR. %VMRERR ;[1174] LNKRME
2) JRST %REMAP ;NOW TRY AGAIN
2) E01RME::.OERR. %RMPE ;[1174] LNKRME
2) EXIT
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 650
PCO Log Report
*********************
*PCO #:10-LINK -286*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-JUN-79
[Programmer] GILBERT
[Routines] LNKLOD LNKWLD LNKERR
[Key Words] /UPTO: SYMBOL /START
[Source Before Edit] %4A (001174)
[Source After Edit] %4A (001175)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 651
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK will accept /UPTO:symbol, but will ignore it.
**********
[DIAGNOSIS]
The switch tables say it will take a symbol name, but
there is no support code anywhere else to implement it.
**********
[CURE]
Add the support code, including the new LNKUUA message.
As part of this edit, /START:symbol was made to not look up
the symbol until LINK sees /GO, in case the symbol is
defined in a later module. Also, a bug that caused LINK not
to define the symbol %OWN for Algol programs if LINK issued
the LNKUSA message has been fixed.
This edit requires edit 1174, and thus should NOT be
installed as a patch.
Digital Equipment Corporation 28-AUG-79 Page 652
PCO Log Report
[FILCOM]
File 1) DSKB:LNKHST.MAC[30,3737,LINK] created: 1633 10-JUNE-1979
File 2) DSKB:LNKHST.MAC[30,3737,LINK,NEW] created: 0115 12-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 10-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Jun-7
9
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1175 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1175 JNG 12-Jun-79
2) ; Fix /START and /UPTO with symbols as arguments.
2) ; Routines: LNKLOD, LNKWLD, LNKERR
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 653
PCO Log Report
[FILCOM]
File 1) DSKB:LNKLOD.MAC[30,3737,LINK] created: 1938 10-JUNE-1979
File 2) DSKB:LNKLOD.MAC[30,3737,LINK,NEW] created: 0109 12-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 10-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 12-Jun-7
9
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1175 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1175 Fix /UPTO with a symbolic argument.
2)
**************
1)66 JRST GOUSYM ;NO
1) MOVX W1,PT.SGN!PT.SYM ;
1) PUSHJ P,TRYSYM## ;SEE IF DEFINED BY NOW
1) JRST GOSTER ;CANNOT HAPPEN
1) JRST GOSTER ;UNDEFINED
1) MOVE T1,2(P1) ;GET VALUE
****
2)66 ;**;[1175] Change @ GOSTRT+1L JNG 12-Jun-79
2) JRST GOUPTO ;[1175] NO
2) MOVX W1,PT.SGN!PT.SYM ;
2) PUSHJ P,TRYSYM## ;SEE IF DEFINED BY NOW
2) JRST E$$USA ;[1175] UNDEFINED
2) JRST E$$USA ;[1175] UNDEFINED
2) MOVE T1,2(P1) ;GET VALUE
**************
1)66 GOUSYM: SKIPN USYM ;STILL SOME UNDEFS?
****
2)66 ;**;[1175] Replace @ GOSTRT+9L JNG 12-Jun-79
2) JRST GOUPTO ;[1175] GO CHECK /UPTO
2)
2)
2) ;HERE WHEN THE START ADDRESS IS UNDEFINED.
2)
2) E$$USA::.ERR. (MS,.EC,V%L,L%W,S%W,USA,<Undefined start address
>) ;[1174]
2) .ETC. (SBX,.EP,,,,W2) ;[1174]
2) SETZM STADDR ;[1175] CLEAR ADDRESS
Digital Equipment Corporation 28-AUG-79 Page 654
PCO Log Report
2) SETZM STADDR+1 ;[1175] ...
2)
2)
2) ;NOW TO CHECK THE /UPTO SYMBOL, IF ANY
2)
2) GOUPTO: MOVE W2,SYMLIM ;[1175] GET /UPTO VALUE
2) TXNN W2,77B5 ;[1175] SYMBOLIC?
2) JRST GOUSYM ;[1175] NO
2) MOVX W1,PT.SGN!PT.SYM ;[1175] FLAGS
2) PUSHJ P,TRYSYM## ;[1175] SEE IF DEFINED
2) JRST E$$UUA ;[1175] NO
2) JRST E$$UUA ;[1175] NO
2) MOVE T1,2(P1) ;[1175] YES, FETCH VALUE
2) MOVEM T1,SYMLIM ;[1175] STORE FOR LNKXIT
2) JRST GOUSYM ;[1175] GO CHECK UNDEFINED SYMBO
LS
2)
2)
2) ;HERE IF THE /UPTO ADDRESS IS UNDEFINED.
2)
2) E$$UUA::.ERR. (MS,.EC,V%L,L%W,S%W,UUA,<Undefined /UPTO: addres
s >)
2) .ETC. (SBX,.EP,,,,W2) ;[1175]
2) SETZM SYMLIM ;[1175] NO LIMIT
2) ; ..
2)
2)67 ; ..
2)
2) ;HERE TO MAKE A LAST-DITCH TRY AT DEFINING THE LAST UNDEFINED SY
MBOL.
2)
2) GOUSYM: SKIPN USYM ;STILL SOME UNDEFS?
**************
1)66 JRST LODXIT ;EXIT
1)
1) ;**;[1174] Replace @GOSTER DZN 3-Jun-79
1) GOSTER: PUSHJ P,E$$USA## ;[1174] UNDEFINED MESSAGE
1) SETZM STADDR ;CLEAR ADDRESS
1) SETZM STADDR+1 ;...
1) ; JRST LODXIT
1)
****
2)67 ;**;[1175] Delete @ GOSTER JNG 12-Jun-79
2)
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 655
PCO Log Report
[FILCOM]
File 1) DSKB:LNKWLD.MAC[30,3737,LINK] created: 2313 11-JUNE-1979
File 2) DSKB:LNKWLD.MAC[30,3737,LINK,NEW] created: 0137 12-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 10-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 12-Jun-7
9
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1175 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1175 Don't lookup symbolic argument to /START until /GO, move
USA message.
2)
**************
1)42 TLNE T2,770000 ;CHECK FOR SYMBOLIC ADDRESS
1) JRST STARTS ;IS SYMBOLIC
1) %START:
****
2)42 ;**;[1175] Delete @ .START+1L JNG 12-Jun-79
2)
2) %START:
**************
1)42 TLNN T2,770000 ;SYMBOLIC IS LEFT JUSTIFIED
1) JRST STARTO ;OCTAL ONLY
1) PUSHJ P,STRLSW ;WAIT TIL FILE IS LOADED INCASE
IT CONTAINS ADDRESS
1) MOVE T2,2(P2) ;GET SYMBOL AGAIN
1) STARTS: PUSHJ P,.SAVE4## ;SAVE P1-P4
1) MOVE W2,T2 ;SYMBOL
1) SETZB W1,W3 ;NO VALUE
1) PUSHJ P,TRYSYM## ;SEE IF DEFINED
1) ;**;[1174] Replace @STARTS+4L DZN 3-Jun-79
1) JRST E$$USA ;[1174] NO
1) JRST E$$USA ;[1174] UNDEFINED
1) MOVE T2,2(P1) ;GET VALUE
1) STARTO: MOVEM T2,STADDR ;USE THIS AS STARTING ADDRESS
1) SETZB T2,STADDR+1 ;CLEAR ADDRESS
1) SETZM STANAM ;[655] DON'T KNOW MODULE NAME
1) PJRST .NOSTART ;AND IGNORE ALL OTHER STARTING
ADDRESSES
Digital Equipment Corporation 28-AUG-79 Page 656
PCO Log Report
1)
1) ;**;[1174] Replace @STARTU DZN 3-Jun-79
1) E$$USA::.ERR. (MS,.EC,V%L,L%W,S%W,USA,<Undefined start address
>) ;[1174]
1) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
1) POPJ P,
1)
****
2)42 ;**;[1175] Replace @ %START+5L JNG 12-Jun-79
2) SETZ T3, ;[1175] ASSUME SYMBOL NAME IS ZE
RO
2) TXNE T2,77B5 ;[1175] SYMBOL OR ADDRESS?
2) EXCH T2,T3 ;[1175] SYMBOL, MAKE OFFSET BE Z
ERO
2) DMOVEM T2,STADDR ;[1175] STORE FOR END OF LOADING
2) SETZM STANAM ;[655] DON'T KNOW MODULE NAME
2) PJRST .NOSTART ;AND IGNORE ALL OTHER STARTING
ADDRESSES
2) ;**;[1175] Move E$$USA to LNKLOD JNG 12-Jun-79
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 657
PCO Log Report
[FILCOM]
File 1) DSKB:LNKERR.MAC[30,3737,LINK] created: 1720 11-JUNE-1979
File 2) DSKB:LNKERR.MAC[30,3737,LINK,NEW] created: 0116 12-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 12-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1175 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1175 Add the LNKUUA message.
2)
**************
1)10 {Detected in module [symbol] from file [file]}
1) USC 31 8 Undefined subroutine [symbol] called from link n
umber [decimal] {name
****
2)10 USC 31 8 Undefined subroutine [symbol] called from link n
umber [decimal] {name
**************
1)10 VAL 31 1 Symbol [symbol] [octal] [type]
****
2)10 UUA 8 8 Undefined /UPTO: address [symbol]
2) VAL 31 1 Symbol [symbol] [octal] [type]
**************
1)11 HASH VAL,0,<^_
****
2)11 HASH UUA,0,<^_
2) You gave the named symbol as an argument to the /UPT
O:
2) switch, but the symbol was never defined. Load a modu
le
2) that defines the symbol, or change your argument to t
he
2) /UPTO: switch.>
2)
2) HASH VAL,0,<^_
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 658
PCO Log Report
*********************
*PCO #:10-LINK -287*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-JUN-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] /SYMSEG:PS /OVERLAY LNKXIT BUG
[Source Before Edit] %4A (001175)
[Source After Edit] %4A (001176)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 659
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK allows /SYMSEG:PSECT: without complaint, but then
blows up in LNKXIT.
**********
[DIAGNOSIS]
This was never intended to work, but the only keyword
/SYMSEG: disallows is HIGH.
**********
[CURE]
Disallow all keywords except /SYMSEG:LOW and
/SYMSEG:NONE.
Digital Equipment Corporation 28-AUG-79 Page 660
PCO Log Report
[FILCOM]
File 1) DSKB:LNKHST.175[30,3737,LINK,NEW] created: 0231 12-JUNE-19
79
File 2) DSKB:LNKHST.MAC[30,3737,LINK,NEW] created: 0159 12-JUNE-19
79
1)1 DECEVR==1175 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1176 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1176 JNG 12-Jun-79
2) ; Disallow /SYMSEG:PSECT:name with /OVERLAY.
2) ; Routine: LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 661
PCO Log Report
[FILCOM]
File 1) DSKB:LNKWLD.175[30,3737,LINK,NEW] created: 0229 12-JUNE-19
79
File 2) DSKB:LNKWLD.MAC[30,3737,LINK,NEW] created: 0225 12-JUNE-19
79
1)1 DECEVR==1175 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1176 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1176 Disallow /SYMSEG:PSECT:name if loading overlays.
2)
**************
1)43 %SYMSEG: PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOA
DED
1) .SYMSEG: ;[705]
****
2)43 %SYMSEG:PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOADED
2) .SYMSEG: ;[705]
**************
1)43 SKIPL LNKMAX ;LOADED ANY OVERLAYS?
1) CAIE T2,$SEGHIGH ;CANNOT LOAD SYMBOLS IN HIGH SEG
1) JRST %SYMSG ;NO
1) ;**;[1174: Replace @.SYMSEG+6L DZN 3-Jun-79
1) E$$OSL::.ERR. (MS,,V%L,L%W,S%W,OSL,<Overlaid program symbols m
ust be in low segment>) ;[1174]
****
2)43 ;**;[1176] Replace @ .SYMSEG+3L JNG 12-Jun-79
2) SKIPN OVERLW ;[1176] USER TYPE /OVERLAY?
2) JRST %SYMSG ;[1176] NO, PROCEED
2) CAIE T2,$SEGLOW ;[1176] USER WANT LOW SEGMENT?
2) CAIN T2,$SEGNONE ;[1176] OR NO SYMBOLS?
2) JRST %SYMSG ;[1176] YES, ONLY POSSIBILITIES
WITH OVERLAYS
2) ;**;[1174] Replace @.SYMSEG+6L DZN 3-Jun-79
2) E$$OSL::.ERR. (MS,,V%L,L%W,S%W,OSL,<Overlaid program symbols m
ust be in low segment>) ;[1174]
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 662
PCO Log Report
*********************
*PCO #:10-LINK -288*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 3A(560), 4A(1122)
[Date Entered] 13-JUN-79
[Programmer] GILBERT
[Routines] LNKPAR LNKWLD
[Key Words] /VERSION LOST /SW
[Source Before Edit] %4A (001176)
[Source After Edit] %4A (001177)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 663
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a command string to LINK contains /VERSION in a
global context, then any local switches associated with the
same file spec will be lost. This will only happen with
LINK 3A or earlier, or with LINK 4 after edit 1122 has been
installed.
**********
[DIAGNOSIS]
The /VERSION switch processing routine always calls
STRLSW, which is not legal for switches seen in a global
context.
**********
[CURE]
Add a new entry to the /VERSION processing routine that
does not call STRLSW, and get to it if /VERSION is seen in a
global context.
This edit requires edit 1122.
Digital Equipment Corporation 28-AUG-79 Page 664
PCO Log Report
[FILCOM]
File 1) DSKB:LNKHST.176[30,3737,LINK,NEW] created: 0239 12-JUNE-19
79
File 2) DSKB:LNKHST.MAC[30,3737,LINK,NEW] created: 0247 12-JUNE-19
79
1)1 DECEVR==1176 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1177 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1177 JNG 12-Jun-79
2) ; Make /VERSION in global context not lose local switches.
2) ; Routines: LNKPAR, LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 665
PCO Log Report
[FILCOM]
File 1) DSKB:LNKPAR.174[30,3737,LINK,NEW] created: 0244 12-JUNE-19
79
File 2) DSKB:LNKPAR.MAC[30,3737,LINK,NEW] created: 0244 12-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 10-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 12-Jun-7
9
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1177 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1177 Add a global entry point for /VERSION in SWTCHS macro.
2)
**************
1)34 ;;**;[1122] Insert after /VERBOSITY switch DZN 5-Oct-78
1) SWMAC SP,VERSION,,.SWVER,SYM,3,,* ;;[1122]
1) IFE TOPS20,<
****
2)34 ;;**;[1177] Change @ /VERSION switch JNG 12-Jun-79
2) SWMAC SP,VERSION,,.SWVER,SYM,3,.,* ;;[1177]
2) IFE TOPS20,<
**************
Digital Equipment Corporation 28-AUG-79 Page 666
PCO Log Report
[FILCOM]
File 1) DSKB:LNKWLD.176[30,3737,LINK,NEW] created: 0239 12-JUNE-19
79
File 2) DSKB:LNKWLD.MAC[30,3737,LINK,NEW] created: 0242 12-JUNE-19
79
1)1 DECEVR==1176 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1177 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1177 Make global /VERSION not lose local switches.
2)
**************
1)50 MOVE T2,2(P2) ;[1122] GET VALUE
****
2)50 ;**;[1177] Insert @ %VERSION+2L JNG 12-Jun-79
2) .VERSION:
2) MOVE T2,2(P2) ;[1122] GET VALUE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 667
PCO Log Report
*********************
*PCO #:10-LINK -289*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 13-JUN-79
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] FOROTS V6 SEARCH FOR /SEG:LOW
[Source Before Edit] %4A (001177)
[Source After Edit] %4A (001200)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 668
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
In order to support concealed mode, FOROTS version 6
needs LINK to search SYS:FORLIB in /SEGMENT:LOW mode if
loading in /OTS:SHARABLE mode.
**********
[DIAGNOSIS]
It's in the design spec.
**********
[CURE]
Implement it. Note that this edit requires edit 1201.
Digital Equipment Corporation 28-AUG-79 Page 669
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0702 12-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1332 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 12-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 13-Jun-7
9
2)
**************
1)1 DECEVR==1177 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1200 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1200 JNG 13-Jun-79
2) ; If loading reentrant FOROTS, search SYS:FORLIB/SEGMENT:L
OW.
2) ; This is required for FOROTS version 6 and later.
2) ; Routine: LNKLOD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 670
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1118 13-Jun-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1317 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 12-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 13-Jun-7
9
2)
**************
1)1 DECEVR==1175 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1200 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1200 If loading reentrant FOROTS, search SYS:FORLIB/SEGMENT:L
OW.
2)
**************
1)83 FOR.L1: SKIPL FORLIB ;TEST FOR USER SCREW-UP
****
2)83 ;**;[1200] Insert @ FOR.L1 JNG 13-Jun-79
2) PUSHJ P,FOR.L1 ;[1200] PUT FORLIB IN LIST OF LI
BRARIES
2) ; ..
2)
2)84 ;SINCE WE'RE LOADING REENTRANT FOROTS, LOAD SYS:FORLIB/SEGMENT:L
OW.
2) ;THIS IS REQUIRED BY FOROTS VERSION 6 AND LATER.
2)
2) MOVE P2,F.NXZR ;[1200] LAST LIBRARY PUT ON LIST
2) CAMN P1,F.NAME(P2) ;[1200] WAS IT FORLIB?
2) SKIPE F.SWP(P2) ;[1200] WITH NO SWITCHES YET?
2) POPJ P, ;[1200] NO, RETURN FROM FOR.L0
2) MOVEI T2,3 ;[1200] YES, ALLOCATE A SWITCH B
LOCK
2) PUSHJ P,DY.GET## ;[1200] IN DY AREA
2) MOVEM T1,F.SWP(P2) ;[1200] PUT SWITCH IN FILE BLOCK
2) HRLZM T2,0(T1) ;[1200] STORE BLOCK SIZE
2) DMOVE T2,[EXP %SEG%,$SEGLOW] ;[1200] SWITCH AND ARGUM
ENT
2) DMOVEM T2,1(T1) ;[1200] STORE IN SWITCH BLOCK
2) POPJ P, ;[1200] DONE
2)
2)
2) ;DEFINE %SEG%. MUST CALL SWTCHS MACRO.
Digital Equipment Corporation 28-AUG-79 Page 671
PCO Log Report
2)
2) ..SEG==0
2)
2) DEFINE SWMAC(A,B,C,D,E,F,G,H,I)<
2)
2) IFIDN <B>,<SEGMENT>,<%SEG%==..SEG>
2) ..SEG==..SEG+1>
2)
2) SWTCHS ;[1200] LOOK FOR /SEGMENT
2)
2)
2) ;HERE WHEN FORTRAN CODE IS SEEN, BUT NO MAIN PROGRAM.
2)
2) FOR.L1: SKIPL FORLIB ;TEST FOR USER SCREW-UP
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 672
PCO Log Report
*********************
*PCO #:10-LINK -290*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1200)
[Date Entered] 13-JUN-79
[Programmer] GILBERT
[Routines] LNKPAR LNKLOD LNKWLD LNKOV1
[Key Words] /SEG:PSECT %LNKNEB
[Source Before Edit] %4A (001200)
[Source After Edit] %4A (001201)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27815
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 673
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK accepts /SEGMENT:PSECT, but blows up during
loading.
**********
[DIAGNOSIS]
The PSECT keyword to /SEGMENT was implemented
accidentally when /SYMSEG:PSECT was implemented, since both
switches use the same keyword list. The /SEGMENT switch
processing routine is not expecting this, however, and
destroys the flag word when it sees it.
**********
[CURE]
Split the switch keywords into two different lists.
Digital Equipment Corporation 28-AUG-79 Page 674
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1332 13-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1626 13-Jun-1979
1)1 DECEVR==1200 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1201 JNG 13-Jun-79
2) ; Disallow /SEGMENT:PSECT, which worked because it used th
e same
2) ; keyword table as /SYMSEG.
2) ; Routines: LNKPAR, LNKLOD, LNKOV1, LNKOV2, LNKWLD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 675
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 0244 12-Jun-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 1622 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 12-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 13-Jun-7
9
2)
**************
1)1 DECEVR==1177 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1201 Split out the /SEGMENT and /SYMSEG keywords; disallow /S
EGMENT:PSECT.
2)
**************
1)34 SWMAC SL,SYMSEG,,SEGK,2,4,.,,.SWSYM ;[721]
1) SWMAC SL,SYSLIBRARY,,LIBK,1,3,.
****
2)34 ;**;[1201] Change @ /SYMSEG in SWMAC JNG 13-Jun-79
2) SWMAC SL,SYMSEG,,SSGK,2,4,.,,.SWSYM ;[1201]
2) SWMAC SL,SYSLIBRARY,,LIBK,1,3,.
**************
1)37 KEYMAC SEG,<DEFAULT,LOW,HIGH,NONE,PSECT>
1) KEYMAC SYM,<RADIX50,TRIPLET,ALGOL>; ;;ADD ALGOL KEYWORD
****
2)37 ;**;[1201] Replace @ SEG KEYMAC macro JNG 13-Jun-79
2) KEYMAC SEG,<LOW,HIGH,DEFAULT,NONE> ;[1201]
2) KEYMAC SSG,<LOW,HIGH,NONE,PSECT,DEFAULT> ;[1201] LOW & HIGH MUS
T BE FIRST 2
2) KEYMAC SYM,<RADIX50,TRIPLET,ALGOL>; ;;ADD ALGOL KEYWORD
**************
1)38 IFIDN <A><SEG>,<
1) %%==0
1) IRP B,<
****
2)38 ;;**;[1201] Replace in KEYMAC macro JNG 13-Jun-79
2) IFIDN <A><SSG>,<
2) %%==1
2) IRP B,<
**************
Digital Equipment Corporation 28-AUG-79 Page 676
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1317 13-Jun-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1539 13-Jun-1979
1)1 DECEVR==1200 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1201 Change reference to $SEGLOW to LC.IX.
2)
**************
1)66 CAIN T1,$SEGNONE ;USER GIVE /SYMSEG:NONE?
1) JRST [SETZM SYMSEG ;YES, TELL LNKXIT
****
2)66 ;**;[1201] Replace @ GO+3L JNG 13-Jun-79
2) CAIN T1,$SSGNONE ;[1201] USER GIVE /SYMSEG:NONE?
2) JRST [SETZM SYMSEG ;YES, TELL LNKXIT
**************
1)66 MOVEI T1,$SEGLOW ;OTHERWISE, DEFAULT TO LOW
1) MOVEM T1,SYMSEG ;STORE FOR LNKXIT
1) MOVE T1,['.LOW. '] ;PSECT NAME
1) MOVEM T1,SSGNAM ;STORE
1) > ;END IFN TOPS20
****
2)66 ;**;[1201] Replace @ GO+8L JNG 13-Jun-79
2) MOVEI T1,$SSGLOW ;[1201] OTHERWISE, DEFAULT TO LO
W
2) MOVEM T1,SYMSEG ;STORE FOR LNKXIT
2) > ;END IFN TOPS20
**************
1)84 DMOVE T2,[EXP %SEG%,$SEGLOW] ;[1200] SWITCH AND ARGUM
ENT
1) DMOVEM T2,1(T1) ;[1200] STORE IN SWITCH BLOCK
****
2)84 ;**;[1201] Change @ FOR.L0+1P11L JNG 13-Jun-79
2) DMOVE T2,[EXP %SEG%,$SSGLOW] ;[1201] SWITCH AND ARGUM
ENT
2) DMOVEM T2,1(T1) ;[1200] STORE IN SWITCH BLOCK
**************
Digital Equipment Corporation 28-AUG-79 Page 677
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 0951 12-Jun-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1617 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 12-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 13-Jun-7
9
2)
**************
1)1 DECEVR==1177 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1201 Change $SEGxxx to $SSGxxx.
2)
**************
1)39 SEGTAB: R.FLS!R.FHS,,R.FNS ;0
1) R.FNS!R.FHS,,R.FLS ;1
1) R.FNS!R.FLS,,R.FHS ;2
1) R.FLS!R.FHS,,R.FNS ;3
1)
****
2)39 ;**;[1201] Re-arrange @ SEGTAB JNG 12-Jun-79
2) SEGTAB: R.FNS!R.FHS,,R.FLS ;[1201] LOW
2) R.FNS!R.FLS,,R.FHS ;[1201] HIGH
2) R.FLS!R.FHS,,R.FNS ;[1201] DEFAULT
2) R.FLS!R.FHS,,R.FNS ;[1201] NONE
2)
**************
1)43 SUBI T2,1 ;DEFAULT IS 1
1) IFN FTOVERLAY,<
****
2)43 ;**;[1201] Replace @ .SYMSEG+1L JNG 13-Jun-79
2) CAIN T2,$SSGDEFAULT ;[1201] /SYMSEG:DEFAULT?
2) JRST [SETZM SYMSEG ;[1201] YES, DO IT
2) POPJ P,] ;[1201] GET OUT
2) IFN FTOVERLAY,<
**************
1)43 CAIE T2,$SEGLOW ;[1176] USER WANT LOW SEGMENT?
1) CAIN T2,$SEGNONE ;[1176] OR NO SYMBOLS?
1) JRST %SYMSG ;[1176] YES, ONLY POSSIBILITIES
WITH OVERLAYS
****
2)43 ;**;[1201] Change @ .SYMSEG+4L JNG 13-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 678
PCO Log Report
2) CAIE T2,$SSGLOW ;[1201] USER WANT LOW SEGMENT?
2) CAIN T2,$SSGNONE ;[1201] OR NO SYMBOLS?
2) JRST %SYMSG ;[1176] YES, ONLY POSSIBILITIES
WITH OVERLAYS
**************
1)43 MOVEI T2,$SEGLOW ;PUT THEM IN LOW SEG
1) %SYMSG:>
1) CAIN T2,$SEGPSECT ;[721] A PSECT SPECIFIED?
1) JRST SYMS1 ;[721]
1) MOVEM T2,SYMSEG ;STORE INDEX TO EITHER LC OR HC
1) CAIE T2,$SEGHIGH ;[727] WANT SYMBOLS IN HIGH SEGM
ENT?
1) JRST [PUSH P,[SIXBIT/.LOW./] ;[727] SAVE SEGMENT NAME
1) POP P,SSGNAM ;[727]
1) POPJ P,] ;[727]
1) SETZM SYMLIM ;[727] CLEAR DEFAULT SYMBOL LIMI
T
1) PUSH P,[SIXBIT/.HIGH./] ;[727] SAVE SEGMENT NAME
1) POP P,SSGNAM ;[727]
1) SKIPE HC.LB ;YES, IS IT SET UP YET?
****
2)43 ;**;[1201] Change @ %SYMSG+1L JNG 13-Jun-79
2) MOVEI T2,$SSGLOW ;[1201] PUT THEM IN LOW SEG
2) %SYMSG:>
2) CAIN T2,$SSGPSECT ;[1201] A PSECT SPECIFIED?
2) JRST SYMS1 ;[721]
2) MOVEM T2,SYMSEG ;STORE INDEX TO EITHER LC OR HC
2) CAIE T2,$SSGHIGH ;[1201] WANT SYMBOLS IN HIGH SEG
MENT?
2) POPJ P, ;[1201] NO, DONE
2) SKIPE HC.LB ;YES, IS IT SET UP YET?
**************
Digital Equipment Corporation 28-AUG-79 Page 679
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 1810 10-Jun-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 1510 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 13-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1201 Change $SEGxxx to $SSGxxx.
2)
**************
1)11 CAIE T2,$SEGNONE ;USER SAYS NO?
1) SKIPE NOSYMS ;HOWEVER IF USER SAID NO
****
2)11 ;**;[1201] Replace @ LNKT0A+2L JNG 13-Jun-79
2) CAIE T2,$SSGNONE ;[1201] USER SAYS NO?
2) SKIPE NOSYMS ;HOWEVER IF USER SAID NO
**************
1)11 MOVEI T2,$SEGLOW ;SYMBOLS IN LOW SEG INDEX
1) MOVEM T2,SYMSEG ;SET VALUE SO WE CAN SAVE SYMBOL
S
****
2)11 ;**;[1201] Insert @ LNKT0B+9L JNG 13-Jun-79
2) MOVEI T2,$SSGLOW ;[1201] SYMBOLS IN LOW SEG INDEX
2) MOVEM T2,SYMSEG ;SET VALUE SO WE CAN SAVE SYMBOL
S
**************
Digital Equipment Corporation 28-AUG-79 Page 680
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV2.MAC[30,4507] created: 1831 10-Jun-1979
File 2) LINK:LNKOV2.MAC[10,645063] created: 1540 13-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 13-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1201 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1201 Change references to $SEGxxx to $SSGxxx.
2)
**************
1)4 CAIE T1,$SEGNONE ;USER SAY NO?
1) SKIPE NOSYMS ; . . . ?
****
2)4 ;**;[1201] Replace @ E$$OS2+2L JNG 13-Jun-79
2) CAIE T1,$SSGNONE ;[1201] USER SAY NO?
2) SKIPE NOSYMS ; . . . ?
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 681
PCO Log Report
*********************
*PCO #:10-LINK -291*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 15-JUN-79
[Programmer] GILBERT
[Routines] LNKPAR LNKFIO LNKLOG LNKXIT
[Key Words] BAD 1174 TOPS-20
[Source Before Edit] %4A (001201)
[Source After Edit] %4A (001202)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 682
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 1172, /VERSION no longer sets .JBVER. Also,
after edit 1174, LINK will no longer assemble on TOPS-20.
**********
[DIAGNOSIS]
Errors in the above edits.
**********
[CURE]
Fix them.
Digital Equipment Corporation 28-AUG-79 Page 683
PCO Log Report
[FILCOM]
File 1) DSK:LNKHST.201[4,327] created: 1226 13-Jun-1979
File 2) DSK:LNKHST.MAC[4,327] created: 0213 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 13-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Jun-7
9
2)
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1202 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1202 JNG 14-Jun-79
2) ; Fix /VERSION after 1172, and make LINK assemble on TOPS-
20
2) ; after edit 1174.
2) ; Routines: LNKPAR, LNKFIO, LNKLOG, LNKXIT.
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 684
PCO Log Report
[FILCOM]
File 1) DSK:LNKPAR.201[4,327] created: 1222 13-Jun-1979
File 2) DSK:LNKPAR.MAC[4,327] created: 0205 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 13-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 14-Jun-7
9
2)
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1202 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1202 Make assemble on TOPS-20 after edit 1174.
2)
**************
1)29 SYN OUTSTR,.OERR. ;[1174] USED FOR MESSAGES LNKLOG
CAN'T HANDLE
1)
****
2)29 ;**;[1202] Replace @ .OERR. JNG 14-Jun-79
2) IFE TOPS20,<
2) SYN OUTSTR,.OERR. ;[1174] USED FOR MESSAGES LNKLOG
CAN'T HANDLE
2) > ;END IFE TOPS20
2)
2)
2) IFN TOPS20,<
2) DEFINE .OERR.(TEXT)<
2) HRROI 1,TEXT;; ;[1202] SAME AS OUTSTR DEF BELOW
2) PSOUT
2) >
2) > ;END IFN TOPS20
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 685
PCO Log Report
[FILCOM]
File 1) DSK:LNKFIO.174[4,327] created: 1247 10-Jun-1979
File 2) DSK:LNKFIO.MAC[4,327] created: 1455 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1202 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1202 Make LNKNED message be potentially editable after 1174.
2)
**************
1)23 ;**;[1174] Replace @NSDERR DZN 29-May-79
1) E01NED::PUSH P,T1 ;[1174] PUT CHANNEL ON STACK FOR
LNKLOG
1) .ERR. (I,0,V%L,L%F,S%E,NED)
****
2)23 ;**;[1202] Replace @E$$NSD DZN 14-Jun-79
2) E01NED::PUSH P,IO.CHN ;[1174] PUT CHANNEL ON STACK FOR
LNKLOG
2) .ERR. (I,0,V%L,L%F,S%E,NED)
**************
Digital Equipment Corporation 28-AUG-79 Page 686
PCO Log Report
[FILCOM]
File 1) DSK:LNKLOG.174[4,327] created: 1329 11-Jun-1979
File 2) DSK:LNKLOG.MAC[4,327] created: 1452 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1202 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1202 Make S%E severity on code I messages work after edit 117
4.
2)
**************
1)8 ER.MS: PUSHJ P,CHKLVL ;OUTPUT %,? OR TIME STAMP ETC
1) JRST ERRNXT ;[1174] NOTHING TO OUTPUT
****
2)8 ;**;[1202] Replace @ER.MS DZN 14-Jun-79
2) ER.MS: SETOM ERCHAN ;[1202] SIGNAL NO CHANNEL INVOLV
ED
2) PUSHJ P,CHKLVL ;OUTPUT %,? OR TIME STAMP ETC
2) JRST ERRNXT ;[1174] NOTHING TO OUTPUT
**************
1)8 MOVE T4,ERCHAN ;[1174] GET CHANNEL WHERE CHKCHN
LIKES IT
1) ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
****
2)8 ;**;[1202] Replace @ER.LRE+1L DZN 14-Jun-19
2) MOVE T4,ERCHAN ;[1174] GET CHANNEL
2) ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
**************
1)9 ERLRE2: PUSHJ P,CHKCHN ;IF EDITABLE, SEE IF FATAL
1) PUSHJ P,CHKLVL ;OUTPUT TIME ETC
1) JRST ERRNXT ;[1174] NOTHING TO DO
****
2)9 ;**;[1202] Replace @ERLRE2 DZN 14-Jun-79
2)
2) ERLRE2: PUSHJ P,CHKLVL ;[1202] OUTPUT TIME ETC
2) JRST ERRNXT ;[1174] NOTHING TO DO
**************
1)9 ERLRE3: MOVE T4,ERCHAN ;[1174] RESTORE CHAN PLUS FLAGS
1) IFE FTSINGLE,<
****
Digital Equipment Corporation 28-AUG-79 Page 687
PCO Log Report
2)9 ;**;[1202] Replace @ERLRE3 DZN 14-Jun-79
2) MOVE T4,ERCHAN ;[1202] RESTORE CHAN PLUS FLAGS
2) IFE FTSINGLE,<
**************
1)11 ERI1: MOVE T4,ERCHAN ;[1174] GET CHANNEL FOR CHKCHN
1) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
1) HRRZ T4,IO.PTR(T4) ;GET IO POINTER
****
2)11 ;**;[1202] Replace @ERI1 DZN 14-Jun-79
2) MOVE T4,ERCHAN ;[1202] GET CHANNEL
2) HRRZ T4,IO.PTR(T4) ;GET IO POINTER
**************
1)12 ERST1: MOVEI T1,[ASCIZ \Status \] ;[1144]
1) OUTVIA .TSTRG##
****
2)12 ;**;[1202] Replace @ERST1 DZN 14-Jun-79
2) MOVEI T1,[ASCIZ \Status \] ;[1144]
2) OUTVIA .TSTRG##
**************
1)12 MOVE T4,ERCHAN ;[1174] GET CHANNEL NUMBER FOR C
HKCHN
1) PUSHJ P,CHKCHN ;SETUP CHAN# IF EDITABLE
1) HRRZ T1,IO.PTR(T4) ;GET IO POINTER
1) JRST ERFSPC ;REST OF FILE SPEC
1)
1)13 ;INPUT CHAN CHECK
1) ;CALLED BY
1) ; MOVE T4,CHAN#
1) ; PUSHJ P,CHKCHN
1)
1) CHKCHN: HRRZ T4,T4 ;CHAN # ONLY
1) LDB T1,SEVPTR ;GET SEVERITY
1) CAIN T1,S%E ;EDITABLE?
1) CAIN T4,DC ;BUT ONLY IF INPUT
1) POPJ P, ;YES
1) MOVEI T1,S%F ;NOT EDITABLE YET
1) DPB T1,SEVPTR ;SO MAKE FATAL
1) POPJ P,
1)
****
2)12 ;**;[1202] Replace @ERST1+11L DZN 14-Jun-79
2) MOVE T4,ERCHAN ;[1202] GET CHANNEL NUMBER
2) HRRZ T1,IO.PTR(T4) ;GET IO POINTER
2) JRST ERFSPC ;REST OF FILE SPEC
2) ;**;[1202] Delete CHKCHN routine DZN 14-Jun-79
2)
**************
1)18 CHKLVL: LDB T1,LVLPTR ;GET LIST LEVEL
1) CAMGE T1,LOGLVL ;ABOVE CUTOFF?
Digital Equipment Corporation 28-AUG-79 Page 688
PCO Log Report
****
2)17 ;**;[1202] Replace @CHKLVL DZN 14-Jun-79
2) CHKLVL: SKIPGE T1,ERCHAN ;[1202] I/O ERROR?
2) JRST CHKLV1 ;[1202] NO--SKIP EDITABLE TEST
2) HRRZS T1 ;[1202] CLEAR FLAGS IN LH
2) LDB T2,SEVPTR ;[1202] GET SEVERITY
2) CAXN T2,S%E ;[1202] EDITABLE?
2) CAXN T1,DC ;[1202] AND NOT INPUT REL FILE
CHANNEL?
2) JRST CHKLV1 ;[1202] YES--LEAVE EDITABLE
2) MOVX T2,S%F ;[1202] NO--NOT EDITABLE FOR NOW
, MAKE FATAL
2) DPB T2,SEVPTR ;[1202] STORE SEVERITY BACK
2) CHKLV1: LDB T1,LVLPTR ;[1202] GET LIST LEVEL
2) CAMGE T1,LOGLVL ;ABOVE CUTOFF?
**************
Digital Equipment Corporation 28-AUG-79 Page 689
PCO Log Report
[FILCOM]
File 1) DSK:LNKXIT.174[4,327] created: 1541 10-Jun-1979
File 2) DSK:LNKXIT.MAC[4,327] created: 0212 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1202 ;DEC EDIT VERSION
2)
**************
1)6
****
2)6 ;1202 Fix problems introduced by edits 1172 and 1174.
2)
**************
1)12 SETZM .JBSYM(T1) ;[1172] ASSUME NO SYMBOLS
****
2)12 ;**;[1202] Insert @ CHKRST+3L JNG 14-Jun-79
2) SKIPN T2,VERNUM ;[1202] /VERSION? (CHECK NOW FOR
OLDSYM)
2) SKIPA T2,.JBVER(T1) ;[1202] NO, FETCH FROM .JBVER
2) MOVEM T2,.JBVER(T1) ;[1202] OVERRIDE IF /VERSION
2) MOVEM T2,VERNUM ;[1202] STORE FOR SYMBOL FILES
2) SETZM .JBSYM(T1) ;[1172] ASSUME NO SYMBOLS
**************
1)89 ERJMP GFEERR ;[1144] GETJFN FAILED FOR EXE FI
LE
1) HRRM T1,ACS+R%16 ;[1144] PUT JFN IN GET JSYS ARGU
MENT
****
2)89 ;**;[1202] Replace @ RUNEX2+19L JNG 14-Jun-79
2) ERJMP E$$GFE ;[1202] GETJFN FAILED FOR EXE FI
LE
2) HRRM T1,ACS+R%16 ;[1144] PUT JFN IN GET JSYS ARGU
MENT
**************
1)93 E$$ELF::.ERR. (MS,,V%L,L%I,S%I,ELF,<End of log file>) ;[1174]
****
2)93 ;**;[1202] Insert @ E$$FIN+1L JNG 14-Jun-79
2) SKIPN IO.PTR+RC ;[1202] A REAL LOG FILE?
2) SKIPGE LOGTTY ;[1202] OR USER'S TERMINAL?
2) JRST E$$ELF ;[1202] YES, TYPE MESSAGE
2) POPJ P, ;[1202] NO, DONE
2) E$$ELF::.ERR. (MS,,V%L,L%I,S%I,ELF,<End of log file>) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 690
PCO Log Report
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 691
PCO Log Report
*********************
*PCO #:10-LINK -292*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 15-JUN-79
[Programmer] GILBERT
[Routines] LNKPAR LNKMAP LNKWLD LNKLOD
[Key Words] EX FORTRAN
[Source Before Edit] %4A (001202)
[Source After Edit] %4A (001203)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 692
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK 4A needs to support Extended FORTRAN.
**********
[DIAGNOSIS]
The FORTRAN development group needs it.
**********
[CURE]
Add the support. Extended FORTRAN is compiler type 23
(octal). This edit adds the LNKCMX and LNKSNS messages.
Digital Equipment Corporation 28-AUG-79 Page 693
PCO Log Report
[FILCOM]
File 1) DSK:LNKHST.202[4,327] created: 0213 14-Jun-1979
File 2) DSK:LNKHST.MAC[4,327] created: 0709 14-Jun-1979
1)1 DECEVR==1202 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1203 JNG 14-Jun-79
2) ; Add support for Extended FORTRAN.
2) ; Routines: LNKPAR, LNKMAP, LNKLOD, LNKERR
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 694
PCO Log Report
[FILCOM]
File 1) DSK:LNKPAR.202[4,327] created: 0205 14-Jun-1979
File 2) DSK:LNKPAR.MAC[4,327] created: 0828 14-Jun-1979
1)1 DECEVR==1202 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1203 Add support for extended FORTRAN.
2)
**************
1)14 DEFINE PROCESSORS<
1) X UNKNOWN,UNK
1) X F40,F40
1) X COBOL,CBL
1) X ALGOL,ALG
1) X NELIAC,NLI
1) X PLI,PLI
1) X BLISS,BLI
1) X SAIL,SAI
1) X FORTRAN,FOR
1) X MACRO,MAC
1) X FAIL,FAI
1) X BCPL,BCP
1) X MIDAS,MID
1) X SIMULA,SIM
1) X CBL74,C74
1) X CBL79,C79
1) X BLS36,B36
1) X BASIC,BAS
1) >
****
2)14 ;**;[1203] Replace @ PROCESSORS macro JNG 14-Jun-79
2) DEFINE PROCESSORS<
2) X UNKNOWN,UNK,<Unknown>
2) X F40,F40,<F40>
2) X COBOL,CBL,<COBOL-68>
2) X ALGOL,ALG,<Algol>
2) X NELIAC,NLI,<NELIAC>
2) X PLI,PLI,<PL/I>
2) X BLISS,BLI,<BLISS-10>
2) X SAIL,SAI,<SAIL>
2) X FORTRAN,FOR,<FORTRAN>
2) X MACRO,MAC,<MACRO>
2) X FAIL,FAI,<FAIL>
2) X BCPL,BCP,<BCPL>
2) X MIDAS,MID,<MIDAS>
Digital Equipment Corporation 28-AUG-79 Page 695
PCO Log Report
2) X SIMULA,SIM,<SIMULA>
2) X CBL74,C74,<COBOL-74>
2) X CBL80,C80,<COBOL-80>
2) X BLS36,B36,<BLISS-36>
2) X BASIC,BAS,<BASIC>
2) X SITGO,STG,<SITGO>
2) X FORTRAN,XFR,<Extended FORTRAN>
2) >
**************
1)14 DEFINE X (A,B)<
1) CT.'B==CT.LEN
****
2)14 ;**;[1203] Change @ X macro JNG 14-Jun-79
2) DEFINE X (A,B,C)<
2) CT.'B==CT.LEN
**************
1)37 KEYMAC DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT,
FAIL,SDDT,SIMULA,SIMDDT,CBL74,COBDDT>
1) >
1) IFN FTMANTIS,<
1) KEYMAC DEB,<,MACRO,DDT,*FORTRAN,MANTIS,*COBOL,COBDDT,SAIL,SDDT,
FAIL,SDDT,SIMULA,SIMDDT,CBL74,COBDDT>
1) >
****
2)37 ;;**;[1203] Replace in KEYWORDS macro JNG 14-Jun-79
2) KEYMAC DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT^
_
2) ,FAIL,SDDT,SIMULA,SIMDDT>
2) >
2) IFN FTMANTIS,<
2) KEYMAC DEB,<,MACRO,DDT,*FORTRAN,MANTIS,*COBOL,COBDDT,SAIL,SDDT^
_
2) ,FAIL,SDDT,SIMULA,SIMDDT>
2) >
**************
1)37 KEYMAC LIB,<ANY,F40,COBOL,ALGOL,NELIAC,PL1,BLISS,SAIL,FORTRAN,M
ACRO^_
1) ,FAIL,BCPL,MIDAS,SIMULA,CBL74>
1) KEYMAC MAP,<END,NOW,ERROR,INCREMENTAL>
****
2)37 ;**;[1203] Replace in KEYWORDS macro JNG 14-Jun-79
2) KEYMAC LIB,<ANY,F40,COBOL,ALGOL,NELIAC,PL1,BLISS,SAIL,*FORTRAN,
MACRO^_
2) ,FAIL,BCPL,MIDAS,SIMULA,CBL74,CBL79,BLS36,BASIC,SITGO,FORTRAN>
2) KEYMAC MAP,<END,NOW,ERROR,INCREMENTAL>
**************
1)39 DEFINE X (A,B)<
1) IFIDN <B><UNK>,<
****
Digital Equipment Corporation 28-AUG-79 Page 696
PCO Log Report
2)39 ;**;[1203] Replace in X macro above $LIBDEFAULT JNG 14-Jun-7
9
2) DEFINE X (A,B,C)<
2) IFIDN <B><UNK>,<
**************
1)39 $LIB'A==B'BIT
1) >
****
2)39 ;;**;[1203] Replace in X macro below $LIBDEFAULT JNG
14-Jun-79
2) $LIB'B==B'BIT
2) >
**************
Digital Equipment Corporation 28-AUG-79 Page 697
PCO Log Report
[FILCOM]
File 1) DSK:LNKLOD.201[4,327] created: 1139 13-Jun-1979
File 2) DSK:LNKLOD.MAC[4,327] created: 0749 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 13-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 14-Jun-7
9
2)
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1203 Support extended FORTRAN.
2)
**************
1)55 ;**;[1120] Various changes near CT.NAM DZN 22-Sep-78
1) DEFINE X(A,B)<
1) IF1,<BLOCK 1>
****
2)55 ;**;[1203] Changes near CT.NAM JNG 14-Jun-79
2) DEFINE X(A,B,C)<
2) IF1,<BLOCK 1>
**************
1)55 DEFINE X(A,B)<
1) B'BIT
****
2)55 DEFINE X(A,B,C)<
2) B'BIT
**************
1)56 TXNE T2,FORBIT ;[1120] CAN NOT HAVE BOTH
****
2)56 ;**;[1203] Insert @ F40NAM+19L JNG 14-Jun-79
2) TXNN T2,XFRBIT ;[1203] EXTENDED FORTRAN?
2) TXNE T2,FORBIT ;[1120] CAN NOT HAVE BOTH
**************
1)57 ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
****
2)58
2) ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
**************
1)57 FORNAM:
1) IFN FMXFOR,<
****
Digital Equipment Corporation 28-AUG-79 Page 698
PCO Log Report
2)58 ;**;[1203] Insert @ FORNAM JNG 12-Jun-79
2) XFRNAM: TXNE T2,FORBIT ;[1203] SEEN OTHER FORTRAN?
2) JRST E$$CMX ;[1203] YES, ERROR
2) JRST FOROK ;[1203] NO, PROCEED
2) FORNAM: TXNE T2,XFRBIT ;[1203] OTHER FORTRAN?
2) JRST E$$CMX ;[1203] YES, COMPLAIN
2) FOROK:
2) IFN FMXFOR,<
**************
1)57 ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
1)
****
2)58 ;**;[1203] Insert @ FORSEG+11L JNG 14-Jun-79
2)
2)
2) E$$CMX::.ERR. (MS,.EC,V%L,L%F,S%F,CMX,<Cannot mix Extended FOR
TRAN compiled code with FORTRAN compiled code>)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1203]
2) ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
2)
2)59 ;SITGO
2)
2) STGNAM:
2) E$$SNS::.ERR. (MS,.EC,V%L,L%F,S%F,SNS,<SITGO not supported>)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1203]
2)
**************
1)81 DEFINE X(A,B)<
1) IF1,<
****
2)83 ;**;[1203] Change @ REMLIB+1P JNG 14-Jun-79
2) DEFINE X(A,B,C)<
2) IF1,<
**************
1)81 DEFINE X(A,B)<
1) IF1,<
****
2)83 ;**;[1203] Change @ MNTBL+3L JNG 14-Jun-79
2) DEFINE X(A,B,C)<
2) IF1,<
**************
1)82 TXNE T1,FORBIT ;HAVE WE SEEN ANY FORTRAN-10 COD
E?
****
2)84 ;**;[1203] Insert @ F40.L0+4L JNG 14-Jun-79
2) TXNN T1,XFRBIT ;[1203] EXTENDED FORTRAN CODE?
2) TXNE T1,FORBIT ;HAVE WE SEEN ANY FORTRAN-10 COD
E?
**************
Digital Equipment Corporation 28-AUG-79 Page 699
PCO Log Report
1)84
****
2)86 ;**;[1203] Insert @ FORL10+2L JNG 14-Jun-79
2)
2)
2) ;HERE WHEN EXTENDED FORTRAN IS SEEN. SAME AS FORTRAN.
2)
2) XFR.L0==FOR.L0 ;[1203] MAIN PROGRAM ENTRY
2) XFR.L1==FOR.L1 ;[1203] ANY CODE SEEN ENTRY
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 700
PCO Log Report
[FILCOM]
File 1) DSK:LNKWLD.201[4,327] created: 1217 13-Jun-1979
File 2) DSK:LNKWLD.MAC[4,327] created: 0823 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 13-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 14-Jun-7
9
2)
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1203 Add support for extended FORTRAN.
2)
**************
1)61 KEYTBL <CPU,DEF,HYL,LIB,MAP,MPS,SYM,SYS,VER>
1) SALL
1)
****
2)61 ;**;[1203] Change @ CHKRSW+1P20L JNG 14-Jun-79
2) KEYTBL <CPU,DEF,HYL,MAP,MPS,SYM,SYS,VER>
2) SALL
2)
2) DEFINE X(A,B,C)<
2) EXP $LIB'B
2) >
2) XALL ;[1203] EXPAND LISTING
2) EXP $LIBDEFAULT ;[1203] -1 ENTRY
2) LIBTBL: PROCESSORS ;[1203] GET LIB TABLE
2) SALL ;[1203] BACK TO NORMAL
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 701
PCO Log Report
[FILCOM]
File 1) DSK:LNKMAP.174[4,327] created: 1256 10-Jun-1979
File 2) DSK:LNKMAP.MAC[4,327] created: 0628 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1203 Add support for extended FORTRAN.
2)
**************
1)44 ;**;[1120] Replace @END1+1P0L DZN 22-Sep-78
1) DEFINE X (A,B)<
1) IFIDN <A><PLI>,<
1) [ASCIZ \PL/I\]
1) >
1) IFDIF <A><PLI>,<
1) IFIDN <A><CBL74>,<
1) [ASCIZ \COBOL-74\]
1) >
1) IFDIF <A><CBL74>,<
1) IFIDN <A><COBOL>,<
1) [ASCIZ \COBOL-68\]
1) >
1) IFDIF <A><COBOL>,<
1) [ASCIZ \A\]
1) >
1) >
1) >
1) >
****
2)44 ;**;[1203] Replace @ END1+1P0L JNG 14-Jun-79
2) DEFINE X (A,B,C)<
2) [ASCIZ \C\]
2) >
**************
Digital Equipment Corporation 28-AUG-79 Page 702
PCO Log Report
[FILCOM]
File 1) DSK:LNKERR.175[4,327] created: 2116 11-Jun-1979
File 2) DSK:LNKERR.MAC[4,327] created: 0715 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 12-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1175 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1203 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1203 Add the LNKCMX and LNKSNS messages.
2)
**************
1)10 CNW 31 31 Code not yet written at [label]
****
2)10 CMX 31 31 Cannot mix Extended FORTRAN compiled code with F
ORTRAN compiled code
2) {Detected in module [symbol] from file [file]}
2) CNW 31 31 Code not yet written at [label]
**************
1)10 SOE 31 31 Saved file output error Status [octal] for file
[file]
****
2)10 SNS 31 31 SITGO not supported
2) {Detected in module [symbol] from file [file]}
2) SOE 31 31 Saved file output error Status [octal] for file
[file]
**************
1)11 HASH CNW,0,<^_
****
2)11 HASH CMX,0,<^_
2) You cannot load modules produced by FORTRAN with modul
es
2) produced by Extended FORTRAN. Compile all FORTRAN modul
es
2) the same way, then reload.>
2)
2) HASH CNW,0,<^_
**************
1)11 IFE TOPS20,<
****
2)11 HASH SNS,0,<^_
2) LINK does not support the .REL file format produced by t
Digital Equipment Corporation 28-AUG-79 Page 703
PCO Log Report
he
2) SITGO compiler. Load your program by using SITGO.>
2)
2) IFE TOPS20,<
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 704
PCO Log Report
*********************
*PCO #:10-LINK -293*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 15-JUN-79
[Programmer] GILBERT
[Routines] LNKOLD LNKLOD LNKOV1 LNKWLD
[Key Words] .GT. 77777 LNKPTL
[Source Before Edit] %4A (001203)
[Source After Edit] %4A (001204)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 705
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
If a user loads a program that extends beyond location
777777, then LINK will not issue any error message.
Instead, LINK will produce a bad image with no error
message, loop, or fail with an illegal memory reference.
**********
[DIAGNOSIS]
There are no checks for this anywhere in LINK. It is
difficult to check, since addresses are truncated to 18 bits
in the lowest level input routine.
**********
[CURE]
Make the low-level routine save the full-word value
that it read, and then use this value check for loading a
program that extends beyond 777777. If this is detected,
LINK will issue the new LNKPTL message.
Digital Equipment Corporation 28-AUG-79 Page 706
PCO Log Report
[FILCOM]
File 1) DSK:LNKHST.203[4,327] created: 0709 14-Jun-1979
File 2) DSK:LNKHST.MAC[4,327] created: 0913 14-Jun-1979
1)1 DECEVR==1203 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1204 JNG 14-Jun-79
2) ; Check for programs that extend beyond location 777777, a
nd
2) ; issue the LNKPTL message.
2) ; Routines: LNKLOW, LNKOLD, LNKLOD, LNKERR
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 707
PCO Log Report
[FILCOM]
File 1) DSK:LNKLOW.174[4,327] created: 1404 10-Jun-1979
File 2) DSK:LNKLOW.MAC[4,327] created: 0832 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1204 Add LSTRRV.
2)
**************
1)3
****
2)3 ;**;[1204] Insert @ PATLOC+1L JNG 14-Jun-79
2) LSTRRV::BLOCK 1 ;[1204] LAST RIGHT RELOCATABLE V
ALUE FROM RB.1
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 708
PCO Log Report
[FILCOM]
File 1) DSK:LNKLOD.203[4,327] created: 0749 14-Jun-1979
File 2) DSK:LNKLOD.MAC[4,327] created: 0859 14-Jun-1979
1)1 DECEVR==1203 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1204 Complain if any Psects are too long.
2)
**************
1)72 MOVE W1,RC.IV(T1) ;[746] GET THE ORIGIN
****
2)72 ;**;[1204] Insert @ CHKBND+2L JNG 14-Jun-79
2) MOVSI T2,-1 ;[1204] ILLEGAL BITS
2) TDNN T2,RC.HL(T1) ;[1204] SET?
2) TDNE T2,RC.CV(T1) ;[1204] ANYPLACE?
2) PUSHJ P,E$$PTL## ;[1204] YES, DIE
2) MOVE W1,RC.IV(T1) ;[746] GET THE ORIGIN
**************
Digital Equipment Corporation 28-AUG-79 Page 709
PCO Log Report
[FILCOM]
File 1) DSK:LNKOLD.174[4,327] created: 1006 11-Jun-1979
File 2) DSK:LNKOLD.MAC[4,327] created: 1238 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 10-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 14-Jun-7
9
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1204 Give LNKPTL message if program exceeds 777777, remove LN
KHSL.
2)
**************
1)11 T.1AD: MOVE P2,W1 ;GET LOCATION REQUIRED
1) .JDDT LNKOLD,T.1AD,<<CAML P2,$LOCATION##>,<CAMLE P3,$L
OCATION>,<JRST .+3>,<SKIPE $LOCATION>>;; ;
****
2)11 ;**;[1204] Insert @ T.1AD JNG 14-Jun-79
2) T.1AD: MOVE T1,LSTRRV ;[1204] GET LAST RH WORD
2) TLNN T1,-1 ;[1204] WAS IT TOO BIG?
2) TLNE W1,-1 ;[1204] OR IS LAST ADDRESS TOO B
IG?
2) PUSHJ P,E$$PTL ;[1204] YES, ERROR
2) MOVE P2,W1 ;GET LOCATION REQUIRED
2) .JDDT LNKOLD,T.1AD,<<CAML P2,$LOCATION##>,<CAMLE P3,$L
OCATION>,<JRST .+3>,<SKIPE $LOCATION>>;; ;
**************
1)15 ;**;[1174] Replace @T.1H+4L DZN 1-Jun-79
1) JUMPL P3,E$$STL ;[1174] ERROR
1) CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
****
2)15 ;**;[1204] Delete @ T.1H+4L JNG 14-Jun-79
2) CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
**************
1)15 ;**;[1174] Replace @T1HSTL DZN 1-Jun-79
1) E$$STL::.ERR. (MS,.EC,V%L,L%F,S%F,STL,<High segment code too l
ong>) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
1)
****
Digital Equipment Corporation 28-AUG-79 Page 710
PCO Log Report
2)15 ;**;[1204] Replace @ E$$STL JNG 14-Jun-79
2) E$$PTL::.ERR. (MS,.EC,V%L,L%F,S%F,PTL,<Program too long>)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1204]
2)
**************
1)47 PUSHJ P,RB.2 ;GET BOTH WORDS
1) JRST [MOVEI T1,5
1) ;**;[1174] Replace @T.5A+6L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174]
1) TLNE W1,-1 ;MAKE SURE VALID
****
2)47 ;**;[1204] Replace @ T.5A+4L JNG 14-Jun-79
2) PUSHJ P,RB.1 ;[1204] GET FIRST WORD
2) JRST [MOVEI T1,5 ;[1204] NOT THERE, ILLEGAL
2) JRST E$$RBS] ;[1204] GO COMPLAIN
2) MOVE T1,LSTRRV ;[1204] GET THE TRUE VALUE
2) TLNE T1,-1 ;[1204] OVERFLOW?
2) PUSHJ P,E$$PTL ;[1204] YES, COMPLAIN
2) MOVE W2,W1 ;[1204] NO, SAVE FIRST WORD
2) PUSHJ P,RB.1 ;[1204] GET SECOND WORD
2) JRST [MOVEI T1,5 ;[1204] DON'T LIKE THIS EITHER
2) JRST E$$RBS] ;[1204] COMPLAIN
2) MOVE T1,LSTRRV ;[1204] TRUE VALUE
2) TLNE T1,-1 ;[1204] LEGAL?
2) PUSHJ P,E$$PTL ;[1204] NO, DIE
2) TLNE W1,-1 ;MAKE SURE VALID
**************
1)93 PUSHJ P,R50T6 ;CONVERT TO SIXBIT
****
2)93 ;**;[1204] Insert @ T.20+3L JNG 14-Jun-79
2) TRNE W3,-1 ;[1204] SMALL ENOUGH?
2) PUSHJ P,E$$PTL ;[1204] NO, COMPLAIN
2) PUSHJ P,R50T6 ;CONVERT TO SIXBIT
**************
1)99 MOVEM P1,RC.CUR ;[1154] RESTORE RC.CUR
****
2)99 ;**;[1204] Insert @ T.23B+6L JNG 14-Jun-79
2) MOVE T1,LSTRRV ;[1204] GET TRUE VALUE
2) TLNE T1,-1 ;[1204] IN BOUNDS?
2) PUSHJ P,E$$PTL ;[1204] NO, COMPLAIN
2) MOVEM P1,RC.CUR ;[1154] RESTORE RC.CUR
**************
1)110 RWORD3: LSHC R,1 ;GET RIGHT RELOCATION
1) TRNN R,-1 ;SEE IF RELOCATABLE
****
2)110 ;**;[1204] Insert @ RWORD3 JNG 14-Jun-79
2) RWORD3: SETZM LSTRRV ;[1204] ASSUME ABSOLUTE
2) LSHC R,1 ;GET RIGHT RELOCATION
2) TRNN R,-1 ;SEE IF RELOCATABLE
Digital Equipment Corporation 28-AUG-79 Page 711
PCO Log Report
**************
1)110 ADDI T1,0(T2) ;[1155] RELOCATE THE HALF WORD
1) RWORD8: HRR W1,T1 ;[1155] STORE THE RESULT
1) CPOPJ1: AOS (P) ;SKIP RETURN
****
2)110 ;**;[1204] Change @ RWORD8-1L JNG 14-Jun-79
2) ADD T1,T2 ;[1204] COMPUTE FULL-WORD RESULT
2) RWORD8: MOVEM T1,LSTRRV ;[1204] STORE FOR BREAK CHECKS
2) HRR W1,T1 ;[1155] STORE THE RESULT
2) CPOPJ1: AOS (P) ;SKIP RETURN
**************
Digital Equipment Corporation 28-AUG-79 Page 712
PCO Log Report
[FILCOM]
File 1) DSK:LNKOV1.201[4,327] created: 1110 13-Jun-1979
File 2) DSK:LNKOV1.MAC[4,327] created: 1250 14-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 13-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Jun-79
2)
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1204 Say LNKPTL if /SPACE or /PATCHSIZE exceeds 777777.
2)
**************
1)17 MOVEM T1,PH.NFL ;FOR NEXT LINK
****
2)17 ;**;[1204] Insert @ LNKT4A+8L JNG 14-Jun-79
2) TLNE T1,-1 ;[1204] STILL IN BOUNDS?
2) PUSHJ P,E$$PTL## ;[1204] NO, COMPLAIN
2) MOVEM T1,PH.NFL ;FOR NEXT LINK
**************
Digital Equipment Corporation 28-AUG-79 Page 713
PCO Log Report
[FILCOM]
File 1) DSK:LNKWLD.203[4,327] created: 0823 14-Jun-1979
File 2) DSK:LNKWLD.MAC[4,327] created: 1222 14-Jun-1979
1)1 DECEVR==1203 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1204 Check for program growing too far and give LNKPTL.
2)
**************
1)16 PUSHJ P,T.COMR## ;STORE IN GLOBAL TABLE
****
2)16 ;**;[1204] Insert @ .COMMON+5L JNG 14-Jun-79
2) TRNE W3,-1 ;[1204] MORE THAN 777777?
2) PUSHJ P,E$$PTL## ;[1204] YES, COMPLAIN
2) PUSHJ P,T.COMR## ;STORE IN GLOBAL TABLE
**************
Digital Equipment Corporation 28-AUG-79 Page 714
PCO Log Report
[FILCOM]
File 1) DSK:LNKERR.203[4,327] created: 0715 14-Jun-1979
File 2) DSK:LNKERR.MAC[4,327] created: 1239 14-Jun-1979
1)1 DECEVR==1203 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1204 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1204 Add the LNKPTL message, and delete the STL message.
2)
**************
1)10 PUF 31 31 PAGE. UUO failed, error code was [octal]
****
2)10 PTL 31 31 Program too long
2) {Detected in module [symbol] from file [file]}
2) PUF 31 31 PAGE. UUO failed, error code was [octal]
**************
1)10 STL 31 31 High segment code too long
1) {Detected in module [symbol] from file [file]}
1) T13 31 31 LVAR REL block (type 13) not implemented
****
2)10 T13 31 31 LVAR REL block (type 13) not implemented
**************
1)11 IFE TOPS20,<
****
2)11 HASH PTL,0,<^_
2) Your program extends beyond location 777777, which is t
he
2) highest location that LINK is capable of loading. You m
ay
2) be able to make your program fit by moving psect origin
s,
2) lowering the high segment origin, loading into a sing
le
2) segment, reducing the size of arrays in your program,
or
2) using the overlay facility.>
2)
2) IFE TOPS20,<
**************
1)11 HASH STL,0,<^_
1) The high segment of your program has overflowed the end
of
1) memory. You can move the high segment down by using t
he
1) /SET:.HIGH.:address switch, or you can force your enti
re
Digital Equipment Corporation 28-AUG-79 Page 715
PCO Log Report
1) program into the low segment with the /SEGMENT:LOW switc
h.>
1)
1) HASH T13,0,<^_
****
2)11 HASH T13,0,<^_
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 716
PCO Log Report
*********************
*PCO #:10-LINK -294*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)
[Date Entered] 15-JUN-79
[Programmer] GILBERT
[Routines] LNKOV1
[Key Words] BIG OVL FI BGR TH 3A
[Source Before Edit] %4A (001204)
[Source After Edit] %4A (001205)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-27954
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 717
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
The overlay files created by LINK version 4 are
appreciably larger than those created by LINK version 3A.
The extra disk space just contains zero.
**********
[DIAGNOSIS]
Between LINK 3A and 4, LINK's internal page 718ze was
changed from 200 words to 1000 words. However, a
calculation of required disk space in LNKOV1 referenced the
symbol for the internal page size, assuming that it was the
same as the disk block size. Since this is no longer true,
the rounding being performed uses unneeded disk blocks.
**********
[CURE]
Correct the rounding to use the symbol for disk block
size. Note that even with this edit installed, the overlay
file will not be of identical size, since some of LINK's
internal tables that get stored in the overlay file have
changed in size since LINK 3A.
Digital Equipment Corporation 28-AUG-79 Page 719
PCO Log Report
[FILCOM]
File 1) DSK:LNKHST.204[4,327] created: 1526 14-Jun-1979
File 2) DSK:LNKHST.MAC[4,327] created: 1829 14-Jun-1979
1)1 DECEVR==1204 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1205 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1205 JNG/DZN 14-Jun-79 SPR 10-27954
2) ; Re-claim some wasted blocks in .OVL files.
2) ; Routine: LNKOV1
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 720
PCO Log Report
[FILCOM]
File 1) DSK:LNKOV1.204[4,327] created: 1250 14-Jun-1979
File 2) DSK:LNKOV1.MAC[4,327] created: 1830 14-Jun-1979
1)1 DECEVR==1204 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1205 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1205 Don't waste blocks in the overlay file.
2)
**************
1)28 MOVEI T2,.IPS(T1)
1) LSH T2,-.DBS2W ;[650]
****
2)28 ;**;[1205] Replace @ LNKT7+8L JNG 14-Jun-79
2) ADDI T1,1 ;[1205] SIZE REQUIRED
2) MOVEI T2,.DBM(T1) ;[1205] ROUND UP TO BLOCK BOUND
2) LSH T2,-.DBS2W ;[650]
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 721
PCO Log Report
*********************
*PCO #:10-LINK -295*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 15-JUN-79
[Programmer] GILBERT
[Routines] LNK999
[Key Words] BAD999
[Source Before Edit] %4A (001205)
[Source After Edit] %4A (001206)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 722
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 1174 is installed, the LNK999 high segment
of multi-segment LINK will no longer load correctly.
**********
[DIAGNOSIS]
The LNK999 module contains an external reference to the
symbol NO.COR, which was deleted by edit 1174.
**********
[CURE]
Correct the reference.
Digital Equipment Corporation 28-AUG-79 Page 723
PCO Log Report
[FILCOM]
File 1) DSKB:LNKHST.OLD[30,3737,LINK,NEW] created: 0836 15-JUNE-19
79
File 2) DSKB:LNKHST.MAC[30,3737,LINK,NEW] created: 0836 15-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 14-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Jun-7
9
2)
**************
1)1 DECEVR==1205 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1206 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1206 JNG 15-Jun-79
2) ; Fix a NO.COR in LNK999 that edit 1174 missed.
2) ; Routine: LNK999
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 724
PCO Log Report
[FILCOM]
File 1) DSKB:LNK999.OLD[30,3737,LINK,NEW] created: 0832 15-JUNE-19
79
File 2) DSKB:LNK999.MAC[30,3737,LINK,NEW] created: 0832 15-JUNE-19
79
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 15-Jun-79
2)
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1206 ;DEC EDIT VERSION
2)
**************
1)2
****
2)2 ;1206 Fix a NO.COR that edit 1174 missed.
2)
**************
1)4 JRST NO.COR## ;CAN NOT FAIL
1) REDCR2: POP P,MAXCOR ;RESTORE FORMER LIMIT
****
2)4 ;**;[1206] Replace @ REDCOR+27L JNG 15-Jun-79
2) JRST E$$MEF## ;[1206] CAN NOT FAIL
2) REDCR2: POP P,MAXCOR ;RESTORE FORMER LIMIT
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 725
PCO Log Report
*********************
*PCO #:10-LINK -296*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1203)
[Date Entered] 29-JUN-79
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] LNKCMX
[Source Before Edit] %4A (001206)
[Source After Edit] %4A (001207)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 726
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK will stop loading if it detects mixed FORTRAN and
Extended FORTRAN, but some users may want to do this
deliberately.
**********
[DIAGNOSIS]
LINK assumed that this would never work.
**********
[CURE]
If this is detected, print a question mark for batch
and stop execution, but leave the program set up in memory.
Digital Equipment Corporation 28-AUG-79 Page 727
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0836 15-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1554 29-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 15-Jun-7
9
1) ;COPYRIGHT (C) 1973, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-Jun-7
9
2) ;COPYRIGHT (C) 1973, 1979 BY
**************
1)1 DECEVR==1206 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1207 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1207 JNG 29-Jun-79
2) ; Make the LNKCMX message continue loading, so the user ca
n run
2) ; the program if he wants to.
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 728
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 0554 15-Jun-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1556 29-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 14-Jun-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 29-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1204 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1207 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1207 Make the LNKCMX message continue loading.
2)5 SUBTTL LOAD CONTROL
**************
1)58 E$$CMX::.ERR. (MS,.EC,V%L,L%F,S%F,CMX,<Cannot mix Extended FOR
TRAN compiled code with FORTRAN compiled code>)
1) .ETC. (JMP,,,,,.ETIMF##) ;[1203]
1) ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
****
2)58 ;**;[1207] Change @ E$$CMX JNG 29-Jun-79
2) E$$CMX::.ERR. (MS,.EC,V%L,L%F,S%C,CMX,<Cannot mix Extended FOR
TRAN compiled code with FORTRAN compiled code>)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1203]
2) AOS .JBERR ;[1207] STOP EXECUTION
2) JRST FOROK ;[1207] BUT KEEP LOADING
2) ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 729
PCO Log Report
*********************
*PCO #:10-LINK -297*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1203)
[Date Entered] 29-JUN-79
[Programmer] GILBERT
[Routines] LNKOLD
[Key Words] LNKPBI ALGOL SAIL BLOCK 5
[Source Before Edit] %4A (001207)
[Source After Edit] %4A (001210)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-Q3307
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 730
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 1203 has been installed, LINK will not allow
block type 5s (Program End block) that contain only one data
word. This type of block is generated by the Algol and SAIL
compilers. Also, LINK thinks that a program break of
exactly 1,,0 is illegal.
**********
[DIAGNOSIS]
Before edit 1203, LINK read the block type 5 with a
call to RB.2. This routine (1) just assumed zero for the
second data word if it wasn't there, and (2) never returned
a program break of 1,,0. Edit 1203 changed this to two
calls to RB.1, both of which went to the LNKRBS error if the
data word was not present. In addition, some new code was
added to let a program break of 1,,0 through, but this break
is then disallowed by an immediately following check for the
LNKPBI message.
**********
[CURE]
Just assume zero if the second call to RB.1 fails.
Also, make the LNKPBI check on the original data word from
the REL file, not the newly-created full word quantity.
Digital Equipment Corporation 28-AUG-79 Page 731
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 0551 15-Jun-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1708 29-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 14-Jun-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 29-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1204 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1210 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)5 COMMENT \
****
2)4 ;1210 Allow 1 word block 5, allow break of exactly 1,,0 (reloc
ated).
2)5 COMMENT \
**************
1)47 MOVE W2,LSTRRV ;[1204] GET TRUE VALUE
****
2)47 ;**;[1210] Replace @ T.5A+8L JNG 29-Jun-79
2) TLNE W1,-1 ;[1210] BREAK OK IN REL FILE?
2) JRST E$$PBI ;[1210] NO, GO COMPLAIN
2) MOVE W2,LSTRRV ;[1204] GET TRUE VALUE
**************
1)47 PUSHJ P,RB.1 ;[1204] GET SECOND WORD
1) JRST [MOVEI T1,5 ;[1204] DON'T LIKE THIS EITHER
1) JRST E$$RBS] ;[1204] COMPLAIN
1) MOVE W1,LSTRRV ;[1204] TRUE VALUE
****
2)47 ;**;[1210] Replace @ T.5A+11L JNG 29-Jun-79
2) T.5PBI: PUSHJ P,RB.1 ;[1210] GET SECOND WORD
2) JRST [SETZ W1, ;[1210] OK, JUST USE ZERO
2) JRST T.5BR] ;[1210] WE'VE GOT THE BREAKS
2) TLNE W1,-1 ;[1210] INVALID?
2) JRST E01PBI ;[1210] YES, GO COMPLAIN
2) MOVE W1,LSTRRV ;[1204] TRUE VALUE
**************
1)47 TLNE W1,-1 ;MAKE SURE VALID
1) ;**;[1174] Replace @T.5A+8L DZN 1-Jun-79
1) PUSHJ P,E$$PBI ;[1174] NOT
1) TLNE W2,-1
1) PUSHJ P,E01PBI ;[1174] SAME FOR W2
1) SKIPE W3,LOD37 ;COBOL LOCAL SYMBOLS
1) ;BUT IF THEY'RE LOADED
Digital Equipment Corporation 28-AUG-79 Page 732
PCO Log Report
****
2)47 ;**;[1210] Replace @ T.5A+17L JNG 29-Jun-79
2) T.5BR: SKIPE W3,LOD37 ;[1210] COBOL LOCAL SYMBOLS
2) ;BUT IF THEY'RE LOADED
**************
1)55 SETZ W1, ;CLEAR AND CONTINUE
1) POPJ P,
1) ;**;[1174] Replace @T.5W2 DZN 1-Jun-79
1) E01PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI) ;[1174]
1) .ETC. (OCT,.EP!.EC,,,,W2)
1) .ETC. (STR,.EC,,,,,< invalid>) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
1) SETZ W2, ;CLEAR AND CONTINUE
1) POPJ P,
1)56 SUBTTL BLOCK TYPE 6 - NAME
****
2)55 ;**;[1210] Replace @ E$$PBI+4L JNG 29-Jun-79
2) SETZ W2, ;[1210] CLEAR AND CONTINUE
2) JRST T.5PBI ;[1210] GO READ SECOND WORD
2) ;**;[1210] Replace @ E01PBI JNG 29-Jun-79
2) E01PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI) ;[1174]
2) .ETC. (OCT,.EP!.EC,,,,W1) ;[1210] TYPE INVALID BRE
AK
2) .ETC. (STR,.EC,,,,,< invalid>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2) SETZ W1, ;[1210] CLEAR INVALID BREAK
2) JRST T.5BR ;[1210] CONTINUE
2)56 SUBTTL BLOCK TYPE 6 - NAME
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 733
PCO Log Report
*********************
*PCO #:10-LINK -298*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 01-JUL-79
[Programmer] GILBERT
[Routines] LNKWLD
[Key Words] LNKDRC ILL UUO ED 1174
[Source Before Edit] %4A (001210)
[Source After Edit] %4A (001211)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-Q3033
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 734
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 1174 has been installed, LINK will fail with
an illegal UUO immediately after issuing the LNKDRC warning
message.
**********
[DIAGNOSIS]
An error in that edit causes LINK to start executing
its error codes as if they were instructions. Since they
aren't, an illegal UUO soon follows.
**********
[CURE]
Correct that part of edit 1174.
Digital Equipment Corporation 28-AUG-79 Page 735
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1709 29-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2230 29-Jun-1979
1)1 DECEVR==1210 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1211 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1211 JNG 29-Jun-79 QAR 10-3303
2) ; Fix typo in LNKDRC message, avoid Illegal UUO. Broken b
y 1174.
2) ; Routine: LNKWLD
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 736
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1623 14-Jun-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 2234 29-Jun-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 14-Jun-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 29-Jun-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1204 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1211 ;DEC EDIT VERSION
2) ;CALLING SEQUENCE
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)3 ;1211 Fix typo in LNKDRC.
2)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
1)40 .ETC. (OCT,.EP!.EP,,,,W3) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
****
2)40 ;**;[1211] Change @ E$$DRC+5L JNG 29-Jun-79
2) .ETC. (OCT,.EC!.EP,,,,W3) ;[1211]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 737
PCO Log Report
*********************
*PCO #:10-LINK -299*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1211) DO NOT INSTALL!!
[Date Entered] 05-JUL-79
[Programmer] D. NEFF
[Routines] LNKERR LNKLOG LNKLOD LNKNEW
[Key Words] MORE E1174
[Source Before Edit] % (000000)
[Source After Edit] %4A (001212)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-Q03311
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 738
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Various loose ends following the error message clean-up of edit
1174:
1. The LNKAIC and RLC messages are not very readable in
LNKERR.MAC.
2. The LNKGFE long message should be in IFN TOPS-20
conditionals.
3. References in LNKERR to the message segment [address]
should be [octal], and the associated messages should tell
the user that these quantities are addresses.
4. Indexed message 7 refers to a SAV file, even though .EXE
files have been around a long time.
5. The changing of references of `core' to `memory' missed
the one in indexed message 10.
6. LNKERR.MAC incorrectly states that the messages LNKFEE,
LNKFLE and LNKFRE are unconditionally of level 31 and
severity 31.
7. Some messages resulting from the failure of a LOOKUP,
ENTER, RENAME, RUN or GETSEG UUO are missing a space.
8. The TOPS-20 long message for LNKEOV refers to the saved
file, when the failure was actually for the overlay file.
9. Some labels inside of unsupported conditionals were not
changed to the new format.
This edit should not be installed in the field, since it requires
nearly every other LINK edit to be installed first.
**********
Digital Equipment Corporation 28-AUG-79 Page 739
PCO Log Report
[DIAGNOSIS]
These problems were missed during the work for edit 1174.
**********
[CURE]
Clean up the loose ends as noted above.
Digital Equipment Corporation 28-AUG-79 Page 740
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2230 29-Jun-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1718 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 29-Jun-7
9
1) ;COPYRIGHT (C) 1973, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-Jul-79
2) ;COPYRIGHT (C) 1973, 1979 BY
**************
1)1 DECEVR==1211 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1212 DZN 4-Jun-79
2) ; Fix various typos and other loose ends in the aftermath
of 1174.
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 741
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1640 14-Jun-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 1734 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 4-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1204 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL FIND MESSAGE
****
2)3 ;1212 Make sure messages here really agree with the rest of LI
NK.
2)4 SUBTTL FIND MESSAGE
**************
1)10 AIC 31 31 Attempt to increase size of {blank common} fro
m [decimal] to [decimal]
1) {common [symbol}
1) {Detected in module [symbol] from file [file]}
****
2)10 AIC 31 31 Attempt to increase size of {blank common} {comm
on [symbol]} from [decimal] to [decimal]
2) {Detected in module [symbol] from file [file]}
**************
1)10 FEE 31 31 ENTER error [reason] [file]
1) FIN 1 1 LINK finished
1) FLE 31 31 LOOKUP error [reason] [file]
1) FOV 31 31 Cannot overlay F40 compiled code
1) {Detected in module [symbol] from file [file]}
1) FRE 31 31 RENAME error [reason] [file]
1) FSF 8 8 FORTRAN subroutine not in expected format, /MIXF
OR fixup not done
****
2)10 FEE * * ENTER error [reason] [file]
2) FIN 1 1 LINK finished
2) FLE * * LOOKUP error [reason] [file]
2) FOV 31 31 Cannot overlay F40 compiled code
2) {Detected in module [symbol] from file [file]}
2) FRE * * RENAME error [reason] [file]
2) FSF 8 8 FORTRAN subroutine not in expected format, /MIXF
OR fixup not done
**************
1)10 IVC 31 31 Index validation check failed at [address]
1) LDS 1 1 LOAD segment
Digital Equipment Corporation 28-AUG-79 Page 742
PCO Log Report
****
2)10 IVC 31 31 Index validation check failed at address [octal]
2) LDS 1 1 LOAD segment
**************
1)10 POV 8 8 Psects [symbol] and [symbol] overlap from [addre
ss] to [address]
1) PTL 31 31 Program too long
****
2)10 POV 8 8 Psects [symbol] and [symbol] overlap from addres
s [octal] to [octal]
2) PTL 31 31 Program too long
**************
1)10 [symbol] [octal] [octal]
1) {. . . . . . . . .}
1) RME 31 * REMAP error{, high segment origin may be incorre
ct}
****
2)10 {[symbol] [octal] [octal]
2) . . . . . . . . .}
2) RME 31 * REMAP error{, high segment origin may be incorre
ct}
**************
1)11 IFN TOPS20,<
1) HASH EOV,0,<^_
1) LINK could not write the saved file on the disk.>
1) > ;END IFN TOPS20
****
2)11 ;**;[1212] Replace below in TOPS-20 EOV long message DZN
4-Jul-79
2) IFN TOPS20,<
2) HASH EOV,0,<^_
2) LINK could not write the overlay file on the disk.>
2) > ;END IFN TOPS20
**************
1)11 HASH GFE,0,<^_
****
2)11 IFN TOPS20,<
2) HASH GFE,0,<^_
**************
1)11 HASH GSE,@
****
2)11 > ;END IFN TOPS20
2) HASH GSE,@
**************
Digital Equipment Corporation 28-AUG-79 Page 743
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1556 29-Jun-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1726 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 29-Jun-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 4-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1207 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) VERSION
**************
1)5 SUBTTL LOAD CONTROL
****
2)4 ;1212 Make LNKIVC and LNKPOV consistent with other messages.
2)5 SUBTTL LOAD CONTROL
**************
1)41 ;**;[1174] Replace @INVIDX+2L DZN 30-May-79
1) E$$IVC::.ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at >) ;[1174]
1) .ETC. (OCT,.EP,,,,T1)
****
2)41 ;**;[1212] Replace @E$$IVC DZN 4-Jul-79
2) E$$IVC::.ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at address >) ;[1212]
2) .ETC. (OCT,.EP,,,,T1)
**************
1)72 ;**;[1174] Replace @CHKBN1+11L DZN 30-May-79
1) E$$POV::.ERR. (MS,.EC,V%L,L%W,S%W,POV,<Psects >) ;[1174]
****
2)72 E$$POV::.ERR. (MS,.EC,V%L,L%W,S%W,POV,<Psects >) ;[1174]
**************
1)72 .ETC. (STR,.EC,,,,,< overlap from >) ;[1174]
1) .ETC. (OCT,.EC!.EP,,,,W1) ;[1174]
****
2)72 ;**;[1212] Replace @E$$POV+4L DZN 4-Jul-79
2) .ETC. (STR,.EC,,,,,< overlap from address >) ;[1212]
2) .ETC. (OCT,.EC!.EP,,,,W1) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 744
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOG.MAC[30,4507] created: 1853 14-Jun-1979
File 2) LINK:LNKLOG.MAC[10,645063] created: 1742 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 4-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1202 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
****
2)2 ;1212 Make indexed LRE messages 7 and 10 consistent with other
s, fix missing
2) ; space in LRE messages.
2)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
**************
1)9 ;**;[1202] Replace @ERLRE3 DZN 14-Jun-79
1) MOVE T4,ERCHAN ;[1202] RESTORE CHAN PLUS FLAGS
****
2)9 ;**;[1212] Insert after ERLRE2+4L DZN 4-Jul-79
2) OUTVIA .TSPAC## ;[1212] PRINT SPACE BETWEEN FAIL
URE AND REASON
2) MOVE T4,ERCHAN ;[1202] RESTORE CHAN PLUS FLAGS
**************
1)24 .ASCIZ <ENTER error >;;[564]
1) .ERFLE::ASCIZ \FLE\
1) .ASCIZ <LOOKUP error >
1) .ERFRE::ASCIZ \FRE\
1) .ASCIZ <RENAME error >
1) .ERGSE::ASCIZ \GSE\
1) .ASCIZ <GETSEG error >
1) .ERNED::ASCIZ \NED\
****
2)24 ;**;[1212] Replace @.ERFEE+1L DZN 4-Jul-79
2) .ASCIZ <ENTER error> ;[1212]
2) .ERFLE::ASCIZ \FLE\
2) .ASCIZ <LOOKUP error> ;[1212]
2) .ERFRE::ASCIZ \FRE\
2) .ASCIZ <RENAME error> ;[1212]
2) .ERGSE::ASCIZ \GSE\
2) .ASCIZ <GETSEG error> ;[1212]
2) .ERNED::ASCIZ \NED\
**************
1)25 .ERR. (,0,V%L,L%F,S%F,,<(7) not a SAV file >)
Digital Equipment Corporation 28-AUG-79 Page 745
PCO Log Report
1) .ERR. (,0,V%L,L%F,S%F,,<(10) not enough core >)
1) .ERR. (,0,V%L,L%F,S%F,,<(11) device not available >)
****
2)25 ;**;[1212] Replace @LRETAB+7L DZN 4-Jul-79
2) .ERR. (,0,V%L,L%F,S%F,,<(7) not a saved file >)
2) .ERR. (,0,V%L,L%F,S%F,,<(10) not enough memory >)
2) .ERR. (,0,V%L,L%F,S%F,,<(11) device not available >)
**************
Digital Equipment Corporation 28-AUG-79 Page 746
PCO Log Report
[FILCOM]
File 1) LINK:LNKNEW.MAC[30,4507] created: 1657 10-Jun-1979
File 2) LINK:LNKNEW.MAC[10,645063] created: 1743 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 4-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) ;LOCAL ACC DEFINITIONS
**************
1)3 SUBTTL BLOCK DISPATCH TABLES
****
2)2 ;1212 Use E$$NEB instead of EOFTS label in T.1003 (in an off c
onditional).
2)3 SUBTTL BLOCK DISPATCH TABLES
**************
1)13 PUSHJ P,EOFTS## ;WARN USER, BUT TRY TO CONTINUE
1) TRNE FL,R.FHS ;FORCED TO HIGH SEGMENT?
****
2)13 ;**;[1212] Replace @T.1003+16L DZN 4-Jul-79
2) PUSHJ P,E$$NEB## ;[1212] WARN USER, BUT TRY TO CO
NTINUE
2) TRNE FL,R.FHS ;FORCED TO HIGH SEGMENT?
**************
Digital Equipment Corporation 28-AUG-79 Page 747
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 0613 14-Jun-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1750 04-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1202 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1212 ;DEC EDIT VERSION
2) VERSION
**************
1)7 SUBTTL ENTER HERE
****
2)6 ;1212 Use E$$SOE label instead of ZCMP7E, broken by 1174 (in o
ff conditional).
2)7 SUBTTL ENTER HERE
**************
1)82 JRST ZCMP7E ;NO
1) ANDCMI T1,.DBM ;[650]
****
2)82 ;**;[1212] Replace @ZCMP6A+19L DZN 4-Jul-79
2) JRST E$$SOE ;[1212] NO
2) ANDCMI T1,.DBM ;[650]
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 748
PCO Log Report
*********************
*PCO #:10-LINK -300*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1174)
[Date Entered] 08-JUL-79
[Programmer] GILBERT
[Routines] LNKPAR LNKOLD LNKLOD LNKERR
[Key Words] LNKISD GONE
[Source Before Edit] %4A (001212)
[Source After Edit] %4A (001213)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: Y
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 749
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK will give a LNKISD warning when certain types of
programs are assembled with MACRO 53A. Programs that cause
this are those that contain a partially-defined global
symbol which is used in more than one psect.
**********
[DIAGNOSIS]
In this case, MACRO 53A generates a duplicate partial
definition for each different psect in which the
partially-defined symbol was used. The partial definitions
will eventually turn out to have the same value, but LINK
doesn't wait to see if they will or not before printing its
warning. It is not feasible to make MACRO 53A act like
MACRO 53 and earlier did, since this behavior was introduced
as a side effect of fixing a serious bug with psects.
**********
[CURE]
Remove the ISD message from LINK. When multiple
partial definitions are detected, save them all away. As
they become defined, compare them against the value of the
first definition seen (the "real" definition), and print MDS
messages if the values differ.
Digital Equipment Corporation 28-AUG-79 Page 750
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1718 04-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 2212 08-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 4-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Jul-79
2)
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1213 ;DEC EDIT VERSION
2)
**************
1)5 ;1212 DZN 4-Jun-79
1) ; Fix various typos and other loose ends in the aftermath
of 1174.
1)
1)6 END ;OF LNKHST
****
2)5 ;1212 DZN 4-Jul-79
2) ; Fix various typos and other loose ends in the aftermath
of 1174.
2)
2) ;1213 JNG 5-Jul-79
2) ; Eliminate the ISD message; on multiple partial definitio
ns, just
2) ; ignore them if their values agree, and give the MDS mess
age if
2) ; they don't.
2) ; Routines: LNKPAR, LNKOLD, LNKLOD, LNKERR
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 751
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1229 14-Jun-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 2215 08-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 14-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jul-79
2)
**************
1)1 DECEVR==1203 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1213 ;DEC EDIT VERSION
2)
**************
1)5
****
2)5 ;1213 Define the FS.MDC bit.
2)
**************
1)12
****
2)12 ;**;[1213] Insert @ FS.FXC+1L JNG 5-Jul-79
2) FS.MDC==:1B15 ;[1213] MULTIPLE PARTIAL DEFINITION FIXU
P
2) ;[1213] FOR COMPARE WITH TRUE VALUE ONLY
2) ;[1213] DON'T USE OR DELETE S.PVS TRIPLE
T
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 752
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1708 29-Jun-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 2308 08-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 29-Jun-7
9
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 5-Jul-79
2)
**************
1)1 DECEVR==1210 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1213 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1213 Delete the ISD message, setup special fixup if multiple
partial defs.
2)
**************
1)19 .JDDT LNKOLD,T.2,<<CAMN W2,$SYMBOL##>>
****
2)19 ;**;[1213] Insert @ T.2+6L JNG 5-Jul-79
2) MOVE P4,T3 ;[1213] SAVE RADIX50 SYMBOL NAME
2) .JDDT LNKOLD,T.2,<<CAMN W2,$SYMBOL##>>
**************
1)22 MOVE W2,T3 ;PUT BACK IN W2
1) POPJ P,
****
2)22 ;**;[1213] Change @ R50T6X+2L JNG 5-Jul-79
2) EXCH W2,T3 ;[1213] PUT BACK IN W2, LEAVE R5
0 IN T3
2) POPJ P,
**************
1)27 PUSHJ P,TRYSYM## ;SEE IF IN TABLE
****
2)27 ;**;[1213] Insert @ SY.DGR+5L JNG 5-Jul-79
2) PUSH P,P4 ;[1213] SAVE ORIGINAL SYMBOL IN
RADIX50
2) PUSHJ P,TRYSYM## ;SEE IF IN TABLE
**************
1)27 IFN FTOVERLAY,<
****
2)27 ;**;[1213] Insert @ SY.DGR+8L JNG 5-Jul-79
2) POP P,P4 ;[1213] RESTORE SYMBOL NAME IN R
50 FORM
2) IFN FTOVERLAY,<
**************
Digital Equipment Corporation 28-AUG-79 Page 753
PCO Log Report
1)27 ;**;[1174] Replace @SY.DGR+11L DZN 1-Jun-79
1) JRST E$$ISD ;[1174] INCONSISTENT SYMBOL DEFI
NITION
1)
****
2)27 ;**;[1213] Replace @SY.DGR+11L JNG 5-Jul-79
2) JRST SY.DG2 ;[1213] 2ND PARTIAL DEF, SET UP
FOR CHECK
2)
**************
1)27 SY.DG0:
1) IFN FTOVERLAY,<
****
2)27 ;**;[1213] Insert @ SY.DG0 JNG 7-Jul-79
2) SY.DG0: POP P,P4 ;[1213] RESTORE RADIX 50 FORM
2) IFN FTOVERLAY,<
**************
1)28 SY.DG1:
1) IFN FTOVERLAY,<
****
2)28 ;**;[1213] Insert @ SY.DG1 JNG 5-Jul-79
2) SY.DG1: POP P,P4 ;[1213] RESTORE RADIX50 SYMBOL N
AME
2) IFN FTOVERLAY,<
**************
1)28 ;**;[1174] Replace @SY.DG1+6L DZN 1-Jun-79
1) JRST E$$ISD ;[1174] YES, SECOND PARTIAL DEFI
NITION
1) MOVEI T1,.L ;NEED 1 EXTRA TRIPLET
****
2)28 ;**;[1213] Replace @SY.DG1+6L JNG 5-Jul-79
2) JRST SY.DG2 ;[1213] YES, SET UP FOR COMPARE
2) MOVEI T1,.L ;NEED 1 EXTRA TRIPLET
**************
1)28
1) ;**;[1174] Replace @SY.DG2 DZN 1-Jun-79
1) E$$ISD::.ERR. (MS,.EC,V%L,L%W,S%W,ISD,<Inconsistent symbol def
inition for symbol >) ;[1174]
1) .ETC. (SBX,.EC!.EP,,,,W2) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
1) SETZM LSTSYM ;SO WE IGNORE SYMBOL FIXUP FOLLO
WING
1) POPJ P,
1)
****
2)28 ;**;[1213] Replace @ E$$ISD JNG 5-Jul-79
2)
2)29 ;HERE WHEN A DEFINED OR PARTIALLY-DEFINED SYMBOL IS PARTIALLY-DE
FINED
Digital Equipment Corporation 28-AUG-79 Page 754
PCO Log Report
2) ;A SECOND TIME. WE NEED TO SET THINGS UP SO THE OLD AND NEW VAL
UES WILL
2) ;BE COMPARED WHEN (AND IF) THE SECOND PARTIAL DEFINITION IS SATI
SFIED.
2) ;
2) ;TO DO THIS, MAKE A NEW SYMBOL IN THE GS AREA (BUT NOT POINTED T
O BY THE
2) ;HASH TABLE) CONTAINING A PRIMARY TRIPLET COPIED FROM THE FIRST
DEFINITION,
2) ;AND A SECONDARY S.PVS TRIPLET FROM THE NEW PARTIAL DEFINITION.
2) ;
2) ;IF THE OLD DEFINITION WAS ONLY A PARTIAL ONE, CREATE A SYMBOL F
IXUP FROM
2) ;THE OLD SYMBOL BLOCK TO THE NEW ONE SO THE VALUES WILL BE CHECK
ED WHEN
2) ;EVERYTHING GETS DEFINED.
2) ;
2) ;CALLED WITH: P1/ PTR TO OLD DEFINITION
2) ; W1-W3/ NEW DEFINITION
2) ; P4/ SYMBOL NAME IN RADIX-50
2)
2)
2) SY.DG2: MOVX W1,PS.UDF!PS.REQ ;[1213] COPY THESE FROM
THE OLD TRIPLET
2) AND W1,(P1) ;[1213] HERE THEY ARE
2) IORX W1,PT.EXT!PT.SGN!PT.SYM!PS.GLB ;[1213] USEFUL F
LAGS
2) SUB P1,NAMLOC ;[1213] SAVE IN CASE CORE MOVES
2) MOVEI T2,.L*2 ;[1213] SPACE FOR NEW TRIPLET PA
IR
2) PUSHJ P,GS.GET## ;[1213] NEW BLOCK NOW POINTED TO
BY T1
2) ADD P1,NAMLOC ;[1213] RESTORE P1
2) DMOVEM W1,0(T1) ;[1213] STORE FLAGS AND NAME
2) TXNE W1,PS.UDF ;[1213] SYMBOL DEFINED?
2) TDZA T2,T2 ;[1213] NO, NO FIXUPS
2) MOVE T2,2(P1) ;[1213] YES, COPY VALUE FROM OLD
TRIPLET
2) MOVEM T2,2(T1) ;[1213] STORE LAST WORD OF PRIMA
RY
2) MOVX W1,S.PVS!S.LST ;[1213] FLAGS FOR SECONDARY TRIP
LET
2) TMOVEM W1,.L(T1) ;[1213] STORE SECONDARY TRIPLET
2) SUB T1,NAMLOC ;[1213] OFFSET INTO GS AREA
2) HRLZM T1,LSTSYM ;[1213] ARRANGE FOR SY.RQ TO FIN
D US
2)
2)30 ;NOW SEE IF THE ORIGINAL DEFINITION WAS A PARTIAL ONE, AND SETUP
AN
Digital Equipment Corporation 28-AUG-79 Page 755
PCO Log Report
2) ;EXTRA FIXUP REQUEST POINTER IF SO.
2)
2) MOVE T1,0(P1) ;[1213] RESTORE OLD SYMBOL'S FLA
GS
2) TXNN T1,PS.UDF ;[1213] WAS IT A PARTIAL DEFINIT
ION?
2) POPJ P, ;[1213] NO, DONE
2) AOS USYM ;[1213] YES, WE CREATED ANOTHER
SYMBOL TO FIX UP
2) MOVX W1,PT.SGN!PT.SYM ;[1213] SOME GOOD FLAGS
2) MOVE W3,P4 ;[1213] SYMBOL TO FIX UP IN RADI
X50 (SAME NAME)
2) TXO W3,R5.FXS!R5.FXA ;[1213] SOME FAKE REL FI
LE INPUT
2) PUSHJ P,SY.RQ ;[1213] SET UP THE EXTRA LINKAGE
2) ADD W3,FX.LB ;[1213] NOW FIND FIXUP BLOCK CRE
ATED
2) MOVX T1,FS.FXR!FS.FXF!FS.MDC ;[1213] CHANGE RH FIXUP
TO FULL-WORD
2) XORM T1,0(W3) ;[1213] AND SET FS.MDC BIT FOR S
Y.STF
2) POPJ P, ;[1213] DONE
2)
**************
Digital Equipment Corporation 28-AUG-79 Page 756
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1726 04-Jul-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 2219 08-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 4-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 5-Jul-79
2)
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1213 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1213 Respect the FS.MDC bit.
2)
**************
1)33 ADD T1,NAMLOC ;RELOCATE
****
2)33 ;**;[1213] Insert @ SYSTF1+2L JNG 5-Jul-79
2) TXNE W1,FS.MDC ;[1213] ONLY WANT TO COMPARE VAL
UES?
2) JRST [MOVE T1,P1 ;[1213] YES, USE DEFINING TRIPLE
T AS VALUE
2) JRST SYSTFC] ;[1213] SKIP SEARCH FOR S.PVS TR
IPLET
2) ADD T1,NAMLOC ;RELOCATE
**************
1)34 MOVX T3,PS.UDR ;ASSUME RH FIXUP
1) TXNE W1,FS.FXL ;LEFT HALF?
****
2)34 ;**;[1213] Insert @ SYSTF3+1P5L JNG 5-Jul-79
2) SYSTFC: MOVX T3,PS.UDR ;[1213] ASSUME RH FIXUP
2) TXNE W1,FS.FXL ;LEFT HALF?
**************
1)34 PUSHJ P,SY.ZST ;AND ZAP 2NDARY 3RPLET
****
2)34 ;**;[1213] Insert @ SYSTF3+1P24L JNG 5-Jul-79
2) TXNN W1,FS.MDC ;[1213] DON'T ZAP S.PVS IF WE DI
DN'T USE IT
2) PUSHJ P,SY.ZST ;AND ZAP 2NDARY 3RPLET
**************
Digital Equipment Corporation 28-AUG-79 Page 757
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1734 04-Jul-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 2334 08-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 4-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 5-Jul-79
2)
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1213 ;DEC EDIT VERSION
2)
**************
1)3
****
2)3 ;1213 Remove the ISD message.
2)
**************
1)10 ISD 8 8 Inconsistent symbol definition for symbol [symbo
l]
1) {Detected in module [symbol] from file [file]}
1) ISN 31 31 Illegal symbol name [symbol]
****
2)10 ISN 31 31 Illegal symbol name [symbol]
**************
1)11 HASH ISD,0,<^_
1) The named symbol either has a partial definition and
an
1) explicit definition, or has two partial definition
s.
1) Later resolution of partial definitions may result in
a
1) multiply-defined global symbol.
1)
1) A partial definition is one in which a symbol is defin
ed
1) in terms of other undefined symbols. If your code h
as
1) A=:B##+3 and A=:7, then either B## will have to be 4 or
A
1) will be multiply-defined.>
1)
1) HASH ISN,0,<^_
****
2)11 HASH ISN,0,<^_
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 758
PCO Log Report
*********************
*PCO #:10-LINK -301*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765) + ALL EDITS TO 1213 ONLY
[Date Entered] 10-JUL-79
[Programmer] D. NEFF
[Routines] LNKCOR LNKOV1 LNKXIT LNKHST
[Key Words] REMATCH <>
[Source Before Edit] % (000000)
[Source After Edit] %4A (001214)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-Q03314
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 759
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
Quality assurance tests done on LINK's sources using PIP's /V
switch (list unmatched angle brackets) find various unmatched angle
bracket problems.
**********
[DIAGNOSIS]
There are two sets of problems.
1. Several comments sprinkled throughout the sources include
angle brackets that are used for relational expressions.
Every one of these leads to potential problems if these
lines are someday put inside conditionals.
2. Edit 1132 missed the matching closing angle bracket for
the FTOVERLAY conditional in the vicinity of XOVNWD. This
only causes problems if FTEXE is turned off (this is not
supported).
**********
[CURE]
Fix the various unmatched angle brackets.
Digital Equipment Corporation 28-AUG-79 Page 760
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 2212 08-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1538 09-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 5-Jul-79
1) ;COPYRIGHT (C) 1973, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 9-Jul-79
2) ;COPYRIGHT (C) 1973, 1979 BY
**************
1)1 DECEVR==1213 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1214 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)4 ; If limit > next-PSECT-origin, overlaying will occur.
1) ; LNKPAR, LNKWLD, LNKXIT
****
2)4 ; If limit .GT. next-PSECT-origin, overlaying will occur.
2) ; LNKPAR, LNKWLD, LNKXIT
**************
1)5 ; Fix bug in doing large( > 400000) pop loop in 2 chunks.
1) ; LNKCOR
****
2)5 ; Fix bug in doing large (.GT. 400000) pop loop in 2 chunk
s.
2) ; LNKCOR
**************
1)5 ;1213 JNG 5-Jul-79
****
2)5 ; Routines: LNKERR, LNKLOD, LNKLOG, LNKNEW, LNKXIT
2) ;1213 JNG 5-Jul-79
**************
1)6 END ;OF LNKHST
****
2)5 ;1214 DZN 9-Jul-79 QAR 10-03315
2) ; Fix mismatched angle brackets so PIP's /V switch doesn't
complain.
2) ; Comments should not contain angle brackets unless they a
ctually
2) ; terminate conditionals, repeats, etc.
2) ; Routines: LNKHST, LNKCOR, LNKOV1, LNKXIT
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 761
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1640 10-Jun-1979
File 2) LINK:LNKCOR.MAC[10,645063] created: 1310 10-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 9-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SALL
****
2)1 DECEVR==1214 ;DEC EDIT VERSION
2) SALL
**************
1)3 ;720 Move core upwards in 2 steps if it's >= 400000.
1) ;731 SEARCH MACTEN,UUOSYM
****
2)3 ;720 Move core upwards in 2 steps if it's .GE. 400000.
2) ;731 SEARCH MACTEN,UUOSYM
**************
1)3 ;771 Fix bug with shuffling large( >400000) core segment.
1) ;1104 Remove part of edit 750 from LH.DMP to fix address check
s.
****
2)3 ;771 Fix bug with shuffling large( .GT. 400000) core segment.
2) ;1104 Remove part of edit 750 from LH.DMP to fix address check
s.
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1214 Fix unmatched angle bracket bugs.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)14 JUMPL T4,[PUSH P,[CHUNK1,,0] ;[720] SIZE >=400000
1) SUB T4,[CHUNK1,,0] ;[720] FIRST DO LENTH LE
SS A CHUNK
****
2)14 ;**;[1214] Replace @MOVUP+23L DZN 9-Jul-79
2) JUMPL T4,[PUSH P,[CHUNK1,,0] ;[1214] SIZE .GE. 400000
2) SUB T4,[CHUNK1,,0] ;[720] FIRST DO LENTH LE
SS A CHUNK
**************
Digital Equipment Corporation 28-AUG-79 Page 762
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 0554 15-Jun-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 1519 09-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 9-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1205 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1214 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL ENTRY POINT
****
2)2 ;1214 Fix mismatched angle bracket bugs.
2)3 SUBTTL ENTRY POINT
**************
1)20 LSH T1,-.DBS2W ;[650] WORDS ---> BLOCKS
1) ADDM T1,OVLBLK ;UPDATE OVLBLK TO END OF SYMBOLS
****
2)20 ;**;[1214] Replace @LNKT5+6L DZN 9-Jul-79
2) LSH T1,-.DBS2W ;[1214] WORDS TO BLOCKS
2) ADDM T1,OVLBLK ;UPDATE OVLBLK TO END OF SYMBOLS
**************
Digital Equipment Corporation 28-AUG-79 Page 763
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1750 04-Jul-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1534 09-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 4-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 9-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1214 ;DEC EDIT VERSION
2) VERSION
**************
1)7 SUBTTL ENTER HERE
****
2)6 ;1214 Fix unmatched angle bracket bug in .EXE file code.
2)7 SUBTTL ENTER HERE
**************
1)78 ;HERE WHEN DONE WRITING THE MEMORY IMAGE TO THE EXE FILE.
****
2)77 ;**;[1214] Insert after XOVNWD+10L DZN 9-Jul-79
2) >;[1214] END IFN FTOVERLAY
2)78 ;HERE WHEN DONE WRITING THE MEMORY IMAGE TO THE EXE FILE.
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 764
PCO Log Report
*********************
*PCO #:10-LINK -302*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1132)
[Date Entered] 23-JUL-79
[Programmer] GILBERT
[Routines] LNKLOD
[Key Words] ABS CODE LOWLOC EXE FILE
[Source Before Edit] %4A (001214)
[Source After Edit] %4A (001215)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 765
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
LINK can leave location 140 to the first location
loaded with relocatable code out of the EXE file, even if
these locations were loaded with absolute code. This will
only happen if LINK is writing its own EXE file, and if
LINK's internal LC area has overflowed to disk.
**********
[DIAGNOSIS]
LINK's EXE file writer finds the lowest significant
location beyond JOBDAT by looking at the current values of
the .LOW. and .ABS. relocation counters. Unfortunately, the
current value of the .ABS. counter is always zero, so that
the EXE file writer will miss the first significant
location(s) if they were loaded with absolute code.
**********
[CURE]
Use the highest location seen, RC.HL, instead of RC.CV.
This edit is NOT applicable to field image LINK version 4.
Digital Equipment Corporation 28-AUG-79 Page 766
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1538 09-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 0112 23-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 9-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-Jul-7
9
2)
**************
1)1 DECEVR==1214 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1215 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1215 JNG 23-Jul-79 QAR R.ACE
2) ; Use RC.HL for .ABS. and .LOW. for LOWLOC update at CHKLL
C, since
2) ; RC.CV may not be correct. In particular, RC.CV for .ABS
. is always
2) ; zero.
2) ; Routine: LNKLOD
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 767
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 2219 08-Jul-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 0123 23-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 5-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 23-Jul-7
9
2)
**************
1)1 DECEVR==1213 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1215 ;DEC EDIT VERSION
2)
**************
1)4
****
2)4 ;1215 Use RC.HL instead of RC.CV for the LOWLOC check at CHKLL
C.
2)
**************
1)70 MOVE W1,RC.CV(T1) ;[747]
1) MOVEI R,1 ;[747] GET .LOW.
1) MOVE T2,@RC.TB ;[747]
1) MOVE W2,RC.CV(T2) ;[747]
1) IOR W1,W2 ;[747] ANY THING IN EITHER .ABS.
OR .LOW.?
****
2)70 ;**;[1215] Change @ CHKLLC+4L JNG 23-Jul-79
2) MOVE W1,RC.HL(T1) ;[1215] USE HIGHEST LOC EVER SEE
N
2) MOVEI R,1 ;[747] GET .LOW.
2) MOVE T2,@RC.TB ;[747]
2) MOVE W2,RC.HL(T2) ;[1215] USE HIGHEST LOCATION EVE
R SEEN
2) IOR W1,W2 ;[747] ANY THING IN EITHER .ABS.
OR .LOW.?
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 768
PCO Log Report
*********************
*PCO #:10-LINK -303*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1172)
[Date Entered] 23-JUL-79
[Programmer] GILBERT
[Routines] LNKXIT
[Key Words] ILL MEM RE UNDEF SYMS SYMOUT ED 1172
[Source Before Edit] %4A (001215)
[Source After Edit] %4A (001216)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 769
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
After edit 1172 has been installed, LINK can get an
illegal memory reference from LNKXIT when the program being
loaded contains undefined symbols.
**********
[DIAGNOSIS]
The routine to deposit a new symbol in the image
destroys two preserved registers if the symbol being
deposited causes the segment to extend past a new page
boundary.
**********
[CURE]
Preserve the preserved registers.
Digital Equipment Corporation 28-AUG-79 Page 770
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0112 23-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 0227 23-Jul-1979
1)1 DECEVR==1215 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1216 ;DEC EDIT VERSION
2)
**************
1)6 END ;OF LNKHST
****
2)5 ;1216 JNG 23-Jul-79 QAR CKS
2) ; Preserve P1/P2 in SYMOUT, avoid illegal memory reference
if
2) ; undefined symbols exist.
2) ; Routine: LNKXIT
2)
2)6 END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 771
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1534 09-Jul-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 0223 23-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 9-Jul-79
1)
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 23-Jul-79
2)
**************
1)1 DECEVR==1214 ;DEC EDIT VERSION
1)
****
2)1 DECEVR==1216 ;DEC EDIT VERSION
2)
**************
1)6
****
2)6 ;1216 Preserve P acs in SYMOUT.
2)
**************
1)35 MOVE P1,R ;[1172] SEGMENT TO EXPAND
****
2)35 ;**;[1216] Insert @ SYMOU2+3L JNG 23-Jul-79
2) SPUSH <P1,P2> ;[1216] PRESERVE OVER LNKCOR
2) MOVE P1,R ;[1172] SEGMENT TO EXPAND
**************
1)35 SETZM LS.PP ;[1172] RESTORE
****
2)35 ;**;[1216] Insert @ SYMOU2+7L JNG 23-Jul-79
2) SPOP <P2,P1> ;[1216] RESTORE SACRED COWS
2) SETZM LS.PP ;[1172] RESTORE
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 772
PCO Log Report
*********************
*PCO #:10-LINK -304*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4A(1216) ONLY, DON INSTALL
[Date Entered] 27-JUL-79
[Programmer] D. NEFF
[Routines] ALL
[Key Words] CLEAN UP
[Source Before Edit] % (000000)
[Source After Edit] %4A (001217)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 773
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
This being the last edit before the last field test tape, it is
time to update copyright notices, and see that pages are broken at
readable places.
**********
[DIAGNOSIS]
Yes.
**********
[CURE]
Yes.
Digital Equipment Corporation 28-AUG-79 Page 774
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 0227 23-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1419 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 23-Jul-7
9
1) ;COPYRIGHT (C) 1973, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 25-Jul-7
9
2) ;COPYRIGHT (C) 1973, 1979 BY
**************
1)1 DECEVR==1216 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 END ;OF LNKHST
****
2)5 ;1217 DZN 25-Jul-79
2) ; Clean up the listings for release. Update all copyright
notices.
2) ; Remove all editing lines. Break pages in good places.
2) ; Routines: All
2)6 SUBTTL THE END
2) END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 775
PCO Log Report
[FILCOM]
File 1) LINK:LNK999.MAC[30,4507] created: 0832 15-Jun-1979
File 2) LINK:LNK999.MAC[10,645063] created: 1209 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 15-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNK999
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKCOR,LNKLOG
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNK999
2) EXTERN LNKCOR,LNKLOG
**************
1)1 DECEVR==1206 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)3 SUBTTL EMERGENCY GETSEG
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL EMERGENCY GETSEG
**************
1)4 JRST CORUUO] ;
1) PUSHJ P,DY.GBC## ;RETURN ALL SPACE WE CAN
****
2)4 JRST CORUUO]
2) PUSHJ P,DY.GBC## ;RETURN ALL SPACE WE CAN
**************
1)4 ;**;[1206] Replace @ REDCOR+27L JNG 15-Jun-79
1) JRST E$$MEF## ;[1206] CAN NOT FAIL
****
2)4 JRST E$$MEF## ;[1206] CAN NOT FAIL
**************
1)4 END LNK999
****
2)5 SUBTTL THE END
2) END LNK999
Digital Equipment Corporation 28-AUG-79 Page 776
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 777
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1310 10-Jul-1979
File 2) LINK:LNKCOR.MAC[10,645063] created: 1212 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 9-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKCOR
1) EXTERN LNKLOG
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKCOR
2) EXTERN LNKLOG
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1214 ;DEC EDIT VERSION
1) SALL
1) SEGMENT
1) ;CALLING SEQUENCE
1) ;P1 = AREA NUMBER
1) ;P2 = SIZE REQUIRED
1) ;PUSHJ P,LNKCOR
1) ;ERROR RETURN
1) ;GOOD RETURN
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2)2 SUBTTL REVISION HISTORY
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL SIMPLE TESTS FIRST
**************
1)10 ADDM T1,TAB.AB(T2) ;
1) ADDM T1,TAB.PT(T2)
****
2)10 ADDM T1,TAB.AB(T2)
2) ADDM T1,TAB.PT(T2)
**************
1)14 ;**;[771] Insert @ MOVUP1+5L MCHC 23-Mar-78
Digital Equipment Corporation 28-AUG-79 Page 778
PCO Log Report
1) PUSH P,T2 ;[771] SAVE WHO WE ARE
****
2)14 PUSH P,T2 ;[771] SAVE WHO WE ARE
**************
1)14 ;**;[1214] Replace @MOVUP+23L DZN 9-Jul-79
1) JUMPL T4,[PUSH P,[CHUNK1,,0] ;[1214] SIZE .GE. 400000
****
2)14 JUMPL T4,[PUSH P,[CHUNK1,,0] ;[1214] SIZE .GE. 400000
**************
1)14 ;**;[771] Insert @ POPLP+2L MCHC 23-Mar-78
1) POP P,T2 ;[771] RESTORE STACK
****
2)14 POP P,T2 ;[771] RESTORE STACK
**************
1)16 ;HERE TO ZERO ALL XXX.UB SPACE IN CORE IF NOT VIRTUAL
****
2)16 ; ..
2)17 ; ..
2) ;HERE TO ZERO ALL XXX.UB SPACE IN CORE IF NOT VIRTUAL
**************
1)19 XALL
1) AREAS
1) SALL
1)20 ;SUBROUTINE TO GET SPACE FROM LINKED LIST OF SPACE
****
2)20 XALL
2) AREAS
2) SALL
2)21 ;SUBROUTINE TO GET SPACE FROM LINKED LIST OF SPACE
**************
1)23 SUB T2,TAB.AB(T1) ;
1) CAIL T2,.IPS ;MUST HAVE AT LEAST THIS
****
2)24 SUB T2,TAB.AB(T1)
2) CAIL T2,.IPS ;MUST HAVE AT LEAST THIS
**************
1)25 XALL
1) AREAS
1) SALL
1)26 ;SUBROUTINE TO RETURN SPACE TO LINKED LIST
****
2)26 XALL
2) AREAS
2) SALL
2)27 ;SUBROUTINE TO RETURN SPACE TO LINKED LIST
**************
1)27 HRRM T1,(T4) ;
1) POPJ P,
****
Digital Equipment Corporation 28-AUG-79 Page 779
PCO Log Report
2)28 HRRM T1,(T4)
2) POPJ P,
**************
1)28 XALL
1) AREAS
1) SALL
1)29 ;SUBROUTINE TO GARBAGE COLLECT SPECIFIC AREA
****
2)29 XALL
2) AREAS
2) SALL
2)30 ;SUBROUTINE TO GARBAGE COLLECT SPECIFIC AREA
**************
1)32 XALL
1) AREAS
1) SALL
1)33 ;SUBROUTINE TO TEST IF ADDRESS IS FREE
****
2)33 XALL
2) AREAS
2) SALL
2)34 ;SUBROUTINE TO TEST IF ADDRESS IS FREE
**************
1)34 XALL
1) AREAS
1) SALL
1)35 ;SUBROUTINE TO REMOVE DESIRED CHUNK
****
2)35 XALL
2) AREAS
2) SALL
2)36 ;SUBROUTINE TO REMOVE DESIRED CHUNK
**************
1)41 ;**;[1113] Insert before LCOVF DZN 25-Aug-78
1) LCOVF: SKIPN LC.LB ;[1113] LAST CHANCE--IS THERE AN
LC AREA?
****
2)42 LCOVF: SKIPN LC.LB ;[1113] LAST CHANCE--IS THERE AN
LC AREA?
**************
1)42 ;**;[1130] Replace @CHKMAX+18L DZN 26-Jan-79
1) CAIE P1,LC.IX ;[1130] COUNT THIS REQUEST TOO
****
2)43 CAIE P1,LC.IX ;[1130] COUNT THIS REQUEST TOO
**************
1)44 ;;**;[1174] Replace @%AREA'.OUT+16L DZN 4-Jun-79
1) E$$O'%AREA::PUSH P,[CHAN] ;[1174] STACK ER
ROR CHAN
****
Digital Equipment Corporation 28-AUG-79 Page 780
PCO Log Report
2)45 E$$O'%AREA::PUSH P,[CHAN] ;[1174] STACK ER
ROR CHAN
**************
1)45 XALL
1) ;LOW SEGMENT
****
2)45 XALL
2)46 ;LOW SEGMENT
**************
1)48 SALL
1)49 SUBTTL INPUT CORE WINDOW
****
2)49 SALL
2)50 SUBTTL INPUT CORE WINDOW
**************
1)49 ;**;[1174] Replace @%AREA'.IN+7L DZN 4-Jun-79
1) %OK:! HLRZ T2,T1 ;[1174] GET FIRST ADDRESS
****
2)50 %OK:! HLRZ T2,T1 ;[1174] GET FIRST ADDRESS
**************
1)49 ;;**;[1174] Replace @%AREA'.IN+24L DZN 4-Jun-79
1) E$$I'%AREA::PUSH P,[CHAN] ;[1174] SAVE ERR
OR CHAN
****
2)50 E$$I'%AREA::PUSH P,[CHAN] ;[1174] SAVE ERR
OR CHAN
**************
1)50 XALL
1) ;LOW SEGMENT
****
2)50 XALL
2)51 ;LOW SEGMENT
**************
1)53 SALL
1)54 ;TABLES OF XX.IN AND XX.OUT, INDEXED BY XX.IX
****
2)54 SALL
2)55 ;TABLES OF XX.IN AND XX.OUT, INDEXED BY XX.IX
**************
1)60 MOVEM T2,I.MOD(T1) ;
1) MOVEI T2,LN.RIB-1 ;SIZE OF EXTENDED ENTER BLOCK
****
2)61 MOVEM T2,I.MOD(T1)
2) MOVEI T2,LN.RIB-1 ;SIZE OF EXTENDED ENTER BLOCK
**************
1)61 ;**;[1104] Change @ LH.SET+1P8L JNG 20-Jun-78
1) CAIGE T2,.IPS ;[1104] IN CASE 1/2 IS .LT. 1 PA
GE,
****
Digital Equipment Corporation 28-AUG-79 Page 781
PCO Log Report
2)62 CAIGE T2,.IPS ;[1104] IN CASE 1/2 IS .LT. 1 PA
GE,
**************
1)67 XALL
1) SYMTAB: SFIXUPS
1) SALL
1) ;ENTER WITH :-
****
2)68 XALL
2) SYMTAB: SFIXUPS
2) SALL
2) ;ENTER WITH :-
**************
1)70 CORLIT:
1) END
****
2)72 SUBTTL THE END
2) CORLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 782
PCO Log Report
[FILCOM]
File 1) LINK:LNKCST.MAC[30,4507] created: 1641 10-Jun-1979
File 2) LINK:LNKCST.MAC[10,645063] created: 1222 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKCST
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKCST
2) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITIONS
**************
1)1 SEGMENT
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
**************
1)4 CSTLIT:
1) END
****
2)5 SUBTTL THE END
2) CSTLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 783
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 2334 08-Jul-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 1330 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 5-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKERR
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKLOG,TTYCHK
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKERR
2) EXTERN LNKLOG,TTYCHK
**************
1)1 DECEVR==1213 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)4 SUBTTL FIND MESSAGE
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL FIND MESSAGE
**************
1)10 CODE LVL SEV MESSAGE
1) ABT 31 31 Load aborted due to %LNKTMA errors, max. /ARSIZE
: needed was [decimal]
****
2)10 CODE LVL SEV FIRST LINE MESSAGE
2) ABT 31 31 Load aborted due to %LNKTMA errors, max. /ARSIZE
: needed was [decimal]
**************
1)11 ;**;[1212] Replace below in TOPS-20 EOV long message DZN
4-Jul-79
1) IFN TOPS20,<
****
2)11 IFN TOPS20,<
**************
1)14 ERRLIT:
Digital Equipment Corporation 28-AUG-79 Page 784
PCO Log Report
1) END LNKERR
****
2)14 SUBTTL THE END
2) ERRLIT: END LNKERR
**************
Digital Equipment Corporation 28-AUG-79 Page 785
PCO Log Report
[FILCOM]
File 1) LINK:LNKEXO.MAC[30,4507] created: 1643 10-Jun-1979
File 2) LINK:LNKEXO.MAC[10,645063] created: 1352 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) .JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
1) .JBHDA==10 ;LENGTH OF VESTIGIAL JOBDATA AREA
1) SEARCH MACTEN,UUOSYM,LNKPAR
1) CUSTVR==0 ;CUSTMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH MACTEN,UUOSYM,LNKPAR
2) SALL
2) CUSTVR==0 ;CUSTMER VERSION
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SEGMENT
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) .JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
2) .JBHDA==10 ;LENGTH OF VESTIGIAL JOBDATA AREA
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
**************
1)3 ;**;[1174] Replace @+4L DZN 7-Jun-79
1) E$$LNS::.OERR. [ASCIZ /%LNKLNS Low segment data base not same s
ize/] ;[1174]
****
2)3 E$$LNS::.OERR. [ASCIZ /%LNKLNS Low segment data base not same s
ize/] ;[1174]
**************
1)3 END
****
2)4 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 786
PCO Log Report
[FILCOM]
File 1) LINK:LNKF40.MAC[30,4507] created: 1646 10-Jun-1979
File 2) LINK:LNKF40.MAC[10,645063] created: 1354 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
1) ;***COPYRIGHT 1973, 1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS
.***
1) ENTRY LNKF40
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
2) SALL
2) ENTRY LNKF40
**************
1)1 SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SEGMENT
1) SALL
1) LNKF40: ;ENTRY POINT TO FORCE LOADING
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) LNKF40: ;ENTRY POINT TO FORCE LOADING
**************
1)3 SUBTTL INITIALIZE TABLES
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL INITIALIZE TABLES
**************
1)4 JRST ABSI;
1) CAIN W1,310000; MADE LABEL
****
2)4 JRST ABSI
2) CAIN W1,310000; MADE LABEL
**************
1)4 ;**;[1174] Replace @HEADER+16L DZN 29-May-79
1) E$$I4S::.ERR. (MS,.EC,V%L,L%F,S%F,I4S,<Illegal F40 sub-block >
) ;[1174]
1) .ETC. (OCT,.EC!.EP,,,,W1) ;
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
****
2)4 E$$I4S::.ERR. (MS,.EC,V%L,L%F,S%F,I4S,<Illegal F40 sub-block >
) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 787
PCO Log Report
2) .ETC. (OCT,.EC!.EP,,,,W1)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
**************
1)5 MOVX W1,PT.SGN!PT.SYM!PS.REL ;
1) MOVE W3,RC.HL(R) ;CURRENT LOCATION
****
2)5 MOVX W1,PT.SGN!PT.SYM!PS.REL
2) MOVE W3,RC.HL(R) ;CURRENT LOCATION
**************
1)9 BITWX: POPJ P,;
1) ;HERE TO GET ANOTHER BIT TABLE
****
2)9 BITWX: POPJ P,
2) ;HERE TO GET ANOTHER BIT TABLE
**************
1)10 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['CONST.']
****
2)10 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['CONST.']
**************
1)10 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['%TEMP.']
****
2)10 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['%TEMP.']
**************
1)12 ;**;[1174] Replace @COMTOP+4L DZN 29-May-79
1) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
****
2)12 PUSHJ P,E$$B4R ;[1174] REPORT ERROR
**************
1)13 ;**;[1174] Replace @GSWDPR+1L DZN 29-May-79
1) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
1) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
1) ;**;[1174] Replace @GSWDPR+3L DZN 29-May-79
1) JRST [PUSHJ P,E$$B4R ;[1174] REPORT ERROR
****
2)13 PUSHJ P,E$$B4R ;[1174] REPORT ERROR
2) TRNE W1,1 ;DEFENSIVE CHECK FOR PAIRS
2) JRST [PUSHJ P,E$$B4R ;[1174] REPORT ERROR
**************
1)14 ;**;[1174] Replace @FSWD+2L DZN 29-May-79
1) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
****
2)14 PUSHJ P,E$$B4R ;[1174] REPORT ERROR
**************
1)14 ;**;[1174] Replace @DYSWDP+1L DZN 29-May-79
1) PUSHJ P,E$$B4R ;[1174] REPORT ERROR
Digital Equipment Corporation 28-AUG-79 Page 788
PCO Log Report
****
2)14 PUSHJ P,E$$B4R ;[1174] REPORT ERROR
**************
1)15 JRST ENDTP;
1) PASS2C: PUSHJ P,PASS2A
****
2)15 JRST ENDTP
2) PASS2C: PUSHJ P,PASS2A
**************
1)16 ;**;[1174] Replace @STOP DZN 29-May-79
1) E$$I4T::.ERR. (MS,.EC,V%L,L%F,S%F,I4T,<Illegal F40 table entry
>) ;[1174]
1) .ETC. (OCT,.EC!.EP,,,,W1) ;
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
****
2)16 E$$I4T::.ERR. (MS,.EC,V%L,L%F,S%F,I4T,<Illegal F40 table entry
>) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,W1)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
**************
1)19 MOVX W1,PT.SGN!PT.SYM ;
1) PUSHJ P,@T.2TAB##(P1) ;CALL RIGHT ROUTINE
****
2)19 MOVX W1,PT.SGN!PT.SYM
2) PUSHJ P,@T.2TAB##(P1) ;CALL RIGHT ROUTINE
**************
1)20 ;**;[1174] Replace @LOOP+16L DZN 29-May-79
1) E$$I4D::.ERR. (MS,.EC,V%L,L%F,S%F,I4D,<Illegal F40 data code >
) ;[1174]
1) .ETC. (OCT,.EC!.EP,,,,T1) ;
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
****
2)20 E$$I4D::.ERR. (MS,.EC,V%L,L%F,S%F,I4D,<Illegal F40 data code >
) ;[1174]
2) .ETC. (OCT,.EC!.EP,,,,T1)
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
**************
1)21 ;**;[1174] Replace @INNER+3L DZN 29-May-79
1) JUMPE T1,E$$FCD; [1174]
****
2)21 JUMPE T1,E$$FCD; [1174]
**************
1)23 ;**;[1174] Replace @DATAOV DZN 29-May-79
1) E$$DSO::.ERR. (MS,.EC,V%L,L%F,S%F,DSO,<Data statement overflow
>) ;[1174]
****
2)23 E$$DSO::.ERR. (MS,.EC,V%L,L%F,S%F,DSO,<Data statement overflow
>) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 789
PCO Log Report
1)25 ;**;[1174] Replace @DREAD+8L DZN 29-May-79
1) JRST E$$DSO ;[1174] AND GIVE ERROR ELSE PDLO
V WILL OCCUR
****
2)25 JRST E$$DSO ;[1174] AND GIVE ERROR ELSE PDLO
V WILL OCCUR
**************
1)25 POPJ P,;
1) SOSN RCNT
****
2)25 POPJ P,
2) SOSN RCNT
**************
1)25 POPJ P,;
1) DODONE: POP P,-1(P); BACK UP ADDRESS
****
2)25 POPJ P,
2) DODONE: POP P,-1(P); BACK UP ADDRESS
**************
1)30 F40LIT:
1) END
****
2)31 SUBTTL THE END
2) F40LIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 790
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1856 14-Jun-1979
File 2) LINK:LNKFIO.MAC[10,645063] created: 1418 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKFIO
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN .TYOCH,LNKCOR,LNKLOG
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKFIO
2) EXTERN .TYOCH,LNKCOR,LNKLOG
**************
1)1 DECEVR==1202 ;DEC EDIT VERSION
1) SEGMENT
1) SALL
1) LNKFIO:
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) LNKFIO:
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
1)3 ;**;[1174] Replace @DVCHN.+3L DZN 29-May-79
1) E$$INS::.ERR. (MS,0,V%L,L%F,S%F,INS,<I/O data block not set up
>) ;[1174]
****
2)3 E$$INS::.ERR. (MS,0,V%L,L%F,S%F,INS,<I/O data block not set up
>) ;[1174]
**************
1)3 ;**;[1174] Replace @DVCHK.+4L DZN 29-May-79
1) JUMPE T2,E01NED ;[1174] NO SUCH DEVICE
****
2)3 JUMPE T2,E01NED ;[1174] NO SUCH DEVICE
**************
1)3 ;**;[1174] Replace @DVCHK.+11L DZN 29-May-79
1) E$$IDM::PUSH P,IO.CHN ;[1174] SAVE CHAN
****
Digital Equipment Corporation 28-AUG-79 Page 791
PCO Log Report
2)3 E$$IDM::PUSH P,IO.CHN ;[1174] SAVE CHAN
**************
1)4 IFN TOPS20,<MOVE T2,[2,,203] ;FAKE IT FOR TENEX>
1) JUMPE T2,DVRET1 ;DUMP MODE HAS NO BUFFERS
****
2)4 IFN TOPS20,<MOVE T2,[2,,203] ;FAKE IT FOR TOPS20>
2) JUMPE T2,DVRET1 ;DUMP MODE HAS NO BUFFERS
**************
1)7 ;**;[1122] Delete @DVINP.+9L DZN 6-Oct-78
1) MOVE T2,F.DIR(P1) ;DIRECTORY
****
2)7 MOVE T2,F.DIR(P1) ;DIRECTORY
**************
1)9 ;**;[1122] Delete @DVOUT.+25L DZN 6-Oct-78
1) SKIPN T1,F.PROT(P1) ;PROTECTION CODE
****
2)9 SKIPN T1,F.PROT(P1) ;PROTECTION CODE
**************
1)16 ;**;[1174] Replace @DVUPD.+7L DZN 29-May-79
1) JRST E01OFD ;[1174] SHOULD NEVER HAPPEN FOR
DSK
****
2)16 JRST E01OFD ;[1174] SHOULD NEVER HAPPEN FOR
DSK
**************
1)19 TLO T3,(LOOKUP) ;
1) IOR T3,I.CHN(T1) ;PLUS CHAN#
****
2)19 TLO T3,(LOOKUP)
2) IOR T3,I.CHN(T1) ;PLUS CHAN#
**************
1)20 MOVE T2,IO.CHR ;
1) TLC T2,-1-<(DV.TTA)> ;[604] NUL: ISN'T A DISK
****
2)20 MOVE T2,IO.CHR
2) TLC T2,-1-<(DV.TTA)> ;[604] NUL: ISN'T A DISK
**************
1)21 SUBTTL TENEX JSYS ROUTINES
1) IFN TOPS20,<
****
2)21 SUBTTL TOPS-20 JSYS ROUTINES
2) IFN TOPS20,<
**************
1)23 ;**;[1202] Replace @E$$NSD DZN 14-Jun-79
1) E01NED::PUSH P,IO.CHN ;[1174] PUT CHANNEL ON STACK FOR
LNKLOG
****
2)23 E01NED::PUSH P,IO.CHN ;[1174] PUT CHANNEL ON STACK FOR
LNKLOG
Digital Equipment Corporation 28-AUG-79 Page 792
PCO Log Report
**************
1)23 ;**;[1123] Replace @ENTERR+1L DZN 10-Oct-78
1) HRLI T1,(%ENT) ;[1123] SIGNAL ENTER
****
2)23 HRLI T1,(%ENT) ;[1123] SIGNAL ENTER
**************
1)23 FIOLIT:
1) END
****
2)24 SUBTTL THE END
2) FIOLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 793
PCO Log Report
[FILCOM]
File 1) LINK:LNKHSH.MAC[30,4507] created: 1648 10-Jun-1979
File 2) LINK:LNKHSH.MAC[10,645063] created: 1416 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY TRYSYM
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY TRYSYM
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL SYMBOL TABLE HASH SEARCH
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL SYMBOL TABLE HASH SEARCH
**************
1)4 ;**;[1174] Replace @TRYSYM+2L DZN 3-Jun-79
1) JUMPE W2,E$$ISN ;[1174] 0 IS ILLEGAL SYMBOL
****
2)4 JUMPE W2,E$$ISN ;[1174] 0 IS ILLEGAL SYMBOL
**************
1)5 ;**;[1174] Replace @COMPAR+16L DZN 3-Jun-79
1) E$$ESN::.ERR. (MS,,V%L,L%F,S%F,ESN,<Extended symbol not expect
ed>) ;[1174]
****
2)5 E$$ESN::.ERR. (MS,,V%L,L%F,S%F,ESN,<Extended symbol not expect
ed>) ;[1174]
**************
1)5 TXNN T4,S.LNM ;
1) JRST MATCH ;BOTH FINISHED
1) JRST NOMACH] ;NOT BOTH DONE
1) TXNE T4,S.SYM ;
1) TXNN T4,S.LNM ;
Digital Equipment Corporation 28-AUG-79 Page 794
PCO Log Report
1) JRST NOMACH ;2ND NOT SAME LENGTH
****
2)5 TXNN T4,S.LNM
2) JRST MATCH ;BOTH FINISHED
2) JRST NOMACH] ;NOT BOTH DONE
2) TXNE T4,S.SYM
2) TXNN T4,S.LNM
2) JRST NOMACH ;2ND NOT SAME LENGTH
**************
1)6 ;**;[1174] Replace @HASH+4L DZN 3-Jun-79
1) E02ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
****
2)6 E02ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
**************
1)7 ;**;[1174] Replace @REHASH+21L DZN 3-Jun-79
1) E$$RGS::.ERR. (MS,.EC,V%L,L%I,S%I,RGS,<Rehashing global symbol
table from >) ;[1174]
****
2)7 E$$RGS::.ERR. (MS,.EC,V%L,L%I,S%I,RGS,<Rehashing global symbol
table from >) ;[1174]
**************
1)8 TXNE T2,S.SYM ;
1) TXNN T2,S.LNM ;SO IGNORE COMMON, ETC
****
2)8 TXNE T2,S.SYM
2) TXNN T2,S.LNM ;SO IGNORE COMMON, ETC
**************
1)8 ;**;[1174] Replace @REHSH1+13L DZN 3-Jun-79
1) E03ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
****
2)8 E03ESN::.ERR. (MS,,V%L,L%F,S%F,ESN) ;[1174]
**************
1)9 ;**;[1174] Replace @ILLSYM DZN 3-Jun-79
1) E$$ISN::.ERR. (MS,.EC,V%L,L%F,S%F,ISN,<Illegal symbol name >)
;[1174]
****
2)9 E$$ISN::.ERR. (MS,.EC,V%L,L%F,S%F,ISN,<Illegal symbol name >)
;[1174]
**************
1)9 END
****
2)10 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 795
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1743 10-Jun-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1349 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) .JBHSA==:0 ;STARTING ADDRESS STORED IN HIGH
SEGMENT
1) .JB41==:41
1) ENTRY LINK
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKSCN,LNKCOR,LNKLOG,.TYOCH
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LINK
2) EXTERN LNKSCN,LNKCOR,LNKLOG,.TYOCH
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)1 ;ACCUMULATORS
****
2)1 .JBHSA==:0 ;STARTING ADDRESS STORED IN HIGH
SEGMENT
2) .JB41==:41
2) ;ACCUMULATORS
**************
1)3 SUBTTL INITIALIZE
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL INITIALIZE
**************
1)3 ;**;[1174] Replace @F1+4L DZN 5-Jun-79
1) JRST E$$IMI ;[1174] YOU LOSE
****
2)4 JRST E$$IMI ;[1174] YOU LOSE
**************
Digital Equipment Corporation 28-AUG-79 Page 796
PCO Log Report
1)4 ;**;[1126] Revamp @ F1+1P8L JNG 1-Nov-78
1) ;NOW SET UP THE GETSEG BLOCKS FROM THE ARGUMENTS THE USER TYPED
TO THE
****
2)5 ;NOW SET UP THE GETSEG BLOCKS FROM THE ARGUMENTS THE USER TYPED
TO THE
**************
1)4 ;**;[1126] Replace @ SEGLUP JNG 1-Nov-78
1) SFDLUP: MOVE T3,T2 ;[1126] SET UP FOR NEXT SFD
****
2)5 SFDLUP: MOVE T3,T2 ;[1126] SET UP FOR NEXT SFD
**************
1)5 ;**;[1126] Insert @ GETUFD+14L JNG 1-Nov-78
1) HRROI T1,.GTRFN ;[1126] THE FILE NAME WE CAME FR
OM
****
2)6 HRROI T1,.GTRFN ;[1126] THE FILE NAME WE CAME FR
OM
**************
1)6 GETTAB T1, ;
1) SETZ T1, ;NOT 5.06 FOR SURE
****
2)7 GETTAB T1,
2) SETZ T1, ;NOT 5.06 FOR SURE
**************
1)7 ;**;[1174] Replace @PJLOOP+16L DZN 5-Jun-79
1) JRST E$$IMI ;[1174] SHOULD NEVER HAPPEN
****
2)8 JRST E$$IMI ;[1174] SHOULD NEVER HAPPEN
**************
1)7 ;**;[1172] Change @ PJLOOP+25L JNG 5-Jun-79
1) MOVX T1,.INFIN ;[1172] INITIALIZE LOWEST LOCATI
ON
****
2)8 MOVX T1,.INFIN ;[1172] INITIALIZE LOWEST LOCATI
ON
**************
1)8 ;**;[1132] Change @ CORINI+25L JNG 30-Jan-79
1) MOVEI T2,1 ;[1132] SET TO LC AREA
****
2)9 MOVEI T2,1 ;[1132] SET TO LC AREA
**************
1)9 ;**;[1132] Change @ CORINI+1P13L JNG 30-Jan-79
1) MOVEM T2,RC.HL(P1) ;[1132] ALSO HIGHEST LOADED SO F
AR
****
2)10 MOVEM T2,RC.HL(P1) ;[1132] ALSO HIGHEST LOADED SO F
AR
**************
Digital Equipment Corporation 28-AUG-79 Page 797
PCO Log Report
1)10 ;**;[1174] Replace @**somewhere** DZN 5-Jun-79
1) JRST E$$IMI ;[1174] YOU LOSE
****
2)11 JRST E$$IMI ;[1174] YOU LOSE
**************
1)11 ;**;[1172] Delete @ CORINI+3P29L JNG 5-Jun-79
1)12 ;HERE TO INIT LOG FILE IF POSSIBLE
****
2)13 ;HERE TO INIT LOG FILE IF POSSIBLE
**************
1)12 ;**;[1174] Revamp @LOGINI+11L DZN 5-Jun-79
1) MOVE T1,[LOGIT,,TTYIT] ;[1174] IN CASE /LOG LATER
****
2)13 MOVE T1,[LOGIT,,TTYIT] ;[1174] IN CASE /LOG LATER
**************
1)12 ;**;[1150] Delete @LOGINI+26L DZN 14-Mar-79
1) MOVEI T2,LN.IO ;SPACE WE NEED
****
2)13 MOVEI T2,LN.IO ;SPACE WE NEED
**************
1)12 ;**;[1150] Insert before LOGINI+30L DZN 14-Mar-79
1) MOVEI T2,RC ;[1150] SET UP LOG FILE CHANNEL
****
2)13 MOVEI T2,RC ;[1150] SET UP LOG FILE CHANNEL
**************
1)12 ;**;[1150] Replace @LOGINI+38L DZN 14-Mar-79
1) MOVSI T2,'LOG' ;EXTENSION
****
2)13 MOVSI T2,'LOG' ;EXTENSION
**************
1)14 ;**;[1120] Insert after NOLOG+14L DZN 22-Sep-78
1) MOVEI T1,CP.MSK ;[1120] START PROG RUNNABLE ON A
LL CPU TYPES
****
2)15 MOVEI T1,CP.MSK ;[1120] START PROG RUNNABLE ON A
LL CPU TYPES
**************
1)16 <SIXBIT /SFD/> ;
1) EXP -1 ;
1) > ;
1) REPEAT F.BFR+.ZZZ-.,< ;FILL IN BLANK SFDS
1) EXP 0 ;
1) > ;
1) REPEAT F.LEN+.ZZZ-.,< ;NOW FILL IN SWITCHES (-1)
1) EXP -1 ;
1) > ;
1) >
****
2)17 <SIXBIT /SFD/>
Digital Equipment Corporation 28-AUG-79 Page 798
PCO Log Report
2) EXP -1
2) >
2) REPEAT F.BFR+.ZZZ-.,< ;FILL IN BLANK SFDS
2) EXP 0
2) >
2) REPEAT F.LEN+.ZZZ-.,< ;NOW FILL IN SWITCHES (-1)
2) EXP -1
2) >
2) >
**************
1)18 ;**;[1174] Replace @.ERLIM DZN 30-May-79
1) E$$IMI::.OERR. [ASCIZ \?LNKIMI Insufficient memory to initializ
e LINK
****
2)19 E$$IMI::.OERR. [ASCIZ \?LNKIMI Insufficient memory to initializ
e LINK
**************
1)18 ;**;[1174] Delete @OPNERR DZN 30-May-79
1) CPOPJ: POPJ P, ;SOMEWHERE TO PUT IT
****
2)19 CPOPJ: POPJ P, ;SOMEWHERE TO PUT IT
**************
1)19 PT.SGN!PT.SYM!PS.GLB ;
1) >
1) IFNB <F>,<
1) PT.SGN!PT.SYM!PS.GLB!'F ;
1) >
****
2)20 PT.SGN!PT.SYM!PS.GLB
2) >
2) IFNB <F>,<
2) PT.SGN!PT.SYM!PS.GLB!'F
2) >
**************
1)21 PT.SGN!PT.EXT!PT.TTL!PT.FAK ;
1) 'JOBDAT'
1) ENDSYM-LSTBL+1
1) S.TTL ;
1) '-INITI'
1) 'AL-SYM'
1) S.TTL ;
1) 'BOLS '
1) 0
1) S.TTL!S.LST!S.SEG ;
1) .JBDA,,.JBDA
****
2)22 PT.SGN!PT.EXT!PT.TTL!PT.FAK
2) 'JOBDAT'
2) ENDSYM-LSTBL+1
Digital Equipment Corporation 28-AUG-79 Page 799
PCO Log Report
2) S.TTL
2) '-INITI'
2) 'AL-SYM'
2) S.TTL
2) 'BOLS '
2) 0
2) S.TTL!S.LST!S.SEG
2) .JBDA,,.JBDA
**************
1)23 ;**;[1151] Insert @ %%%BDT+16L JNG 29-Mar-79
1) .JB ,EDV,112 ;[1151] VALUE HERE FOR ASSEMBLY
WITH 6.03A
****
2)24 .JB ,EDV,112 ;[1151] VALUE HERE FOR ASSEMBLY
WITH 6.03A
**************
1)28 ;**;[1174] Replace @UUOHANDLER+10L DZN 7-Jun-79
1) E$$IUU::.OERR. [ASCIZ /?LNKIUU Illegal user UUO at PC /] ;[1174
]
****
2)29 E$$IUU::.OERR. [ASCIZ /?LNKIUU Illegal user UUO at PC /] ;[1174
]
**************
1)30 ;**;[1124] Replace @TTYDMP DZN 11-Oct-78
1) TTYDMP: PUSHJ P,TTYOUT ;[1124] OUTPUT LINE
****
2)31 TTYDMP: PUSHJ P,TTYOUT ;[1124] OUTPUT LINE
**************
1)30 ;**;[1124] Replace @TTYIT+5L DZN 11-Oct-78
1) SKIPA ;[1124] NO--JUST RETURN
****
2)31 SKIPA ;[1124] NO--JUST RETURN
**************
1)30 ;**;[1124] Replace @TTYOUT+9L DZN 11-Oct-78
1) POP P,T1 ;[1124] RESTORE PENDING CHAR
****
2)31 POP P,T1 ;[1124] RESTORE PENDING CHAR
**************
1)31 ;**;[1174] Replace @LOGDMP+6L DZN 7-Jun-79
1) E01OEL::.OERR. .EROEL ;[1174] LNKOEL
****
2)32 E01OEL::.OERR. .EROEL ;[1174] LNKOEL
**************
1)32 SUBTTL HIGH SEGMENT PART OF RESTART CODE
1) ;HERE TO RESTART SINGLE SEGMENT VERSION OR WHEN RESTARTING
****
2)33 SUBTTL HIGH SEGMENT PART OF RESTART CODE
2) ;HERE TO RESTART SINGLE SEGMENT VERSION OR WHEN RESTARTING
**************
Digital Equipment Corporation 28-AUG-79 Page 800
PCO Log Report
1)32 INILIT:
1) END LINK
****
2)34 SUBTTL THE END
2) INILIT: END LINK
**************
Digital Equipment Corporation 28-AUG-79 Page 801
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 0123 23-Jul-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1110 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 23-Jul-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 25-Jul-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) ENTRY LNKLOD
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKSCN,LNKCOR,LNKWLD,LNKLOG,LNKF40,LNKMAP,LNKXIT
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKLOD
2) EXTERN LNKSCN,LNKCOR,LNKWLD,LNKLOG,LNKF40,LNKMAP,LNKXIT
**************
1)1 DECEVR==1215 ;DEC EDIT VERSION
1) VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITIONS
**************
1)1 SALL
1) SEGMENT
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)5 SUBTTL LOAD CONTROL
****
2)6 ;1217 Clean up the listings for release.
2)7 SUBTTL LOAD CONTROL
**************
1)5 ;**;[1114] Delete @LODTST+2 DZN 1-Sep-78
1) TRNN FL,R.LIB!R.INC ;IN LIBRARY SEARCH MODE OR /INC
MODE?
****
2)7 TRNN FL,R.LIB!R.INC ;IN LIBRARY SEARCH MODE OR /INC
MODE?
**************
Digital Equipment Corporation 28-AUG-79 Page 802
PCO Log Report
1)6 CAIGE T1,1000 ;
1) JRST T.ERR1 ;NO
****
2)8 CAIGE T1,1000
2) JRST T.ERR1 ;NO
**************
1)8
1)9 SUBTTL PAGING CORE CONTROL
****
2)11 SUBTTL PAGING CORE CONTROL
**************
1)10 ;**;[1102] Insert before PG.SD+13L DZN 18-Jun-78
1) TLNE T2,-1 ;[1102] BUT IS WINDOW NOW PAST 5
12P?
****
2)12 TLNE T2,-1 ;[1102] BUT IS WINDOW NOW PAST 5
12P?
**************
1)12 ;**;[1116] Remove edit 716 @ PG.SX+12L JNG 7-Sep-78
1) CAML T1,HB.S0(R) ;[1116] HOWEVER IF EVEN BIGGER H
AS BEEN SEEN?
****
2)15 CAML T1,HB.S0(R) ;[1116] HOWEVER IF EVEN BIGGER H
AS BEEN SEEN?
**************
1)21 ;**;[1174] Replace @PFF.AR+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)24 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)21 ;**;[1174] Replace @PFF.AL+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)24 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)21 ;**;[1174] Replace @PFF.AF+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)24 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)22 PFF.CL==SY.CHL ;
1) PFF.CF==SY.CHF ;
1) > ;END IFN FTOVERLAY
Digital Equipment Corporation 28-AUG-79 Page 803
PCO Log Report
1) ;**;[1174] Replace @ANCERR DZN 30-May-79
1) E$$ANM::.ERR. (MS,,V%L,L%F,S%F,ANM,<Address not in memory>)
****
2)25 PFF.CL==SY.CHL
2) PFF.CF==SY.CHF
2) > ;END IFN FTOVERLAY
2) E$$ANM::.ERR. (MS,,V%L,L%F,S%F,ANM,<Address not in memory>)
**************
1)23 ;**;[1174] Replace @PFF.RR+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)26 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)23 ;**;[1174] Replace @PFF.RL+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)26 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)23 ;**;[1174] Replace @PFF.RF+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)26 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)24 ;**;[1143] Insert @ LS.ADD JNG 16-Feb-79
1) LS.ADD::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
****
2)27 LS.ADD::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
**************
1)25 ;**;[1143] Insert @ LS.ADE JNG 16-Feb-79
1) LS.ADE::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
****
2)28 LS.ADE::SKIPN @GS.LB ;[1143] USER TYPE /NOINITIAL?
**************
1)25 ;**;[1143] Insert @ LS.ADE+14L JNG 16-Feb-79
1) LS.CHK: MOVE T1,LSYM ;[1143] GET SIZE OF LS AREA SO F
AR
****
2)28 LS.CHK: MOVE T1,LSYM ;[1143] GET SIZE OF LS AREA SO F
AR
**************
1)26 ;**;[1174] Replace @INSRT+1L DZN 30-May-79
1) JRST E$$SIF ;[1174] NO, ERROR, SHOULD NEVER
HAPPEN
Digital Equipment Corporation 28-AUG-79 Page 804
PCO Log Report
****
2)29 JRST E$$SIF ;[1174] NO, ERROR, SHOULD NEVER
HAPPEN
**************
1)26 ;**;[1174] Replace @INSRTF DZN 30-May-79
1) E$$SIF::.ERR. (MS,0,V%L,L%F,S%F,SIF,<Symbol insert failure, no
n-zero hole found>) ;[1174]
****
2)29 E$$SIF::.ERR. (MS,0,V%L,L%F,S%F,SIF,<Symbol insert failure, no
n-zero hole found>) ;[1174]
**************
1)27 ;**;[1174] Replace @SY.RF+1L DZN 30-May-79
1) PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
****
2)30 PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
**************
1)27 ;**;[1174] Replace @DUZERR DZN 30-May-79
1) E$$DUZ::.ERR. (MS,,V%L,L%F,S%F,DUZ,<Decreasing undefined symbo
l count below zero>) ;[1174]
****
2)30 E$$DUZ::.ERR. (MS,,V%L,L%F,S%F,DUZ,<Decreasing undefined symbo
l count below zero>) ;[1174]
**************
1)28 TXNE W1,FP.SYM ;
1) JRST SY.RF3 ;DO THIS ONE
1) ;**;[1174] Replace @ISPERR DZN 30-May-79
1) E$$ISP::.ERR. (MS,,V%L,L%F,S%F,ISP,<Incorrect symbol pointer>)
;[1174]
****
2)31 TXNE W1,FP.SYM
2) JRST SY.RF3 ;DO THIS ONE
2) E$$ISP::.ERR. (MS,,V%L,L%F,S%F,ISP,<Incorrect symbol pointer>)
;[1174]
**************
1)33 ;**;[1213] Insert @ SYSTF1+2L JNG 5-Jul-79
1) TXNE W1,FS.MDC ;[1213] ONLY WANT TO COMPARE VAL
UES?
****
2)36 TXNE W1,FS.MDC ;[1213] ONLY WANT TO COMPARE VAL
UES?
**************
1)33 ;**;[1174] Replace @SYSTF1+7L DZN 30-May-79
1) PUSHJ P,E$$ISP ;[1174] NO???
****
2)36 PUSHJ P,E$$ISP ;[1174] NO???
**************
1)33 ;**;[1174] Replace @SYSTF2+1L DZN 30-May-79
1) PUSHJ P,E$$ISP ;[1174] NO, NO PVS TRIPLET???
****
2)36 PUSHJ P,E$$ISP ;[1174] NO, NO PVS TRIPLET???
**************
Digital Equipment Corporation 28-AUG-79 Page 805
PCO Log Report
1)33 ;**;[1174] Replace @SYSTF3+2L DZN 30-May-79
1) PUSHJ P,E$$ISP ;[1174] MUSN'T BE PRIMARY
****
2)36 PUSHJ P,E$$ISP ;[1174] MUSN'T BE PRIMARY
**************
1)34 ;**;[1213] Insert @ SYSTF3+1P5L JNG 5-Jul-79
1) SYSTFC: MOVX T3,PS.UDR ;[1213] ASSUME RH FIXUP
****
2)37 SYSTFC: MOVX T3,PS.UDR ;[1213] ASSUME RH FIXUP
**************
1)34 ;**;[1174] Replace SYSTF3+1P21L DZN 30-May-79
1) PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
****
2)37 PUSHJ P,E$$DUZ ;[1174] BUT NOT TOO FAR
**************
1)34 ;**;[1213] Insert @ SYSTF3+1P24L JNG 5-Jul-79
1) TXNN W1,FS.MDC ;[1213] DON'T ZAP S.PVS IF WE DI
DN'T USE IT
****
2)37 TXNN W1,FS.MDC ;[1213] DON'T ZAP S.PVS IF WE DI
DN'T USE IT
**************
1)40 ;**;[1174] Replace @RP.CHF+2L DZN 30-May-79
1) PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
****
2)43 PUSHJ P,E$$ANM ;[1174] WE ONLY GET HERE WHEN PA
GE IS IN CORE
**************
1)41 ;**;[1212] Replace @E$$IVC DZN 4-Jul-79
1) E$$IVC::.ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at address >) ;[1212]
****
2)44 E$$IVC::.ERR. (MS,.EC,V%L,L%F,S%F,IVC,<Index validation check
failed at address >) ;[1212]
**************
1)43 ;**;[1174] Replace @SY.MDF+5L DZN 30-May-79
1) E$$MDS::.ERR. (MS,.EC,V%L,L%W,S%W,MDS,<Multiply-defined global
symbol >) ;[1174]
****
2)46 E$$MDS::.ERR. (MS,.EC,V%L,L%W,S%W,MDS,<Multiply-defined global
symbol >) ;[1174]
**************
1)43 POPJ P, ;
1)44 ;HERE TO FILL IN PARTIAL VALUE SYMBOL (SYM1=SYM2)
****
2)46 POPJ P,
2)47 ;HERE TO FILL IN PARTIAL VALUE SYMBOL (SYM1=SYM2)
**************
Digital Equipment Corporation 28-AUG-79 Page 806
PCO Log Report
1)45 ;**;[1174] Replace @SY.ZS1+5L DZN 30-May-79
1) PUSHJ P,E$$ISP ;[1174]
****
2)48 PUSHJ P,E$$ISP ;[1174]
**************
1)49 ;**;[1174] Replace @SYCHK2+1L DZN 30-May-79
1) PUSHJ P,E$$ISP ;[1174] SHOULD NEVER HAPPEN
****
2)52 PUSHJ P,E$$ISP ;[1174] SHOULD NEVER HAPPEN
**************
1)50 ;**;[1132] Replace @ SEGCHK JNG 30-Jan-79
1) SEGCHK::
****
2)53 SEGCHK::
**************
1)54 ;**;[1165] Replace @SY.RLS+7L DZN 15-May-79
1) JUMPE T1,[JUMPE T2,SYRLSZ ;[1165] NO LOCALS, TRY G
LOBAL
****
2)57 JUMPE T1,[JUMPE T2,SYRLSZ ;[1165] NO LOCALS, TRY G
LOBAL
**************
1)54 ;**;[1165] Insert after CPOPJ DZN 15-May-79
1) SYRLSZ: SETZM LSTSYM ;[1165] DON'T CONFUSE SYMBOLS DO
WN THE PIKE
****
2)57 SYRLSZ: SETZM LSTSYM ;[1165] DON'T CONFUSE SYMBOLS DO
WN THE PIKE
**************
1)55 ;**;[1203] Changes near CT.NAM JNG 14-Jun-79
1) DEFINE X(A,B,C)<
****
2)58 DEFINE X(A,B,C)<
**************
1)56 ;**;[1120] Replace @ALGNAM+1L DZN 22-Sep-78
1) POPJ P, ;[1120] USES COMMON SIZE AS MAIN
PROG MARKER.
****
2)60 POPJ P, ;[1120] USES COMMON SIZE AS MAIN
PROG MARKER.
**************
1)56 ;**;[1120] Replace @ALGNAM+5L DZN 22-Sep-78
1) POPJ P, ;[1120] DONE
****
2)60 POPJ P, ;[1120] DONE
**************
1)56 ;**;[1174] Replace @F40NAM+3L DZN 30-May-79
1) JRST E$$FOV ;[1174] YES
1) > ;
Digital Equipment Corporation 28-AUG-79 Page 807
PCO Log Report
1) IFN FMXFOR,< ;
1) SKIPE MIXFOR ;WANT TO MIX F40 & F-10?
1) JRST [HRRZS MIXFOR ;YES
1) ;**;[1120] Replace @F40NAM+8L DZN 22-Sep-78
1) TXNE T2,F40BIT ;[1120] 1ST TIME SEEN F4
0?
****
2)60 JRST E$$FOV ;[1174] YES
2) >
2) IFN FMXFOR,<
2) SKIPE MIXFOR ;WANT TO MIX F40 & F-10?
2) JRST [HRRZS MIXFOR ;YES
2) TXNE T2,F40BIT ;[1120] 1ST TIME SEEN F4
0?
**************
1)56 > ;
1) ;**;[1203] Insert @ F40NAM+19L JNG 14-Jun-79
1) TXNN T2,XFRBIT ;[1203] EXTENDED FORTRAN?
1) TXNE T2,FORBIT ;[1120] CAN NOT HAVE BOTH
1) ;**;[1174] Replace @F40NAM+20L DZN 30-May-79
1) JRST E$$MSR ;[1174] ERROR
****
2)60 >
2) TXNN T2,XFRBIT ;[1203] EXTENDED FORTRAN?
2) TXNE T2,FORBIT ;[1120] CAN NOT HAVE BOTH
2) JRST E$$MSR ;[1174] ERROR
**************
1)56 ;**;[1174] Replace @F40OVE DZN 30-May-79
1) E$$FOV::.ERR. (MS,.EC,V%L,L%F,S%F,FOV,<Cannot overlay F40 comp
iled code>) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]>
1)57 ;**;[1120] Replace @CBLNAM DZN 22-Sep-78
1) CBLNAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
1) TXNE T2,C74BIT ;[1120] TEST FOR OTHER COBOL
1) ;**;[1174] Replace @CBLNAM+2L DZN 30-May-79
1) JRST E$$CMC ;[1174] NOT ALLOWED
****
2)60 E$$FOV::.ERR. (MS,.EC,V%L,L%F,S%F,FOV,<Cannot overlay F40 comp
iled code>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]>
2)61 CBLNAM: JUMPE T2,CPOPJ ;[1120] OK FIRST TIME
2) TXNE T2,C74BIT ;[1120] TEST FOR OTHER COBOL
2) JRST E$$CMC ;[1174] NOT ALLOWED
**************
1)57 ;**;[1174] Replace @C74NAM+2L DZN 30-May-79
1) JRST E$$CMC ;[1174] NOT ALLOWED
****
2)61 JRST E$$CMC ;[1174] NOT ALLOWED
**************
Digital Equipment Corporation 28-AUG-79 Page 808
PCO Log Report
1)57 ;**;[1174] Replace @C74ERR DZN 30-May-79
1) E$$CMC::.ERR. (MS,.EC,V%L,L%F,S%F,CMC,<Cannot mix COBOL-68 and
COBOL-74 compiled code>) ;[1174]
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
1)58 ;**;[1120] Replace @C74ERR+6L DZN 22-Sep-78
1) ;FORTRAN
1) ;**;[1203] Insert @ FORNAM JNG 12-Jun-79
1) XFRNAM: TXNE T2,FORBIT ;[1203] SEEN OTHER FORTRAN?
****
2)61 E$$CMC::.ERR. (MS,.EC,V%L,L%F,S%F,CMC,<Cannot mix COBOL-68 and
COBOL-74 compiled code>) ;[1174]
2) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
2)62 ;FORTRAN
2) XFRNAM: TXNE T2,FORBIT ;[1203] SEEN OTHER FORTRAN?
**************
1)58 ;**;[1174] Replace @F40ERR DZN 30-May-79
1) E$$MSR::.ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>) ;[1174]
****
2)62 E$$MSR::.ERR. (MS,0,V%L,L%F,S%F,MSR,</MIXFOR switch required t
o mix F40 and FORTRAN code>) ;[1174]
**************
1)58 ;**;[1203] Insert @ FORSEG+11L JNG 14-Jun-79
1) ;**;[1207] Change @ E$$CMX JNG 29-Jun-79
1) E$$CMX::.ERR. (MS,.EC,V%L,L%F,S%C,CMX,<Cannot mix Extended FOR
TRAN compiled code with FORTRAN compiled code>)
****
2)62 E$$CMX::.ERR. (MS,.EC,V%L,L%F,S%C,CMX,<Cannot mix Extended FOR
TRAN compiled code with FORTRAN compiled code>)
**************
1)58 ;**;[1120] Delete @FORCPU+1P DZN 22-Sep-78
1)59 ;SITGO
****
2)63 ;SITGO
**************
1)60 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.MXFOR'] ;NOW FOR REQUEST
****
2)64 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.MXFOR'] ;NOW FOR REQUEST
**************
1)60 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.SAV15']
****
2)64 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.SAV15']
**************
1)62 ;**;[1174] Replace @MXFR2A+6L DZN 30-May-79
1) JRST E$$FSF ;[1174] NO, SO GIVE UP
Digital Equipment Corporation 28-AUG-79 Page 809
PCO Log Report
****
2)66 JRST E$$FSF ;[1174] NO, SO GIVE UP
**************
1)62 TLNE T1,-1 ;
1) AOJA P4,MXFOR3 ;NOT YET, INCR AND TRY AGAIN
****
2)66 TLNE T1,-1
2) AOJA P4,MXFOR3 ;NOT YET, INCR AND TRY AGAIN
**************
1)62 ;**;[1174] Replace @MXFOR3+14L DZN 30-May-79
1) JRST E$$FSF ;[1174] ERROR
****
2)66 JRST E$$FSF ;[1174] ERROR
**************
1)62 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.JRA16']
****
2)66 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.JRA16']
**************
1)63 ;**;[1174] Replace @MXFOR9+7L DZN 30-May-79
1) ; JRST E$$FSF ;[1174] SHOULD HAVE FOUND IT BY
NOW
1)64 ;HERE IF SUBROUTINE IS NOT STANDARD FORM
1) ;**;[1174] Replace @MXFERR DZN 30-May-79
1) E$$FSF::.ERR. (MS,.EC,V%L,L%W,S%W,FSF,<FORTRAN subroutine not
in expected format, /MIXFOR fixup not done>) ;[1174]
****
2)67 ; JRST E$$FSF ;[1174] SHOULD HAVE FOUND IT BY
NOW
2)68 ;HERE IF SUBROUTINE IS NOT STANDARD FORM
2) E$$FSF::.ERR. (MS,.EC,V%L,L%W,S%W,FSF,<FORTRAN subroutine not
in expected format, /MIXFOR fixup not done>) ;[1174]
**************
1)64 MOVEM P2,HL.S1 ;
1) CAMLE P2,HC.S1 ;AND HIGHEST DATA LOADED COUNTER
****
2)68 MOVEM P2,HL.S1
2) CAMLE P2,HC.S1 ;AND HIGHEST DATA LOADED COUNTER
**************
1)67
1)68 SUBTTL HERE TO TERMINATE LOAD
****
2)72 SUBTTL HERE TO TERMINATE LOAD
**************
1)68 ;**;[1201] Replace @ GO+3L JNG 13-Jun-79
1) CAIN T1,$SSGNONE ;[1201] USER GIVE /SYMSEG:NONE?
****
2)72 CAIN T1,$SSGNONE ;[1201] USER GIVE /SYMSEG:NONE?
**************
1)68 ;**;[1201] Replace @ GO+8L JNG 13-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 810
PCO Log Report
1) MOVEI T1,$SSGLOW ;[1201] OTHERWISE, DEFAULT TO LO
W
****
2)72 MOVEI T1,$SSGLOW ;[1201] OTHERWISE, DEFAULT TO LO
W
**************
1)68 ;**;[1175] Change @ GOSTRT+1L JNG 12-Jun-79
1) JRST GOUPTO ;[1175] NO
1) MOVX W1,PT.SGN!PT.SYM ;
1) PUSHJ P,TRYSYM## ;SEE IF DEFINED BY NOW
****
2)72 JRST GOUPTO ;[1175] NO
2) MOVX W1,PT.SGN!PT.SYM
2) PUSHJ P,TRYSYM## ;SEE IF DEFINED BY NOW
**************
1)68 ;**;[1175] Replace @ GOSTRT+9L JNG 12-Jun-79
1) JRST GOUPTO ;[1175] GO CHECK /UPTO
****
2)72 JRST GOUPTO ;[1175] GO CHECK /UPTO
**************
1)69 ;**;[1175] Delete @ GOSTER JNG 12-Jun-79
1) ;HERE TO EXIT
****
2)74 ;HERE TO EXIT
**************
1)69 MOVEI T1,[ASCIZ \?LNKIMM \] ;
1) PUSHJ P,MISNG1## ;
1) JRST .+1] ;AND REENTER MAIN STREAM
****
2)74 MOVEI T1,[ASCIZ \?LNKIMM \]
2) PUSHJ P,MISNG1##
2) JRST .+1] ;AND REENTER MAIN STREAM
**************
1)70 ;**;[1215] Change @ CHKLLC+4L JNG 23-Jul-79
1) MOVE W1,RC.HL(T1) ;[1215] USE HIGHEST LOC EVER SEE
N
****
2)75 MOVE W1,RC.HL(T1) ;[1215] USE HIGHEST LOC EVER SEE
N
**************
1)70 ;**;[1132] Replace @ CHKLLC+13L JNG 30-Jan-79
1) CAMLE R,RC.NO ;[1132] NEXT PSECT ORG MUST BE L
OWEST
****
2)75 CAMLE R,RC.NO ;[1132] NEXT PSECT ORG MUST BE L
OWEST
**************
1)71 ;**;[1106] Insert @ CHKLL1 JNG 27-Jun-78
1) CHKLL1: MOVE R,RC.NO ;[1106] POINT TO HIGHEST PSECT
Digital Equipment Corporation 28-AUG-79 Page 811
PCO Log Report
****
2)76 CHKLL1: MOVE R,RC.NO ;[1106] POINT TO HIGHEST PSECT
**************
1)72 ;**;[1204] Insert @ CHKBND+2L JNG 14-Jun-79
1) MOVE T2,RC.HL(T1) ;[1204] HIGHEST EVER LOADED
****
2)77 MOVE T2,RC.HL(T1) ;[1204] HIGHEST EVER LOADED
**************
1)72 ;**;[1212] Replace @E$$POV+4L DZN 4-Jul-79
1) .ETC. (STR,.EC,,,,,< overlap from address >) ;[1212]
****
2)77 .ETC. (STR,.EC,,,,,< overlap from address >) ;[1212]
**************
1)73 ;**;[1103] Insert before B16NOT DZN 19-Jun-78
1) SETZM PRGPTR ;[1103] REMEMBER THAT WE'RE DONE
****
2)78 SETZM PRGPTR ;[1103] REMEMBER THAT WE'RE DONE
**************
1)80 MOVEM T3,F.DIR(T1) ;
1) SETOM F.DIRM(T1) ;MUST MATCH EXACTLY
1) HRLI T2,-5 ;SET UP TO COPY ANY SFD'S
1) MOVE T4,T1 ;
1) PRGSFD: SKIPN T3,R.SFD(T2) ;ANY MORE THERE?
****
2)85 MOVEM T3,F.DIR(T1)
2) SETOM F.DIRM(T1) ;MUST MATCH EXACTLY
2) HRLI T2,-5 ;SET UP TO COPY ANY SFD'S
2) MOVE T4,T1
2) PRGSFD: SKIPN T3,R.SFD(T2) ;ANY MORE THERE?
**************
1)81 ANDCAM T1,LIBPRC ;
1) SKIPE @GS.LB ;LOAD JOBDAT UNLESS LOADED ORIGI
NALLY BY DEFAULT
****
2)86 ANDCAM T1,LIBPRC
2) SKIPE @GS.LB ;LOAD JOBDAT UNLESS LOADED ORIGI
NALLY BY DEFAULT
**************
1)83 ;**;[1203] Change @ REMLIB+1P JNG 14-Jun-79
1) DEFINE X(A,B,C)<
****
2)88 DEFINE X(A,B,C)<
**************
1)83 ;**;[1203] Change @ MNTBL+3L JNG 14-Jun-79
1) DEFINE X(A,B,C)<
****
2)89 DEFINE X(A,B,C)<
**************
1)84 ;**;[1203] Insert @ F40.L0+4L JNG 14-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 812
PCO Log Report
1) TXNN T1,XFRBIT ;[1203] EXTENDED FORTRAN CODE?
****
2)90 TXNN T1,XFRBIT ;[1203] EXTENDED FORTRAN CODE?
**************
1)85 ;**;[1174] Replace @FOR.L2+5L DZN 30-May-79
1) E$$FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI,<FORTRAN requires FOROTS,
/FORSE switch ignored>) ;[1174]
****
2)91 E$$FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI,<FORTRAN requires FOROTS,
/FORSE switch ignored>) ;[1174]
**************
1)85 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['FORSE.'] ;GET IT BY REQUESTING FORSE
****
2)91 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['FORSE.'] ;GET IT BY REQUESTING FORSE
**************
1)85 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['FOROT%'] ;SPECIAL SYMBOL
****
2)91 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['FOROT%'] ;SPECIAL SYMBOL
**************
1)85 ;**;[1200] Insert @ FOR.L1 JNG 13-Jun-79
1) PUSHJ P,FOR.L1 ;[1200] PUT FORLIB IN LIST OF LI
BRARIES
****
2)91 PUSHJ P,FOR.L1 ;[1200] PUT FORLIB IN LIST OF LI
BRARIES
**************
1)86 ;**;[1201] Change @ FOR.L0+1P11L JNG 13-Jun-79
1) DMOVE T2,[EXP %SEG%,$SSGLOW] ;[1201] SWITCH AND ARGUM
ENT
****
2)92 DMOVE T2,[EXP %SEG%,$SSGLOW] ;[1201] SWITCH AND ARGUM
ENT
**************
1)86 ;**;[1174] Replace @FOR.L1+2L DZN 30-May-79
1) E01FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI) ;[1174]
****
2)92 E01FSI::.ERR. (MS,0,V%L,L%W,S%W,FSI) ;[1174]
**************
1)86 ;**;[1203] Insert @ FORL10+2L JNG 14-Jun-79
1) ;HERE WHEN EXTENDED FORTRAN IS SEEN. SAME AS FORTRAN.
****
2)92 ;HERE WHEN EXTENDED FORTRAN IS SEEN. SAME AS FORTRAN.
**************
1)88 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['%SHARE']
Digital Equipment Corporation 28-AUG-79 Page 813
PCO Log Report
****
2)94 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['%SHARE']
**************
1)88 ;**;[1174] Replace @ALG.L1+2L DZN 30-May-79
1) E$$AMP::.ERR. (MS,,V%L,L%W,S%W,AMP,<ALGOL main program not loa
ded>) ;[1174]
****
2)94 E$$AMP::.ERR. (MS,,V%L,L%W,S%W,AMP,<ALGOL main program not loa
ded>) ;[1174]
**************
1)88 NLI.L1: MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['%NELGO'] ;DEFINE SYMBOL
****
2)94 NLI.L1: MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['%NELGO'] ;DEFINE SYMBOL
**************
1)88 ;**;[1174] Replace @SIM.L1+2L DZN 30-May-79
1) E$$SMP::.ERR. (MS,,V%L,L%W,S%W,SMP,<SIMULA main program not lo
aded>) ;[1174]
****
2)94 E$$SMP::.ERR. (MS,,V%L,L%W,S%W,SMP,<SIMULA main program not lo
aded>) ;[1174]
**************
1)88 ;**;[1131] Replace @QREENT DZN 26-Jan-79
1) QREENT: MOVE T1,HL.S1 ;[1131] GET CURRENT END OF LOW S
EGMENT
****
2)94 QREENT: MOVE T1,HL.S1 ;[1131] GET CURRENT END OF LOW S
EGMENT
**************
1)89 ;**;[1101] Replace @ D.INP+2L JNG 29-May-78
1) PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K
****
2)95 PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K
**************
1)89 ;**;[1174] Replace @D.ERR+2L DZN 30-May-79
1) E01EIF::PUSH P,[DC] ;[1174] SAVE CHANNEL FOR LNKLOG
****
2)95 E01EIF::PUSH P,[DC] ;[1174] SAVE CHANNEL FOR LNKLOG
**************
1)89 ;**;[1101] Replace @ D.READ+2L JNG 29-May-78
1) PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K #
****
2)95 PUSHJ P,D.CNT ;[1101] DO IN UUO AND COUNT BLOC
K #
**************
1)90 ;**;[1101] Insert @ D.READ+7L JNG 29-May-78
Digital Equipment Corporation 28-AUG-79 Page 814
PCO Log Report
1) ;THIS ROUTINE DOES AN IN UUO AND KEEPS TRACK OF THE CURRENT BLOC
K
****
2)96 ;THIS ROUTINE DOES AN IN UUO AND KEEPS TRACK OF THE CURRENT BLOC
K
**************
1)91 ;**;[1174] Replace @EOF+1L DZN 30-May-79
1) PUSHJ P,E$$NEB ;[1174] NO GIVE WARNING
****
2)97 PUSHJ P,E$$NEB ;[1174] NO GIVE WARNING
**************
1)91 ;**;[1132] Delete @ EOFTS+7L JNG 30-Jan-79
1) MOVEI R,2 ;NO FOR HIGH SEGMENT
****
2)97 MOVEI R,2 ;NO FOR HIGH SEGMENT
**************
1)91 ;**;[1132] Delete @ EOFTS+14L JNG 30-Jan-79
1) ;**;[1114] Insert after EOFTS+14L DZN 1-Sep-78
1) SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
****
2)97 SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
**************
1)91 LITLOD:
1) END LNKLOD
****
2)98 SUBTTL THE END
2) LITLOD: END LNKLOD
**************
Digital Equipment Corporation 28-AUG-79 Page 815
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOG.MAC[30,4507] created: 1742 04-Jul-1979
File 2) LINK:LNKLOG.MAC[10,645063] created: 1643 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 4-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKLOG
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN .TYOCH,LNKSCN,LNKERR
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKLOG
2) EXTERN .TYOCH,LNKSCN,LNKERR
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1) SEGMENT
1) SALL
1) ;USES T1-T4 ONLY (PLUS PUSHDOWN STACK)
1) ;CALLING SEQUENCE GENERATED BY .ERR. MACRO
1) ;SEE LNKPAR FOR DETAILS
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
**************
1)3 ..CTRL==<<IFIDN <TYPE><JMP>,<1>>!<IFIDN <TYPE><RTN>,<1>>>
1) IFN ..CTRL,<
****
2)3 ..CTRL==1 ;;[1217] ASSUME CONTROL
ONLY
2) IFDIF <TYPE><JMP>,<IFDIF <TYPE><RTN>,<..CTRL==0>> ;;[1217] COM
PILE WITH MACRO 53(1020)
2) IFN ..CTRL,<
**************
1)6 ;**;[1174] Replace @ERRLOG+3L DZN 4-Jun-79
1) MOVEI T1,E$$OEL-1 ;[1174] FAKE RETURN
****
Digital Equipment Corporation 28-AUG-79 Page 816
PCO Log Report
2)6 MOVEI T1,E$$OEL-1 ;[1174] FAKE RETURN
**************
1)6 ;**;[1174] Replace @LOGERR DZN 4-Jun-79
1) E$$OEL::PUSH P,[RC] ;CHANNNEL #
****
2)6 E$$OEL::PUSH P,[RC] ;CHANNNEL #
**************
1)8 ;**;[1202] Replace @ER.MS DZN 14-Jun-79
1) ER.MS: SETOM ERCHAN ;[1202] SIGNAL NO CHANNEL INVOLV
ED
****
2)8 ER.MS: SETOM ERCHAN ;[1202] SIGNAL NO CHANNEL INVOLV
ED
**************
1)8 ;**;[1202] Replace @ER.LRE+1L DZN 14-Jun-19
1) MOVE T4,ERCHAN ;[1174] GET CHANNEL
1) ;**;[1144] Replace @ER.LRE+1L DZN 16-Feb-79
1) TXNE P1,F%SEV ;[1144] DO WE HAVE SEVERITY?
****
2)8 MOVE T4,ERCHAN ;[1174] GET CHANNEL
2) TXNE P1,F%SEV ;[1144] DO WE HAVE SEVERITY?
**************
1)8 ;**;[1144] Replace @ER.LRE+12L DZN 16-Feb-79
1) DPB T3,SLPTR ;[1144] STORE SEVERITY AND LEVEL
****
2)8 DPB T3,SLPTR ;[1144] STORE SEVERITY AND LEVEL
**************
1)8 ;**;[1144] Replace @ER.LRE+17L DZN 16-Feb-79
1) TXO P1,F%SEV ;[1144] MARK AS FATAL
****
2)8 TXO P1,F%SEV ;[1144] MARK AS FATAL
**************
1)9 ;**;[1202] Replace @ERLRE2 DZN 14-Jun-79
1) ERLRE2: PUSHJ P,CHKLVL ;[1202] OUTPUT TIME ETC
1) JRST ERRNXT ;[1174] NOTHING TO DO
1) ;**;[1144] Insert before ERLRE2+3L DZN 16-Feb-79
1) HRRZ T1,P1 ;ADDRESS OF MESSAGE
1) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
1) ;**;[1212] Insert after ERLRE2+4L DZN 4-Jul-79
1) OUTVIA .TSPAC## ;[1212] PRINT SPACE BETWEEN FAIL
URE AND REASON
****
2)9 ERLRE2: PUSHJ P,CHKLVL ;[1202] OUTPUT TIME ETC
2) JRST ERRNXT ;[1174] NOTHING TO DO
2) HRRZ T1,P1 ;ADDRESS OF MESSAGE
2) OUTVIA .TSTRG## ;OUTPUT ON TTY AND/OR LOG
2) OUTVIA .TSPAC## ;[1212] PRINT SPACE BETWEEN FAIL
URE AND REASON
**************
Digital Equipment Corporation 28-AUG-79 Page 817
PCO Log Report
1)9 ;**;[1144] Replace @ERLRE3 DZN 16-Feb-79
1) HRRZ T1,P1 ;[1144] POINT TO SCAN BLOCK
****
2)9 HRRZ T1,P1 ;[1144] POINT TO SCAN BLOCK
**************
1)11 ;**;[1144] Insert before ER.I+2L DZN 16-Feb-79
1) HRRZ T1,P1 ;GET MESSAGE
1) OUTVIA .TSTRG##
1) ;**;[1202] Replace @ERI1 DZN 14-Jun-79
1) MOVE T4,ERCHAN ;[1202] GET CHANNEL
****
2)11 HRRZ T1,P1 ;GET MESSAGE
2) OUTVIA .TSTRG##
2) MOVE T4,ERCHAN ;[1202] GET CHANNEL
**************
1)12 ;**;[1144] Replace @ER.ST+2L DZN 16-Feb-79
1) HRRZ T1,P1 ;GET MESSAGE
****
2)12 HRRZ T1,P1 ;GET MESSAGE
**************
1)12 ;**;[1202] Replace @ERST1 DZN 14-Jun-79
1) MOVEI T1,[ASCIZ \Status \] ;[1144]
****
2)12 MOVEI T1,[ASCIZ \Status \] ;[1144]
**************
1)12 ;**;[1144] Replace @ER.ST+12L DZN 16-Feb-79
1) MOVEI T1,[ASCIZ \ for file \] ;[1144]
1) OUTVIA .TSTRG##
1) ;**;[1202] Replace @ERST1+11L DZN 14-Jun-79
1) MOVE T4,ERCHAN ;[1202] GET CHANNEL NUMBER
****
2)12 MOVEI T1,[ASCIZ \ for file \] ;[1144]
2) OUTVIA .TSTRG##
2) MOVE T4,ERCHAN ;[1202] GET CHANNEL NUMBER
**************
1)12 ;**;[1202] Delete CHKCHN routine DZN 14-Jun-79
1)13 SUBTTL CONTINUATION OF FIRST LINE DISPATCH
****
2)13 SUBTTL CONTINUATION OF FIRST LINE DISPATCH
**************
1)13 ;**;[1144] Replace @ERRNXT+2L DZN 16-Feb-79
1) LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERI
TY
****
2)13 LDB T1,VSPTR ;[1144] GET VERBOSITY AND SEVERI
TY
**************
1)17 ;**;[1202] Replace @CHKLVL DZN 14-Jun-79
1) CHKLVL: SKIPGE T1,ERCHAN ;[1202] I/O ERROR?
Digital Equipment Corporation 28-AUG-79 Page 818
PCO Log Report
****
2)17 CHKLVL: SKIPGE T1,ERCHAN ;[1202] I/O ERROR?
**************
1)20 PUSHJ P,.TDEC2## ;
1) MOVEI T1,[ASCIZ / /];[1174] FINISH WITH 3 SPACES
1) PJRST .TSTRG## ;[1174] ..
1)21 ;**;[1144] Replace @VERPTR DZN 16-Feb-79
1) VERPTR: POINTR P1,F%VER ;[1144] VERBOSITY LEVEL
****
2)20 PUSHJ P,.TDEC2##
2) MOVEI T1,[ASCIZ / /];[1174] FINISH WITH 3 SPACES
2) PJRST .TSTRG## ;[1174] ..
2)21 VERPTR: POINTR P1,F%VER ;[1144] VERBOSITY LEVEL
**************
1)24 ;**;[1174] Replace @.ERFEE DZN 30-May-79
1) .ERFEE::ASCIZ \FEE\
1) ;**;[1212] Replace @.ERFEE+1L DZN 4-Jul-79
1) .ASCIZ <ENTER error> ;[1212]
****
2)24 .ERFEE::ASCIZ \FEE\
2) .ASCIZ <ENTER error> ;[1212]
**************
1)25 ;**;[1212] Replace @LRETAB+7L DZN 4-Jul-79
1) .ERR. (,0,V%L,L%F,S%F,,<(7) not a saved file >)
****
2)25 .ERR. (,0,V%L,L%F,S%F,,<(7) not a saved file >)
**************
1)25 ;**;[1174] Insert before LRELEN DZN 30-May-79
1) .ERR. (,0,V%L,L%F,S%F,,<(32) RUN not allowed when not
logged in >) ;[1174]
****
2)25 .ERR. (,0,V%L,L%F,S%F,,<(32) RUN not allowed when not
logged in >) ;[1174]
**************
1)28 LOGLIT:
1) END
****
2)28 LOGLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 819
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 1233 14-Jun-1979
File 2) LINK:LNKLOW.MAC[10,645063] created: 1341 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) SEARCH LNKPAR,MACTEN,UUOSYM,SCNMAC
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,MACTEN,UUOSYM,SCNMAC
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1204 ;DEC EDIT VERSION
1) LOC 137
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) LOC 137
**************
1)1 SALL
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL STORAGE
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL STORAGE
**************
1)3 ;**;[1172] Insert @ POPOFS+1L JNG 5-Jun-79
1) PATLOC::BLOCK 1 ;[1172] LOCATION OF PAT.. AREA
1) ;**;[1204] Insert @ PATLOC+1L JNG 14-Jun-79
1) LSTRRV::BLOCK 1 ;[1204] LAST RIGHT RELOCATABLE V
ALUE FROM RB.1
****
2)4 PATLOC::BLOCK 1 ;[1172] LOCATION OF PAT.. AREA
2) LSTRRV::BLOCK 1 ;[1204] LAST RIGHT RELOCATABLE V
ALUE FROM RB.1
**************
1)6 ;**;[1174] Insert after ENTPTR DZN 5-Jun-79
1) NXTGLB::BLOCK 1 ;[1174] PUSHJ P,LOCN FOR /ENTRY,
/U, ETC.
****
2)7 NXTGLB::BLOCK 1 ;[1174] PUSHJ P,LOCN FOR /ENTRY,
Digital Equipment Corporation 28-AUG-79 Page 820
PCO Log Report
/U, ETC.
**************
1)9 SUBTTL I/O DATA AREAS
1) H.ZER::! ;START OF AREA FOR INPUT PARAMET
ERS
****
2)10 SUBTTL I/O DATA AREAS
2) H.ZER::! ;START OF AREA FOR INPUT PARAMET
ERS
**************
1)9 SFDSCN==:SFDARG+.PTSWT ;
1) SFDDIR==:SFDARG+.PTPPN ;
1) SFDEND==:SFDARG+.PTMAX-1 ;
1) H.EZER==:.-1
****
2)10 SFDSCN==:SFDARG+.PTSWT
2) SFDDIR==:SFDARG+.PTPPN
2) SFDEND==:SFDARG+.PTMAX-1
2) H.EZER==:.-1
**************
1)12 ;**;[1144] Replace @EXECSW DZN 16-Feb-79
1) EXECSW::BLOCK 1 ;[1144] -1,,x IF /EXECUTE, x = A
DDR TO START
****
2)13 EXECSW::BLOCK 1 ;[1144] -1,,x IF /EXECUTE, x = A
DDR TO START
**************
1)13 ;**;[1101] Replace @ LSTLOD JNG 29-May-78
1) DTAFLG::BLOCK 1 ;[1101] INPUT DEVICE IS DECtape
****
2)14 DTAFLG::BLOCK 1 ;[1101] INPUT DEVICE IS DECtape
**************
1)18 END
****
2)20 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 821
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1029 14-Jun-1979
File 2) LINK:LNKMAP.MAC[10,645063] created: 1547 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 14-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKMAP
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKFIO,LNKXIT,LNKLOD,LNKLOG,LNKCOR,.TYOCH
****
2)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKMAP
2) EXTERN LNKFIO,LNKXIT,LNKLOD,LNKLOG,LNKCOR,.TYOCH
**************
1)1 DECEVR==1203 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)4 SUBTTL HEADER LINES
1) LNKMAP: JFCL .+1 ;INCASE CCL
1) ;**;[1174] Replace @LNKMAP+1L DZN 31-May-79
1) E$$MPS::.ERR. (MS,0,V%L,L%I,S%I,MPS,<MAP segment>) ;[1174]
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL HEADER LINES
2) LNKMAP: JFCL .+1 ;INCASE CCL
2) E$$MPS::.ERR. (MS,0,V%L,L%I,S%I,MPS,<MAP segment>) ;[1174]
**************
1)5 PUSHJ P,.TSTRG## ;
1) PUSHJ P,.TTIMN## ;TIME
****
2)5 PUSHJ P,.TSTRG##
2) PUSHJ P,.TTIMN## ;TIME
**************
1)6 ;**;[1100] Delete @ OVMAP0+6L DZN 23-May-78
1) OVMAP1: MOVE P1,LNKNO.
****
2)6 OVMAP1: MOVE P1,LNKNO.
Digital Equipment Corporation 28-AUG-79 Page 822
PCO Log Report
**************
1)7 ;**;[1112] Replace @ SGSTF0+24L JNG 15-Aug-78
1) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
****
2)7 ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
**************
1)9 ;**;[1174] Replace @**somewhere**+1P9L DZN 1-Jun-79
1) PJRST E$$IOV##] ;[1174] GO REPORT INPUT
ERROR
****
2)9 PJRST E$$IOV##] ;[1174] GO REPORT INPUT
ERROR
**************
1)9 ;**;[1174] Replace @OVMAP6+9L DZN 1-Jun-79
1) PJRST E$$IOV##] ;[1174] INPUT ERROR
****
2)9 PJRST E$$IOV##] ;[1174] INPUT ERROR
**************
1)10 ;**;[1112] Replace @ SEGSTF+21L JNG 15-Aug-78
1) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
****
2)10 ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT PAGE BO
UND
**************
1)11 ;**;[1174] Replace @RDVER+15L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)11 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)11 ;**;[1174] Replace @RDVER1+23L DZN 31-May-79
1) E01ILC::PUSH P,[LC] ;[1174] CHAN #
****
2)11 E01ILC::PUSH P,[LC] ;[1174] CHAN #
**************
1)12 ;**;[1112] Replace @ SEGDN+2L JNG 15-Aug-78
1) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
****
2)12 ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
**************
1)12 ;**;[1112] Replace @ SEGDN+13L JNG 15-Aug-78
1) ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
****
2)12 ADD. T1,.PGSIZ ;[1112] ROUND UP TO NEXT P OR K
**************
1)15 TXNE W1,PS.GLB ;
1) JRST GLBSYM ;NORMAL GLOBAL
Digital Equipment Corporation 28-AUG-79 Page 823
PCO Log Report
****
2)15 TXNE W1,PS.GLB
2) JRST GLBSYM ;NORMAL GLOBAL
**************
1)18 ANDX T2,PS.GLB!PS.ENT!PS.UDF!PS.LCL!PS.COM!PS.REL
;
1) TXZN T2,PS.REL ;MUST BE ABS IF NOT REL
****
2)18 ANDX T2,PS.GLB!PS.ENT!PS.UDF!PS.LCL!PS.COM!PS.REL
2) TXZN T2,PS.REL ;MUST BE ABS IF NOT REL
**************
1)19 %%==^L<PS.'A>;; ;
1) IFG %%F-%%,<%%F==%%>
****
2)19 %%==^L<PS.'A>
2) IFG %%F-%%,<%%F==%%>
**************
1)21 %%.LCL: TXZ T2,PS.LCL ;
1) TXNN T1,C%LOCAL
****
2)20 %%.LCL: TXZ T2,PS.LCL
2) TXNN T1,C%LOCAL
**************
1)21 %%.ENT: TXZ T2,PS.ENT!PS.GLB ;
1) TXNN T1,C%ENTRY
****
2)20 %%.ENT: TXZ T2,PS.ENT!PS.GLB
2) TXNN T1,C%ENTRY
**************
1)21 %%.COM: TXZ T2,PS.COM!PS.GLB ;
1) TXNN T1,C%COMMON
****
2)20 %%.COM: TXZ T2,PS.COM!PS.GLB
2) TXNN T1,C%COMMON
**************
1)21 %%.UDF: TXZ T2,PS.UDF ;
1) TXNN T1,C%UNDEFINED
****
2)20 %%.UDF: TXZ T2,PS.UDF
2) TXNN T1,C%UNDEFINED
**************
1)23 ;**;[1174] Replace @TTLBLK+33L DZN 31-May-79
1) JRST E$$TTF ;[1174] NO, MUST BE ERROR
****
2)22 JRST E$$TTF ;[1174] NO, MUST BE ERROR
**************
1)24 MOVX T1,S.TTL ;
1) MOVX T4,S.CMT!S.RLD!S.RLN!S.RLS!S.PRC!S.CRE!S.DEV!S.N
AM!S.SFD!S.VER!S.SEG ;STOPPERS
Digital Equipment Corporation 28-AUG-79 Page 824
PCO Log Report
****
2)23 MOVX T1,S.TTL
2) MOVX T4,S.CMT!S.RLD!S.RLN!S.RLS!S.PRC!S.CRE!S.DEV!S.N
AM!S.SFD!S.VER!S.SEG ;STOPPERS
**************
1)24 IFN .NWBLK,< ;
1) MOVX T1,S.TTL!S.CMT ;LOOK FOR THE ASCII COMMENT
****
2)23 IFN .NWBLK,<
2) MOVX T1,S.TTL!S.CMT ;LOOK FOR THE ASCII COMMENT
**************
1)25 PUSHJ P,FNDNAS ;
1) JRST TTLRLU ;
1) MOVE T1,W2 ;FILE NAME
****
2)24 PUSHJ P,FNDNAS
2) JRST TTLRLU
2) MOVE T1,W2 ;FILE NAME
**************
1)25 PUSHJ P,FNDNAS ;
1) JRST TTLRLR ;CLOSE [DIRECTORY]
1) TTLRLS: PUSHJ P,.TCOMA## ;
1) MOVE T1,W2
1) PUSHJ P,.TSIXN##
1) JUMPE W3,TTLRLR ;
1) PUSHJ P,.TCOMA##
****
2)24 PUSHJ P,FNDNAS
2) JRST TTLRLR ;CLOSE [DIRECTORY]
2) TTLRLS: PUSHJ P,.TCOMA##
2) MOVE T1,W2
2) PUSHJ P,.TSIXN##
2) JUMPE W3,TTLRLR
2) PUSHJ P,.TCOMA##
**************
1)25 JRST TTLRLS ;
1) TTLRLR: MOVEI T1,"]" ;
1) PUSHJ P,.TCHAR##
****
2)24 JRST TTLRLS
2) TTLRLR: MOVEI T1,"]"
2) PUSHJ P,.TCHAR##
**************
1)26 PUSHJ P,FNDNAS ;
1) JRST TTLCRU ;NO LUCK, GO PRINT CREATION STUF
F
****
2)25 PUSHJ P,FNDNAS
2) JRST TTLCRU ;NO LUCK, GO PRINT CREATION STUF
Digital Equipment Corporation 28-AUG-79 Page 825
PCO Log Report
F
**************
1)26 ;**;[1120] Replace @TTLCPU DZN 22-Sep-78
1) TTLCPU: POP P,T1 ;[1120] RESTORE CPU BITS
****
2)25 TTLCPU: POP P,T1 ;[1120] RESTORE CPU BITS
**************
1)26 ;**;[1120] Insert after TTLCRL+1 DZN 22-Sep-78
1) HRRZI T1,(W3) ;[1120] GET CPU BITS
****
2)25 HRRZI T1,(W3) ;[1120] GET CPU BITS
**************
1)28 IFN .NWBLK,< ;
1) MOVX T1,S.TTL!S.DEV ;LOOK FOR SOURCE FILE INFO
****
2)27 IFN .NWBLK,<
2) MOVX T1,S.TTL!S.DEV ;LOOK FOR SOURCE FILE INFO
**************
1)30 IFN .NWBLK,< ;
1) SKIPN T1,SAVAST ;IS THERE AN ASTPTR SAVED?
****
2)29 IFN .NWBLK,<
2) SKIPN T1,SAVAST ;IS THERE AN ASTPTR SAVED?
**************
1)30 MOVX T1,S.TTL!S.SEG ;
1) SETZ T4, ;NO STOPPERS
****
2)29 MOVX T1,S.TTL!S.SEG
2) SETZ T4, ;NO STOPPERS
**************
1)30 ;FALL INTO PSECT CODE
1)31 ;HERE TO HANDLE PSECTS
****
2)30 ;HERE TO HANDLE PSECTS
**************
1)31 ;**;[1161] Change @ TTLPSC+5L JNG 4-May-79
1) MOVEI T1,[ASCIZ / Psect /] ;[1161]
****
2)30 MOVEI T1,[ASCIZ / Psect /] ;[1161]
**************
1)31 ;**;[1161] Change @ TTLPSC+26L JNG 4-May-79
1) MOVEI T1,[ASCIZ / (octal),/] ;[1161]
****
2)30 MOVEI T1,[ASCIZ / (octal),/] ;[1161]
**************
1)32 ;**;[1174] Replace @TTLTTF DZN 31-May-79
1) E$$TTF::.ERR. (MS,,V%L,L%W,S%W,TTF,<Too many titles found>) ;[
1174]
****
Digital Equipment Corporation 28-AUG-79 Page 826
PCO Log Report
2)31 E$$TTF::.ERR. (MS,,V%L,L%W,S%W,TTF,<Too many titles found>) ;[
1174]
**************
1)34 JRST .+1] ;
1) PUSHJ P,LOGBCK ;INCASE LOG FILE OPEN
****
2)33 JRST .+1]
2) PUSHJ P,LOGBCK ;INCASE LOG FILE OPEN
**************
1)36 ;**;[1164] Insert @ SHFSYM+16L JNG 8-May-79
1) ANDCMI T3,.IPM ;[1164] FORM FIRST FREE IN ALL B
UT LAST PAGE
****
2)35 ANDCMI T3,.IPM ;[1164] FORM FIRST FREE IN ALL B
UT LAST PAGE
**************
1)36 ;**;[1164] Insert @ SHFSYM+31L JNG 8-May-79
1) SUBI T2,.IPS ;[1164] LAST PAGE HAS ALREADY BE
EN COUNTED
****
2)35 SUBI T2,.IPS ;[1164] LAST PAGE HAS ALREADY BE
EN COUNTED
**************
1)38 FNDNIC: SKIPN PAG.LS ;
1) JRST TPOPJ ;REMOVE RETURN AND EXIT
****
2)37 FNDNIC: SKIPN PAG.LS
2) JRST TPOPJ ;REMOVE RETURN AND EXIT
**************
1)39 ;**;[1174] Replace @MAPDMP+3L DZN 31-May-79
1) E$$OEM::PUSH P,[MC] ;ERROR, SAVE CHAN
****
2)38 E$$OEM::PUSH P,[MC] ;ERROR, SAVE CHAN
**************
1)40 ;**;[1120] Insert after .TYHDR+3L DZN 22-Sep-78
1) MOVE T1,OKCPUS ;[1120] PRINT CPUS FOR PROGRAM
****
2)39 MOVE T1,OKCPUS ;[1120] PRINT CPUS FOR PROGRAM
**************
1)40 PUSHJ P,.TVERW## ;
1) TYPAGE:
****
2)39 PUSHJ P,.TVERW##
2) TYPAGE:
**************
1)44 ;**;[1203] Replace @ END1+1P0L JNG 14-Jun-79
1) DEFINE X (A,B,C)<
****
2)43 DEFINE X (A,B,C)<
**************
1)45 ;**;[1120] Revamp @PRCTAB+2L DZN 22-Sep-78
Digital Equipment Corporation 28-AUG-79 Page 827
PCO Log Report
1) ;ROUTINE TO PRINT CPUS ON WHICH A MODULE OR PROGRAM WILL RUN. IF
ALL CPUS
****
2)44 ;ROUTINE TO PRINT CPUS ON WHICH A MODULE OR PROGRAM WILL RUN. IF
ALL CPUS
**************
1)51 ;**;[1100] Insert before MAPEND DZN 23-May-78
1) MAPEND: SKIPN T2,PRGNO ;[1100] NOW DELETE INDEX BLOCK
****
2)50 MAPEND: SKIPN T2,PRGNO ;[1100] NOW DELETE INDEX BLOCK
**************
1)52 PJRST .TVERW##] ;
1) PUSHJ P,.TYLPP ;END LINE
****
2)51 PJRST .TVERW##]
2) PUSHJ P,.TYLPP ;END LINE
**************
1)53 ;**;[1100] Insert before OVXHDR+20L DZN 23-May-78
1) HRRZ T1,MDLIDX ;[1100] FREE INDEX BLOCK FOR LIN
K NAMES
****
2)52 HRRZ T1,MDLIDX ;[1100] FREE INDEX BLOCK FOR LIN
K NAMES
**************
1)54 ;**;[1174] Replace @MAPRET+1L DZN 31-May-79
1) E$$EMS::.ERR. (MS,0,V%L,L%I,S%I,EMS,<End of MAP segment>) ;[11
74]
1) ;**;[1100] Delete @MAPRET+2L DZN 23-May-78
1) MOVE T1,LS.LB ;NOW TO MAKE SURE LS.PT IS CORRE
CT
****
2)53 E$$EMS::.ERR. (MS,0,V%L,L%I,S%I,EMS,<End of MAP segment>) ;[11
74]
2) MOVE T1,LS.LB ;NOW TO MAKE SURE LS.PT IS CORRE
CT
**************
1)56 MAPLIT:
1) END LNKMAP
****
2)56 SUBTTL THE END
2) MAPLIT: END LNKMAP
**************
Digital Equipment Corporation 28-AUG-79 Page 828
PCO Log Report
[FILCOM]
File 1) LINK:LNKNEW.MAC[30,4507] created: 1743 04-Jul-1979
File 2) LINK:LNKNEW.MAC[10,645063] created: 1345 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 4-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKNEW
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG,LNKCST
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKNEW
2) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG,LNKCST
**************
1)1 DECEVR==1212 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITIONS
**************
1)1 SEGMENT
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL BLOCK DISPATCH TABLES
1) NDSPTB: LITYPE (1000,1060)
1) NDISPL==.-NDSPTB
1) SALL
1)4 SUBTTL DISPATCH TO NEW BLOCK TYPE
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL BLOCK DISPATCH TABLES
2) XALL
2) NDSPTB: LITYPE (1000,1060)
2) NDISPL==.-NDSPTB
2) SALL
2)4 SUBTTL DISPATCH TO NEW BLOCK TYPE
**************
1)6 IFE .NWBLK,< ;
1) T.1001==E$$IRB## ;[1174] ILLEGAL IF NOT T
Digital Equipment Corporation 28-AUG-79 Page 829
PCO Log Report
HERE
****
2)6 IFE .NWBLK,<
2) T.1001==E$$IRB## ;[1174] ILLEGAL IF NOT T
HERE
**************
1)8 IFE .NWBLK,< ;
1) T.1002==E$$IRB## ;[1174] ERROR UNLESS FIXED
****
2)8 IFE .NWBLK,<
2) T.1002==E$$IRB## ;[1174] ERROR UNLESS FIXED
**************
1)13 ;**;[1212] Replace @T.1003+16L DZN 4-Jul-79
1) PUSHJ P,E$$NEB## ;[1212] WARN USER, BUT TRY TO CO
NTINUE
****
2)13 PUSHJ P,E$$NEB## ;[1212] WARN USER, BUT TRY TO CO
NTINUE
**************
1)20 ;**;[1174] Replace @NAMRED+1L DZN 31-May-79
1) JRST E01LMN ;[1174] YES, BROADCAST ITS NAME
AND RETURN
****
2)20 JRST E01LMN ;[1174] YES, BROADCAST ITS NAME
AND RETURN
**************
1)20 ;**;[1174] Replace @TELLOD DZN 31-May-79
1) E01LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] TELL WHAT WE'R
E LOADING
****
2)20 E01LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] TELL WHAT WE'R
E LOADING
**************
1)23 ;**;[1174] Replace @T.1043+3L DZN 1-Jun-79
1) JRST E$$IRR ;[1174] ERROR - NOT ENOUGH DATA
WORDS
****
2)23 JRST E$$IRR ;[1174] ERROR - NOT ENOUGH DATA
WORDS
**************
1)23 ;**;[1174] Replace @T.1042A+7L DZN 1-Jun-79
1) JRST E$$IRR ;[1174] ERROR
****
2)23 JRST E$$IRR ;[1174] ERROR
**************
1)23 ;**;[1174] Replace @T1042L+1L DZN 1-Jun-79
1) JRST E$$IRR ;[1174] NONE THERE, COUNT LIED
****
2)23 JRST E$$IRR ;[1174] NONE THERE, COUNT LIED
Digital Equipment Corporation 28-AUG-79 Page 830
PCO Log Report
**************
1)23 ;**;[1174] Replace @T1042E DZN 1-Jun-79
1) E$$IRR::.ERR. (MS,.EC,V%L,L%W,S%W,IRR,<Illegal request/require
block>) ;[1174]
****
2)23 E$$IRR::.ERR. (MS,.EC,V%L,L%W,S%W,IRR,<Illegal request/require
block>) ;[1174]
**************
1)24 > ;END IFN .NWBLK ON PAGE 4
1)26 SUBTTL BLOCK TYPE 1044 - BLOCK STRUCTURED ALGOL LOCAL SYMBOLS
****
2)23 > ;END IFN .NWBLK ON PAGE 13
2)24 SUBTTL BLOCK TYPE 1044 - BLOCK STRUCTURED ALGOL LOCAL SYMBOLS
**************
1)27 T.1060==T.1000 ;
1) > ;END IFE .NWBLK
1) IFN .NWBLK,< ;
1) T.1060: JRST E$$IRB## ;[1174] SHOULD PUT INFO IN LS FO
R MAP
****
2)25 T.1060==T.1000
2) > ;END IFE .NWBLK
2) IFN .NWBLK,<
2) T.1060: JRST E$$IRB## ;[1174] SHOULD PUT INFO IN LS FO
R MAP
**************
1)29 SETZM F.ASCK ;
1) JRST LOAD ;CONTINUE WITH CURRENT .REL FILE
****
2)27 SETZM F.ASCK
2) JRST LOAD ;CONTINUE WITH CURRENT .REL FILE
**************
1)30 POPJ P, ;
1) ;NOW CALCULATE THE VALUE OF %CRLF% FROM THE SWMAC MACRO.
****
2)28 POPJ P,
2) ;NOW CALCULATE THE VALUE OF %CRLF% FROM THE SWMAC MACRO.
**************
1)30 SWTCHS;; ;
1) >;END IFN .ASBLK
****
2)28 SWTCHS
2) >;END IFN .ASBLK
**************
1)32 ;**;[1174] Replace @D.REL1+3L DZN 1-Jun-79
1) JRST E$$PEF ;[1174] WORD COUNT WAS WRONG
****
2)30 JRST E$$PEF ;[1174] WORD COUNT WAS WRONG
**************
Digital Equipment Corporation 28-AUG-79 Page 831
PCO Log Report
1)32 ;**;[1174] Replace @DRELN+4L DZN 1-Jun-79
1) ; JRST E$$IRC ;[1174] RELOCATED TO SEGMENT NOT
SET UP
****
2)30 ; JRST E$$IRC ;[1174] RELOCATED TO SEGMENT NOT
SET UP
**************
1)33 ;**;[1174] Replace @D.GET1+3L DZN 1-Jun-79
1) JRST E$$PEF ;[1174] PREMATURE END OF FILE
****
2)31 JRST E$$PEF ;[1174] PREMATURE END OF FILE
**************
1)33 ;**;[1174] Replace @TOSHRT DZN 1-Jun-79
1) E$$PEF::.ERR. (MS,.EC,V%L,L%F,S%W,PEF,<Premature end of file f
rom file >) ;[1174]
****
2)31 E$$PEF::.ERR. (MS,.EC,V%L,L%F,S%W,PEF,<Premature end of file f
rom file >) ;[1174]
**************
1)34 SUBTTL DATA STORAGE
1) NEWLIT:
1) END
****
2)32 SUBTTL THE END
2) NEWLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 832
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 2308 08-Jul-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1336 27-Jul-1979
1)1 TITLE LNKOLD - LOAD OLD BLOCKS MODULE FOR LINK
1) SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 5-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LNKOLD - LOAD OLD BLOCKS MODULE FOR LINK
2) SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 25-Jul-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) ENTRY LNKOLD
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG,LNKCST
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKOLD
2) EXTERN LNKSCN,LNKLOD,LNKCOR,LNKWLD,LNKLOG,LNKCST
**************
1)1 DECEVR==1213 ;DEC EDIT VERSION
1) ;LOCAL ACC DEFINITIONS
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITIONS
**************
1)1 SEGMENT
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)2 SUBTTL REVISION HISTORY
**************
1)5 COMMENT \
****
2)6 ;1217 Clean up the listings for release.
2)7 COMMENT \
**************
1)6 SUBTTL BLOCK DISPATCH TABLES
1) ODSPTB: LITYPE (0,37)
1) ODISPL==.-ODSPTB
1)7 FDSPTB: LITYPE (700,777)
1) FDISPL==.-FDSPTB
1) SALL
1)8 SUBTTL DISPATCH TO OLD BLOCK TYPE
****
Digital Equipment Corporation 28-AUG-79 Page 833
PCO Log Report
2)8 SUBTTL BLOCK DISPATCH TABLES
2) ODSPTB: LITYPE (0,37)
2) ODISPL==.-ODSPTB
2)9 XALL
2) FDSPTB: LITYPE (700,777)
2) FDISPL==.-FDSPTB
2) SALL
2)10 SUBTTL DISPATCH TO OLD BLOCK TYPE
**************
1)11 ;**;[1204] Insert @ T.1AD JNG 14-Jun-79
1) T.1AD: MOVE T1,LSTRRV ;[1204] GET LAST RH WORD
****
2)13 T.1AD: MOVE T1,LSTRRV ;[1204] GET LAST RH WORD
**************
1)11 .JDDT LNKOLD,T.1AD,<<CAML P2,$LOCATION##>,<CAMLE P3,$L
OCATION>,<JRST .+3>,<SKIPE $LOCATION>>;; ;
1) JUMPE R,T.1A ;SPECIAL CHECK IF ABSOLUTE ADDRE
SS
****
2)13 .JDDT LNKOLD,T.1AD,<<CAML P2,$LOCATION##>,<CAMLE P3,$L
OCATION>,<JRST .+3>,<SKIPE $LOCATION>>
2) JUMPE R,T.1A ;SPECIAL CHECK IF ABSOLUTE ADDRE
SS
**************
1)11 MOVEM P2,HL.S1 ;
1) CAMLE P2,HC.S1 ;AND HIGHEST DATA LOADED COUNTER
****
2)13 MOVEM P2,HL.S1
2) CAMLE P2,HC.S1 ;AND HIGHEST DATA LOADED COUNTER
**************
1)12 T.1AL: ;
1) IFN FTOVERLAY,< ;
1) CAMGE P3,PH.ADD ;MAKE SURE ADDRESSIS LEGAL
****
2)14 T.1AL:
2) IFN FTOVERLAY,<
2) CAMGE P3,PH.ADD ;MAKE SURE ADDRESSIS LEGAL
**************
1)12 > ;
1) SKIPE PAG.S1 ;PAGING?
****
2)14 >
2) SKIPE PAG.S1 ;PAGING?
**************
1)12 ;**;[767] Change @ T.1LOW+11L MCHC 17-Mar-78
1) SETZ P2, ;[767][732] NO EXPANSION, PREVEN
T LOOPING
****
2)15 SETZ P2, ;[767][732] NO EXPANSION, PREVEN
Digital Equipment Corporation 28-AUG-79 Page 834
PCO Log Report
T LOOPING
**************
1)13 POP P,W3 ;
1) JRST T.1L1 ;NOW IN CORE
****
2)16 POP P,W3
2) JRST T.1L1 ;NOW IN CORE
**************
1)14 MOVEM P2,HL.S0 ;
1) CAMLE P2,HC.S0 ;AND HIGHEST DATA LOADED COUNTER
1) MOVEM P2,HC.S0 ;
1) MOVEI R,1 ;TREAT AS LOW SEG
****
2)17 MOVEM P2,HL.S0
2) CAMLE P2,HC.S0 ;AND HIGHEST DATA LOADED COUNTER
2) MOVEM P2,HC.S0
2) MOVEI R,1 ;TREAT AS LOW SEG
**************
1)15 ;**;[1204] Delete @ T.1H+4L JNG 14-Jun-79
1) CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
1) MOVEM P2,HL.S2 ;
1) CAMLE P2,HC.S2 ;AND HIGHEST DATA LOADED COUNTER
****
2)18 CAMLE P2,HL.S2 ;RESET HIGHEST LOCATION COUNTER
2) MOVEM P2,HL.S2
2) CAMLE P2,HC.S2 ;AND HIGHEST DATA LOADED COUNTER
**************
1)15 ;**;[1204] Replace @ E$$STL JNG 14-Jun-79
1) E$$PTL::.ERR. (MS,.EC,V%L,L%F,S%F,PTL,<Program too long>)
****
2)18 E$$PTL::.ERR. (MS,.EC,V%L,L%F,S%F,PTL,<Program too long>)
**************
1)17 ;**;[1174] Replace @T.1SE+2L DZN 1-Jun-79
1) E$$DSC::.ERR. (MS,.EC,V%L,L%F,S%F,DSC,<Data store to common >)
;[1174]
****
2)20 E$$DSC::.ERR. (MS,.EC,V%L,L%F,S%F,DSC,<Data store to common >)
;[1174]
**************
1)17 ;**;[1174] Replace @T.1OVE+3L DZN 1-Jun-79
1) E$$DSL::.ERR. (MS,.EC,V%L,L%F,S%F,DSL,<Data store to location
>) ;[1174]
****
2)20 E$$DSL::.ERR. (MS,.EC,V%L,L%F,S%F,DSL,<Data store to location
>) ;[1174]
**************
1)17 ;**;[1174] Replace @T.1OVG+2L DZN 1-Jun-79
1) .ETC. (JMP,,,,,.ETIMF##) ;[1174]
****
Digital Equipment Corporation 28-AUG-79 Page 835
PCO Log Report
2)20 .ETC. (JMP,,,,,.ETIMF##) ;[1174]
**************
1)17 ;**;[1174] Replace @T.1UN+1L DZN 1-Jun-79
1) E01CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
****
2)20 E01CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
**************
1)17 MOVX W1,PT.SGN!PT.EXT!PT.SYM!PS.REQ!PS.UDF!PS.FXP
;
1) SETZB W3,2(T1) ;ZERO VALUE
****
2)20 MOVX W1,PT.SGN!PT.EXT!PT.SYM!PS.REQ!PS.UDF!PS.FXP
2) SETZB W3,2(T1) ;ZERO VALUE
**************
1)19 ;**;[1213] Insert @ T.2+6L JNG 5-Jul-79
1) MOVE P4,T3 ;[1213] SAVE RADIX50 SYMBOL NAME
****
2)22 MOVE P4,T3 ;[1213] SAVE RADIX50 SYMBOL NAME
**************
1)20 ;**;[1174] Replace @T.2TAB DZN 1-Jun-79
1) T.2TAB::E$$URC ;[1174] 0 - 00 NAME (SHOULD NEV
ER HAPPEN)
****
2)23 T.2TAB::E$$URC ;[1174] 0 - 00 NAME (SHOULD NEV
ER HAPPEN)
**************
1)20 ;**;[1174] Replace @T.2R5U DZN 1-Jun-79
1) E$$URC::.ERR. (MS,.EC,V%L,L%F,S%I,URC,<Unknown radix-50 symbol
code >) ;[1174]
****
2)23 E$$URC::.ERR. (MS,.EC,V%L,L%F,S%I,URC,<Unknown radix-50 symbol
code >) ;[1174]
**************
1)21 ;*;CHANGE @T.2CHK+2 DMN 10-JULY-75
1) PUSH P,W1 ;SAVE FLAGS
****
2)24 PUSH P,W1 ;SAVE FLAGS
**************
1)21 ;*;CHANGE @T.2CHK+5 DMN 10-JULY-75
1) AOS -1(P) ;NO
****
2)24 AOS -1(P) ;NO
**************
1)22 ;**;[1213] Change @ R50T6X+2L JNG 5-Jul-79
1) EXCH W2,T3 ;[1213] PUT BACK IN W2, LEAVE R5
0 IN T3
****
2)25 EXCH W2,T3 ;[1213] PUT BACK IN W2, LEAVE R5
0 IN T3
Digital Equipment Corporation 28-AUG-79 Page 836
PCO Log Report
**************
1)25 ;**;[1140] Change @ SY.LS+1L JNG 6-Feb-79
1) SETZM LSTSYM ;[1140] IN CASE WE DON'T LOAD TH
IS SYMBOL
****
2)28 SETZM LSTSYM ;[1140] IN CASE WE DON'T LOAD TH
IS SYMBOL
**************
1)26 ;**;[1174] Replace @SY.BH+11L DZN 1-Jun-79
1) JRST E02SFU ;[1174] NO
****
2)29 JRST E02SFU ;[1174] NO
**************
1)27 SY.DGR: TXO W1,PS.GLB!PS.UDR ;
1) IFN FTOVERLAY,<
****
2)30 SY.DGR: TXO W1,PS.GLB!PS.UDR
2) IFN FTOVERLAY,<
**************
1)27 ;**;[1213] Insert @ SY.DGR+5L JNG 5-Jul-79
1) PUSH P,P4 ;[1213] SAVE ORIGINAL SYMBOL IN
RADIX50
****
2)30 PUSH P,P4 ;[1213] SAVE ORIGINAL SYMBOL IN
RADIX50
**************
1)27 ;**;[1213] Insert @ SY.DGR+8L JNG 5-Jul-79
1) POP P,P4 ;[1213] RESTORE SYMBOL NAME IN R
50 FORM
****
2)30 POP P,P4 ;[1213] RESTORE SYMBOL NAME IN R
50 FORM
**************
1)27 ;**;[1213] Replace @SY.DGR+11L JNG 5-Jul-79
1) JRST SY.DG2 ;[1213] 2ND PARTIAL DEF, SET UP
FOR CHECK
****
2)30 JRST SY.DG2 ;[1213] 2ND PARTIAL DEF, SET UP
FOR CHECK
**************
1)27 ;**;[1213] Insert @ SY.DG0 JNG 7-Jul-79
1) SY.DG0: POP P,P4 ;[1213] RESTORE RADIX 50 FORM
****
2)30 SY.DG0: POP P,P4 ;[1213] RESTORE RADIX 50 FORM
**************
1)28 ;**;[1213] Insert @ SY.DG1 JNG 5-Jul-79
1) SY.DG1: POP P,P4 ;[1213] RESTORE RADIX50 SYMBOL N
AME
****
2)31 SY.DG1: POP P,P4 ;[1213] RESTORE RADIX50 SYMBOL N
AME
Digital Equipment Corporation 28-AUG-79 Page 837
PCO Log Report
**************
1)28 ;**;[1213] Replace @SY.DG1+6L JNG 5-Jul-79
1) JRST SY.DG2 ;[1213] YES, SET UP FOR COMPARE
****
2)31 JRST SY.DG2 ;[1213] YES, SET UP FOR COMPARE
**************
1)28 ;**;[1213] Replace @ E$$ISD JNG 5-Jul-79
1)29 ;HERE WHEN A DEFINED OR PARTIALLY-DEFINED SYMBOL IS PARTIALLY-DE
FINED
****
2)32 ;HERE WHEN A DEFINED OR PARTIALLY-DEFINED SYMBOL IS PARTIALLY-DE
FINED
**************
1)31 TXZ W1,PS.REL ;
1) >
****
2)34 TXZ W1,PS.REL
2) >
**************
1)33 TXNE T1,S.SYM ;
1) TXNN T1,S.LNM ;SO IGNORE COMMON, ETC
****
2)36 TXNE T1,S.SYM
2) TXNN T1,S.LNM ;SO IGNORE COMMON, ETC
**************
1)33 JFCL ;
1) MOVE T1,P1 ;POINT TO SYMBOL TRIPLET
****
2)36 JFCL
2) MOVE T1,P1 ;POINT TO SYMBOL TRIPLET
**************
1)34 SY.RQF: MOVX W1,FP.SGN!FP.SYM!FP.PTR ;
1) TXZ W3,R5.FXA ;CLEAR ADDITIVE FIXUP BIT ALWAYS
****
2)38 SY.RQF: MOVX W1,FP.SGN!FP.SYM!FP.PTR
2) TXZ W3,R5.FXA ;CLEAR ADDITIVE FIXUP BIT ALWAYS
**************
1)37 ;**;[1174] Replace @SY.RUC+2L DZN 1-Jun-79
1) JRST E02CNW ;[1174] NOT THE RIGHT SORT OF EX
TENDED TRIPLET
****
2)42 JRST E02CNW ;[1174] NOT THE RIGHT SORT OF EX
TENDED TRIPLET
**************
1)37 ;**;[1174] Replace @SY.RUH DZN 1-Jun-79
1) E02CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
****
2)42 E02CNW::.ERR. (MS,.EC,V%L,L%F,S%F,CNW) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 838
PCO Log Report
1)38 ;**;[1115] Replace @T.3 DZN 2-Sep-78
1) T.3:
****
2)43 T.3:
**************
1)38 ;**;[1174] Replace @T.3+5L DZN 1-Jun-79
1) E$$HCL::.ERR. (MS,.EC,V%L,L%F,S%F,HCL,<High segment code not a
llowed in an overlay link>) ;[1174]
****
2)43 E$$HCL::.ERR. (MS,.EC,V%L,L%F,S%F,HCL,<High segment code not a
llowed in an overlay link>) ;[1174]
**************
1)39 SUB T2,LW.LS ;
1) ADD T2,LS.LB ;FIX IN CORE
****
2)44 SUB T2,LW.LS
2) ADD T2,LS.LB ;FIX IN CORE
**************
1)39 ;**;[1174] Replace @T.3SER+1L DZN 1-Jun-79
1) E01SFU::.ERR. (MS,0,V%L,L%I,S%I,SFU) ;[1174]
****
2)44 E01SFU::.ERR. (MS,0,V%L,L%I,S%I,SFU) ;[1174]
**************
1)42 ;BLOCK TYPE 5 SEEN
1)43 ;HERE IF LOW SEGMENT LENGTH GIVEN (FORTRAN-10)
****
2)48 ;HERE IF LOW SEGMENT LENGTH GIVEN (FORTRAN-10)
**************
1)43 ;**;[1174] Replace @T.3L+2L DZN 1-Jun-79
1) PUSHJ P,E$$HSL ;[1174] NO, GIVE FATAL ERROR
****
2)48 PUSHJ P,E$$HSL ;[1174] NO, GIVE FATAL ERROR
**************
1)44 ;**;[1170] Replace @ SETRC+9L JNG 23-May-79
1) CAMG W1,RC.CV(R) ;BUT MUST BE HIGHER THAN LOW SEG
1) ;**;[1174] Replace @SETRC+12L DZN 1-Jun-79
1) JRST E$$HSL ;[1174] TOO LOW
****
2)49 CAMG W1,RC.CV(R) ;BUT MUST BE HIGHER THAN LOW SEG
2) JRST E$$HSL ;[1174] TOO LOW
**************
1)44 ;**;[1132] Delete @ SETRC+13L JNG 30-Jan-79
1) MOVEM W1,LL.S2 ;FOR INPUT ROUTINE ONLY
****
2)49 MOVEM W1,LL.S2 ;FOR INPUT ROUTINE ONLY
**************
1)44 ;**;[1132] Insert @ SETRC+33L JNG 30-Jan-79
1) MOVEM W1,RC.HL(R) ;[1132] CONSIDER THESE TO BE LOA
DED
Digital Equipment Corporation 28-AUG-79 Page 839
PCO Log Report
****
2)49 MOVEM W1,RC.HL(R) ;[1132] CONSIDER THESE TO BE LOA
DED
**************
1)44 ;**;[1132] Delete @ SETRC+36L JNG 30-Jan-79
1) MOVEI T1,HC.LB
****
2)49 MOVEI T1,HC.LB
**************
1)46 ;**;[1174] Replace @T.3F DZN 1-Jun-79
1) E$$HSL::.ERR. (MS,.EC,V%L,L%F,S%F,HSL,<Attempt to set high seg
ment origin too low>) ;[1174]
****
2)51 E$$HSL::.ERR. (MS,.EC,V%L,L%F,S%F,HSL,<Attempt to set high seg
ment origin too low>) ;[1174]
**************
1)49 ;**;[1156] Insert @ T.5 JNG 13-Apr-79
1) T.5: MOVEI T1,1 ;[1156] BREAKS ARE RELOCATABLE I
N .LOW.
****
2)54 T.5: MOVEI T1,1 ;[1156] BREAKS ARE RELOCATABLE I
N .LOW.
**************
1)49 ;**;[1204] Replace @ T.5A+4L JNG 14-Jun-79
1) PUSHJ P,RB.1 ;[1204] GET FIRST WORD
****
2)54 PUSHJ P,RB.1 ;[1204] GET FIRST WORD
**************
1)49 ;**;[1210] Replace @ T.5A+8L JNG 29-Jun-79
1) TLNE W1,-1 ;[1210] BREAK OK IN REL FILE?
****
2)54 TLNE W1,-1 ;[1210] BREAK OK IN REL FILE?
**************
1)49 ;**;[1210] Replace @ T.5A+11L JNG 29-Jun-79
1) T.5PBI: PUSHJ P,RB.1 ;[1210] GET SECOND WORD
****
2)54 T.5PBI: PUSHJ P,RB.1 ;[1210] GET SECOND WORD
**************
1)49 ;**;[1210] Replace @ T.5A+17L JNG 29-Jun-79
1) T.5BR: SKIPE W3,LOD37 ;[1210] COBOL LOCAL SYMBOLS
****
2)54 T.5BR: SKIPE W3,LOD37 ;[1210] COBOL LOCAL SYMBOLS
**************
1)49 ;**;[1114] Insert after T.5A+15L DZN 1-Sep-78
1) SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
****
2)54 SETZM LOD37 ;[1114] DONE WITH COBOL SYMBOLS
**************
1)50 ;**;[1132] Replace @ T.5LS+6L JNG 22-Jan-79
Digital Equipment Corporation 28-AUG-79 Page 840
PCO Log Report
1) MOVEM W1,RC.HL(R) ;[1132] MAKE SURE HL IS UP TO DA
TE TOO
****
2)55 MOVEM W1,RC.HL(R) ;[1132] MAKE SURE HL IS UP TO DA
TE TOO
**************
1)50 ;**;[1132] Replace @ T.5HS+6L JNG 30-Jan-79
1) MOVEM W2,RC.HL(R) ;[1132] MAKE SURE HL IS HIGHEST
POSSIBLE
****
2)55 MOVEM W2,RC.HL(R) ;[1132] MAKE SURE HL IS HIGHEST
POSSIBLE
**************
1)51 ;**;[1174] Replace @T.5END+7L DZN 1-Jun-79
1) JRST E02SFU ;[1174] ERROR
****
2)56 JRST E02SFU ;[1174] ERROR
**************
1)51 ;**;[1174] Replace @T.5LP+7L DZN 1-Jun-79
1) JRST E02SFU ;[1174]
****
2)56 JRST E02SFU ;[1174]
**************
1)52 ;**;[1132] Change @ T.5PSA+1L JNG 30-Jan-79
1) MOVX T2,AT.PS ;[1132] FLAG FOR PSECT SEEN IN T
HIS MODULE
****
2)57 MOVX T2,AT.PS ;[1132] FLAG FOR PSECT SEEN IN T
HIS MODULE
**************
1)52 ;**;[1132] Change @ T.5PSA+6L JNG 30-Jan-79
1) MOVE T3,RC.HL(T1) ;[1132] GET HIGHEST SEEN
****
2)57 MOVE T3,RC.HL(T1) ;[1132] GET HIGHEST SEEN
**************
1)53 POPJ P, ;
1)54 ;HERE WHEN RELOCATION COUNTERS ARE NOT CORRECT
****
2)58 POPJ P,
2)59 ;HERE WHEN RELOCATION COUNTERS ARE NOT CORRECT
**************
1)54 ;**;[1132] Replace @ T.5FL+13L JNG 30-Jan-79
1) MOVEM W2,RC.HL(R) ;[1132] HIGHEST LOCATION
LOADED
****
2)59 MOVEM W2,RC.HL(R) ;[1132] HIGHEST LOCATION
LOADED
**************
1)54 ;**;[1132] Replace @ T.5FL+21L JNG 30-Jan-79
Digital Equipment Corporation 28-AUG-79 Page 841
PCO Log Report
1) MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
****
2)59 MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
**************
1)54 ;**;[1132] Replace @ T.5FH+13L JNG 30-Jan-79
1) MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
****
2)60 MOVEM W1,RC.HL(R) ;[1132] FOR LNKXIT
**************
1)54 ;**;[1132] Delete @ T.5FH+23L JNG 30-Jan-79
1) MOVEM W2,RC.HL(R) ;[1132] FOR LNKXIT
****
2)60 MOVEM W2,RC.HL(R) ;[1132] FOR LNKXIT
**************
1)57 ;**;[1174] Replace @T.5SER DZN 1-Jun-79
1) E02SFU::.ERR. (MS,0,V%L,L%W,S%W,SFU) ;[1174]
****
2)63 E02SFU::.ERR. (MS,0,V%L,L%W,S%W,SFU) ;[1174]
**************
1)57 ;**;[1174] Replace @T.5W1 DZN 1-Jun-79
1) E$$PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI,<Program break >) ;[1174
]
****
2)63 E$$PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI,<Program break >) ;[1174
]
**************
1)57 ;**;[1210] Replace @ E$$PBI+4L JNG 29-Jun-79
1) SETZ W2, ;[1210] CLEAR AND CONTINUE
1) JRST T.5PBI ;[1210] GO READ SECOND WORD
1) ;**;[1210] Replace @ E01PBI JNG 29-Jun-79
1) E01PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI) ;[1174]
****
2)63 SETZ W2, ;[1210] CLEAR AND CONTINUE
2) JRST T.5PBI ;[1210] GO READ SECOND WORD
2) E01PBI::.ERR. (MS,.EC,V%L,L%W,S%W,PBI) ;[1174]
**************
1)58 ;**;[1174] Replace @T.6+1L DZN 30-May-79
1) PUSHJ P,E$$NEB## ;[1174] NO, PREMATURE END OF MOD
ULE
****
2)64 PUSHJ P,E$$NEB## ;[1174] NO, PREMATURE END OF MOD
ULE
**************
1)58 ;**;[1174] Replace @T.6+6L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174]
****
2)64 JRST E$$RBS] ;[1174]
**************
1)58 ;**;[1174] Replace @T.OK+6L DZN 1-Jun-79
1) E$$LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN,<Loading module >) ;[11
74]
Digital Equipment Corporation 28-AUG-79 Page 842
PCO Log Report
****
2)64 E$$LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN,<Loading module >) ;[11
74]
**************
1)59 ;**;[1120] Replace @T.6OK+1P2L DZN 22-Sep-78
1) LDB T1,[POINT 6,(P),5] ;[1120] GET RUNNABLE CPU BITS
****
2)65 LDB T1,[POINT 6,(P),5] ;[1120] GET RUNNABLE CPU BITS
**************
1)59 ;**;[1174] Replace @??????+1P11L DZN 1-Jun-79
1) JRST E$$CCD ;[1174] NO--CPU CONFLICT DETECTE
D
****
2)65 JRST E$$CCD ;[1174] NO--CPU CONFLICT DETECTE
D
**************
1)59 ;**;[1174] Replace @ERRCCD DZN 1-Jun-79
1) E$$CCD::.ERR. (MS,.EC,V%L,L%F,S%F,CCD,<CPU conflict>) ;[1174]
****
2)65 E$$CCD::.ERR. (MS,.EC,V%L,L%F,S%F,CCD,<CPU conflict>) ;[1174]
**************
1)60 MOVX W1,S.TTL ;
1) PUSHJ P,LS.ADD## ;REST OF NAME
1) MOVX W1,S.TTL!S.LST!S.SEG ;
1) HRRZ T1,BLCOMM ;GET LENGTH
****
2)66 MOVX W1,S.TTL
2) PUSHJ P,LS.ADD## ;REST OF NAME
2) MOVX W1,S.TTL!S.LST!S.SEG
2) HRRZ T1,BLCOMM ;GET LENGTH
**************
1)61 JRST CPOPJ1 ;
1)62 T.6EXC: PUSHJ P,EXCCHK ;SEE IF EXCLUDED
****
2)67 JRST CPOPJ1
2)68 T.6EXC: PUSHJ P,EXCCHK ;SEE IF EXCLUDED
**************
1)62 IFN .EXSYM,< ;
1) TLNN T2,770000 ;SYMBOL OR POINTER?
****
2)68 IFN .EXSYM,<
2) TLNN T2,770000 ;SYMBOL OR POINTER?
**************
1)63 ;**;[1174] Replace @T.6BC+3L DZN 1-Jun-79
1) E$$AIC::.ERR. (MS,.EC,V%L,L%F,S%F,AIC,<Attempt to increase siz
e of >) ;[1174]
****
2)69 E$$AIC::.ERR. (MS,.EC,V%L,L%F,S%F,AIC,<Attempt to increase siz
e of >) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 843
PCO Log Report
**************
1)66 ;**;[1174] Replace @T.7+4L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174]
****
2)72 JRST E$$RBS] ;[1174]
**************
1)68 ;**;[1174] Replace @T.10L+1L DZN 1-Jun-79
1) JRST [MOVEI T1,10 ;[1174] BLOCK TYPE 10 TO
O SHORT
****
2)74 JRST [MOVEI T1,10 ;[1174] BLOCK TYPE 10 TO
O SHORT
**************
1)70 ;**;[1166] Replace @ T.11+19L JNG 15-May-79
1) PUSHJ P,RB.1 ;[1166] READ FIRST WORD
****
2)76 PUSHJ P,RB.1 ;[1166] READ FIRST WORD
**************
1)70 ;**;[1174] Replace @T.11+1P9L DZN 1-Jun-79
1) JRST E$$IPX ;[1174] NO, ERROR
****
2)76 JRST E$$IPX ;[1174] NO, ERROR
**************
1)70 ;**;[1166] Add label @ T.11RD+2L JNG 15-May-79
1) T11RD2: HLRZ T1,W1 ;[1166] GET LHS
****
2)76 T11RD2: HLRZ T1,W1 ;[1166] GET LHS
**************
1)70 ;**;[1166] Replace @ T.11RD+16L JNG 15-May-79
1) CAMLE T1,RC.NO ;[1166] MAKE SURE VALID
1) ;**;[1174] Replace @T11RD2+17L DZN 1-Jun-79
1) JRST E$$IPX ;[1174] INVALID
****
2)76 CAMLE T1,RC.NO ;[1166] MAKE SURE VALID
2) JRST E$$IPX ;[1174] INVALID
**************
1)71 ;**;[1166] Replace @ T11RHS+12L JNG 15-May-79
1) CAMLE T2,RC.NO ;[1166] MAKE SURE VALID
1) ;**;[1174] Replace @T11RHS+14L DZN 1-Jun-79
1) JRST E$$IPX ;[1174] INVALID
****
2)77 CAMLE T2,RC.NO ;[1166] MAKE SURE VALID
2) JRST E$$IPX ;[1174] INVALID
**************
1)71 ;**;[1174] Replace @T11IPX DZN 1-Jun-79
1) E$$IPX::.ERR. (MS,.EC,V%L,L%F,S%F,IPX,<Invalid psect index>) ;
[1174]
****
2)77 E$$IPX::.ERR. (MS,.EC,V%L,L%F,S%F,IPX,<Invalid psect index>) ;
Digital Equipment Corporation 28-AUG-79 Page 844
PCO Log Report
[1174]
**************
1)72 ;**;[1174] Replace @T.11SP+8L DZN 1-Jun-79
1) JRST E$$ISO ;[1174] NO
****
2)78 JRST E$$ISO ;[1174] NO
**************
1)74 ;**;[1174] Replace @T11SPE DZN 1-Jun-79
1) E$$ISO::.ERR. (MS,.EC,V%L,L%F,S%F,ISO,<Invalid polish store op
erator >) ;[1174]
****
2)80 E$$ISO::.ERR. (MS,.EC,V%L,L%F,S%F,ISO,<Invalid polish store op
erator >) ;[1174]
**************
1)76 MOVX W1,FP.SGN!FP.SYM!FP.PTR!FP.POL ;
1) HRRZ W3,T11FA ;ADDRESS (RELATIVE TO FX.LB) OF
POLISH
****
2)81 MOVX W1,FP.SGN!FP.SYM!FP.PTR!FP.POL
2) HRRZ W3,T11FA ;ADDRESS (RELATIVE TO FX.LB) OF
POLISH
**************
1)77 ;**;[1174] Replace @T.11DF+2L DZN 1-Jun-79
1) JRST E$$ISP## ;[1174] PRIMARY OR NO FLAGS SET
****
2)82 JRST E$$ISP## ;[1174] PRIMARY OR NO FLAGS SET
**************
1)77 ;**;[1174] Replace @T.11DF+6L DZN 1-Jun-79
1) JRST E$$ISP## ;[1174]
1) HRLI W1,(FP.SGN!FP.SYM!FP.PTR!FP.POL) ;
1) HRRZ W3,T11FA ;POINT TO POLISH
****
2)82 JRST E$$ISP## ;[1174]
2) HRLI W1,(FP.SGN!FP.SYM!FP.PTR!FP.POL)
2) HRRZ W3,T11FA ;POINT TO POLISH
**************
1)77 ;**;[1174] Delete @T11DFE DZN 1-Jun-79
1)78 ;HERE TO EVALUATE POLISH FIXUP
****
2)83 ;HERE TO EVALUATE POLISH FIXUP
**************
1)78 ;**;[1174] Replace @T.11RP+9L DZN 1-Jun-79
1) JRST E$$IPO ;[1174]
****
2)83 JRST E$$IPO ;[1174]
**************
1)78 ;**;[1174] Replace @T11RPE DZN 1-Jun-79
1) E$$IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO,<Invalid polish operator
>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 845
PCO Log Report
****
2)83 E$$IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO,<Invalid polish operator
>) ;[1174]
**************
1)80 PUSHJ P,JFFOOP ;
1) PUSHJ P,REMOP ;
1) MOVM T1,T2 ;
1) PUSHJ P,MAXOP ;[736] 20
****
2)85 PUSHJ P,JFFOOP
2) PUSHJ P,REMOP
2) MOVM T1,T2
2) PUSHJ P,MAXOP ;[736] 20
**************
1)80 POPJ P, ;
1) ;REMAINDER OPERATOR
****
2)85 POPJ P,
2) ;REMAINDER OPERATOR
**************
1)80 POPJ P, ;
1) MAXOP: CAMGE T1,T2 ;[736]
****
2)85 POPJ P,
2) MAXOP: CAMGE T1,T2 ;[736]
**************
1)82 ;**;[1174] Replace @SKENEW+3L DZN 1-Jun-79
1) JRST E$$RBS ;[1174]
****
2)87 JRST E$$RBS ;[1174]
**************
1)83 ;**;[1174] Replace @T.11ST DZN 1-Jun-79
1) JRST E01IPO ;[1174] NO
****
2)88 JRST E01IPO ;[1174] NO
**************
1)83 ;**;[1174] Replace @T11STE DZN 1-Jun-79
1) E01IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO) ;[1174]
****
2)88 E01IPO::.ERR. (MS,.EC,V%L,L%F,S%F,IPO) ;[1174]
**************
1)84 T11SYR: MOVX W1,FS.FXR ;
1) JRST SY.ASP ;AND DO FIXUP
1) T11SYL: MOVX W1,FS.FXL ;
1) JRST SY.ASP ;
1) T11SYF: MOVX W1,FS.FXF ;
1) ; JRST SY.ASP ;
****
2)89 T11SYR: MOVX W1,FS.FXR
Digital Equipment Corporation 28-AUG-79 Page 846
PCO Log Report
2) JRST SY.ASP ;AND DO FIXUP
2) T11SYL: MOVX W1,FS.FXL
2) JRST SY.ASP
2) T11SYF: MOVX W1,FS.FXF
2) ; JRST SY.ASP ;
**************
1)84 ;**;[1174] Replace @T11LNK+11L DZN 1-Jun-79
1) AOJA W2,E01IPO ;[1174] RANGE CHECK
****
2)90 AOJA W2,E01IPO ;[1174] RANGE CHECK
**************
1)85 ;**;[1174] Replace @T.12A+9L DZN 1-Jun-79
1) AOJA W2,E$$ICB ;[1174] ILLEGAL LINK #
****
2)91 AOJA W2,E$$ICB ;[1174] ILLEGAL LINK #
**************
1)86 ;**;[1174] Replace @T.12E+3L DZN 1-Jun-79
1) AOJA W2,E$$ICB ;[1174] ILLEGAL
****
2)92 AOJA W2,E$$ICB ;[1174] ILLEGAL
**************
1)86 ;**;[1174] Replace @T.12I DZN 1-Jun-79
1) E$$ICB::.ERR. (MS,.EC,V%L,L%W,S%W,ICB,<Invalid chain REL block
(type 12) link number >) ;[1174]
****
2)92 E$$ICB::.ERR. (MS,.EC,V%L,L%W,S%W,ICB,<Invalid chain REL block
(type 12) link number >) ;[1174]
**************
1)88 ;**;[1174] Replace @T.14ER+3L DZN 1-Jun-79
1) E$$LII::.ERR. (MS,,V%L,L%W,S%I,LII,<Library index inconsistent
, continuing>) ;[1174]
1) JRST LOAD## ;AND CONTINUE
1) ;**;[1101] Delete @ T.14I JNG 29-May-78
1) T.14I: PUSHJ P,D.IN1## ;READ FIRST WORD
****
2)94 E$$LII::.ERR. (MS,,V%L,L%W,S%I,LII,<Library index inconsistent
, continuing>) ;[1174]
2) JRST LOAD## ;AND CONTINUE
2) T.14I: PUSHJ P,D.IN1## ;READ FIRST WORD
**************
1)89 ;**;[1101] Insert @ T.14A JNG 29-May-78
1) T.14A: SKIPN XBUF ;[1101] GIVE ERROR IF ALREADY BE
EN HERE
****
2)95 T.14A: SKIPN XBUF ;[1101] GIVE ERROR IF ALREADY BE
EN HERE
**************
1)89 ;**;[1101] Delete @ T.14A+5L JNG 29-May-78
1) T.14J: HRRZ T1,XBUF ;AUX BUFFER
****
2)95 T.14J: HRRZ T1,XBUF ;AUX BUFFER
Digital Equipment Corporation 28-AUG-79 Page 847
PCO Log Report
**************
1)89 ;**;[1101] Delete @ T.14J+6L JNG 29-May-78
1) T.14B:: ILDB W3,XBUF+1
****
2)95 T.14B:: ILDB W3,XBUF+1
**************
1)89 ;**;[1101] Delete @ T.14K+5L JNG 29-May-78
1) JRST T.14B ;GET NEXT PROG
****
2)95 JRST T.14B ;GET NEXT PROG
**************
1)90 ;**;[1101] Delete @ T.14E+10L JNG 29-May-78
1) HRRZ W3,LSTBLK ;GET LAST BLOCK NUMBER
****
2)96 HRRZ W3,LSTBLK ;GET LAST BLOCK NUMBER
**************
1)90 ;**;[1101] Change @ NXTNDX JNG 29-May-78
1) NXTNDX: SKIPGE DTAFLG ;[1101] DIFFERENT TEST FOR DTA
****
2)96 NXTNDX: SKIPGE DTAFLG ;[1101] DIFFERENT TEST FOR DTA
**************
1)91 ;**;[1101] Revamp @ NXTBLK+1L JNG 29-May-78
1) JRST THSBLK ;[1101] IT IS NOW
****
2)97 JRST THSBLK ;[1101] IT IS NOW
**************
1)91 ;**;[1101] Replace @ T.14D+2L JNG 29-May-78
1) MOVE T1,W3 ;[1101] -1,,BLOCK # INTO T1 FOR
THSBLK
****
2)97 MOVE T1,W3 ;[1101] -1,,BLOCK # INTO T1 FOR
THSBLK
**************
1)92 ;**;[1174] Replace @T.15+2L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174]
****
2)98 JRST E$$RBS] ;[1174]
**************
1)95 ;**;[1204] Insert @ T.20+3L JNG 14-Jun-79
1) TRNE W3,-1 ;[1204] SMALL ENOUGH?
****
2)101 TRNE W3,-1 ;[1204] SMALL ENOUGH?
**************
1)96 ;**;[1174] Replace @T.COMM+6L DZN 1-Jun-79
1) JRST E$$SNC ;[1174] NO, ERROR
****
2)102 JRST E$$SNC ;[1174] NO, ERROR
**************
1)96 ;**;[1174] Replace @T.20ER+1L DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 848
PCO Log Report
1) EXCH T1,T2 ;[1174] SWAP FOR .ETAIC ROUTINE
****
2)102 EXCH T1,T2 ;[1174] SWAP FOR .ETAIC ROUTINE
**************
1)98 ;**;[1174] Replace @T.20UN+2L DZN 1-Jun-79
1) JRST E$$SNC ;[1174] SHOULD NOT HAPPEN
****
2)104 JRST E$$SNC ;[1174] SHOULD NOT HAPPEN
**************
1)98 MOVEM T3,2(T1) ;
1) MOVX T3,S.COM ;SECONDARY FLAG
****
2)104 MOVEM T3,2(T1)
2) MOVX T3,S.COM ;SECONDARY FLAG
**************
1)98 ;**;[777] Insert before T20UN1+6L DZN 18-May-78
1) PUSH P,P2 ;[777] SAVE COMMON SYMBOL OVER S
Y.RF
****
2)104 PUSH P,P2 ;[777] SAVE COMMON SYMBOL OVER S
Y.RF
**************
1)98 ;**;[777] Insert before T20UN1+9 DZN 18-May-78
1) POP P,P2 ;[777] RESTORE COMMAND SYMBOL
****
2)104 POP P,P2 ;[777] RESTORE COMMAND SYMBOL
**************
1)100 ;**;[1174] Replace @T.22+2L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174] ERROR
****
2)106 JRST E$$RBS] ;[1174] ERROR
**************
1)100 ;**;[1174] Replace @T.22C+2L DZN 1-Jun-79
1) JRST E$$IPX ;[1174] MAKE SURE THIS PSECT EXI
ST
****
2)106 JRST E$$IPX ;[1174] MAKE SURE THIS PSECT EXI
ST
**************
1)101 ;**;[1154] Revamp @ T.23 JNG 12-Apr-79
1) T.23: PUSHJ P,RB.1 ;[1154] GET PSECT INDEX
1) ;**;[1174] Replace @T.23+1L DZN 1-Jun-79
1) JRST E$$RBS ;[1174] TOO SHORT
****
2)107 T.23: PUSHJ P,RB.1 ;[1154] GET PSECT INDEX
2) JRST E$$RBS ;[1174] TOO SHORT
**************
1)101 ;**;[1174] Replace @T.23A+4L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174] USUAL MESSAGE
Digital Equipment Corporation 28-AUG-79 Page 849
PCO Log Report
****
2)107 JRST E$$RBS] ;[1174] USUAL MESSAGE
**************
1)101 ;**;[1174] Replace @T.23B+5L DZN 1-Jun-79
1) JRST E$$RBS] ;[1174] ..
1) ;**;[1204] Insert @ T.23B+6L JNG 14-Jun-79
1) MOVE W1,LSTRRV ;[1204] GET TRUE VALUE
****
2)107 JRST E$$RBS] ;[1174] ..
2) MOVE W1,LSTRRV ;[1204] GET TRUE VALUE
**************
1)102 ;**;[1137] Replace @ T.24+1L JNG 1-Feb-79
1) ;**;[1137] This edit replaces the T.24 portion of edit 1132 if i
nstalled.
1) ;**;[1174] Replace @T.24+3L DZN 1-Jun-79
1) JRST E$$RBS ;[1174] BLOCK TOO SHORT
1) ;**;[1137] Install the next line ONLY if edit 1132 has been inst
alled.
1) TXO W1,AT.PS ;[1137] REMEMBER THIS PSECT SEEN
IN THIS MODULE
****
2)108 JRST E$$RBS ;[1174] BLOCK TOO SHORT
2) TXO W1,AT.PS ;[1137] REMEMBER THIS PSECT SEEN
IN THIS MODULE
**************
1)102 ;**;[1174] Replace @T.24A+2L DZN 1-Jun-79
1) JRST E$$RBS ;[1174] NOT THERE?
****
2)108 JRST E$$RBS ;[1174] NOT THERE?
**************
1)103 ;**;[1153] Insert @ T.24E+2L JNG 12-Apr-79
1) CAILE P1,1 ;[1153] DISALLOW CHANGING .LOW.
OR BELOW
1) CAMLE P1,RC.NO ;[1153] CATCH GARBAGE PSECT INDI
CES
1) ;**;[1174] Replace @T.24E+5L DZN 4-Jun-79
1) JRST E01IPX ;[1174] INDEX IS JUNK, COMPLAIN
****
2)109 CAILE P1,1 ;[1153] DISALLOW CHANGING .LOW.
OR BELOW
2) CAMLE P1,RC.NO ;[1153] CATCH GARBAGE PSECT INDI
CES
2) JRST E01IPX ;[1174] INDEX IS JUNK, COMPLAIN
**************
1)103 ;**;[1174] Replace @T24IPX-2L DZN 4-Jun-79
1) ;HERE ON AN INVALID PSECT INDEX WHEN W2 CONTAINS SIXBIT PSECT NA
ME.
****
2)109 ;HERE ON AN INVALID PSECT INDEX WHEN W2 CONTAINS SIXBIT PSECT NA
Digital Equipment Corporation 28-AUG-79 Page 850
PCO Log Report
ME.
**************
1)105 ;**;[1174] Replace @T.100E+1L DZN 1-Jun-79
1) E$$UAR::.ERR. (MS,.EC,V%L,L%W,S%W,UAR,<Undefined assign for sy
mbol >) ;[1174]
****
2)111 E$$UAR::.ERR. (MS,.EC,V%L,L%W,S%W,UAR,<Undefined assign for sy
mbol >) ;[1174]
**************
1)106 ;**;[1174] Replace @T.776+23L DZN 30-May-79
1) JRST E01FLE## ;[1174] WILL DO FOR NOW
****
2)112 JRST E01FLE## ;[1174] WILL DO FOR NOW
**************
1)107 MOVX W1,PT.SGN!PT.SYM ;
1) .JDDT LNKOLD,T776A,<<CAMN W2,$SYMBOL>> ;
1) PUSH P,R ;[702] SAVE R
****
2)113 MOVX W1,PT.SGN!PT.SYM
2) .JDDT LNKOLD,T776A,<<CAMN W2,$SYMBOL>>
2) PUSH P,R ;[702] SAVE R
**************
1)107 JRST T776A ;
1)108 ;HERE TO READ NEXT WORD FROM 1P INTERNAL BUFFER
****
2)113 JRST T776A
2)114 ;HERE TO READ NEXT WORD FROM 1P INTERNAL BUFFER
**************
1)108 CAIA ;
1) ;**;[1174] Replace @T776R2+10L DZN 30-May-79
1) JRST E02EIF ;[1174] HANDLE ERROR
****
2)114 CAIA
2) JRST E02EIF ;[1174] HANDLE ERROR
**************
1)109 ;**;[1174] Replace @T776OK+1 DZN 1-Jun-79
1) E02LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] GIVE INFO MESS
AGE
****
2)115 E02LMN::.ERR. (MS,.EC,V%L,L%I5,S%I,LMN) ;[1174] GIVE INFO MESS
AGE
**************
1)111 ;**;[1155] Replace @ RWORD5+1L JNG 13-Apr-79
1) SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
****
2)117 SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
**************
1)112 ;**;[1204] Insert @ RWORD3 JNG 14-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 851
PCO Log Report
1) RWORD3: SETZM LSTRRV ;[1204] ASSUME ABSOLUTE
****
2)118 RWORD3: SETZM LSTRRV ;[1204] ASSUME ABSOLUTE
**************
1)112 ;**;[1155] Replace @ RWORD6+2L JNG 13-Apr-79
1) SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
****
2)118 SKIPGE RC.AT(R) ;[1155] DOES THIS PSECT HAVE AN
ORIGIN?
**************
1)112 ;**;[1204] Change @ RWORD8-1L JNG 14-Jun-79
1) ADD T1,T2 ;[1204] COMPUTE FULL-WORD RESULT
****
2)118 ADD T1,T2 ;[1204] COMPUTE FULL-WORD RESULT
**************
1)112 ;**;[1174] Replace @R.ERR+1L DZN 1-Jun-79
1) E$$SRP::.ERR. (MS,.EC,V%L,L%F,S%F,SRP,</SET: switch required f
or psect >) ;[1174]
****
2)118 E$$SRP::.ERR. (MS,.EC,V%L,L%F,S%F,SRP,</SET: switch required f
or psect >) ;[1174]
**************
1)113 ;**;[1174] Replace @ILIERR DZN 1-Jun-79
1) E$$RBS::.ERR. (MS,.EC,V%L,L%F,S%F,RBS,<REL block type >) ;[117
4]
****
2)119 E$$RBS::.ERR. (MS,.EC,V%L,L%F,S%F,RBS,<REL block type >) ;[117
4]
**************
1)113 OLDLIT:
1) END
****
2)120 SUBTTL THE END
2) OLDLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 852
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 1519 09-Jul-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 1353 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 9-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKOV1
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKLOD,LNKWLD,LNKOV2
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKOV1
2) EXTERN LNKLOD,LNKWLD,LNKOV2
**************
1)1 DECEVR==1214 ;DEC EDIT VERSION
1) VERSION
1) ;LOCAL ACC DEFINITIONS
1) R=:R1 ;CURRENT RELOCATION COUNTER
1) SALL
1) SEGMENT
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITIONS
2) R=:R1 ;CURRENT RELOCATION COUNTER
2)2 SUBTTL REVISION HISTORY
**************
1)3 SUBTTL ENTRY POINT
1) LNKOV1: JFCL .+1 ;NORMAL ENTRY
1) JRST LNKLOD ;
1) ;IOWD FOR PREAMBLE SECTION
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL ENTRY POINT
2) LNKOV1: JFCL .+1 ;NORMAL ENTRY
2) JRST LNKLOD
2) ;IOWD FOR PREAMBLE SECTION
**************
1)4 SUBTTL OVERLAY SWITCHES
1) .OVERLAY::
****
Digital Equipment Corporation 28-AUG-79 Page 853
PCO Log Report
2)5 SUBTTL SWITCH ACTION -- /OVERLAY:key
2) .OVERLAY::
**************
1)5 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.OVRLA'] ;ENTRY POINT
****
2)6 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.OVRLA'] ;ENTRY POINT
**************
1)5 XALL
1) KEYWORDS
1) SALL
1)6 %LINK::
****
2)7 XALL
2) KEYWORDS
2) SALL
2)8 SUBTTL SWITCH ACTION -- /LINK:name
2) %LINK::
**************
1)6 ;**;[1174] Replace @LNKLNA+1L DZN 1-Jun-79
1) E$$LNA::.ERR. (MS,.EC,V%L,L%W,S%W,LNA,<Link name >) ;[1174]
****
2)8 E$$LNA::.ERR. (MS,.EC,V%L,L%W,S%W,LNA,<Link name >) ;[1174]
**************
1)6 %ARSIZE::
****
2)9 SUBTTL SWITCH ACTION -- /ARSIZE:n, /NOENTRY:sym, /NOREQUIRE:sym
2) %ARSIZE::
**************
1)7 ;**;[1174] Replace @.NOENTRY+4L DZN 3-Jun-79
1) JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
****
2)9 JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
**************
1)7 ;**;[1174] Replace @.NOREQUEST+4L DZN 3-Jun-79
1) JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
****
2)9 JRST E$$ZSV## ;[1174] ZERO IS ILLEGAL
**************
1)7 %PLOT::
****
2)10 SUBTTL SWITCH ACTION -- /PLOT:(INCHES:n,LEAVES:n,STEPS:n), /REG
ION, /SPACE:n
2) %PLOT::
**************
1)7 ;**;[1174] Replace @%REGION+2L DZN 1-Jun-79
1) E$$MRN::.ERR. (MS,0,V%L,L%I,S%I,MRN,<Multiple regions not yet
implemented>) ;[1174]
Digital Equipment Corporation 28-AUG-79 Page 854
PCO Log Report
****
2)10 E$$MRN::.ERR. (MS,0,V%L,L%I,S%I,MRN,<Multiple regions not yet
implemented>) ;[1174]
**************
1)8 %REQUEST::
****
2)11 SUBTTL LINK SWITCHES -- /REQUEST
2) %REQUEST::
**************
1)10 MOVX W1,PT.SGN!PT.SYM ;
1) SETZ W3,
****
2)13 MOVX W1,PT.SGN!PT.SYM
2) SETZ W3,
**************
1)10 SETZ W3, ;
1) PUSHJ P,TRYSYM ;IT MUST BE THERE OR OVRLAY
****
2)13 SETZ W3,
2) PUSHJ P,TRYSYM ;IT MUST BE THERE OR OVRLAY
**************
1)10 ;**;[1174] Replace @LNKT0+8L DZN 1-Jun-79
1) JRST E$$FSN ;[1174] OVRLAY NEEDS IT, MUST BE
THERE
1) MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.OVRLA'] ;NEED TO KNOW WHERE IT IS
****
2)13 JRST E$$FSN ;[1174] OVRLAY NEEDS IT, MUST BE
THERE
2) MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.OVRLA'] ;NEED TO KNOW WHERE IT IS
**************
1)10 ;**;[1174] Replace @LNKT0+13L DZN 1-Jun-79
1) JRST E$$OHN ;[1174] MUST BE THERE
****
2)13 JRST E$$OHN ;[1174] MUST BE THERE
**************
1)10 ;**;[1174] Replace @LNKT0+20L DZN 1-Jun-79
1) JRST E$$OHN ;[1174]
****
2)13 JRST E$$OHN ;[1174]
**************
1)11 ;**;[1201] Replace @ LNKT0A+2L JNG 13-Jun-79
1) CAIE T2,$SSGNONE ;[1201] USER SAYS NO?
****
2)14 CAIE T2,$SSGNONE ;[1201] USER SAYS NO?
**************
1)11 ;**;[1172] Replace @ LNKT0A+5L JNG 5-Jun-79
1) JRST LNKT0C] ;[1172] CONTINUE
Digital Equipment Corporation 28-AUG-79 Page 855
PCO Log Report
****
2)14 JRST LNKT0C] ;[1172] CONTINUE
**************
1)11 ;**;[1201] Insert @ LNKT0B+9L JNG 13-Jun-79
1) MOVEI T2,$SSGLOW ;[1201] SYMBOLS IN LOW SEG INDEX
****
2)14 MOVEI T2,$SSGLOW ;[1201] SYMBOLS IN LOW SEG INDEX
**************
1)12 MOVX W1,PT.SGN!PT.SYM ;
1) MOVE W2,['.OVRLO']
****
2)15 MOVX W1,PT.SGN!PT.SYM
2) MOVE W2,['.OVRLO']
**************
1)12 ;**;[1174] Replace @LNKT0B+21L DZN 1-Jun-79
1) JRST E$$OHN ;[1174]
****
2)15 JRST E$$OHN ;[1174]
**************
1)14 ;**;[1172] Delete @ LNKT1B JNG 5-Jun-79
1) LNKT1B: SKIPN T1,HL.S1 ;GET CURRENT HIGHEST LOC
****
2)17 LNKT1B: SKIPN T1,HL.S1 ;GET CURRENT HIGHEST LOC
**************
1)17 ;**;[1204] Insert @ LNKT4A+8L JNG 14-Jun-79
1) CAMLE T1,[1,,0] ;[1204] STILL IN BOUNDS?
****
2)20 CAMLE T1,[1,,0] ;[1204] STILL IN BOUNDS?
**************
1)18 ;**;[1174] Replace @LNKT4G+6L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)21 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)20 ;**;[1214] Replace @LNKT5+6L DZN 9-Jul-79
1) LSH T1,-.DBS2W ;[1214] WORDS TO BLOCKS
****
2)23 LSH T1,-.DBS2W ;[1214] WORDS TO BLOCKS
**************
1)21 ;**;[1174] Replace @LNKT5H+6L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)24 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)22 HRLI T3,1(T3) ;
1) HRRI T3,2(T3) ;FORM BLT PTR
1) SETZM -1(T3) ;
1) BLT T3,@LS.UB ;TO CLEAR ALL EXCESS CORE
****
Digital Equipment Corporation 28-AUG-79 Page 856
PCO Log Report
2)25 HRLI T3,1(T3)
2) HRRI T3,2(T3) ;FORM BLT PTR
2) SETZM -1(T3)
2) BLT T3,@LS.UB ;TO CLEAR ALL EXCESS CORE
**************
1)23 ;**;[1174] Replace @LNKT6+23L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174]
****
2)26 PUSHJ P,E$$OOV## ;[1174]
**************
1)26 ;**;[1174] Replace @LNKT6Z+17L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174]
****
2)29 PUSHJ P,E$$OOV## ;[1174]
**************
1)28 ;**;[1205] Replace @ LNKT7+8L JNG 14-Jun-79
1) ADDI T1,1 ;[1205] SIZE REQUIRED
****
2)31 ADDI T1,1 ;[1205] SIZE REQUIRED
**************
1)28 ;**;[1174] Replace @LNKT7+19L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)31 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)28 ;**;[1174] Replace @LNKT8+5L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)31 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)34 ;**;[1174] Replace @LNKZB1+1P1L DZN 1-Jun-79
1) E$$ELN::.ERR. (MS,.EC,V%L,L%I6,S%I,ELN,<End of>) ;[1174]
****
2)37 E$$ELN::.ERR. (MS,.EC,V%L,L%I6,S%I,ELN,<End of>) ;[1174]
**************
1)34 ;**;[1152] Replace @ LNKZA+5L JNG 3-Apr-79
1) MOVEM T1,RC.HL(R) ;[1152] AND AS NEW FIRST FREE
****
2)37 MOVEM T1,RC.HL(R) ;[1152] AND AS NEW FIRST FREE
**************
1)36 ;**;[1174] Replace @LKSTER DZN 3-Jun-79
1) LKSTER: PUSHJ P,E$$USA## ;[1174] UNDEFINED MESSAGE
****
2)39 LKSTER: PUSHJ P,E$$USA## ;[1174] UNDEFINED MESSAGE
**************
1)37 MOVEM T1,IO.CHN ;
1) PUSHJ P,DVNAM.## ;SET UP OUTPUT NAME
1) PUSHJ P,DVSUP.## ;DETERMINE STRUCTURE
1) ;**;[1174] Replace @OC.OPN+22L DZN 30-May-79
Digital Equipment Corporation 28-AUG-79 Page 857
PCO Log Report
1) PJRST E$$OFS ;[1174] DEV IS NOT A DSK, DIE
****
2)40 MOVEM T1,IO.CHN
2) PUSHJ P,DVNAM.## ;SET UP OUTPUT NAME
2) PUSHJ P,DVSUP.## ;DETERMINE STRUCTURE
2) PJRST E$$OFS ;[1174] DEV IS NOT A DSK, DIE
**************
1)37 ;**;[1174] Replace @OC.OPN+37L DZN 30-May-79
1) JRST E$$EOV ;[1174] FAILED
1) POPJ P,
1) ;**;[1174] Replace @ER.EOV DZN 30-May-79
1) E$$OFS::.ERR. (MS,0,V%M,L%F,S%F,OFS,<Overlay file must be crea
ted on a file structure>) ;[1174]
****
2)40 JRST E$$EOV ;[1174] FAILED
2) POPJ P,
2) E$$OFS::.ERR. (MS,0,V%M,L%F,S%F,OFS,<Overlay file must be crea
ted on a file structure>) ;[1174]
**************
1)38 SUBTTL RESET SWITCH
1) %NODE::
****
2)41 SUBTTL SWITCH ACTION -- /NODE:name
2) %NODE::
**************
1)38 ;**;[1174] Replace @%RESET+6L DZN 1-Jun-79
1) E$$LSM::.ERR. (MS,.EC,V%L,L%W,S%W,LSM,</LINK switch mi
ssing while loading link number >) ;[1174]
1) .ETC. (DEC,.EC!.EP,,,,P2) ;LINK NUM
1) .ETC. (STR,,,,,,< -- assumed>) ;
1) PUSHJ P,SYSLB1## ;SEARCH LIBRARIES
****
2)41 E$$LSM::.ERR. (MS,.EC,V%L,L%W,S%W,LSM,</LINK switch mi
ssing while loading link number >) ;[1174]
2) .ETC. (DEC,.EC!.EP,,,,P2) ;LINK NUM
2) .ETC. (STR,,,,,,< -- assumed>)
2) PUSHJ P,SYSLB1## ;SEARCH LIBRARIES
**************
1)38 ;**;[1174] Replace @RSTA+3L DZN 1-Jun-79
1) JRST E$$LNL ;[1174] NO
****
2)41 JRST E$$LNL ;[1174] NO
**************
1)41 ;**;[1174] Replace @RST2A+2L DZN 1-Jun-79
1) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
****
2)44 PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
**************
1)41 ;**;[1174] Replace @RST2B+15L DZN 1-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 858
PCO Log Report
1) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
****
2)44 PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
**************
1)43 ;**;[1174] Replace @RST3H+12L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)46 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)44 ;**;[1174] Replace @RST3J+6L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)47 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)45 ;**;[1174] Replace @RSTN+2L DZN 1-Jun-79
1) JRST E$$NBR ;[1174] YES - ERROR
****
2)48 JRST E$$NBR ;[1174] YES - ERROR
**************
1)45 ;**;[1174] Replace @RSTL+1L DZN 1-Jun-79
1) JUMPE T1,E$$LNN ;[1174] ERROR
****
2)48 JUMPE T1,E$$LNN ;[1174] ERROR
**************
1)45 ;**;[1174] Replace @RSTLE DZN 1-Jun-79
1) E$$LNN::.ERR. (MS,.EC,V%L,L%W,S%W,LNN,<Link name >) ;[1174]
****
2)48 E$$LNN::.ERR. (MS,.EC,V%L,L%W,S%W,LNN,<Link name >) ;[1174]
**************
1)45 ;**;[1174] Replace @RSTNE DZN 1-Jun-79
1) E$$LNL::.ERR. (MS,.EC,V%L,L%W,S%W,LNL,<Link number >) ;[1174]
****
2)48 E$$LNL::.ERR. (MS,.EC,V%L,L%W,S%W,LNL,<Link number >) ;[1174]
**************
1)45 ;**;[1174] Replace @RSTRPR DZN 1-Jun-79
1) E$$NBR::.ERR. (MS,,V%L,L%F,S%F,NBR,<Attempt to position to nod
e before the root>) ;[1174]
****
2)48 E$$NBR::.ERR. (MS,,V%L,L%F,S%F,NBR,<Attempt to position to nod
e before the root>) ;[1174]
**************
1)46 ;**;[1174] Replace @RST01+6L DZN 1-Jun-79
1) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
****
2)49 PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
**************
1)47 ;**;[1174] Replace @RST06+8L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)50 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
Digital Equipment Corporation 28-AUG-79 Page 859
PCO Log Report
1)50 ;**;[1174] Replace @BKPBRN+3L DZN 1-Jun-79
1) JRST E$$NBR ;[1174] ERROR
****
2)53 JRST E$$NBR ;[1174] ERROR
**************
1)50 AOBJN T1,.-2 ;
1) SUBI T1,1 ;NO SPACE, SO BACKUP
****
2)53 AOBJN T1,.-2
2) SUBI T1,1 ;NO SPACE, SO BACKUP
**************
1)50 ;**;[1174] Replace @DLTBRN+13L DZN 1-Jun-79
1) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
****
2)53 PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
**************
1)51 ;**;[1174] Replace @TRYBG1+8L DZN 1-Jun-79
1) PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
****
2)54 PUSHJ P,E$$LNM## ;[1174] MUST BE IN MEMORY
**************
1)53 MOVX T1,S.SYM!S.LST!S.RBG ;
1) MOVEM T1,1(T2) ;STORE NEW TRIPLET
****
2)56 MOVX T1,S.SYM!S.LST!S.RBG
2) MOVEM T1,1(T2) ;STORE NEW TRIPLET
**************
1)59 ;**;[1174] Replace @LNKOHN DZN 1-Jun-79
1) E$$OHN::.ERR. (MS,,V%L,L%F,S%F,OHN,<Overlay handler not loaded
>) ;[1174]
1) E$$FSN::.ERR. (MS,,V%L,L%F,S%F,FSN,<FUNCT. subroutine not load
ed>) ;[1174]
1) OV1LIT:
1) END LNKOV1
****
2)62 E$$OHN::.ERR. (MS,,V%L,L%F,S%F,OHN,<Overlay handler not loaded
>) ;[1174]
2) E$$FSN::.ERR. (MS,,V%L,L%F,S%F,FSN,<FUNCT. subroutine not load
ed>) ;[1174]
2)63 SUBTTL THE END
2) OV1LIT: END LNKOV1
**************
Digital Equipment Corporation 28-AUG-79 Page 860
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV2.MAC[30,4507] created: 1540 13-Jun-1979
File 2) LINK:LNKOV2.MAC[10,645063] created: 1625 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 13-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKOV2
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKMAP,LNKXIT
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKOV2
2) EXTERN LNKMAP,LNKXIT
**************
1)1 DECEVR==1201 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)3 SUBTTL DEFINITIONS
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL DEFINITIONS
**************
1)4 ;**;[1174] Replace @LNKOV2+1L DZN 1-Jun-79
1) E$$OS2::.ERR. (MS,,V%L,L%I,S%I,OS2,<Overlay segment phase 2>)
;[1174]
1) MOVE T1,SYMSEG ;GET /SYMSEG VALUE
1) ;**;[1201] Replace @ E$$OS2+2L JNG 13-Jun-79
1) CAIE T1,$SSGNONE ;[1201] USER SAY NO?
****
2)4 E$$OS2::.ERR. (MS,,V%L,L%I,S%I,OS2,<Overlay segment phase 2>)
;[1174]
2) MOVE T1,SYMSEG ;GET /SYMSEG VALUE
2) CAIE T1,$SSGNONE ;[1201] USER SAY NO?
**************
1)9 MOVX T3,PT.EXT ;
1) IORB T3,EI.FLG-EI.LEN(T4) ;SET LAST BLOCK EXTENDED
****
Digital Equipment Corporation 28-AUG-79 Page 861
PCO Log Report
2)9 MOVX T3,PT.EXT
2) IORB T3,EI.FLG-EI.LEN(T4) ;SET LAST BLOCK EXTENDED
**************
1)11 ;**;[1174] Replace @OVR6C+2L DZN 1-Jun-79
1) JRST E$$USC ;[1174]
****
2)11 JRST E$$USC ;[1174]
**************
1)11 ;**;[1174] Replace @OVR6C+13L DZN 1-Jun-79
1) PUSHJ P,E$$LNM##] ;[1174] BUT!!!
****
2)11 PUSHJ P,E$$LNM##] ;[1174] BUT!!!
**************
1)12 ;**;[1174] Replace @OVR6CU DZN 1-Jun-79
1) E$$USC::.ERR. (MS,.EC,V%L,L%F,S%W,USC,<Undefined subroutine >)
;[1174]
****
2)12 E$$USC::.ERR. (MS,.EC,V%L,L%F,S%W,USC,<Undefined subroutine >)
;[1174]
**************
1)12 ;**;[1174] Replace @OVR6CN+1L DZN 1-Jun-79
1) E$$SNP::.ERR. (MS,.EC,V%L,L%W,S%W,SNP,<Subroutine >) ;[1174]
****
2)12 E$$SNP::.ERR. (MS,.EC,V%L,L%W,S%W,SNP,<Subroutine >) ;[1174]
**************
1)13 ;**;[1174] Replace @OVR6M+8L DZN 1-Jun-79
1) PUSHJ P,E$$LNM##] ;[1174] BUT!
****
2)13 PUSHJ P,E$$LNM##] ;[1174] BUT!
**************
1)13 JRST OVR6MA ;
1) OVR6MZ: MOVE P1,P4 ;UNIQUE SYMBOL
****
2)13 JRST OVR6MA
2) OVR6MZ: MOVE P1,P4 ;UNIQUE SYMBOL
**************
1)14 JRST OVR6MD ;
1) OVR6MF: SUB R2,LC.LB ;CORE MIGHT MOVE
****
2)14 JRST OVR6MD
2) OVR6MF: SUB R2,LC.LB ;CORE MIGHT MOVE
**************
1)15 ;**;[1174] Replace @OVR6MG+27L DZN 1-Jun-79
1) E$$ARL::.ERR. (MS,.EC,V%L,L%W,S%W,ARL,<Ambiguous request in>)
;[1174]
****
2)15 E$$ARL::.ERR. (MS,.EC,V%L,L%W,S%W,ARL,<Ambiguous request in>)
;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 862
PCO Log Report
1)18 ;**;[1174] Replace @OVR6FC+3L DZN 1-Jun-79
1) E$$TMA::.ERR. (MS,.EC,V%L,L%F,S%W,TMA,<Too many ambiguous requ
ests in>) ;[1174]
****
2)18 E$$TMA::.ERR. (MS,.EC,V%L,L%F,S%W,TMA,<Too many ambiguous requ
ests in>) ;[1174]
**************
1)20 ;**;[1174] Replace @OVR6GC+15L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)20 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)21 ;**;[1174] Replace @OVR6H+28L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] THIS IS AN OUTPUT ERROR
1)22 ;**;[1172] Add comment @OVR6H+1P JNg 5-Jun-79
1) ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
****
2)21 PUSHJ P,E$$OOV## ;[1174] THIS IS AN OUTPUT ERROR
2)22 ;HERE TO CHECK IF SYMBOLS NEEDED, AND READ THEM IN IF SO.
**************
1)22 ;**;[1172] Delete @OVR6S+6L JNG 5-Jun-79
1) USETI OC,(T1) ;SET ON SYMBOL BLOCK
****
2)22 USETI OC,(T1) ;SET ON SYMBOL BLOCK
**************
1)22 ;**;[1174] Replace @OVR6S1+17L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] ERROR
****
2)22 PUSHJ P,E$$IOV## ;[1174] ERROR
**************
1)22 ;**;[1172] Delete @ OVR6S1+21L JNG 5-Jun-79
1)23 ;NOW FOR LC AREA
****
2)23 ;NOW FOR LC AREA
**************
1)23 ;**;[1172] Delete @ OVR6S1+1P12L JNG 5-Jun-79
1) MOVE P3,PH.ADD ;SYMBOL TABLE STARTS AT REL 0
****
2)23 MOVE P3,PH.ADD ;SYMBOL TABLE STARTS AT REL 0
**************
1)23 ;**;[1172] Insert @ OVR6L JNG 5-Jun-79
1) OVR6L: PUSHJ P,LSOVX## ;[1172] INITIALIZE LNKXIT FOR LS
LOOP CALL
****
2)23 OVR6L: PUSHJ P,LSOVX## ;[1172] INITIALIZE LNKXIT FOR LS
LOOP CALL
**************
1)23 SUB T2,TAB.LB(R) ;
1) MOVN T1,T2 ;- LENGTH OF SYMBOLS
Digital Equipment Corporation 28-AUG-79 Page 863
PCO Log Report
****
2)23 SUB T2,TAB.LB(R)
2) MOVN T1,T2 ;- LENGTH OF SYMBOLS
**************
1)23 ;**;[1174] Replace @OVR6L+16L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] FAILED
****
2)23 PUSHJ P,E$$OOV## ;[1174] FAILED
**************
1)24 ;**;[1174] Replace @OVR6R+18L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] ERROR
****
2)24 PUSHJ P,E$$OOV## ;[1174] ERROR
**************
1)25 ;**;[1174] Replace @OVR6Z+2L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)25 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)25 ;**;[1174] Replace @OVR6X+18L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174]
****
2)25 PUSHJ P,E$$IOV## ;[1174]
**************
1)25 ;**;[1174] Replace @OVR6X+25L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174]
****
2)25 PUSHJ P,E$$OOV## ;[1174]
**************
1)26 ;**;[1174] Replace @OVR7+2L DZN 1-Jun-79
1) E$$ABT::.ERR. (MS,.EC,V%L,L%F,S%F,ABT,<Load aborted due to %LN
KTMA errors, max. /ARSIZE: needed was >) ;[1174]
****
2)26 E$$ABT::.ERR. (MS,.EC,V%L,L%F,S%F,ABT,<Load aborted due to %LN
KTMA errors, max. /ARSIZE: needed was >) ;[1174]
**************
1)26 ;**;[1174] Replace @OVR7C+10L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)26 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)26 ;**;[1174] Replace @OVR7C+18L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
****
2)26 PUSHJ P,E$$OOV## ;[1174] OUTPUT ERROR
**************
1)27 ;**;[1174] Replace @OVR7B+4L DZN 1-Jun-79
1) PUSHJ P,E$$OOV## ;[1174] ERROR
****
Digital Equipment Corporation 28-AUG-79 Page 864
PCO Log Report
2)27 PUSHJ P,E$$OOV## ;[1174] ERROR
**************
1)27 IFN FTEXE,< MOVSI T2,'EXE'> ;
1) IFE FTEXE,< MOVSI T2,'HGH'> ;ASSUME NOT SHAREABLE
****
2)27 IFN FTEXE,< MOVSI T2,'EXE'>
2) IFE FTEXE,< MOVSI T2,'HGH'> ;ASSUME NOT SHAREABLE
**************
1)29 ;**;[1174] Replace @OVR8A+23L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] ERROR
****
2)29 PUSHJ P,E$$IOV## ;[1174] ERROR
**************
1)30 ;**;[1174] Replace @RDCST+18L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)30 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)30 IMUL T2,[-2] ;
1) ADD T1,T2 ;TOTAL NO. WE NEED
****
2)30 IMUL T2,[-2]
2) ADD T1,T2 ;TOTAL NO. WE NEED
**************
1)31 ;**;[1174] Replace @CPOPJ1+1L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)31 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)31 ;**;[1174] Replace @INPH+10L DZN 1-Jun-79
1) PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
****
2)31 PUSHJ P,E$$IOV## ;[1174] INPUT ERROR
**************
1)32 ;**;[1174] Replace @RDREL1+5L DZN 1-Jun-79
1) PJRST E$$IOV## ;[1174] I/O ERROR
1)33 OV2LIT:
1) END LNKOV2
****
2)32 PJRST E$$IOV## ;[1174] I/O ERROR
2)33 SUBTTL THE END
2) OV2LIT: END LNKOV2
**************
Digital Equipment Corporation 28-AUG-79 Page 865
PCO Log Report
[FILCOM]
File 1) LINK:LNKOVS.MAC[30,4507] created: 1659 10-Jun-1979
File 2) LINK:LNKOVS.MAC[10,645063] created: 1626 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY TR.WLK
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY TR.WLK
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
**************
1)3 SUBTTL TREE WALK ROUTINE
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL TREE WALK ROUTINE
**************
1)7 ;**;[1174] Replace @ER.IOV DZN 1-Jun-79
1) E$$IOV::PUSH P,[OC] ;[1174]
****
2)7 E$$IOV::PUSH P,[OC] ;[1174]
**************
1)7 END
****
2)8 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 866
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 2215 08-Jul-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 1344 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 5-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 25-Jul-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) SEARCH MACTEN,UUOSYM,SCNMAC ;[731] SEARCH C.MAC SYMBOL TABLE
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH MACTEN,UUOSYM,SCNMAC
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1213 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)1 SALL
1)2 SUBTTL CONDITIONAL ASSEMBLY SWITCHES
****
2)2 SUBTTL CONDITIONAL ASSEMBLY SWITCHES
**************
1)3 ;**;[1172] Delete @ .OVPSP JNG 5-Jun-79
1) ND LN.OVL,^D128*^D10*2 ;MAX. NO. OF OVERLAYS ALLOWED
****
2)3 ND LN.OVL,^D128*^D10*2 ;MAX. NO. OF OVERLAYS ALLOWED
**************
1)3 ;**;[1172] Delete @ .FRESP JNG 5-Jun-79
1)4 SUBTTL REVISION HISTORY
****
2)4 SUBTTL REVISION HISTORY
**************
1)6 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)6 ;1217 Clean up the listings for release.
2)7 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
1)12 ;**;[1213] Insert @ FS.FXC+1L JNG 5-Jul-79
1) FS.MDC==:1B15 ;[1213] MULTIPLE PARTIAL DEFINITION FIXU
P
****
Digital Equipment Corporation 28-AUG-79 Page 867
PCO Log Report
2)13 FS.MDC==:1B15 ;[1213] MULTIPLE PARTIAL DEFINITION FIXU
P
**************
1)14 ;**;[1203] Replace @ PROCESSORS macro JNG 14-Jun-79
1) DEFINE PROCESSORS<
****
2)15 DEFINE PROCESSORS<
**************
1)14 ;**;[1203] Change @ X macro JNG 14-Jun-79
1) DEFINE X (A,B,C)<
****
2)15 DEFINE X (A,B,C)<
**************
1)15 ;**;[1120] Replace @ CPUS definitions DZN 22-Sep-78
1) ;CPU TYPES. FIRST ARGUMENT TO INTERNAL X MACRO IS THE NAME AS
****
2)16 ;CPU TYPES. FIRST ARGUMENT TO INTERNAL X MACRO IS THE NAME AS
**************
1)16 ;**;[1132] Insert @ AT.RP definition +1L JNG 30-Jan-7
9
1) AT.PS==:1B1 ;[1132] PSECT SEEN (IN THIS MODULE)
****
2)17 AT.PS==:1B1 ;[1132] PSECT SEEN (IN THIS MODULE)
**************
1)18 I.PTH==:I.ZER+LN.OPN+LN.RIB ;
1) I.ARG==:I.PTH+.PTFCN ;
1) I.SSW==:I.PTH+.PTSWT ;
1) I.UFD==:I.PTH+.PTPPN ;
1) I.SFD==:I.UFD+1 ;FIRST SFD
1) I.END==:I.UFD+LN.DRB ;
1) LN.SFD==:I.END-I.PTH+1 ;
1) LN.IO==:LN.OPN+LN.RIB+LN.SFD ;TOTAL LENGTH REQUIRED
1)19 SUBTTL DATA BLOCK FORMAT FOR REQUEST/REQUIRE BLOCKS
1) R.NXT==:0 ;POINTER TO THE NEXT BLOCK
****
2)19 I.PTH==:I.ZER+LN.OPN+LN.RIB
2) I.ARG==:I.PTH+.PTFCN
2) I.SSW==:I.PTH+.PTSWT
2) I.UFD==:I.PTH+.PTPPN
2) I.SFD==:I.UFD+1 ;FIRST SFD
2) I.END==:I.UFD+LN.DRB
2) LN.SFD==:I.END-I.PTH+1
2) LN.IO==:LN.OPN+LN.RIB+LN.SFD ;TOTAL LENGTH REQUIRED
2)20 SUBTTL DATA BLOCK FORMAT FOR REQUEST/REQUIRE BLOCKS
2) R.NXT==:0 ;POINTER TO THE NEXT BLOCK
**************
1)22 ;**;[1112] Insert @ IOR. definition under IFN TOPS20 JNG
15-Aug-78
1) OPDEF ADD. [ADDI] ;[1112] IMMEDIATE MODE
Digital Equipment Corporation 28-AUG-79 Page 868
PCO Log Report
****
2)23 OPDEF ADD. [ADDI] ;[1112] IMMEDIATE MODE
**************
1)22 ;**;[1112] Insert @ IOR. definition under IFE TOPS20 JNG
15-Aug-78
1) OPDEF ADD. [ADD] ;[1112] FROM MEMORY
****
2)23 OPDEF ADD. [ADD] ;[1112] FROM MEMORY
**************
1)26 ZZH.==<L-F+2>/2 ;
1) ZZT.==ZZH.+ZZ. ;
1) REPEAT ZZH.,<
1) PTYPE (\ZZT.,\ZZ.) ;
1) ZZ.==ZZ.+1
1) ZZT.==ZZT.+1 ;
1) >>
****
2)27 ZZH.==<L-F+2>/2
2) ZZT.==ZZH.+ZZ.
2) REPEAT ZZH.,<
2) PTYPE (\ZZT.,\ZZ.)
2) ZZ.==ZZ.+1
2) ZZT.==ZZT.+1
2) >>
**************
1)28 ;**;[1144] Replace .ERR. macro DZN 16-Feb-79
1) ;.ERR. MACRO GENERATES USUAL CALLS TO ERROR/LOG MODULE. GENERAL
FORM IS:
****
2)29 ;.ERR. MACRO GENERATES USUAL CALLS TO ERROR/LOG MODULE. GENERAL
FORM IS:
**************
1)29 ;**;[1202] Replace @ .OERR. JNG 14-Jun-79
1) IFE TOPS20,<
****
2)30 IFE TOPS20,<
**************
1)30 ;;**;[1174] Replace in .ETC. macro DZN 3-Jun-79
1) IFIDN <TYP><STR>,< ;;[1174]
****
2)31 IFIDN <TYP><STR>,< ;;[1174]
**************
1)32 ;**;[1144] Replace @B%VER-1L DZN 16-Feb-79
1) ; 0 5 67 8 12 13 17 18 35
****
2)33 ; 0 5 67 8 12 13 17 18 35
**************
1)32 ;**;[1174] Insert before S%I DZN 29-May-79
1) S%D==:0 ;[1174] DEFERRED (SEVERITY DEPENDS ON LO
Digital Equipment Corporation 28-AUG-79 Page 869
PCO Log Report
OKUP/ENTER CODE)
****
2)33 S%D==:0 ;[1174] DEFERRED (SEVERITY DEPENDS ON LO
OKUP/ENTER CODE)
**************
1)32 ;**;[1174] Insert before L%I DZN 29-May-79
1) L%D==:0 ;[1174] DEFERRED (LEVEL DEPENDS ON LOOKU
P/ENTER CODE)
****
2)33 L%D==:0 ;[1174] DEFERRED (LEVEL DEPENDS ON LOOKU
P/ENTER CODE)
**************
1)32 ;**;[1144] Delete @L%F+2L DZN 16-Feb-79
1) DEFINE LEVELS (ITEM,LEVEL)<
****
2)33 DEFINE LEVELS (ITEM,LEVEL)<
**************
1)32 ;**;[1144] Delete @.EP-1L DZN 16-Feb-79
1) %ENT==1B0 ;ENTER ERROR
****
2)33 %ENT==1B0 ;ENTER ERROR
**************
1)34 ;;**;[1117] Insert before /NOINITIAL switch in SWTCHS macro
DZN 14-Sep-78
1) SWMAC SS,NOINCLUDE,,0,,3,.;; ;[1117] TURN OFF STICKY
/INCLUDE
****
2)35 SWMAC SS,NOINCLUDE,,0,,3,.;; ;[1117] TURN OFF STICKY
/INCLUDE
**************
1)34 SWMAC SL,SYFILE,,SYMK,1,3;; ;
1) ;**;[1201] Change @ /SYMSEG in SWMAC JNG 13-Jun-79
1) SWMAC SL,SYMSEG,,SSGK,2,4,.,,.SWSYM ;[1201]
****
2)35 SWMAC SL,SYFILE,,SYMK,1,3
2) SWMAC SL,SYMSEG,,SSGK,2,4,.,,.SWSYM ;[1201]
**************
1)34 SWMAC SL,TEST,,DEBK,1,3,.,*; ;
1) SWMAC SS,UNDEFINED,,0,,3,.,*
****
2)35 SWMAC SL,TEST,,DEBK,1,3,.,*
2) SWMAC SS,UNDEFINED,,0,,3,.,*
**************
1)34 ;;**;[1177] Change @ /VERSION switch JNG 12-Jun-79
1) SWMAC SP,VERSION,,.SWVER,SYM,3,.,* ;;[1177]
****
2)35 SWMAC SP,VERSION,,.SWVER,SYM,3,.,* ;;[1177]
**************
1)37 ;;**;[1203] Replace in KEYWORDS macro JNG 14-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 870
PCO Log Report
1) KEYMAC DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT^
_
****
2)38 KEYMAC DEB,<,MACRO,DDT,*FORTRAN,FORDDT,*COBOL,COBDDT,SAIL,SDDT^
_
**************
1)37 ;**;[1203] Replace in KEYWORDS macro JNG 14-Jun-79
1) KEYMAC LIB,<ANY,F40,COBOL,ALGOL,NELIAC,PL1,BLISS,SAIL,*FORTRAN,
MACRO^_
****
2)38 KEYMAC LIB,<ANY,F40,COBOL,ALGOL,NELIAC,PL1,BLISS,SAIL,*FORTRAN,
MACRO^_
**************
1)37 ;**;[1201] Replace @ SEG KEYMAC macro JNG 13-Jun-79
1) KEYMAC SEG,<LOW,HIGH,DEFAULT,NONE> ;[1201]
****
2)38 KEYMAC SEG,<LOW,HIGH,DEFAULT,NONE> ;[1201]
**************
1)38 ;;**;[1201] Replace in KEYMAC macro JNG 13-Jun-79
1) IFIDN <A><SSG>,<
****
2)39 IFIDN <A><SSG>,<
**************
1)39 ;**;[1203] Replace in X macro above $LIBDEFAULT JNG 14-Jun-7
9
1) DEFINE X (A,B,C)<
****
2)40 DEFINE X (A,B,C)<
**************
1)39 ;;**;[1203] Replace in X macro below $LIBDEFAULT JNG
14-Jun-79
1) $LIB'B==B'BIT
****
2)40 $LIB'B==B'BIT
**************
1)42 SUBTTL TEXEX JSYS
1) IFN TOPS20,<
****
2)43 SUBTTL TOPS-20 JSYS
2) IFN TOPS20,<
**************
1)42 END
****
2)44 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 100
PCO Log Report
[FILCOM]
File 1) LINK:LNKPLT.MAC[30,4507] created: 1700 10-Jun-1979
File 2) LINK:LNKPLT.MAC[10,645063] created: 1730 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKPLT,GETSON
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) CUSTVR==0 ;CUSTOMER VERSION
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKPLT,GETSON
2) CUSTVR==0 ;CUSTOMER VERSION
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SALL
1) SEGMENT
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL BLISS CONVENTIONS
****
2)2 ;1217 Clean up the listings for release.
2)3 SUBTTL BLISS CONVENTIONS
**************
1)3 EXP INCHES,LEAVES,STEPS ;
1) RELOC .-3 ;
1)4 SUBTTL DEFAULTS
****
2)3 EXP INCHES,LEAVES,STEPS
2) RELOC .-3
2)4 SUBTTL DEFAULTS
**************
1)5 ;**;[1174] Replace @LNKPLT+1L DZN 1-Jun-79
1) E$$POT::.ERR. (MS,0,V%L,L%I,S%I,POT,<Plotting overlay tree>) ;
[1174]
****
2)5 E$$POT::.ERR. (MS,0,V%L,L%I,S%I,POT,<Plotting overlay tree>) ;
[1174]
**************
1)5 ;**;[1113] Insert after LNKPLT+4L DZN 25-Aug-78
1) IFN TOPS20,< ;[1113] SHRINK THEN EXPAND TO SA
Digital Equipment Corporation 28-AUG-79 Page 101
PCO Log Report
ME SIZE ON TOPS-20
****
2)5 IFN TOPS20,< ;[1113] SHRINK THEN EXPAND TO SA
ME SIZE ON TOPS-20
**************
1)10 PLTLIT:
1) END
****
2)11 SUBTTL THE END
2) PLTLIT: END
**************
Digital Equipment Corporation 28-AUG-79 Page 102
PCO Log Report
[FILCOM]
File 1) LINK:LNKSCN.MAC[30,4507] created: 1743 11-Jun-1979
File 2) LINK:LNKSCN.MAC[10,645063] created: 1731 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKSCN
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) EXTERN LNKLOD,LNKCOR,LNKLOG,.TYOCH
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) SALL
2) ENTRY LNKSCN
2) EXTERN LNKLOD,LNKCOR,LNKLOG,.TYOCH
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) VERSION
1) SEGMENT
1) SALL
1)2 SUBTTL COMMUNICATION WITH SCAN
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
2)2 SUBTTL COMMUNICATION WITH SCAN
**************
1)4 SUBTTL INITIALIZE SCANNER
****
2)3 ;1217 Clean up the listings for release.
2)4 SUBTTL INITIALIZE SCANNER
**************
1)4 JRST (T1)] ;
1) ;**;[1174] Replace @LNKSCN+15L DZN 1-Jun-79
1) E$$SNL::.ERR. (MS,,V%L,L%I,S%I,SNL,<Scanning new command line>
) ;[1174]
****
2)4 JRST (T1)]
2) E$$SNL::.ERR. (MS,,V%L,L%I,S%I,SNL,<Scanning new command line>
) ;[1174]
**************
1)6 .ISBLK: 5,,.+1 ;
1) 0
1) OFFSET,,'LNK' ;
1) USRIN,,0
Digital Equipment Corporation 28-AUG-79 Page 103
PCO Log Report
1) 0
1) UPRMPT,,0 ;
1) .TSBLK: 9,,.+1
****
2)6 .ISBLK: 5,,.+1
2) 0
2) OFFSET,,'LNK'
2) USRIN,,0
2) 0
2) UPRMPT,,0
2) .TSBLK: 9,,.+1
**************
1)10 ;**;[1174] Replace @**somewhere**+1P6L DZN 1-Jun-79
1) PUSHJ P,E$$IST ;[1174] NO, ERROR IN SWITCH MACR
O
****
2)10 PUSHJ P,E$$IST ;[1174] NO, ERROR IN SWITCH MACR
O
**************
1)11 ;**;[1174] Replace @SWTERR DZN 1-Jun-79
1) E$$IST::.ERR. (MS,,V%L,L%F,S%F,IST,<Inconsistency in switch ta
ble>) ;[1174]
****
2)11 E$$IST::.ERR. (MS,,V%L,L%F,S%F,IST,<Inconsistency in switch ta
ble>) ;[1174]
**************
1)15 ;**;[1174] Replace @TXTERR DZN 1-Jun-79
1) E$$ITB::.ERR. (MS,.EC,V%L,L%F,S%F,ITB,<Invalid text in ASCII b
lock from file >) ;[1174]
****
2)15 E$$ITB::.ERR. (MS,.EC,V%L,L%F,S%F,ITB,<Invalid text in ASCII b
lock from file >) ;[1174]
**************
1)16 ;**;[1174] Replace @TXTKOM+6L DZN 1-Jun-79
1) JUMPE C,E$$ITB ;[1174] IF SCAN STILL WANTS MORE
, GIVE UP
****
2)16 JUMPE C,E$$ITB ;[1174] IF SCAN STILL WANTS MORE
, GIVE UP
**************
1)17 SUBTTL .INSUB - SPECIAL INPUT SUBROUTINES NOT YET IN SCAN
1) ;***COPYRIGHT (C) 1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.**
*
1) ENTRY .SYMSW,.SWSYM,.SYOSW,.SWSYO,.SXDSW,.SWSXD
****
2)17 SUBTTL .INSUB - SPECIAL INPUT SUBROUTINES NOT YET IN SCAN
2) ENTRY .SYMSW,.SWSYM,.SYOSW,.SWSYO,.SXDSW,.SWSXD
**************
1)18 ;**;[1167] Insert @ SYMS3 JNG 17-May-79
Digital Equipment Corporation 28-AUG-79 Page 104
PCO Log Report
1) SYMS3: JUMPE N,[CAIL C,"0" ;[1167] IF FIRST CHAR, IS IT A D
IGIT?
****
2)18 SYMS3: JUMPE N,[CAIL C,"0" ;[1167] IF FIRST CHAR, IS IT A D
IGIT?
**************
1)19 ;**;[1167] Remove label @ SYOS1 JNG 17-May-79
1) PUSHJ P,.TICAN## ;[1167] SEE IF CHARACTER IS ALPH
A-NUMERIC
****
2)19 PUSHJ P,.TICAN## ;[1167] SEE IF CHARACTER IS ALPH
A-NUMERIC
**************
1)19 ;**;[1167] Revamp @ SYOS1+8L JNG 17-May-79
1) POPJ P,] ;[1167] TERMINATOR
****
2)19 POPJ P,] ;[1167] TERMINATOR
**************
1)22 ;**;[1122] Replace @.SWVER DZN 5-Oct-78
1) ENTRY .SWVER ;[1122]
****
2)22 ENTRY .SWVER ;[1122]
**************
1)23 SUBTTL STORAGE DATA
1) SCNLIT:
1) END LNKSCN
****
2)23 SUBTTL THE END
2) SCNLIT: END LNKSCN
**************
Digital Equipment Corporation 28-AUG-79 Page 105
PCO Log Report
[FILCOM]
File 1) LINK:LNKSUB.MAC[30,4507] created: 1702 10-Jun-1979
File 2) LINK:LNKSUB.MAC[10,645063] created: 1736 25-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 10-Jun-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) SEARCH LNKLOW,LNKPAR
1) ENTRY NPRIME
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKLOW,LNKPAR
2) SALL
2) ENTRY NPRIME
**************
1)1 DECEVR==1174 ;DEC EDIT VERSION
1) SEGMENT
1) SALL
1)2 ;REVISION HISTORY
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2)2 ;REVISION HISTORY
**************
1)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
****
2)2 ;1217 Clean up the listings for release.
2)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
**************
1)3 ;**;[1174] Replace @NPRIME+4L DZN 1-Jun-79
1) JUMPE T1,E$$HTL ;[1174] NONE THERE (0 IS END MAR
KER)
****
2)3 JUMPE T1,E$$HTL ;[1174] NONE THERE (0 IS END MAR
KER)
**************
1)3 ;**;[1174] Replace @PRMERR DZN 1-Jun-79
1) E$$HTL::.ERR. (MS,0,V%L,L%F,S%F,HTL,<Symbol hash table too lar
ge>) ;[1174]
****
2)3 E$$HTL::.ERR. (MS,0,V%L,L%F,S%F,HTL,<Symbol hash table too lar
ge>) ;[1174]
**************
1)6 TITLE .TSUBS - TYPE OUT ROUTINES
1) SUBTTL D.M.NIXON/DMN/JBC 2-JUL-75
1) ;***COPYRIGHT (C) 1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.**
Digital Equipment Corporation 28-AUG-79 Page 106
PCO Log Report
*
1) SEARCH LNKLOW,LNKPAR,MACTEN,UUOSYM
1) CUSTVR==0 ;CUSTMER VERSIN
1) DECVER==2 ;DEC VERSION
1) DECMVR==2 ;DEC MINOR VERSION
1) DECEVR==363 ;DEC EDIT VERSION
1) SEGMENT
1) ENTRY .T6OCT,.TFOCT,.T6ZOC,.TDEP,.TOEP,.TSIXB
1) ;HERE TO OUTPUT OCTAL FULL WORD WITH LEADING BLANKS
****
2)6 TITLE .TSUBS - TYPE OUT ROUTINES
2) SUBTTL D.M.NIXON/DMN/JBC/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKLOW,LNKPAR,MACTEN,UUOSYM
2) SALL
2) ENTRY .T6OCT,.TFOCT,.T6ZOC,.TDEP,.TOEP,.TSIXB
2) SEGMENT
2)7 ;HERE TO OUTPUT OCTAL FULL WORD WITH LEADING BLANKS
**************
1)8 ;**;[1161] Insert @ .TOEP+7L JNG 4-May-79
1) ;TYPE SIXBIT WORD, BLANK FILLED
****
2)9 ;TYPE SIXBIT WORD, BLANK FILLED
**************
1)9 SUBTTL D.M.NIXON/DMN 22-MAR-74
1) ENTRY CS.LHS,CS.RHS
1) SEARCH LNKPAR
1) CS.LHS==(MOVEM W1,(P3))
****
2)10 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR
2) SALL
2) ENTRY CS.LHS,CS.RHS
2) CS.LHS==(MOVEM W1,(P3))
**************
1)10 TITLE LNK000 - DUMMY LINK
1) SUBTTL D.M.NIXON/DMN/DZN 8-Jun-79
1) ENTRY LINK ;[1174]
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)11 TITLE LNK000 - DUMMY LINK
Digital Equipment Corporation 28-AUG-79 Page 107
PCO Log Report
2) SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LINK ;[1174]
2) SEGMENT
**************
1)11 SUBTTL D.M.NIXON/DMN 24-OCT-72
1) ENTRY LNKSCN
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)12 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKSCN
2) SEGMENT
**************
1)12 SUBTTL D.M.NIXON/DMN 24-OCT-72
1) ENTRY LNKLOD
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)13 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKLOD
2) SEGMENT
**************
1)13 SUBTTL D.M.NIXON/DMN 27-OCT-72
1) ENTRY LNKMAP
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)14 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
Digital Equipment Corporation 28-AUG-79 Page 108
PCO Log Report
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKMAP
2) SEGMENT
**************
1)14 SUBTTL D.M.NIXON/DMN 24-OCT-72
1) ENTRY LNKXIT
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)15 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKXIT
2) SEGMENT
**************
1)15 SUBTTL D.M.NIXON/DMN 26-JULY-73
1) ENTRY LNKERR
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
1) SEGMENT
1) SALL
1) LNKERR:
****
2)16 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
2) SALL
2) ENTRY LNKERR
2) SEGMENT
2) LNKERR:
**************
1)16 SUBTTL D.M.NIXON/DMN 28-NOV-73
1) ENTRY LNKOV1
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)17 SUBTTL D.M.NIXON/DMN/DZN 29-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
Digital Equipment Corporation 28-AUG-79 Page 109
PCO Log Report
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKOV1
2) SEGMENT
**************
1)17 SUBTTL D.M.NIXON/DMN 28-NOV-73
1) ENTRY LNKOV2
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)18 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKOV2
2) SEGMENT
**************
1)18 SUBTTL D.M.NIXON/DMN 1-MAR-74
1) ENTRY LNKPLT
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
****
2)19 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKPLT
2) SEGMENT
**************
1)19 SUBTTL D.M.NIXON/DMN/JNG/DZN 8-Jun-79
1) SEARCH LNKPAR,LNKLOW
1) SEGMENT
1) SALL
1) DEFINE $LABEL (A)<
****
2)20 SUBTTL D.M.NIXON/DMN/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) SEGMENT
Digital Equipment Corporation 28-AUG-79 Page 110
PCO Log Report
2) DEFINE $LABEL (A)<
**************
1)19 ;**;[1174] Replace @ER.IOV-1L DZN 1-Jun-79
1) ENTRY E$$IOV ;[1174]
****
2)20 ENTRY E$$IOV ;[1174]
**************
1)19 ;**;[1174] Replace @RT.T2F+1L DZN 1-Jun-79
1) E$$ONS::.ERR. (MS,,V%L,L%W,S%I,ONS,<Overlays not supported in
this version of LINK>) ;[1174]
****
2)20 E$$ONS::.ERR. (MS,,V%L,L%W,S%I,ONS,<Overlays not supported in
this version of LINK>) ;[1174]
**************
1)20 SUBTTL D.M.NIXON/DMN 28-NOV-73
1) ENTRY TRY.BG
1) SEARCH LNKPAR
1) SEGMENT
****
2)21 SUBTTL D.M.NIXON/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR
2) SALL
2) ENTRY TRY.BG
2) SEGMENT
**************
1)21 SUBTTL D.M.NIXON/DMN/JNG/DZN 8-Jun-79
1) ENTRY LNKF40
****
2)22 SUBTTL D.M.NIXON/DMN/JNG/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW
2) SALL
2) ENTRY LNKF40
**************
1)21 SEARCH LNKPAR,LNKLOW
1) SEGMENT
1) SALL
1) LNKF40:
****
2)22 SEGMENT
2) LNKF40:
**************
Digital Equipment Corporation 28-AUG-79 Page 111
PCO Log Report
1)21 ;**;[1174] Replace @T.401+4L DZN 1-Jun-79
1) JRST E$$FOV## ;[1174] YES, GIVE BETTER
MESSAGE
****
2)22 JRST E$$FOV## ;[1174] YES, GIVE BETTER
MESSAGE
**************
Digital Equipment Corporation 28-AUG-79 Page 112
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 2234 29-Jun-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1101 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 29-Jun-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 25-Jul-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) ENTRY LNKWLD
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
1) IFN TOPS20,<SEARCH MACSYM,MONSYM>
1) EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP,TTYCHK
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM,SCNMAC
2) IFN TOPS20,<SEARCH MACSYM,MONSYM>
2) SALL
2) ENTRY LNKWLD
2) EXTERN LNKFIO,LNKCOR,LNKLOG,LNKMAP,TTYCHK
**************
1)1 DECEVR==1211 ;DEC EDIT VERSION
1) ;CALLING SEQUENCE
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) SEGMENT
2)2 ;CALLING SEQUENCE
**************
1)1 SEGMENT
1) SALL
1)2 SUBTTL REVISION HISTORY
****
2)3 SUBTTL REVISION HISTORY
**************
1)4 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
1) LNKWLD: SETZM NULSPC ;CLEAR NULL FILE SPEC FLAG
****
2)6 ;1217 Clean up the listings for release.
2)7 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
2) LNKWLD: SETZM NULSPC ;CLEAR NULL FILE SPEC FLAG
**************
1)7 ;**;[1174] Replace @LDFS1+2L DZN 30-May-79
1) PUSHJ P,E01FLE## ;[1174] GIVE ERROR MESSAGE
1) ;**;[1101] Insert @ LDFS1+3L JNG 29-May-78
1) SETZM LSTBLK ;[1101] ASSUME BLOCK 0
****
Digital Equipment Corporation 28-AUG-79 Page 113
PCO Log Report
2)10 PUSHJ P,E01FLE## ;[1174] GIVE ERROR MESSAGE
2) SETZM LSTBLK ;[1101] ASSUME BLOCK 0
**************
1)9 ;** SFDS ** MUST BE RESPECIFIED
1) MERGE1: MOVEM T4,F.MOD(P2) ;STORE MODIFIED MOD WORD
****
2)12 MERGE1: MOVEM T4,F.MOD(P2) ;STORE MODIFIED MOD WORD
**************
1)16 SUBTTL SWITCH ACTION
1) %COMNM: SIXBIT \DEFINED-BY-SWITCH\ ;AVOID FORWARD REFERENCE
AT DMOVE
****
2)19 SUBTTL SWITCH ACTION -- /COMMON:name:len
2) %COMNM: SIXBIT \DEFINED-BY-SWITCH\ ;AVOID FORWARD REFERENCE
AT DMOVE
**************
1)16 ;**;[1204] Insert @ .COMMON+5L JNG 14-Jun-79
1) TRNE W3,-1 ;[1204] MORE THAN 777777?
****
2)19 TRNE W3,-1 ;[1204] MORE THAN 777777?
**************
1)16 MOVX W1,PT.SGN!PT.EXT!PT.TTL!PT.FAK ;
1) MOVE W2,%COMNM ;FIRST 6 CHARS
****
2)19 MOVX W1,PT.SGN!PT.EXT!PT.TTL!PT.FAK
2) MOVE W2,%COMNM ;FIRST 6 CHARS
**************
1)16 ;**;[1173] Insert @ .COMMON+3L JNG 10-Jun-79
1) CAMLE T2,RC.HL(T1) ;[1173] NEVER DECREASE
****
2)19 CAMLE T2,RC.HL(T1) ;[1173] NEVER DECREASE
**************
1)17 IFE TOPS20,<
****
2)20 SUBTTL SWITCH ACTION -- /CORE:n
2) IFE TOPS20,<
**************
1)17 ;**;[1174] Replace @%CORE+12L DZN 3-Jun-79
1) JRST E02EXP ;[1174] OK, TELL USER
****
2)20 JRST E02EXP ;[1174] OK, TELL USER
**************
1)17 ;**;[1174] Replace @CORE3 DZN 3-Jun-79
1) E02EXP::.ERR. (MS,.EC,V%L,L%I,S%I,EXP) ;[1174]
****
2)20 E02EXP::.ERR. (MS,.EC,V%L,L%I,S%I,EXP) ;[1174]
**************
1)18 ;**;[1174] Revamp @.COUNTER+1L DZN 3-Jun-79
1) MOVEI R,1 ;[1174] START AT 1 (COUNTER .LOW
Digital Equipment Corporation 28-AUG-79 Page 114
PCO Log Report
.)
****
2)21 MOVEI R,1 ;[1174] START AT 1 (COUNTER .LOW
.)
**************
1)19 SUBTTL SWITCH ACTION -- /CPU:, /CRLF:
1) %CPU:
****
2)22 SUBTTL SWITCH ACTION -- /CPU:key, /CRLF:n
2) %CPU:
**************
1)19 POPJ P, ;
1)20 ;HERE FOR /DEBUG
1) .DEBUG:
****
2)22 POPJ P,
2)23 SUBTTL SWITCH ACTION -- /DEBUG:name, /TEST:name
2) .DEBUG:
**************
1)20 ;**;[775] Replace @ DEBUG1+23L DZN 1-May-78
1) CAMN T1,['FORDDT'] ;[775] SINCE IT NEED ITS SYMBOLS
****
2)23 CAMN T1,['FORDDT'] ;[775] SINCE IT NEED ITS SYMBOLS
**************
1)20 ;**;[1144] Replace @DEBUG1+34L DZN 16-Feb-79
1) JRST MAPDDT ;[1144] MAP IN UDDT RIGHT NOW
****
2)23 JRST MAPDDT ;[1144] MAP IN UDDT RIGHT NOW
**************
1)22 ;**;[1144] Revamp @DDT10X DZN 16-Feb-79
1) ;HERE FOR /DEBUG:DDT ON TOPS-20. SINCE THERE IS NO .REL FILE FOR
DDT ON TOPS-20,
****
2)25 ;HERE FOR /DEBUG:DDT ON TOPS-20. SINCE THERE IS NO .REL FILE FOR
DDT ON TOPS-20,
**************
1)22 ;**;[1174] Replace @MAPDD1+3L DZN 3-Jun-79
1) ERJMP E$$DNA ;[1174] FAILED
****
2)25 ERJMP E$$DNA ;[1174] FAILED
**************
1)22 ;**;[1145] Insert @MAPDD2 DZN 22-Feb-79
1) MAPDD2: TRO FL,L.SYM ;[1145] LOAD LOCALS (TURNED OFF
EARLIER)
****
2)25 MAPDD2: TRO FL,L.SYM ;[1145] LOAD LOCALS (TURNED OFF
EARLIER)
**************
1)22 ;**;[1174] Replace @TXDDTR DZN 3-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 115
PCO Log Report
1) E$$DNA::.ERR. (MS,,V%L,L%F,S%F,DNA,<DDT not available>) ;[1174
]
****
2)25 E$$DNA::.ERR. (MS,,V%L,L%F,S%F,DNA,<DDT not available>) ;[1174
]
**************
1)23 ;**;[1174] Replace @DEBTBL-1L DZN 5-Jun-79
1) XALL ;[1174]
****
2)26 XALL ;[1174]
**************
1)23 ;HERE FOR /DDEBUG
1) %DDEBUG::
****
2)27 SUBTTL SWITCH ACTION -- /DDEBUG:name, /DEFINE:sym:val
2) %DDEBUG::
**************
1)24 MOVX W1,PT.SGN!PT.SYM ;
1) SKIPN W2,T2 ;GET SYMBOL
1) ;**;[1174] Replace @%DEFINE+4L DZN 3-Jun-79
1) JRST E$$ZSV ;[1174] ZERO IS INVALID
****
2)27 MOVX W1,PT.SGN!PT.SYM
2) SKIPN W2,T2 ;GET SYMBOL
2) JRST E$$ZSV ;[1174] ZERO IS INVALID
**************
1)25 %ENTRY:
****
2)28 SUBTTL SWITCH ACTION -- /ENTRY
2) %ENTRY:
**************
1)25 ;**;[1174] Revamp @.ENTRY+1L DZN 5-Jun-79
1) MOVE T1,[PUSHJ P,ENTNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
****
2)28 MOVE T1,[PUSHJ P,ENTNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
**************
1)26 %ESTIMATE:
****
2)29 SUBTTL SWITCH ACTION -- /ESTIMATE:n, /ERRORLEVEL:n, /EXECUTE
2) SUBTTL SWITCH ACTION -- /FRECORE:n, /FOROTS, /FORSE
2) %ESTIMATE:
**************
1)26 %GO:
****
2)30 SUBTTL SWITCH ACTION -- /GO, /HASHSIZE:n
2) %GO:
**************
Digital Equipment Corporation 28-AUG-79 Page 116
PCO Log Report
1)27 ;INCLUDE/EXCLUDE SWITCHES
****
2)31 SUBTTL SWITCH ACTION -- /EXCLUDE:name, /INCLUDE:name, /NOINCLUD
E
2) ;INCLUDE/EXCLUDE SWITCHES
**************
1)27 ;**;[1174] Replace @%EXCLUDE+2L DZN 3-Jun-79
1) JRST E$$ZSV ;[1174] ZERO IS INVALID
****
2)31 JRST E$$ZSV ;[1174] ZERO IS INVALID
**************
1)27 ;**;[1117] Change @.INCLUDE+1L DZN 14-Sep-78
1) TDO FL,[L.INC,,R.INC] ;[1117] ALWAYS SET INCLUDE MOD
E
****
2)31 TDO FL,[L.INC,,R.INC] ;[1117] ALWAYS SET INCLUDE MOD
E
**************
1)27 ;**;[1117] Insert after %INCLUDE+10L DZN 14-Sep-78
1) .NOINCLUDE:
****
2)32 .NOINCLUDE:
**************
1)32 %K==CPOPJ ;/K IS JUST A KOMMAND, NO ACTION
****
2)37 SUBTTL SWITCH ACTION -- /K, /LOGLEVEL:n, /MAXCORE:n
2) %K==CPOPJ ;/K IS JUST A KOMMAND, NO ACTION
**************
1)32 ;**;[1174] Replace @MAXCORE+28L DZN 3-Jun-79
1) JRST E$$MTS ;[1174] AND IGNORE IF TOO SMALL
****
2)37 JRST E$$MTS ;[1174] AND IGNORE IF TOO SMALL
**************
1)32 ;**;[1174] Replace @MAXCORE+35L DZN 3-Jun-79
1) E$$MTB::.ERR. (MS,.EC,V%L,L%W,S%W,MTB,</MAXCOR: too big, >) ;[
1174]
****
2)37 E$$MTB::.ERR. (MS,.EC,V%L,L%W,S%W,MTB,</MAXCOR: too big, >) ;[
1174]
**************
1)32 ;**;[1174] Replace @MAXERR DZN 3-Jun-79
1) E$$MTS::.ERR. (MS,.EC,V%L,L%W,S%W,MTS,</MAXCOR: too small, at
least >) ;[1174]
****
2)37 E$$MTS::.ERR. (MS,.EC,V%L,L%W,S%W,MTS,</MAXCOR: too small, at
least >) ;[1174]
**************
1)33 %MISSING:
****
2)38 SUBTTL SWITCH ACTION -- /MISSING
2) %MISSING:
Digital Equipment Corporation 28-AUG-79 Page 117
PCO Log Report
**************
1)35 %MPSORT:
****
2)40 SUBTTL SWITCH ACTION -- /MPSORT:key, /NOINITIAL
2) %MPSORT:
**************
1)35 ;**;[1174] Replace @%NOINITIAL+9L DZN 3-Jun-79
1) JRST E$$TDS ;[1174] TOO LATE TO CHANGE NOW
****
2)40 JRST E$$TDS ;[1174] TOO LATE TO CHANGE NOW
**************
1)35 ;**;[1174] Replace @TDS DZN 3-Jun-79
1) E$$TDS::.ERR. (MS,,V%L,L%W,S%W,TDS,<Too late to delete initial
symbols>) ;[1174]
1) POPJ P,
1)36 .LOCALS:
****
2)40 E$$TDS::.ERR. (MS,,V%L,L%W,S%W,TDS,<Too late to delete initial
symbols>) ;[1174]
2) POPJ P,
2)41 SUBTTL SWITCH ACTION -- /LOCALS, /NOLOCAL, /NOSEARCH, /NOSTART
2) SUBTTL SWITCH ACTION -- /NOSYMBOL, /OTSEGMENT:key, /PATCHSIZE:n
2) .LOCALS:
**************
1)37 %REQUIRE:
****
2)42 SUBTTL SWITCH ACTION -- /REQUIRE:sym, /RUNCORE:n, /RUNAME:sym,
/SEARCH, /MIXFOR
2) %REQUIRE:
**************
1)37 ;**;[1174] Replace @%REQUIRE+4L DZN 3-Jun-79
1) JRST E$$ZSV ;[1174] ZERO IS INVALID
****
2)42 JRST E$$ZSV ;[1174] ZERO IS INVALID
**************
1)38 %NEWPAGE:
****
2)43 SUBTTL SWITCH ACTION -- /NEWPAGE, /ONLY:key
2) %NEWPAGE:
**************
1)39 .SEGMENT:
****
2)44 SUBTTL SWITCH ACTION -- /SEGMENT:key
2) .SEGMENT:
**************
1)39 ;**;[1201] Re-arrange @ SEGTAB JNG 12-Jun-79
1) SEGTAB: R.FNS!R.FHS,,R.FLS ;[1201] LOW
****
2)44 SEGTAB: R.FNS!R.FHS,,R.FLS ;[1201] LOW
Digital Equipment Corporation 28-AUG-79 Page 118
PCO Log Report
**************
1)40 %SET:
****
2)45 SUBTTL SWITCH ACTION -- /SET:name:val
2) %SET:
**************
1)40 ;**;[1174] Replace @.SET0+8L DZN 3-Jun-79
1) JRST SETUND ;[1174] NOT DEFINED
****
2)45 JRST SETUND ;[1174] NOT DEFINED
**************
1)40 ;**;[1174] Replace @SET1+12L DZN 3-Jun-79
1) JRST E$$SRB ;[1174] YES, DO NOT ALLOW IT
****
2)45 JRST E$$SRB ;[1174] YES, DO NOT ALLOW IT
**************
1)40 ;**;[1211] Change @ E$$DRC+5L JNG 29-Jun-79
1) .ETC. (OCT,.EC!.EP,,,,W3) ;[1211]
****
2)45 .ETC. (OCT,.EC!.EP,,,,W3) ;[1211]
**************
1)41 ;**;[1132] Change @ SET2 JNG 30-Jan-79
1) SET2: CAMGE R1,RC.NO ;[1132] CHECKED ALL WE'VE SET UP
?
1) AOJA R1,SET1 ;NO
1) ;**;[1142] Move label down @ SET3 JNG 16-Feb-79
1) ADDI R,1 ;[1142] NOT THERE - INSERT IN NE
XT FREE SLOT
1) SET3: PUSHJ P,.SAVE4## ;[1142] SAVE P1-P4
1) ;**;[1157] Change @ SET3+1L JNG 13-Apr-79
1) MOVX W1,PT.SGN!PT.SYM!PS.DDT ;[1157] SET FLAGS
****
2)46 SET2: CAMGE R1,RC.NO ;[1132] CHECKED ALL WE'VE SET UP
?
2) AOJA R1,SET1 ;NO
2) ADDI R,1 ;[1142] NOT THERE - INSERT IN NE
XT FREE SLOT
2) SET3: PUSHJ P,.SAVE4## ;[1142] SAVE P1-P4
2) MOVX W1,PT.SGN!PT.SYM!PS.DDT ;[1157] SET FLAGS
**************
1)41 ;**;[1172] Delete @SET3+6L JNG 5-Jun-79
1) ;**;[1155] Replace @ SET3+8L JNG 13-Apr-79
1) PUSHJ P,SETRC## ;[1155] SETUP HIGHSEG RC
BLOCK ETC.
****
2)46 PUSHJ P,SETRC## ;[1155] SETUP HIGHSEG RC
BLOCK ETC.
**************
1)41 ;**;[1163] Insert @ SET3+12L JNG 8-May-79
Digital Equipment Corporation 28-AUG-79 Page 119
PCO Log Report
1) TXZ T1,AT.RP ;[1163] .HIGH. ALWAYS HA
S AN ORIGIN
****
2)46 TXZ T1,AT.RP ;[1163] .HIGH. ALWAYS HA
S AN ORIGIN
**************
1)41 ;**;[1132] Replace @ SET4 JNG 30-Jan-79
1) ;**;[1142] Move label down @ SET4 JNG 16-Feb-79
1) MOVEI T1,1 ;[1142] ALL PSECTS ARE IN THE LC
AREA
****
2)46 MOVEI T1,1 ;[1142] ALL PSECTS ARE IN THE LC
AREA
**************
1)41 ;**;[1132] Insert @ SET4+17L JNG 30-Jan-79
1) CAMLE W3,RC.HL(T1) ;[1132] HIGHEST LOCATION SO FAR?
****
2)46 CAMLE W3,RC.HL(T1) ;[1132] HIGHEST LOCATION SO FAR?
**************
1)41 ;**;[1174] Replace @SETU DZN 3-Jun-79
1) SETUND: MOVEI T1,[ASCIZ /SET:/] ;[1174] SIGNAL UNDEFINED SYMBO
L ERROR
1) PJRST E$$USI ;[1174] ..
1) ;**;[1132] Delete @ SETE JNG 30-Jan-79
1) ;**;[1174] Replace @SETL DZN 3-Jun-79
1) E$$SRB::.ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set relocati
on counter >) ;[1174]
1) .ETC. (SBX,.EC!.EP,,,,W2) ;
1) .ETC. (STR,.EC,,,,,< below initial value of >)
****
2)47 SETUND: MOVEI T1,[ASCIZ /SET:/] ;[1174] SIGNAL UNDEFINED SYMBO
L ERROR
2) PJRST E$$USI ;[1174] ..
2) E$$SRB::.ERR. (MS,.EC,V%L,L%W,S%W,SRB,<Attempt to set relocati
on counter >) ;[1174]
2) .ETC. (SBX,.EC!.EP,,,,W2)
2) .ETC. (STR,.EC,,,,,< below initial value of >)
**************
1)41 ;**;[1107] Insert @ .SETEX+8L MCHC 3-Aug-78
1) SUBI T2,RC.INC(T1) ;[1107] GET OLD LENGTH
****
2)47 SUBI T2,RC.INC(T1) ;[1107] GET OLD LENGTH
**************
1)41 ;**;[1107] Delete @ .SETEX+20L MCHC 3-Aug-78
1) PJRST DY.RET## ;RETURN SPACE
1)42 %SEVERITY:
****
2)47 PJRST DY.RET## ;RETURN SPACE
2)48 SUBTTL SWITCH ACTION -- /SEVERITY:n, /START:n
Digital Equipment Corporation 28-AUG-79 Page 120
PCO Log Report
2) %SEVERITY:
**************
1)42 ;**;[1175] Delete @ .START+1L JNG 12-Jun-79
1) %START:
****
2)48 %START:
**************
1)42 ;**;[1175] Replace @ %START+5L JNG 12-Jun-79
1) SETZ T3, ;[1175] ASSUME SYMBOL NAME IS ZE
RO
****
2)48 SETZ T3, ;[1175] ASSUME SYMBOL NAME IS ZE
RO
**************
1)42 ;**;[1175] Move E$$USA to LNKLOD JNG 12-Jun-79
1)43 %SYMSEG:PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOADED
1) .SYMSEG: ;[705]
1) ;**;[1201] Replace @ .SYMSEG+1L JNG 13-Jun-79
1) CAIN T2,$SSGDEFAULT ;[1201] /SYMSEG:DEFAULT?
****
2)49 SUBTTL SWITCH ACTION -- /SYMSEG:name[:name], /SYSORT:key, /UPTO
:n, /VERBOSITY:n
2) %SYMSEG:PUSHJ P,STRLSW ;[705] WAIT TIL FILE LOADED
2) .SYMSEG: ;[705]
2) CAIN T2,$SSGDEFAULT ;[1201] /SYMSEG:DEFAULT?
**************
1)43 ;**;[1176] Replace @ .SYMSEG+3L JNG 12-Jun-79
1) SKIPN OVERLW ;[1176] USER TYPE /OVERLAY?
1) JRST %SYMSG ;[1176] NO, PROCEED
1) ;**;[1201] Change @ .SYMSEG+4L JNG 13-Jun-79
1) CAIE T2,$SSGLOW ;[1201] USER WANT LOW SEGMENT?
****
2)49 SKIPN OVERLW ;[1176] USER TYPE /OVERLAY?
2) JRST %SYMSG ;[1176] NO, PROCEED
2) CAIE T2,$SSGLOW ;[1201] USER WANT LOW SEGMENT?
**************
1)43 ;**;[1174] Replace @.SYMSEG+6L DZN 3-Jun-79
1) E$$OSL::.ERR. (MS,,V%L,L%W,S%W,OSL,<Overlaid program symbols m
ust be in low segment>) ;[1174]
1) ;**;[1201] Change @ %SYMSG+1L JNG 13-Jun-79
1) MOVEI T2,$SSGLOW ;[1201] PUT THEM IN LOW SEG
****
2)49 E$$OSL::.ERR. (MS,,V%L,L%W,S%W,OSL,<Overlaid program symbols m
ust be in low segment>) ;[1174]
2) MOVEI T2,$SSGLOW ;[1201] PUT THEM IN LOW SEG
**************
1)44 ;**;[1174] Revamp @.UNDEFINED+1L DZN 6-Jun-79
1) MOVE T1,[PUSHJ P,UNDNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
Digital Equipment Corporation 28-AUG-79 Page 121
PCO Log Report
****
2)50 MOVE T1,[PUSHJ P,UNDNXT] ;[1174] SET UP NEXT SYMBOL R
OUTINE
**************
1)46 %SYSLIBRARY:
****
2)52 SUBTTL SWITCH ACTION -- /SYSLIBRARY, /NOSYSLIBRARY
2) %SYSLIBRARY:
**************
1)47 %USERLIBRARY:
****
2)53 SUBTTL SWITCH ACTION -- /USERLIBRARY:key
2) %USERLIBRARY:
**************
1)48 %NOUSERLIBRARY:
****
2)54 SUBTTL SWITCH ACTION -- /NOUSERLIBRARY
2) %NOUSERLIBRARY:
**************
1)49 SUBTTL /VALUE:SYMBOL
1) ;/VALUE:SYMBOL PRINTS THE VALUE OF THE SYMBOL (IF IT HAS ONE
YET), ALONG WITH
****
2)55 SUBTTL SWITCH ACTION -- /VALUE:sym
2) ;/VALUE:SYMBOL PRINTS THE VALUE OF THE SYMBOL (IF IT HAS ONE
YET), ALONG WITH
**************
1)49 ;**;[1174] Revamp @.VALUE+1L DZN 3-Jun-79
1) MOVX W1,PT.SGN!PT.SYM ;SET FLAGS
****
2)55 MOVX W1,PT.SGN!PT.SYM ;SET FLAGS
**************
1)50 ;**;[1122] Replace @%VERSION DZN 5-Oct-78
1) %VERSION:
1) PUSHJ P,STRLSW ;[1122] WAIT TIL FILE INITED
1) ;**;[1177] Insert @ %VERSION+2L JNG 12-Jun-79
1) .VERSION:
****
2)57 SUBTTL SWITCH ACTION -- /VERSION:ver
2) %VERSION:
2) PUSHJ P,STRLSW ;[1122] WAIT TIL FILE INITED
2) .VERSION:
**************
1)51 SUBTTL OUTPUT DEVICE SWITCHES
1) IFN FTEXE,<
****
2)58 SUBTTL SWITCH ACTION -- /SSAVE, /SAVE
2) IFN FTEXE,<
**************
1)52 %SYFILE:
****
Digital Equipment Corporation 28-AUG-79 Page 122
PCO Log Report
2)59 SUBTTL SWITCH ACTION -- /SYFILE:key
2) %SYFILE:
**************
1)52 $SYMALGOL==+2 ;
1)53 %XPN:
****
2)59 $SYMALGOL==+2
2)60 SUBTTL SWITCH ACTION -- /XPN, /MAP:key
2) %XPN:
**************
1)53 ;**;[1174] Replace @%MAP+5L DZN 3-Jun-79
1) E$$IMA::.ERR. (MS,0,V%L,L%W,S%W,IMA,<Incremental maps not yet
available>) ;[1174]
****
2)60 E$$IMA::.ERR. (MS,0,V%L,L%W,S%W,IMA,<Incremental maps not yet
available>) ;[1174]
**************
1)54 %LOG:
****
2)61 SUBTTL SWITCH ACTION -- /LOG
2) %LOG:
**************
1)54 ;**;[1174] Replace @LOG1 DZN 3-Jun-79
1) LOG1: PUSHJ P,E$$CLF ;[1174] OUTPUT INFO MESSAGE
****
2)61 LOG1: PUSHJ P,E$$CLF ;[1174] OUTPUT INFO MESSAGE
**************
1)54 ;**;[1174] Replace @LOG2+11L DZN 3-Jun-79
1) JUMPL P2,E$$LFC ;[1174] BEEN INITIALIZED ONCE
****
2)61 JUMPL P2,E$$LFC ;[1174] BEEN INITIALIZED ONCE
**************
1)54 ;**;[1174] Replace @LOG2A DZN 3-Jun-79
1) E$$LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC,<Log file continuation>) ;
[1174]
****
2)61 E$$LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC,<Log file continuation>) ;
[1174]
**************
1)55 ;**;[1174] Replace @LOG4+13L DZN 3-Jun-79
1) JUMPL P2,E01LFC ;[1174] BEEN INITIALIZED
****
2)62 JUMPL P2,E01LFC ;[1174] BEEN INITIALIZED
**************
1)55 ;**;[1174] Replace @LOG4B DZN 3-Jun-79
1) E01LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC) ;[1174]
****
2)62 E01LFC::.ERR. (MS,0,V%L,L%I,S%I,LFC) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 123
PCO Log Report
1)55 ;**;[1174] Replace @LOG99 DZN 3-Jun-79
1) E$$CLF::.ERR. (MS,.EC,V%L,L%I,S%I,CLF,<Closing log file, conti
nuing on file >) ;[1174]
****
2)62 E$$CLF::.ERR. (MS,.EC,V%L,L%I,S%I,CLF,<Closing log file, conti
nuing on file >) ;[1174]
**************
1)56 SUBTTL DEVICE ACTION SWITCHES
1) .BACKSPACE:
****
2)63 SUBTTL SWITCH ACTION -- /BACKSPACE, /REWIND
2) .BACKSPACE:
**************
1)57 .SKIP:
****
2)64 SUBTTL SWITCH ACTION -- /SKIP, /UNLOAD
2) .SKIP:
**************
1)58 .MTAPE:
****
2)65 SUBTTL SWITCH ACTION -- /MTAPE:key
2) .MTAPE:
**************
1)59 %ZERO:
****
2)66 SUBTTL SWITCH ACTION -- /ZERO
2) %ZERO:
**************
1)59 ;**;[1174] Replace @DNSCHK+1L DZN 3-Jun-79
1) JRST E$$DNS ;[1174] NO CHAN# NO DEVICE!
****
2)66 JRST E$$DNS ;[1174] NO CHAN# NO DEVICE!
**************
1)59 ;**;[1174] Replace @DNSCHK+5L DZN 3-Jun-79
1) JRST E$$DNS ;[1174] NO, DON'T ALLOW DSK BY D
EFAULT
****
2)66 JRST E$$DNS ;[1174] NO, DON'T ALLOW DSK BY D
EFAULT
**************
1)59 ;**;[1174] Replace @DNSERR DZN 3-Jun-79
1) E$$DNS::.ERR. (MS,.EC,V%L,L%F,S%F,DNS,<Device not specified fo
r switch />) ;[1174]
****
2)66 E$$DNS::.ERR. (MS,.EC,V%L,L%F,S%F,DNS,<Device not specified fo
r switch />) ;[1174]
**************
1)61 > ;
1) A'TBL:
Digital Equipment Corporation 28-AUG-79 Page 124
PCO Log Report
****
2)68 >
2) A'TBL:
**************
1)61 ;**;[1203] Change @ CHKRSW+1P20L JNG 14-Jun-79
1) KEYTBL <CPU,DEF,HYL,MAP,MPS,SYM,SYS,VER>
****
2)68 KEYTBL <CPU,DEF,HYL,MAP,MPS,SYM,SYS,VER>
**************
1)62 SUBTTL MAP CONTENTS
1) %CONTENT:
****
2)69 SUBTTL SWITCH ACTION -- /CONTENTS:key
2) %CONTENT:
**************
1)63 SUBTTL SET DEFAULT FILE SPECS.
1) ;NOTE: THIS SWITCH MUST BE LAST EXECUTED
****
2)70 SUBTTL SWITCH ACTION -- /DEFAULT
2) ;NOTE: THIS SWITCH MUST BE LAST EXECUTED
**************
1)66 ;**;[1174] Replace @MPSNUMERICAL+1L DZN 3-Jun-79
1) E$$MSN::.ERR. (MS,0,V%L,L%W,S%W,MSN,<Map sorting not yet imple
mented>) ;[1174]
****
2)73 E$$MSN::.ERR. (MS,0,V%L,L%W,S%W,MSN,<Map sorting not yet imple
mented>) ;[1174]
**************
1)66 ;**;[1174] Replace @SYSNUMERICAL+1L DZN 3-Jun-79
1) E$$SSN::.ERR. (MS,0,V%L,L%W,S%W,SSN,<Symbol table sorting not
yet implemented>) ;[1174]
****
2)73 E$$SSN::.ERR. (MS,0,V%L,L%W,S%W,SSN,<Symbol table sorting not
yet implemented>) ;[1174]
**************
1)67 ;ERROR MESSAGES
1) ;**;[1174] Replace @ZSVERR DZN 3-Jun-79
1) E$$ZSV::.ERR. (MS,0,V%L,L%W,S%W,ZSV,<Zero switch value illegal
>) ;[1174]
****
2)74 SUBTTL ERROR MESSAGES
2) E$$ZSV::.ERR. (MS,0,V%L,L%W,S%W,ZSV,<Zero switch value illegal
>) ;[1174]
**************
1)67 WLDLIT:
1) END
****
2)75 SUBTTL THE END
2) WLDLIT: END
Digital Equipment Corporation 28-AUG-79 Page 125
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 126
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 0223 23-Jul-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1325 27-Jul-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 23-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978, 1979
1) ;BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
1) ENTRY LNKXIT
1) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
1) IFN TOPS20,<SEARCH MACSYM, MONSYM>
1) EXTERN LNKCOR,LNKLOG,LNKFIO
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH LNKPAR,LNKLOW,MACTEN,UUOSYM
2) IFN TOPS20,<SEARCH MACSYM, MONSYM>
2) SALL
2) ENTRY LNKXIT
2) EXTERN LNKCOR,LNKLOG,LNKFIO
**************
1)1 DECEVR==1216 ;DEC EDIT VERSION
1) VERSION
1) SEGMENT
1) SALL
1) ;LOCAL ACC DEFINITION
****
2)1 DECEVR==1217 ;DEC EDIT VERSION
2) VERSION
2) SEGMENT
2) ;LOCAL ACC DEFINITION
**************
1)7 SUBTTL ENTER HERE
****
2)6 ;1217 Clean up the listings for release.
2)7 SUBTTL ENTER HERE
**************
1)8 HRRZM T1,HL.S1 ;
1) HLRZM T1,HC.S1
1) ;**;[1152] Insert @ LNKX0B+4L JNG 3-Apr-79
1) MOVEI R,1 ;[1152] LOW SEGMENT
****
2)8 HRRZM T1,HL.S1
2) HLRZM T1,HC.S1
2) MOVEI R,1 ;[1152] LOW SEGMENT
**************
1)8 JRST LNKX1 ;
1) ;NOW TO READ BACK FIRST FEW BLOCK
Digital Equipment Corporation 28-AUG-79 Page 127
PCO Log Report
****
2)8 JRST LNKX1
2) ;NOW TO READ BACK FIRST FEW BLOCK
**************
1)9 MOVE T1,LC.AB ;
1) SUB T1,LC.LB ;GET SIZE OF WINDOW
****
2)9 MOVE T1,LC.AB
2) SUB T1,LC.LB ;GET SIZE OF WINDOW
**************
1)10 ;**;[1172] Change @ RDJBDA+7L JNG 5-Jun-79
1) JRST CHKRST ;[1172] NOW GO DO RUNTIME SYMBOL
TABLE
****
2)10 JRST CHKRST ;[1172] NOW GO DO RUNTIME SYMBOL
TABLE
**************
1)12 ;**;[1172] Replace @ BLTJBL+1P JNG 5-Jun-79
1) SUBTTL RUNTIME SYMBOL TABLE GENERATION
****
2)12 SUBTTL RUNTIME SYMBOL TABLE GENERATION
**************
1)12 ;**;[1202] Insert @ CHKRST+3L JNG 14-Jun-79
1) SKIPN T2,VERNUM ;[1202] /VERSION? (CHECK NOW FOR
OLDSYM)
****
2)12 SKIPN T2,VERNUM ;[1202] /VERSION? (CHECK NOW FOR
OLDSYM)
**************
1)12 ;HERE TO GENERATE A RUNTIME SYMBOL TABLE.
****
2)12 ; ..
2)13 ; ..
2) ;HERE TO GENERATE A RUNTIME SYMBOL TABLE.
**************
1)16 ;**;[1172] Insert @ GETS4+9L JNG 5-Jun-79
1) MOVE T2,RC.NM(T1) ;[1172] GET THE WINNER'S NAME
****
2)17 MOVE T2,RC.NM(T1) ;[1172] GET THE WINNER'S NAME
**************
1)16 ;**;[1172] Delete @ GETS6+3L JNG 5-Jun-79
1) JRST GETS14 ;[1132] GO UPDATE THAT PSECT
****
2)17 JRST GETS14 ;[1132] GO UPDATE THAT PSECT
**************
1)18 ;**;[1172] Replace @ GETS14 JNG 5-Jun-79
1) ;HERE WITH THE PSECT INDEX TO USE IN R, AND ITS NAME IN SSGNAM.
****
2)19 ;HERE WITH THE PSECT INDEX TO USE IN R, AND ITS NAME IN SSGNAM.
Digital Equipment Corporation 28-AUG-79 Page 128
PCO Log Report
**************
1)20 ;**;[1172] Move down and change as indicated @ UDF0 JNG
5-Jun-79
1) ;HERE TO WRITE THE UNDEFINED SYMBOL TABLE. THE TABLE IS GENERAT
ED
****
2)21 ;HERE TO WRITE THE UNDEFINED SYMBOL TABLE. THE TABLE IS GENERAT
ED
**************
1)20 ;**;[1172] Replace @ UDF0 JNG 5-Jun-79
1) DOUDFS: MOVE T1,TAB.PT(R) ;[1172] LINK'S ADDRESS OF NEXT W
ORD
****
2)21 DOUDFS: MOVE T1,TAB.PT(R) ;[1172] LINK'S ADDRESS OF NEXT W
ORD
**************
1)20 ;**;[1172] Replace @ UDFTRY+7L JNG 5-Jun-79
1) PUSHJ P,SYMOUT ;[1172] STORE W2/W3 IN IMAGE
****
2)21 PUSHJ P,SYMOUT ;[1172] STORE W2/W3 IN IMAGE
**************
1)21 ;**;[1172] Replace @ UDFGB+6L JNG 5-Jun-79
1) MOVE T1,.L+2(T1) ;[1172] GET VALUE
****
2)22 MOVE T1,.L+2(T1) ;[1172] GET VALUE
**************
1)21 ;**;[1160] Replace @ UDFGB1+3L JNG 14-Apr-79
1) TXNE W1,FP.SYM ;[1160] FIXUP BASED ON UNDEFINED
SYMBOL?
****
2)22 TXNE W1,FP.SYM ;[1160] FIXUP BASED ON UNDEFINED
SYMBOL?
**************
1)21 ;**;[1172] Replace @ UDFGB1+13L JNG 5-Jun-79
1) PUSHJ P,SYMOUT ;[1172] WRITE W2/W3 INTO THE IMA
GE
****
2)22 PUSHJ P,SYMOUT ;[1172] WRITE W2/W3 INTO THE IMA
GE
**************
1)23 ;**;[1172] Move down and change as indicated JNG 5-Jun-79
1) GSDLT:
****
2)24 GSDLT:
**************
1)23 ;**;[773] Insert @ GSDLT+14L JNG 30-Apr-78
1) SKIPN GS.LB ;[773] GS AREA ALREADY GONE?
****
2)24 SKIPN GS.LB ;[773] GS AREA ALREADY GONE?
Digital Equipment Corporation 28-AUG-79 Page 129
PCO Log Report
**************
1)23 ;**;[773] Add label @ GSDLT+18L JNG 30-Sep-78
1) GSDLT1: MOVEM T2,TAB.UB(T1) ;[773] RESET HIGHEST FREE LOC AG
AIN
****
2)24 GSDLT1: MOVEM T2,TAB.UB(T1) ;[773] RESET HIGHEST FREE LOC AG
AIN
**************
1)23 ;**;[1113] Change @GSNRED DZN 25-Aug-78
1) > ;END OF IFE TOPS20
1) GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
1) ;**;[1172] Replace @ GSNRED+1L JNG 5-Jun-79
1) POPJ P, ;[1172] END OF GSDLT
****
2)24 > ;END OF IFE TOPS20
2) GSNRED: PUSHJ P,GS.ZAP ;GET RID OF GS
2) POPJ P, ;[1172] END OF GSDLT
**************
1)25 ;**;[1172] Move up and change as indicated @ SYMINI JNG
5-Jun-79
1) SYMINI: SKIPL UW.LS ;[1172] IF -1 THEN SYMBOL TABLE
NOT OUTPUT YET
****
2)26 SYMINI: SKIPL UW.LS ;[1172] IF -1 THEN SYMBOL TABLE
NOT OUTPUT YET
**************
1)25 ;**;[1172] Replace @ RDSYM JNG 5-Jun-79
1) RDSYM: PUSHJ P,FR.CNT## ;[1172] SEE HOW MUCH IS FREE
****
2)26 RDSYM: PUSHJ P,FR.CNT## ;[1172] SEE HOW MUCH IS FREE
**************
1)28 ;**;[1172] Insert @ LSLOOP+5L JNG 5-Jun-79
1) SKIPE SYMFUL ;[1172] SKIPPING FOR LAST MODULE
NAME?
****
2)29 SKIPE SYMFUL ;[1172] SKIPPING FOR LAST MODULE
NAME?
**************
1)28 ;**;[1172] Replace @ LSLUP1+1L JNG 5-Jun-79
1) JRST [SETZM SYMDEW ;[1172] GO INTO FIND MODULE NAME
MODE
****
2)29 JRST [SETZM SYMDEW ;[1172] GO INTO FIND MODULE NAME
MODE
**************
1)29 ;**;[1172] Move up and change as indicated JNG 5-Jun-79
1) LTITLE: TXNE W1,PT.PSC ;[1132] JUST A PSECT DEFINITION?
****
2)30 LTITLE: TXNE W1,PT.PSC ;[1132] JUST A PSECT DEFINITION?
Digital Equipment Corporation 28-AUG-79 Page 130
PCO Log Report
**************
1)29 ;**;[1172] Replace @ TTLLUP+9L JNG 5-Jun-79
1) JRST [SETZM SYMDEW ;[1172] USE THE RESERVE TO STORE
THIS TITLE
****
2)30 JRST [SETZM SYMDEW ;[1172] USE THE RESERVE TO STORE
THIS TITLE
**************
1)30 ;**;[1172] Delete @ GETSYM+6L JNG 5-Jun-79
1) JRST CPOPJ1 ;SKIP RETURN
****
2)31 JRST CPOPJ1 ;SKIP RETURN
**************
1)31 ;**;[1172] Replace @ PAGSYM+3L JNG 5-Jun-79
1) HRLZ T1,LS.LB ;[1172] MOVE FIRST BLOCK OF SYMB
OLS
****
2)32 HRLZ T1,LS.LB ;[1172] MOVE FIRST BLOCK OF SYMB
OLS
**************
1)33 ;**;[1172] Move up @ SXBR50 JNG 5-Jun-79
1) ;SXBR50 -- SUBROUTINE TO CONVERT SIXBIT TO RADIX-50
****
2)34 ;SXBR50 -- SUBROUTINE TO CONVERT SIXBIT TO RADIX-50
**************
1)34 ;**;[1172] Replace @ SYMOUT JNG 5-Jun-79
1) SYMOUT: MOVE T1,TAB.PT(R) ;[1172] ADDRESS TO STORE INTO NE
XT
****
2)35 SYMOUT: MOVE T1,TAB.PT(R) ;[1172] ADDRESS TO STORE INTO NE
XT
**************
1)34 ;**;[1172] Replace @ SYMOE1-1L JNG 5-Jun-79
1) POPJ P, ;[1172] ERROR RETURN
****
2)35 POPJ P, ;[1172] ERROR RETURN
**************
1)35 ;**;[1216] Insert @ SYMOU2+3L JNG 23-Jul-79
1) SPUSH <P1,P2> ;[1216] PRESERVE OVER LNKCOR
****
2)36 SPUSH <P1,P2> ;[1216] PRESERVE OVER LNKCOR
**************
1)35 ;**;[1216] Insert @ SYMOU2+7L JNG 23-Jul-79
1) SPOP <P2,P1> ;[1216] RESTORE SACRED COWS
****
2)36 SPOP <P2,P1> ;[1216] RESTORE SACRED COWS
**************
1)35 ;**;[1172] Delete @ SYMOU2-3L JNG 5-Jun-79
1)36 ;**;[1172] Move up OLDSYM, SAVSYM, WRTSYM, JOBSET, and HJBSET
JNG 5-Jun-79
1) ;HERE FOR OLD FORM SYMBOLS (RADIX-50)
Digital Equipment Corporation 28-AUG-79 Page 131
PCO Log Report
****
2)37 ;HERE FOR OLD FORM SYMBOLS (RADIX-50)
**************
1)40 ;**;[1144] Replace @JOBST0+3L DZN 16-Feb-79
1) ; ..
****
2)41 ; ..
**************
1)44 ;**;[1172] Replace @ CHKPAG+6L JNG 5-Jun-79
1) POPJ P, ;[1172] DONE
****
2)45 POPJ P, ;[1172] DONE
**************
1)44 AS.ZAP: MOVEI T1,AS.IX ;
1) PJRST XX.ZAP## ;
1)45 ;**;[1172] Delete and move up @ SYMINI JNG 5-Jun-79
1) ;**;[1146] Move 5 pages starting at JBSAVE down where indicated
1) ;**;[1146] below. Then insert this code before JOBSET-3L
1) ;**;[1146] DZN 8-Mar-79
1) SUBTTL DECIDE TO LOAD OR SAVE
****
2)45 AS.ZAP: MOVEI T1,AS.IX
2) PJRST XX.ZAP##
2)46 SUBTTL DECIDE TO LOAD OR SAVE
**************
1)45 ;**;[1172] Delete @ SAVTST JNG 5-Jun-79
1) SAVTST: SKIPE IO.PTR+%VC ;[1146] SAVE FILE REQUIRED?
****
2)46 SAVTST: SKIPE IO.PTR+%VC ;[1146] SAVE FILE REQUIRED?
**************
1)45 ;**;[1170] Change @ SAVTST+9L JNG 23-May-79
1) SKIPE LL.S2 ;[1170] HITS HIGH SEG (IF ANY)
WHICH CHECKS
****
2)46 SKIPE LL.S2 ;[1170] HITS HIGH SEG (IF ANY)
WHICH CHECKS
**************
1)46 ;**;[1171] Replace @ SAVTS1+1L JNG 30-May-79
1) MOVE T2,RC.AT(W2) ;[1171] GET THIS PSECT'S ATTRIBU
TES
****
2)47 MOVE T2,RC.AT(W2) ;[1171] GET THIS PSECT'S ATTRIBU
TES
**************
1)46 ;**;[1171] Change @ SAVTS2 JNG 30-May-79
1) SAVTS5: MOVE T1,RC.HL(W2) ;[1171] SO FAR SO GOOD--ADVANCE
TO NEXT PSECT
****
2)47 SAVTS5: MOVE T1,RC.HL(W2) ;[1171] SO FAR SO GOOD--ADVANCE
Digital Equipment Corporation 28-AUG-79 Page 132
PCO Log Report
TO NEXT PSECT
**************
1)47 ;**;[1170] Change @ SAVTS3+1P7L JNG 23-May-79
1) SKIPE LL.S2 ;[1170] HIGH SEG EXISTS
****
2)48 SKIPE LL.S2 ;[1170] HIGH SEG EXISTS
**************
1)47 ;**;[1170] Replace @SAVTS3+1P11L DZN 18-May-79
1) ADD T1,HC.S2 ;[1170] ADD LENGTH OF HIGH SEGME
NT
****
2)48 ADD T1,HC.S2 ;[1170] ADD LENGTH OF HIGH SEGME
NT
**************
1)48 ;**;[1172] Move up JOBSET and HJBSET JNG 5-Jun-79
1) ;**;[1146] Insert before LC.DLT-5L DZN 8-Mar-79
1) SUBTTL FORCE nnnLNK/SAVE
****
2)49 SUBTTL FORCE nnnLNK/SAVE
**************
1)49 ;**;[1174] Replace @JBCMPX+21L DZN 3-Jun-79
1) JRST E$$PCX ;[1174] YES--LNKPCX
****
2)50 JRST E$$PCX ;[1174] YES--LNKPCX
**************
1)50 ;**;[1146] Place 5 pages here from JBSAVE above. Then make minor
1) ;**;[1146] changes as noted. DZN 8-Mar-79
1) SUBTTL GENERATE .EXE (OR .XPN/.SHR/.HGH/.LOW) FILE
****
2)51 SUBTTL GENERATE .EXE (OR .XPN/.SHR/.HGH/.LOW) FILE
**************
1)50 ;**;[1174] Replace @JBSAVE DZN 3-Jun-79
1) JBSAVE: ;[1174] WRITE A SAVED FILE
1) E$$CSF::.ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>) ;[1
174]
1) ;**;[1146] Delete @JBSAVE+1L DZN 8-Mar-79
1) IFE FTEXE,<
****
2)51 JBSAVE: ;[1174] WRITE A SAVED FILE
2) E$$CSF::.ERR. (MS,0,V%L,L%I,S%I,CSF,<Creating saved file>) ;[1
174]
2) IFE FTEXE,<
**************
1)50 ;**;[1146] Delete @JBSAVE+13L DZN 8-Mar-79
1) HLRZ T1,.JBSA(P1) ;ALSO SETUP RIGHT HALF OF .JBCOR
****
2)51 HLRZ T1,.JBSA(P1) ;ALSO SETUP RIGHT HALF OF .JBCOR
**************
1)50 ;**;[1132] Insert @ JBSAVE+23L JNG 30-Jan-79
Digital Equipment Corporation 28-AUG-79 Page 133
PCO Log Report
1) SKIPL SYMSEG ;[1132] SYMBOLS IN A PSECT?
****
2)51 SKIPL SYMSEG ;[1132] SYMBOLS IN A PSECT?
**************
1)50 ;**;[1146] Delete @JBSAVX+5L DZN 8-Mar-79
1) SKIPN PAG.S2 ;PAGING HIGH SEG?
****
2)51 SKIPN PAG.S2 ;PAGING HIGH SEG?
**************
1)51 ;**;[1174] Replace @JBSHGN+7L DZN 3-Jun-79
1) E$$SOE::PUSH P,[DC] ;[1174]
****
2)52 E$$SOE::PUSH P,[DC] ;[1174]
**************
1)57 ;**;[1174] Replace @WRTXPN+9L DZN 3-Jun-79
1) PUSHJ P,E$$OEX ;[1174]
****
2)58 PUSHJ P,E$$OEX ;[1174]
**************
1)57 ;**;[1174] Replace @XPNERR DZN 3-Jun-79
1) E$$OEX::PUSH P,[LC] ;[1174]
****
2)58 E$$OEX::PUSH P,[LC] ;[1174]
**************
1)58 ;**;[1132] Insert @ JBEXEN+3L JNG 30-Jan-79
1)59 IFN FTOVERLAY,<
****
2)60 IFN FTOVERLAY,<
**************
1)61 ;**;[1147] Replace @ JBEXEN+10L JNG 12-Mar-79
1) ;**;[1147] This is JBEXEE+1P9L if edit 1132 has been installed.
1) SUB T1,LW.S1 ;[1147] NO, FIND HOW FAR
TO SHRINK
****
2)62 SUB T1,LW.S1 ;[1147] NO, FIND HOW FAR
TO SHRINK
**************
1)61 ADDI T1,1 ;
1) MOVEM T1,LC.LB ;BACKUP IF WE CAN
****
2)62 ADDI T1,1
2) MOVEM T1,LC.LB ;BACKUP IF WE CAN
**************
1)63 ;**;[1132] Change @ EXEINI+18L JNG 30-Jan-79
1) ADDI T2,7 ;[1132] 1 FOR REM, 4 FOR EXE DIR
, 2 FOR RIBS
****
2)64 ADDI T2,7 ;[1132] 1 FOR REM, 4 FOR EXE DIR
, 2 FOR RIBS
Digital Equipment Corporation 28-AUG-79 Page 134
PCO Log Report
**************
1)63 ;**;[1174] Replace @EXEINI+27L DZN 3-Jun-79
1) JRST E$$ECE ;[1174] CAN'T
****
2)64 JRST E$$ECE ;[1174] CAN'T
**************
1)64 ;**;[1132] Revamp @ XCMPRS JNG 30-Jan-79
1) XCMPRS: SETZ R, ;[1132] START WITH .ABS.
****
2)65 XCMPRS: SETZ R, ;[1132] START WITH .ABS.
**************
1)65 ;**;[1132] Replace XCMPRJ routine JNG 30-Jan-79
1) ;**;[1132] This supercedes edit 776 if installed.
1) HRLOI W2,-.JBDA-1 ;[1132] FORM IOWD TO JOBDAT
****
2)66 HRLOI W2,-.JBDA-1 ;[1132] FORM IOWD TO JOBDAT
**************
1)65 ;**;[1174] Replace @ DZN 3-Jun-79
1) PUSHJ P,E$$EOE ;[1174] I/O ERROR
****
2)66 PUSHJ P,E$$EOE ;[1174] I/O ERROR
**************
1)65 ;**;[1174] Insert after **somewhere**+1P18L DZN 3-Jun-79
1) E$$ECE::PUSH P,[DC] ;[1174] GIVE OFFENDING CHANNEL T
O LNKLOG
****
2)66 E$$ECE::PUSH P,[DC] ;[1174] GIVE OFFENDING CHANNEL T
O LNKLOG
**************
1)67 ;**;[1174] Replace @XCMNWZ+8L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] I/O ERROR
****
2)68 JRST E$$EOE ;[1174] I/O ERROR
**************
1)68 ;**;[1174] Replace @XCMADV+3L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] I/O ERROR
****
2)69 JRST E$$EOE ;[1174] I/O ERROR
**************
1)68 ;**;[1172] Insert @ XCMADV+21L JNG 5-Jun-79
1) ADDI T1,1 ;[1172] SUBTRACTED ONE TOO MUCH,
HC IS FF FORMAT
****
2)69 ADDI T1,1 ;[1172] SUBTRACTED ONE TOO MUCH,
HC IS FF FORMAT
**************
1)72 ;**;[1132] Change @ XCMPRD+2L JNG 30-Jan-79
1) TXNN P4,ZEROF ;[1132] ZERO PAGE? (FLAGS ALREAD
Y CHANGED)
Digital Equipment Corporation 28-AUG-79 Page 135
PCO Log Report
****
2)73 TXNN P4,ZEROF ;[1132] ZERO PAGE? (FLAGS ALREAD
Y CHANGED)
**************
1)73 ;**;[1132] Move up from below and revamp JNG 30-Jan-7
9
1) XCMPXD: AOBJN W1,CPOPJ ;ALLOCATE IF ENOUGH ROOM
****
2)74 XCMPXD: AOBJN W1,CPOPJ ;ALLOCATE IF ENOUGH ROOM
**************
1)73 ;**;[1174] Replace @XCMPXD+13L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] IO ERROR
****
2)74 JRST E$$EOE ;[1174] IO ERROR
**************
1)73 ;**;[1174] Replace @XCMPXE+3L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] FAILED
****
2)74 JRST E$$EOE ;[1174] FAILED
**************
1)73 ;**;[1174] Replace @XCMPXF+8L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] I/O ERROR
****
2)74 JRST E$$EOE ;[1174] I/O ERROR
**************
1)74 ;**;[1174] Replace @XCMPXG+5L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] ERROR
****
2)75 JRST E$$EOE ;[1174] ERROR
**************
1)76 ;**;[1174] Replace @XOVDMP+9L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] I/O ERROR
****
2)77 JRST E$$EOE ;[1174] I/O ERROR
**************
1)77 ;**;[1214] Insert after XOVNWD+10L DZN 9-Jul-79
1) >;[1214] END IFN FTOVERLAY
****
2)78 >;[1214] END IFN FTOVERLAY
**************
1)78 ;**;[1132] Insert @ XCMPRX JNG 30-Jan-79
1) XCMPRX: SKIPE PAG.S1 ;[1132] STILL GOT AN LC TEMP FIL
E?
****
2)79 XCMPRX: SKIPE PAG.S1 ;[1132] STILL GOT AN LC TEMP FIL
E?
**************
1)78 MOVEI W1,(W1) ;
1) SUB W1,EXEDIR ;GET LENGTH
****
2)79 MOVEI W1,(W1)
Digital Equipment Corporation 28-AUG-79 Page 136
PCO Log Report
2) SUB W1,EXEDIR ;GET LENGTH
**************
1)79 HRRZ T1,EXEDIR ;
1) SUBI T1,1 ;
1) HRLI T1,-1000 ;IOWD
1) SETZ T2, ;
1) OUT DC,T1 ;WRITE IT
1) CAIA ;OK
1) ;**;[1174] Replace @**somewhere**+7L DZN 3-Jun-79
1) JRST E$$EOE ;[1174] ERROR
****
2)80 HRRZ T1,EXEDIR
2) SUBI T1,1
2) HRLI T1,-1000 ;IOWD
2) SETZ T2,
2) OUT DC,T1 ;WRITE IT
2) CAIA ;OK
2) JRST E$$EOE ;[1174] ERROR
**************
1)79 OUT DC,T1 ;
1) JRST .+1 ;OK
1) ;**;[1174] Replace @**somewhere**+1P18L DZN 3-Jun-79
1) JRST E$$EOE] ;[1174] ERROR
****
2)80 OUT DC,T1
2) JRST .+1 ;OK
2) JRST E$$EOE] ;[1174] ERROR
**************
1)79 ;**;[1174] Replace @XCMPER DZN 3-Jun-79
1) E$$EOE::PUSH P,[DC] ;[1174]
****
2)80 E$$EOE::PUSH P,[DC] ;[1174]
**************
1)82 ;**;[1212] Replace @ZCMP6A+19L DZN 4-Jul-79
1) JRST E$$SOE ;[1212] NO
****
2)83 JRST E$$SOE ;[1212] NO
**************
1)83 ;**;[1174] Replace @ZCMPR7+10L DZN 3-Jun-79
1) JRST E$$SOE ;[1174] PRINT ERROR AND DIE
****
2)84 JRST E$$SOE ;[1174] PRINT ERROR AND DIE
**************
1)85 ;**;[1174] Replace @ENDCMP+16L DZN 3-Jun-79
1) JRST E01FRE ;[1174] REPORT RENAME ERROR
****
2)86 JRST E01FRE ;[1174] REPORT RENAME ERROR
**************
1)85 ;**;[1144] Replace @ENDCMP+19L DZN 16-Feb-79
Digital Equipment Corporation 28-AUG-79 Page 137
PCO Log Report
1) JRST ENDSAV ;[1144] NO, RUN PROGRAM OR EXIT
1) ;HERE ON A RENAME ERROR FOR THE OVERLAY FILE
1) ;**;[1174] Replace @OVRENE DZN 3-Jun-79
1) E01FRE::PUSH P,[%OC] ;[1174] SET UP CORRECT CHANNEL
****
2)86 JRST ENDSAV ;[1144] NO, RUN PROGRAM OR EXIT
2) ;HERE ON A RENAME ERROR FOR THE OVERLAY FILE
2) E01FRE::PUSH P,[%OC] ;[1174] SET UP CORRECT CHANNEL
**************
1)85 ;**;[1144] Replace @ENDSAV+2L DZN 16-Feb-79
1) JRST RUNEXE ;[1144] YES, RUN THE .EXE FILE
****
2)86 JRST RUNEXE ;[1144] YES, RUN THE .EXE FILE
**************
1)88 ;**;[1144] Revamp @RUNUUO DZN 16-Feb-79
1) RUNEXE: SKIPE STADDR ;[1144] INFORM USER IF NO START
ADDRESS
****
2)89 RUNEXE: SKIPE STADDR ;[1144] INFORM USER IF NO START
ADDRESS
**************
1)88 ;**;[1174] Replace @RUNEXE+3L DZN 3-Jun-79
1) E$$NSA::.ERR. (MS,0,V%L,L%F,S%I,NSA,<No start address>) ;[1174
]
****
2)89 E$$NSA::.ERR. (MS,0,V%L,L%F,S%I,NSA,<No start address>) ;[1174
]
**************
1)88 ;**;[1174] Replace @RUNDLT DZN 3-Jun-79
1) E$$DLT::.ERR. (MS,0,V%L,L%F,S%W,DLT,<Execution deleted>) ;[117
4]
****
2)89 E$$DLT::.ERR. (MS,0,V%L,L%F,S%W,DLT,<Execution deleted>) ;[117
4]
**************
1)89 ;**;[1202] Replace @ RUNEX2+19L JNG 14-Jun-79
1) ERJMP E$$GFE ;[1202] GETJFN FAILED FOR EXE FI
LE
****
2)90 ERJMP E$$GFE ;[1202] GETJFN FAILED FOR EXE FI
LE
**************
1)90 ;**;[1174] Replace @GFEERR DZN 3-Jun-79
1) E$$GFE::.ERR. (MS,.EC,V%L,L%F,S%F,GFE,<GTJFN% JSYS failed for
file >) ;[1174]
****
2)91 E$$GFE::.ERR. (MS,.EC,V%L,L%F,S%F,GFE,<GTJFN% JSYS failed for
file >) ;[1174]
**************
Digital Equipment Corporation 28-AUG-79 Page 138
PCO Log Report
1)93 ;**;[1174] Replace @TERMES DZN 3-Jun-79
1) TERMES:
1) E$$FIN::.ERR. (MS,0,V%L,L%I,S%I,FIN,<LINK finished>) ;[1174]
1) ;**;[1202] Insert @ E$$FIN+1L JNG 14-Jun-79
1) SKIPN IO.PTR+RC ;[1202] A REAL LOG FILE?
****
2)94 TERMES:
2) E$$FIN::.ERR. (MS,0,V%L,L%I,S%I,FIN,<LINK finished>) ;[1174]
2) SKIPN IO.PTR+RC ;[1202] A REAL LOG FILE?
**************
1)93 ;**;[1174] Replace @TERMES+13L DZN 3-Jun-79
1) E02FRE::PUSH P,[%RC] ;[1174] CHANNEL FOR ERROR
1) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] SEND THE MESSAGE
1) ;**;[1144] Insert after FINMES+1L DZN 16-Feb-79
1) ;EXEMES GIVES THE PROGRAM EXECUTION MESSAGE. THIS INCLUDES THE N
AME OF THE
****
2)94 E02FRE::PUSH P,[%RC] ;[1174] CHANNEL FOR ERROR
2) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;[616] SEND THE MESSAGE
2) ;EXEMES GIVES THE PROGRAM EXECUTION MESSAGE. THIS INCLUDES THE N
AME OF THE
**************
1)93 ;**;[1174] Replace @EXEMES+4L DZN 3-Jun-79
1) E$$XCT::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,XCT) ;[1174]
****
2)94 E$$XCT::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,XCT) ;[1174]
**************
1)93 ;**;[1174] Replace @EXEME1+1L DZN 3-Jun-79
1) E$$DEB::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,DEB) ;[1174]
****
2)94 E$$DEB::.ERR. (MS,.EC!.EN,V%L,L%F,S%I,DEB) ;[1174]
**************
1)94 ;**;[1174] Replace @DVMOV.+12L DZN 3-Jun-79
1) E03FRE::PUSH P,IO.CHN ;[1174] SAVE CHANNEL FOR LNKLOG
1) .ERR. (LRE,,V%L,L%F,S%F,FRE) ;
1) ;HERE WHEN CANNOT RENAME THE FILE. MUST DO THE COPY.
****
2)95 E03FRE::PUSH P,IO.CHN ;[1174] SAVE CHANNEL FOR LNKLOG
2) .ERR. (LRE,,V%L,L%F,S%F,FRE)
2) ;HERE WHEN CANNOT RENAME THE FILE. MUST DO THE COPY.
**************
1)94 ;**;[1174] Replace @DVCOPY+5L DZN 30-May-79
1) JRST E01FLE## ;[1174] ???
****
2)95 JRST E01FLE## ;[1174] ???
**************
1)95 ;**;[1174] Replace @DVMOV1+5L DZN 3-Jun-79
1) JRST E$$EOI ;[1174] ERROR, GIVE UP
****
Digital Equipment Corporation 28-AUG-79 Page 139
PCO Log Report
2)96 JRST E$$EOI ;[1174] ERROR, GIVE UP
**************
1)95 ;**;[1174] Replace @DVMOV1+13L DZN 3-Jun-79
1) JRST E$$EOO ;[1174]OH WELL, GIVE ERROR
****
2)96 JRST E$$EOO ;[1174]OH WELL, GIVE ERROR
**************
1)96 ;**;[1174] Replace @DVMOV4 DZN 3-Jun-79
1) E$$EOO::PUSH P,[TC] ;[1174] TELL WHICH CHANNEL HAD T
HE ERROR
1) .ERR. (ST,,V%L,L%F,S%F,EOO,<Error on output>) ;
1) E$$EOI::;PUSH P,IO.CHN ;[1174] CHANNEL ALREADY ON STACK
1) .ERR. (ST,,V%L,L%F,S%F,EOI,<Error on input>) ;
1)97 ;HERE TO GET PROTECTION CODE RIGHT
****
2)97 E$$EOO::PUSH P,[TC] ;[1174] TELL WHICH CHANNEL HAD T
HE ERROR
2) .ERR. (ST,,V%L,L%F,S%F,EOO,<Error on output>)
2) E$$EOI::;PUSH P,IO.CHN ;[1174] CHANNEL ALREADY ON STACK
2) .ERR. (ST,,V%L,L%F,S%F,EOI,<Error on input>)
2)98 ;HERE TO GET PROTECTION CODE RIGHT
**************
1)98 ;**;[1146] Delete entire page @JBNC and down through JBEXIT+4L
1) ;**;[1146] on next page. Move JBEXIT+5L through the end of the p
age
1) ;**;[1146] down where indicated below. Delete entire page @JBCC.
1) ;**;[1146] Then replace @JBGC-6L DZN 8-Mar-79
1) SUBTTL LOAD PROGRAM INTO MEMORY
****
2)99 SUBTTL LOAD PROGRAM INTO MEMORY
**************
1)99 ;**;[1172] Delete @ JBLOAD JNG 5-Jun-79
1) JBLOAD: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
****
2)99 JBLOAD: DMOVE P1,LC.LB ;SAVE THE CURRENT LOCATIONS
**************
1)99 ;**;[1147] Insert @ JBGC+3L JNG 12-Mar-79
1) ;**;[1147] This is JBLOAD+3L if edit 1146 has been installed.
1) MOVEM T1,DY.UB ;[1147] MAKE SURE UB IS UP TO DA
TE
****
2)99 MOVEM T1,DY.UB ;[1147] MAKE SURE UB IS UP TO DA
TE
**************
1)99 ;**;[1146] Insert before JBGC+6L DZN 8-Mar-79
1) SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
NEEDED
****
2)99 SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
Digital Equipment Corporation 28-AUG-79 Page 140
PCO Log Report
NEEDED
**************
1)99 ;**;[1170] Change @ JBLOAD+12L JNG 23-May-79
1) JUMPE P2,JBGCL ;[1170] GO MOVE IF NO HI SEG
****
2)99 JUMPE P2,JBGCL ;[1170] GO MOVE IF NO HI SEG
**************
1)99 ;**;[1146] Insert before JBGC+16L DZN 8-Mar-79
1) SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
NEEDED
****
2)99 SUBI T1,1 ;[1146] LB + LENGTH - 1 FOR LAST
NEEDED
**************
1)100 ;**;[1170] Replace @ JBGC1 JNG 23-May-79
1) MOVEI R,LC.IX ;[1170] POINT TO LOW SEG FOR JBC
GM
****
2)100 MOVEI R,LC.IX ;[1170] POINT TO LOW SEG FOR JBC
GM
**************
1)100 ;**;[1170] Insert @ JBGCL+3L JNG 23-May-79
1) SKIPN T1,HC.UB ;[1170] GET LAST LOCATION USED
****
2)100 SKIPN T1,HC.UB ;[1170] GET LAST LOCATION USED
**************
1)100 ;**;[1170] Change @ JBGCZ+5L JNG 23-May-79
1) SETZM -1(T1) ;[1170] CLEAR FIRST WORD
****
2)100 SETZM -1(T1) ;[1170] CLEAR FIRST WORD
**************
1)100 ;**;[1146] Replace @JBGCZ1+1L DZN 8-Mar-79
1) JRST JBEXIT ;[1146] PROGRAM NOW ALL IN MEMOR
Y
1)101 ;**;[1170] Delete @ JBGHCU JNG 23-May-79
1) ;**;[1146] (Swapped as noted above). Make minor changes below.
1) ;**;[1146] DZN 8-Mar-79
1) ;HERE TO MOVE CODE FOR EITHER SEG AND READ IN DATA
1) ;**;[1146] Insert before JBCHMV DZN 8-Mar-79
1) P0==P1-1 ;[1146] USED FOR REFERENCING P1
OR P2 VIA R
****
2)100 JRST JBEXIT ;[1146] PROGRAM NOW ALL IN MEMOR
Y
2)101 ;HERE TO MOVE CODE FOR EITHER SEG AND READ IN DATA
2) P0==P1-1 ;[1146] USED FOR REFERENCING P1
OR P2 VIA R
**************
1)101 ;**;[1170] Replace @ JBGCMV+3L JNG 23-May-79
1) PUSHJ P,JBGCM ;[1170] MOVE THE AREA, UP OR DOW
N
Digital Equipment Corporation 28-AUG-79 Page 141
PCO Log Report
****
2)101 PUSHJ P,JBGCM ;[1170] MOVE THE AREA, UP OR DOW
N
**************
1)101 ;**;[1170] Replace @ JBGCMV+17L JNG 23-May-79
1) POPJ P, ;[1170] ALL DONE
****
2)101 POPJ P, ;[1170] ALL DONE
**************
1)101 ;**;[1170] Replace @ JBGCMV+19L JNG 23-May-79
1) PJRST @[EXP LC.IN##,HC.IN##]-1(R) ;[1170] READ IT
IN AND RETURN
1)102 ;**;[1170] Revamp @ JBGCU JNG 23-May-79
1) ;SUBROUTINE TO MOVE AN AREA TO ITS FINAL RESTING PLACE.
****
2)101 PJRST @[EXP LC.IN##,HC.IN##]-1(R) ;[1170] READ IT
IN AND RETURN
2)102 ;SUBROUTINE TO MOVE AN AREA TO ITS FINAL RESTING PLACE.
**************
1)104 ;**;[1146] Place saved code from JBEXIT here, then make minor ch
anges
1) ;**;[1146] as indicated. DZN 8-Mar-79
1) SUBTTL HERE TO BLT DOWN AREA AND EITHER GO TO EXECUTION OR EXIT
****
2)104 SUBTTL HERE TO BLT DOWN AREA AND EITHER GO TO EXECUTION OR EXIT
**************
1)104 ;**;[1170] Delete @ JBEXIT+4L JNG 23-May-79
1) SKIPE STADDR ;WARN USER IF NO STARTING ADDRES
S
****
2)104 SKIPE STADDR ;WARN USER IF NO STARTING ADDRES
S
**************
1)104 ;**;[1145] Replace @JBEX10+12L DZN 22-Feb-79
1) IFN TOPS20,<
****
2)104 IFN TOPS20,<
**************
1)105 IFN TOPS20,< ;IF TENEX, SETUP START VECTOR
1) MOVEI T1,400000 ;THIS FORK
****
2)105 IFN TOPS20,< ;IF TOPS-20, SETUP START VECTOR
2) MOVEI T1,400000 ;THIS FORK
**************
1)106 ;**;[1144] Replace @JBNEX+4L DZN 16-Feb-79
1)107 MOVE T1,[[ASCIZ /%LNKDLT Execution deleted/],,%TM
ES] ;[1144]
****
2)107 MOVE T1,[[ASCIZ /%LNKDLT Execution deleted/],,%TM
Digital Equipment Corporation 28-AUG-79 Page 142
PCO Log Report
ES] ;[1144]
**************
1)109 MOVE T1,[ASCIZ \[LNKDEB \] ;
1) MOVE T1+1,1+[ASCIZ \[LNKDEB \] ;
1) > ;END IFE FTKIONLY
1) IFN FTKIONLY,<
1) DMOVE T1,[ASCIZ \[LNKDEB \] ;
1) > ;END IFN FTKIONLY
****
2)109 MOVE T1,[ASCIZ \[LNKDEB \]
2) MOVE T1+1,1+[ASCIZ \[LNKDEB \]
2) > ;END IFE FTKIONLY
2) IFN FTKIONLY,<
2) DMOVE T1,[ASCIZ \[LNKDEB \]
2) > ;END IFN FTKIONLY
**************
1)110 IFE TOPS20,< ;
1) MOVE T1,.JBPFH## ;GET CURRENT PAGE FAULT HANDLER
****
2)110 IFE TOPS20,<
2) MOVE T1,.JBPFH## ;GET CURRENT PAGE FAULT HANDLER
**************
1)110 > ;
1) SETNAM T3, ;FOR ARG WATCHING
****
2)110 >
2) SETNAM T3, ;FOR ARG WATCHING
**************
1)110 IFE TOPS20,< ;
1) RESET ;MAKE SURE NO I/O STILL OPEN
1) > ;
1) IFN TOPS20,< ;SPECIAL IF TENEX DDT
1) MOVEI T1,400000 ;THIS FORK
1) DIR ;
1) CIS ;
1) MOVSI T1,(JFCL) ;[644] REPLACE WITH JFCL IF DESI
RED
****
2)110 IFE TOPS20,<
2) RESET ;MAKE SURE NO I/O STILL OPEN
2) >
2) IFN TOPS20,< ;SPECIAL IF TOPS-20 DDT
2) MOVEI T1,400000 ;THIS FORK
2) DIR
2) CIS
2) MOVSI T1,(JFCL) ;[644] REPLACE WITH JFCL IF DESI
RED
**************
1)111 ;**;[1174] Replace @REMERR+1L DZN 7-Jun-79
Digital Equipment Corporation 28-AUG-79 Page 143
PCO Log Report
1) JRST E01RME ;[1174] NO, OR FAILED TWICE
****
2)111 JRST E01RME ;[1174] NO, OR FAILED TWICE
**************
1)111 ;**;[1174] Replace @REMERR+6L DZN 7-Jun-79
1) E$$RME::.OERR. %VMRERR ;[1174] LNKRME
****
2)111 E$$RME::.OERR. %VMRERR ;[1174] LNKRME
**************
1)112 IFE TOPS20,< ;
1) %7: MOVEM 3,.JBPFH## ;SET PAGE FAULT HANDLER
1) > ;
1) IFN TOPS20,< ;
1) %7: JSYS 147 ;TENEX RESET, FLUSH PA1050
1) > ;
1) %10: SETZB 0,.-. ;CLEAR FIRST WORD
****
2)112 IFE TOPS20,<
2) %7: MOVEM 3,.JBPFH## ;SET PAGE FAULT HANDLER
2) >
2) IFN TOPS20,<
2) %7: JSYS 147 ;TOPS-20 RESET, FLUSH PA1050
2) >
2) %10: SETZB 0,.-. ;CLEAR FIRST WORD
**************
1)113 ;**;[1144] Insert before LSCNT DZN 16-Feb-79
1) IFE TOPS20,<
****
2)113 IFE TOPS20,<
**************
1)113 ;**;[1172] Replace @ LSCNT JNG 5-Jun-79
1) U (TTLPTR) ;BACK POINTER TO LAST SUBPROGRAM
****
2)113 U (TTLPTR) ;BACK POINTER TO LAST SUBPROGRAM
**************
1)113 ;**;[1172] Replace @ SYMPSC JNG 5-Jun-79
1) U (SYMDEW) ;[1172] RESERVE SPACE IN SYMBOL
TABLE
1) U (SYMFUL) ;[1172] SYMOUT HAS NON-SKIPPED O
NCE
1) XITLIT:
1) END LNKXIT
****
2)113 U (SYMDEW) ;[1172] RESERVE SPACE IN SYMBOL
TABLE
2) U (SYMFUL) ;[1172] SYMOUT HAS NON-SKIPPED O
NCE
2)114 SUBTTL THE END
2) XITLIT: END LNKXIT
Digital Equipment Corporation 28-AUG-79 Page 144
PCO Log Report
**************
Digital Equipment Corporation 28-AUG-79 Page 145
PCO Log Report
[FILCOM]
File 1) LINK:PLTDCL.MAC[30,4507] created: 1707 28-Feb-1978
File 2) LINK:PLTDCL.MAC[10,645063] created: 0940 26-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
1) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
1) ;
1) ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1)2 ;BLISS-10 5(110) 7/11/74 10:34:38
PLTDCL.BLI Page 1
****
2)1 ;BLISS-10 5(110) 7/11/74 10:34:38
PLTDCL.BLI Page 1
**************
1)2 TITLE PLTO..
****
2)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) TITLE PLTO..
**************
Digital Equipment Corporation 28-AUG-79 Page 146
PCO Log Report
[FILCOM]
File 1) LINK:PLTGLB.MAC[30,4507] created: 1907 24-Feb-1978
File 2) LINK:PLTGLB.MAC[10,645063] created: 1314 26-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE PLTGLB
2) SUBTTL /DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) TITLE PLTGLB
1) SEARCH PLTPRM
1) LOC 0
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
2) DECVER==4 ;DEC VERSION
2) DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1217 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
2) ;START OF VERSION 4A
2) ;1217 Clean up the listings for release.
2)3 LOC 0
**************
1)1 END
****
2)5 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 147
PCO Log Report
[FILCOM]
File 1) LINK:PLTIO.MAC[30,4507] created: 1906 24-Feb-1978
File 2) LINK:PLTIO.MAC[10,645063] created: 1707 26-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE LINE
2) SUBTTL D.TODD/DRT/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) TITLE LINE
1) SUBTTL D.TODD /DRT 22-MAR-1973
1) SEARCH PLTPRM
1) IFE HILOW,< TWOSEG
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
2) DECVER==4 ;DEC VERSION
2) DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1217 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
2) ;START OF VERSION 4A
2) ;1217 Clean up the listings for release and fix unmatched angl
e brackets.
2)3 IFE HILOW,< TWOSEG
**************
1)3 TITLE PLOT %2.(221) PLOT SUBROUTINES
1) SUBTTL D. TODD /DRT/HPW/ 24-OCT-73
1) SEARCH PLTPRM
1) IFE HILOW,< TWOSEG
1) RELOC 400000>
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.*
**
1) ;THIS PACKAGE CONTAINS THE PLOT ROUTINES FOR THE XY10 PLOTTER.
****
2)4 TITLE PLOT %2.(221) PLOT SUBROUTINES
2) SUBTTL D. TODD/DRT/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,< TWOSEG
2) RELOC 400000>
2)5 ;THIS PACKAGE CONTAINS THE PLOT ROUTINES FOR THE XY10 PLOTTER.
**************
Digital Equipment Corporation 28-AUG-79 Page 148
PCO Log Report
1)9 JRST ENDTXT ;SIZE MUST BE >0
1) HRLI SVTXT,440700 ;POINTER TO ASCII
****
2)11 JRST ENDTXT ;SIZE MUST BE .GT. 0
2) HRLI SVTXT,440700 ;POINTER TO ASCII
**************
1)25 END
****
2)28 SUBTTL THE END
2) END
**************
Digital Equipment Corporation 28-AUG-79 Page 149
PCO Log Report
[FILCOM]
File 1) LINK:PLTMTH.MAC[30,4507] created: 1907 24-Feb-1978
File 2) LINK:PLTMTH.MAC[10,645063] created: 1319 26-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 UNIVERSAL FORMSC %2.(120) UNIVERSAL FILE TO ASSEMBLE THE F
IX/FLOAT FUNCTIONS
2) SUBTTL D. TODD/DRT/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) UNIVERSAL FORMSC %2.(120) UNIVERSAL FILE TO ASSEMBLE THE F
IX/FLOAT FUNCTIONS
1) SUBTTL D. TODD /DRT 15-FEB-1973
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
*
1) SEARCH PLTPRM
1) IF1,< ;PASS 1 ASSEMBLY ONLY
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
2) DECVER==4 ;DEC VERSION
2) DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1217 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
2) ;START OF VERSION 4A
2) ;1217 Clean up the listings for release.
2)3 IF1,< ;PASS 1 ASSEMBLY ONLY
**************
1)2 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
*
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)4 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)2 SUBTTL D. TODD /DRT 15-FEB-1973
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
*
Digital Equipment Corporation 28-AUG-79 Page 150
PCO Log Report
1) ;FROM LIB40 V32.(415)
****
2)5 SUBTTL D. TODD/DRT/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM LIB40 V32.(415)
**************
1)2 SEARCH PLTPRM
1) IFE HILOW,<
****
2)5 IFE HILOW,<
**************
1)3 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
*
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)6 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)3 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
*
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)7 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)3 SUBTTL D. TODD /DRT 15-FEB-1973 ED YOURDON/KK/TW
E/DMN
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD MASS.**
Digital Equipment Corporation 28-AUG-79 Page 151
PCO Log Report
*
1) ;FROM LIB40 V.32(415)
****
2)8 SUBTTL D. TODD/DRT/EY/KK/TWE/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM LIB40 V.32(415)
**************
1)3 SEARCH PLTPRM
1) IFE HILOW,<
****
2)8 IFE HILOW,<
**************
1)4 SEARCH FORMSC,PLTPRM
1) IFE HILOW,<
****
2)9 SUBTTL /DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH FORMSC,PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)4
1)
1) TITLE FLT.14
1) SEARCH FORMSC,PLTPRM
1) IFE HILOW,<
****
2)10 TITLE FLT.14
2) SUBTTL /DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH FORMSC,PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)4 SEARCH FORMSC,PLTPRM
1) IFE HILOW,<
****
2)11 SUBTTL /DZN 25-Jul-79
Digital Equipment Corporation 28-AUG-79 Page 152
PCO Log Report
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH FORMSC,PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)4 SUBTTL D. TODD /DMN/DRT/HPW/ 16-OCT-1973
1) VERWHO==0
1) VERVER==2
1) VERUPD==0
1) VERPAT==216
1) XP2VER=BYTE (3)VERWHO(9)VERVER(6)VERUPD(18)VERPAT
1) PURGE VERWHO,VERVER,VERUPD,VERPAT
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
***
1) ;FROM V.32(415) LIB40
****
2)12 SUBTTL D. TODD/DMN/DRT/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM V.32(415) LIB40
**************
1)4 SEARCH PLTPRM
1) IFE HILOW,<
****
2)12 IFE HILOW,<
**************
1)4 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)13 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)4 SUBTTL ED YOURDON/KK/DMN
1) SUBTTL D. TODD /DRT/HPW 11-DEC-73
Digital Equipment Corporation 28-AUG-79 Page 153
PCO Log Report
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
***
1) ;FROM V.021 8-AUG-69
****
2)14 SUBTTL D. TODD/DRT/HPW/EY/KK/DMN25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM V.021 8-AUG-69
**************
1)4 SEARCH PLTPRM
1) IFE HILOW,<
****
2)14 IFE HILOW,<
**************
1)4 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)15 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)4 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) TWOSEG
****
2)16 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) TWOSEG
**************
1)4 SUBTTL D. TODD /KK/DMN/DRT/HPW 11-DEC-73
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
***
1) ;FROM V.022 18-DEC-69
****
2)17 SUBTTL D. TODD/KK/DMN/DRT/HPW/DZN 25-Jul-79
Digital Equipment Corporation 28-AUG-79 Page 154
PCO Log Report
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM V.022 18-DEC-69
**************
1)4 SEARCH PLTPRM
1) IFE HILOW,<
****
2)17 IFE HILOW,<
**************
1)5 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)18 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)5 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)19 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)5 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)20 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
Digital Equipment Corporation 28-AUG-79 Page 155
PCO Log Report
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)5 SUBTTL H. P. WEISS/HPW 11-DEC-73
1) ;***COPYRIGHT 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.***
1) SEARCH PLTPRM
1) IFE HILOW,<
****
2)21 SUBTTL H. P. WEISS/HPW/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) IFE HILOW,<
**************
1)5 SUBTTL ED YOURDAN/KK/DMN
1) SUBTTL D. TODD /DRT/HPW 11-DEC-73
1) ;***COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
***
1) ;FROM V.020
****
2)22 SUBTTL D. TODD/DRT/HPW/EY/KK/DMN/DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
2) ; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
2) ;
2) ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) ;FROM V.020
**************
1)5 SEARCH PLTPRM
1) IFE HILOW,<
****
2)22 IFE HILOW,<
**************
Digital Equipment Corporation 28-AUG-79 Page 156
PCO Log Report
[FILCOM]
File 1) LINK:PLTPRM.MAC[30,4507] created: 1906 24-Feb-1978
File 2) LINK:PLTPRM.MAC[10,645063] created: 1344 26-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 UNIVERSAL PLTPRM
2) SUBTTL /DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) UNIVERSAL PLTPRM
1) T0=0
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) CUSTVR==0 ;CUSTOMER VERSION
2) DECVER==4 ;DEC VERSION
2) DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1217 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
2) ;START OF VERSION 4A
2) ;1217 Clean up the listings for release.
2)3 T0=0
**************
1)3 SUBTTL D. TODD/DRT/HPW/SRM 4-FEB-74
1) PASS2 ;SAVE PRINT OUT ON PASS 2
1) ;***COPYRIGHT 1972,1973,1974 DIGITAL EQUIPMENT CORP., MAYNARD, M
ASS.***
1) ; THIS FILE MUST BE ASSEMBLED WITH ALL SOURCE FILES
1) ; OF THE FORTRAN OBJECT TIME STSTEM (FOROTS)
1) MLON
1) VFOROT==4 ;FOROTS SYSTEM VERSION NUMBER
1) VERNO==4 ;MAJOR VERSION NUMBER
1) VEDIT==260 ;EDIT NUMBER
1) VMINOR==00 ;MINOR VERSION NUMBER
1) VWHO==0 ;WHO EDITED LAST
1) VERPRM==BYTE (3)VWHO(9)VERNO(6)VMINOR(18)VEDIT
1) ; EXTERNAL SYSTEM SYMBOLS
****
2)4 SUBTTL D. TODD/DRT/HPW/SRM 4-FEB-74
2) ; THIS FILE MUST BE ASSEMBLED WITH ALL SOURCE FILES
2) ; OF THE FORTRAN OBJECT TIME STSTEM (FOROTS)
2) ; EXTERNAL SYSTEM SYMBOLS
**************
Digital Equipment Corporation 28-AUG-79 Page 157
PCO Log Report
[FILCOM]
File 1) LINK:PLTUTL.MAC[30,4507] created: 1907 24-Feb-1978
File 2) LINK:PLTUTL.MAC[10,645063] created: 1115 27-Jul-1979
1)1 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 TITLE PLTUTL
2) SUBTTL /DZN 25-Jul-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 ;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYN
ARD, MASS.
1) TITLE PLTUTL
1) ;THIS PROGRAM IS GENERATED FROM AN EQUIVALENT FORTRAN PR
OGRAM
1) ;OF THE SAME NAME.
1) SEARCH PLTPRM
1) TWOSEG
****
2)1 ;COPYRIGHT (C) 1973, 1979 BY DIGITAL EQUIPMENT CORPORATION
2) SEARCH PLTPRM
2) SALL
2) CUSTVR==0 ;CUSTOMER VERSION
2) DECVER==4 ;DEC VERSION
2) DECMVR==1 ;DEC MINOR VERSION
2) DECEVR==1217 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
2) ;START OF VERSION 4A
2) ;1217 Clean up the listings for release.
2)3 ;THIS PROGRAM IS GENERATED FROM AN EQUIVALENT FORTRAN PROGRAM
2) ;OF THE SAME NAME, WHICH IS INCLUDED BELOW.
2) ; FUNCTION PLTUTL (XXX)
2) ; C ARGUMENTS ARE PASSED IN THIS COMMON--EQUIVS. TAI
LOR PARTIC. LISTS
2) ; COMMON /PLTARG/ARG0,ARG1,ARG2,ARG3,ARG4,ARG5,ARG
6,ARG7
2) ; 1 ,X,Y,DD,TT,TOP,SIDE
2) ; INTEGER ARG0,PLTCHAR
2) ; EQUIVALENCE (PLTCHAR,ARG0)
2) ; REAL ARG1,ARG2,ARG3,ARG4,ARG5,ARG6,ARG7, X,Y
2) ; DIMENSION X(5),Y(5),DD(1),TT(1)
2) ; DATA DD,TT/'TREE ','ARC '/
2) ;
2) ; ENTRY PLTORIG
2) ; EQUIVALENCE (SETTOP,ARG1),(SETSIDE,ARG2),(STPSIZ
,ARG3),
2) ; 1 (WIDNCH,ARG4),(PSTAT,ARG5)
2) ; INTEGER PSTAT
2) ; REAL TOP,SIDE,SETTOP,SETSIDE,STPSIZ,WIDNCH
2) ; PLTUTL=0
2) ; TOP=SETTOP
Digital Equipment Corporation 28-AUG-79 Page 158
PCO Log Report
2) ; SIDE=SETSIDE
2) ; CALL PLOTS(PSTAT,STPSIZ)
2) ; IF (PSTAT .EQ. -1) RETURN
2) ; ARG7=WIDNCH + 1.0
2) ; ARG7=-ARG7
2) ; CALL PLOT(0,ARG7,-3)
2) ; CALL PLOT(0,0.5,-3)
2) ; RETURN
2) ;
2) ; ENTRY PLTINIT
2) ; EQUIVALENCE (XDPEST,ARG1),(YORIG,ARG2)
2) ; REAL XDPEST,YCENTR
2) ; INTEGER PLTUTL
2) ;
2) ; C THE TWO ARGS ARE IMPLICITLY PASSED ON
2) ; PLTUTL=-1
2) ; CALL PLOTI
2) ; RETURN
2) ;
2) ; ENTRY PLTPOLY
2) ; EQUIVALENCE (XSON,ARG1),(YSON,ARG2),
2) ; 1 (NAMLEN,ARG3),(LNUM,ARG4),(LNAME,ARG5),(RNAME
,ARG5)
2) ; INTEGER NAMLEN,LNUM
2) ; REAL XSON,YSON,RNAME
2) ; DIMENSION LNAME(2)
2) ;
2) ; C IN A STATISTICAL SENSE IT IS BETTER TO DO THE 10
STATS ALWAYS
2) ; C RATHER THAN CONDIT AROUND & BRANCH TO WHEN NECES
SARY
2) ;
2) ; X(1)=XSON
2) ; Y(1)=YSON-TOP/2
2) ; X(2)=XSON
2) ; Y(2)=YSON+TOP/2
2) ; X(3)=XSON+SIDE
2) ; Y(3)=YSON+TOP/2
2) ; X(4)=XSON+SIDE
2) ; Y(4)=YSON-TOP/2
2) ; X(5)=X(1)
2) ; Y(5)=Y(1)
2) ;
2) ; IF (LNUM .GT.99999) GO TO 11
2) ; PLTCHAR='*'
2) ; CALL NUMBER(X(1)+SIDE*7.0/16.0,Y(1)+TOP/8,SIDE/8
,
2) ; 1 FLOAT(LNUM),90.0,-1)
2) ; CALL SYMBOL(X(1)+SIDE*14/16,Y(1)+TOP/8,SIDE/8,
Digital Equipment Corporation 28-AUG-79 Page 159
PCO Log Report
2) ; 1 LNAME,90.0,NAMLEN)
2) ; GO TO 99
2) ;
2) ; 11 IF (LNUM .NE. 100000) GO TO 12
2) ; IF (PLTUTL.NE.0) GO TO 115
2) ;
2) ; X(1)=XSON
2) ; Y(1)=YSON
2) ; X(2)=XSON+SIDE/2
2) ; Y(2)=YSON+TOP/2
2) ; X(3)=XSON+SIDE
2) ; Y(3)=YSON
2) ; X(4)=XSON+SIDE/2
2) ; Y(4)=YSON-TOP/2
2) ; X(5)=X(1)
2) ; Y(5)=Y(1)
2) ;
2) ; 115 PLTCHAR='$'
2) ; CALL SYMBOL(XSON+SIDE*7/16,YSON-TOP/4,SIDE/6,DD,
90.0,4)
2) ; CALL NUMBER(XSON+SIDE*14/16,YSON,SIDE/6,RNAME,90
.0,-1)
2) ; GO TO 99
2) ;
2) ; 12 IF (LNUM .NE. 100001) GOTO 88
2) ; IF (PLTUTL.NE.0) GO TO 125
2) ;
2) ; X(1)=XSON
2) ; Y(1)=YSON-TOP/2+TOP/6
2) ; X(2)=XSON
2) ; Y(2)=YSON+TOP/2-TOP/6
2) ; X(3)=XSON+SIDE
2) ; Y(3)=YSON+TOP/2
2) ; X(4)=XSON+SIDE
2) ; Y(4)=YSON-TOP/2
2) ; X(5)=X(1)
2) ; Y(5)=Y(1)
2) ;
2) ; 125 PLTCHAR='@'
2) ; CALL SYMBOL(XSON+SIDE*7/16,YSON-TOP/3,SIDE/6,TT,
90.0,3)
2) ; CALL NUMBER(XSON+SIDE*14/16,YSON-TOP/4,SIDE/6,RN
AME,90.0,-1)
2) ; CALL SYMBOL(XSON+SIDE*14/16,YSON,SIDE/6,LNAME(2)
,90.0,1)
2) ;
2) ; 99 CALL LINE(X,Y,5,1)
2) ; RETURN
2) ;
Digital Equipment Corporation 28-AUG-79 Page 160
PCO Log Report
2) ; ENTRY PLTLINE
2) ; EQUIVALENCE(XSELF,ARG1),(YSELF,ARG2),(XDAU,ARG3)
,(YDAU,ARG4)
2) ; REAL YSELF,XSELF,YDAU,XDAU
2) ; PLTCHAR='='
2) ;
2) ; X(1)=XSELF
2) ; Y(1)=YSELF
2) ; X(2)=XDAU
2) ; Y(2)=YDAU
2) ; CALL LINE(X,Y,2,1)
2) ; RETURN
2) ;
2) ; 88 PSTAT=-1
2) ; RETURN
2) ; END
2)4 TWOSEG
**************
1)1 PLTORI:
1) SAVALL
****
2)4 PLTORI:
2) SAVALL
**************
1)1 MOVSI 2,201400
1) FADR 2,INCHES
****
2)4 MOVSI 2,201400
2) FADR 2,INCHES
**************
1)1
1) PLTPOL:
****
2)5 PLTPOL:
**************
1)1 MOVE 2,XSON
1) MOVEM 2,X
****
2)5 MOVE 2,XSON
2) MOVEM 2,X
**************
1)1 MOVE 2,LNUM
1) CAIE 2,303240
****
2)5 MOVE 2,LNUM
2) CAIE 2,303240
**************
1)1 MOVE 2,[221004020100]
1) MOVEM 2,PLTCHA
Digital Equipment Corporation 28-AUG-79 Page 161
PCO Log Report
****
2)5 MOVE 2,[221004020100]
2) MOVEM 2,PLTCHA
**************
1)1 MOVE 2,LNUM
1) CAIE 2,303241
****
2)5 MOVE 2,LNUM
2) CAIE 2,303241
**************
1)1 MOVE 2,[401004020100]
1) MOVEM 2,PLTCHA
****
2)5 MOVE 2,[401004020100]
2) MOVEM 2,PLTCHA
**************
1)1 MOVEI 16,%22M
1) PUSHJ 17,LINE
1) RETURN
1)
1) PLTLIN:
1) SAVALL
1) ARGS <XSELF,YSELF,XDAU,YDAU>
1) MOVE 2,[365004020100]
1) MOVEM 2,PLTCHA
****
2)5 MOVEI 16,%22M
2) PUSHJ 17,LINE
2) RETURN
2)6 PLTLIN:
2) SAVALL
2) ARGS <XSELF,YSELF,XDAU,YDAU>
2) MOVE 2,[365004020100]
2) MOVEM 2,PLTCHA
**************
1)1 SETOB 2,ERRFND
1) %1M:
****
2)6 SETOB 2,ERRFND
2) %1M:
**************
1)1 777774,,0
1) %25M: 200,,X
****
2)7 777774,,0
2) %25M: 200,,X
**************
1)1
1) END
Digital Equipment Corporation 28-AUG-79 Page 162
PCO Log Report
****
2)8 SUBTTL THE END
2) END
**************
[End PCO Write-up]
Digital Equipment Corporation 28-AUG-79 Page 871
PCO Log Report
*********************
*PCO #:10-LINK -305*
*********************
[Program Data] System: LINK
Component:LINK
[Validity] 4(765)+ALL EDITS
[Date Entered] 27-AUG-79
[Programmer] D. NEFF
[Routines] ALL
[Key Words] LAST EDIT
[Source Before Edit] % (000000)
[Source After Edit] %4A (001220)
[Test File Data] : [ ]
[Miscellaneous] DOC changes: N
SER/SPR Number:10-NONE
Critical: N
************************************************************************
[Notes]
Digital Equipment Corporation 28-AUG-79 Page 872
PCO Log Report
[PCO Write-up]
**********
[SYMPTOM]
This being the last edit before the release of version 4A of LINK,
the edit histories should reflect this fact.
**********
[DIAGNOSIS]
This must necessarily wait until the last minute.
**********
[CURE]
Update all of LINK's edit histories to reflect the released
version.
Digital Equipment Corporation 28-AUG-79 Page 873
PCO Log Report
[FILCOM]
File 1) LINK:LNKHST.MAC[30,4507] created: 1419 25-Jul-1979
File 2) LINK:LNKHST.MAC[10,645063] created: 1801 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 25-Jul-7
9
1) ;COPYRIGHT (C) 1973, 1979 BY
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/PAH/DZN 24-Aug-7
9
2) ;COPYRIGHT (C) 1973, 1979 BY
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) LNKVER==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
**************
1)6 SUBTTL THE END
1) END ;OF LNKHST
****
2)5 ;1220 DZN 24-Aug-79
2) ; Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2) ; Routines: All
2)6 SUBTTL THE END
2) END ;OF LNKHST
**************
Digital Equipment Corporation 28-AUG-79 Page 874
PCO Log Report
[FILCOM]
File 1) LINK:LNK999.MAC[30,4507] created: 1209 25-Jul-1979
File 2) LINK:LNK999.MAC[10,645063] created: 1615 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL EMERGENCY GETSEG
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL EMERGENCY GETSEG
**************
Digital Equipment Corporation 28-AUG-79 Page 875
PCO Log Report
[FILCOM]
File 1) LINK:LNKCOR.MAC[30,4507] created: 1212 25-Jul-1979
File 2) LINK:LNKCOR.MAC[10,645063] created: 1616 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)4 SUBTTL SIMPLE TESTS FIRST
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL SIMPLE TESTS FIRST
**************
Digital Equipment Corporation 28-AUG-79 Page 876
PCO Log Report
[FILCOM]
File 1) LINK:LNKCST.MAC[30,4507] created: 1222 25-Jul-1979
File 2) LINK:LNKCST.MAC[10,645063] created: 1616 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL DISPATCH TABLES FOR CUSTOMER TYPES
**************
Digital Equipment Corporation 28-AUG-79 Page 877
PCO Log Report
[FILCOM]
File 1) LINK:LNKERR.MAC[30,4507] created: 1330 25-Jul-1979
File 2) LINK:LNKERR.MAC[10,645063] created: 1617 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL FIND MESSAGE
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL FIND MESSAGE
**************
Digital Equipment Corporation 28-AUG-79 Page 878
PCO Log Report
[FILCOM]
File 1) LINK:LNKEXO.MAC[30,4507] created: 1352 25-Jul-1979
File 2) LINK:LNKEXO.MAC[10,645063] created: 1618 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL HERE FOR EXECUTE ONLY ENTRY
**************
Digital Equipment Corporation 28-AUG-79 Page 879
PCO Log Report
[FILCOM]
File 1) LINK:LNKF40.MAC[30,4507] created: 1354 25-Jul-1979
File 2) LINK:LNKF40.MAC[10,645063] created: 1618 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL INITIALIZE TABLES
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL INITIALIZE TABLES
**************
Digital Equipment Corporation 28-AUG-79 Page 880
PCO Log Report
[FILCOM]
File 1) LINK:LNKFIO.MAC[30,4507] created: 1418 25-Jul-1979
File 2) LINK:LNKFIO.MAC[10,645063] created: 1619 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/PAH/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL HERE TO SETUP POINTER TO I/O DATA BLOCK
**************
Digital Equipment Corporation 28-AUG-79 Page 881
PCO Log Report
[FILCOM]
File 1) LINK:LNKHSH.MAC[30,4507] created: 1416 25-Jul-1979
File 2) LINK:LNKHSH.MAC[10,645063] created: 1619 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL SYMBOL TABLE HASH SEARCH
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL SYMBOL TABLE HASH SEARCH
**************
Digital Equipment Corporation 28-AUG-79 Page 882
PCO Log Report
[FILCOM]
File 1) LINK:LNKINI.MAC[30,4507] created: 1349 27-Jul-1979
File 2) LINK:LNKINI.MAC[10,645063] created: 1620 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL INITIALIZE
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL INITIALIZE
**************
Digital Equipment Corporation 28-AUG-79 Page 883
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOD.MAC[30,4507] created: 1110 27-Jul-1979
File 2) LINK:LNKLOD.MAC[10,645063] created: 1621 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 25-Jul-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN 24-Aug-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)7 SUBTTL LOAD CONTROL
****
2)6 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)7 SUBTTL LOAD CONTROL
**************
Digital Equipment Corporation 28-AUG-79 Page 884
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOG.MAC[30,4507] created: 1643 27-Jul-1979
File 2) LINK:LNKLOG.MAC[10,645063] created: 1621 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL DISPATCH TABLES FOR MESSAGE CLASSES
**************
Digital Equipment Corporation 28-AUG-79 Page 885
PCO Log Report
[FILCOM]
File 1) LINK:LNKLOW.MAC[30,4507] created: 1341 27-Jul-1979
File 2) LINK:LNKLOW.MAC[10,645063] created: 1622 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/MCHC/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) LOC 137
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) LOC 137
**************
1)4 SUBTTL STORAGE
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL STORAGE
**************
Digital Equipment Corporation 28-AUG-79 Page 886
PCO Log Report
[FILCOM]
File 1) LINK:LNKMAP.MAC[30,4507] created: 1547 25-Jul-1979
File 2) LINK:LNKMAP.MAC[10,645063] created: 1622 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/SRM/JBC/RKH/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL HEADER LINES
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL HEADER LINES
**************
Digital Equipment Corporation 28-AUG-79 Page 887
PCO Log Report
[FILCOM]
File 1) LINK:LNKNEW.MAC[30,4507] created: 1345 27-Jul-1979
File 2) LINK:LNKNEW.MAC[10,645063] created: 1622 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL BLOCK DISPATCH TABLES
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL BLOCK DISPATCH TABLES
**************
Digital Equipment Corporation 28-AUG-79 Page 888
PCO Log Report
[FILCOM]
File 1) LINK:LNKOLD.MAC[30,4507] created: 1336 27-Jul-1979
File 2) LINK:LNKOLD.MAC[10,645063] created: 1623 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 25-Jul-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN 24-Aug-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)7 COMMENT \
****
2)6 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)7 COMMENT \
**************
Digital Equipment Corporation 28-AUG-79 Page 889
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV1.MAC[30,4507] created: 1353 27-Jul-1979
File 2) LINK:LNKOV1.MAC[10,645063] created: 1624 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL ENTRY POINT
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL ENTRY POINT
**************
Digital Equipment Corporation 28-AUG-79 Page 890
PCO Log Report
[FILCOM]
File 1) LINK:LNKOV2.MAC[30,4507] created: 1625 25-Jul-1979
File 2) LINK:LNKOV2.MAC[10,645063] created: 1624 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL DEFINITIONS
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL DEFINITIONS
**************
Digital Equipment Corporation 28-AUG-79 Page 891
PCO Log Report
[FILCOM]
File 1) LINK:LNKOVS.MAC[30,4507] created: 1626 25-Jul-1979
File 2) LINK:LNKOVS.MAC[10,645063] created: 1625 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)3 SUBTTL TREE WALK ROUTINE
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL TREE WALK ROUTINE
**************
Digital Equipment Corporation 28-AUG-79 Page 892
PCO Log Report
[FILCOM]
File 1) LINK:LNKPAR.MAC[30,4507] created: 1344 27-Jul-1979
File 2) LINK:LNKPAR.MAC[10,645063] created: 1625 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 25-Jul-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/SRM/JBC/JNG/MCHC/PAH/DZN 24-Aug-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) LOC 137 ;KEEPS MACRO HAPPY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) LOC 137 ;KEEPS MACRO HAPPY
**************
1)7 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
****
2)6 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)7 SUBTTL STANDARD MNEMONICS--REGISTERS, BITS, UUOS
**************
Digital Equipment Corporation 28-AUG-79 Page 893
PCO Log Report
[FILCOM]
File 1) LINK:LNKPLT.MAC[30,4507] created: 1730 25-Jul-1979
File 2) LINK:LNKPLT.MAC[10,645063] created: 1626 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 SUBTTL BLISS CONVENTIONS
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 SUBTTL BLISS CONVENTIONS
**************
Digital Equipment Corporation 28-AUG-79 Page 894
PCO Log Report
[FILCOM]
File 1) LINK:LNKSCN.MAC[30,4507] created: 1731 25-Jul-1979
File 2) LINK:LNKSCN.MAC[10,645063] created: 1626 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/JNG/PAH/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)4 SUBTTL INITIALIZE SCANNER
****
2)3 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)4 SUBTTL INITIALIZE SCANNER
**************
Digital Equipment Corporation 28-AUG-79 Page 895
PCO Log Report
[FILCOM]
File 1) LINK:LNKSUB.MAC[30,4507] created: 1736 25-Jul-1979
File 2) LINK:LNKSUB.MAC[10,645063] created: 1626 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 ;HERE TO GET THE REQUIRED PRIME NUMBER INTO HT.PRM
**************
Digital Equipment Corporation 28-AUG-79 Page 896
PCO Log Report
[FILCOM]
File 1) LINK:LNKWLD.MAC[30,4507] created: 1101 27-Jul-1979
File 2) LINK:LNKWLD.MAC[10,645063] created: 1626 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 25-Jul-7
9
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/SRM/JBC/JNG/MCHC/PAH/DZN 24-Aug-7
9
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) SEGMENT
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) SEGMENT
**************
1)7 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
****
2)6 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)7 SUBTTL ENTER HERE FROM LNKLOD TO GET A FILE TO LOAD
**************
Digital Equipment Corporation 28-AUG-79 Page 897
PCO Log Report
[FILCOM]
File 1) LINK:LNKXIT.MAC[30,4507] created: 1325 27-Jul-1979
File 2) LINK:LNKXIT.MAC[10,645063] created: 1628 24-Aug-1979
1)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1) VERSION
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2) VERSION
**************
1)7 SUBTTL ENTER HERE
****
2)6 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)7 SUBTTL ENTER HERE
**************
Digital Equipment Corporation 28-AUG-79 Page 898
PCO Log Report
[FILCOM]
File 1) LINK:PLTGLB.MAC[30,4507] created: 1314 26-Jul-1979
File 2) LINK:PLTGLB.MAC[10,645063] created: 1642 24-Aug-1979
1)1 SUBTTL /DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL /DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
**************
1)3 LOC 0
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 LOC 0
**************
Digital Equipment Corporation 28-AUG-79 Page 899
PCO Log Report
[FILCOM]
File 1) LINK:PLTIO.MAC[30,4507] created: 1707 26-Jul-1979
File 2) LINK:PLTIO.MAC[10,645063] created: 1643 24-Aug-1979
1)1 SUBTTL D.TODD/DRT/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D.TODD/DRT/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
**************
1)3 IFE HILOW,< TWOSEG
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 IFE HILOW,< TWOSEG
**************
Digital Equipment Corporation 28-AUG-79 Page 900
PCO Log Report
[FILCOM]
File 1) LINK:PLTMTH.MAC[30,4507] created: 1319 26-Jul-1979
File 2) LINK:PLTMTH.MAC[10,645063] created: 1643 24-Aug-1979
1)1 SUBTTL D. TODD/DRT/DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL D. TODD/DRT/DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
**************
1)3 IF1,< ;PASS 1 ASSEMBLY ONLY
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 IF1,< ;PASS 1 ASSEMBLY ONLY
**************
Digital Equipment Corporation 28-AUG-79 Page 901
PCO Log Report
[FILCOM]
File 1) LINK:PLTPRM.MAC[30,4507] created: 1344 26-Jul-1979
File 2) LINK:PLTPRM.MAC[10,645063] created: 1644 24-Aug-1979
1)1 SUBTTL /DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL /DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
**************
1)3 T0=0
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 T0=0
**************
Digital Equipment Corporation 28-AUG-79 Page 902
PCO Log Report
[FILCOM]
File 1) LINK:PLTUTL.MAC[30,4507] created: 1115 27-Jul-1979
File 2) LINK:PLTUTL.MAC[10,645063] created: 1644 24-Aug-1979
1)1 SUBTTL /DZN 25-Jul-79
1) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
****
2)1 SUBTTL /DZN 24-Aug-79
2) ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
**************
1)1 DECEVR==1217 ;DEC EDIT VERSION
1)2 SUBTTL REVISION HISTORY
****
2)1 DECEVR==1220 ;DEC EDIT VERSION
2)2 SUBTTL REVISION HISTORY
**************
1)3 ;THIS PROGRAM IS GENERATED FROM AN EQUIVALENT FORTRAN PROGRAM
****
2)2 ;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
2)3 ;THIS PROGRAM IS GENERATED FROM AN EQUIVALENT FORTRAN PROGRAM
**************
[End PCO Write-up]