Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolc.c13
There are 13 other files named cobolc.c13 in the archive. Click here to see a list.
 INS 24/1	;13C1
	;MJC	27-NOV-85	[1617] Set flag FI.RCN if 'REC CNT nn TO nn' seen.
	;KWS	25-NOV-85	[1616] Correct edit 1614.
	;KWS	13-NOV-85	[1614] Fix edit 1537 - allow mixed mode ascii-binary to
	;				work.
 INS 25/10	;13C2
		INTER.	DA12A.
	DA12A.:	MOVE	TA,CURFIL	;[1617]THE FILTAB POINTER
		SETOM	TC		;[1617]GET A ONE
		DPB	TC,FI.RCN##	;[1617]REC CNT nn to nn SYNTAX SEEN
		POPJ	PP,		;[1617]RETURN

 INS 37/41	;13C3
		HRRZ	TA,CURFIL##		;[1616] POINT TO CURRENT FILE
		LDB	TC,FI.ERM##		;[1616] GET EXTERNAL RECORDING MODE
		CAIN	TC,%RM.BN		;[1614] IS IT BINARY?
		POPJ	PP,			;[1614] YES, EXIT.
 SUM 251396