Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cobolc.c13
There are 13 other files named cobolc.c13 in the archive. Click here to see a list.
 INS 30/1	;13C1
	;MJC	27-NOV-85	[1620] Set flag FI.RCN if 'REC CNT nn TO nn' seen.
	;KWS	25-NOV-85	[1616] Correct edit 1614.
 INS 25/11	;13C2
		MOVE	TA,CURFIL	;[1620]THE FILTAB POINTER
		SETOM	TC		;[1620]GET A ONE
		DPB	TC,FI.RCN##	;[1620]REC CNT nn to nn SYNTAX SEEN
 REP 34/42	;13C3
		LDB	TC,FI.IRM##		;[1614] GET INTERNAL RECORDING MODE
 WIT
		HRRZ	TA,CURFIL##		;[1616] POINT TO CURRENT FILE
		LDB	TC,FI.ERM##		;[1616] GET EXTERNAL RECORDING MODE
 SUM 38107