Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cleanc.c08
There are 4 other files named cleanc.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1460 on 12/15/83 at 12:33 PM by HOFFMAN                       
 WIT
	; UPD ID= 1609 on 5/16/84 at 12:04 PM by HOFFMAN                        
 INS 20/1	;08C2
	;V13*****************
	;JEH	16-MAY-84	[1533] Fix edit 1501, jrst back to new label
	;JEH	28-MAR-84	[1520] Give error if 'DEPENDING ON D-N' and D-N
	;				is subscripted;

	;V12B****************
 REP 19/11	;08C3
	CLHDOD:	LDB	TB,DA.NOC##	;[164] SEE IF SUBSCIPTED
 WIT
	CLHDOD:	LDB	TB,DA.SUB##	;[1520][164] SEE IF SUBSCIPTED
 REP 46/12	;08C4
		JRST	CLHAK2		;LOOP UNTIL WE GET TO FILE
 WIT
		JRST	CLHK2A		;[1533] LOOP UNTIL WE GET TO FILE
 SUM 36615