Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cleanc.c12
There are 2 other files named cleanc.c12 in the archive. Click here to see a list.
 INS 21/1	;12C1
	;MJC	24-OCT-85	[1610] Fix SUM item report check for CBL770.
	;MJC	22-JUL-85	[1605] Suppress CBL670 warn if 'VARYING' used.
 INS 5/8	;12C2
		LDB	TB,HL.RD	;[1610]GET THE RD POINTER
		HRRZM	TB,CURRD##	;[1610]SAVE IT
 REP 18/9	;12C3
		MOVE	TA,(PP)
		AOS	TA
		LDB	TC,RW.RDL
		CAME	TD,TC		;SAME REPORT ?
		EWARNW	E.770		;NO, GENERATE WARNING
		HRRZ	TA,RPWLOC
 WIT
		MOVE	TC,CURRD##	;[1610]THE RD OF THIS SUM LINE
		CAMN	TD,TC		;SAME REPORT ?
		JRST	SUMCKC		;[1610]YES, NO WARNING
		HRRZ	TA,CURHLD	;[1610]GET POINTER TO CURRENT HLDTAB
		LDB	LN,HL.LN	;[1610]GET LINE NUMBER
		LDB	CP,HL.CP	;[1610] AND CHARACTER POSITION
		HRRZI	DW,E.770	;[1610]GENERATE WARNING
		PUSHJ	PP,WARN		;[1610]
	SUMCKC:	HRRZ	TA,RPWLOC	;[1610]HERE IF NO WARNING
 REP 35/28	;12C4
		HRRZ	TA,CURDAT	;[1502] RESTORE HERE
 WIT
		LDB	TB,FI.VRS##	;[1605] 'VARYING' SYNTAX?
		HRRZ	TA,CURDAT	;[1502] RESTORE HERE
		JUMPG	TB,CHDA.3	;[1605] IF RECORD IS 'VARYING' IGNORE FI.MRS
 SUM 13624