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