!* modified 10/10/85
!*
!*
%if HOST = PERQPNX %thenstart
!*
   %constinteger WSCALE = 1;! scale word address to byte address
   %constinteger BSCALE = 1;! scaling factor for words to architectural units
   %constinteger CSCALE = 1;! byte offset to architectural unit offset
   %constinteger DSCALE = 1;! dict pointer scaling in RES records
!*
   %constinteger W1 = 2 ;!  1 word  in architectural units
   %constinteger W2 = 4 ;!  2 words in architectural units
   %constinteger W3 = 6 ;!  3 words in architectural units
   %constinteger W4 = 8 ;!  4 words in architectural units
!*
   %constinteger TRIADLENGTH    =  6 ;! size of an individual triad
   %constinteger BLRECSIZE      = 22 ;! size of a block table entry in architectural units
   %constinteger LOOPRECSIZE    =  8 ;! size of a loop table entry
   %constinteger PROPRECSIZE    =  6 ;! size of a propagation table entry
   %constinteger CLOOPSZ        =  6 ;! size of cloop table entry
   %constinteger FRSIZE         =  4 ;! size of freelist created by PUSHFREE
   %constinteger TESZ           = 10
   %constinteger DTSZ           = 10
   %constinteger ARTICSZ        =  2
   %constinteger CTSIZE         =  1 ;! used in OP3
   %constinteger EXTNSIZE       =  2 ;! used in OP3
!*
!* following used in strength reduction
!*
   %constinteger RDSZ           =  4
   %constinteger RUSESZ         =  6
   %constinteger RTESTSZ        =  2
   %constinteger RDEFSZ         =  8
   %constinteger USESZ          = 16
   %constinteger SRUSESZ        =  1
   %constinteger SRSCALE        =  4;! SR==RECORD(ABLOCKS + SRPTR<<SRSCALE)
   %constinteger SRFIXED        = 18
!*
%finishelsestart;! all except PNX
!*
   %constinteger WSCALE = 2;! scale word address to byte address
   %constinteger BSCALE = 0;! scaling factor for words to architectural units
   %constinteger CSCALE = 0;! byte offset to architectural unit offset
   %constinteger DSCALE = 2;! dict pointer scaling in RES records
!*
   %constinteger W1 =  4 ;!  1 word  in architectural units
   %constinteger W2 =  8 ;!  2 words in architectural units
   %constinteger W3 = 12 ;!  3 words in architectural units
   %constinteger W4 = 16 ;!  4 words in architectural units
!*
   %constinteger TRIADLENGTH    = 12 ;! size of an individual triad
   %constinteger BLRECSIZE      = 44 ;! size of a block table entry in architectural units
   %constinteger LOOPRECSIZE    = 16 ;! size of a loop table entry
   %constinteger PROPRECSIZE    = 12 ;! size of a propagation table entry
   %constinteger CLOOPSZ        = 12 ;! size of cloop table entry
   %constinteger FRSIZE         =  8 ;! size of freelist created by PUSHFREE
   %constinteger TESZ           = 20
   %constinteger DTSZ           = 20
   %constinteger ARTICSZ        =  4
   %constinteger CTSIZE         =  2 ;! used in OP3
   %constinteger EXTNSIZE       =  4 ;! used in OP3
!*
!* following used in strength reduction
!*
   %constinteger RDSZ           =  8
   %constinteger RUSESZ         = 12
   %constinteger RTESTSZ        =  4
   %constinteger RDEFSZ         = 16
   %constinteger USESZ          = 32
   %constinteger SRUSESZ        =  2
   %constinteger SRSCALE        =  4;! SR==RECORD(ABLOCKS + SRPTR<<SRSCALE)
   %constinteger SRFIXED        = 36
!*
%finish
!*
%conststring(5) REG1="reg-1"
%constinteger GLAOFFSET=32
%constinteger DVAREA=2
!*
!***********************************************************************
!* Constants defining the size of DICT records                         *
!***********************************************************************
!*
   %constinteger IDRECSIZE    = 28;! size of dict entry reserved for a new identifier
   %constinteger CONRECSIZE   = 16
   %constinteger CNSTRECMIN   =  4
   %constinteger IMPDORECSIZE = 12;! size of DATA-implied-DO list item
   %constinteger LABRECSIZE   = 40
   %constinteger PLABRECSIZE  =  8;! N.B. this is a reduced size for compiler using Put interfaces
   %constinteger XREFSIZE     =  8
   %constinteger CMNRECEXT    = 16;! extra space on iden record for common block name
   %constinteger TMPRECSIZE   = 20
   %constinteger DVRECSIZE    = 28
   %constinteger TRIADSIZE    = 12
   %constinteger LBLKSIZE     = 520
!*
!*
!********************* TRIAD qualifiers ********************************
!*
%CONSTINTEGER NULL    = 0
%CONSTINTEGER LABID   = 1
%CONSTINTEGER PLABID  = 2
%CONSTINTEGER PROCID  = 3
%CONSTINTEGER STKLIT  = 4
%CONSTINTEGER GLALIT  = 5
%CONSTINTEGER SRTEMP  = 6
%CONSTINTEGER BREG    = 7
%CONSTINTEGER VALTEMP = 8
%CONSTINTEGER DESTEMP = 9
%CONSTINTEGER LSCALID =16
%CONSTINTEGER OSCALID =17
%CONSTINTEGER CSCALID =18
%CONSTINTEGER ASCALID =19
%CONSTINTEGER PSCALID =20
%CONSTINTEGER ARRID   =21
%CONSTINTEGER TMPID   =22
%CONSTINTEGER PERMID  =23
%CONSTINTEGER STFNID  =24
%CONSTINTEGER ITMPID  =22
%CONSTINTEGER RTMPID  =22
%CONSTINTEGER ETMPID  =22
%CONSTINTEGER TRIAD   =32
%CONSTINTEGER ARREL   =33
%CONSTINTEGER CHAREL  =34
%CONSTINTEGER CHVAL   =35
%CONSTINTEGER LIT     =64
%CONSTINTEGER NEGLIT  =65
%CONSTINTEGER CNSTID  =66
!*
!********************* TRIAD masks *************************************
!*
%CONSTINTEGER CONSTMASK=X'40'
%CONSTINTEGER IDMASK   =X'10'
%CONSTINTEGER TEXTMASK =X'20'
!*
!********************* other useful masks ******************************
!*
%CONSTINTEGER ARRAYBIT  = X'04'
%CONSTINTEGER CMNBIT    = X'02'
%CONSTINTEGER EQUIVBIT  = X'80'
!*
!********************* modes *******************************************
!*
%CONSTINTEGER INT2    = 0, INT4    = 1, INT8    = 2
%CONSTINTEGER REAL4   = 3, REAL8   = 4, REAL16  = 5
%CONSTINTEGER CMPLX8  = 6, CMPLX16 = 7, CMPLX32 = 8
%CONSTINTEGER LOG1    = 9, LOG2    =10, LOG4    =11
%CONSTINTEGER LOG8    =12, CHARMODE=13, HOLMODE =14
%CONSTINTEGER BYTE    =15, HEXCONST=16
!*
!********************* types *******************************************
!*
%CONSTINTEGER INTTYPE   = 1
%CONSTINTEGER REALTYPE  = 2
%CONSTINTEGER CMPLXTYPE = 3
%CONSTINTEGER LOGTYPE   = 4
%CONSTINTEGER CHARTYPE  = 5
!*
!********************* scaling factors *********************************
!*
!*
!********************* length of maximum source statement **************
!*
%CONSTINTEGER INPUT LIMIT = 1328
!*
!********************* mode to size/type *******************************
!*
%CONSTBYTEINTEGERARRAY MODETOST(0:15)=  %C
   X'41',X'51',X'61',X'52',X'62',X'72',
   X'53',X'63',X'73',X'34',X'44',X'54',X'64',5,0,X'31'
!*
!********************* mode to bytes etc. ******************************
!*
%CONSTBYTEINTEGERARRAY CSIZE(0:15)=  %c
   2,4,8,4,8,16,8,16,32,1,2,4,8,1,0,1
%CONSTBYTEINTEGERARRAY ModetoBytes(0:15)=  %c
   2,4,8,4,8,16,8,16,32,1,2,4,8,1,0,1
%CONSTBYTEINTEGERARRAY ModetoTempBytes(0:15)=  %c
   4,4,8,4,8,16,8,16,32,4,4,4,8,4,4,4
%CONSTBYTEINTEGERARRAY SETMODE(0:63)= %C
0(4),10,13,0(11),1,3,6,11,0(12),2,4,7,8,0(12),15,5,8,9,0(11)
!*
!********************** location of pseudo common record in dict *******
!*
%CONSTINTEGER PSEUDOCMN=20
!*
!********************** location of blank common record in dict ********
!*
%CONSTINTEGER BLCMPTR=96
!*
!********************** other useful consts ****************************
!*
%CONSTINTEGER NO  = 0
%CONSTINTEGER YES = 1
%CONSTINTEGER FULL= 2
!*
!********************** area identifiers *******************************
!*
%constinteger STACK   = 0
%CONSTINTEGER GLA     = 2
%CONSTINTEGER SST     = 4
%CONSTINTEGER GST     = 5
%CONSTINTEGER DIAGS   = 6
%CONSTINTEGER SCALARS = 2
%CONSTINTEGER IOAREA  = 8
%CONSTINTEGER ZEROGST = 9
%CONSTINTEGER CONSTS  =10
!*
!********************** system procedures ******************************
!*
%constinteger F77AUX   = 0
%constinteger F77STOP  = 1
%constinteger F77PAUSE = 2
%constinteger F77IOA   = 3
%constinteger F77IOB   = 4
%constinteger F77IOC   = 5
%constinteger F77IOD   = 6
%constinteger F77IOE   = 7
%constinteger F77IOF   = 8
%constinteger F77FILE  = 9
%constinteger IMPSTOP  =10
%constinteger F77RTERR =11
%constinteger F77IOAR  =12
%constinteger F77IOBR  =13
%constinteger F77IOG   =14
%constinteger F77CPSTR =15
%constinteger F77CONCAT=16
%constinteger F77INDEX =17
%constinteger FIBITS   =18
%constinteger FISHFTC  =19
%constinteger F77PCHECK=20
%constinteger INITMAIN =21
%constinteger INITGLA  =22
%constinteger CRMULT   =23
%constinteger CDMULT   =24
%constinteger CRDIV    =25
%constinteger CDDIV    =26
%constinteger FCPYSTR  =27
!*
!***********************************************************************
!***********************************************************************
!*