Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - gfopdf.mac
There are 10 other files named gfopdf.mac in the archive. Click here to see a list.
UNIVERSAL GFOPDF

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1980, 1983
; Author: T. VASAK/AHM

	INTERN	GFOPDV
	GFOPDV= BYTE (3)0(9)7(6)0(18)^D1	; Version Date:	2-Oct-81

Comment \

***** Begin Revision History *****

***** Begin Version 7 *****

1	1401	AHM	2-Oct-81
	Put in XMOVEI until MACRO catches up with the times

***** End Revision History *****

\

	.DIRECTIVE .NOBIN

;EXTENDED PRECISION ('G' FLOATING) OP CODES

OPDEF	GFAD	[102B8]		;GFLOAT ADD
OPDEF	GFSB	[103B8]		;GFLOAT SUBTRACT
OPDEF	GFMP	[106B8]		;GFLOAT MULTIPLY
OPDEF	GFDV	[107B8]		;GFLOAT DIVIDE

OPDEF	GSNGL	[021B8]		;GFLOAT TO SINGLE PRECISION
OPDEF	GDBLE	[022B8]		;SINGLE PRECISION TO GFLOAT
OPDEF	DGFIX	[023B8]		;GFLOAT TO DOUBLE PRECISION INTEGER, TRUNC.
OPDEF	GFIX	[024B8]		;GFLOAT TO SINGLE PRECISION INTEGER, TRUNC.
OPDEF	DGFIXR	[025B8]		;GFLOAT TO DOUBLE PRECISION INTEGER, ROUND
OPDEF	GFIXR	[026B8]		;GFLOAT TO SINGLE PRECISION INTEGER, ROUND
OPDEF	DGFLTR	[027B8]		;DOUBLE PRECISION INTEGER TO GFLOAT
OPDEF	GFLTR	[030B8]		;SINGLE PRECISION INTEGER TO GFLOAT
OPDEF	GFSC	[031B8]		;GFLOAT FLOATING SCALE

; Extended addressing mnemonics

OPDEF	XMOVEI	[SETMI]		;[1401] Load global address

	END