Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - impure.c05
There are 2 other files named impure.c05 in the archive. Click here to see a list.
 REP 25/1	;05C1

	;V12B****************
 WIT
	;SMI	22-NOV-82	[1433] Declare RPWDPR for RPWGEN code generation
	;SMI	08-OCT-82	[1415] Declare TMP area for 68274 converter
	;JEH	07-JUN-82	[1362] Declare HLDSAV outside of MCS!TCS
	;JEH	18-MAR-82	[1345] Trap illegal UUO's on TOPS10
	;JEH	02-FEB-82	[1335] Declare DATAB entries for all indexes if 
	;				REPORT SECTION has been scanned for their 
	;				use in REPORT WRITER stmts
	;JSM/DN	16-OCT-81	[1300] Define HLDBRO as a temp field for holding
	;				address of current Linkage data item when
	;				testing for Redefined items.
	;JSM	 1-OCT-81	[1316] Copy Repl gives spurious Fatal with Comment
	;				followed by Paragraph name
	;WTK/JM 30-Sep-81	[1315] ILLEGAL INSTR. IN PHASE E BLT AREA FOR A/B
	;				PARAMETERS DURING "SEARCH" IS SHORT BY 1
	;V12B****************
	;DMN	26-MAY-82	[1357] 68274 GETS WRONG LINE BUFFER TO USE WHEN
	;				REPLACING WORDS.
 INS 8/5	;05C2
	IFE TOPS20,<
	;USED TO INTERCEPT ILLEGAL UUO'S
		DEFIN UUOKIL,4		;[1345] ARG BLOCK FOR .JBINT
	>;[1345]
 INS 49/6	;05C3
		DEFIN BLDIX,1		;[1335] BUILD INDEXES EARLY FOR REPORT WRITER USE
 INS 160/6	;05C4
		DEFIN CVTBFL,1		;[1357] LINE NUMBER CORRESPONDING TO CVTBFP
		DEFIN CVTSCL,1		;[1357] WHERE TO SAVE VALUE OF CVTBFL FOR CURRENT WORD.
		DEFIN CVTSNL,1		;[1357] WHERE TO SAVE VALUE OF CVTBFL FOR NEXT WORD.
 INS 170/6	;05C5
		DEFIN CVTTMP,CVTLBZ	;[1415] TEMP LINE TO HOLD PREVIOUS LINE
 INS 45/10	;05C6
		DEFIN AMARFL,1	;[1316] Kludge to hold flag for "LF" seen after
				;[1316] * Comment in Copy Replacing
 REP 6/12	;05C7
		DEFIN	HLDSAV,1		;SAVE AREA FOR CURHLD
 WIT
	;[1362]	DEFIN	HLDSAV,1		;SAVE AREA FOR CURHLD
 INS 11/12	;05C8
		DEFIN	HLDSAV,1		;[1362] NOT CONDITIONAL ON MCS!TCS
 INS 7/16	;05C9
	IFN RPW,<			;[1433] 
		DEFIN	RPWDPR		;[1433] THE PAGE ROUTINE IS A DUMMY ROUTINE
	>				;[1433]
 INS 84/16	;05C10
		DEFIN HLDBRO,1	;[1300] TEMP FOR REDEFINES IN LINKAGE SECTION.
 REP 11/20	;05C11
		SETVAL ESVSCX,2*EFLAGX+ESAVSC
 WIT
		SETVAL ESVSCX,2*EFLAGX+ESAVSC+1;	;[1315]
 SUM 32196