Google
 

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