Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/expgen.c19
There are 9 other files named expgen.c19 in the archive. Click here to see a list.
 REP 1/1	;19C1
	; UPD ID= 1577 on 5/4/84 at 10:57 AM by MCARLETON                       

	; UPD ID= 1520 on 2/2/84 at 6:04 PM by HOFFMAN                          
 WIT
	;<KSTEVENS.BUFFER>EXPGEN.MAC.2, 21-Mar-88 22:01:45, Edit by KSTEVENS
	; UPD ID= 1520 on 2/2/84 at 6:04 PM by HOFFMAN
 REP 33/1	;19C2
	;JEH	30-Sep-82	[1402] Force floating point divide, but convert 
 WIT
	;JEH	30-Sep-82	[1402] Force floating point divide, but convert
 REP 50/1	;19C3
	;V12 RELEASE 
	;EHM	28-DEC-76	;[456] WARN IF ROUNDING IN WRONG PLACE

	;V11 RELEASE 
 WIT
	;V12 RELEASE
	;EHM	28-DEC-76	;[456] WARN IF ROUNDING IN WRONG PLACE

	;V11 RELEASE
 REP 42/2	;19C4
	;[1402]	SETOM	FLTDIV		;[637] SET FLAG 
 WIT
	;[1402]	SETOM	FLTDIV		;[637] SET FLAG
 INS 33/3	;19C5
		SETZM	EAC		;[1647]MAKE SURE AC IS SET CORRECTLY TO 0
 REP 26/11	;19C6
		CAIN	TE,D4MODE	;IF "A" IS 4-WORDS 
 WIT
		CAIN	TE,D4MODE	;IF "A" IS 4-WORDS
 REP 5/13	;19C7
		CAIE	TE,OPCEXP	;IS IT EXPONENTIATION?	
 WIT
		CAIE	TE,OPCEXP	;IS IT EXPONENTIATION?
 REP 22/20	;19C8
		MOVE	TA,CUREOP	
 WIT
		MOVE	TA,CUREOP
 REP 42/20	;19C9
		PUSH	PP,EXPBEG	;save counter 
 WIT
		PUSH	PP,EXPBEG	;save counter
 REP 64/20	;19C10
		JUMPGE	TB,GTOPN8	; searching for operands until finding the one 
 WIT
		JUMPGE	TB,GTOPN8	; searching for operands until finding the one
 SUM 104752