Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/mscgen.c08
There are 2 other files named mscgen.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1521 on 2/2/84 at 6:05 PM by HOFFMAN                          
 WIT
	; UPD ID= 1614 on 5/17/84 at 9:53 AM by HOFFMAN                         
 REP 25/1	;08C2
	;V12*****************
	;NAME	DATE		COMMENTS
 WIT
	;NAME	DATE		COMMENTS

	;V13*****************

	;JEH	16-MAY-84	[1535] Ref. Mod. - If phase D gave error, don't
	;;				give another
	;JEH	26-APR-84	[1522] Clean up EOP stack if errors w/ ref. modifiers

	;V12*****************
 REP 342/54	;08C3
	;Use results from EXPRGN to modifier operand on EOP table to provide
 WIT
	;Use results from EXPRGN to modify operand on EOP table to provide
 INS 363/54	;08C4
		CAIN	TA,100001	;[1522] Is operand the dummy?
		POPJ	PP,		;[1522] Expgen caught error
		TXNE	W1,RFMERR	;[1535] Did phase d give an error?
		POPJ	PP,		;[1535] Yes, don't give another
 REP 390/54	;08C5
	REFM21:	SOS	TA		;continue through rest of EOP stack
		MOVE	TB,0(TA)	; searching for operands
 WIT
		TSWF	FERROR		;[1522] Have we already encountered an error?
		POPJ	PP,		;[1522] Return w/o figuring modifiers
	REFM21:	POP	TA,TB		;[1522] 
		CAMGE	TA,EOPLOC	;[1522] Loop reading EOP table entries
		POPJ	PP,		;[1522] Exit, there's nothing to mod
 INS 397/54	;08C6
		AOBJP	TA,KILL##	;[1522]
 REP 455/54	;08C7
	REFM28:	MOVE	TD,RMOFF	;get offset
 WIT
	REFM28:	TSWF	FERROR		;[1522]
		POPJ	PP,		;[1522] 
		MOVE	TD,RMOFF	;get offset
 SUM 90073