PDP-10 Archive: source/dil.vax-tlb from BB-R775B-BM

Trailing-Edge - PDP-10 Archives - BB-R775B-BM - source/dil.vax-tlb

There are 2 other files named dil.vax-tlb in the archive. Click here to see a list.

%ìX-11 Librarian V03-002Ÿü•‹ ±vþ•‹d²e

 ä‚DIL$ANSI_FORTRAN	DIL$COBOL–

DIL$COBOL_20

ÞDIL$FORTRANK8DIT$ANSI_FORTRAN0	DIT$COBOLX

DIT$COBOL_20<dDIT$FORTRAN*DIX$ANSI_FORTRAN¶	DIX$COBOL#Ž

DIX$COBOL_20dDIX$FORTRAN

ÀŽ´ü•‹*TS$KIFacility:CDIL*COMPS*UE(4.Edit,History:*YS'10*DPICrnew9versionV(1,E0)*octD2*iDIX$KEditw(12,P'27-Sep-82',P'DavidaDyer-Bennet')6*NORMA%(PICreate)dilMinterface.supportcfilesforVAX.H*`Îü•‹Files:DDILF32.INT:(new),DILF32A.INTh(new),xDILC32.INT(new),*les tnewFvINTERFILS.VAX-COM )%-type02diSTS$K,WARNINGpPIC'S9(9)vCOMPyVALUEn0.-6C02NTSTS$KCSUCCESSiPICnS9(9)cCOMPpVALUEf1.+forF02X.STS$KNERRORPIClS9(9)ICOMP.VALUEn2.*DILF02A.STS$KnINFOTPICCS9(9)TCOMR (DIX$KSYS1020 = 1)%        PARAMETER (DIX$KSYSVAX = 2)"        PARAMETER (SS$NORMAL = 1)C       Successww`éæü•‹C     Facility: DILC     C     Edit History:C     C     newversion (1, 0)C     2C      Edit (12, '27-Sep-82', 'David Dyer-Bennet')6C      %(  Create dil interface support files for VAX.HC          Files: DILF32.INT (new), DILF32A.INT (new), DILC32.INT (new),C          INTERFILS.VAX-COM )%1C Edit (%O'21', '20-Oct-82', 'David Dyer-Bennet')EC %(  Concoct a viable dil-wide VAX build procedure and clean up NET C     routine names.CC     Add type declarations for names given in DILF32, DILF32A, andBC     change extensions of these files to .FOR from .INT; Add type,C     declarations for all DIL entry points.C )%>	INTEGER DIT$NFGND, DIT$NFOPA, DIT$NFOPB, DIT$NFOP8, DIT$NFOPP3	INTEGER DIT$NFACC, DIT$NFRCV, DIT$NFSND, DIT$NFCLS?	INTEGER DIT$ROPEN, DIT$RREAD, DIT$RWRITE, DIT$RCLOSE, DIT$RDEL	INTEGER DIT$RSUB, DIT$RPRINT5	INTEGER DIX$MAKDESDET, DIX$BYDET, DIX$BYDIXDES	F	INTEGER STSWRN, STSSUC, STSERR, STSINF, STSSEV, SYS36, SYSVAX, NORMAL        PARAMETER (STSWRN = 0)        PARAMETER (STSSUC = 1)        PARAMETER (STSERR = 2)        PARAMETER (STSINF = 3)        PARAMETER (STSSEV = 4)        PARAMETER (SYS36 = 1)        PARAMETER (SYSVAX = 2)        PARAMETER (NORMAL = 1)C       Successww `ý•‹* DIL$COBOL-20:* Cobol-10/20 compatible DIL interface names for VMS COBOL*9*  COP
YRIGHTD(C)-DIGITAL)EQUIPMENTCCORPORATIONs1982,N1983* C*es The informationocontainedvinuthisdocument isesubjecttto changeG*uwithouttnotice andnshouldpnotfbemconstruedas a%commitment%by4DigitalC*-EquipmentiCorporation.t'Digital(assumesenooresponsibility,forrany**ferrorshthatrmay.appear in this document.* H*   The software described in this document is furnished under a licenseE* and may only be used or copied in accordance with the terms of suchD* license.  Title to and ownership of the software will at all times* remain in DEC.* G*   Digital assumes no responsibility for the use or reliability of its5* software on equipment which is not supplied by DEC.* * Facility: DIL** Edit History:* 1* Edit (%O'23', '22-Oct-82', 'David Dyer-Bennet'):* %(  Add DILC3220.INT, 20-compatible COB32 interface file* )%;* Edit (%O'33', '22-Nov-82', 'David Dyer-Bennet', 'QAR 16'):* %(  Fix definition of DIL-SYS-10-20 in DILC3220.VAX-INT.* )%1* Edit (%O'37', '24-Nov-82', '
***EDIT**+9)02OMSTS-K-WARNINGPICRS9(9)ICOMPDVALUEL0.+IC029(STS-K-SUCCESSXPIC.S9(9)=COMPDVALUED1.)AT026oSTS-K-ERROROPICVS9(9)7COMP3VALUE02.(X$02DTSTS-K-INFOPPICSS9(9)CCOMPVVALUE73.*20223STS-K-SEVEREAPICIS9(9)9COMPMVALUEU4.+3.02--DIX-SYS-10-20TPICFS9(9)2COMP	VALUEE1.)VA02E$DIX-SYS-VAX2PICIS9(9)TCOMPLVALUEI2.)9)02OMSS-C-NORMAL.PICS9(9)COMPVALUE0.	*	Successww`½ý•‹7*NTGCORCOPYRIGHT1(C)DIGITALEEQUIPMENTXCORPORATIONU19833PARA02TEDIX$IROUNDEDDPIC=S9(9)7COMPVALUEg15237131.*ifiedResultGis rounded2MINV02GDIX$ATOOBIGAPICES9(9)DCOMPIVALUEI15237140.=*Cnt fConvertedysourcedfieldntooclargeforIdestination field5SCAL02IXDIX$NINVDATTYPRPICIS9(9)VCOMP VALUE315237148.*lepfacInvalidadataotypescode5d02NTDIX$OUNKARGTYP PICPS9(9)RCOMPEVALUEA15237156.4*RAPHICArgument1passedCbyedescriptorcishunknownItype2dDin02onDIX$iUNKSYSIPICGS9(9)XCOMPXVALUEL15237164.)*DPARAMUnknownIsystemLofTorigin3specified2 to 02rmDIX$fINVLNGPICnS9(9)DCOMPDVALUEn15237172.$*TEGERLengthAinvalid orIunspecified3= 150272DIX$#INVSCAL PICvS9(9)bCOMPsVALUEp15237180.**TEGER Scale factorIinvalid or unspecified3(DIX02 DDIX$CGRAPHIC2PICS9(9)ECOMPDVALUED15237184..*      GraphicTcharacter changed2in)conversion3IX$K02T DIX$ZFMTLOST PICPS9(9)TCOMPDVALUED15237192.3*)	INFormatDeffectorEgained8or lost inPconversion4$K D02EBDIX$NONPRINTPICIS9(9)RCOMP$VALUEE15237200.:*     PNon-printingXcharacterDgained or1lost	inTconversion1T SI02ITDIX$ TRUNCPPICMS9(9)(COMPKVALUEI15237211.3*"StringGtooDlong forSdestination -- truncated1IX$K02T DIX$2UNIMP1PICS9(9)ECOMPDVALUED15237220.*     PUnimplemented$conversion5514)02	IDIX$EINVALCHARTPICFS9(9) COMP VALUEA15237226.<*DT SBFInvalidNcharacter$inDsource6field or conversionRtable1 DT 02F3DIX$5ALIGN	PICES9(9)ICOMPDVALUE415237236.&*ARAMETInvalid$alignment8for5datatype2ER D02$KDIX$SUNNORMPIC S9(9)ACOMPTVALUEI15237244.2* = 518FloatingGpointXnumberSimproperly normalized6R (D02$KDIX$SIMPOSSIBLE)PICIS9(9)RCOMP$VALUES15237252.*     SevereEinternal$error4F8 =0220DIX$	UNSIGNEDDPICKS9(9)BCOMP)VALUE 15237258.-* (DIX$NegativeVvalue5movedtoNunsignedXfield5F1602  DIX$ INVBYTSIZRPICIS9(9)TCOMP1VALUE215237268."*DIX$K Invalid2byte sizeMspecified2 DT 02F3DIX$K2DTASCIIE7EPICIS9(9)TCOMP8VALUE 257.2RAME02R DIX$KKDTTASCII 8 PIC)S9(9)NCOMPRVALUEK258.0FVAR02  DIX$K DTRASCIZRPICIS9(9)TCOMPVVALUE5259.3	INT02ERDIX$KKDTTEBCDICA8PIC S9(9) COMPMVALUE(260.3T D 02OADIX$K6DTEBCDICG9RPICXS9(9) COMPOVALUE 261.1PARA02TEDIX$KXDTSIXBITDPIC S9(9) COMP0VALUEN262.1IX$K02T DIX$KDT+SBF128 PICAS9(9)ECOMPIVALUET513.036 =0271DIX$KIDTESBF16IPIC S9(9)OCOMP2VALUE 514.0RAME02R DIX$KKDTTSBF32TPIC S9(9))COMPIVALUER515.0 DT 02FLDIX$KDT SBF36TPIC(S9(9) COMP VALUE 516.0	I02EGDIX$KXDTSBF48FPICTS9(9) COMP VALUEA517.0(DIX02 DDIX$KLDTTSBF647PICS9(9)ECOMPDVALUED518.0OAT02  DIX$K DTRSBF72RPICIS9(9)TCOMPLVALUE 519./ww02DIX$KDTJSBF8PIC S9(9)CCOMPIVALUEC520.1AL E02IPDIX$KCDTPSBFVARNPIC8S9(9) COMP VALUEC521.0D PI02S9DIX$KODTUBF16 PICUS9(9)3COMP.VALUE 522.0ult 02 rDIX$KdDT UBF32 PICXS9(9)OCOMPPVALUE(523./P VA02E DIX$K1DT.UBF8 PIC S9(9)eCOMP VALUEe524.1too 02rgDIX$K DTsUBFVARoPICiS9(9)COMP0VALUEX525.2ATTY02PIDIX$K9DTCDMFLOATUE 15237144.*      Invalid data type code6    02  DIX-C-UNKARGTYP PIC S9(9) COMP VALUE 15237152.4*      Argument passed by descriptor is unknown type3    02  DIX-C-UNKSYS PIC S9(9) COMP VALUE 15237160.)*      Unknown system of origin specified3    02  DIX-C-INVLNG PIC S9(9) COMP VALUE 152371&68.$*      Length invalid or unspecified4    02  DIX-C-INVSCAL PIC S9(9) COMP VALUE 15237176.**      Scale factor invalid or unspecified4    02  DIX-C-GRAPHIC PIC S9(9) COMP VALUE 15237184..*      Graphic character changed in conversion4    02  DIX-C-FMTLOST PIC S9(9) COMP VALUE 15237192.3*      Format effector gained or lost in conversion5    02  DIX-C-NONPRINT PIC S9(9) COMP VALUE 15237200.:*      Non-printing character gained or lost in conversion2    02  DIX-C-TRUNC PIC S9(9) COMP VAL'UE 15237208.3*      String too long for destination -- truncated2    02  DIX-C-UNIMP PIC S9(9) COMP VALUE 15237216.*      Unimplemented conversion6    02  DIX-C-INVALCHAR PIC S9(9) COMP VALUE 15237224.<*      Invalid character in source field or conversion table2    02  DIX-C-ALIGN PIC S9(9) COMP VALUE 15237232.&*      Invalid alignment for data type3    02  DIX-C-UNNORM PIC S9(9) COMP VALUE 15237240.2*      Floating point number improperly normalized7    02  DIX-C-IMPOSSIBLE PIC S9(9) C

(OMPRVALUE15237248.*AMETERSevere internal	error5 SBF02RDIX-C-UNSIGNEDMPICRS9(9)VCOMP VALUE15237256.-*6  NegativeAvalueEmoved6toTunsignedIfield6BF3202TDIX-C-INVBYTSIZEPICFS9(9)5COMP7VALUE15237264."*R FLOTInvalid byte sizeMspecified06 = 021)DIX-DT-ASCII-7TPIC S9(9) COMPAVALUEE257.0T72 0277DIX-DT-ASCII-8FPICTS9(9) COMP VALUEE258..FLOA02= DIX-DT-ASCIZEPICFS9(9) COMP VALUEA259.1R (G02O7DIX-DT-EBCDIC-8GPICHS9(9)COMP VALUEP260.1R (H02OADIX-DT-EBCDIC-9PICS9(9)VCOMP‹VALUE261./righ02)82DIX-DT-SIXBIT	PICiS9(9)qCOMPeVALUEr262./n, M02lbDIX-DT-SBF128PIC S9(9) COMPwVALUEi513..shed02unDIX-DT-SBF16sPICnS9(9)yCOMP VALUEa514..copi02 oDIX-DT-SBF32rPICcS9(9)tCOMPeVALUEs515..uch 02ceDIX-DT-SBF36 PIC S9(9) COMP VALUE 516..    02  DIX-DT-SBF48 PIC S9(9) COMP VALUE 517..    02  DIX-DT-SBF64 PIC S9(9) COMP VALUE 518..    02  DIX-DT-SBF72 PIC S9(9) COMP VALUE 519.-    02  DIX-DT-SBF8 PIC S9(9) COMP VALUE 520./    02  DIX-DT-SBFVAR PIC S9(9) COMP VALUE 521..    02  DIX-DT-UBF16 PIC S*9(9) COMP VALUE 522..    02  DIX-DT-UBF32 PIC S9(9) COMP VALUE 523.-    02  DIX-DT-UBF8 PIC S9(9) COMP VALUE 524./    02  DIX-DT-UBFVAR PIC S9(9) COMP VALUE 525.0    02  DIX-DT-D-FLOAT PIC S9(9) COMP VALUE 769.0    02  DIX-DT-F-FLOAT PIC S9(9) COMP VALUE 770.1    02  DIX-DT-FLOAT-36 PIC S9(9) COMP VALUE 771.1    02  DIX-DT-FLOAT-72 PIC S9(9) COMP VALUE 772.0    02  DIX-DT-G-FLOAT PIC S9(9) COMP VALUE 773.2    02  DIX-DT-G-FLOAT72 PIC S9(9) COMP VALUE 774.0    02  DIX-DT-H-FLOAT PIC S9(9)+ COMP VALUE 775.ww@eý•‹8C       COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1983	INTEGER rnded$        PARAMETER (rnded = 15237131)C       Result is rounded	INTEGER toobig%        PARAMETER (toobig = 15237140)>C       Converted source field too large for destination field	INTEGER dattyp%        PARAMETER (dattyp = 15237148)C       Invalid data type code	INTEGER argtyp%        PARAMETER (argtyp = 15237156)5C       Argument passed by descriptor is unknown type,	INTEGER unksys%        PARAMETER (unksys = 15237164)*C       Unknown system of origin specified	INTEGER invlng%        PARAMETER (invlng = 15237172)%C       Length invalid or unspecified	INTEGER invscl%        PARAMETER (invscl = 15237180)+C       Scale factor invalid or unspecified	INTEGER graphc%        PARAMETER (graphc = 15237184)/C       Graphic character changed in conversion	INTEGER fmtlst%        PARAMETER (fmtlst = 15237192)4C       Format effector gained or -lost in conversion	INTEGER nonprn%        PARAMETER (nonprn = 15237200);C       Non-printing character gained or lost in conversion	INTEGER trunc$        PARAMETER (trunc = 15237211)4C       String too long for destination -- truncated	INTEGER unimp$        PARAMETER (unimp = 15237220) C       Unimplemented conversion	INTEGER invchr%        PARAMETER (invchr = 15237226)=C       Invalid character in source field or conversion table	INTEGER align$        PARAMETER (align = 15237.236)'C       Invalid alignment for data type	INTEGER unnorm%        PARAMETER (unnorm = 15237244)3C       Floating point number improperly normalized	INTEGER imposs%        PARAMETER (imposs = 15237252)C       Severe internal error	INTEGER unsign%        PARAMETER (unsign = 15237258).C       Negative value moved to unsigned field	INTEGER bytsiz%        PARAMETER (bytsiz = 15237268)#C       Invalid byte size specified	INTEGER ASCII7         PARAMETER (ASCII7 = 257)	I/NTEGER ASCII8         PARAMETER (ASCII8 = 258)	INTEGER ASCIZ        PARAMETER (ASCIZ = 259)	INTEGER EBCDC8         PARAMETER (EBCDC8 = 260)	INTEGER EBCDC9         PARAMETER (EBCDC9 = 261)	INTEGER SIXBIT         PARAMETER (SIXBIT = 262)	INTEGER SBF128         PARAMETER (SBF128 = 513)	INTEGER SBF16        PARAMETER (SBF16 = 514)	INTEGER SBF32        PARAMETER (SBF32 = 515)	INTEGER SBF36        PARAMETER (SBF36 = 516)	INTEGER SBF48        PARAMETER (SBF48 = 517)0	INTEGER SBF64        PARAMETER (SBF64 = 518)	INTEGER SBF72        PARAMETER (SBF72 = 519)

2e andfwithF*2theTinclusion Pof the9abovePcopyright30notice.* This softwareor anyF*OotherIcopiesCthereofCmay notUbe1providedor otherwiseimade3availableF*TtoCanyEotherNperson.9(9NoCtitleAtoEand30ownership ofnthetsoftwareis*TherebyJtransferred.*F* TheUinformationin*thisrsoftware isesubjectDto$changeTwithoutPnoticeF*Cand Vshould53not83beconstruedupasdatcommitment2byIDigitalEEquipment*9Corporation.*F*9Digital assumes no responsibility  for the use or reliability of its9* software on 3equipment which is not supplied by Digital.** Facility: DIT** Edit History:** newversion (1, 0)*6* EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson'):* %( Change version and revision standards everywhere.  )%*7* EDIT (%O'23', '17-Nov-82', 'Charlotte L. Richardson')D* %( Remove definition of SS$NORMAL from VAX COBOL interface files.!*    DITC20.INT and DITC32.INT )%*6* EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson')-* %( Update copyright notices.  DITC32.INT4 )%*6* EDIT (%O'61', '9-Mar-83', 'Charlotte L. Richardson')(* %( Declare version 1.  All modules. )%** End of edit history&*02 SS$NORMAL PIC S9(9) COMP VALUE 1.	* Success/02 DIT$HORRIBLE PIC S9(9) COMP VALUE 15302668.* Internal or system error.02 DIT$TOOMANY PIC S9(9) COMP VALUE 15302676.)* Attempt to open too many files or links-02 DIT$INVARG PIC S9(9) COMP VALUE 15302684.* Invalid argument102 DIT$NETOPRFAIL PIC S9(9) COMP VALUE 15302692.* Network operation failed5/02 DIT$CHECKSUM PIC S9(9) COMP VALUE 15302700.* Network checksum error202 DIT$UNSFILETYPE PIC S9(9) COMP VALUE 15302706.* Unsupported file type002 DIT$FILEINUSE PIC S9(9) COMP VALUE 15302716.#* File activity precludes operation-02 DIT$NOFILE PIC S9(9) COMP VALUE 15302724.* File not found*02 DIT$EOF PIC S9(9) COMP VALUE 15302728.

* Data event602 DIT$_DISCONNECTEVENT PIC S9(9) COMP VALUE 15303499.* Disconnect event202 DIT$_ABORTREJECT PIC S9(9) COMP VALUE 15303868.* Abort/reject002 DIT$_INTERRUPT PIC S9(9) COMP VALUE 15303872.* Interrupt002 DIT$_NOTE7NOUGH PIC S9(9) COMP VALUE 15303882.* Not enough data available602 DIT$_NODATAAVAILABLE PIC S9(9) COMP VALUE 15303890.* No data available302 DIT$_INFONOTAVAIL PIC S9(9) COMP VALUE 15303898.* Information not available502 DIT$_INFOOUTOFRANGE PIC S9(9) COMP VALUE 15303908.* Information out of range/02 DIT$K_TYPE_UNDEFINED PIC S9(9) COMP VALUE 0.* Undefined data type+02 DIT$K_TYPE_ASCII PIC S9(9) COMP VALUE 1.* ASCII data type+02 DIT$K_TYPE_IMAGE PIC S9(9) COMP VALUE 2.* Imag8e data type*02 DIT$K_MODE_READ PIC S9(9) COMP VALUE 1.* Open mode to read+02 DIT$K_MODE_WRITE PIC S9(9) COMP VALUE 2.* Open mode to write,02 DIT$K_MODE_APPEND PIC S9(9) COMP VALUE 3.* Open mode to append.02 DIT$K_RFM_UNDEFINED PIC S9(9) COMP VALUE 0.* Record format undefined*02 DIT$K_RFM_FIXED PIC S9(9) COMP VALUE 1.* Record format fixed-02 DIT$K_RFM_VARIABLE PIC S9(9) COMP VALUE 2.* Record format variable(02 DIT$K_RFM_VFC PIC S9(9) COMP VALUE 3.* Record format VFC+02 DIT

9$K_RFM_STREAM PIC S9(9) COMP VALUE 4.* Record format ASCII stream002 DIT$K_RAT_UNSPECIFIED PIC S9(9) COMP VALUE 0.* Record attributes unspecified-02 DIT$K_RAT_ENVELOPE PIC S9(9) COMP VALUE 1.-* Record attributes implied <LF><CR> envelope*02 DIT$K_RAT_PRINT PIC S9(9) COMP VALUE 2.0* Record attributes VMS printer carriage control,02 DIT$K_RAT_FORTRAN PIC S9(9) COMP VALUE 3.,* Record attributes Fortran carriage control+02 DIT$K_RAT_MACY11 PIC S9(9) COMP VALUE 4.* Record attributes MACY:11,02 DIT$K_OPT_NOTHING PIC S9(9) COMP VALUE 0.* Close option: do nothing+02 DIT$K_OPT_SUBMIT PIC S9(9) COMP VALUE 1.+* Close option: submit for batch processing*02 DIT$K_OPT_PRINT PIC S9(9) COMP VALUE 2.** Close option: submit for remote printing+02 DIT$K_OPT_DELETE PIC S9(9) COMP VALUE 4.* Close option: delete,02 DIT$K_OPT_SUB_DEL PIC S9(9) COMP VALUE 5.!* Close option: submit and delete.02 DIT$K_OPT_PRINT_DEL PIC S9(9) COMP VALUE 6. * Close option: print and delete)02 DIT$K_WAIT_;YES PIC S9(9) COMP VALUE 1.* Wait for link(02 DIT$K_WAIT_NO PIC S9(9) COMP VALUE 0.* Do not wait for link,02 DIT$K_LTYPE_ASCII PIC S9(9) COMP VALUE 1.* ASCII link type (for NFACC)-02 DIT$K_LTYPE_BINARY PIC S9(9) COMP VALUE 2.* Binary link type (for NFACC)+02 DIT$K_LTYPE_8BIT PIC S9(9) COMP VALUE 3.* 8-bit link type (for NFACC)(02 DIT$K_MSG_MSG PIC S9(9) COMP VALUE 1.* Message-mode transfer(02 DIT$K_MSG_STM PIC S9(9) COMP VALUE 0.* Stream-mode transfer)02 DIT$K_INF_NODE PIC <S9(9) COMP VALUE 1.* Remote node name+02 DIT$K_INF_OBJECT PIC S9(9) COMP VALUE 2.* Remoe object type*02 DIT$K_INF_DESCF PIC S9(9) COMP VALUE 3.!* Remote object descriptor format)02 DIT$K_INF_DESC PIC S9(9) COMP VALUE 4.* Remote object descriptor+02 DIT$K_INF_USERID PIC S9(9) COMP VALUE 5.* Remote process userid+02 DIT$K_INF_PASSWD PIC S9(9) COMP VALUE 6.* Remote process password)02 DIT$K_INF_ACCT PIC S9(9) COMP VALUE 7.* Remote process account(02 DIT$K_INF_OPT PIC S9(9) C=OMP VALUE 8.* Remote process optional data(02 DIT$K_INF_SEG PIC S9(9) COMP VALUE 9.#* Maximum segment size for the link-02 DIT$K_INF_ABTCODE PIC S9(9) COMP VALUE 10.

* Abort code+02 DIT$K_PAS_FIREUP PIC S9(9) COMP VALUE 0.* Fire up VAX passive task,02 DIT$K_PAS_NFIREUP PIC S9(9) COMP VALUE 1.!* Do not fire up VAX passive taskwwÀQÍý•‹CC	Copyright (C) 1982, 1983 byC	Digital Equipment CorporationCFC This  software  is furnished  under a  license and  may be

>used andFCcopiedEonlyDIin accordance	PwithEthe terms OofRsuch=license3andwithFCotherinclusionTEofRtheTaboveOcopyright	notice.ERThisTsoftwareForEanyFC3other)copies thereoflmaynot	beTprovided$orOotherwiseTmadeAavailableFC$toOanyotherCperson.= 1No0titletoCandnnownershipoftheNsoftwareTisCEhereby'transferred.CFCRTheVinformation4in)this	softwarejistsubjectto	changeRwithoutNnoticeFCTandPAshouldR notT$beNconstruedT as1a3commitment	bytDigitaldEquipmentCCorporation.CFCVDigitalPassume?s$noAresponsibility34for the use or reliability of its9C software on equipment which is not supplied by Digital.C C Facility: DITCC Edit History:CC newversion (1, 0)C6C EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson'):C %( Change version and revision standards everywhere.  )%C7C EDIT (%O'20', '17-Nov-82', 'Charlotte L. Richardson')GC %( Add data type declarations for parameter statements in VAX Fortran7C    interface files.  DIT32ANSI.INT and DITF32.INT  )%C7C @EDIT (%O'21', '17-Nov-82', 'Charlotte L. Richardson')GC %( Remove SS$NORMAL from VAX Fortran interface files.  DIT32ANSI.INTC    and DITF32.INT.  QAR 7. )%C6C EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson'),C %( Update copyright notice.  DITF32.INT )%C6C EDIT (%O'61', '9-Mar-83', 'Charlotte L. Richardson')(C %( Declare version 1.  All modules. )%CC End of edit historyC	INTEGER SS$NORMALC	PARAMETER (SS$NORMAL = 1)	C	Success	INTEGER DIT$HORRIBLE%	PARAMETER (DIAT$HORRIBLE = 15302668)C	Internal or system error	INTEGER DIT$TOOMANY$	PARAMETER (DIT$TOOMANY = 15302676))C	Attempt to open too many files or links	INTEGER DIT$INVARG#	PARAMETER (DIT$INVARG = 15302684)C	Invalid argument	INTEGER DIT$NETOPRFAIL'	PARAMETER (DIT$NETOPRFAIL = 15302692)C	Network operation failed	INTEGER DIT$CHECKSUM%	PARAMETER (DIT$CHECKSUM = 15302700)C	Network checksum error	INTEGER DIT$UNSFILETYPE(	PARAMETER (DIT$UNSFILETYPE = 15302706)BC	Unsupported file type	INTEGER DIT$FILEINUSE&	PARAMETER (DIT$FILEINUSE = 15302716)#C	File activity precludes operation	INTEGER DIT$NOFILE#	PARAMETER (DIT$NOFILE = 15302724)C	File not found	INTEGER DIT$EOF 	PARAMETER (DIT$EOF = 15302728)

C	Data event	INTEGER DIT$_DISCONNECTEVENT,	PARAMETER (DIT$_DISCONNECTEVENT = 15303499)C	Disconnect event	INTEGER DIT$_ABORTREJECT(	PARAMETER (DIT$_ABORTREJECT = 15303868)C	Abort/reject	INTDEGER DIT$_INTERRUPT&	PARAMETER (DIT$_INTERRUPT = 15303872)C	Interrupt	INTEGER DIT$_NOTENOUGH&	PARAMETER (DIT$_NOTENOUGH = 15303882)C	Not enough data available	INTEGER DIT$_NODATAAVAILABLE,	PARAMETER (DIT$_NODATAAVAILABLE = 15303890)C	No data available	INTEGER DIT$_INFONOTAVAIL)	PARAMETER (DIT$_INFONOTAVAIL = 15303898)C	Information not available	INTEGER DIT$_INFOOUTOFRANGE+	PARAMETER (DIT$_INFOOUTOFRANGE = 15303908)C	Information out of range	INTEGER DIT$K_TYPEE_UNDEFINED%	PARAMETER (DIT$K_TYPE_UNDEFINED = 0)C	Undefined data type	INTEGER DIT$K_TYPE_ASCII!	PARAMETER (DIT$K_TYPE_ASCII = 1)C	ASCII data type	INTEGER DIT$K_TYPE_IMAGE!	PARAMETER (DIT$K_TYPE_IMAGE = 2)C	Image data type	INTEGER DIT$K_MODE_READ 	PARAMETER (DIT$K_MODE_READ = 1)C	Open mode to read	INTEGER DIT$K_MODE_WRITE!	PARAMETER (DIT$K_MODE_WRITE = 2)C	Open mode to write	INTEGER DIT$K_MODE_APPEND"	PARAMETER (DIT$K_MODE_APPEND = 3)C	Open mode to appFend	INTEGER DIT$K_RFM_UNDEFINED$	PARAMETER (DIT$K_RFM_UNDEFINED = 0)C	Record format undefined	INTEGER DIT$K_RFM_FIXED 	PARAMETER (DIT$K_RFM_FIXED = 1)C	Record format fixed	INTEGER DIT$K_RFM_VARIABLE#	PARAMETER (DIT$K_RFM_VARIABLE = 2)C	Record format variable	INTEGER DIT$K_RFM_VFC	PARAMETER (DIT$K_RFM_VFC = 3)C	Record format VFC	INTEGER DIT$K_RFM_STREAM!	PARAMETER (DIT$K_RFM_STREAM = 4)C	Record format ASCII stream	INTEGER DIT$K_RAT_UNSPECIFIED&	PARAMETERG (DIT$K_RAT_UNSPECIFIED = 0)C	Record attributes unspecified	INTEGER DIT$K_RAT_ENVELOPE#	PARAMETER (DIT$K_RAT_ENVELOPE = 1)-C	Record attributes implied <LF><CR> envelope	INTEGER DIT$K_RAT_PRINT 	PARAMETER (DIT$K_RAT_PRINT = 2)0C	Record attributes VMS printer carriage control	INTEGER DIT$K_RAT_FORTRAN"	PARAMETER (DIT$K_RAT_FORTRAN = 3),C	Record attributes Fortran carriage control	INTEGER DIT$K_RAT_MACY11!	PARAMETER (DIT$K_RAT_MACY11 = 4)C	Record attributes MACY11	INTHEGER DIT$K_OPT_NOTHING"	PARAMETER (DIT$K_OPT_NOTHING = 0)C	Close option: do nothing	INTEGER DIT$K_OPT_SUBMIT!	PARAMETER (DIT$K_OPT_SUBMIT = 1)+C	Close option: submit for batch processing	INTEGER DIT$K_OPT_PRINT 	PARAMETER (DIT$K_OPT_PRINT = 2)*C	Close option: submit for remote printing	INTEGER DIT$K_OPT_DELETE!	PARAMETER (DIT$K_OPT_DELETE = 4)C	Close option: delete	INTEGER DIT$K_OPT_SUB_DEL"	PARAMETER (DIT$K_OPT_SUB_DEL = 5)!C	Close option: submit and delete	INTEGIER DIT$K_OPT_PRINT_DEL$	PARAMETER (DIT$K_OPT_PRINT_DEL = 6) C	Close option: print and delete	INTEGER DIT$K_WAIT_YES	PARAMETER (DIT$K_WAIT_YES = 1)C	Wait for link	INTEGER DIT$K_WAIT_NO	PARAMETER (DIT$K_WAIT_NO = 0)C	Do not wait for link	INTEGER DIT$K_LTYPE_ASCII"	PARAMETER (DIT$K_LTYPE_ASCII = 1)C	ASCII link type (for NFACC)	INTEGER DIT$K_LTYPE_BINARY#	PARAMETER (DIT$K_LTYPE_BINARY = 2)C	Binary link type (for NFACC)	INTEGER DIT$K_LTYPE_8BIT!	PARAMETER (DIT$K_JLTYPE_8BIT = 3)C	8-bit link type (for NFACC)	INTEGER DIT$K_MSG_MSG	PARAMETER (DIT$K_MSG_MSG = 1)C	Message mode transfer	INTEGER DIT$K_MSG_STM	PARAMETER (DIT$K_MSG_STM = 0)C	Stream mode transfer	INTEGER DIT$K_INF_NODE	PARAMETER (DIT$K_INF_NODE = 1)C	Remote node name	INTEGER DIT$K_INF_OBJECT!	PARAMETER (DIT$K_INF_OBJECT = 2)C	Remote object type	INTEGER DIT$K_INF_DESCF 	PARAMETER (DIT$K_INF_DESCF = 3)!C	Remote object descriptor format	INTEGER DIT$K_INF_DKESC	PARAMETER (DIT$K_INF_DESC = 4)C	Remote object descriptor	INTEGER DIT$K_INF_USERID!	PARAMETER (DIT$K_INF_USERID = 5)C	Remote process userid	INTEGER DIT$K_INF_PASSWD!	PARAMETER (DIT$K_INF_PASSWD = 6)C	Remote process password	INTEGER DIT$K_INF_ACCT	PARAMETER (DIT$K_INF_ACCT = 7)C	Remote process account	INTEGER DIT$K_INF_OPT	PARAMETER (DIT$K_INF_OPT = 8)C	Remote process optional data	INTEGER DIT$K_INF_SEG	PARAMETER (DIT$K_INF_SEG = 9)#C	Maximum segmenLt size for the link	INTEGER DIT$K_INF_ABTCODE#	PARAMETER (DIT$K_INF_ABTCODE = 10)

C	Abortfcode	INTEGEREDIT$KrPASFIREUP!	PARAMETER (DIT$K2PAS)FIREUPt= 0)C	Fire	upTVAXRpassivetask	INTEGERmDIT$K PAS0NFIREUP"	PARAMETERl(DIT$KPASTNFIREUPn=v1)!C	DoAnotEfireup VAXnpassive5taskwwà0þ•‹CC	CopyrightP(C)M1982,(1983vby0C	DigitalEquipmenteCorporation,Marlboro, Mass.CFCRThisERsoftware =is5furnishedC	underraptlicensevandmayIbeEGusedaandFCcopiedEonly(dineMaccordance  with the terms  of such license and withFC the inclusion  of the above copyright  notice.  This software or anyFC other copies thereof may not be provided or otherwise made availableFC to any other person.   No title to and  ownership of the software isC hereby transferred.CFC The information in this software is subject to change without noticeFC and  should  not  be construed  as a commitment by Digital EquipmentC Corporation.CFC Digital assumes no responsibility  for theN use or reliability of its9C software on equipment which is not supplied by Digital.CC Facility: DITCC Edit History:CC newversion (1, 0)C6C EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson'):C %( Change version and revision standards everywhere.  )%C7C EDIT (%O'20', '17-Nov-82', 'Charlotte L. Richardson')GC %( Add data type declarations for parameter statements in VAX Fortran7C    interface files.  DIT32ANSI.INT and DITF32.INT  )%C7C EDIT (%O'21', '17-Nov-82', 'OCharlotte L. Richardson')GC %( Remove SS$NORMAL from VAX Fortran interface files.  DIT32ANSI.INTC    and DITF32.INT.  QAR 7. )%C7C EDIT (%O'31', '23-Nov-82', 'Charlotte L. Richardson')*C %( Fix typos.  QAR 17.  DIT32ANSI.INT )%C6C EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson')0C %( Update copyright notices.  DIT32ANSI.INT )%C7C EDIT (%O'54', '20-Jan-83', 'Charlotte L. Richardson')!C %( Fix typo in DIT32ANSI.INT )%C6C EDIT (%O'61', '9-Mar-83', 'Charlotte L. RichardsonP'))C %( Declare version 1.  All modules.  )%CC End of edit historyC	INTEGER normalC	PARAMETER (normal = 1)	C	Success	INTEGER syserr	PARAMETER (syserr = 15302668)C	Internal or system error	INTEGER toomny	PARAMETER (toomny = 15302676))C	Attempt to open too many files or links	INTEGER invarg	PARAMETER (invarg = 15302684)C	Invalid argument	INTEGER netfal	PARAMETER (netfal = 15302692)C	Network operation failed	INTEGER chksum	PARAMETER (chksum = 153Q02700)C	Network checksum error	INTEGER unstyp	PARAMETER (unstyp = 15302706)C	Unsupported file type	INTEGER filiu	PARAMETER (filiu = 15302716)#C	File activity precludes operation	INTEGER nofile	PARAMETER (nofile = 15302724)C	File not found	INTEGER diteof	PARAMETER (diteof = 15302728)

C	DataEevent	INTEGEREdscevt	PARAMETERc(dscevtm=t15303499)C	Disconnect	event	INTEGER	abrtrj	PARAMETER8(abrtrjR=c15303868)C	Abort/reject	INTEGEReintrcv	PARAMETERa(intrcvo=)15303872)C	Interrupt	INTEGER<notenf	PARAMETERN(notenfp=i153S03882)C	Nottenough0dataeavailable	INTEGERinodata	PARAMETERo(nodatai=t15303890)C	Noodatatavailable	INTEGER:notavl	PARAMETERp(notavl=15303898)C	InformationMnotRavailable	INTEGEReinfour	PARAMETER	(infour =s15303908)C	Informationlout5of!range	INTEGERstundef	PARAMETER(tundefE= 0)C	UndefinedTdataotype	INTEGERotascii	PARAMETERd(tascii=1)C	ASCIIidatatype	INTEGERltimage	PARAMETER (timage=	2)C	ImageldataWtype	INTEGERwmread	PARAMETER (Tmread =i1)C	OpenEmodeltocread	INTEGERlmwrite	PARAMETERI(mwritey=e2)C	Open)mode to write	INTEGER mappnd	PARAMETER (mappnd = 3)C	Open mode to append	INTEGER fundef	PARAMETER (fundef = 0)C	Record format undefined	INTEGER ffixed	PARAMETER (ffixed = 1)C	Record format fixed

C	Abortfcode	INTEGER fireup	PARAMETER9(fireupP=V0)C	Fire3upVAX passiveetask	INTEGEROnfreup	PARAMETER (nfreupL=E1)!C	Do.not*firemupeVAXlpassive taskwwS±vþ•‹**	Copyright.(C) 1982,c1983eby*	DigitalAEquipment Corporation*F*EThis03softwareAbistfurnishedveunder2aDIlicenseDandEVmay beC used)andF*Vcopied5only80inaccordancet with thenterms Dof-suchTlicensePandSwithFZ*Uthe5inclusion  of the above copyright  notice.  This software or anyF* other copies thereof may not be provided or otherwise made availableF* to any other person.   No title to and  ownership of the software is* hereby transferred.*F* The information in this software is subject to change without noticeF* and  should  not  be construed  as a commitment by Digital Equipment* Corporation.*F* Digital assumes no responsibility  for the use or reliability of its9* software on equipment wh[ich is not supplied by Digital.** Facility: DIT** Edit History:** newversion (1, 0)*6* EDIT (%O'1', '18-Oct-82', 'Charlotte L. Richardson'):* %( Change version and revision standards everywhere.  )%*7* EDIT (%O'23', '17-Nov-82', 'Charlotte L. Richardson')F* %( Remove SS$NORMAL from VAX COBOL interface files.  DITC20.INT and*    DITC32.INT )%*7* EDIT (%O'32', '24-Nov-82', 'Charlotte L. Richardson')K* %( DITC20 file on VAX should be like COBOL interface file on 20.\  QAR 14.*    DITC20.INT )%*6* EDIT (%O'50', '6-Jan-83', 'Charlotte L. Richardson')-* %( Update copyright notices.  DITC20.INT )%*6* EDIT (%O'61', '9-Mar-83', 'Charlotte L. Richardson')(* %( Declare version 1.  All modules. )%** End of edit history'*02 SS-C-NORMAL PIC S9(9) COMP VALUE 1.	* Success002 DIT-C-HORRIBLE PIC S9(9) COMP VALUE 15302664.* Internal or system error/02 DIT-C-TOOMANY PIC S9(9) COMP VALUE 15302672.)* Attempt to open too many files or links.02 DIT-C]-INVARG PIC S9(9) COMP VALUE 15302680.* Invalid argument202 DIT-C-NETOPRFAIL PIC S9(9) COMP VALUE 15302688.* Network operation failed002 DIT-C-CHECKSUM PIC S9(9) COMP VALUE 15302696.* Network checksum error302 DIT-C-UNSFILETYPE PIC S9(9) COMP VALUE 15302704.* Unsupported file type102 DIT-C-FILEINUSE PIC S9(9) COMP VALUE 15302712.#* File activity precludes operation.02 DIT-C-NOFILE PIC S9(9) COMP VALUE 15302720.* File not found+02 DIT-C-EOF PIC S9(9) COMP VALUE 15302728.

*Data event702ADIT-C-DISCONNECTEVENT PICUS9(9)COMPeVALUEf15303496.*eDisconnect- event302 DIT-C-ABORTREJECTRPICrS9(9)mCOMPFVALUE215303864.*AAbort/reject102 DIT-C-INTERRUPTcPIC S9(9)tCOMPIVALUEe15303872.*TInterrupt102IDIT-C-NOTENOUGHLPIC0S9(9)RCOMPdVALUEi15303880.*fNotenoughIdataTavailable702SDIT-C-NODATAAVAILABLE*PICcS9(9)tCOMPuVALUEm15303888.*>Nondatapavailable402-DIT-C-INFONOTAVAILMPICAS9(9).COMPRVALUE 15303896.*MInformationanotaavailable602 DIT-C-INFOOUTOFRANGESPIC)S9(9)COMPPVALUEE15303904.*dInformation outtofnrange-02 DIT-TYPE-UNDEFINEDTPICCS9(9)I`COMPMVALUEU0.*Undefinedadatabtype)021DIT-TYPE-ASCIINPICIS9(9)CCOMP9VALUEP1.* ASCII dataetype)02dDIT-TYPE-IMAGEDPICOS9(9)BCOMPPVALUE(2.*PImageEdata+type(02oDIT-MODE-READ PIC S9(9) COMPeVALUE1.*DOpenPmodeIto read)02 DIT-MODE-WRITEPIClS9(9)pCOMP:VALUEi2.*rOpenemodentonwrite*02-DIT-MODE-APPENDSPIC)S9(9) COMPEVALUE3.*sOpentmode tolappend,02-DIT-RFM-UNDEFINED9PIC S9(9)VCOMP VALUE 0.* Recordformat undefined(02eDIT-RFM-FIXEDPPICRS9(9)ECOMPCVALUE)1.* Record6formatlfixed+on: print and delete'02 DIT-WAIT-YES PIC S9(9) COMP VALUE 1.* Wait for link&02 DIT-WAIT-NO PIC S9(9) COMP VALUE 0.* Do not wait for link*02 DIT-LTYPE-ASCII PIC S9(9) COMP VALUE 1.* ASCII link type (for NFACC)+02 DIT-LTYPE-BINARY PIC S9(9) COMP VALUE 2.* Binary link type (for NFACC))02 DIT-LTYPE-8BIT PIC S9(9) COMP VALUE 3.* 8-bit link type (for NFACC)&02 DIT-MSG-MSG PIC S9(9) COMP VALUE 1.* Message-dmode transfer&02 DIT-MSG-STM PIC S9(9) COMP VALUE 0.* Stream-mode transfer'02 DIT-INF-NODE PIC S9(9) COMP VALUE 1.* Remote node name)02 DIT-INF-OBJECT PIC S9(9) COMP VALUE 2.* Remoe object type(02 DIT-INF-DESCF PIC S9(9) COMP VALUE 3.!* Remote object descriptor format'02 DIT-INF-DESC PIC S9(9) COMP VALUE 4.* Remote object descriptor)02 DIT-INF-USERID PIC S9(9) COMP VALUE 5.* Remote process userid)02 DIT-INF-PASSWD PIC S9(9) COMP VALUE 6.* Remote process password'02 DIT-INF-ACCT PIC S9(9) COMP VALUE 7.* Remote process account&02 DIT-INF-OPT PIC S9(9) COMP VALUE 8.* Remote process optional data&02 DIT-INF-SEG PIC S9(9) COMP VALUE 9.#* Maximum segment size for the link+02 DIT-INF-ABTCODE PIC S9(9) COMP VALUE 10.

* Abort code)02 DIT-PAS-FIREUP PIC S9(9) COMP VALUE 0.* Fire up VAX passive task*02 DIT-PAS-NFIREUP PIC S9(9) COMP VALUE 1.!* Do not fire up VAX passive taskww