Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
lnkcor.c07
There is 1 other file named lnkcor.c07 in the archive. Click here to see a list.
REP 2/1 ;07C1
SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN/PAH/PY/HD 6-Jan-83
WIT
SUBTTL D.M.NIXON/DMN/JLd/JBC/JNG/DZN/PAH/PY/HD/JBS 31-Oct-83
REP 43/1 ;07C2
DECEVR==2026 ;DEC EDIT VERSION
WIT
DECEVR==2051 ;DEC EDIT VERSION
INS 16/4 ;07C3
;1542 Do not add section number to addresses twice at LDCR6C, LDCOR7.
;1543 Avoid using EXTFLG when calling LS.OUT or NEWSCT.
INS 20/4 ;07C4
;2044 Always removed mapped area in XX.INI under TOPS-20
;2051 Don't ask for SPR if DSK: can't be written to for .TMP files
REP 52/10 ;07C5
SKIPGE T1 ;[1412] REALLY A JFN?
ADD T1,NONZER ;[1412] NO, ADD IN SECTION NUMBER
WIT
;**;[1542] Remove 2 lines at LDCR6C+26. PAH 25-Dec-82
REP 45/11 ;07C6
SKIPGE T1 ;[1412] REALLY A JFN?
ADD T1,NONZER ;[1412] NO, ADD SECTION NUMBER
WIT
;**;[1542] Remove 2 lines at LDCOR7+42. PAH 25-Dec-82
REP 10/25 ;07C7
CNA.LS: SKIPGE UW.LS ;TEST FOR -1
POPJ P, ;JUST RETURN
WIT
;**;[2044] Replace at CNA.LS PY 13-Jul-83
CNA.LS: ;[2044]
IFE TOPS20,< ;[2044]
SKIPGE UW.LS ;TEST FOR -1
POPJ P, ;JUST RETURN
>;[2044] END IFE TOPS20
IFN TOPS20,< ;[2044]
SKIPL UW.LS ;[2044] Test for -1
>;[2044] END IFN TOPS20
INS 22/25 ;07C8
;**;[2044] Insert 1 Line after CNABLT+8 Lines PY 13-Jul-83
ADDI T1,1 ;[2044] Need page above top of area
INS 19/46 ;07C9
;**;[1543] Add two lines after %AREA'.OUT+6 in IFN TOPS20 PAH 25-Jan-83
PUSH P,EXTFLG ;[1543] SAVE EXTFLG
SETZM EXTFLG ;[1543] AND ZERO IT
INS 25/46 ;07C10
;**;[1543] Add 1 line after %AREA'.OUT+12 in IFN TOPS20 PAH 25-Jan-83
POP P,EXTFLG ;[1543] RESTORE EXTFLG
INS 16/52 ;07C11
;**;[1543] Add 2 lines after %AREA'.IN+6 in IFN TOPS20 PAH 12-Jan-83
PUSH P,EXTFLG ;[1543] ZERO OUT EXTFLG
SETZM EXTFLG ;[1543] TO AVOID TOUCHING LC SECTIONS
INS 21/52 ;07C12
;**;[1543] Add 1 line after %AREA'.IN+11 in IFN TOPS20 PAH 12-Jan-83
POP P,EXTFLG ;[1543] PUT BACK LC SECTION FLAG
REP 14/59 ;07C13
E$$ELC::
IFE TOPS20,<
PUSH P,[LC] ;[1230] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,ELC,<Error creating area LC overflow file>) ;[1174]
> ;[1401] IFE TOPS20
IFN TOPS20,<
; MOVE T2,LC.JF ;[1401] PICK UP LC JFN
; HRROI T1,.TEMP ;[1401] PUT THE STRING IN .TEMP
; SETZM T3 ;[1401] NOTHING FANCY
; SETZM T4
; JFNS
MOVE T2,LC.IX ;[1511] PUT INDEX IN IO.CHN
MOVEM T2,IO.CHN## ;[1511] TO HAVE DVTXT1 FETCH FILENAME
MOVEI T1,.TEMP ;[1511] INTO .TEMP
PUSHJ P,DVTXT1 ;[1511]
.ERR. (MS,.EC,V%L,L%F,S%F,ELC,<Error creating area LC overflow file >)
.ETC. (STR,,,,,.TEMP)
> ;[1401] IFN TOPS20
POPJ P,
E$$EHC::
IFE TOPS20,<
PUSH P,[HC] ;[1230] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,EHC,<Error creating area HC overflow file>) ;[1174]
> ;[1401] IFE TOPS20
IFN TOPS20,<
; MOVE T2,HC.JF ;[1401] PICK UP HC JFN
; HRROI T1,.TEMP ;[1401] PUT THE STRING IN .TEMP
; SETZM T3 ;[1401] NOTHING FANCY
; SETZM T4
; JFNS
MOVE T2,HC.IX ;[1511] PUT INDEX IN IO.CHN
MOVEM T2,IO.CHN## ;[1511]
MOVEI T1,.TEMP ;[1511] SO DVTXT1 CAN RETURN A FILENAME
PUSHJ P,DVTXT1 ;[1511]
.ERR. (MS,.EC,V%L,L%F,S%F,EHC,<Error creating area HC overflow file >)
.ETC. (STR,,,,,.TEMP)
> ;[1401] IFN TOPS20
POPJ P,
E$$ELS::
IFE TOPS20,<
PUSH P,[SC] ;[1230] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,ELS,<Error creating area LS overflow file>) ;[1174]
> ;[1401] IFE TOPS20
IFN TOPS20,<
; MOVE T2,SC.JF ;[1401] PICK UP LS JFN
; HRROI T1,.TEMP ;[1401] PUT THE STRING IN .TEMP
; SETZM T3 ;[1401] NOTHING FANCY
; SETZM T4
; JFNS
MOVE T2,LS.IX ;[1511]
MOVEM T2,IO.CHN## ;[1511]
MOVEI T1,.TEMP ;[1511]
PUSHJ P,DVTXT1## ;[1511]
.ERR. (MS,.EC,V%L,L%F,S%F,ELS,<Error creating area LS overflow file >)
.ETC. (STR,,,,,.TEMP)
> ;[1401] IFN TOPS20
POPJ P,
E$$EAS::
IFE TOPS20,<
PUSH P,[AC] ;[1230] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,EAS,<Error creating area AS overflow file>) ;[1230]
> ;[1401] IFE TOPS20
IFN TOPS20,<
MOVE T2,AS.IX ;[1511] PUT INDEX IN IO.CHN
MOVEM T2,IO.CHN## ;[1511]
MOVEI T1,.TEMP ;[1511] PUT THE FILENAME IN .TEMP
PUSHJ P,DVTXT1## ;[1511]
.ERR. (MS,0,V%L,L%F,S%F,EAS,<Error creating area AS overflow file>)
.ETC. (STR,,,,,.TEMP)
> ;[1511] IFN TOPS20
POPJ P, ;[1511] RETURN
WIT
E$$ELC::PUSH P,[LC] ;[2051] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,ELC,<Error creating area LC overflow file>)
E$$EHC::PUSH P,[HC] ;[2051] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,EHC,<Error creating area HC overflow file>)
E$$ELS::PUSH P,[SC] ;[2051] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,ELS,<Error creating area LS overflow file>)
E$$EAS::PUSH P,[AC] ;[2051] INDICATE WHICH CHANNEL
.ERR. (LRE,0,V%L,L%F,S%F,EAS,<Error creating area AS overflow file>)
SUM 47542