Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cobver.c10
There are 4 other files named cobver.c10 in the archive. Click here to see a list.
 REP 11/1	;10C1
	COPYRIGHT (C) 1979, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1979, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 REP 15/1	;10C2
	CBLEDT==1544	;EDIT LEVEL
 WIT
	CBLEDT==1556	;EDIT LEVEL
 REP 26/1	;10C3
	LBLEDT==1130	;EDIT LEVEL
 WIT
	LBLEDT==1133	;EDIT LEVEL
 INS 8/4	;10C4
	;.AUTOPATCH 10
	;
	;.EDIT	1556	Remove code to ignore a period inside SEARCH ... WHEN and
	;;		and add nodes to DTREE to catch the period.
	;		MJC,22-JAN-85,SPR:NONE
	;		A:SRC COBOLD,DTREE,COBVER
	;
	;.EDIT	1555	Flush CRF sort buffers before closing the temp files
	;		MJC,12-JAN-85,SPR:20-19273
	;		A:SRC SRTCRF,COBVER
	;
	;.EDIT	1554	Allow STOP RUN to followed by and END-XXX scope terminator
	;		MJC,03-JAN-85,SPR:20-20474
	;		A:SRC DTREE,COBVER
	;
	;.EDIT	1553	Fix edit 1541. Redo PA823. to pop nodes from the node stack
	;;		to perform the wrap-up actions for END-XXX scope terms.
	;		MJC,31-DEC-84,SPR:20-19930
	;		A:SRC COBOLD,DTREE,IMPURE,DIAGS,COBVER
	;
	;.EDIT	1552	Change a PUSHJ to a PJRST so the routine returns
	;;		properly
	;		KWS,16-NOV-84,SPR:20-19789
	;		A:SRC SRTCRF,COBVER
	;
	;.EDIT	1551	Cause COBOL to generate IFIW's in its argument 
	;;		blocks.
	;		KWS,26-OCT-84,SPR:NONE
	;		A:SRC IPCGEN,COBVER
	;
	;.EDIT	1550	Clear flags on literals in SETOPN.
	;		KWS,26-OCT-84,SPR:10-34905
	;		A:SRC CMNGEN,COBVER
	;
	;.EDIT	1547	Make DEC extension warnings print at the
	;;		end of the source listings
	;		KWS,18-OCT-84,SPR:10-34907
	;		A:SRC DIAGS,COBVER
	;
	;.EDIT	1546	Fix move of literal 000.0 to PIC 999V9.
	;		KWS,3-OCT-84,SPR:20-20327
	;		A:SRC MOVGEN
	;
	;.EDIT	1545	Fix Report CODE SIXBIT conversion factor
	;		MJC,19-SEP-84,SPR:NONE
	;		A:SRC RPWGEN
	;.ENDA
 INS 7/14	;10C5
	;.AUTOPATCH 10
	;
	;.EDIT	1133	Make OPEN use long form GTJFN on file-not-found so that the
	;;		file is opened on the right device.
	;		MJC,03-JAN-85,SPR:20-20518
	;		A:SRC CBLIO
	;
	;.EDIT	1132	Pass an ASCIZ string to RMS rather than an ASCII 
	;;		string (It works better)
	;		KWS,17-OCT-84,SPR:20-19780
	;		A:SRC RMSIO
	;.EDIT	1131	Fix OPEN I-O filename. so that it doesn't do SMU.
	;		KWS,15-OCT-84,SPR:20-20390
	;		A:SRC CBLIO
	;
	;.ENDA
 REP 14/14	;10C6
	;;.EDIT	1127	Tops-10 version 12b only
 WIT
	;.EDIT	1127	Tops-10 version 12b only
 SUM 161949