Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobver.c09
There are 4 other files named cobver.c09 in the archive. Click here to see a list.
 REP 12/1	;09C1
		CBLEDT==1521		;EDIT LEVEL
 WIT
		CBLEDT==1544		;EDIT LEVEL
 REP 21/1	;09C2
	LBLEDT==1115	;EDIT LEVEL
 WIT
	LBLEDT==1127	;EDIT LEVEL
 INS 29/3	;09C3
	KWS		Ken Stevens
 INS 33/3	;09C4
	MJC		MICHAEL CARLETON
 REP 620/4	;09C5
	;.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
	;
 WIT
	;;********** NOTE
	;; Edits 1510-1512 did not make it into tape 7
	;; They have been copied down to tape 9
	;;
	;;.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
	;;
 REP 639/4	;09C6
	;		A:SRC IPCGEN,COBVER
 WIT
	;		A:SRC IPCGEN
 INS 669/4	;09C7
	;.AUTOPATCH 9
	;; Edits 1510-1512 did not get into tape 7
	;; Moved here to get into tape 9
	;
	;.EDIT	1510	 At MLAC1., don't use ac TD, it's needed later
	;		JEH,16-DEC-83,SPR:NONE
	;		A:SRC MOVGEN,COBVER
	;
	;.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
	;
	;;.EDIT	1522	Not applicable to V12B.
	;;		JEH,26-APR-84,QAR:302095
	;;		A:SRC COBOLD,COBOLE,EXPGEN,MSCGEN,COBVER
	;;
	;.EDIT	1523	Put 'SUBPROGRAM' on listing file
	;		JEH,30-APR-84,SPR:NONE
	;		A:SRC COBOLF
	;
	;;.EDIT 1524	Not applicable to V12B
	;;		JEH,04-MAY-84,PCO
	;;		A:SRC GETITM
	;;
	;;.EDIT 1525	Not applicable to V12B
	;;		JEH,11-MAY-84,PCO
	;;		A:SRC GETITM
	;;
	;;.EDIT	1526	Not applicable to V12B
	;
	;;.EDIT	1527	Not applicable to V12B
	;
	;;.EDIT	1530	Not applicable to V12B
	;
	;;.EDIT	1531	Not applicable to V12B
	;
	;;.EDIT	1532	Not applicable to V12B
	;
	;.EDIT	1533	Alternate keys getting error if record is variable
	;;		in length, fix edit 1501
	;		JEH,16-MAY-84,SPR:10-34680
	;		A:SRC CLEANC
	;
	;.EDIT	1534	Edit 1115 generates a bogus byte pointer, causing ILL MEM REF
	;;		on systems with one-word global byte pointers implemented.
	;		WTK,16-MAY-84,SPR:NONE
	;		A:SRC DMLIO
	;
	;;.EDIT	1535	Not applicable to V12B
	;
	;.EDIT	1536	Reset ac16 to curfil value before using it
	;		JEH,31-MAY-84,SPR:NONE
	;		A:SRC IOGEN
	;
	;.EDIT	1537	Fix edit 1424, give error on COMP fields in ASCII record
	;		JEH,07-JUN-84,SPR:20-20184
	;		A:SRC COBOLC,DIAGS
	;
	;;.EDIT 1540	Not applicable to V12B
	;
	;;.EDIT 1541	Not applicable to V12B
	;
	;.EDIT	1542	Fixed conversion of moving sixbit to ascii in 
	;;		an if generation.
	;		KWS,20-AUG-84,SPR:20-20238
	;		A:SRC IFGEN,COBVER
	;
	;.EDIT	1543	Fix edit 1411 to not give warning if ON SIZE ERROR
	;;		clause is used.
	;		MJC,21-AUG-84,SPR:10-34792
	;		A:SRC CMNGEN
	;
	;;.EDIT 1544	Not applicable to V12B
	;
	;.ENDA
 INS 359/14	;09C8
	;.ENDA
	;.AUTOPATCH 9
	;
	;.EDIT	1116	Reset file status before re-trying file open
	;		JEH,13-APR-84,SPR:20-20071
	;		A:SRC RMSIO,COBVER
	;
	;;.EDIT	1117	Not applicable to V12B
	;;		JBB,24-APR-84,QAR:302105
	;;		A:SRC RMSIO
	;;
	;;.EDIT	1120	Not applicable to V12B
	;;		JBB,26-APR-84,QAR:302113
	;;		A:SRC CBLIO
	;
	;;.EDIT	1121	Not applicable to V12b
	;;		JEH:10-MAY-84,QAR:302112
	;;		A:SRC CBLIO
	;
	;;.EDIT	1122	Not applicable to V12B
	;
	;;.EDIT	1123	Not applicable to V12B
	;
	;;.EDIT	1124	Not applicable to V12B
	;
	;;.EDIT	1125	Not applicable to V12B
	;
	;.EDIT	1126	Define feature test switch and code to print ascii
	;;		text files with blank lines
	;		JEH,22-MAY-84,SPR:20-20056
	;		A:SRC INTERM,LBLPRM,CBLIO
	;
	;.EDIT	1127	Remove obsoleted code from COBST.
	;		KWS,11-Jun-84,SPR:none
	;		A:SRC COBST
 SUM 13662