Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - expgen.c07
There is 1 other file named expgen.c07 in the archive. Click here to see a list.
 INS 19/1	;07C1
	;JEH	20-APR-83	[1461] Test for DP floating point before GETEMP calls
 REP 102/3	;07C2
		MOVEI	TE,2
		MOVE	TD,EMODEA
		CAIE	TD,D2MODE
		MOVEI	TE,1		;1 WORD ONLY
 WIT
		MOVEI	TE,1		;[1461] START WITH 1 WORD
		MOVE	TD,EMODEA
	IFN BIS,<
		CAIE	TD,F2MODE	;[1461]
	> ;[1461]
		CAIN	TD,D2MODE	;[1461] IF TWO WORD FIELD,
		MOVEI	TE,2		;[1461]  CHANGE REQUEST TO TWO WORDS
 INS 109/3	;07C3
		CAIE	TD,F2MODE	;[1461]
 INS 60/10	;07C4
	IFN BIS,<
		CAIE	TE,F2MODE	;[1461] TWO WORD FLOATING POINT
	> ;[1461]
 INS 27/11	;07C5
	IFN BIS,<
		CAIE	TD,F2MODE	;[1461] TWO WORD FLOATING POINT
	> ;[1461]
 SUM 59141