Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cmngen.c22
There are no other files named cmngen.c22 in the archive.
 REP 1/1	;22C1
	; UPD ID= 1469 on 12/28/83 at 9:26 AM by HOFFMAN                        
 WIT
	; UPD ID= 1956 on 3/3/89 at 8:38 AM by KSTEVENS                        
 INS 21/1	;22C2
	;KWS	22-FEB-89	[1652] Add definition of SORT here to be used in SRTGEN
 REP 32/1	;22C3
	;			point numbers (epsilon) to consider nbr of 
 WIT
	;			point numbers (epsilon) to consider nbr of
 REP 35/7	;22C4
		TRC	CH,IM.ADH	
 WIT
		TRC	CH,IM.ADH
 REP 73/7	;22C5
		TLNN	CH,ASINC	
 WIT
		TLNN	CH,ASINC
 REP 52/8	;22C6
		XWD	GETNM%##,ILLC%##	
 WIT
		XWD	GETNM%##,ILLC%##
 REP 25/33	;22C7
		MOVEM	TD,RMOFF##	;else store increment,,residue 
 WIT
		MOVEM	TD,RMOFF##	;else store increment,,residue
 REP 11/45	;22C8
		ADDI	TC,2		;[762] MAKE IT 1000 TIMES 
 WIT
		ADDI	TC,2		;[762] MAKE IT 1000 TIMES
 REP 48/62	;22C9
		PUSHJ	PP,STASHP	;GET LITERAL TO HOLD ACC 
 WIT
		PUSHJ	PP,STASHP	;GET LITERAL TO HOLD ACC
 REP 7/93	;22C10
	;		from the Ansi standards. We are still using 
 WIT
	;		from the Ansi standards. We are still using
 REP 19/124	;22C11
		
 WIT

 REP 25/128	;22C12
		MOVEI	CH,DBDA.##	
 WIT
		MOVEI	CH,DBDA.##
 REP 86/128	;22C13
	GDEBC:	MOVEI	CH,DBDA.##	
 WIT
	GDEBC:	MOVEI	CH,DBDA.##
 REP 136/128	;22C14
		HRRM	TD,EDEBPX##(LN)	
 WIT
		HRRM	TD,EDEBPX##(LN)
 INS 29/135	;22C15
	SETVAL SORT,173,13;			;[1652]ADD SORT TO THIS LIST
 SUM 60206