Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobver.c08
There are 4 other files named cobver.c08 in the archive. Click here to see a list.
 REP 12/1	;08C1
		CBLEDT==1507		;EDIT LEVEL
 WIT
		CBLEDT==1521		;EDIT LEVEL
 REP 21/1	;08C2
	LBLEDT==1103	;EDIT LEVEL
 WIT
	LBLEDT==1115	;EDIT LEVEL
 INS 620/4	;08C3
	;.EDIT	1510	 At MLAC1., don't use ac TD, it's needed later
	;		JEH,16-DEC-83,SPR:NONE
	;		A:SRC MOVGEN
	;
	;.EDIT	1511	Test for need of floating point correction factor
	;;		before test for rounding
	;		JEH,19-DEC-83,SPR:20-19795
	;		A:SRC EXPGEN
	;
	;.EDIT	1512	Set up proper "FROM" address for MOVN instruction
	;		JSM,19-DEC-83,SPR:20-19649
	;		A:SRC MOVGEN
	;
	;.ENDA
	;.AUTOPATCH 8
	;
	;.EDIT  1513	Build second descriptor word correctly for fig.
	;;		const. passed as argument to subprogram
	;		JEH,13-FEB-84,SPR:20-19796
	;		A:SRC IPCGEN,COBVER
	;
	;.EDIT	1514	Shut off AMRGN. flag while matching PRVTOK
	;;		against TYPE codes
	;		JEH,14-FEB-84,SPR:10-34473
	;		A:SRC COBOLD
	;
	;.EDIT	1515	Restore core pointer (EAS1PC) before defining
	;;		implied indexex
	;		JEH,14-FEB-84,SPR:20-19932
	;		A:SRC COBOLC
	;
	;.EDIT	1516	Don't clear sort record area if file named
	;;		in 'same record area' clause
	;		JEH,19-MAR-84,SPR:NONE
	;		A:SRC SRTGEN
	;
	;.EDIT	1517	Fix line splitting for copy replacing
	;		JEH,19-MAR-84,SPR:NONE
	;		A:SRC GETITM
	;
	;.EDIT	1520	Give error if 'DEPENDING ON D-N' and D-N
	;;		requires a subscript
	;		JEH,28-MAR-84,SPR:10-34603
	;		A:SRC CLEANC
	;.EDIT	1521	Use the device and PPN fields to find correct
	;;		libary file
	;		JEH,10-APR-84,SPR:20-20068
	;		A:SRC GETITM
 REP 312/14	;08C4
	;.ENDA
	;
 WIT
	;.EDIT	1104	Remove warning message to run seteof. set file
	;;		to maximum allowably byte count instead.
	;		JBB,20-DEC-83,SPR:20-19743
	;		A:SRC CBLIO
	;
	;.EDIT	1105	Put a '?' in front of warning to make it FATAL
	;		JBB,21-DEC-83,SPR:20-19843
	;		A:SRC CBLIO
	;
	;.EDIT	1106	Move the definition of RMS$10 from LIBSHR to COMUNI
	;		RLF,10-JAN-84,SPR:10-34337
	;		A:SRC COMUNI,LIBSHR
	;
	;.ENDA
	;.AUTOPATCH 8
	;
	;.EDIT	1107	(For non-BIS) In routine ADD.21, don't clear overflow
	;;		flags, just the carry flag which the routine tests on
	;		JEH,16-JAN-84,spr:10-34343
	;		A:SRC DPADD
	;
	;.EDIT	1110	Location of SNRBP. is zeroed out and caused error if
	;;		SMU is used with segmentation.
	;		RLF,14-FEB-84,SPR:10-34470
	;		A:SRC LSU
	;
	;.EDIT	1111	Delete edit 1106.
	;		RLF,13-MAR-84,SPR:NONE
	;		A:SRC COMUNI,LIBSHR
	;
	;.EDIT	1112	Don't put a <CR> at end of STD-ASCII mag tape file
	;		JEH,19-MAR-84,SPR:NONE
	;		A:SRC CBLIO
	;
	;
	;.EDIT  1113	Use procedure with filename-1 OPEN option.
	;		RLF,22-MAR-84,SPR:20-20027
	;		A:SRC CBLIO
	;
	;.EDIT	1114    Eliminate extra <CRLF> on Rewrite of ASCII Record
	;		JSM,02-APR-84,SPR:10-34590
	;		A:SRC CBLIO
	;
	;.EDIT	1115	TOPS-10 7.02 system labeled tapes, fatal runtime
	;;		error message - DV.DIR bit now set
	;		JEH,09-APR-84,SPR:NONE
	;		A:SRC CBLIO
 SUM 139832