% Librarian T09-20@OV@7ˍPVH ...!+mw( $ACCDEF+ $ACEDEFL $ACLDEFX $ACMEDEFb  $ACMEVMSDEF $ACRDEF $AGNDEF  $ALPHADEF\$ARGDEF $ARMDEF $ATRDEF$BASDEF2 $BRKDEF< $CHFDEFF  $CHKPNTDEFJ $CHPDEFr $CLIDEFG $CLIMSGDEF  $CLISERVDEF  $CLIVERBDEF $CLSDEF  $CLUEVTDEF $CMBDEF$COBDEF$CONVDEF $CONVMSGDEF$CRFMSG$CVTDEF$CVTMSG $DDTMMSGDEF( $DISMOUMSGDEF. $DSCDEF4$DSTDEFlCMA$DEF CONV$ROUTINES CSHDEF CVT$ROUTINES DCX$ROUTINES< DTK$ROUTINES EDT$ROUTINES FDL$ROUTINES LBR$ROUTINES LIB$ROUTINES MAIL$ROUTINESRMMEDEF MTH$ROUTINESQ NCS$ROUTINESQ OTS$ROUTINESPPL$DEF PPL$ROUTINES  PSM$ROUTINES  SMB$ROUTINES  SMG$ROUTINES  SOR$ROUTINESSTARLET& STR$ROUTINES\ TPU$ROUTINESn UTIL$ROUTINES $CONVMSGDEF $DSTDEF $ENVDEF $FDLMSGDEF$LBRDEF $MAILMSGDEF $OBJRECDEF $PR660DEF$PROMDEF$RBLDDEF $SMGTRMPTR[$TIRDEFL $XABJNLDEF CLI$ROUTINES UTIL$ROUTINESrq $LCKDEF,$LEPMDEFW$LHIDEF1 $LIBCLIDEF> $LIBDCFDEFa$LIBDEFJ $LIBDTDEFX $LIBFILDEF] $LIBFISDEF $LIBVMDEF $LIBWAITDEF $LICENSEDEF$LKIDEF%$LMFDEF$LNKDEF,$LNMDEF6$LPDEF2$LPRODEF'$LSDFDEF!$LSRFDEF$LSYDEFK $MACIDDEFo$MAILDEF $MAILMSGDEFDEF)$MHDDEF$MHDEFi$MMIDEF$MOUNDEFE$MTHDEF&$NAMDEF_$NCSDEFm $OBJRECDEF$RBLDDEFt* $FIBDEF$FIDDEF$FMLDEF$FORDEFv $FSCNDEF$GPSDEF$GSDEF$GSYDEF2$HLPDEF$HWDEF$IACDEF$ICCDEF$IDCDEF$IMPDEF$INITDEF$IODEFs$IOSADEF$ISSDEF $JBCMSGDEF$JPIDEF$KGBDEF$LADEF$LATDEF $LATMSGDEF# $LBRCTLTBL;$LBRDEFe$REGDEF} $RMEDEF$RMIDEF'$RMSDEF: $RNHBLKDEF>$RSDMDEFD$SBKDEF $SCRDEF]$SDDEF$SDFDEF$SDFMDEF$SDFVDEF$SDFWDEF$SECDEF $SECSRVDEF  $SECSRVMSGDEFl $SFDEF$SGPSDEF $SHRDEF$SJCDEF  $SMBMSGDEFE $SMGDEF $SMGMSG  $SMGTRMPTR$SMRDEF $SNAPEVTDEF$SORDEF$SRFDEFb $SRMDEFt $SSDEF"$STSDEF,$SYIDEF$TEBDEF8$TIRDEFG $EOBJRECDEF$EOMDEF$EOMWDEF$EPMDEF$EPMMDEF$EPMVDEF$EPMWDEF$ERADEF$ESDFDEF $ESDFMDEF $ESDFVDEFq $ESGPSDEF$ESRFDEF$ETIRDEF$FABDEFh$FALDEF$FDLDEF $FDLMSGDEF$OPCDEF$OPCMSG$OPDEF$OPRDEF$OSSDEF$OTSDEF$PCCDEF$PLVDEF$POSIX_SERVICEDEF$PPLDEF$PQLDEFB $PR009DEF[ $PR1202DEF $PR1302DEF$PR13DEF $PR1701DEFb $PR410DEFf $PR420DEFl$PR43DEF} $PR440DEF$PR46DEFh$PR49DEF$PR4ADEF $PR520DEF $PR560DEF$PR60DEF $PR650DEF $PR660DEF$PRCDEF&$PRDEF$PRODEF$PROMDEF$RBLDDEF"  $XABKEYDEF  $XABPRODEF  $XABRDTDEF $XABRUDEF  $XABSUMDEF  $XABTRMDEF#$XADEF'$XFDEFR $XKDEVDEF@ $XKSTSDEFM$XMDEF]$XRVDEFy$XWDEF ACLEDIT$ROUTINES[ CIADEF@ CLI$ROUTINESc$DTIDEFT$DTKDEFf$DTKMSGq$DVIDEF$DVSDEFl$EEOMDEF$EFNDEFb$EGPSDEF\$EGSDEF$EGSTDEF$EGSYDEF$EIDCDEFO$EMHDEF$ENVDEF5 $CQUALDEF $CRDEF^$CREDEF$CRFDEF$CRFMSG$CVTDEF$CVTMSG $DCDEF $DDTMDEF $DDTMMSGDEF.$DEVDEFA$DIBDEF( $DISMOUMSGDEFH$DMPDEF\$DMTDEF. $DSCDEF4$DSTDEFOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 3 ! Access Control List Editor (ACLEDIT) Routine !  ! . ! ACLEDIT$EDIT - Edit Access Control List ! ( ! status = ACLEDIT$EDIT (item_list) ! * ! item_list - Itemlist for operation ! , EXTERNAL LONG FUNCTION ACLEDIT$EDIT & ( & ANY BY REF & )wwfpPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )S END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )S END RECORDC% %LET %BASIC$OCTAWORD_DECLARED = 1V %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:21.28 !  ! EDIT: DJM1027R ! ****************************************************************************  ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE  PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G  ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++( ! FACILITY: GENERAL UTILITY LIBRARY !  ! ABSTRACT: ! C ! THIS FILE, BASMSG.MSG, CONTAINS THE DEFINITIONS OF THE BASICG ! MESSAGES FOR VAX/VMS. THIS FILE IS READ BY THE MESSAGE COMPILER= ! TO BUILD AN OBJECT FILE CONTAINING THE BASIC MESSAGES.  ! - ! ENVIRONMENT: USER MODE - AST REENTRANT ! : ! AUTHOR: RTL DEVELOPMENT, CREATION DATE: 06-MAY-1983 !  ! MODIFIED BY: ! B ! NOTE: ANY CHANGES TO THIS MODULE MUST ALSO BE REFLECTED IN  ! BASERRMSG.REQ( ! 1-001 - ORIGINAL. BLS 6-MAY-1983G ! 1-002 - CHANGE FACILITY TO BASIC INSTEAD OF BAS. LEB 2-JUN-1983N ! 1-003 - NOPE, FACILITY SHOULD HAVE BEEN BAS ALL ALONG. MDL 30-JUN-1983] ! 1-004 - CHANGE TEXT OF ERROR 178 AND NAME FROM ERRFILCOR TO EXRMSSHR. MDL 29-AUG-1983= ! 1-005 - CHANGE SEVERITY OF PRIUSIFOR. KC 11-JAN-1985.< ! 1-006 - ADD ILLNETOPE AND ILLTFFOPE. KC 11-JAN-1985.^ ! 1-007 - ADD FORLINPIC (FROM LINE ?SL IN PICTURE ?AC) AS A TRACEBACK ERROR FOR PICTURES. ! KC 15-JAN-1985.= ! 1-008 - ADD ILLWAIVAL AND DEADLOCK. KC 23-JUL-1985. ; ! 1-009 - ADD ORIERRWAS AND NOTBASIC. KC 01-SEP-1985.O ! 1-010 - ADD NEW UNUSED ERRORS SO THERE WILL ROOM TO ADD GRAPHICS ERRORS. !  KC 10-SEP-1985. ! 1-011 - ADD ECHTYPNOT. KC 18-NOV-1985.O ! 1-012 - ADD INVTRANUM, ILLPICOPE, ILLCLISTA, TRANOTDIF. KC 26-NOV-1985.R ! 1-013 - CHANGE GKSNOTINS TO A SEVERE MESSAGE (FROM FATAL). KC 05-DEC-1985./ ! 1-014 - ADD COLNOTCON. KC 10-DEC-1985.; ! 1-015 - ADD MOST GRAPHICS MESSAGES. KC 19-DEC-1985.P ! 1-016 - NUMBER 271 IS NOT USED. CHANGE WORDING OF 260. KC 08-JAN-1986.A ! 1-017 - CHANGE "VAX GKS/0b" TO "VAX GKS". KC 09-JAN-1986.9 ! 1-018  - CHANGE TYPO IN DEVNOTOPE. KC 13-JAN-1986.K ! 1-019 - CHANGE TEXT OF KEYBOARD WAIT EXHAUSTED TO "wait exhausted".  ! KC 17-FEB-1986.J ! 1-020 - ADD REMSTRNOT, REMAP'ED STRING NOT STATIC. KC 20-FEB-1986.F ! 1-021 - PAD ALL THE UNUSED MESSAGES WITH SPACES SO WE CAN PATCH0 ! THEM EASILY FOR V4.5. KC 28-FEB-1986.J ! 1-022 - ADD NEW GRAPHICS ERROR MESSAGES FOR V4.5. KC 16-APR-1986./ ! 1-023 - ADD ILLCNTCLA. KC 15-MAY-1986.? ! 1-024 - ADD ARRTOOSMA, ARRAY TOO SMALL. KC 20-MAY-1986.I ! 1-025 - CHANGE TEXT OF FROLINOEG. ADD ILLCOLMIX. KC 16-JUN-1986.. ! 1-026 - ADD ILLDEVNAM. KC 24-JUN-1986.L ! 1-027 - ADD MESSAGES FOR PROGRAMS W/O LINE NUMBERS. DJM 14-AUG-1986.J ! 1-028 - CHANGE TEXT FOR PROLOSSOR, ADD LOCPOICAN. DJM 17-SEP-1987. ! --. DECLARE LONG CONSTANT BAS$_FACILITY = 261 DECLARE LONG CONSTANT BAS$_VAXBAS = 17367074 DECLARE LONG CONSTANT BAS$_BADDIRDEV = 17367144 DECLARE LONG CONSTANT BAS$_ILLFILNAM = 17367224 DECLARE LONG CONSTANT BAS$_ACCDEVUSE = 17367304 DECLARE LONG CONSTANT BAS$_NO_ROOUSE = 17367384 DECLARE LONG CONSTANT BAS$_CANFINFIL = 17367464 DECLARE LONG CONSTANT BAS$_NOTVALDEV = 17367544 DECLARE LONG CONSTANT BAS$_IO_CHAALR = 17367624 DECLARE LONG CONSTANT BAS$_DEVNOTAVA = 17367704 DECLARE LONG CONSTANT BAS$_IO_CHANOT = 17367781 DECLARE LONG CONSTANT BAS$_PROVIO = 17367864 DECLARE LONG CONSTANT BAS$_ENDFILDEV = 17367 944 DECLARE LONG CONSTANT BAS$_FATSYSIO_ = 17368024 DECLARE LONG CONSTANT BAS$_USEDATERR = 17368104 DECLARE LONG CONSTANT BAS$_DEVHUNWRI = 17368184 DECLARE LONG CONSTANT BAS$_KEYWAIEXH = 17368264 DECLARE LONG CONSTANT BAS$_NAMACCNOW = 17368344 DECLARE LONG CONSTANT BAS$_TOOMANOPE = 17368424 DECLARE LONG CONSTANT BAS$_ILLSYSUSA = 17368504 DECLARE LONG CONSTANT BAS$_DISBLOINT = 17368584 DECLARE LONG CONSTANT BAS$_PACIDSDON = 17368664 DECLARE LO NG CONSTANT BAS$_DISPACNOT = 17368744 DECLARE LONG CONSTANT BAS$_DISPACLOC = 17368824 DECLARE LONG CONSTANT BAS$_ILLCLUSIZ = 17368904 DECLARE LONG CONSTANT BAS$_DISPACPRI = 17368984 DECLARE LONG CONSTANT BAS$_DISPACNEE = 17369064 DECLARE LONG CONSTANT BAS$_FATDISPAC = 17369144 DECLARE LONG CONSTANT BAS$_IO_TO_DET = 17369224 DECLARE LONG CONSTANT BAS$_PROC__TRA = 17369304 DECLARE LONG CONSTANT BAS$_CORFILSTR = 17369384 DECLARE LONG CONSTANT BAS$_DEV !NOTFIL = 17369464 DECLARE LONG CONSTANT BAS$_ILLBYTCOU = 17369544 DECLARE LONG CONSTANT BAS$_NO_BUFSPA = 17369624 DECLARE LONG CONSTANT BAS$_ODDADDTRA = 17369704 DECLARE LONG CONSTANT BAS$_RESINSTRA = 17369804 DECLARE LONG CONSTANT BAS$_MEMMANVIO = 17369884 DECLARE LONG CONSTANT BAS$_SP_STAOVE = 17369964 DECLARE LONG CONSTANT BAS$_DISERRDUR = 17370044 DECLARE LONG CONSTANT BAS$_MEMPARFAI = 17370124 DECLARE LONG CONSTANT BAS$_MAGSELERR = 17370184 " DECLARE LONG CONSTANT BAS$_MAGRECLEN = 17370264 DECLARE LONG CONSTANT BAS$_NONRESRUN = 17370344 DECLARE LONG CONSTANT BAS$_VIRBUFTOO = 17370424 DECLARE LONG CONSTANT BAS$_VIRARRDIS = 17370504 DECLARE LONG CONSTANT BAS$_MATARRTOO = 17370584 DECLARE LONG CONSTANT BAS$_VIRARROPE = 17370664 DECLARE LONG CONSTANT BAS$_ILLIO_CHA = 17370744 DECLARE LONG CONSTANT BAS$_LINTOOLON = 17370824 DECLARE LONG CONSTANT BAS$_FLOPOIERR = 17370904 DECLARE LONG CON #STANT BAS$_ARGTOOLAR = 17370984 DECLARE LONG CONSTANT BAS$_DATFORERR = 17371041 DECLARE LONG CONSTANT BAS$_INTERR = 17371141 DECLARE LONG CONSTANT BAS$_ILLNUM = 17371224 DECLARE LONG CONSTANT BAS$_ILLARGLOG = 17371304 DECLARE LONG CONSTANT BAS$_IMASQUROO = 17371384 DECLARE LONG CONSTANT BAS$_SUBOUTRAN = 17371464 DECLARE LONG CONSTANT BAS$_CANINVMAT = 17371544 DECLARE LONG CONSTANT BAS$_OUTOF_DAT = 17371624 DECLARE LONG CONSTANT BAS$_ON_STAOUT = 1 $7371704 DECLARE LONG CONSTANT BAS$_NOTENODAT = 17371784 DECLARE LONG CONSTANT BAS$_INTOVEFOR = 17371864 DECLARE LONG CONSTANT BAS$_DIVBY_ZER = 17371944 DECLARE LONG CONSTANT BAS$_NO_RUNSYS = 17372024 DECLARE LONG CONSTANT BAS$_FIEOVEBUF = 17372104 DECLARE LONG CONSTANT BAS$_NOTRANACC = 17372184 DECLARE LONG CONSTANT BAS$_ILLMAGUSA = 17372264 DECLARE LONG CONSTANT BAS$_MISSPEFEA = 17372344 DECLARE LONG CONSTANT BAS$_ILLSWIUSA = 17372424 DECLAR %E LONG CONSTANT BAS$_UNUERR068 = 17372524 DECLARE LONG CONSTANT BAS$_UNUERR069 = 17372604 DECLARE LONG CONSTANT BAS$_UNUERR070 = 17372684 DECLARE LONG CONSTANT BAS$_STANOTFOU = 17372764 DECLARE LONG CONSTANT BAS$_RETWITGOS = 17372844 DECLARE LONG CONSTANT BAS$_FNEWITFUN = 17372924 DECLARE LONG CONSTANT BAS$_UNDFUNCAL = 17373001 DECLARE LONG CONSTANT BAS$_ILLSYM = 17373081 DECLARE LONG CONSTANT BAS$_ILLVER = 17373161 DECLARE LONG CONSTANT BAS$_ILL &EXP = 17373244 DECLARE LONG CONSTANT BAS$_ILLMODMIX = 17373324 DECLARE LONG CONSTANT BAS$_ILLIF_STA = 17373404 DECLARE LONG CONSTANT BAS$_ILLCONCLA = 17373484 DECLARE LONG CONSTANT BAS$_ILLFUNNAM = 17373564 DECLARE LONG CONSTANT BAS$_ILLDUMVAR = 17373644 DECLARE LONG CONSTANT BAS$_ILLFN_RED = 17373724 DECLARE LONG CONSTANT BAS$_ILLLINNUM = 17373801 DECLARE LONG CONSTANT BAS$_MODERR = 17373884 DECLARE LONG CONSTANT BAS$_CANCOMSTA = 17373944 'DECLARE LONG CONSTANT BAS$_EXPTOOCOM = 17374044 DECLARE LONG CONSTANT BAS$_ARGDONMAT = 17374124 DECLARE LONG CONSTANT BAS$_TOOMANARG = 17374204 DECLARE LONG CONSTANT BAS$_INCFUNUSA = 17374244 DECLARE LONG CONSTANT BAS$_ILLDEFNES = 17374364 DECLARE LONG CONSTANT BAS$_FORWITNEX = 17374444 DECLARE LONG CONSTANT BAS$_NEXWITFOR = 17374524 DECLARE LONG CONSTANT BAS$_DEFWITFNE = 17374604 DECLARE LONG CONSTANT BAS$_FNEWITDEF = 17374684 DECLARE LONG CONSTAN (T BAS$_LITSTRNEE = 17374764 DECLARE LONG CONSTANT BAS$_TOOFEWARG = 17374841 DECLARE LONG CONSTANT BAS$_SYNERR = 17374924 DECLARE LONG CONSTANT BAS$_STRIS_NEE = 17375004 DECLARE LONG CONSTANT BAS$_NUMIS_NEE = 17375084 DECLARE LONG CONSTANT BAS$_DATTYPERR = 17375164 DECLARE LONG CONSTANT BAS$_ONEOR_TWO = 17375244 DECLARE LONG CONSTANT BAS$_PROLOSSOR = 17375324 DECLARE LONG CONSTANT BAS$_RESNO_ERR = 17375401 DECLARE LONG CONSTANT BAS$_REDARR = 173754 )64 DECLARE LONG CONSTANT BAS$_INCSUBUSE = 17375524 DECLARE LONG CONSTANT BAS$_ON_STANEE = 17375644 DECLARE LONG CONSTANT BAS$_ENDOF_STA = 1737572. DECLARE LONG CONSTANT BAS$_WHA = 17375794 DECLARE LONG CONSTANT BAS$_BADLINNUM = 17375884 DECLARE LONG CONSTANT BAS$_NOTENOAVA = 17375964 DECLARE LONG CONSTANT BAS$_EXEONLFIL = 17376044 DECLARE LONG CONSTANT BAS$_PLEUSERUN = 17376121 DECLARE LONG CONSTANT BAS$_CANCON = 17376204 DECLARE LONG CONST *ANT BAS$_FILEXIREN = 17376284 DECLARE LONG CONSTANT BAS$_PRIUSIFOR = 17376344 DECLARE LONG CONSTANT BAS$_MATARRWIT = 17376444 DECLARE LONG CONSTANT BAS$_BADNUMPRI = 17376524 DECLARE LONG CONSTANT BAS$_ILLIN_IMM = 17376604 DECLARE LONG CONSTANT BAS$_PRIUSIBUF = 17376681 DECLARE LONG CONSTANT BAS$_ILLSTA = 17376764 DECLARE LONG CONSTANT BAS$_ILLFIEVAR = 1737684. DECLARE LONG CONSTANT BAS$_STO = 17376914 DECLARE LONG CONSTANT BAS$_MATDIMERR = 1737700 +4 DECLARE LONG CONSTANT BAS$_WROMATPAC = 17377084 DECLARE LONG CONSTANT BAS$_MAXMEMEXC = 17377164 DECLARE LONG CONSTANT BAS$_SCAFACINT = 17377244 DECLARE LONG CONSTANT BAS$_TAPRECNOT = 17377304 DECLARE LONG CONSTANT BAS$_TAPBOTDET = 17377384 DECLARE LONG CONSTANT BAS$_KEYNOTCHA = 17377464 DECLARE LONG CONSTANT BAS$_NO_CURREC = 17377544 DECLARE LONG CONSTANT BAS$_RECHASBEE = 17377624 DECLARE LONG CONSTANT BAS$_ILLUSADEV = 17377704 DECLARE LONG , CONSTANT BAS$_DUPKEYDET = 17377781 DECLARE LONG CONSTANT BAS$_ILLUSA = 17377864 DECLARE LONG CONSTANT BAS$_ILLILLACC = 17377944 DECLARE LONG CONSTANT BAS$_ILLKEYATT = 17378024 DECLARE LONG CONSTANT BAS$_FILIS_LOC = 17378104 DECLARE LONG CONSTANT BAS$_INVFILOPT = 17378184 DECLARE LONG CONSTANT BAS$_INDNOTINI = 17378261 DECLARE LONG CONSTANT BAS$_ILLOPE = 17378344 DECLARE LONG CONSTANT BAS$_ILLRECFIL = 17378424 DECLARE LONG CONSTANT BAS$_BADRECIDE - = 17378504 DECLARE LONG CONSTANT BAS$_INVKEYREF = 17378584 DECLARE LONG CONSTANT BAS$_KEYSIZTOO = 17378664 DECLARE LONG CONSTANT BAS$_TAPNOTANS = 17378744 DECLARE LONG CONSTANT BAS$_RECNUMEXC = 17378824 DECLARE LONG CONSTANT BAS$_BADRECVAL = 17378904 DECLARE LONG CONSTANT BAS$_NOTENDFIL = 17378984 DECLARE LONG CONSTANT BAS$_NO_PRIKEY = 17379064 DECLARE LONG CONSTANT BAS$_KEYFIEBEY = 17379144 DECLARE LONG CONSTANT BAS$_ILLRECACC = 17379224 DE .CLARE LONG CONSTANT BAS$_RECALREXI = 17379304 DECLARE LONG CONSTANT BAS$_RECBUCLOC = 17379384 DECLARE LONG CONSTANT BAS$_RECNOTFOU = 17379464 DECLARE LONG CONSTANT BAS$_SIZRECINV = 17379544 DECLARE LONG CONSTANT BAS$_RECFILTOO = 17379624 DECLARE LONG CONSTANT BAS$_PRIKEYOUT = 17379704 DECLARE LONG CONSTANT BAS$_KEYLARTHA = 17379784 DECLARE LONG CONSTANT BAS$_FILATTNOT = 17379864 DECLARE LONG CONSTANT BAS$_MOVOVEBUF = 17379944 DECLARE LONG CONSTANT /BAS$_CANOPEFIL = 17380024 DECLARE LONG CONSTANT BAS$_NO_FILNAM = 17380104 DECLARE LONG CONSTANT BAS$_TERFORFIL = 17380184 DECLARE LONG CONSTANT BAS$_CANPOSEOF = 17380264 DECLARE LONG CONSTANT BAS$_NEGFILSTR = 17380344 DECLARE LONG CONSTANT BAS$_ILLRECFOR = 17380424 DECLARE LONG CONSTANT BAS$_ILLALLCLA = 17380504 DECLARE LONG CONSTANT BAS$_UNUERR169 = 17380604 DECLARE LONG CONSTANT BAS$_INDNOTFUL = 17380664 DECLARE LONG CONSTANT BAS$_RRVNOTFUL = 173 080744 DECLARE LONG CONSTANT BAS$_RECLOCFAI = 17380824 DECLARE LONG CONSTANT BAS$_INVRFAFIE = 17380904 DECLARE LONG CONSTANT BAS$_FILEXPDAT = 17380984 DECLARE LONG CONSTANT BAS$_NODNAMERR = 17381064 DECLARE LONG CONSTANT BAS$_NEGZERTAB = 17381124 DECLARE LONG CONSTANT BAS$_TOOMUCDAT = 17381203 DECLARE LONG CONSTANT BAS$_EXRMSSHR = 17381304 DECLARE LONG CONSTANT BAS$_UNEFILDAT = 17381383 DECLARE LONG CONSTANT BAS$_NOSUPFOR = 17381461 DECLARE 1LONG CONSTANT BAS$_DECERR = 17381544 DECLARE LONG CONSTANT BAS$_NETOPEREJ = 17381624 DECLARE LONG CONSTANT BAS$_REMOVEBUF = 17381704 DECLARE LONG CONSTANT BAS$_UNAREMVAR = 17381804 DECLARE LONG CONSTANT BAS$_RECOVEMAP = 17381884 DECLARE LONG CONSTANT BAS$_IMPERRHAN = 17381964 DECLARE LONG CONSTANT BAS$_ILLRECLOC = 17382044 DECLARE LONG CONSTANT BAS$_REQRECSIZ = 17382104 DECLARE LONG CONSTANT BAS$_TOOLITDAT = 17382164 DECLARE LONG CONSTANT BAS$_ILL 2NETOPE = 17382264 DECLARE LONG CONSTANT BAS$_ILLTFFOPE = 17382344 DECLARE LONG CONSTANT BAS$_ILLWAIVAL = 17382423 DECLARE LONG CONSTANT BAS$_DEADLOCK = 17382503 DECLARE LONG CONSTANT BAS$_NOTBASIC = 17382584 DECLARE LONG CONSTANT BAS$_DIMOUTRAN = 17382664 DECLARE LONG CONSTANT BAS$_REMSTRNOT = 17382764 DECLARE LONG CONSTANT BAS$_ARRTOOSMA = 17382824 DECLARE LONG CONSTANT BAS$_UNUERR198 = 17382924 DECLARE LONG CONSTANT BAS$_UNUERR199 = 17383004 3 DECLARE LONG CONSTANT BAS$_UNUERR200 = 17383084 DECLARE LONG CONSTANT BAS$_UNUERR201 = 17383164 DECLARE LONG CONSTANT BAS$_UNUERR202 = 17383244 DECLARE LONG CONSTANT BAS$_UNUERR203 = 17383324 DECLARE LONG CONSTANT BAS$_UNUERR204 = 17383404 DECLARE LONG CONSTANT BAS$_UNUERR205 = 17383484 DECLARE LONG CONSTANT BAS$_UNUERR206 = 17383564 DECLARE LONG CONSTANT BAS$_UNUERR207 = 17383644 DECLARE LONG CONSTANT BAS$_UNUERR208 = 17383724 DECLARE LONG CON 4STANT BAS$_UNUERR209 = 17383804 DECLARE LONG CONSTANT BAS$_UNUERR210 = 17383884 DECLARE LONG CONSTANT BAS$_UNUERR211 = 17383964 DECLARE LONG CONSTANT BAS$_UNUERR212 = 17384044 DECLARE LONG CONSTANT BAS$_UNUERR213 = 17384124 DECLARE LONG CONSTANT BAS$_UNUERR214 = 17384204 DECLARE LONG CONSTANT BAS$_UNUERR215 = 17384284 DECLARE LONG CONSTANT BAS$_UNUERR216 = 17384364 DECLARE LONG CONSTANT BAS$_UNUERR217 = 17384444 DECLARE LONG CONSTANT BAS$_UNUERR218 5 = 17384524 DECLARE LONG CONSTANT BAS$_UNUERR219 = 17384604 DECLARE LONG CONSTANT BAS$_UNUERR220 = 17384684 DECLARE LONG CONSTANT BAS$_UNUERR221 = 17384764 DECLARE LONG CONSTANT BAS$_UNUERR222 = 17384844 DECLARE LONG CONSTANT BAS$_UNUERR223 = 17384924 DECLARE LONG CONSTANT BAS$_UNUERR224 = 17385004 DECLARE LONG CONSTANT BAS$_UNUERR225 = 17385084 DECLARE LONG CONSTANT BAS$_GKSNOTINS = 17385144 DECLARE LONG CONSTANT BAS$_STRTOOLON = 17385224 DE 6CLARE LONG CONSTANT BAS$_RECATTNOT = 17385304 DECLARE LONG CONSTANT BAS$_DIFUSELON = 17385404 DECLARE LONG CONSTANT BAS$_NO_FIEIMA = 17385464 DECLARE LONG CONSTANT BAS$_ILLSTRIMA = 17385541 DECLARE LONG CONSTANT BAS$_NULIMA = 17385624 DECLARE LONG CONSTANT BAS$_ILLNUMIMA = 17385704 DECLARE LONG CONSTANT BAS$_NUMIMASTR = 17385784 DECLARE LONG CONSTANT BAS$_STRIMANUM = 17385864 DECLARE LONG CONSTANT BAS$_TIMLIMEXC = 17385944 DECLARE LONG CONSTANT BA 7S$_FIRARGSEQ = 17386024 DECLARE LONG CONSTANT BAS$_ARRMUSSAM = 17386104 DECLARE LONG CONSTANT BAS$_ARRMUSSQU = 17386184 DECLARE LONG CONSTANT BAS$_CANCHAARR = 17386261 DECLARE LONG CONSTANT BAS$_FLOOVE = 17386341 DECLARE LONG CONSTANT BAS$_FLOUND = 17386424 DECLARE LONG CONSTANT BAS$_CHATO_NON = 17386501 DECLARE LONG CONSTANT BAS$_EXPERR = 17386584 DECLARE LONG CONSTANT BAS$_ILLEXIDEF = 17386684 DECLARE LONG CONSTANT BAS$_ERRTRANEE = 17386764 8 DECLARE LONG CONSTANT BAS$_ILLRESSUB = 17386844 DECLARE LONG CONSTANT BAS$_ILLRETSUB = 17386904 DECLARE LONG CONSTANT BAS$_ARGOUTBOU = 17386981 DECLARE LONG CONSTANT BAS$_NOTIMP = 17387064 DECLARE LONG CONSTANT BAS$_RECSUBCAL = 17387144 DECLARE LONG CONSTANT BAS$_FILACPFAI = 17387221 DECLARE LONG CONSTANT BAS$_DIRERR = 17387304 DECLARE LONG CONSTANT BAS$_UNUERR254 = 17387404 DECLARE LONG CONSTANT BAS$_UNUERR255 = 17387484 DECLARE LONG CONSTAN 9T BAS$_ECHTYPNOT = 17387544 DECLARE LONG CONSTANT BAS$_ILLTRANUM = 17387624 DECLARE LONG CONSTANT BAS$_ILLPICOPE = 17387704 DECLARE LONG CONSTANT BAS$_CLIPONOFF = 17387784 DECLARE LONG CONSTANT BAS$_TRANOTDIF = 17387864 DECLARE LONG CONSTANT BAS$_COLNOTCON = 17387944 DECLARE LONG CONSTANT BAS$_ILLARESTY = 17388024 DECLARE LONG CONSTANT BAS$_ILLTEXJUS = 17388104 DECLARE LONG CONSTANT BAS$_ILLTEXPRE = 17388184 DECLARE LONG CONSTANT BAS$_ILLTEXPAT = 1 :7388263 DECLARE LONG CONSTANT BAS$_ILLDEVID = 17388344 DECLARE LONG CONSTANT BAS$_DEVTYPNOT = 17388424 DECLARE LONG CONSTANT BAS$_DEVNOTOPE = 17388504 DECLARE LONG CONSTANT BAS$_DEVOUTMET = 17388583 DECLARE LONG CONSTANT BAS$_DEVINMET = 17388664 DECLARE LONG CONSTANT BAS$_UNUERR271 = 17388764 DECLARE LONG CONSTANT BAS$_DEVOPEINC = 17388824 DECLARE LONG CONSTANT BAS$_COONOTNDC = 17388904 DECLARE LONG CONSTANT BAS$_ILLLINSTY = 17388984 DECLAR ;E LONG CONSTANT BAS$_ILLLINSIZ = 17389064 DECLARE LONG CONSTANT BAS$_ILLPOISTY = 17389144 DECLARE LONG CONSTANT BAS$_ILLTEXRAT = 17389224 DECLARE LONG CONSTANT BAS$_ILLTEXHEI = 17389304 DECLARE LONG CONSTANT BAS$_ILLSTYIND = 17389384 DECLARE LONG CONSTANT BAS$_ILLCOLIND = 17389464 DECLARE LONG CONSTANT BAS$_NUMCOOINS = 17389544 DECLARE LONG CONSTANT BAS$_UNINUMNOT = 17389624 DECLARE LONG CONSTANT BAS$_ILLECHARE = 17389704 DECLARE LONG CONSTANT BAS$ <_ILLINIVAL = 17389784 DECLARE LONG CONSTANT BAS$_ENTPOINOT = 17389864 DECLARE LONG CONSTANT BAS$_UNKGKSERR = 17389944 DECLARE LONG CONSTANT BAS$_INVCHASTR = 17390024 DECLARE LONG CONSTANT BAS$_STRLENZER = 17390103 DECLARE LONG CONSTANT BAS$_DATOVERF = 17390184 DECLARE LONG CONSTANT BAS$_ILLCNTCLA = 17390264 DECLARE LONG CONSTANT BAS$_ILLCOLMIX = 17390344 DECLARE LONG CONSTANT BAS$_ILLDEVNAM = 17390424 DECLARE LONG CONSTANT BAS$_USEABOINP = 1739050 =4 DECLARE LONG CONSTANT BAS$_UNUERR294 = 17390604 DECLARE LONG CONSTANT BAS$_UNUERR295 = 17390684 DECLARE LONG CONSTANT BAS$_UNUERR296 = 17390764 DECLARE LONG CONSTANT BAS$_UNUERR297 = 17390844 DECLARE LONG CONSTANT BAS$_UNUERR298 = 17390924 DECLARE LONG CONSTANT BAS$_UNUERR299 = 17391004 DECLARE LONG CONSTANT BAS$_UNUERR300 = 17391081 DECLARE LONG CONSTANT BAS$_FROPIC = 17692991 DECLARE LONG CONSTANT BAS$_FROMOD = 17693071 DECLARE LONG CON >STANT BAS$_FROSUB = 17693151 DECLARE LONG CONSTANT BAS$_FROFUN = 17693234 DECLARE LONG CONSTANT BAS$_FRODEFMOD = 17693314 DECLARE LONG CONSTANT BAS$_FRODFSMOD = 17693394 DECLARE LONG CONSTANT BAS$_FROGSBMOD = 17693474 DECLARE LONG CONSTANT BAS$_FROOEGMOD = 1769355 ! 4 DECLARE LONG CONSTANT BAS$_ORIERRWAS = 17693637 DECLARE LONG CONSTANT BAS$_GKSACTIVATED = 17693724 DECLARE LONG CONSTANT BAS$_FROLINPIC = 17693794 DECLARE LONG CONSTANT BAS$_F ?ORFILUSE = 17693874 DECLARE LONG CONSTANT BAS$_USEPC_PSL = 17693951 DECLARE LONG CONSTANT BAS$_FROIOL = 17694034 DECLARE LONG CONSTANT BAS$_ON_CHAFIL = 17694114 DECLARE LONG CONSTANT BAS$_FROLINMOD = 17694194 DECLARE LONG CONSTANT BAS$_FROLINSUB = 17694274 DECLARE LONG CONSTANT BAS$_FROLINFUN = 17694354 DECLARE LONG CONSTANT BAS$_FROLINDEF = 17694434 DECLARE LONG CONSTANT BAS$_FROLINDFS = 17694514 DECLARE LONG CONSTANT BAS$_FROLINGSB = 17694594  DECLARE LONG CONSTANT BAS$_FROLINOEG = 1769467wwAOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIBNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETC %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! Command Language Interpreter (CLI) Routines !  ! / ! CLI$DCL_PARSE - Parse DCL command string ! G ! status = CLI$DCL_PARSE ([command_string], table [,param_routine]6 D ! [,prompt_routine] [,prompt_string]) ! 0 ! command_string - Command string to parse& ! table - Command table= ! param_routine - Routine to obtain omitted parameters4 ! prompt_routine - Routine to prompt for input2 ! prompt_string - Prompt string for display ! - EXTERNAL LONG FUNCTION CLI$DCL_PARSE & ( &% STRING BY DESC, &! ANY BY REF, &* OPTIONAL LONEG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! 0 ! CLI$DISPATCH - Dispatch to action routine ! ( ! status = CLI$DISPATCH ([userarg]) !  ! userarg - User argument ! , EXTERNAL LONG FUNCTION CLI$DISPATCH & ( &( OPTIONAL ANY BY REF & ) ! < ! CLI$GET_VALUE - Get value of entity in command string ! B ! status = CLI$GET_VALUE (entity_Fdesc, retdesc [, retlength]) ! ( ! entity_desc - Entity to retrieve+ ! retdesc - Returned value string. ! retlength - Length of returned value ! - EXTERNAL LONG FUNCTION CLI$GET_VALUE & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! C ! CLI$PRESENT - Determine presence of entity in command string ! ) ! status = CLI$PRESENT (entity_desc) ! ( ! entity_desc - Entity to retrieve ! + EXTERNAL LONG FUNCTION CLI$PRESENT & ( &$ STRING BY DESC & )wwHOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETJ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:38.11 !  !  ! VERSION: 'X-15' ! R ! ************************************************************** K************** ! * *> ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COP LIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR REMLIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! MODIFIED BY: ! $ ! X-15 BRIAN MAN 26-MAR-1996( ! UPDATE WITH LATEST ALPHA CHANGE. ! C ! X-10 NYK578 NITIN Y. KARKHANIS 8-MAR-1996? ! ADD UNSUPITEM WARNING MESSAGE; USED WHEN AN UNSUPPORTED@ ! ITEM CODNE IS SUPPLIED TO THE F$GETXXI LEXICAL FUNCTIONS. ! ' ! X-14 STEVE T. LEE 06-FEB-1996% ! UPDATE MESSAGES FOR DCL PIPE. ! . ! X-13 STL0200 STEVE T. LEE 30-AUG-1995/ ! ADD NEW MESSAGES FOR DCL PIPE SUPPORT. ! 4 ! X-12 DCP DAVID C. PASTERCHIK 25-AUG-19946 ! CLARIFY TEXT OF GBLNDF MESSAGE (V6 QAR 00787). ! 2 ! X-11 RAB0176 RICHARD A. BISHOP 21-OCT-1993: ! ADD CMDSEG2 FROM ALPHA, *BEFORE* INVNOD TO KEEP IN ! STEP WITH ALPHOA V1.5 ! . ! X-10 STL00067 STEVE T. LEE 24-JUN-1993= ! FIX WRONG PUNCTUATION USED IN THE NEW MESSAGE INVNOD. ! - ! X-9 STL00065 STEVE T. LEE 12-JUN-1993B ! FULLNAME BL3 CHECKIN. (FIX EDIT HISTORY AND MODULE IDENT.) ! + ! X-8 WXD BILL DAVENPORT 12-APR-1993 ! FULLNAME BL1 CHECKIN. ! / ! X-7A1 STL00045 STEVE T. LEE 14-MAR-1993< ! ADD INVNOD WARNING FOR DECNET/OSI FULLNAMES SUPPORT. ! ; ! X-7 CRB0239 COLIN R. BLAKE 18-DPEC-1991 11:38:24.76< ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! 2 ! X-6A1 FAK001 FORREST A. KENNEY 23-SEP-1991D ! MERGE C2 CHANGES INTO BLADE. MAKE MODULE IDENT AND REVISION= ! HISTORY AGREE WITH CMS AFTER THE MASTER PACK CLEANUP. ! A ! T-2 LBB LEE BARTON 22-MAY-1991- ! PICK UP PHOENIX CHANGE: ! + ! X-18 TNF0094 TODD FLOLO 23 FEB 1991# ! ADD MESSAGE FOR SET PREFIX. ! 3 Q! X-15 RNM0119 RUSS MURRAY 10-OCT-1990. ! MAKE IVPROT MESSAGE TEXT MORE GENERIC. ! , ! X-14 RNM0109 RUSS MURRAY 25-MAY-1990E ! ADD MSNGENDS TO FLAG MISSING ENDSUBROUTINES ON A FORWARD SCAN ! FOR A CALL TARGET. ! G ! INCLUDE THE TARGET LABEL NAME IN THE USCALL MESSAGE, AND CHANGE? ! THE TEXT OF THE MESSAGE TO INDICATE THE LABEL COULD BE  ! INACCESSIBLE. ! , ! X-13 RNM0102 RUSS MURRAY 28-FEB-19891 ! ADD NOREADCP ERROR MRESSAGE TO FLAG FILES # ! NOT OPENED FOR READ ACCESS. ! , ! X-12 RNM0090 RUSS MURRAY 11-OCT-1989: ! ADD THE CURRENT DISK FILE NAME (IF ONE EXISTS) TO + ! THE MISSPELL INFORMATIONAL MESSAGE. ! , ! X-11 RNM0086 RUSS MURRAY 20-SEP-19894 ! SUPPORT FOR COMMAND VERB/QUALIFIER SPELLING 7 ! CHECKS: ADD MISSPELL INFORMATIONAL MESSAGE FOR , ! COMMAND VERB/QUALIFIER MISSPELLINGS. ! * ! X-10 TNF0056 TODD FLOLO 6-FEB-19892 ! ADD MESSAGE SFOR DISABLED RUN ? MCR COMMAND ! ) ! X-9 TNF0053 TODD FLOLO 2-DEC-19884 ! ADD MESSAGES FOR CAPTIVE ? DISIMAGE ACCOUNTS ! * ! X-8 TNF0047 TODD FLOLO 06-OCT-19887 ! ADD NEW MESSAGES FOR CONTEXT SYMBOL PROCESSING. ! . ! X-7 HWS0263 HAROLD SCHULTZ 08-DEC-19864 ! ADD INVIFNEST ERROR MESSAGE FOR IF-THEN-ELSE ! CONSTRUCTS. ! . ! X-6 HWS0188 HAROLD SCHULTZ 03-OCT-1985. ! ADD USCALL AND USGOSUB ERROR MESSAGES. ! . ! X-5 HWST0178 HAROLD SCHULTZ 09-SEP-19855 ! CHANGE THE INVCALL AND STKOVF ERROR MESSAGES." ! ADD INVGOSUB AND GOSUBMAX. ! . ! X-4 HWS0168 HAROLD SCHULTZ 04-SEP-1985 ! ADD INVDEF AND INVCALL ! . ! X-3 HWS0161 HAROLD SCHULTZ 19-AUG-1985 ! ADD PERMSYM AND GBLNDF ! 2 ! V04-002 HWS0130 HAROLD SCHULLZ 29-MAY-1985 ! ADD INVOUTSPE ! 2 ! V04-001 HWS0117 HAROLD SCHULTZ 09-MAR-1985 ! ADD ATTRMBX  ! ! --- ! ' ! DEF UINE CLI RELATED STATUS VALUES ! - DECLARE LONG CONSTANT CLI$_FACILITY = 30 DECLARE LONG CONSTANT CLI$_ABVERB = 2293840 DECLARE LONG CONSTANT CLI$_ABKEYW = 2293920 DECLARE LONG CONSTANT CLI$_BUFOVF = 2294000 DECLARE LONG CONSTANT CLI$_COMPLX = 2294080 DECLARE LONG CONSTANT CLI$_DEFOVF = 2294160 DECLARE LONG CONSTANT CLI$_DIRECT = 2294240 DECLARE LONG CONSTANT CLI$_EXPSYN = 229432O DECLARE LONG CONSTANT CLI$_IMCHNG = 229440 ! NOT USED BY DCL V NOR BY MCR1 DECLARE LONG CONSTANT CLI$_INSFPRM = 2294480 DECLARE LONG CONSTANT CLI$_IVCHAR = 229456/ DECLARE LONG CONSTANT CLI$_SPARE = 2294640 DECLARE LONG CONSTANT CLI$_IVKEYW = 2294720 DECLARE LONG CONSTANT CLI$_IVOPER = 2294800 DECLARE LONG CONSTANT CLI$_IVPROT = 2294880 DECLARE LONG CONSTANT CLI$_IVQLOC = 2294960 DECLARE LONG CONSTANT CLI$_IVSYMB = 2295040 DECLARE LONG CONSTANT CLI$_IVVALU = 2295120 DECLARE LONG CONSTANT CLI$_IVVERB W= 2295201 DECLARE LONG CONSTANT CLI$_MAXPARM = 229528P DECLARE LONG CONSTANT CLI$_NOATFIL = 229536 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOCCAT = 2295440 DECLARE LONG CONSTANT CLI$_NOCOMD = 2295520 DECLARE LONG CONSTANT CLI$_NOKEYW = 2295600 DECLARE LONG CONSTANT CLI$_NOLIST = 2295680 DECLARE LONG CONSTANT CLI$_NOQUAL = 2295760 DECLARE LONG CONSTANT CLI$_NOVALU = 2295840 DECLARE LONG CONSTANT CLI$_NOTNEG = 2295920 DECLAR XE LONG CONSTANT CLI$_NULFIL = 2296000 DECLARE LONG CONSTANT CLI$_NUMBER = 2296080 DECLARE LONG CONSTANT CLI$_ONCOMD = 229616/ DECLARE LONG CONSTANT CLI$_ONERR = 2296240 DECLARE LONG CONSTANT CLI$_ONLEVL = 229632/ DECLARE LONG CONSTANT CLI$_ONOVF = 2296401 DECLARE LONG CONSTANT CLI$_PARMDEL = 2296480 DECLARE LONG CONSTANT CLI$_RSLOVF = 2296560 DECLARE LONG CONSTANT CLI$_SKPDAT = 2296640 DECLARE LONG CONSTANT CLI$_STKOVF = 2296720 DECLARE LO YNG CONSTANT CLI$_SYMDEL = 2296800 DECLARE LONG CONSTANT CLI$_SYMOVF = 2296880 DECLARE LONG CONSTANT CLI$_UNDSYM = 2296960 DECLARE LONG CONSTANT CLI$_USGOTO = 2297040 DECLARE LONG CONSTANT CLI$_VALREQ = 2297120 DECLARE LONG CONSTANT CLI$_ONEVAL = 2297200 DECLARE LONG CONSTANT CLI$_OVRFLW = 229728P DECLARE LONG CONSTANT CLI$_UNPROQUAL = 229736 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_UNPROPARM = 229744 ! OLD CLI INTERFACE STATUSS DEZCLARE LONG CONSTANT CLI$_INVKEY = 229752 ! OLD MCR STATUS GOING AWAY SOONO DECLARE LONG CONSTANT CLI$_INVRSP = 229760 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_UNDFIL = 229768O DECLARE LONG CONSTANT CLI$_FILOPN = 229776 ! NOT USED BY DCL NOR BY MCRO DECLARE LONG CONSTANT CLI$_BADRET = 229784 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_ABSYMD = 2297920 DECLARE LONG CONSTANT CLI$_INVUIC = 229800P DECLARE LONG CONSTANT CLI$[_BADTEXT = 229808 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_ABFNAM = 2298160 DECLARE LONG CONSTANT CLI$_IVFNAM = 229824S DECLARE LONG CONSTANT CLI$_BLKOVRFLOW = 229832 ! NOT USED BY DCL NOR BY MCRS DECLARE LONG CONSTANT CLI$_BLKUNDFLOW = 229840 ! NOT USED BY DCL NOR BY MCRO DECLARE LONG CONSTANT CLI$_BADBLK = 229848 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOLBLS = 229856F DECLARE LONG CONSTANT CLI$_NOCHANGE = 229864 \! MCR-ONLY STATUSM DECLARE LONG CONSTANT CLI$_ABSENT = 229872 ! NEW CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_NEGATED = 229880 ! NEW CLI INTERFACE STATUS3 DECLARE LONG CONSTANT CLI$_INVFILSPE = 229888R DECLARE LONG CONSTANT CLI$_INVLOGFIL = 229896 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NOTHEN = 2299043 DECLARE LONG CONSTANT CLI$_SYMTOOLNG = 229912D DECLARE LONG CONSTANT CLI$_ASTDCL = 229920 ! GOES AWAY IN V42 DECLARE ]LONG CONSTANT CLI$_INVRANGE = 229928M DECLARE LONG CONSTANT CLI$_LOCNEG = 229936 ! NEW CLI INTERFACE STATUS3 DECLARE LONG CONSTANT CLI$_CMDNOTFND = 2299440 DECLARE LONG CONSTANT CLI$_IVQUAL = 2299520 DECLARE LONG CONSTANT CLI$_CMDSEG = 2299600 DECLARE LONG CONSTANT CLI$_NOTIFY = 2299682 DECLARE LONG CONSTANT CLI$_CONFLICT = 2299760 DECLARE LONG CONSTANT CLI$_UNDKEY = 2299840 DECLARE LONG CONSTANT CLI$_ARGREQ = 2299920 DECLARE LONG CONSTANT CLI$ ^_SYMLNG = 2300000 DECLARE LONG CONSTANT CLI$_SYMABR = 2300082 DECLARE LONG CONSTANT CLI$_IVKEYNAM = 2300161 DECLARE LONG CONSTANT CLI$_NOPAREN = 2300241 DECLARE LONG CONSTANT CLI$_IVATIME = 2300321 DECLARE LONG CONSTANT CLI$_IVDTIME = 2300400 DECLARE LONG CONSTANT CLI$_TKNOVF = 230048G DECLARE LONG CONSTANT CLI$_CMDFILERR = 230056 ! MCR-ONLY STATUS3 DECLARE LONG CONSTANT CLI$_INVOUTSPE = 2300641 DECLARE LONG CONSTANT CLI$_PERMSYM = 2300720 _ DECLARE LONG CONSTANT CLI$_GBLNDF = 2300802 DECLARE LONG CONSTANT CLI$_INVGOSUB = 2300882 DECLARE LONG CONSTANT CLI$_GOSUBMAX = 2300960 DECLARE LONG CONSTANT CLI$_USCALL = 2301041 DECLARE LONG CONSTANT CLI$_USGOSUB = 2301121 DECLARE LONG CONSTANT CLI$_FRZNCTX = 2301200 DECLARE LONG CONSTANT CLI$_NOTCTX = 2301283 DECLARE LONG CONSTANT CLI$_INVCTXTYP = 2301361 DECLARE LONG CONSTANT CLI$_CMDSEG2 = 2301440 DECLARE LONG CONSTANT CLI$_INVNOD = `2301522 DECLARE LONG CONSTANT CLI$_NULLPIPE = 2301604 DECLARE LONG CONSTANT CLI$_INVNULLCMD = 2301685 DECLARE LONG CONSTANT CLI$_WRGSUBSHSYN = 2301765 DECLARE LONG CONSTANT CLI$_UNTERMSUBSH = 2301843 DECLARE LONG CONSTANT CLI$_DUPREDSYN = 2301923 DECLARE LONG CONSTANT CLI$_INCREDSYN = 2302003 DECLARE LONG CONSTANT CLI$_INVREDSYN = 2302084 DECLARE LONG CONSTANT CLI$_INVCONCHAR = 2302168 DECLARE LONG CONSTANT CLI$_CMDNOTALLINPIP = 2302248 aDECLARE LONG CONSTANT CLI$_LBLNOTALLINPIP = 2302327 DECLARE LONG CONSTANT CLI$_TOOMANYPIPCMD = 2302407 DECLARE LONG CONSTANT CLI$_UNSUPITEM = 230248 ! 3 ! DEFINE CLI RELATED "ERROR" LEVEL ERROR CODES, ! BEGIN ERROR CODE 2048 FROM WARNING TO# ! LEAVE ROOM FOR 256 WARNINGS. ! O DECLARE LONG CONSTANT CLI$_CONFQUAL = 231426 ! OLD CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_INVQUAL = 231434 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLbI$_REQPRMABS = 231442 ! OLD CLI INTERFACE STATUSQ DECLARE LONG CONSTANT CLI$_INVQUALNUM = 231450 ! OLD CLI INTERFACE STATUSJ DECLARE LONG CONSTANT CLI$_INVREQTYP = 231458 ! USED BY CALL BACKSN DECLARE LONG CONSTANT CLI$_NOVALUE = 231466 ! OLD CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_VALCNVERR = 231474 ! OLD CLI INTERFACE STATUSG DECLARE LONG CONSTANT CLI$_ILLVAL = 231482 ! USED BY CALL BACKSO DECLARE LONG CONSTANT CLI$_NOOPTPRS = 231490 ! OLDc CLI INTERFACE STATUSR DECLARE LONG CONSTANT CLI$_CREQUEJOB = 231498 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_SUBMITERR = 231506 ! NOT USED BY DCL NOR BY MCRQ DECLARE LONG CONSTANT CLI$_DEVALSPL = 231514 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_DEVNOTSPL = 231522 ! NOT USED BY DCL NOR BY MCRG DECLARE LONG CONSTANT CLI$_IVDEVTYPE = 231530 ! MCR-ONLY STATUSD DECLARE LONG CONSTANT CLI$_IMGFNF = 231538 ! MCR-ONLY STATUSR d DECLARE LONG CONSTANT CLI$_DEVNOTFOR = 231546 ! NOT USED BY DCL NOR BY MCRK DECLARE LONG CONSTANT CLI$_PWDNOTVAL = 231554 ! SET PASSWORD STATUSK DECLARE LONG CONSTANT CLI$_PWDNOTVER = 231562 ! SET PASSWORD STATUSK DECLARE LONG CONSTANT CLI$_PWDLOCKED = 231570 ! SET PASSWORD STATUSS DECLARE LONG CONSTANT CLI$_NOTFR = 231578 ! IMAGE ACTIVATION ERROR - PART 2K DECLARE LONG CONSTANT CLI$_PWDSYNTAX = 231586 ! SET PASSWORD STATUSU DECLARE LONG CONSTANeT CLI$_IMGNAME = 231594 ! IMAGE ACTIVATION ERROR - PART 2V DECLARE LONG CONSTANT CLI$_IMAGEFNF = 231602 ! IMAGE ACTIVATION ERROR - PART 2R DECLARE LONG CONSTANT CLI$_BADSTRLVL = 231610 ! NOT USED BY DCL NOR BY MCR1 DECLARE LONG CONSTANT CLI$_REFUSED = 231618J DECLARE LONG CONSTANT CLI$_BADCTLMSK = 231626 ! USED BY CALL BACKS0 DECLARE LONG CONSTANT CLI$_INVRFM = 231634E DECLARE LONG CONSTANT CLI$_NOCLINT = 231642 ! MCR-ONLY STATUSE DECLARE LONG CON fSTANT CLI$_NOSPAWN = 231650 ! MCR-ONLY STATUS0 DECLARE LONG CONSTANT CLI$_SPWNIO = 2316580 DECLARE LONG CONSTANT CLI$_TRMMBX = 2316663 DECLARE LONG CONSTANT CLI$_STRTOOLNG = 231674E DECLARE LONG CONSTANT CLI$_CMDGONE = 231682 ! MCR-ONLY STATUS3 DECLARE LONG CONSTANT CLI$_NOCMDPROC = 2316901 DECLARE LONG CONSTANT CLI$_INVROUT = 2316980 DECLARE LONG CONSTANT CLI$_OLDTAB = 2317060 DECLARE LONG CONSTANT CLI$_INVTAB = 2317143 DECLARE LONG CONST gANT CLI$_NOTDISCON = 231722/ DECLARE LONG CONSTANT CLI$_ENTNF = 2317301 DECLARE LONG CONSTANT CLI$_ATTRMBX = 2317381 DECLARE LONG CONSTANT CLI$_INVCALL = 2317463 DECLARE LONG CONSTANT CLI$_INVIFNEST = 2317541 DECLARE LONG CONSTANT CLI$_CAPTINT = 2317621 DECLARE LONG CONSTANT CLI$_CAPTINQ = 2317702 DECLARE LONG CONSTANT CLI$_NOFORCMD = 2317782 DECLARE LONG CONSTANT CLI$_NORUNMCR = 2317862 DECLARE LONG CONSTANT CLI$_NOREADCP = 2317943 DE hCLARE LONG CONSTANT CLI$_INVPREFIX = 2318023 DECLARE LONG CONSTANT CLI$_CAPTSPAWN = 231810 ! % ! DEFINE INFORMATIONAL MESSAGES. ! 0 DECLARE LONG CONSTANT CLI$_DEFKEY = 2533790 DECLARE LONG CONSTANT CLI$_DELKEY = 2533870 DECLARE LONG CONSTANT CLI$_SETKEY = 253395G DECLARE LONG CONSTANT CLI$_SPARE1 = 253403 ! NOT CURRENTLY USED/ DECLARE LONG CONSTANT CLI$_ALLOC = 2534113 DECLARE LONG CONSTANT CLI$_SUPERSEDE = 253419E DECLARE LONG CON iSTANT CLI$_INSPRIV = 253427 ! MCR-ONLY STATUSF DECLARE LONG CONSTANT CLI$_NODIRCHG = 253435 ! MCR-ONLY STATUS1 DECLARE LONG CONSTANT CLI$_IGNQUAL = 2534432 DECLARE LONG CONSTANT CLI$_TABEXIST = 2534512 DECLARE LONG CONSTANT CLI$_TABSUPER = 2534593 DECLARE LONG CONSTANT CLI$_TABNOTFND = 2534670 DECLARE LONG CONSTANT CLI$_DELSYM = 2534752 DECLARE LONG CONSTANT CLI$_SYMTRUNC = 2534830 DECLARE LONG CONSTANT CLI$_KEYCNV = 2534910 DECLARE LONG CON jSTANT CLI$_INVDEF = 2534992 DECLARE LONG CONSTANT CLI$_MISSPELL = 2535072 DECLARE LONG CONSTANT CLI$_MSNGENDS = 253515 ! ! ! DEFINE SUCCESSFUL MESSAGES ! 1 DECLARE LONG CONSTANT CLI$_SPAWNED = 2613772 DECLARE LONG CONSTANT CLI$_ATTACHED = 2613852 DECLARE LONG CONSTANT CLI$_RETURNED = 261393N DECLARE LONG CONSTANT CLI$_PRESENT = 261401 ! NEW CLI INTERFACE STATUSP DECLARE LONG CONSTANT CLI$_DEFAULTED = 261409 ! NEW CLI INTERFACE STATUSM k DECLARE LONG CONSTANT CLI$_CONCAT = 261417 ! NEW CLI INTERFACE STATUSN DECLARE LONG CONSTANT CLI$_LOCPRES = 261425 ! NEW CLI INTERFACE STATUSL DECLARE LONG CONSTANT CLI$_COMMA = 261433 ! NEW CLI INTERFACE STATUSQ DECLARE LONG CONSTANT CLI$_OKTAB = 261441 ! CDU CONVERSION ROUTINE STATUSR DECLARE LONG CONSTANT CLI$_UPGTAB = 261449 ! CDU CONVERSION ROUTINE STATUSP DECLARE LONG CONSTANT CLI$_PROC_ID = 262129 ! NOT USED BY DCL NOR BY MCRR DECLARE LONG CONSTANT CLI$_QUEJOBCRE = 262137 ! NOT USED BY DCL NOR BY MCR0 DECLARE LONG CONSTANT CLI$_NORMAL = 196609wwmBOV%DEFINE cma$t_integer LONG%DEFINE cma$t_interval SINGLE%DEFINE cma$t_key LONG%DEFINE cma$t_status LONG%DEFINE cma$t_priority LONG%DEFINE cma$t_address LONG %DEFINE cma$t_start_routine LONG %DEFINE cma$t_mutex cma$t_handle%DEFINE cma$t_attr cma$t_handle!%DEFINE cma$t_thread cma$t_handle%DEFINE cma$t_cond cma$t_handle#%DEFINE cma$t_stack_np cma$t_handle%DEFINE cma$t_exit_status LONG %DEFINE cma$t_sched_inherit LONG%DEFINE cma$t_sched_policy LONG%DEFINnE cma$t_mutex_kind LONG%DEFINE cma$t_init_routine LONG%DEFINE cma$t_destructor LONG%DEFINE cma$t_call_routine LONG#%DEFINE cma$lib_t_attr cma$t_handle$%DEFINE cma$lib_t_queue cma$t_handle8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$oOCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF>p %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! = ! COMPAQ Regi qstered in U.S. Patent and Trademark Office. ! C ! Confidential computer software. Valid license from Compaq orF ! authorized sublicensor required for possession, use or copying.K ! Consistent with FAR 12.211 and 12.212, Commercial Computer Software,I ! Computer Software Documentation, and Technical Data for CommercialH ! Items are licensed to the U.S. Government under vendor's standard ! commercial license. ! H ! Compaq shall not be liable for technicarl or editorial errors or H ! omissions contained herein. The information in this document is ( ! subject to change without notice. !  !  ! FACILITY: ! : ! Common Multithread Architecture (CMA) services !  ! ABSTRACT: ! 1 ! External definitions for CMA services !  ! AUTHORS: ! % ! Dave Butenhof (-Original)# ! Paul Curtin (-Generic/SDL) !  ! CREATION DATE: ! + ! 2 Novesmber 1988 (-Original)) ! 7 September 1990 (-Generic/SDL) !  ! MODIFIED BY: !  ! Dave Butenhof ! Paul Curtin ! Gerald Feldman ! Brian Keane ! Webb Scales !  ! K ! Define a symbol which client code can test to determine whether the K ! underlying threads package is DECthreads or not. This is especiallyI ! important to clients of the Pthreads interface who may want to useO ! certain DECthreads extensions, sucht as the global lock and non-real-timeI ! scheduling policies, on the DECthreads platform while maintaining : ! portability to a "vanilla" pthreads implementation. ! + DECLARE LONG CONSTANT DECTHREADS_ = 1      4 DECLARE LONG CONSTANT cma$c_prio_fifo_min = 164 DECLARE LONG CONSTANT cma$c_prio_fifo_mid = 244 DECLARE LONG CONSTANT cma$c_prio_fifo_max = 312 DECLARE LONG CONSTANT cma$c_prio_rr_min = 162 DECLARE LONG CONSTAN uT cma$c_prio_rr_mid = 242 DECLARE LONG CONSTANT cma$c_prio_rr_max = 316 DECLARE LONG CONSTANT cma$c_prio_through_min = 87 DECLARE LONG CONSTANT cma$c_prio_through_mid = 127 DECLARE LONG CONSTANT cma$c_prio_through_max = 153 DECLARE LONG CONSTANT cma$c_prio_back_min = 03 DECLARE LONG CONSTANT cma$c_prio_back_mid = 43 DECLARE LONG CONSTANT cma$c_prio_back_max = 76 DECLARE LONG CONSTANT cma$c_prio_ada_low_min = 06 DECLARE LONG CONSTANT cma$c_prio v_ada_low_mid = 46 DECLARE LONG CONSTANT cma$c_prio_ada_low_max = 76 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_min = 06 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_mid = 46 DECLARE LONG CONSTANT cma$c_prio_ada_rtb_max = 7 ! H ! The implementation of the date_time type should match the "nativeQ ! time" of the platform: that allows clients to use the full set of platformI ! time operations, rather than just "get_expiration", to compute and ! test timed waitws. ! O ! This section assumes the platform is either "VMS" or "UNIX-ish". Others ! will require changes. ! 1 DECLARE LONG CONSTANT s_cma$t_date_time = 8 record cma$t_date_time LONG low LONG high end record cma$t_date_time  ! 2 ! Sample decisions for what handles shall be  ! . DECLARE LONG CONSTANT s_cma$t_handle = 8 record cma$t_handle$ cma$t_natural handle_field1$ cma$t_natural handlxe_field2 end record cma$t_handle 1 DECLARE LONG CONSTANT cma$c_handle_size = 8 ! J ! Sample decision for a one-time initialization control block and its ! initialization macro. !  ! - DECLARE LONG CONSTANT s_cma$t_once = 12 record cma$t_once" cma$t_integer once_field1" cma$t_integer once_field2" cma$t_integer once_field3 end record cma$t_once  ! F ! Sample decision for a variable to save thye current alert state. ! 3 DECLARE LONG CONSTANT s_cma$t_alert_state = 8 record cma$t_alert_state cma$t_integer state1 cma$t_integer state2" end record cma$t_alert_state  ! 5 ! The following are the portable CMA definitions !  !  ! Operations on threads !   !  ! Constants ! + DECLARE LONG CONSTANT cma$c_false = 0* DECLARE LONG CONSTANT cma$c_true = 1. DECLARE LONG CONSTANT cma$c_znull_ptr = 0 !  ! Objects !       !  ! Predefined null handle ! & EXTERNAL cma$t_handle cma$c_null !  ! Exit status constants !  0 DECLARE LONG CONSTANT cma$c_term_error = 01 DECLARE LONG CONSTANT cma$c_term_normal = 10 DECLARE LONG CONSTANT cma$c_term_alert = 22 DECLARE LONG CONSTANT cma$c_null_thread = -1 ! % ! Schedule inheritance constants !  3 DECLARE LONG CONST{ANT cma$c_sched_inherit = 07 DECLARE LONG CONSTANT cma$c_sched_use_default = 1 ! ! Schedule policy constants !  0 DECLARE LONG CONSTANT cma$c_sched_fifo = 0. DECLARE LONG CONSTANT cma$c_sched_rr = 16 DECLARE LONG CONSTANT cma$c_sched_throughput = 26 DECLARE LONG CONSTANT cma$c_sched_background = 33 DECLARE LONG CONSTANT cma$c_sched_ada_low = 4 ! " ! Default and other policies. ! 3 DECLARE LONG CONSTANT cma$c_sched_defaul|t = 21 DECLARE LONG CONSTANT cma$c_sched_other = 2 !  ! Mutex types !  0 DECLARE LONG CONSTANT cma$c_mutex_fast = 05 DECLARE LONG CONSTANT cma$c_mutex_recursive = 18 DECLARE LONG CONSTANT cma$c_mutex_nonrecursive = 2 !  ! Operations on Handles !  ! J ! The value of a handle can be assigned the value of another handle.  ! ' EXTERNAL SUB cma$handle_assign & ( &* cma$t_handle BY REF,} &) cma$t_handle BY REF & ) ! J ! The value of a handle can be assigned the value of another handle.  ! 1 EXTERNAL handle1 FUNCTION cma$handle_equal ! M ! An attributes object is created to specify the attributes of other CMA$ ! objects that will be created. ! % EXTERNAL SUB cma$attr_create & ( &( cma$t_attr BY REF, &' cma$t_attr BY REF & )~ ! G ! An attributes object can be deleted when it is no longer needed. ! % EXTERNAL SUB cma$attr_delete & ( &' cma$t_attr BY REF & ) ! G ! The following procedures can be used to control thread creation, ! termination and deletion. !  ! Q ! To create a thread object and runnable thread, a routine must be specifiedL ! as the new thread's start routine. An argument may be passed to thisQ  ! routine, as an untyped address; an untyped address may also be returned asP ! the routine's value. An attributes object may be used to specify details. ! about the kind of thread being created. ! ' EXTERNAL SUB cma$thread_create & ( &* cma$t_thread BY REF, &( cma$t_attr BY REF, &" LONG BY REF, &* cma$t_address BY REF & ) ! M ! A thread object may be "detached" to specify that the return value and/ ! completion status will not be requested. ! ' EXTERNAL SUB cma$thread_detach & ( &) cma$t_thread BY REF & ) ! 1 ! A thread may terminate it's own execution. ! ) EXTERNAL SUB cma$thread_exit_error !  ! Exit a thread normally. ! , EXTERNAL SUB cma$thread_exit_normal & ( &* cma$t_address BY REF &  ) ! O ! A thread can await termination of another thread and retrieve the return1 ! value and completion status of the thread. ! % EXTERNAL SUB cma$thread_join & ( &* cma$t_thread BY REF, &/ cma$t_exit_status BY REF, &* cma$t_address BY REF & ) ! 6 ! Operations to define thread creation attributes !  ! 1 ! Set or obtain the default thread priority. ! + EXTERNAL SUB cma$attr_set_priority & ( &( cma$t_attr BY REF, &+ cma$t_priority BY REF & ) ! 5 ! Obtain thread priority from attributes object. ! + EXTERNAL SUB cma$attr_get_priority & ( &( cma$t_attr BY REF, &+ cma$t_priority BY REF & ) ! 6 ! Set or obtain the default scheduling algorithm. ! (  EXTERNAL SUB cma$attr_set_sched & ( &( cma$t_attr BY REF, &/ cma$t_sched_policy BY REF & ) ! > ! Get thread scheduling algorithm from attributes object. ! ( EXTERNAL SUB cma$attr_get_sched & ( &( cma$t_attr BY REF, &/ cma$t_sched_policy BY REF & ) ! Q ! Set or obtain whether a thread will use the default scheduling attributes,0 ! or inherit them from the creating thread. ! 0 EXTERNAL SUB cma$attr_set_inherit_sched & ( &( cma$t_attr BY REF, &0 cma$t_sched_inherit BY REF & ) ! , ! Obtain default scheduling attributes. ! 0 EXTERNAL SUB cma$attr_get_inherit_sched & ( &( cma$t_attr BY REF, &0 cma$t_sched_inherit BY REF & ) ! ! ! Set the default stack size ! , EXTERNAL SUB cma$attr_set_stacksize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! % ! Obtain the default stack size. ! , EXTERNAL SUB cma$attr_get_stacksize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! ! ! Set the default guard size ! , EXTERNAL SUB cma$attr_set_guardsize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! $ ! Obtain the default guard size ! , EXTERNAL SUB cma$attr_get_guardsize & ( &( cma$t_attr BY REF, &* cma$t_natural BY REF & ) ! # ! Thread Scheduling Operations !  ! E ! The current user_assigned priority of a thread can be changed.  ! - EXTERNAL SUB cma$thread_set_priority & ( &* cma$t_thread BY REF, &+ cma$t_priority BY REF & ) ! P ! The current user_assigned scheduler algorithm of a thread can be changed. ! * EXTERNAL SUB cma$thread_set_sched & ( &* cma$t_thread BY REF, &/ cma$t_sched_policy BY REF & ) ! P ! A thread may tell the scheduler that its processor can be made available. !  EXTERNAL SUB cma$yield ! E ! A thread may enter a wait state for a specifed period of time. !  EXTERNAL SUB cma$delay & ( &- cma$t_interval BY VALUE & ) ! $ ! Thread Information Operations !  ! ; ! A thread may obtain a copy of its own thread handle. ! ) EXTERNAL SUB cma$thread_get_self & ( &) cma$t_thread BY REF & ) ! B ! The current user_assigned priority of a thread can be read. ! - EXTERNAL SUB cma$thread_get_priority & ( &* cma$t_thread BY REF, &+ cma$t_priority BY REF & ) ! M ! The current user_assigned scheduler algorithm of a thread can be read. ! * EXTERNAL SUB cma$thread_get_sched & ( &* cma$t_thread BY REF, &/  cma$t_sched_policy BY REF & ) !  ! Operations on Mutexes !  ! ( ! Set whether mutex locks can nest. ! - EXTERNAL SUB cma$attr_set_mutex_kind & ( &( cma$t_attr BY REF, &- cma$t_mutex_kind BY REF & ) ! + ! Obtain whether mutex locks can nest. ! - EXTERNAL SUB cma$attr_get_mutex_kind & ( &( cma$t_attr  BY REF, &- cma$t_mutex_kind BY REF & ) ! F ! The following routines create, delete, lock and unlock mutexes. ! & EXTERNAL SUB cma$mutex_create & ( &) cma$t_mutex BY REF, &' cma$t_attr BY REF & ) !  ! Delete a mutex. ! & EXTERNAL SUB cma$mutex_delete & ( &( cma$t_mutex BY REF & ) !  !  Lock a mutex. ! $ EXTERNAL SUB cma$mutex_lock & ( &( cma$t_mutex BY REF & ) !  ! Try to lock a mutex. ! 1 EXTERNAL mutex FUNCTION cma$mutex_try_lock !  ! Unlock a mutex. ! & EXTERNAL SUB cma$mutex_unlock & ( &( cma$t_mutex BY REF & ) !  ! Lock Global mutex. ! # EXTERNAL SUB cma$lock_global !  ! Unlock Global mutex. ! % EXTERNAL SUB cma$unlock_global ! : ! A thread can create and delete condition variables. ! % EXTERNAL SUB cma$cond_create & ( &( cma$t_cond BY REF, &' cma$t_attr BY REF & ) ! # ! Delete a condition variable. ! % EXTERNAL SUB cma$cond_delete & ( &' cma$t_cond BY REF & ) ! D ! A thread can signal to and broadcast on a condition variable. ! ( EXTERNAL SUB cma$cond_broadcast & ( &' cma$t_cond BY REF & ) ! # ! Signal a condition variable. ! % EXTERNAL SUB cma$cond_signal & ( &' cma$t_cond BY REF & ) ! , ! Interupt signal a condition variable. ! ) EXTERNAL SUB cma$cond_signal_int & ( &' cma$t_cond  BY REF & ) ! O ! A thread can wait for a condition variable to be signalled or broadcast. ! # EXTERNAL SUB cma$cond_wait & ( &( cma$t_cond BY REF, &( cma$t_mutex BY REF & ) ! # ! Operations for timed waiting !  ! A ! A thread can perform a timed wait on a condition variable. ! 6 EXTERNAL condition FUNCTION cma$cond_timed_wait ! P ! A thread may perform some operations on absolute date-time and intervals. ! - EXTERNAL SUB cma$time_get_expiration & ( &- cma$t_date_time BY REF, &- cma$t_interval BY VALUE & ) ! 4 ! Operations for CMA and client initialization. !  ! # ! Initialize the CMA facility. !  EXTERNAL SUB cma$init ! N ! A thread can declare a one-time initialization routine. The address of; ! the init block and routine are passed as parameters. !   !  ! Once routine !  EXTERNAL SUB cma$once & ( &+ cma$t_address BY REF, &/ cma$t_init_routine BY REF & ) ! ( ! Operations for per-thread context !   ! F ! A unique per-thread context key can be obtained for the process ! $ EXTERNAL SUB cma$key_create & ( &' cma$t_key BY REF, &( cma$t_attr BY REF, &- cma$t_destructor BY REF & ) ! G ! A thread can set a per-thread context value identified by a key. ! ) EXTERNAL SUB cma$key_set_context & ( &' cma$t_key BY REF, &* cma$t_address BY REF & ) ! L ! A thread can retrieve a per-thread context value identified by a key. ! ) EXTERNAL SUB cma$key_get_context & ( &' cma$t_key BY REF, &* cma$t_address BY REF & ) !  ! Operations for alerts. !  ! M ! The current thread can request that a thread terminate it's execution. ! & EXTERNAL SUB cma$thread_alert & ( &) cma$t_thread BY REF & ) ! 6 ! The current thread can poll for alert delivery. ! " EXTERNAL SUB cma$alert_test ! $ ! Control alert delivery state. ! . EXTERNAL SUB cma$alert_disable_asynch & ( &. cma$t_alert_state BY REF & )/ EXTERNAL SUB cma$alert_disable_general & ( &. cma$t_alert_state BY REF & )+ EXTERNAL SUB cma$alert_enable_asynch. EXTERNAL SUB cma$alert_enable_general & ( &. cma$t_alert_state BY REF &  )' EXTERNAL SUB cma$alert_restore & ( &. cma$t_alert_state BY REF & ) !  ! Operations on stacks !   ! ! ! Assign a stack to a thread ! ) EXTERNAL SUB cma$stack_assign_np & ( &, cma$t_stack_np BY REF, &) cma$t_thread BY REF & ) ! $ ! Call a routine on a new stack ! / EXTERNAL SUB cma$stack_call_routine_np & ( &, cma$t_stack_np BY REF, &0 cma$t_call_routine BY REF, &+ cma$t_address BY REF, &* cma$t_address BY REF & ) !  ! Check stack limit ! 8 EXTERNAL size_D FUNCTION cma$stack_check_limit_np !  ! Create a new stack ! ) EXTERNAL SUB cma$stack_create_np & ( &, cma$t_stack_np BY REF, &' cma$t_attr BY REF & ) !  ! Delete a stack ! ) EXTERNAL SUB cma$stack_delete_np & ( &+ cma$t_stack_np BY REF & ) !  ! CMA Debug entry point !  EXTERNAL SUB cma$debug !  ! Fetch the fp ! 7 EXTERNAL cma$t_address FUNCTION cma$exc_fetch_fp ! ! Push an exception context ! & EXTERNAL SUB cma$exc_push_ctx & ( &*  cma$t_address BY REF & )% EXTERNAL SUB cma$exc_pop_ctx & ( &* cma$t_address BY REF & )# EXTERNAL SUB cma$exc_raise & ( &* cma$t_address BY REF & )* EXTERNAL SUB cma$exc_raise_status & ( &* cma$t_integer BY REF & )$ EXTERNAL SUB cma$exc_report & ( &* cma$t_address BY REF & )6 EXTERNAL cma$t_integer FUNCTION cma$exc_handler) EXTERNAL wset FUNCTION cma$sigwaitO ! ************************************************************************* ! H ! The following are the portable CMA High-Level Library definitions ! O ! ************************************************************************* ! ' ! Operations on attributes objects !   ! M ! An attributes object is created to specify the attributes of other CMA$ ! objects that will be created. ! ) EXTERNAL SUB cma$lib_attr_create & ( &, cma$lib_t_attr BY REF, &+ cma$lib_t_attr BY REF & ) ! G ! An attributes object can be deleted when it is no longer needed. ! ) EXTERNAL SUB cma$lib_attr_delete & ( &+ cma$lib_t_attr BY REF & ) !  ! Operations on queues !  * EXTERNAL SUB cma$lib_queue_create & ( &- cma$lib_t_queue BY REF, &+ cma$lib_t_attr BY REF & )* EXTERNAL SUB cma$lib_queue_delete & ( &, cma$lib_t_queue BY REF & )+ EXTERNAL SUB cma$lib_queue_dequeue & ( &- cma$lib_t_queue BY REF, &* cma$t_address BY REF & )+ EXTERN AL SUB cma$lib_queue_enqueue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )< EXTERNAL QUEUE FUNCTION cma$lib_queue_try_enqueue_int+ EXTERNAL SUB cma$lib_queue_requeue & ( &- cma$lib_t_queue BY REF, &, cma$t_address BY VALUE & )8 EXTERNAL QUEUE FUNCTION cma$lib_queue_try_dequeue8 EXTERNAL QUEUE FUNCTION cma$lib_queue_try_enqueue8 EXTERNAL QUEUE FUNCTION cma$lib_queue_try_requeue ! + ! Set or obtain the default queue size ! 0 EXTERNAL SUB cma$lib_attr_get_queuesize & ( &, cma$lib_t_attr BY REF, &* cma$t_natural BY REF & )0 EXTERNAL SUB cma$lib_attr_set_queuesize & ( &, cma$lib_t_attr BY REF, &, cma$t_natural BY VALUE & )ww@OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:22.81 ! % ! FILE: COBMSG.MSG EDIT: KC2018 ! R ! ****************************************************** ********************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  !  !  ! EDIT HISTORY: ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM COBMSG.MDL( ! VERSION 1-019. SBL 22-APR-1981B ! 2-002 - USE COB$ FACILITY FOR COB$_NORMAL. SBL 27-APR-1981P ! 2-003 - COPIED CHAN GES MADE TO COBMSG.MDL TO THIS MSG FILE. THE MESSAGESJ ! ADDED INCLUDE COB$_LSTHNDUSE, COB$_LSTHNDLDB, AND COB$_EXPDBOVER. ! LB 7-MAY-81.4 ! 2-004 - ADDED COB$_KEYNOTMAT. PDG 24-JUL-81.* ! 2-005 - ADDED .TITLE PDG 26-JUL-81.F ! 2-006 - ADDED COB$_UNLUNOFIL AND COB$_RECNOTLOC. PDG 7-AUG-81.M ! 2-007 - UPDATED COPYRIGHT DATE AND FIXED SPELLING ERROR. LB 9-AUG-81.3 ! 2-008 - ADDED COB$_UNLNO_CUR. LB 29-OCT-81.L ! 2-009 - CHANGED COB$_GOTNO_ALT TO BE CO B$_GOTO_ALT. THIS HAD BEEN INB ! ERROR IN THIS FILE AS WELL AS IN COBERROR. LB 1-APR-82.; ! 2-010 - CHANGE TITLE TO COB$MSGDEF. SBL 28-AUG-1982H ! 2-011 - ADDED COB$_ERRDURPOS FOR COB$POS_ERASE AND COB$_REAMP_D_R- ! FOR COB$IOEXCEPTION. LGB 6-SEP-83: ! ADDED COB$_INVDEFVAL FOR COB$ACCEPT LGB 3-OCT-83O ! 2-012 - ADDED NUMEROUS CODES FOR COBOL V4.0 SUPPORT FOR COB$IOEXCEPTION. ! DJM 17-NOV-86Q ! 2-013 - CHANGED MESSAGE AND SEVERITY FOR COB$_INT DIVZER AND COB$_UNDEF_EXPE ! AS THE PROGRAM IS ALLOWED TO CONTINUE WITH THE NEW STANDARD.; ! ALSO - ADD MESSAGE COB$_DIVBYZER. DJM 27-APR-19879 ! 2-014 - REMOVE REFERENCE TO ISAM. DJM 30-DEC-1987; ! 2-015 - ADD MULFILERR FOR COB$MFT. DJM 28-MAR-1988./ ! 2-016 - ADD COB$NOTIMP. MDL 23-OCT-1989K ! 2-017 - ADD CODES FOR COBOL V5 INTRINSIC FUNCTIONS. KC 14-NOV-1991.2 ! 2-018 - ADD RANDOM BOUNDS. KC 24-JAN-1992.; ! 2-019 - FIX SPELLING ERRORS (BUG 3330). LNG 6-SEP-95 !  ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! COB$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. !  !  ! MACRO-32 PROGRAMMING: !  ! THE MACRO CALL: !  ! $COBDEF ! A ! WILL CAUSE ALL SY MBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - !  ! > ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES???. DECLARE LONG CONSTANT COB$_FACILITY = 251 DECLARE LONG CONSTANT COB$_NORMAL = 1671169( ! COBOL V4 SUPPORT, NEXT 2 MESSAGES4 DECLARE LONG CONSTANT COB$_READUPKEY = 16711774 DECLARE LONG CONSTANT COB$_RECNOTS IZ = 16711853 DECLARE LONG CONSTANT COB$_GOTO_ALT = 16712364 DECLARE LONG CONSTANT COB$_RECACTPER = 16712444 DECLARE LONG CONSTANT COB$_NESERRPER = 16712524 DECLARE LONG CONSTANT COB$_TIMOVELON = 16712604 DECLARE LONG CONSTANT COB$_OCCDEPOVE = 16712684 DECLARE LONG CONSTANT COB$_SUBOVELON = 16712764 DECLARE LONG CONSTANT COB$_ERRDURSOR = 16712844 DECLARE LONG CONSTANT COB$_UNEINSCON = 16712921 DECLARE LONG CONSTANT COB$_CALFAI = 16713004 DE CLARE LONG CONSTANT COB$_INVLINVAL = 16713081 ! ***** NO_USEPRO MUST BE THE FIRST ERROR' ! ***** MESSAGE ASSOCIATED WITH/ ! ***** COB$IOEXCEPTION. IT IS USED AS2 ! ***** THE BASE OF AN ENCODING ALGORITHM. ! 4 DECLARE LONG CONSTANT COB$_NO_USEPRO = 16713164 DECLARE LONG CONSTANT COB$_ERRON_FIL = 16713244 DECLARE LONG CONSTANT COB$_OPTMISOPE = 16713324 DECLARE LONG CONSTANT COB$_FILALRLOC = 16713404 DECLARE LONG CONSTANT COB$_FILALRO PE = 16713484 DECLARE LONG CONSTANT COB$_FILCLOLOC = 16713563 DECLARE LONG CONSTANT COB$_NO_SPACE = 16713644 DECLARE LONG CONSTANT COB$_FILNOTFOU = 16713724 DECLARE LONG CONSTANT COB$_OPTMISCLO = 16713804 DECLARE LONG CONSTANT COB$_FILALRCLO = 16713884 DECLARE LONG CONSTANT COB$_NO_NEXLOG = 16713964 DECLARE LONG CONSTANT COB$_OPTMISREA = 16714044 DECLARE LONG CONSTANT COB$_NO_NEXVAL = 16714124 DECLARE LONG CONSTANT COB$_RECLOCREA = 16714204 DECLARE LONG CONSTANT COB$_RECLOC_OK = 16714284 DECLARE LONG CONSTANT COB$_REAUNOFIL = 16714364 DECLARE LONG CONSTANT COB$_REAINCOPE = 16714444 DECLARE LONG CONSTANT COB$_WRIBEYBOU = 16714524 DECLARE LONG CONSTANT COB$_WRIUNOFIL = 16714604 DECLARE LONG CONSTANT COB$_WRIINCOPE = 16714684 DECLARE LONG CONSTANT COB$_REWNO_R_S = 16714764 DECLARE LONG CONSTANT COB$_REWUNOFIL = 16714844 DECLARE LONG CONSTANT COB$_REWINCOPE = 16714924 DECLARE LONG CONSTAN T COB$_RECNOTEXI = 16715004 DECLARE LONG CONSTANT COB$_OPTMISSTA = 16715084 DECLARE LONG CONSTANT COB$_RECLOCSTA = 16715164 DECLARE LONG CONSTANT COB$_STAUNOFIL = 16715244 DECLARE LONG CONSTANT COB$_STAINCOPE = 16715324 DECLARE LONG CONSTANT COB$_RECLOCWRI = 16715404 DECLARE LONG CONSTANT COB$_RECLOCDEL = 16715484 DECLARE LONG CONSTANT COB$_DELNO_R_S = 16715564 DECLARE LONG CONSTANT COB$_DELUNOFIL = 16715644 DECLARE LONG CONSTANT COB$_DELINCOPE = 1 6715724 DECLARE LONG CONSTANT COB$_RECLOCREW = 16715804 DECLARE LONG CONSTANT COB$_WRIDUPKEY = 16715884 DECLARE LONG CONSTANT COB$_WRICREDUP = 16715964 DECLARE LONG CONSTANT COB$_WRINOTASC = 16716044 DECLARE LONG CONSTANT COB$_WRIDUPALT = 16716124 DECLARE LONG CONSTANT COB$_REWCREDUP = 16716204 DECLARE LONG CONSTANT COB$_PRIKEYCHA = 16716284 DECLARE LONG CONSTANT COB$_REWDISDUP = 16716364 DECLARE LONG CONSTANT COB$_WRIDISDUP = 16716444 DECLAR E LONG CONSTANT COB$_REASMAMIN = 16716524 DECLARE LONG CONSTANT COB$_EOFON_ACC = 16716604 DECLARE LONG CONSTANT COB$_ERRDURACC = 16716684 DECLARE LONG CONSTANT COB$_DISMORMAX = 16716764 DECLARE LONG CONSTANT COB$_INTEXPOVE = 16716844 DECLARE LONG CONSTANT COB$_INTEXPUND = 16716924 DECLARE LONG CONSTANT COB$_INTRESOPE = 1671700T DECLARE LONG CONSTANT COB$_NO_MES_00 = 1671708 ! PLACE HOLDER. WAS INTDIVZER4 DECLARE LONG CONSTANT COB$_INVDECDIG = 1671716T DECLARE LONG CONSTANT COB$_NO_MES_01 = 1671724 ! PLACE HOLDER. WAS UNDEF_EXP4 DECLARE LONG CONSTANT COB$_WRISMAMIN = 16717324 DECLARE LONG CONSTANT COB$_REWSMAMIN = 16717404 DECLARE LONG CONSTANT COB$_NAMNOTLIN = 16717484 DECLARE LONG CONSTANT COB$_INVCHANAM = 16717564 DECLARE LONG CONSTANT COB$_ORGNOTMAT = 16717642 DECLARE LONG CONSTANT COB$_CANFAIL = 16717721 DECLARE LONG CONSTANT COB$_INVARG = 16717804 DECLARE LONG CONSTANT COB$_FAIGET_VM = 1 6717884 DECLARE LONG CONSTANT COB$_FAIFREEVM = 16717964 DECLARE LONG CONSTANT COB$_ERRDURDIS = 16718043 DECLARE LONG CONSTANT COB$_USE_EXIT = 16718124 DECLARE LONG CONSTANT COB$_RECACTUSE = 16718204 DECLARE LONG CONSTANT COB$_FATINTERR = 16718284 DECLARE LONG CONSTANT COB$_FAIGET_EF = 16718364 DECLARE LONG CONSTANT COB$_SETEXTFAI = 16718444 DECLARE LONG CONSTANT COB$_INVDECDAT = 16718524 DECLARE LONG CONSTANT COB$_LSTHNDUSE = 16718604 DECLAR E LONG CONSTANT COB$_LSTHNDLDB = 16718684 DECLARE LONG CONSTANT COB$_EXPDBOVER = 16718764 DECLARE LONG CONSTANT COB$_KEYNOTMAT = 16718844 DECLARE LONG CONSTANT COB$_UNLUNOFIL = 16718924 DECLARE LONG CONSTANT COB$_RECNOTLOC = 16719004 DECLARE LONG CONSTANT COB$_UNLNO_CUR = 16719084 DECLARE LONG CONSTANT COB$_REAMP_D_R = 16719164 DECLARE LONG CONSTANT COB$_ERRDURPOS = 16719244 DECLARE LONG CONSTANT COB$_INVDEFVAL = 1671932) ! COBOL V4 SUPPORT, NEXT 10 MESSAGES4 DECLARE LONG CONSTANT COB$_REARECTOB = 16719404 DECLARE LONG CONSTANT COB$_WRIRECTOB = 16719484 DECLARE LONG CONSTANT COB$_DEVNOTAPL = 16719564 DECLARE LONG CONSTANT COB$_INVRECSIZ = 16719644 DECLARE LONG CONSTANT COB$_RECSIZEXC = 16719724 DECLARE LONG CONSTANT COB$_INVRECTYP = 16719804 DECLARE LONG CONSTANT COB$_INVBLKFAC = 16719884 DECLARE LONG CONSTANT COB$_CONCODSET = 16719964 DECLARE LONG CONSTANT COB$_COLSEQKEY = 16720044 DE CLARE LONG CONSTANT COB$_CONPADCHR = 1672012 ! EDIT 2-0134 DECLARE LONG CONSTANT COB$_MULFILERR = 1672020 ! EDIT 2-0161 DECLARE LONG CONSTANT COB$_NOTIMP = 1672028$ ! EDIT 2-017, COBOL V5.0 SUPPORT8 DECLARE LONG CONSTANT COB$_INTDATEBOUNDS = 16720367 DECLARE LONG CONSTANT COB$_INTDAYBOUNDS = 16720447 DECLARE LONG CONSTANT COB$_DAYINTBOUNDS = 16720528 DECLARE LONG CONSTANT COB$_DATEINTBOUNDS = 16720605 DECLARE LONG CONSTANT COB$_FACTBOUNDS = 16 720687 DECLARE LONG CONSTANT COB$_NUMVALARGINV = 16720767 DECLARE LONG CONSTANT COB$_LOWERLENZERO = 16720847 DECLARE LONG CONSTANT COB$_UPPERLENZERO = 16720929 DECLARE LONG CONSTANT COB$_REVERSELENZERO = 16721008 DECLARE LONG CONSTANT COB$_ANNUITYBOUNDS = 16721085 DECLARE LONG CONSTANT COB$_CHARBOUNDS = 16721164 DECLARE LONG CONSTANT COB$_MODBOUNDS = 16721248 DECLARE LONG CONSTANT COB$_PRESVALBOUNDS = 16721324 DECLARE LONG CONSTANT COB$_REMBOUNDS = 16721407 DECLARE LONG CONSTANT COB$_RANDOMBOUNDS = 16721484 DECLARE LONG CONSTANT COB$_INTDIVZER = 16791704 DECLARE LONG CONSTANT COB$_DIVBY_ZER = 16791784 DECLARE LONG CONSTANT COB$_UNDEF_EXP = 1679186ww OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! Convert (CONV) Routines !  ! ) ! CONV$CONVERT - Initiate conversion ! > ! status = CONV$CONVERT ([status_block_address] [,flags]) ! L ! status_block_address - Array of longwords into which will be writtenJ ! statistics about the conversion. The firstD ! element contains the number of following elements> ! flags - Flags to control the conversion ! , EXTERNAL LONG FUNCTION CONV$CONVERT & ( &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! 1 ! CONV$PASS_FILES - Specify conversion files ! @ ! status = CONV$PASS_FILES (input_filespec, output_filespec: ! [,fdl_filespec] [,exception_filespec] ! [,flags]) ! 1 ! input_filespec - File to be converted- ! output_filespec - Destination file? ! fdl_filespec - File containing FDL for conversion> ! exception_filespec - File to contain exception records9 ! flags - Flags controlling conversion/ EXTERNAL LONG FUNCTION CONV$PASS_FILES &  ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! 5 ! CONV$PASS_OPTIONS - Specify processing options ! E ! status = CONV$PASS_OPTIONS ([parameter_list_address] [,flags]) ! A ! parameter_list_address - Array specifying convert options= ! flags - Flags controlling conversion ! 1 EXTERNAL LONG FUNCTION CONV$PASS_OPTIONS & ( &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! % ! CONV$RECLAIM - CONVERT/RECLAIM ! ? ! status - CONV$RECLAIM (input_filespec [,statistics_blk]) ! - ! input_filespec - File to be convertedN ! statistics_blk - Array to receive statistics; first longword specifies( ! number of statistics ! , EXTERNAL LONG FUNCTION CONV$RECLAIM & ( &% STRING BY DESC, &. OPTIONAL LONG DIM() BY REF & )ww FOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  7 DECLARE LONG CONSTANT CONV$M_SIGNAL = x'00000001'; DECLARE LONG CONSTANT CONV$M_FDL_STRING = x'00000002'. DECLARE LONG CONSTANT CONV$S_CONVDEF = 2 record CONVDEF variant case" WORD CONV$W_CONVDEF case( group CONV$R_CONVDEF_BITSm BYTE SIGNAL_bits ! COMMENT ADDED BY SDL - SIGNAL_bits contains bits SIGNAL through fill_0, end group CONV$R_CONVDEF_BITS end variant end record CONVDEF 4 DECLARE LONG CONSTANT CONV$K_OPTIONS_COUNT = 0- DECLARE LONG CONSTANT CONV$K_CREATE = 1, DECLARE LONG CONSTANT CONV$K_SHARE = 2+ DECLARE LONG CONSTANT CONV $K_FAST = 3, DECLARE LONG CONSTANT CONV$K_MERGE = 4- DECLARE LONG CONSTANT CONV$K_APPEND = 5+ DECLARE LONG CONSTANT CONV$K_SORT = 61 DECLARE LONG CONSTANT CONV$K_WORK_FILES = 7* DECLARE LONG CONSTANT CONV$K_KEY = 8* DECLARE LONG CONSTANT CONV$K_PAD = 95 DECLARE LONG CONSTANT CONV$K_PAD_CHARACTER = 100 DECLARE LONG CONSTANT CONV$K_TRUNCATE = 11, DECLARE LONG CONSTANT CONV$K_EXIT = 125 DECLARE LONG CONSTANT CONV$K_FIXED_CONTROL = 134 DECLARE LONG CONSTANT CONV$K_FILL_BUCKETS = 142 DECLARE LONG CONSTANT CONV$K_READ_CHECK = 153 DECLARE LONG CONSTANT CONV$K_WRITE_CHECK = 16+ DECLARE LONG CONSTANT CONV$K_FDL = 171 DECLARE LONG CONSTANT CONV$K_EXCEPTION = 180 DECLARE LONG CONSTANT CONV$K_PROLOGUE = 197 DECLARE LONG CONSTANT CONV$K_IGNORE_PROLOGUE = 201 DECLARE LONG CONSTANT CONV$K_SECONDARY = 213 DECLARE LONG CONSTANT CONV$K_MAX_OPTIONS = 213 DECLARE LONG CONSTANT CONV$C_MAX_OPTIONS = 21/ DECLARE LONG CONSTANT CONV$S_OPTIONS = 884 DECLARE LONG CONSTANT CONV$S_CONV$OPTIONS = 88 record CONV$OPTIONS" LONG CONV$L_OPTIONS_COUNT LONG CONV$L_CREATE LONG CONV$L_SHARE LONG CONV$L_FAST LONG CONV$L_MERGE LONG CONV$L_APPEND LONG CONV$L_SORT LONG CONV$L_WORK_FILES LONG CONV$L_KEY LONG CONV$L_PAD" LONG CONV$L_PAD_CHARACTER LONG CONV$L_TRUNCATE LONG CONV$L_EXIT" LONG CONV$L_FIXED_CONTROL! LONG CONV$L_FILL_BUCKETS LONG CONV$L_READ_CHECK LONG CONV$L_WRITE_CHECK LONG CONV$L_FDL LONG CONV$L_EXCEPTION LONG CONV$L_PROLOGUE$ LONG CONV$L_IGNORE_PROLOGUE LONG CONV$L_SECONDARY end record CONV$OPTIONS 7 DECLARE LONG CONSTANT CONV$K_STATISTICS_COUNT = 01 DECLARE LONG CONSTANT CONV$K_FILE_COUNT = 13 DECLARE LONG CONSTAN T CONV$K_RECORD_COUNT = 23 DECLARE LONG CONSTANT CONV$K_EXCEPT_COUNT = 32 DECLARE LONG CONSTANT CONV$K_VALID_COUNT = 45 DECLARE LONG CONSTANT CONV$K_MAX_STATISTICS = 45 DECLARE LONG CONSTANT CONV$C_MAX_STATISTICS = 42 DECLARE LONG CONSTANT CONV$S_STATISTICS = 201 DECLARE LONG CONSTANT CONV$K_KEY_NUMBER = 5. DECLARE LONG CONSTANT CONV$K_REC_OUT = 6, DECLARE LONG CONSTANT CONV$K_NODES = 7. DECLARE LONG CONSTANT CONV$K_WRK_ALQ = 8/ DECLARE LONG CONSTANT CONV$K_INI_RUNS = 91 DECLARE LONG CONSTANT CONV$K_MRG_ORDER = 102 DECLARE LONG CONSTANT CONV$K_MRG_PASSES = 116 DECLARE LONG CONSTANT CONV$K_SORT_DIO_COUNT = 126 DECLARE LONG CONSTANT CONV$K_SORT_BIO_COUNT = 139 DECLARE LONG CONSTANT CONV$K_SORT_ELAPSED_TIME = 145 DECLARE LONG CONSTANT CONV$K_SORT_CPU_TIME = 165 DECLARE LONG CONSTANT CONV$K_SORT_PF_COUNT = 186 DECLARE LONG CONSTANT CONV$K_LOAD_DIO_COUNT = 196 DECLARE LONG CONSTAN T CONV$K_LOAD_BIO_COUNT = 209 DECLARE LONG CONSTANT CONV$K_LOAD_ELAPSED_TIME = 215 DECLARE LONG CONSTANT CONV$K_LOAD_CPU_TIME = 235 DECLARE LONG CONSTANT CONV$K_LOAD_PF_COUNT = 256 DECLARE LONG CONSTANT CONV$K_EXT_STATISTICS = 256 DECLARE LONG CONSTANT CONV$C_EXT_STATISTICS = 257 DECLARE LONG CONSTANT CONV$S_EXT_STATISTICS = 1048 DECLARE LONG CONSTANT CONV$S_CONV$STATISTICS = 104 record CONV$STATISTICS% LONG CONV$L_STATISTICS_COUNT  LONG CONV$L_FILE_COUNT! LONG CONV$L_RECORD_COUNT! LONG CONV$L_EXCEPT_COUNT LONG CONV$L_VALID_COUNT LONG CONV$L_KEY_NUMBER LONG CONV$L_REC_OUT LONG CONV$L_NODES LONG CONV$L_WRK_ALQ LONG CONV$L_INI_RUNS LONG CONV$L_MRG_ORDER LONG CONV$L_MRG_PASSES# LONG CONV$L_SORT_DIO_COUNT# LONG CONV$L_SORT_BIO_COUNT0 BASIC$QUADWORD CONV$Q_SORT_ELAPSED_TIME, BASIC$QUADWORD CO NV$Q_SORT_CPU_TIME" LONG CONV$L_SORT_PF_COUNT# LONG CONV$L_LOAD_DIO_COUNT# LONG CONV$L_LOAD_BIO_COUNT0 BASIC$QUADWORD CONV$Q_LOAD_ELAPSED_TIME, BASIC$QUADWORD CONV$Q_LOAD_CPU_TIME" LONG CONV$L_LOAD_PF_COUNT end record CONV$STATISTICS 7 DECLARE LONG CONSTANT RECL$K_STATISTICS_COUNT = 01 DECLARE LONG CONSTANT RECL$K_SCAN_COUNT = 11 DECLARE LONG CONSTANT RECL$K_DATA_COUNT = 22 DECLARE LONG CONSTANT RECL$K_INDEX _COUNT = 32 DECLARE LONG CONSTANT RECL$K_TOTAL_COUNT = 45 DECLARE LONG CONSTANT RECL$K_MAX_STATISTICS = 45 DECLARE LONG CONSTANT RECL$C_MAX_STATISTICS = 42 DECLARE LONG CONSTANT RECL$S_STATISTICS = 207 DECLARE LONG CONSTANT RECL$S_RECL$STATISTICS = 20 record RECL$STATISTICS% LONG RECL$L_STATISTICS_COUNT LONG RECL$L_SCAN_COUNT LONG RECL$L_DATA_COUNT LONG RECL$L_INDEX_COUNT LONG RECL$L_TOTAL_COUNT end record RECL$STATISTICS ww@-OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:39.48 ! R ! **************************************************************************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ !  ! FACILITY: VAX-11 CONVERT !  ! ENVIRONMENT: ! ! VAX/VMS OPERATING SYSTEM !  ! ABSTRACT:2 ! CONVERT AND CONVERT/RECLAIM ERROR MESSAGES !  ! : ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! ) ! X-3 BP BOB PREMOVICH 22-JUL-19980 ! MERGE IN OPENVMS ALPHA RAVEN_FT3 CHANGE: ! , ! X-4 BP026 BOB PREMOVICH 29-MAY-1998; ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT8 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO: ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! 0 ! X-2 SBL1003 STEVEN B. LIONEL 13-DEC-1991% ! SET MACRO NAME TO $CONVMSGDEF ! 1 ! V03-005 RAS0318 RON SCHAEFER 27-JUN-1984+ ! FIX SPELLINGS AND TEXT OF MESSAGES. ! 5 ! V03-004 KBT0468 KEITH B. THOMPSON 21-JAN-1983 ! CHANGE THE TEXT OF RSZ ! 5 ! V03-003 KBT0438 KEITH B. THOMPSON 30-DEC-1982# ! CHANGE THE TEXT OF CREA_ERR ! 5 ! V03-002 KBT0394 KEITH B. THOMPSON 29-OCT-1982< ! CHANGE THE MESSGAE TEXT OF PROERR TO INCLUDE VBN AND( ! MAKE THE SIGNED VALUES UNSIGNED. ! 2 ! V03-001 KBT0039 KEITH THOMPSON 3-APR-1982- ! CHANGE THE EXCEPTION MES SAGES TO INFO ! ! ****3 DECLARE LONG CONSTANT CONVERT$_FACILITY = 178i DECLARE LONG CONSTANT CONV$_CREATEDSTM = 11670267 ! /FAO=1W DECLARE LONG CONSTANT CONV$_INSVIRMEM = 11670258 ! R DECLARE LONG CONSTANT CONV$_OPENERR = 11670410 ! /FAO=1Z DECLARE LONG CONSTANT CONV$_OPENIN = 11669658 ! /FAO=1\ DECLARE LONG CONSTANT CONV$_OPENOUT = 11669666 ! /FAO=1R DECLARE LONG CONSTANT CONV$_READERR = 11669682 ! /FAO=1S DECLARE LONG CONSTANT CONV$_WRITEERR = 11669714 ! /FAO=1[ DECLARE LONG CONSTANT CONV$_CLOSEIN = 11669586 ! /FAO=1] DECLARE LONG CONSTANT CONV$_CLOSEOUT = 11669594 ! /FAO=1X DECLARE LONG CONSTANT CONV$_BADLOGIC = 11669794 ! N DECLARE LONG CONSTANT CONV$_NOWILD = 11669802 ! ^ DECLARE LONG CONSTANT CONV$_VALERR = 11669994 ! Q DECLARE LONG CONSTANT CONV$_CONFQUAL = 11670242 ! - DECLARE LONG CONSTANT CONV$_FAO_MAX = 2/ DECLARE LONG CONSTANT CONV$_NI = 116981870 DECLARE LONG CONSTANT CONV$_PAD = 116981950 DECLARE LONG CONSTANT CONV$_RMS = 116982030 DECLARE LONG CONSTANT CONV$_RTL = 116982110 DECLARE LONG CONSTANT CONV$_RTS = 116982190 DECLARE LONG CONSTANT CONV$_VFC = 116982270 DECLARE LONG CONSTANT CONV$_DUP = 116982350 DECLARE LONG CONSTANT CONV$_KEY = 116982430 DECLARE LONG CONSTANT CONV$_REX = 116982510 DECLARE LONG CONSTANT CONV$_RSK = 116982590 DECLARE LONG CONSTANT CONV$_RSZ = 116982670 DECLARE LONG CONSTANT CONV$_SEQ = 116982753 DECLARE LONG CONSTANT CONV$_BADBLK = 116982825 DECLARE LONG CONSTANT CONV$_CREA_ERR = 11698290 C DECLARE LONG CONSTANT CONV$_DELPRI = 11698298 ! UNUSED IN V45 DECLARE LONG CONSTANT CONV$_EXTN_ERR = 116983065 DECLARE LONG CONSTANT CONV$_FATALEXC = 116983144 DECLARE LONG CONSTANT CONV$_BADSORT = 116983223 DECLARE LONG CONSTANT CONV$_FILLIM = 116983304 DECLARE LONG CONSTANT CONV$_IDX_LIM = 116983384 DECLARE LONG CONSTANT CONV$_ILL_KEY = 116983466 DECLARE LONG CONSTANT CONV$_ILL_VALUE = 116983546 DECLARE LONG CONSTANT CONV$_INP_FILES = 1169 8362C DECLARE LONG CONSTANT CONV$_KEYREF = 11698370 ! UNUSED IN V44 DECLARE LONG CONSTANT CONV$_LOADIDX = 116983781 DECLARE LONG CONSTANT CONV$_NARG = 116983862 DECLARE LONG CONSTANT CONV$_NOKEY = 116983943 DECLARE LONG CONSTANT CONV$_NOTIDX = 116984023 DECLARE LONG CONSTANT CONV$_NOTSEQ = 116984102 DECLARE LONG CONSTANT CONV$_ORDER = 116984184 DECLARE LONG CONSTANT CONV$_OPENEXC = 116984263 DECLARE LONG CONSTANT CONV$_PROERR = 116984345  DECLARE LONG CONSTANT CONV$_PROL_WRT = 116984424 DECLARE LONG CONSTANT CONV$_UDF_BKS = 116984504 DECLARE LONG CONSTANT CONV$_UDF_BLK = 116984583 DECLARE LONG CONSTANT CONV$_INVBKT = 116984660 DECLARE LONG CONSTANT CONV$_PLV = 11698474ww 4 OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! ! CRF$INSRTREF ARGUMENT LIST ! - DECLARE LONG CONSTANT CRF$S_CRFDEF = 24 record CRFDEF> LONG CRFDEF$$_FILL_1 ! ARGUMENT COUNT E LONG CRF$L_IR _CTLTBL ! CRF CONTROL TABLE ADR ; LONG CRF$L_IR_KEYADR ! KEY ADDRESS G LONG CRF$L_IR_REFADR ! REFERENCE INDICATOR ADR I WORD CRF$W_IR_REFLAG ! REFERENCE INDICATOR FLAGS 9 BYTE CRFDEF$$_FILL_2 ( 1 to 2 ) ! UNUSED D BYTE CRF$B_IR_DEFIND ! DEFINITION INDICATOR 9 BYTE CRFDEF$$_FILL_3 ( 1 to 3 ) ! UNUSED  ! ! ! CRF$INSRTKEY ARGUMENT LIST !  end record CRFDEF . DECLARE LONG CONSTANT CRF$S_CRFDEF1 = 20 record CRFDEF1> LONG CRFDEF$$_FILL_4 ! ARGUMENT COUNT E LONG CRF$L_IK_CTLTBL ! CRF CONTROL TABLE ADR > LONG CRF$L_IK_KEYADR ! ADDRESS OF KEY @ LONG CRF$L_IK_VALADR ! ADDRESS OF VALUE ; WORD CRF$W_IK_VALFLG ! VALUE FLAGS 9 BYTE CRFDEF$$_FILL_5 ( 1 to 2 ) ! UNUSED  !  ! CRF $OUT ARGUMENT LIST !  end record CRFDEF1 . DECLARE LONG CONSTANT CRF$S_CRFDEF2 = 25 record CRFDEF2> LONG CRFDEF$$_FILL_6 ! ARGUMENT COUNT E LONG CRF$L_OU_CTLTBL ! CRF CONTROL TABLE ADR A LONG CRF$L_OU_LINWID ! OUTPUT LINE WIDTH > BYTE CRF$B_OU_PAG1 ! ? LINES/PAGE 1 9 BYTE CRFDEF$$_FILL_7 ( 1 to 3 ) ! UNUSED H BYTE CRF$B_OU_SUCPAG ! ? LINES/SUCCESSIVE PAGES 9 BYTE CRFDEF$$_FILL_8 ( 1 to 3 ) ! UNUSED C BYTE CRF$B_OU_PRTIND ! REF PRINT INDICATOR 9 BYTE CRFDEF$$_FILL_9 ( 1 to 3 ) ! UNUSED > BYTE CRF$B_OU_SAVIND ! SAVE INDICATOR  ! ! CRF CONTROL TABLE OFFSETS !  end record CRFDEF2 . DECLARE LONG CONSTANT CRF$S_CRFDEF3 = 96 record CRFDEF3B LONG CRF$L_HASHT ! HASH TABLE ADDRESS J LONG CRF$L_LASTKEY ! LAST KEY LOOKED AT ADDRESS $ group CRF$R_KEYTYPE_OVERLAY variant caseD BYTE CRF$B_KEYTYPE ! TYPE OF KEY IN TABLE  case* group CRF$R_KEYTYPE_BITS5 ! 1 = KEY IS BINARY 0 = ASCII p BYTE BINARY_bits ! COMMENT ADDED BY SDL - BINARY_bits contains bits BINARY through fill_0. end group CRF$R_KEYTYPE_BITS end variant( end group CRF$R_KEYTYPE_OVERLAYP BYTE CRF$B_FLAGS ! MISC. FLAGS FOR FUTURE EXPANSION K WORD CRF$W_ERRSTS ! SECONDARY ERROR STATUS CODE T LONG CRF$L_ENTRIES ! NUMBER OF ENTRIES IN CROSS REFERENCE M LONG CRF$L_DYNMEM ( 1 to 2 ) ! LISTHEAD OF DYNAMIC MEMORY W LONG CRF$L_MAXBLK ! SIZE ( IN BYTES ) OF BLOCK TO ALLOCATE W LONG CRF$L_MEMEXP ! SIZE ( IN PAGES ) OF BLOCK TO ALLOCATE 9 LONG CRFDEF$$_FILL_10 ( 1 to 8 ) ! SPARES E LONG CRF$L_ERROR ! ERROR ROUTINE ADDRESS F LONG CRF$L_OUTPUT ! OUTPUT ROUTINE ADDRESS I LONG CRF$L_K1FMTBL ! KEY1 FIELD FORMAT TBL ADR I LONG CRF$L_K2FMTBL ! KEY2 FIELD FORMAT TBL ADR I LONG CRF$L_V1FMTBL ! VAL1 FIELD FORMAT TBL ADR I  LONG CRF$L_V2FMTBL ! VAL2 FIELD FORMAT TBL ADR I LONG CRF$L_R1FMTBL ! REF1 FIELD FORMAT TBL ADR I LONG CRF$L_R2FMTBL ! REF2 FIELD FORMAT TBL ADR  end record CRFDEF3 wweOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:34.31 !  !  !  ! VERSION: 'V04-001' ! R ! ************************************************** ************************** ! * *> ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1994 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! 6 ! RETURN STATUS CODES FOR CROSS REFERENCE PROGRAM !  ! MODIFIED BY: ! 3 ! V04-001 TMS0294 TODD SCHOELLER 4-NOV-19941 ! ADD ARGCOUNT FOR ARGUMENT COUNT CHECKING. ! 2 ! V02-002 BLS0156 BENN SCHREIBER 1-MAR-1982 ! REMOVE UNUSED MESSAGES ! 2 ! V02-001 BLS0123 BENN SCHREIBER 19-DEC-1981 ! CHANGE TEXT OF FAOFAIL !  ! ( ! SUCCESS CODES (SEVERITY LEVEL 1) ! 0 DECLARE LONG CONSTANT CREF$_FACILITY = 1012 DECLARE LONG CONSTANT CRF$_SUCCESS = 66519055 DECLARE LONG CONSTANT CRF$_KEYPRVENTR = 66519135 DECLARE LONG CONSTANT CRF$_KEY1STENTR = 66519215 DECLARE LONG CONSTANT CRF$_REFPRVENTR = 66519292 DECLARE LONG CONSTANT CRF$_UNUSERR = 6 651937 ! - ! SEVERE ERROR CODES (SEVERITY LEVEL 2) ! 2 DECLARE LONG CONSTANT CRF$_UNUERR1 = 66519862 DECLARE LONG CONSTANT CRF$_UNUERR2 = 66519942 DECLARE LONG CONSTANT CRF$_UNUERR3 = 66520022 DECLARE LONG CONSTANT CRF$_UNUERR4 = 66520102 DECLARE LONG CONSTANT CRF$_UNUERR5 = 66520182 DECLARE LONG CONSTANT CRF$_UNUERR6 = 66520262 DECLARE LONG CONSTANT CRF$_UNUERR7 = 66520344 DECLARE LONG CONSTANT CRF$_NO_OUTRTN = 66520422 DECLARE LONG CONSTANT CRF$_LINELNG = 66520502 DECLARE LONG CONSTANT CRF$_FAOFAIL = 66520582 DECLARE LONG CONSTANT CRF$_UNUERR8 = 66520662 DECLARE LONG CONSTANT CRF$_BADTYPE = 66520743 DECLARE LONG CONSTANT CRF$_ARGCOUNT = 6652082wwkOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  P ! **************************************************************************P ! P ! Copyright (c) 1993,1994  P ! by DIGITAL Equipment Corporation, Maynard, Mass. P ! P ! This software is furnished under a license and may be used and copied P ! only in accordance with the terms of such license and with the P ! inclusion of the above copyright notice. This software or any other P ! copies thereof may not be provided or otherwise made available to any P ! other person. No title to and ownership of the software is hereby P ! transferred. P ! P ! The information in this software is subject to change without notice P ! and should not be construed as a commitment by DIGITAL Equipment P ! Corporation. P ! P ! DIGITAL assumes no responsibility for the use or reliability of its P ! software on equipment which is not supplied by DIGITAL. P ! P ! ************************************************************************** ! CVT$CONVERT_FLOAT ! , ! Convert floating point data types. ! K ! The CVT$CONVERT_FLOAT converts floating point data types to other. ! supported floating point data types. ! 1 EXTERNAL LONG FUNCTION cvt$convert_float & ( &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION CVT$FTOF & ( &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )ww!OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  M DECLARE LONG CONSTANT CVT$K_VAX_F = 0 ! VAX F Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_D = 1 ! VAX D Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_G = 2 ! VAX G Floating point dataM DECLARE LONG CONSTANT CVT$K_VAX_H = 3 ! VAX H Floating point dataN DECLARE LONG CONSTANT CVT$K_IEEE_S = 4 ! IEEE S Floating point dataN DECLARE LONG CONSTANT CVT$K_IEEE_T = 5 ! IEEE T Floating point dataP DECLARE LONG CONSTANT CVT$K_IBM_LONG = 6 ! IBM Long Floating point dataQ DECLARE LONG CONSTANT CVT$K_IBM_SHORT = 7 ! IBM Short Floating point dataL DECLARE LONG CONSTANT CVT$K_CRAY = 8 ! Cray Floating po int dataN DECLARE LONG CONSTANT CVT$K_IEEE_X = 9 ! IEEE X Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_S = 10 ! IEEE S Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_T = 11 ! IEEE S Floating point dataZ DECLARE LONG CONSTANT CVT$K_BIG_ENDIAN_IEEE_X = 12 ! IEEE S Floating point data1 DECLARE LONG CONSTANT CVT$K_CRAY_SINGLE = 8 ! % ! Function Return Status Values: ! , DECLARE LONG CONSTANT CVT$ K_NORMAL = 0B DECLARE LONG CONSTANT CVT$M_INVALID_INPUT_TYPE = x'00000001'C DECLARE LONG CONSTANT CVT$M_INVALID_OUTPUT_TYPE = x'00000002'> DECLARE LONG CONSTANT CVT$M_INVALID_OPTION = x'00000004'? DECLARE LONG CONSTANT CVT$M_RESULT_INFINITE = x'00000008'C DECLARE LONG CONSTANT CVT$M_RESULT_DENORMALIZED = x'00000010'E DECLARE LONG CONSTANT CVT$M_RESULT_OVERFLOW_RANGE = x'00000020'F DECLARE LONG CONSTANT CVT$M_RESULT_UNDERFLOW_RANGE = x'00000040'C DECLARE LONG CONSTANT CVT$M_RESULT_UNNORMALIZED = x'00000080'> DECLARE LONG CONSTANT CVT$M_RESULT_INVALID = x'00000100'? DECLARE LONG CONSTANT CVT$M_RESULT_OVERFLOW = x'00000200'@ DECLARE LONG CONSTANT CVT$M_RESULT_UNDERFLOW = x'00000400'> DECLARE LONG CONSTANT CVT$M_RESULT_INEXACT = x'00000800'3 DECLARE LONG CONSTANT CVT$S_RETURN_STATUS = 2 record CVT$R_RETURN_STATUS WORD INVALID_INPUT_TYPE_bits ! COMMENT ADDED BY SDL - INVALID_INPUT_TYPE_bits contains bits INVALID_INPUT_TYPE through & ! fill_0$ end record CVT$R_RETURN_STATUS  !  ! Conversion Options: ! @ DECLARE LONG CONSTANT CVT$M_ROUND_TO_NEAREST = x'00000001'8 DECLARE LONG CONSTANT CVT$M_TRUNCATE = x'00000002'< DECLARE LONG CONSTANT CVT$M_ROUND_TO_POS = x'00000004'< DECLARE LONG CONSTANT CVT$M_ROUND_TO_NEG = x'00000008'< DECLARE LONG CONSTANT CVT$M_VAX_ROUNDING = x'00000010': DECLARE LONG CONSTANT CVT$M_BIG_ENDIAN = x'00000020'= DECLARE LONG CONSTANT CVT$M_ERR_UNDERFLOW = x'00000040'E DECLARE LONG CONSTANT CVT$M_FORCE_INVALID_TO_ZERO = x'00000080'D DECLARE LONG CONSTANT CVT$M_FORCE_DENORM_TO_ZERO = x'00000100'F DECLARE LONG CONSTANT CVT$M_FORCE_INF_TO_MAX_FLOAT = x'00000200'H DECLARE LONG CONSTANT CVT$M_FORCE_ALL_SPECIAL_VALUES = x'00000400'I DECLARE LONG CONSTANT CVT$M_ALLOW_OVRFLW_RANGE_VALUES = x'00000800'I DECLARE LONG CONSTANT CVT$M_ALLOW_UDRFLW_RANGE_VALUES = x'00001000'I  DECLARE LONG CONSTANT CVT$M_ALLOW_UNNORMALIZED_VALUES = x'00002000': DECLARE LONG CONSTANT CVT$M_REPORT_ALL = x'00004000'6 DECLARE LONG CONSTANT CVT$m_spare2 = x'FFFF8000'8 DECLARE LONG CONSTANT CVT$S_CONVERSION_OPTIONS = 4% record CVT$R_CONVERSION_OPTIONS !  ! Rounding Mode Options: !  ! - ! Options exclusive to CVT$CONVERT_FLOAT !  !  ! Forcing Results Options: !  ! ( ! Allowing Special Results Options: !  ! ! Status Selection Options: !  !  ! Everything else. ! LONG ROUND_TO_NEAREST_bits ! COMMENT ADDED BY SDL - ROUND_TO_NEAREST_bits contains bits ROUND_TO_NEAREST through spare2) end record CVT$R_CONVERSION_OPTIONS D DECLARE LONG CONSTANT CVT$M_ALT_ROUND_TO_NEAREST = x'00000001'= DECLARE LONG CONSTANT CVT$M_ROUND_TO_ZERO = x'00000002'@ DECLARE LONG CONSTANT CVT$M_ALT_ROUND_TO_POS = x'00000004'@ DECLARE LONG CONSTANT CV T$M_ALT_ROUND_TO_NEG = x'00000008'? DECLARE LONG CONSTANT CVT$M_BIASED_ROUNDING = x'00000010'6 DECLARE LONG CONSTANT CVT$m_spare3 = x'FFFFFFE0'< DECLARE LONG CONSTANT CVT$S_ALT_CONVERSION_OPTIONS = 4) record CVT$R_ALT_CONVERSION_OPTIONS !  ! Rounding Mode Options: ! LONG ALT_ROUND_TO_NEAREST_bits ! COMMENT ADDED BY SDL - ALT_ROUND_TO_NEAREST_bits contains bits ALT_ROUND_TO_NEAREST & ! through spare3- end record CVT$R_ALT_CONVERSION_OPTIONS wwy^OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:36.95 !  ! R ! ****************************************************************************R ! *   *R ! * COPYRIGHT (C) 1991 *R ! * BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *R ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION  OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *R ! * TRANSFERRED. *R ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD  NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *R ! * CORPORATION. *R ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *R ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. *R ! * *R ! **************** ************************************************************R ! ============================================================================ !  ! FILE: CVTMSG.MSG !  ! VERSION: 1-001 ! ; ! FACILITY: CVTRTL - VMS CONVERSION RUN TIME LIBRARY ! < ! ABSTRACT: MESSAGE DEFINITIONS FOR THE CVT FACILITY. ! ! ! AUTHOR: JEFFREY S. YOUNG ! " ! CREATION DATE: 25-JUN-1991 !  ! MODIFICATION HISTORY:R ! -------------- ------------------------------------------------------------/ ! 1-001 25-JUN-1991 JSY ORIGINAL VERSION. ! R ! ============================================================================R ! ============================================================================ ! C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! CVT$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" A RE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. ! R ! ============================================================================ ! 0 DECLARE LONG CONSTANT CVT$_FACILITY = 15303 DECLARE LONG CONSTANT CVT$_NORMAL = 1003028576 DECLARE LONG CONST ANT CVT$_INPCONERR = 1003028666 DECLARE LONG CONSTANT CVT$_INVINPTYP = 1003028743 DECLARE LONG CONSTANT CVT$_INVOPT = 1003028826 DECLARE LONG CONSTANT CVT$_INVOUTTYP = 1003028903 DECLARE LONG CONSTANT CVT$_INVVAL = 1003028983 DECLARE LONG CONSTANT CVT$_NEGINF = 1003029066 DECLARE LONG CONSTANT CVT$_OUTCONERR = 1003029145 DECLARE LONG CONSTANT CVT$_OVERFLOW = 1003029223 DECLARE LONG CONSTANT CVT$_POSINF = 1003029306 DECLARE LONG CONSTANT CVT$_UNDERFLOW = 100302938ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )V END RECORD % %LET %BASIC$QUADWORD_DECLARED = 1M %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD%% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  E ! --------------------------------------------------------------- ! 0 ! Data Compression/Expansion (DCX) Routines !  ! / ! DCX$ANALYZE_DATA - Analyze a data record ! 2 ! status = DCX$ANALYZE_DATA (context, record) ! < ! context - Context value returned by DCX$ANALYZE_INIT' ! record - Record to be analyzed0 EXTERNAL LONG FUNCTION DCX$ANALYZE_DATA & ( &" LONG BY REF, &$ STRING BY DESC & ) ! + ! DCX$ANALYZE_DONE - Complete analysis ! * ! status = DCX$ANALYZE_DONE (context) ! < ! context - Context value returned by DCX$ANALYZE_INIT0 EX TERNAL LONG FUNCTION DCX$ANALYZE_DONE & ( &! LONG BY REF & ) ! 9 ! DCX$ANALYZE_INIT - Initialize context for analysis ! C ! status = DCX$ANALYZE_INIT (context [,item_code, item_value]) ! : ! context - Receives context value for data streamD ! item_code - Specifies information to be used during analysis. ! item_value - Value of information itemJ ! [Note - successive pairs of item_code and item_val ue can be passed ! in the argument list] ! 0 EXTERNAL LONG FUNCTION DCX$ANALYZE_INIT & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, & LONG BY REF,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! 1 ! DCX$COMPRESS_DATA - Compress a data record ! H ! status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length) ! 8 ! context - Value returned by DCX$COMPRESS_INIT1 ! in_rec - Data record to be compressed/ ! out_rec - Receives compressed record9 ! out_length - Receives length of compressed record ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_DATA & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! 9 ! DCX$COMPRESS_DONE - Delete context for compression ! + ! status = DCX$COMPRESS_DONE (context) ! 5 ! context - Value returned by DCX$COMPRESS_INIT ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_DONE & ( &! LONG BY REF & ) ! = ! DCX$COMPRESS_INIT - Initialize context for compression ! 0 ! status = DCX$COMPRESS_INIT (context, map) ! 4 ! context - Context value for this data stream4 ! map - Map value returned by DCX$MAKE_MAP ! 1 EXTERNAL LONG FUNCTION DCX$COMPRESS_INIT & ( &" LONG BY REF, &! LONG BY REF & ) ! 8 ! DCX$EXPAND_DATA - Expand a compressed data record ! H ! status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length]) ! 6 ! context - Value returned by DCX$EXPAND_INIT/ ! in_rec - Data record to be expanded2 ! out_rec - Receives expanded data record7 ! out_length - Receives length of expanded record ! / EXTERNAL LONG FUNCTION DCX$EXPAND_DATA & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! 5  ! DCX$EXPAND_DONE - Delete context for expansion ! ) ! status = DCX$EXPAND_DONE (context) ! 3 ! context - Value returned by DCX$EXPAND_INIT ! / EXTERNAL LONG FUNCTION DCX$EXPAND_DONE & ( &! LONG BY REF & ) ! 9 ! DCX$EXPAND_INIT - Initialize context for expansion ! . ! status = DCX$EXPAND_INIT (context, map) ! @ ! context - Receives context value identifying data stream4 ! map - Map value returned by DCX$MAKE_MAP ! / EXTERNAL LONG FUNCTION DCX$EXPAND_INIT & ( &" LONG BY REF, &! LONG BY REF & ) ! 7 ! DCX$MAKE_MAP - Compute compression/expansion map ! = ! status = DCX$MAKE_MAP (context, map_addr [, map_size]) ! 4 ! context - Value returned by DCX$ANALYZE_INIT9 ! map_addr - Receives address of allocated map data6 ! map_size - Receives size of allocated map data ! , EXTERNAL LONG FUNCTION DCX$MAKE_MAP & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & )ww@OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET! %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:40.62 ! A ! .TITLE DDTMMSGDEF -- DECDTM SERVICES EXTENDED REASON CODESV ! ********************************** "********************************************** ! * *1 ! * COPYRIGHT (C) 1990, 1991, 1993 BY *C ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *% ! * ALL RIGHTS RESERVED. * ! * *U ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ONLY *U ! * IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE *U ! * ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEREOF MA #Y NOT *U ! * BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO *A ! * AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. * ! * *U ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND *U ! * SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. * ! * *U ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOFT- *A ! * WARE ON EQUIPMENT WHICH$ IS NOT SUPPLIED BY DIGITAL. * ! * *V ! ******************************************************************************** ! ++ ! FACILITY: DDTM !  ! ABSTRACT: ! N ! THIS MODULE DEFINES THE EXTENDED TRANSACTION ABORT REASON CODES FOR THE" ! DECDTM TRANSACTION MANAGER. !  ! ENVIRONMENT: ! VMS V5.4 OR LATER. ! < ! AUTHOR: JAMES E JOHNSON CREATION DATE: 27-FEB-1990 !  ! MODIFIED BY: ! ' ! % X-7 RM RUDI MARTIN 20-SEP-1993+ ! *** ALPHA CHANGE PICKED UP FOR VAX. ! , ! A-4 KJP KEVIN PLAYFORD 15-SEP-1993D ! UPDATED ALPHA VERSION OF DECDTM MESSAGES TO REFLECT MESSAGE, ! TEXT AS FOUND IN HELP MESSAGE TEXT. ! ' ! X-6 RM RUDI MARTIN 9-AUG-19937 ! UPDATE SYNCH_FAIL AND ORPHAN_BRANCH MESSAGES TO. ! CORRESPOND TO THEIR HELP/MESSAGE TEXT. ! ' ! X-5 RM RUDI MARTIN 25-FEB-1993 ! ADD XA ERROR CODES. ! * ! X-4& CW CHRIS WHITAKER 26-FEB-1991@ ! MODIFY WORDING ON SOME MESSAGES TO CONFORM TO FUNCTIONAL% ! SPECIFICATION OF DECDTM V1.2. ! . ! X-3 CW1023 CHRIS WHITAKER 21-MAY-1990+ ! ADD RESERVED CODE AS FIRST MESSAGE. ! 0 ! X-2 JEJ0599 JAMES E JOHNSON 23-APR-19902 ! ADD LOG_FAIL, SYNC_FAIL, AND ORPHAN_BRANCH !  ! --1 DECLARE LONG CONSTANT DDTM$_FACILITY = 1187K DECLARE LONG CONSTANT DDTM$_UNKNOWN = 0 ! NO EXTENDED CODE PROVIDED ! ' ERROR CODES: ! 5 DECLARE LONG CONSTANT DDTM$_RESERVED = 778240024 DECLARE LONG CONSTANT DDTM$_TIMEOUT = 778240109 DECLARE LONG CONSTANT DDTM$_PART_TIMEOUT = 778240185 DECLARE LONG CONSTANT DDTM$_SEG_FAIL = 778240266 DECLARE LONG CONSTANT DDTM$_COMM_FAIL = 778240343 DECLARE LONG CONSTANT DDTM$_VETOED = 778240424 DECLARE LONG CONSTANT DDTM$_ABORTED = 77824050: DECLARE LONG CONSTANT DDTM$_SERIALIZATION = 778240588 DECLARE LONG CONSTANT DDTM $_PART_SERIAL = 778240666 DECLARE LONG CONSTANT DDTM$_INTEGRITY = 778240745 DECLARE LONG CONSTANT DDTM$_LOG_FAIL = 778240826 DECLARE LONG CONSTANT DDTM$_SYNC_FAIL = 77824090: DECLARE LONG CONSTANT DDTM$_ORPHAN_BRANCH = 778240985 DECLARE LONG CONSTANT DDTM$_DEADLOCK = 778241066 DECLARE LONG CONSTANT DDTM$_PROTERROR = 778241145 DECLARE LONG CONSTANT DDTM$_ROLLBACK = 778241226 DECLARE LONG CONSTANT DDTM$_TRANSIENT = 77824130ww)sfOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI*NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET+ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:44.72 ! J ! MOUNTMSG.MDL - SYSTEM MESSAGE FILE FOR MOUNT AND DISMOUNT UTILITIES !  ! VERSION: 'X-8' , ! R ! **************************************************************************** ! * *I ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1988, 1995 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * - INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. *. ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! K ! THIS FILE CONTAINS THE MDL SOURCE FOR THE DISMOUNT UTILITY MESSAGES. !  / ! ENVIRONMENT: ! ! N/A !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! 5 ! X-8 JJF0037 J. JEFFERY FRIEDRICHS 20-JUL-1995 ! ADDED INCONUCB MESSAGE. ! 0 ! X-7 SBL1003 STEVEN B. LIONEL 13-DEC-1991+ ! CHANGED MACRO NAME TO $DISMOUMSGDEF ! 1 ! X-6 PRD0534 PAUL R. DESTEFANO 12-OCT-1989 ! ADDED SRCMEM MESSAGE. ! 1 ! X-5 PRD0462 PAUL R. DESTEFANO 001-NOV-19881 ! ADDED WAITINGDMT AND RMTDMTSUCC MESSAGES. ! 1 ! X-4 PRD0465 PAUL R. DESTEFANO 28-OCT-1988; ! ADD FAO CONTROL STRING FOR DEVICE NAME TO OPEN FILE; ! MESSAGES. ADD FILESOPEN MESSAGE. CHANGE OPENFILES ! MESSAGE TO USERFILES. ! 1 ! X-3 PRD0457 PAUL R. DESTEFANO 05-OCT-19887 ! ADD MESSAGES FOR DISMOUNT'S OPEN FILE CHECKING. ! 1 ! X-2 PRD0417 PAUL R. DESTEFANO 23-SEP-1987: ! ADD RMTDSMFAIL AND DSMCLUFAIL WARNING 1MESSAGES FOR% ! CLUSTER-WIDE DISMOUNT STATUS. ! 4 ! 0105 STJ0011 STEVEN T. JEFFREYS, 14-OCT-19803 ! ADD OPERATOR ASSISTED MOUNT ERROR MESSAGES. ! < ! 0104 ACG0123 ANDREW C. GOLDSTEIN, 17-JAN-1980 19:52) ! INTEGRATE DISK REBUILD WITH MOUNT ! ; ! 0103 ACG0079 ANDREW C. GOLDSTEIN, 4-NOV-1979 17:323 ! ADD MESSAGES RELATED TO WRITE-BACK CACHEING ! > ! 0102 ACG0044 ANDREW C. GOLDSTEIN, 18-JUN-1979 13:31 ! ADD DISK QUOTA SUPP2ORT ! > ! 0101 ACG0003 ANDREW C. GOLDSTEIN, 29-DEC-1978 13:01) ! ADD MESSAGES FOR MULTI-VOLUME DISK !  ! ** ! + ! @ ! THE FOLLOWING ARE MESSAGES ISSUED BY THE DISMOUNT UTILITY !  ! -0 DECLARE LONG CONSTANT DISM$_FACILITY = 1152 DECLARE LONG CONSTANT DISM$_MAXDEV = 75694202 DECLARE LONG CONSTANT DISM$_SYSDEV = 75694282 DECLARE LONG CONSTANT DISM$_BADOVR = 75694362 DECLARE LONG CONSTANT DISM$_SRCMEM = 75694444 3DECLARE LONG CONSTANT DISM$_INCONUCB = 75694526 DECLARE LONG CONSTANT DISM$_RMTDSMFAIL = 75735046 DECLARE LONG CONSTANT DISM$_DSMCLUFAIL = 75735125 DECLARE LONG CONSTANT DISM$_CANNOTDMT = 75735205 DECLARE LONG CONSTANT DISM$_INSWPGFIL = 75735285 DECLARE LONG CONSTANT DISM$_SPOOLEDEV = 75735365 DECLARE LONG CONSTANT DISM$_INSTIMAGE = 75735445 DECLARE LONG CONSTANT DISM$_USERFILES = 75735525 DECLARE LONG CONSTANT DISM$_FILESOPEN = 75735605 DECLARE LONG CONSTANT DISM$_MARKEDDMT = 75776036 DECLARE LONG CONSTANT DISM$_WAITINGDMT = 75776116 DECLARE LONG CONSTANT DISM$_RMTDMTSUCC = 7577619ww5 ̵OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI6NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET7 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  $ ! Use a K to indicate constant Q DECLARE LONG CONSTANT DST$K_LOCOMMAND = 0 ! Low value for range checking G DECLARE LONG CONSTANT DST$K_STA_R00 = 0 ! Stack contents of R0 G DECLAR8E LONG CONSTANT DST$K_STA_R01 = 1 ! Stack contents of R1 G DECLARE LONG CONSTANT DST$K_STA_R02 = 2 ! Stack contents of R2 G DECLARE LONG CONSTANT DST$K_STA_R03 = 3 ! Stack contents of R3 G DECLARE LONG CONSTANT DST$K_STA_R04 = 4 ! Stack contents of R4 G DECLARE LONG CONSTANT DST$K_STA_R05 = 5 ! Stack contents of R5 G DECLARE LONG CONSTANT DST$K_STA_R06 = 6 ! Stack contents of R6 G DECLARE LONG CONSTANT DST$K_STA_R07 = 7 ! Stack contents of R7 G9 DECLARE LONG CONSTANT DST$K_STA_R08 = 8 ! Stack contents of R8 G DECLARE LONG CONSTANT DST$K_STA_R09 = 9 ! Stack contents of R9 I DECLARE LONG CONSTANT DST$K_STA_R10 = 10 ! Stack contents of R10 I DECLARE LONG CONSTANT DST$K_STA_R11 = 11 ! Stack contents of R11 Q DECLARE LONG CONSTANT DST$K_STA_R12 = 12 ! Stack contents of R12 ( AP ) Q DECLARE LONG CONSTANT DST$K_STA_R13 = 13 ! Stack contents of R13 ( FP ) Q DECLARE LONG CONSTANT DST$K_STA_:R14 = 14 ! Stack contents of R14 ( SP ) Q DECLARE LONG CONSTANT DST$K_STA_R15 = 15 ! Stack contents of R15 ( PC ) T DECLARE LONG CONSTANT DST$K_STA_IMM_B = 16 ! Stack contents of byte operand $ ! sign extending to longwordT DECLARE LONG CONSTANT DST$K_STA_IMM_W = 17 ! Stack contents of word operand $ ! sign extending to longwordX DECLARE LONG CONSTANT DST$K_STA_IMM_L = 18 ! Stack contents of longword operand K DECLARE LONG CONSTANT DST$K_OPR_ ;ADD = 19 ! Pop two operands, add ,  ! stack longword resultZ DECLARE LONG CONSTANT DST$K_STA_REP_B = 20 ! Pop top item and stack sign extended  ! byte at that addressZ DECLARE LONG CONSTANT DST$K_STA_REP_W = 21 ! Pop top item and stack sign extended  ! word at that addressX DECLARE LONG CONSTANT DST$K_STA_REP_L = 22 ! Pop top item and stack longword at  ! that addressW DECLARE LONG CONSTANT DST$K_OPR_STOP = 23 ! Terminate command string. Longword * ! at top of stack contains address ! of data item.Q DECLARE LONG CONSTANT DST$K_HICOMMAND = 23 ! Hi value for range checking ww=@7OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI>NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET? %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD@, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY A * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! B*************************************************************************** ! DTK$ANSWER_PHONE ! + ! Wait for Phone to Ring and Answer ! 8 ! The Wait for Phone to Ring and Answer routine E ! waits for the phone connected to the DECtalk device to ring ! and then answers it. ! 0 EXTERNAL LONG FUNCTION dtk$answer_phone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% C STRING BY DESC, &! LONG BY REF & ) ! DTK$CHECK_HDWR_STATUS !  ! Check Hardware Status ! T ! The Check Hardware Status routine checks the DECtalk hardware for hardware ! malfunctions. ! 5 EXTERNAL LONG FUNCTION dtk$check_hdwr_status & ( &" LONG BY REF, &! LONG BY REF & ) ! DTK$DIAL_PHONE ! D  ! Dial the Telephone ! U ! The Dial the Telephone routine dials the specified number on the telephone. ! . EXTERNAL LONG FUNCTION dtk$dial_phone & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! DTK$HANGUP_PHONE !  ! Hang Up the Phone ! E G ! The Hang Up the Phone routine speaks an optional message and " ! then hangs up the phone. ! 0 EXTERNAL LONG FUNCTION dtk$hangup_phone & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! DTK$INITIALIZE !  ! Initialize DECtalk ! g ! The Initialize DECtalk routine initializes a DECtalk device and returns the device's assigned ! voice identifiFer. ! . EXTERNAL LONG FUNCTION dtk$initialize & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$LOAD_DICTIONARY ! 1 ! Load a Word into the DECtalk Dictionary ! > ! The Load a Word into the DECtalk Dictionary routine A ! loads a phonemic definition of a word into the DECtalk  ! dictionary. ! 3 GEXTERNAL LONG FUNCTION dtk$load_dictionary & ( &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! DTK$READ_KEYSTROKE ! * ! Read a Key Entered on the Keypad ! 7 ! The Read a Key Entered on the Keypad routine 2 ! reads a key entered on the phone keypad. ! 2 EXTERNAL LONG FUNCTION dtk$read_keystroke & ( &" H LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! LONG BY REF & ) ! DTK$READ_STRING ! 5 ! Read a Series of Keys Entered on the Keypad ! J ! The Read a Series of Keys Entered on the Keypad routine reads a 5 ! series of keys entered on the phone keypad. ! / EXTERNAL LONG FUNCTION dtk$read_string & ( &" LONG I BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! DTK$RETURN_LAST_INDEX ! " ! Return Last Index Spoken ! M ! The Return Last Index Spoken routine returns the last index spoken. ! 5 EXTERNAL LONG FUNCTION dtk$return_last_index & ( &" LONG BY REF, &! J LONG BY REF & ) ! DTK$SPELL_TEXT !  ! Spell Text ! K ! The Spell Text routine causes DECtalk to pronounce each letter of ! the specified text. ! . EXTERNAL LONG FUNCTION dtk$spell_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SPEAK_FILE ! , ! Speak the Text in a SpKecified File ! 9 ! The Speak the Text in a Specified File routine : ! speaks the text contained in the specified file. ! . EXTERNAL LONG FUNCTION dtk$speak_file & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & )! ! DTK$SPEAK_PHONEMIC_TEXT ! + ! Speak the Specified Phonemic Text ! 8 ! The Speak the Specified PhLonemic Text routine B ! sends the specified phonemic text to the DECtalk device  ! to be spoken. ! 7 EXTERNAL LONG FUNCTION dtk$speak_phonemic_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SPEAK_TEXT ! " ! Speak the Specified Text ! / ! The Speak the Specified Text routine 9 ! sends the specifMied text to the DECtalk device  ! to be spoken. ! . EXTERNAL LONG FUNCTION dtk$speak_text & ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! DTK$SET_INDEX ! 1 ! Insert an Index at the Current Position ! > ! The Insert an Index at the Current Position routine : ! inserts an index into the current output stream. N ! - EXTERNAL LONG FUNCTION dtk$set_index & ( &" LONG BY REF, &! LONG BY REF & ) ! DTK$SET_KEYPAD_MODE ! * ! Turn the Phone Keypad On and Off ! I ! The Turn the Phone Keypad On and Off routine turns recognition , ! of the telephone keypad on or off. ! 3 EXTERNAL LONG FUNCTION dtk$set_keypad_mode & ( &" LONG BY RE OF, &! LONG BY REF & ) ! DTK$SET_LOGGING_MODE ! U ! Set the Logging Mode for the Video Terminal Connected to the DECtalk Device ! : ! The Set the Logging Mode for the Video Terminal 1 ! Connected to the DECtalk Device routineA ! controls the information that is displayed on the video< ! terminal while the DECtalk device is functioning. ! 4 EXTERNAL LONG FUNCTION dtk$set_logging_moPde & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_MODE ! / ! Set the Mode for the DECtalk Terminal ! < ! The Set the Mode for the DECtalk Terminal routine C ! sets or resets the mode settings of the DECtalk terminal. ! , EXTERNAL LONG FUNCTION dtk$set_mode & ( &" LONG BY REF, &* Q OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_SPEECH_MODE ! % ! Turn Speech Mode On and Off ! 2 ! The Turn Speech Mode On and Off routine = ! either starts or stops the DECtalk device's speech. ! 3 EXTERNAL LONG FUNCTION dtk$set_speech_mode & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF R& ) ! DTK$SET_TERMINAL_MODE ! M ! Set the Mode for the Video Terminal Connected to the DECtalk Device ! 2 ! The Set the Mode for the Video Terminal 1 ! Connected to the DECtalk Device routineA ! controls the attributes of the video terminal connected! ! to the DECtalk device. ! 5 EXTERNAL LONG FUNCTION dtk$set_terminal_mode & ( &" LONG BY REF, &* S OPTIONAL LONG BY REF, &! LONG BY REF & ) ! DTK$SET_VOICE ! # ! Set Voice Characteristics ! / ! The Set Voice Characteristics routineB ! changes the DECtalk voice characteristics to match those ! specified. ! - EXTERNAL LONG FUNCTION dtk$set_voice & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! DTK$TERMINATE !  ! Terminate DECtalk ! T ! The Terminate DECtalk routine terminates the use of an initialized DECtalk ! device. ! - EXTERNAL LONG FUNCTION dtk$terminate & ( &! LONG BY REF & )wwU?OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIVNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETW %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF. ! Definitions for RTL DECtalk Management  !  ! Phone keypad keys. ! / DECLARE LONG CONSTANT DTK$K_TRM_ZERO = 48. DECLARE LONG CONSTANT DTK$K_TRM_ONE = 49. DECLARE LONG CONST XANT DTK$K_TRM_TWO = 500 DECLARE LONG CONSTANT DTK$K_TRM_THREE = 51/ DECLARE LONG CONSTANT DTK$K_TRM_FOUR = 52/ DECLARE LONG CONSTANT DTK$K_TRM_FIVE = 53. DECLARE LONG CONSTANT DTK$K_TRM_SIX = 540 DECLARE LONG CONSTANT DTK$K_TRM_SEVEN = 550 DECLARE LONG CONSTANT DTK$K_TRM_EIGHT = 56/ DECLARE LONG CONSTANT DTK$K_TRM_NINE = 57, DECLARE LONG CONSTANT DTK$K_TRM_A = 65, DECLARE LONG CONSTANT DTK$K_TRM_B = 66, DECLARE LONG CONSTANT DTK$K_TRM_C = Y67, DECLARE LONG CONSTANT DTK$K_TRM_D = 686 DECLARE LONG CONSTANT DTK$K_TRM_NUMBER_SIGN = 353 DECLARE LONG CONSTANT DTK$K_TRM_ASTERISK = 42 ! ConditionsH DECLARE LONG CONSTANT DTK$K_TRM_CANCELLED = 508 ! I/O cancelled N DECLARE LONG CONSTANT DTK$K_TRM_TIMEOUT = 509 ! Timeout period expiredJ DECLARE LONG CONSTANT DTK$K_TRM_BUFFER_FULL = 510 ! Buffer is fullJ DECLARE LONG CONSTANT DTK$K_TRM_UNKNOWN = 511 ! Unknown terminator !  ! Self-Ztest constants. ! 0 DECLARE LONG CONSTANT DTK$K_TEST_POWER = 10 DECLARE LONG CONSTANT DTK$K_TEST_HDATA = 23 DECLARE LONG CONSTANT DTK$K_TEST_HCONTROL = 3/ DECLARE LONG CONSTANT DTK$K_TEST_DATA = 40 DECLARE LONG CONSTANT DTK$K_TEST_SPEAK = 5 !  ! Phone dialing constants. ! / DECLARE LONG CONSTANT DTK$K_DIAL_TONE = 00 DECLARE LONG CONSTANT DTK$K_DIAL_PULSE = 1 !  ! DECtalk types. ! 1 DECLARE LONG CONSTANT DTK$K_DT[C_UNKNOWN = 0, DECLARE LONG CONSTANT DTK$K_DTC_01 = 1, DECLARE LONG CONSTANT DTK$K_DTC_03 = 2 !  ! Keypad modes. ! 0 DECLARE LONG CONSTANT DTK$K_KEYPAD_OFF = 0/ DECLARE LONG CONSTANT DTK$K_KEYPAD_ON = 11 DECLARE LONG CONSTANT DTK$K_KEYPAD_AUTO = 2 !  ! Voices. ! 0 DECLARE LONG CONSTANT DTK$K_VOICE_MALE = 02 DECLARE LONG CONSTANT DTK$K_VOICE_FEMALE = 11 DECLARE LONG CONSTANT DTK$K_VOICE_CHILD = 25 DECLARE LONG CON\STANT DTK$K_VOICE_DEEP_MALE = 37 DECLARE LONG CONSTANT DTK$K_VOICE_DEEP_FEMALE = 46 DECLARE LONG CONSTANT DTK$K_VOICE_OLDER_MALE = 58 DECLARE LONG CONSTANT DTK$K_VOICE_LIGHT_FEMALE = 6 !  ! Speaking modes. ! + DECLARE LONG CONSTANT DTK$K_SPEAK = 0* DECLARE LONG CONSTANT DTK$K_STOP = 1* DECLARE LONG CONSTANT DTK$K_HALT = 2 !  ! Return modes. ! U DECLARE LONG CONSTANT DTK$K_IMMED = 0 ! Return immedately after sending text.a ] DECLARE LONG CONSTANT DTK$K_WAIT = 1 ! Wait until text is completely spoken be returning.d DECLARE LONG CONSTANT DTK$K_STATUS = 2 ! Wait for text to be spoken and return phone status. ! = ! DEFINE BIT MASKS AND VALUES FOR MODE ATTRIBUTES ! 6 DECLARE LONG CONSTANT DTK$M_SQUARE = x'00000001'5 DECLARE LONG CONSTANT DTK$M_ASCII = x'00000002'5 DECLARE LONG CONSTANT DTK$M_MINUS = x'00000004'6 DECLARE LONG CONSTANT DTK$M_EUROPE = x'00000008'5^ DECLARE LONG CONSTANT DTK$M_SPELL = x'00000010'= DECLARE LONG CONSTANT DTK$M_NORMAL = 0 ! no bits set L DECLARE LONG CONSTANT DTK$K_SQUARE = 0 ! Mode square bitvector index9 DECLARE LONG CONSTANT DTK$K_ASCII = 1 ! asky modeQ DECLARE LONG CONSTANT DTK$K_MINUS = 2 ! Say dash as minus bitvector indexF DECLARE LONG CONSTANT DTK$K_EUROPE = 3 ! European type numbers? DECLARE LONG CONSTANT DTK$K_SPELL = 4 ! Spell all words4 DECLARE LONG CONSTAN _T DTK$M_HOST = x'00000001'9 DECLARE LONG CONSTANT DTK$M_SPEAK_ALL = x'00000002'6 DECLARE LONG CONSTANT DTK$M_EDITED = x'00000004'4 DECLARE LONG CONSTANT DTK$M_HARD = x'00000008'5 DECLARE LONG CONSTANT DTK$M_SETUP = x'00000010'6 DECLARE LONG CONSTANT DTK$M_FILTER = x'00000020'L DECLARE LONG CONSTANT DTK$K_HOST = 0 ! Send all chars typed to host.J DECLARE LONG CONSTANT DTK$K_SPEAK_ALL = 1 ! Speak all chars typed.K DECLARE LONG CONSTANT DTK$K_EDITED =` 2 ! Line edit all chars typed.P DECLARE LONG CONSTANT DTK$K_HARD = 3 ! Do local echo in hardcopy format.X DECLARE LONG CONSTANT DTK$K_SETUP = 4 ! Speak all chars displayed in setup mode.W DECLARE LONG CONSTANT DTK$K_FILTER = 5 ! Don't send DECtalk specific sequences.4 DECLARE LONG CONSTANT DTK$M_TEXT = x'00000001'7 DECLARE LONG CONSTANT DTK$M_PHONEME = x'00000002'7 DECLARE LONG CONSTANT DTK$M_RAWHOST = x'00000004'6 DECLARE LONG CONSTANT DTK$M_INHO aST = x'00000008'7 DECLARE LONG CONSTANT DTK$M_OUTHOST = x'00000010'5 DECLARE LONG CONSTANT DTK$M_ERROR = x'00000020'5 DECLARE LONG CONSTANT DTK$M_TRACE = x'00000040'5 DECLARE LONG CONSTANT DTK$M_DEBUG = x'00000080'> DECLARE LONG CONSTANT DTK$K_TEXT = 0 ! Log ASCII text.D DECLARE LONG CONSTANT DTK$K_PHONEME = 1 ! Log phonemic text.S DECLARE LONG CONSTANT DTK$K_RAWHOST = 2 ! Log all chars without inspection.I DECLARE LONG CONSTANT DTK$K_INHOST = b 3 ! Log text read from host.H DECLARE LONG CONSTANT DTK$K_OUTHOST = 4 ! Log text sent to host.C DECLARE LONG CONSTANT DTK$K_ERROR = 5 ! Log error messages.J DECLARE LONG CONSTANT DTK$K_TRACE = 6 ! Log sequences symbolically8 DECLARE LONG CONSTANT DTK$K_DEBUG = 7 ! Reserved, DECLARE LONG CONSTANT DTK$S_DTKDEF = 1 record DTKDEF variant ! < ! DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. !  case' c group DTK$R_DTKMODE_BITS( ! Set mode square on ! asky mode' ! Say dash as minus ! Europe % ! Spell all wordsm BYTE SQUARE_bits ! COMMENT ADDED BY SDL - SQUARE_bits contains bits SQUARE through fill_0+ end group DTK$R_DTKMODE_BITS case' group DTK$R_DTKTERM_BITS3 ! Send all chars typed to host., d ! Speak all chars typed.0 ! Line edit all chars typed.7 ! Do local echo in hardcopy format.> ! Speak all chars displayed in setup mode.< ! Don't send DECtalk specific sequences.g BYTE HOST_bits ! COMMENT ADDED BY SDL - HOST_bits contains bits HOST through fill_1+ end group DTK$R_DTKTERM_BITS case& group DTK$R_DTKLOG_BITS% ! Log ASCI eI text.( ! Log phonemic text.7 ! Log all chars without inspection.. ! Log text read from host., ! Log text sent to host.) ! Log error messages.0 ! Log sequences symbolically ! Reservedf BYTE TEXT_bits ! COMMENT ADDED BY SDL - TEXT_bits contains bits TEXT through DEBUG* end group DTK$R_DTKLOG_BITS end variant end record DTKDEF wwg@7OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIhNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETi %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:30.55 ! % ! FILE: DTKMSG.MSG EDIT: TS1004 ! R ! ****************************************************** j********************** ! * *N ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1988 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY k OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBIlLITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! 5 ! 1-004 ADD DSR STATUS MESSAGES. TS 29-AUG-1986> ! 1-003 ADD /MACRO=$DTKMSG FOR STARLETSD. TS 30-JUL-1986/ ! 1-002 ADD DTK$_TLKINUSE. TS 10-APR-1986% ! 1-001 ORIGINAL. TS 6-AUG-1985 ! - ! +C ! S mYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! DTK$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PRnOGRAMMING: !  ! THE MACROS CALL: !  ! $DTKDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -) ! TEMPLATE FOR DOCUMENTING MESSAGES.= ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND# ! IS FOLLOWED BY A BLANK LINE.K ! BE SURE NOT TO USE THE SEQUENCE "++" AFTER A "?" IN RoEGULAR COMMENTSB ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE= ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE' ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: DTK ! EXPLANATION: X ! USER ACTION: Y ! --# ! ; SET LH TO 419 (DECIMAL)./ DECLARE LONG CONSTANT DTK$_FACILITY = 4192 DECLARE LONG CONSTANT DTK$_NORMAL = 27492353 ! ++ ! FACILITY: DTK1 ! EXPLANATION: NORMAL SUCCESSFUL COMPLETION. p ! USER ACTION: NONE ! --5 DECLARE LONG CONSTANT DTK$_VOIALREXI = 27492369 ! ++ ! FACILITY: DTKH ! EXPLANATION: A USER TRIED TO CREATE A NEW VOICE_ID FOR A DECTALK ; ! DEVICE, WHEN ONE ALREADY EXISTS. THIS IS NORMAL IN5 ! A MODULAR ENVIRONMENT. THE EXISTING VOICE ID ! IS RETURNED.? ! USER ACTION: NONE. MAKE SURE YOU DON'T DELETE A VOICE_ID( ! THAT YOU ACTUALLY DIDN'T CREATE. ! --5 DECLARE LONG CONSTANT DTK$_NOT_A_TRM = 27492q377 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT, ! THE OUTPUT DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! -- ! +> ! NOTE:: DO NOT ADD ANY ADDITIONAL SUCCESS MESSAGES HERE.= ! ADD THEM BELOW AFTER THE REMAINING .SUCCESS MESSAGES. ! -0 DECLARE LONG CONSTANT DTK$_BUSY = 27492387 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE% ! r NUMBER AND THE LINE WAS BUSY.& ! USER ACTION: TRY CALLING AGAIN. ! --4 DECLARE LONG CONSTANT DTK$_NOANSWER = 27492395 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE, ! NUMBER AND NO ONE ANSWERED THE CALL.& ! USER ACTION: TRY CALLING AGAIN. ! --5 DECLARE LONG CONSTANT DTK$_NODIATONE = 27492403 ! ++ ! FACILITY: DTKI ! EXPLANATION: THE ROUTINE DTK$DIAL_PHONE WAS CALLED TO DIAL A PHONE3s ! NUMBER AND NO DIAL TONE WAS DETECTED ON THE ! PHONE LINE. F ! USER ACTION: CORRECT THE TELEPHONE LINE PROBLEM AND CALL AGAIN. ! --3 DECLARE LONG CONSTANT DTK$_OFFHOOK = 27492411 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT0 ! THE PHONE IS OFFHOOK (A CALL IS ACTIVE). ! USER ACTION: NONE. ! --2 DECLARE LONG CONSTANT DTK$_ONHOOK = 27492419 ! ++ ! FACILITY: DTKE ! EXPLANATItON: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT0 ! THE PHONE IS ONHOOK (NO CALL IS ACTIVE). ! USER ACTION: NONE. ! --3 DECLARE LONG CONSTANT DTK$_TIMEOUT = 27492427 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT( ! THE OUTPUT DEVICE HAS TIMED OUT. ! USER ACTION: NONE. ! --0 DECLARE LONG CONSTANT DTK$_WINK = 27492435 ! ++ ! FACILITY: DTKA ! EXPLANATION: A WINK (POSSIBLE TIMEOuUT) WAS DETECTED ON THE; ! PHONE LINE. THE CALLER MAY HAVE HUNG UP THE PHONE. ! USER ACTION: NONE. ! --3 DECLARE LONG CONSTANT DTK$_COMFAIL = 27492443 ! ++ ! FACILITY: DTKH ! EXPLANATION: A COMMUNICATIONS MALFUNCTION HAS OCCURRED SINCE THE # ! DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_INPBUFOVR = 27492451 ! ++ ! FACILITY: DTKL ! EXPLANATION: AN INPUT BUFFEvR OVERFLOW MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_NVROPRFAI = 27492459 ! ++ ! FACILITY: DTK? ! EXPLANATION: A NVR OPERATION FAILURE HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_ERRPHOTRA = 27492467 ! ++ ! FACILITY: DTKL ! EXPLANATI wON: A PHONEMIC TRANSCRIPTION MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_CONSEQERR = 27492475 ! ++ ! FACILITY: DTKG ! EXPLANATION: A DECTALK PRIVATE CONTROL SEQUENCE MALFUNCTION HAS 6 ! OCCURRED SINCE THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_DECTSTFAI = 27492483 ! ++x ! FACILITY: DTKE ! EXPLANATION: A LOCAL SELF-TEST MALFUNCTION HAS OCCURRED SINCE ' ! THE DECTALK UNIT WAS TURNED ON./ ! USER ACTION: CHECK THE DECTALK HARDWARE. ! --5 DECLARE LONG CONSTANT DTK$_FATERRLIB = 27492868 ! ++ ! FACILITY: DTK= ! EXPLANATION: AN INTERNAL ERROR HAS OCCURED WITHIN DTK.9 ! USER ACTION: SUBMIT AN SPR DESCRIBING THE PROBLEM. ! --5 DECLARE LONG CONSTANT DTK$_FILTOOLON = 27492876 ! ++ ! FACILITY: DTK y6 ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.C ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE' ! NAME OF 255 CHARACTERS OR LESS. ! --2 DECLARE LONG CONSTANT DTK$_INVARG = 27492884 ! ++ ! FACILITY: DTKK ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.A ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --3 DECLARE zLONG CONSTANT DTK$_INVMODE = 27492892 ! ++ ! FACILITY: DTKA ! EXPLANATION: THE VALUE OF THE MODE ARGUMENT IS NOT IN THE  ! CORRECT RANGE.; ! USER ACTION: EXAMINE THE ARGUMENT. DETERMINE WHAT IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --5 DECLARE LONG CONSTANT DTK$_INVVOI_ID = 27492900 ! ++ ! FACILITY: DTK6 ! EXPLANATION: AN INVALID VOICE-ID WAS SPECIFIED.H ! USER ACTION: CHECK THAT YOU ARE PASSING THE VOICE ID BY REFERENCE2 {! NOT BY VALUE. ENSURE THAT THE VOICE ID WAS6 ! PREVIOUSLY SET UP BY A CALL TO DTK$INITIALIZE. ! --2 DECLARE LONG CONSTANT DTK$_NOROOM = 27492908 ! ++ ! FACILITY: DTKD ! EXPLANATION: THERE IS NO ROOM LEFT IN THE DICTIONARY FOR THIS ! DEFINITION.C ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS FEWER < ! DICTIONARY ENTRIES OR SO THAT EACH ENTRY IS SMALLER. ! --2 DECLARE LONG CONSTANT DTK$_NOTIMP = 27492916 ! ++ ! FACIL|ITY: DTKF ! EXPLANATION: YOU TRIED TO USE A FEATURE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF DTK$.8 ! USER ACTION: GET THE APPROPRIATE VERSION OF DTK$. ! --5 DECLARE LONG CONSTANT DTK$_PROTOOLON = 27492924 ! ++ ! FACILITY: DTKJ ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.A ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --5 DECLARE LONG CONSTANT DTK$_STRTERESC = 27492932 ! ++ ! FACILIT }Y: DTKH ! EXPLANATION: AN DTK OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE( ! EMBEDDED IN THE OUTPUT STRING. E ! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE: ! SEQUENCE WAS BEING PASSED. IF YOU NEED THE ACTION7 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST> ! LIKELY A DTK ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --3 DECLARE LONG CONSTANT DTK$_TOOLONG = 27492940 ! ++ ! FACILITY: DTKD ! EXPLANATION: THE LENGTH O~F THE SPECIFIED STRING WAS TOO LONG.K ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A PHONE NUMBER= ! OR DICTIONARY SUBSTITUTION OF 255 CHARACTERS OR LESS. ! --5 DECLARE LONG CONSTANT DTK$_UNKESCSEQ = 27492948 ! ++ ! FACILITY: DTKF ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE) ! THAT IT WAS UNABLE TO UNDERSTAND. ! USER ACTION: ???? ! --4 DECLARE LONG CONSTANT DTK$_UNKREPLY = 27492956 ! ++ ! FACIL ITY: DTKF ! EXPLANATION: A DTK INPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE* ! THAT IT COULD NOT PARSE CORRECTLY. ! USER ACTION: ???? ! --5 DECLARE LONG CONSTANT DTK$_WRONUMARG = 27492964 ! ++ ! FACILITY: DTKC ! EXPLANATION: A DTK ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS4 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH' ! THE PROPER NUMBER OF ARGUMENTS. ! --4 DECLARE LONG CONSTANT DTK$_TLKINUSE = 27492972 ! ++ ! FACILITY: DTK@ ! EXPLANATION: A DTK ROUTINE WAS CALLED FROM AN AST ROUTINE4 ! THAT INTERRUPTED A DTK ROUTINE WITH THE SAME ! VOICE_ID.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH# ! THE PROPER SYNCHRONIZATION. ! --5 DECLARE LONG CONSTANT DTK$_NOTLCLTRM = 27492980 ! ++ ! FACILITY: DTK> ! EXPLANATION: THE OUTPUT DEVICE IS NOT A TERMINAL ON THE ! LOCAL VMS NODE.4 ! USER ACTION: SPECIFY A LOCAL TERMINAL DEVICE. ! --5 DECLARE LONG CONSTANT DTK$_NOMALFUN1 = 27494401 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK5 ! UNIT WAS TURNED ON. THIS IS THE FIRST REPLY. ! USER ACTION: NONE. ! --5 DECLARE LONG CONSTANT DTK$_NOMALFUN2 = 27494409 ! ++ ! FACILITY: DTKE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! NO MALFUNCTIONS HAVE OCCURRED SINCE THE DECTALK? ! UNIT WAS TURNED ON. THIS IS THE SECOND OR LATER REPLY. ! USER ACTION: NONE. ! --wwOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! EDT Editor (EDT) Routines !  !  ! EDT$EDIT - Edit a file ! Q ! status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] 8 ! [,fileio] [,workio] [,xlate] ) ! + ! in_file - Input file specification, ! out_file - Output file specification5 ! com_file - Startup command file specification- ! jou_file - Journal file specification- ! options - Options for edit operation= ! fileio - Bound procedure value for file I/O routine> ! workio - Bound procedure value for work I/O routine : ! xlate - Bound procedure value for XLATE routine ! ( EXTERNAL LONG FUNCTI ON EDT$EDIT & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &) OPTIONAL ANY BY REF, &! ANY BY REF, & ANY BY REF & )wwOV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! . ! File Definition Language (FDL) Routines ! A ! Note - FDL routines accept only class S string descriptors !  ! ! ! FDL$CREATE - Create a file ! @ ! status = FDL$CREATE (fdl_desc [,filename] [,default_name]@ ! [,result_name] [,fid_block] [,flags]@ ! [,stmnt_num] [,retlen] [,sts] [,stv] ! [,dflt-fdl-spc] ! E ! fdl_desc - Name of file or string containg FDL statements1 ! filename - Name of file to be created* ! default_name - Default name string3 ! result_name - Receives resultant file name7 ! fid_block - Receives file ID of created file2 ! fl ags - Flags controlling operation< ! stmt_num - Receives number of statement in error5 ! retlen - Receives length of result_name- ! sts - Receives RMS STS value- ! stv - Receives RMS STV valueO ! dflt-fdl-spc - Name of file or string containing default FDL statements* EXTERNAL LONG FUNCTION FDL$CREATE & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &%  STRING BY DESC, &% STRING BY DESC, &' LONG DIM() BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! ? ! FDL$GENERATE - Generate an FDL specification from a file ! = ! status = FDL$GENERATE (flags, fab_pointer, rab_pointer? !  [,fdl_file_dst] [,fdl_file_resnam]3 ! [,fdl_str_dst] [,bad_blk_addr] [,retlen]) ! 5 ! flags - Flags controlling operation. ! fab_pointer - Address of FAB block. ! rab_pointer - Address of RAB block8 ! fdl_file_dst - Name of FDL file to be created= ! fdl_file_resnam - Receives resultant name of FDL file- ! fdl_str_dst - Receives FDL string? ! bad_blk_addr - Receives address of invalid RMS blockK ! retlen - Receives length of fdl_file_resnam or fdl_str_dst ! , EXTERNAL LONG FUNCTION FDL$GENERATE & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! - ! FDL$PARSE - Parse an FDL specification ! F ! status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer A ! [,flags] [,dflt_fdl_spec] [,stmt_num]) ! E ! fdl_spec - Name of FDL file or FDL string to be parsed9 ! fdl_fab_pointer - Receives address of created FAB9 ! fdl_rab_pointer - Receives address of created RAB5 ! flags - Flags controlling operationH ! dflt_fdl_spec - Name of default FDL file or default FDL string? ! stmt_num - Receives number of statement in error ! ) EXTERNAL LONG FUNCTION FDL$PARSE & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! ( ! FDL$RELEASE - Release FDL context ! B ! status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags], ! [,badblk_addr]) ! 6 ! fab_pointer - Address of FAB to be deallocated6 ! rab_pointer - Address of RAB to be deallocated1 ! flags - Flags controlling operation: ! badblk_addr - Recives address of invalid RMS block ! + EXTERNAL LONG FUNCTION FDL$RELEASE & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF &  )ww9OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:45.93 !  !  ! VERSION: 'X-4' ! R ! ************************************************************** ************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! % ! FACILITY: VAX-11 FDL UTILITIES !  ! ENVIRONMENT: ! ! VAX/VMS OPERATING SYSTEM !  ! ABSTRACT: ! FDL ERROR MESSAGES !  !  ! -- ! : ! AUTHOR: KEITH B THOMPSON CREATION DATE: AUGUST-1980 !  !  ! MODIFIED BY: ! ) ! X-4 BP BOB PREMOVICH 22-JUL-19980 ! MERGE IN OPENVMS ALPHA RAVEN_FT3 CHANGE: ! , ! X-4 BP026 BOB PREMOVICH 28-MAY-1998< ! CREATE LITERAL MESSAGE VALUES FOR THE MESSAGES THAT 8 ! WERE UTILIZING THE $SHR_MSGDEF MACRO. THIS IS TO: ! FACILITATE THE MOVE OF THE MESSAGES TO THE STARLET ! FACILITY. ! 0 ! X-3 SBL1003 STEVEN B. LIONEL 13-DEC-1991$ ! SET MACRO NAME TO $FDMLSGDEF ! / ! X-2 RNM0063 RUSSELL MURRAY 13-APR-1988> ! ADD TAGGED FILE SUPPORT. ADD MESSAGE FDL$_UNKNOWN_TAG ! 2 ! V03-004 KFH0003 KEN HENDERSON 21 DEC 1982( ! REWORDED "key word" TO "keyword" ! 2 ! V03-003 KFH0002 KEN HENDERSON 22-NOV-1982, ! REWORDED "on line" TO "in statement" ! 2 ! V03-002 KFH0001 KEN HENDERSON 25-OCT-1982 ! ADDED INVBLK MESSAGE ! 3 ! V03-001 KBT0033 KEITH THOMPSON 31-MAR-1982 ! ADD INVDATIM MESSAGE ! ! ****/ DECLARE LONG CONSTANT FDL$_FACILITY = 180W DECLARE LONG CONSTANT FDL$_BADLOGIC = 11800866 ! Z DECLARE LONG CONSTANT FDL$_CLOSEIN = 11800658 ! /FAO=1\ DECLARE LONG CONSTANT FDL$_CLOSEOUT = 11800666 ! /FAO=1K DECLARE LONG CONSTANT FDL$_CREATED = 11800691 ! /FAO=1h DECLARE LONG CONSTANT FDL$_CREATEDSTM = 11801339 ! /FAO=1V DECLARE LONG CONSTANT FDL$_INSVIRMEM = 11801330 ! Y DECLARE LONG CONSTANT FDL$_OPENIN = 11800730 ! /FAO=1[ DECLARE LONG CONSTANT FDL$_OPENOUT = 11800738 ! /FAO=1Q DECLARE LONG CONSTANT FDL$_READERR = 11800754 ! /FAO=1] DECLARE LONG CONSTANT FDL$_VALERR = 11801066 ! R DECLARE LONG CONSTANT FDL$_WRITEERR = 11800786 ! /FAO=1, DECLARE LONG CONSTANT FDL$_FAO_MAX = 51 DECLARE LONG CONSTANT FDL$_TITLE = 118292590 DECLARE LONG CONSTANT FDL$_ABKW = 118292644 DECLARE LONG CONSTANT FDL$_INVDATIM = 118292722 DECLARE LONG CONSTANT FDL$_MULSEC = 118292802 DECLARE LONG CONSTANT FDL$_NOQUAL = 118292883 DECLARE LONG CONSTANT FDL$_NULLPRI = 118292961 DECLARE LONG CONSTANT FDL$_RFLOC = 118293042 DECLARE LONG CONSTANT FDL$_VALPRI = 118293123  DECLARE LONG CONSTANT FDL$_UNQUAKW = 118293203 DECLARE LONG CONSTANT FDL$_UNSECKW = 118293283 DECLARE LONG CONSTANT FDL$_WARNING = 118293363 DECLARE LONG CONSTANT FDL$_ABPRIKW = 118293462 DECLARE LONG CONSTANT FDL$_CREATE = 118293544 DECLARE LONG CONSTANT FDL$_FDLERROR = 118293623 DECLARE LONG CONSTANT FDL$_ILL_ARG = 118293702 DECLARE LONG CONSTANT FDL$_MULPRI = 118293783 DECLARE LONG CONSTANT FDL$_OPENFDL = 118293864 DECLARE LONG CONSTANT FDL$_OUTORDER = 118293942 DECLARE LONG CONSTANT FDL$_SYNTAX = 118294023 DECLARE LONG CONSTANT FDL$_UNPRIKW = 118294102 DECLARE LONG CONSTANT FDL$_INVBLK = 118294187 DECLARE LONG CONSTANT FDL$_UNKNOWN_TAG = 11829426ww@OV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:24.11 !  ! R ! **************************************************************************** ! *  *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1993 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PRO VIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! > ! 1-014 - ADD ERRORS 17-19 FOR NAMELIST. SBL 10-NOV-1980: ! 1-015 - CORRECT TYPO IN TOOMANVAL. SBL 15-DEC-1980S ! 1-016 - RESTORE CLOSING BRACKET ON OPEDEFREQ, MYSTERIOUSLY DROPPED IN 1-015. ! SBL 6-JAN-1981Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FOR MAT. ADAPTED FROM FORMSG.MDL( ! VERSION 1-016. SBL 22-APR-1981I ! 2-002 - ADD UNFIO_FMT, FMTIO_UNF, DIRIO_KEY, SEQIO_DIR, KEYIO_DIR,: ! IO_NONFOR, INVTXTREC, FLOUNDEXC. JAW 23-AUG-1981> ! 2-003 - CHANGE INVTXTREC TO INVTEXREC. JAW 24-AUG-1981V ! 2-004 - ADD INVTEX WHICH DOES NOT REQUIRE A RECORD NUMBER. THIS IS FOR INDEXEDT ! AND INTERNAL FILES THAT DO NOT HAVE A VALID RECORD NUMBER. DGP 21-DEC-1981+ ! 2-005 - ADD .TITLE. SBL 28-AUG-1982; ! 2-006  - ADD OPEREQDIS AND OPEREQSEQ. SBL 2-JUN-19837 ! 2-007 - ADD ULTRIX SPECIFIC ERRORS AND WARNINGS./ ! 2-008 - ADD INVMATKEY. DJM 14-SEP-1987.5 ! 2-009 - ADD FORRTL2 MESSAGES. CHH 22-SEP-1987# ! X-4 STEVE LIONEL 16-OCT-1989 ! ADD SUBPRCDEL,UNAWAKSUB+ ! X-5 SBL1001 22-OCT-1991 STEVE LIONEL ! ADD FOR$_VECALIGNEXC0 ! X-6 SBL6100 STEVEN B. LIONEL 15-MAR-1993 ! ADD FLOCONFAI ! -- ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! FOR$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL:  !  ! $FORDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.; ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).C ! THESE SYMBOLS ARE DECLARED EXTERNAL BY THE RUN-TIME LIBRARY,D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -6 ! ; MAKE ALL ERRORS BE SEVERE (EXCEPT AS NOTED)6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE" ! ; SET LH TO 24 (DECIMAL).. DECLARE LONG CONSTANT FOR$_FACILITY = 24 4 DECLARE LONG CONSTANT FOR$_NOTFORSPE = 16056446 ! ; NEVER SIGNALED. USED ONLY AS A FORTRAN ERROR7 ! ; NUMBER FOR ERRSNS TO MEAN SOME OTHER FACILITY/ ! ; THAN FOR$ OR MTH$ DETECTED THE ERROR.1 DECLARE LONG CONSTANT FOR$_NOTIMP = 16056522 DECLARE LONG CONSTANT FOR$_IGNORED = 16056564 DECLARE LONG CONSTANT FOR$_IGNNOTDEL = 16056646 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE" ! ; SET LH TO 24 (DECIMAL).4 DECLARE LONG CONSTANT FOR$_SYN ERRNAM = 16057724 DECLARE LONG CONSTANT FOR$_TOOMANVAL = 16057804 DECLARE LONG CONSTANT FOR$_INVREFVAR = 16057881 DECLARE LONG CONSTANT FOR$_REWERR = 16057964 DECLARE LONG CONSTANT FOR$_DUPFILSPE = 16058044 DECLARE LONG CONSTANT FOR$_INPRECTOO = 16058121 DECLARE LONG CONSTANT FOR$_BACERR = 16058204 DECLARE LONG CONSTANT FOR$_ENDDURREA = 16058284 DECLARE LONG CONSTANT FOR$_RECNUMOUT = 16058364 DECLARE LONG CONSTANT FOR$_OPEDEFREQ = 16058444 DECLARE LONG CONSTANT FOR$_TOOMANREC = 16058521 DECLARE LONG CONSTANT FOR$_CLOERR = 16058604 DECLARE LONG CONSTANT FOR$_FILNOTFOU = 16058681 DECLARE LONG CONSTANT FOR$_OPEFAI = 16058764 DECLARE LONG CONSTANT FOR$_MIXFILACC = 16058844 DECLARE LONG CONSTANT FOR$_INVLOGUNI = 16058924 DECLARE LONG CONSTANT FOR$_ENDFILERR = 16059004 DECLARE LONG CONSTANT FOR$_UNIALROPE = 16059084 DECLARE LONG CONSTANT FOR$_SEGRECFOR = 16059164 DECLARE LONG CONSTANT FO R$_ATTACCNON = 16059244 DECLARE LONG CONSTANT FOR$_INCRECLEN = 16059324 DECLARE LONG CONSTANT FOR$_ERRDURWRI = 16059404 DECLARE LONG CONSTANT FOR$_ERRDURREA = 16059484 DECLARE LONG CONSTANT FOR$_RECIO_OPE = 16059564 DECLARE LONG CONSTANT FOR$_INSVIRMEM = 16059644 DECLARE LONG CONSTANT FOR$_NO_SUCDEV = 16059724 DECLARE LONG CONSTANT FOR$_FILNAMSPE = 16059804 DECLARE LONG CONSTANT FOR$_INCRECTYP = 16059884 DECLARE LONG CONSTANT FOR$_KEYVALERR = 16059 964 DECLARE LONG CONSTANT FOR$_INCOPECLO = 16060044 DECLARE LONG CONSTANT FOR$_WRIREAFIL = 16060124 DECLARE LONG CONSTANT FOR$_INVARGFOR = 16060204 DECLARE LONG CONSTANT FOR$_INVKEYSPE = 16060284 DECLARE LONG CONSTANT FOR$_INCKEYCHG = 16060364 DECLARE LONG CONSTANT FOR$_INCFILORG = 16060444 DECLARE LONG CONSTANT FOR$_SPERECLOC = 16060524 DECLARE LONG CONSTANT FOR$_NO_CURREC = 16060604 DECLARE LONG CONSTANT FOR$_REWRITERR = 16060681 DECLARE LO NG CONSTANT FOR$_DELERR = 16060761 DECLARE LONG CONSTANT FOR$_UNLERR = 16060841 DECLARE LONG CONSTANT FOR$_FINERR = 16060924 DECLARE LONG CONSTANT FOR$_MORONEREC = 16058524 DECLARE LONG CONSTANT FOR$_ATTREANON = 16059246 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE4 DECLARE LONG CONSTANT FOR$_LISIO_SYN = 16061084 DECLARE LONG CONSTANT FOR$_INFFORLOO = 16061164 DECLARE LONG CONSTANT FOR$_FORVARMIS = 16061244 DECLARE LONG CONSTANT FOR$_SYNERRF OR = 1606132B ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE ERROR (NOT SEVERE)4 DECLARE LONG CONSTANT FOR$_OUTCONERR = 16061386 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE4 DECLARE LONG CONSTANT FOR$_INPCONERR = 16061486 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE4 DECLARE LONG CONSTANT FOR$_OUTSTAOVE = 16061644 DECLARE LONG CONSTANT FOR$_INPSTAREQ = 16061724 DECLARE LONG CONSTANT FOR$_VFEVALERR = 16061806 ! ; SET SUB-SYSTEM SPECIFIC BIT AND  MAKE SEVERE4 DECLARE LONG CONSTANT FOR$_ADJARRDIM = 16063804 DECLARE LONG CONSTANT FOR$_INVMATKEY = 16063884 DECLARE LONG CONSTANT FOR$_FLOCONFAI = 1606394 ! **********I ! THE FOLLOWING MESSAGES ARE SECONDARY MESSAGES, OR ARE USED ONLY INI ! EXIT HANDLERS, AND THEREFORE DO NOT NEED TO BE (AND SHOULD NOT BE)* ! CONTIGUOUS WITH THE MESSAGES ABOVE.M ! THE NEXT SIX MESSAGES ARE SECONDARY MESSAGES FOR USE WITH MIXFILACC IN ! FOR$$IO_BEG AND FOR$$CB.4  DECLARE LONG CONSTANT FOR$_UNFIO_FMT = 16076844 DECLARE LONG CONSTANT FOR$_FMTIO_UNF = 16076924 DECLARE LONG CONSTANT FOR$_DIRIO_KEY = 16077004 DECLARE LONG CONSTANT FOR$_SEQIO_DIR = 16077084 DECLARE LONG CONSTANT FOR$_KEYIO_DIR = 16077164 DECLARE LONG CONSTANT FOR$_IO_NONFOR = 1607724M ! THE NEXT TWO MESSAGES ARE SECONDARY MESSAGES FOR USE WITH INPCONERR IN# ! FOR$$UDF_WF AND FOR$$UDF_WL.4 DECLARE LONG CONSTANT FOR$_INVTEXREC = 16077321 DECL ARE LONG CONSTANT FOR$_INVTEX = 1607740$ ! ADDITIONAL SECONDARY MESSAGES4 DECLARE LONG CONSTANT FOR$_OPEREQDIS = 16077484 DECLARE LONG CONSTANT FOR$_OPEREQSEQ = 1607756L ! THE NEXT MESSAGES ARE PRIMARY MESSAGES USED IN THE EXIT HANDLER WHICH: ! IS DECLARED BY FOR$HANDLER OR FOR$VECALIGN_HANDLER.4 DECLARE LONG CONSTANT FOR$_FLOUNDEXC = 16080356 DECLARE LONG CONSTANT FOR$_VECALIGNEXC = 1608043 ! END OF SPECIAL MESSAGES ! ********** ! ********** D ! THE FOLLOWING MESSAGES ARE MESSAGES ISSUED FROM FORRTL2, THE 9 ! VAX FORTRAN V5.0 PARALLEL PROCESSING RTL SUPPORT.  ! 4 DECLARE LONG CONSTANT FOR$_FATINTERR = 16097325 DECLARE LONG CONSTANT FOR$_SUBPRCDIED = 16097404 DECLARE LONG CONSTANT FOR$_NOTIMPRET = 16097485 DECLARE LONG CONSTANT FOR$_FAIOWNERID = 16097563 DECLARE LONG CONSTANT FOR$_FAIPRCID = 16097645 DECLARE LONG CONSTANT FOR$_FAIPRCNAME = 16097724 DECLARE LONG CONSTANT FOR$_FAI ACTCPU = 16097803 DECLARE LONG CONSTANT FOR$_FAIIDPRC = 16097886 DECLARE LONG CONSTANT FOR$_FAIIMAGNAME = 16097965 DECLARE LONG CONSTANT FOR$_FAIDCLEXIT = 16098044 DECLARE LONG CONSTANT FOR$_FAISUBPRC = 16098124 DECLARE LONG CONSTANT FOR$_INVNUMPRC = 16098204 DECLARE LONG CONSTANT FOR$_MEMSHRERR = 16098286 DECLARE LONG CONSTANT FOR$_LOCALSHRERR = 16098366 DECLARE LONG CONSTANT FOR$_LOCALACCESS = 16098444 DECLARE LONG CONSTANT FOR$_INVLCLADR = 160 98524 DECLARE LONG CONSTANT FOR$_COMSHRERR = 16098604 DECLARE LONG CONSTANT FOR$_INVCOMADR = 16098685 DECLARE LONG CONSTANT FOR$_PARINITERR = 16098766 DECLARE LONG CONSTANT FOR$_STACKSHRERR = 16098846 DECLARE LONG CONSTANT FOR$_FAISHRSTACK = 16098924 DECLARE LONG CONSTANT FOR$_INVUNWIND = 16099004 DECLARE LONG CONSTANT FOR$_STKBUFOVR = 16099084 DECLARE LONG CONSTANT FOR$_SUBPRCDEL = 16099165 DECLARE LONG CONSTANT FOR$_ASSERTFAIL = 16099244 DECLARE LONG CONSTANT FOR$_INVLOGNAM = 16117784 DECLARE LONG CONSTANT FOR$_TOOMANPRC = 16117866 DECLARE LONG CONSTANT FOR$_INVDSTRSIZE = 16117945 DECLARE LONG CONSTANT FOR$_DEFVALUSED = 16158755 DECLARE LONG CONSTANT FOR$_UNIPROCESS = 16158834 DECLARE LONG CONSTANT FOR$_NOPARINIT = 16158915 DECLARE LONG CONSTANT FOR$_NOTRUNINPP = 16158995 DECLARE LONG CONSTANT FOR$_NESTPPLOOP = 1615907P DECLARE LONG CONSTANT FOR$_UNAWAKSUB = 1615915 ! END OF FORRTL2 MESSAGES ! **********ww`4}PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:18.51 !  !  ! VERSION: 'X-4' ! R ! ************************************************************** ************** ! * *? ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1990 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * C OPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *% ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! MODIFIED BY: ! 2 ! X-4 DJS DAVID J. SWEENEY 16-FEB-2001B ! ADD NOTIMZONRUL TO BE SIGNALLED WHEN THE SYS$TIMEZONE_RULEC ! LOGICAL IS NOT DEFINED, MEANING DAYLIGHT SAVINGS TIME CLOCK$ ! ADJUSTMENT WILL NOT BE MADE. ! G !  X-3 LAD LORI A. DESMARAIS 03-JUN-1993N ! ADD ACCNOTENB, TO BE USED WHEN ACCOUNTING IS DISABLED AND6 ! SJC$_NEW_VERSION ITEM IS PRESENT. ! . ! X-2 RAB RICHARD A. BISHOP 19-MAY-1992- ! PICK UP QMANABORT MESSAGE FROM BLADE: ! , ! X-18 TNF0319 TODD FLOLO 12 FEB 1992G ! ADD QMANABORT, DENOTING THAT A REQUEST CAUSED THE QUEUE MANAGER ! TO ABORT. !  ! OLD AUDIT TRAIL..... ! / ! X-17 RG40209 RAY GUZMAN 11-NOV-1991F ! ADD THREE NEW MESSAGES TO RETURN TO THE USER. QMGREXISTS ISF ! RETURNED WHEN AN ATTEMPT TO ADD A QUEUE MANAGER NAME THAT ISF ! ALREADY DEFINED IS MADE. TWOQMGRS IS RETURNED WHEN A REQUESTF ! IS MADE THAT WOULD REQUIRE INFORMATION FROM TWO DIFFERENTF ! QUEUE MANAGERS. INVQMANNAM IS RETURNED FOR INVALIDE QUEUEH ! MANAGER NAMES. NOMOREQMGR IS RETURNED DURING WILDCARD SEARCHES. ! / ! X-16 RG 40126 RAY GUZMAN 4-APR-1991F ! MODIFY THE TEXT OF TWO MESSAGES INVMSG, NOAUTOSTART ?F ! QUEDISABLED. ALSO REMOVE BADMSG, NOMASTER, ? BADLOCK FROMF ! THIS FILE SINCE THEY ARE NO LONGER USEFUL AND NEVER WENT WITHF ! ANY SHIPPED RELEASE. ALSO ADD FAILCREPRC TO THE LIST OF! ! MESSAGES TO BE SIGNALLED. ! / ! X-15 RG40063 RAY GUZMAN 8-FEB-1991F ! ADD TWO NEW MESSAGES ONE FOR UNEXPECTED QUEUE MANAGER FAILURES8 ! AND ANOTHER FOR RESOLVING LOST DELPROC MESSAGES. ! / ! X-14 RG40052 RAY GUZMAN 22-JAN-19916 ! MODIFY JBC$_NOTSUPPORTED TO BE A SEVERE ERROR. ! / ! X-13 RG40043 RAY GUZMAN 11-JAN-1991F ! ADD BUFTOOSMALL TO INDICATE THAT ALL THE DESIRED DATA COULDF ! NOT BE RETURNED BECAUSE OF A LIMITTED BUFFER SIZE. ALSO ADDF ! QMANNOTSTARTED TO INDICATE THAT THE QUEUE MANAGER COULD NOT BE ! STARTED. ! 0 ! X-12 SEH0032 SUSAN HEIMBACH 6-SEP-1990, ! MODIFY NOTSUPPORTED AND TOOMUCHINFO./ ! ADD INITFAIL AND NOMASTER. ! 0 ! X-11 SEH0020 SUSAN HEIMBACH 12-OCT-1989# ! ADD MESSAGES FOR VERSION 6. ! + ! X-10 JAK0579 J A KRYCKA 18-NOV-1987 ! ADD MESSAGE JOBCTLABORT. ! , ! X-9 JES0038 JACK SPEIGHT 07-JAN-1987. ! ADD NEW ERRORS - NOSUCHENT, NOMOREENT. ! / ! X-8 JES0037 JACK SPEIGHT 23-OCT-19869 ! FIX ERROR NFYQUESTATE TO ALLOW A PARAMETER, WHERE7 ! THAT PARAMETER WILL BE USED TO SPECIFY A NUMBER7 ! OF QUEUE STATES - STALLED, STOPPED, PAUSED ETC. ! , ! X-7 JES0036 JACK SPEIGHT 08-SEP-19868 ! ADD NEW MESSAGES FOR VERSION 5.0 - BASE LEVEL 1. ! 0 ! V04-007 JES0035 JACK SPEIGHT 04-OCT-1985( ! CHANGE TEXT FOR JBC$_NOSUCHNODE. ! 0 ! V04-006 JES0034 JACK SPEIGHT 05-SEP-1985- ! ADD JBC$_NOSUCHNODE, JBC$_RESTARTCOM. ! . ! V04-005 JAK0407 J A KRYCKA 29-APR-1985D ! MOVE JBC$_NOCMKRNL , JBC$_NOOPER, AND JBC$_SYSNAM DEFINITIONS ! HERE FROM JOBCTLDEF.REQ. ! . ! V04-004 JAK0405 J A KRYCKA 26-APR-1985> ! ADD JBC$_NOMORECHAR, JBC$_NOMOREFILE, JBC$_NOMOREFORM,H ! JBC$_NOMOREJOB, JBC$_NOMOREQUE, JBC$_NOJOBCTX, AND JBC$_NOQUECTX ! MESSAGES. ! 0 ! V04-003 JES0033 JACK SPEIGHT 26-APR-1985A ! SPECIFY AN EXPLICIT SEVERITY LEVEL FOR EACH ERROR MESSAGE@ ! SO THAT THE DEFINITIONS HERE AGREE WITH WHAT IS ACTUALLYF ! RETURNED BY TH E JOB CONTROLLER IN THE USER'S I/O STATUS BLOCK.D ! PRIOR TO THIS CHANGE ALL NON-SUCCESS CODES WERE DEFINED HEREE ! WITH A SEVERITY LEVEL OF WARNING AND THE JOB CONTROLLER ADDEDC ! THE PROPER SEVERITY LEVEL. ALSO MAKE MINOR EDITS TO CERTAIN ! MESSAGE TEXT. ! 3 ! V04-002 JES0032 JACK SPEIGHT 03-APR-1985= ! ADD JBC$_RESTRICT, JBC$_NFY_FAILURE, JBC$_NFY_CPULIM,$ ! AND JBC$_NFY_WSVAL MESSAGES. ! 3 ! V04-001 JES0031 JACK SPEIGHT 15-MAR -1985$ ! ADD JBC$_QUENOTSTOP MESSAGE.- DECLARE LONG CONSTANT JBC$_FACILITY = 4 ! U ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB9 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. ! K ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. ! T ! NOTE: ERROR CODES WITH ASSOCIATED TEXT OF <> ARE RETIRED ERROR CODES AND HAVE" ! A SEVERITY LEVEL OF SEVERE. ! P DECLARE LONG CONSTANT JBC$_NORMAL = 262145 ! \ DECLARE LONG CONSTANT JBC$_NOCMKRNL = 272386 ! X DECLARE LONG CONSTANT JBC$_NOOPER = 272530 ! \ DECLARE LONG CONSTANT JBC$_NOSYSNAM = 272402 ! 3 DECLARE LONG CONSTANT JBC$_ILLDEVNAM = 2949163 DECLARE LONG CONSTANT JBC$_UNSDEVTYP = 2949243 DECLARE LONG CONSTANT JBC$_ILLFILNAM = 2949323 DECLARE LO NG CONSTANT JBC$_INVQUENAM = 2949400 DECLARE LONG CONSTANT JBC$_NOPRIV = 2949462 DECLARE LONG CONSTANT JBC$_NOQUEHDR = 2949564 DECLARE LONG CONSTANT JBC$_NOQUESPACE = 2949623 DECLARE LONG CONSTANT JBC$_NOSUCHQUE = 2949703 DECLARE LONG CONSTANT JBC$_NOSUCHJOB = 2949783 DECLARE LONG CONSTANT JBC$_NOOPENJOB = 2949864 DECLARE LONG CONSTANT JBC$_REFERENCED = 2949941 DECLARE LONG CONSTANT JBC$_STARTED = 2950023 DECLARE LONG CONSTANT JBC$_INVITMCOD =  2950123 DECLARE LONG CONSTANT JBC$_INVFUNCOD = 2950202 DECLARE LONG CONSTANT JBC$_EMPTYJOB = 2950263 DECLARE LONG CONSTANT JBC$_JOBQUEDIS = 2950342 DECLARE LONG CONSTANT JBC$_JOBABORT = 2950442 DECLARE LONG CONSTANT JBC$_ACMINVOP = 2950523 DECLARE LONG CONSTANT JBC$_INVPARLEN = 2950603 DECLARE LONG CONSTANT JBC$_TRMMBXUSE = 2950683 DECLARE LONG CONSTANT JBC$_MAXSYMEXD = 2950763 DECLARE LONG CONSTANT JBC$_SCTTABFUL = 2950843 DECLARE LO NG CONSTANT JBC$_CREPRCFAL = 2950923 DECLARE LONG CONSTANT JBC$_SYMNTBFUL = 2951002 DECLARE LONG CONSTANT JBC$_NODSTQUE = 2951063 DECLARE LONG CONSTANT JBC$_INVDSTQUE = 2951163 DECLARE LONG CONSTANT JBC$_JOBDELETE = 2951243 DECLARE LONG CONSTANT JBC$_NORESTART = 2951304 DECLARE LONG CONSTANT JBC$_JOBREQUEUE = 2951402 DECLARE LONG CONSTANT JBC$_QUERESET = 2951481 DECLARE LONG CONSTANT JBC$_SYSFAIL = 2951563 DECLARE LONG CONSTANT JBC$_EXECUTING  = 2951623 DECLARE LONG CONSTANT JBC$_INVMSGBUF = 2951723 DECLARE LONG CONSTANT JBC$_MISREQPAR = 2951803 DECLARE LONG CONSTANT JBC$_INVPARVAL = 2951883 DECLARE LONG CONSTANT JBC$_INCQUETYP = 2951963 DECLARE LONG CONSTANT JBC$_INCDSTQUE = 2952043 DECLARE LONG CONSTANT JBC$_JOBQUEENA = 2952103 DECLARE LONG CONSTANT JBC$_NOTASSIGN = 2952184 DECLARE LONG CONSTANT JBC$_INCOMPLETE = 2952263 DECLARE LONG CONSTANT JBC$_INVCHANAM = 2952363 DE CLARE LONG CONSTANT JBC$_INVFORNAM = 2952444 DECLARE LONG CONSTANT JBC$_NOSUCHCHAR = 2952504 DECLARE LONG CONSTANT JBC$_NOSUCHFORM = 2952581 DECLARE LONG CONSTANT JBC$_DUPFORM = 2952664 DECLARE LONG CONSTANT JBC$_INCFORMPAR = 2952764 DECLARE LONG CONSTANT JBC$_NOSUCHFILE = 2952823 DECLARE LONG CONSTANT JBC$_DELACCESS = 2952904 DECLARE LONG CONSTANT JBC$_QUENOTSTOP = 2952984 DECLARE LONG CONSTANT JBC$_NOMORECHAR = 2953064 DECLARE LONG CONSTANT JB C$_NOMOREFILE = 2953144 DECLARE LONG CONSTANT JBC$_NOMOREFORM = 2953223 DECLARE LONG CONSTANT JBC$_NOMOREJOB = 2953303 DECLARE LONG CONSTANT JBC$_NOMOREQUE = 2953382 DECLARE LONG CONSTANT JBC$_NOJOBCTX = 2953462 DECLARE LONG CONSTANT JBC$_NOQUECTX = 2953544 DECLARE LONG CONSTANT JBC$_NOSUCHNODE = 2953621 DECLARE LONG CONSTANT JBC$_GEN_MAX = 2953704 DECLARE LONG CONSTANT JBC$_QUE_CLOSED = 2953783 DECLARE LONG CONSTANT JBC$_NOSUCHENT = 2953863  DECLARE LONG CONSTANT JBC$_NOMOREENT = 2953945 DECLARE LONG CONSTANT JBC$_JOBCTLABORT = 2954046 DECLARE LONG CONSTANT JBC$_NOTSUPPORTED = 2954127 DECLARE LONG CONSTANT JBC$_NOTMEANINGFUL = 2954195 DECLARE LONG CONSTANT JBC$_QUEDISABLED = 2954265 DECLARE LONG CONSTANT JBC$_NOTDISABLED = 2954343 DECLARE LONG CONSTANT JBC$_NOTENAGEN = 2954423 DECLARE LONG CONSTANT JBC$_ENABLEQUE = 2954483 DECLARE LONG CONSTANT JBC$_QUENOTMOD = 2954591 DECL ARE LONG CONSTANT JBC$_ATT_MAX = 2954665 DECLARE LONG CONSTANT JBC$_ATTNOTAVAIL = 2954741 DECLARE LONG CONSTANT JBC$_QEXISTS = 2954824 DECLARE LONG CONSTANT JBC$_NOSUCHQMGR = 2954904 DECLARE LONG CONSTANT JBC$_JOBNOTEXEC = 2954985 DECLARE LONG CONSTANT JBC$_DUPCHARNAME = 2955064 DECLARE LONG CONSTANT JBC$_DUPCHARNUM = 2955145 DECLARE LONG CONSTANT JBC$_DUPFORMNAME = 2955226 DECLARE LONG CONSTANT JBC$_STKNOTCHANGE = 2955304 DECLARE LONG CONSTAN T JBC$_ITMREMOVED = 2955393 DECLARE LONG CONSTANT JBC$_PRIOSMALL = 2955471 DECLARE LONG CONSTANT JBC$_QMANMAX = 2955525 DECLARE LONG CONSTANT JBC$_NOAUTOSTART = 2955605 DECLARE LONG CONSTANT JBC$_NOTALLREQUE = 295568/ DECLARE LONG CONSTANT JBC$_NULL1 = 2955805 DECLARE LONG CONSTANT JBC$_TOOMUCHINFO = 2955866 DECLARE LONG CONSTANT JBC$_AUTONOTSTART = 295595/ DECLARE LONG CONSTANT JBC$_NULL2 = 2956028 DECLARE LONG CONSTANT JBC$_QMANNOTSTARTED = 2956105 DECLARE LONG CONSTANT JBC$_BUFTOOSMALL = 2956167 DECLARE LONG CONSTANT JBC$_INTERNALERROR = 2956244 DECLARE LONG CONSTANT JBC$_QMGREXISTS = 2956342 DECLARE LONG CONSTANT JBC$_TWOQMGRS = 2956424 DECLARE LONG CONSTANT JBC$_INVQMANNAM = 2956504 DECLARE LONG CONSTANT JBC$_NOMOREQMGR = 2956583 DECLARE LONG CONSTANT JBC$_QMANABORT = 295668 ! R ! THE FOLLOWING CODES ARE SIGNALLED TO THE CONSOLE OR BROADCAST TO THE USER'S& ! TERMINAL BY THE  JOB CONTROLLER. ! M ! THESE MESSAGES ARE NOT PUBLIC AND MAY CHANGE FROM RELEASE TO REALEASE. ! S ! NOTE: THE JOB CONTROLLER ABORTS EXECUTION AND RESTARTS ITSELF WHEN A SEVERE* ! ERROR IS SIGNALLED TO THE CONSOLE. ! 3 DECLARE LONG CONSTANT JBC$_ACCDISERR = 2959392 DECLARE LONG CONSTANT JBC$_ALLOCMEM = 2959483 DECLARE LONG CONSTANT JBC$_COMREMJBC = 2959562 DECLARE LONG CONSTANT JBC$_INVBLOCK = 2959640 DECLARE LONG CONSTANT JBC$_INVMSG = 2959702 DECLARE LONG CONSTANT JBC$_NEWQUEUE = 2959793 DECLARE LONG CONSTANT JBC$_OPEJBCMBX = 2959881 DECLARE LONG CONSTANT JBC$_PRCREAT = 2959963 DECLARE LONG CONSTANT JBC$_QUEFORMAT = 2960003 DECLARE LONG CONSTANT JBC$_REAJBCMBX = 2960121 DECLARE LONG CONSTANT JBC$_REQUEST = 2960190 DECLARE LONG CONSTANT JBC$_SETIMR = 2960263 DECLARE LONG CONSTANT JBC$_SYMCREPRC = 2960340 DECLARE LONG CONSTANT JBC$_SYMDEL = 2960423 DECLARE LONG CONSTAN T JBC$_WRIRSPMSG = 2960503 DECLARE LONG CONSTANT JBC$_WRISMBMBX = 2960586 DECLARE LONG CONSTANT JBC$_NFY_COMPLETE = 2960675 DECLARE LONG CONSTANT JBC$_NFY_CURRENT = 2960752 DECLARE LONG CONSTANT JBC$_NFY_HOLD = 2960835 DECLARE LONG CONSTANT JBC$_NFY_PENDING = 2960913 DECLARE LONG CONSTANT JBC$_NFY_TIMER = 2960996 DECLARE LONG CONSTANT JBC$_STRUCT_LEVEL = 2961074 DECLARE LONG CONSTANT JBC$_DIAGNOSTIC = 2961123 DECLARE LONG CONSTANT JBC$_DIAG_TE XT = 2961203 DECLARE LONG CONSTANT JBC$_DIAG_DATA = 2961282 DECLARE LONG CONSTANT JBC$_RESTRICT = 2961365 DECLARE LONG CONSTANT JBC$_NFY_FAILURE = 2961474 DECLARE LONG CONSTANT JBC$_NFY_CPULIM = 2961553 DECLARE LONG CONSTANT JBC$_NFY_WSVAL = 2961634 DECLARE LONG CONSTANT JBC$_RESTARTCOM = 2961716 DECLARE LONG CONSTANT JBC$_NFY_NOACCESS = 2961794 DECLARE LONG CONSTANT JBC$_NFY_CHARAC = 2961875 DECLARE LONG CONSTANT JBC$_NFY_NOLOWER = 2961956  DECLARE LONG CONSTANT JBC$_NFY_SIZE_MIN = 2962036 DECLARE LONG CONSTANT JBC$_NFY_SIZE_MAX = 2962112 DECLARE LONG CONSTANT JBC$_NFY_FORM = 2962196 DECLARE LONG CONSTANT JBC$_NFY_QUESTATE = 2962274 DECLARE LONG CONSTANT JBC$_FAILCREPRC = 2962344 DECLARE LONG CONSTANT JBC$_QMANCREPRC = 2962422 DECLARE LONG CONSTANT JBC$_INITFAIL = 2962521 DECLARE LONG CONSTANT JBC$_QMANDEL = 2962589 DECLARE LONG CONSTANT JBC$_NOTIMZONRUL = 296264 ! = ! THIS IS CONTINUATION OF THE FIRST PORTION OF MESSAGES.U ! THE FOLLOWING CODES ARE RETURNED BY THE $SNDJBC, $GETQUI, $SNDJBC, AND $SNDSMB9 ! SYSTEM SERVICES, OR PLACED IN THE ACCOUNTING FILE. ! K ! THESE VALUES ARE PUBLIC AND MUST NOT CHANGE FROM RELEASE TO RELEASE. ! 3 DECLARE LONG CONSTANT JBC$_ACCNOTENB = 298914wwgWPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:26:16.71 !  ! MODULE: LATMSG.MSG ! VERSION: 'V6.0-064' ! R ! ********************************** ****************************************** ! * *M ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1987, 1990-1995 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH IS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL A SSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! 1 ! V6.0-064 MICHAEL D. RASPUZZI 16-JAN-19950 ! ADD ERROR MESSAGE FOR INVALID PORT NAME. ! 1 ! V6.0-063 MICHAEL D. RASPUZZI 14-SEP-1994/ ! ADD ERROR MESSAGE FOR INVALID NODE UID. ! 1 !  V6.0-062 MICHAEL D. RASPUZZI 16-MAY-1994C ! ADD ERROR MESSAGES FOR NEW LAT RATING IMAGE. THIS MESSAGESC ! ARE USED TO INDICATE THE STATE OF THE LAT$RATING IMAGE. IT@ ! SHOULD BE LOADED CORRECTLY IF THE SYSTEM USED THE PROPERA ! LAT STARTUP. HOWEVER, WE ALL KNOW THAT PEOPLE LIKE TO DO ! THINGS THEIR OWN WAY ... ! 1 ! V05-061 MICHAEL D. RASPUZZI 22-FEB-1994B ! ADD NEW REJECT REASON FOR LTPAD. MATCHES DECSERVER REJECT& ! REASON FOR SAME FUNCTIONALITY. ! 1 ! V05-060 MICHAEL D. RASPUZZI 6-JAN-19949 ! ADD NEW CONNECT MESSAGE FOR LTPAD WHEN DISCONNECT ! CHARACTER IS DISABLED. ! 1 ! V05-059 MICHAEL D. RASPUZZI 30-AUG-1993: ! ADD NEW MESSAGE FOR INCOMPATIBLE PROTOCOL VERSION. ! 1 ! V05-058 MICHAEL D. RASPUZZI 3-MAY-19931 ! ADDED INCOMPATIBLE DRIVER/ACP ERROR CODE. ! 1 ! V05-057 MICHAEL D. RASPUZZI 16-APR-1993* ! ADD MORE CONNECT FAILURE MESSAGES.  ! 1 ! V05-056 MICHAEL D. RASPUZZI 8-SEP-1992, ! ADD MESSAGE FOR DELETING CONNECTION. ! 1 ! V05-055 MICHAEL D. RASPUZZI 28-AUG-1992: ! ADD INFORMATIONAL ERROR MESSAGE FOR LTPAD TO QUEUE! ! QUEUE POSITION REPORTING. ! 0 ! V05-54 MICHAEL D. RASPUZZI 19-AUG-1992B ! ADD ERROR MESSAGE WHEN ONE TRIES TO RUN LATACP IMPROPERLY. ! 0 ! V05-53 MICHAEL D. RASPUZZI 3-AUG-1992@ ! ADD INFORMATIONAL RETURN FOR LIMITED SERVICE CONNECTION. ! 0 ! V05-52 MICHAEL D. RASPUZZI 24-JUL-1992$ ! ADD "no active links" ERROR. ! 0 ! V05-51 MICHAEL D. RASPUZZI 13-JAN-1992% ! ADD MISSING LRJ REASON CODES. ! 0 ! V05-50 MICHAEL D. RASPUZZI 4-NOV-19919 ! ADD CONNECT SOLICIT CODE FOR REGULAR CONNECTIONS. ! 0 ! V05-49 MICHAEL D. RASPUZZI 5-SEP-1991> ! ADD LAN DRIVER ERROR MESSAGE SO LAT WON'T START IF VCI ! DRIVERS ARE ABSENT. ! 0 ! V05-48 MICHAEL D. RASPUZZI 19-JUN-1991A ! MAKE SDL MODULE NAME $LATMSGDEF TO PREVENT CONFLICTS WITH( ! REAL $LATDEF THAT IS IN STARLET. ! - ! V05-47 ERIC L. MERSHON 10-MAY-1991@ ! MAKE GRAMMATICAL CHANGE TO DRIVERNOTSHUT AS REQUESTED BY ! VMS DOC WRITER. ! - ! V05-46 ERIC L. MERSHON 4-APR-1991? ! MAKE COSMETIC CHANGES RECOMMENDED BY VMS DOCUMENTATION. ! 0 ! V05-45 MICHAEL D. RASPUZZI 8-MAR-1991+ ! ADD MESSAGE FOR X SOLICIT REQUESTS.  ! 0 ! V05-44 MICHAEL D. RASPUZZI 19-JAN-1991" ! ADD QUEUED ENTRY MESSAGES. ! 0 ! V05-43 MICHAEL D. RASPUZZI 31-DEC-1990B ! ADD CONNECTION MESSAGES AND CHANGE "server mode disabled". ! ' ! V05-42 SHOOU YIU 28-NOV-19902 ! ADD MESSAGE FOR LINK NAME THAT IS TOO LONG ! - ! V05-41 ERIC L. MERSHON 25-OCT-1990B ! REMOVE LNKOBS, SRVRSOBS, AND PRTOBS. ADD QUALOBS, CMDOBS. ! 0 ! V05-40 MICHAEL D. RASPUZZI 13-SEP-1990; ! ADD MESSAGES WHEN NODE IS SHUTTING DOWN OR INCOMING! ! CONNECTIONS ARE DISABLED. ! + ! V05-39 DAVID H. COOK 27-AUG-1990, ! ADD NODECNTRSONLY MSG FOR SENSEMODE. ! - ! V05-38 ERIC L. MERSHON 25-JUL-1990B ! ADD CONATMPT AND REMOVE CAPITILIZATION OF THE BEGINNING OF ! SOME MESSAGES. ! - ! V05-37 ERIC L. MERSHON 27-JUN-19908 ! REMOVE QUOTES FROM TODISCON, AND ADD CONFQUAVAL. ! - ! V05-36 ERIC L. MERSHON 13-JUN-1990+ ! ADD CNTRSOBS, SRVRSOBS, AND PRTOBS. ! - ! V05-35 ERIC L. MERSHON 15-MAY-1990 ! ADD DEFINEKEY. ! - ! V05-34 ERIC L. MERSHON 30-JAN-1990 ! ADD LNKOBS. ! - ! V05-33 ERIC L. MERSHON 12-JAN-1990? ! MODIFIED TODISCON TO ACCEPT AN FAO PARAMETER TO DISPLAY; ! USER'S CUSTOMIZED DISCONNECT CHARACTER (FOR LTPAD). ! 0 ! V05-32 MICHAEL D. RASPUZZI 9-JAN-1990! ! ADD DRIVERNOTSHUT MESSAGE ! - ! V05-31 JAMES F. CAHILL 15-NOV-19897 ! ADD NEWLOGNAME FOR CREATE PORT/LOG/LOGICAL_NAME ! 0 ! V05-30 MICHAEL D. RASPUZZI 16-OCT-1989= ! ADD VERMISMATCH SO WE CAN USE TO BUILD OLD COMPONENTS ! - ! V05-29 JAMES F. CAHILL 16-OCT-19895 ! ADD LATCP MESSAGES TO SUPPORT /LOG QUALIFIER. ! + ! V05-28 DAVID H. COOK 06-OCT-19895 ! ADD ACPNOCTL, ACPNOKSTK, ACPNOVIRT, NODLIMIT. ! + ! V05-27 DAVID H. COOK 18-SEP-19897 ! ADD NOMORENODS, NOMORESVCS, NOSELF, NOTOFFERED. ! + ! V05-26 DAVID H. COOK 04-AUG-1989 ! ADD ENTNOTFOU. ! - ! V05-25 JAMES F. CAHILL 24-JUL-1989 ! ADD CANTATTACH. ! 3 ! V05-24 ELM032 ERIC L. MERSHON 21-JUL-1989. ! CHANGED FAO PARAMETER OF END TO ASCID. ! 3 ! V05-23 ELM023 ERIC L. MERSHON 29-JUN-1989, ! REMOVED FAO ARGUMENTS FROM FAILOVER. ! - ! V05-22 JAMES F. CAHILL 21-JUN-1989 ! ADD CONTROLC.  ! 2 ! V05-21 ELM012 ERIC L. MERSHON 6-JUN-1989* ! REMOVED NORESP AND ADDED TODISCON. ! 1 ! V05-19 DHC002 DAVID H. COOK 30-MAY-1989' ! CREATE AN LAT SHUTDOWN MESSAGE. ! 3 ! V05-17 ELM011 ERIC L. MERSHON 23-MAY-1989> ! CHANGE CONNECTED TO HAVE A SEVERITY LEVEL INDICATOR OFA ! SUCCESS. ADD FLEXIBILITY TO SAME MESSAGE FOR CONNECTIONSD ! TO NODES WHICH HAVE THE SAME NAME AS THE SERVICE THEY OFFER. ! , ! V05-16 SY001 SHOOU YIU  16-MAY-1989- ! ADD MESSAGES USED BY LTDRIVER MODULES ! 3 ! V05-15 ELM010 ERIC L. MERSHON 16-MAY-1989A ! ADD REMAINING (HOPEFULLY) LAT REJECT CODES AND PWDPROMPT,C ! USED FOR PASSWORD PROMPTING ON PASSWORD PROTECTED SERVICES. ! . ! V05-014 JAMES F. CAHILL 2-MAY-1989A ! CHANGE SEVERITY OF REINITERR AND DRVERROR. RENAME NOTERMD ! TO NOTATERM TO AVOID CONFUSION WITH EXISING MESSAGE NOTERMS. ! 3 ! V05-013 ELM009 ERIC L. MERSHON  1-MAY-1989 ! ADD NOTERM MESSAGE. ! 4 ! V05-012 ELM008 ERIC L. MERSHON 28-APR-1989@ ! ADD CTRL/Y MESSAGE, AND REMOVE SECOND FAO ARGUMENTS FROM ! CONFAIL AND CONLOST. ! 4 ! V05-011 ELM007 ERIC L. MERSHON 18-APR-1989D ! ADD MESSAGES FOR LTPAD, AND CLEAN OUT MESSAGES INTENDED, BUT! ! NO LONGER NEEDED FOR DDE. ! . ! V05-010 JAMES F. CAHILL 10-APR-1989; ! CHANGE CMDERROR AND INVCMD FROM ERRORS TO WARNINGS. ! . ! V05-009 JAMES F. CAHILL 9-MAR-1989< ! SHARED MESSAGE INVCMD NOT FOUND, SO ADD LAT$_INVCMD. ! . ! V05-008 JAMES F. CAHILL 9-MAR-1989( ! ADD OUTOFRANGE, REMOVE PRSERROR. ! 4 ! V05-007 ELM006 ERIC L. MERSHON 8-MAR-19898 ! MERGE IN MESSAGES FROM LAT$MESSAGES AND ADD MORE$ ! DECSERVER EMULATOR MESSAGES. ! 4 ! V05-006 ELM005 ERIC L. MERSHON 25-FEB-1989; ! ADD MESSAGES FOR DECSERVER EMULATOR SESSION CONTROL ! 4 ! V05-005 ELM002 ERIC L. MERSHON 15-FEB-1989' ! ADD DECSERVER EMULATOR MESSAGES ! 3 ! V05-004 DHC0001 DAVID H. COOK 18-NOV-1988 ! ADD ACP MSGS ! 5 ! V05-003 JFC0025 JAMES F. CAHILL 7-SEP-1988 ! ADD TWO MESSAGES FOR LMF ! 5 ! V05-002 JFC0015 JAMES F. CAHILL 10-AUG-1987# ! FIX CAPITALIZATION PROBLEMS ! " ! V05-001 (VARIOUS AUTHORS) ! INITIAL VERSION ! O ! THIS FILE REPRESENTS THE MERGE OF ERROR MESSAGES FOR LATCP,  LAT, AND LGUO ! LATCP MESSAGES APPEAR FIRST AS THIS FACILITY HAS BEEN SHIPPED. WHILE THEN ! ERROR NAMES ARE CHANGED WITH THE ASSIGNMENT OF A LAT FACILITY CODE, THEK ! ERROR MESSAGE NUMBERS/MEANINGS ARE NOT. NEW ERROR MESSAGES ARE ADDEDB ! AT THE SECTION BELOW WHERE .BASE VALUES HAVE BEEN ASSIGNED. ! / DECLARE LONG CONSTANT LAT$_FACILITY = 3747 DECLARE LONG CONSTANT LAT$_CMDBUFOVFLW = 245432444 DECLARE LONG CONSTANT LAT$_CANTBIND = 245432501 DECLAR E LONG CONSTANT LAT$_IVCMD = 245432581 DECLARE LONG CONSTANT LAT$_IVDEV = 245432662 DECLARE LONG CONSTANT LAT$_IVQUAL = 245432743 DECLARE LONG CONSTANT LAT$_MAXSERV = 245432823 DECLARE LONG CONSTANT LAT$_NOTERMS = 245432902 DECLARE LONG CONSTANT LAT$_NONODE = 245432985 DECLARE LONG CONSTANT LAT$_NOTLOADED = 245433065 DECLARE LONG CONSTANT LAT$_NOTINITED = 245433146 DECLARE LONG CONSTANT LAT$_NOTSTARTED = 245433226 DECLARE LONG CONSTANT LAT$_N OTSTOPPED = 245433302 DECLARE LONG CONSTANT LAT$_NOTSET = 245433385 DECLARE LONG CONSTANT LAT$_NOHISTORY = 245433467 DECLARE LONG CONSTANT LAT$_NOSTARTHIST = 245433546 DECLARE LONG CONSTANT LAT$_NOSUCHSERV = 245433626 DECLARE LONG CONSTANT LAT$_NOTFROMLAT = 245433704 DECLARE LONG CONSTANT LAT$_INTERNAL = 245433786 DECLARE LONG CONSTANT LAT$_SERVEXISTS = 245433862 DECLARE LONG CONSTANT LAT$_LOCKED = 245433945 DECLARE LONG CONSTANT LAT$_UNDEFLINK =  245434026 DECLARE LONG CONSTANT LAT$_LINKEXISTS = 245434106 DECLARE LONG CONSTANT LAT$_LINKACTIVE = 245434184 DECLARE LONG CONSTANT LAT$_MAXLINKS = 245434262 DECLARE LONG CONSTANT LAT$_IVPORT = 245434342 DECLARE LONG CONSTANT LAT$_NOLINK = 245434403 DECLARE LONG CONSTANT LAT$_STARTED = 245434513 DECLARE LONG CONSTANT LAT$_STOPPED = 24543459/ DECLARE LONG CONSTANT LAT$_SET = 245434675 DECLARE LONG CONSTANT LAT$_NOSERVERS = 24543475 ! 8  ! NEW MESSAGES ARE ADDED ONLY IN THE SECTIONS BELOW ! 6 DECLARE LONG CONSTANT LAT$_ALREADYDEF = 245448352 DECLARE LONG CONSTANT LAT$_NOTDEF = 245448435 DECLARE LONG CONSTANT LAT$_NOCONTEXT = 245448514 DECLARE LONG CONSTANT LAT$_RELNOTES = 245448593 DECLARE LONG CONSTANT LAT$_ACPINIT = 245448674 DECLARE LONG CONSTANT LAT$_ACPSTATS = 245448754 DECLARE LONG CONSTANT LAT$_FAILOVER = 245448838 DECLARE LONG CONSTANT LAT$_DISCONNECTED = 245448913  DECLARE LONG CONSTANT LAT$_LOSTMSG = 245448993 DECLARE LONG CONSTANT LAT$_PWDPROT = 245449076 DECLARE LONG CONSTANT LAT$_OUTOFRANGE = 24544915/ DECLARE LONG CONSTANT LAT$_END = 245449231 DECLARE LONG CONSTANT LAT$_CTRLY = 245449315 DECLARE LONG CONSTANT LAT$_PWDPROMPT = 245449394 DECLARE LONG CONSTANT LAT$_TODISCON = 245449474 DECLARE LONG CONSTANT LAT$_CONTROLC = 24544955L DECLARE LONG CONSTANT LAT$_NEWLINK = 24544963 ! CREATE /LOG MESSAGES3  DECLARE LONG CONSTANT LAT$_NEWPORT = 245449716 DECLARE LONG CONSTANT LAT$_NEWSERVICE = 245449796 DECLARE LONG CONSTANT LAT$_NEWLOGNAME = 24544987L DECLARE LONG CONSTANT LAT$_DELLINK = 24544995 ! DELETE /LOG MESSAGES3 DECLARE LONG CONSTANT LAT$_DELPORT = 245450036 DECLARE LONG CONSTANT LAT$_DELSERVICE = 245450114 DECLARE LONG CONSTANT LAT$_DELENTRY = 24545019I DECLARE LONG CONSTANT LAT$_MODLINK = 24545027 ! SET /LOG MESSAGES3 DECLARE LONG CONST ANT LAT$_MODPORT = 245450356 DECLARE LONG CONSTANT LAT$_MODSERVICE = 245450433 DECLARE LONG CONSTANT LAT$_MODNODE = 24545051K DECLARE LONG CONSTANT LAT$_ZEROLINK = 24545059 ! ZERO /LOG MESSAGES4 DECLARE LONG CONSTANT LAT$_ZEROPORT = 245450677 DECLARE LONG CONSTANT LAT$_ZEROSERVICE = 245450754 DECLARE LONG CONSTANT LAT$_ZERONODE = 245450835 DECLARE LONG CONSTANT LAT$_DEFINEKEY = 245450914 DECLARE LONG CONSTANT LAT$_CONATMPT = 245450999 DECLAR E LONG CONSTANT LAT$_NODECNTRSONLY = 24545107: DECLARE LONG CONSTANT LAT$_CONNECTLIMITED = 245451159 DECLARE LONG CONSTANT LAT$_CONNECTQUEUED = 245451237 DECLARE LONG CONSTANT LAT$_DELETEDCONN = 245451314 DECLARE LONG CONSTANT LAT$_NODISCON = 245451397 DECLARE LONG CONSTANT LAT$_NAMETOOLONG = 245464346 DECLARE LONG CONSTANT LAT$_LOGSTOPPED = 245464427 DECLARE LONG CONSTANT LAT$_CONTEXTINIT = 245464505 DECLARE LONG CONSTANT LAT$_ILLSTRUCT = 24546458 7 DECLARE LONG CONSTANT LAT$_CONSISTANCY = 245464662 DECLARE LONG CONSTANT LAT$_NOCNCT = 245464745 DECLARE LONG CONSTANT LAT$_BADGETJPI = 245464825 DECLARE LONG CONSTANT LAT$_BRDCSTMSG = 245464905 DECLARE LONG CONSTANT LAT$_BRDCSTOUT = 245464986 DECLARE LONG CONSTANT LAT$_CANTATTACH = 245465065 DECLARE LONG CONSTANT LAT$_CANTSPAWN = 245465147 DECLARE LONG CONSTANT LAT$_CANTCOPYSTR = 245465225 DECLARE LONG CONSTANT LAT$_ERRCREKBD = 245465305  DECLARE LONG CONSTANT LAT$_ERRVIRDPY = 245465386 DECLARE LONG CONSTANT LAT$_NOGCDAVAIL = 245465466 DECLARE LONG CONSTANT LAT$_NOIDBAVAIL = 245465544 DECLARE LONG CONSTANT LAT$_NOITMLST = 245465625 DECLARE LONG CONSTANT LAT$_NOREQUEST = 245465704 DECLARE LONG CONSTANT LAT$_DRVERROR = 245465786 DECLARE LONG CONSTANT LAT$_CANTRUNACP = 245465862 DECLARE LONG CONSTANT LAT$_INVCMD = 245480324 DECLARE LONG CONSTANT LAT$_CMDERROR = 245480405 DECLAR E LONG CONSTANT LAT$_REINITERR = 245480483 DECLARE LONG CONSTANT LAT$_QUALOBS = 245480564 DECLARE LONG CONSTANT LAT$_CNTRSOBS = 245480642 DECLARE LONG CONSTANT LAT$_CMDOBS = 245480725 DECLARE LONG CONSTANT LAT$_CONNECTED = 24549633 ! J ! LAT CONNECTION REJECTION REASON CODES. THESE MESSAGES CORRESPOND TOI ! THE REJECTION REASON CODES GENERATED BY LTDRIVER WHEN A CONNECTIONJ ! REQUEST IS ABORTED (IE. FAILS). THE REASON CODE IS RETURNED IN PARTH ! OF THE IOSB AND MAY BE TRANSLATED TO THE CORRESPONDING CODE BELOW( ! WITH A SIMPLE TRANSLATION VECTOR. ! 6 DECLARE LONG CONSTANT LAT$_LRJUNKNOWN = 245512367 DECLARE LONG CONSTANT LAT$_LRJSHUTDOWN = 245512447 DECLARE LONG CONSTANT LAT$_LRJRESOURCE = 245512524 DECLARE LONG CONSTANT LAT$_LRJINUSE = 245512608 DECLARE LONG CONSTANT LAT$_LRJNOSERVICE = 245512686 DECLARE LONG CONSTANT LAT$_LRJDISABLE = 245512769 DECLARE LONG CONSTANT LAT$_LRJNOTOFFERED = 245 51284: DECLARE LONG CONSTANT LAT$_LRJNAMEUNKNOWN = 24551292; DECLARE LONG CONSTANT LAT$_LRJACCESSREJECT = 24551300; DECLARE LONG CONSTANT LAT$_LRJACCESSDENIED = 245513086 DECLARE LONG CONSTANT LAT$_LRJCORRUPT = 245513169 DECLARE LONG CONSTANT LAT$_LRJNOTSUPPORT = 245513246 DECLARE LONG CONSTANT LAT$_LRJNOSTART = 245513326 DECLARE LONG CONSTANT LAT$_LRJDELETED = 245513406 DECLARE LONG CONSTANT LAT$_LRJILLEGAL = 245513486 DECLARE LONG CONSTANT LA T$_LRJUSERDIS = 245513569 DECLARE LONG CONSTANT LAT$_LRJIVPASSWORD = 245513646 DECLARE LONG CONSTANT LAT$_CONTIMEOUT = 24551372: DECLARE LONG CONSTANT LAT$_CONAPPLICATION = 245513807 DECLARE LONG CONSTANT LAT$_LICREQUIRED = 245513887 DECLARE LONG CONSTANT LAT$_UNREACHABLE = 245513966 DECLARE LONG CONSTANT LAT$_NOSUCHNODE = 245514042 DECLARE LONG CONSTANT LAT$_NOSRVC = 245514125 DECLARE LONG CONSTANT LAT$_PWDSYNTAX = 245514203 DECLARE LONG CONST ANT LAT$_SERUNAV = 245514282 DECLARE LONG CONSTANT LAT$_SESLIM = 245514364 DECLARE LONG CONSTANT LAT$_SRVCNODE = 245514441 DECLARE LONG CONSTANT LAT$_VCLIM = 245514523 DECLARE LONG CONSTANT LAT$_NODUNAV = 245514603 DECLARE LONG CONSTANT LAT$_INITERR = 245514684 DECLARE LONG CONSTANT LAT$_OUTERROR = 245514764 DECLARE LONG CONSTANT LAT$_AUTHFAIL = 245514843 DECLARE LONG CONSTANT LAT$_CONFAIL = 245514923 DECLARE LONG CONSTANT LAT$_CONLOST = 24551 5002 DECLARE LONG CONSTANT LAT$_INSRES = 245515084 DECLARE LONG CONSTANT LAT$_NOMASTER = 245515163 DECLARE LONG CONSTANT LAT$_TIMEOUT = 245515243 DECLARE LONG CONSTANT LAT$_PROTERR = 245515322 DECLARE LONG CONSTANT LAT$_SRVDIS = 245515401 DECLARE LONG CONSTANT LAT$_NOACP = 245515482 DECLARE LONG CONSTANT LAT$_NOSLOT = 245515563 DECLARE LONG CONSTANT LAT$_BADCIRC = 245515644 DECLARE LONG CONSTANT LAT$_VCSESLIM = 245515723 DECLARE LONG CON STANT LAT$_BADLINK = 245515804 DECLARE LONG CONSTANT LAT$_NOTATERM = 245515881 DECLARE LONG CONSTANT LAT$_NOCIB = 245515967 DECLARE LONG CONSTANT LAT$_INSRESOURCE = 245516042 DECLARE LONG CONSTANT LAT$_CIBLIM = 245516123 DECLARE LONG CONSTANT LAT$_PROTVIO = 245516202 DECLARE LONG CONSTANT LAT$_NOROOM = 245516288 DECLARE LONG CONSTANT LAT$_LISTTOOSHORT = 245516367 DECLARE LONG CONSTANT LAT$_LATSTOPPING = 245516447 DECLARE LONG CONSTANT LAT$_NOT WITHCONN = 245516525 DECLARE LONG CONSTANT LAT$_ENTNOTFOU = 245516606 DECLARE LONG CONSTANT LAT$_NOMORENODS = 245516686 DECLARE LONG CONSTANT LAT$_NOMORESVCS = 245516762 DECLARE LONG CONSTANT LAT$_NOSELF = 245516846 DECLARE LONG CONSTANT LAT$_NOTOFFERED = 245516924 DECLARE LONG CONSTANT LAT$_ACPNOCTL = 245517005 DECLARE LONG CONSTANT LAT$_ACPNOKSTK = 245517085 DECLARE LONG CONSTANT LAT$_ACPNOVIRT = 245517164 DECLARE LONG CONSTANT LAT$_NODLIMIT = 245517247 DECLARE LONG CONSTANT LAT$_VERMISMATCH = 245517329 DECLARE LONG CONSTANT LAT$_DRIVERNOTSHUT = 245517406 DECLARE LONG CONSTANT LAT$_CONFQUAVAL = 245517484 DECLARE LONG CONSTANT LAT$_NODESHUT = 245517567 DECLARE LONG CONSTANT LAT$_INCDISABLED = 245517647 DECLARE LONG CONSTANT LAT$_CANTMODCONN = 245517725 DECLARE LONG CONSTANT LAT$_UNDEFCONN = 245517806 DECLARE LONG CONSTANT LAT$_NOMORECONN = 245517886 DECLARE LONG CONSTANT LAT$_UNDEF ENTRY = 245517969 DECLARE LONG CONSTANT LAT$_NOMOREENTRIES = 245518048 DECLARE LONG CONSTANT LAT$_ENTRYDELONLY = 245518124 DECLARE LONG CONSTANT LAT$_XSOLICIT = 245518204 DECLARE LONG CONSTANT LAT$_NOLANDEV = 245518285 DECLARE LONG CONSTANT LAT$_SOLGENSVC = 245518367 DECLARE LONG CONSTANT LAT$_LRJUSERDISC = 245518448 DECLARE LONG CONSTANT LAT$_LRJNOTQUEUED = 245518526 DECLARE LONG CONSTANT LAT$_NOACTLINKS = 24551860: DECLARE LONG CONSTANT LAT$_C ONNDELETEONLY = 24551868: DECLARE LONG CONSTANT LAT$_LRJREMDISABLED = 245518768 DECLARE LONG CONSTANT LAT$_INCOMPDRVACP = 245518848 DECLARE LONG CONSTANT LAT$_LRJINCOMPVER = 245518924 DECLARE LONG CONSTANT LAT$_LRJIVMSG = 245519009 DECLARE LONG CONSTANT LAT$_NORATINGIMAGE = 245519089 DECLARE LONG CONSTANT LAT$_RATINGNOTINIT = 245519166 DECLARE LONG CONSTANT LAT$_INVNODEUID = 24551924ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )V END RECORD % %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )F END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI`jPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! C ! This package defines the interfaces to the Librarian utilityG ! routines as documented in the OpenVMS Utility Routines Reference ! Manual. !  ! " ! LBR$CLOSE  - CLose a library ! ) ! status = LBR$CLOSE (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! ) EXTERNAL LONG FUNCTION LBR$CLOSE & ( &! LONG BY REF & ) ! / ! LBR$DELETE_DATA - Delete a module's data ! 7 ! status = LBR$DELETE_DATA (library_index, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROLA ! txtrfa - RFA of modul e header for module to delete ! / EXTERNAL LONG FUNCTION LBR$DELETE_DATA & ( &" LONG BY REF, & ANY BY REF & ) ! $ ! LBR$DELETE_KEY - Delete a key ! 8 ! status = LBR$DELETE_KEY (library_index, key_name) ! ? ! library_index - Index value returned by LBR$INI_CONTROLF ! key_name - Key to be deleted - for binary keys, passed byA ! reference, for string keys , by descriptor ! . EXTERNAL LONG FUNCTION LBR$DELETE_KEY & ( &" LONG BY REF, & ANY BY REF & ) ! , ! LBR$FIND - Lookup a module by its RFA ! 0 ! status = LBR$FIND (library_index, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL/ ! txtrfa - RFA of module to access ! ( EXTERNAL LONG FUNCTION LBR$FIND & ( &"   LONG BY REF, & ANY BY REF & ) ! ) ! LBR$FLUSH - Recover virtual memory ! 5 ! status = LBR$FLUSH (library_index, block_type) ! ? ! library_index - Index value returned by LBR$INI_CONTROL5 ! block_type - Extent of the flush operation) EXTERNAL LONG FUNCTION LBR$FLUSH & ( &" LONG BY REF, &# LONG BY VALUE & ) ! ; ! LBR$GET_HEADER - Re trieve library header information ! 6 ! status = LBR$GET_HEADER (library_index, retary) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! retary - Array of 128 longwords to receive library header ! . EXTERNAL LONG FUNCTION LBR$GET_HEADER & ( &" LONG BY REF, & ANY BY REF & ) ! ( ! LBR$GET_HELP - Retrieve help text ! D ! status = LBR$GET_HELP (librar y_index [,line_width] [,routine]2 ! [,data] [,key_n...])? ! library_index - Index value returned by LBR$INI_CONTROL3 ! line_width - Width of the help text line: ! routine - Routine called to output text line3 ! data - User data passed to routine0 ! key_n - Zero or more key strings ! , EXTERNAL LONG FUNCTION LBR$GET_HELP & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! A ! LBR$GET_HISTORY - Retrieve a library history update record ! ? ! status = LBR$GET_HISTORY (library_index, action_routine) ! @ ! library_index - Index value returned by LBR$INI_CONTROL; ! action_routine - Routine to process history records ! / EXTERNAL LONG FUNCTION LBR$GET_HISTORY & ( &" LONG BY REF, &# LONG BY VALUE & ) ! ; ! LBR$GET_INDEX - Call routine for selected index keys ! H ! status = LBR$GET_INDEX (library_index, index_number, routine_name, ! [,match_desc]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL5 ! index_number - Number of the index to search: ! routine_name - User routine to process selections+ ! match_desc - Key matching string ! - EXTERNAL LONG FUNCTION LBR$GET_INDEX & ( &" LONG BY REF, &"  LONG BY REF, &$ LONG BY VALUE, &, OPTIONAL STRING BY DESC & ) ! * ! LBR$GET_RECORD - Read a data record ! G ! status = LBR$GET_RECORD (library_index [,inbufdes] [,outbufdes]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL0 ! inbufdes - Buffer to receive recordE ! outbufdes - Descriptor receiving information about record. EXTERNAL LONG FUNCTION LBR$GET_RECORD & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, & ANY BY REF & ) ! ? ! LBR$INI_CONTROL - Initialize a library control structure ! G ! status = LBR$INI_CONTROL (library_index, func [,type] [,namblk]) ! - ! library_index - Receives index value 0 ! func - Function to be performed' ! type - Type of library1 ! namblk - RMS NAM block for library ! / EXTERNAL LONG FUNCTION LBR$INI_CONTROL & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, & ANY BY REF & ) ! ( ! LBR$INSERT_KEY - Insert a new key ! @ ! status = LBR$INSERT_KEY (library_index, key_name, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! key_name - Name of key to insert (reference for binary key,0 ! descriptor for text key)% ! txtrfa - RFA of module ! . EXTERNAL LONG FUNCTION LBR$INSERT_KEY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! - ! LBR$LOOKUP_KEY - Look up a library key ! @ ! status = LBR$LOOKUP_KEY (library_index, key_name, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROLH ! key_name - Name of key to insert (reference for binary key,0 ! descriptor for text key). ! txtrfa - Receives RFA of module ! . EXTERNAL LONG FUNCTION LBR$LOOKUP_KEY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! * ! LBR$OPEN - Open or create a library ! G ! status = LBR$OPEN (library_index [,fns] [,create_options] [ ,dns]3 ! [,rlfna] [,rns] [,rnslen]) ! @ ! library_index - Index value returned by LBR$INI_CONTROL: ! fns - File specification of the libraryC ! create_options - Library characteristics ($LBRDEF, $CREDEF)3 ! dns - Default file specification0 ! rlfna - Related file name block> ! rns - Receives resultant file specificationH ! rnslen - Receives length of resultant file specification ! ( EXTERNAL LONG FUNCTION LBR$OPEN & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! - ! LBR$OUTPUT_HELP - Output help messages ! L ! status = LBR$OUTPUT_HELP (output_routine [,output_width] [,line_desc]K  ! [,library_name] [,flags] [,input_routine]) ! < ! output_routine - Routine called to output text lines6 ! output_width - Maximum width of output lines* ! line_desc - Help request line1 ! library_name - Name of the help library3 ! flags - Flags to control operation3 ! input_routine - Routine used for prompting ! / EXTERNAL LONG FUNCTION LBR$OUTPUT_HELP & ( &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) ! 2 ! LBR$PUT_END - Write an end-of-module record ! + ! status = LBR$PUT_END (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! + EXTERNAL LONG FUNCTION LBR$PUT_END & ( &!  LONG BY REF & ) ! 7 ! LBR$PUT_HISTORY - Write an update history record ! < ! status = LBR$PUT_HISTORY (library_index, record_desc) ! ? ! library_index - Index value returned by LBR$INI_CONTROL& ! record_desc - History record ! / EXTERNAL LONG FUNCTION LBR$PUT_HISTORY & ( &" LONG BY REF, &$ STRING BY DESC & ) ! + ! LBR$PUT_RECORD - Write a data record ! > ! status = LBR$PUT_RECORD (library_index, bufdes, txtrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROL, ! bufdes - Record to be written. ! txtrfa - Receives RFA of module ! . EXTERNAL LONG FUNCTION LBR$PUT_RECORD & ( &" LONG BY REF, &% STRING BY DESC, & ANY BY REF & ) ! . ! LBR$REPLACE_KEY - Replace a library key ! I ! status = LBR$REPLACE_KEY (library_index, key_name, oldrfa, newrfa) ! ? ! library_index - Index value returned by LBR$INI_CONTROLF ! key_name - Name of key, passed by reference or descriptor0 ! oldrfa - RFA of old module header0 ! newrfa - RFA of new module header ! / EXTERNAL LONG FUNCTION LBR$REPLACE_KEY & ( &" LONG BY REF, &! ANY BY REF, &! ANY BY REF, & ANY BY REF & ) ! 3 ! LBR$RET_RMSSTV - Return VMS RMS status value ! ! ! status = LBR$RET_RMSSTV () ! , EXTERNAL LONG FUNCTION LBR$RET_RMSSTV ! # ! LBR$SEARCH - Search an index ! E ! status = LBR$SEARCH (library_index, index_number, rfa_to_find,$ ! routine_name) ! ? ! library_index - Index value returned by LBR$INI_CONTROL1 ! index_number - Number of index to search3 ! rfa_to_find - RFA of module to search for6 ! routine_name - Routine called to process keys* EXTERNAL LONG FUNCTION LBR$SEARCH & ( &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &# LONG BY VALUE & ) ! 3 ! LBR$SET_INDEX - Set the current index number ! ; ! status = LBR$SET_INDEX (library_index, index_number) ! ? ! library_in dex - Index value returned by LBR$INI_CONTROL( ! index_number - New index number ! - EXTERNAL LONG FUNCTION LBR$SET_INDEX & ( &" LONG BY REF, &! LONG BY REF & ) ! 8 ! LBR$SET_LOCATE - Set record access to locate mode ! . ! status = LBR$SET_LOCATE (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! . EXTERNAL LONG FUNCTION LBR$SET_LOCATE &! ( &! LONG BY REF & ) ! 6 ! LBR$SET_MODULE - Read or update a module header ! = ! status = LBR$SET_MODULE (library_index, rfa [,bufdesc]+ ! [,buflen] [,updatedesc]) ! ? ! library_index - Index value returned by LBR$INI_CONTROL, ! rfa - RFA of module header. ! bufdesc - Receives module header8 ! buflen - Receives length of module headerL ! updatedesc "- Additional information to be stored in module header ! . EXTERNAL LONG FUNCTION LBR$SET_MODULE & ( &" LONG BY REF, &! ANY BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &$ STRING BY DESC & ) ! 4 ! LBR$SET_MOVE - Set record access to move mode ! , ! status = LBR$SET_MOVE (library_index) ! ? ! library_index - Index value returned by LBR$INI_CONTROL ! , EXTERNAL LONG FUNCTION LBR$SET_MOVE & ( &! LONG BY REF & )ww$7PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI%NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET& %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  M DECLARE LONG CONSTANT LBR$C_CTLTBLID = 203 ! Ident for control table 6 DECLARE LONG CONSTANT LBR$M_LOCATE = x'00000001'4 DECLARE LONG CONSTANT LBR$M_OPEN = x'00000002'- DECLARE LONG ' CONSTANT LBR$K_LENGTH = 30- DECLARE LONG CONSTANT LBR$C_LENGTH = 300 DECLARE LONG CONSTANT LBR$S_LBRCTLTBL = 30 record LBRCTLTBL@ BYTE LBR$B_ID ! Control table ID B BYTE LBR$B_TBLSIZ ! Control table size F BYTE LBR$B_TYPE ! Type of library opened Q BYTE LBR$B_FUNC ! Operation ( function ) requested G BYTE LBRCTLTBL$$_FILL_1 ( 1 to 2 ) ! Reserved extra ( bytes # group LBR$R_USRFLG_OVERLAY variant case> LONG LBR$L_USRFLG ! Flags longword  case) group LBR$R_USRFLG_BITS> ! Use "locate" rather than "move" mode & ! Library open p BYTE LOCATE_bits ! COMMENT ADDED BY SDL - LOCATE_bits contains bits LOCATE through fill_0- end group LBR$R_USRFLG_BITS end va riant' end group LBR$R_USRFLG_OVERLAYI LONG LBR$L_HDRPTR ! Pointer to in-core header P LONG LBR$L_CTXPTR ! Pointer to context control block G LONG LBR$L_CURIDX ! Number of current index I LONG LBR$L_USRNAM ! Pointer to user NAM block Z LONG LBR$L_OLDHDRPTR ! Pointer to unmodified in-core header block  end record LBRCTLTBL  ww*@PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI+NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET, %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! Module header ! R DECLARE LONG CONSTANT MHD$C_MHDID = 173 ! Value that must be in the ident V DECLARE LONG CONSTANT MHD$K_REFLNG = 8 ! Length of record to end of ref count -V DECLARE LONG CONSTANT MHD$C_REFLNG = 8 ! Length of record to end of ref count Q DECLARE LONG CONSTANT MHD$K_INSTIME = 8 ! Label for start of insert time Q DECLARE LONG CONSTANT MHD$C_INSTIME = 8 ! Label for start of insert time W DECLARE LONG CONSTANT MHD$K_USRDAT = 16 ! Start of user additional header data W DECLARE LONG CONSTANT MHD$C_USRDAT = 16 ! Start of user additional header data N DECLARE LONG CONSTANT MHD$K_MHDLEN = 16 ! Length of fixed pa .rt of MHD N DECLARE LONG CONSTANT MHD$C_MHDLEN = 16 ! Length of fixed part of MHD 6 DECLARE LONG CONSTANT MHD$M_SELSRC = x'00000001'6 DECLARE LONG CONSTANT MHD$M_OBJTIR = x'00000002'4 DECLARE LONG CONSTANT MHD$K_OBJIDENT = 18 ! 4 DECLARE LONG CONSTANT MHD$C_OBJIDENT = 18 ! - DECLARE LONG CONSTANT MHD$S_MHDDEF = 18 record MHDDEFN BYTE MHD$B_LBRFLAG ! Librarian-controlled flag byte 5 BYTE MHD$B_ID /! Ident = WORD MHDDEF$$_FILL_1 ! Reserved word ? LONG MHD$L_REFCNT ! Reference count B LONG MHD$L_DATIM ! Date/time inserted # group MHD$R_FILL_2_OVERLAY variant case3 LONG MHDDEF$$_FILL_2 ! ...  case+ group MHD$R_FILL_2_FIELDS4 BYTE MHDDEF$$_FILL_3 ( 1 to 4 )V STRING MHD$B_USRD 0AT = 0 ! Start of user additional header data / end group MHD$R_FILL_2_FIELDS end variant' end group MHD$R_FILL_2_OVERLAY$ group MHD$R_OBJSTAT_OVERLAY variant caseG BYTE MHD$B_OBJSTAT ! Status of object module  case* group MHD$R_OBJSTAT_BITS* ! Selective search 5 ! Module contains TIR records p 1 BYTE SELSRC_bits ! COMMENT ADDED BY SDL - SELSRC_bits contains bits SELSRC through fill_1. end group MHD$R_OBJSTAT_BITS end variant( end group MHD$R_OBJSTAT_OVERLAY% group MHD$R_OBJIDLNG_OVERLAY variant case? BYTE MHD$B_OBJIDLNG ! Length of ident  case- group MHD$R_OBJIDLNG_FIELDS) BYTE MHDDEF$$_FILL_4G STRING MHD$T_OBJIDENT = 0 ! Object module ident 1 end group MHD$R_OBJIDLNG_FIELDS end variant) end group MHD$R_OBJIDLNG_OVERLAY end record MHDDEF  ww3PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI4NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET5 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! * ! Data structures for help processing ! 6 DECLARE LONG CONSTANT HLP$M_PROMPT = x'00000001'7 DECLARE LONG CONSTANT HLP$M_PROCESS = x'00000002'5 DECLARE LONG CONSTANT HLP$M_ 6GROUP = x'00000004'6 DECLARE LONG CONSTANT HLP$M_SYSTEM = x'00000008'7 DECLARE LONG CONSTANT HLP$M_LIBLIST = x'00000010'4 DECLARE LONG CONSTANT HLP$M_HELP = x'00000020'6 DECLARE LONG CONSTANT HLP$M_SPARE1 = x'00000040'9 DECLARE LONG CONSTANT HLP$M_PAGE_SAVE = x'00000080'4 DECLARE LONG CONSTANT HLP$M_PAGE = x'00000100'6 DECLARE LONG CONSTANT HLP$M_OUTPUT = x'00000200'7 DECLARE LONG CONSTANT HLP$M_LIBRARY = x'00000400'3 DECLARE LONG CONSTANT HLP$ 7M_ALL = x'00000800'7 DECLARE LONG CONSTANT HLP$M_PAGEDEF = x'00001000'7 DECLARE LONG CONSTANT HLP$M_PMPTDEF = x'00002000'7 DECLARE LONG CONSTANT HLP$M_NOTTERM = x'00004000', DECLARE LONG CONSTANT HLP$S_HLPDEF = 2 record HLPDEF variant case& group HLP$R_HLPDEF_BITS( ! Prompting enabled B ! Process logical name table searches enabled @ ! Group logical name table searches 8enabled A ! System logical name table searched enabled 7 ! Output list of default libraries A ! Display help on help before list of topics ' ! Page=Save enabled* ! Page breaks enabled 2 ! Output listing file enabled 5 ! Main library specified by user ? ! Some logical name table searches enabled 4 ! Page flag defaulting 9 disabled 6 ! Prompt flag defaulting disabled 5 ! Input device is not a terminal m WORD PROMPT_bits ! COMMENT ADDED BY SDL - PROMPT_bits contains bits PROMPT through fill_2* end group HLP$R_HLPDEF_BITS end variant end record HLPDEF 8 DECLARE LONG CONSTANT HLP$M_NOHLPTXT = x'00000001'9 DECLARE LONG CONSTANT HLP$M_KEYNAMLIN = x'00000002'9 DECLARE LONG CONSTANT HLP$M_OTHERINFO = x'000000 :04'. DECLARE LONG CONSTANT HLP$S_HLPDEF1 = 16 record HLPDEF1U LONG HLP$L_DESC ! Address of string descriptor for line " group HLP$R_FLAGS_OVERLAY variant case5 LONG HLP$L_FLAGS ! Flags  case( group HLP$R_FLAGS_BITSC ! Line is part of text due to no help found > ! Line contains keynames to be printed @ ! Line is part of "other info available" v BYTE NOHLPTXT_bits ! COMMENT ADDED BY SDL - NOHLPTXT_bits contains bits NOHLPTXT through fill_3, end group HLP$R_FLAGS_BITS end variant& end group HLP$R_FLAGS_OVERLAYW LONG HLP$L_DATA ! Address of user data passed to GET_HELP B LONG HLP$L_LEVEL ! Level of this help  end record HLPDEF1  ww<uPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI=NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET> %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! Types of libraries ! ! Define the library types S DECLARE LONG CONSTANT LBR$C_TYP_UNK = 0 ! Unknown/unspecified library type Q DECLARE LONG CONSTANT LBR$C_TYP_OBJ = ?1 ! Object/shareable image library @ DECLARE LONG CONSTANT LBR$C_TYP_MLB = 2 ! Macro library D DECLARE LONG CONSTANT LBR$C_TYP_HLP = 3 ! Help file library ? DECLARE LONG CONSTANT LBR$C_TYP_TXT = 4 ! TEXT library S DECLARE LONG CONSTANT LBR$C_TYP_SHSTB = 5 ! Shareable image symbol library > DECLARE LONG CONSTANT LBR$C_TYP_NCS = 6 ! NCS library X DECLARE LONG CONSTANT LBR$C_TYP_DECMX = 6 ! Maximum Digital library type definedG DECLARE LONG CONST@ANT LBR$C_TYP_EOBJ = 7 ! Alpha object libraryY DECLARE LONG CONSTANT LBR$C_TYP_ESHSTB = 8 ! Alpha Shareable image symbol libraryd DECLARE LONG CONSTANT ELBR$C_TYP_DECMX = 8 ! Maximum Digital ( Alpha ) library type definedV DECLARE LONG CONSTANT LBR$C_TYP_RDEC = 127 ! Types between DECMX and RDEC are  ! reserved to DigitalX DECLARE LONG CONSTANT LBR$C_TYP_USRLW = 128 ! User library types range from 128 > DECLARE LONG CONSTANT LBR$C_TYP_USRHI = 255 ! Ato 255.  ! # ! Function codes for lbr$flush ! Q DECLARE LONG CONSTANT LBR$C_FLUSHDATA = 1 ! Flush data blocks from cache X DECLARE LONG CONSTANT LBR$C_FLUSHALL = 0 ! Flush data blocks, then index blocks  ! ! ! Librarian fixed parameters ! S DECLARE LONG CONSTANT LBR$C_MAXRECSIZ = 2048 ! Maximum record size allowed I DECLARE LONG CONSTANT LBR$C_PAGESIZE = 512 ! Size of memory page a DECLARE LONG CONSTANT LBR$C_HASHSIZE = 512 ! SBize of hash table ** Must be power of 2 ** Y DECLARE LONG CONSTANT LBR$C_TEXTPAGE = 508 ! No. of useable bytes on a text page Q DECLARE LONG CONSTANT LBR$C_DEXTQ = 50 ! Library default extend quantity S DECLARE LONG CONSTANT LBR$C_MAXCTL = 16 ! Maximum number of open libraries V DECLARE LONG CONSTANT LBR$C_MAXHDRSIZ = 128 ! Maximum length of module header  ! (max user length is:& ! lbr$c_maxhdrsiz-mhd$c_length)_ DECLARE LONG CONSTANT LBR$C_DEFENTCALL = 300 ! Number of entries to allocate by default ` DECLARE LONG CONSTANT LBR$C_RETRYOPEN = 120 ! Number of times to retry open on RMS$_FLK M DECLARE LONG CONSTANT LBR$C_RETRYWAIT = 1 ! Number of seconds to waitS DECLARE LONG CONSTANT LBR$C_MINREAD = 2 ! Minimum number of blocks to read M DECLARE LONG CONSTANT LBR$C_MAXREAD = 100 ! Max blocks can ever read u DECLARE LONG CONSTANT LBR$C_MEMXTRA = 50 ! Number blocks to expand region by above and beyond lbDr$gl_maxread Y DECLARE LONG CONSTANT LBR$C_PUTBUFSIZ = 30 ! Block size of VM empty cache buffer X DECLARE LONG CONSTANT LBR$C_FLSHBFSIZ = 1 ! Block size of stack mt_cache buffer U DECLARE LONG CONSTANT LBR$C_MAXIDXRD = 20 ! Maximum blocks in one index read k DECLARE LONG CONSTANT LBR$C_MAXKEYLEN = 128 ! Maximum length of an ASCII keyword, at most N, where  ! 3*(N+7) < or = 506e DECLARE LONG CONSTANT LBR$C_MAXLUHREC = 32768 ! maximum library update his Etory record length  ! + ! Librarian fixed parameters for ALPHA ! S DECLARE LONG CONSTANT ELBR$C_MAXRECSIZ = 8192 ! Maximum record size allowed ! $ ! LBR$INI_CONTROL argument list ! F DECLARE LONG CONSTANT LBR$C_CREATE = 0 ! Create a new library H DECLARE LONG CONSTANT LBR$C_READ = 1 ! Read an existing library M DECLARE LONG CONSTANT LBR$C_UPDATE = 2 ! Update an exisiting library I DECLARE LONG CONSTANT LBR$C_MAXFUNC = 2 ! MaximuFm legal function - DECLARE LONG CONSTANT LBR$S_LBRDEF = 16 record LBRDEF> LONG LBRDEF$$_FILL_1 ! Argument count E LONG LBR$L_IC_CTLTBL ! Control index address 8 LONG LBR$L_IC_FUNC ! Function P LONG LBR$L_IC_TYPE ! Type of library expected to open  !  ! LBR$OPEN argument list !  end record LBRDEF . DECLARE LONG CONSTANT LBR$S_LBRDEF1 = 32 recordG LBRDEF1> LONG LBRDEF$$_FILL_2 ! Argument count E LONG LBR$L_OP_CTLTBL ! Control index address Y LONG LBR$L_OP_FNS ! Address of string descriptor for filename O LONG LBR$L_OP_CREOPT ! Address of create options array ] LONG LBR$L_OP_DNS ! Address of descriptor for default name string U LONG LBR$L_OP_RLFNA ! Address of NAM block for related file a H LONG LBR$L_OP_RNS ! Address of descriptor for related filename string m LONG LBR$L_OP_RNSLEN ! Address of longword to store resultant filename string length  !  ! LBR$CLOSE argument list !  end record LBRDEF1 - DECLARE LONG CONSTANT LBR$S_LBRDEF2 = 8 record LBRDEF2> LONG LBRDEF$$_FILL_3 ! Argument count E LONG LBR$L_CL_CTLTBL ! Control index address  ! # I ! LBR$GET_HEADER argument list !  end record LBRDEF2 . DECLARE LONG CONSTANT LBR$S_LBRDEF3 = 12 record LBRDEF3> LONG LBRDEF$$_FILL_4 ! Argument count H LONG LBR$L_GH_CTLTBL ! Address of Control index ] LONG LBR$L_GH_RETARY ! Address of 128-longword array for return info  ! " ! LBR$SET_INDEX argument list !  end record LBRDEF3 . DECLARE LONG CONSTANT LBR$S_LBRDEF4 J= 12 record LBRDEF4> LONG LBRDEF$$_FILL_5 ! Argument count E LONG LBR$L_SI_CTLTBL ! Control index address G LONG LBR$L_SI_IDXNUM ! Address of index number  ! # ! LBR$LOOKUP_KEY argument list !  end record LBRDEF4 . DECLARE LONG CONSTANT LBR$S_LBRDEF5 = 16 record LBRDEF5> LONG LBRDEF$$_FILL_6 ! Argument count E LONG LBR$L_LK_CTLTBL ! C Kontrol index address \ LONG LBR$L_LK_KEYNAM ! Address of string descriptor or binary value Z LONG LBR$L_LK_TXTRFA ! Address of quadword to return RFA if found  ! # ! LBR$INSERT_KEY argument list !  end record LBRDEF5 . DECLARE LONG CONSTANT LBR$S_LBRDEF6 = 16 record LBRDEF6> LONG LBRDEF$$_FILL_7 ! Argument count E LONG LBR$L_IK_CTLTBL ! Control index address \ L LONG LBR$L_IK_KEYNAM ! Address of string descriptor or binary value F LONG LBR$L_IK_TXTRFA ! Address of RFA of text  ! $ ! LBR$REPLACE_MOD argument list !  ! $ ! LBR$REPLACE_KEY argument list !  end record LBRDEF6 . DECLARE LONG CONSTANT LBR$S_LBRDEF7 = 20 record LBRDEF7> LONG LBRDEF$$_FILL_8 ! Argument count E LONG LBR$L_RK_CTLTBL ! Control index address M\ LONG LBR$L_RK_KEYNAM ! Address of string descriptor or binary value J LONG LBR$L_RK_OLDRFA ! Address of RFA of old text J LONG LBR$L_RK_NEWRFA ! Address of RFA of new text  ! # ! LBR$DELETE_KEY argument list !  end record LBRDEF7 . DECLARE LONG CONSTANT LBR$S_LBRDEF8 = 12 record LBRDEF8> LONG LBRDEF$$_FILL_9 ! Argument count E LONG LBR$L_DK_CTLTBL N ! Control index address \ LONG LBR$L_DK_KEYNAM ! Address of string descriptor or binary value  ! $ ! LBR$DELETE_DATA argument list !  end record LBRDEF8 . DECLARE LONG CONSTANT LBR$S_LBRDEF9 = 12 record LBRDEF9> LONG LBRDEF$$_FILL_10 ! Argument count E LONG LBR$L_DD_CTLTBL ! Control index address M LONG LBR$L_DD_TXTRFA ! Address of RFA to delete from  ! O# ! LBR$GET_RECORD argument list !  end record LBRDEF9 / DECLARE LONG CONSTANT LBR$S_LBRDEF10 = 16 record LBRDEF10> LONG LBRDEF$$_FILL_11 ! Argument count E LONG LBR$L_GR_CTLTBL ! Control index address O LONG LBR$L_GR_BUFDES ! Address of descriptor of buffer Y LONG LBR$L_GR_BUFLEN ! Address of longword to return record size  ! # ! LBR$PUT_RECORD argument lisPt !  end record LBRDEF10 / DECLARE LONG CONSTANT LBR$S_LBRDEF11 = 16 record LBRDEF11> LONG LBRDEF$$_FILL_12 ! Argument count E LONG LBR$L_PR_CTLTBL ! Control index address Y LONG LBR$L_PR_BUFDES ! Address of descriptor of buffer to output Q LONG LBR$L_PR_TXTRFA ! Address of quadword to return RFA  ! of text record ! ! LBR$PUT_END argument list ! Q end record LBRDEF11 . DECLARE LONG CONSTANT LBR$S_LBRDEF12 = 8 record LBRDEF12> LONG LBRDEF$$_FILL_13 ! Argument count E LONG LBR$L_PE_CTLTBL ! Control index address  !  ! LBR$SEARCH argument list !  end record LBRDEF12 / DECLARE LONG CONSTANT LBR$S_LBRDEF13 = 20 record LBRDEF13> LONG LBRDEF$$_FILL_14 ! Argument count E LONG LBR$L_SR_CTLTBL R ! Control index address G LONG LBR$L_SR_IDXNUM ! Address of index number R LONG LBR$L_SR_RFA ! Address of RFA to search index for M LONG LBR$L_SR_USRTN ! User routine to call on match  ! : ! Argument list for user routine called by LBR$SEARCH !  end record LBRDEF13 / DECLARE LONG CONSTANT LBR$S_LBRDEF14 = 12 record LBRDEF14> LONG LBRDEF$$_FILL_15 ! Argumen St count \ LONG LBR$L_SU_KEYDES ! Address of string descriptor or binary value Y LONG LBR$L_SU_TXTRFA ! Address of array containing rfa of module  ! " ! LBR$GET_INDEX argument list !  end record LBRDEF14 / DECLARE LONG CONSTANT LBR$S_LBRDEF15 = 16 record LBRDEF15> LONG LBRDEF$$_FILL_16 ! Argument count E LONG LBR$L_GI_CTLTBL ! Control index address < LONG TLBR$L_GI_IDXNUM ! Index number S LONG LBR$L_GI_USRTN ! User routine to call for each entry  ! = ! Argument list for user routine called by LBR$GET_INDEX !  end record LBRDEF15 / DECLARE LONG CONSTANT LBR$S_LBRDEF16 = 12 record LBRDEF16> LONG LBRDEF$$_FILL_17 ! Argument count U LONG LBR$L_GU_KEYADR ! Address of descriptor or binary value F LONG LBR$L_GU_TXTRFA U ! RFA of associated text  ! # ! LBR$ADD_UPDATE argument list !  end record LBRDEF16 < DECLARE LONG CONSTANT LBR$C_ADDMOD = 1 ! Add module ? DECLARE LONG CONSTANT LBR$C_DELMOD = 2 ! Delete module @ DECLARE LONG CONSTANT LBR$C_REPMOD = 3 ! Replace module  ! / DECLARE LONG CONSTANT LBR$S_LBRDEF17 = 16 record LBRDEF17> LONG LBRDEF$$_FILL_18 ! Argument count E LONG LBR$L_AU_CTLTBL V ! Control index address 5 LONG LBR$L_AU_FLAGS ! Flags \ LONG LBR$L_AU_KEYNAM ! Address of string descriptor or binary value " ! Types of operations logged $ ! LBR$GET_UPDATES argument list !  end record LBRDEF17 / DECLARE LONG CONSTANT LBR$S_LBRDEF18 = 12 record LBRDEF18> LONG LBRDEF$$_FILL_19 ! Argument count E LONG LBR$L_GU_CTLTBL ! Control index address T LONG LBR$L_GU_USRTN ! User routine to call for each update  ! ? ! Argument list for user routine called by LBR$GET_UPDATES !  end record LBRDEF18 . DECLARE LONG CONSTANT LBR$S_LBRDEF19 = 8 record LBRDEF19= LONG LBRDEF$$_FILL_20 ! Argument list R LONG LBR$L_UU_UPDESC ! String descriptor for history line  end record LBRDEF19  wwXUPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIYNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETZ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! / ! Library header information array offsets ! . DECLARE LONG CONSTANT LHI$S_LHIDEF = 128 record LHIDEF< LONG LHI$L_TYPE ! Library type A L[ONG LHI$L_NINDEX ! Number of indices G LONG LHI$L_MAJORID ! Library format major id G LONG LHI$L_MINORID ! Library format minor id W STRING LHI$T_LBRVER = 32 ! ASCIC version of librarian that created B LONG LHI$L_CREDAT ! Creation date/time 3 LONG LHIDEF$$_FILL_1 ! ... H LONG LHI$L_UPDTIM ! Date/time of last update 3 LONG \LHIDEF$$_FILL_2 ! ... N LONG LHI$L_UPDHIS ! VBN of start of update history K LONG LHI$L_FREEVBN ! 1st logically deleted block H LONG LHI$L_FREEBLK ! Number of deleted blocks H BYTE LHI$B_NEXTRFA ( 1 to 6 ) ! RFA of end of library B WORD LHI$W_RFAXTR ! Spare word, zeroed S LONG LHI$L_NEXTVBN ! Next VBN to allocate at end of file Y ] LONG LHI$L_FREIDXBLK ! Number of free pre-allocated index blocks W LONG LHI$L_FREEIDX ! Listhead for pre-allocated index blocks R LONG LHI$L_HIPREAL ! VBN of highest pre-allocated block M LONG LHI$L_IDXBLKS ! Number of index blocks in use R LONG LHI$L_IDXCNT ! Number of index entries ( total ) ^ LONG LHI$L_MODCNT ! Number of entries in index 1 ( mod ule names ) _ LONG LHI$L_MHDUSZ ! Length of user-maintained info in module header m LONG LHI$L_MAXLUHREC ! Maximum number of library update histories records maintained P LONG LHI$L_NUMLUHREC ! Number of LUH records in history W LONG LHI$L_LIBSTATUS ! False if there was an error closing lib  end record LHIDEF  ww_ PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI`NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETa %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! Create options table ! K DECLARE LONG CONSTANT CRE$C_VMSV2 = 2 ! VMS version V04-000 format E DECLARE LONG CONSTANT CRE$C_VMSV3 = 3 ! VMS version 3 format 9 DECLARbE LONG CONSTANT CRE$M_NOCASECMP = x'00000001'9 DECLARE LONG CONSTANT CRE$M_NOCASENTR = x'00000002'9 DECLARE LONG CONSTANT CRE$M_UPCASNTRY = x'00000004'^ DECLARE LONG CONSTANT CRE$C_HLPCASING = 6 ! Treat upper casing as it is for HELP libs ` DECLARE LONG CONSTANT CRE$C_OBJCASING = 3 ! Treat upper casing as it is for OBJECT libs h DECLARE LONG CONSTANT CRE$C_MACTXTCAS = 0 ! Treat upper casing as it is for MACRO and TEXT libs 2 DECLARE LONG CONSTANT CRE$K_LENG cTH = 80 ! 2 DECLARE LONG CONSTANT CRE$C_LENGTH = 80 ! - DECLARE LONG CONSTANT CRE$S_CREDEF = 80 record CREDEF? LONG CRE$L_TYPE ! Type of library * ! (library types defined in $LBRDEF)I LONG CRE$L_KEYLEN ! Length of keys in library G LONG CRE$L_ALLOC ! Initial file allocation I LONG CRE$L_IDXMAX ! Maximum number of indices U LONG CRE$L_UHDMAX d ! Size of additional module header data W LONG CRE$L_ENTALL ! Number of index entries to pre-allocate a LONG CRE$L_LUHMAX ! Number of library update history records to store Q LONG CRE$L_VERTYP ! Version type of library to create # group CRE$R_IDXOPT_OVERLAY variant case= LONG CRE$L_IDXOPT ! Index options  case) e group CRE$R_IDXOPT_BITS9 ! Do not upper case the match key Y ! Do not upper case the index key when comparing with a match key T ! Upper case the index key when entering it into the library y BYTE NOCASECMP_bits ! COMMENT ADDED BY SDL - NOCASECMP_bits contains bits NOCASECMP through fill_4- end group CRE$R_IDXOPT_BITS end variant' end group CRE$R_IDXOPT_OVERLAYH LONG CREDEF$$_FILL_1 ( 1 to 11 ) ! Reserved 11 longwords  end record CREDEF wwgNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETh %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *A ! COPYRIGHT (c) 1988, 1994, 1996, 1997 BY *E ! DIGITAL EQUIPMENT CORPORATiION, MAYNARD, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE j IS HEREBY * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! k *Q ! *************************************************************************** ! LIB$ADAWI ! ) ! Add Aligned Word with Interlock ! S ! The Add Aligned Word with Interlock routine allows the user to perform an: ! interlocked add operation using an aligned word. ! ) EXTERNAL LONG FUNCTION lib$adawi & ( &" WORD BY REF, &" WORD BY REF, &! WORD BY REF l& ) ! LIB$ADDX ! 3 ! Add Two Multiple-Precision Binary Numbers ! U ! The Add Two Multiple-Precision Binary Numbers routine adds two signed two's2 ! complement integers of arbitrary length. ! ( EXTERNAL LONG FUNCTION lib$addx & ( &! ANY BY REF, &! ANY BY REF, &! ANY BY REF, &) OPTIONAL LONG BY REF & ) m ! LIB$ADD_TIMES ! ! Add Two Quadword Times ! U ! The Add Two Quadword Times routine adds two VMS internal time format times. ! - EXTERNAL LONG FUNCTION lib$add_times & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$ANALYZE_SDESC ! $ ! Analyze String Descriptors ! W ! n The Analyze String Descriptors routine extracts the length and the address atK ! which the data starts for a variety of string descriptor classes. ! 1 EXTERNAL LONG FUNCTION lib$analyze_sdesc & ( &, BASIC$QUADWORD BY REF, &" WORD BY REF, &! LONG BY REF & ) ! LIB$ASCII_TO_UID !  ! Convert Text To UID ! = ! The Convert Text to UID routine convertso a standard< ! representation of a UID in an ASCII text string to ! a binary UID. ! 0 EXTERNAL LONG FUNCTION lib$ascii_to_uid & ( &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) ! LIB$ASN_WTH_MBX ! % ! Assign Channel with Mailbox ! Y ! The Assign Channel with Mailbox routine assigns a channel to a specified deviceZ ! and associates a mailbox witph the device. It returns both the device channel and ! the mailbox channel. ! / EXTERNAL LONG FUNCTION lib$asn_wth_mbx & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" WORD BY REF, &! WORD BY REF & ) ! LIB$AST_IN_PROG !  ! AST in Progress ! X ! The AST in Progress routine indicates whether an AqST is currently in progress. ! - EXTERNAL BYTE FUNCTION lib$ast_in_prog ! LIB$ATTACH ! $ ! Attach Terminal to Process ! W ! The Attach Terminal to Process routine requests the calling process's CommandY ! Language Interpreter (CLI) to detach the terminal of the calling process and to- ! reattach it to a different process. ! * EXTERNAL LONG FUNCTION lib$attach & ( &! LONG BrY REF & ) ! LIB$BBCCI ! + ! Test and Clear Bit with Interlock ! J ! The Test and Clear Bit with Interlock routine tests and clears a/ ! selected bit under memory interlock. ! ) EXTERNAL LONG FUNCTION lib$bbcci & ( &" LONG BY REF, &# LONG BY VALUE & ) ! LIB$BBSSI ! ) ! Test and Set Bit with Interlock ! G s ! The Test and Set Bit with Interlock routine tests and sets a . ! selected bit under memory interlock. ! ) EXTERNAL LONG FUNCTION lib$bbssi & ( &" LONG BY REF, &# LONG BY VALUE & ) ! LIB$BUILD_NODESPEC ! ) ! Build a Node-Name Specification ! H ! The Build a Node-Name Specification routine builds a node-name3 ! specification from the primary node tname. ! 2 EXTERNAL LONG FUNCTION lib$build_nodespec & ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$CALLG ! 1 ! Call Routine with General Argument List ! U ! The Call Routine with General Argument List routine calls a routine with anY ! u argument list specified as an array of longwords, the first of which is a countM ! of the remaining longwords. LIB$CALLG is a callable version of the ! VAX CALLG instruction. ! ) EXTERNAL LONG FUNCTION lib$callg & ( &! ANY BY REF, &# LONG BY VALUE & ) ! LIB$CHAR ! 5 ! Transform Byte to First Character of String ! U ! The Transform Byte to First vCharacter of String routine transforms a singleS ! 8-bit ASCII character to an ASCII string consisting of a single characterW ! followed by trailing spaces, if needed, to fill out the string. The range of* ! the input byte is 0 through 255. ! ( EXTERNAL LONG FUNCTION lib$char & ( &% STRING BY DESC, &! BYTE BY REF & ) ! LIB$COMPARE_NODENAME ! ! Compare Two Nowde Names ! ? ! The Compare Node Name routine compares two node names7 ! to see if they resolve to the same full name. ! 4 EXTERNAL LONG FUNCTION lib$compare_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! LIB$COMPARE_UID !  ! Compare Two UIDs ! < ! The Compare Two UIDs routine compares the contents1 ! x of two UIDs for total lexical ordering. ! / EXTERNAL LONG FUNCTION lib$compare_uid & ( &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &! LONG BY REF & ) ! LIB$COMPRESS_NODENAME ! 0 ! Compress a Node Name to its Short Form ! G ! The Compress a Node Name routine compresses a node name to anE ! unambiguous short form usable within the namying environment- ! where the compression is performed. ! 5 EXTERNAL LONG FUNCTION lib$compress_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & )! ! LIB$CONVERT_DATE_STRING ! ) ! Convert Date String to Quadword ! O ! The Convert Date String to Quadword routine converts an absolute dateN ! string into a zVMS internal format date-time quadword. That is, given: ! an input date/time string of a specified format,O ! LIB$CONVERT_DATE_STRING converts this string to a VMS internal format ! time. ! 7 EXTERNAL LONG FUNCTION lib$convert_date_string & ( &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &' WORD DIM() BY R{EF, &! LONG BY REF & ) ! LIB$CRC ! 3 ! Calculate a Cyclic Redundancy Check (CRC) ! Z ! The Calculate a Cyclic Redundancy Check routine calculates the cyclic redundancy( ! check (CRC) for a data stream. ! ' EXTERNAL LONG FUNCTION lib$crc & ( &' LONG DIM() BY REF, &" LONG BY REF, &$ STRING BY DESC & ) |! LIB$CRC_TABLE ! : ! Construct a Cyclic Redundancy Check (CRC) Table ! X ! The Construct a Cyclic Redundancy Check Table routine constructs a 16-longwordU ! table that uses a cyclic redundancy check polynomial specification as a bit ! mask. ! # EXTERNAL SUB lib$crc_table & ( &" LONG BY REF, && LONG DIM() BY REF & ) ! LIB$CREATE_DIR !  } ! Create a Directory ! M ! The Create a Directory routine creates a directory or subdirectory. ! . EXTERNAL LONG FUNCTION lib$create_dir & ( &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" WORD BY REF, &" WORD BY REF, &" WORD BY REF, &! WORD BY REF & )! ! LIB$CREATE_USER_VM_ZONE ! * ! Cr~eate User-Defined Storage Zone ! Y ! The Create User-Defined Storage Zone routine creates a new user-defined storage ! zone. ! 7 EXTERNAL LONG FUNCTION lib$create_user_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ STRING BY DESC & ) ! LIB$CREATE_VM_ZONE !  ! Create a New Zone ! Y ! The Create a New Zone routine creates a new storage zone according to specified ! arguments. ! 2 EXTERNAL LONG FUNCTION lib$create_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$CRF_INS_KEY ! - ! Insert Key in Cross-Reference Table ! Y ! The Insert Key in Cross-Reference Table routine inserts information about a key' ! into a cross-reference table. ! % EXTERNAL SUB lib$crf_ins_key & ( &' LONG DIM() BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$CRF_INS_REF ! @ ! Insert Reference to a Key in the Cross-Reference Table ! V ! The Insert Reference to a Key in the Cross-Reference Table routine inserts a? ! reference to a key in a cross-reference symbol table. ! % EXTERNAL SUB lib$crf_ins_ref & ( &' LONG DIM() BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$CRF_OUTPUT ! 2 ! Output Cross-Reference Table Information ! W ! The Output Cross-Reference Table Information routine extracts the informationG ! from the cross-reference tables and formats the output pages. ! $ EXTERNAL SUB lib$crf_output & ( &' LONG DIM() BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$CURRENCY ! $ ! Get System Currency Symbol ! V ! The Get System Cur rency Symbol routine returns the system's currency symbol. ! , EXTERNAL LONG FUNCTION lib$currency & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & )% ! LIB$CVTF_FROM_INTERNAL_TIME ! I ! Convert Internal Time to External Time (F-Floating Point Value) ! M ! The Convert Internal Time to External Time (F-Floating Point Value)L ! routine converts a delta internal VMS system time into an external ! F-floating time. ! ; EXTERNAL LONG FUNCTION lib$cvtf_from_internal_time & ( &" LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & )# ! LIB$CVTF_TO_INTERNAL_TIME ! I ! Convert External Time to Internal Time (F-Floating Point Value) ! U ! The Convert External Time to Internal Time (F-Floating Point Value) routineX ! converts an external time interval into a VMS internal format F-floating delta ! time. ! 9 EXTERNAL LONG FUNCTION lib$cvtf_to_internal_time & ( &" LONG BY REF, &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_DTB ! ( ! Convert Numeric Text to Binary ! W ! The Convert Numeric Text to Binary routines return a binary representation ofZ ! the ASCII text string representation of a decimal, hexadecimal, or octal number. ! + EXTERNAL LONG FUNCTION lib$cvt_dtb & ( &$ LONG BY VALUE, &$ STRING BY REF, &! LONG BY REF & ) ! LIB$CVT_DX_DX ! . ! General Data Type Conversion Routine ! p ! The General Data Type Conversion routine converts a VMS standard atomic or string datum described by aT ! source descriptor to another VMS standard atomic or string datum describedT ! by a destination descriptor. This conversion is supported over a subset of& ! the VMS standard data types. ! - EXTERNAL LONG FUNCTION lib$cvt_dx_dx & ( &! ANY BY REF, &! ANY BY REF, &) OPTIONAL WORD BY REF & )$ ! LIB$CVT_FROM_INTERNAL_TIME ! 0 ! Convert Internal Time to External Time ! U ! The Convert Internal Time to External Time routine converts an internal VMSH ! system time (either absolute or delta) into an external time. ! : EXTERNAL LONG FUNCTION lib$cvt_from_internal_time & ( &" LONG BY REF, &" LONG BY REF, &3 OPTIONAL BASIC$QUADWORD BY REF & ) ! LIB$CVT_HTB ! ( ! Convert Numeric Text to Binary ! E ! The Convert Numeric Text to Binary routines return a binaryE ! representation of the ASCII text string representation of a0 ! decimal, hexadecimal, or octal number. ! + EXTERNAL LONG FUNCTION lib$cvt_htb & ( &$ LONG BY VALUE, &$ STRING BY REF, &! LONG BY REF & ) ! LIB$CVT_OTB ! ( ! Convert Numeric Text to Binary ! E ! The Convert Numeric Text to Binary routines return a binaryE ! representation of the ASCII text string representation of a0 ! decimal, hexadecimal, or octal number. ! + EXTERNAL LONG FUNCTION lib$cvt_otb & ( &$ LONG BY VALUE, &$ STRING BY REF, &! LONG BY REF & )" ! LIB$CVT_TO_INTERNAL_TIME ! 0 ! Convert External Time to Internal Time  ! V ! The Convert External Time to Internal Time routine converts an external time9 ! interval into a VMS internal format delta time. ! 8 EXTERNAL LONG FUNCTION lib$cvt_to_internal_time & ( &" LONG BY REF, &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$CVT_VECTIM ! 4 ! Convert Seven-Word Vector to Internal Time ! K ! The Convert Seven-Word Vector to Internal Time routine converts a ! seven-word vector< ! into a VMS internal format delta or absolute time. ! . EXTERNAL LONG FUNCTION lib$cvt_vectim & ( &' WORD DIM() BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$DATE_TIME ! , ! Date and Time Returned as a String ! T ! The Date and Time Returned as a String routine returns the VMS system date> ! and time in the semantics of a user-provided string. ! - EXTERNAL LONG FUNCTION lib$date_time & ( &$ STRING BY DESC & ) ! LIB$DAY ! 3 ! Day Number Returned as a Longword Integer ! Z ! The Day Number Returned as a Longword Integer routine returns the number of daysU ! since the system zero date of November 17, 1858, or the number of days from5 ! November 17, 1858, to a user-supplied date. ! ' EXTERNAL LONG FUNCTION lib$day & ( &" LONG BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$DAY_OF_WEEK ! " ! Show Numeric Day of Week ! Y ! The Show Numeric Day of Week routine returns the numeric day of the week for anX ! input time value. If 0 is the input time value, the current day of the week isZ ! returned. The days are numbered 1 through 7, with Monday as day 1 and Sunday as ! day 7. ! / EXTERNAL LONG FUNCTION lib$day_of_week & ( &, BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$DECODE_FAULT ! 0 ! Decode Instruction Stream During Fault ! S ! The Decode Instruction Stream During Fault routine is a tool for buildingU  ! condition handlers that process instruction fault exceptions. It is called# ! from a condition handler. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! 0 EXTERNAL LONG FUNCTION lib$decode_fault & ( &! ANY BY REF, &! ANY BY REF, &# LONG BY DESC, &+ OPTIONAL ANY BY VALUE, &&  BYTE DIM() BY REF & ) ! LIB$DEC_OVER ! 6 ! Enable or Disable Decimal Overflow Detection ! V ! The Enable or Disable Decimal Overflow Detection routine enables or disablesV ! decimal overflow detection for the calling routine activation. The previous/ ! decimal overflow setting is returned. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! , EXTERNAL LONG FUNCTION lib$dec_over & ( &! LONG BY REF & ) ! LIB$DELETE_FILE ! " ! Delete One or More Files ! M ! The Delete One or More Files routine deletes one or more files. TheK ! specification of the file(s) to be deleted may include wildcards.K ! LIB$DELETE_FILE is similar in function to the DCL command DELETE. ! / EXTERNAL LONG FUNCTION lib$delete_file & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# ANY BY VALUE, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$DELETE_LOGICAL !   ! Delete Logical Name ! Y ! The Delete Logical Name routine requests the calling process's Command LanguageM ! Interpreter (CLI) to delete a supervisor-mode process logical name.T ! LIB$DELETE_LOGICAL provides the same function as the DCL command DEASSIGN. ! 2 EXTERNAL LONG FUNCTION lib$delete_logical & ( &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! LIB$DELETE_SYMBOL !  ! Delete CLI Symbol ! W ! The Delete CLI Symbol routine requests the calling process's Command Language= ! Interpreter (CLI) to delete an existing CLI symbol. ! 1 EXTERNAL LONG FUNCTION lib$delete_symbol & ( &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$DELETE_VM_ZONE ! $ ! Delete Virtual Memory Zone ! C !  The Delete Virtual Memory Zone routine deletes a zone andD ! returns all pages on VAX or pagelets on Alpha owned by the, ! zone to the processwide page pool. ! 2 EXTERNAL LONG FUNCTION lib$delete_vm_zone & ( &! LONG BY REF & ) ! LIB$DIGIT_SEP ! $ ! Get Digit Separator Symbol ! U ! The Get Digit Separator Symbol routine returns the system's digit separator ! symbol. ! - EXTERNAL LONG FUNCTION lib$digit_sep & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$DISABLE_CTRL ! 8 ! Disable CLI Interception of Control Characters ! Y ! The Disable CLI Interception of Control Characters routine requests the callingT ! process's Command Language Interpreter (CLI) to not intercept the selectedX ! control characters when they are typed during an interactive terminal session.W ! LIB$DISABLE_CTRL provides the same function as the DCL command SET NOCONTROL. ! 0 EXTERNAL LONG FUNCTION lib$disable_ctrl & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$DO_COMMAND !  ! Execute Command ! U ! The Execute Command routine stops program execution and directs the CommandX ! Language Interpreter to execute a command which you supply as the argument. IfT ! successful, LIB$DO_COMMAND does not return control to the calling program.L ! Instead, LIB$DO_COMMAND begins execution of the specified command.M ! If you want control to return to the caller, use LIB$SPAWN instead. ! . EXTERNAL LONG FUNCTION lib$do_command & ( &$ STRING BY DESC & ) ! LIB$EDIV ! # ! Extended-Precision Divide ! U ! The Extended-Precision Divide routine performs extended-precision division.% ! LIB$EDIV makes the VAX EDIV ! 6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$ediv & ( &" LONG BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$EMODD !  O ! Extended Multiply and Integerize Routines for D-Floating Point Values ! W ! The Extended Multiply and Integerize routine (D-Floating Point Values) allowsW ! higher-level language users to perform accurate range reduction of D-floating ! arguments. ! N ! D-floating point values are not supported in full precision on AlphaP ! systems. They are precise to 56 bits on VAX systems, 53 bits on Alpha ! systems. ! )  EXTERNAL LONG FUNCTION lib$emodd & ( &$ DOUBLE BY REF, &" BYTE BY REF, &$ DOUBLE BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! LIB$EMODF ! O ! Extended Multiply and Integerize Routines for F-Floating Point Values ! W ! The Extended Multiply and Integerize routine (F-Floating Point Values) allowsW ! higher-level language users to perform accurate range reduction of F-floating ! arguments. ! ) EXTERNAL LONG FUNCTION lib$emodf & ( &$ SINGLE BY REF, &" BYTE BY REF, &$ SINGLE BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! LIB$EMODG ! O ! Extended Multiply and Integerize Routines for G-Floating Point Values ! W !  The Extended Multiply and Integerize routine (G-Floating Point Values) allowsW ! higher-level language users to perform accurate range reduction of G-floating ! arguments. ! ) EXTERNAL LONG FUNCTION lib$emodg & ( &$ GFLOAT BY REF, &" WORD BY REF, &$ GFLOAT BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! LIB$EMODH ! O ! Extended Multiply and Integerize Routines for H-Floating Point Values ! C ! On VAX VMS, the Extended Multiply and Integerize routine * ! (H-Floating Point Values) allowsW ! higher-level language users to perform accurate range reduction of H-floating ! arguments. ! ) EXTERNAL LONG FUNCTION lib$emodh & ( &$ HFLOAT BY REF, &" WORD BY REF, &$ HFLOAT BY REF, &" LONG BY REF, &# HFLOAT BY REF & ) ! LIB$EMUL ! % ! Extended-Precision Multiply ! M ! The Extended-Precision Multiply routine performs extended-precision ! multiplication. % ! LIB$EMUL makes the VAX EMUL ! 6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$emul & ( &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$ENABLE_CTRL ! 7 ! Enable CLI Interception of Control Characters ! X ! The Enable CLI Interception of Control Characters routine requests the callingT ! process's Command Language Interpreter (CLI) to resume interception of theX ! selected control characters when they are typed during an interactive terminalT ! session. LIB$ENABLE_CTRL provides the same function as the DCL command SET ! CONTROL. ! / EXTERNAL LONG FUNCTION lib$enable_ctrl & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$ESTABLISH ! ' ! Establish a Condition Handler ! T ! The Establish a Condition Handler routine moves the address of a conditionP ! handling routine (which can be a user-written or a library routine) toG ! longword 0 of the stack frame of the caller of LIB$ESTABLISH. ! - EXTERNAL LONG FUNCTION lib$establish & ( &# LONG BY VALUE & ) ! LIB$EXPAND_NODENAME ! 8 ! Expand a Node Name to its Full Name equivalent ! D ! The Expand a Node Name to its Full Name equivalent routine: ! expands a node name to its full name equivalent. !  3 EXTERNAL LONG FUNCTION lib$expand_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$EXTV ! ) ! Extract a Field and Sign-Extend ! V ! The Extract a Field and Sign-Extend routine returns a sign-extended longwordO ! field that has been extracted from the specified variable bit field. % ! LIB$EXTV makes the VAX EXTV ! 6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$extv & ( &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$EXTZV ! ' ! Extract a Zero-Extended Field ! Z ! The Extract a Zero-Extended Field routine returns a longword zero-extended fieldI ! that has been extracted from the specified variable bit field. ' ! LIB$EXTZV makes the VAX EXTZV ! 6 ! instruction available as a callable routine. ! ) EXTERNAL LONG FUNCTION lib$extzv & ( &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$FFC ! % ! Find First Clear or Set Bit ! P ! The Find First Clear or Set Bit routines search the field specified byM ! the start position, size, and base for the first clear or set bit. Q ! LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available ! as callable routines. ! > ! On Alpha VMS systems, Alpha instructions perform the ! equivalent operations. ! ' EXTERNAL LONG FUNCTION lib$ffc & ( &" LONG BY REF, &" BYTE BY REF, &" LONG BY REF, &!  LONG BY REF & ) ! LIB$FFS ! % ! Find First Clear or Set Bit ! P ! The Find First Clear or Set Bit routines search the field specified byM ! the start position, size, and base for the first clear or set bit. Q ! LIB$FFC and LIB$FFS make the VAX FFC and VAX FFS instructions available ! as callable routines. ! > ! On Alpha VMS systems, Alpha instructions perform the ! equivalent operations. ! ' EXTERNAL LONG FUNCTION lib$ffs & ( &" LONG BY REF, &" BYTE BY REF, &" LONG BY REF, &! LONG BY REF & ) ! LIB$FID_TO_NAME ! : ! Convert Device and File ID to File Specification ! V ! The Convert Device and File ID to File Specification routine converts a diskB ! device name and file identifier to a file specification. ! / EXTERNAL LONG FUNCTION lib$fid_to_name & ( &% STRING BY DESC, &' WORD DIM() BY REF, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &' WORD DIM() BY REF, &! LONG BY REF & ) ! LIB$FILE_SCAN !  ! File Scan ! T ! The File Scan routine searches an area, such as a directory, for all fil esV ! matching the file specification given and transfers program execution to theY ! specified user-written routine. Wildcards are acceptable. An action routine isR ! called for each file and/or error found. LIB$FILE_SCAN allows the searchZ ! sequence to continue even if an error occurs while processing a particular file. ! - EXTERNAL LONG FUNCTION lib$file_scan & ( &! ANY BY REF, &$ LONG BY VA LUE, &$ LONG BY VALUE, &) OPTIONAL LONG BY REF & ) ! LIB$FILE_SCAN_END !  ! End-of-File Scan ! P ! The End-of-File Scan routine is called after each sequence of calls toZ ! LIB$FILE_SCAN. LIB$FILE_SCAN_END deallocates any saved Record Management ServiceY ! (RMS) context and/or deallocates the virtual memory that had been allocated for= ! holding the related file specification information. ! 1 EXTERNAL LONG FUNCTION lib$file_scan_end & ( &) OPTIONAL ANY BY REF, &! LONG BY REF & ) ! LIB$FIND_FILE !  ! Find File ! Y ! The Find File routine is called with a wildcard file specification for which itO ! searches. LIB$FIND_FILE returns all file specifications that satisfy+ ! that wildcard file specification. ! - EXTERNAL LONG FUNCTION lib$find_file & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! LIB$FIND_FILE_END !  ! End of Find File ! U ! The End of Find File routine is called once after each sequence of calls toZ ! LIB$FIND_FILE. LIB$FIND_FILE_END deallocates any saved Record Management ServiceU ! (RMS) context and deallocates the virtual memory used to hold the allocated ! context block. ! 1 EXTERNAL LONG FUNCTION lib$find_file_end & ( &! LONG BY REF & ) ! LIB$FIND_IMAGE_SYMBOL ! 7 ! Find Universal Symbol in Shareable Image File ! S ! The Find Univers al Symbol in Shareable Image File routine reads universalZ ! symbols from the shareable image file. This routine then dynamically activates aA ! shareable image into the P0 address space of a process. ! 5 EXTERNAL LONG FUNCTION lib$find_image_symbol & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &# LONG BY VALUE & ) ! LIB$FIND_VM_ZONE ! / ! Return the Next Valid Zone Identifier ! G ! The Return the Next Valid Zone Identifier routine returns theG ! zone identifier of the next valid zone in the heap management ! database. ! 0 EXTERNAL LONG FUNCTION lib$find_vm_zone & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$FIT_NODENAME ! . ! Fit a Node Name into an output field ! : ! The Fit a Node Name into an output field routine0 ! fits a Node Name into an output field. ! 0 EXTERNAL LONG FUNCTION lib$fit_nodename & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! WORD BY REF & ) ! LIB$FIXUP_FLT ! ' ! Fix Floating Reserved Operan d ! U ! The Fix Floating Reserved Operand routine finds the reserved operand of anyR ! F-floating, D-floating, G-floating, or H-floating instruction (with someU ! exceptions) after a reserved operand fault has been signaled. LIB$FIXUP_FLTE ! changes the reserved operand from --0.0 to the value of the9 ! new-operand argument, if present; or to +0.0 if ! new-operand is absent. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! - EXTERNAL LONG FUNCTION lib$fixup_flt & ( &! ANY BY REF, &! ANY BY REF, &+ OPTIONAL SINGLE BY REF & ) ! LIB$FLT_UNDER ! , ! Floating-Point Underflow Detection ! L ! The Floating-Point Underflow Detection routine enables or disablesU ! floating-point underflow detection for the calling routine activation. The; ! previous setting is returned as a function value. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! - EXTERNAL LONG FUNCTION lib$flt_under & ( &! LONG BY REF & ) ! LIB$FORMAT_DATE_TIME ! ! ! Format Date and/or Time ! U ! The Format Date and/or Time routine allows the user to select at run time aJ ! specific output language and format for a date or time, or both. ! 4 EXTERNAL LONG FUNCTION lib$format_date_time & ( &% STRING BY DESC, &4 OPTIONAL BASIC$QUADWORD BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )$ ! LIB$FREE_DATE_TIME_CONTEXT ! X ! Free the Context Area Used When Formatting Dates and Times for Input or Output ! L ! The Free the Context Area Used When Formatting Dates and Times for' ! Input or Output routine freesS ! the virtual memory associated with the context area used by the date/time/ ! input and output Formatting Routines. ! : EXTERNAL LONG FUNCTION lib$free_date_time_context & ( &) OPTIONAL LONG BY REF & ) ! LIB$FREE_EF !  ! Free Event Flag ! V ! The Free Event Flag routine frees a local event flag previously allocated byB ! LIB$GET_EF. LIB$FREE_EF is the complement of LIB$GET_EF. ! + EXTERNAL LONG FUNCTION lib$free_ef & ( &! LONG BY REF & ) ! LIB$FREE_LUN ! " ! Free Logical Unit Number ! Z ! The Free Logical Unit Number routine releases a logical unit number allocated by. ! LIB$GET_LUN to the pool of available4 ! numbers. LIB$FREE_LUN is the complement of ! LIB$GET_LUN. ! , EXTERNAL LONG FUNCTION lib$free_lun & ( &! LONG BY REF & ) ! LIB$FREE_TIMER !  ! Free Timer Storage ! E ! The Free Timer Storage routine frees the storage allocated  ! by LIB$INIT_TIMER. ! . EXTERNAL LONG FUNCTION lib$free_timer & ( &! LONG BY REF & ) ! LIB$FREE_VM ! 1 ! Free Virtual Memory from Program Region ! Y ! The Free Virtual Memory from Program Region routine deallocates an entire blockW ! of contiguous bytes that were allocated by a previous call to LIB$GET_VM. The: ! arguments passed are the same as for LIB$GET_VM. ! + EXTERNAL LONG FUNCTION lib$free_vm & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$FREE_VM_PAGE ! " ! Free Virtual Memory Page ! E ! The Free Virtual Memory Page routine deallocates a block ofJ ! contiguous pages on VAX or pagelets on Alpha that were allocated/ ! by previous calls to LIB$GET_VM_PAGE. ! 0 EXTERNAL LONG FUNCTION lib$free_vm_page &  ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$GETDVI ! ' ! Get Device/Volume Information ! Z ! The Get Device/Volume Information routine provides a simplified interface to theX ! $GETDVI system service. It returns information about the primary and secondaryV ! device characteristics of an I/O device. The calling process need not have aJ ! channel assigned to the device about which it wants information. ! * EXTERNAL LONG FUNCTION lib$getdvi & ( &" LONG BY REF, &* OPTIONAL WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GETJPI ! % ! Get Job/Process Information ! X ! The Get Job/Process Information routine provides a  simplified interface to theT ! $GETJPI system service. It provides accounting, status, and identification0 ! information about a specified process.K ! LIB$GETJPI obtains only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getjpi & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GETQUI !  ! Get Queue Information ! R ! The Get Queue Information routine provides a simplified interface to theO ! $GETQUI system service. It provides queue, job, file, characteristic, ! and form0 ! information about a specified process.K ! LIB$GETQUI obtains only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getqui & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &! ANY BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GETSYI ! $ ! Get Systemwide Information ! W ! The Get Systemwide Information routine provides a simplified i nterface to the" ! $GETSYI system service. d ! The $GETSYI system service obtains status and identification information about the system.K ! LIB$GETSYI returns only one item of information in a single call. ! * EXTERNAL LONG FUNCTION lib$getsyi & ( &" LONG BY REF, &) OPTIONAL ANY BY REF, &% STRING BY DESC, &" WORD BY REF, &" LONG BY REF, &$  STRING BY DESC & ) ! LIB$GET_ACCNAM ! : ! Get Access Name Table for Protected Object Class ! N ! The Get Access Name Table for Protected Object Class routine returnsN ! a pointer to the access name table for a protected object class that ! is specified by name. ! . EXTERNAL LONG FUNCTION lib$get_accnam & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & )# ! LIB$GET_ACCNAM_BY_CONTEXT ! : ! Get Access Name Table for Protected Object Class ! N ! The Get Access Name Table for Protected Object Class routine returnsN ! a pointer to the access name table for a protected object class that$ ! is specified by a context. ! 9 EXTERNAL LONG FUNCTION lib$get_accnam_by_context & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$GET_COMMAND ! # ! Get Line from SYS$COMMAND ! X ! The Get Line from SYS$COMMAND routine gets one record of ASCII text from theV ! current controlling input device, specified by the logical name SYS$COMMAND. ! / EXTERNAL LONG FUNCTION lib$get_command & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &!  WORD BY REF & ) ! LIB$GET_COMMON ! ! Get String from Common ! V ! The Get String from Common routine copies a string in the common area to theZ ! destination string. (The common area is an area of storage which remains definedZ ! across multiple image activations in a process.) The string length is taken from0 ! the first longword of the common area. ! . EXTERNAL LONG FUNCTION lib$get_common & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & )# ! LIB$GET_CURR_INVO_CONTEXT ! ( ! Get Current Invocation Context ! P ! The Get Current Invocation Context routine gets the current invocation* ! context of any active procedure. ! S ! ENTRY lib$get_curr_invo_context ALIAS $lib_get_curr_invo_context PARAMETER (3 ! LONGWORD UNSIGNED NAMED invo_context OUT5  ! TYPENAME invo_context_blk REFERENCE );" ! LIB$GET_CURR_INVO_HANDLE ! ' ! Get Current Invocation Handle ! O ! The Get Current Invocation Handle routine gets the current invocation) ! handle of any active procedure. ! E ! ENTRY lib$get_curr_invo_handle ALIAS $lib_get_curr_invo_handleK ! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned; ! LIB$GET_DATE_FORMAT ! * ! Get the User's Date Input Format ! P ! The Get The User's Date Input Format routine returns information about8 ! the user's choice of a date/time input format. ! 3 EXTERNAL LONG FUNCTION lib$get_date_format & ( &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$GET_EF !  ! Get Event Flag ! W ! The Get Event Flag routine allocates one local event flag from a process-wideZ ! pool and returns the number of the allocated flag to the caller. If no flags areG ! available, LIB$GET_EF returns an error as its function value. ! * EXTERNAL LONG FUNCTION lib$get_ef & ( &! LONG BY REF & ) ! LIB$GET_FOREIGN ! " ! Get Foreign Command Line ! S ! The Get Foreign Command Line routine requests the calling image's CommandJ ! Language Interpreter (CLI) to return the contents of the foreign8 ! command line that activated the current image. ! foreign ! / EXTERNAL LONG FUNCTION lib$get_foreign & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! LONG BY REF & )! ! LIB$GET_FULLNAME_OFFSET ! I ! Get the Offset to the Starting Position of the Most Significant ! Part of a Full Name ! M ! The Get the Offset to the Starting Position of the Most SignificantE ! Part of a Full Name routine gets the offset to the starting? ! position of the most significant part of a full name. ! 7 EXTERNAL LONG FUNCTION lib$get_fullname_offset & ( &% STRING BY DESC, &! WORD BY REF & ) ! LIB$GET_HOSTNAME !  ! Get Host Node Name ! F ! The Get Host Node Name routine returns the host node name of ! the local system. ! 0 EXTERNAL LONG FUNCTION lib$get_hostname & ( &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! LONG BY REF & ) ! LIB$GET_INPUT ! ! ! Get Line from SYS$INPUT ! V ! The Get Line from SYS$INPUT routine gets one record of ASCII text from theC ! current controlling input device, specified by SYS$INPUT. ! - EXTERNAL LONG FUNCTION lib$get_input & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &! WORD BY REF & ) ! LIB$GET_INVO_CONTEXT ! ! ! Get Invocation Context ! H ! The Get Invocation Context routine gets the invocation context" ! of any act ive procedure. ! I ! ENTRY lib$get_invo_context ALIAS $lib_get_invo_context PARAMETER (1 ! LONGWORD UNSIGNED NAMED invo_handle IN* ! TYPENAME invo_handle VALUE,3 ! LONGWORD UNSIGNED NAMED invo_context OUT4 ! TYPENAME invo_context_blk REFERENCE )K ! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned; ! LIB$GET_INVO_HANDLE !  ! Get Invocation Handle ! F ! The Get Invocation H andle routine gets the invocation handle" ! of any active procedure. ! G ! ENTRY lib$get_invo_handle ALIAS $lib_get_invo_handle PARAMETER (3 ! LONGWORD UNSIGNED NAMED invo_context OUT4 ! TYPENAME invo_context_blk REFERENCE )K ! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned; ! LIB$GET_LOGICAL !  ! Get Logical ! N ! The Get Logical routine gets the logical name information by calling0 ! the system service routine SYS$TRNLNM. ! / EXTERNAL LONG FUNCTION lib$get_logical & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &! LONG BY REF & ) ! LIB$GET_LUN ! ! ! Ge t Logical Unit Number ! V ! The Get Logical Unit Number routine allocates one logical unit number from aS ! process-wide pool. If a unit is available, its number is returned to theI ! caller. Otherwise, an error is returned as the function value. ! + EXTERNAL LONG FUNCTION lib$get_lun & ( &! LONG BY REF & )% ! LIB$GET_MAXIMUM_DATE_LENGTH ! ; ! Retrieve the Maximum Length of  a Date/Time String ! N ! Given an output format and language, the Retrieve the Maximum LengthR ! of a Date/Time String routine determines the maximum possible length forB ! the date-string string returned by LIB$FORMAT_DATE_TIME. ! ; EXTERNAL LONG FUNCTION lib$get_maximum_date_length & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )# ! LIB$GET_PR EV_INVO_CONTEXT ! ) ! Get Previous Invocation Context ! R ! The Get Previous Invocation Context routine gets the previous invocation* ! context of any active procedure. ! S ! ENTRY lib$get_prev_invo_context ALIAS $lib_get_prev_invo_context PARAMETER (6 ! LONGWORD UNSIGNED NAMED invo_context IN OUT4 ! TYPENAME invo_context_blk REFERENCE )K ! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned;" ! LIB$GET_PREV_INVO_HANDLE ! ( ! Get Previous Invocation Handle ! Q ! The Get Previous Invocation Handle routine gets the previous invocation) ! handle of any active procedure. ! Q ! ENTRY lib$get_prev_invo_handle ALIAS $lib_get_prev_invo_handle PARAMETER (1 ! LONGWORD UNSIGNED NAMED invo_handle IN+ ! TYPENAME invo_handle VALUE )K ! RETURNS LONGWORD UNSIGNED NAMED RESULT TYPENAME longword_unsigned; ! LIB$GET_ SYMBOL ! ! ! Get Value of CLI Symbol ! T ! The Get Value of CLI Symbol routine requests the calling process's CommandU ! Language Interpreter (CLI) to return the value of a CLI symbol as a string.Z ! LIB$GET_SYMBOL then returns the string to the caller. Optionally, LIB$GET_SYMBOLW ! can return the length of the returned value and the table in which the symbol ! was found. ! . EXTERNAL LONG FUNCTION lib$get_symbol & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! LONG BY REF & ) ! LIB$GET_USERS_LANGUAGE ! $ ! Return the User's Language ! Z ! The Return the User's Language routine determines the user's choice of a naturalU ! language. The choice is determined by translating the logical SYS$LANGUAGE. ! 6 EXTERNAL LONG FUNCTION lib$get_users_language & ( &$ STRING BY DESC & ) ! LIB$GET_VM ! ! ! Allocate Virtual Memory ! X ! The Allocate Virtual Memory routine allocates a specified number of contiguousW ! bytes in the program region and returns the virtual address of the first byte ! allocated. ! * EXTERNAL LONG FUNCTION lib$get_vm & ( &" LONG BY REF, & " LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$GET_VM_PAGE ! ! ! Get Virtual Memory Page ! M ! The Get Virtual Memory Page routine allocates a specified number ofP ! contiguous pages on VAX and pagelets on Alpha of memory in the programO ! region and returns the virtual address of the first allocated page on# ! VAX and pagelet on Alpha. ! / EXTERNAL LONG FUNCTION lib$get_vm_page & ( &" LONG BY REF, &! LONG BY REF & ) ! LIB$ICHAR ! 6 ! Convert First Character of String to Integer ! U ! The Convert First Character of String to Integer routine converts the firstX ! character of a source string to an 8-bit ASCII integer extended to a longword. ! ) EXTERNAL LONG FUNCTION lib$ichar & ( &$  STRING BY DESC & ) ! LIB$INDEX ! 1 ! Index to Relative Position of Substring ! X ! The Index to Relative Position of Substring routine returns an index, which isT ! the relative position of the first occurrence of a substring in the source ! string. ! ) EXTERNAL LONG FUNCTION lib$index & ( &% STRING BY DESC, &$ STRING BY DESC & ) $ ! LIB$INIT_DATE_TIME_CONTEXT ! \ ! Initialize the Context Area Used in Formatting Dates and Times for Input or Output ! P ! The Initialize the Context Area Used in Formatting Dates and Times for ! Input or OutputH ! routine allows the user to initialize the context area used byP ! LIB$FORMAT_DATE_TIME or LIB$CONVERT_DATE_STRING with specific strings,6 ! instead of through logical name translation. ! : EXTERNAL LONG FUNCTION lib$init_date_time_context & ( &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! LIB$INIT_TIMER ! % ! Initialize Times and Counts ! X ! The Initialize Times and Counts routine stores the current values of specified4 ! times and counts for use by LIB$SHOW_TIMER ! or LIB$STAT_TIMER. ! . EXTERNAL LONG FUNCTION lib$init_timer & ( &) OPTIONAL LONG BY REF & ) ! LIB$INSERT_TREE ! 0 ! Insert Entry in a Balanced Binary Tree ! Y ! The Insert Entry in a Balanced Binary Tree routine inserts a node in a balanced ! binary tree. ! / EXTERNAL LONG FUNCTION lib$insert_tree & ( &" LONG BY REF, &! ANY BY REF, &" LONG BY REF, &$  LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &+ OPTIONAL LONG BY VALUE & ) ! LIB$INSQHI ! ' ! Insert Entry at Head of Queue ! X ! The Insert Entry at Head of Queue routine inserts a queue entry at the head ofQ ! the specified self-relative interlocked queue. LIB$INSQHI makes the VAX= ! INSQHI instruction available as a callable routine. !  * EXTERNAL LONG FUNCTION lib$insqhi & ( &! ANY BY REF, &, BASIC$QUADWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSQTI ! ' ! Insert Entry at Tail of Queue ! P ! The Insert Entry at Tail of Queue routine inserts a queue entry at theL ! tail of the specified self-relative interlocked queue. LIB$INSQTIK ! makes the VAX INSQTI instruction available as a callable routine. ! * EXTERNAL LONG FUNCTION lib$insqti & ( &! ANY BY REF, &, BASIC$QUADWORD BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$INSV ! % ! Insert a Variable Bit Field ! Q ! The Insert a Variable Bit Field routine replaces the variable bit fieldQ ! specified by the base, position, and size arguments with bits 0 throughO ! of the source field. If the size of the bit field is zero, nothing isK ! inserted. LIB$INSV makes the VAX INSV instruction available as a ! callable routine. !  EXTERNAL SUB lib$insv & ( &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) ! LIB$INT_OVER ! $ ! Integer Overflow Detection ! U  ! The Integer Overflow Detection routine enables or disables integer overflowV ! detection for the calling routine activation. The previous integer overflow% ! enable setting is returned. ! K ! This routine is available on Alpha VMS systems in translated form: ! and is applicable to translated VAX images only. ! , EXTERNAL LONG FUNCTION lib$int_over & ( &! LONG BY REF & ) ! LIB$LEN ! 5 ! Length of String Returned as Longword Value ! Y ! The Length of String Returned as Longword Value routine returns the length of a ! string. ! ' EXTERNAL WORD FUNCTION lib$len & ( &$ STRING BY DESC & ) ! LIB$LOCC !  ! Locate a Character ! U ! The Locate a Character routine locates a character in a string by comparingQ ! successive bytes in the string with the character specified. The searchV ! continues until the character is found or the string has no more characters.% ! LIB$LOCC makes the VAX LOCC ! 6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$locc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$LOOKUP_KEY ! " ! Look Up Keyword in Table ! Y ! The Look Up Keyword In Table routine scans a table of keywords to find one thatB ! matches the keyword or keyword abbreviation specified by ! search-string. ! . EXTERNAL LONG FUNCTION lib$lookup_key & ( &% STRING BY DESC, &! ANY BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! LIB$LOOKUP_TREE ! 4 ! Look Up an Entry in a Balanced Binary Tree ! W ! The Look Up an Entry in a Balanced Binary Tree routine looks up an entry in a ! balanced binary tree. ! / EXTERNAL LONG FUNCTION lib$lookup_tree & ( &" LONG BY REF, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! LIB$LP_LINES ! $ !  Lines on Each Printer Page ! Z ! The Lines on Each Printer Page routine computes the default number of lines on aR ! printer page. This routine can be used by native-mode VMS utilities that3 ! produce listing files and paginate files. ! * EXTERNAL LONG FUNCTION lib$lp_lines ! LIB$MATCHC ! 4 ! Match Characters, Return Relative Position ! U ! The Match Characters and Return Relative Position routine searches  a sourceV ! string for a specified substring and returns an index, which is the relativeO ! position of the first occurrence of a substring in the source string.N ! The relative character positions returned by LIB$MATCHC are numberedG ! 1, 2, , n. Thus, zero means that the substring was not found. ! * EXTERNAL LONG FUNCTION lib$matchc & ( &% STRING BY DESC, &$ STRING BY DESC & )  ! LIB$MATCH_COND ! ! Match Condition Values ! U ! The Match Condition Values routine checks to see if a given condition value= ! matches a list of condition values that you supply. ! . EXTERNAL LONG FUNCTION lib$match_cond & ( &" LONG BY REF, & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &) ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$MOVC3 !  ! Move Characters ! 9 ! The Move Characters routine makes the VAX MOVC3 ! 6 ! instruction available as a callable routine.F ! The source item is moved to the destination item. Overlap ofF ! the source and destination items does not affect the result. !  EXTERNAL SUB lib$movc3 & ( &" WORD BY REF, &! ANY BY REF, & ANY BY REF & ) ! LIB$MOVC5 ! # ! Move Characters with Fill ! C ! The Move Characters with Fill routine makes the VAX MOVC5 ! 6 ! instruction available as a callable routine.; ! The source item is moved to the destination item.Q ! Overlap of the source and destination items does not affect the result. !  EXTERNAL SUB lib$movc5 & ( &" WORD BY REF, &! ANY BY REF, &" BYTE BY REF, &" WORD BY REF, & ANY BY REF & ) ! LIB$MOVTC ! $ ! Move Translated Characters ! V ! The Move Translated Characters routine moves the source string, character byY  ! character, to the destination string after translating each character using the' ! specified translation table. ' ! LIB$MOVTC makes the VAX MOVTC ! 6 ! instruction available as a callable routine. ! ) EXTERNAL LONG FUNCTION lib$movtc & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! LI B$MOVTUC ! ) ! Move Translated Until Character ! X ! The Move Translated Until Character routine moves the source string, characterX ! by character, to the destination string after translating each character usingR ! the specified translation table until the stop character is encountered.) ! LIB$MOVTUC makes the VAX MOVTUC ! 6 ! instruction available as a callable routine. ! * EXTERNAL LONG FUNCTION lib$movtuc & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! LIB$MULTF_DELTA_TIME ! 5 ! Multiply Delta Time by an F_Floating Scalar ! Y ! The Multiply Delta Time by an F-Floating Scalar routine multiplies a delta time" ! by an F-floating scalar. ! 4 EXTERNAL LONG FUNCTION lib$multf_delta_time & ( &$ SINGLE BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$MULT_DELTA_TIME ! ' ! Multiply Delta Time by Scalar ! a ! The Multiply Delta Time by Scalar routine multiplies a delta time by a longword integer ! scalar. ! 3 EXTERNAL LONG FUNCTION lib$mult_delta_time & ( &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$PARSE_ACCESS_CODE ! * ! Parse Access Encoded Name String ! L ! The Parse Access Encoded Name String routine parses and translatesI ! a string of access names into a mask for a particular ownership ! category. ! 5 EXTERNAL LONG FUNCTION lib$parse_access_code & ( &% STRING BY DESC, &1 BASIC$QUADWORD DIM() BY REF, &" WORD BY REF, &" WORD BY REF, &) OPTIONAL WORD BY REF & ) ! LIB$PARSE_SOGW_PROT ! ! ! Parse Protection String ! C ! The Parse Protection String routine parses and translates5 ! a protection string into a protection mask. ! 3 EXTERNAL LONG FUNCTION lib$parse_sogw_prot & ( &% STRING BY DESC, &1  BASIC$QUADWORD DIM() BY REF, &" WORD BY REF, &" WORD BY REF, &) OPTIONAL WORD BY REF & ) ! LIB$PAUSE ! ! ! Pause Program Execution ! T ! The Pause Program Execution routine suspends program execution and returns/ ! control to the calling command level. ! ' EXTERNAL LONG FUNCTION lib$pause ! LIB$POLYD !  ! Evaluate Polynomials ! X ! The Evaluate Polynomials routine (D-floating point values) allows higher-levelH ! language users to evaluate D-floating point value polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyd & ( &$ DOUBLE BY REF, &" WORD BY REF, &) DOUBLE DIM() BY REF, &# DOUBLE BY REF & ) ! LIB$POLYF !  ! Evaluate Polynomials ! X ! The Evaluate Polynomials routine (F-floating point values) allows higher-levelB ! language users to evaluate F-floating point polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyf & ( &$ SINGLE BY REF, &" WORD BY REF, &) SINGLE DIM() BY REF, &# SINGLE BY REF & ) ! LIB$POLYG !  ! Evaluate Polynomials ! X ! The Evaluate Polynomials routine (G-floating point values) allows higher-levelH ! language users to evaluate G-floating point value polynomials. ! ) EXTERNAL LONG FUNCTION lib$polyg & ( &$ GFLOAT BY REF, &" WORD BY REF, &) GFLOAT DIM() BY REF, &# GFLOAT BY REF & ) ! LIB$POLYH !  ! Evaluate Polynomials ! X ! On VAX VMS, the Evaluate Polynomials routine (H-floating point values) allows U ! higher-level language users to evaluate H-floating point value polynomials. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! L ! This routine is not available to native Alpha VMS programs, but isR ! recognized and handled appropriately by most Digital high-level language ! compilers. ! ) EXTERNAL LONG FUNCTION lib$polyh & ( &$ HFLOAT BY REF, &" WORD BY REF, &) HFLOAT DIM() BY REF, &# HFLOAT BY REF & ) ! LIB$PUT_COMMON !  ! Put String to Common ! Z ! The Put String to Common routine copies the contents of a string into the commonR ! area. The common area is an area of storage which remains defined acrossY ! multiple image activations in a process. Optionally, LIB$PUT_COMMON returns theZ ! actual number of characters copied. The maximum number of characters that can be ! copied is 252. ! . EXTERNAL LONG FUNCTION lib$put_common & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$PUT_INVO_REGISTERS ! " ! Put Invocation Registers ! S ! The Put Invocation Registers routine  updates a given procedure invocation6 ! context's fields with new register contents. ! M ! ENTRY lib$put_invo_registers ALIAS $lib_put_invo_registers PARAMETER (1 ! LONGWORD UNSIGNED NAMED invo_handle IN* ! TYPENAME invo_handle VALUE,2 ! LONGWORD UNSIGNED NAMED invo_context IN3 ! TYPENAME invo_context_blk REFERENCE,/ ! QUADWORD UNSIGNED NAMED invo_mask IN1 ! TYPENAME mask_quadword REFERENCE )7 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$PUT_OUTPUT ! ! Put Line to SYS$OUTPUT ! W ! The Put Line to SYS$OUTPUT routine writes a record to the current controllingL ! output device, specified by SYS$OUTPUT using the RMS $PUT service. ! . EXTERNAL LONG FUNCTION lib$put_output & ( &$ STRING BY DESC & ) ! LIB$RADIX_POINT !  ! Radix Point Symbol ! V ! The Radix Point Symbol routine returns the system's radix point symbol. ThisT ! symbol is used inside a digit string to separate the integer part from theW ! fraction part. This routine works by attempting to translate the logical nameF ! SYS$RADIX_POINT as a process, group, or system logical name. ! / EXTERNAL LONG FUNCTION lib$radix_point & ( &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! LIB$REMQHI ! ) ! Remove Entry from Head of Queue ! W ! The Remove Entry from Head of Queue routine removes an entry from the head of9 ! the specified self-relative interlocked queue. ) ! LIB$REMQHI makes the VAX REMQHI ! 6 ! instruction available as a callable routine. ! * EXTERNAL LONG FUNCTION lib$remqhi & ( &, BASIC$QUADWORD BY REF, &"  LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$REMQTI ! ) ! Remove Entry from Tail of Queue ! W ! The Remove Entry from Tail of Queue routine removes an entry from the tail of9 ! the specified self-relative interlocked queue. ) ! LIB$REMQTI makes the VAX REMQTI ! 6 ! instruction available as a callable routine. ! * EXTERNAL LONG FUNCTION lib$remqti &  ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$RENAME_FILE ! " ! Rename One or More Files ! V ! The Rename One or More Files routine changes the names of one or more files.M ! The specification of the files to be renamed may include wildcards.K ! LIB$RENAME_FILE is similar in function to the DCL command RENAME. ! / EXTERNAL LONG FUNCTION lib$rename_file & ( &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &!  LONG BY REF & ) ! LIB$RESERVE_EF !  ! Reserve Event Flag ! Y ! The Reserve Event Flag routine allocates a local event flag number specified by ! event-flag-number. ! . EXTERNAL LONG FUNCTION lib$reserve_ef & ( &! LONG BY REF & ) ! LIB$RESET_VM_ZONE ! # ! Reset Virtual Memory Zone ! T ! The Reset Virtual Me mory Zone routine frees all blocks of memory that were- ! previously allocated from the zone. ! 1 EXTERNAL LONG FUNCTION lib$reset_vm_zone & ( &! LONG BY REF & ) ! LIB$REVERT ! 8 ! Revert to the Handler of the Routine Activator ! P ! The Revert to the Handler of the Routine Activator routine deletes theY ! condition handler established by LIB$ESTABLISH by clearing the address pointingL ! to the condition handler from the activated routine's stack frame. ! ( EXTERNAL LONG FUNCTION lib$revert ! LIB$RUN_PROGRAM !  ! Run New Program ! T ! The Run New Program routine causes the current program to stop running and. ! begins execution of another program. ! / EXTERNAL LONG FUNCTION lib$run_program & ( &$ STRING BY DESC & ) !  LIB$SCANC ! : ! Scan for Characters and Return Relative Position ! X ! The Scan for Characters and Return Relative Position routine is used to find a< ! specified set of characters in the source string. ' ! LIB$SCANC makes the VAX SCANC ! 6 ! instruction available as a callable routine. ! ) EXTERNAL LONG FUNCTION lib$scanc & ( &% STRING BY DESC, &' BYTE DIM() BY REF, &! BYTE BY REF & ) ! LIB$SCOPY_DXDX ! @ ! Copy Source String Passed by Descriptor to Destination ! U ! The Copy Source String Passed by Descriptor to Destination routine copies aE ! source string passed by descriptor to a destination string. ! . EXTERNAL LONG FUNCTION lib$scopy_dxdx & ( &% STRING BY DESC, &$ STRING BY DESC &  ) ! LIB$SCOPY_R_DX ! F ! Copy Source String Passed by Reference to Destination String ! Y ! The Copy Source String Passed by Reference to Destination String routine copiesF ! a source string passed by reference to a destination string. ! . EXTERNAL LONG FUNCTION lib$scopy_r_dx & ( &" WORD BY REF, &$ STRING BY REF, &$ STRING BY DESC & )  ! LIB$SET_LOGICAL !  ! Set Logical Name ! V ! The Set Logical Name routine requests the calling process's Command LanguageY ! Interpreter (CLI) to define or redefine a supervisor-mode process logical name.B ! It provides the same function as the DCL DEFINE command. ! / EXTERNAL LONG FUNCTION lib$set_logical & ( &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &%   STRING BY DESC, &" LONG BY REF, & ANY BY REF & ) ! LIB$SET_SYMBOL ! ! ! Set Value of CLI Symbol ! T ! The Set Value of CLI Symbol routine requests the calling process's CommandH ! Language Interpreter (CLI) to define or redefine a CLI symbol. ! . EXTERNAL LONG FUNCTION lib$set_symbol & ( &% STRING BY DESC, &%   STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! LIB$SFREE1_DD ! ! ! Free One Dynamic String ! P ! The Free One Dynamic String routine returns the dynamically allocated ' ! storage for a dynamic string. ! - EXTERNAL LONG FUNCTION lib$sfree1_dd & ( &+ BASIC$QUADWORD BY REF & ) ! LIB$SFREEN_DD ! * ! Free One or More Dyn amic Strings ! Z ! The Free One or More Dynamic Strings routine returns one or more dynamic strings ! to free storage. ! - EXTERNAL LONG FUNCTION lib$sfreen_dd & ( &" LONG BY REF, &0 BASIC$QUADWORD DIM() BY REF & ) ! LIB$SGET1_DD ! ! Get One Dynamic String ! T ! The Get One Dynamic String routine allocates dynamic virtual memory to the( !   string descriptor you specify. ! , EXTERNAL LONG FUNCTION lib$sget1_dd & ( &" WORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! LIB$SHOW_TIMER ! + ! Show Accumulated Times and Counts ! P ! The Show Accumulated Times and Counts routine returns times and countsP ! accumulated since the last call to LIB$INIT_TIMER and displays them onK ! SYS$OUTPUT. (LIB$INIT_TI MER must be called prior to invoking thisJ ! routine.) A user-supplied action routine may change this default ! behavior. ! . EXTERNAL LONG FUNCTION lib$show_timer & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$SHOW_VM ! ( ! Show Virtual Memory Statistics ! W ! The Show Virtual Memory Statistics routine returns the statistics accumulated. ! from calls to LIB$GET_VM/LIB$FREE_VM0 ! and LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. ! + EXTERNAL LONG FUNCTION lib$show_vm & ( &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$SHOW_VM_ZONE ! ) ! Return Information About a Zone ! Y ! The Return Infor mation About a Zone routine returns formatted information aboutL ! the specified zone, detailing such information as the zone's name,Y ! characteristics, and areas, and then passes the information to the specified or! ! default action routine. ! 0 EXTERNAL LONG FUNCTION lib$show_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! LIB$SIGNAL ! $ ! Signal Exception Condition ! Z ! The Signal Exception Condition routine generates a signal that indicates that anW ! exception condition has occurred in your program. If a condition handler doesX ! not take corrective action and the condition is severe, then your program will ! exit. ! EXTERNAL SUB lib$signal & ( &$ LONG BY VALUE, &,  OPTIONAL LONG BY VALUE, & ANY BY VALUE,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$SIG_TO_RET ! - ! Signal Converted to a Return Status ! Y ! The Signal Converted to a Return Statu s routine converts any signaled conditionX ! value to a value returned as a function. The signaled condition is returned toU ! the caller of the user routine that established the handler that is callingW ! LIB$SIG_TO_RET. This routine may be established as or called from a condition ! handler. ! . EXTERNAL LONG FUNCTION lib$sig_to_ret & ( &! ANY BY REF, & ANY BY REF & ) !  LIB$SIG_TO_STOP ! 9 ! Convert a Signaled Condition to a Signaled Stop ! Y ! The Convert a Signaled Condition to a Signaled Stop routine converts a signaledE ! condition to a signaled condition that cannot be continued. ! / EXTERNAL LONG FUNCTION lib$sig_to_stop & ( &! ANY BY REF, & ANY BY REF & ) ! LIB$SIM_TRAP ! ! Simulate Floating Trap ! X ! The Simulate Floating Trap routine converts floating faults to floating traps.K ! It can be enabled as a condition handler or can be called by one. ! L ! This routine is not available to native Alpha VMS programs, but is- ! available to translated VAX images. ! , EXTERNAL LONG FUNCTION lib$sim_trap & ( &! ANY BY REF, & ANY BY REF & ) ! LIB$SKPC  !  ! Skip Equal Characters ! Z ! The Skip Equal Characters routine compares each character of a given string withS ! a given character and returns the relative position of the first nonequal! ! character as an index. % ! LIB$SKPC makes the VAX SKPC ! 6 ! instruction available as a callable routine. ! ( EXTERNAL LONG FUNCTION lib$skpc & ( &% STRING BY DESC, &$  STRING BY DESC & ) ! LIB$SPANC ! " ! Skip Selected Characters ! Q ! The Skip Selected Characters routine is used to skip a specified set ofI ! characters in the source string. LIB$SPANC makes the VAX SPANC6 ! instruction available as a callable routine. ! ) EXTERNAL LONG FUNCTION lib$spanc & ( &% STRING BY DESC, &' BYTE DIM() BY REF, &!  BYTE BY REF & ) ! LIB$SPAWN !  ! Spawn Subprocess ! Y ! The Spawn Subprocess routine requests the command language interpreter (CLI) ofZ ! the calling process to spawn a subprocess for executing CLI commands. LIB$SPAWN> ! provides the same function as the DCL SPAWN command. ! ) EXTERNAL LONG FUNCTION lib$spawn & ( &- OPTIONAL STRING BY DESC, &%  STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &" BYTE BY REF, &$ LONG BY VALUE, &# ANY BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$STAT_TIMER ! 9 ! Statistics, Return Accumulated Times and Counts ! T ! The Statistics, Return Accumulated Times and Counts routine returns to itsT ! caller one of five available statistics accumulated since the last call toU ! LIB$INIT_TIMER. Unlike LIB$SHOW_TIMER, which formats the values for output,O ! LIB$STAT_TIMER returns the value as an unsigned longword or quadword. ! . EXTERNAL LONG FUNCTION lib$stat_timer & ( &"  LONG BY REF, &! ANY BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$STAT_VM ! * ! Return Virtual Memory Statistics ! W ! The Return Virtual Memory Statistics routine returns to its caller one of sixG ! statistics available from calls to LIB$GET_VM/LIB$FREE_VM andX ! LIB$GET_VM_PAGE/LIB$FREE_VM_PAGE. Unlike LIB$SHOW_VM, which formats the valuesZ ! for output and displays them on SYS$OUTPUT, LIB$STAT_VM returns the statistic inM ! the value-argument argument. Only one of the statistics is returned& ! by each call to LIB$STAT_VM. ! + EXTERNAL LONG FUNCTION lib$stat_vm & ( &" LONG BY REF, & ANY BY REF & ) ! LIB$STAT_VM_ZONE ! ) ! Return Information About a Zone ! O ! The Return Information About a Zone routine returns a single pie ce of0 ! information about the specified zone. ! = ! Edit: Routine LIB$STAT_VM_ZONE is not yet implemented. ! A ! ENTRY lib$stat_vm_zone ALIAS $lib_stat_vm_zone PARAMETER (- ! LONGWORD UNSIGNED NAMED zone_id IN- ! TYPENAME identifier REFERENCE,& ! LONGWORD NAMED item_code IN2 ! TYPENAME longword_signed REFERENCE,6 ! LONGWORD NAMED resultant_value OUT OPTIONAL2 ! TYPENAME longword_signed REFERENC E,E ! CHARACTER RTL_STR_DESC NAMED resultant_string OUT OPTIONAL$ ! TYPENAME char_string,< ! WORD UNSIGNED NAMED resultant_length OUT OPTIONAL1 ! TYPENAME word_unsigned REFERENCE )7 ! RETURNS LONGWORD UNSIGNED TYPENAME cond_value; ! LIB$STOP ! 1 ! Stop Execution and Signal the Condition ! U ! The Stop Execution and Signal the Condition routine generates a signal thatW ! indicates that an exceptio n condition has occurred in your program. ExceptionS ! conditions signaled by LIB$STOP cannot be continued from the point of the ! signal. !  EXTERNAL SUB lib$stop & ( &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, & ANY BY VALUE,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$SUBX ! / ! Multiple-Precision Binary Subtraction ! Z ! The Multiple-Precision Binary Subtraction routine performs subtraction on signed8 ! two's complement integers of arbitrary length. ! ( EXTERNAL LONG FUNCTION lib$subx & ( &! ANY BY REF, &! ANY BY REF , &! ANY BY REF, &) OPTIONAL LONG BY REF & ) ! LIB$SUB_TIMES ! % ! Subtract Two Quadword Times ! C ! The Subtract Two Quadword Times routine subtracts two VMS% ! internal-time-format times. ! - EXTERNAL LONG FUNCTION lib$sub_times & ( &, BASIC$QUADWORD BY REF, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADW !ORD BY REF & ) ! LIB$SYS_ASCTIM ! ? ! Invoke $ASCTIM to Convert Binary Time to ASCII String ! U ! The Invoke $ASCTIM to Convert Binary Time to ASCII String routine calls theW ! system service $ASCTIM to convert a binary date and time value, returning theB ! ASCII string using the semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_asctim & ( &" WORD BY RE "F, &% STRING BY DESC, &4 OPTIONAL BASIC$QUADWORD BY REF, &! LONG BY REF & ) ! LIB$SYS_FAO ! 5 ! Invoke $FAO System Service to Format Output ! Y ! The Invoke $FAO System Service to Format Output routine calls $FAO, returning aW ! string in the semantics you provide. If called with other than a fixed-lengthW ! string for output, the length of the resultant string is # limited to 256 bytes$ ! and truncation will occur. ! + EXTERNAL LONG FUNCTION lib$sys_fao & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, & OPTIONAL ANY BY REF,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, $,,,,,,,,,,,,,, &% ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! LIB$SYS_FAOL ! 6 ! Invoke $FAOL System Service to Format Output ! S ! The Invoke $FAOL System Service to Format Output routine calls the systemV ! service routine $FAOL, returning the string in the semantics you provide. IfT ! called with other than a fixed-length string for output, the length of theM ! resultant string is limited to 256 bytes and truncation %will occur. ! , EXTERNAL LONG FUNCTION lib$sys_faol & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! LIB$SYS_GETMSG ! ; ! Invoke $GETMSG System Service to Get Message Text ! X ! The Invoke $GETMSG System Service to Get Message Text routine calls the SystemN ! Service $GETMSG and returns a me&ssage string into destination-string5 ! using the semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_getmsg & ( &" LONG BY REF, &" WORD BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, & ANY BY REF & ) ! LIB$SYS_TRNLOG ! A ! Invoke $TRNLOG System Service to Translate Logical Name ! V ! ' The Invoke $TRNLOG System Service to Translate Logical Name routine uses theX ! system service $TRNLOG to translate a logical name. LIB$SYS_TRNLOG returns theP ! logical name's translation using the semantics of the caller's string. ! . EXTERNAL LONG FUNCTION lib$sys_trnlog & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &* OPTIONAL BYTE BY REF, &" ( BYTE BY REF, &! BYTE BY REF & )$ ! LIB$TPARSE/LIB$TABLE_PARSE ! * ! Table-Driven Finite-State Parser ! Y ! The Table-Driven Finite State Parser routine is a general-purpose, table-drivenV ! parser implemented as a finite-state automaton, with extensions that make itK ! suitable for a wide range of applications. It parses a string andP ! returns a message indicating whether or not the input )string is valid. ! 7 ! LIB$TPARSE performs this function on VAX VMS. ! N ! LIB$TABLE_PARSE performs this function on Alpha VMS and is availableQ ! only on Alpha VMS. LIB$TPARSE is available in translated form on AlphaQ ! VMS. LIB$TABLE_PARSE differs from LIB$TPARSE only in the way that user/ ! specified action routines are called. ! / EXTERNAL LONG FUNCTION lib$table_parse & ( &! ANY BY REF, &*! ANY BY REF, & ANY BY REF & )* EXTERNAL LONG FUNCTION lib$tparse & ( &! ANY BY REF, &! ANY BY REF, & ANY BY REF & ) ! LIB$TRAVERSE_TREE ! ) ! Traverse a Balanced Binary Tree ! V ! The Traverse a Balanced Binary Tree routine calls an action routine for each ! node in a binary tree. ! + 1 EXTERNAL LONG FUNCTION lib$traverse_tree & ( &" LONG BY REF, &$ LONG BY VALUE, &( OPTIONAL ANY BY REF & ) ! LIB$TRA_ASC_EBC ! # ! Translate ASCII to EBCDIC ! W ! The Translate ASCII to EBCDIC routine translates an ASCII string to an EBCDIC ! string. ! / EXTERNAL LONG FUNCTION lib$tra_asc_ebc & ( &% , STRING BY DESC, &$ STRING BY DESC & ) ! LIB$TRA_EBC_ASC ! # ! Translate EBCDIC to ASCII ! N ! The Translate EBCDIC to ASCII routine translates an EBCDIC string to ! an ASCII string. ! / EXTERNAL LONG FUNCTION lib$tra_ebc_asc & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! LIB$TRIM_FILESPEC ! 6 ! Fit Long - File Specification into Fixed Field ! O ! The Fit Long File Specification into Fixed Field routine takes a fileR ! specification, such as an RMS resultant name string, and shortens it (ifA ! necessary) so that it fits into a field of fixed width. ! 1 EXTERNAL LONG FUNCTION lib$trim_filespec & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! . WORD BY REF & ) ! LIB$TRIM_FULLNAME ! = ! Trim a Full Name to Fit into a Desired Output Field ! I ! The Trim a Full Name to Fit into a Desired Output Field routine? ! trims a full name to fit into a desired output field. ! 1 EXTERNAL LONG FUNCTION lib$trim_fullname & ( &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &/! WORD BY REF & ) ! LIB$UID_TO_ASCII !  ! Convert a UID to Text ! = ! The Convert a UID to Text routine converts a UID to; ! standard representation ina an ASCII text string. ! 0 EXTERNAL LONG FUNCTION lib$uid_to_ascii & ( &, BASIC$OCTAWORD BY REF, &$ STRING BY DESC & ) ! LIB$VERIFY_VM_ZONE !  ! Verify a Zone0 ! D ! The Verify a Zone routine performs verification of a zone. ! 2 EXTERNAL LONG FUNCTION lib$verify_vm_zone & ( &! LONG BY REF & ) ! LIB$WAIT ! ) ! Wait a Specified Period of Time ! U ! The Wait a Specified Period of Time routine places the current process intoJ ! hibernation for the number of seconds specified in its argument. ! ( EXTERNAL LONG FUNCTION lib$wait & ( &$ SINGLE BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )ww2PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI3NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET4 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF4 ! Definitions for LIB$ CLI callback procedures 3 DECLARE LONG CONSTANT LIB$K_CLI_LOCAL_SYM = 14 DECLARE LONG CONSTANT LIB$K_CLI_GLOBAL_SYM = 29 DECLARE LONG CONSTANT LIB$M_CLI_CTRLT = x'0010 0000'9 DECLARE LONG CONSTANT LIB$M_CLI_CTRLY = x'02000000'5 DECLARE LONG CONSTANT LIB$S_CLI$CTRL_FIELDS = 4 record CLI$CTRL_FIELDS( ! Ctrl-A to Ctrl-S are unused( ! Ctrl-U to Ctrl-X are unusedj LONG FILL_A_S_bits ! COMMENT ADDED BY SDL - FILL_A_S_bits contains bits FILL_A_S through fill_0 end record CLI$CTRL_FIELDS ww6 ,dPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI7NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET8 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  < DECLARE LONG CONSTANT UTIL$M_CQF_CONFIRM = x'00000001'< DECLARE LONG CONSTANT UTIL$M_CQF_EXCLUDE = x'00000002'; DECLARE LONG CONSTANT UTIL$M_CQF_BEFORE = x'00000004': DECLARE LONG CON 9STANT UTIL$M_CQF_SINCE = x'00000008'< DECLARE LONG CONSTANT UTIL$M_CQF_CREATED = x'00000010'= DECLARE LONG CONSTANT UTIL$M_CQF_MODIFIED = x'00000020'< DECLARE LONG CONSTANT UTIL$M_CQF_EXPIRED = x'00000040'; DECLARE LONG CONSTANT UTIL$M_CQF_BACKUP = x'00000080'< DECLARE LONG CONSTANT UTIL$M_CQF_BYOWNER = x'00000100'. DECLARE LONG CONSTANT UTIL$S_CFQUALS = 4 record CFQUALS# group UTIL$R_FLAGS_OVERLAY variant case. : group UTIL$L_QUALIFIER_FLAGS LONG CQF_CONFIRM_bits ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL2 end group UTIL$L_QUALIFIER_FLAGS case* group UTIL$R_QF_OVERLAY2~ LONG CQF_ASSIGNED_bits ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through & ! CQF_UNASSIGNED. end group UTIL$R_QF_OVERLAY2 end va;riant' end group UTIL$R_FLAGS_OVERLAY end record CFQUALS  ! % ! define prompt parameter values ! 6 DECLARE LONG CONSTANT UTIL$K_CQF_UNSPECIFIED = 00 DECLARE LONG CONSTANT UTIL$K_CQF_SHORT = 1/ DECLARE LONG CONSTANT UTIL$K_CQF_LONG = 24 DECLARE LONG CONSTANT UTIL$K_CQF_CONDENSED = 13 DECLARE LONG CONSTANT UTIL$K_CQF_EXPANDED = 23 DECLARE LONG CONSTANT UTIL$K_CQF_MAX_FORM = 2 !  ! TO BE REMOVED; DECLARE LONG C <ONSTANT LIB$M_CQF_CONFIRM = x'00000001'; DECLARE LONG CONSTANT LIB$M_CQF_EXCLUDE = x'00000002': DECLARE LONG CONSTANT LIB$M_CQF_BEFORE = x'00000004'9 DECLARE LONG CONSTANT LIB$M_CQF_SINCE = x'00000008'; DECLARE LONG CONSTANT LIB$M_CQF_CREATED = x'00000010'< DECLARE LONG CONSTANT LIB$M_CQF_MODIFIED = x'00000020'; DECLARE LONG CONSTANT LIB$M_CQF_EXPIRED = x'00000040': DECLARE LONG CONSTANT LIB$M_CQF_BACKUP = x'00000080'; DECLARE LONG CONSTANT LIB$M_CQ =F_BYOWNER = x'00000100', DECLARE LONG CONSTANT LIB$S_CQUALS = 4 record CQUALS" group LIB$R_FLAGS_OVERLAY variant case- group LIB$L_QUALIFIER_FLAGS LONG CQF_CONFIRM_bits ! COMMENT ADDED BY SDL - CQF_CONFIRM_bits contains bits CQF_CONFIRM through QF_FILL1 end group LIB$L_QUALIFIER_FLAGS case) group LIB$R_QF_OVERLAY2~ LONG CQF_ASSIGNED_bits ! COMMENT ADDED BY SDL - CQF_ASSIGNED_bits contains bits CQF_ASSIGNED through & ! CQF_UNASSIGNED- end group LIB$R_QF_OVERLAY2 end variant& end group LIB$R_FLAGS_OVERLAY end record CQUALS ww?PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI@NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETA %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF( ! Definitions for LIB$DECODE_FAULT  !  ! Operand definition codes ! 6 DECLARE LONG CONSTANT LIB$M_DCFACC = x'00000007'6 DECLARE LONG CONSTANT LIB$M_DCFTYP = x'000000F8'7 DECL BARE LONG CONSTANT LIB$S_LIB$B_DCF_OPERAND = 1 record LIB$B_DCF_OPERAND ! Operand access type ! Operand data typed BYTE DCFACC_bits ! COMMENT ADDED BY SDL - DCFACC_bits contains bits DCFACC through DCFTYP" end record LIB$B_DCF_OPERAND  ! ! Operand access type codes ! H DECLARE LONG CONSTANT LIB$K_DCFACC_R = 1 ! Operand is to be readL DECLARE LONG CONSTANT LIB$K_DCFACC_M = 2 ! Operand is to be modifiedK DECLARE CLONG CONSTANT LIB$K_DCFACC_W = 3 ! Operand is to be writtenH DECLARE LONG CONSTANT LIB$K_DCFACC_A = 4 ! Operand is an addresse DECLARE LONG CONSTANT LIB$K_DCFACC_V = 5 ! Operand is a field ( may be register or address )S DECLARE LONG CONSTANT LIB$K_DCFACC_B = 6 ! Operand is a branch displacement !  ! Operand data type codes ! D DECLARE LONG CONSTANT LIB$K_DCFTYP_B = 1 ! Operand is a byteD DECLARE LONG CONSTANT LIB$K_DCFTYP_W = 2 ! Operand iDs a wordH DECLARE LONG CONSTANT LIB$K_DCFTYP_L = 3 ! Operand is a longwordH DECLARE LONG CONSTANT LIB$K_DCFTYP_Q = 4 ! Operand is a quadwordI DECLARE LONG CONSTANT LIB$K_DCFTYP_O = 5 ! Operand is an octawordK DECLARE LONG CONSTANT LIB$K_DCFTYP_F = 6 ! Operand is an F_floatingJ DECLARE LONG CONSTANT LIB$K_DCFTYP_D = 7 ! Operand is a D_floatingJ DECLARE LONG CONSTANT LIB$K_DCFTYP_G = 8 ! Operand is a G_floatingK DECLARE LONG CONSTANT LIB$K_DCFTYP_H E = 9 ! Operand is an H_floating ! 2 ! Combined operand access and data type codes ! 0 DECLARE LONG CONSTANT LIB$K_DCFOPR_AB = 12/ DECLARE LONG CONSTANT LIB$K_DCFOPR_RB = 90 DECLARE LONG CONSTANT LIB$K_DCFOPR_MB = 100 DECLARE LONG CONSTANT LIB$K_DCFOPR_WB = 110 DECLARE LONG CONSTANT LIB$K_DCFOPR_VB = 130 DECLARE LONG CONSTANT LIB$K_DCFOPR_BB = 140 DECLARE LONG CONSTANT LIB$K_DCFOPR_AW = 200 DECLARE LONG CONSTANT LIB$K_DCFOPR_RW = 170 F DECLARE LONG CONSTANT LIB$K_DCFOPR_MW = 180 DECLARE LONG CONSTANT LIB$K_DCFOPR_WW = 190 DECLARE LONG CONSTANT LIB$K_DCFOPR_VW = 210 DECLARE LONG CONSTANT LIB$K_DCFOPR_BW = 220 DECLARE LONG CONSTANT LIB$K_DCFOPR_AL = 280 DECLARE LONG CONSTANT LIB$K_DCFOPR_RL = 250 DECLARE LONG CONSTANT LIB$K_DCFOPR_ML = 260 DECLARE LONG CONSTANT LIB$K_DCFOPR_WL = 270 DECLARE LONG CONSTANT LIB$K_DCFOPR_VL = 290 DECLARE LONG CONSTANT LIB$K_DCFOPR_BL = 300 DE GCLARE LONG CONSTANT LIB$K_DCFOPR_AQ = 360 DECLARE LONG CONSTANT LIB$K_DCFOPR_RQ = 330 DECLARE LONG CONSTANT LIB$K_DCFOPR_MQ = 340 DECLARE LONG CONSTANT LIB$K_DCFOPR_WQ = 350 DECLARE LONG CONSTANT LIB$K_DCFOPR_VQ = 370 DECLARE LONG CONSTANT LIB$K_DCFOPR_AO = 440 DECLARE LONG CONSTANT LIB$K_DCFOPR_RO = 410 DECLARE LONG CONSTANT LIB$K_DCFOPR_MO = 420 DECLARE LONG CONSTANT LIB$K_DCFOPR_WO = 430 DECLARE LONG CONSTANT LIB$K_DCFOPR_VO = 450 DECLARE HLONG CONSTANT LIB$K_DCFOPR_AF = 520 DECLARE LONG CONSTANT LIB$K_DCFOPR_RF = 490 DECLARE LONG CONSTANT LIB$K_DCFOPR_MF = 500 DECLARE LONG CONSTANT LIB$K_DCFOPR_WF = 510 DECLARE LONG CONSTANT LIB$K_DCFOPR_VF = 530 DECLARE LONG CONSTANT LIB$K_DCFOPR_AD = 600 DECLARE LONG CONSTANT LIB$K_DCFOPR_RD = 570 DECLARE LONG CONSTANT LIB$K_DCFOPR_MD = 580 DECLARE LONG CONSTANT LIB$K_DCFOPR_WD = 590 DECLARE LONG CONSTANT LIB$K_DCFOPR_VD = 610 DECLARE LONG C IONSTANT LIB$K_DCFOPR_AG = 680 DECLARE LONG CONSTANT LIB$K_DCFOPR_RG = 650 DECLARE LONG CONSTANT LIB$K_DCFOPR_MG = 660 DECLARE LONG CONSTANT LIB$K_DCFOPR_WG = 670 DECLARE LONG CONSTANT LIB$K_DCFOPR_VG = 690 DECLARE LONG CONSTANT LIB$K_DCFOPR_AH = 760 DECLARE LONG CONSTANT LIB$K_DCFOPR_RH = 730 DECLARE LONG CONSTANT LIB$K_DCFOPR_MH = 740 DECLARE LONG CONSTANT LIB$K_DCFOPR_WH = 750 DECLARE LONG CONSTANT LIB$K_DCFOPR_VH = 770 DECLARE LONG CONSTANT LIB$K_DCFOPR_END = 0 ! wwK0PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGILNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETM %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ; ! Interface definitions for LIB$DT (date/time) package !  ! 3 ! Request codes for LIB$INIT_DATE_TIME_CONTEXT ! L DECLARE LONG CONSTANT LIB$K_MONTH_NAME = 0 ! Pre-initN the month namesP DECLARE LONG CONSTANT LIB$K_MONTH_NAME_ABB = 3 ! Pre-init the month namesM DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME = 6 ! Pre-init the week namesQ DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME_ABB = 9 ! Pre-init the week namesU DECLARE LONG CONSTANT LIB$K_MERIDIEM_INDICATOR = 12 ! Pre-init the AM/PM namesJ DECLARE LONG CONSTANT LIB$K_OUTPUT_FORMAT = 1 ! Pre-init the formatI DECLARE LONG CONSTANT LIB$K_INPUT_FORMAT = 2 ! Pre-init the formatR O DECLARE LONG CONSTANT LIB$K_RELATIVE_DAY_NAME = 15 ! Pre-init "TODAY", etc.V DECLARE LONG CONSTANT LIB$K_FORMAT_MNEMONICS = 18 ! Pre-init MM, DD, YYYY, etc.J DECLARE LONG CONSTANT LIB$K_LANGUAGE = 4 ! Pre-init user's language ! A ! Operation codes (flags) for date time conversion routines.M ! NOTE: any new operation codes MUST be added just BEFORE MAX_OPERATION ! a DECLARE LONG CONSTANT LIB$K_MONTH_OF_YEAR = 1 ! requests output in units of month of yeaPr[ DECLARE LONG CONSTANT LIB$K_DAY_OF_YEAR = 2 ! requests output in days of year 1-366^ DECLARE LONG CONSTANT LIB$K_HOUR_OF_YEAR = 3 ! requests output in hours of year 1-8784d DECLARE LONG CONSTANT LIB$K_MINUTE_OF_YEAR = 4 ! requests output in minutes of year 1-527040f DECLARE LONG CONSTANT LIB$K_SECOND_OF_YEAR = 5 ! requests output in seconds of year 1-31622400[ DECLARE LONG CONSTANT LIB$K_DAY_OF_MONTH = 6 ! request output in days of month 1-31^ DECLARQE LONG CONSTANT LIB$K_HOUR_OF_MONTH = 7 ! request output in hours of month 1-744d DECLARE LONG CONSTANT LIB$K_MINUTE_OF_MONTH = 8 ! request output in minutes of month 1-44640g DECLARE LONG CONSTANT LIB$K_SECOND_OF_MONTH = 9 ! requests output in seconds of month 1-2678400j DECLARE LONG CONSTANT LIB$K_DAY_OF_WEEK = 10 ! requests output in days of week 1-7 with monday = 1^ DECLARE LONG CONSTANT LIB$K_HOUR_OF_WEEK = 11 ! requests output in hours of week 1-168] DECLRARE LONG CONSTANT LIB$K_MINUTE_OF_WEEK = 12 ! requests in minutes of week 1-10080e DECLARE LONG CONSTANT LIB$K_SECOND_OF_WEEK = 13 ! requests output in seconds of week 1-604800[ DECLARE LONG CONSTANT LIB$K_HOUR_OF_DAY = 14 ! requests output in hours of day 1-24a DECLARE LONG CONSTANT LIB$K_MINUTE_OF_DAY = 15 ! requests output in minutes of day 1-1440a DECLARE LONG CONSTANT LIB$K_SECOND_OF_DAY = 16 ! requests output in seconds of day 1-3600a DECLARE LONG CONSSTANT LIB$K_MINUTE_OF_HOUR = 17 ! requests output in minutes of hour 1-60c DECLARE LONG CONSTANT LIB$K_SECOND_OF_HOUR = 18 ! requests output in minutes of hour 1-3600f DECLARE LONG CONSTANT LIB$K_SECOND_OF_MINUTE = 19 ! requests output in seconds of minutes 1-60] DECLARE LONG CONSTANT LIB$K_JULIAN_DATE = 20 ! requests output as a julian day number[ DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS = 21 ! input/output in terms of delta weeksY DECLARE LONG CONSTANT LIB$TK_DELTA_DAYS = 22 ! input/output in terms of delta days[ DECLARE LONG CONSTANT LIB$K_DELTA_HOURS = 23 ! input/output in terns of delta hours_ DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES = 24 ! input/output in terms of delta minutes_ DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS = 25 ! input/output in terms of delta secondsh DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS_F = 26 ! input/output in terms of fractional delta weeksf DECLARE LONG CONSTANT LIB$K_DELTA_DAYS_F = 2U7 ! input/output in terms of fractional delta daysh DECLARE LONG CONSTANT LIB$K_DELTA_HOURS_F = 28 ! input/output in terms of fractional delta hoursm DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES_F = 29 ! input/output in terms of fractional delta minutessl DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS_F = 30 ! input/output in terms of fractional delta secondsU DECLARE LONG CONSTANT LIB$K_MAX_OPERATION = 31 ! 1+ max # of conversion flags ! 4 ! Masks for outputting Vdate or time fields only ! ; DECLARE LONG CONSTANT LIB$M_TIME_FIELDS = x'00000001'; DECLARE LONG CONSTANT LIB$M_DATE_FIELDS = x'00000002'5 DECLARE LONG CONSTANT LIB$S_DT_PRINT_FIELDS = 1 record DT_PRINT_FIELDS* ! Force printing of time fields* ! Force printing of date fieldss BYTE TIME_FIELDS_bits ! COMMENT ADDED BY SDL - TIME_FIELDS_bits contains bits TIME_FIELDS through fill_0 end record DT_PRINT_FIELDS  ! / ! M Wasks for input defaulting flag longword ! 4 DECLARE LONG CONSTANT LIB$M_YEAR = x'00000001'5 DECLARE LONG CONSTANT LIB$M_MONTH = x'00000002'3 DECLARE LONG CONSTANT LIB$M_DAY = x'00000004'4 DECLARE LONG CONSTANT LIB$M_HOUR = x'00000008'6 DECLARE LONG CONSTANT LIB$M_MINUTE = x'00000010'6 DECLARE LONG CONSTANT LIB$M_SECOND = x'00000020': DECLARE LONG CONSTANT LIB$M_HUNDREDTHS = x'00000040'7 DECLARE LONG CONSTANT LIB$S_DT_DEFAULT_FIELDS = 1 re cord DT_DEFAULT_FIELDS+ ! Allow the year to be defaulted, ! Allow the month to be defaulted* ! Allow the day to be defaulted+ ! Allow the hour to be defaulted- ! Allow the minute to be defaulted- ! Allow the second to be defaulted, ! Allow the fract to be defaulted^ BYTE YEAR_bits ! COMMENT ADDED BY SDL - YEAR_bits contains bits YEAR through fill_1" end record DT_DEFAULT_FIELDS wwY@rPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIZNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET[ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + ! Interface definitions for LIB$*_FILE ! % ! LIB$FIND_FILE flag definitionsJ DECLARE LONG CONSTANT LIB$M_FIL_NOWILD = 1 ! No wild carding allowK DECLARE LONG CONSTANT LIB$M_FIL_MULTIPLE = 2 ! Multiple input files' ! LIB$RENAME_FILE flag definitionsJ DECLARE LONG CONSTANT LIB$M_FIL_CUR_VER = 1 ! Current version usedH DECLARE LONG CONSTANT LIB$M_FIL_INH_SECUR = 2 ! Inherit securityH ! LIB$DELETE_FILE ? LIB$FIND_FILE & LIB$RENAME_FILE flag definitionO DECLARE LONG CONSTANT LIB$M_FIL_LONG_NAMES = 4 ! Handle long file nameswwkPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD$% %LET %BASIC$QUADWORD_DECLARED = 1$ %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )G END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI^WPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI_NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET` %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  6 ! Interface definitions for LIB$FIND_IMAGE_SYMBOL ! - ! LIB$FIND_IMAGE_SYMBOL flag definitions= DECLARE LONG CONSTANT LIB$M_FIS_MIXEDCASE = x'00000010'3 DECLARE LONG CONSTANT LIB$S_LIB$FIS_FLAGS = 1 record LIB$FIS_FLAGS ! Mixed case symbolsp BYTE FIS_FILL_4_bits ! COMMENT ADDED BY SDL - FIS_FILL_4_bits contains bits FIS_FILL_4 through fill_0 end record LIB$FIS_FLAGS wwb@T PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIcNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETd %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:25.85 !  ! FILE: LIBMSG.MSG ! R ! ******************************************************************** e******** ! * *J ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1986, 1991, 1993 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! f* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE gOR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! C ! 1-013 - ADD LIB$_KEYALRINS, LIB$_KEYNOTFOU. SBL 20-MAR-1981, ! 1-014 - ADD LIB$_INVCVT. FM 24-MAR-81O ! 1-015 - ADD LIB$_INVDTYDSC, LIB$_INVCLADSC, LIB$_INVCLADTY, LIB$_INVNBDS: ! LIB$_DESSTROVF, LIB$_OUTSTRTRU. FM 21-APR-81hQ ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM LIBMSG.MDL( ! VERSION 1-015. SBL 23-APR-1981B ! 2-002 - USE LIB$ FACILITY FOR LIB$_NORMAL. SBL 27-APR-1981T ! 2-003 - ADD LIB$_INTOVF, LIB$_FLTOVF, LIB$_FLTUND, LIB$_DECOVF, LIB$_ROPRAND.2 ! 2-004 - ADD LIB$_WRONUMARG. RKR 4-SEP-1981C ! 2-005 - ADD MESSAGES FOR LIB$CLI_CALLBACK. SBL 14-SEPT-1981Q ! 2-006 - ADD LIB$_INVSYMNAM, MESSAGES FOR LIB$EXTEND_RANGE. SBL 1-OCT-1981@ ! 2-007 - ADDi LIB$_WASSET AND LIB$_WASCLR. SBL 16-OCT-1981? ! 2-008 - CORRECT TYPO IN LIB$_UNAEXTRAN. SBL 30-OCT-1981X ! 2-009 - REMOVE LIB$_WASSET AND LIB$_WASCLR. ADD LIB$_ATTREQREF. SBL 21-DEC-1981E ! 2-010 - REMOVE MESSAGES FOR LIB$EXTEND_RANGE. SBL 22-DEC-1981- ! 2-011 - CORRECT TYPO. SBL 23-DEC-1981T ! 2-012 - ADD LIB$_INVFILSPE FOR FILE MANIPULATION PROCEDURES. MLJ 30-DEC-1981> ! 2-013 - ADD LIB$_ERRROUCAL AND .TITLE. SBL 28-AUG-1982J ! 2-014 - ADD LIB$_INVXAB, jLIB$_FILFAIMAT, LIB$_NEGANS, LIB$_QUIPRO, ( ! LIB$_QUICONACT. TSK 20-SEP-19820 ! 2-015 - ADD LIB$_RESTART. SBL 1-MAR-1983E ! 2-016 - ADD LIB$_NO_STRACT FOR SCREEN PACKAGE. PLL 19-JUL-1983M ! 2-017 - ADD SEVERAL NEW MESSAGES FOR LIB$$READ_OBJECT. BLS 25-FEB-1984F ! 2-018 - ADD NEW MESSAGES FOR FUTURE LIB$VM. BLS 11-APR-1984 0 ! 2-019 - ADD LIB$_NOTIMP. MDL 11-JUL-19852 ! 2-020 - ADD LIB$_BADZONE. SMM 09-APR-1986 ! G ! 2-021 - ADD ERROR MESSAGES FOkR DATE/TIME ROUTINES. LIB$_IVTIME,I ! LIB$_ONEDELTIM, LIB$_NEGTIM, LIB$_INVARGORD, LIB$_INVOPER,8 ! LIB$_ABSTIMREQ, LIB$_DELTIMREQ JWN 14-NOV-1986K ! 2-022 - ADD SEVERAL NEW MESSAGES FOR LIB$DATE_FORMAT AKS 20-NOV-1986P ! 2-023 - ADD NEW MESSAGES AND UPDATES FOR LIB$DATE_STRING. EGM 12-JAN-1987Q ! 2-024 - ADD NEW MESSAGES FOR VAXC MEMORY MANAGEMENT SUPPORT AKS 3-OCT-1988N ! 2-025 - ADD LITERALS FOR SHR$_ SYMBOLS USED BY LIBRTL. KC 16-OCT-1989.. ! X-5l - MAH MARK A. HOWELL 3-AUG-1990 ! ADD LIB$UID MESSAGES. ! X-7 - CW CHRIS WHITAKER 25-FEB-1991% ! ROLL LIB UID SUPPORT FORWARD5 ! X-8 - CORRECT TEXT FOR FLTUND. GAS 16-SEP-1991 ! + ! X-6A1 - STL STEVE LEE 14-MAR-1993D ! ADD NEW CONDITION VALUES FOR DECNET/OSI FULLNAMES SUPPORT  ! 4 ! X-7 - WXD BILL DAVENPORT 12-APR-1993 ! FULLNAMES BL1 CHECKIN. ! . ! X-6A2 - STL STEVE LEE 27-MAY-1993 D m ! MAKE SOME EDITING ON THE NEW MESSAGES FOR FULLNAMES.  ! - ! X-8 - STL00065 STEVE LEE 12-JUN-1993 ! FULLNAMES BL3 CHECKIN. !  ! - ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! LIB$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING AnRTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $LIBDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -" ! o ; SET LH TO 21 (DECIMAL).. DECLARE LONG CONSTANT LIB$_FACILITY = 211 DECLARE LONG CONSTANT LIB$_NORMAL = 14090251 DECLARE LONG CONSTANT LIB$_STRTRU = 14090414 DECLARE LONG CONSTANT LIB$_ONEENTQUE = 1409049: ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI4 DECLARE LONG CONSTANT LIB$_KEYALRINS = 1409057 ! ; LIB$INSERT_TREE4 DECLARE LONG CONSTANT LIB$_ERRROUCAL = 1409065+ ! ; LIB$DELETE_FILE, LIB$RENAME_FILE2 DECLARE LONG CONSTANT pLIB$_RESTART = 1409073 ! ; LIB$DECODE_FAULT= ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES???/ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW." ! ; SET LH TO 21 (DECIMAL).5 ! ; SO THAT EACH CODE WILL BE AN WARNING CODE./ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW.1 DECLARE LONG CONSTANT LIB$_BADSTA = 1409540 ! ; LIB$FIXUP_FLT4 DECLARE LONG CONSTANT LIB$_FATERRLIB = 1409548 ! ; LIB$VM_GET4 DECLARE LONG CONSTANT LIB$_I qNSVIRMEM = 1409556( ! ; LIB$VM_GET, LIB$LOOKUP_KEY4 DECLARE LONG CONSTANT LIB$_INPSTRTRU = 1409564 ! ; LIB$GET_INPUT4 DECLARE LONG CONSTANT LIB$_INVSTRDES = 1409572 ! ; LIB$SCOPY_XXXX4 DECLARE LONG CONSTANT LIB$_INTLOGERR = 14095801 DECLARE LONG CONSTANT LIB$_INVARG = 1409588 ! ; LIB$LOOKUP_KEY1 DECLARE LONG CONSTANT LIB$_AMBKEY = 1409596 ! ; LIB$LOOKUP_KEY1 DECLARE LONG CONSTANT LIB$_UNRKEY = 14096044 rDECLARE LONG CONSTANT LIB$_PUSSTAOVE = 1409612 ! ; LIB$FIXUP_FLT4 DECLARE LONG CONSTANT LIB$_USEFLORES = 1409620 ! ; LIB$LOOKUP_KEY4 DECLARE LONG CONSTANT LIB$_SIGNO_ARG = 1409628" ! ; LIB$SIGNAL, LIB$STOP4 DECLARE LONG CONSTANT LIB$_BADBLOADR = 1409636' ! ; LIB$FREE_VM, LIB$VM_FREE[_P]4 DECLARE LONG CONSTANT LIB$_BADBLOSIZ = 1409644 ! ; LIB$GET_VM1 DECLARE LONG CONSTANT LIB$_NOTFOU = 1409652 ! ; LIB$FFS, LIB$FFC s4 DECLARE LONG CONSTANT LIB$_ATTCONSTO = 1409660 ! ; LIB$SIGNAL, LIB$STOP4 DECLARE LONG CONSTANT LIB$_SYNTAXERR = 14096682 DECLARE LONG CONSTANT LIB$_INVTYPE = 1409676 ! ; LIB$TPARSE0 DECLARE LONG CONSTANT LIB$_INSEF = 1409684 ! ; LIB$GET_EF4 DECLARE LONG CONSTANT LIB$_EF_ALRFRE = 1409692 ! ; LIB$FREE_EF4 DECLARE LONG CONSTANT LIB$_EF_ALRRES = 1409700 ! ; LIB$RESERVE_EF4 DECLARE LONG CONSTANT LIB$_EF_RESSYS = 1409708 t& ! ; LIB$FREE_EF, LIB$RESERVE_EF1 DECLARE LONG CONSTANT LIB$_INSLUN = 1409716 ! ; LIB$GET_LUN4 DECLARE LONG CONSTANT LIB$_LUNALRFRE = 1409724 ! ; LIB$FREE_LUN4 DECLARE LONG CONSTANT LIB$_LUNRESSYS = 1409732( ! ; LIB$FREE_LUN, LIB$RESERVE_LUN4 DECLARE LONG CONSTANT LIB$_SCRBUFOVF = 1409740 ! ; SCR PACKAGE4 DECLARE LONG CONSTANT LIB$_INVSCRPOS = 1409748 ! ; SCR PACKAGE4 DECLARE LONG CONSTANT LIB$_SECINTFAI = 14097569 u ! ; LIB$INSQHI, LIB$INSQTI, LIB$REMQHI, LIB$REMQTI1 DECLARE LONG CONSTANT LIB$_INVCHA = 1409764+ ! ; LIB$TRA_ASC_EBC, LIB$TRA_EBC_ASC4 DECLARE LONG CONSTANT LIB$_QUEWASEMP = 1409772! ! ; LIB$REMQHI, LIB$REMQTI4 DECLARE LONG CONSTANT LIB$_STRIS_INT = 1409780 ! ; LIB$SCOPY, ETC.4 DECLARE LONG CONSTANT LIB$_KEYNOTFOU = 1409788 ! ; LIB$LOOKUP_TREE1 DECLARE LONG CONSTANT LIB$_INVCVT = 1409796 ! ; LIB$CVTDXDX4 DECLARE LONG CvONSTANT LIB$_INVDTYDSC = 1409804 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_INVCLADSC = 1409812 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_INVCLADTY = 1409820 ! ; LIB$CVTDXDX2 DECLARE LONG CONSTANT LIB$_INVNBDS = 1409828 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_DESSTROVF = 1409836 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_INTOVF = 1409844 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_DECOVF = 1409852 ! ;w LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_FLTOVF = 1409860 ! ; LIB$CVTDXDX1 DECLARE LONG CONSTANT LIB$_FLTUND = 1409868 ! ; LIB$CVTDXDX2 DECLARE LONG CONSTANT LIB$_ROPRAND = 1409876 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_WRONUMARG = 1409884 ! ; LIB$ANALYZE_SDESC4 DECLARE LONG CONSTANT LIB$_NOSUCHSYM = 1409892 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_INSCLIMEM = 1409900 ! ; LIB$CLI_CALLBACK4 DECLAR xE LONG CONSTANT LIB$_AMBSYMDEF = 1409908 ! ; LIB$CLI_CALLBACK0 DECLARE LONG CONSTANT LIB$_NOCLI = 1409916 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_UNECLIERR = 1409924 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_INVSYMNAM = 1409932 ! ; LIB$CLI_CALLBACK4 DECLARE LONG CONSTANT LIB$_ATTREQREF = 1409940 ! ; LIB$ATTACH4 DECLARE LONG CONSTANT LIB$_INVFILSPE = 14099482 ! ; LIB$FID_TO_NAME, LIB$EXTRACT_CONCEALED,= y ! ; LIB$SET_FILE_PROT, LIB$UNLOCK_FILE, LIB$CREATE_DIR1 DECLARE LONG CONSTANT LIB$_INVXAB = 1409956 ! ; LIB$QUAL_FILE_PARSE4 DECLARE LONG CONSTANT LIB$_NO_STRACT = 1409964 ! ; SCR PACKAGE4 DECLARE LONG CONSTANT LIB$_BADTAGVAL = 1409972 ! ; LIB$VM4 DECLARE LONG CONSTANT LIB$_INVOPEZON = 1409980 ! ; LIB$VM4 DECLARE LONG CONSTANT LIB$_PAGLIMEXC = 1409988 ! ; LIB$VM1 DECLARE LONG CONSTANT LIB$_NOTIMP = 1409996 ! z ; LIB$NOT_IMPLEMENTED2 DECLARE LONG CONSTANT LIB$_BADZONE = 1410004A ! ; LIB$VERIFY_VM_ZONE, LIB$SHOW_VM_ZONE, LIB$STAT_VM_ZONE ! ; LIB$FIND_VM_ZONE1 DECLARE LONG CONSTANT LIB$_IVTIME = 1410012? ! ; LIB$ADD_TIMES, LIB$SUB_TIMES, LIB$MULIPLY_DELTA_TIME> ! ; LIB$MULTIPLY_DELTA_TIME_F, LIB$CVT_TO_INTERNAL_TIME> ! ; LIB$CVT_FROM_INTERNAL_TIME, LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT LIB$_ONEDELTIM = 1410020 ! ; LIB$ADD_TIMES1 {DECLARE LONG CONSTANT LIB$_NEGTIM = 1410028 ! ; LIB$SUB_TIMES4 DECLARE LONG CONSTANT LIB$_INVARGORD = 1410036 ! ; LIB$SUB_TIMES4 DECLARE LONG CONSTANT LIB$_ABSTIMREQ = 1410044% ! ; LIB$CVT_FROM_INTERNAL_TIME4 DECLARE LONG CONSTANT LIB$_DELTIMREQ = 1410052% ! ; LIB$CVT_FROM_INTERNAL_TIME2 DECLARE LONG CONSTANT LIB$_INVOPER = 1410060$ ! ; LIB$CVT_XXX_INTERNAL_TIME5 DECLARE LONG CONSTANT LIB$_REENTRANCY = 1410068; ! ;LIB$FORMAT |_DATE_TIME, LIB$INIT_DATE_TIME_CONTEXT,6 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_UNRFORCOD = 14100768 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_ILLINISTR = 1410084$ ! ;LIB$INIT_DATE_TIME_CONTEXT6 DECLARE LONG CONSTANT LIB$_NUMELEMENTS = 1410092$ ! ;LIB$INIT_DATE_TIME_CONTEXT4 DECLARE LONG CONSTANT LIB$_ELETOOLON = 1410100$ ! ;LIB$INIT_DATE_ }TIME_CONTEXT7 DECLARE LONG CONSTANT LIB$_ILLCOMPONENT = 1410108$ ! ;LIB$INIT_DATE_TIME_CONTEXT4 DECLARE LONG CONSTANT LIB$_AMBDATTIM = 1410116! ! ;LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT LIB$_INCDATTIM = 1410124! ! ;LIB$CONVERT_DATE_STRING4 DECLARE LONG CONSTANT LIB$_ILLFORMAT = 14101326 ! ;LIB$CONVERT_DATE_STRING, LIB$GET_DATE_FORMAT3 DECLARE LONG CONSTANT LIB$_UNSUPVER = 1410140> ! ; LIB$ASCII_TO_UID, LIB$COMPARE_UID, LIB$UI ~D_TO_ASCII4 DECLARE LONG CONSTANT LIB$_BADFORMAT = 1410148 ! ; LIB$ASCII_TO_UID4 DECLARE LONG CONSTANT LIB$_NODTOOLNG = 1410156 ! ; LIB$BUILD_NODESPEC3 DECLARE LONG CONSTANT LIB$_NOHOSNAM = 1410164 ! ; LIB$GET_HOSTNAME4 DECLARE LONG CONSTANT LIB$_OUTSTRTRU = 1413120 ! ; LIB$CVTDXDX4 DECLARE LONG CONSTANT LIB$_FILFAIMAT = 1413128 ! ; LIB$QUAL_FILE_MATCH1 DECLARE LONG CONSTANT LIB$_NEGANS = 1413136 ! ; LIB$CONFIRM_A CT1 DECLARE LONG CONSTANT LIB$_QUIPRO = 1413144/ ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH4 DECLARE LONG CONSTANT LIB$_QUICONACT = 1413152/ ! ; LIB$CONFIRM_ACT, LIB$QUAL_FILE_MATCH3 DECLARE LONG CONSTANT LIB$_ENGLUSED = 14131608 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DECLARE LONG CONSTANT LIB$_DEFFORUSE = 14131688 ! ;LIB$FORMAT_DATE_TIME, LIB$CONVERT_DATE_STRING, ! ;LIB$GET_DATE_FORMAT4 DE CLARE LONG CONSTANT LIB$_MEMALRFRE = 1413176 ! ;LIB$VM_FREE1 DECLARE LONG CONSTANT LIB$_BADCCC = 1425408 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_EOMERROR = 1425416 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_EOMFATAL = 1425424 ! ; LIB$$READ_OBJECT2 DECLARE LONG CONSTANT LIB$_EOMWARN = 1425432 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_GSDTYP = 1425440 ! ; LIB$$READ_OBJECT4 DECLARE LONG CON STANT LIB$_ILLFMLCNT = 1425448 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLMODNAM = 1425456 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLPSCLEN = 1425464 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECLEN = 1425472 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECLN2 = 1425480 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLRECTYP = 1425488 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONST ANT LIB$_ILLRECTY2 = 1425496 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_ILLSYMLEN = 1425504 ! ; LIB$$READ_OBJECT0 DECLARE LONG CONSTANT LIB$_NOEOM = 1425512 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_RECTOOSML = 1425520 ! ; LIB$$READ_OBJECT3 DECLARE LONG CONSTANT LIB$_SEQUENCE = 1425528 ! ; LIB$$READ_OBJECT4 DECLARE LONG CONSTANT LIB$_SEQUENCE2 = 1425536 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_STRLVL = 1425544 ! ; LIB$$READ_OBJECT1 DECLARE LONG CONSTANT LIB$_NOWILD = 13806503 DECLARE LONG CONSTANT LIB$_ACTIMAGE = 13810501 DECLARE LONG CONSTANT LIB$_OPENIN = 13805062 DECLARE LONG CONSTANT LIB$_CLOSEIN = 13804322 DECLARE LONG CONSTANT LIB$_READERR = 1380530wwٞ PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  / ! Interface definitions for LIB$VM package ! ) ! LIB$CREATE_VM_ZONE algorithm codes@ DECLARE LONG CONSTANT LIB$K_VM_FIRST_FIT = 1 ! First fitf DECLARE LONG CONSTANT LIB$K_VM_QUICK_FIT = 2 ! Quick fit, with fixed queues of preferred sizes\ DECLARE LONG CONSTANT LIB$K_VM_FREQ_SIZES = 3 ! First fit, with frequent sizes cacheD DECLARE LONG CONSTANT LIB$K_VM_FIXED = 4 ! Fixed size blocks* ! LIB$CREATE_VM_ZONE flag definitionsQ DECLARE LONG CONSTANT LIB$M_VM_BOUNDARY_TAGS = 1 ! Boundary tagged blocksL DECLARE LONG CONSTANT LIB$M_VM_GET_FILL0 = 2 ! 0-fill for LIB$GET_VML DECLARE LONG CONSTANT LIB$M_VM_GET_FILL1 = 4 ! 1-fill for LIB$GET_VMN DECLARE LONG CONSTANT LIB$M_VM_FREE_FILL0 = 8 ! 0-fill for LIB$FREE_VMO DECLARE LONG CONSTANT LIB$M_VM_FREE_FILL1 = 16 ! 1-fill for LIB$FREE_VMa DECLARE LONG CONSTANT LIB$M_VM_EXTEND_AREA = 32 ! Add extent to existing area if possibleZ DECLARE LONG CONSTANT LIB$M_VM_NO_EXTEND = 64 ! Area is not allowed to be extendedb DECLARE LONG CONSTANT LIB$M_VM_TAIL_LARGE = 128 ! Add larger than normal areas at the tailwwv PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ) ! Interface definitions for LIB$WAIT ! N ! LIB$WAIT floating-point format codes (must equal CVT$K_VAX_F,... codes)M DECLARE LONG CONSTANT LIB$K_VAX_F = 0 ! VAX F Floating point dataM DECLARE LONG CONSTANT LIB$K_VAX_D = 1 ! VAX D Floating point dataM DECLARE LONG CONSTANT LIB$K_VAX_G = 2 ! VAX G Floating point dataM DECLARE LONG CONSTANT LIB$K_VAX_H = 3 ! VAX H Floating point data" ! LIB$WAIT option definitionsI DECLARE LONG CONSTANT LIB$K_WAKE = 0 ! WAKE option, interruptableQ DECLARE LONG CONSTANT LIB$K_NOWAKE = 1 ! NOWAKE option, non-interruptablewwU1 PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 18:35:06.15 ! R ! **************************************************************************** ! * *) ! * COPYRIGHT (C) 1985 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ !  ! FACILITY: ! ( ! VAX/VMS LICENSING SYSTEM SERVICES !  ! ABSTRACT: ! L ! THIS MODULE DEFINES THE STATUS CODES FOR THE VARIOUS ERROR CONDITIONSC ! THAT CAN OCCUR WHILE ATTEMPTING TO DO LICENSING CHECKS FOR A& ! DSLA LICENSED SOFTWARE PRODUCT. !  ! AUTHOR: !  ! TRUDY C. MATTHEWS !  ! CREATION DATE: !  ! 26 JANUARY 1987 !  ! MODIFIED BY: ! . ! X-8 EAG2 ERIC ABIS 3-JUN-1998 ! ADDED USER_MODE. ! - ! X-7 EA12 ERIC ABIS 4-APR-1995 ! ADDED INVALID_TOKEN. ! / ! X-6 EA001 ERIC ABIS 29-APR-1991= ! ADDED MESSAGE FOR PRODUCTS WITH RESERVE LISTS. IT IS> ! PUT IN THE PLACE OF THE CURRENTLY UNUSED INVALID_HW_ID@ ! MESSAGE BE CAUSE THE SEPARATE RELEASE OF LMF 1.1 REQUIRED8 ! THE PATCHING OF SYSMSG.EXE. THIS PATCH REPLACED= ! INVALID_HW_ID WITH NOTINRSRVLIST. FUTURE RELEASES OF< ! VMS, IF THEY INCLUDE LMF 1.1, WILL NOT HAVE TO PATCH< ! AND NOTINRSRVLIST WILL RETAIN ITS VALUE. THE UNUSED; ! INVALID_HW_ID WILL GET A NEW MESSAGE NUMBER AND THE ! IMPACT SHOULD BE MINIMAL ! / ! X-5 JWN009 JOHN W. NOGRADY 03-NOV-19879 ! UPDATE MESSAGE TEXT AND ALLOW FOR "room to grow".  ! / ! X-4 JWN001 JOHN W. NOGRADY 14-OCT-1987< ! ADD MESSAGES NOAUTH AND SYSMGR. THESE MESSAGES WILL= ! BE THE FIRST TWO VALUES IN THE MESSAGE VECTOR USED IN$ ! THE ROUTINE $LOOKUP_LICENSE. ! * ! X-3 DKH001 KEN HOBDAY 19-SEP-19875 ! ADD ADDITIONAL MESSAGES FOR LMF$GRANT_LICENSE ! 1 ! X-2 TCM0002 TRUDY C. MATTHEWS 09-MAR-1987: ! REMOVE WORD WARRANTY FROM LICENSE STATUS MESSAGES. ! 1 ! X-1 TCM0001 TRUDY C. MATTHEWS 26-JAN-1 987 ! INITIAL VERSION. ! --3 DECLARE LONG CONSTANT LICENSE_FACILITY = 2708 ! SUCCESS CODES% ! THESE CODES RETURN INFORMATION7 DECLARE LONG CONSTANT LICENSE$_SYSMGR = 1775050598 ! THESE CODES RETURN SLIGHTLY DISMAYING INFORMATION0 ! THESE CODES INDICATE UNRECOVERABLE ERRORS7 DECLARE LONG CONSTANT LICENSE$_NOAUTH = 177507058 ! ALL OF THESE ARE FATAL: DECLARE LONG CONSTANT LICENSE$_NOLICENSE = 1775078609 DECLARE LONG CONSTANT LICE NSE$_EXCEEDED = 177507868< DECLARE LONG CONSTANT LICENSE$_NOT_STARTED = 177507876= DECLARE LONG CONSTANT LICENSE$_INVALID_DATE = 177507884@ DECLARE LONG CONSTANT LICENSE$_INVALID_VERSION = 177507892; DECLARE LONG CONSTANT LICENSE$_TERMINATED = 177507900> DECLARE LONG CONSTANT LICENSE$_NOTINRSRVLIST = 177507908 ! +% ! RETURNED BY SYS$LOOKUP_LICENSE ! -9 DECLARE LONG CONSTANT LICENSE$_BADPARAM = 177507916< DECLARE LONG CONSTANT LICENSE$_ILL PRODUCER = 177507924: DECLARE LONG CONSTANT LICENSE$_WRONUMARG = 177507932> DECLARE LONG CONSTANT LICENSE$_INVALID_HW_ID = 177507940> DECLARE LONG CONSTANT LICENSE$_INVALID_TOKEN = 177507948 ! + ! NEW MESSAGES ! -: DECLARE LONG CONSTANT LICENSE$_USER_MODE = 177507956wwe PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! G ! This package defines the interfaces to the callable OpenVMS MAILG ! routines as documented in the OpenVMS Utility Routines Reference ! Manual.  !  !  ! Mail File routines !  ! 6 ! MAILFILE_BEGIN - Initiates mail file processing ! J ! status = MAIL$MAILFILE_BEGIN (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MAILFILE_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF &  ) ! ; ! MAILFILE_CLOSE - Closes the currently open mail file ! J ! status = MAIL$MAILFILE_CLOSE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MAILFILE_CLOSE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 1 ! MAILFILE_COMPRESS - Compresses a mail file ! M ! status = MAIL$MAILFILE_COMPRESS (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 6 EXTERNAL LONG FUNCTION MAIL$MAILFILE_COMPRESS & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 5 ! MAILFILE_END - Terminates mail file processing ! H ! status = MAIL$MAILFILE_END (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 1 EXTERNAL LONG FUNCTION MAIL$MAILFILE_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! K ! MAILFILE_INFO_FILE - Obtains information about a specified mail file ! N ! status = MAIL$MAILFILE_INFO_FILE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 7 EXTERNAL LONG FUNCTION MAIL$MAILFILE_INFO_FILE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! I ! MAILFILE_MODIFY - Modifies the information in an indexed mail file ! K ! status = MAIL$MAILFILE_MODIFY (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 4 EXTERNAL LONG FUNCTION MAIL$MAILFILE_MODIFY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! A ! MAILFILE_OPEN - Opens a specified mail file for processing ! I ! status = MAIL$MAILFILE_OPEN (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 2 EXTERNAL LONG FUNCTION MAIL$MAILFILE_OPEN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MAILFILE_PURGE_WASTE - Purges the wastebasket of a mail file ! P ! status = MAIL$MAILFILE_PURGE_WASTE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 9 EXTERNAL LONG FUNCTION MAIL$MAILFILE_PURGE_WASTE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! Message routines !  ! / ! MESSAGE_BEGIN - Begin message processing ! I ! status = MAIL$MESSAGE_BEGIN (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 2 EXTERNAL LONG FUNCTION MAIL$MESSAGE_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! > ! MESSAGE_COPY - Copies messages between files or folders ! H ! status = MAIL$MESSAGE_COPY (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 1 EXTERNAL LONG FUNCTION MAIL$MESSAGE_COPY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! ) ! MESSAGE_DELETE - Deletes a message ! J ! status = MAIL$MESSAGE_DELETE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_DELETE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! , ! MESSAGE_END - Ends message processing ! G ! status = MAIL$MESSAGE_END (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 0 EXTERNAL LONG FUNCTION MAIL$MESSAGE_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! J ! MESSAGE_GET - Retrieves a message from the set of selected messages ! G ! status = MAIL$MESSAGE_GET (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 0 EXTERNAL LONG FUNCTION MAIL$MESSAGE_GET & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MESSAGE_INFO - Obtains information about a specified message ! H ! status = MAIL$MESSAGE_INFO (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 1 EXTERNAL LONG FUNCTION MAIL$MESSAGE_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 4 ! MESSAGE_MODIFY = Modifies message information ! J ! status = MAIL$MESSAGE_MODIFY (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_MODIFY & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! C ! MESSAGE_SELECT - Selects messages from the current mail file ! J ! status = MAIL$MESSAGE_SELECT (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 3 EXTERNAL LONG FUNCTION MAIL$MESSAGE_SELECT & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! Send routines !  ! 4 ! SEND_ABORT - Cancels a current send operation ! F ! status = MAIL$SEND_ABORT (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! / EXTERNAL LONG FUNCTION MAIL$SEND_ABORT & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! = ! SEND_ADD_ADDRESS - Adds an address to the address list ! L ! status = MAIL$SEND_ADD_ADDRESS (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 5 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_ADDRESS & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! D ! SEND_ADD_ATTRIBUTE - Adds an attribute to the current message ! N ! status = MAIL$SEND_ADD_ATTRIBUTE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 7 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_ATTRIBUTE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! : ! SEND_BEGIN - Initiates processing to send a message ! F ! status = MAIL$SEND_BEGIN (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! / EXTERNAL LONG FUNCTION MAIL$SEND_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 7 ! SEND_ADD_BODYPART - Builds the body of a message ! M ! status = MAIL$SEND_ADD_BODYPART (context, in_item_list, out_item_list) ! % ! context  - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 6 EXTERNAL LONG FUNCTION MAIL$SEND_ADD_BODYPART & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! , ! SEND_END - Terminates send processing ! D ! status = MAIL$SEND_END (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! - EXTERNAL LONG FUNCTION MAIL$SEND_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 8 ! SEND_MESSAGE - Begins actual sending of a message ! H ! status = MAIL$SEND_MESSAGE (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! 1 EXTERNAL LONG FUNCTION MAIL$SEND_MESSAGE & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! User data base routines !  ! A ! USER_BEGIN - Initiates access to the common user data base ! F ! status = MAIL$USER_BEGIN (context, in_item_list, out_item_list) ! % ! context - Context value'  ! in_item_list - Input item list( ! out_item_list - Output item list ! / EXTERNAL LONG FUNCTION MAIL$USER_BEGIN & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! H ! USER_DELETE_INFO - Remove a user record from the common data base ! L ! status = MAIL$USER_DELETE_INFO (context, in_item_list, out_item_list) ! % ! context - Context value' !  in_item_list - Input item list( ! out_item_list - Output item list ! 5 EXTERNAL LONG FUNCTION MAIL$USER_DELETE_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! @ ! USER_END - terminates access to the common user data base ! D ! status = MAIL$USER_END (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_item_list - Output item list ! - EXTERNAL LONG FUNCTION MAIL$USER_END & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 7 ! USER_GET_INFO - Obtains information about a user ! I ! status = MAIL$USER_GET_INFO (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list(  ! out_item_list - Output item list ! 2 EXTERNAL LONG FUNCTION MAIL$USER_GET_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! @ ! USER_SET_INFO - Adds or modifies information about a user ! I ! status = MAIL$USER_SET_INFO (context, in_item_list, out_item_list) ! % ! context - Context value' ! in_item_list - Input item list( ! out_it em_list - Output item list ! 2 EXTERNAL LONG FUNCTION MAIL$USER_SET_INFO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & )ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:41.79 !  !  ! VERSION: 'X-12' ! R ! ************************************************************** ************** ! * *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1992 - 1996 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! , ! FACILITY: VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! : ! THIS FILE CONTAINS THE MDL SOURCE FOR MAIL MESSAGES !  ! ENVIRONMENT: ! ! N/A !  !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 8-JUN-1978 !  ! MODIFICATION HISTORY: ! . ! X-12 SG088 SHEELA GAYATRI 20-FEB-1996- ! ADD KEYNOTDEF ? INVKEYNAM MESSAGES.  ! . ! X-11 SG082 SHEELA GAYATRI 09-FEB-1996, ! ADD ILLEDTNAM MESSAGE. REMOVE X-10. ! 2 ! X-10 SG067 SHEELA GAYATRI 13-NOV-1995; ! ADD CDASUPPORT MESSAGE FOR EAGLE/THETA FOR MAIL/OLD8 ! SUPPORT FOR DDIF/DTIF FILES. THIS MESSAGE WILL 6 ! BECOME REDUNDANT IN GRYPHON, WHEN SUPPORT FOR + !  DDIF/DTIF FILE PROCESSING IS ADDED. ! / ! X-9 ROP1002 ROBERT POSNIAK 7-JUN-19956 ! ADD SHOWNOSIG, SHOWSIG AND BADLOGVAL MESSAGES. ! . ! X-8 MB0020 MARINA BUCKLEY 12-OCT-19942 ! MODIFY THE TEXT OF THE CODERR FATAL ERROR. ! . ! X-7 MB0011 MARINA BUCKLEY 16-JUN-1994; ! ADD MAIL$_LISTTOOLONG ERROR MESSAGE TO BE RETURNED < ! FROM CALLABLE MAIL ROUTINE MAIL$SEND_ADD_ADDRESS IF = ! USER CALLS IT MULTIPLE TIMES RESULTING IN AN ADDRESS & ! LIST THAT EXCEEDS THE MAXIMUM. ! - ! X-6 TNS004 TOM SCARPELLI 11-APR-1994 ! ADD I18N CHANGES. ! - ! X-5 RAB RICHARD A. BISHOP 17-AUG-19939 ! PICK UP MAIL$_DELETED AND MAIL$_FFMTMSG FROM VAX: ! , ! X-22 CCD027 CAREY DONAT 11-AUG-1993* ! REMOVE FROM MIDDLE OF FFMTMSG ! , ! X-21 CCD027 CAREY DONAT 13-JUL-1993; ! ADD FFMTMSG INFORMATIONAL MESSAGE FOR FOREIGN FILES ! WHERE TRANLATOR EXISTS ! , ! X-20 CCD007 CAREY DONAT 08-FEB-1993? ! ADD DELETED MESSAGE FOR COMPRESS TEMP FILE SUCCESSFULLY ! DELETED ! $ ! ***** OLD AUDIT TRAIL FOLLOWS ! / ! X-6 LAF0001 LISA A. FARLEY 02-JUL-1992= ! FIX FOR QAR #3161. ADDED MESSAGE INVRANGE TO LET THE : ! USER KNOW WHEN THE RANGE SPECIFIED FOR A DELETE IS ! INVALID. ! 0 ! X-5 MFS0069 MARK F. SCANLON 26-JUN-19925 ! QAR 2682. REMOVED FAO FROM MESSAGE NAMTOOBIG. ! - ! X-4 RAB RICH ARD A. BISHOP 21-MAY-19924 ! MERGE ANOTHER SYMBVOL FROM THE VAX/VMS COPY: ! > ! X-19 DAC060 DAVE CANTOR 15-APR-1992J ! CORRECTED TEXT OF NOUSERSPEC AT REQUEST OF DOC. GROUP ! > ! X-18 DAC058 DAVE CANTOR 02-APR-1992O ! SUPPLY ERROR MESSAGE FOR DCL COMMAND $ MAIL FILENAME E ! FOLLOWED BY NO ADDRESSEE SUPPLIED. (NOUSERSPEC) ! - ! X-3 RAB RICHARD A. BISHOP 29-JAN-1 9926 ! MERGE INTO ALPHA THE POST-V5.4 CHANGES IN VMS.> ! SINCE THERE HAVE BEEN NO CHANGES IN THE ALPHA VERSION ? ! OF THIS FILE SINCE V5.4 (OTHER THAN AUDIT TRAIL), WHAT ; ! FOLLOWS IS THE AUDIT TRAIL FROM THE VMS MASTERPACK. ! F ! =============================================================== ! . ! X-17 DRB0084 DAWN R. BANKS 8-AUG-19917 ! ADD MESSAGES TO SUPPORT DDIF/DTIF DOTS PACKING. ! 1 ! X-16 ROP0423 ROBERT POSNIAK 17-MAR-1988" ! CHANGE THE TEXT OF FORMSG. ! 0 ! X-15 ROP0342 ROBERT POSNIAK 10-AUG-1987 ! ADD SHOW220, SHOW 225. ! 0 ! X-14 ROP0321 ROBERT POSNIAK 23-JUL-1987 ! ADD NOACCPTMSG MESSAGE. ! / ! X-13 ROP0297 ROBERT POSNIAK 2-MAR-19875 ! MAKE DIRHD0 TAKE AS A PARAMETER THE NUMBER OF/ ! SPACES BETWEEN DATE AND SUBJECT FIELDS. ! 0 ! X-12 ROP0283 ROBERT POSNIAK 24-FEB-1987, ! ADD MAILFOLD AND WASTEFOLD MESSAGES. ! / ! X-11 ROP0249 ROBERT POSNIAK 9-FEB-1987- ! MAKE MAIL COPY OF THE SHARED MESSAGES" ! USED BY THE MAIL FACILITY. ! 1 ! X-10 ROP0205 ROBERT POSNIAK 14-NOV-1986 ! ADD SHOW210 AND SHOW215. ! 0 ! X-9 ROP0195 ROBERT POSNIAK 11-NOV-1986 ! ADD YES. ! 0 ! X-8 ROP0179 ROBERT POSNIAK 27-OCT-19864 ! ADD UPGRADE FOR ROLLING UPGRADE IN PROGRESS. !  ! X-7 ROP ! ADD ERRACTRNS !  ! X-6 ROP ! ADD SHOW200, SHOW205 ! ADD FORMSG, NOTFORMSG !  ! X-5 ROP< ! FIX SHOW10 TO USE ONLY DESCRIPTORS. REMOVE RECLSTAT: ! ADD PROMPT. CHANGE INFO50 TO TAKE A DESCRIPTOR AS. ! INPUT. ADD INFO12,INFO14, CRENEWFILE.6 ! ADD SHOW15,SHOW25, AND SHOW35 TO DISPLAY PRINT ! QUEUE/FORM AND FORWARD !  ! X-4 ROP ! ADD MSGSENT, MSGSENTAT !  ! X-3 ROP ! ADD ILLTPRT,INVITMVAL !  ! X-2 ROP- ! TAKE QUOTES OUT OF ILLPERNAM MESSAGE. ! ! ! V04-000 RP 28-OCT-19855 ! NEW MESSAGE FOR WRONG FILE. ADD ERROR ERACTED ! 2 ! V03-015 ROP0004 ROBERT POSNIAK 6-JUN-19849 ! NEW MESSGE FOR OVERSIZED RECORD. NEW MESSAGE FOR ! REENTERING LINE. ! = ! V03-014 BLS0272 BENN SCHREIBER 18-FEB-1984 13:36:12 3 ! NEW MESSAGE FOR INCORRECT PROTOCOL VERSION. ! 3 ! V03-013 BLS0263 BENN SCHREIBER 5-FEB-19848 ! NEW MESSAGE FOR CAPTIVE ACCOUNT TRYING TO SPAWN. ! 3  ! V03-012 BLS0255 BENN SCHREIBER 28-DEC-1983A ! NEW MESSAGES FOR SHOW KEY, AND FOR TIME IN NOTIFY MESSAGE ! 3 ! V03-011 BLS0250 BENN SCHREIBER 8-DEC-1983= ! NEW MESSAGE FOR EDITOR NOT CALLABLE. NEW MESSAGE FOR1 ! ISAM FILE FOUND WHEN SEQUENTIAL EXPECTED. ! 3 ! V03-010 BLS0246 BENN SCHREIBER 28-NOV-19838 ! NEW MESSAGE ASKING IF WANT TO CREATE NEW FOLDER. ! 3 ! V03-009 BLS0229 BENN SCHREIBER 16-JUL-1983( ! NEW MESSAGE "you have new mail". ! 3 ! V03-008 BLS0227 BENN SCHREIBER 1-JUL-1983; ! NEW MESSAGES FOR SENDERR AND NOSUCHUSR THAT INCLUDE ! THE NODE NAME. ! 3 ! V03-007 BLS0225 BENN SCHREIBER 17-JUN-19835 ! NEW MESSAGE FOR BETTER PERSONAL NAME CHECKING ! 3 ! V03-006 BLS0222 BENN SCHREIBER 15-MAY-1983( ! NEW MESSAGE FOR RECLAIMING SPACE ! 3 ! V03-005 BLS0220 BENN SCHREIBER 30-APR-1983% ! NEW MESSAGES FOR NEW FEATURES ! 3 ! V 03-004 BLS0217 BENN SCHREIBER 12-APR-1983B ! CHANGE TEXT OF DELSPACE. ADD NEW MESSAGE FOR NON-EXISTANT@ ! FOLDER SELECTED. ADD MESSAGE FOR EXTERNAL MESSAGE TEXT. ! 3 ! V03-003 BLS0211 BENN SCHREIBER 13-MAR-1983: ! NEW MESSAGES FOR ISAM FILES, AND TEXT THAT USED TO# ! BE EMBEDDED IN THE PROGRAM. ! 3 ! V03-002 BLS0202 BENN SCHREIBER 5-JAN-1983: ! NEW MESSAGES FOR ILLEGAL STRING LENGTH AND ILLEGAL ! CHARACTER IN STRING ! 3 !  V03-001 BLS0177 BENN SCHREIBER 24-JUN-1982> ! NEW MESSAGE FOR USER WHO HAS DISMAIL SET. NEW MESSAGE; ! IF LOOP DETECTED IN FORWARDING VIA LOGICAL NAMES OR ! SET FORWARD. !  ! -- ! . ! DEFINE MAIL RELATED ERROR/STATUS VALUES !  !  ! DEFINE ERROR MESSAGES ! 0 DECLARE LONG CONSTANT MAIL$_FACILITY = 1262 DECLARE LONG CONSTANT MAIL$_CODERR = 82903163 DECLARE LONG CONSTANT MAIL$_UPGRADE = 82903245 DECLARE LONG CONSTAN T MAIL$_UAFGETERR = 82903305 DECLARE LONG CONSTANT MAIL$_UAFOPNERR = 82903385 DECLARE LONG CONSTANT MAIL$_NOSUCHUSR = 82903465 DECLARE LONG CONSTANT MAIL$_NOTREADIN = 82903543 DECLARE LONG CONSTANT MAIL$_LOGLINK = 82903625 DECLARE LONG CONSTANT MAIL$_CREPRIJOB = 82903703 DECLARE LONG CONSTANT MAIL$_SENDERR = 82903785 DECLARE LONG CONSTANT MAIL$_NOMOREMSG = 82903862 DECLARE LONG CONSTANT MAIL$_NOMSGS = 82903944 DECLARE LONG CONSTANT MAIL$_US ERSPEC = 82904025 DECLARE LONG CONSTANT MAIL$_SENDABORT = 82904104 DECLARE LONG CONSTANT MAIL$_EDITPROC = 82904182 DECLARE LONG CONSTANT MAIL$_INVCMD = 82904264 DECLARE LONG CONSTANT MAIL$_NOTFOUND = 82904344 DECLARE LONG CONSTANT MAIL$_NETIOERR = 82904425 DECLARE LONG CONSTANT MAIL$_USERDSABL = 82904504 DECLARE LONG CONSTANT MAIL$_FORWLOOP = 82904585 DECLARE LONG CONSTANT MAIL$_NAMTOOBIG = 82904663 DECLARE LONG CONSTANT MAIL$_ILLCHAR = 8290474 5 DECLARE LONG CONSTANT MAIL$_DATIMUSED = 82904823 DECLARE LONG CONSTANT MAIL$_NOTISAM = 82904902 DECLARE LONG CONSTANT MAIL$_DELMSG = 82904984 DECLARE LONG CONSTANT MAIL$_DELWASTE = 82905064 DECLARE LONG CONSTANT MAIL$_NOFOLDER = 82905144 DECLARE LONG CONSTANT MAIL$_NOTEXIST = 82905225 DECLARE LONG CONSTANT MAIL$_NOTSUBDIR = 82905305 DECLARE LONG CONSTANT MAIL$_ILLSUBDIR = 82905385 DECLARE LONG CONSTANT MAIL$_ILLFOLNAM = 82905464 DECLAR E LONG CONSTANT MAIL$_NOMSGPRI = 82905545 DECLARE LONG CONSTANT MAIL$_ALTPRIJOB = 82905625 DECLARE LONG CONSTANT MAIL$_ILLPERNAM = 82905707 DECLARE LONG CONSTANT MAIL$_NOSUCHUSRAT = 82905785 DECLARE LONG CONSTANT MAIL$_SENDERRAT = 82905864 DECLARE LONG CONSTANT MAIL$_CONABORT = 82905945 DECLARE LONG CONSTANT MAIL$_NOTCALEDT = 82906028 DECLARE LONG CONSTANT MAIL$_FILECONFUSED = 82906103 DECLARE LONG CONSTANT MAIL$_CAPTIVE = 82906185 DECLARE LO NG CONSTANT MAIL$_IVPROTVAL = 82906264 DECLARE LONG CONSTANT MAIL$_RECTOBIG = 82906345 DECLARE LONG CONSTANT MAIL$_ILLCTXADR = 82906424 DECLARE LONG CONSTANT MAIL$_WRONGCTX = 82906505 DECLARE LONG CONSTANT MAIL$_FAILGETVM = 82906585 DECLARE LONG CONSTANT MAIL$_INVITMCOD = 82906665 DECLARE LONG CONSTANT MAIL$_MISREQITM = 82906745 DECLARE LONG CONSTANT MAIL$_INVITMLEN = 82906824 DECLARE LONG CONSTANT MAIL$_FILEOPEN = 82906906 DECLARE LONG CONST ANT MAIL$_NOFILEOPEN = 82906985 DECLARE LONG CONSTANT MAIL$_CONITMCOD = 82907065 DECLARE LONG CONSTANT MAIL$_NOMORECTX = 82907145 DECLARE LONG CONSTANT MAIL$_WRONGFILE = 82907223 DECLARE LONG CONSTANT MAIL$_ILLTPRT = 82907305 DECLARE LONG CONSTANT MAIL$_INVITMVAL = 82907383 DECLARE LONG CONSTANT MAIL$_ERACTED = 82907462 DECLARE LONG CONSTANT MAIL$_FORMSG = 82907545 DECLARE LONG CONSTANT MAIL$_NOTFORMSG = 82907625 DECLARE LONG CONSTANT MAIL$_ ERRACTRNS = 82907704 DECLARE LONG CONSTANT MAIL$_BADVALUE = 82907784 DECLARE LONG CONSTANT MAIL$_CLOSEDEL = 82907865 DECLARE LONG CONSTANT MAIL$_FILNOTDEL = 82907942 DECLARE LONG CONSTANT MAIL$_OPENIN = 82908023 DECLARE LONG CONSTANT MAIL$_OPENOUT = 82908105 DECLARE LONG CONSTANT MAIL$_PARSEFAIL = 82908183 DECLARE LONG CONSTANT MAIL$_READERR = 82908266 DECLARE LONG CONSTANT MAIL$_SEARCHFAIL = 82908344 DECLARE LONG CONSTANT MAIL$_SYSERROR = 829 08424 DECLARE LONG CONSTANT MAIL$_NOSYSNAM = 82908504 DECLARE LONG CONSTANT MAIL$_NOSYSPRV = 82908584 DECLARE LONG CONSTANT MAIL$_PROTOCOL = 82908666 DECLARE LONG CONSTANT MAIL$_NOACCPTMSG = 82908744 DECLARE LONG CONSTANT MAIL$_DOTSPACK = 82908826 DECLARE LONG CONSTANT MAIL$_DOTSUNPACK = 82908906 DECLARE LONG CONSTANT MAIL$_NOUSERSPEC = 82908984 DECLARE LONG CONSTANT MAIL$_INVRANGE = 82909067 DECLARE LONG CONSTANT MAIL$_LISTTOOLONG = 82909144  DECLARE LONG CONSTANT MAIL$_SELECTED = 83063073 DECLARE LONG CONSTANT MAIL$_DELMSGS = 83063153 DECLARE LONG CONSTANT MAIL$_CVTFILE = 83063234 DECLARE LONG CONSTANT MAIL$_DELSPACE = 83063315 DECLARE LONG CONSTANT MAIL$_NEWFOLDER = 83063397 DECLARE LONG CONSTANT MAIL$_RECLPLSWAIT = 83063473 DECLARE LONG CONSTANT MAIL$_REENTER = 83063553 DECLARE LONG CONSTANT MAIL$_DELETED = 83063633 DECLARE LONG CONSTANT MAIL$_FFMTMSG = 83063713 DECLARE LONG  CONSTANT MAIL$_MOREMSG = 83143042 DECLARE LONG CONSTANT MAIL$_DIRHD0 = 83143123 DECLARE LONG CONSTANT MAIL$_DIRHD10 = 83143203 DECLARE LONG CONSTANT MAIL$_DIRHD20 = 83143284 DECLARE LONG CONSTANT MAIL$_DIRDEL10 = 83143362 DECLARE LONG CONSTANT MAIL$_ISUB10 = 83143442 DECLARE LONG CONSTANT MAIL$_ISUB20 = 83143522 DECLARE LONG CONSTANT MAIL$_ISUB30 = 83143603 DECLARE LONG CONSTANT MAIL$_PRESRET = 83143686 DECLARE LONG CONSTANT MAIL$_YOUHAVENEW =  83143762 DECLARE LONG CONSTANT MAIL$_MAIL10 = 83143842 DECLARE LONG CONSTANT MAIL$_MAIL20 = 83143925 DECLARE LONG CONSTANT MAIL$_WANTOSEND = 83144004 DECLARE LONG CONSTANT MAIL$_NOTIFY10 = 83144084 DECLARE LONG CONSTANT MAIL$_NOTIFY20 = 83144166 DECLARE LONG CONSTANT MAIL$_JOBENTERED = 83144242 DECLARE LONG CONSTANT MAIL$_SHOW10 = 83144322 DECLARE LONG CONSTANT MAIL$_SHOW20 = 83144402 DECLARE LONG CONSTANT MAIL$_SHOW30 = 83144482 DECLARE LO NG CONSTANT MAIL$_SHOW40 = 83144562 DECLARE LONG CONSTANT MAIL$_SHOW50 = 83144642 DECLARE LONG CONSTANT MAIL$_SHOW60 = 83144722 DECLARE LONG CONSTANT MAIL$_SHOW70 = 83144802 DECLARE LONG CONSTANT MAIL$_SHOW80 = 83144882 DECLARE LONG CONSTANT MAIL$_SHOW90 = 83144963 DECLARE LONG CONSTANT MAIL$_SHOW100 = 83145043 DECLARE LONG CONSTANT MAIL$_SHOW110 = 83145122 DECLARE LONG CONSTANT MAIL$_EDIT10 = 83145202 DECLARE LONG CONSTANT MAIL$_INFO10 = 8314528 2 DECLARE LONG CONSTANT MAIL$_INFO20 = 83145362 DECLARE LONG CONSTANT MAIL$_INFO30 = 83145440 DECLARE LONG CONSTANT MAIL$_SEND = 83145521 DECLARE LONG CONSTANT MAIL$_REPLY = 83145603 DECLARE LONG CONSTANT MAIL$_SHOW120 = 83145683 DECLARE LONG CONSTANT MAIL$_SHOW130 = 83145762 DECLARE LONG CONSTANT MAIL$_INFO50 = 83145843 DECLARE LONG CONSTANT MAIL$_SHOW140 = 83145923 DECLARE LONG CONSTANT MAIL$_SHOW150 = 83146003 DECLARE LONG CONSTANT MA IL$_SHOW160 = 83146082 DECLARE LONG CONSTANT MAIL$_ISUB50 = 83146162 DECLARE LONG CONSTANT MAIL$_MAIL30 = 83146243 DECLARE LONG CONSTANT MAIL$_RETCONT = 83146322 DECLARE LONG CONSTANT MAIL$_NEWSEQ = 83146403 DECLARE LONG CONSTANT MAIL$_MAILDIR = 83146484 DECLARE LONG CONSTANT MAIL$_MAILFILE = 83146566 DECLARE LONG CONSTANT MAIL$_MAILFOLDER = 83146642 DECLARE LONG CONSTANT MAIL$_MAIL40 = 83146726 DECLARE LONG CONSTANT MAIL$_CRENEWFOLD = 83146805  DECLARE LONG CONSTANT MAIL$_NONEWMAIL = 83146885 DECLARE LONG CONSTANT MAIL$_SHOWKEY10 = 83146965 DECLARE LONG CONSTANT MAIL$_SHOWKEY20 = 83147045 DECLARE LONG CONSTANT MAIL$_SHOWKEY30 = 83147125 DECLARE LONG CONSTANT MAIL$_SHOWKEY40 = 83147205 DECLARE LONG CONSTANT MAIL$_SHOWKEY50 = 83147285 DECLARE LONG CONSTANT MAIL$_SHOWKEY60 = 83147365 DECLARE LONG CONSTANT MAIL$_SHOWKEY70 = 83147444 DECLARE LONG CONSTANT MAIL$_NOTIFY30 = 83147524  DECLARE LONG CONSTANT MAIL$_NOTIFY40 = 83147604 DECLARE LONG CONSTANT MAIL$_NOPARENT = 83147684 DECLARE LONG CONSTANT MAIL$_FILEMPTY = 83147765 DECLARE LONG CONSTANT MAIL$_NONEFOUND = 83147849 DECLARE LONG CONSTANT MAIL$_NOMOREREC = 8314792 ! 6 ! THE FOLLOWING MESSAGE IS USED FOR COMMUNICATIONH ! BETWEEN MAILSHR AND MAILSHRP. IT DOES NOT NEED TO BE DOCUMENTED. ! 3 DECLARE LONG CONSTANT MAIL$_USERFWD = 83148002 DECLARE LONG CONSTANT MAIL$_PROMPT  = 83148082 DECLARE LONG CONSTANT MAIL$_INFO12 = 83148162 DECLARE LONG CONSTANT MAIL$_INFO14 = 83148242 DECLARE LONG CONSTANT MAIL$_INFO16 = 83148322 DECLARE LONG CONSTANT MAIL$_INFO18 = 83148406 DECLARE LONG CONSTANT MAIL$_CRENEWFILE = 83148482 DECLARE LONG CONSTANT MAIL$_SHOW15 = 83148562 DECLARE LONG CONSTANT MAIL$_SHOW25 = 83148642 DECLARE LONG CONSTANT MAIL$_SHOW35 = 83148723 DECLARE LONG CONSTANT MAIL$_FORWARD = 83148803 DECLARE LONG C ONSTANT MAIL$_SHOW200 = 83148883 DECLARE LONG CONSTANT MAIL$_SHOW205 = 83148963 DECLARE LONG CONSTANT MAIL$_SHOW210 = 83149043 DECLARE LONG CONSTANT MAIL$_SHOW215 = 83149123 DECLARE LONG CONSTANT MAIL$_CLOSEIN = 83149204 DECLARE LONG CONSTANT MAIL$_CLOSEOUT = 83149285 DECLARE LONG CONSTANT MAIL$_INVQUAVAL = 83149364 DECLARE LONG CONSTANT MAIL$_WRITEERR = 83149443 DECLARE LONG CONSTANT MAIL$_SHOW220 = 83149523 DECLARE LONG CONSTANT MAIL$_SHOW 225 = 83149603 DECLARE LONG CONSTANT MAIL$_HPROMPT = 83149685 DECLARE LONG CONSTANT MAIL$_SHOWNOSIG = 83149763 DECLARE LONG CONSTANT MAIL$_SHOWSIG = 83149845 DECLARE LONG CONSTANT MAIL$_BADLOGVAL = 83149923 DECLARE LONG CONSTANT MAIL$_MSGTEXT = 83223053 DECLARE LONG CONSTANT MAIL$_MSGINFO = 83223133 DECLARE LONG CONSTANT MAIL$_MSGSENT = 83223215 DECLARE LONG CONSTANT MAIL$_MSGSENTAT = 8322329/ DECLARE LONG CONSTANT MAIL$_YES = 83223373  DECLARE LONG CONSTANT MAIL$_COPIEDR = 83223453 DECLARE LONG CONSTANT MAIL$_CREATED = 83223533 DECLARE LONG CONSTANT MAIL$_RENAMED = 83223610 DECLARE LONG CONSTANT MAIL$_TEXT = 8322369 ! 9 ! THE FOLLOWING TWO ARE FOLDER NAMES CREATED BY MAIL ! 4 DECLARE LONG CONSTANT MAIL$_MAILFOLD = 83223775 DECLARE LONG CONSTANT MAIL$_WASTEFOLD = 83223855 DECLARE LONG CONSTANT MAIL$_ILLEDTNAM = 83223945 DECLARE LONG CONSTANT MAIL$_KEYNOTDEF = 83224025 DECLARE LONG CONSTANT MAIL$_INVKEYNAM = 8322410wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:43.22 !  !  ! VERSION: 'X-30' ! O ! *************************************************************************O ! * *O ! * COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION, 1978 - 1999 *O ! * ALL RIGHTS RESERVED. *O ! * UNPUBLISHED RIGHTS RESERVED UNDER THE COPYRIGHT LAWS OF THE UNITED *O ! * STATES. *O ! * *O ! * THE SOFTWARE CONTAINED ON THIS MEDIA IS PROPRIETARY TO AND EMBODIES *O ! * THE CONFIDENTIAL TECHNOLOGY OF DIGITAL EQUIPMENT CORPORATION. *O ! * POSSESSION, USE, DUPLICATION OR DISSEMINATION OF THE SOFTWARE AND *O ! * MEDIA IS AUTHORIZED ONLY PURSUANT TO A VALID WRITTEN LICENSE FROM *O ! * DIGITAL EQUIPMENT CORPORATION. *O ! * *O ! * RESTRI CTED RIGHTS LEGEND USE, DUPLICATION, OR DISCLOSURE BY THE U.S. *O ! * GOVERNMENT IS SUBJECT TO RESTRICTIONS AS SET FORTH IN SUBPARAGRAPH *O ! * (C)(1)(II) OF DFARS 252.227-7013, OR IN FAR 52.227-19, AS APPLICABLE. *O ! * *O ! ************************************************************************* ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! H ! THIS FILE CONTAINS THE MDL SOURCE FOR THE MOUNT UTILITY MESSAGES. !  ! ENVIRONMENT: ! F ! MAINTAINERS TAKE NOTE? THIS MODULE IS COMMON SOURCE FOR VAX ANDI ! ALPHA. DO NOT CHANGE ONE WITHOUT TRACKING THE CHANGE IN THE OTHER. !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! 6 ! X-30 JJF0095 J. JEFFERY FRIEDRICHS 24-FEB-1999- ! ADD WARNING MESSAGE FOR SIZE CONFLICT ! 6 ! X-2 9 JJF0095 J. JEFFERY FRIEDRICHS 8-JAN-1999C ! ADD NEW MESSAGES OLDSHDRIVER, NOTALLMEM AND POLICY MESSAGES ! = ! X-28 JJF-0076 J. JEFFERY FRIEDRICHS 12-SEP-1997@ ! SEPARATE DEVBUSY ERROR MESSAGES OUT INTO UNIQUE MESSAGES ! 9 ! X-27 KJP-SDOS KEVIN PLAYFORD 18-JUL-1997: ! ADD MESSAGE FOR SNAPSHOT POOL MEMBER. ! < ! X-26 ACG0639 ANDREW C. GOLDSTEIN, 13-JUN-1997 14:44* ! ADD NEW MESSAGES FOR ODS-5 SUPPORT ! G  ! X-25 TGC0049 TOM CARR 19-JUN-1996K ! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THATA ! A MEMBER IS ALREADY A MEMBER OF A SHADOW SET ! G ! X-24 TGC0048 TOM CARR 29-MAY-1996K ! ADD AN INFORMATIONAL MESSAGE TO BE USED TO REPORT THATI ! A MEMBER REQUIRES A COPY OPERATION AND CAN NOT BE A  ! MASTER ! ; ! X-23 ACG0618 ANDREW C. GOLDSTEIN, 8-APR-1996 11:17% ! RETURN FACILITY NAME TO MOUNT ! J ! X-22 TGC0045 TOM CARR 29-MAR-1996@ ! ADD NEW MESSAGES FROM SHADOW MOUNT REWRITE. ! 7 ! X-21 JJF0017 J. JEFFERY FRIEDRICHS 11-OCT-1994< ! NUMEROUS MESSAGE CLEANUPS PER DOCUMENTATION FOLKS... ! P ! X-20 JJF0014 J. JEFFERY FRIEDRICHS 17-MAY-1994 ! REMOVE BADSECSUG ! P  ! X-19 JJF0014 J. JEFFERY FRIEDRICHS 10-MAY-19940 ! CHANGE BADSECSYS AND BADSECSUG TO ERRORS ! P ! X-18 JJF0014 J. JEFFERY FRIEDRICHS 14-APR-1994# ! ADD BADSECSYS AND BADSECSUG ! P ! X-17 JJF0007 J. JEFFERY FRIEDRICHS 22-MAR-1994 ! ADD DENIGNORED. ! P ! X-16 JJF0011 J. JEFFERY FRIEDRICHS 14-MAR-1994Q ! ADD REBUILD MESSAGES. ALSO ADD CRELNM_FAILED FOR A PENDING  ! CHANGE. ! 9 ! X-15 JJF0008 J. JEFFERY FRIEDRICHS 9-MAR-1994@ ! REMOVE FAO AND CLARIFY MESSAGES INCONPROT AND INCONOWNER ! 9 ! X-14 JJF0005 J. JEFFERY FRIEDRICHS 1-FEB-1994% ! FIX TYPO IN MESSAGE BADUNDFAT ! 1 ! X-13 AJK0003 ADAM J. KOJNOK 12-OCT-19930 ! ADDING NEW MESSAGE WAITDEVRDY FOR MOUNT. ! 1 ! X-12 AJK0002 ADAM J. KOJNOK 12-OCT-19939 ! RETROFITTING MESSAGE VOL SETALRMNT FROM ALPHA VMS. ! , ! X-4 ABELL53 ALLY BELL 25-JUNE-1993G ! ADDED FATAL MESSAGE VOLSETALRMNT FOR WHEN A VOLUME SET IS BEINGD ! MOUNTED WITH THE SAME NAME AS AN ALREADY MOUNTED VOLUME SET. ! 7 ! X-10 AJK0010 MIKE STAMS/ADAM KOJNOK 01-SEP-1993@ ! ADDING MESSAGE (CBSNOTSUPTD). ALSO, CHANGING 'NEWER' IN= ! MESSAGE INVSHDWMEM TO "newer". THIS WAS REQUESTED BY7 ! DOCUMENTATION SO THAT IT MATCHES THE HELP FILE. ! . ! X-9 VBK VA IKOM B. KRISHNAN 14-NOV-1991; ! ADD A NEW ERROR MESSAGE TO BE OUTPUT WHEN A DISK IS: ! TOO BIG TO BE PART OF A VOLUME SET. SUCH DISKS ARE> ! LARGER THAN 8GB AND SO THEY REQUIRE AN ENTIRE LONGWORD9 ! TO STORE LBNS WHICH LEAVES NO ROOM FOR RVN TO BE " ! STORED IN THE MAP POINTER. ! / ! X-8 JFD0034 JAMES F. DUNHAM 8-JAN-1991: ! IN SUPPORT OF FILES-11 C/D CONTROLLED VOLUME SETS,: ! ADD ISO 9660 AND HIGH SIERRA VOLUME MOUNT MESSAGES ! 5 ! X-21 RKK0057 ROBERT K. KOSAKOWSKI 19-FEB-1991< ! ADD NEW MESSAGES FOR MME OPCOM MESSAGES - SUPPORT OF1 ! SCRATCH VOLUME, MOUNT BY CARTRIDGE NAME.  ! (FOR DAN KYLER) ! 5 ! X-20 RKK0049 ROBERT K. KOSAKOWSKI 26-DEC-1990@ ! REPLACE WITH CORRECT VERSION OF FILE. (BUILDBUG, CHECKED ! IN WRONG VERSION) ! 5 ! X-19 RKK0048 ROBERT K. KOSAKOWSKI 21-DEC-1990 ! ADDED DEVNOFE MESSAGE. ! 5 ! X-18 RKK0036 ROBERT K. KOSAKOWSKI 17-NOV-1990  ! ADDED INVQUAVAL MESSAGE. ! . ! X-17 PRD PAUL R. DESTEFANO 26-APR-1990! ! ADDED NOALOCLASS MESSAGE. ! . ! X-16 PRD PAUL R. DESTEFANO 20-MAR-1990 ! ADDED NOTACLU MESSAGE. ! 2 ! X-15 PRD0548 PAUL R. DESTEFANO 06-NOV-1989 ! ADDED BADMDFMT MESSAGE. ! 2 ! X-14 PRD0526 PAUL R. DESTEFANO 07-OCT-1989< ! ADDED MESSAGES SHDWMEMERGE, AUTOMEMSUCC, AUTOMEMCOPY ! AND AUTOMEMERGE, ! 2 ! X-13 PRD0462 PAUL R. DESTEFANO 16-OCT-19881 ! ADDED WAITINGMNT AND RMTMNTSUCC MESSAGES. ! 2 ! X-12 PRD0455 PAUL R. DESTEFANO 05-OCT-19889 ! ADDED MOUN$_MOUNT MESSAGE FOR IO$_DISPLAY CALL IN ! ASSIST. ! 2 ! X-11 PRD0445 PAUL R. DESTEFANO 18-MAY-1988 ! ADD QUOTAFNF MESSAGE. ! 2 ! X-10 PRD0416 PAUL R. DESTEFANO 23-SEP-1987: ! ADD RMTMNTFAIL AND MNTCLUFAIL WARNING MESSAGES FOR" ! CLUSTER-WIDE MOUNT STATUS. ! , ! X-9 DAS DAVID A. SOLOMON 05-DEC-1986, ! MAKE OBSOLETE MESSAGE CJFERR UNUSED. ! ) ! X-8 HH0130 HAI HUANG 04-DEC-19857 ! FOR CONSISTENCY, RENAME THIS MACRO TO $MOUNDEF. ! ) ! X-7 HH0116 HAI HUANG 03-OCT-1985 ! ADD SHDWINCVOL MESSAGE. ! ) ! X-6 HH0110 HAI HUANG 19-SEP-1985* ! CHANGE TEXT OF SHADOWFAIL MESSAGE. ! * ! X-5 HH0110 HAI HUANG 19-SEP-1985 ! ADD SHADOWFAIL MESSAGE. ! ) ! X-4 HH0103 HAI HUANG 09-SEP-19857 ! ADD SHDWCOPYREQ MESSAGE. ALSO, RENAME SHAMEM TO ! SHDWMEM. ! ) ! X-3 HH0092 HAI HUANG 20-AUG-1985) ! REMOVE OBSOLETE BADJRNL MESSAGE.  ! ) ! X-2 HH0073 HAI HUANG 16-MAY-1985& ! ADD VOLUME SHADOWING MESSAGES. !  ! ** ! + ! > ! THE FOLLOWING ARE MESSAGES ISSUED BY THE MOUNT UTILITY. !  ! - ! 4 ! ***** FOLLOWING MESSAGES ARE SHARED WITH INIT ! I ! WHEN ADDING A NEW MESSAGE IN THIS SECTION, USE THE FILL VALUES DX. ! 1  DECLARE LONG CONSTANT MOUNT$_FACILITY = 1145 DECLARE LONG CONSTANT MOUN$_BADDATCHK = 75038843 DECLARE LONG CONSTANT MOUN$_BADDENS = 75038922 DECLARE LONG CONSTANT MOUN$_BADPRO = 75039002 DECLARE LONG CONSTANT MOUN$_BADUIC = 75039084 DECLARE LONG CONSTANT MOUN$_CONFQUAL = 75039162 DECLARE LONG CONSTANT MOUN$_ILLOPT = 75039244 DECLARE LONG CONSTANT MOUN$_NONLOCAL = 75039322 DECLARE LONG CONSTANT MOUN$_NOTRAN = 75039402 DECLARE LONG CONSTANT MOUN $_UNKDEV = 75039485 DECLARE LONG CONSTANT MOUN$_BADLABELQ = 75039565 DECLARE LONG CONSTANT MOUN$_VALCNVERR = 7503964. DECLARE LONG CONSTANT MOUN$_D3 = 7503972. DECLARE LONG CONSTANT MOUN$_D4 = 7503980. DECLARE LONG CONSTANT MOUN$_D5 = 7503988 ! 4 ! ***** PRECEDING MESSAGES ARE SHARED WITH INIT ! 3 DECLARE LONG CONSTANT MOUN$_LOGNAME = 75039962 DECLARE LONG CONSTANT MOUN$_MAXDEV = 75040042 DECLARE LONG CONSTANT MOUN$_MAXLAB = 75040124  DECLARE LONG CONSTANT MOUN$_NOACPDEV = 75040202 DECLARE LONG CONSTANT MOUN$_MOUVOL = 75040285 DECLARE LONG CONSTANT MOUN$_INCOMPACP = 75040364 DECLARE LONG CONSTANT MOUN$_INCOMPAT = 75040445 DECLARE LONG CONSTANT MOUN$_VOLALRMNT = 75040523 DECLARE LONG CONSTANT MOUN$_BADVOL1 = 75040603 DECLARE LONG CONSTANT MOUN$_ILLDENS = 75040685 DECLARE LONG CONSTANT MOUN$_NOTGENDEV = 75040765 DECLARE LONG CONSTANT MOUN$_DUPDEVSPC = 75040845 DECLARE LO NG CONSTANT MOUN$_ILLANSIBS = 75040922 DECLARE LONG CONSTANT MOUN$_ACCERR = 75041005 DECLARE LONG CONSTANT MOUN$_FILNOTEXP = 75041082 DECLARE LONG CONSTANT MOUN$_NOPRIV = 75041163 DECLARE LONG CONSTANT MOUN$_NOTANSI = 75041244 DECLARE LONG CONSTANT MOUN$_NOTLABEL = 75041325 DECLARE LONG CONSTANT MOUN$_NOTVOLSET = 75041405 DECLARE LONG CONSTANT MOUN$_NOTRELVOL = 75041483 DECLARE LONG CONSTANT MOUN$_OFFLINE = 75041563 DECLARE LONG CONSTANT MOUN $_IOERROR = 75041643 DECLARE LONG CONSTANT MOUN$_ILLQUAL = 75041723 DECLARE LONG CONSTANT MOUN$_WRITLCK = 75041804 DECLARE LONG CONSTANT MOUN$_RECGTRBL = 75041883 DECLARE LONG CONSTANT MOUN$_ACPNAME = 75041963 DECLARE LONG CONSTANT MOUN$_ACPTIME = 75042043 DECLARE LONG CONSTANT MOUN$_AQBTIME = 75042122 DECLARE LONG CONSTANT MOUN$_BADACP = 75042202 DECLARE LONG CONSTANT MOUN$_BADEBC = 75042282 DECLARE LONG CONSTANT MOUN$_BADOVR = 75042363  DECLARE LONG CONSTANT MOUN$_DEVICES = 75042444 DECLARE LONG CONSTANT MOUN$_SZTOOBIG = 75042525 DECLARE LONG CONSTANT MOUN$_INCONSDEV = 75042604 DECLARE LONG CONSTANT MOUN$_DEVCOUNT = 75042684 DECLARE LONG CONSTANT MOUN$_VOLINSET = 75042765 DECLARE LONG CONSTANT MOUN$_RVN1NOTMT = 75042844 DECLARE LONG CONSTANT MOUN$_SETLIMIT = 75042925 DECLARE LONG CONSTANT MOUN$_DUPVOLNAM = 75043005 DECLARE LONG CONSTANT MOUN$_HOMBLKCHK = 75043082 DECLARE LO NG CONSTANT MOUN$_DUPRVN = 75043164 DECLARE LONG CONSTANT MOUN$_BADCACHE = 75043244 DECLARE LONG CONSTANT MOUN$_UNRELVOL = 75043324 DECLARE LONG CONSTANT MOUN$_MBXCRERR = 75043404 DECLARE LONG CONSTANT MOUN$_MBXRDERR = 75043484 DECLARE LONG CONSTANT MOUN$_REPLYERR = 75043565 DECLARE LONG CONSTANT MOUN$_OPRSNDERR = 75043644 DECLARE LONG CONSTANT MOUN$_OPRABORT = 75043726 DECLARE LONG CONSTANT MOUN$_BATCHNOOPR = 75043805 DECLARE LONG CONSTANT MOUN$_ MOUNEWVOL = 75043884 DECLARE LONG CONSTANT MOUN$_REMOUVOL = 75043964 DECLARE LONG CONSTANT MOUN$_OBSOLETE = 75044043 DECLARE LONG CONSTANT MOUN$_VOLOERR = 75044123 DECLARE LONG CONSTANT MOUN$_BADINIT = 75044202 DECLARE LONG CONSTANT MOUN$_DISMAL = 75044284 DECLARE LONG CONSTANT MOUN$_INCONSHR = 75044365 DECLARE LONG CONSTANT MOUN$_INCONPROT = 75044446 DECLARE LONG CONSTANT MOUN$_INCONQUOTA = 75044526 DECLARE LONG CONSTANT MOUN$_INCONOWNER = 750 44606 DECLARE LONG CONSTANT MOUN$_INCONWRITE = 75044684 DECLARE LONG CONSTANT MOUN$_INCONFOR = 75044764 DECLARE LONG CONSTANT MOUN$_NOVOLACC = 75044844 DECLARE LONG CONSTANT MOUN$_NOFILACC = 75044927 DECLARE LONG CONSTANT MOUN$_TAPEPOSLOST = 75045005 DECLARE LONG CONSTANT MOUN$_BADSHADOW = 75045085 DECLARE LONG CONSTANT MOUN$_NOSHDWMEM = 75045166 DECLARE LONG CONSTANT MOUN$_INVSHDWMEM = 75045247 DECLARE LONG CONSTANT MOUN$_SHDWCOPYREQ = 7504532 6 DECLARE LONG CONSTANT MOUN$_SHADOWFAIL = 75045406 DECLARE LONG CONSTANT MOUN$_SHDWINCVOL = 75045486 DECLARE LONG CONSTANT MOUN$_NOTSHDWDEV = 75045564 DECLARE LONG CONSTANT MOUN$_BADMDFMT = 75045643 DECLARE LONG CONSTANT MOUN$_NOTACLU = 75045726 DECLARE LONG CONSTANT MOUN$_NOALOCLASS = 75045806 DECLARE LONG CONSTANT MOUN$_BADASNUNIT = 75045883 DECLARE LONG CONSTANT MOUN$_BADDISP = 75045965 DECLARE LONG CONSTANT MOUN$_BADUNDFAT = 75046045 DECLARE LONG CONSTANT MOUN$_VOLTOOBIG = 75046125 DECLARE LONG CONSTANT MOUN$_BADSECSYS = 75046203 DECLARE LONG CONSTANT MOUN$_DEVBUSY = 75046282 DECLARE LONG CONSTANT MOUN$_DEVDMT = 75046364 DECLARE LONG CONSTANT MOUN$_BADREPLY = 75046444 DECLARE LONG CONSTANT MOUN$_MMEABORT = 75046524 DECLARE LONG CONSTANT MOUN$_NOSHADOW = 75046605 DECLARE LONG CONSTANT MOUN$_NOTSHDWVU = 75046685 DECLARE LONG CONSTANT MOUN$_NOSHADLIC = 75046765 DECLARE LONG C ONSTANT MOUN$_DIFVOLMNT = 75046845 DECLARE LONG CONSTANT MOUN$_DEVSHAMEM = 75046923 DECLARE LONG CONSTANT MOUN$_SHADSCB = 75047002 DECLARE LONG CONSTANT MOUN$_NOODS1 = 75047083 DECLARE LONG CONSTANT MOUN$_WRONGVU = 75047168 DECLARE LONG CONSTANT MOUN$_DETSHADINCON = 75047244 DECLARE LONG CONSTANT MOUN$_NOMASTER = 75047322 DECLARE LONG CONSTANT MOUN$_XSMBRS = 75047402 DECLARE LONG CONSTANT MOUN$_NOVUID = 75047488 DECLARE LONG CONSTANT MOUN$_SHAD UNSTABLE = 75047565 DECLARE LONG CONSTANT MOUN$_INCONPOOL = 75047646 DECLARE LONG CONSTANT MOUN$_DEVBUSYMOU = 75047729 DECLARE LONG CONSTANT MOUN$_DEVBUSYMOUDSA = 75047806 DECLARE LONG CONSTANT MOUN$_DEVBUSYDMT = 75047886 DECLARE LONG CONSTANT MOUN$_DEVBUSYSYS = 75047966 DECLARE LONG CONSTANT MOUN$_DEVBUSYVOL = 75048046 DECLARE LONG CONSTANT MOUN$_DEVBUSYORB = 75048129 DECLARE LONG CONSTANT MOUN$_DEVBUSYINVMOS = 75048208 DECLARE LONG CONSTANT MO UN$_DEVBUSYINSET = 75048285 DECLARE LONG CONSTANT MOUN$_NOTALLMEM = 75048365 DECLARE LONG CONSTANT MOUN$_BADPOLICY = 75048446 DECLARE LONG CONSTANT MOUN$_POLICYFAIL = 7504852M ! *********************************************************************** ! L ! ADD NEW FATAL STATUS MESSAGES HERE. THERE IS ROOM FOR 388 MORE CODES. ! M ! *********************************************************************** !  ! WARNING MESSAGES ! 5 DECLARE LONG CONSTANT MOUN$_HOMBLKBAD = 75079685 DECLARE LONG CONSTANT MOUN$_IDXHDRBAD = 75079765 DECLARE LONG CONSTANT MOUN$_MAPHDRBAD = 75079845 DECLARE LONG CONSTANT MOUN$_IDXMAPERR = 75079925 DECLARE LONG CONSTANT MOUN$_BITMAPERR = 75080005 DECLARE LONG CONSTANT MOUN$_BADHOMBLK = 75080085 DECLARE LONG CONSTANT MOUN$_WRTHOMBLK = 75080165 DECLARE LONG CONSTANT MOUN$_QUOTAFAIL = 75080245 DECLARE LONG CONSTANT MOUN$_BITMAPINV = 75080324 DECLARE LO NG CONSTANT MOUN$_WRITESCB = 75080404 DECLARE LONG CONSTANT MOUN$_DISMPART = 75080482 DECLARE LONG CONSTANT MOUN$_UNUSED = 75080565 DECLARE LONG CONSTANT MOUN$_DISMOUNTD = 75080646 DECLARE LONG CONSTANT MOUN$_VOLSHDWMEM = 75080726 DECLARE LONG CONSTANT MOUN$_RMTMNTFAIL = 75080806 DECLARE LONG CONSTANT MOUN$_MNTCLUFAIL = 75080884 DECLARE LONG CONSTANT MOUN$_QUOTAFNF = 75080967 DECLARE LONG CONSTANT MOUN$_CBSNOTSUPTD = 75081049 DECLARE LONG CONSTAN T MOUN$_CRELNM_FAILED = 75081126 DECLARE LONG CONSTANT MOUN$_DENIGNORED = 75081204 DECLARE LONG CONSTANT MOUN$_ALHOMERR = 75081284 DECLARE LONG CONSTANT MOUN$_ALHOMINV = 75081367 DECLARE LONG CONSTANT MOUN$_INCONSTRUCT = 75081444 DECLARE LONG CONSTANT MOUN$_INCONSET = 75081527 DECLARE LONG CONSTANT MOUN$_OLDSHDRIVER = 75081606 DECLARE LONG CONSTANT MOUN$_POLICYWARN = 75081685 DECLARE LONG CONSTANT MOUN$_INCONSIZE = 7508176 !  ! INFORMATION AL MESSAGES ! 3 DECLARE LONG CONSTANT MOUN$_MOUNTED = 75120674 DECLARE LONG CONSTANT MOUN$_VOLIDENT = 75120755 DECLARE LONG CONSTANT MOUN$_WRITELOCK = 75120833 DECLARE LONG CONSTANT MOUN$_REBUILD = 75120912 DECLARE LONG CONSTANT MOUN$_OPRQST = 75120993 DECLARE LONG CONSTANT MOUN$_OPREPLY = 75121075 DECLARE LONG CONSTANT MOUN$_OPRQSTCAN = 75121151 DECLARE LONG CONSTANT MOUN$_NOOPR = 75121235 DECLARE LONG CONSTANT MOUN$_INVLDRESP = 751213 14 DECLARE LONG CONSTANT MOUN$_MOUNTDEV = 75121393 DECLARE LONG CONSTANT MOUN$_VOLNAME = 75121474 DECLARE LONG CONSTANT MOUN$_NODEVAVL = 75121556 DECLARE LONG CONSTANT MOUN$_RPLYARRIVD = 75121634 DECLARE LONG CONSTANT MOUN$_WRONGVOL = 75121713 DECLARE LONG CONSTANT MOUN$_RQSTDON = 75121795 DECLARE LONG CONSTANT MOUN$_VOLSTATUS = 75121875 DECLARE LONG CONSTANT MOUN$_VOLSETSTS = 75121954 DECLARE LONG CONSTANT MOUN$_REDCACHE = 75122035 DECL ARE LONG CONSTANT MOUN$_REBLDREQD = 75122117 DECLARE LONG CONSTANT MOUN$_SHDWMEMSUCC = 75122197 DECLARE LONG CONSTANT MOUN$_SHDWMEMCOPY = 75122277 DECLARE LONG CONSTANT MOUN$_SHDWMEMFAIL = 7512235L DECLARE LONG CONSTANT MOUN$_MOUNT = 7512243 ! MAXIMUM = 8 CHARACTERS6 DECLARE LONG CONSTANT MOUN$_WAITINGMNT = 75122516 DECLARE LONG CONSTANT MOUN$_RMTMNTSUCC = 75122597 DECLARE LONG CONSTANT MOUN$_SHDWMEMERGE = 75122677 DECLARE LONG CONSTANT MOUN$_AUTO MEMSUCC = 75122757 DECLARE LONG CONSTANT MOUN$_AUTOMEMCOPY = 75122837 DECLARE LONG CONSTANT MOUN$_AUTOMEMERGE = 75122914 DECLARE LONG CONSTANT MOUN$_MOUNTVOL = 75122996 DECLARE LONG CONSTANT MOUN$_ANYSCRATCH = 75123076 DECLARE LONG CONSTANT MOUN$_SCRATCHCOL = 75123156 DECLARE LONG CONSTANT MOUN$_SCRATCHLOC = 75123235 DECLARE LONG CONSTANT MOUN$_SCRCOLLOC = 75123313 DECLARE LONG CONSTANT MOUN$_SUITDEV = 75123393 DECLARE LONG CONSTANT MOUN$_DEVT YPE = 75123472 DECLARE LONG CONSTANT MOUN$_DEVICE = 75123555 DECLARE LONG CONSTANT MOUN$_MEDIANAME = 75123635 DECLARE LONG CONSTANT MOUN$_CARTRIDGE = 75123714 DECLARE LONG CONSTANT MOUN$_CARTSIDE = 75123795 DECLARE LONG CONSTANT MOUN$_CDROM_ISO = 75123874 DECLARE LONG CONSTANT MOUN$_CDROM_HS = 75123956 DECLARE LONG CONSTANT MOUN$_WAITDEVRDY = 75124033 DECLARE LONG CONSTANT MOUN$_NOTODS2 = 75124115 DECLARE LONG CONSTANT MOUN$_SRCMBRADD = 751241 96 DECLARE LONG CONSTANT MOUN$_ISACPYTRGT = 75124272 DECLARE LONG CONSTANT MOUN$_ISAMBR = 75124354 DECLARE LONG CONSTANT MOUN$_DOSETVOL = 75124435 DECLARE LONG CONSTANT MOUN$_RETSTATUS = 7512451 ! J ! MORE FATAL MESSAGES (DO NOT ADD MORE MESSAGES TO THIS SECTION UNTIL) ! THE BLOCK ABOVE HAS BEEN USED UP.) ! 5 DECLARE LONG CONSTANT MOUN$_INVQUAVAL = 75158763 DECLARE LONG CONSTANT MOUN$_DEVNOFE = 75158848 DECLARE LONG CONSTANT MOUN$_VOLSETALRMNT = 7515892 ww  PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:43.30 ! 4 DECLARE LONG CONSTANT REBUILD$_FACILITY = 18146 DECLARE LONG CONSTANT RBLD$_NODEVICE = 118915082 4 DECLARE LONG CONSTANT RBLD$_ADDERR = 1189150907 DECLARE LONG CONSTANT RBLD$_MODIFYERR = 1189150985 DECLARE LONG CONSTANT RBLD$_CLOSERR = 1189151065 DECLARE LONG CONSTANT RBLD$_LOCKERR = 1189151147 DECLARE LONG CONSTANT RBLD$_UNLOCKERR = 1189151225 DECLARE LONG CONSTANT RBLD$_MAXVOLS = 1189151307 DECLARE LONG CONSTANT RBLD$_ACCINDEXF = 1189151387 DECLARE LONG CONSTANT RBLD$_ACCBITMAP = 1189151466 DECLARE LONG CONSTANT RBLD$_ACCQFILE = 11891 51547 DECLARE LONG CONSTANT RBLD$_QUOTARERR = 1189151627 DECLARE LONG CONSTANT RBLD$_BITMAPERR = 1189151705 DECLARE LONG CONSTANT RBLD$_READSCB = 1189151786 DECLARE LONG CONSTANT RBLD$_WRITESCB = 1189151866 DECLARE LONG CONSTANT RBLD$_WRTIBMAP = 1189151947 DECLARE LONG CONSTANT RBLD$_WRTBITMAP = 1189152026 DECLARE LONG CONSTANT RBLD$_MEMALLOC = 1189152107 DECLARE LONG CONSTANT RBLD$_HOMEBLOCK = 1189152187 DECLARE LONG CONSTANT RBLD$_SYSHEADER = 1189152264 DECLARE LONG CONSTANT RBLD$_ERRORS = 1189152345 DECLARE LONG CONSTANT RBLD$_SHADSCB = 1189152425 DECLARE LONG CONSTANT RBLD$_DUALLOC = 1189152487 DECLARE LONG CONSTANT RBLD$_HEADERERR = 1189152566 DECLARE LONG CONSTANT RBLD$_WRITEHDR = 1189152647 DECLARE LONG CONSTANT RBLD$_ERASEBLKS = 118915272; DECLARE LONG CONSTANT RBLD$_VOLNOTPRESENT = 1189152809 DECLARE LONG CONSTANT RBLD$_INVBACKLINK = 1189152889 DECLARE LONG CONSTANT RBLD$_NOREBLDREQD = 1189152997 DECLARE LONG CONSTANT RBLD$_REBLDREQD = 1189153077 DECLARE LONG CONSTANT RBLD$_REBLDDONE = 118915313ww]PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY  * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! *************************************************************************** ! MTH$ACOS ! 2 ! Arc Cosine of Angle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians$ ! routine returns that angle ! (in radians). ! * EXTERNAL SINGLE FUNCTION mth$acos & ( &# SINGLE BY REF & ) ! MTH$DACOS ! 2 ! Arc Cosine of Angle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians$ ! routine returns that angle ! (in radians).1 ! + EXTERNAL DOUBLE FUNCTION mth$dacos & ( &# DOUBLE BY REF & ) ! MTH$GACOS ! 2 ! Arc Cosine of Angle Expressed in Radians ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Radians$ ! routine returns that angle ! (in radians). ! + EXTERNAL GFLOAT FUNCTION mth$gacos & ( &# GFLOAT BY REF & ) ! MTH$ACOSD ! 2 ! Arc Cosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$acosd & ( &# SINGLE BY REF & ) ! MTH$DACOSD ! 2 ! Arc Cosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). 1 ! , EXTERNAL DOUBLE FUNCTION mth$dacosd & ( &#  DOUBLE BY REF & ) ! MTH$GACOSD ! 2 ! Arc Cosine of Angle Expressed in Degrees ! T ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in Degrees ! routine returns that ! angle (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gacosd & ( &# GFLOAT BY REF & ) ! MTH$ASIN !  ! Arc Sine in Radians ! = !  Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that angle ! (in radians). ! * EXTERNAL SINGLE FUNCTION mth$asin & ( &# SINGLE BY REF & ) ! MTH$DASIN !  ! Arc Sine in Radians ! = ! Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that angle ! (in radians).1 !  + EXTERNAL DOUBLE FUNCTION mth$dasin & ( &# DOUBLE BY REF & ) ! MTH$GASIN& !  ! Arc Sine in Radians ! = ! Given the sine of an angle, the Arc Sine in Radians$ ! routine returns that angle ! (in radians). ! + EXTERNAL GFLOAT FUNCTION mth$gasin & ( &# GFLOAT BY REF & ) ! MTH$ASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees$ ! routine returns that angle ! (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$asind & ( &# SINGLE BY REF & ) ! MTH$DASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees$ ! routine returns that angle ! (in degrees).1 ! , EXTERNAL DOUBLE FUNCTION mth$dasind & ( &# DOUBLE BY REF & ) ! MTH$GASIND !  ! Arc Sine in Degrees ! = ! Given the sine of an angle, the Arc Sine in Degrees$ ! routine returns that angle ! (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gasind & ( &# G FLOAT BY REF & ) ! MTH$ATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tangent in Radians2 ! routine returns that angle (in radians). ! * EXTERNAL SINGLE FUNCTION mth$atan & ( &# SINGLE BY REF & ) ! MTH$DATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tangent i!n Radians3 ! routine returns that angle (in radians). 1 ! + EXTERNAL DOUBLE FUNCTION mth$datan & ( &# DOUBLE BY REF & ) ! MTH$GATAN ! ! Arc Tangent in Radians ! C ! Given the tangent of an angle, the Arc Tangent in Radians3 ! routine returns that angle (in radians). 1 ! + EXTE"RNAL GFLOAT FUNCTION mth$gatan & ( &# GFLOAT BY REF & ) ! MTH$ATAN2 ! 3 ! Arc Tangent in Radians with Two Arguments ! 5 ! Given cosine and cosine, the Arc Tangent in$ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. ! + EXTERNAL SINGLE FUNCTION mth$atan#2 & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DATAN2 ! 3 ! Arc Tangent in Radians with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cosine. 1 ! $ , EXTERNAL DOUBLE FUNCTION mth$datan2 & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GATAN2 ! 3 ! Arc Tangent in Radians with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Radians with Two Arguments0 ! routine returns the angle (in radians)F ! whose tangent is given by the quotient of cosine and cosine, ! cosine/cos%ine. ! , EXTERNAL GFLOAT FUNCTION mth$gatan2 & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$ATAND ! ! Arc Tangent in Degrees ! C ! Given the tangent of an angle, the Arc Tangent in Degrees2 ! routine returns that angle (in degrees). ! + EXTERNAL SINGLE FUNCTION mth$atand & ( &# SINGLE BY REF & & ) ! MTH$DATAND ! ! Arc Tangent in Degrees ! C ! Given the tangent of an angle, the Arc Tangent in Degrees3 ! routine returns that angle (in degrees). 1 ! , EXTERNAL DOUBLE FUNCTION mth$datand & ( &# DOUBLE BY REF & ) ! MTH$GATAND ! ! Arc Tangent in Degrees ! C ! Given the tangent of an angl'e, the Arc Tangent in Degrees3 ! routine returns that angle (in degrees). ! , EXTERNAL GFLOAT FUNCTION mth$gatand & ( &# GFLOAT BY REF & ) ! MTH$ATANH ! ! Hyperbolic Arc Tangent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 ! the hyperbolic arc tangent of that angle. ! + EXTERNAL SINGLE FUNCTION (mth$atanh & ( &# SINGLE BY REF & ) ! MTH$DATANH ! ! Hyperbolic Arc Tangent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 ! the hyperbolic arc tangent of that angle.1 ! , EXTERNAL DOUBLE FUNCTION mth$datanh & ( &# DOUBLE BY REF & )) ! MTH$GATANH ! ! Hyperbolic Arc Tangent ! N ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc Tangent ! routine returns3 ! the hyperbolic arc tangent of that angle. ! , EXTERNAL GFLOAT FUNCTION mth$gatanh & ( &# GFLOAT BY REF & ) ! MTH$ATAND2 ! 3 ! Arc Tangent in Degrees with Two Arguments ! 5 ! Given cosine and cos*ine, the Arc Tangent in$ ! Degrees with Two Arguments ! routine returns. ! the angle (in degrees) whose tangent8 ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! , EXTERNAL SINGLE FUNCTION mth$atand2 & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DATAND2 ! 3 ! Arc Tangent in Degrees with Two Arguments ! 6 ! + Given cosine and cosine, the Arc Tangent in $ ! Degrees with Two Arguments ! routine returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine.1 ! - EXTERNAL DOUBLE FUNCTION mth$datand2 & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GATAND2 ! 3 ! , Arc Tangent in Degrees with Two Arguments ! 6 ! Given cosine and cosine, the Arc Tangent in $ ! Degrees with Two Arguments ! routine returns . ! the angle (in degrees) whose tangent9 ! is given by the quotient of cosine and cosine,  ! cosine/cosine. ! - EXTERNAL GFLOAT FUNCTION mth$gatand2 & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! BLAS1$VI-SAMAX ! B ! Obtain the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value routines find the index of the J ! first occurrence of a vector element having the maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$visamax & ( &" LONG BY REF, &) SINGLE DI.M() BY REF, &! LONG BY REF & ) ! BLAS1$VIDAMAX ! B ! Obtain the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value routines find the index of the J ! first occurrence of a vector element having the maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$vidamax /& ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VIGAMAX ! B ! Obtain the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value routines find the index of the J ! first occurrence of a vector element having the 0maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$vigamax & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VICAMAX ! B ! Obtain the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value rou1tines find the index of the J ! first occurrence of a vector element having the maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$vicamax & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VIZAMAX ! B ! Obtain the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! 2 The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value routines find the index of the J ! first occurrence of a vector element having the maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$vizamax & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VIWAMAX ! B ! Obta 3in the Index of the First Element of a Vector Having$ ! the Largest Absolute Value ! I ! The Otain the Index of the First Element of a Vector Having the@ ! Largest Absolute Value routines find the index of the J ! first occurrence of a vector element having the maximum absolute ! value. ! - EXTERNAL LONG FUNCTION blas1$viwamax & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, 4&! LONG BY REF & ) ! BLAS1$VSASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the elements of! ! the x-element vector x. ! . EXTERNAL SINGLE FUNCTION blas1$vsasum & ( &" LONG BY REF, &) S5INGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the elements of! ! the x-element vector x. ! . EXTERNAL DOUBLE FUNCTION blas1$vdasum & ( &" LONG BY REF, &)6 DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the elements of! ! the x-element vector x. ! . EXTERNAL GFLOAT FUNCTION blas1$vgasum & ( &" 7 LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSCASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the elements of! ! the x-element vector x. ! A EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vscasu8m & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDZASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the elements of! ! the x-element vector x. ! A 9 EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vdzasum & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGWASUM ! K ! Obtain the Sum of the Absolute Values of the Elements of a Vector ! O ! The Obtain the Sum of the Absolute Values of the Elements of a VectorN ! routines determine the sum of the absolute values of the: elements of! ! the x-element vector x. ! A EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vgwasum & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSAXPY ! 8 ! Multiply a Vector by a Scalar and Add a Vector ! M ! The Multiply a Vector by a Scalar and Add a Vector routines computeJ ! n, where n is a scal;ar number and n and n are n-element vectors. ! " EXTERNAL SUB blas1$vsaxpy & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDAXPY ! 8 ! Multiply a Vector by a Scalar and Add a Vector ! M ! The Multiply a Vector by a Sca<lar and Add a Vector routines computeJ ! n, where n is a scalar number and n and n are n-element vectors. ! " EXTERNAL SUB blas1$vdaxpy & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGAXPY ! 8 ! Multiply a Vector by a Sca=lar and Add a Vector ! M ! The Multiply a Vector by a Scalar and Add a Vector routines computeJ ! n, where n is a scalar number and n and n are n-element vectors. ! " EXTERNAL SUB blas1$vgaxpy & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) > ! BLAS1$VCAXPY ! 8 ! Multiply a Vector by a Scalar and Add a Vector ! M ! The Multiply a Vector by a Scalar and Add a Vector routines computeJ ! n, where n is a scalar number and n and n are n-element vectors. ! " EXTERNAL SUB blas1$vcaxpy & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG B?Y REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZAXPY ! 8 ! Multiply a Vector by a Scalar and Add a Vector ! M ! The Multiply a Vector by a Scalar and Add a Vector routines computeJ ! n, where n is a scalar number and n and n are n-element vectors. ! " EXTERNAL SUB blas1$vzaxpy & ( &" LONG BY REF, &; BASIC$D @_FLOATING_COMPLEX DIM() BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VWAXPY ! 8 ! Multiply a Vector by a Scalar and Add a Vector ! M ! The Multiply a Vector by a Scalar and Add a Vector routines computeJ ! n, where n is a scalar number and n and n are n-element vectors. A ! " EXTERNAL SUB blas1$vwaxpy & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSCOPY !  ! Copy a Vector ! ; ! The Copy a Vector routines copy n elements of the# B! vector x to the vector y. ! " EXTERNAL SUB blas1$vscopy & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDCOPY !  ! Copy a Vector ! ; ! The Copy a Vector routines copy n elements of the# ! vector x to the vector y. ! " EXTERNAL SUB Cblas1$vdcopy & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VCCOPY !  ! Copy a Vector ! ; ! The Copy a Vector routines copy n elements of the# ! vector x to the vector y. ! " EXTERNAL SUB blas1$vccopy & ( &" LONG BDY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZCOPY !  ! Copy a Vector ! ; ! The Copy a Vector routines copy n elements of the# ! vector x to the vector y. ! " EXTERNAL SUB blas1$vzcopy & ( &" LONG BY REF, &; E BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSDOT ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! - EXTERNAL SINGLE FUNCTION blas1$vsdot & (F &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDDOT ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! - EXTERNAL DOUBLE FUNCTION blas1$vddot G& ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGDOT ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! - EXTERNAL GFLOAT FUHNCTION blas1$vgdot & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VCDOTU ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! @ I EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vcdotu & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VCDOTC ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return tJhe dot product of two y-element vectors, ! x and y ! @ EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vcdotc & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZDOTU ! 1 ! Obtain the Inner Product of Two Vectors ! > ! K The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! @ EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vzdotu & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZDOTC L ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! @ EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vzdotc & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! M LONG BY REF & ) ! BLAS1$VWDOTU ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! @ EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vwdotu & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &" LONG BY RENF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VWDOTC ! 1 ! Obtain the Inner Product of Two Vectors ! > ! The Obtain the Inner Product of Two Vectors routines: ! return the dot product of two y-element vectors, ! x and y ! @ EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vwdotc & ( &" LONG BY REF, &; O BASIC$G_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSNRM2 ! / ! Obtain the Euclidean Norm of a Vector ! H ! The Obtain the Ecudlicean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! . EXTERNAL SINGLE FUNCTION blas1$vsnrm2 & ( &" P LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDNRM2 ! / ! Obtain the Euclidean Norm of a Vector ! H ! The Obtain the Ecudlicean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! . EXTERNAL DOUBLE FUNCTION blas1$vdnrm2 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &! Q LONG BY REF & ) ! BLAS1$VGNRM2 ! / ! Obtain the Euclidean Norm of a Vector ! H ! The Obtain the Ecudlicean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! . EXTERNAL GFLOAT FUNCTION blas1$vgnrm2 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSCNRM2 ! / ! RObtain the Euclidean Norm of a Vector ! H ! The Obtain the Ecudlicean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! A EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION blas1$vscnrm2 & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDZNRM2 ! / ! Obtain the Euclidean Norm of a VectorS ! H ! The Obtain the Ecudlicean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! A EXTERNAL BASIC$D_FLOATING_COMPLEX FUNCTION blas1$vdznrm2 & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGWNRM2 ! / ! Obtain the Euclidean Norm of a Vector ! H ! The Obtain the EcudlicTean Norm of a Vector routines obtain the2 ! Euclidean norm of an n-element vector x. ! A EXTERNAL BASIC$G_FLOATING_COMPLEX FUNCTION blas1$vgwnrm2 & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VSROT ! ' ! Apply a Givens Plane Rotation ! I ! The Apply a Givens Plane Rotation routines apply a Givens plane: ! U rotation to a pair of n-element vectors x and y. ! ! EXTERNAL SUB blas1$vsrot & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &$ SINGLE BY REF, &# SINGLE BY REF & ) ! BLAS1$VDROT ! ' ! Apply a Givens Plane Rotation ! I ! The ApVply a Givens Plane Rotation routines apply a Givens plane: ! rotation to a pair of n-element vectors x and y. ! ! EXTERNAL SUB blas1$vdrot & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! BLAS1$VGROT ! 'W ! Apply a Givens Plane Rotation ! I ! The Apply a Givens Plane Rotation routines apply a Givens plane: ! rotation to a pair of n-element vectors x and y. ! ! EXTERNAL SUB blas1$vgrot & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &$ GFLOAT BY REF, &# GFLXOAT BY REF & ) ! BLAS1$VCSROT ! ' ! Apply a Givens Plane Rotation ! I ! The Apply a Givens Plane Rotation routines apply a Givens plane: ! rotation to a pair of n-element vectors x and y. ! " EXTERNAL SUB blas1$vcsrot & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REFY, &" LONG BY REF, &6 BASIC$F_FLOATING_COMPLEX BY REF, &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! BLAS1$VZDROT ! ' ! Apply a Givens Plane Rotation ! I ! The Apply a Givens Plane Rotation routines apply a Givens plane: ! rotation to a pair of n-element vectors x and y. ! " EXTERNAL SUB blas1$vzdrot & ( &" LONG BY REF, &; Z BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! BLAS1$VWGROT ! ' ! Apply a Givens Plane Rotation ! I ! The Apply a Givens Plane Rotation routines apply a Givens plane: ! rotation to a pair of n-elem[ent vectors x and y. ! " EXTERNAL SUB blas1$vwgrot & ( &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$G_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! BLAS1$VSROTG ! ; ! Generate the Ele\ments for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EXTERNAL SUB blas1$vsrotg & ( &$ SINGLE BY REF, &$ SINGLE BY REF, &$ SINGLE BY REF, &# SINGLE BY REF & ) ! BLAS1$VDROTG ! ; ]! Generate the Elements for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EXTERNAL SUB blas1$vdrotg & ( &$ DOUBLE BY REF, &$ DOUBLE BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! BLAS^1$VGROTG ! ; ! Generate the Elements for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EXTERNAL SUB blas1$vgrotg & ( &$ GFLOAT BY REF, &$ GFLOAT BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & _ ) ! BLAS1$VCROTG ! ; ! Generate the Elements for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EXTERNAL SUB blas1$vcrotg & ( &6 BASIC$F_FLOATING_COMPLEX BY REF, &6 BASIC$F_FLOATING_COMPLEX BY REF, &6 BASIC$F_F`LOATING_COMPLEX BY REF, &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! BLAS1$VZROTG ! ; ! Generate the Elements for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EXTERNAL SUB blas1$vzrotg & ( &6 BASIC$D_FLOATING_COMPLEX BaY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! BLAS1$VWROTG ! ; ! Generate the Elements for a Givens Plane Rotation ! ? ! The Generate the Elements for a Givens Plane RotationO ! routines construct a Givens plane rotation that eliminates the second* ! element of a two-element vector. ! " EX bTERNAL SUB blas1$vwrotg & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &6 BASIC$G_FLOATING_COMPLEX BY REF, &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! BLAS1$VSSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vectocr. ! " EXTERNAL SUB blas1$vsscal & ( &" LONG BY REF, &$ SINGLE BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VDSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! " EXTERNAL SUB blas1$vdscal & d ( &" LONG BY REF, &$ DOUBLE BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VGSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! " EXTERNAL SUB blas1$vgscal & ( &" LONG BY REF,e &$ GFLOAT BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VCSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! " EXTERNAL SUB blas1$vcscal & ( &" LONG BY REF, &6 BASIC$F_FLOATING_COMPLEX BfY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VCSSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! # EXTERNAL SUB blas1$vcsscal & ( &" LONG BY REF, &6 BASIC$F_FLOATING_COMPLEX BY REF, &;g BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! " EXTERNAL SUB blas1$vzscal & ( &" LONG BY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &; h BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VWSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! " EXTERNAL SUB blas1$vwscal & ( &" LONG BY REF, &6 BASIC$G_FLOATING_COMPLEX BY REF, &; BASIC$G_FiLOATING_COMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VZDSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! # EXTERNAL SUB blas1$vzdscal & ( &" LONG BY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &; BASIC$D_FLOATING_COjMPLEX DIM() BY REF, &! LONG BY REF & ) ! BLAS1$VWGSCAL ! ( ! Scale the Elements of a Vector ! = ! The Scale the Elements of a Vector routines computeH ! a * x where a is a scalar number and x is an n-element vector. ! # EXTERNAL SUB blas1$vwgscal & ( &" LONG BY REF, &6 BASIC$D_FLOATING_COMPLEX BY REF, &; BASIC$D_FLOATING_COMPLEX DIM(k) BY REF, &! LONG BY REF & ) ! BLAS1$VSSWAP ! * ! Swap the Elements of Two Vectors ! ? ! The Swap the Elements of Two Vectors routines swap n 5 ! elements of the vector x with the vector y. ! " EXTERNAL SUB blas1$vsswap & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! l LONG BY REF & ) ! BLAS1$VDSWAP ! * ! Swap the Elements of Two Vectors ! ? ! The Swap the Elements of Two Vectors routines swap n 5 ! elements of the vector x with the vector y. ! " EXTERNAL SUB blas1$vdswap & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REmF & ) ! BLAS1$VCSWAP ! * ! Swap the Elements of Two Vectors ! ? ! The Swap the Elements of Two Vectors routines swap n 5 ! elements of the vector x with the vector y. ! " EXTERNAL SUB blas1$vcswap & ( &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$F_FLOATING_COMPLEX DIM() BY REF, &! n LONG BY REF & ) ! BLAS1$VZSWAP ! * ! Swap the Elements of Two Vectors ! ? ! The Swap the Elements of Two Vectors routines swap n 5 ! elements of the vector x with the vector y. ! " EXTERNAL SUB blas1$vzswap & ( &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &" LONG BY REF, &; BASIC$D_FLOATING_COMPLEX DIM() BY REF, &! o LONG BY REF & ) ! MTH$CABS ! ! Complex Absolute Value ! , ! The Complex Absolute Value routine? ! returns the absolute value of a complex number (r,i). ! * EXTERNAL SINGLE FUNCTION mth$cabs & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CDABS ! ! Complex Absolute Value ! , ! The Complex Absolute Valpue routine? ! returns the absolute value of a complex number (r,i).1 ! + EXTERNAL DOUBLE FUNCTION mth$cdabs & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGABS ! ! Complex Absolute Value ! , ! The Complex Absolute Value routine? ! returns the absolute value of a complex number (r,i).1 ! q + EXTERNAL GFLOAT FUNCTION mth$cgabs & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CCOS ! 7 ! Cosine of a Complex Number (F-floating Value) ! ; ! The Cosine of a Complex Number (F-floating Value)> ! routine returns the cosine of a complex number as an ! F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$ccos & ( &5 r BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CEXP ! 0 ! Complex Exponential (F-floating Value) ! 4 ! The Complex Exponential (F-floating Value)6 ! routine returns the complex exponential of a0 ! complex number as an F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cexp & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CLsOG ! 6 ! Complex Natural Logarithm (F-floating Value) ! : ! The Complex Natural Logarithm (F-floating Value)N ! routine returns the complex natural logarithm of a complex number as ! an F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$clog & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CMPLX ! 3 ! Complex Number Made from F-floating-Potint ! 7 ! The Complex Number Made from F-floating-PointP ! routine returns a complex number from two floating-point input values. ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$cmplx & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DCMPLX ! 9 ! Complex Number Made from D- or G-floating-Point ! & ! The Complex Number Made from ! D-u or G-floating-PointR ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$dcmplx & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GCMPLX ! 9 ! Complex Number Made from D- or G-floating-Point ! ' ! The Complex Number Made from ! D- or G-floating-PointS v ! routine returns a complex number from two D- or G-floating input values. ! EXTERNAL SUB mth$gcmplx & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$CONJG ! : ! Conjugate of a Complex Number (F-floating Value) ! 7 ! The Conjugate of a Complex Number (F-floating ! Value)J ! routine returnws the complex conjugate (r,-i) of a complex number' ! (r,i) as an F-floating value. ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$conjg & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DCONJG ! ' ! Conjugate of a Complex Number ! + ! The Conjugate of a Complex NumberQ ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNxAL SUB mth$dconjg & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GCONJG ! ' ! Conjugate of a Complex Number ! + ! The Conjugate of a Complex NumberR ! routine returns the complex conjugate (r,-i) of a complex number (r,i). ! EXTERNAL SUB mth$gconjg & ( &6 BASIC$G_FLOATING_COMPLEX BY REyF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$COS ! . ! Cosine of Angle Expressed in Radians ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$cos & ( &# SINGLE BY REF & ) ! MTH$DCOS ! . ! Cosine of Angle Expressed in Radians z ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given angle (in radians).1 ! * EXTERNAL DOUBLE FUNCTION mth$dcos & ( &# DOUBLE BY REF & ) ! MTH$GCOS ! . ! Cosine of Angle Expressed in Radians ! 2 ! The Cosine of Angle Expressed in RadiansC ! routine returns the cosine of a given angle (i{n radians). ! * EXTERNAL GFLOAT FUNCTION mth$gcos & ( &# GFLOAT BY REF & ) ! MTH$COSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expressed in DegreesC ! routine returns the cosine of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$cosd & ( &# SINGLE BY REF & ) ! MTH$|DCOSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expressed in DegreesC ! routine returns the cosine of a given angle (in degrees).1 ! + EXTERNAL DOUBLE FUNCTION mth$dcosd & ( &# DOUBLE BY REF & ) ! MTH$GCOSD ! . ! Cosine of Angle Expressed in Degrees ! 2 ! The Cosine of Angle Expres}sed in DegreesC ! routine returns the cosine of a given angle (in degrees). ! + EXTERNAL GFLOAT FUNCTION mth$gcosd & ( &# GFLOAT BY REF & ) ! MTH$COSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine2 ! routine returns the hyperbolic cosine of ! the input value. ! * EXTERNAL SINGLE FUNCTION mth$cosh & ( &# SIN~GLE BY REF & ) ! MTH$DCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of  ! the input value.1 ! + EXTERNAL DOUBLE FUNCTION mth$dcosh & ( &# DOUBLE BY REF & ) ! MTH$GCOSH !  ! Hyperbolic Cosine !  ! The Hyperbolic Cosine3 ! routine returns the hyperbolic cosine of  ! the input value. ! + EXTERNAL GFLOAT FUNCTION mth$gcosh & ( &# GFLOAT BY REF & ) ! MTH$CSIN ! 5 ! Sine of a Complex Number (F-floating Value) ! 2 ! The Sine of a Complex Number (F-floating ! Value)B ! routine returns the sine of a complex number (r,i) as an ! F-floating value. ! < EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csin & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$CSQRT ! 0 ! Complex Square Root (F-floating Value) ! < ! The Complex Square Root (F-floating Value) routineD ! returns the complex square root of a complex number (r,i). ! = EXTERNAL BASIC$F_FLOATING_COMPLEX FUNCTION mth$csqrt & ( &5 BASIC$F_FLOAT ING_COMPLEX BY REF & ) ! MTH$CVT_D_G ! , ! Convert One Double-Precision Value ! 9 ! The Convert One Double-Precision Value routines3 ! convert one double-precision value to theJ ! destination data type and return the result as a function value.C ! MTH$CVT_D_G converts a D-floating value to G-floating andH ! MTH$CVT_G_D converts a G-floating value to a D-floating value. ! - EXTERNAL GFLOAT FU NCTION mth$cvt_d_g & ( &# DOUBLE BY REF & ) ! MTH$CVT_G_D ! , ! Convert One Double-Precision Value ! 9 ! The Convert One Double-Precision Value routines3 ! convert one double-precision value to theK ! destination data type and return the result as a function value. C ! MTH$CVT_D_G converts a D_floating value to G_floating andI ! MTH$CVT_G_D converts a G_floating value to a D_floating value. ! - EXTERNAL DOUBLE FUNCTION mth$cvt_g_d & ( &# GFLOAT BY REF & ) ! MTH$CVT_DA_GA ! 5 ! Convert an Array of Double-Precision Values ! ! ! The Convert an Array of! ! Double-Precision Values0 ! routines convert a contiguous array ofU ! double-precision values to the destination data type and return the resultsQ ! as an array. MTH$CVT_DA_GA converts D-floating values to G-floating andA ! MTH$CVT_GA_DA converts G-floating values to D-floating. ! # EXTERNAL SUB mth$cvt_da_ga & ( &) DOUBLE DIM() BY REF, &) GFLOAT DIM() BY REF, &) OPTIONAL LONG BY REF & ) ! MTH$CVT_GA_DA ! 5 ! Convert an Array of Double-Precision Values ! ! ! The Convert an Array of! ! Double-Pre cision Values0 ! routines convert a contiguous array ofU ! double-precision values to the destination data type and return the resultsQ ! as an array. MTH$CVT_DA_GA converts D_floating values to G_floating andB ! MTH$CVT_GA_DA converts G_floating values to D_floating. ! # EXTERNAL SUB mth$cvt_ga_da & ( &) GFLOAT DIM() BY REF, &) DOUBLE DIM() BY REF, &) OPTIONAL LONG BY REF & ) ! MTH$CDCOS ! $ ! Cosine of a Complex Number ! ) ! The Cosine of a Complex Number 9 ! routine returns the cosine of a complex number. !  EXTERNAL SUB mth$cdcos & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGCOS ! $ ! Cosine of a Complex Number ! ( ! The Cosine of a Complex Number9 ! routine returns the cosine of a complex number. !  EXTERNAL SUB mth$cgcos & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDEXP !  ! Complex Exponential ! ! ! The Complex Exponential6 ! routine returns the complex exponential of a ! complex number. !  EXTERNAL SUB mth$cdexp & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGEXP !  ! Complex Exponential ! ! ! The Complex Exponential6 ! routine returns the complex exponential of a ! complex number. !  EXTERNAL SUB mth$cgexp & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5  BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDLOG ! # ! Complex Natural Logarithm ! ' ! The Complex Natural LogarithmL ! routine returns the complex natural logarithm of a complex number. !  EXTERNAL SUB mth$cdlog & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGLOG ! # ! Complex Natural Logarithm ! ' ! The Complex Natural LogarithmM ! routine returns the complex natural logarithm of a complex number. !  EXTERNAL SUB mth$cglog & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSIN ! " ! Sine of a Complex Number ! & ! The Sine of a Complex Number= ! routine returns the sine of a complex number (r,i). !  EXTERNAL SUB mth$cdsin & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSIN ! ! Sine of Complex Number ! $ ! The Sine of Complex Number= ! routine returns the sine of a complex number (r,i).1 !  EXTERNAL SUB mth$cgsin &  ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$CDSQRT !  ! Complex Square Root ! ) ! The Complex Square Root routineD ! returns the complex square root of a complex number (r,i). ! EXTERNAL SUB mth$cdsqrt & ( &6 BASIC$D_FLOATING_COMPLEX BY REF, &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$CGSQRT !  ! Complex Square Root ! ) ! The Complex Square Root routineE ! returns the complex square root of a complex number (r,i). 1 ! EXTERNAL SUB mth$cgsqrt & ( &6 BASIC$G_FLOATING_COMPLEX BY REF, &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$EXP !  ! Exponential !  ! The Exponential= ! routine returns the exponential of the input value. ! ) EXTERNAL SINGLE FUNCTION mth$exp & ( &# SINGLE BY REF & ) ! MTH$DEXP !  ! Exponential !  ! The Exponential> ! routine returns the exponential of the input value.  ! * EXTERNAL DOUBLE FUNCTION mth$dexp & ( &# DOUBLE  BY REF & ) ! MTH$GEXP !  ! Exponential !  ! The Exponential> ! routine returns the exponential of the input value. ! * EXTERNAL GFLOAT FUNCTION mth$gexp & ( &# GFLOAT BY REF & ) ! MTH$VJFOLRLP_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrenc e --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 2 EXTERNAL LONG FUNCTION mth$vjfolrlp_ma_v5 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &"  LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLP_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored.1 ! 4 EXTERNAL SINGLE FUNCTION mth$vffolrlp_ma_v5 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! MTH$VDFOLRLP_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication a nd Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 4 EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_ma_v5 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLP_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 4 EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_ma_v5 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJFOLRLN_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 2 EXTERNAL LONG FUNCTION mth$vjfolrln_ma_v5 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLN_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 4 EXTERNAL SINGLE FUNCTION mth$vffolrln_ma_v5 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF & ) !  MTH$VDFOLRLN_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored. ! 4 EXTERNAL DOUBLE FUNCTION mth$vdfolrln_ma_v5 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLN_MA_V5 ! V ! First Order Linear Recurrence --- Multiplication and Addition --- Last Value ! O ! The First Order Linear Recurrence --- Multiplication and Addition ---K ! Last Value routines provide a vectorized algorithm for the linearM ! recurrence relation that includes both multiplication and addition > ! operations. Only the last value computed is stored.1 ! 4 EXTERNAL GFLOAT FUNCTION mth$vgfolrln_ma_v5 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &"  LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJFOLRLP_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. ! 1 EXTERNAL LONG FUNCTION mth$vjfolrlp_m_v2 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLP_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K !  Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL SINGLE FUNCTION mth$vffolrlp_m_v2 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF &  ) ! MTH$VDFOLRLP_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. X !  3 EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_m_v2 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLP_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition  ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. ! 3 EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_m_v2 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJ FOLRLN_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 1 EXTERNAL LONG FU NCTION mth$vjfolrln_m_v2 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLN_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. ! 3 EXTERNAL SINGLE FUNCTION mth$vffolrln_m_v2 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! MTH$VDFOLRLN_M_V2 ! U ! First Order Linear Recurrence --- Mu ltiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL DOUBLE FUNCTION mth$vdfolrln_m_v2 & ( &" L ONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLN_M_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a m ultiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL GFLOAT FUNCTION mth$vgfolrln_m_v2 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJFOLRLP_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition - -- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 1 EXTERNAL LONG FUNCTION mth$vjfolrlp_a_v2 & ( &" LONG BY REF, &'  LONG DIM() BY REF, &" LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLP_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. X ! 3 EXTERNAL SINGLE FUNCTION mth$vffolrlp_a_v2 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! MTH$VDFOLRLP_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addi tion --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL DOUBLE FUNCTION mth$vdfolrlp_a_v2 & ( &" LONG BY REF, &)  DOUBLE DIM() BY REF, &" LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLP_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or an F ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL GFLOAT FUNCTION mth$vgfolrlp_a_v2 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJFOLRLN_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 1 EXTERNAL LONG FUNCTION mth$vjfolrln_a_v2 & ( &" LONG BY REF, &' LONG DIM() BY  REF, &" LONG BY REF, &! LONG BY REF & ) ! MTH$VFFOLRLN_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL SINGLE FUNCTION mth$vffolrln_a_v2 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &# SINGLE BY REF & ) ! MTH$VDFOLRLN_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Orde r Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL DOUBLE FUNCTION mth$vdfolrln_a_v2 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &"  LONG BY REF, &# DOUBLE BY REF & ) ! MTH$VGFOLRLN_A_V2 ! U ! First Order Linear Recurrence --- Multiplication or Addition --- Last Value ! N ! The First Order Linear Recurrence --- Multiplication or Addition ---K ! Last Value routines provide a vectorized algorithm for the linearI ! recurrence relation that includes either a multiplication or anF ! addition operation. Only the last value computed is stored. 1 ! 3 EXTERNAL GFLOAT FUNCTION mth$vgfolrln_a_v2 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &# GFLOAT BY REF & ) ! MTH$VJFOLRP_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vjfolrp_ma_v15 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &!  LONG BY REF & ) ! MTH$VFFOLRP_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vffolrp_ma_v15 & ( &"  LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VDFOLRP_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vdfolrp_ma_v15 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF &  ) ! MTH$VGFOLRP_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vgfolrp_ma_v15 & ( &" LONG BY REF, &)  GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! MTH$VJFOLRN_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vjfolrn_ma_v15 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &! LONG BY REF & ) ! MTH$VFFOLRN_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vffolrn_ma_v15 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &"  LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VDFOLRN_MA_V15 ! G ! First Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vdfolrn_ma_v15 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VGFOLRN_MA_V15 ! G ! Firs t Order Linear Recurrence --- Multiplication and Addition ! K ! The First Order Linear Recurrence --- Multiplication and AdditionK ! routines provide a vectorized algorithm for the linear recurrenceB ! relation that includes both multiplication and addition  ! operations. ! ( EXTERNAL SUB mth$vgfolrn_ma_v15 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF,  &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! MTH$VJFOLRP_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vjfolrp_m_v8 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &! LONG BY REF & ) ! MTH$VFFOLRP_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Rec urrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vffolrp_m_v8 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF &  ) ! MTH$VDFOLRP_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vdfolrp_m_v8 & ( &" LONG BY REF, &)  DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VGFOLRP_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vgfolrp_m_v8 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! MTH$VJFOLRN_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recur rence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vjfolrn_m_v8 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &! LONG BY REF & )  ! MTH$VFFOLRN_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vffolrn_m_v8 & ( &" LONG BY REF, &)  SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VDFOLRN_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vdfolrn_m_v8 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VGFOLRN_M_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vgfolrn_m_v8 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & )  ! MTH$VJFOLRP_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vjfolrp_a_v8 & ( &" LONG BY REF, &'  LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &! LONG BY REF & ) ! MTH$VFFOLRP_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vffolrp_a_v8 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VDFOLRP_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vdfolrp_a_v8 & ( &" LONG BY REF, &) DOUBLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) !  MTH$VGFOLRP_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vgfolrp_a_v8 & ( &" LONG BY REF, &)  GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! MTH$VJFOLRN_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vjfolrn_a_v8 & ( &" LONG BY REF, &' LONG DIM() BY REF, &" LONG BY REF, &' LONG DIM() BY REF, &! LONG BY REF & ) ! MTH$VFFOLRN_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vffolrn_a_v8 & ( &" LONG BY REF, &) SINGLE DIM() BY REF, &" LONG BY REF, &) SINGLE DIM() BY REF, &! LONG BY REF & ) ! MT H$VDFOLRN_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vdfolrn_a_v8 & ( &" LONG BY REF, &) DOU BLE DIM() BY REF, &" LONG BY REF, &) DOUBLE DIM() BY REF, &! LONG BY REF & ) ! MTH$VGFOLRN_A_V8 ! F ! First Order Linear Recurrence --- Multiplication or Addition ! J ! The First Order Linear Recurrence --- Multiplication or AdditionK ! routines provide a vectorized algorithm for the linear recurrenceH ! relation that includes either a multiplication or an addition " ! operation, but not both. ! & EXTERNAL SUB mth$vgfolrn_a_v8 & ( &" LONG BY REF, &) GFLOAT DIM() BY REF, &" LONG BY REF, &) GFLOAT DIM() BY REF, &! LONG BY REF & ) ! MTH$HACOS ! E ! Arc Cosine of Angle Expressed in Radians (H-floating Value) ! L ! Given the cosine of an angle, the Arc Cosine of Angle Expressed inO ! Radians (H-floating Value) routine returns that angle (in radians) in% ! H-floating-point precision. !  EXTERNAL SUB mth$hacos & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HACOSD ! E ! Arc Cosine of Angle Expressed in Degrees (H-Floating Value) ! L ! Given the cosine of an angle, the Arc Cosine of Angle Expressed in$ ! Degrees (H-Floating Value) ! routine returns that4 ! angle (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hacosd & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HASIN ! 0 ! Arc Sine in Radians (H-floating Value) ! P ! Given the sine of an angle, the Arc Sine in Radians (H-floating Value)$ ! routine returns that angle. ! (in radians) as an H-floating value. !  EXTERNAL SUB mth$hasin & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HASIND ! 0 ! Arc Sine in Degrees (H-Floating Value) ! P ! Given the sine of an angle, the Arc Sine in Degrees (H-Floating Value)$ ! routine returns that angle. ! (in degrees) as an H-floating value. ! EXTERNAL SUB mth$hasind &  ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HATAN ! 3 ! Arc Tangent in Radians (H-floating Value) ! V ! Given the tangent of an angle, the Arc Tangent in Radians (H-floating Value)1 ! routine returns that angle (in radians)! ! as an H-floating value. !  EXTERNAL SUB mth$hatan & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HATAN2 ! F ! Arc Tangent in Radians (H-floating Value) with Two Arguments ! 5 ! Given cosine and cosine, the Arc Tangent inK ! Radians (H-floating Value) with Two Arguments routine returns theM ! angle (in radians) as an H-floating value whose tangent is given by, ! the quotient of cosine and cosine, ! cosine/cosine. ! EXTERNAL SUB mth$hatan2 & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HATAND ! 3 ! Arc Tangent in Degrees (H-floating Value) ! V ! Given the tangent of an angle, the Arc Tangent in Degrees (H-floating Value)1 ! routine returns that angle (in degrees)' ! as an H-floating point value. ! EXTERNAL SUB mth$hatand & ( &$ HFLOAT  BY REF, &# HFLOAT BY REF & ) ! MTH$HATANH ! 3 ! Hyperbolic Arc Tangent (H-floating Value) ! F ! Given the hyperbolic tangent of an angle, the Hyperbolic Arc ! Tangent  ! line_break ! H-floating value, ! (H-floating Value) routine returns, ! the hyperbolic arc tangent (as an  ! line_break) ! H-floating value of that angle. ! line_break !  EXTERNAL SUB mth$hatanh & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HCOS ! A ! Cosine of Angle Expressed in Radians (H-floating Value) ! 2 ! The Cosine of Angle Expressed in Radians ! (H-floating Value)H ! routine returns the cosine of a given angle (in radians) as an ! H-floating value. !  EXTERNAL SUB mth$hcos & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HCOSD ! A ! Cosine of Angle Expressed in Degrees (H-floating Value) ! 2 ! The Cosine of Angle Expressed in Degrees ! (H-floating Value)H ! routine returns the cosine of a given angle (in degrees) as an ! H-floating value. !  EXTERNAL SUB mth$hcosd & ( &$ HFLOAT BY REF, &#  HFLOAT BY REF & ) ! MTH$HCOSH ! . ! Hyperbolic Cosine (H-floating Value) !  ! The Hyperbolic Cosine2 ! routine returns the hyperbolic cosine of1 ! the input value as an H-floating value. !  EXTERNAL SUB mth$hcosh & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HEXP ! ( ! Exponential (H-floating Value) !  ! The ExponentialM ! routine returns the exponential of the input value as an H-floating ! value. !  EXTERNAL SUB mth$hexp & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HLOG10 ! - ! Common Logarithm (H-floating Value) ! 1 ! The Common Logarithm (H-floating Value); ! routine returns the common (base 10) logarithm of4 ! the input argument as an H-floating value. ! EXTERNAL SUB mth$hlog10 & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HLOG ! . ! Natural Logarithm (H-floating Value) ! 2 ! The Natural Logarithm (H-floating Value); ! routine returns the natural (base e) logarithm of4 ! the input argument as an H-floating value. !  EXTERNAL SUB mth$hlog & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HLOG2 ! - ! Base 2 Logarithm (H-floating Value) ! 1 ! The Base 2 Logarithm (H-floating Value)A ! routine returns the base 2 logarithm of the input valueB ! specified by floating-point-input-value as an H-floating ! value. !  EXTERNAL SUB mth$hlog2 & ( &$  HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HSIN ! ? ! Sine of Angle Expressed in Radians (H-floating Value) ! < ! The Sine of Angle Expressed in Radians (H-floating ! Value)F ! routine returns the sine of a given angle (in radians) as an ! H-floating value. !  EXTERNAL SUB mth$hsin & ( &$ HFLOAT BY REF, &# HFLOAT  BY REF & ) ! MTH$HSIND ! ? ! Sine of Angle Expressed in Degrees (H-floating Value) ! < ! The Sine of Angle Expressed in Degrees (H-floating ! Value)F ! routine returns the sine of a given angle (in degrees) as an ! H-floating value. !  EXTERNAL SUB mth$hsind & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HSINH  ! , ! Hyperbolic Sine (H-floating Value) ! 0 ! The Hyperbolic Sine (H-floating Value): ! routine returns the hyperbolic sine of the input= ! value specified by floating-point-input-value as an ! H-floating value. !  EXTERNAL SUB mth$hsinh & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HSQRT ! ( ! Square Root (H-floating Value) ! , ! The Square Root (H-floating Value)< ! routine returns the square root of the input value< ! floating-point-input-value as an H-floating value. !  EXTERNAL SUB mth$hsqrt & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HTAN ! B ! Tangent of Angle Expressed in Radians (H-floating Value) ! 3 ! The Tangent of Angle Expressed in Radians ! (H-floating Value)I ! routine returns the tangent of a given angle (in radians) as an ! H-floating value. !  EXTERNAL SUB mth$htan & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HTAND ! B ! Tangent of Angle Expressed in Degrees (H-floating Value) ! 3 ! The Tangent of Angle Expressed in Degrees ! (H-floating Value)I !  routine returns the tangent of a given angle (in degrees) as an ! H-floating value. !  EXTERNAL SUB mth$htand & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HTANH ! ; ! Compute the Hyperbolic Tangent (H-floating Value) ! 8 ! The Compute the Hyperbolic Tangent (H-floating ! Value)0 ! routine returns the hyperbolic tangent4 ! of the input value as an H-floating value. !  EXTERNAL SUB mth$htanh & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$HATAND2 ! F ! Arc Tangent in Degrees (H-floating Value) with Two Arguments ! 6 ! Given cosine and cosine, MTH$xHTAND2 returns. ! the angle (in degrees) whose tangent8 ! is given by the quotient of cosine and cosine, ! cosine/cosine. ! ! EXTERNAL SUB mth$hatand2 & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$AIMAG ! , ! Imaginary Part of a Complex Number ! 0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number. ! + EXTERNAL SINGLE FUNCTION mth$aimag & ( &5  BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DIMAG ! , ! Imaginary Part of a Complex Number ! 0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number. ! + EXTERNAL DOUBLE FUNCTION mth$dimag & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GIMAG ! , ! Imaginary Part of a Complex Number !  0 ! The Imaginary Part of a Complex NumberA ! routine returns the imaginary part of a complex number. ! + EXTERNAL GFLOAT FUNCTION mth$gimag & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$ALOG !  ! Natural Logarithm ! Q ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL SINGLE FUNCTION mth$alog & ( &# SINGLE BY REF & ) ! MTH$DLOG !  ! Natural Logarithm ! Q ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL DOUBLE FUNCTION mth$dlog & ( &# DOUBLE BY REF & ) ! MTH$GLOG !  ! Natural Logarithm ! Q ! The Natural Logarithm routine returns the natural (base e) logarithm of ! the input argument. ! * EXTERNAL GFLOAT FUNCTION mth$glog & ( &# GFLOAT BY REF & ) ! MTH$ALOG10 !  ! Common Logarithm ! P ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! , EXTERNAL SINGLE FUNCTION mth$alog10 & ( &#  SINGLE BY REF & ) ! MTH$DLOG10 !  ! Common Logarithm ! P ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! , EXTERNAL DOUBLE FUNCTION mth$dlog10 & ( &# DOUBLE BY REF & ) ! MTH$GLOG10 !  ! Common Logarithm ! P ! The Common Logarithm routine returns the common (base 10) logarithm of ! the input argument. ! , EXTERNAL GFLOAT FUNCTION mth$glog10 & ( &# GFLOAT BY REF & ) ! MTH$ALOG2 !  ! Base 2 Logarithm ! V ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL SINGLE FUNCTION mth$alog2 & ( &# SINGLE BY REF & ) ! MTH$DLOG2 !  ! Base 2 Logarithm ! V ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dlog2 & ( &# DOUBLE BY REF & ) ! MTH$GLOG2 !  ! Base 2 Logarithm ! V ! The Base 2 Logarithm routine returns the base 2 logarithm of the input value2 ! specified by floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$glog2 & ( &# GFLOAT BY REF & ) ! MTH$RANDOM ! 8 ! Random Number Generator, Uniformly Distributed ! < ! The Random Number Generator, Uniformly Distributed7 ! routine is a general random number generator. ! , EXTERNAL SINGLE FUNCTION mth$random &  ( &! LONG BY REF & ) ! MTH$REAL ! ' ! Real Part of a Complex Number ! + ! The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! * EXTERNAL SINGLE FUNCTION mth$real & ( &5 BASIC$F_FLOATING_COMPLEX BY REF & ) ! MTH$DREAL ! ' ! Real Part of a Complex Number ! + !  The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! + EXTERNAL DOUBLE FUNCTION mth$dreal & ( &5 BASIC$D_FLOATING_COMPLEX BY REF & ) ! MTH$GREAL ! ' ! Real Part of a Complex Number ! + ! The Real Part of a Complex Number< ! routine returns the real part of a complex number. ! + EXTERNAL GFLOAT FUNCTION mth$greal & ( &5 BASIC$G_FLOATING_COMPLEX BY REF & ) ! MTH$SIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$sin & ( &# SINGLE BY REF & ) ! MTH$DSIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! * EXTERNAL DOUBLE FUNCTION mth$dsin & ( &# DOUBLE BY REF & ) ! MTH$GSIN ! , ! Sine of Angle Expressed in Radians ! 0 ! The Sine of Angle Expressed in RadiansA ! routine returns the sine of a given angle (in radians). ! * EXTERNAL GFLOAT FUNCTION mth$gsin & ( &# GFLOAT BY REF & ) ! MTH$SIND ! , ! Sine of Angle Expressed in Degrees ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$sind & ( &# SINGLE BY REF & ) ! MTH$DSIND ! , ! Sine of Angle Expressed in Degrees ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! + EXTERNAL DOUBLE FUNCTION mth$dsind & ( &# DOUBLE BY REF & ) ! MTH$GSIND ! , ! Sine of Angle Expressed in Degrees ! 0 ! The Sine of Angle Expressed in DegreesA ! routine returns the sine of a given angle (in degrees). ! +  EXTERNAL GFLOAT FUNCTION mth$gsind & ( &# GFLOAT BY REF & ) ! MTH$SINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input8 ! value specified by floating-point-input-value. ! * EXTERNAL SINGLE FUNCTION mth$sinh & ( &# SINGLE BY REF & ) ! MTH$DSINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input9 ! value specified by floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dsinh & ( &# DOUBLE BY REF & ) ! MTH$GSINH !  ! Hyperbolic Sine !  ! The Hyperbolic Sine: ! routine returns the hyperbolic sine of the input9 ! value specified by floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$gsinh & ( &# GFLOAT BY REF & ) ! MTH$SINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians" ! routine returns the sine3 ! and cosine of a given angle (in radians). ! EXTERNAL SUB mth$sincos & ( &$  SINGLE BY REF, &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians).1 ! ! EXTERNAL SUB mth$dsincos & ( &$  DOUBLE BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians).1 ! ! EXTERNAL SUB mth$gsincos & ( &$  GFLOAT BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HSINCOS ! 7 ! Sine and Cosine of Angle Expressed in Radians ! ; ! The Sine and Cosine of Angle Expressed in Radians# ! routine returns the sine 7 ! and the cosine of a given angle (in radians). ! ! EXTERNAL SUB mth$hsincos & ( &$ HFLOAT BY REF, &$  HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$SINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesL ! routine returns the sine and cosine of a given angle (in degrees). ! ! EXTERNAL SUB mth$sincosd & ( &$ SINGLE BY REF, &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). ! " EXTERNAL SUB mth$dsincosd & ( &$ DOUBLE BY REF, &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). 1 ! " EXTERNAL SUB mth$gsincosd & ( &$ GFLOAT BY REF, &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HSINCOSD ! 7 ! Sine and Cosine of Angle Expressed in Degrees ! ; ! The Sine and Cosine of Angle Expressed in DegreesM ! routine returns the sine and cosine of a given angle (in degrees). 1 ! " EXTERNAL SUB mth$hsincosd & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$SQRT !  ! Square Root !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! * EXTERNAL SINGLE FUNCTION mth$sqrt & ( &# SINGLE BY REF & ) ! MTH$DSQRT !  ! Square Root !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! + EXTERNAL DOUBLE FUNCTION mth$dsqrt & ( &# DOUBLE BY REF & ) ! MTH$GSQRT !  ! Square Root !  ! The Square Root< ! routine returns the square root of the input value% ! floating-point-input-value. ! + EXTERNAL GFLOAT FUNCTION mth$gsqrt & ( &# GFLOAT BY REF & ) ! MTH$TAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! ) EXTERNAL SINGLE FUNCTION mth$tan & ( &# SINGLE BY REF & ) ! MTH$DTAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! * EXTERNAL DOUBLE FUNCTION mth$dtan & ( &# DOUBLE BY REF & ) ! MTH$GTAN ! / ! Tangent of Angle Expressed in Radians ! 3 ! The Tangent of Angle Expressed in RadiansD ! routine returns the tangent of a given angle (in radians). ! * EXTERNAL GFLOAT FUNCTION mth$gtan & ( &# GFLOAT BY REF & ) ! MTH$TAND ! / ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! * EXTERNAL SINGLE FUNCTION mth$tand & ( &# SINGLE BY REF & ) ! MTH$DTAND ! / ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! + EXTERNAL DOUBLE FUNCTION mth$dtand & ( &# DOUBLE BY REF & ) ! MTH$GTAND ! / ! Tangent of Angle Expressed in Degrees ! 3 ! The Tangent of Angle Expressed in DegreesD ! routine returns the tangent of a given angle (in degrees). ! + EXTERNAL GFLOAT FUNCTION mth$gtand & ( &# GFLOAT BY REF & )  ! MTH$TANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns the hyperbolic tangent ! of the input value. ! * EXTERNAL SINGLE FUNCTION mth$tanh & ( &# SINGLE BY REF & ) ! MTH$DTANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns th e hyperbolic tangent ! of the input value. ! + EXTERNAL DOUBLE FUNCTION mth$dtanh & ( &# DOUBLE BY REF & ) ! MTH$GTANH ! ( ! Compute the Hyperbolic Tangent ! , ! The Compute the Hyperbolic Tangent0 ! routine returns the hyperbolic tangent ! of the input value. ! + EXTERNAL GFLOAT FUNCTION mth$gtanh & ( &# GFLOA T BY REF & ) ! MTH$UMAX ! " ! Compute Unsigned Maximum ! & ! The Compute Unsigned MaximumO ! routine computes the unsigned longword maximum of n unsigned longword; ! arguments, where n is greater than or equal to 1. ! ( EXTERNAL LONG FUNCTION mth$umax & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &  ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$UMIN ! " ! Compute Unsigned Minimum ! & ! The Compute Unsigned MinimumO ! routine computes the unsigned longword minimum of n unsigned longword/ ! arguments, where n is greater than or ! equal to 1. ! ( EXTERNAL LONG FUNC TION mth$umin & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$ABS ! + ! F_floating Absolute Value Routine ! ) EXTERNAL SINGLE FUNCTION mth$abs &   ( &# SINGLE BY REF & ) ! MTH$DABS ! + ! D_floating Absolute Value Routine ! * EXTERNAL DOUBLE FUNCTION mth$dabs & ( &# DOUBLE BY REF & ) ! MTH$GABS ! + ! G_floating Absolute Value Routine ! * EXTERNAL GFLOAT FUNCTION mth$gabs & ( &# GFLOAT BY REF & ) ! MTH$HABS ! + ! H_floating Absolute Value Routine !  EXTERNAL SUB mth$habs & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IIABS ! % ! Word Absolute Value Routine ! ) EXTERNAL WORD FUNCTION mth$iiabs & ( &! WORD BY REF & ) ! MTH$JIABS ! ) ! Longword Absolute Value Routine ! ) EXTERNAL LONG FUNCTION mth$jiabs & ( &! LONG BY REF & ) ! MTH$IIAND ! 4 ! Bitwise AND of Two Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$iiand & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIAND ! 8 ! Bitwise AND of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jiand & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$DBLE ! : ! Convert F_floating to D_floating (Exact) Routine ! * EXTERNAL DOUBLE FUNCTION mth$dble & ( &# SINGLE BY REF & ) ! MTH$GDBLE ! : ! Convert F_floating to G_floating (Exact) Routine ! + EXTERNAL GFLOAT FUNCTION mth$gdble & ( &# SINGLE BY REF & ) ! MTH$DIM ! B ! Positive Difference of Two F_floating Parameters Routine ! ) EXTERNAL SINGLE FUNCTION mth$dim & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DDIM ! B ! Positive Difference of Two D_floating Parameters Routine ! * EXTERNAL DOUBLE FUNCTION mth$ddim & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GDIM ! B ! Positive Difference of Two D_floating Parameters Routine ! * EXTERNAL GFLOAT FUNCTION mth$gdim & ( &$ GFLOAT BY REF, &# GFLOAT BY REF & ) ! MTH$HDIM ! B ! Positive Difference of Two D_floating Parameters Routine !  EXTERNAL SUB mth$hdim & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IIDIM ! < ! Positive Difference of Two Word Parameters Routine. ! ) EXTERNAL WORD FUNCTION mth$iidim & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIDIM !  @ ! Positive Difference of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jidim & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$IIEOR ! = ! Bitwise Exclusive OR of Two Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$iieor & ( &" WORD BY REF, &! WORD BY REF & ) !  MTH$JIEOR ! A ! Bitwise Exclusive OR of Two Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jieor & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$IIFIX ! 8 ! Convert F_floating to Word (Truncated) Routine ! ) EXTERNAL WORD FUNCTION mth$iifix & ( &# SINGLE BY REF & ) ! MTH$JIFIX ! < ! Convert F_floating to Longword (Truncated) Routine ! ) EXTERNAL LONG FUNCTION mth$jifix & ( &# SINGLE BY REF & ) ! MTH$FLOATI ! 4 ! Convert Word to F_floating (Exact) Routine ! , EXTERNAL SINGLE FUNCTION mth$floati & ( &! WORD BY REF & ) ! MTH$DFLOTI ! 4 ! Convert Word to D_floating (Exact) Routine ! , EXTERNAL DOUBLE FUNCTION mth$dfloti & ( &! WORD BY REF & ) ! MTH$GFLOTI ! 4 ! Convert Word to G_floating (Exact) Routine ! , EXTERNAL GFLOAT FUNCTION mth$gfloti & ( &! WORD BY REF & ) ! MTH$FLOATJ ! 8 ! Convert Longword to F_floating (Exact) Routine ! , EXTERNAL SINGLE FUNCTION mth$floatj & ( &! LONG BY REF & ) ! MTH$DFLOTJ ! 8 ! Convert Longword to D_floating (Exact) Routine ! , EXTERNAL DOUBLE FUNCTION mth$dflotj & ( &! LONG BY REF & ) ! MTH$GFLOTJ ! 8 ! Convert Longword to G_floating (Exact) Routine ! , EXTERNAL GFLOAT FUNCTION mth$gflotj & ( &! LONG BY REF & ) ! MTH$FLOOR ! C ! Convert F_floating to Greatest F_floating Integer Routine ! + EXTERNAL SINGLE FUNCTION mth$floor & ( &# SINGLE BY REF & ) ! MTH$DFLOOR ! C ! Convert D_floating to Greatest D_floating Integer Routine ! , EXTERNAL DOUBLE FUNCTION mth$dfloor & ( &# DOUBLE BY REF & ) !  MTH$GFLOOR ! C ! Convert G_floating to Greatest G_floating Integer Routine ! , EXTERNAL GFLOAT FUNCTION mth$gfloor & ( &# GFLOAT BY REF & ) ! MTH$HFLOOR ! C ! Convert H_floating to Greatest H_floating Integer Routine ! EXTERNAL SUB mth$hfloor & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$AINT ! < ! Convert F_floating to Truncated F_floating Routine ! * EXTERNAL SINGLE FUNCTION mth$aint & ( &# SINGLE BY REF & )# ! MTH$DINT ! < ! Convert D_floating to Truncated D_floating Routine ! * EXTERNAL DOUBLE FUNCTION mth$dint & ( &# DOUBLE BY REF & ) ! MTH$IIDINT ! 8 ! Convert D_floating to Word (Truncated) Routine ! * EXTERNAL WORD FUNCTION mth$iidint & ( &# DOUBLE BY REF & ) ! MTH$JIDINT ! < ! Convert D_floating to Longword (Truncated) Routine ! * EXTERNAL LONG FUNCTION mth$jidint & ( &# DOUBLE BY REF & ) ! MTH$GINT ! > ! Convert G_floating to G_floating (Truncated) Routine !  * EXTERNAL GFLOAT FUNCTION mth$gint & ( &# GFLOAT BY REF & ) ! MTH$IIGINT ! 8 ! Convert G_floating to Word (Truncated) Routine ! * EXTERNAL WORD FUNCTION mth$iigint & ( &# GFLOAT BY REF & ) ! MTH$JIGINT ! < ! Convert G_floating to Longword (Truncated) Routine ! * EXTERNAL LONG FUNCTION mth$jigint &  ( &# GFLOAT BY REF & ) ! MTH$HINT ! > ! Convert H_floating to H_floating (Truncated) Routine !  EXTERNAL SUB mth$hint & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IIHINT ! 6 ! Convert H_floating to Truncated Word Routine ! * EXTERNAL WORD FUNCTION mth$iihint & ( &#  HFLOAT BY REF & ) ! MTH$JIHINT ! : ! Convert H_floating to Truncated Longword Routine ! * EXTERNAL LONG FUNCTION mth$jihint & ( &# HFLOAT BY REF & ) ! MTH$IINT ! 8 ! Convert F_floating to Word (Truncated) Routine ! ( EXTERNAL WORD FUNCTION mth$iint & ( &# SINGLE BY REF & ) ! MTH$JINT  ! < ! Convert F_floating to Longword (Truncated) Routine ! ( EXTERNAL LONG FUNCTION mth$jint & ( &# SINGLE BY REF & ) ! MTH$IIOR ! = ! Bitwise Inclusive OR of Two Word Parameters Routine ! ( EXTERNAL WORD FUNCTION mth$iior & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JIOR ! A ! ! Bitwise Inclusive OR of Two Longword Parameters Routine ! ( EXTERNAL LONG FUNCTION mth$jior & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$AIMAX0 ! 8 ! F_floating Maximum of N WordParameters Routine ! , EXTERNAL SINGLE FUNCTION mth$aimax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ",,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMAX0 ! = ! F_floating Maximum of N Longword Parameters Routine ! , EXTERNAL SINGLE FUNCTION mth$ajmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, #,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX0 ! 3 ! Word Maximum of N Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$imax0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, $,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX0 ! ; ! Longword Maximum of N Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmax0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, %,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMAX1 ! ? ! F_floating Maximum of N F_floating Parameters Routine ! + EXTERNAL SINGLE FUNCTION mth$amax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMAX1 ! ? ! D_floating Maximum of N D_floating Parameters Routine ! + EXTERNAL DOUBLE FUNCTION mth$dmax1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ',,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMAX1 ! ? ! G_floating Maximum of N G_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gmax1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, (,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMAX1 ! ? ! H_floating Maximum of N H_floating Parameters Routine !  EXTERNAL SUB mth$hmax1 & ( &$ HFLOAT BY REF, & HFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ),,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &+ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMAX1 ! 9 ! Word Maximum of N F_floating Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$imax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, *,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMAX1 ! = ! Longword Maximum of N F_floating Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmax1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, +,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AIMIN0 ! 9 ! F_floating Minimum of N Word Parameters Routine ! , EXTERNAL SINGLE FUNCTION mth$aimin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AJMIN0 ! = ! F_floating Minimum of N Longword Parameters Routine ! , EXTERNAL SINGLE FUNCTION mth$ajmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, -,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN0 ! 3 ! Word Minimum of N Word Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$imin0 & ( & WORD BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, .,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN0 ! ; ! Longword Minimum of N Longword Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmin0 & ( & LONG BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, /,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &* ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMIN1 ! ? ! F_floating Minimum of N F_floating Parameters Routine ! + EXTERNAL SINGLE FUNCTION mth$amin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 0,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$DMIN1 ! ? ! D_floating Minimum of N D_floating Parameters Routine ! + EXTERNAL DOUBLE FUNCTION mth$dmin1 & ( & DOUBLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 1,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$GMIN1 ! ? ! G_floating Minimum of N G_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gmin1 & ( & GFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$HMIN1 ! ? ! H_floating Minimum of N H_floating Parameters Routine !  EXTERNAL SUB mth$hmin1 & ( &$ HFLOAT BY REF, & HFLOAT BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,, 3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &+ ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$IMIN1 ! 9 ! Word Minimum of N F_floating Parameters Routine ! ) EXTERNAL WORD FUNCTION mth$imin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$JMIN1 ! = ! Longword Minimum of N F_floating Parameters Routine ! ) EXTERNAL LONG FUNCTION mth$jmin1 & ( & SINGLE BY REF, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! MTH$AMOD ! 8 ! Remainder of Two F_floating Parameters Routine ! * EXTERNAL SINGLE FUNCTION mth$amod & ( &$ SINGLE BY REF, &# SINGLE BY REF & 6 ) ! MTH$DMOD ! 8 ! Remainder of Two D_floating Parameters Routine ! * EXTERNAL DOUBLE FUNCTION mth$dmod & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GMOD ! 8 ! Remainder of Two G_floating Parameters Routine ! * EXTERNAL GFLOAT FUNCTION mth$gmod & ( &$ GFLOAT BY REF, &# GFLOAT BY REF 7& ) ! MTH$HMOD ! 8 ! Remainder of Two H_floating Parameters Routine !  EXTERNAL SUB mth$hmod & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IMOD ! 2 ! Remainder of Two Word Parameters Routine ! ( EXTERNAL WORD FUNCTION mth$imod & ( &" WORD BY REF, &! 8 WORD BY REF & ) ! MTH$JMOD ! 6 ! Remainder of Two Longword Parameters Routine ! ( EXTERNAL LONG FUNCTION mth$jmod & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$ANINT ! B ! Convert F_floating to Nearest F_floating Integer Routine ! + EXTERNAL SINGLE FUNCTION mth$anint & ( &# SINGL9E BY REF & ) ! MTH$DNINT ! B ! Convert D_floating to Nearest D_floating Integer Routine ! + EXTERNAL DOUBLE FUNCTION mth$dnint & ( &# DOUBLE BY REF & ) ! MTH$IIDNNT ! 4 ! Convert D_floating to Word Integer Routine ! * EXTERNAL WORD FUNCTION mth$iidnnt & ( &# DOUBLE BY REF & ) ! MTH$JIDN:NT ! @ ! Convert D_floating to Nearest Longword Integer Routine ! * EXTERNAL LONG FUNCTION mth$jidnnt & ( &# DOUBLE BY REF & ) ! MTH$GNINT ! B ! Convert G_floating to Nearest G_floating Integer Routine ! + EXTERNAL GFLOAT FUNCTION mth$gnint & ( &# GFLOAT BY REF & ) ! MTH$IIGNNT ! B ! Convert T_floati;ng to Nearest G_floating Integer Routine ! * EXTERNAL WORD FUNCTION mth$iignnt & ( &# GFLOAT BY REF & ) ! MTH$JIGNNT ! @ ! Convert G_floating to Nearest Longword Integer Routine ! * EXTERNAL LONG FUNCTION mth$jignnt & ( &# GFLOAT BY REF & ) ! MTH$HNINT ! B ! Convert H_floating to Nearest H_floating Integer Routine< !  EXTERNAL SUB mth$hnint & ( &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IIHNNT ! < ! Convert H_floating to Nearest Word Integer Routine ! * EXTERNAL WORD FUNCTION mth$iihnnt & ( &# HFLOAT BY REF & ) ! MTH$JIHNNT ! @ ! Convert H_floating to Nearest Longword Integer Routine ! * = EXTERNAL LONG FUNCTION mth$jihnnt & ( &# HFLOAT BY REF & ) ! MTH$ININT ! < ! Convert F_floating to Nearest Word Integer Routine ! ) EXTERNAL WORD FUNCTION mth$inint & ( &# SINGLE BY REF & ) ! MTH$JNINT ! @ ! Convert F_floating to Nearest Longword Integer Routine ! ) EXTERNAL LONG FUNCTION mth$jnint & > ( &# SINGLE BY REF & ) ! MTH$INOT ! 6 ! Bitwise Complement of Word Parameter Routine ! ( EXTERNAL WORD FUNCTION mth$inot & ( &! WORD BY REF & ) ! MTH$JNOT ! : ! Bitwise Complement of Longword Parameter Routine ! ( EXTERNAL LONG FUNCTION mth$jnot & ( &! LONG BY REF & )? ! MTH$DPROD ! A ! D_floating Product of Two F_floating Parameters Routine ! + EXTERNAL DOUBLE FUNCTION mth$dprod & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$GPROD ! A ! G_floating Product of Two F_floating Parameters Routine ! + EXTERNAL GFLOAT FUNCTION mth$gprod & ( &$ SINGLE BY REF, &# @ SINGLE BY REF & ) ! MTH$SGN ! " ! F_floating Sign Function ! ' EXTERNAL LONG FUNCTION mth$sgn & ( & ANY BY REF & ) ! MTH$IISHFT ! ' ! Bitwise Shift of Word Routine ! * EXTERNAL WORD FUNCTION mth$iishft & ( &" WORD BY REF, &! WORD BY REF & ) ! MTH$JISHFT ! A + ! Bitwise Shift of Longword Routine ! * EXTERNAL LONG FUNCTION mth$jishft & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$SIGN ! ? ! F_floating Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL SINGLE FUNCTION mth$sign & ( &$ SINGLE BY REF, &# SINGLE BY REF & ) ! MTH$DSIGNB ! ? ! D_floating Transfer of Sign of Y to Sign of X Routine ! + EXTERNAL DOUBLE FUNCTION mth$dsign & ( &$ DOUBLE BY REF, &# DOUBLE BY REF & ) ! MTH$GSIGN ! ? ! G_floating Transfer of Sign of X to Sign of X Routine ! + EXTERNAL GFLOAT FUNCTION mth$gsign & ( &$ GFLOAT BY REF, &# GFLOAT BY REF &C ) ! MTH$HSIGN ! ? ! H_floating Transfer of Sign of Y to Sign of X Routine !  EXTERNAL SUB mth$hsign & ( &$ HFLOAT BY REF, &$ HFLOAT BY REF, &# HFLOAT BY REF & ) ! MTH$IISIGN ! 9 ! Word Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL WORD FUNCTION mth$iisign & ( &" WDORD BY REF, &! WORD BY REF & ) ! MTH$JISIGN ! = ! Longword Transfer of Sign of Y to Sign of X Routine ! * EXTERNAL LONG FUNCTION mth$jisign & ( &" LONG BY REF, &! LONG BY REF & ) ! MTH$SNGL ! < ! Convert D_floating to F_floating (Rounded) Routine ! * EXTERNAL SINGLE FUNCTION mth$sngl & ( &# DOUBLE BY REF & ) ! MTH$SNGLG ! < ! Convert G_floating to F_floating (Rounded) Routine ! + EXTERNAL SINGLE FUNCTION mth$snglg & ( &# GFLOAT BY REF & )wwF}PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIGNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETH %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:27.17 ! 7 ! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSGX ! 2H1 27-MAY-1986 11:12:01 GAMACHE "CreateI new SMP thread from V5.0_BL2 modules"\ ! 2E1 3-APR-1986 20:55:46 HOLSTEIN "Create new Exec Reorg thread from V4.4 modules"U ! 2F1 18-MAR-1986 20:31:28 HOLSTEIN "Create new SMP thread from V4.4 modules"[ ! 2D1 17-DEC-1985 09:08:44 FIORELLI "Create new exec reorg thread from BL7 modules"T ! *2 3-SEP-1985 15:59:52 MAILMAN "extend transfer vector; add mth$_notimp"B ! 1A1 20-JUL-1985 14:44:33 SYSTEMBUILD "Initial SMP entry"M ! *1 18-JUN-1985 03:36:07 S JYSTEMBUILD "Initial entry of V4.0 source"7 ! DEC/CMS REPLACEMENT HISTORY, ELEMENT MTHMSG.MSG& ! FILE: MTHMSG.MSG EDIT: JCW2004 ! R ! **************************************************************************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSKE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTI LCE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE M FORMAT. ADAPTED FROM MTHMSG.MDL( ! VERSION 1-004. SBL 22-APR-1981+ ! 2-002 - ADD .TITLE. SBL 28-AUG-19820 ! 2-003 - ADD MTH$_NOTIMP. SMM 03-SEP-1985: ! 2-004 - ADDED VECTOR MATH MESSAGES. JCW 24-FEB-88. ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! MTH$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS NOF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $MTHDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.; ! THE STS$V_MSG_ID IS THE FORTRAN ERROR NUMBER (1:94).< ! THE RUN-TIME LIBRARY DECLARES THESE SYM OBOLS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! -6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX. DECLARE LONG CONSTANT MTH$_FACILITY = 224 DECLARE LONG CONSTANT MTH$_WRONUMARG = 14752044 DECLARE LONG CONSTANT MTH$_INVARGMAT = 14752121 DECLARE LONG CONSTANT MTH$_UNDEXP = 14752204 DECLARE LONG CONSTANT MTH$_LOGZERNEG = 14752284 DECLARE LONG CONSTANT MTH$_SQUROONEG = P 14752366 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 22 (DECIMAL) MTH$ PREFIX4 DECLARE LONG CONSTANT MTH$_SIGLOSMAT = 14752604 DECLARE LONG CONSTANT MTH$_FLOOVEMAT = 14752684 DECLARE LONG CONSTANT MTH$_FLOUNDMAT = 14752761 DECLARE LONG CONSTANT MTH$_NOTIMP = 1475284 ! MTH$NOT_IMPLEMENTED8 DECLARE LONG CONSTANT MTH$_VEC_INVARGMAT = 14752925 DECLARE LONG CONSTANT MTH$_VEC_UNDEXP = 14753008 DECLARE LONG CONSTANT MTH$_VEC_LOGZERNEG = 14753088 DECLARE LONG CONSTANT MTH$_VEC_SQUROONEG = 14753168 DECLARE LONG CONSTANT MTH$_VEC_FLOOVEMAT = 14753248 DECLARE LONG CONSTANT MTH$_VEC_FLOUNDMAT = 14753324 DECLARE LONG CONSTANT MTH$_SINCOSSIG = 1475260wwRPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGISNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETT %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARDU, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY V * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! W*************************************************************************** ! NCS$COMPARE !  ! Compare Strings ! O ! Compares two strings using specified collating sequence as comparison ! basis. ! + EXTERNAL LONG FUNCTION ncs$compare & ( &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! NCS$CONVERT !  ! X Convert String ! C ! Convert a string using the specified conversion function. ! + EXTERNAL LONG FUNCTION ncs$convert & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &* OPTIONAL WORD BY REF, &! WORD BY REF & ) ! NCS$END_CF ! ! ! End Conversion Function ! M ! Terminates the use oYf a conversion function by the calling program. ! * EXTERNAL LONG FUNCTION ncs$end_cf & ( &! LONG BY REF & ) ! NCS$END_CS ! ! End Collating Sequence ! L ! Terminates the use of a collating sequence by the calling program. ! * EXTERNAL LONG FUNCTION ncs$end_cs & ( &! LONG BY REF & ) ! NCS$GET_CF ! ! Z! Get Conversion Function ! P ! Retrieves the definition of the named conversion function from the NCS ! library. ! * EXTERNAL LONG FUNCTION ncs$get_cf & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! NCS$GET_CS ! ! Get Collating Sequence ! O ! Retrieves the definition of the named collating sequen[ce from the NCS ! library. ! * EXTERNAL LONG FUNCTION ncs$get_cs & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! NCS$RESTORE_CF ! % ! Restore Conversion Function ! L ! Permits the calling program to restore the definition of a "saved"> ! conversion function from a data base or an RMS file. ! . EX\TERNAL LONG FUNCTION ncs$restore_cf & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$RESTORE_CS ! $ ! Restore Collating Sequence ! V ! Permits the calling program to restore the definition of a "saved" collating3 ! sequence from a data base or an RMS file. ! . EXTERNAL LONG FUNCTION ncs$restore_cs & ( &" ] LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$SAVE_CF ! " ! Save Conversion Function ! T ! Provides the calling program with information that permits the applicationU ! to store the definition of a conversion function in a local data base or an/ ! RMS file rather than the NCS$LIBRARY. ! + EXTERNAL LONG FUNCTION ncs$save_cf & ^ ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! NCS$SAVE_CS ! ! ! Save Collating Sequence ! T ! Provides the calling program with information that permits the applicationT ! to store the definition of a collating sequence in a local data base or an/ ! RMS file rather than the NCS$LIBRARY. ! + EXTERNAL LONG FUNCTION ncs$save_cs & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )ww`DPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIaNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETb %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:01:10.84 ! % ! FILE: NCSMSG.MSG EDIT: PDG1001 ! R ! ****************************************************** c********************** ! * *) ! * COPYRIGHT (C) 1982 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF dMAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OFe ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ !  ! FACILITY: VAX-11 NCS !  ! ABSTRACT: ! F ! THIS FILE CONTAINS THE DEFINITION FOR THE NCS FACILITY SPECIFIC9 ! ERROR MESSAGES. THE FACILITY CODE FOR NCS IS ???. ! % ! ENVIRONMENT: VAX/VMS USER MODE ! 5 ! AUTHOfR: P. GILBERT, CREATION DATE: 11-OCT-1983 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! S ! E01-002 CHB FIX FOR QAR #396 FROM V52-IFT DATABASE; 21-JUL-1989E ! USE ONLY ONE PREFIX FOR NCS$_, LIB$_ AND, ! TFF$_ MESSAGES. ! --/ DECLARE LONG CONSTANT NCS$_FACILITY = 5612 DECLARE LONG CONSTANT NCS$_CVTNUM = 367984663 DECLARE LONG CONSTANT NCS$_EXPCHAR = 367984745 DECLARE LONG C gONSTANT NCS$_EXPMORTXT = 367984823 DECLARE LONG CONSTANT NCS$_DUMMY_1 = 367984905 DECLARE LONG CONSTANT NCS$_INVCOLSEQ = 367984984 DECLARE LONG CONSTANT NCS$_NOMEMORY = 367985084 DECLARE LONG CONSTANT NCS$_NUMTRUNC = 367985126 DECLARE LONG CONSTANT NCS$_QUOTOOLONG = 367985223 DECLARE LONG CONSTANT NCS$_COL_ADJ = 367985325 DECLARE LONG CONSTANT NCS$_COL_CMPLX = 367985404 DECLARE LONG CONSTANT NCS$_COL_CHAR = 367985483 DECLARE LONG CONSTANT NCS$ h_COL_PAD = 367985565 DECLARE LONG CONSTANT NCS$_COL_THREE = 367985643 DECLARE LONG CONSTANT NCS$_ON_LINE = 367985715 DECLARE LONG CONSTANT NCS$_INVAPPEND = 36798578/ DECLARE LONG CONSTANT NCS$_NYI = 367985862 DECLARE LONG CONSTANT NCS$_NOT_CS = 367985942 DECLARE LONG CONSTANT NCS$_NOT_CF = 367986024 DECLARE LONG CONSTANT NCS$_LINEINFO = 367986115 DECLARE LONG CONSTANT NCS$_CONMODEQL = 367986184 DECLARE LONG CONSTANT NCS$_EXPECTED = 367986264 i DECLARE LONG CONSTANT NCS$_EXP1CHAR = 367986342 DECLARE LONG CONSTANT NCS$_RANDIF = 367986421 DECLARE LONG CONSTANT NCS$_BADCS = 367986521 DECLARE LONG CONSTANT NCS$_BADCF = 367986604 DECLARE LONG CONSTANT NCS$_INSERTED = 367992653 DECLARE LONG CONSTANT NCS$_DELETED = 367992734 DECLARE LONG CONSTANT NCS$_REPLACED = 367992813 DECLARE LONG CONSTANT NCS$_REMOVED = 367992895 DECLARE LONG CONSTANT NCS$_EXTRACTED = 367992972 DECLARE LONG CONST jANT NCS$_DIFTYP = 367993045 DECLARE LONG CONSTANT NCS$_NOMTCHFOU = 367993123 DECLARE LONG CONSTANT NCS$_BRKNLIB = 367993203 DECLARE LONG CONSTANT NCS$_HISTERR = 367993286 DECLARE LONG CONSTANT NCS$_INVKEYCHAR = 367993365 DECLARE LONG CONSTANT NCS$_DELKEYERR = 367993465 DECLARE LONG CONSTANT NCS$_DELDATERR = 367993542 DECLARE LONG CONSTANT NCS$_DUPMOD = 367993623 DECLARE LONG CONSTANT NCS$_FAOFAIL = 367993704 DECLARE LONG CONSTANT NCS$_INDEXER kR = 367993785 DECLARE LONG CONSTANT NCS$_INSERTERR = 367993865 DECLARE LONG CONSTANT NCS$_LOOKUPERR = 367993945 DECLARE LONG CONSTANT NCS$_MODNAMLNG = 367994024 DECLARE LONG CONSTANT NCS$_NOMODNAM = 367994105 DECLARE LONG CONSTANT NCS$_NOTOBJLIB = 367994185 DECLARE LONG CONSTANT NCS$_NOTFORUNK = 367994264 DECLARE LONG CONSTANT NCS$_CNVRTING = 367994358 DECLARE LONG CONSTANT NCS$_EMPTYLIBRARY = 367994432 DECLARE LONG CONSTANT NCS$_MHDERR = 3679 94523 DECLARE LONG CONSTANT NCS$_INITERR = 367994604 DECLARE LONG CONSTANT NCS$_LIBEMPTY = 368000643 DECLARE LONG CONSTANT NCS$_DUPLTAB = 368000725 DECLARE LONG CONSTANT NCS$_NOREADLIB = 368000804 DECLARE LONG CONSTANT NCS$_NOWRTLIB = 368000884 DECLARE LONG CONSTANT NCS$_IVTABNAM = 368000985 DECLARE LONG CONSTANT NCS$_NOSUCHTAB = 368001062 DECLARE LONG CONSTANT NCS$_NOWILD = 36800114wwUlPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )E END RECORDP% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )E END RECORDD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIn`PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIoNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETp %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  7 DECLARE LONG CONSTANT OBJ$M_PSC_PIC = x'00000001'7 DECLARE LONG CONSTANT OBJ$M_PSC_LIB = x'00000002'7 DECLARE LONG CONSTANT OBJ$M_PSC_OVL = x'00000004'7 DECLARE LONG CONSTANT OBJ$M_ qPSC_REL = x'00000008'7 DECLARE LONG CONSTANT OBJ$M_PSC_GBL = x'00000010'7 DECLARE LONG CONSTANT OBJ$M_PSC_SHR = x'00000020'7 DECLARE LONG CONSTANT OBJ$M_PSC_EXE = x'00000040'6 DECLARE LONG CONSTANT OBJ$M_PSC_RD = x'00000080'7 DECLARE LONG CONSTANT OBJ$M_PSC_WRT = x'00000100'8 DECLARE LONG CONSTANT OBJ$M_SYM_WEAK = x'00000001'7 DECLARE LONG CONSTANT OBJ$M_SYM_DEF = x'00000002'7 DECLARE LONG CONSTANT OBJ$M_SYM_UNI = x'00000004'7 DECLARE LONG C rONSTANT OBJ$M_SYM_REL = x'00000008'9 DECLARE LONG CONSTANT OBJ$M_SYMV_WEAK = x'00000001'8 DECLARE LONG CONSTANT OBJ$M_SYMV_DEF = x'00000002'8 DECLARE LONG CONSTANT OBJ$M_SYMV_UNI = x'00000004'8 DECLARE LONG CONSTANT OBJ$M_SYMV_REL = x'00000008'9 DECLARE LONG CONSTANT OBJ$M_SYMM_WEAK = x'00000001'8 DECLARE LONG CONSTANT OBJ$M_SYMM_DEF = x'00000002'8 DECLARE LONG CONSTANT OBJ$M_SYMM_UNI = x'00000004'8 DECLARE LONG CONSTANT OBJ$M_SYMM_REL = x'00000008'.s DECLARE LONG CONSTANT OBJ$S_SDADEFS = 16 record SDADEFS! group OBJ$R_TYPE_OVERLAY variant case= BYTE OBJ$B_TYPE ! Type of record caseA BYTE OBJ$B_GSD_TYPE ! Type of GSD record end variant% end group OBJ$R_TYPE_OVERLAY$ group OBJ$R_RECORDS_OVERLAY variant case* group OBJ$R_PSECT_RECORDH t BYTE OBJ$B_PSC_ALI ! PSECT alignment ( 2**n )' group OBJ$r_fill_0 variant case? WORD OBJ$W_PSC_FLAG ! PSECT flags: case- group OBJ$r_fill_18 ! Position independent? ! Defined from sharable image2 ! Overlaid psect7 u ! Requires relocation3 ! PSECT is global8 ! Potentially sharable. ! Executable/ ! Can be read2 ! Can be written| WORD PSC_PIC_bits ! COMMENT ADDED BY SDL - PSC_PIC_bits contains bits PSC_PIC through fill_21 end group OBJ$r_fill_1# vend variant+ end group OBJ$r_fill_0> LONG OBJ$L_PSC_LEN ! Length of PSECTQ STRING OBJ$T_PSC_NAME = 1 ! PSECT name ( counted string ). end group OBJ$R_PSECT_RECORD case/ group OBJ$R_GLOBAL_SYM_RECORDW BYTE OBJ$B_SYM_DTYPE ! Data type ( see Arch. Handbook, Ap. C )' group OBJ$r_fill_3 variant w caseA WORD OBJ$W_SYM_FLAGS ! Symbol flags: case- group OBJ$r_fill_4@ ! Weak resolution (0 = strong)> ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute) BYTE SYM_WEAK_bits ! COMMENT ADDED BY SDL x- SYM_WEAK_bits contains bits SYM_WEAK through fill_51 end group OBJ$r_fill_4# end variant+ end group OBJ$r_fill_3K BYTE OBJ$B_SYM_PSIND ! PSECT index ( only if def )O LONG OBJ$L_SYM_VALUE ! Value of symbol ( only if def )R STRING OBJ$T_SYM_NAME = 1 ! Symbol name ( counted string )3 end group OBJ$R_GLOBAL_SYM_RECORD cyase0 group OBJ$R_ENTRY_POINT_RECORDW BYTE OBJ$B_EPM_DTYPE ! Data type ( see Arch. Handbook, Ap. C )K WORD OBJ$W_EPM_FLAGS ! Flags ( same as SYM_FLAGS )K BYTE OBJ$B_EPM_PSIND ! PSECT index ( only if def )O LONG OBJ$L_EPM_VALUE ! Value of symbol ( only if def )9 WORD OBJ$W_EPM_MASK ! Entry maskR STRING OBJ$T_EPM_NAME = 1 ! Symbol name z ( counted string )4 end group OBJ$R_ENTRY_POINT_RECORD case0 group OBJ$R_GLOBAL_SYMV_RECORDW BYTE OBJ$B_SYMV_DTYPE ! Data type ( see Arch. Handbook, Ap. C )' group OBJ$r_fill_6 variant caseB WORD OBJ$W_SYMV_FLAGS ! Symbol flags: case- group OBJ$r_fill_7@ { ! Weak resolution (0 = strong)> ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute) BYTE SYMV_WEAK_bits ! COMMENT ADDED BY SDL - SYMV_WEAK_bits contains bits SYMV_WEAK through fill_81 end group OBJ$r_fill_7# end variant+ end group O |BJ$r_fill_6K BYTE OBJ$B_SYMV_PSIND ! PSECT index ( only if def )O LONG OBJ$L_SYMV_VALUE ! Value of symbol ( only if def )Y LONG OBJ$L_SYMV_VECTOR ! Vectored value of symbol ( only if def )S STRING OBJ$T_SYMV_NAME = 1 ! Symbol name ( counted string )4 end group OBJ$R_GLOBAL_SYMV_RECORD case0 group OBJ$R_GLOBAL_EPMV_RECORDW BYTE OB}J$B_EPMV_DTYPE ! Data type ( see Arch. Handbook, Ap. C )K WORD OBJ$W_EPMV_FLAGS ! Flags ( same as SYM_FLAGS )K BYTE OBJ$B_EPMV_PSIND ! PSECT index ( only if def )O LONG OBJ$L_EPMV_VALUE ! Value of symbol ( only if def )Y LONG OBJ$L_EPMV_VECTOR ! Vectored value of symbol ( only if def )9 WORD OBJ$W_EPMV_MASK ! Entry maskS STRING OBJ$T_EPMV_NAME = 1 ! Sy ~mbol name ( counted string )4 end group OBJ$R_GLOBAL_EPMV_RECORD case0 group OBJ$R_GLOBAL_SYMM_RECORDW BYTE OBJ$B_SYMM_DTYPE ! Data type ( see Arch. Handbook, Ap. C )' group OBJ$r_fill_9 variant caseB WORD OBJ$W_SYMM_FLAGS ! Symbol flags: case. group OBJ$r_fill_10@  ! Weak resolution (0 = strong)> ! Definition (0 = reference)D ! Universal definition (0 = local)B ! Relative symbol (0 = absolute)~ BYTE SYMM_WEAK_bits ! COMMENT ADDED BY SDL - SYMM_WEAK_bits contains bits SYMM_WEAK through & ! fill_112 end group OBJ$r_fill_10# end variant+  end group OBJ$r_fill_9K BYTE OBJ$B_SYMM_PSIND ! PSECT index ( only if def )O LONG OBJ$L_SYMM_VALUE ! Value of symbol ( only if def )] LONG OBJ$L_SYMM_VERSION_MASK ! Version mask of symbol ( only if def )S STRING OBJ$T_SYMM_NAME = 1 ! Symbol name ( counted string )4 end group OBJ$R_GLOBAL_SYMM_RECORD case0 group OBJ$R_GLOBAL_EPMM_RECORDW  BYTE OBJ$B_EPMM_DTYPE ! Data type ( see Arch. Handbook, Ap. C )K WORD OBJ$W_EPMM_FLAGS ! Flags ( same as SYM_FLAGS )K BYTE OBJ$B_EPMM_PSIND ! PSECT index ( only if def )O LONG OBJ$L_EPMM_VALUE ! Value of symbol ( only if def )] LONG OBJ$L_EPMM_VERSION_MASK ! Version mask of symbol ( only if def )9 WORD OBJ$W_EPMM_MASK ! Entry maskS STRING OBJ$T_EPMM_NAME = 1 ! Symbol name ( counted string )4 end group OBJ$R_GLOBAL_EPMM_RECORD case( group OBJ$R_EOM_RECORDH BYTE OBJ$B_EOM_SEV ! Error severity for moduleN BYTE OBJ$B_EOM_PSIND ! PSECT index of transfer address? LONG OBJ$L_EOM_TRANS ! Transfer address, end group OBJ$R_EOM_RECORD end variant( end group OBJ$R_RECORDS_OVERL AY end record SDADEFS C DECLARE LONG CONSTANT OBJ$C_HDR = 0 ! Module header record E DECLARE LONG CONSTANT OBJ$C_HDR_MHD = 0 ! Main header record L DECLARE LONG CONSTANT OBJ$C_HDR_LNM = 1 ! Language processor record K DECLARE LONG CONSTANT OBJ$C_HDR_SRC = 2 ! Source files description = DECLARE LONG CONSTANT OBJ$C_HDR_TTL = 3 ! Title text A DECLARE LONG CONSTANT OBJ$C_HDR_CPR = 4 ! Copyright text C DECLARE LONG CONSTANT OBJ$C_HDR_MTC = 5 ! Maintenance text ? DECLARE LONG CONSTANT OBJ$C_HDR_GTX = 6 ! General text N DECLARE LONG CONSTANT OBJ$C_GSD = 1 ! Global symbol definition record D DECLARE LONG CONSTANT OBJ$C_GSD_PSC = 0 ! P-sect definition P DECLARE LONG CONSTANT OBJ$C_GSD_SYM = 1 ! Symbol ( simple ) definition I DECLARE LONG CONSTANT OBJ$C_GSD_EPM = 2 ! Entry point definition G DECLARE LONG CONSTANT OBJ$C_GSD_PRO = 3 ! Procedure definition U DECLARE LONG CONSTANT OBJ$C_GSD_SYMW = 4 ! Symbol definition with word psect Z DECLARE LONG CONSTANT OBJ$C_GSD_EPMW = 5 ! Entry point definition with word psect X DECLARE LONG CONSTANT OBJ$C_GSD_PROW = 6 ! Procedure definition with word psect F DECLARE LONG CONSTANT OBJ$C_GSD_IDC = 7 ! Random entity check I DECLARE LONG CONSTANT OBJ$C_GSD_ENV = 8 ! Environment definition T DECLARE LONG CONSTANT OBJ$C_GSD_LSY = 9 ! Local symbol definition/reference R DECLARE LONG CONSTANT OBJ$C_GSD_LEPM = 10 ! Local symbol entry point def. P DECLARE LONG CONSTANT OBJ$C_GSD_LPRO = 11 ! Local symbol procedure def. U DECLARE LONG CONSTANT OBJ$C_GSD_SPSC = 12 ! Shareable image psect definition Z DECLARE LONG CONSTANT OBJ$C_GSD_SYMV = 13 ! Global symbol definition ( vectored )X DECLARE LONG CONSTANT OBJ$C_GSD_EPMV = 14 ! Entry point definition ( vectored )V DECLARE LONG CONSTANT OBJ$C_GSD_PROV = 15 ! Procedure definition ( vectored )g DECLARE LONG CONSTANT OBJ$C_GSD_SYMM = 16 ! Global symbol definition ( special double valued )e DECLARE LONG CONSTANT OBJ$C_GSD_EPMM = 17 ! Entry point definition ( special double valued )c DECLARE LONG CONSTANT OBJ$C_GSD_PROM = 18 ! Procedure definition ( special double valued )F DECLARE LONG CONSTANT OBJ$C_TIR = 2 ! Text information record C DECLARE LONG CONSTANT OBJ$C_EOM = 3 ! End of module record J DECLARE LONG CONSTANT OBJ$C_DBG = 4 ! Debugger informati on record K DECLARE LONG CONSTANT OBJ$C_TBT = 5 ! Traceback information record D DECLARE LONG CONSTANT OBJ$C_LNK = 6 ! Linker options record S DECLARE LONG CONSTANT OBJ$C_EOMW = 7 ! End of module record with word psect M DECLARE LONG CONSTANT OBJ$C_MAXRECTYP = 7 ! Last assigned record type , DECLARE LONG CONSTANT OBJ$K_SUBTYP = 1, DECLARE LONG CONSTANT OBJ$C_SUBTYP = 1P DECLARE LONG CONSTANT OBJ$C_MAXRECSIZ = 2048 ! Maximum legal record size @ DECLARE LONG CONSTANT OBJ$C_STRLVL = 0 ! Structure level G DECLARE LONG CONSTANT OBJ$C_SYMSIZ = 31 ! Maximum symbol length [ DECLARE LONG CONSTANT OBJ$C_STOREPLIM = -1 ! Maximum repeat count on store commands L DECLARE LONG CONSTANT OBJ$C_PSCALILIM = 9 ! Maximum p-sect alignment / DECLARE LONG CONSTANT OBJ$S_OBJRECDEF = 5 record OBJRECDEFL BYTE OBJ$B_RECTYP ! First byte always record type  ! Permissable record types C BYTE OBJ$B_SUBTYP ! Record sub-type byte > BYTE OBJ$B_MHD_STRLV ! Structure level & group OBJ$R_MHD_RECSZ_OVERLAY variant caseB WORD OBJ$W_MHD_RECSZ ! Maximum record size  case. group OBJ$R_MHD_RECSZ_FIELDS7 BYTE OBJRECDEF$$_FILL_1 ( 1 to 2 )D STRING OBJ$T_MHD_NAME = 0 ! Module name field  ! Misc. constants 2  end group OBJ$R_MHD_RECSZ_FIELDS end variant* end group OBJ$R_MHD_RECSZ_OVERLAY end record OBJRECDEF  ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! ! Module header record (MHD) ! A DECLARE LONG CONSTANT MHD$C_MHD = 0 ! Main header record H DECLARE LONG CONSTANT MHD$C_LNM = 1 ! Language name and version H DECLARE LONG CONSTANT MHD$C_SRC = 2 ! Source file specification C DECLARE LONG CONSTANT MHD$C_TTL = 3 ! Title text of module ? DECLARE LONG CONSTANT MHD$C_CPR = 4 ! Copyright notice A DECLARE LONG CONSTANT MHD$C_MTC = 5 ! Maintenence status ; DECLARE LONG CONSTANT MHD$C_GTX = 6 ! General text J DECLARE LONG CONSTANT MHD$C_MAXHDRTYP = 6 ! Maximum allowable type , DECLARE LONG CONSTANT MHD$S_MHDEF = 37 record MHDEFI BYTE MHD$B_RECTYP ! Record type ( OBJ$C_MHD ) A BYTE MHD$B_HDRTYP ! Type field for MHD  ! Types of header records > BYTE MHD$B_STRLVL ! Structure level B WORD MHD$W_RECSIZ ! Maximum record size A BYTE MHD$B_NAMLNG ! Module name length : STRING MHD$T_NAME = 31 ! Module name  end record MHDEF  ww XhPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! ! End of module record (EOM) ! K DECLARE LONG CONSTANT EOM$C_SUCCESS = 0 ! Successful ( no errors ) A DECLARE LONG CONSTANT EOM$C_WARNING = 1 ! Warnings issued ? DECLARE LONG CONSTANT EOM$C_ERROR = 2 ! Errors detected > DECLARE LONG CONSTANT EOM$C_ABORT = 3 ! Abort the link I DECLARE LONG CONSTANT EOM$K_EOMMIN = 2 ! Min length of EOM record I DECLARE LONG CONSTANT EOM$C_EOMMIN = 2 ! Min length of EOM record X DECLARE LONG CONSTANT EOM$K_EOMMX1 = 7 ! Length of EOM record w/o transfer flags X DECLARE LONG CONSTANT EOM$C_EOMMX1 = 7 ! Length of EOM record w/o transfer flags M DECLARE LONG CONSTANT EOM$K_EOMMAX = 8 ! Maximu m length of EOM record M DECLARE LONG CONSTANT EOM$C_EOMMAX = 8 ! Maximum length of EOM record 5 DECLARE LONG CONSTANT EOM$M_WKTFR = x'00000001', DECLARE LONG CONSTANT EOM$S_EOMDEF = 8 record EOMDEFI BYTE EOM$B_RECTYP ! Record type ( OBJ$C_EOM ) G BYTE EOM$B_COMCOD ! Compiler completion code ! Values I BYTE EOM$B_PSINDX ! P-sect of transfer address ? LONG EOM$L_TFRADR  ! Transfer address # group EOM$R_TFRFLG_OVERLAY variant caseE BYTE EOM$B_TFRFLG ! Transfer address flags  case) group EOM$R_TFRFLG_BITS1 ! Transfer address is weak n BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through fill_12- end group EOM$R_TFRFLG_BITS end variant' end group EOM$R_TFRFLG_OVERLAY end record EOMDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 5 ! End of module record with word of psect (EOMW) ! J DECLARE LONG CONSTANT EOMW$K_EOMMIN = 2 ! Min length of EOM record J DECLARE LONG CONSTANT EOMW$C_EOMMIN = 2 ! Min length of EOM record Z DECLARE LONG CONSTANT EOMW$K_EOMMX1 = 8 ! Length of EOMW record w/o transfer flags Z DECLARE LONG CONSTANT EOMW$C_EOMMX1 = 8 ! Length of EOMW record w/o transfer flags O DECLARE LONG CONSTANT EOMW$K_EOMMAX = 9 ! Maximum length of EOMW record O DECLARE LONG CONSTANT EOMW$C_EOMMAX = 9 ! Maximum length of EOMW record 6 DECLARE LONG CONSTANT EOMW$M_WKTFR = x'00000001'. DECLARE LONG CONSTANT EOMW$S_EOMWDEF = 9 record EOMWDEFI BYTE EO MW$B_RECTYP ! Record type ( OBJ$C_EOM ) G BYTE EOMW$B_COMCOD ! Compiler completion code I WORD EOMW$W_PSINDX ! P-sect of transfer address ? LONG EOMW$L_TFRADR ! Transfer address $ group EOMW$R_TFRFLG_OVERLAY variant caseE BYTE EOMW$B_TFRFLG ! Transfer address flags  case* group EOMW$R_TFRFLG_BITS1 ! Transfer address is weak n BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through fill_13. end group EOMW$R_TFRFLG_BITS end variant( end group EOMW$R_TFRFLG_OVERLAY end record EOMWDEF  ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! " ! Linker Options Record (LNK) ! C DECLARE LONG CONSTANT LNK$C_OLB = 0 ! object library spec L DECLARE LONG CONSTANT LNK$C_SHR = 1 ! shareable image library spec S DE CLARE LONG CONSTANT LNK$C_OLI = 2 ! object library with inclusion list O DECLARE LONG CONSTANT LNK$C_OBJ = 3 ! object file or symbol table fileM DECLARE LONG CONSTANT LNK$C_SHA = 4 ! individually specified shr imgP DECLARE LONG CONSTANT LNK$C_MAXRECTYP = 4 ! highest current record type 6 DECLARE LONG CONSTANT LNK$M_SELSER = x'00000001'7 DECLARE LONG CONSTANT LNK$M_LIBSRCH = x'00000002', DECLARE LONG CONSTANT LNK$S_LNKDEF = 6 record LNKDEF?  BYTE LNK$B_RECTYP ! record type LNK ? BYTE LNK$B_LNKTYP ! sub record type " group LNK$R_FLAGS_OVERLAY variant case" WORD LNK$W_FLAGS case( group LNK$R_FLAGS_BITS9 ! selectively searched (LNK$C_OBJ)q BYTE SELSER_bits ! COMMENT ADDED BY SDL - SELSER_bits contains bits SELSER through fill_14, en d group LNK$R_FLAGS_BITS end variant& end group LNK$R_FLAGS_OVERLAY# group LNK$R_NAMLNG_OVERLAY variant caseG WORD LNK$W_NAMLNG ! length of filespec name  case+ group LNK$R_NAMLNG_FIELDS4 BYTE LNKDEF$$_FILL_1 ( 1 to 2 ); STRING LNK$T_NAME = 0 ! actual name / end group LNK$R_NAMLNG_FIELDS end variant' end group LNK$R_NAMLNG_OVERLAY end record LNKDEF  ww@KPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! , ! Global symbol definition record (GSD) ! Q DECLARE LONG CONSTANT GSD$K_ENTRIES = 1 ! Offset to first entry in record Q DECLARE LONG CONSTANT GSD$C_ENTRIES = 1 ! Offset to first entry in record ? DECLARE LONG CONSTANT GSD$C_PSC = 0 ! Psect definition C DECLARE LONG CONSTANT GSD$C_SYM = 1 ! Symbol specification N DECLARE LONG CONSTANT GSD$C_EPM = 2 ! Entry point and mask definition N DECLARE LONG CONSTANT GSD$C_PRO = 3 ! Procedure with formal arguments S DECLARE LONG CONSTANT GSD$C_SYMW = 4 ! Symbol specification with word psect O DECLARE LONG CONSTANT GSD$C_EPMW = 5 ! Entry point mask with word psect H DECLARE LONG CONSTANT GSD$C_PROW = 6 ! Procedure with word psect B DECLARE LONG CONSTANT GSD$C_IDC = 7 ! Random entity check A DECLARE LONG CONSTANT GSD$C_ENV = 8 ! Define environment ; DECLARE LONG CONSTANT GSD$C_LSY = 9 ! Local symbol S DECLARE LONG CONSTANT GSD$C_LEPM = 10 ! Local symbol entry point definition Q DECLARE LONG CONSTANT GSD$C_LPRO = 11 ! Local symbol procedure definition P DECLARE LONG CONSTANT GSD$C_SPSC = 12 ! Shareable image psect definition   ! < DECLARE LONG CONSTANT GSD$C_VECTOR_TYPE_INCREMENT = 12Y DECLARE LONG CONSTANT GSD$C_SYMV = 13 ! Vectored ( dual-valued ) versions of SYM,4 DECLARE LONG CONSTANT GSD$C_EPMV = 14 ! EPM,3 DECLARE LONG CONSTANT GSD$C_PROV = 15 ! PRO ! : DECLARE LONG CONSTANT GSD$C_MASK_TYPE_INCREMENT = 15F DECLARE LONG CONSTANT GSD$C_SYMM = 16 ! Masked versions of SYM,9 DECLARE LONG CONSTANT GSD$C_EPMM = 17 ! EPM,8 DECLARE LONG CONSTANT GSD$C_PR OM = 18 ! PROO DECLARE LONG CONSTANT GSD$C_MAXRECTYP = 18 ! Maximum entry type defined + DECLARE LONG CONSTANT GSD$S_GSDEF = 2 record GSDEFI BYTE GSD$B_RECTYP ! Record type ( OBJ$C_GSD ) U BYTE GSD$B_GSDTYP ! Type of entry ( first byte of entry ) O ! Vectored symbol types are (regular + 12). For example, SYMV = SYM + 12. ! K ! Mask symbol types are (regular + 15). For example, SYMM = SYM + 15. !  end record GSDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ' ! GSD entry - P-section definition ! 3 DECLARE LONG CONSTANT GPS$M_PIC = x'00000001'3 DECLARE LONG CONSTANT GPS$M_LIB = x'00000002'3 DECLARE LONG CONSTANT GPS$M_OVR = x' 00000004'3 DECLARE LONG CONSTANT GPS$M_REL = x'00000008'3 DECLARE LONG CONSTANT GPS$M_GBL = x'00000010'3 DECLARE LONG CONSTANT GPS$M_SHR = x'00000020'3 DECLARE LONG CONSTANT GPS$M_EXE = x'00000040'2 DECLARE LONG CONSTANT GPS$M_RD = x'00000080'3 DECLARE LONG CONSTANT GPS$M_WRT = x'00000100'3 DECLARE LONG CONSTANT GPS$M_VEC = x'00000200'5 DECLARE LONG CONSTANT GPS$M_NOMOD = x'00000400'3 DECLARE LONG CONSTANT GPS$M_COM = x'00000800'* DECLARE LONG CONSTANT GPS$K_NAME = 9* DECLARE LONG CONSTANT GPS$C_NAME = 9- DECLARE LONG CONSTANT GPS$S_GPSDEF = 40 record GPSDEF# group GPS$R_GSDTYP_OVERLAY variant case8 BYTE GPS$B_GSDTYP ! Typ field  case+ group GPS$R_GSDTYP_FIELDS+ STRING GPS$T_START = 0) BYTE GPSDEF$$_FILL_1/ end group GPS$R_GSDTYP_FIELDS  end variant' end group GPS$R_GSDTYP_OVERLAY? BYTE GPS$B_ALIGN ! P-sect alignment " group GPS$R_FLAGS_OVERLAY variant case; WORD GPS$W_FLAGS ! P-sect flags  case( group GPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM symh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_15, end group GPS$R_FLAGS_BITS end vari ant& end group GPS$R_FLAGS_OVERLAYJ LONG GPS$L_ALLOC ! Length of this contribution D BYTE GPS$B_NAMLNG ! Length of p-sect name 9 STRING GPS$T_NAME = 31 ! Name field  end record GPSDEF  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! : ! GSD entry - P-section definition in shareable image ! 4 DECLARE LONG CONSTANT SGPS$M_PIC = x'00000001'4 DECLARE LONG CONSTANT SGPS$M_LIB = x'00000002'4 DECLARE LONG CONST ANT SGPS$M_OVR = x'00000004'4 DECLARE LONG CONSTANT SGPS$M_REL = x'00000008'4 DECLARE LONG CONSTANT SGPS$M_GBL = x'00000010'4 DECLARE LONG CONSTANT SGPS$M_SHR = x'00000020'4 DECLARE LONG CONSTANT SGPS$M_EXE = x'00000040'3 DECLARE LONG CONSTANT SGPS$M_RD = x'00000080'4 DECLARE LONG CONSTANT SGPS$M_WRT = x'00000100'4 DECLARE LONG CONSTANT SGPS$M_VEC = x'00000200'6 DECLARE LONG CONSTANT SGPS$M_NOMOD = x'00000400'4 DECLARE LONG CONSTANT SGPS$M_COM = x'00000800', DECLARE LONG CONSTANT SGPS$K_NAME = 13, DECLARE LONG CONSTANT SGPS$C_NAME = 13/ DECLARE LONG CONSTANT SGPS$S_SGPSDEF = 44 record SGPSDEF$ group SGPS$R_GSDTYP_OVERLAY variant case8 BYTE SGPS$B_GSDTYP ! Typ field  case, group SGPS$R_GSDTYP_FIELDS, STRING SGPS$T_START = 0* BYTE SGPSDEF$$_FILL_10 end group SGPS $R_GSDTYP_FIELDS end variant( end group SGPS$R_GSDTYP_OVERLAY? BYTE SGPS$B_ALIGN ! P-sect alignment # group SGPS$R_FLAGS_OVERLAY variant case; WORD SGPS$W_FLAGS ! P-sect flags  case) group SGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory alloca tion $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM symh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_16- end group SGPS$R_F LAGS_BITS end variant' end group SGPS$R_FLAGS_OVERLAYP LONG SGPS$L_ALLOC ! Length of this psect in shr image N LONG SGPS$L_BASE ! Base of this psect in shr image D BYTE SGPS$B_NAMLNG ! Length of p-sect name 9 STRING SGPS$T_NAME = 31 ! Name field  end record SGPSDEF  ww 68PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! $ ! GSD entry - Symbol definition ! 3 ! common to definitions, references, and entry ! point definitions. ! 4 DECLARE LONG CONSTANT GSY$M_WEAK = x'00000001'3 DECL ARE LONG CONSTANT GSY$M_DEF = x'00000002'3 DECLARE LONG CONSTANT GSY$M_UNI = x'00000004'3 DECLARE LONG CONSTANT GSY$M_REL = x'00000008'4 DECLARE LONG CONSTANT GSY$M_COMM = x'00000010', DECLARE LONG CONSTANT GSY$S_GSYDEF = 4 record GSYDEF# group GSY$R_GSDTYP_OVERLAY variant case9 BYTE GSY$B_GSDTYP ! Type field  case+ group GSY$R_GSDTYP_FIELDS+ STRING GSY$T_START = 0) BYTE GSYDEF$$_FILL_1/ end group GSY$R_GSDTYP_FIELDS end variant' end group GSY$R_GSDTYP_OVERLAY? BYTE GSY$B_DATYP ! Symbol data type " group GSY$R_FLAGS_OVERLAY variant case; WORD GSY$W_FLAGS ! Symbol flags  case( group GSY$R_FLAGS_BITS$ ! Weak symbol # ! Definition " ! Universal $ ! Relocatable * ! C common globaldefk BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through fill_17, end group GSY$R_FLAGS_BITS end variant& end group GSY$R_FLAGS_OVERLAY end record GSYDEF  wwf~PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 7 ! Symbol reference (SYM$M_DEF in GSY$W_FLAGS is 0) ! * DECLARE LONG CONSTANT SRF$K_NAME = 5* DECLARE LONG CONSTANT SRF$C_NAME = 5- DECLARE LONG CONSTANT SRF$S_SRFDEF = 36  record SRFDEF# group SRF$R_GSDTYP_OVERLAY variant caseE BYTE SRF$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group SRF$R_GSDTYP_FIELDS+ STRING SRF$T_START = 0) BYTE SRFDEF$$_FILL_1/ end group SRF$R_GSDTYP_FIELDS end variant' end group SRF$R_GSDTYP_OVERLAYD BYTE SRF$B_DATYP ! Maps over GSY$B_DATYP D WORD SRF$W_FLAGS ! Maps over GSY$W_FLAGS D BYTE SRF$B_NAMLNG ! Length of symbol name : STRING SRF$T_NAME = 31 ! Symbol name  end record SRFDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! Symbol definition ! + DECLARE LONG CONSTANT SDF$K_NAME = 10+ DECLARE LONG CONSTANT SDF$C_NAME = 10- DECLARE LONG CONSTANT SDF$S_SDFDEF = 41 record SDFDEF#  group SDF$R_GSDTYP_OVERLAY variant caseE BYTE SDF$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group SDF$R_GSDTYP_FIELDS+ STRING SDF$T_START = 0) BYTE SDFDEF$$_FILL_1/ end group SDF$R_GSDTYP_FIELDS end variant' end group SDF$R_GSDTYP_OVERLAYD BYTE SDF$B_DATYP ! Maps over GSY$B_DATYP D W ORD SDF$W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDF$B_PSINDX ! Owning psect number > LONG SDF$L_VALUE ! Value of symbol = BYTE SDF$B_NAMLNG ! Length of name : STRING SDF$T_NAME = 31 ! Symbol name  end record SDFDEF  ww4PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! - ! Symbol definition for vectored symbols ! , DECLARE LONG CONSTANT SDFV$K_NAME = 14, DECLARE LONG CONSTANT SDFV$C_NAME = 14/ DECLARE LONG CONSTANT SDFV$S_SDFVDEF = 45  record SDFVDEF$ group SDFV$R_GSDTYP_OVERLAY variant caseE BYTE SDFV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFV$R_GSDTYP_FIELDS, STRING SDFV$T_START = 0* BYTE SDFVDEF$$_FILL_10 end group SDFV$R_GSDTYP_FIELDS end variant( end group SDFV$R_GSDTYP_OVERLAYD BYTE SDFV$B_DATYP ! Maps over GSY$B_DATYP D WORD SDFV$W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDFV$B_PSINDX ! Owning psect number > LONG SDFV$L_VALUE ! Value of symbol F LONG SDFV$L_VECTOR ! Vectored value of symbol= BYTE SDFV$B_NAMLNG ! Length of name : STRING SDFV$T_NAME = 31 ! Symbol name  end record SDFVDEF  wwJPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 1 ! Symbol definition for version mask symbols ! , DECLARE LONG CONSTANT SDFM$K_NAME = 14, DECLARE LONG CONSTANT SDFM$C_NAME = 14/ DECLARE LONG CONSTANT SDFM$S_SDFMDEF = 45  record SDFMDEF$ group SDFM$R_GSDTYP_OVERLAY variant caseE BYTE SDFM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFM$R_GSDTYP_FIELDS, STRING SDFM$T_START = 0* BYTE SDFMDEF$$_FILL_10 end group SDFM$R_GSDTYP_FIELDS end variant( end group SDFM$R_GSDTYP_OVERLAYD BYTE SDFM$B_DATYP ! Maps o ver GSY$B_DATYP D WORD SDFM$W_FLAGS ! Maps over GSY$W_FLAGS B BYTE SDFM$B_PSINDX ! Owning psect number > LONG SDFM$L_VALUE ! Value of symbol = LONG SDFM$L_VERSION_MASK ! Mask for symbol= BYTE SDFM$B_NAMLNG ! Length of name : STRING SDFM$T_NAME = 31 ! Symbol name  end record SDFMDEF  ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 9 ! GSD entry - Entry point definition, normal symbols ! + DECLARE LONG CONSTANT EPM$K_NAME = 12+ DECLARE LONG CONSTANT EPM$C_NAME = 12- DECLARE LONG CONSTANT EPM$S_EPMDEF = 43 record EPMDEF# group EPM$R_GSDTYP_OVERLAY variant caseE BYTE EPM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group EPM$R_GSDTYP_FIELDS+ STRING EPM$T_START = 0) BYTE EPMDEF$$_FILL_1/ end group EPM$R_GSDTYP_FIELDS end variant' end group EPM$R_GSDTYP_OVERLAYD BYTE EPM$B_DATYP ! Maps over GSY$B_DATYP D WORD EPM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ? WORD EPM$W_MASK ! Entry point mask = BYTE EPM$B_NAMLNG ! Length of name : STRING EPM$T_NAME = 31 ! Symbol name  end record EPMDEF  ww."PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD1% %LET %BASIC$QUADWORD_DECLARED = 1P %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD$% %LET %BASIC$OCTAWORD_DECLARED = 1M %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI2PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ; ! GSD entry - Entry point definition, vectored symbols ! , DECLARE LONG CONSTANT EPMV$K_NAME = 16, DECLARE LONG CONSTANT EPMV$C_NAME = 16/ DECLARE LONG CONSTANT EPMV$S_EPMVDEF = 47 record EPMVDEF$ group EPMV$R_GSDTYP_OVERLAY variant caseE BYTE EPMV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMV$R_GSDTYP_FIELDS, STRING EPMV$T_START = 0* BYTE EPMVDEF$$_FILL_10 end group EPMV$R_GSDTYP_FIELDS end variant( end group EPMV$R_GSDTYP_OVERLAYD BYTE EPMV$B_DATYP  ! Maps over GSY$B_DATYP D WORD EPMV$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPMV$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPMV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE J LONG EPMV$L_VECTOR ! Vectored entry point address? WORD EPMV$W_MASK ! Entry point mask = BYTE EPMV$B_NAMLNG ! Length of name : STRING EPMV$T_NAME = 31  ! Symbol name  end record EPMVDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ? ! GSD entry - Entry point definition, version mask symbols ! , DECLARE LONG CONSTANT EPMM$K_NAME = 16, DECLARE LONG CONSTANT EPMM$C_NAME = 16/ DECLARE LONG CONSTANT EPMM$S_EPMMDEF = 47 record EPMMDEF$ group EPMM$R_GSDTYP_OVERLAY variant caseE BYTE EPMM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMM$R_GSDTYP_FIELDS, STRING EPMM$T_START = 0* BYTE EPMMDEF$$_FILL_10 end group EPMM$R_GSDTYP_FIELDS end variant( end group EPMM$R_GSDTYP_OVERLAYD BYTE EPMM$B_DATYP  ! Maps over GSY$B_DATYP D WORD EPMM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE EPMM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG EPMM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE C LONG EPMM$L_VERSION_MASK ! Mask value for symbol? WORD EPMM$W_MASK ! Entry point mask = BYTE EPMM$B_NAMLNG ! Length of name : STRING EPMM$T_NAME = 31  ! Symbol name  end record EPMMDEF  ww ]PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 7 ! GSD entry - Procedure definition, normal symbols ! + DECLARE LONG CONSTANT PRO$K_NAME = 12+ DECLARE LONG CONSTANT PRO$C_NAME = 12- DECLARE LONG CONSTANT PRO$S_PRODEF = 43 record PRODEF# group PRO$R_GSDTYP_OVERLAY variant caseE BYTE PRO$B_GSDTYP ! Maps over GSY$B_GSDTYP  case+ group PRO$R_GSDTYP_FIELDS+ STRING PRO$T_START = 0) BYTE PRODEF$$_FILL_1/ end group PRO$R_GSDTYP_FIELDS end variant' end group PRO$R_GSDTYP_OVERLAYD BYTE PRO$B_DATYP ! Ma ps over GSY$B_DATYP D WORD PRO$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PRO$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PRO$L_ADDRS ! Entry point address, maps over SDF$L_VALUE ? WORD PRO$W_MASK ! Entry point mask = BYTE PRO$B_NAMLNG ! Length of name : STRING PRO$T_NAME = 31 ! Symbol name  end record PRODEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 9 ! GSD entry - Procedure definition, vectored symbols ! , DECLARE LONG CONSTANT PROV$K_NAME = 16, DECLARE LONG CONSTANT PROV$C_NAME = 16/ DECLARE LONG CONSTANT PROV$S_PROVDEF = 47 record PROVDEF$ group PROV$R_GSDTYP_OVERLAY variant caseE BYTE PROV$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROV$R_GSDTYP_FIELDS, STRING PROV$T_START = 0* BYTE PROVDEF$$_FILL_10 end group PROV$R_GSDTYP_FIELDS end variant( end group PROV$R_GSDTYP_OVERLAYD BYTE PROV$B_DATYP ! Maps over GSY$B_DATYP D WORD PROV$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PROV$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PROV$L_ADDRS ! Entry point address, maps over SDF$L_VALUE J LONG PROV$L_VECTOR ! Vectored entry point address? WORD PROV$W_MASK ! Entry point mask = BYTE PROV$B_NAMLNG ! Length of name : STRING PROV$T_NAME = 31  ! Symbol name  end record PROVDEF  wwTPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! = ! GSD entry - Procedure definition, version mask symbols ! , DECLARE LONG CONSTANT PROM$K_NAME = 16, DECLARE LONG CONSTANT PROM$C_NAME = 16/ DECLARE LONG CONSTANT PROM$S_PROMDEF = 47 record PROMDEF$ group PROM$R_GSDTYP_OVERLAY variant caseE BYTE PROM$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROM$R_GSDTYP_FIELDS, STRING PROM$T_START = 0* BYTE PROMDEF$$_FILL_10 end group PROM$R_GSDTYP_FIELDS end variant( end group PROM$R_GSDTYP_OVERLAYD BYTE PROM$B_DATYP  ! Maps over GSY$B_DATYP D WORD PROM$W_FLAGS ! Maps over GSY$W_FLAGS E BYTE PROM$B_PSINDX ! Maps over SDF$B_PSINDX Y LONG PROM$L_ADDRS ! Entry point address, maps over SDF$L_VALUE C LONG PROM$L_VERSION_MASK ! Mask value for symbol? WORD PROM$W_MASK ! Entry point mask = BYTE PROM$B_NAMLNG ! Length of name : STRING PROM$T_NAME = 31  ! Symbol name  end record PROMDEF  wwk%PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! C ! Appended to a procedure definition are the formal arguments:G ! FML$ - The fixed part of the formal arguments description ! * DECLARE LONG CONSTANT FML$K_SIZE = 2* DECLARE LONG CONSTANT FML$C_SIZE = 2, DECLARE LONG CONSTANT FML$S_FMLDEF = 2 record FMLDEFJ BYTE FML$B_MINARGS ! Minimum number of arguments a BYTE FML$B_MAXARGS ! Maximum which include function if procedure is one  end record FMLDEF  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! - ! ARG$ - The argument descriptors ! I DECLARE LONG CONSTANT ARG$C_UNKNOWN = 0 ! Unspecified or unknown @ DECLARE LONG CONSTANT ARG$C_VALUE = 1 ! Passed by value C  DECLARE LONG CONSTANT ARG$C_REF = 2 ! Passed by reference D DECLARE LONG CONSTANT ARG$C_DESC = 3 ! Passed by descriptor * DECLARE LONG CONSTANT ARG$K_SIZE = 2* DECLARE LONG CONSTANT ARG$C_SIZE = 2, DECLARE LONG CONSTANT ARG$S_ARGDEF = 2 record ARGDEF# group ARG$R_VALCTL_OVERLAY variant caseF BYTE ARG$B_VALCTL ! Validation control byte  case) group ARG$R_VALCTL _BITS* ! Passing mechanism w BYTE PASSMECH_bits ! COMMENT ADDED BY SDL - PASSMECH_bits contains bits PASSMECH through fill_18- end group ARG$R_VALCTL_BITS ! Passing mechanisms  end variant' end group ARG$R_VALCTL_OVERLAYC BYTE ARG$B_BYTECNT ! Remaining byte count  end record ARGDEF  wwEPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 1 ! Symbol definition with word of psect value ! , DECLARE LONG CONSTANT SDFW$K_NAME = 11, DECLARE LONG CONSTANT SDFW$C_NAME = 11/ DECLARE LONG CONSTANT SDFW$S_SDFWDEF = 42  record SDFWDEF$ group SDFW$R_GSDTYP_OVERLAY variant caseE BYTE SDFW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group SDFW$R_GSDTYP_FIELDS, STRING SDFW$T_START = 0* BYTE SDFWDEF$$_FILL_10 end group SDFW$R_GSDTYP_FIELDS end variant( end group SDFW$R_GSDTYP_OVERLAYD BYTE SDFW$B_DATYP ! Maps o ver GSY$B_DATYP D WORD SDFW$W_FLAGS ! Maps over GSY$W_FLAGS B WORD SDFW$W_PSINDX ! Owning psect number > LONG SDFW$L_VALUE ! Value of symbol = BYTE SDFW$B_NAMLNG ! Length of name : STRING SDFW$T_NAME = 31 ! Symbol name  end record SDFWDEF  wwvPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! B ! GSD entry - Entry point definition with word of psect value ! , DECLARE LONG CONSTANT EPMW$K_NAME = 13, DECLARE LONG CONSTANT EPMW$C_NAME = 13/ DECLARE LONG CONSTANT EPMW $S_EPMWDEF = 44 record EPMWDEF$ group EPMW$R_GSDTYP_OVERLAY variant caseE BYTE EPMW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EPMW$R_GSDTYP_FIELDS, STRING EPMW$T_START = 0* BYTE EPMWDEF$$_FILL_10 end group EPMW$R_GSDTYP_FIELDS end variant( end group EPMW$R_GSDTYP_OVERLAYD BYTE EPMW$B_DATYP ! Maps over GSY$B_DATYP D WORD EPMW$W_FLAGS ! Maps over GSY$W_FLAGS F WORD EPMW$W_PSINDX ! Maps over SDFW$W_PSINDX Z LONG EPMW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE ? WORD EPMW$W_MASK ! Entry point mask = BYTE EPMW$B_NAMLNG ! Length of name : STRING EPMW$T_NAME = 31 ! Symbol name  end record EPMWDEF  ww  ;PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! @ ! GSD entry - Procedure definition with word of psect value ! , DECLARE LONG CONSTANT PROW$K_NAME = 13, DECLARE LONG CONSTANT PROW$C_NAME = 13/ DECLARE LONG CONSTANT PROW$S_PROWDEF = 44 record PROWDEF$ group PROW$R_GSDTYP_OVERLAY variant caseE BYTE PROW$B_GSDTYP ! Maps over GSY$B_GSDTYP  case, group PROW$R_GSDTYP_FIELDS, STRING PROW$T_START = 0* BYTE PROWDEF$$_FILL_10 end group PROW$R_GSDTYP_FIELDS end variant( end group PROW$R_GSDTYP_OVERLAYD BYTE PROW$B_DATYP ! Maps over GSY$B_DATYP D WORD PROW$W_FLAGS ! Maps over GSY$W_FLAGS F WORD PROW$W_PSINDX ! Maps over SDFW$W_PSINDX Z LONG PROW$L_ADDRS ! Entry point address, maps over SDFW$L_VALUE ? WORD PROW$W_MASK ! Entry point mask = BYTE PROW$B_NAMLNG ! Length of name : STRING PROW$T_NAME = 31 ! Symbol name  end record PROWDEF  ww ؂PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! IDC - Random entity ident consistency check ! ) DECLARE LONG CONSTANT IDC$C_LEQ = 0+ DECLARE LONG CONSTANT IDC$C_EQUAL = 1, DECLARE LONG CONSTANT IDC$S_IDCDEF = 4  record IDCDEF9 BYTE IDC$B_GSDTYP ! Type field " group IDC$R_FLAGS_OVERLAY variant case4 WORD IDC$W_FLAGS ! Flags  case( group IDC$R_FLAGS_BITSC ! Ident is binary longword rather than ASCIC F ! Field for ident match control if binary ident > ! Error severity (default is warning-0) w BYT E BINIDENT_bits ! COMMENT ADDED BY SDL - BINIDENT_bits contains bits BINIDENT through fill_19, end group IDC$R_FLAGS_BITS ! Match control values  end variant& end group IDC$R_FLAGS_OVERLAY# group IDC$R_NAMLNG_OVERLAY variant caseD BYTE IDC$B_NAMLNG ! Length of entity name  case+ group IDC$R_NAMLNG_FIELDS) BYTE IDCDEF$$_FILL_1/  STRING IDC$T_NAME = 0 !  ! Followed by entity name ! Followed by" ! byte of ident length; ! ident string (length = string length) ! or5 ! ident binary value (length = 4)3 ! Followed by byte of length of name of object" ! Followed by the object name/ end group IDC$R_NAMLNG_FIELDS end variant' end group IDC$R_NAMLNG_OVERLAY end record IDCDEF  ww@PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! , ! ENV - Define/reference an environment ! 3 DECLARE LONG CONSTANT ENV$M_DEF = x'00000001'6 DECLARE LONG CONSTANT ENV$M_NESTED = x'00000002'- DECLARE LONG CONSTANT ENV$S_EN VDEF = 37 record ENVDEF9 BYTE ENV$B_GSDTYP ! Type field " group ENV$R_FLAGS_OVERLAY variant case@ WORD ENV$W_FLAGS ! Environment flags  case( group ENV$R_FLAGS_BITS2 ! Definition of environment 1 ! Nested environment if seth BYTE DEF_bits ! COMMENT ADDED BY SDL - DEF_bits contains bits DEF through f ill_20, end group ENV$R_FLAGS_BITS end variant& end group ENV$R_FLAGS_OVERLAYJ WORD ENV$W_ENVINDX ! Index of parent environment I BYTE ENV$B_NAMLNG ! Length of environment name ? STRING ENV$T_NAME = 31 ! Environment name  end record ENVDEF  ww9PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! LSY - Module-Local symbol definition ! Q ! Common to definitions, references, entry points, and procedure definitions ! 4 DECLARE LONG CONSTANT LSY$M_WEAK = x'00000001'3  DECLARE LONG CONSTANT LSY$M_DEF = x'00000002'3 DECLARE LONG CONSTANT LSY$M_UNI = x'00000004'3 DECLARE LONG CONSTANT LSY$M_REL = x'00000008', DECLARE LONG CONSTANT LSY$S_LSYDEF = 6 record LSYDEF# group LSY$R_GSDTYP_OVERLAY variant case9 BYTE LSY$B_GSDTYP ! Type field  case+ group LSY$R_GSDTYP_FIELDS+ STRING LSY$T_START = 0)   BYTE LSYDEF$$_FILL_1/ end group LSY$R_GSDTYP_FIELDS end variant' end group LSY$R_GSDTYP_OVERLAY: BYTE LSY$B_DATYP ! Symbol type " group LSY$R_FLAGS_OVERLAY variant case; WORD LSY$W_FLAGS ! Symbol flags  case( group LSY$R_FLAGS_BITS/ ! Weak symbol (not used) ' ! Defined symbol - ! Universal (not used) $ ! Relocatable k BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through fill_21, end group LSY$R_FLAGS_BITS end variant& end group LSY$R_FLAGS_OVERLAY@ WORD LSY$W_ENVINDX ! Environment index  end record LSYDEF  ww"SPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI#NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET$ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! D ! Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) ! + DECLARE LONG CONSTANT LSRF$K_NAME = 7+ DECLARE LONG CONSTANT LSRF$C_NAME = 7/ DECLARE LONG CONSTANT LS%RF$S_LSRFDEF = 38 record LSRFDEF$ group LSRF$R_GSDTYP_OVERLAY variant caseE BYTE LSRF$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LSRF$R_GSDTYP_FIELDS, STRING LSRF$T_START = 0* BYTE LSRFDEF$$_FILL_10 end group LSRF$R_GSDTYP_FIELDS end variant( end group LSRF$R_GSDTYP_OVERLAYD BYTE LSRF$B_DATYP ! Maps over LSY$B_DATYP D WORD LSRF$W_FLAGS ! Maps over LSY$W_FLAGS F WORD LSRF$W_ENVINDX ! Maps over LSY$W_ENVINDX D BYTE LSRF$B_NAMLNG ! Length of symbol name : STRING LSRF$T_NAME = 31 ! Symbol name  end record LSRFDEF  ww W*PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )M END RECORDE% %LET %BASIC$QUADWORD_DECLARED = 1$ %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )0 END RECORDT% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI(PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI)NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET* %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! % ! Module-local Symbol definition ! , DECLARE LONG CONSTANT LSDF$K_NAME = 13, DECLARE LONG CONSTANT LSDF$C_NAME = 13/ DECLARE LONG CONSTANT LSDF$S_LSDFDEF = 44 reco +rd LSDFDEF$ group LSDF$R_GSDTYP_OVERLAY variant caseE BYTE LSDF$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LSDF$R_GSDTYP_FIELDS, STRING LSDF$T_START = 0* BYTE LSDFDEF$$_FILL_10 end group LSDF$R_GSDTYP_FIELDS end variant( end group LSDF$R_GSDTYP_OVERLAYD BYTE LSDF$B_DATYP ! Maps over LSY$B_DA TYP D WORD LSDF$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LSDF$W_ENVINDX ! Environment index symbol defined in B WORD LSDF$W_PSINDX ! Owning psect number > LONG LSDF$L_VALUE ! Value of symbol = BYTE LSDF$B_NAMLNG ! Length of name : STRING LSDF$T_NAME = 31 ! Symbol name  end record LSDFDEF  ww-8PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI.NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET/ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 6 ! GSD entry - Module local entry point definition ! , DECLARE LONG CONSTANT LEPM$K_NAME = 15, DECLARE LONG CONSTANT LEPM$C_NAME = 15/ DECLARE LONG CONSTANT LEPM$S_LEPMDEF =0 46 record LEPMDEF$ group LEPM$R_GSDTYP_OVERLAY variant caseE BYTE LEPM$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LEPM$R_GSDTYP_FIELDS, STRING LEPM$T_START = 0* BYTE LEPMDEF$$_FILL_10 end group LEPM$R_GSDTYP_FIELDS end variant( end group LEPM$R_GSDTYP_OVERLAYD BYTE LEPM$B_DATYP ! Ma 1ps over LSY$B_DATYP D WORD LEPM$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LEPM$W_ENVINDX ! Environment index symbol defined in F WORD LEPM$W_PSINDX ! Maps over LSDF$W_PSINDX H LONG LEPM$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE? WORD LEPM$W_MASK ! Entry point mask = BYTE LEPM$B_NAMLNG ! Length of name : STRING LEPM$T_NAME = 31 ! Symbol name  end record LEPMDEF  ww3[ PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI4NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET5 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 4 ! GSD entry - Module Local Procedure definition ! , DECLARE LONG CONSTANT LPRO$K_NAME = 15, DECLARE LONG CONSTANT LPRO$C_NAME = 15/ DECLARE LONG CONSTANT LPRO$S_LPRODEF = 466 record LPRODEF$ group LPRO$R_GSDTYP_OVERLAY variant caseE BYTE LPRO$B_GSDTYP ! Maps over LSY$B_GSDTYP  case, group LPRO$R_GSDTYP_FIELDS, STRING LPRO$T_START = 0* BYTE LPRODEF$$_FILL_10 end group LPRO$R_GSDTYP_FIELDS end variant( end group LPRO$R_GSDTYP_OVERLAYD BYTE LPRO$B_DATYP ! Maps 7 over LSY$B_DATYP D WORD LPRO$W_FLAGS ! Maps over LSY$W_FLAGS R WORD LPRO$W_ENVINDX ! Environment index symbol defined in F WORD LPRO$W_PSINDX ! Maps over LSDF$W_PSINDX H LONG LPRO$L_ADDRS ! Entry point address, maps  ! over LSDF$L_VALUE? WORD LPRO$W_MASK ! Entry point mask = BYTE LPRO$B_NAMLNG ! Length of name : STRING LPRO$T_NAME = 31 ! Symbol name  end record LPRODEF  ww9 PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI:NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET; %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 4 ! Text, information and relocation record (TIR) ! K DECLARE LONG CONSTANT TIR$C_STA_GBL = 0 ! Stack global symbol value B DECLARE LONG CONSTANT TIR$C_STA_SB = 1 ! Stack signed< byte B DECLARE LONG CONSTANT TIR$C_STA_SW = 2 ! Stack signed word ? DECLARE LONG CONSTANT TIR$C_STA_LW = 3 ! Stack longword R DECLARE LONG CONSTANT TIR$C_STA_PB = 4 ! Stack psect base plus byte offset R DECLARE LONG CONSTANT TIR$C_STA_PW = 5 ! Stack psect base plus word offset V DECLARE LONG CONSTANT TIR$C_STA_PL = 6 ! Stack psect base plus longword offset D DECLARE LONG CONSTANT TIR$C_STA_UB = 7 ! Stack unsigned byte D DECLARE LONG CONSTANT TIR$C_STA_=UW = 8 ! Stack unsigned word G DECLARE LONG CONSTANT TIR$C_STA_BFI = 9 ! Stack byte from image H DECLARE LONG CONSTANT TIR$C_STA_WFI = 10 ! Stack word from image L DECLARE LONG CONSTANT TIR$C_STA_LFI = 11 ! Stack longword from image I DECLARE LONG CONSTANT TIR$C_STA_EPM = 12 ! Stack entry point mask i DECLARE LONG CONSTANT TIR$C_STA_CKARG = 13 ! Stack result of argument checking ( true or false ) i DECLARE LONG CONSTANT TIR$C_STA_WPB = 14 ! Stack psect ba>se plus byte offset -- word psect number i DECLARE LONG CONSTANT TIR$C_STA_WPW = 15 ! Stack psect base plus word offset -- word psect number p DECLARE LONG CONSTANT TIR$C_STA_WPL = 16 ! Stack psect base plus longword offset -- word of psect number K DECLARE LONG CONSTANT TIR$C_STA_LSY = 17 ! Stack local symbol value @ DECLARE LONG CONSTANT TIR$C_STA_LIT = 18 ! Stack literal W DECLARE LONG CONSTANT TIR$C_STA_LEPM = 19 ! Stack local symbol entry point mask V ?DECLARE LONG CONSTANT TIR$C_MAXSTACOD = 19 ! Last assigned code of stack group V DECLARE LONG CONSTANT TIR$C_MINSTOCOD = 20 ! First assigned store command code C DECLARE LONG CONSTANT TIR$C_STO_SB = 20 ! Store signed byte C DECLARE LONG CONSTANT TIR$C_STO_SW = 21 ! Store signed word ? DECLARE LONG CONSTANT TIR$C_STO_L = 22 ! Store longword F DECLARE LONG CONSTANT TIR$C_STO_BD = 23 ! Store byte displaced F DECLARE LONG CONSTANT TIR$C_STO_WD = 24 ! Store wor@d displaced J DECLARE LONG CONSTANT TIR$C_STO_LD = 25 ! Store longword displaced E DECLARE LONG CONSTANT TIR$C_STO_LI = 26 ! Store short literal T DECLARE LONG CONSTANT TIR$C_STO_PIDR = 27 ! Store pos. indep. data reference T DECLARE LONG CONSTANT TIR$C_STO_PICR = 28 ! Store pos. indep. code reference M DECLARE LONG CONSTANT TIR$C_STO_RSB = 29 ! Store repeated signed byte M DECLARE LONG CONSTANT TIR$C_STO_RSW = 30 ! Store repeated signed word I DECLARAE LONG CONSTANT TIR$C_STO_RL = 31 ! Store repeated longword H DECLARE LONG CONSTANT TIR$C_STO_VPS = 32 ! Store arbitrary field F DECLARE LONG CONSTANT TIR$C_STO_USB = 33 ! Store unsigned byte F DECLARE LONG CONSTANT TIR$C_STO_USW = 34 ! Store unsigned word O DECLARE LONG CONSTANT TIR$C_STO_RUB = 35 ! Store repeated unsigned byte O DECLARE LONG CONSTANT TIR$C_STO_RUW = 36 ! Store repeated unsigned word ; DECLARE LONG CONSTANT TIR$C_STO_B = 37 ! Store byte B; DECLARE LONG CONSTANT TIR$C_STO_W = 38 ! Store word E DECLARE LONG CONSTANT TIR$C_STO_RB = 39 ! Store repeated byte E DECLARE LONG CONSTANT TIR$C_STO_RW = 40 ! Store repeated word [ DECLARE LONG CONSTANT TIR$C_STO_RIVB = 41 ! Store repeated immediate variable bytes X DECLARE LONG CONSTANT TIR$C_STO_PIRR = 42 ! Store pos. indep. relative reference U DECLARE LONG CONSTANT TIR$C_MAXSTOCOD = 42 ! Last assigned store command code Y DECLARE LONG CONSTAN CT TIR$C_MINOPRCOD = 50 ! First assigned operator command code 8 DECLARE LONG CONSTANT TIR$C_OPR_NOP = 50 ! No-op 6 DECLARE LONG CONSTANT TIR$C_OPR_ADD = 51 ! Add ; DECLARE LONG CONSTANT TIR$C_OPR_SUB = 52 ! Subtract ; DECLARE LONG CONSTANT TIR$C_OPR_MUL = 53 ! Multiply 9 DECLARE LONG CONSTANT TIR$C_OPR_DIV = 54 ! Divide > DECLARE LONG CONSTANT TIR$C_OPR_AND = 55 ! Logical AND G DECLARE LONG CONSTANT TIR$C_OPR_IOR = 56 ! Logical inclusive OR G D DECLARE LONG CONSTANT TIR$C_OPR_EOR = 57 ! Logical exclusive OR 9 DECLARE LONG CONSTANT TIR$C_OPR_NEG = 58 ! Negate = DECLARE LONG CONSTANT TIR$C_OPR_COM = 59 ! Complement D DECLARE LONG CONSTANT TIR$C_OPR_INSV = 60 ! Insert bit field C DECLARE LONG CONSTANT TIR$C_OPR_ASH = 61 ! Arithmetic shift A DECLARE LONG CONSTANT TIR$C_OPR_USH = 62 ! Unsigned shift 9 DECLARE LONG CONSTANT TIR$C_OPR_ROT = 63 ! Rotate ` DECLARE LONG CONSTANT TIR$C_OPR_SEL = E64 ! Select one of three longwords on top of stack V DECLARE LONG CONSTANT TIR$C_OPR_REDEF = 65 ! Redefine this symbol after pass 2 E DECLARE LONG CONSTANT TIR$C_OPR_DFLIT = 66 ! Define a literal X DECLARE LONG CONSTANT TIR$C_MAXOPRCOD = 66 ! Last assigned operator command code X DECLARE LONG CONSTANT TIR$C_MINCTLCOD = 80 ! First assigned control command code H DECLARE LONG CONSTANT TIR$C_CTL_SETRB = 80 ! Set relocation base L DECLARE LONG CONSTANT TIR$C_CTL_ FAUGRB = 81 ! Augment relocation base J DECLARE LONG CONSTANT TIR$C_CTL_DFLOC = 82 ! Define debug location G DECLARE LONG CONSTANT TIR$C_CTL_STLOC = 83 ! Set debug location I DECLARE LONG CONSTANT TIR$C_CTL_STKDL = 84 ! Stack debug location W DECLARE LONG CONSTANT TIR$C_MAXCTLCOD = 84 ! Last assigned control command code , DECLARE LONG CONSTANT TIR$S_TIRDEF = 1 record TIRDEF variant caseI BYTE TIR$B_RECTYP ! Record type ( OBJ$C_TIR ) " ! Define relocation commands  end variant end record TIRDEF  ! + ! EVAX dependent structures start here !  wwH` PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETJ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! J ! These are the record types defined for VAX and EVAX object records.G ! Some types are only recognized in one format of object file, but8 ! the types must be a single set of distinct Kcodes. ! H DECLARE LONG CONSTANT EOBJ$C_EMH = 8 ! EVAX module header record I DECLARE LONG CONSTANT EOBJ$C_EEOM = 9 ! EVAX end of module record U DECLARE LONG CONSTANT EOBJ$C_EGSD = 10 ! EVAX global symbol definition record M DECLARE LONG CONSTANT EOBJ$C_ETIR = 11 ! EVAX text information record Q DECLARE LONG CONSTANT EOBJ$C_EDBG = 12 ! EVAX Debugger information record R DECLARE LONG CONSTANT EOBJ$C_ETBT = 13 ! EVAX Traceback information record O L DECLARE LONG CONSTANT EOBJ$C_MAXRECTYP = 13 ! Last assigned record type - DECLARE LONG CONSTANT EOBJ$K_SUBTYP = 4- DECLARE LONG CONSTANT EOBJ$C_SUBTYP = 4Q DECLARE LONG CONSTANT EOBJ$C_MAXRECSIZ = 8192 ! Maximum legal record size A DECLARE LONG CONSTANT EOBJ$C_STRLVL = 2 ! Structure level B DECLARE LONG CONSTANT EOBJ$C_STRLVL64 = 3 ! Structure levelH DECLARE LONG CONSTANT EOBJ$C_SYMSIZ = 64 ! Maximum symbol length \ DECLARE LONG CONSTANT EOBJ$C_STO MREPLIM = -1 ! Maximum repeat count on store commands N DECLARE LONG CONSTANT EOBJ$C_PSCALILIM = 16 ! Maximum p-sect alignment 2 DECLARE LONG CONSTANT EOBJ$S_EOBJRECDEF = 10 record EOBJRECDEF ! A ! These are the record types defined for VAX object records. ! L WORD EOBJ$W_RECTYP ! First byte always record type J WORD EOBJ$W_SIZE ! Second is always record size ! Permissable record types C WORD EOBJ$W N_SUBTYP ! Record sub-type byte = BYTE EOBJ$B_MHD_STRLV ! Structure level= BYTE EOBJ$B_MHD_HOLD ! alignment temp ' group EOBJ$R_MHD_RECSZ_OVERLAY variant caseB WORD EOBJ$W_MHD_RECSZ ! Maximum record size  case/ group EOBJ$R_MHD_RECSZ_FIELDS8 BYTE EOBJRECDEF$$_FILL_1 ( 1 to 2 )E STRING EOBJ$T_MHD_NAME = 0 ! Module name field  ! Misc. constants 3 end group EOBJ$R_MHD_RECSZ_FIELDS end variant+ end group EOBJ$R_MHD_RECSZ_OVERLAY end record EOBJRECDEF  wwP ;"PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIQNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETR %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! & ! EVAX Module header record (EMH) ! A DECLARE LONG CONSTANT EMH$C_MHD = 0 ! Main header record H DECLARE LONG CONSTANT EMH$C_LNM = 1 ! Language name and version H DECL SARE LONG CONSTANT EMH$C_SRC = 2 ! Source file specification C DECLARE LONG CONSTANT EMH$C_TTL = 3 ! Title text of module ? DECLARE LONG CONSTANT EMH$C_CPR = 4 ! Copyright notice A DECLARE LONG CONSTANT EMH$C_MTC = 5 ! Maintenence status ; DECLARE LONG CONSTANT EMH$C_GTX = 6 ! General text J DECLARE LONG CONSTANT EMH$C_MAXHDRTYP = 6 ! Maximum allowable type - DECLARE LONG CONSTANT EMH$S_EMHDEF = 52 record EMHDEFI WORD EMH$W_RECTYP T ! Record type ( OBJ$C_MHD ) @ WORD EMH$W_SIZE ! length of this EMHA WORD EMH$W_HDRTYP ! Type field for MHD  ! Types of header records > BYTE EMH$B_STRLVL ! Structure level ; BYTE EMH$B_TEMP ! temp pad byteE LONG EMH$L_ARCH1 ! target architecture LW1E LONG EMH$L_ARCH2 ! target architecture LW2B LONG EMH$L_RECSIZ ! Maximum record size A BYTE EMH$B_NAMLNG ! Module name length : STRING EMH$T_NAME = 31 ! Module name  end record EMHDEF  wwVNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETW %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ' ! EVAX End of module record (EEOM) ! L DECLARE LONG CONSTANT EEOM$C_SUCCESS = 0 ! Successful ( no errors ) B DECLARE LONG CONSTANT EEOM$C_WARNING = 1 ! Warnings issued @ X DECLARE LONG CONSTANT EEOM$C_ERROR = 2 ! Errors detected ? DECLARE LONG CONSTANT EEOM$C_ABORT = 3 ! Abort the link K DECLARE LONG CONSTANT EEOM$K_EOMMIN = 10 ! Min length of EOM record K DECLARE LONG CONSTANT EEOM$C_EOMMIN = 10 ! Min length of EOM record Z DECLARE LONG CONSTANT EEOM$K_EOMMX1 = 10 ! Length of EOM record w/o transfer flags Z DECLARE LONG CONSTANT EEOM$C_EOMMX1 = 10 ! Length of EOM record w/o transfer flags 6 DECLARE LONG CONSTANT EEOM$M_WKT YFR = x'00000001'O DECLARE LONG CONSTANT EEOM$K_EOMMAX = 24 ! Maximum length of EOM record O DECLARE LONG CONSTANT EEOM$C_EOMMAX = 24 ! Maximum length of EOM record / DECLARE LONG CONSTANT EEOM$S_EEOMDEF = 24 record EEOMDEFI WORD EEOM$W_RECTYP ! Record type ( OBJ$C_EOM ) @ WORD EEOM$W_SIZE ! size of this EEMOD_ LONG EEOM$L_TOTAL_LPS ! Number of conditional linkage pairs - max-index/2G WOR ZD EEOM$W_COMCOD ! Compiler completion code ! Values $ group EEOM$R_TFRFLG_OVERLAY variant caseE BYTE EEOM$B_TFRFLG ! Transfer address flags  case* group EEOM$R_TFRFLG_BITS1 ! Transfer address is weak n BYTE WKTFR_bits ! COMMENT ADDED BY SDL - WKTFR_bits contains bits WKTFR through fill_22. end group EEOM$R_TFRFLG_BI [TS end variant( end group EEOM$R_TFRFLG_OVERLAYA BYTE EEOM$B_TEMP ! pad to align PSINDXI LONG EEOM$L_PSINDX ! P-sect of transfer address $ group EEOM$R_TFRADR_OVERLAY variant caseC BASIC$QUADWORD EEOM$Q_TFRADR ! Transfer address  case> LONG EEOM$L_TFRADR ! Transfer address end variant( end group EEOM$R_TFRADR_OVERLAY end record EEOMDEF  ww]0PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI^NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET_ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! EVAX Global symbol definition record (EGSD) ! R DECLARE LONG CONSTANT EGSD$K_ENTRIES = 2 ! Offset to first entry in record R DECLARE LONG CONSTANT EGSD$C_ENTRIES = 2 ! Offset` to first entry in record ? DECLARE LONG CONSTANT EGSD$C_PSC = 0 ! Psect definition C DECLARE LONG CONSTANT EGSD$C_SYM = 1 ! Symbol specification B DECLARE LONG CONSTANT EGSD$C_IDC = 2 ! Random entity check P DECLARE LONG CONSTANT EGSD$C_SPSC = 5 ! Shareable image psect definition Y DECLARE LONG CONSTANT EGSD$C_SYMV = 6 ! Vectored ( dual-valued ) versions of SYM,F DECLARE LONG CONSTANT EGSD$C_SYMM = 7 ! Masked versions of SYM,H DECLARE LONG CONSTANT aEGSD$C_SYMG = 8 ! EGST - gst version of SYMH DECLARE LONG CONSTANT EGSD$C_PSC64 = 9 ! Psect with 64-bit lengtha DECLARE LONG CONSTANT EGSD$C_SPSC64 = 10 ! Shareable image psect definition w/64b len/baseP DECLARE LONG CONSTANT EGSD$C_MAXRECTYP = 10 ! Maximum entry type defined . DECLARE LONG CONSTANT EGSD$S_EGSDEF = 12 record EGSDEFI WORD EGSD$W_RECTYP ! Record type ( OBJ$C_GSD ) E WORD EGSD$W_RECSIZ ! Size of theis EVAX EGSDS LONG EGSD$L_ALIGNLW ! Insure that subrecords are QW alignedU WORD EGSD$W_GSDTYP ! Type of entry ( first byte of entry ) A WORD EGSD$W_GSDSIZ ! Size of this entry  end record EGSDEF  wwc _PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIdNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETe %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! , ! EVAX GSD entry - P-section definition ! 4 DECLARE LONG CONSTANT EGPS$M_PIC = x'00000001'4 DECLARE LONG CONSTANT EGPS$M_LIB = x'00000002'4 DECLARE LONG CONSTANT EGPS$M_OVR f = x'00000004'4 DECLARE LONG CONSTANT EGPS$M_REL = x'00000008'4 DECLARE LONG CONSTANT EGPS$M_GBL = x'00000010'4 DECLARE LONG CONSTANT EGPS$M_SHR = x'00000020'4 DECLARE LONG CONSTANT EGPS$M_EXE = x'00000040'3 DECLARE LONG CONSTANT EGPS$M_RD = x'00000080'4 DECLARE LONG CONSTANT EGPS$M_WRT = x'00000100'4 DECLARE LONG CONSTANT EGPS$M_VEC = x'00000200'6 DECLARE LONG CONSTANT EGPS$M_NOMOD = x'00000400'4 DECLARE LONG CONSTANT EGPS$M_COM = x'00000800'< g DECLARE LONG CONSTANT EGPS$M_ALLOC_64BIT = x'00001000', DECLARE LONG CONSTANT EGPS$K_NAME = 12, DECLARE LONG CONSTANT EGPS$C_NAME = 12/ DECLARE LONG CONSTANT EGPS$S_EGPSDEF = 44 record EGPSDEF$ group EGPS$R_GSDTYP_OVERLAY variant case8 WORD EGPS$W_GSDTYP ! Typ field  case, group EGPS$R_GSDTYP_FIELDS, STRING EGPS$T_START = 0* WORD EG hPSDEF$$_FILL_10 end group EGPS$R_GSDTYP_FIELDS end variant( end group EGPS$R_GSDTYP_OVERLAY? WORD EGPS$W_SIZE ! size of this EGPS? BYTE EGPS$B_ALIGN ! P-sect alignment > BYTE EGPS$B_TEMP ! pad for aligning# group EGPS$R_FLAGS_OVERLAY variant case; WORD EGPS$W_FLAGS ! P-sect flags  case) i group EGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 j ! Associated with COMM sym, ! Load in 64-bit spaceh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_23- end group EGPS$R_FLAGS_BITS end variant' end group EGPS$R_FLAGS_OVERLAYJ LONG EGPS$L_ALLOC ! Length of this contribution D BYTE EGPS$B_NAMLNG ! Length of p-sect name 9 STRING EGPS$T_NAME = 31 ! Name fieldk  end record EGPSDEF  ! 3 ! EVAX GSD entry - 64-Bit P-section definition ! 6 DECLARE LONG CONSTANT EGPS64$M_PIC = x'00000001'6 DECLARE LONG CONSTANT EGPS64$M_LIB = x'00000002'6 DECLARE LONG CONSTANT EGPS64$M_OVR = x'00000004'6 DECLARE LONG CONSTANT EGPS64$M_REL = x'00000008'6 DECLARE LONG CONSTANT EGPS64$M_GBL = x'00000010'6 DECLARE LONG CONSTANT EGPS64$M_SHR = x'00000020'6 DECLARE LONG CONSTANT EGPS64$M_EXE = x'00000040'5 DE lCLARE LONG CONSTANT EGPS64$M_RD = x'00000080'6 DECLARE LONG CONSTANT EGPS64$M_WRT = x'00000100'6 DECLARE LONG CONSTANT EGPS64$M_VEC = x'00000200'8 DECLARE LONG CONSTANT EGPS64$M_NOMOD = x'00000400'6 DECLARE LONG CONSTANT EGPS64$M_COM = x'00000800'> DECLARE LONG CONSTANT EGPS64$M_ALLOC_64BIT = x'00001000'. DECLARE LONG CONSTANT EGPS64$K_NAME = 16. DECLARE LONG CONSTANT EGPS64$C_NAME = 163 DECLARE LONG CONSTANT EGPS64$S_EGPS64DEF = 48 record EGPS6m4DEF& group EGPS64$R_GSDTYP_OVERLAY variant case8 WORD EGPS64$W_GSDTYP ! Typ field  case. group EGPS64$R_GSDTYP_FIELDS. STRING EGPS64$T_START = 0, WORD EGPS64DEF$$_FILL_12 end group EGPS64$R_GSDTYP_FIELDS end variant* end group EGPS64$R_GSDTYP_OVERLAY? WORD EGPS64$W_SIZE ! size of this EGPS? n BYTE EGPS64$B_ALIGN ! P-sect alignment > BYTE EGPS64$B_TEMP ! pad for aligning% group EGPS64$R_FLAGS_OVERLAY variant case; WORD EGPS64$W_FLAGS ! P-sect flags  case+ group EGPS64$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ o ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spaceh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_24/ p end group EGPS64$R_FLAGS_BITS end variant) end group EGPS64$R_FLAGS_OVERLAY% group EGPS64$R_ALLOC_OVERLAY variant caseO BASIC$QUADWORD EGPS64$Q_ALLOC ! Length of this contribution  case; LONG EGPS64$L_ALLOC ! Low Longword end variant) end group EGPS64$R_ALLOC_OVERLAYD BYTE EGPS64$B_NAMLNG ! Length of p-sect name 9 STRING EGPS64$T_NAME = 31 ! Name field  end record EGPS64DEF  wwrPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIsNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETt %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ? ! EVAX GSD entry - P-section definition in shareable image ! 5 DECLARE LONG CONSTANT ESGPS$M_PIC = x'00000001'5 DECLARE LONG CONSTANT ESGPS$M_LIB = x'00000002'5 DECLARE uLONG CONSTANT ESGPS$M_OVR = x'00000004'5 DECLARE LONG CONSTANT ESGPS$M_REL = x'00000008'5 DECLARE LONG CONSTANT ESGPS$M_GBL = x'00000010'5 DECLARE LONG CONSTANT ESGPS$M_SHR = x'00000020'5 DECLARE LONG CONSTANT ESGPS$M_EXE = x'00000040'4 DECLARE LONG CONSTANT ESGPS$M_RD = x'00000080'5 DECLARE LONG CONSTANT ESGPS$M_WRT = x'00000100'5 DECLARE LONG CONSTANT ESGPS$M_VEC = x'00000200'7 DECLARE LONG CONSTANT ESGPS$M_NOMOD = x'00000400'5 DECLARE LO vNG CONSTANT ESGPS$M_COM = x'00000800'= DECLARE LONG CONSTANT ESGPS$M_ALLOC_64BIT = x'00001000'- DECLARE LONG CONSTANT ESGPS$K_NAME = 25- DECLARE LONG CONSTANT ESGPS$C_NAME = 251 DECLARE LONG CONSTANT ESGPS$S_ESGPSDEF = 56 record ESGPSDEF% group ESGPS$R_GSDTYP_OVERLAY variant case8 WORD ESGPS$W_GSDTYP ! Typ field  case- group ESGPS$R_GSDTYP_FIELDS- w STRING ESGPS$T_START = 0+ BYTE ESGPSDEF$$_FILL_11 end group ESGPS$R_GSDTYP_FIELDS end variant) end group ESGPS$R_GSDTYP_OVERLAY@ WORD ESGPS$W_SIZE ! size of this ESGPS? BYTE ESGPS$B_ALIGN ! P-sect alignment @ BYTE ESGPS$B_TEMP ! pad for allignment$ group ESGPS$R_FLAGS_OVERLAY variant case; WORD ESGPS x$W_FLAGS ! P-sect flags  case* group ESGPS$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Relocatable % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector y psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spaceh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_25. end group ESGPS$R_FLAGS_BITS end variant( end group ESGPS$R_FLAGS_OVERLAYP LONG ESGPS$L_ALLOC ! Length of this psect in shr image ] LONG ESGPS$L_BASE ! Offset iznto img of psect, copy of symbol vector$ group ESGPS$R_VALUE_OVERLAY variant case. BASIC$QUADWORD ESGPS$Q_VALUE case$ LONG ESGPS$L_VALUE end variant( end group ESGPS$R_VALUE_OVERLAYD BYTE ESGPS$B_NAMLNG ! Length of p-sect name 9 STRING ESGPS$T_NAME = 31 ! Name field  end record ESGPSDEF  ! F ! EVAX GSD entry - 64-Bit P-s {ection definition in shareable image ! 7 DECLARE LONG CONSTANT ESGPS64$M_PIC = x'00000001'7 DECLARE LONG CONSTANT ESGPS64$M_LIB = x'00000002'7 DECLARE LONG CONSTANT ESGPS64$M_OVR = x'00000004'7 DECLARE LONG CONSTANT ESGPS64$M_REL = x'00000008'7 DECLARE LONG CONSTANT ESGPS64$M_GBL = x'00000010'7 DECLARE LONG CONSTANT ESGPS64$M_SHR = x'00000020'7 DECLARE LONG CONSTANT ESGPS64$M_EXE = x'00000040'6 DECLARE LONG CONSTANT ESGPS64$M_RD = x'00000080' |7 DECLARE LONG CONSTANT ESGPS64$M_WRT = x'00000100'7 DECLARE LONG CONSTANT ESGPS64$M_VEC = x'00000200'9 DECLARE LONG CONSTANT ESGPS64$M_NOMOD = x'00000400'7 DECLARE LONG CONSTANT ESGPS64$M_COM = x'00000800'? DECLARE LONG CONSTANT ESGPS64$M_ALLOC_64BIT = x'00001000'/ DECLARE LONG CONSTANT ESGPS64$K_NAME = 33/ DECLARE LONG CONSTANT ESGPS64$C_NAME = 335 DECLARE LONG CONSTANT ESGPS64$S_ESGPS64DEF = 64 record ESGPS64DEF' group ESGPS64 }$R_GSDTYP_OVERLAY variant case8 WORD ESGPS64$W_GSDTYP ! Typ field  case/ group ESGPS64$R_GSDTYP_FIELDS/ STRING ESGPS64$T_START = 0- BYTE ESGPS64DEF$$_FILL_13 end group ESGPS64$R_GSDTYP_FIELDS end variant+ end group ESGPS64$R_GSDTYP_OVERLAY@ WORD ESGPS64$W_SIZE ! size of this ESGPS? BYTE ESGPS64$ ~B_ALIGN ! P-sect alignment @ BYTE ESGPS64$B_TEMP ! pad for allignment& group ESGPS64$R_FLAGS_OVERLAY variant case; WORD ESGPS64$W_FLAGS ! P-sect flags  case, group ESGPS64$R_FLAGS_BITS- ! Position independent / ! From a shareable image 3 ! Overlaid memory allocation $ ! Reloca table % ! Global scope " ! Shareable # ! Executable ! ! Readable " ! Writeable % ! Vector psect ' ! Not stored into0 ! Associated with COMM sym, ! Load in 64-bit spaceh WORD PIC_bits ! COMMENT ADDED BY SDL - PIC_bits contains bits PIC through fill_260 end group ESGPS64$R_FLAGS_BITS end variant* end group ESGPS64$R_FLAGS_OVERLAY& group ESGPS64$R_ALLOC_OVERLAY variant caseV BASIC$QUADWORD ESGPS64$Q_ALLOC ! Length of this psect in shr image  case; LONG ESGPS64$L_ALLOC ! Low Longword end variant* end group ESGPS64$R_ALLOC_OVERLAY% group ESGPS64$R_BASE_OVERLAY variant caseb  BASIC$QUADWORD ESGPS64$Q_BASE ! Offset into img of psect, copy of symbol vector case; LONG ESGPS64$L_BASE ! Low Longword end variant) end group ESGPS64$R_BASE_OVERLAY& group ESGPS64$R_VALUE_OVERLAY variant case0 BASIC$QUADWORD ESGPS64$Q_VALUE case& LONG ESGPS64$L_VALUE end variant* end group ESGPS64$R_VALUE_OVERLAYD BYTE ESGPS64$B_NAMLNG ! Length of p-sect name 9 STRING ESGPS64$T_NAME = 31 ! Name field  end record ESGPS64DEF  ww`PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ) ! EVAX GSD entry - Symbol definition ! 3 ! common to definitions, references, and entry ! point definitions. ! 5 DECLARE LONG CONSTANT EGSY$M_WEAK = x'00000001'4  DECLARE LONG CONSTANT EGSY$M_DEF = x'00000002'4 DECLARE LONG CONSTANT EGSY$M_UNI = x'00000004'4 DECLARE LONG CONSTANT EGSY$M_REL = x'00000008'5 DECLARE LONG CONSTANT EGSY$M_COMM = x'00000010'6 DECLARE LONG CONSTANT EGSY$M_VECEP = x'00000020'5 DECLARE LONG CONSTANT EGSY$M_NORM = x'00000040'9 DECLARE LONG CONSTANT EGSY$M_QUAD_VAL = x'00000080'. DECLARE LONG CONSTANT EGSY$S_EGSYDEF = 8 record EGSYDEF$ group EGSY$R_GSDTYP_OVERLAY  variant case9 WORD EGSY$W_GSDTYP ! Type field  case, group EGSY$R_GSDTYP_FIELDS, STRING EGSY$T_START = 0* BYTE EGSYDEF$$_FILL_10 end group EGSY$R_GSDTYP_FIELDS end variant( end group EGSY$R_GSDTYP_OVERLAY? WORD EGSY$W_SIZE ! size of this EGSY? BYTE EGSY$B_DATYP ! Symbol data type ?  BYTE EGSY$B_TEMP ! pad for alignment# group EGSY$R_FLAGS_OVERLAY variant case; WORD EGSY$W_FLAGS ! Symbol flags  case) group EGSY$R_FLAGS_BITS$ ! Weak symbol # ! Definition " ! Universal $ ! Relocatable * ! C common globaldef, ! Vectored Entry P oint, ! Normal Procedure(FD)) ! Value is quadwordl BYTE WEAK_bits ! COMMENT ADDED BY SDL - WEAK_bits contains bits WEAK through QUAD_VAL- end group EGSY$R_FLAGS_BITS end variant' end group EGSY$R_FLAGS_OVERLAY end record EGSYDEF  wwLPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! U ! EVAX Universal Symbol Definition - used by the linker instead of ESDF$ recordsS ! when building the global symbol table. The def and univ. bits should always ! be set for these records. ! , DECLARE LONG CONSTANT EGST$K_NAME = 37, DECLARE LONG CONSTANT EGST$C_NAME = 37/ DECLARE LONG CONSTANT EGST$S_EGSTDEF = 68 record EGSTDEF$ group EGST$R_GSDTYP_OVERLAY variant caseE WORD EGST$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group EGST$R_GSDTYP_FIELDS, STRING EGST$T_START = 0* WORD EGSTDEF$$_FILL_10  end group EGST$R_GSDTYP_FIELDS end variant( end group EGST$R_GSDTYP_OVERLAY? WORD EGST$W_SIZE ! size of this EGSTC BYTE EGST$B_DATYP ! Maps over GSY$B_DATYP@ BYTE EGST$B_TEMP ! pad for alignment D WORD EGST$W_FLAGS ! Maps over GSY$W_FLAGS ! group EGST$R_VAL_OVERLAY variant case- BASIC$QUADWORD EGST$Q_VALUE  case# LONG EGST$L_VALUE end variant% end group EGST$R_VAL_OVERLAY! group EGST$R_LP1_OVERLAY variant case, BASIC$QUADWORD EGST$Q_LP_1 case" LONG EGST$L_LP_1 end variant% end group EGST$R_LP1_OVERLAY! group EGST$R_LP2_OVERLAY variant case, BASIC$QUADWORD EGST$Q_LP_2 case" LONG EGST$L_LP_2 end variant% end group EGST$R_LP2_OVERLAYB LONG EGST$L_PSINDX ! Owning psect number = BYTE EGST$B_NAMLNG ! Length of name : STRING EGST$T_NAME = 31 ! Symbol name  end record EGSTDEF  ww +lPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! EVAX Symbol definition ! , DECLARE LONG CONSTANT ESDF$K_NAME = 33, DECLARE LONG CONSTANT ESDF$C_NAME = 33/ DECLARE LONG CONSTANT ESDF$S_ESDFDEF = 64 record ESDFDEF$ group ESDF$R_GSDTYP_OVERLAY variant caseE WORD ESDF$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group ESDF$R_GSDTYP_FIELDS, STRING ESDF$T_START = 0* WORD ESDFDEF$$_FILL_10 end group ESDF$R_GSDTYP_FIELDS end variant( end group ESDF$R_GSDTYP_OVERLAY? WORD ESDF$W_SIZE ! size of this ESDFC  BYTE ESDF$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDF$B_TEMP ! pad for alignment D WORD ESDF$W_FLAGS ! Maps over GSY$W_FLAGS ! group ESDF$R_VAL_OVERLAY variant case- BASIC$QUADWORD ESDF$Q_VALUE case# LONG ESDF$L_VALUE end variant% end group ESDF$R_VAL_OVERLAY group ESDF$R_CA_OVERLAY varian t case4 BASIC$QUADWORD ESDF$Q_CODE_ADDRESS case* LONG ESDF$L_CODE_ADDRESS end variant$ end group ESDF$R_CA_OVERLAYZ LONG ESDF$L_CA_PSINDX ! Psect index of the code address (which is in# ! LP_1 if the norm bit is set).B LONG ESDF$L_PSINDX ! Owning psect number = BYTE ESDF$B_NAMLNG ! Length of name : STRING ESDF$T_NAME = 31  ! Symbol name  end record ESDFDEF  wwq /PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )~ END RECORDE% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )O END RECORDV% %LET %BASIC$OCTAWORD_DECLARED = 1P %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI[PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! EVAX Symbol definition for vectored symbols ! - DECLARE LONG CONSTANT ESDFV$K_NAME = 25- DECLARE LONG CONSTANT ESDFV$C_NAME = 251 DECLARE LONG CONSTANT ESDFV$S_ESDFVDEF = 56 record ESDFVDEF% group ESDFV$R_GSDTYP_OVERLAY variant caseE WORD ESDFV$W_GSDTYP ! Maps over GSY$B_GSDTYP  case- group ESDFV$R_GSDTYP_FIELDS- STRING ESDFV$T_START = 0+ BYTE ESDFVDEF$$_FILL_11 end group ESDFV$R_GSDTYP_FIELDS end variant) end group ESDFV$R_GSDTYP_OVERLAY? WORD ESDFV$W_SIZE  ! size of this SDFVC BYTE ESDFV$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDFV$B_TEMP ! pad for alignment D WORD ESDFV$W_FLAGS ! Maps over GSY$W_FLAGS " group ESDFV$R_VAL_OVERLAY variant case. BASIC$QUADWORD ESDFV$Q_VALUE case$ LONG ESDFV$L_VALUE end variant& end group ESDFV$R_VAL_OVERLAYB LONG ESDFV$L_PSINDX ! Owning psect number F LONG ESDFV$L_VECTOR ! Vectored value of symbol= BYTE ESDFV$B_NAMLNG ! Length of name : STRING ESDFV$T_NAME = 31 ! Symbol name  end record ESDFVDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 6 ! EVAX Symbol definition for version mask symbols ! - DECLARE LONG CONSTANT ESDFM$K_NAME = 25- DECLARE LONG CONSTANT ESDFM$C_NAME = 251 DECLARE LONG CONSTANT ESDFM$S_ESDFMDEF = 56 record ESDFMDEF% group ESDFM$R_GSDTYP_OVERLAY variant caseE WORD ESDFM$W_GSDTYP ! Maps over GSY$B_GSDTYP  case- group ESDFM$R_GSDTYP_FIELDS- STRING ESDFM$T_START = 0+ BYTE ESDFMDEF$$_FILL_11 end group ESDFM$R_GSDTYP_FIELDS end variant) end group ESDFM$R_GSDTYP_OVERLAY@ WORD ESDFM$W_SIZE  ! size of this ESDFMC BYTE ESDFM$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESDFM$B_TEMP ! pad for alignment D WORD ESDFM$W_FLAGS ! Maps over GSY$W_FLAGS " group ESDFM$R_VAL_OVERLAY variant case. BASIC$QUADWORD ESDFM$Q_VALUE case$ LONG ESDFM$L_VALUE end variant& end group ESDFM$R_VAL_OVERLAYB  LONG ESDFM$L_PSINDX ! Owning psect number = LONG ESDFM$L_VERSION_MASK ! Mask for symbol= BYTE ESDFM$B_NAMLNG ! Length of name : STRING ESDFM$T_NAME = 31 ! Symbol name  end record ESDFMDEF  ww8PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! = ! EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) ! + DECLARE LONG CONSTANT ESRF$K_NAME = 9+ DECLARE LONG CONSTANT ESRF$C_NAME = 9/ DECLARE LONG CONSTANT ESRF$S_ESRFDEF = 40 record ESRFDEF$ group ESRF$R_GSDTYP_OVERLAY variant caseE WORD ESRF$W_GSDTYP ! Maps over GSY$B_GSDTYP  case, group ESRF$R_GSDTYP_FIELDS, STRING ESRF$T_START = 0* WORD ESRFDEF$$_FILL_10 end group ESRF$R_GSDTYP_FIELDS end variant( end group ESRF$R_GSDTYP_OVERLAY? WORD ESRF$W_SIZE ! size of this ESRFC BYTE ESRF$B_DATYP ! Maps over GSY$B_DATYP@ BYTE ESRF$B_TEMP ! pad for alignment D WORD ESRF$W_FLAGS ! Maps over GSY$W_FLAGS D BYTE ESRF$B_NAMLNG ! Length of symbol name : STRING ESRF$T_NAME = 31 ! Symbol name  end record ESRFDEF  wwM}PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 7 ! EVAX IDC - Random entity ident consistency check ! * DECLARE LONG CONSTANT EIDC$C_LEQ = 0, DECLARE LONG CONSTANT EIDC$C_EQUAL = 1. DECLARE LONG CONSTANT EIDC$S_EIDCDEF =  9 record EIDCDEF8 WORD EIDC$W_GSDTYP ! Type fieldC WORD EIDC$W_SIZE ! size of this EIDCDEF # group EIDC$R_FLAGS_OVERLAY variant case4 LONG EIDC$L_FLAGS ! Flags  case) group EIDC$R_FLAGS_BITSC ! Ident is binary longword rather than ASCIC F ! Field for ident match control if binary ident >  ! Error severity (default is warning-0) w BYTE BINIDENT_bits ! COMMENT ADDED BY SDL - BINIDENT_bits contains bits BINIDENT through fill_27- end group EIDC$R_FLAGS_BITS ! Match control values  end variant' end group EIDC$R_FLAGS_OVERLAY$ group EIDC$R_NAMLNG_OVERLAY variant caseD BYTE EIDC$B_NAMLNG ! Length of entity name  case,  group EIDC$R_NAMLNG_FIELDS* BYTE EIDCDEF$$_FILL_10 STRING EIDC$T_NAME = 0 !  ! Followed by entity name3 ! Followed by byte of length of name of object" ! Followed by the object name ! Followed by" ! byte of ident length; ! ident string (length = string length) ! or5 ! ident binary value (length = 4)0 end group EIDC$R_NAMLNG_FIELDS end variant( end group EIDC$R_NAMLNG_OVERLAY end record EIDCDEF  ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! : ! EVAX Text, information and relocation record (ETIR) ! G DECLARE LONG CONSTANT ETIR$C_MINSTACOD = 0 ! Minimum store code L DECLARE LONG CONSTANT ETIR$C_STA_GBL = 0 ! Stack global symbol value @ DECLARE LONG CONSTANT ETIR$C_STA_LW = 1 ! Stack longword @ DECLARE LONG CONSTANT ETIR$C_STA_QW = 2 ! Stack quadword W DECLARE LONG CONSTANT ETIR$C_STA_PQ = 3 ! Stack psect base plus quadword offset ? DECLARE LONG CONSTANT ETIR$C_STA_LI = 4 ! Stack literal > DECLARE LONG CONSTANT ETIR$C_STA_MOD = 5 ! Stack moduleC DECLARE LONG CONSTANT ETIR$C_STA_CKARG = 6 ! Check ArgumentsG DECLARE LONG CONSTANT ETIR$C_MAXSTACOD = 6 ! Maximum stac k code H DECLARE LONG CONSTANT ETIR$C_MINSTOCOD = 50 ! Minimum store code < DECLARE LONG CONSTANT ETIR$C_STO_B = 50 ! Store byte < DECLARE LONG CONSTANT ETIR$C_STO_W = 51 ! Store word A DECLARE LONG CONSTANT ETIR$C_STO_LW = 52 ! Store longword @ DECLARE LONG CONSTANT ETIR$C_STO_QW = 53 ! Store quadwordL DECLARE LONG CONSTANT ETIR$C_STO_IMMR = 54 ! Store immediate Repeated@ DECLARE LONG CONSTANT ETIR$C_STO_GBL = 55 ! Store global E DECLARE LONG CONSTANT ETIR$C_STO_CA = 56 ! Store code address H DECLARE LONG CONSTANT ETIR$C_STO_RB = 57 ! Store relative branch H DECLARE LONG CONSTANT ETIR$C_STO_AB = 58 ! Store absolute branch M DECLARE LONG CONSTANT ETIR$C_STO_OFF = 59 ! Store offset within psect C DECLARE LONG CONSTANT ETIR$C_STO_IMM = 61 ! Store immediate K DECLARE LONG CONSTANT ETIR$C_STO_GBL_LW = 62 ! Store global Longword4 ! STO_LP_PSB not valid in level 2 use STC_LP_PSB` DECLARE LONG CONSTANT ETIR$C_STO_BR_GBL = 64 ! Store 21 bit displayment to global address_ DECLARE LONG CONSTANT ETIR$C_STO_BR_PS = 65 ! Store 21 bit displayment to psect + offsetH DECLARE LONG CONSTANT ETIR$C_MAXSTOCOD = 65 ! Maximum store code K DECLARE LONG CONSTANT ETIR$C_MINOPRCOD = 100 ! Minimum operate code : DECLARE LONG CONSTANT ETIR$C_OPR_NOP = 100 ! No-op 8 DECLARE LONG CONSTANT ETIR$C_OPR_ADD = 101 ! Add = DECLARE LONG CONSTANT ETIR$C_OPR_SUB = 102 ! Subtract = DECLARE LONG CONSTANT ETIR$C_OPR_MUL = 103 ! Multiply ; DECLARE LONG CONSTANT ETIR$C_OPR_DIV = 104 ! Divide @ DECLARE LONG CONSTANT ETIR$C_OPR_AND = 105 ! Logical AND I DECLARE LONG CONSTANT ETIR$C_OPR_IOR = 106 ! Logical inclusive OR I DECLARE LONG CONSTANT ETIR$C_OPR_EOR = 107 ! Logical exclusive OR ; DECLARE LONG CONSTANT ETIR$C_OPR_NEG = 108 ! Negate ? DECLARE LONG CONSTANT ETIR$C_OPR_COM = 109 ! Complement F DECLARE LONG CONSTANT ETIR$C_OPR_INSV = 110 ! Insert bit field E DECLARE LONG CONSTANT ETIR$C_OPR_ASH = 111 ! Arithmetic shift C DECLARE LONG CONSTANT ETIR$C_OPR_USH = 112 ! Unsigned shift ; DECLARE LONG CONSTANT ETIR$C_OPR_ROT = 113 ! Rotate b DECLARE LONG CONSTANT ETIR$C_OPR_SEL = 114 ! Select one of three longwords on top of stack X DECLARE LONG CONSTANT ETIR$C_OPR_REDEF = 115 ! Redefine this symbol after pass 2 G DECLARE LONG CONSTANT ETIR$C_OPR_DFLIT = 116 ! Define a literal K DECLARE LONG CONSTANT ETIR$C_MAXOPRCOD = 116 ! Maximum operate code K DECLARE LONG CONSTANT ETIR$C_MINCTLCOD = 150 ! Minimum control code J DECLARE LONG CONSTANT ETIR$C_CTL_SETRB = 150 ! Set relocation base N DECLARE LONG CONSTANT ETIR$C_CTL_AUGRB = 151 ! Augment relocation base L DECLARE LONG CONSTANT ETIR$C_CTL_DFLOC = 152 ! Define debug location I DECLARE LONG CONSTANT ETIR$C_CTL_STLOC = 153 ! Set debug location K DECLARE LONG CONSTANT ETIR$C_CTL_STKDL = 154 ! Stack debug location K DECLARE LONG CONSTANT ETIR$C_MAXCTLCOD = 154 ! Maximum control code T DECLARE LONG CONSTANT ETIR$C_MINSTCCOD = 200 ! Minimum store-conditional codeQ DECLARE LONG CONSTANT ETIR$C_STC_LP = 200 ! Store-conditional Linkage Pairn DECLARE LONG CONSTANT ETIR$C_STC_LP_PSB = 201 ! Store-conditional Linkage Pair with Procedure Signature_ DECLARE LONG CONSTANT ETIR$C_STC_GBL = 202 ! Store-conditional Address at global addressd DECLARE LONG CONSTANT ETIR$C_STC_GCA = 203 ! Store-conditional Code Address at global address^ DECLARE LONG CONSTANT ETIR$C_STC_PS = 204 ! Store-conditional Address at psect + offsetb DECLARE LONG CONSTANT ETIR$C_STC_NOP_GBL = 205 ! Store-conditional NOP at address of global] DECLARE LONG CONSTANT ETIR$C_STC_NOP_PS = 206 ! Store-conditional NOP at pect + offset_ DECLARE LONG CONSTANT ETIR$C_STC_BSR_GBL = 207 ! Store-conditional BSR at global address] DECLARE LONG CONSTANT ETIR$C_STC_BSR_PS = 208 ! Store-conditional BSR at pect + offset_ DECLARE LONG CONSTANT ETIR$C_STC_LDA_GBL = 209 ! Store-conditional LDA at global address^ DECLARE LONG CONSTANT ETIR$C_STC_LDA_PS = 210 ! Store-conditional LDA at psect + offsetg DECLARE LONG CONSTANT ETIR$C_STC_BOH_GBL = 211 ! Store-conditional BSR or Hint at global addresse DECLARE LONG CONSTANT ETIR$C_STC_BOH_PS = 212 ! Store-conditional BSR or Hint at pect + offsetk DECLARE LONG CONSTANT ETIR$C_STC_NBH_GBL = 213 ! Store-conditional NOP,BSR or HINT at global addressj DECLARE LONG CONSTANT ETIR$C_STC_NBH_PS = 214 ! Store-conditional NOP,BSR or HINT at psect + offsetT DECLARE LONG CONSTANT ETIR$C_MAXSTCCOD = 214 ! Maximum store-conditional codep ! ******************************************************************************************************** . DECLARE LONG CONSTANT ETIR$S_ETIRDEF = 4 record ETIRDEFJ WORD ETIR$W_RECTYP ! R ecord type ( OBJ$C_ETIR ): WORD ETIR$W_SIZE ! Record size" ! Define relocation commands  ! ETIR descriptions !  ! = ! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT= ! --------- ----------- ------ ------------6 ! 0 2 4 6 8 12 16 20 245 ! | | | | | | | | |5 ! v v v v v v v v v ! Q ! STA_G BL pushes symbol value on stack |type|size|counted string... +1 ! J ! STA_LW pushes longword value on stack |type|size|longword | +1 ! R ! STA_QW pushes quadword value on stack |type|size| quadword | +1 ! W ! STA_PQ pushes image offset associated |type|size| psect | quadword | +1- ! with psect index + quadword  ! offset on stackP ! STA_LI pushes literal value on stack |type|size|counted string... +1 ! Q ! STA_MOD pushes image offset associated |type|size|counted string... +1 ! with module on stack ! U ! STA_CKARG compares poped stack element to |type|size|counted string... 0 & ! symbol value and pushes result ! on stack ! @ ! STO_B pops stack and stores low byte |type|size| -1 ! at location pointer ! @ ! STO_W pops stack and stores low word |type|size| -1 ! at location pointer ! A ! STO _LW pops stack and stores low |type|size| -1( ! longword at location pointer ! A ! STO_QW pops stack and stores qwadword |type|size| -1 ! at location pointer ! P ! STO_GBL stores value associated with |type|size|counted string... 0& ! global symbol at location  ! pointer ! P ! STO_CA stores contents of value |type|size|counted string... 0) ! associated with global symbol" !  +8 at location pointer ! O ! STO_RB adds offset from location |type|size|psect| quadword | 0 ) ! pointer to image offset value) ! associated with psect index +' ! quadword offset to low word ! at location pointer ! P ! STO_AB stores value associated with |type|size|counted string... 0( ! global symbol in low 21 bits ! at location pointer ! a ! STO_OFF pops offset into image from |type|size| -1, ! stack and stores the value in) ! the linker's location counter ! V ! STO_IMMR pops repeat count and stores |type|size| size |immediate... -1+ ! this number of immediates at ! location counter ! G ! STO_LP stores code address at |type|size|counted string... 0# ! location pointer and global ! symbol value at location ! pointer + 8 ! T  ! STO_IMM stores this number of |type|size| size |immediate... 0- ! immediates at location counter ! S ! STO_GBL_LW stores low order 32 bits of |type|size|counted string... 0( ! value associated with global& ! symbol at location pointer ! b ! STO_LP_PSB stores code address at |type|size|counted string...|size|signature block...| 0# ! location pointer and global ! symbol value at location! ! pointer + 8 and signature0 ! information in fixup section2 ! (following the LP_PSB fixups). ! ] ! STO_BR_GBL Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |9 ! signed offset from virtual |counted string 0" ! address signified by ps2 +" ! off2 to virtual address of& ! global symbol shifted two bits0 ! to the right into the 21 bit5 ! displacement field of instruction+  ! at location ps1 + off1. ! ] ! STO_BR_PS Store low order 23 bits as |type|size|ps1 |off1 |ps2 |off2 |N ! signed offset from virtual |ps3 |off3 | 0" ! address signified by ps2 + ! off2 to virtual address' ! signified by ps3 + off3 shifted" ! two bits to the right into% ! the 21 bit displacement field" ! of instruction at location ! ps1 + off1. ! 2 ! OPR_NOP nothing |type|size| 0 ! D ! OPR_ADD pop two elements from stack |type|size| -1! ! adds and push results ! D ! OPR_SUB pop two elements from stack |type|size| -1& ! subtracts and push results ! C ! OPR_MUL pop two elements from stack |type|size| -1% ! multiplys and push results ! D ! OPR_DIV pop two elements from stack |type|size| -1$ ! divides and push results ! D  ! OPR_AND pop two elements from stack |type|size| -1! ! ANDs and push results ! D ! OPR_IOR pop two elements from stack |type|size| -1* ! inclusive ors and push results ! D ! OPR_EOR pop two elements from stack |type|size| -1* ! exclusive ors and push results ! C ! OPR_NEG pop one element from stack |type|size| 0$ ! negates and push results ! C ! OPR_COM pop one element from stack |type|size| 0( ! compliments and push results ! D ! OPR_INSV pop two elements from stack |type|size| -1( ! inserts bit field from first( ! into second and push results ! D ! OPR_USH pop two elements from stack |type|size| -1+ ! unsigned shift and push results ! D ! OPR_ASH pop two elements from stack |type|size| -1& ! arithmetic shift and push  ! results  ! D ! OPR_ROT pop two elements from stack |type|size| -1# ! rotate and push results ! H ! OPR_SEL pop three elements from stack |type|size| -2 ! if first is true  ! then push third ! else push second ! W ! OPR_REDEF pop value from stack and |type|size|counted string... -1' ! assign this value to global ! symbol ! W ! OPR_DFLIT pop value from stack a nd |type|size|counted string... -1( ! assign this value to literal !  ! H ! CTL_SETRB pop value from stack and move |type|size| -1 ! to location pointer  ! U ! CTL_AUGRB add quadword to location |type|size| quadword | 0  ! pointer ! X ! CTL_DFLOC pop index from stack and save |type|size| quadword index | -1' ! current location pointer in# ! debug table using index ! [ ! CTL_STLOC pop index from stack, get |type|size| quadword index | -1& ! saved location pointer in' ! debug table using index and' ! move it to current location ! pointer ! [ ! CTL_STKDL pop index from stack, get |type|size| quadword index | 0% ! saved location pointer in' ! debug table using index and ! push it !  ! = ! MNEUMONIC DESCRIPTION FORMAT STACK EFFECT= ! --------- ----------- ------ ------------6 ! 0 2 4 6 8 12 16 20 245 ! | | | | | | | | |5 ! v v v v v v v v v ! i ! STC_LP If the linkage pair specified |type|size|lp index |counted string... 0/ ! by the index is referenced,2 ! i.e. all instructions ref'ing 4 !  it weren't successfully replaced2 ! by other STC_** commands, then2 ! store code address at location3 ! pointer and global symbol value, ! at location pointer + 8. ! i ! STC_LP_PSB If the linkage pair specified |type|size|lp index |counted string...|- 0X ! by the index is referenced, |size|signature block...| 2 ! i.e. all instructions ref'in g 4 ! it weren't successfully replaced2 ! by other STC_** commands, then2 ! store code address at location3 ! pointer and global symbol value2 ! at location pointer + 8. Store2 ! signature information in fixup0 ! section following the LP_PSB ! fixups. ! i ! STC_GBL store value associated with |type|size|lp index |counted string...  01 ! global symbol (if norm bit is3 ! set this is the procedure desc.0 ! address) in the linkage pair0 ! pointed to by the index only; ! if that part of the lp is referenced. ; ! When the norm bit is set the index will3 ! point to the second quadword of% ! the linkage pair. ! i ! STC_GCA store the value from the field |type|size|l p index |counted string... 0- ! ESDF$L_LP_1 of the global. ! symbol in the linkage pair0 ! pointed to by the index only; ! if that part of the lp is referenced. : ! The global symbol must be a procedure,1 ! and the norm bit must be set.2 ! The lp index must point to the7 ! first quadword of the linkage pair. ! !  i ! STC_PS store the address associated |type|size|lp index |psct|qw offset| 02 ! with the psect + offset in the/ ! lp pointed to by the index.1 ! The index may point to either ! quadword. ! e ! STC_NOP_GBL Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - i ! compiler) at the location |repl inst|psc2|qw off2 |counted string 0. ! pointed to by PS1, offset1- ! if the displacement from 0 ! ps2, offset2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits. !  ! e ! STC_NOP_PS Store a NOP (specified by the |type|size|lp index |psc1|qw off1 | - \ ! compiler) at the location |repl inst|p sc2|qw off2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 21 bits. ! e ! STC_BSR_GBL Store a BSR (specified in |type|size|lp index |psc1|qw off1 | - i ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0i !  pointed to by PS1, offset1 - ! if the displacement from 0 ! ps2, offset2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement) ! into the instruction. ! e ! STC_BSR_PS Store a BSR (specified in  |type|size|lp index |psc1|qw off1 | - \ ! repl inst) at the location |repl inst|psc2|qw off2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement) ! into the instruction. ! e ! STC_LDA_GBL Store a LDA (specified in |type|size|lp index |psc1|qw off1 | - i ! repl inst) at the location |repl inst|psc2|qw off2 |counted string 0i ! pointed to by PS1, offset1 - ! if the displacement from 0 ! ps2, offset2 to the value in1 ! the EGSY$L_VALUE field of the2 ! global symbo l + its psect base1 ! can be squished into 16 bits.4 ! The global symbol cannot be from& ! a shareable image.2 ! Insert the 16 bit displacement) ! into the instruction.4 ! The index is only nonzero if the3 ! instruction being replaced refs# ! a linkage pair. ! e ! STC_LDA_PS Store a LDA (specified in |type|size|lp index |psc1|qw off1 | -  \ ! repl inst) at the location |repl inst|psc2|qw off2 | - i ! pointed to by PS1, offset1 |psc3|qw off3 | 0- ! if the displacement from / ! ps2, offset2 to ps3,offset31 ! can be squished into 16 bits.: ! PS3 cannot be a shareable image psect.2 ! Insert the 16 bit displacement) ! into the  instruction.4 ! The index is only nonzero if the3 ! instruction being replaced refs# ! a linkage pair. ! e ! STC_BOH_GBL Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - i ! repl inst) at the location |repl inst|ps2 |qw off2 |counted string 0f ! pointed to by ps1, off1 - ! if the displacement from - ! ps2, off2 to the value in0 ! the EGSY$L_LP_1 field of the2 ! global symbol + its psect base1 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement2 ! into the instruction. If the 3 ! displacement is too large, then2 ! store the low order 16 bits of5 ! the virtual address of the global2 !  symbol shifted two bits to the+ ! right into the location ! ps1 + off1. ! e ! STC_BOH_PS Store a BSR (specified in |type|size|lp index |ps1 |qw off1 | - Z ! repl inst) at the location |repl inst|ps2 |qw off2 | -i ! pointed to by PS1, off1 |ps3 |qw off3 | 0, ! if the displacement from) ! ps2, o ff2 to ps3,off31 ! can be squished into 21 bits.2 ! Insert the 21 bit displacement2 ! into the instruction. If the 3 ! displacement is too large, then2 ! store the low order 16 bits of5 ! the virtual address of the global2 ! symbol shifted two bits to the+ ! right into the location ! ps1, off1. ! e ! STC_NBH_GBL Equivalent to STC_NOP_GBL, |type|size|lp index |ps1 |qw off1 | - \ ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - i ! off2 + 4, counted string, |repl ins2|counted string... 03 ! followed by STC_BOH_GBL, index,3 ! ps2, off2, ins2, ps2, off2 + 4,# ! counted string.0 ! Implicit assumption is that 8 ! the original ins tructions (LDQ, JSR)# ! are contiguous. ! e ! STC_NBH_PS Equivalent to STC_NOP_PS, |type|size|lp index |ps1 |qw off1 | - \ ! index, ps1, off1, ins1, ps2, |repl ins1|ps2 |qw off2 | - i ! off2 + 4, ps3, off3, |repl ins2|ps3 |qw off3 | 02 ! followed by STC_BOH_PS, index,3 ! ps2, off2, ins2, ps2, off2 + 4, ! ps3, o ff3.0 ! Implicit assumption is that 8 ! the original instructions (LDQ, JSR)# ! are contiguous. ! g ! ***********************************************************************************************  end record ETIRDEF ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  B DECLARE LONG CONSTANT OPC$_RQ_TERME = 1 ! ENABLE TERMINAL D DECLARE LONG CONSTANT OPC$_RQ_LOGI = 2 ! INITIALIZE THE LOG B DECLARE LONG CONSTANT OPC$_RQ_RQST = 3 ! OPERATOR REQUEST A  DECLARE LONG CONSTANT OPC$_RQ_REPLY = 4 ! OPERATOR REPLY B DECLARE LONG CONSTANT OPC$_RQ_CANCEL = 5 ! CANCEL REQUEST K DECLARE LONG CONSTANT OPC$_RQ_STATUS = 6 ! REQUEST OPERATOR STATUS Q DECLARE LONG CONSTANT OPC$_RQ_SECURITY = 7 ! MESSAGE TO SECURITY OPERATORO DECLARE LONG CONSTANT OPC$_RQ_LICENSE = 8 ! MESSAGE TO LICENSE OPERATOR0 DECLARE LONG CONSTANT OPC$M_RQ_NOOCS = 1289 DECLARE LONG CONSTANT OPC$M_NM_CENTRL = x'00000001'8 DECLARE LONG  CONSTANT OPC$M_NM_PRINT = x'00000002'8 DECLARE LONG CONSTANT OPC$M_NM_TAPES = x'00000004'8 DECLARE LONG CONSTANT OPC$M_NM_DISKS = x'00000008'9 DECLARE LONG CONSTANT OPC$M_NM_DEVICE = x'00000010'8 DECLARE LONG CONSTANT OPC$M_NM_CARDS = x'00000020'9 DECLARE LONG CONSTANT OPC$M_NM_NTWORK = x'00000040': DECLARE LONG CONSTANT OPC$M_NM_CLUSTER = x'00000080'; DECLARE LONG CONSTANT OPC$M_NM_SECURITY = x'00000100'8 DECLARE LONG CONSTANT OPC$M_NM_REPLY = x'000 00200'; DECLARE LONG CONSTANT OPC$M_NM_SOFTWARE = x'00000400': DECLARE LONG CONSTANT OPC$M_NM_LICENSE = x'00000800'8 DECLARE LONG CONSTANT OPC$M_NM_OPER1 = x'00001000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER2 = x'00002000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER3 = x'00004000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER4 = x'00008000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER5 = x'00010000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER6 = x'00020000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER7 = x'00040000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER8 = x'00080000'8 DECLARE LONG CONSTANT OPC$M_NM_OPER9 = x'00100000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER10 = x'00200000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER11 = x'00400000'9 DECLARE LONG CONSTANT OPC$M_NM_OPER12 = x'00800000'. DECLARE LONG CONSTANT OPC$S_OPCDEF = 158 record OPCDEF< BYTE OPC$B_MS_TYPE ! MESSAGE TYPE C group OPC$R_MS_C_T_S_OVERLAY ! C lass-Target-Status  variant case2 group OPC$R_MS_TARG_STAT_OVERLAY2 group OPC$R_MS_TARGET_OVERLAY variant caseC BYTE OPC$B_MS_TARGET ! MESSAGE TARGET  caseB BYTE OPC$B_MS_ENAB ! MESSAGE ENABLES # end variant6 end group OPC$R_MS_TARGET_OVERLAY>  WORD OPC$W_MS_STATUS ! MESSAGE STATUS 6 end group OPC$R_MS_TARG_STAT_OVERLAY case9 BYTE OPC$Z_MS_TARGET_CLASSES ( 1 to 3 ) case9 BYTE OPC$Z_MS_ENAB_TERMINALS ( 1 to 3 ) end variant) end group OPC$R_MS_C_T_S_OVERLAY& group OPC$R_MS_RPLYID_OVERLAY variant case8 LONG OPC$L_MS_RPLYID ! REPLY ID  case- group OPC$R_MS_MASK_OVERLAY variant case< LONG OPC$L_MS_MASK ! MESSAGE MASK  case< LONG OPC$L_MS_RQSTID ! REQUEST ID end variant1 end group OPC$R_MS_MASK_OVERLAY end variant* end group OPC$R_MS_RPLYID_OVERLAY$ group OPC$R_MS_TEXT_OVERLAY variant case<  LONG OPC$L_MS_TEXT ! MESSAGE TEXT  case, group OPC$R_MS_TEXT_FIELDSD WORD OPC$W_MS_OUNIT ! OPERATOR UNIT NUMBER A STRING OPC$T_MS_ONAME = 1 ! OPERATOR NAME 0 end group OPC$R_MS_TEXT_FIELDS end variant( end group OPC$R_MS_TEXT_OVERLAYA WORD OPCDEF$$_FILL_1 ( 1 to 7 ) ! SPACE FOR NAME @ LONG OPC$L_MS_OTEXT ( 1 to 32 ) ! OPERATOR T EXT % group OPC$R_MS_MAXSZ_OVERLAY variant case@ LONG OPC$L_MS_MAXSZ ! MESSAGE MAX SIZE  ! OPERATOR MESSAGE TYPES  case+ group OPC$R_MS_MAXSZ_BITS| LONG NM_CENTRL_bits ! COMMENT ADDED BY SDL - NM_CENTRL_bits contains bits NM_CENTRL through NM_OPER12/ end group OPC$R_MS_MAXSZ_BITS end variant) end group OPC$R_MS_MAXSZ_OVERLAY  end record OPCDEF ; DECLARE LONG CONSTANT OPC$M_OPR_CENTRAL = x'00000001'; DECLARE LONG CONSTANT OPC$M_OPR_PRINTER = x'00000002'9 DECLARE LONG CONSTANT OPC$M_OPR_TAPES = x'00000004'9 DECLARE LONG CONSTANT OPC$M_OPR_DISKS = x'00000008'; DECLARE LONG CONSTANT OPC$M_OPR_DEVICES = x'00000010'9 DECLARE LONG CONSTANT OPC$M_OPR_CARDS = x'00000020'; DECLARE LONG CONSTANT OPC$M_OPR_NETWORK = x'00000040'; DECLARE LONG CONSTANT OPC$M_OPR_CLUSTER = x' 00000080'< DECLARE LONG CONSTANT OPC$M_OPR_SECURITY = x'00000100'9 DECLARE LONG CONSTANT OPC$M_OPR_REPLY = x'00000200'< DECLARE LONG CONSTANT OPC$M_OPR_SOFTWARE = x'00000400'; DECLARE LONG CONSTANT OPC$M_OPR_LICENSE = x'00000800'9 DECLARE LONG CONSTANT OPC$M_OPR_USER1 = x'00001000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER2 = x'00002000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER3 = x'00004000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER4 = x'00008000'9 DE CLARE LONG CONSTANT OPC$M_OPR_USER5 = x'00010000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER6 = x'00020000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER7 = x'00040000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER8 = x'00080000'9 DECLARE LONG CONSTANT OPC$M_OPR_USER9 = x'00100000': DECLARE LONG CONSTANT OPC$M_OPR_USER10 = x'00200000': DECLARE LONG CONSTANT OPC$M_OPR_USER11 = x'00400000': DECLARE LONG CONSTANT OPC$M_OPR_USER12 = x'00800000'0 DECLARE LONG CONSTANT OPC$S_OPC_OPRDEF = 3 record OPC_OPRDEF variant case& group OPC$R_OPRDEF_BITS LONG OPR_CENTRAL_bits ! COMMENT ADDED BY SDL - OPR_CENTRAL_bits contains bits OPR_CENTRAL through OPR_USER12* end group OPC$R_OPRDEF_BITS end variant end record OPC_OPRDEF , DECLARE LONG CONSTANT OPC$K_SYSTEM = 1+ DECLARE LONG CONSTANT OPC$K_GROUP = 2* DECLARE LONG CONSTANT OPC$K_USER = 3, DECLARE LONG C ONSTANT OPC$K_UNSPEC = 4, DECLARE LONG CONSTANT OPC$C_SYSTEM = 1+ DECLARE LONG CONSTANT OPC$C_GROUP = 2* DECLARE LONG CONSTANT OPC$C_USER = 3, DECLARE LONG CONSTANT OPC$C_UNSPEC = 40 DECLARE LONG CONSTANT OPC$K_SW_VERSION = 90 DECLARE LONG CONSTANT OPC$K_MAXREAD = 25603 DECLARE LONG CONSTANT OPC$K_MAXMESSAGE = 20480 DECLARE LONG CONSTANT OPC$K_COMHDRSIZ = 38I DECLARE LONG CONSTANT OPC$_OPCOMERROR = 99999 ! New error message1 DECLARE LONG  CONSTANT OPC$_X_OPRENABLE = 10/ DECLARE LONG CONSTANT OPC$_X_LOGFILE = 11/ DECLARE LONG CONSTANT OPC$_X_REQUEST = 12- DECLARE LONG CONSTANT OPC$_X_REPLY = 13. DECLARE LONG CONSTANT OPC$_X_CANCEL = 14. DECLARE LONG CONSTANT OPC$_X_STATUS = 150 DECLARE LONG CONSTANT OPC$_X_SHUTDOWN = 161 DECLARE LONG CONSTANT OPC$_X_TIMESTAMP = 170 DECLARE LONG CONSTANT OPC$_X_SECURITY = 18/ DECLARE LONG CONSTANT OPC$_X_CLUSMSG = 19- DECLARE LONG CONSTANT OPC$_X_DEBUG = 20. DECLARE LONG CONSTANT OPC$_X_CNXMAN = 218 DECLARE LONG CONSTANT OPC$_X_REQUEST_END_MARK = 22^ DECLARE LONG CONSTANT OPC$K_CLM__ACKNOWLEDGEMENT = 1 ! Response to acknowledge requestl DECLARE LONG CONSTANT OPC$K_CLM__ACKNOWLEDGE_PLEASE = 2 ! Request for remote node to announce itselfP DECLARE LONG CONSTANT OPC$K_CLM__CANCEL = 3 ! Explicit cancel of requesth DECLARE LONG CONSTANT OPC$K_CLM__CHECK_OPERATOR = 4 ! Make sure this operator is in the databasec DECLARE LONG CONSTANT OPC$K_CLM__CHECK_REQUEST = 5 ! Make sure a request is in the database` DECLARE LONG CONSTANT OPC$K_CLM__CLUMBX = 6 ! Cluster mailbox message passed from cnxmanS DECLARE LONG CONSTANT OPC$K_CLM__CLUSTER = 7 ! Cluster status change report_ DECLARE LONG CONSTANT OPC$K_CLM__DEVICE = 8 ! Device message ( on-line, off-line etc )U DECLARE LONG CONSTANT OPC$K_CLM__IMP_CANCEL = 9 ! Implicitly cancel a requestZ DECLARE LONG CONSTANT OPC$K_CLM__IMP_DISABLE = 10 ! Implicitly disable an operatorm DECLARE LONG CONSTANT OPC$K_CLM__OPRENABLE = 11 ! Tell everyone else to enable or disable an operatorM DECLARE LONG CONSTANT OPC$K_CLM__REPLY = 12 ! REPLY /PEND etc commande DECLARE LONG CONSTANT OPC$K_CLM__REPLY_COMPLETE = 13 ! Operator request completed by operatorH DECLARE LONG CONSTANT OPC$K_CLM__REQUEST = 14 ! Operator requestw DECLARE LONG CONSTANT OPC$K_CLM__RPYBRD = 15 ! Message from OPCOM to remotes, info for cluster REPLY /TERM, etcp DECLARE LONG CONSTANT OPC$K_CLM__RPYBRD_LOCAL = 16 ! Broadcast message from REPLY to OPCOM on local nodeJ DECLARE LONG CONSTANT OPC$K_CLM__RPYNOT = 17 ! Reply notificationsS DECLARE LONG CONSTANT OPC$K_CLM__SECURITY = 18 ! Security alarm from remoteM DECLARE LONG CONSTANT OPC$K_CLM__SHUTDOWN = 19 ! Shut down operationsW DECLARE LONG CONSTANT OPC$K_CLM__LOGFILE = 20 ! Enable/disable logfile operator<  DECLARE LONG CONSTANT OPC$K_CLM__REQUEST_END_MARK = 21I DECLARE LONG CONSTANT OPC$K_HDR_SIZE = 26 ! Size of common header5 DECLARE LONG CONSTANT OPC$S_HEADER_MESSAGE = 26 record HEADER_MESSAGE; BYTE OPC$B_RQSTCODE ! Request code< BYTE OPC$B_SCOPE ! Request SCOPEO LONG OPC$L_OPTIONS ! Request independent option bits. group OPC$R_RQOPT variant caseH  LONG OPC$L_RQ_OPTIONS ! Request dependent options caseH group OPC$R_RQ_OPT_S ! Also make it available asI BYTE OPC$B_RQOPT_CODE ! a code byte and some fill+ BYTE OPC$B_RQOPT_FILLb+ WORD OPC$W_RQOPT_FILLw* end group OPC$R_RQ_OPT_S end variant end group OPC$R_RQOPTD LONG OPC$L_ATTNMASK1 ! Attention mask part 1D  LONG OPC$L_ATTNMASK2 ! Attention mask part 2J LONG OPC$L_RQSTID ! User specified request id #? LONG OPC$L_UIC ! UIC of requestor end record HEADER_MESSAGE 5 DECLARE LONG CONSTANT OPC$M_NOLOG = x'00000001'5 DECLARE LONG CONSTANT OPC$M_NOBRD = x'00000002'9 DECLARE LONG CONSTANT OPC$M_NOCLUSTER = x'00000004'4 DECLARE LONG CONSTANT OPC$S_HEADER_OPTIONS = 4 record HEADER_OPTIONS variant case( LONG OPC$L_HEADER_OPTIONS case. group OPC$R_HEADER_OPTIONS_BITS+ ! Do not log the action& ! Do not broadcast, ! Do not send to clusterj BYTE NOLOG_bits ! COMMENT ADDED BY SDL - NOLOG_bits contains bits NOLOG through fill_02 end group OPC$R_HEADER_OPTIONS_BITS end variant end record HEADER_OPTIONS Y DECLARE LONG CONSTANT OPC$K_OPRENABLE_MIN_SIZE = 30 ! Min message size header + 48 DECLARE LONG CONSTANT OPC$S_OPRENABLE_MESSAGE = 26 record OPRENABLE_MESSAGE. BYTE OPC$B_OPRENABLE_FILL ( 1 to 26 )E STRING OPC$T_OPRENABLE_OPR = 0 ! Start of oper dev name" end record OPRENABLE_MESSAGE 7 DECLARE LONG CONSTANT OPC$M_DISABLE = x'00000001'8 DECLARE LONG CONSTANT OPC$M_PERMOPER = x'00000002'8 DECLARE LONG CONSTANT OPC$M_NOREMIND = x'00000004'7 DECLARE LONG CONSTANT OPC$S_OPRENABLE_OPTIONS = 4 record OPRENABLE_OPTIONS variant case+ LONG OPC$L_OPRENABLE_OPTIONS case1 group OPC$R_OPRENABLE_OPTIONS_BITSp BYTE DISABLE_bits ! COMMENT ADDED BY SDL - DISABLE_bits contains bits DISABLE through fill_15 end group OPC$R_OPRENABLE_OPTIONS_BITS end variant" end record OPRENABLE_OPTIONS W DECLARE LONG CONSTANT OPC$K_LOGFILE_MIN_SIZE = 30 ! Min message size header + 4c DECLARE LONG CONSTANT OPC$K_INITLOG = 0 ! If one is open, close logfile. Open new logfile.A DECLARE LONG CONSTANT OPC$K_CLOSELOG = 1 ! Close logfile.Z DECLARE LONG CONSTANT OPC$K_ENABLELOG = 2 ! If no logfile is open, open a logfile.: ! Add classes in ATTNMASK to logfile operator mask.k DECLARE LONG CONSTANT OPC$K_DISABLELOG = 3 ! Remove classes in ATTNMASK from logfile operator mask.* !  If mask goes to 0, close logfile.R DECLARE LONG CONSTANT OPC$K_MAX_LOGOPT = 4 ! One more than maximum allowed6 DECLARE LONG CONSTANT OPC$S_LOGFILE_MESSAGE = 26 record LOGFILE_MESSAGES BYTE OPC$B_LOGFILE_FILL ( 1 to 26 ) ! Skip to request dependent optionsE STRING OPC$T_LOGFILE_OPR = 0 ! Start of oper dev name end record LOGFILE_MESSAGE L DECLARE LONG CONSTANT OPC$K_REQUEST_MIN_SIZE = 28 ! Min message size6 DECLARE LONG CONST ANT OPC$S_REQUEST_MESSAGE = 28 record REQUEST_MESSAGE, BYTE OPC$B_REQUEST_FILL ( 1 to 26 )= WORD OPC$W_REQUEST_LENGTH ! Length of text< STRING OPC$T_REQUEST_TEXT = 0 ! Start of text end record REQUEST_MESSAGE M DECLARE LONG CONSTANT OPC$K_SECURITY_MIN_SIZE = 28 ! Min message size7 DECLARE LONG CONSTANT OPC$S_SECURITY_MESSAGE = 28 record SECURITY_MESSAGE- BYTE OPC$B_SECURITY_FILL ( 1 to 26 )= WORD OPC$W_SECURITY_LENGTH ! Length of text< STRING OPC$T_SECURITY_TEXT = 0 ! Start of text! end record SECURITY_MESSAGE J DECLARE LONG CONSTANT OPC$K_REPLY_MIN_SIZE = 32 ! Min message size4 DECLARE LONG CONSTANT OPC$S_REPLY_MESSAGE = 26 record REPLY_MESSAGE* BYTE OPC$B_REPLY_FILL ( 1 to 26 )< STRING OPC$T_REPLY_OPR = 0 ! Start of text end record REPLY_MESSAGE V DECLARE LONG CONSTANT OPC$K_STATUS_MIN_SIZE = 30 ! Min message size header + 45 DECLARE LONG CONSTANT OPC$S_STATUS_MESSAGE = 26 record STATUS_MESSAGE+ BYTE OPC$B_STATUS_FILL ( 1 to 26 )< STRING OPC$T_STATUS_OPR = 0 ! Start of text end record STATUS_MESSAGE N DECLARE LONG CONSTANT OPC$K_TIMESTAMP_MIN_SIZE = 26 ! Min message size8 DECLARE LONG CONSTANT OPC$S_TIMESTAMP_MESSAGE = 26 record TIMESTAMP_MESSAGE. BYTE OPC$B_TIMESTAMP_FILL ( 1 to 26 )" end record TIMESTAMP_MESSAGE M DECLARE LONG CONSTANT OPC$K_SHUTDOWN_MIN_SIZE = 26 ! Min message size7 DECLARE LONG CONSTANT OPC$S_SHUTDOWN_MESSAGE = 26 record SHUTDOWN_MESSAGE- BYTE OPC$B_SHUTDOWN_FILL ( 1 to 26 )! end record SHUTDOWN_MESSAGE 7 DECLARE LONG CONSTANT OPC$M_CLUSTER = x'00000001'6 DECLARE LONG CONSTANT OPC$S_SHUTDOWN_OPTIONS = 4 record SHUTDOWN_OPTIONS variant case* LONG OPC$L_SHUTDOWN_OPT IONS case0 group OPC$R_SHUTDOWN_OPTIONS_BITSp BYTE CLUSTER_bits ! COMMENT ADDED BY SDL - CLUSTER_bits contains bits CLUSTER through fill_24 end group OPC$R_SHUTDOWN_OPTIONS_BITS end variant! end record SHUTDOWN_OPTIONS K DECLARE LONG CONSTANT OPC$K_CANCEL_MIN_SIZE = 26 ! Min message size5 DECLARE LONG CONSTANT OPC$S_CANCEL_MESSAGE = 26 record CANCEL_MESSAGE+ BYTE OPC$B_CANCEL_FILL ( 1 to 26 ) end record CANCEL_MESSAGE 8 DECLARE LONG CONSTANT OPC$M_RQSTDONE = x'00000001'4 DECLARE LONG CONSTANT OPC$S_CANCEL_OPTIONS = 4 record CANCEL_OPTIONS variant case( LONG OPC$L_CANCEL_OPTIONS case. group OPC$R_CANCEL_OPTIONS_BITSs BYTE RQSTDONE_bits ! COMMENT ADDED BY SDL - RQSTDONE_bits contains bits RQSTDONE through fill_32 end group OPC$R_CANCEL_OPTIONS_BITS end variant end record CANCEL_OPTIONS ww`L!PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:16.96 ! 4 ! OPCMSG.MSG - SYSTEM DEFINITION FILE FOR OPCOM !  ! VERSION: 'X-11' ! R ! ******** ******************************************************************** ! * *> ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1999 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! *   DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! 8 ! THIS FILE CONTAINS THE SOURCE FOR OPCOM MESSAGES. !  ! ENVIRONMENT: ! ! N/A !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! P ! X-11 KSG0138 KEVIN GREANEY 04-OCT-2000N ! CHANGE THE TEXT IN WSINCLUSTER TO REMOVE THE REFERENCE TOM ! WORKSTATION. SINCE MANY ALPHA SERVERS ARE SHIPPING WITHQ ! GRAPHICS CARDS, THEY ARE SEEN AS WORKSTATIONS BY THE COMMANDN ! PROCEDURE VMS$DEVICE_STARTUP.COM. CUSTOM ERS MIGHT NOT BEQ ! HAPPY SEEING THEIR ALPHASERVER REFERRED TO AS A WORKSTATION. ! O ! X-10 KSG0132 KEVIN GREANEY 12-AUG-1999= ! ADD A TRAILING BLANK LINE TO THE WSINCLUSTER MESSAGE > ! ADDED BELOW. IT WILL MAKE IT STAND OUT A LITTLE MORE. ! C ! X-9 KSG0132 KEVIN GREANEY 08-JUL-1999P ! ADD WSINCLUSTER MESSAGE TO LET USERS KNOW THAT THIS SYSTEM C ! IS A WORKSTATION I N A CLUSTER. AND, BY DEFAULT, OPCOM WILL3 ! NOT ENABLE THE OPERATOR CONSOLE OR LOGFILE. ! + ! X-8 KSG KEVIN GREANEY 15-APR-1999? ! ADD THE CODE TO INCLUDE THE STANDARD HEADER IN THE TWO - ! MESSAGES THAT WERE ADDED IN EDIT X-7. ! + ! X-7 KSG KEVIN GREANEY 05-APR-19999 ! ADD OPA0CLERR AND LOGFCLERR ERROR MESSAGES. THIS6 ! IS PART OF THE FIX FOR CFS.51506/PTR 70-3-112. ! 9 ! ALSO, PORT OVER THE FOLLOWING CHANGE FROM AXP TO .  ! KEEP THE TWO OPCMSG.MSG FILES IN SYNC: ! R ! X-5 JMB022 JAMES M. BLUE 14-JUL-1998E ! THE FOLLOWING MESSAGES HAVE BEEN ADDED FOR DK DRIVER - FIBRE- ! CHANNEL AND MULTIPATH REQUIREMENTS - ! S ! PATHINUSE - ANOTHER WORLD WIDE ID DEVICE IS CURRENTLYT ! AT THE SAME PORT, TARGET, LUN COMBINATION.R ! PATHNOTAVL - THE SPECIFIED PATH NO LONGER HAS DEVICESG ! EITHER ENABLED OR ACCESSIBLE.R ! PATHUSERD - THE PATH WAS DISABLED FOR USE BY POLLER.T ! PATHAVL - THE SPECIFIED PATH HAS AT LEAST ONE DEVICEA ! ENABLED AND ACCESSIBLE.S ! PATHAUTSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHEDF ! AUTOMATICALLY TO A NEW PATH.S !  PATHMANSW - THE PATH TO THIS DEVICE HAS BEEN SWITCHEDA ! MANUALLY TO A NEW PATH. ! A ! NOTE: PATHINUSE WAS NEVER ADDED AS A MESSAGE IN THE ABOVE; ! CHANGE, SO IT HAS NOT BEEN ADDED HERE EITHER. ! 2 ! X-6 RAB0172 RICHARD A. BISHOP 17-AUG-1993< ! PICK UP ADDITIONAL SHADOW/DUMPDISK CODES FROM ALPHA: ! 2 ! X-4 KDM0235 KATHLEEN D. MORSE 29-JUL-1993B ! ADD NEW SHADOW MESSAGES: SHANODMP AND SHADMPOK FOR ALPHA. ! 9 ! X-5 JJA92B05_1 JOHN J. ANDRUSZKIEWICZ 21-DEC-19920 ! ALIGN TO EXPECTED VSC GENERATION NUMBER.6 ! MOVE THOSE VOLUME SHADOWING PHASE II MESSAGES. ! 8 ! X-10 JJA92B05 JOHN J. ANDRUSZKIEWICZ 14-DEC-1992/ ! ADD VOLUME SHADOWING PHASE II MESSAGES. ! ) ! X-9 CWH5209 CW HOBBS 8-APR-19890 ! ADD REQUEST NUMBER TO NOPERATOR MESSAGE. ! * ! X-8 CWH5208 CW HOBBS 12-MAR-1989> ! ADD A MORE MEANINGFUL MESSAGE FOR "OPCOM not running". ! 2 ! X-7 WES0235 WILLIAM E. SNAMAN 08-JAN-1988% ! FIX SPACING ERROR IN MESSAGE. ! 2 ! X-6 WES0185 WILLIAM E. SNAMAN 02-SEP-1987> ! ADD SOME NEW CLUSTER MESSAGES FOR SERVED QUORUM DISKS. ! 2 ! X-5 WES0171 WILLIAM E. SNAMAN 29-JUL-1987; ! ADD SOME NEW CLUSTER MESSAGES AND FIX MODULE IDENT. ! 2 ! X-2 NCD0001 NANCY C. DENARDO 29-DEC-1986" ! ADD LICENSE OPERATOR CLASS ! - ! V04-001 DBM0400 DB MILLS 9-SEP-1985& ! ADD VOLUME SHADOWING MESSAGES. ! - ! V03-013 CWH3013 CW HOBBS 2-SEP-1984> ! RESTORE THE EMBEDDED IN RQST_PROMPT WHICH WAS ! REMOVED IN ACG0449. ! ? ! V03-012 ACG0449 ANDREW C. GOLDSTEIN, 31-AUG-1984 13:418 ! FIX TEXT OF "counterfeit security alarm" MESSAGE ! . ! V03-011 CWH3011 CW HOBBS 18-MAY-19845 ! CHANGE THE IN OPREPLY TO A ?/ DIRECTIVE. ! 3 ! V03-010 MHB0158 MARK BRAMHALL 7-MAY-1984*  ! FIX UP THE SECURITY ALARM MESSAGE. ! - ! V03-009 CWH3169 CW HOBBS 5-MAY-1984+ ! SECOND PASS FOR CLUSTER-WIDE OPCOM:C ! - CHANGE SEVERAL MESSAGES TO USE THE STANDARD HEADER, ONLY, ! A FEW STILL USE THE SHORT HEADER.A ! - CHANGE THE FORMAT OF THE HEADER SLIGHTLY, MAKE IT MORE5 ! CLEAR WHEN MESSAGES COME FROM OTHER NODES.A ! - REMOVE THE UDA50MVER AND TM78MVER MESSAGES AND REPLACE; ! THEM WITH THE SINGLE, GENERIC CTLRUCODE MESSAGE.? ! - ADD THE CLU_NOQUORUM CONNECTION MANAGER MESSAGE - IT' ! WAS APPARENTLY NEVER PUT IN. ! . ! V03-008 CWH3008 CW HOBBS 12-APR-19846 ! CHANGE SOME OF THE CONNECTION MANAGER MESSAGES ! 4 ! V03-007 RSH0114 R. SCOTT HANNA 12_MAR-1984, ! CHANGE THE OPC$_COUNTERFEIT MESSAGE. ! 4 ! V03-006 RSH0110 R. SCOTT HANNA 28-FEB-1984A ! CHANGE THE FAO ARGUMENTS IN THE OPC$_SECUR_ALARM MESSAGE. ! . ! V03-005 CWH3005 CW HOBBS 27-SEP-1983, ! IMPROVE CONNECTION MANAGER MESSAGES. ! . ! V03-004 CWH3004 CW HOBBS 16-SEP-1983 ! SHORTEN HEADER ! . ! V03-003 CWH3003 CW HOBBS 16-SEP-1983( ! ADD CONNECTION MANAGER MESSAGES. ! . ! V03-002 CWH3001 CW HOBBS 30-JUL-1983; ! VARIOUS AND SUNDRY THINGS TO MAKE OPCOM DISTRIBUTED ! ACROSS THE CLUSTER. ! 6 ! V03-001 RLRV3A1 ROBERT L. RAPPAPORT 5-APR-19820 ! ADDED MSG$_UDA50MVER AND MSG$_DUPUNITNO.  ! 7 ! V02-006 STJ0180 STEVEN T. JEFFREYS, 07-JAN-1981= ! ADDED MVCOMPLETE AND MVABORTED MESSAGES, AND SLIGHTLYD ! CHANGE THE TEST OF THE EXISTING MOUNT VERIFICATION MESSAGES. ! 7 ! V02-005 STJ0079 STEVEN T. JEFFREYS, 31-JUL-19812 ! ADDED BLANK MESSAGE FOR THE MAG. TAPE ACP. ! 7 ! V02-004 STJ0063 STEVEN T. JEFFREYS, 14-JUL-1981* ! ADDED AN ALTERNATE CANCEL MESSAGE.: ! ADDED AN INITIALIZE MESSAGE FOR THE MAG. TAPE ACP.6 ! ADDED MESSAGES FOR MOUNT VERIFICATION SUPPORT. ! 7 ! V02-003 STJ0042 STEVEN T. JEFFREYS, 22-MAY-1981< ! CHANGE FORMAT OF RQSTCMPLTE, RQSTABORT, AND RQSTPEND9 ! TO BE ENABLE EXISTING CODE TO PARSE THE MESSAGES. ! 7 ! V02-002 STJ0028 STEVEN T. JEFFREYS, 29-MAR-1981< ! MODIFY EXISTING MESSAGES AND ADD NEW ONES AS PART OF& ! THE SUPPORT FOR THE NEW OPCOM. ! +( ! OPERATOR COMMUNICATIONS MESSAGES  ! -/ DECLARE LONG CONSTANT OPCOM$_FACILITY = 52  DECLARE LONG CONSTANT OPC$_TERMENAB = 3604491 DECLARE LONG CONSTANT OPC$_LOGINIT = 3604572 DECLARE LONG CONSTANT OPC$_TERMDSBL = 3604653 DECLARE LONG CONSTANT OPC$_RQSTABORT = 3604762 DECLARE LONG CONSTANT OPC$_RQSTPEND = 3604814 DECLARE LONG CONSTANT OPC$_RQSTCMPLTE = 3604891 DECLARE LONG CONSTANT OPC$_LOGFAIL = 3605002 DECLARE LONG CONSTANT OPC$_TERMFAIL = 3605084 DECLARE LONG CONSTANT OPC$_NOSUCHRQST = 3605164 DECLARE LONG CONSTANT OPC$_D EVOFFLINE = 3605243 DECLARE LONG CONSTANT OPC$_DEVONLINE = 360532/ DECLARE LONG CONSTANT OPC$_NOCLI = 3605403 DECLARE LONG CONSTANT OPC$_NOPERATOR = 3605451 DECLARE LONG CONSTANT OPC$_UNKNOPR = 3605563 DECLARE LONG CONSTANT OPC$_DEVNOTERM = 3605641 DECLARE LONG CONSTANT OPC$_ILLRQST = 3605721 DECLARE LONG CONSTANT OPC$_RQSTCAN = 3605802 DECLARE LONG CONSTANT OPC$_OPRNOTIF = 3605851 DECLARE LONG CONSTANT OPC$_OPREPLY = 3605931 DECLARE LONG CONSTANT OPC$_LOGTIME = 3606011 DECLARE LONG CONSTANT OPC$_LOGCLOS = 3606121 DECLARE LONG CONSTANT OPC$_USERQST = 3606191 DECLARE LONG CONSTANT OPC$_USERMSG = 3606270 DECLARE LONG CONSTANT OPC$_LOGSTS = 3606351 DECLARE LONG CONSTANT OPC$_OPERSTS = 3606432 DECLARE LONG CONSTANT OPC$_RQSTSTST = 3606512 DECLARE LONG CONSTANT OPC$_SHUTDOWN = 3606594 DECLARE LONG CONSTANT OPC$_SYSTEMOPER = 3606673 DECLARE LONG CONSTANT OPC$_GROUPOPER = 360675 2 DECLARE LONG CONSTANT OPC$_USEROPER = 3606834 DECLARE LONG CONSTANT OPC$_NOTENABLED = 360691 ! P ! THE FOLLOWING MESSAGES GIVE THE ASCII TEXT FOR THE OPERATOR TYPES. IT ISP ! POSSIBLE TO CHANGE THE MESSAGE TEXT TO ANYTHING DESIRED. FOR EXAMPLE, ANN ! INSTALLATION MIGHT WANT TO CALL OPER12 BY ANOTHER NAME, SAY FRONT_DESK.C ! THAT INSTALLATION WOULD CHANGE THE LINE WITH OPER12 TO READ: !  ! OPER12  ! Z ! AFTERWARDS, USERS ON TH AT SYSTEM COULD REPLY /ENABLE=FRONT_DESK, REQUEST /TO=FRONT,X ! A FRONT_DESK OPERATOR COULD DO A REPLY /STAT AND SEE THAT FRONT_DESK WAS ENABLED.V ! OF COURSE, A PROGRAMMER ON THAT SYSTEM WOULD USE THE SYMBOL OPC$_OPER12 TO SENDN ! A MESSAGE TO THE FRONT_DESK, SINCE THE MESSAGE NAME CAN NOT BE CHANGED. ! 0 DECLARE LONG CONSTANT OPC$_CENTRL = 360699/ DECLARE LONG CONSTANT OPC$_PRINT = 360707/ DECLARE LONG CONSTANT OPC$_TAPES = 360715/ DECLARE LONG CONSTANT OPC$_DISKS = 3607230 DECLARE LONG CONSTANT OPC$_DEVICE = 360731/ DECLARE LONG CONSTANT OPC$_CARDS = 3607390 DECLARE LONG CONSTANT OPC$_NTWORK = 3607471 DECLARE LONG CONSTANT OPC$_CLUSTER = 3607552 DECLARE LONG CONSTANT OPC$_SECURITY = 360763/ DECLARE LONG CONSTANT OPC$_REPLY = 3607712 DECLARE LONG CONSTANT OPC$_SOFTWARE = 3607791 DECLARE LONG CONSTANT OPC$_LICENSE = 360787/ DECLARE LONG CONSTANT OPC$_OPER1 = 360795/ DECLARE LONG CONSTAN !T OPC$_OPER2 = 360803/ DECLARE LONG CONSTANT OPC$_OPER3 = 360811/ DECLARE LONG CONSTANT OPC$_OPER4 = 360819/ DECLARE LONG CONSTANT OPC$_OPER5 = 360827/ DECLARE LONG CONSTANT OPC$_OPER6 = 360835/ DECLARE LONG CONSTANT OPC$_OPER7 = 360843/ DECLARE LONG CONSTANT OPC$_OPER8 = 360851/ DECLARE LONG CONSTANT OPC$_OPER9 = 3608590 DECLARE LONG CONSTANT OPC$_OPER10 = 3608670 DECLARE LONG CONSTANT OPC$_OPER11 = 3608750 DECLARE LONG CONSTANT OPC$ "_OPER12 = 360883 ! 4 DECLARE LONG CONSTANT OPC$_DEVOFFLINX = 3608912 DECLARE LONG CONSTANT OPC$_WRONGVOL = 3608993 DECLARE LONG CONSTANT OPC$_DEVWRTLCK = 360907 ! 1 DECLARE LONG CONSTANT OPC$_INITAPE = 3609152 DECLARE LONG CONSTANT OPC$_RQSTDONE = 3609233 DECLARE LONG CONSTANT OPC$_BLANKTAPE = 360931 ! 4 DECLARE LONG CONSTANT OPC$_MVCOMPLETE = 3609393 DECLARE LONG CONSTANT OPC$_MVABORTED = 3609473 DECLARE LONG CONSTANT OPC$_CTLRU #CODE = 3609553 DECLARE LONG CONSTANT OPC$_DUPUNITNO = 3609635 DECLARE LONG CONSTANT OPC$_SECUR_ALARM = 3609715 DECLARE LONG CONSTANT OPC$_COUNTERFEIT = 3609795 DECLARE LONG CONSTANT OPC$_NODE_ACTIVE = 3609875 DECLARE LONG CONSTANT OPC$_NODE_DELETE = 3609957 DECLARE LONG CONSTANT OPC$_NODE_DEPARTED = 3610033 DECLARE LONG CONSTANT OPC$_NODE_INIT = 3610114 DECLARE LONG CONSTANT OPC$_NODE_RETRY = 3610194 DECLARE LONG CONSTANT OPC$_NODE_START = $3610271 DECLARE LONG CONSTANT OPC$_UNKNOWN = 3610352 DECLARE LONG CONSTANT OPC$_CLUSCOMM = 3610431 DECLARE LONG CONSTANT OPC$_VALUERR = 3610521 DECLARE LONG CONSTANT OPC$_NOTRQCB = 3610607 DECLARE LONG CONSTANT OPC$_REPLY_GENERAL = 3610678 DECLARE LONG CONSTANT OPC$_REPLY_SHUTDOWN = 3610756 DECLARE LONG CONSTANT OPC$_REPLY_URGENT = 3610836 DECLARE LONG CONSTANT OPC$_REPLY_NOTALL = 3610917 DECLARE LONG CONSTANT OPC$_REPLY_NOTALLN = 3610996 % DECLARE LONG CONSTANT OPC$_REPLY_NOTDEV = 3611076 DECLARE LONG CONSTANT OPC$_REPLY_NOTUSE = 3611157 DECLARE LONG CONSTANT OPC$_REPLY_NOTUSEN = 361123n DECLARE LONG CONSTANT OPC$_ON_NODE = 361131 ! PREPOSITION FOR "on nodename" ( "on ATHENS" ) MESSAGES0 DECLARE LONG CONSTANT OPC$_HEADER = 3611395 DECLARE LONG CONSTANT OPC$_RQST_PROMPT = 3611474 DECLARE LONG CONSTANT OPC$_NOLCLBROAD = 3611524 DECLARE LONG CONSTANT OPC$_NOREMBROAD = 3611603 DECLARE &LONG CONSTANT OPC$_NOREMWAIT = 361168 !  ! CLUSTER MAILBOX MESSAGES ! FAO PARAMETER LIST IS: ! + ! TIMESTAMP - POINTER TO QUADWORD TIME1 ! LSYSNAML - LENGTH OF NAME OF LOCAL SYSTEM2 ! LSYSNAMA - ADDRESS OF NAME OF LOCAL SYSTEM5 ! LSYSIDW - HIGH ORDER WORD OF LOCAL SYSTEM ID8 ! LSYSIDL - LOW ORDER LONGWORD OF LOCAL SYSTEM ID$ ! LCSID - LOCAL SYSTEM CSID2 ! RSYSNAML - LENGTH OF NAME OF REMOTE SYSTEM3 ! RSYSNAMA - ADDRESS O 'F NAME OF REMOTE SYSTEM6 ! RSYSIDW - HIGH ORDER WORD OF REMOTE SYSTEM ID9 ! RSYSIDL - LOW ORDER LONGWORD OF REMOTE SYSTEM ID% ! RCSID - REMOTE SYSTEM CSID ! ? ! MESSAGES USE THE "?+" DIRECTIVE TO SKIP OVER ITEMS WHICH= ! ARE NOT MEANINGFUL OR USEFUL FOR A PARTICULAR MESSAGE. ! 4 DECLARE LONG CONSTANT OPC$_CLU_NEWSYS = 3611791 DECLARE LONG CONSTANT OPC$_CLU_CNX = 3611873 DECLARE LONG CONSTANT OPC$_CLU_RECNX = 3611955 DECLARE LONG ( CONSTANT OPC$_CLU_LOSTCNX = 3612034 DECLARE LONG CONSTANT OPC$_CLU_TIMCNX = 3612115 DECLARE LONG CONSTANT OPC$_CLU_INIFORM = 3612194 DECLARE LONG CONSTANT OPC$_CLU_INIADD = 3612278 DECLARE LONG CONSTANT OPC$_CLU_INIRECNFIG = 3612354 DECLARE LONG CONSTANT OPC$_CLU_MEMREQ = 3612433 DECLARE LONG CONSTANT OPC$_CLU_ABORT = 3612511 DECLARE LONG CONSTANT OPC$_CLU_ADD = 3612596 DECLARE LONG CONSTANT OPC$_CLU_DROPNODE = 3612676 DECLARE LONG CONSTANT OP )C$_CLU_FORNCLUS = 3612756 DECLARE LONG CONSTANT OPC$_CLU_INQUORUM = 3612836 DECLARE LONG CONSTANT OPC$_CLU_LOSTDISK = 3612916 DECLARE LONG CONSTANT OPC$_CLU_GAINDISK = 3612997 DECLARE LONG CONSTANT OPC$_CLU_DISKRDERR = 3613077 DECLARE LONG CONSTANT OPC$_CLU_DISKWRERR = 3613158 DECLARE LONG CONSTANT OPC$_CLU_DISKINVDAT = 3613239 DECLARE LONG CONSTANT OPC$_CLU_DISKTIMEOUT = 3613315 DECLARE LONG CONSTANT OPC$_CLU_LOSTMSG = 3613396 DECLARE LONG CON *STANT OPC$_CLU_NOQUORUM = 3613476 DECLARE LONG CONSTANT OPC$_CLU_FORNDISK = 3613556 DECLARE LONG CONSTANT OPC$_CLU_COMPLETE = 3613634 DECLARE LONG CONSTANT OPC$_CLU_QUORUM = 3613712 DECLARE LONG CONSTANT OPC$_CLU_ECNX = 3613796 DECLARE LONG CONSTANT OPC$_CLU_HAVEDISK = 3613874 DECLARE LONG CONSTANT OPC$_CLU_REMOTE = 3613953 DECLARE LONG CONSTANT OPC$_CLU_LOCAL = 3614039 DECLARE LONG CONSTANT OPC$_CLU_WTCHTIMEOUT = 3614119 DECLARE LONG CONSTANT OP +C$_CLU_NOTRUST = 361419 ! 2 ! FOLLOWING ARE DEVICE MESSAGE FOR SHADOWING. ! 3 DECLARE LONG CONSTANT OPC$_SHACHASTA = 3614273 DECLARE LONG CONSTANT OPC$_SHAMEMFAL = 3614353 DECLARE LONG CONSTANT OPC$_SHARDUCED = 3614433 DECLARE LONG CONSTANT OPC$_SHACOPCOM = 3614513 DECLARE LONG CONSTANT OPC$_SHACOPBEG = 3614593 DECLARE LONG CONSTANT OPC$_SHAALLCOM = 3614673 DECLARE LONG CONSTANT OPC$_SHAWROMEM = 3614753 DECLARE LONG CONSTANT OPC$_SHARE ,DZER = 3614833 DECLARE LONG CONSTANT OPC$_SHAPOSMEM = 3614913 DECLARE LONG CONSTANT OPC$_SHAORGMEM = 3614991 DECLARE LONG CONSTANT OPC$_NOOPCOM = 3615047 ! FOLLOWING ARE MORE DEVICE MESSAGE FOR SHADOWING. ! 3 DECLARE LONG CONSTANT OPC$_SHAADPBAD = 3615153 DECLARE LONG CONSTANT OPC$_SHAEMUPTH = 3615234 DECLARE LONG CONSTANT OPC$_SHABENODMP = 3615313 DECLARE LONG CONSTANT OPC$_SHABNODMP = 3615393 DECLARE LONG CONSTANT OPC$_SHALOCDEV = 361 -5473 DECLARE LONG CONSTANT OPC$_SHANOBPOK = 3615553 DECLARE LONG CONSTANT OPC$_SHABDMPOK = 3615633 DECLARE LONG CONSTANT OPC$_BOOTDMPOK = 3615712 DECLARE LONG CONSTANT OPC$_SHABDBCK = 3615792 DECLARE LONG CONSTANT OPC$_SHANODMP = 361587o DECLARE LONG CONSTANT OPC$_SHADMPOK = 361595 ! THE FOLLOWING MESSAGES ARE FOR FIBRE CHANNEL - MULTIPATH ! 4 DECLARE LONG CONSTANT OPC$_PATHNOTAVL = 3616031 DECLARE LONG CONSTANT OPC$_PATHAVL = 3616113 DECLARE LONG CONSTANT OPC$_PATHUSERD = 3616193 DECLARE LONG CONSTANT OPC$_PATHAUTSW = 3616273 DECLARE LONG CONSTANT OPC$_PATHMANSW = 3616353 DECLARE LONG CONSTANT OPC$_OPA0CLERR = 3616403 DECLARE LONG CONSTANT OPC$_LOGFCLERR = 3616485 DECLARE LONG CONSTANT OPC$_WSINCLUSTER = 361659ww/NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET0 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ( DECLARE LONG CONSTANT OP$_HALT = 0' DECLARE LONG CONSTANT OP$_NOP = 1' DECLARE LONG CONSTANT OP$_REI = 2' DECLARE LONG CONSTANT OP$_BPT = 3' DECLARE LONG CONSTANT OP$_RET = 4 1' DECLARE LONG CONSTANT OP$_RSB = 5* DECLARE LONG CONSTANT OP$_LDPCTX = 6* DECLARE LONG CONSTANT OP$_SVPCTX = 7) DECLARE LONG CONSTANT OP$_CVTPS = 8) DECLARE LONG CONSTANT OP$_CVTSP = 9* DECLARE LONG CONSTANT OP$_INDEX = 10( DECLARE LONG CONSTANT OP$_CRC = 11+ DECLARE LONG CONSTANT OP$_PROBER = 12+ DECLARE LONG CONSTANT OP$_PROBEW = 13+ DECLARE LONG CONSTANT OP$_INSQUE = 14+ DECLARE LONG CONSTANT OP$_REMQUE = 15) DECLARE LO 2NG CONSTANT OP$_BSBB = 16( DECLARE LONG CONSTANT OP$_BSB = 16( DECLARE LONG CONSTANT OP$_BRB = 17) DECLARE LONG CONSTANT OP$_BNEQ = 18* DECLARE LONG CONSTANT OP$_BNEQU = 18) DECLARE LONG CONSTANT OP$_BEQL = 19* DECLARE LONG CONSTANT OP$_BEQLU = 19) DECLARE LONG CONSTANT OP$_BGTR = 20) DECLARE LONG CONSTANT OP$_BLEQ = 21( DECLARE LONG CONSTANT OP$_JSB = 22( DECLARE LONG CONSTANT OP$_JMP = 23) DECLARE LONG CONSTANT OP$_BGEQ = 24) 3 DECLARE LONG CONSTANT OP$_BLSS = 25* DECLARE LONG CONSTANT OP$_BGTRU = 26* DECLARE LONG CONSTANT OP$_BLEQU = 27( DECLARE LONG CONSTANT OP$_BVC = 28( DECLARE LONG CONSTANT OP$_BVS = 29* DECLARE LONG CONSTANT OP$_BGEQU = 30( DECLARE LONG CONSTANT OP$_BCC = 30* DECLARE LONG CONSTANT OP$_BLSSU = 31( DECLARE LONG CONSTANT OP$_BCS = 31* DECLARE LONG CONSTANT OP$_ADDP4 = 32) DECLARE LONG CONSTANT OP$_ADDP = 32* DECLARE LONG CONSTANT OP$_ 4ADDP6 = 33* DECLARE LONG CONSTANT OP$_SUBP4 = 34) DECLARE LONG CONSTANT OP$_SUBP = 34* DECLARE LONG CONSTANT OP$_SUBP6 = 35* DECLARE LONG CONSTANT OP$_CVTPT = 36) DECLARE LONG CONSTANT OP$_MULP = 37* DECLARE LONG CONSTANT OP$_CVTTP = 38) DECLARE LONG CONSTANT OP$_DIVP = 39* DECLARE LONG CONSTANT OP$_MOVC3 = 40) DECLARE LONG CONSTANT OP$_MOVC = 40* DECLARE LONG CONSTANT OP$_CMPC3 = 41) DECLARE LONG CONSTANT OP$_CMPC = 41* DECL 5ARE LONG CONSTANT OP$_SCANC = 42* DECLARE LONG CONSTANT OP$_SPANC = 43* DECLARE LONG CONSTANT OP$_MOVC5 = 44* DECLARE LONG CONSTANT OP$_CMPC5 = 45* DECLARE LONG CONSTANT OP$_MOVTC = 46+ DECLARE LONG CONSTANT OP$_MOVTUC = 47) DECLARE LONG CONSTANT OP$_BSBW = 48( DECLARE LONG CONSTANT OP$_BRW = 49 ! BR,^X31* DECLARE LONG CONSTANT OP$_CVTWL = 50* DECLARE LONG CONSTANT OP$_CVTWB = 51) DECLARE LONG CONSTANT OP$_MOVP = 52 6* DECLARE LONG CONSTANT OP$_CMPP3 = 53) DECLARE LONG CONSTANT OP$_CMPP = 53* DECLARE LONG CONSTANT OP$_CVTPL = 54* DECLARE LONG CONSTANT OP$_CMPP4 = 55+ DECLARE LONG CONSTANT OP$_EDITPC = 56+ DECLARE LONG CONSTANT OP$_MATCHC = 57) DECLARE LONG CONSTANT OP$_LOCC = 58) DECLARE LONG CONSTANT OP$_SKPC = 59+ DECLARE LONG CONSTANT OP$_MOVZWL = 60) DECLARE LONG CONSTANT OP$_ACBW = 61* DECLARE LONG CONSTANT OP$_MOVAW = 62+ DECLARE 7LONG CONSTANT OP$_PUSHAW = 63* DECLARE LONG CONSTANT OP$_ADDF2 = 64) DECLARE LONG CONSTANT OP$_ADDF = 64* DECLARE LONG CONSTANT OP$_ADDF3 = 65* DECLARE LONG CONSTANT OP$_SUBF2 = 66) DECLARE LONG CONSTANT OP$_SUBF = 66* DECLARE LONG CONSTANT OP$_SUBF3 = 67* DECLARE LONG CONSTANT OP$_MULF2 = 68) DECLARE LONG CONSTANT OP$_MULF = 68* DECLARE LONG CONSTANT OP$_MULF3 = 69* DECLARE LONG CONSTANT OP$_DIVF2 = 70) DECLARE LONG CONSTANT OP$_DI 8VF = 70* DECLARE LONG CONSTANT OP$_DIVF3 = 71* DECLARE LONG CONSTANT OP$_CVTFB = 72* DECLARE LONG CONSTANT OP$_CVTFW = 73* DECLARE LONG CONSTANT OP$_CVTFL = 74+ DECLARE LONG CONSTANT OP$_CVTRFL = 75* DECLARE LONG CONSTANT OP$_CVTBF = 76* DECLARE LONG CONSTANT OP$_CVTWF = 77* DECLARE LONG CONSTANT OP$_CVTLF = 78) DECLARE LONG CONSTANT OP$_ACBF = 79) DECLARE LONG CONSTANT OP$_MOVF = 80) DECLARE LONG CONSTANT OP$_CMPF = 81* DECL9ARE LONG CONSTANT OP$_MNEGF = 82) DECLARE LONG CONSTANT OP$_TSTF = 83* DECLARE LONG CONSTANT OP$_EMODF = 84* DECLARE LONG CONSTANT OP$_POLYF = 85* DECLARE LONG CONSTANT OP$_CVTFD = 86 ! RESERVED 57* DECLARE LONG CONSTANT OP$_ADAWI = 88 ! RESERVED 59 ! RESERVED 5A ! RESERVED 5B+ DECLARE LONG CONSTANT OP$_INSQHI = 92+ DECLARE LONG CONSTANT OP$_INSQTI = 93+ DECLARE LONG CONSTANT OP$_REMQHI = 94+ : DECLARE LONG CONSTANT OP$_REMQTI = 95* DECLARE LONG CONSTANT OP$_ADDD2 = 96) DECLARE LONG CONSTANT OP$_ADDD = 96* DECLARE LONG CONSTANT OP$_ADDD3 = 97* DECLARE LONG CONSTANT OP$_SUBD2 = 98) DECLARE LONG CONSTANT OP$_SUBD = 98* DECLARE LONG CONSTANT OP$_SUBD3 = 99+ DECLARE LONG CONSTANT OP$_MULD2 = 100* DECLARE LONG CONSTANT OP$_MULD = 100+ DECLARE LONG CONSTANT OP$_MULD3 = 101+ DECLARE LONG CONSTANT OP$_DIVD2 = 102* DECLARE LO ;NG CONSTANT OP$_DIVD = 102+ DECLARE LONG CONSTANT OP$_DIVD3 = 103+ DECLARE LONG CONSTANT OP$_CVTDB = 104+ DECLARE LONG CONSTANT OP$_CVTDW = 105+ DECLARE LONG CONSTANT OP$_CVTDL = 106, DECLARE LONG CONSTANT OP$_CVTRDL = 107+ DECLARE LONG CONSTANT OP$_CVTBD = 108+ DECLARE LONG CONSTANT OP$_CVTWD = 109+ DECLARE LONG CONSTANT OP$_CVTLD = 110* DECLARE LONG CONSTANT OP$_ACBD = 111* DECLARE LONG CONSTANT OP$_MOVD = 112* DECLARE LONG CON <STANT OP$_CMPD = 113+ DECLARE LONG CONSTANT OP$_MNEGD = 114* DECLARE LONG CONSTANT OP$_TSTD = 115+ DECLARE LONG CONSTANT OP$_EMODD = 116+ DECLARE LONG CONSTANT OP$_POLYD = 117+ DECLARE LONG CONSTANT OP$_CVTDF = 118 ! RESERVED 77* DECLARE LONG CONSTANT OP$_ASHL = 120* DECLARE LONG CONSTANT OP$_ASHQ = 121* DECLARE LONG CONSTANT OP$_EMUL = 122* DECLARE LONG CONSTANT OP$_EDIV = 123* DECLARE LONG CONSTANT OP$_CLRQ = 124* DE =CLARE LONG CONSTANT OP$_CLRD = 124* DECLARE LONG CONSTANT OP$_CLRG = 124* DECLARE LONG CONSTANT OP$_MOVQ = 125+ DECLARE LONG CONSTANT OP$_MOVAQ = 126+ DECLARE LONG CONSTANT OP$_MOVAD = 126+ DECLARE LONG CONSTANT OP$_MOVAG = 126, DECLARE LONG CONSTANT OP$_PUSHAQ = 127, DECLARE LONG CONSTANT OP$_PUSHAD = 127, DECLARE LONG CONSTANT OP$_PUSHAG = 127+ DECLARE LONG CONSTANT OP$_ADDB2 = 128* DECLARE LONG CONSTANT OP$_ADDB = 128+ DECLARE LO >NG CONSTANT OP$_ADDB3 = 129+ DECLARE LONG CONSTANT OP$_SUBB2 = 130* DECLARE LONG CONSTANT OP$_SUBB = 130+ DECLARE LONG CONSTANT OP$_SUBB3 = 131+ DECLARE LONG CONSTANT OP$_MULB2 = 132* DECLARE LONG CONSTANT OP$_MULB = 132+ DECLARE LONG CONSTANT OP$_MULB3 = 133+ DECLARE LONG CONSTANT OP$_DIVB2 = 134* DECLARE LONG CONSTANT OP$_DIVB = 134+ DECLARE LONG CONSTANT OP$_DIVB3 = 135+ DECLARE LONG CONSTANT OP$_BISB2 = 136* DECLARE LONG CON ?STANT OP$_BISB = 136+ DECLARE LONG CONSTANT OP$_BISB3 = 137+ DECLARE LONG CONSTANT OP$_BICB2 = 138* DECLARE LONG CONSTANT OP$_BICB = 138+ DECLARE LONG CONSTANT OP$_BICB3 = 139+ DECLARE LONG CONSTANT OP$_XORB2 = 140* DECLARE LONG CONSTANT OP$_XORB = 140+ DECLARE LONG CONSTANT OP$_XORB3 = 141+ DECLARE LONG CONSTANT OP$_MNEGB = 142+ DECLARE LONG CONSTANT OP$_CASEB = 143* DECLARE LONG CONSTANT OP$_MOVB = 144* DECLARE LONG CONSTANT OP @$_CMPB = 145+ DECLARE LONG CONSTANT OP$_MCOMB = 146* DECLARE LONG CONSTANT OP$_BITB = 147* DECLARE LONG CONSTANT OP$_CLRB = 148* DECLARE LONG CONSTANT OP$_TSTB = 149* DECLARE LONG CONSTANT OP$_INCB = 150* DECLARE LONG CONSTANT OP$_DECB = 151+ DECLARE LONG CONSTANT OP$_CVTBL = 152+ DECLARE LONG CONSTANT OP$_CVTBW = 153, DECLARE LONG CONSTANT OP$_MOVZBL = 154, DECLARE LONG CONSTANT OP$_MOVZBW = 155* DECLARE LONG CONSTANT OP$_ROTL = 156 A* DECLARE LONG CONSTANT OP$_ACBB = 157+ DECLARE LONG CONSTANT OP$_MOVAB = 158, DECLARE LONG CONSTANT OP$_PUSHAB = 159+ DECLARE LONG CONSTANT OP$_ADDW2 = 160* DECLARE LONG CONSTANT OP$_ADDW = 160+ DECLARE LONG CONSTANT OP$_ADDW3 = 161+ DECLARE LONG CONSTANT OP$_SUBW2 = 162* DECLARE LONG CONSTANT OP$_SUBW = 162+ DECLARE LONG CONSTANT OP$_SUBW3 = 163+ DECLARE LONG CONSTANT OP$_MULW2 = 164* DECLARE LONG CONSTANT OP$_MULW = 164+ BDECLARE LONG CONSTANT OP$_MULW3 = 165+ DECLARE LONG CONSTANT OP$_DIVW2 = 166* DECLARE LONG CONSTANT OP$_DIVW = 166+ DECLARE LONG CONSTANT OP$_DIVW3 = 167+ DECLARE LONG CONSTANT OP$_BISW2 = 168* DECLARE LONG CONSTANT OP$_BISW = 168+ DECLARE LONG CONSTANT OP$_BISW3 = 169+ DECLARE LONG CONSTANT OP$_BICW2 = 170* DECLARE LONG CONSTANT OP$_BICW = 170+ DECLARE LONG CONSTANT OP$_BICW3 = 171+ DECLARE LONG CONSTANT OP$_XORW2 = 172* DECLAR CE LONG CONSTANT OP$_XORW = 172+ DECLARE LONG CONSTANT OP$_XORW3 = 173+ DECLARE LONG CONSTANT OP$_MNEGW = 174+ DECLARE LONG CONSTANT OP$_CASEW = 175* DECLARE LONG CONSTANT OP$_MOVW = 176* DECLARE LONG CONSTANT OP$_CMPW = 177+ DECLARE LONG CONSTANT OP$_MCOMW = 178* DECLARE LONG CONSTANT OP$_BITW = 179* DECLARE LONG CONSTANT OP$_CLRW = 180* DECLARE LONG CONSTANT OP$_TSTW = 181* DECLARE LONG CONSTANT OP$_INCW = 182* DECLARE LONG CONSTAN DT OP$_DECW = 183, DECLARE LONG CONSTANT OP$_BISPSW = 184, DECLARE LONG CONSTANT OP$_BICPSW = 185* DECLARE LONG CONSTANT OP$_POPR = 186+ DECLARE LONG CONSTANT OP$_PUSHR = 187* DECLARE LONG CONSTANT OP$_CHMK = 188* DECLARE LONG CONSTANT OP$_CHME = 189* DECLARE LONG CONSTANT OP$_CHMS = 190* DECLARE LONG CONSTANT OP$_CHMU = 191+ DECLARE LONG CONSTANT OP$_ADDL2 = 192* DECLARE LONG CONSTANT OP$_ADDL = 192+ DECLARE LONG CONSTANT OP$_ADDL3 = E193+ DECLARE LONG CONSTANT OP$_SUBL2 = 194* DECLARE LONG CONSTANT OP$_SUBL = 194+ DECLARE LONG CONSTANT OP$_SUBL3 = 195+ DECLARE LONG CONSTANT OP$_MULL2 = 196* DECLARE LONG CONSTANT OP$_MULL = 196+ DECLARE LONG CONSTANT OP$_MULL3 = 197+ DECLARE LONG CONSTANT OP$_DIVL2 = 198* DECLARE LONG CONSTANT OP$_DIVL = 198+ DECLARE LONG CONSTANT OP$_DIVL3 = 199+ DECLARE LONG CONSTANT OP$_BISL2 = 200* DECLARE LONG CONSTANT OP$_BISL = 200+ F DECLARE LONG CONSTANT OP$_BISL3 = 201+ DECLARE LONG CONSTANT OP$_BICL2 = 202* DECLARE LONG CONSTANT OP$_BICL = 202+ DECLARE LONG CONSTANT OP$_BICL3 = 203+ DECLARE LONG CONSTANT OP$_XORL2 = 204* DECLARE LONG CONSTANT OP$_XORL = 204+ DECLARE LONG CONSTANT OP$_XORL3 = 205+ DECLARE LONG CONSTANT OP$_MNEGL = 206+ DECLARE LONG CONSTANT OP$_CASEL = 207* DECLARE LONG CONSTANT OP$_MOVL = 208* DECLARE LONG CONSTANT OP$_CMPL = 209+ DECL GARE LONG CONSTANT OP$_MCOML = 210* DECLARE LONG CONSTANT OP$_BITL = 211* DECLARE LONG CONSTANT OP$_CLRL = 212* DECLARE LONG CONSTANT OP$_CLRF = 212* DECLARE LONG CONSTANT OP$_TSTL = 213* DECLARE LONG CONSTANT OP$_INCL = 214* DECLARE LONG CONSTANT OP$_DECL = 215* DECLARE LONG CONSTANT OP$_ADWC = 216* DECLARE LONG CONSTANT OP$_SBWC = 217* DECLARE LONG CONSTANT OP$_MTPR = 218* DECLARE LONG CONSTANT OP$_MFPR = 219, DECLARE LONG CONSTANT OP H$_MOVPSL = 220+ DECLARE LONG CONSTANT OP$_PUSHL = 221, DECLARE LONG CONSTANT OP$_POPL = 36560+ DECLARE LONG CONSTANT OP$_MOVAL = 222+ DECLARE LONG CONSTANT OP$_MOVAF = 222, DECLARE LONG CONSTANT OP$_PUSHAL = 223, DECLARE LONG CONSTANT OP$_PUSHAF = 223) DECLARE LONG CONSTANT OP$_BBS = 224) DECLARE LONG CONSTANT OP$_BBC = 225* DECLARE LONG CONSTANT OP$_BBSS = 226* DECLARE LONG CONSTANT OP$_BBCS = 227* DECLARE LONG CONSTANT OP$_BBSC = I 228* DECLARE LONG CONSTANT OP$_BBCC = 229+ DECLARE LONG CONSTANT OP$_BBSSI = 230+ DECLARE LONG CONSTANT OP$_BBCCI = 231* DECLARE LONG CONSTANT OP$_BLBS = 232* DECLARE LONG CONSTANT OP$_BLBC = 233) DECLARE LONG CONSTANT OP$_FFS = 234) DECLARE LONG CONSTANT OP$_FFC = 235* DECLARE LONG CONSTANT OP$_CMPV = 236+ DECLARE LONG CONSTANT OP$_CMPZV = 237* DECLARE LONG CONSTANT OP$_EXTV = 238+ DECLARE LONG CONSTANT OP$_EXTZV = 239* DE JCLARE LONG CONSTANT OP$_INSV = 240* DECLARE LONG CONSTANT OP$_ACBL = 241, DECLARE LONG CONSTANT OP$_AOBLSS = 242, DECLARE LONG CONSTANT OP$_AOBLEQ = 243, DECLARE LONG CONSTANT OP$_SOBGEQ = 244, DECLARE LONG CONSTANT OP$_SOBGTR = 245+ DECLARE LONG CONSTANT OP$_CVTLB = 246+ DECLARE LONG CONSTANT OP$_CVTLW = 247* DECLARE LONG CONSTANT OP$_ASHP = 248+ DECLARE LONG CONSTANT OP$_CVTLP = 249+ DECLARE LONG CONSTANT OP$_CALLG = 250+ DECLARE KLONG CONSTANT OP$_CALLS = 251) DECLARE LONG CONSTANT OP$_XFC = 252* DECLARE LONG CONSTANT OP$_ESCD = 253* DECLARE LONG CONSTANT OP$_ESCE = 254* DECLARE LONG CONSTANT OP$_ESCF = 255, DECLARE LONG CONSTANT OP$_BUGW = 65279, DECLARE LONG CONSTANT OP$_BUGL = 65023- DECLARE LONG CONSTANT OP$_CVTDH = 13053- DECLARE LONG CONSTANT OP$_CVTGF = 13309- DECLARE LONG CONSTANT OP$_ADDG2 = 16637- DECLARE LONG CONSTANT OP$_ADDG3 = 16893- DECLARE LLONG CONSTANT OP$_SUBG2 = 17149- DECLARE LONG CONSTANT OP$_SUBG3 = 17405- DECLARE LONG CONSTANT OP$_MULG2 = 17661- DECLARE LONG CONSTANT OP$_MULG3 = 17917- DECLARE LONG CONSTANT OP$_DIVG2 = 18173- DECLARE LONG CONSTANT OP$_DIVG3 = 18429- DECLARE LONG CONSTANT OP$_ADDH2 = 24829- DECLARE LONG CONSTANT OP$_ADDH3 = 25085- DECLARE LONG CONSTANT OP$_SUBH2 = 25341- DECLARE LONG CONSTANT OP$_SUBH3 = 25597- DECLARE LONG CONSTANT OP$_MULH2 = M25853- DECLARE LONG CONSTANT OP$_MULH3 = 26109- DECLARE LONG CONSTANT OP$_DIVH2 = 26365- DECLARE LONG CONSTANT OP$_DIVH3 = 26621- DECLARE LONG CONSTANT OP$_CVTGB = 18685- DECLARE LONG CONSTANT OP$_CVTGW = 18941- DECLARE LONG CONSTANT OP$_CVTGL = 19197. DECLARE LONG CONSTANT OP$_CVTRGL = 19453- DECLARE LONG CONSTANT OP$_CVTBG = 19709- DECLARE LONG CONSTANT OP$_CVTWG = 19965- DECLARE LONG CONSTANT OP$_CVTLG = 20221, DECLARE LONG N CONSTANT OP$_ACBG = 20477- DECLARE LONG CONSTANT OP$_CVTHB = 26877- DECLARE LONG CONSTANT OP$_CVTHW = 27133- DECLARE LONG CONSTANT OP$_CVTHL = 27389. DECLARE LONG CONSTANT OP$_CVTRHL = 27645- DECLARE LONG CONSTANT OP$_CVTBH = 27901- DECLARE LONG CONSTANT OP$_CVTWH = 28157- DECLARE LONG CONSTANT OP$_CVTLH = 28413, DECLARE LONG CONSTANT OP$_ACBH = 28669, DECLARE LONG CONSTANT OP$_MOVG = 20733, DECLARE LONG CONSTANT OP$_CMPG = 20989- O DECLARE LONG CONSTANT OP$_MNEGG = 21245, DECLARE LONG CONSTANT OP$_TSTG = 21501- DECLARE LONG CONSTANT OP$_EMODG = 21757- DECLARE LONG CONSTANT OP$_POLYG = 22013- DECLARE LONG CONSTANT OP$_CVTGH = 22269, DECLARE LONG CONSTANT OP$_MOVH = 28925, DECLARE LONG CONSTANT OP$_CMPH = 29181- DECLARE LONG CONSTANT OP$_MNEGH = 29437, DECLARE LONG CONSTANT OP$_TSTH = 29693- DECLARE LONG CONSTANT OP$_EMODH = 29949- DECLARE LONG CONSTANT OP$_POLYH P= 30205- DECLARE LONG CONSTANT OP$_CVTHG = 30461 ! CLRG,^X7C, DECLARE LONG CONSTANT OP$_CLRH = 31997, DECLARE LONG CONSTANT OP$_CLRO = 31997, DECLARE LONG CONSTANT OP$_MOVO = 32253- DECLARE LONG CONSTANT OP$_MOVAH = 32509- DECLARE LONG CONSTANT OP$_MOVAO = 32509. DECLARE LONG CONSTANT OP$_PUSHAH = 32765. DECLARE LONG CONSTANT OP$_PUSHAO = 32765- DECLARE LONG CONSTANT OP$_CVTFH = 39165- DECLARE LONG CONSTANT OP$_CVTFG = 39421- DECLARE LONG CONSTANT OP$_CVTHF = 63229- DECLARE LONG CONSTANT OP$_CVTHD = 63485wwR#PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGISNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETT %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARDU, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY V * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! W*************************************************************************** ! OTS$CVT_T_D ! 8 ! Convert Numeric Text to D- or F-Floating Value ! ? ! The Convert Numeric Text to D- or F-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a D-floating or F-floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_d & ( &% STRING BY DESC, &$ X DOUBLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_F ! 8 ! Convert Numeric Text to D- or F-Floating Value ! ? ! The Convert Numeric Text to D- or F-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a D_floating or F_floating value. ! + Y EXTERNAL LONG FUNCTION ots$cvt_t_f & ( &% STRING BY DESC, &$ SINGLE BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_G ! 8 ! Convert Numeric Text to G- or H-Floating Value ! ? ! The Convert Numeric Text to G- or H-Floating routines: ! converZt an ASCII text string representation of a< ! numeric value to a G-floating or H-floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_g & ( &% STRING BY DESC, &$ GFLOAT BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! WORD BY REF & ) ! OTS$CVT_T_H ! 8 ! Convert Numeric Text t[o G- or H-Floating Value ! ? ! The Convert Numeric Text to G- or H-Floating routines: ! convert an ASCII text string representation of a< ! numeric value to a G_floating or H_floating value. ! + EXTERNAL LONG FUNCTION ots$cvt_t_h & ( &% STRING BY DESC, &$ HFLOAT BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! \ WORD BY REF & ) ! OTS$DIVC !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 0 ! ENTRY ots$divc ALIAS $ots_divc PARAMETER (6 ! F_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME f_floating_complex VALUE,5 ! F_FLOATING COMPLEX NAMED complex_divisor IN1 ! TYPENAME f_floating_co]mplex VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$DIVCD_R3 !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 8 ! ENTRY ots$divcd_r3 ALIAS $ots_divcd_r3 PARAMETER (6 ! D_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME d_floating_complex VALUE,5 ! D_FLOATING COMPLEX NAMED com^plex_divisor IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$DIVCG_R3 !  ! Complex Division ! ' ! The Complex Division routines: ! return a complex result of a division on complex ! numbers. ! 8 ! ENTRY ots$divcg_r3 ALIAS $ots_divcg_r3 PARAMETER (6 ! G_FLOATING COMPLEX NAMED complex_dividend IN0 ! TYPENAME g_floating_ _complex VALUE,5 ! G_FLOATING COMPLEX NAMED complex_divisor IN0 ! TYPENAME g_floatin_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$DIV_PK_LONG ! 3 ! Packed Decimal Division with Long Divisor ! ? ! The Packed Decimal Division with Long Divisor routineE ! divides fixed-point decimal data, which is stored in packedS ! decimal form, when precision and scale requirements `for the quotient callO ! for multiple precision division. The divisor must have a precision of& ! thirty or thirty-one digits. ! / EXTERNAL LONG FUNCTION ots$div_pk_long & ( &! ANY BY REF, &! ANY BY REF, &$ WORD BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &$ WORD BY VALUE, &# WORD BY VALUE & )a ! OTS$DIV_PK_SHORT ! 4 ! Packed Decimal Division with Short Divisor ! @ ! The Packed Decimal Division with Short Divisor routine* ! divides fixed-point decimal dataI ! when precision and scale requirements for the quotient call for' ! multiple-precision division. ! 0 EXTERNAL LONG FUNCTION ots$div_pk_short & ( &! ANY BY REF, &! ANY BY REF, &$ b WORD BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &# WORD BY VALUE & ) ! OTS$MOVE3 ! ! Move Data Without Fill ! , ! The Move Data Without Fill routine@ ! moves up to 231--1 bytes (2,147,483,647 bytes) from aF ! specified source address to a specified destination address. !  EXTERNAL SUB ots$move3 & ( &$ LONG BcY VALUE, &' BYTE DIM() BY REF, && BYTE DIM() BY REF & ) ! OTS$MOVE5 !  ! Move Data with Fill ! ) ! The Move Data with Fill routineB ! moves up to 231 -- 1 bytes (2,147,483,647 bytes) from aF ! specified source address to a specified destination address,7 ! with separate source and destination lengths,F ! and with fill. Overlap of the source and destination arrays% d ! does not affect the result. !  EXTERNAL SUB ots$move5 & ( &$ LONG BY VALUE, &' BYTE DIM() BY REF, &$ BYTE BY VALUE, &$ LONG BY VALUE, && BYTE DIM() BY REF & ) ! OTS$MULCD_R3 ! ! Complex Multiplication ! - ! The Complex Multiplication routines6 ! calculate the complex product of two complex e ! values. ! 8 ! ENTRY ots$mulcd_r3 ALIAS $ots_mulcd_r3 PARAMETER (8 ! D_FLOATING COMPLEX NAMED complex_multiplier IN0 ! TYPENAME d_floating_complex VALUE,: ! D_FLOATING COMPLEX NAMED complex_multiplicand IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$MULCG_R3 ! ! Complex Multiplication ! - ! The Complex Multiplication r foutines6 ! calculate the complex product of two complex ! values. ! 8 ! ENTRY ots$mulcg_r3 ALIAS $ots_mulcg_r3 PARAMETER (8 ! G_FLOATING COMPLEX NAMED complex_multiplier IN0 ! TYPENAME g_floating_complex VALUE,: ! G_FLOATING COMPLEX NAMED complex_multiplicand IN1 ! TYPENAME g_floating_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$CNVOUT ! R ! Convert gD-floating, G-floating or H-floating Number to Character String ! C ! The Convert Floating to Character String routines convert7 ! a D-floating, G-floating or H-floating number" ! to a character string in ! the FORTRAN E format. ! * EXTERNAL LONG FUNCTION ots$cnvout & ( &$ DOUBLE BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! OTS$CNVOUTh_G ! Q ! Convert D_floating, G_floating or H_floating Number to Character String ! C ! The Convert Floating to Character String routines convert8 ! a D_floating, G_floating or H_floating number # ! to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_g & ( &$ GFLOAT BY REF, &% STRING BY DESC, &# LONG BY VALUE &i ) ! OTS$CNVOUT_H ! Q ! Convert D_floating, G_floating or H_floating Number to Character String ! C ! The Convert Floating to Character String routines convert8 ! a D_floating, G_floating or H_floating number # ! to a character string in  ! the FORTRAN E format. ! , EXTERNAL LONG FUNCTION ots$cnvout_h & ( &$ HFLOAT BY REF, &% STRING BY DESC, &#j LONG BY VALUE & ) ! OTS$POWCC ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! P ! The Raise a Complex Base to a Complex Floating-Point Exponent routines ! raise/ ! a complex base to a complex exponent. ! 2 ! ENTRY ots$powcc ALIAS $ots_powcc PARAMETER (2 ! F_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME f_floating_complex VALUE,< ! F_FLOATI kNG COMPLEX NAMED complex_exponent_value IN1 ! TYPENAME f_floating_complex VALUE )L ! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDCD_R3 ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! P ! The Raise a Complex Base to a Complex Floating-Point Exponent routines ! raise/ ! a complex base to a complex exponent. ! < ! ENTRY ots$powcdcd_r3 ALIAS $ots_powcdcd_r3 P lARAMETER (2 ! D_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME d_floating_complex VALUE,< ! D_FLOATING COMPLEX NAMED complex_exponent_value IN1 ! TYPENAME d_floating_complex VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGCG_R3 ! C ! Raise a Complex Base to a Complex Floating-Point Exponent ! P ! The Raise a Complex Base to a Complex Floating-Point Exponent routines m ! raise/ ! a complex base to a complex exponent. ! < ! ENTRY ots$powcgcg_r3 ALIAS $ots_powcgcg_r3 PARAMETER (2 ! G_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME g_floating_complex VALUE,< ! G_FLOATING COMPLEX NAMED complex_exponent_value IN1 ! TYPENAME g_floating_complex VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWCJ ! E ! Raise a Complex Base to n a Signed Longword Integer Exponent ! H ! The Raise a Complex Base to a Signed Longword Integer ExponentL ! routines return the complex result of raising a complex base to an ! integer exponent. ! 2 ! ENTRY ots$powcj ALIAS $ots_powcj PARAMETER (2 ! F_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME f_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )L o! RETURNS F_FLOATING COMPLEX NAMED RESULT TYPENAME f_floating_complex; ! OTS$POWCDJ_R3 ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent L ! routines return the complex result of raising a complex base to an ! integer exponent. ! : ! ENTRY ots$powcdj_r3 ALIAS $ots_powcdj_r3 PARAMETER (2 ! D_FLOATING COMPLEX NAMED complex_base IN0 p! TYPENAME D_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )L ! RETURNS D_FLOATING COMPLEX NAMED RESULT TYPENAME d_floating_complex; ! OTS$POWCGJ_R3 ! D ! Raise a Complex Base to a Signed Longword Integer Exponent ! I ! The Raise a Complex Base to a Signed Longword Integer Exponent L ! routines return the complex result of raising a complex base to an q! integer exponent. ! : ! ENTRY ots$powcgj_r3 ALIAS $ots_powcgj_r3 PARAMETER (2 ! G_FLOATING COMPLEX NAMED complex_base IN0 ! TYPENAME g_floating_complex VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )L ! RETURNS G_FLOATING COMPLEX NAMED RESULT TYPENAME g_floating_complex; ! OTS$POWDD ! 8 ! Raise a D_floating Base to D_floating Exponent ! F ! The Raise ra D_floating Base to a D_floating Exponent routine2 ! raises a D_floating base to a D_floating ! exponent. ! 2 ! ENTRY ots$powdd ALIAS $ots_powdd PARAMETER (3 ! D_FLOATING NAMED D_floating_point_base IN( ! TYPENAME d_floating VALUE,7 ! D_FLOATING NAMED D_floating_point_exponent IN) ! TYPENAME d_floating VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWDJ ! 8 ! Raise a D_fl soating Base to a Longword Exponent ! D ! The Raise a D_floating Base to a Longword Exponent routine; ! raises a D_floating base to a longword exponent. ! 2 ! ENTRY ots$powdj ALIAS $ots_powdj PARAMETER (3 ! D_FLOATING NAMED D_floating_point_base IN( ! TYPENAME d_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; t ! OTS$POWDR ! ; ! Raise a D_floating Base to an F_floating Exponent ! H ! The Raise a D_floating Base to an F_floating Exponent routines( ! raise a D_floating base to an  ! F_floating exponent. ! 2 ! ENTRY ots$powdr ALIAS $ots_powdr PARAMETER (3 ! D_FLOATING NAMED D_floating_point_base IN( ! TYPENAME d_floating VALUE,7 ! F_FLOATING NAMED F_floating_point_exponent IN) ! TYPENAME f_float uing VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGG ! : ! Raise a G-floating Base to a G-floating Exponent ! F ! The Raise a G-floating Base to a G-floating Exponent routine< ! raises a G-floating base to a G-floating exponent. ! 2 ! ENTRY ots$powgg ALIAS $ots_powgg PARAMETER (3 ! G_FLOATING NAMED G_floating_point_base IN( ! TYPENAME g_floating VALUE,7 ! G_FLOATING NAMED G_f vloating_point_exponent IN) ! TYPENAME g_floating VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWGJ ! 8 ! Raise a G-floating Base to a Longword Exponent ! D ! The Raise a G-floating Base to a Longword Exponent routine: ! raises a G-floating base to a longword exponent. ! 2 ! ENTRY ots$powgj ALIAS $ots_powgj PARAMETER (3 ! G_FLOATING NAMED G_floating_point_base IN( ! TYPENA wME g_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWHH_R3 ! < ! Raise an H-floating Base to an H-floating Exponent ! @ ! The Raise an H-floating Base to an H-floating ExponentF ! routine raises an H-floating base to an H-floating exponent. ! 8 ! ENTRY ots$powhh_r3 ALIAS $ots_powhh_r3 PARAMETER (3 x ! H_FLOATING NAMED H_floating_point_base IN( ! TYPENAME h_floating VALUE,7 ! H_FLOATING NAMED H_floating_point_exponent IN) ! TYPENAME h_floating VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWHJ_R3 ! 9 ! Raise an H-floating Base to a Longword Exponent ! = ! The Raise an H-floating Base to a Longword ExponentC ! routine raises an H-floating base to a longword exponent. y! 8 ! ENTRY ots$powhj_r3 ALIAS $ots_powhj_r3 PARAMETER (3 ! H_FLOATING NAMED H_floating_point_base IN( ! TYPENAME h_floating VALUE,5 ! LONGWORD NAMED longword_integer_exponent IN. ! TYPENAME longword_signed VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$POWII ! . ! Raise a Word Base to a Word Exponent ! : ! The Raise a Word Base to a Word Exponent routine0 ! raises a word zbase to a word exponent. ! ) EXTERNAL WORD FUNCTION ots$powii & ( &$ WORD BY VALUE, &# WORD BY VALUE & ) ! OTS$POWJJ ! 6 ! Raise a Longword Base to a Longword Exponent ! B ! The Raise a Longword Base to a Longword Exponent routineF ! raises a signed longword base to a signed longword exponent. ! ) EXTERNAL LONG FUNCTION ots$powjj & { ( &$ LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$POWLULU ! J ! Raise an Unsigned Longword Base to an Unsigned Longword Exponent ! E ! The Raise an Unsigned Longword Base to an Unsigned Longword ! Exponent routine5 ! raises an unsigned longword integer base to0 ! an unsigned longword integer exponent. ! + EXTERNAL LONG FUNCTION ots$powlulu & (| &$ LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$POWRD ! ; ! Raise an F-floating Base to a D-floating Exponent ! ? ! The Raise an F-floating Base to a D-floating Exponent; ! routine raises an F-floating base to a D-floating ! exponent. ! 2 ! ENTRY ots$powrd ALIAS $ots_powrd PARAMETER (3 ! F_FLOATING NAMED F_floating_point_base IN( ! TYPENAME f_floatin}g VALUE,7 ! D_FLOATING NAMED D_floating_point_exponent IN) ! TYPENAME d_floating VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWRJ ! 9 ! Raise an F-floating Base to a Longword Exponent ! = ! The Raise an F-floating Base to a Longword ExponentC ! routine raises an F-floating base to a longword exponent. ! + EXTERNAL SINGLE FUNCTION ots$powrj & ( && ~ SINGLE BY VALUE, &# LONG BY VALUE & ) ! OTS$POWRR ! < ! Raise an F-floating Base to an F-floating Exponent ! @ ! The Raise an F-floating Base to an F-floating Exponent< ! routine raises an F-floating base to an F-floating ! exponent. ! + EXTERNAL SINGLE FUNCTION ots$powrr & ( && SINGLE BY VALUE, &% SINGLE BY VALUE &  ) ! OTS$POWRLU ! N ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! I ! The Raise a Floating-Point Base to an Unsigned Longword Integer# ! Exponent routines raises I ! a floating-point base to an unsigned longword integer exponent. ! , EXTERNAL SINGLE FUNCTION ots$powrlu & ( && SINGLE BY VALUE, &# LONG BY VALUE & ) !  OTS$POWDLU ! N ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! J ! The Raise a Floating-Point Base to an Unsigned Longword Integer " ! Exponent routines raisesJ ! a floating-point base to an unsigned longword integer exponent. ! 4 ! ENTRY ots$powdlu ALIAS $ots_powdlu PARAMETER (1 ! D_FLOATING NAMED floating_point_base IN( ! TYPENAME d_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsi gned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS D_FLOATING NAMED RESULT TYPENAME d_floating; ! OTS$POWGLU ! N ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! J ! The Raise a Floating-Point Base to an Unsigned Longword Integer " ! Exponent routines raisesJ ! a floating-point base to an unsigned longword integer exponent. ! 4 ! ENTRY ots$powglu ALIAS $ots_powglu  PARAMETER (1 ! G_FLOATING NAMED floating_point_base IN( ! TYPENAME g_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS G_FLOATING NAMED RESULT TYPENAME g_floating; ! OTS$POWHLU_R3 ! N ! Raise a Floating-Point Base to an Unsigned Longword Integer Exponent ! J ! The Raise a Floating-Point Base to an Unsigned Longword Integer " ! Expo nent routines raisesJ ! a floating-point base to an unsigned longword integer exponent. ! : ! ENTRY ots$powhlu_r3 ALIAS $ots_powhlu_r3 PARAMETER (1 ! H_FLOATING NAMED floating_point_base IN( ! TYPENAME h_floating VALUE,@ ! LONGWORD UNSIGNED NAMED unsigned_lword_int_exponent IN0 ! TYPENAME longword_unsigned VALUE )< ! RETURNS H_FLOATING NAMED RESULT TYPENAME h_floating; ! OTS$SCOPY_DXDX ! K ! Copy a Source String Passed by Descriptor to a Destination String ! O ! The Copy a Source String Passed by Descriptor to a Destination String ! routineJ ! copies a source string to a destination string. Both strings are ! passed by descriptor. ! . EXTERNAL WORD FUNCTION ots$scopy_dxdx & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! OTS$SCOPY_R_DX ! J ! Copy a Source String Passed by Reference to a Destination String ! N ! The Copy a Source String Passed by Reference to a Destination StringM ! routine copies a source string passed by reference to a destination ! string. ! . EXTERNAL WORD FUNCTION ots$scopy_r_dx & ( &$ WORD BY VALUE, &$ STRING BY REF, &$ STRING BY DESC & ) ! OTS$SFREE1_DD ! # ! Strings, Free One Dynamic ! - ! The Free One Dynamic String routine: ! returns one dynamic string area to free storage. ! # EXTERNAL SUB ots$sfree1_dd & ( &+ BASIC$QUADWORD BY REF & ) ! OTS$SFREEN_DD ! ! ! Strings, Free n Dynamic ! , ! The Free n Dynamic Strings routineI ! takes as input a vector of one or more dynamic string areas and' ! returns them to free storage. ! # EXTERNAL SUB ots$sfreen_dd & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! OTS$SGET1_DD ! " ! Strings, Get One Dynamic ! , ! The Get One Dynamic String routineB ! allocates a specified number of bytes of dynamic virtual2 ! memory to a specified string descriptor. ! " EXTERNAL SUB ots$sget1_dd &  ( &$ WORD BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! OTS$CVT_L_TB ! 4 ! Convert an Unsigned Integer to Binary Text ! @ ! The Convert an Unsigned Integer to Binary Text routineC ! converts an unsigned integer value of arbitrary length toR ! binary representation in an ASCII text string. By default, a longword is ! converted. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tb & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TI ! 0 ! Convert Signed Integer to Decimal Text ! < ! The Convert Signed Integer to Decimal Text routineH ! converts a signed integer to a decimal ASCII text string. ThisR ! routine supports FORTRAN Iw and Iw.m output and BASIC output conversion. ! , EXTERNAL LONG FUNCTION ots$cvt_l_ti & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TL ! ) ! Convert Integer to Logical Text ! 5 ! The Convert Integer to Logical Text routineD ! converts an integer to an ASCII text string representation+ ! using FORTRAN L (logical) format. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tl & ( &" LONG BY REF, &$ STRING BY DESC & ) ! OTS$CVT_L_TO ! 0 ! Convert Unsigned Integer to Octal Text ! < ! The Convert Unsigned Integer to Octal Text routineE ! converts an unsigned integer to an octal ASCII text string.N ! OTS$CVT_L_TO supports FORTRAN Ow and Ow.m output conversion formats. ! , EXTERNAL LONG FUNCTION ots$cvt_l_to & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TU ! 2 ! Convert Unsigned Integer to Decimal Text ! > ! The Convert Unsigned Integer to Decimal Text routineF ! converts a byte, word, or longword value to unsigned decimalK ! representation in an ASCII text string. By default, a longword is ! converted. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tu & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_L_TZ ! - ! Convert Integer to Hexadecimal Text ! 9 ! The Convert Integer to Hexadecimal Text routineB ! converts an unsigned integer to a hexadecimal ASCII textM ! string. OTS$CVT_L_TZ supports FORTRAN Zw and Zw.m output conversion ! formats. ! , EXTERNAL LONG FUNCTION ots$cvt_l_tz & ( &! ANY BY REF, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TB_L ! 1  ! Convert Binary Text to Unsigned Integer ! = ! The Convert Binary Text to Unsigned Integer routineE ! converts an ASCII text string representation of an unsignedT ! binary value to an unsigned integer value of arbitrary length. By default,P ! the result is a longword. Valid input characters are the blank and the/ ! digits 0 and 1. No sign is permitted. ! , EXTERNAL LONG FUNCTION ots$cvt_tb_l & ( &%  STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TI_L ! 0 ! Convert Signed Integer Text to Integer ! < ! The Convert Signed Integer Text to Integer routineC ! converts an ASCII text string representation of a decimalC ! number to a signed byte, word, or longword integer value.% ! The result is a longword byM ! default, but the calling program can specify a byte or a word value ! instead. ! , EXTERNAL LONG FUNCTION ots$cvt_ti_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TL_L ! ) ! Convert Logical Text to Integer ! 5 ! The Convert Logical Text to Integer routineH  ! converts an ASCII text string representation of a FORTRAN-77 LX ! format to a byte, word, or longword integer value. The result is a longword byM ! default, but the calling program can specify a byte or a word value ! instead. ! , EXTERNAL LONG FUNCTION ots$cvt_tl_l & ( &% STRING BY DESC, &! ANY BY REF, &+ OPTIONAL LONG BY VALUE & ) ! OTS$CVT_TO_L  ! . ! Convert Octal Text to Signed Integer ! : ! The Convert Octal Text to Signed Integer routine= ! converts an ASCII text string representation of an Q ! octal value to a signed integer of an arbitrary length. The result is aQ ! longword by default, but the calling program can specify a byte, word,  ! or longword. ! , EXTERNAL LONG FUNCTION ots$cvt_to_l & ( &% STRING BY DESC, &!  ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TU_L ! 2 ! Convert Unsigned Decimal Text to Integer ! > ! The Convert Unsigned Decimal Text to Integer routineE ! converts an ASCII text string representation of an unsignedU ! decimal value to an unsigned byte, word, or longword value. By default, theU ! result is a longword. Valid input characters are the space and the digits 0* ! through 9. No sign is permitted. ! , EXTERNAL LONG FUNCTION ots$cvt_tu_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! OTS$CVT_TZ_L ! 6 ! Convert Hexadecimal Text to Unsigned Integer ! B ! The Convert Hexadecimal Text to Unsigned Integer r outineE ! converts an ASCII text string representation of an unsignedJ ! hexadecimal value to an unsigned integer of an arbitrary length.R ! The result is a longword by default, but the calling program can specify# ! a byte, word, or longword ! value. ! , EXTERNAL LONG FUNCTION ots$cvt_tz_l & ( &% STRING BY DESC, &! ANY BY REF, &, OPTIONAL LONG BY VALUE, &#  LONG BY VALUE & )ww$PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:28.28 ! & ! FILE: OTSMSG.MSG EDIT: SBL2003 ! R ! ****************************************************** ********************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! *  COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM OTSMSG.MDL( ! VERSION 1-009. SBL 22-APR-19813 ! 2-002 - ADD OTS$_WRONUMARG. RKR 4-SEP-19816 ! 2-003 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982 ! -- ! +C  ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! OTS$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $OTSDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.< ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! +( ! DEFINE OTS$ SEVERE ERROR MESSAGES ! -> ! ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$)6 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE SEVERE- ! ; SET LH TO 23 (DECIM AL) OTS$ PREFIX. DECLARE LONG CONSTANT OTS$_FACILITY = 234 DECLARE LONG CONSTANT OTS$_INVSTRDES = 15401084 DECLARE LONG CONSTANT OTS$_FATINTERR = 15401164 DECLARE LONG CONSTANT OTS$_INTDATCOR = 15401244 DECLARE LONG CONSTANT OTS$_IO_CONCLO = 15401324 DECLARE LONG CONSTANT OTS$_INPCONERR = 15401404 DECLARE LONG CONSTANT OTS$_OUTCONERR = 15401484 DECLARE LONG CONSTANT OTS$_STRIS_INT = 15401564 DECLARE LONG CONSTANT OTS$_INSVIRMEM = 15401644 DE CLARE LONG CONSTANT OTS$_WRONUMARG = 1540172 ! ; OTS$SCOPY ! +$ ! DEFINE OTS$ WARNING MESSAGES: ! -> ! ; DO NOT HAVE CONCEPT OF ERROR NUMBER (SEE FOR$ MTH$)7 ! ; SET SUB-SYSTEM SPECIFIC BIT AND MAKE WARNING- ! ; SET LH TO 23 (DECIMAL) OTS$ PREFIX4 DECLARE LONG CONSTANT OTS$_USEFLORES = 1541120ww@i$PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  = ! Definitions for RTL Parallel Processing Facility - PPL !  ! Pre-defined event ids. ! Y DECLARE LONG CONSTANT PPL$K_ABNORMAL_EXIT = -2 ! abnormal participant terminationU  DECLARE LONG CONSTANT PPL$K_NORMAL_EXIT = -1 ! normal participant termination ! # ! Shared memory options flags. ! 6 DECLARE LONG CONSTANT PPL$M_NOZERO = x'00000001'5 DECLARE LONG CONSTANT PPL$M_NOWRT = x'00000002'5 DECLARE LONG CONSTANT PPL$M_FLUSH = x'00000004'5 DECLARE LONG CONSTANT PPL$M_NOUNI = x'00000008': DECLARE LONG CONSTANT PPL$m_mopt_spare = x'FFFFFFF0'1 DECLARE LONG CONSTANT PPL$s_mem_options = 4 record mem_options  ! not demand-zero ! read-only ! write to disk* ! non-unique name not requested ! extra bitsh LONG NOZERO_bits ! COMMENT ADDED BY SDL - NOZERO_bits contains bits NOZERO through mopt_spare end record mem_options  ! ! Processing options flags. ! : DECLARE LONG CONSTANT PPL$M_INIT_SYNCH = x'00000001'7 DECLARE LONG CONSTANT PPL$M_NODEBUG = x'00000002'= DECLARE LONG CONSTANT PPL$M_STOP_CHILDREN = x'00000004'< DECLARE LONG CONSTANT PPL$M_NON_BLOCKING = x'00000008': DECLARE LONG CONSTANT PPL$M_NOTIFY_ONE = x'00000010'9 DECLARE LONG CONSTANT PPL$M_SPIN_WAIT = x'00000020'8 DECLARE LONG CONSTANT PPL$M_FORMONLY = x'00000040'8 DECLARE LONG CONSTANT PPL$M_JOINONLY = x'00000080'4 DECLARE LONG CONSTANT PPL$M_PERM = x'00000100'6 DECLARE LONG CONSTANT PPL$M_SYSTEM = x'00000200'9 DECLARE LONG CONSTANT PPL$M_DELETEALL = x'00000400'9 DECLARE LONG CONST ANT PPL$M_TAILFIRST = x'00000800'6 DECLARE LONG CONSTANT PPL$M_ATHEAD = x'00001000'8 DECLARE LONG CONSTANT PPL$M_FROMTAIL = x'00002000'8 DECLARE LONG CONSTANT PPL$M_FORCEDEL = x'00004000'8 DECLARE LONG CONSTANT PPL$M_NOCLISYM = x'00008000'8 DECLARE LONG CONSTANT PPL$M_NOLOGNAM = x'00010000'8 DECLARE LONG CONSTANT PPL$M_NOKEYPAD = x'00020000'6 DECLARE LONG CONSTANT PPL$M_NOTIFY = x'00040000'9 DECLARE LONG CONSTANT PPL$M_NOCONTROL = x'00080000'; DE CLARE LONG CONSTANT PPL$M_CALL_UNIQUE = x'00100000'; DECLARE LONG CONSTANT PPL$M_PROC_UNIQUE = x'00200000'< DECLARE LONG CONSTANT PPL$M_SPIN_COUNTED = x'00400000'@ DECLARE LONG CONSTANT PPL$M_NOSAVE_PROC_INFO = x'00800000'< DECLARE LONG CONSTANT PPL$M_IGNORE_EXITS = x'01000000': DECLARE LONG CONSTANT PPL$m_popt_spare = x'FE000000'2 DECLARE LONG CONSTANT PPL$s_proc_options = 4 record proc_options. ! parent blocks until children init !  disable DEBUG1 ! stop children of terminating process1 ! don't block if semaphore unavailable. ! notify only one enabler for event$ ! spin rather than $HIBER0 ! Only form (do not join) a new appl.0 ! Only join (do not form) a new appl.+ ! Create a permanent application- ! Create a system-wide application0 ! Delete all corresponding work items& ! Delete from tail of queue( ! Ins ert at the head of queue& ! Remove from tail of queue) ! Force deletion of work queue0 ! Do not inherit parent's CLI symbols- ! Do not inherit parent's logicals1 ! Inherit parent's keypad state ? defs1 ! Broadcast message on child terminate1 ! No carriage control prefix on prompt% ! Request call unique name( ! Request process unique name1 ! Spin for counted period before hiber  ! extra bitst LONG INIT_SYNCH_bits ! COMMENT ADDED BY SDL - INIT_SYNCH_bits contains bits INIT_SYNCH through popt_spare end record proc_options ww@,%PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY  * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ***************************************************************************& ! PPL$ADJUST_SEMAPHORE_MAXIMUM ! $ ! Adjust a Semaphore Maximum ! U ! The Adjust a Semaphore Maximum routine increments or decrements the maximum' ! associated with a semaphore. ! < EXTERNAL LONG FUNCTION ppl$adjust_semaphore_maximum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$ADJUST_QUORUM !  ! Adjust Barrier Quorum ! O ! The Adjust Barrier Quorum routine increments or decrements the quorum$ ! associated with a barrier. ! 1 EXTERNAL LONG FUNCTION ppl$adjust_quorum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$AWAIT_EVENT ! ! Await Event Occurrence ! M ! The Await Event Occurrence routine blocks the caller until an event ! occurs. ! / EXTERNAL LONG FUNCTION ppl$await_event & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$CREATE_APPLICATION ! ) ! Form or Join a PPL$ Application ! P ! The Form or Join a PPL$ Application routine informs the PPL$ facility P ! that the calling process is forming or joining a parallel application. !  6 EXTERNAL LONG FUNCTION ppl$create_application & ( &* OPTIONAL LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! PPL$CREATE_BARRIER !  ! Create a Barrier ! @ ! The Create a Barrier routine creates and initializes a6 ! barrier, and returns the barrier identifier.J ! You use the barrier identifier to perform all operations on that ! barrier. ! 2 EXTERNAL LONG FUNCTION ppl$create_barrier & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &! WORD BY REF & ) ! PPL$CREATE_EVENT !  ! Create an Event ! M ! The Create an Event routine creates an arbitrary user-defined eventK ! and returns the event identifier. You use the event identifier to0 ! perform all operations on that event. ! 0 EXTERNAL LONG FUNCTION ppl$create_event & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! PPL$CREATE_SPIN_LOCK !  ! Create Spin Lock ! N ! The Create Spin Lock routine creates and initializes a simple (spin)Q ! lock, and returns the lock identifier. You use that lock identifier to ! get and free the lock. ! 4 EXTERNAL LONG FUNCTION ppl$create_spin_lock & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & )" ! PPL$CREATE_SHARED_MEMORY !  ! Create Shared Memory ! L ! The Create Shared Memory routine creates (if necessary) and maps aE ! section of memory that can be shared by multiple processes. ! 8 EXTERNAL LONG FUNCTION ppl$create_shared_memory & ( &% STRING BY DESC, &' LONG DIM() BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! PPL$CREATE_WORK_QUEUE !  ! Create a Work Queue ! S ! The Create a Work Queue routine creates and initializes a work queue, and, ! returns the work queue identifier. ! 5 EXTERNAL LONG FUNCTION ppl$create_work_queue & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) ! PPL$CREATE_SEMAPHORE !  ! Create a Semaphore ! B ! The Create a Semaphore routine creates and initializes aO ! semaphore with a waiting queue, and returns the semaphore identifier.L ! You use the semaphore identifier to perform all operations on that ! semaphore. ! 4 EXTERNAL LONG FUNCTION ppl$create_semaphore & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! WORD BY REF & ) ! PPL$CREATE_VM_ZONE ! * ! Create a New Virtual Memory Zone ! L ! The Create a New Virtual Memory Zone routine creates a new storageK ! zone, according to specified arguments, which is available to all* ! participants in the application. ! 2 EXTERNAL LONG FUNCTION ppl$create_vm_zone & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING  BY DESC & ) ! PPL$DELETE_APPLICATION ! # ! Delete a PPL$ Application ! K ! The Delete a PPL$ Application routine marks all shared memory forR ! deletion and prevents additional processes from joining the application. ! 4 EXTERNAL LONG FUNCTION ppl$delete_application! ! PPL$DECREMENT_SEMAPHORE !  ! Decrement a Semaphore ! K ! The Decrement a Semaphore routine waits for a semaphore to have a9 ! value greater than 0, then decrements the value8 ! by 1 to indicate the allocation of a resource. ! 7 EXTERNAL LONG FUNCTION ppl$decrement_semaphore & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$DISABLE_EVENT ! 7 ! Disable Asynchronous Notification of an Event ! Z ! The Disable Asynchronous Notification of an Event routine disables delivery to aF ! process of notification of an event by either AST or signal. ! 1 EXTERNAL LONG FUNCTION ppl$disable_event & ( &! LONG BY REF & ) ! PPL$DELETE_WORK_ITEM ! " ! Delete a Work Queue Item ! N ! The Delete a Work Queue Item routine deletes a work item from a work ! queue. ! 4 EXTERNAL LONG FUNCTION ppl$delete_work_item &  ( &" LONG BY REF, &$ LONG BY VALUE, &) OPTIONAL LONG BY REF & )" ! PPL$DELETE_SHARED_MEMORY !  ! Delete Shared Memory ! J ! The Delete Shared Memory routine deletes or unmaps from a globalN ! section that you created using the PPL$CREATE_SHARED_MEMORY routine.O ! Optionally, this routine writes the contents of the global section to+ ! disk before deleting the section. ! 8 EXTERNAL LONG FUNCTION ppl$delete_shared_memory & ( &% STRING BY DESC, &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! PPL$DELETE_WORK_QUEUE !  ! Delete a Work Queue ! X ! The Delete a Work Queue routine deletes the specified work queue, and releases) ! any storage associated with it. ! 5 EXTERNAL LONG FUNCTION ppl$delete_work_queue & ( &* OPTIONAL LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! PPL$ENABLE_EVENT_AST ! - ! Enable AST Notification of an Event ! R ! The Enable AST Notification of an Event routine specifies the address ofU ! an AST routine (and optionally an argument to that routine) to be delivered ! when an event occurs. !  4 EXTERNAL LONG FUNCTION ppl$enable_event_ast & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL ANY BY VALUE & )! ! PPL$ENABLE_EVENT_SIGNAL ! 0 ! Enable Signal Notification of an Event ! H ! The Enable Signal Notification of an Event routine specifies a? ! condition value to be signaled when the event occurs. ! 7 EXTERNAL LONG FUNCTION ppl$enable_event_signal & ( &" LONG BY REF, &+ OPTIONAL LONG BY VALUE & )! ! PPL$FLUSH_SHARED_MEMORY !  ! Flush Shared Memory ! O ! The Flush Shared Memory routine writes (flushes) to disk the contentsQ ! of a global section that you created using the PPL$CREATE_SHARED_MEMORYJ ! routine. Only pages that have been modified are flushed to disk. ! 7 EXTERN AL LONG FUNCTION ppl$flush_shared_memory & ( &% STRING BY DESC, &/ OPTIONAL LONG DIM() BY REF, &! LONG BY REF & ) ! PPL$FIND_OBJECT_ID ! $ ! Find Object Identification ! O ! Given the name of a spin lock, semaphore, barrier, event, work queue,O ! or shared memory zone, the Find Object Identification routine returnsM ! the identifier of the object associated with the name you specify. ! 2 EXTERNAL LONG FUNCTION ppl$find_object_id & ( &" LONG BY REF, &$ STRING BY DESC & )# ! PPL$FIND_SYNCH_ELEMENT_ID !  ! Find ! J ! Given the name of a spin lock, semaphore, barrier, or event, theI ! Find Synchronization Element Identification routine returns the? ! identifier of the associated synchronization element. ! 9 EXTERNAL LONG FUNCTION ppl$find_synch_element_id & ( &" LONG BY REF, &$ STRING BY DESC & ) ! PPL$GET_INDEX ! $ ! Get Index of a Participant ! P ! The Get Index of a Participant routine returns an index that is uniqueP ! within the application. A value of zero signifies the participant thatK ! formed the application. The other participants in the application4 ! always return an index greater than zero. ! - EXTERNAL LONG FUNCTION ppl$get_index & ( &! LONG BY REF & ) ! PPL$INSERT_WORK_ITEM ! " ! Insert a Work Queue Item ! Z ! The Insert a Work Queue Item routine inserts a work item into the specified work ! queue. ! 4 EXTERNAL LONG FUNCTION ppl$insert_work_item & ( &"  LONG BY REF, &$ LONG BY VALUE, &* OPTIONAL LONG BY REF, &! LONG BY REF & )! ! PPL$INCREMENT_SEMAPHORE !  ! Increment a Semaphore ! Q ! The Increment a Semaphore routine increments the value of the semaphoreL ! by 1, analogous to the signal protocol. If any other participantsN ! are blocked on a call to PPL$DECREMENT_SEMAPHORE for this semaphore,5 ! one is removed from the queue and awakened.G ! The semaphore must have been created by PPL$CREATE_SEMAPHORE. ! 7 EXTERNAL LONG FUNCTION ppl$increment_semaphore & ( &! LONG BY REF & ) ! PPL$INDEX_TO_PID ! . ! Convert Participant Index to VMS PID ! N ! The Convert Participant Index to VMS PID routine returns the VMS PID= ! of the process associated with the specified index. ! 0 EXTERNAL LONG FUNCTION ppl$index_to_pid & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$INITIALIZE ! & ! Initialize the PPL$ Facility ! U ! The Initialize the PPL$ Facility routine informs the PPL$ facility that theN ! caller is forming or joining the parallel application. Calling thisE ! routine is optional, because PPL$ initializes itself at the'  ! first call to a PPL$ routine. ! . EXTERNAL LONG FUNCTION ppl$initialize & ( &) OPTIONAL LONG BY REF & ) ! PPL$PID_TO_INDEX ! . ! Convert VMS PID to Participant Index ! S ! The Convert VMS PID to Participant Index routine returns the PPL$-defined? ! participant index of the process associated with the  ! specified VMS PID. ! 0 EXTERNAL LONG FUNCTION ppl$pid_to_index & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$READ_BARRIER !  ! Read a Barrier ! W ! The Read a Barrier routine returns the specified barrier's current quorum andU ! the number of participants currently waiting (blocked) at the barrier. The@ ! barrier must have been created by PPL$CREATE_BARRIER. ! 0 EXTERNAL LONG FUNCTION ppl$read_barrier & ( &" LONG BY REF, &" WORD BY REF, &! WORD BY REF & ) ! PPL$READ_EVENT !  ! Read an Event State ! U ! The Read an Event State routine returns the current state of the specified  ! event.9 ! The state can be not_occurred or not_occurred. ! . EXTERNAL LONG FUNCTION ppl$read_event & ( &" LONG  BY REF, &! LONG BY REF & ) ! PPL$READ_SEMAPHORE !  ! Read Semaphore Values ! B ! The Read Semaphore Values routine returns the current orG ! maximum values, or both, of the specified counting semaphore.2 ! The semaphore must have been created by  ! PPL$CREATE_SEMAPHORE. ! 2 EXTERNAL LONG FUNCTION ppl$read_semaphore & ( &" LONG BY REF, &*  OPTIONAL WORD BY REF, &! WORD BY REF & ) ! PPL$RELEASE_SPIN_LOCK !  ! Release Spin Lock ! R ! The Release Spin Lock routine relinquishes the spin lock by clearing theH ! bit representing the lock. The lock must have been created by  ! PPL$CREATE_SPIN_LOCK. ! 5 EXTERNAL LONG FUNCTION ppl$release_spin_lock & ( &! LONG BY REF &  ) ! PPL$RESET_EVENT !  ! Reset an Event ! ? ! The Reset an Event routine resets an event's state to ! not_occurred. ! / EXTERNAL LONG FUNCTION ppl$reset_event & ( &! LONG BY REF & ) ! PPL$REMOVE_WORK_ITEM ! " ! Remove a Work Queue Item ! Y ! The Remove a Work Queue Item routine removes the next item in order from a work !  queue. ! 4 EXTERNAL LONG FUNCTION ppl$remove_work_item & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$READ_SPIN_LOCK ! ! Read a Spin Lock State ! P ! The Read a Spin Lock State routine returns the current state of a spin< ! lock. The state can be not_seized or not_seized. ! 2 EXTERNAL LONG FUNCTION ppl$read_spin_lock & ( &" LONG BY REF, &! LONG BY REF & ) ! PPL$READ_WORK_QUEUE !  ! Read a Work Queue ! O ! The Read a Work Queue routine returns information about a work queue. ! 3 EXTERNAL LONG FUNCTION ppl$read_work_queue & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )# ! PPL$SET_SEMAPHORE_MAXIMUM ! ! ! Set a Semaphore Maximum ! U ! The Set a Semaphore Maximum routine dynamically sets the maximum value of a ! semaphore. ! 9 EXTERNAL LONG FUNCTION ppl$set_semaphore_maximum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$SPAWN ! % ! Initiate Parallel Execution ! K ! The Initiate Parallel Execution routine executes code in parallelR ! with the caller by creating one or more subordinate threads of execution ! (VMS subprocesses). ! ) EXTERNAL LONG FUNCTION ppl$spawn & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &' LONG DIM() BY REF, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! PPL$SET_QUORUM  !  ! Set Barrier Quorum ! I ! The Set Barrier Quorum routine dynamically sets a value for the' ! specified barrier's quorum. ! . EXTERNAL LONG FUNCTION ppl$set_quorum & ( &" LONG BY REF, &! WORD BY REF & ) ! PPL$STOP !  ! Stop a Participant ! R ! The Stop a Participant routine terminates the execution of the specified* !  participant in this application. ! ( EXTERNAL LONG FUNCTION ppl$stop & ( &! LONG BY REF & ) ! PPL$SEIZE_SPIN_LOCK !  ! Seize Spin Lock ! T ! The Seize Spin Lock routine retrieves a simple (spin) lock by waiting in aN ! spin loop until the lock is free. The lock must have been created by ! PPL$CREATE_SPIN_LOCK. ! 3 EXTERNAL LONG FUNCTION ppl$seize_spin_lock & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! PPL$TERMINATE ! " ! Abort PPL$ Participation ! @ ! The Abort PPL$ Participation routine ends the caller'sN ! participation in the application prematurely---that is, at some time= ! before the caller actually completes its execution. ! - EXTERNAL LONG FUNCTION ppl$terminate & ( &)  OPTIONAL LONG BY REF & ) ! PPL$TRIGGER_EVENT !  ! Trigger an Event ! I ! The Trigger an Event routine causes the event's state to become@ ! occurred. You control whether all pending actions forL ! the event are processed (made to occur), or just one is processed.L ! A pending action can be an AST, a signal (condition), or a wakeup. ! 1 EXTERNAL LONG FUNCTION ppl$trigger_event &  ( &" LONG BY REF, &, OPTIONAL LONG BY VALUE, &! LONG BY REF & ) ! PPL$UNIQUE_NAME !  ! Produce a Unique Name ! O ! The Produce a Unique Name routine returns an application-unique name.P ! A system-unique string specific to the calling application is appended. ! to the string specified by the user.A ! The resulting name is identical for all participants inV ! the application, but different from those for all other applications on that ! system. ! / EXTERNAL LONG FUNCTION ppl$unique_name & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! PPL$WAIT_AT_BARRIER ! " ! Synchronize at a Barrier ! C ! The Synchronize at a Barrier routine causes the caller to( ! wait at the specified barrier.L ! The barrier is in effect from the time the first participant calls6 ! PPL$WAIT_AT_BARRIER until each member of theK ! quorum has issued the call. At that time, the wait concludes and1 ! all are released for further execution. ! 3 EXTERNAL LONG FUNCTION ppl$wait_at_barrier & ( &! LONG BY REF & )ww%PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:31.82 ! % ! FILE: PPLMSG.MSG EDIT: CMF1004 ! R ! ****************************************************** ********************** ! * *) ! * COPYRIGHT (C) 1987 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ !  ! FACILITY: VAX PPL !  ! ABSTRACT: ! F ! THIS FILE CONTAINS THE DEFINITION FOR THE PPL FACILITY SPECIFIC9 ! ERROR MESSAGES. THE FACILITY CODE FOR PPL IS 481. ! % ! ENVIRONMENT: VAX/VMS USER MODE ! 5 ! AUTHOR: P. GILBERT, CREATION DATE: 30-SEP-1986 !  ! MODIFIED BY: !  ! E01-001 ORIGINAL ! 9 ! E01-002 TO ADD THE FACILITY CODE. CMF 23-JAN-1987 ! = ! E01-003 TO CORRECT THE IDENT TO MATCH CMF 26-JAN-1987# ! THE CMS GENERATION NUMBER. ! = ! E01-004 REVAMP THE FILE TO CONFORM TO CMF 28-JAN-1987) ! RTL STANDARDS. ( PATTERNED AFTER ! LIBMSG.MSG ) ! ? ! E01-005 TO CHANGE THE MODULE NAME FROM CMF 16-FEB-1987$ ! PPL$MSG TO PPL$MSGDEF TO BE' ! CONSISTENT WITH THE OTHER RTLS ! A ! E01-006 TO ADD PPL$_ATTUSETWO TO INDICATE CMF 16-FEB-1987) ! THAT AN ATTEMPT HAS BEEN MADE TO+ ! USE TWO BARRIERS THUS RESULTING IN ! DEAD LOCK. ! ? ! E01-007 ADD MSGS FOR BARRIERS AND EVENTS, DLR 24-JUL-87! ! PLUS OTHER MISC UPDATES.0 ! REMOVE OLD DEAD ONES BY ? *** NOTATION. ! C ! E01-008 CONFORM TO DOCUMENTATION STANDARDS. DLR 19-AUG-1987 ! 9  ! V051-001 ADDED PPL$_NO_NEXT_PROC WWS 09-SEP-1988 ! @ ! V53-001 CORRECTED EVENT SIGNAL MESSAGES WWS 20-MAR-1989 ! 9 ! V53-002 ADDED THE V5.3 MESSAGES WWS 27-MAR-1989 ! A ! V57-001 ADD A SPACE TO NOONE_ENABLED TEXT PJC 22-JAN-1993 ! B ! V57-002 CHANGE REFERENCE TO PPL$INITIALIZE PJC 30-AUG-1993 ! -- ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! PPL$_ABCMNOXYZ ! O ! IN ADDITION, THE IBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",L ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE< ! ERROR MESSAGE, NOT COUNTING ARTICLES AND PREPSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DEFINITION. !  !  !  ! MACRO-32PROGRAMMING: !  ! THE MACROS CALL: !  ! $PPLDEF ! A ! WILL CAUSE ALL SYMBOLS TO  BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;C ! THE MACROS ARE PROVIDED ONLY FOR THE COVENIENCE OF THE USER. ! - ! + ! SPECIAL NOTE: ! F ! THE MESSAGES HERE SHOULD BE RESOLVED FROM STARLET.OLB. INORDERE ! FOR THIS TO HAPPEN, SEVERAL VMS BUILD FILES NEED TO BE EDITED.D ! THIS WILL BE DONE FOR SYS 11. NOTE THAT SEVERAL OF OUT BUILD? ! PROCEDURES MAY NEED TO BE EDITED. PPLRTLBLD.COM TO COPY9 ! AND DELETE APPROPRIATE FILE IN APPROPRIATE PLACES. ! I ! ALSO, THE FILE PPLDEF WILL NEED TO BE CHANGED TO BE NAME PPLMSGDEF5 ! TO FOLLOW THE STANDARDS OF THE OTHER ROUTINES. ! J ! PPLRTLLNK.OPT MAY NEED TO BE EDITED TO GET RID OF UNIVERSAL SYMBOLDB ! SO THAT THERE WON'T BE EXTRA BAGAGE IN THE SHAREABLE IMAGE. !  ! -# ! ; SET LH TO 481 (DECIMAL)./ DECLARE LONG CONSTANT PPL$_FACILITY = 4812 DECLARE LONG CONSTANT PPL$_NORMAL = 31555585  ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY" ! EXPLANATION: ALL IS WELL.@ ! USER ACTION: ENJOY YOUR SUCCESS. ALL THINGS MUST PASS. ! --3 DECLARE LONG CONSTANT PPL$_CREATED = 31555601 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: ITEM WAS CREATED, AN ALTERNATE SUCCESS STATUS= ! INDICATING THE ITEM WAS NOT JUST SUCCESSFULLY FOUND.( ! USER ACTION: CONTINUE NORMALLY. ! --9 DECLARE LONG CONSTANT PPL$_NOONE_ENA BLED = 31555609 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: EVENT TRIGGER IS SUCCESSFULLY QUEUED, AND NO ONE IS> ! PRESENTLY ENABLED TO RECEIVE IT. THE FIRST CALLER TO# ! ENABLE IT WILL RECEIVE IT.( ! USER ACTION: CONTINUE NORMALLY. ! --9 DECLARE LONG CONSTANT PPL$_NOT_AVAILABLE = 31555617 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: ALTERNATE SUCCESS STATUS RETURNED WHEN USER REQUESTS: ! I MMEDIATE NON-BLOCKING ACCESS TO A RESOURCE WHICH ! WAS NOT AVAILABLE.( ! USER ACTION: CONTINUE NORMALLY. ! --8 DECLARE LONG CONSTANT PPL$_CREATED_SOME = 31555625 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYL ! EXPLANATION: SOME OF THE REQUESTED ITEMS WERE CREATED, BUT NOT ALL.L ! USER ACTION: IF PROCESSING CAN CONTINUE WITH FEWER ITEMS THAN THOSE+ ! REQUESTED, THEN CONTINUE NORMALLY. ! --8 DECLARE LONG CONSTANT PPL$_NO_NEXT_PROC = 31555633 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY ! H ! EXPLANATION: THIS CODE IS FOR INTERNAL USE ONLY AND IS RETURNED= ! FROM THE ROUTINE, PPL$$TELL, WHEN IT IS INVOKED WITH; ! THE TELL_K_NEXT_PROCESS FLAG AND THERE IS ONLY ONE. ! PROCESS CURRENTLY IN THE APPLICATION. ! @ ! USER ACTION: NONE: THIS CODE IS FOR INTERNAL USE ONLY. ! --3 DECLARE LONG CONSTANT PPL$_DELETED = 31555641 ! ++( ! FACILITY: PPL, RUN-TIME LIBRARY ! C ! EXPLANATION: THE USER REQUESTED THAT THE OBJECT BE DELETED@ ! REGARDLESS OF ITS STATE. THE DELETION WAS SUCCESSFULLY ! PERFORMED. ! & ! USER ACTION CONTINUE NORMALLY ! --? ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCCESS CODES???/ ! ; SET SUB-SYSTEM SPECIFIC BIT FOR NOW." ! ; SET LH TO 481 (DECIMAL)O ! *** EXCQUESIZ  ! +++ ! FACILITY: PPL, R UN-TIME LIBRARY8 ! EXPLANATION: TOO MANY CALLERS REQUIRED QUEUING.L ! USER ACTION: RECODE TO REDUCE NUMBER OF CALLERS ACCESSING RESOURCE. ! --5 DECLARE LONG CONSTANT PPL$_INCOMPEXI = 31556100 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY= ! EXPLANATION: ALL PPL OBJECTS MUST HAVE UNIQUE NAMES.B ! USER ACTION: RECODE THE CALL TO SPECIFY A DIFFERENT NAME. ! --5 DECLARE LONG CONSTANT PPL$_INSVIRMEM = 31556108 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: CALLER DOES NOT HAVE SUFFICIENT AVAILABLE SPACE TO ! COMPLETE REQUEST.I ! USER ACTION: IF YOU USE EXTENSIVE PPL SERVICES, TRY SPECIFYING A: ! LARGER VALUE TO PPL$INITIALIZE. OTHERWISE, CHECK< ! YOUR SYSTEM QUOTAS TO SEE IF AN INCREASE IS NEEDED. ! --3 DECLARE LONG CONSTANT PPL$_INVDESC = 31556116 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY, ! EXPLANATION: DESCRIPTOR IS INVALID.7 ! USER ACT ION: RECODE TO CORRECT THE DESCRIPTOR. ! --4 DECLARE LONG CONSTANT PPL$_INVELEID = 31556124 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: SPECIFIED ELEMENT ID IS NOT A LEGITIMATE ID.E ! USER ACTION: EXAMINE PROGRAM CODE - SOME MODIFICATION OF THE! ! ELEMENT ID HAS OCCURRED. ! --5 DECLARE LONG CONSTANT PPL$_INVELENAM = 31556132 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY/ ! EXPLANATION: ILLEGAL CHARACTER STRING./ ! USER ACTION: FIX THE CHARACTER STRING. ! --5 DECLARE LONG CONSTANT PPL$_INVELETYP = 31556140 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: USER SPECIFIED AN ELEMENT WHICH CANNOT BE OPERATED ! BY THE CALLED ROUTINE.= ! USER ACTION: RECODE TO PASS THE PROPER ELEMENT TYPE. ! --5 DECLARE LONG CONSTANT PPL$_INVNUMCHI = 31556148 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: USER REQUESTED  CREATION OF A NUMBER < 1.= ! USER ACTION: RECODE REQUEST TO USE THE PROPER VALUE. ! --: ! *** INVQUESIZ  ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY) ! EXPLANATION: INVALID QUEUE SIZE.0 ! USER ACTION: SPECIFY A POSITIVE NUMBER. ! --5 DECLARE LONG CONSTANT PPL$_INVSEMINI = 31556156 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYG ! EXPLANATION: A SEMAPHORE INITIAL VALUE MUST BE <= ITS MAXIMUM. 9 ! USER ACTION: CHANGE THE SPECIFIED INITIAL VALUE. ! --5 DECLARE LONG CONSTANT PPL$_INVSEMMAX = 31556164 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: A SEMAPHORE'S MAXIMUM VALUE MUST BE POSITIVE.9 ! USER ACTION: CHANGE THE SPECIFIED MAXIMUM VALUE. ! --5 DECLARE LONG CONSTANT PPL$_LOCNOTEST = 31556172 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: YOU CANNOT RELEASE A LOCK YOU HAVE NOT BEEN GRANTED.C ! USER ACTION: RECODE TO ASSURE THAT THE LOCK IS HELD BY THE) ! CALLER ATTEMPTING TO RELEASE IT. ! --3 DECLARE LONG CONSTANT PPL$_NOSECEX = 31556180 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYK ! EXPLANATION: SECTION SPECIFIED FOR FLUSH OR DELETE DOES NOT EXIST.L ! USER ACTION: RECODE TO ASSURE THAT SECTION TO DELETE/FLUSH HAS BEEN ! CREATED. ! --+ ! *** NOSHRM  ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY. ! EXPLANATION: NO SHARED MEMORY EXISTS. ! USER ACTION: DITTO. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHELE = 31556188 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: NO ELEMENT IS SPECIFIED BY THE INPUT ID.A ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A& ! LEGITIMATELY CREATED ELEMENT. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHLOC = 31556196 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: NO LOCK ELEMENT IS SPECIFIED BY THE INPUT ID.A ! USER ACTION: RECODE TO ASSURE THAT THE INPUT ID IS FOR A+ ! LEGITIMATELY CREATED LOCK ELEMENT. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHNAM = 31556204 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: INPUT NAME DOES NOT SPECIFY AN EXISTING ELEMENT.F ! USER ACTION: RECODE TO ASSURE THAT THE NAME MATCHES A CREATED ! ELEMENT. ! --5 DECLARE LO NG CONSTANT PPL$_WRONUMARG = 31556212 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: TOO MANY OR TOO FEW ARGUMENTS SPECIFIED IN THE CALL.> ! USER ACTION: RECODE USING PROPER NUMBER OF ARGUMENTS. ! --5 DECLARE LONG CONSTANT PPL$_ABNTERMIN = 31556220 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY+ ! EXPLANATION: ABNORMAL TERMINATION.F ! USER ACTION: AN APPLICATION PARTICIPANT HAS ENDED ABNORMALLY.; ! SOME APPLICATION-SPEC IFIC RECOVERY MAY BE DESIRED. ! --5 DECLARE LONG CONSTANT PPL$_EXHNEVCAL = 31556228 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: AN APPLICATION PARTICIPANT TERMINATED WITHOUT( ! EXECUTING ITS PPL EXIT HANDLER.G ! USER ACTION: APPLICATION HAS BEEN ABNORMALLY TERMINATED. SOME6 ! APPLICATION-SPECIFIC RECOVERY MAY BE DESIRED. ! --2 DECLARE LONG CONSTANT PPL$_INVARG = 31556236 ! +++ ! FACILITY: PPL, RUN-TIME LI BRARY6 ! EXPLANATION: A SPECIFIED ARGUMENT IS INVALID.9 ! USER ACTION: RECODE TO PASS THE PROPER ARGUMENT. ! --2 DECLARE LONG CONSTANT PPL$_NOINIT = 31556244 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: PPL$INITIALIZE MUST BE CALLED BEFORE THIS ROUTINE.M ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.; ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST9 ! CALLS, BUT NOT FOR THOSE WHICH REQUIRE THE PRIOR ! CREATION OF AN ELEMENT. ! --2 DECLARE LONG CONSTANT PPL$_NONPIC = 31556252 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: PPL CANNOT MAP REQUESTED ADDRESS SPACE TO THE SAME$ ! ADDRESSES IN ALL PROCESSES.M ! USER ACTION: IF IT IS CRITICAL TO THE APPLICATION THAT THE REQUESTED= ! SPACE APPEAR AT THE SAME ADDRESSES IN ALL PROCESSES,= ! THE USER MUST TAKE STEPS TO ASSURE THAT ENOUGH SPACE? ! IS MADE AVAILABLE. THIS MAY REQUIRE INCREASING SYSTEM; ! QUOTAS OR RESERVING THE REQUIRED ADDRESSES THROUGH ! LINKTIME OPERATIONS. ! --5 DECLARE LONG CONSTANT PPL$_SEMININON = 31556260 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY7 ! EXPLANATION: IMPROPER INITIAL VALUE SPECIFIED.C ! USER ACTION: RECODE TO ASSURE THAT PROPER VALUE IS PASSED. ! --2 DECLARE LONG CONSTANT PPL$_NOTIMP = 31556268 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI  ! EXPLANATION: A CALL HAS BEEN ISSUED TO AN UNIMPLEMENTED SERVICE.4 ! USER ACTION: RECODE TO ELIMINATE THIS CALL. ! --5 DECLARE LONG CONSTANT PPL$_ATTUSETWO = 31556276 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: USER HAS ATTEMPTED TO WAIT ON 2 APPLICATION-WIDE# ! BARRIERS AT THE SAME TIME.J ! USER ACTION: RECODE TO ASSURE THAT DEADLOCK IS AVOIDED BY WAITING8 ! ON ONLY ONE APPLICATION-WIDE BARRIER AT A TIME. ! --;  DECLARE LONG CONSTANT PPL$_IN_BARRIER_WAIT = 31556284 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: THE BARRIER WAS ALREADY IN EFFECT AT THE TIME OF ! THIS CALL.M ! USER ACTION: RECODE TO ASSURE THAT THE BARRIER QUORUM IS ESTABLISHED7 ! BEFORE ANYONE ATTEMPTS TO WAIT ON THE BARRIER. ! --9 DECLARE LONG CONSTANT PPL$_NO_SUCH_PARTY = 31556292 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: SPECIFIE D PARTICIPANT DOES NOT EXIST IN THIS ! APPLICATION.K ! USER ACTION: RECODE TO ASSURE THAT PROPER PARTICIPANT IS SPECIFIED% ! IN THE CALL TO THIS ROUTINE. ! --5 DECLARE LONG CONSTANT PPL$_APPALREXI = 31556300 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYD ! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO FORM AN> ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION8 ! ALREADY EXISTS, AND SO CANNOT BE FORMED BY THIS ! PRO CESS.F ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO FORM AN5 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --4 DECLARE LONG CONSTANT PPL$_ELEINUSE = 31556308 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: THIS PROCESS ATTEMPTED AN OPERATION WHICH MAY ONLY 7 ! BE PERFORMED ON AN OBJECT WHICH IS NOT IN USE.@ ! THE SPECIFIED OBJECT IS CURRENTLY IN USE AND THEREFORE , ! THE OPERATION MAY NOT BE PERFORMED.G ! USER ACTION: RECODE TO FREE THE OBJECT BEFORE ATTEMPTING THIS C ! OPERATION, OR, IF APPLICABLE, SPECIFY THE OPTION TO FORCE  ! THIS OPERATION. ! --5 DECLARE LONG CONSTANT PPL$_INCOMPARG = 31556316 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYM ! EXPLANATION: THIS PROCESS SPECIFIED A SIZE, PROTECTION, OR FLAG ON A> ! CALL TO PPL$INITIALIZE WHICH IS INCOMPATIBLE WITH THE> ! EXISTING APPLICATION WHICH THIS PROCESS IS ATTEMPTING ! TO JOIN.G ! USER ACTION: RECODE THE CALL TO OMIT THE ARGUMENTS, OR SPECIFY9 ! ARGUMENTS WHICH ARE COMPATIBLE WITH THE EXISTING ! APPLICATION. ! --5 DECLARE LONG CONSTANT PPL$_INVAPPNAM = 31556324 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY/ ! EXPLANATION: ILLEGAL CHARACTER STRING./ ! USER ACTION: FIX THE CHARACTER STRING. ! --5 DECLARE LONG CONSTANT PPL$_NOSUCHAPP = 31556332 ! +++ ! FACILITY: PPL, RUN-TIME LIBR ARYM ! EXPLANATION: THIS PROCESS ATTEMPTED SPECIFICALLY TO JOIN AN EXISTING> ! APPLICATION WITH A PARTICULAR NAME. THAT APPLICATION8 ! DOES NOT EXIST, AND SO CANNOT BE JOINED BY THIS ! PROCESS.F ! USER ACTION: SINCE THE USER SPECIFICALLY REQUESTED TO JOIN AN5 ! APPLICATION, THIS IS APPLICATION-DEPENDENT.  ! --3 DECLARE LONG CONSTANT PPL$_BUFOVFL = 31559680 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYJ ! EXPLANATION: BUFFER C OULD NOT CONTAIN THE COMPLETE OUTPUT STRING.5 ! USER ACTION: RECODE TO PASS A LARGER BUFFER. ! --3 DECLARE LONG CONSTANT PPL$_ALTSIZE = 31559688 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY= ! EXPLANATION: PPL$INITIALIZE HAS ALREADY BEEN CALLED.M ! USER ACTION: RECODE TO ASSURE THAT CALLS ARE ISSUED IN PROPER ORDER.; ! PPL$INITIALIZE IS PERFORMED AUTOMATICALLY FOR MOST= ! CALLS. ALTERING THE INTERNAL STRUCTURE SIZE MUST BE+ ! DONE BEFORE ANY OTHER CALL TO PPL. ! --5 DECLARE LONG CONSTANT PPL$_ELEALREXI = 31571971 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: AN ELEMENT BY THIS NAME ALREADY EXISTS, AND ITS ! ID HAS BEEN RETURNED.I ! USER ACTION: CONTINUE NORMALLY IF THE NAME IS EXPECTED TO EXIST. ! --5 DECLARE LONG CONSTANT PPL$_SEMALRMAX = 31571979 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY> ! EXPLANATION: SEMAPHORE CANNOT BE INCREMEN TED FURTHER.J ! USER ACTION: RECODE TO ASSURE THAT ONLY THE PROPER MAXIMUM NUMBER8 ! OF PPL$INCREMENT_SEMAPHORE REQUESTS ARE ISSUED. ! --5 DECLARE LONG CONSTANT PPL$_INTDELPRC = 31571987 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYK ! EXPLANATION: AN APPLICATION CALL TO PPL$STOP FORCED THE TEMINATION ! OF THIS PARTICIPANT.I ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,/ ! ANY ACTIONS ARE APPLICATION-DEPENDENT.  ! --5 DECLARE LONG CONSTANT PPL$_INTTERMIN = 31571995 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYE ! EXPLANATION: AN APPLICATION CALL TO PPL$TERMINATE FORCED THE( ! TEMINATION OF THIS PARTICIPANT.I ! USER ACTION: SINCE THE APPLICATION ITSELF TERMINATED THIS PARTY,/ ! ANY ACTIONS ARE APPLICATION-DEPENDENT. ! --6 DECLARE LONG CONSTANT PPL$_EXITSTATUS = 31572003 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYI ! EXPLANATION: AN APPLICATION PARTICIPANT EXITED WITH THIS STATUS.I ! USER ACTION: DETERMINE THE CAUSE OF THE TERMINATION BY EXAMINING ! THE STATUS CODE. ! --: DECLARE LONG CONSTANT PPL$_EVENT_OCCURRED = 31572011 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYH ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF AN EVENT FOR; ! WHICH NOTIFICATION HAS BEEN REQUESTED BY THE USER.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RES PONSE IS APPLICATION-DEPENDENT. ! --7 DECLARE LONG CONSTANT PPL$_NORMAL_EXIT = 31572019 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYF ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE NORMAL' ! PARTICIPANT TERMINATION EVENT.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RESPONSE IS APPLICATION-DEPENDENT. ! --9 DECLARE LONG CONSTANT PPL$_ABNORMAL_EXIT = 31572027 ! +++ ! FACILITY: PPL, RUN-TIM E LIBRARYH ! EXPLANATION: THIS CODE INDICATES THE OCCURRENCE OF THE ABNORMAL' ! PARTICIPANT TERMINATION EVENT.H ! USER ACTION: SINCE THE APPLICATION REQUESTED THIS NOTIFICATION,+ ! RESPONSE IS APPLICATION-DEPENDENT. ! --5 DECLARE LONG CONSTANT PPL$_FORMEDAPP = 31572035 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARY< ! EXPLANATION: THIS PROCESS FORMED A NEW APPLICATION.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT.  ! --5 DECLARE LONG CONSTANT PPL$_JOINEDAPP = 31572043 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYB ! EXPLANATION: THIS PROCESS JOINED AN EXISTING APPLICATION.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --3 DECLARE LONG CONSTANT PPL$_NOMATCH = 31572051 ! +++ ! FACILITY: PPL, RUN-TIME LIBRARYC ! EXPLANATION: NO MATCH FOR THE SPECIFIED ELEMENT WAS FOUND.G ! USER ACTION: CONTINUE NORMALLY IF THIS WAS AN EXPECTED RESULT. ! --ww "&PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 1 ! Print Symbiont Modification (PSM) Routines !  ! 5 ! PSM$PRINT - Invoke VMS-Supplied Print Symbiont ! : ! status = PSM$PRINT ([streams], [bufsiz], [worksiz]) ! 6 ! streams - Maximum number of streams to supportD ! bufsiz - Maximum buffer size in bytes for output operations< ! worksiz - Size in bytes of work area to be allocated ! ) EXTERNAL LONG FUNCTION PSM$PRINT & ( &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! 7 ! PSM$READ_ITEM_DX - Obtain Value of Message Items ! ; ! status = PSM$READ_ITEM_DX (request_id, item, buffer) ! P ! request_id - Request identifier supplied by the symbiont to user routineF ! item - Item code identifying message item to be returned7 ! buffer - Buffer into which data is returned ! 0 EXTERNAL LONG FUNCTION PSM$READ_ITEM_DX & ( &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! 1 ! PSM$REPLACE - Declare User Service Routine ! + ! status = PSM$REPLACE (code, routine) ! B ! code - Code identifying symbiont routine to be replaced: ! routine - User routine to replace symbiont routine ! + EXTERNAL LONG FUNCTION PSM$REPLACE & ( &" LONG BY REF, &! LONG BY REF & ) ! , ! PSM$REPORT - Report Completion Status ! 2 ! status = PSM$REPORT (request_id [, status]) ! P ! request_id - Reque st identifier supplied by the symbiont to user routineJ ! status - Completion status of asynchronous operation completed ! * EXTERNAL LONG FUNCTION PSM$REPORT & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & )ww 28PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1) %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD$% %LET %BASIC$OCTAWORD_DECLARED = 1F %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI@v&PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:14.66 !  ! R ! **************************************************************************** ! *  *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993, 1994 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PRO VIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! PRINT SYMBIONT. !  ! ABSTRACT: ! SYMBIONT MESSAGES. !  ! ENVIRONMENT:$ ! VAX/VMS USER AND KERNEL MODE. ! 4 ! AUTHOR: G. ROBERT, CREATION DATE: 31-AUG-1982 !  ! MODIFIED BY: ! 8 ! X-4 SG047 SHEELA GAYATRI 27-DEC-1994 ! ADDED PSM$_INVPREFIX. ! H ! X-3 ILR003 IRIS LANGSTEIN REALMUTO 26-OCT-1993. ! CHANGED COPYRIGHT TO 1993 ! I ! X-2 ILR002 IRIS LANGSTEIN REALMUTO 27-AUG-1993& ! ADDED PSM$_LATSYM ! 2 ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984# ! ADD MISSING .END STATEMENT. ! 5 ! 3B-009 RRB3009 ROWLAND R. BRADLEY 24-JUL-19847 ! SEPARATE THE PSM MESSAGES AND THE SMB MESSAGES. ! 4 ! 3B-008 GRR3008 GREGORY R. ROBERT 29-APR-1984 ! ADDED PSM$_FLUSH ! 4 ! 3B-007 GRR3007 GREGORY R. ROBERT 23-AUG-19839 ! BUGFIXES, PAGE_SETUP_MODULES, FORM_SETUP_MODULES,B ! SHEET_FEED, SYMBIONT INITIATED PAUSE_TASK AND STOP_STREAM,1 ! HANGUP CODE, READ AND WRITE ITEM SERVICES ! 4 ! 3B-006 GRR3006 GREGORY R. ROBERT 03-AUG-1983% ! CHANGED FUNNOTSUP TO SUCCESS. ! 4 ! 3B-005 GRR3005 GREGORY R. ROBERT 29-JUL-1983 ! ADDED MESSAGES FOR FT1. ! 4 ! 3B-004 GRR3004 GREGORY R. ROBERT 23-JUN-1983@ ! ADDED "module not found" AND "too many levels" MESSAGES. ! 4 ! 3B-003 GRR3003 GREGORY R. ROBERT 27-MAY-1983B ! REMOVED UNUSED MESSAGES. ADDED NOMOREITEMS AND INVSTMNBR. ! 4 ! 3B-002 GRR3002 GREGORY R. ROBERT 04-APR-1983 ! ADDED PSM$_NOMOREITEMS. !  ! ** ! M ! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAG E TYPES FORL ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. ! / DECLARE LONG CONSTANT PSM$_FACILITY = 2625 DECLARE LONG CONSTANT PSM$_FUNNOTSUP = 172032013 DECLARE LONG CONSTANT PSM$_PENDING = 172032091 DECLARE LONG CONSTANT PSM$_FLUSH = 172032175 DECLARE LONG CONSTANT PSM$_BUFFEROVF = 172032243 DECLARE LONG CONSTANT PSM$_NEWPAGE = 172032323 DECLARE LONG CONSTANT PSM$_SUSPEND = 172032402  DECLARE LONG CONSTANT PSM$_ESCAPE = 17203248/ DECLARE LONG CONSTANT PSM$_EOF = 172032585 DECLARE LONG CONSTANT PSM$_INVVMSOSC = 172032665 DECLARE LONG CONSTANT PSM$_MODNOTFND = 172032744 DECLARE LONG CONSTANT PSM$_NOFILEID = 172032825 DECLARE LONG CONSTANT PSM$_OSCTOOLON = 172032906 DECLARE LONG CONSTANT PSM$_TOOMANYLEV = 172032985 DECLARE LONG CONSTANT PSM$_INVITMCOD = 172033082 DECLARE LONG CONSTANT PSM$_LATSYM = 172033145 DECLARE LONG CONSTANT PSM$_INVPREFIX = 17203324ww ż&PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI!NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET" %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:01:24.87 !  ! R ! **************************************************************************** ! * # *' ! * COPYRIGHT (C) 1996 *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAI $LABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT W%HICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: !  ! NT REGISTRY SUBSYSTEM !  ! ABSTRACT: ! E ! THIS FILE CONTAINS THE VARIOUS STATUS CODES RETURNED BY THE NTF ! REGISTRY SUBSYSTEM. THESE CODES ARE ALSO AVAILABLE IN STARLET. !  ! AUTHOR: !  ! L. MARK PILANT !  ! CREATION &DATE: !  ! 4-APR-1996 !  ! MODIFIED BY: ! 7 ! X-1 LMP0564 L. MARK PILANT, 4-APR-1996 10:34 ! INITIAL VERSION. !  ! --0 DECLARE LONG CONSTANT REG$_FACILITY = 1862 ! +O ! THE FOLLOWING STATUS CODES REPRESENT ALTERNATE SUCCESS CODES THAT CAN BE- ! RETURNED BY THE NT REGISTRY SUBSYSTEM. ! -3 DECLARE LONG CONSTANT REG$_NORMAL = 122060801 ! +L ! THE FOLLOWING STATUS CODES REPRESENT VARIOUS ERRORS THAT ARE DETECTED$ ! BY THE NT REGISTRY SUBSYSTEM. ! -6 DECLARE LONG CONSTANT REG$_UNSUPPORT = 122063202ww('PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI)NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET* %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 18:18:50.00 ! * ! .TITLE RMSDEF -RMS COMPLETION CODESR ! ********************************************************** +****************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COP ,IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RE-LIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! FACILITY: RMS !  ! ABSTRACT: ! 4 ! THIS MODULE DEFINES ALL RMS COMPLETION CODES. !  ! ENVIRONMENT: ! E ! THE MESSAGE TRANSLATOR MUST BE USED TO CONVERT RMSDEF.MSG INTOC ! RMSDEF.SDL. THE SDL TRANSLATOR MUS .T THEN BE USED TO CONVERT3 ! RMSDEF.SDL INTO RMSDEF.MAR (AND RMSDEF.B32). ! < ! AUTHOR: LEO F. LAVERDURE, CREATION DATE: 10-DEC-1976 ! ! ! MODIFIED BY:  ! 9 ! X-15 EMW0085 ELINOR M. WOODS 15-MAR-1996E ! PW INTEGRATION: REMOVE NEW ALTERNATE SUCCESS STATUS: C ! RMS$_OK_URECEOF ADDED BY X-14. ENDED UP NOT NEEDED. ! C ! X-14 WDBPI1B WALTER D. BLASCHUK, JR. 5-JAN-1996, ! MERGE IN OPENV /MS AXP GRYPHON CHANGE: ! I ! X-8 WDBPI1 WALTER D. BLASCHUK, JR. 19-DEC-1995E ! PATHWORKS INTEGRATION: ADD NEW ALTERNATE SUCCESSK ! STATUS: RMS$_OK_URECEOF . THIS SYMBOL SIGNIFIES THAT ANJ ! END-OF-FILE MARKER WAS ENCOUNTERED AND THERE WAS DATAJ ! IN THE BUFFER. THIS OCCURS WHEN THE LAST RECORD OF AG ! 0 SEQUENTIAL STREAM FILE DOES NOT HAVE A TERMINATINGK ! CHARACTER. THIS IS A SUCCESS STATUS AND DOES NOT HAVE5 ! A STV STATUS ASSOCIATED WITH IT. ! 1 ! X-13 EMW0023 ELINOR M. WOODS 04-AUG-1994; ! RMS$_KRF CAN BE RETURNED BY $CONNECT OR $REWIND, AS: ! WELL AS $GET/$FIND. MAKE TEXT ASSOCIATED WITH KRF9 ! STATUS MORE GENERIC BY REMOVING "for $GET/$FIND." ! 1 ! X-12 EMW0026 ELINOR M. WOODS 15-JUN-1994 ! [VSC R 1E-IDENT]1 ! ADD ONE NEW USER-REPORTABLE STATUS: NXR 9 ! . THIS STATUS VALUE IS USED : ! AS AN STV ASSOCIATED WITH RNF STATUS (STS), AND IS: ! REPORTED FOR AN EXACT KEY MATCH OF A SECONDARY KEY: ! IF THE SECONDARY KEY ENTRY POINTS TO A NONEXISTENT< ! PRIMARY DATA RECORD IN DISK FILE. NOTE: RNF ERROR 5 ! STATUS PRE-EXISTED AS ERROR CODE WITHOUT STV. ! H ! DEE RYAN 30-SEP-1993< 2! CORRECTED USE OF DIGITAL PRODUCT NAMES. ! 1 ! X-10 EMW0019 ELINOR M. WOODS 21-SEP-19939 ! ADD ONE NEW USER-REPORTABLE ERROR STATUS (WITH AN? ! ASSOCIATED STV): NETBTS. RELOCATE NEW IDXSEARCH STATUSB ! (SEE X-9) FROM "ERROR with STV" SECTION TO "ERROR WITHOUT : ! STV" section. Expand "WITH STV' AND "without STV"3 ! COMMENTS TO CLARIFY DIFFERENCE BETWEEN TWO. ! 0 ! X-9 EMW0016 ELINOR M. WOODS 10-AUG-1993= ! TO SUPPORT NEW 3 KEY-LESS-THAN FUNCTIONALITY, ADDITION = ! OF ONE USER-REPORTABLE ERROR STATUS: IDXSEARCH (WITH; ! AN ASSOCIATED STV), AND TWO NEW RMS-INTERNAL ERROR ? ! STATUSES: LSCAN AND ROOTSRCH (WITH NO ASSOCIATED STV). ! : ! MODIFY SEVERITY OF TWO DTF ERROR CODES (DTFACC AND8 ! DTFCRE) FROM FATAL TO ERROR, AS REQUESTED BY DTF ! FACILITY.  ! + ! X-8 JM0012 JOHN MUNZER 11-NOV-1992! ! CHANGE TEXT FOR RMS$_LNE. ! + ! X-7 JM0006 JOHN MU 4NZER 17-APR-19923 ! ADD ?XL PARAMETER TO RMS$_BUG TO REPORT R2. ! 5 ! X-33 LSS0154 LEONARD S. SZUBOWICZ 4-APR-1990> ! ALTER TEXT AND FAO PARAMETERS OF RMS$_RUH AND RMS$_BUG. ! CONDITION VALUES FOR RMS/DDTM SUPPORT. ! - ! X-32 PJH PAUL J. HOULIHAN 17-JAN-19905 ! CHANGE TEXT FOR RMS$_INCOMPSHR ERROR MESSAGE. ! 5 ! X-31 LSS0130 LEONARD S. SZUBOWICZ 12-OCT-1989, ! MERGE OF RMS/DDTM GENERATION X-30D2.E ! ADD GENERAL DDTM_ERR ERROR 5 MESSAGE FOR DDTM SERVICE FAILURES;D ! STV WILL CONTAIN THE FAILING SYSTEM SERVICE CONDITION VALUE. ! 5 ! X-30 LSS0080 LEONARD S. SZUBOWICZ 06-OCT-1988C ! ADD RMS$_OK_ACT MESSAGE FOR USE BY FUTURE WORK TO $DISPLAY.4 ! THIS IS PART OF LATENT SUPPORT FOR RMS/DDTM. ! 1 ! X-29 GJA0080 GARY J. ALLISON 06-JUN-1988) ! CHANGE TEXT OF SEMANTICS MESSAGE. ! 1 ! X-28 GJA0072 GARY J. ALLISON 02-MAR-1988A ! ADD EXT_ERR, OPNOTSUP, EXTNOTFOU, AND 6SEMANTICS MESSAGES. ! 0 ! X-27 PMV0072 PETER M. VATNE 08-OCT-19870 ! CHANGE RMS$_NOJNLLIC TO RMS$_JNLNOTAUTH. ! 6 ! X-26 LSS0057 LEONARD S. SZUBOWICZ 15-SEP-1987D ! CHANGE TEXT FOR THE RMS$_OK_DUP STATUS SUCH THAT THE MESSAGE. ! IS APPLICABLE TO $GET AS WELL AS $PUT. ! 0 ! X-25 PMV0068 PETER M. VATNE 11-SEP-1987> ! ADD RMS$_NOJNLLIC, NO RMS JOURNALING LICENSE, FOR LMF. ! 2 ! X-24 RNM0026 RUSSELL N. MURRAY 15-AUG-1987> ! ADD 7RMS$_SYNCH MESSAGE FOR NOTIFICATION OF SYNCHRONOUS ! COMPLETION. ! 1 ! X-23 JEJ0479 JAMES E JOHNSON 13-AUG-1987" ! ADD RMS$_IVATRACE MESSAGE. ! 0 ! X-22 PMV0061 PETER M. VATNE 03-AUG-1987G ! CHANGE RESERVED MESSAGE RMS$_BUG_XX5 TO RMS$_BUG_RU_COMMIT_FAILC ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_COMMIT_FAIL. ! 6 ! X-21 LSS0042 LEONARD S. SZUBOWICZ 13-MAY-1987F ! CHANGE RESERVED MESSAGE RMS$_BUG_XX4 TO RMS$_BUG_RU_ABORT_FAIL8A ! TO CORRESPOND TO POSITIVE RMS BUGCHECK FTL$_RU_ABORT_FAIL ! 4 ! X-20 SAD0034 STUART A. DAVIDSON 12-MAR-1987 - ! DROP QUOTES FROM SNADTF MESSAGE TEXT. ! - ! X-19 PJH PAUL J. HOULIHAN 19-JAN-1987 ! MERGE IN 17J1. ! 0 ! X-17J1 PJH PAUL J. HOULIHAN 15-JAN-1987( ! FIX SEVERAL SMALL JNL PROBLEMS., ! ADD RMS$_BUG_FLUSH_JNL_FAILED CODE. ! 2 ! X-18 KPS0148 KENNETH P. SIEGEL 04-DEC-1986< ! ADDED SNPPF (STATISTICS MONITO 9RING NOT SUPPORTED FOR/ ! PROCESS PERMANENT FILES) ERROR MESSAGE. ! 0 ! X-17 PMV0025 PETER M. VATNE 24-NOV-19869 ! ADD NEW MESSAGE, RMS$_NOTSAMEJNL. THIS STATUS IS6 ! USED TO RESTRICT AI/BI WITH RU JOURNALING TO A& ! SINGLE LONG-TERM JOURNAL FILE. ! - ! X-16 DAS DAVID A. SOLOMON 18-NOV-1986F ! ADD NEW MESSAGE, RMS$_DELJNS. REMOVE RMS$_XCR (BY REPLACING IT= ! WITH A PLACEHOLDER), AS JOURNALING BITS ARE NO LONGERC ! SPECIFIED IN THE $ :XABJNL. SLIGHT WORDING CHANGE ON DETACHED# ! RU RECOVERY ERROR MESSAGES. ! - ! X-15 DAS DAVID A. SOLOMON 12-NOV-1986; ! FIX ERROR IN X-5/X-6: JOURNALING VARIANT NOT MERGEDC ! CORRECTLY, RESULTING IN SEVERAL JOURNALING MESSAGES NUMBERSA ! BEING DIFFERENT IN THE MAININE THAN WHAT THEY WERE ON THED ! JOURNALING VARIANT. ALSO, MOVE NEW SNADTF MESSAGES TO RE-USEC ! AVAILABLE UNUSED MESSAGE NUMBERS, INSTEAD OF GENERATING NEWC ! ONES. FINALLY, CHANG;E RMS$_BUG_ABORT TO RMS$_BUG_RU_ACTIVE. ! 3 ! X-14 SAD0014 STUART A. DAVIDSON 4-NOV-1986+ ! SNADTF - FIX TYPO IN DTFACC, DTFCRE ! 3 ! X-13 SAD0014 STUART A. DAVIDSON 3-NOV-19865 ! SNADTF - FIX TYPO, ADD 2 ADDITIONAL MESSAGES. ! 1 ! X-12 JEJ0377 JAMES E JOHNSON 29-OCT-1986< ! ADD NOEXTEND ERROR CODE TO FLAG FAILED RELATIVE FILE) ! EXTENDS DUE TO PREVIOUS FAILURES. ! 2 ! X-11 KPS0131 KENNETH P. SIEGEL 25-OCT-1986: ! ADDE<D SNS ERROR CODE FOR STATISTICS NOT SUPPORT ON ! NON-DISK DEVICES. ! 2 ! X-10 SAD009 STUART A. DAVIDSON 06-OCT-19867 ! ADD COMPLETION CODES FOR SNADTF (IBM DATA XFER) ! 0 ! X-9 GJA0003 GARY J. ALLISON 29-SEP-1986, ! ADD DETACHED RECOVERY ERROR MESSAGES ! / ! X-8 PMV0008 PETER M. VATNE 24-SEP-1986; ! MODIFY RMS$_ACC_AIJ, RMS$_ACC_BIJ, AND RMS$_ACC_ATJ ! TO ALSO OUTPUT THE STV. ! + ! X-7 JWT0243 JIM TEAGUE 2-SEP-1986)= ! ADD NEW ERRORS FOR COLLATED KEYS. ! , ! X-6 GJA GARY J. ALLISON 29-JUL-1986# ! REMOVE DUPS FROM JNL MERGE. ! , ! X-5 GJA GARY J. ALLISON 29-JUL-1986& ! MERGE JOURNALING INTO MAINLINE ! / ! X-3J6 DAS DAVID A. SOLOMON 14-APR-1986D ! REMOVE RMS$_RUH_FILE (USING A GENERAL RUF MESSAGE INSTEAD).= ! CHANGE RMS$_RUH TEXT TO NOT HAVE FAO PARAMETERS. ADD ! RMS$_BUG_RURECERR. ! 3 ! X-3J5 JEJ0302 JAMES E JOHNSON 4-A>PR-19864 ! ADD RMS$_RRF (ERROR DURING RU RECOVERY) ANDG ! RMS$_RUH/RMS$_RUH_FILE (USED TO FORM TEXT OF RU HANDLER ERRORS ! SENT TO OPCOM). ! 3 ! X-3J4 JEJ0272 JAMES E JOHNSON 11-FEB-1986, ! ADD RMS$_RUF, RMS$_BUG_ABORT CODES. ! 3 ! X-3J3 JEJ0237 JAMES E JOHNSON 16-DEC-1985 ! ADD RMS$_RUNDOWN CODE ! 3 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985? ! ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE$ ! ? THE GENERIC ERRWRTJNL CODE. ! 0 ! X-4 JEJ0216 JAMES E JOHNSON 18-NOV-1985, ! MERGE X-3J2 INTO MAIN LINE FOR V4.4. ! 3 ! X-3J2 JEJ0205 JAMES E JOHNSON 25-OCT-1985? ! ADD JOURNAL SPECIFIC WRTJNL_XXJ ERROR CODES TO REPLACE$ ! THE GENERIC ERRWRTJNL CODE. ! 0 ! X-3 JEJ0161 JAMES E JOHNSON 9-SEP-1985' ! UPDATE RMS JOURNALING MESSAGES. ! + ! X-2 JWT0212 JIM TEAGUE 4-SEP-19859 ! ADD (WHAT IS FOR NOW) AN INTERNAL STATUS C @ODE TO < ! DIFFERENTIATE BETWEEN FINDING A DELETED RECORD (DEL)? ! AND FINDING IT BUT WITH A DIFFERENT KEY (KEY_MISMATCH). ! 1 ! V03-024 RAS0314 RON SCHAEFER 21-JUN-1984B ! WORK OVER THE MESSAGES ONE MORE TIME: FIX TYPO IN OK_RNF,. ! DELETE ACPEOF ERROR, DELETE WSF ERROR. ! 1 ! V03-023 RAS0282 RON SCHAEFER 28-MAR-1984. ! MINOR TEXT CHANGES AND COMMENTS ADDED. ! DELETE RMS$_COP ERROR. ! 2 ! V03-022 DAS0005 DAVID SOLOMON 19- AMAR-1984= ! REMOVE RMS$_ECHO (NO LONGER NEEDED AS A RESULT OF NEW9 ! IMPLEMENTATION FOR ECHO SYS$INPUT -> SYS$OUTPUT). ! / ! V03-021 JWT0150 JIM TEAGUE 01-FEB-1984: ! ADD RMS$_IFF FOR TRYING TO WRITE-ACCESS A FILE ON < ! MAGTAPE THAT HAS NON-0 VALUE FOR ANSI BUFFER OFFSET. ! 1 ! V03-020 RAS0233 RON SCHAEFER 9-JAN-1984; ! ADD RMS$_NOVALPRS ERROR FOR $SEARCH NOT PRECEDED BY ! VALID $PARSE. ! / ! V03-019 JWT0148 JIM TEAGUE 20B-DEC-19839 ! ADD A JNL XAB ERROR FOR CONFLICTING RU ATTRIBUTES ! ON $CREATE: RMS$_XCR. ! 1 ! V03-018 RAS0171 RON SCHAEFER 28-JUL-1983> ! ADD RMS$_BUSY; A STRUCTURE-LESS ERROR (R0-ONLY STATUS) ! REPLACING TEMP3. ! 2 ! V03-017 DAS0004 DAVID SOLOMON 28-JUN-1983: ! ADD RMS$_FILEPURGED; ADD RMS$_ACPEOF FOR ZALEWSKI. ! 5 ! V03-016 KPL0007 PETER LIEBERWIRTH 8-JUN-1983? ! FIX SPELLING IN JNL ERROR MESSAGES, ADD CJF ERROR WHICH& C ! WILL SOON SUBSUME COP AND CQE. ! 2 ! V03-015 DAS0003 DAVID SOLOMON 18-FEB-19838 ! ADD XNF (REPLACING TEMP9), TMR (NEW), LWC (NEW). ! 5 ! V03-014 KBT0497 KEITH B. THOMPSON 18-FEB-19831 ! ADD INCOMPSHR ERROR (REUSE OF TEMP1 SLOT) ! 1 ! V03-013 RAS0120 RON SCHAEFER 2-FEB-1983; ! ADD ECHO PSEUDO-STATUS TO SUPPORT ECHO OF SYS$INPUT ! TO SYS$OUTPUT. ! 3 ! V03-012 JWH0174 JEFFRY W. HORN 24-JAN-1983 ! ADD CQE AND COP ERDRORS. ! 5 ! V03-011 KPL0006 PETER LIEBERWIRTH 7-JAN-1983. ! ADD OK_RULK FOR RECOVERY UNIT SUPPORT. ! $ ! ADD REENT ERROR FOR $RENAME. ! 4 ! V03-009 JWH0153 JEFFREY W. HORN 8-DEC-1982 ! ADD NRU ERROR. ! 4 ! V03-008 JWH0152 JEFFREY W. HORN 8-DEC-1982 ! ADD JNS ERROR. ! 5 ! V03-007 MCN0002 MARIA DEL C. NASR 15-NOV-1982; ! REPLACE ORD ERROR CODE ELIMINATED BY MCN0001, SINCE' ! THE NETWORK CODE REFERENCES IT.E ! 5 ! V03-006 MCN0001 MARIA DEL C. NASR 26-OCT-1982< ! PRINT KEY OF REFERENCE OR AREA IDENTIFICATION NUMBER9 ! INSTEAD OF XAB ADDRESS FOR ERRORS RETURNED DURING< ! INDEXED FILE CREATION. ALSO RENAME ALL UNUSED ERROR ! CODES TO TEMP. ! 4 ! V03-005 JWH0102 JEFFREY W. HORN 24-SEP-1982 ! ADD RUP ERROR. ! 1 ! V03-004 RAS0095 RON SCHAEFER 7-SEP-1982 ! ADD OVRDSKQUOTA ERROR. ! 4 ! V03-002 JWH0002 JEFFREY W. HORN 26-JUFL-19820 ! CONVERT TO .MSG FORMAT. ADD RUM ERROR. ! 4 ! V03-001 JWH0001 JEFFREY W. HORN 20-JUL-1982% ! ADD JNF, JOP, AND NOJ ERRORS. ! 5 ! V02-042 KPL0005 PETER LIEBERWIRTH 4-FEB-19829 ! ADD ERROR MESSAGES RMS$_EXENQLM AND RMS$_DEADLOCK ! CORRECTLY. ! / ! V02-041 CDS0001 C D SAETHER 24-JAN-1982 ! ADD GBC AND CRMP ERRORS. ! . ! V02-040 JAK0069 J A KRYCKA 15-JAN-1982, ! ADD SUPPORT AND NETFAIL ERROR CODES. ! . G ! V02-039 JAK0068 J A KRYCKA 31-DEC-1981B ! MODIFY TEXT FOR SUP, NET, BUG_DAP, AND ENV ERROR MESSAGES. ! 3 ! V02-038 LJA0001 LAURIE ANDERSON 20-DEC-1981. ! MODIFIED SOME MESSAGES TO READ BETTER. ! . ! V02-037 JAK0063 J A KRYCKA 31-AUG-1981! ! ADD CRE_STM SUCCESS CODE. ! 5 ! V02-036 KPL0004 PETER LIEBERWIRTH 13-JAN-1981D ! ADD ENQ SEVERE ERROR MESSAGE, TO INDICATE $ENQ/$DEQ FAILURE.2 ! ALSO ADD SUCCESS CODES OK_RRL, AND OK_WAT. H ! . ! V02-035 REFORMAT J A KRYCKA 30-JUL-1980 !  ! --- DECLARE LONG CONSTANT RMS$_FACILITY = 1J DECLARE LONG CONSTANT RMS$V_STVSTATUS = 14 ! MOVE TO BIT 14 OF THE ! STATUS CODE IT INDICATES$ ! THAT STV CONTAINS A SECONDARY ! STATUS CODE., DECLARE LONG CONSTANT RMS$_SUC = 65537/ DECLARE LONG CONSTANT RMS$_NORMAL = 65537 ! + !  ! SUCCESS CODES !  ! - ! BIT 16 = BIT 15 = 1. DECLARE LONG CONSTANT RMS$_S ITALL = 98305, ! (NOTE: USER NEVER RECEIVES THIS CODE)0 DECLARE LONG CONSTANT RMS$_PENDING = 98313/ DECLARE LONG CONSTANT RMS$_OK_DUP = 98321/ DECLARE LONG CONSTANT RMS$_OK_IDX = 98329C ! (RECORD HAS BEEN INSERTED, BUT INDEX STRUCTURE IS NO LONGER ! OPTIMAL.)/ DECLARE LONG CONSTANT RMS$_OK_RLK = 98337D ! (BECAUSE LOCKER SET RLK IN ROP FIELD WHEN RECORD WAS LOCKED.)/ DECLARE LONG CONSTANT RMS$_OK_RRL = 98345C ! (BECAUSE READER SET RRL IN RO JP FIELD WHEN ACCESSING RECORD.)$ ! (THIS CODE USED TO BE OK_RRV)? ! OK_RRV ;MSG E ! (BUT IT MAY NOT BE ACCESSIBLE VIA ONE-OR-MORE SECONDARY KEYS,E ! AND NOT BY RFA ADDRESSING. FILE RE-ORGANIZATION RECOMMENDED?), DECLARE LONG CONSTANT RMS$_KFF = 98353/ DECLARE LONG CONSTANT RMS$_OK_ALK = 98361/ DECLARE LONG CONSTANT RMS$_OK_DEL = 98369/ DECLARE LONG CONSTANT RMS$_OK_RNF = 98377/ DECLARE LONG CONSTANT KRMS$_OK_LIM = 98385/ DECLARE LONG CONSTANT RMS$_OK_NOP = 98393/ DECLARE LONG CONSTANT RMS$_OK_WAT = 98401= ! (BECAUSE WAT BIT IN ROP WAS SET AND RECORD WAS ALREADY ! LOCKED.)0 DECLARE LONG CONSTANT RMS$_CRE_STM = 984090 DECLARE LONG CONSTANT RMS$_OK_RULK = 98417. DECLARE LONG CONSTANT RMS$_SYNCH = 98425/ DECLARE LONG CONSTANT RMS$_OK_ACT = 984334 DECLARE LONG CONSTANT RMS$_OK_NOCURTID = 98441 ! + ! B ! SUCCESS CODES PASSED THRU L FROM DRIVERS AND ACP - BIT 15 = 0 !  ! -X DECLARE LONG CONSTANT RMS$_CONTROLC = 67153 ! TERMINAL I/O ABORTED DUE TO CTRL/C1 DECLARE LONG CONSTANT RMS$_CONTROLO = 67081) ! TERMINAL I/O ABORTED DUE TO CTRL/O1 DECLARE LONG CONSTANT RMS$_CONTROLY = 67089) ! TERMINAL I/O ABORTED DUE TO CTRL/Y0 DECLARE LONG CONSTANT RMS$_CREATED = 67097# ! FILE WAS CREATED, NOT OPENED2 DECLARE LONG CONSTANT RMS$_SUPERSEDE = 67121/ ! CREATED FILE SUPERSEDEDM EXISTING VERSION4 DECLARE LONG CONSTANT RMS$_OVRDSKQUOTA = 67177$ ! DISK USAGE EXCEEDS DISK QUOTA3 DECLARE LONG CONSTANT RMS$_FILEPURGED = 67193% ! CREATE FILE CAUSED OLDEST FILE ! VERSION TO BE PURGED ! + !  ! WARNING CODES !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 0, DECLARE LONG CONSTANT RMS$_BOF = 98712, DECLARE LONG CONSTANT RMS$_RNL = 98720, DECLARE LONG CONSTANT RMS$_RTB = 98728, DECLARE LONG CONSTANT RMS$_TNMO = 98736, DECLARE LONG CONSTANT RMS$_TNS = 98744, DECLARE LONG CONSTANT RMS$_BES = 98752, DECLARE LONG CONSTANT RMS$_PES = 98760 ! + ! L ! ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED' ! CONDITION CODE IS IN STV) !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 0, DECLARE LONG CONSTANT RMS$_ACT = 98906, DECLARE LONG CONSTANT RMS$_DEL = 989142 DECLARE LONG CONSTANT RMS$_INCOMPSHR = 98922, DECLARE LO ONG CONSTANT RMS$_DNR = 98930, DECLARE LONG CONSTANT RMS$_EOF = 98938, DECLARE LONG CONSTANT RMS$_FEX = 98946, DECLARE LONG CONSTANT RMS$_FLK = 98954, DECLARE LONG CONSTANT RMS$_FNF = 98962, DECLARE LONG CONSTANT RMS$_PRV = 98970, DECLARE LONG CONSTANT RMS$_REX = 98978, DECLARE LONG CONSTANT RMS$_RLK = 98986, DECLARE LONG CONSTANT RMS$_RNF = 989948 ! (RECORD NEVER WAS IN FILE, OR HAS BEEN DELETED.), DECLARE LONG CONSTANT RMS$_WLK = 99002, P DECLARE LONG CONSTANT RMS$_EXP = 99010, DECLARE LONG CONSTANT RMS$_NMF = 99018, DECLARE LONG CONSTANT RMS$_SUP = 99026A ! (NOTE THAT SUPPORT HAS REPLACED SUP EXCEPT WHEN RMS CANNOT7 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)? ! (NOTE ALSO THAT SUP SHOULD HAVE BEEN DEFINED AS A SEVERE< ! ERROR CODE. HOWEVER, SUPPORT IS A SEVERE ERROR CODE.), DECLARE LONG CONSTANT RMS$_RSA = 99034, DECLARE LONG CONSTANT RMS$_CRC = 99042, DECLARE LONG CONSTAN QT RMS$_WCC = 99050, DECLARE LONG CONSTANT RMS$_IDR = 99058, DECLARE LONG CONSTANT RMS$_LWC = 990660 DECLARE LONG CONSTANT RMS$_UNUSED1 = 990741 DECLARE LONG CONSTANT RMS$_NOVALPRS = 990825 DECLARE LONG CONSTANT RMS$_KEY_MISMATCH = 99090, DECLARE LONG CONSTANT RMS$_RUH = 99098, DECLARE LONG CONSTANT RMS$_JND = 991061 DECLARE LONG CONSTANT RMS$_BADPHASE = 99114. DECLARE LONG CONSTANT RMS$_TOWDR = 99122. DECLARE LONG CONSTANT RMS$_NEXDR = 991 R301 DECLARE LONG CONSTANT RMS$_INVDRMSG = 991382 DECLARE LONG CONSTANT RMS$_RU_ACTIVE = 991461 DECLARE LONG CONSTANT RMS$_UNKRUFAC = 99154. DECLARE LONG CONSTANT RMS$_LIMBO = 991621 DECLARE LONG CONSTANT RMS$_IVATRACE = 991701 DECLARE LONG CONSTANT RMS$_OPNOTSUP = 991782 DECLARE LONG CONSTANT RMS$_EXTNOTFOU = 991860 DECLARE LONG CONSTANT RMS$_EXT_ERR = 991942 DECLARE LONG CONSTANT RMS$_SEMANTICS = 99202. DECLARE LONG CONSTANT RMS$_LSCAN =S 992101 DECLARE LONG CONSTANT RMS$_ROOTSRCH = 992182 DECLARE LONG CONSTANT RMS$_IDXSEARCH = 99226/ DECLARE LONG CONSTANT RMS$_NETBTS = 99234, DECLARE LONG CONSTANT RMS$_NXR = 99242< ! IF EXACT KEY MATCH ON SECONDARY KEY AND SECONDARY KEY9 ! ENTRY POINTS TO NONEXISTENT PRIMARY DATA RECORD IN ! DISK FILE. ! + ! ] ! ERROR CODES - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! -# ! BIT 16 = BIT 15 = T BIT 14 = 1- DECLARE LONG CONSTANT RMS$_ACC = 114690- DECLARE LONG CONSTANT RMS$_CRE = 114698- DECLARE LONG CONSTANT RMS$_DAC = 114706- DECLARE LONG CONSTANT RMS$_ENT = 114714- DECLARE LONG CONSTANT RMS$_EXT = 114722- DECLARE LONG CONSTANT RMS$_FND = 114730- DECLARE LONG CONSTANT RMS$_MKD = 114738- DECLARE LONG CONSTANT RMS$_DPE = 114746- DECLARE LONG CONSTANT RMS$_SPL = 114754- DECLARE LONG CONSTANT RMS$_DNF = 114762- DECLAR UE LONG CONSTANT RMS$_RUF = 1147704 DECLARE LONG CONSTANT RMS$_WRTJNL_AIJ = 1147784 DECLARE LONG CONSTANT RMS$_WRTJNL_BIJ = 1147864 DECLARE LONG CONSTANT RMS$_WRTJNL_ATJ = 1147944 DECLARE LONG CONSTANT RMS$_WRTJNL_RUJ = 114802- DECLARE LONG CONSTANT RMS$_RRF = 1148102 DECLARE LONG CONSTANT RMS$_DDTM_ERR = 114818 ! + ! S ! SEVERE ERROR CODES - WITHOUT STV (THAT IS, STV MAY BE USED BUT NO ASSOCIATED- ! CONDITION CODE IS IN STV) V !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 02 DECLARE LONG CONSTANT RMS$_DTFCDDREC = 99308, DECLARE LONG CONSTANT RMS$_AID = 99316, DECLARE LONG CONSTANT RMS$_ALN = 99324, DECLARE LONG CONSTANT RMS$_ALQ = 99332, DECLARE LONG CONSTANT RMS$_ANI = 99340, DECLARE LONG CONSTANT RMS$_AOP = 99348, DECLARE LONG CONSTANT RMS$_BKS = 99356, DECLARE LONG CONSTANT RMS$_BKZ = 99364, DECLARE LONG CONSTANT RMS$_BLN = 99372, DECLARE LONG CONSTANT RM WS$_BUG = 993800 DECLARE LONG CONSTANT RMS$_BUG_DDI = 993880 DECLARE LONG CONSTANT RMS$_BUG_DAP = 993966 DECLARE LONG CONSTANT RMS$_BUG_RU_ACTIVE = 994045 DECLARE LONG CONSTANT RMS$_BUG_RURECERR = 99412= DECLARE LONG CONSTANT RMS$_BUG_FLUSH_JNL_FAILED = 99420: DECLARE LONG CONSTANT RMS$_BUG_RU_ABORT_FAIL = 99428; DECLARE LONG CONSTANT RMS$_BUG_RU_COMMIT_FAIL = 994360 DECLARE LONG CONSTANT RMS$_BUG_XX6 = 994440 DECLARE LONG CONSTANT RMS$_BUG_XX7 = X 994520 DECLARE LONG CONSTANT RMS$_BUG_XX8 = 99460- DECLARE LONG CONSTANT RMS$_BUSY = 99468, DECLARE LONG CONSTANT RMS$_CCR = 99476, DECLARE LONG CONSTANT RMS$_CHG = 99484, DECLARE LONG CONSTANT RMS$_CHK = 99492, DECLARE LONG CONSTANT RMS$_COD = 99500, DECLARE LONG CONSTANT RMS$_CUR = 99508, DECLARE LONG CONSTANT RMS$_DAN = 99516, DECLARE LONG CONSTANT RMS$_DEV = 99524, DECLARE LONG CONSTANT RMS$_DIR = 99532, DECLARE LONG CONSTANT RMS$ Y_DME = 99540, DECLARE LONG CONSTANT RMS$_DNA = 99548, DECLARE LONG CONSTANT RMS$_DTP = 99556, DECLARE LONG CONSTANT RMS$_DUP = 99564, DECLARE LONG CONSTANT RMS$_DVI = 99572, DECLARE LONG CONSTANT RMS$_ESA = 99580, DECLARE LONG CONSTANT RMS$_ESS = 99588, DECLARE LONG CONSTANT RMS$_FAB = 99596, DECLARE LONG CONSTANT RMS$_FAC = 99604, DECLARE LONG CONSTANT RMS$_FLG = 99612, DECLARE LONG CONSTANT RMS$_FNA = 99620, DECLARE LONG CONSTANT RMS$ Z_FNM = 99628, DECLARE LONG CONSTANT RMS$_FSZ = 99636, DECLARE LONG CONSTANT RMS$_FOP = 99644, DECLARE LONG CONSTANT RMS$_FUL = 99652, DECLARE LONG CONSTANT RMS$_IAL = 99660, DECLARE LONG CONSTANT RMS$_IAN = 99668, DECLARE LONG CONSTANT RMS$_IDX = 99676, DECLARE LONG CONSTANT RMS$_IFI = 99684, DECLARE LONG CONSTANT RMS$_IMX = 99692, DECLARE LONG CONSTANT RMS$_IOP = 99700, DECLARE LONG CONSTANT RMS$_IRC = 99708, DECLARE LONG CONSTANT RMS$ [_ISI = 99716, DECLARE LONG CONSTANT RMS$_KBF = 99724, DECLARE LONG CONSTANT RMS$_KEY = 99732, DECLARE LONG CONSTANT RMS$_KRF = 99740, DECLARE LONG CONSTANT RMS$_KSZ = 99748, DECLARE LONG CONSTANT RMS$_LAN = 997560 DECLARE LONG CONSTANT RMS$_RUNDOWN = 99764, DECLARE LONG CONSTANT RMS$_LNE = 99772/ DECLARE LONG CONSTANT RMS$_DTFCVT = 99780, DECLARE LONG CONSTANT RMS$_MRN = 99788, DECLARE LONG CONSTANT RMS$_MRS = 99796, DECLARE LONG CONST \ANT RMS$_NAM = 99804, DECLARE LONG CONSTANT RMS$_NEF = 998122 DECLARE LONG CONSTANT RMS$_DTFQUASYN = 99820, DECLARE LONG CONSTANT RMS$_NOD = 99828, DECLARE LONG CONSTANT RMS$_NPK = 99836C DECLARE LONG CONSTANT RMS$_ORD = 99844 ! ? NOT USED AS OF V4, DECLARE LONG CONSTANT RMS$_ORG = 99852, DECLARE LONG CONSTANT RMS$_PBF = 99860, DECLARE LONG CONSTANT RMS$_PLG = 99868, DECLARE LONG CONSTANT RMS$_POS = 998762 DECLARE LONG CONSTANT RMS$_DTFQUAV ]AL = 99884, DECLARE LONG CONSTANT RMS$_QUO = 99892, DECLARE LONG CONSTANT RMS$_RAB = 99900, DECLARE LONG CONSTANT RMS$_RAC = 99908, DECLARE LONG CONSTANT RMS$_RAT = 99916, DECLARE LONG CONSTANT RMS$_RBF = 99924, DECLARE LONG CONSTANT RMS$_RFA = 99932, DECLARE LONG CONSTANT RMS$_RFM = 99940, DECLARE LONG CONSTANT RMS$_RHB = 99948, DECLARE LONG CONSTANT RMS$_RLF = 99956, DECLARE LONG CONSTANT RMS$_ROP = 99964, DECLARE LONG CONSTANT RMS$_R ^RV = 99972, DECLARE LONG CONSTANT RMS$_RVU = 99980, DECLARE LONG CONSTANT RMS$_RSS = 99988, DECLARE LONG CONSTANT RMS$_RST = 99996- DECLARE LONG CONSTANT RMS$_RSZ = 100004- DECLARE LONG CONSTANT RMS$_SEQ = 100012- DECLARE LONG CONSTANT RMS$_SHR = 100020- DECLARE LONG CONSTANT RMS$_SIZ = 100028- DECLARE LONG CONSTANT RMS$_SQO = 1000363 DECLARE LONG CONSTANT RMS$_DTFSESEST = 100044- DECLARE LONG CONSTANT RMS$_SYN = 100052- DECLARE _LONG CONSTANT RMS$_TRE = 100060- DECLARE LONG CONSTANT RMS$_TYP = 100068- DECLARE LONG CONSTANT RMS$_UBF = 100076- DECLARE LONG CONSTANT RMS$_USZ = 100084- DECLARE LONG CONSTANT RMS$_VER = 100092- DECLARE LONG CONSTANT RMS$_XNF = 100100- DECLARE LONG CONSTANT RMS$_XAB = 100108- DECLARE LONG CONSTANT RMS$_ESL = 1001163 DECLARE LONG CONSTANT RMS$_DTFSESTER = 100124- DECLARE LONG CONSTANT RMS$_ENV = 100132- DECLARE LONG CONSTANT RMS$_P `LV = 100140- DECLARE LONG CONSTANT RMS$_MBC = 100148- DECLARE LONG CONSTANT RMS$_RSL = 100156- DECLARE LONG CONSTANT RMS$_WLD = 100164l DECLARE LONG CONSTANT RMS$_NET = 100172 ! (NOTE THAT NETFAIL HAS REPLACED NET EXCEPT WHEN RMS CANNOT7 ! MAP THE DAP STATUS CODE INTO A FAL STATUS CODE.)- DECLARE LONG CONSTANT RMS$_IBF = 100180- DECLARE LONG CONSTANT RMS$_REF = 100188- DECLARE LONG CONSTANT RMS$_IFL = 100196- DECLARE LONG CONSTANT RMS$_DFL a = 100204- DECLARE LONG CONSTANT RMS$_KNM = 100212- DECLARE LONG CONSTANT RMS$_IBK = 100220- DECLARE LONG CONSTANT RMS$_KSI = 100228- DECLARE LONG CONSTANT RMS$_LEX = 100236- DECLARE LONG CONSTANT RMS$_SEG = 100244D DECLARE LONG CONSTANT RMS$_SNE = 100252 ! ? NOT USED AS OF V4D DECLARE LONG CONSTANT RMS$_SPE = 100260 ! ? NOT USED AS OF V4- DECLARE LONG CONSTANT RMS$_UPI = 100268- DECLARE LONG CONSTANT RMS$_ACS = 100276- DECLARE LONG b CONSTANT RMS$_STR = 100284- DECLARE LONG CONSTANT RMS$_FTM = 100292- DECLARE LONG CONSTANT RMS$_GBC = 1003002 DECLARE LONG CONSTANT RMS$_DEADLOCK = 1003081 DECLARE LONG CONSTANT RMS$_EXENQLM = 100316- DECLARE LONG CONSTANT RMS$_JOP = 100324- DECLARE LONG CONSTANT RMS$_RUM = 100332- DECLARE LONG CONSTANT RMS$_JNS = 100340- DECLARE LONG CONSTANT RMS$_NRU = 100348- DECLARE LONG CONSTANT RMS$_IFF = 1003563 DECLARE LONG CONSTANT RMS$_DTF cTRATBL = 1003643 DECLARE LONG CONSTANT RMS$_DTFUNSTYP = 1003723 DECLARE LONG CONSTANT RMS$_DTFVERMIS = 100380 ! + ! ! ERROR CODES - WITHOUT STV ! K ! DTFACC AND DTFCRE WERE ORIGINALLY INCLUDED IN THIS FATAL SEVERITY H ! (NO STV) GROUPING. IN ORDER TO CHANGE THEIR SEVERITY TO ERROR H ! (NO STV) AND RETAIN THE SAME MESSAGE CODE VALUE, THE FOLLOWING G ! SHIFTS IN SEVERITY FROM FATAL TO ERROR AND THEN BACK AGAIN AREK ! DONE, WHILEd RETAINING THE SAME ORIGINAL BASE ASSOCIATED WITH EACH. !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DTFACC = 100386 ! + ! ' ! SEVERE ERROR CODES - WITHOUT STV !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 02 DECLARE LONG CONSTANT RMS$_BOGUSCOL = 1003964 DECLARE LONG CONSTANT RMS$_ERRREADCOL = 1004045 DECLARE LONG CONSTANT RMS$_ERRWRITECOL = 100412- DECLARE LONG CONSTANT RMS$_SNS = 1004207 DECLAReE LONG CONSTANT RMS$_NOEXTEND = 100428 ! + ! ! ERROR CODES - WITHOUT STV !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DTFCRE = 100434 ! + ! ' ! SEVERE ERROR CODES - WITHOUT STV !  ! -& ! BIT 16 = BIT 15 = 1, BIT 14 = 00 DECLARE LONG CONSTANT RMS$_DELJNS = 1004444 DECLARE LONG CONSTANT RMS$_NOTSAMEJNL = 100452/ DECLARE LONG CONSTANT RMS$_SNPPF = 100460 ! + ! _ ! SEVERE ERRORS f - WITH STV ERROR CODE (THAT IS, STV CONTAINS AN ASSOCIATED CONDITION CODE) !  ! -# ! BIT 16 = BIT 15 = BIT 14 = 1- DECLARE LONG CONSTANT RMS$_ATR = 114892- DECLARE LONG CONSTANT RMS$_ATW = 114900- DECLARE LONG CONSTANT RMS$_CCF = 114908- DECLARE LONG CONSTANT RMS$_CDA = 114916- DECLARE LONG CONSTANT RMS$_CHN = 114924- DECLARE LONG CONSTANT RMS$_RER = 114932- DECLARE LONG CONSTANT RMS$_RMV = 114940- DECLARE LONG CONSTANT RMS$_RPL g = 114948- DECLARE LONG CONSTANT RMS$_SYS = 114956- DECLARE LONG CONSTANT RMS$_WER = 114964- DECLARE LONG CONSTANT RMS$_WPL = 114972- DECLARE LONG CONSTANT RMS$_IFA = 114980- DECLARE LONG CONSTANT RMS$_WBE = 114988- DECLARE LONG CONSTANT RMS$_ENQ = 1149961 DECLARE LONG CONSTANT RMS$_NETFAIL = 1150041 DECLARE LONG CONSTANT RMS$_SUPPORT = 115012. DECLARE LONG CONSTANT RMS$_CRMP = 1150203 DECLARE LONG CONSTANT RMS$_DTFCFGFIL = 115028/ DECLARE LONG CONSTANT RMS$_REENT = 1150361 DECLARE LONG CONSTANT RMS$_ACC_RUJ = 115044- DECLARE LONG CONSTANT RMS$_TMR = 1150521 DECLARE LONG CONSTANT RMS$_ACC_AIJ = 1150601 DECLARE LONG CONSTANT RMS$_ACC_BIJ = 1150681 DECLARE LONG CONSTANT RMS$_ACC_ATJ = 1150763 DECLARE LONG CONSTANT RMS$_DTFDEFFIL = 1150843 DECLARE LONG CONSTANT RMS$_DTFREGFIL = 1150924 DECLARE LONG CONSTANT RMS$_JNLNOTAUTH = 115100wwi(PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIjNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETk %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:19.91 !  !  ! VERSION: 'X-3' ! R ! ************************************************************** l************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES mTHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABnILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! K ! MESSAGES ARE FOR THE FAL (DECNET FILE ACCESS LISTENER) FACILITY, BUT- ! ARE GENERATED ON BEHALF OF FAL BY RMS. !  ! ABSTRACT: ! L ! THIS MODULE DEFINES FAL STATUS CODE SYMBOLS AND CORRESPONDING MESSAGEK o ! TEXT. NOTE THAT THIS MESSAGE FILE IS MAINTAINED BY THE RMS FACILITY,K ! NOT THE FAL FACILITY, BECAUSE RMS DOES THE TRANSLATION OF DAP STATUSO ! INTO FAL STATUS CODES WHICH ARE REPORTED AS SECONDARY STATUS INFORMATIONN ! TO THE RMS$_NETFAIL AND RMS$_SUPPORT COMPLETION CODES ON BEHALF OF FAL. !  ! ENVIRONMENT: VAX/VMS ! : ! AUTHOR: JAMES A. KRYCKA, CREATION DATE: 15-JAN-1982 !  ! MODIFIED BY: ! 1 ! X-3 SAD009 STUART A. DAVIDSON 06-OCTp-1986$ ! ADD STATUS CODES FOR SNADTF. ! , ! X-2 DAS DAVID A. SOLOMON 01-AUG-1986= ! REMOVE /MACRO= ON .FACILITY SO THE PROPER MACROS WILL% ! BE GENERATED IN THE SDL FILE. ! . ! V03-001 JAK0147 J A KRYCKA 09-JUL-1984B ! ADD ERROR CODES THAT CORRESPOND TO DAP MICCODES 416 TO 470@ ! (OCTAL) FOR MACCODES 4 THROUGH 7 DEFINED IN THE DAP V7.0 ! SPECIFICATION. !  ! -- ! ++H ! DEFINE FAL STATUS CODES FOR USE BY RMS AS SECONDARY SqTATUS CODES. !  ! LAYOUT OF MESSAGE SPACE: ! 4 ! MSG NUMBERS MSG NUMBERS MSG CODES DESCRIPTION, ! (DECIMAL) (HEXADECIMAL) (HEXADECIMAL) ! 1 ! 0 - 1023 0000 - 03FF 8000 - 9FFF UNUSED; ! 1024 - 2047 0400 - 07FF A000 - BFFF FOR RMS$_NETFAIL; ! 2048 - 4095 0800 - 0FFF C000 - FFFF FOR RMS$_SUPPORT ! --/ DECLARE LONG CONSTANT FAL$_FACILITY = 503 ! +S ! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_NETFAIL COMPLETION< r ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! M ! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHQ ! MACCODE = 4 THRU 7) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! G ! MESSAGE-CODE = (2**15 + ((MICCODE + 1024) * 8) + SEVERITY-LEVEL) ! N ! NOTE: THE FIRST THREE CHARACTERS OF THE MESSAGE IDENTIFICATION MNEMONICI ! FOR EACH MESSAGE CODE IN THIS SET INDICATES ITS ORIGIN AS FOLLOWS: ! L ! RMS --- THE C sODE IS DEFINED FOR RMS-11 OR RMS-20, BUT NOT FOR RMS-32.< ! (RMS-32 COMPLETION CODES ARE DEFINED IN RMSDEF.MDL.)> ! FCS --- THE CODE IS DEFINED FOR THE FCS-11 ENVIRONMENT.? ! TEN --- THE CODE IS DEFINED FOR THE TOPS-10 ENVIRONMENT.: ! DAP --- ORIGIN IN THE DAP SPECIFICATION IS UNKNOWN. ! -0 DECLARE LONG CONSTANT FAL$_OFFSET_A = 1024 ! MICCODE = 0000 (OCTAL)3 DECLARE LONG CONSTANT FAL$_DAPFAIL = 330055722 DECLARE LONG CONSTANT FAL$_RMSABO = 33005580 t ! MICCODE = 0011 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSAST = 330056442 DECLARE LONG CONSTANT FAL$_RMSBPA = 330056522 DECLARE LONG CONSTANT FAL$_RMSBPS = 33005660 ! MICCODE = 0026 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSCLS = 33005748 ! MICCODE = 0056 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSFID = 33005940 ! MICCODE = 0071 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSINI = 33006028 ! MICCODE = 0102 (OCTAL)2 DECLARE LONG CONSTANT FAL$ u_RMSLBL = 330061002 DECLARE LONG CONSTANT FAL$_RMSLBY = 330061082 DECLARE LONG CONSTANT FAL$_RMSLCH = 33006116 ! MICCODE = 0106 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSLOC = 330061322 DECLARE LONG CONSTANT FAL$_RMSMAP = 33006140 ! MICCODE = 0115 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSNID = 33006188 ! MICCODE = 0117 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSOPN = 33006204 ! MICCIDE = 0124 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSPRM = 3300 v6244 ! MICCODE = 0153 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSSTK = 33006428 ! MICCODE = 0162 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSVOL = 33006484 ! MICCODE = 0170 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSCAA = 33006532 ! MICCODE = 0231 (OCTAL)2 DECLARE LONG CONSTANT FAL$_RMSBLK = 330067962 DECLARE LONG CONSTANT FAL$_RMSBSZ = 330068042 DECLARE LONG CONSTANT FAL$_RMSCDR = 330068122 DECLARE LONG CONSTANT FAL$_RMSCGJ = 330068202 DE wCLARE LONG CONSTANT FAL$_RMSCOF = 330068282 DECLARE LONG CONSTANT FAL$_RMSJFN = 330068362 DECLARE LONG CONSTANT FAL$_RMSPEF = 330068442 DECLARE LONG CONSTANT FAL$_RMSTRU = 330068522 DECLARE LONG CONSTANT FAL$_RMSUDF = 330068602 DECLARE LONG CONSTANT FAL$_RMSXCL = 330068685 DECLARE LONG CONSTANT FAL$_DAPDIRFUL = 330068762 DECLARE LONG CONSTANT FAL$_FCSHWR = 330068842 DECLARE LONG CONSTANT FAL$_FCSFHE = 330068925 DECLARE LONG CONSTANT FAL$_DAPWRTEOF x = 330069002 DECLARE LONG CONSTANT FAL$_FCSONP = 330069082 DECLARE LONG CONSTANT FAL$_FCSDNA = 330069162 DECLARE LONG CONSTANT FAL$_FCSDAA = 330069242 DECLARE LONG CONSTANT FAL$_FCSDUN = 330069322 DECLARE LONG CONSTANT FAL$_FCSRSU = 330069402 DECLARE LONG CONSTANT FAL$_FCSOVR = 330069482 DECLARE LONG CONSTANT FAL$_FCSBCC = 330069562 DECLARE LONG CONSTANT FAL$_FCSNOD = 330069642 DECLARE LONG CONSTANT FAL$_FCSIFU = 330069722 DECLARE LONG CONST yANT FAL$_FCSHFU = 330069802 DECLARE LONG CONSTANT FAL$_FCSWAC = 330069882 DECLARE LONG CONSTANT FAL$_FCSCKS = 330069962 DECLARE LONG CONSTANT FAL$_FCSWAT = 330070042 DECLARE LONG CONSTANT FAL$_FCSALN = 330070122 DECLARE LONG CONSTANT FAL$_FCSBTF = 330070202 DECLARE LONG CONSTANT FAL$_FCSILL = 330070282 DECLARE LONG CONSTANT FAL$_FCS2DV = 330070362 DECLARE LONG CONSTANT FAL$_FCSFEX = 330070442 DECLARE LONG CONSTANT FAL$_FCSRNM = 330070522 DECL zARE LONG CONSTANT FAL$_FCSFOP = 330070602 DECLARE LONG CONSTANT FAL$_FCSVER = 330070682 DECLARE LONG CONSTANT FAL$_FCSEOV = 330070762 DECLARE LONG CONSTANT FAL$_FCSDAO = 330070842 DECLARE LONG CONSTANT FAL$_FCSBBE = 330070922 DECLARE LONG CONSTANT FAL$_FCSEOT = 330071002 DECLARE LONG CONSTANT FAL$_FCSNBF = 330071082 DECLARE LONG CONSTANT FAL$_FCSNBK = 330071162 DECLARE LONG CONSTANT FAL$_FCSNST = 330071242 DECLARE LONG CONSTANT FAL$_FCSULK = 330071 {322 DECLARE LONG CONSTANT FAL$_FCSNLN = 330071402 DECLARE LONG CONSTANT FAL$_FCSSRE = 33007148 ! MICCODE = 0311 (OCTAL)5 DECLARE LONG CONSTANT FAL$_DAPQUOEXC = 33007180 ! MICCODE = 0346 (OCTAL)5 DECLARE LONG CONSTANT FAL$_DAPDIRCAF = 330074125 DECLARE LONG CONSTANT FAL$_DAPDIRCRA = 330074205 DECLARE LONG CONSTANT FAL$_DAPDIRPRO = 330074285 DECLARE LONG CONSTANT FAL$_DAPDIRPRA = 330074365 DECLARE LONG CONSTANT FAL$_DAPDIRNFA = 33007444 |5 DECLARE LONG CONSTANT FAL$_DAPDIRCON = 33007452 ! MICCODE = 0416 (OCTAL)5 DECLARE LONG CONSTANT FAL$_TENFILMOD = 330077324 DECLARE LONG CONSTANT FAL$_TENDEVNA = 330077404 DECLARE LONG CONSTANT FAL$_TENDEVNF = 330077485 DECLARE LONG CONSTANT FAL$_TENPARALL = 330077565 DECLARE LONG CONSTANT FAL$_TENBNFREE = 330077643 DECLARE LONG CONSTANT FAL$_TENCSDF = 330077723 DECLARE LONG CONSTANT FAL$_TENCDDF = 330077804 DECLARE LONG CONSTANT FAL$ }_TENSFDNF = 330077882 DECLARE LONG CONSTANT FAL$_TENSLE = 330077965 DECLARE LONG CONSTANT FAL$_TENSFDCNT = 330078044 DECLARE LONG CONSTANT FAL$_TENNCESL = 330078125 DECLARE LONG CONSTANT FAL$_TENCUPFIL = 330078205 DECLARE LONG CONSTANT FAL$_TENNETCAP = 330078284 DECLARE LONG CONSTANT FAL$_TENTSKNA = 330078364 DECLARE LONG CONSTANT FAL$_TENNODNF = 330078445 DECLARE LONG CONSTANT FAL$_TENSFDREN = 330078525 DECLARE LONG CONSTANT FAL$_TENCDFNDR = 3 ~30078605 DECLARE LONG CONSTANT FAL$_TENJCREAD = 330078685 DECLARE LONG CONSTANT FAL$_TENRENSFD = 330078765 DECLARE LONG CONSTANT FAL$_TENDEVDWN = 330078845 DECLARE LONG CONSTANT FAL$_TENDEVRES = 330078925 DECLARE LONG CONSTANT FAL$_TENDEVMDA = 330079005 DECLARE LONG CONSTANT FAL$_TENDEVALL = 330079084 DECLARE LONG CONSTANT FAL$_TENILLDM = 330079165 DECLARE LONG CONSTANT FAL$_TENLPTPAG = 330079245 DECLARE LONG CONSTANT FAL$_TENLPTVFU = 33007 9325 DECLARE LONG CONSTANT FAL$_TENLPTCHR = 330079405 DECLARE LONG CONSTANT FAL$_TENLPTRAM = 330079485 DECLARE LONG CONSTANT FAL$_TENFILSPC = 33007956 ! MICCODE = 0453 (OCTAL)4 DECLARE LONG CONSTANT FAL$_TENNSNOD = 330079644 DECLARE LONG CONSTANT FAL$_TENANODI = 330079724 DECLARE LONG CONSTANT FAL$_TENSNODI = 330079804 DECLARE LONG CONSTANT FAL$_TENNSDEV = 330079884 DECLARE LONG CONSTANT FAL$_TENADEVI = 330079964 DECLARE LONG CONSTANT FA L$_TENSDEVI = 330080044 DECLARE LONG CONSTANT FAL$_TENNSDIR = 330080124 DECLARE LONG CONSTANT FAL$_TENADIRI = 330080204 DECLARE LONG CONSTANT FAL$_TENSDIRI = 330080284 DECLARE LONG CONSTANT FAL$_TENNSFIL = 330080364 DECLARE LONG CONSTANT FAL$_TENAFILI = 330080444 DECLARE LONG CONSTANT FAL$_TENSFILI = 330080524 DECLARE LONG CONSTANT FAL$_TENAFILR = 330080604 DECLARE LONG CONSTANT FAL$_TENSFILR = 33008068 ! MICCODE = 475 (OCTAL)5 DECLARE LONG C ONSTANT FAL$_DTFFALSHT = 330081084 DECLARE LONG CONSTANT FAL$_DTFNOFIL = 330081164 DECLARE LONG CONSTANT FAL$_DTFNOREC = 330081245 DECLARE LONG CONSTANT FAL$_DTFNOTREG = 330081325 DECLARE LONG CONSTANT FAL$_DTFOPRABO = 33008140 ! MICCODE = 504 (OCTAL)4 DECLARE LONG CONSTANT FAL$_DTFRDCKP = 33008164 ! +S ! DEFINE FAL STATUS CODES THAT ARE ASSOCIATED WITH THE RMS$_SUPPORT COMPLETION< ! CODE AND RETURNED IN THE STV FIELD OF THE FAB OR RAB. ! M  ! USE THE FOLLOWING FORMULA TO MAP A DAP STATUS CODE (STSCODE FIELD WITHJ ! MACCODE = 2) INTO A CORRESPONDING FAL MESSAGE CODE (LOWER 16 BITS): ! G ! MESSAGE-CODE = (2**15 + ((MICCODE + 2048) * 8) + SEVERITY-LEVEL) ! R ! NOTE: THE INTENT IN THIS SECTION IS TO DEFINE FAL STATUS CODES ONLY FOR DAPK ! FIELDS THAT CORRESPOND DIRECTLY TO RMS CONTROL BLOCK FIELDS USED FORL ! INPUT. FOR OTHER DAP FIELDS THAT MAY BE REJECTED BY THE REMOTE FAL ASM ! BEING UNSUPPO RTED, THE RMS$_SUP COMPLETION CODE IS RETURNED IN THE STSL ! FIELD OF THE FAB OR RAB WITH AN ASSOCIATED DAP CODE IN THE STV FIELD. ! -0 DECLARE LONG CONSTANT FAL$_OFFSET_B = 2048 ! MICCODE = 0222 (OCTAL)/ DECLARE LONG CONSTANT FAL$_ORG = 33014932/ DECLARE LONG CONSTANT FAL$_RFM = 33014940/ DECLARE LONG CONSTANT FAL$_RAT = 33014948/ DECLARE LONG CONSTANT FAL$_BLS = 33014956/ DECLARE LONG CONSTANT FAL$_MRS = 330149640 DECLARE LONG CONSTAN T FAL$_ALQ1 = 33014972/ DECLARE LONG CONSTANT FAL$_BKS = 33014980/ DECLARE LONG CONSTANT FAL$_FSZ = 33014988/ DECLARE LONG CONSTANT FAL$_MRN = 33014996 ! MICCODE = 0234 (OCTAL)0 DECLARE LONG CONSTANT FAL$_DEQ1 = 330150120 DECLARE LONG CONSTANT FAL$_FOP1 = 33015020 ! MICCODE = 0241 (OCTAL)/ DECLARE LONG CONSTANT FAL$_LRL = 33015052 ! MICCODE = 0320 (OCTAL)3 DECLARE LONG CONSTANT FAL$_ACCFUNC = 33015428 ! MICCODE = 0323 (OCTAL)/  DECLARE LONG CONSTANT FAL$_FAC = 33015452/ DECLARE LONG CONSTANT FAL$_SHR = 33015460 ! MICCODE = 0420 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CTLFUNC = 33015940 ! MICCODE = 0422 (OCTAL)/ DECLARE LONG CONSTANT FAL$_RAC = 33015956/ DECLARE LONG CONSTANT FAL$_KEY = 33015964/ DECLARE LONG CONSTANT FAL$_KRF = 33015972/ DECLARE LONG CONSTANT FAL$_ROP = 33015980 ! MICCODE = 0520 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CONFUNC = 33016452  ! MICCODE = 0720 (OCTAL)3 DECLARE LONG CONSTANT FAL$_CMPFUNC = 330174760 DECLARE LONG CONSTANT FAL$_FOP2 = 33017484 ! MICCODE = 1221 (OCTAL)/ DECLARE LONG CONSTANT FAL$_FLG = 33019020/ DECLARE LONG CONSTANT FAL$_DFL = 33019028/ DECLARE LONG CONSTANT FAL$_IFL = 33019036 ! MICCODE = 1225 (OCTAL)/ DECLARE LONG CONSTANT FAL$_POS = 33019052/ DECLARE LONG CONSTANT FAL$_SIZ = 33019060/ DECLARE LONG CONSTANT FAL$_REF = 33019068/ DE CLARE LONG CONSTANT FAL$_KNM = 33019076/ DECLARE LONG CONSTANT FAL$_NUL = 33019084/ DECLARE LONG CONSTANT FAL$_IAN = 33019092/ DECLARE LONG CONSTANT FAL$_LAN = 33019100/ DECLARE LONG CONSTANT FAL$_DAN = 33019108/ DECLARE LONG CONSTANT FAL$_DTP = 33019116 ! MICCODE = 1321 (OCTAL)/ DECLARE LONG CONSTANT FAL$_VOL = 33019532/ DECLARE LONG CONSTANT FAL$_ALN = 33019540/ DECLARE LONG CONSTANT FAL$_AOP = 33019548/ DECLARE LONG CONSTANT FAL$ _LOC = 33019556 ! MICCODE = 1326 (OCTAL)0 DECLARE LONG CONSTANT FAL$_ALQ2 = 33019572/ DECLARE LONG CONSTANT FAL$_AID = 33019580/ DECLARE LONG CONSTANT FAL$_BKZ = 330195880 DECLARE LONG CONSTANT FAL$_DEQ2 = 33019596 ! MICCODE = 1521 (OCTAL)/ DECLARE LONG CONSTANT FAL$_CDT = 33020556/ DECLARE LONG CONSTANT FAL$_RDT = 33020564/ DECLARE LONG CONSTANT FAL$_EDT = 33020572/ DECLARE LONG CONSTANT FAL$_RVN = 33020580 ! MICCODE = 1621 (OCTAL)1 DECLARE LONG CONSTANT FAL$_OWNER = 330210683 DECLARE LONG CONSTANT FAL$_PROTSYS = 330210763 DECLARE LONG CONSTANT FAL$_PROTOWN = 330210843 DECLARE LONG CONSTANT FAL$_PROTGRP = 330210923 DECLARE LONG CONSTANT FAL$_PROTWLD = 33021100ww`7B)PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +++++*****8 ! the fields thru ctx must not be modified due to( ! commonality between fab/rab/xab< DECLARE LONG CONSTANT FAB$C_BID = 3 ! code for fab 7 DECLARE LONG CONSTANT FAB$M_PPF_RAT = x'00003FC0'7 DECLARE LONG CONSTANT FAB$M_PPF_IND = x'00004000'5 DECLARE LONG CONSTANT FAB$M_PPIFI = x'00008000'3 DECLARE LONG CONSTANT FAB$M_ASY = x'00000001'3 DECLARE LONG CONSTANT FAB$M_MXV = x'00000002'3 DECLARE LONG CONSTANT FAB$M_SUP = x'00000004'3 DECLARE LONG CONSTANT FAB$M_TMP = x'00000008'3 DECLARE LONG CONSTANT FAB$M_TMD = x'00000010'3 DECLARE LONG CONSTANT FAB$M_DFW = x'00000020'3 DECLARE LONG CONSTANT FAB$M_SQO = x'00000040'3 DECLARE LONG CONSTANT FAB$M_RWO = x'00000080'3 DECLARE LONG CONSTANT FAB$M_POS = x'00000100'3 DECLARE LONG CONSTANT FAB$M_WCK = x'00000200'3 DECLARE LONG CONSTANT FAB$M_NEF = x'00000400'3 DECLARE LONG CONSTANT FAB$M_RWC = x'00000800'3 DECLARE LONG CONSTANT FAB$M_DMO = x'00001000'3 DECLARE LONG CONSTANT FAB$M_SPL = x'00002000'3 DECLARE LONG CONSTANT FAB$M_SCF = x'00004000'3 DECLARE LONG CONSTANT FAB$M_DLT = x'00008000'3  DECLARE LONG CONSTANT FAB$M_NFS = x'00010000'3 DECLARE LONG CONSTANT FAB$M_UFO = x'00020000'3 DECLARE LONG CONSTANT FAB$M_PPF = x'00040000'3 DECLARE LONG CONSTANT FAB$M_INP = x'00080000'3 DECLARE LONG CONSTANT FAB$M_CTG = x'00100000'3 DECLARE LONG CONSTANT FAB$M_CBT = x'00200000'7 DECLARE LONG CONSTANT FAB$M_SYNCSTS = x'00400000'3 DECLARE LONG CONSTANT FAB$M_RCK = x'00800000'3 DECLARE LONG CONSTANT FAB$M_NAM = x'01000000'3 DECLARE LONG C ONSTANT FAB$M_CIF = x'02000000'3 DECLARE LONG CONSTANT FAB$M_ESC = x'08000000'3 DECLARE LONG CONSTANT FAB$M_TEF = x'10000000'3 DECLARE LONG CONSTANT FAB$M_OFP = x'20000000'3 DECLARE LONG CONSTANT FAB$M_KFO = x'40000000'3 DECLARE LONG CONSTANT FAB$M_PUT = x'00000001'3 DECLARE LONG CONSTANT FAB$M_GET = x'00000002'3 DECLARE LONG CONSTANT FAB$M_DEL = x'00000004'3 DECLARE LONG CONSTANT FAB$M_UPD = x'00000008'3 DECLARE LONG CONSTANT FAB$M_TRN = x'00000010'3 DECLARE LONG CONSTANT FAB$M_BIO = x'00000020'3 DECLARE LONG CONSTANT FAB$M_BRO = x'00000040'3 DECLARE LONG CONSTANT FAB$M_EXE = x'00000080'6 DECLARE LONG CONSTANT FAB$M_SHRPUT = x'00000001'6 DECLARE LONG CONSTANT FAB$M_SHRGET = x'00000002'6 DECLARE LONG CONSTANT FAB$M_SHRDEL = x'00000004'6 DECLARE LONG CONSTANT FAB$M_SHRUPD = x'00000008'3 DECLARE LONG CONSTANT FAB$M_MSE = x'00000010'3 DECLARE LONG CONSTANT FAB$M_NIL = x'00000020' 3 DECLARE LONG CONSTANT FAB$M_UPI = x'00000040'3 DECLARE LONG CONSTANT FAB$M_NQL = x'00000080'3 DECLARE LONG CONSTANT FAB$M_ORG = x'000000F0': DECLARE LONG CONSTANT FAB$C_SEQ = 0 ! sequential 8 DECLARE LONG CONSTANT FAB$C_REL = 16 ! relative 7 DECLARE LONG CONSTANT FAB$C_IDX = 32 ! indexed 6 DECLARE LONG CONSTANT FAB$C_HSH = 48 ! hashed 3 DECLARE LONG CONSTANT FAB$M_FTN = x'00000001'2 DECLARE LONG CONSTANT FAB$M_CR = x'00000002'3  DECLARE LONG CONSTANT FAB$M_PRN = x'00000004'3 DECLARE LONG CONSTANT FAB$M_BLK = x'00000008'3 DECLARE LONG CONSTANT FAB$M_MSB = x'00000010'F DECLARE LONG CONSTANT FAB$C_RFM_DFLT = 2 ! var len is default Q DECLARE LONG CONSTANT FAB$C_UDF = 0 ! undefined ( also stream binary ) D DECLARE LONG CONSTANT FAB$C_FIX = 1 ! fixed length records G DECLARE LONG CONSTANT FAB$C_VAR = 2 ! variable length records F DECLARE LONG CONSTANT FAB$C_VFC = 3 ! variable fixed control ` DECLARE LONG CONSTANT FAB$C_STM = 4 ! RMS-11 stream ( valid only for sequential org ) ] DECLARE LONG CONSTANT FAB$C_STMLF = 5 ! LF stream ( valid only for sequential org ) ] DECLARE LONG CONSTANT FAB$C_STMCR = 6 ! CR stream ( valid only for sequential org ) G DECLARE LONG CONSTANT FAB$C_MAXRFM = 6 ! maximum rfm supported 7 DECLARE LONG CONSTANT FAB$M_ONLY_RU = x'00000001'2 DECLARE LONG CONSTANT FAB$M_RU = x'00000002'2 DE CLARE LONG CONSTANT FAB$M_BI = x'00000004'2 DECLARE LONG CONSTANT FAB$M_AI = x'00000008'2 DECLARE LONG CONSTANT FAB$M_AT = x'00000010'8 DECLARE LONG CONSTANT FAB$M_NEVER_RU = x'00000020'< DECLARE LONG CONSTANT FAB$M_JOURNAL_FILE = x'00000040'6 DECLARE LONG CONSTANT FAB$M_RCF_RU = x'00000001'6 DECLARE LONG CONSTANT FAB$M_RCF_AI = x'00000002'6 DECLARE LONG CONSTANT FAB$M_RCF_BI = x'00000004'= DECLARE LONG CONSTANT FAB$K_BLN = 80 ! length of fab = DECLARE LONG CONSTANT FAB$C_BLN = 80 ! length of fab - DECLARE LONG CONSTANT FAB$S_FABDEF = 80 record FABDEF8 BYTE FAB$B_BID ! block id 9 BYTE FAB$B_BLN ! block len group FAB$R_IFI_OVERLAY variant caseC WORD FAB$W_IFI ! internal file index  case& group FAB$R_IFI_BITS' ! move to bit 6 ?  ! rat value for process-permanent files B ! indirect access to process-permanent file$ ! (i.e., restricted operations)8 ! indicates that this is PPF fileo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through PPIFI* end group FAB$R_IFI_BITS end variant$ end group FAB$R_IFI_OVERLAY group FAB$R_FOP_OVERLAY variant  case< LONG FAB$L_FOP ! file options  case& group FAB$R_FOP_BITS0 ! asynchronous operations1 ! maximize version number 1 ! supersede existing file / ! create temporary file < ! create temp file marked for delete 6 ! deferred write (rel and idx) 0 ! sequential access o nly + ! rewind mt on open 3 ! use next magtape position ( ! write checking 9 ! inhibit end of file positioning , ! rewind mt on close @ ! dismount mt on close (not implemented) - ! spool file on close 6 ! submit command file on close + ! delete sub-option 7 ! non-file st ructured operation < ! user file open - no rms operations > ! process permanent file (pio segment) ; ! process-permanent file is 'input' . ! contiguous extension - ! contiguous best try S ! Synchronous status notification for asynchronous routines.' ! read checking M ! use name block dvi, did, and/or fid fields for open 0 ! create if non-existent 4 ! reserved (was UFM bitfield)E ! 'escape' to non-standard function ($modify) W ! truncate at eof on close (write-accessed seq. disk file only) C ! output file parse (only name type sticky) J ! known file open (image activator only release 1) 4 ! reserved (not implemented) g LONG ASY_bi ts ! COMMENT ADDED BY SDL - ASY_bits contains bits ASY through FILL_4* end group FAB$R_FOP_BITS end variant$ end group FAB$R_FOP_OVERLAY6 LONG FAB$L_STS ! status < LONG FAB$L_STV ! status value C LONG FAB$L_ALQ ! allocation quantity K WORD FAB$W_DEQ ! default allocation quantity group FAB$R_FAC_OVERLAY variant  case; BYTE FAB$B_FAC ! file access  case& group FAB$R_FAC_BITS$ ! put access $ ! get access ' ! delete access ' ! update access ) ! truncate access * ! block i/o access 5 ! block and record i/o access M ! execute access (caller must be exec or kernel mode,  ! ufo must also be set)d BYTE PUT_bits ! COMMENT ADDED BY SDL - PUT_bits contains bits PUT through EXE* end group FAB$R_FAC_BITS end variant$ end group FAB$R_FAC_OVERLAY group FAB$R_SHR_OVERLAY variant case< BYTE FAB$B_SHR ! file sharing  case& group FAB$R_SHR_BITS$ ! put access $  ! get access ' ! delete access ' ! update access 7 ! multi-stream connects enabled $ ! no sharing E ! user provided interlocking (allows multiple  ! writers to seq. files)6 ! no query locking (file level); ! *** "noop" -- not implemented on VAX (see X-16) ***m BYTE SHRPUT_bits ! COMMENT ADDED BY SDL - SHR PUT_bits contains bits SHRPUT through NQL* end group FAB$R_SHR_BITS end variant$ end group FAB$R_SHR_OVERLAY< LONG FAB$L_CTX ! user context  ! -----*****E BYTE FAB$B_RTV ! retrieval window size group FAB$R_ORG_OVERLAY variant caseA BYTE FAB$B_ORG ! file organization  case& group FAB$R_ORG_ BITSm BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through ORG* end group FAB$R_ORG_BITS end variant$ end group FAB$R_ORG_OVERLAY group FAB$R_RAT_OVERLAY variant case= BYTE FAB$B_RAT ! record format  case& group FAB$R_RAT_BITS. ! fortran carriage-ctl 3 ! lf- record-cr carriage ctl 1 ! print-file carriage ctl > ! records don't cross block boundaries 1 ! MSB formatted byte countg BYTE FTN_bits ! COMMENT ADDED BY SDL - FTN_bits contains bits FTN through fill_0* end group FAB$R_RAT_BITS end variant$ end group FAB$R_RAT_OVERLAY= BYTE FAB$B_RFM ! record format $ group FAB$R_JOURNAL_OVERL AY variant caseY BYTE FAB$B_JOURNAL ! journaling options ( from FH2$B_JOURNAL ) caseV group FAB$R_JOURNAL_BITS ! note: only one of RU, ONLY_RU, NEVER_RU ! may be set at a timeB ! file is accessible only in recovery unit 6 ! enable recovery unit journal 5 ! enable before image journal 4 ! enable after image jo urnal 4 ! enable audit trail journal B ! file is never accessible in recovery unit/ ! this is a journal files BYTE ONLY_RU_bits ! COMMENT ADDED BY SDL - ONLY_RU_bits contains bits ONLY_RU through fill_1. end group FAB$R_JOURNAL_BITS end variant( end group FAB$R_JOURNAL_OVERLAYM BYTE FAB$B_RU_FACILITY ! recoverable facility id number9 WORD FABDEF$$_FILL_7 ! ( spare ); LONG FAB$L_XAB ! xab address A LONG FAB$L_NAM ! nam block address H LONG FAB$L_FNA ! file name string address M LONG FAB$L_DNA ! default file name string addr E BYTE FAB$B_FNS ! file name string size H BYTE FAB$B_DNS ! default name string size C WORD FAB$W_MRS  ! maximum record size E LONG FAB$L_MRN ! maximum record number B WORD FAB$W_BLS ! blocksize for tape ; BYTE FAB$B_BKS ! bucket size A BYTE FAB$B_FSZ ! fixed header size F LONG FAB$L_DEV ! device characteristics O LONG FAB$L_SDC ! spooling device characteristics C WORD FAB$W_GBC  ! Global buffer count $ group FAB$R_ACMODES_OVERLAY variant caseA BYTE FAB$B_ACMODES ! agent access modes case* group FAB$R_ACMODES_BITS, ! ACMODE for log nams+ ! ACMODE for channelI ! ACMODE to use for determining file accessibility; ! ACMODE for user structure probing;+ ! maximized with actual m ode of caller| BYTE LNM_MODE_bits ! COMMENT ADDED BY SDL - LNM_MODE_bits contains bits LNM_MODE through CALLERS_MODE. end group FAB$R_ACMODES_BITS end variant( end group FAB$R_ACMODES_OVERLAYE group FAB$R_RCF_OVERLAY ! recovery control flags variant caseP BYTE FAB$B_RCF ! ( only for use by RMS Recovery ) case& group FAB$ R_RCF_BITS/ ! recovery unit recovery- ! after image recovery. ! before image recoveryp BYTE RCF_RU_bits ! COMMENT ADDED BY SDL - RCF_RU_bits contains bits RCF_RU through fill_2* end group FAB$R_RCF_BITS end variant$ end group FAB$R_RCF_OVERLAY: LONG FABDEF$$_FILL_9 ! ( spare )  end record FABDEF  ww)PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 4 ! record access block (rab) definitions ! - ! there is one rab per connected stream: ! it is used for all communications between the user3 ! and rms concerning ope rations on the stream !  ! +++++*****@ ! the fields thru ctx cannot be changed due to commonality ! with the fab ! < DECLARE LONG CONSTANT RAB$C_BID = 1 ! code for rab 7 DECLARE LONG CONSTANT RAB$M_PPF_RAT = x'00003FC0'7 DECLARE LONG CONSTANT RAB$M_PPF_IND = x'00004000'5 DECLARE LONG CONSTANT RAB$M_PPISI = x'00008000'3 DECLARE LONG CONSTANT RAB$M_ASY = x'00000001'3 DECLARE LONG CONSTANT RAB$M_TPT = x'00000002'3 DECLARE LONG  CONSTANT RAB$M_REA = x'00000004'3 DECLARE LONG CONSTANT RAB$M_RRL = x'00000008'3 DECLARE LONG CONSTANT RAB$M_UIF = x'00000010'3 DECLARE LONG CONSTANT RAB$M_MAS = x'00000020'3 DECLARE LONG CONSTANT RAB$M_FDL = x'00000040'3 DECLARE LONG CONSTANT RAB$M_REV = x'00000080'3 DECLARE LONG CONSTANT RAB$M_EOF = x'00000100'3 DECLARE LONG CONSTANT RAB$M_RAH = x'00000200'3 DECLARE LONG CONSTANT RAB$M_WBH = x'00000400'3 DECLARE LONG CONSTANT RAB$M_BIO = x'00000800'3 DECLARE LONG CONSTANT RAB$M_CDK = x'00001000'3 DECLARE LONG CONSTANT RAB$M_LOA = x'00002000'3 DECLARE LONG CONSTANT RAB$M_LIM = x'00004000'7 DECLARE LONG CONSTANT RAB$M_SYNCSTS = x'00008000'3 DECLARE LONG CONSTANT RAB$M_LOC = x'00010000'3 DECLARE LONG CONSTANT RAB$M_WAT = x'00020000'3 DECLARE LONG CONSTANT RAB$M_ULK = x'00040000'3 DECLARE LONG CONSTANT RAB$M_RLK = x'00080000'3 DECLARE LONG CONSTANT RAB$M_NLK = x'00100000'3  DECLARE LONG CONSTANT RAB$M_KGE = x'00200000'3 DECLARE LONG CONSTANT RAB$M_KGT = x'00400000'3 DECLARE LONG CONSTANT RAB$M_NXR = x'00800000'3 DECLARE LONG CONSTANT RAB$M_RNE = x'01000000'3 DECLARE LONG CONSTANT RAB$M_TMO = x'02000000'3 DECLARE LONG CONSTANT RAB$M_CVT = x'04000000'3 DECLARE LONG CONSTANT RAB$M_RNF = x'08000000'3 DECLARE LONG CONSTANT RAB$M_ETO = x'10000000'3 DECLARE LONG CONSTANT RAB$M_PTA = x'20000000'3 DECLARE LONG C ONSTANT RAB$M_PMT = x'40000000'3 DECLARE LONG CONSTANT RAB$M_CCO = x'80000000'5 DECLARE LONG CONSTANT RAB$M_EQNXT = x'00200000'3 DECLARE LONG CONSTANT RAB$M_NXT = x'00400000'3 DECLARE LONG CONSTANT RAB$M_NQL = x'00000001'8 DECLARE LONG CONSTANT RAB$M_NODLCKWT = x'00000002'9 DECLARE LONG CONSTANT RAB$M_NODLCKBLK = x'00000004'A DECLARE LONG CONSTANT RAB$C_SEQ = 0 ! sequential access < DECLARE LONG CONSTANT RAB$C_KEY = 1 ! keyed access : DECLARE LONG CONSTANT RAB$C_RFA = 2 ! rfa access ` DECLARE LONG CONSTANT RAB$C_STM = 3 ! stream access ( valid only for sequential org ) ] DECLARE LONG CONSTANT RAB$C_MAXRAC = 2 ! Maximum RAC value currently supported by RMS= DECLARE LONG CONSTANT RAB$K_BLN = 68 ! length of rab = DECLARE LONG CONSTANT RAB$C_BLN = 68 ! length of rab - DECLARE LONG CONSTANT RAB$S_RABDEF = 68 record RABDEF8 BYTE RAB$B_BID ! block id <  BYTE RAB$B_BLN ! block length group RAB$R_ISI_OVERLAY variant caseE WORD RAB$W_ISI ! internal stream index  ! (ifi in fab) case& group RAB$R_ISI_BITS' ! move to bit 6 ? ! rat value for process-permanent files C ! indirect access to process-permanent file $ ! (i.e., restricted operation s)H ! indicates that this is process-permanent streamo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through PPISI* end group RAB$R_ISI_BITS end variant$ end group RAB$R_ISI_OVERLAY group RAB$R_ROP_OVERLAY variant case> LONG RAB$L_ROP ! record options  case' group RAB$R_ROP_BITS01  ! asynchronous operations D ! truncate put - allow sequential put not at 2 ! eof, thus truncating file (seq. org only) ! 4 ! these next two should be in the byte for bits9 ! input to $find or $get, but there is no room there ! H ! lock record for read only, allow other readers 8 ! read record regardless of lock  ! , ! update if existent *  ! mass-insert mode . ! fast record deletion K ! reverse-search - can only be set with NXT or EQNXT ! ( ! connect to eof $ ! read ahead & ! write behind . ! connect for bio only 9 ! check for duplicate keys on $GET4 ! use bucket fill percentage U ! compare for key limit reached on $get /$find seq. (idx only) S ! Synchronous status notification for asynchronous routines. ! & ! the following bits are input to2 ! $find or $get, (see above also REA and RRL) ! (separate byte) ! ) ! use locate mode 6 ! wait if record not available * ! manual unlocking > ! allow readers for this locked record , ! do not lock record $  ! key > or = * ! key greater than 1 ! get non-existent record  ! 7 ! the following bits are terminal qualifiers only ! (separate byte) ! & ! read no echo - ! use time-out period / ! convert to upper case ( ! read no filter 4 ! extended terminal operation* ! purge type ahead +  ! use prompt buffer 4 ! cancel control o on output d LONG ASY_bits ! COMMENT ADDED BY SDL - ASY_bits contains bits ASY through CCO+ end group RAB$R_ROP_BITS0 case' group RAB$R_ROP_BITS1- ! Synonyms for KGE and ! KGTp LONG FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through fill_3+  end group RAB$R_ROP_BITS1 ! ! the following bits may be# ! input to various rab-related ! operations !  case( group RAB$R_ROP_FIELDS) BYTE RABDEF$$_FILL_3? BYTE RAB$B_ROP1 ! various options _ BYTE RAB$B_ROP2 ! get/find options (use of this field discouraged 4 ! due to REA and RRL being in a different byte)E BYTE RAB$B_ROP3 ! terminal read options  ! , end group RAB$R_ROP_FIELDS end variant$ end group RAB$R_ROP_OVERLAY6 LONG RAB$L_STS ! status group RAB$R_STV_OVERLAY variant case< LONG RAB$L_STV ! status value  case( group RAB$R_STV_FIELDS? WORD RAB$W_STV0 ! low word of stv @  WORD RAB$W_STV2 ! high word of stv , end group RAB$R_STV_FIELDS end variant$ end group RAB$R_STV_OVERLAY group RAB$R_RFA_OVERLAY variant caseH WORD RAB$W_RFA ( 1 to 3 ) ! record's file address  case( group RAB$R_RFA_FIELDS$ LONG RAB$L_RFA0$ WORD RAB$W_RFA4, end group RAB$R_RFA_FIELDS  end variant$ end group RAB$R_RFA_OVERLAYZ WORD RABDEF$$_FILL_4 ! (reserved - rms release 1 optimizes stores 7 ! to the rfa field to be a move quad, overwriting ! this reserved word)< LONG RAB$L_CTX ! user context  ! -----*****. group RAB$R_ROP_2_OVERLAY !  variant case] WORD RAB$W_ROP_2 ! extension to record options in traditional RAB  case) group RAB$R_ROP_2_BITS08 ! no query locking (record level)> ! *** "noop" - NQL not implemented on VAX (see X-16) ***) ! no deadlock wait- ! no deadlock blocking8 ! reserved for future developmentg WORD NQL_bits ! COMMENT ADDED BY SDL - NQL_bits contains bits NQL through FILL_5- end group RAB$R_ROP_2_BITS0 end va riant& end group RAB$R_ROP_2_OVERLAY= BYTE RAB$B_RAC ! record access ? BYTE RAB$B_TMO ! time-out period @ WORD RAB$W_USZ ! user buffer size B WORD RAB$W_RSZ ! record buffer size C LONG RAB$L_UBF ! user buffer address E LONG RAB$L_RBF ! record buffer address I LONG RAB$L_RHB ! record header buffer addr group RAB$R_KBF_OVERLAY variant caseB LONG RAB$L_KBF ! key buffer address  caseB LONG RAB$L_PBF ! prompt buffer addr  end variant$ end group RAB$R_KBF_OVERLAY group RAB$R_KSZ_OVERLAY variant case? BYTE RAB$B_KSZ ! key buffer size  caseB  BYTE RAB$B_PSZ ! prompt buffer size  end variant$ end group RAB$R_KSZ_OVERLAY@ BYTE RAB$B_KRF ! key of reference B BYTE RAB$B_MBF ! multi-buffer count A BYTE RAB$B_MBC ! multi-block count group RAB$R_BKT_OVERLAY variant caseM LONG RAB$L_BKT ! bucket hash code, vbn, or rrn  casea LONG RAB$L_DCT ! duplicates count on key accessed on alternate key  end variant$ end group RAB$R_BKT_OVERLAYG LONG RAB$L_FAB ! related fab for connect ; LONG RAB$L_XAB ! XAB address  end record RABDEF  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! name block field definitions ! 5 ! the nam block is used to communicate optional$ ! filename-related information ! B DECLARE LONG CONSTANT NAM$C_BID = 2 ! code for nam block c DECLARE LONG CONSTANT NAM$C_MAXRSS = 255 ! maximum resultant name string size ( network ) d DECLARE LONG CONSTANT NAM$C_MAXRSSLCL = 255 ! maximum resultant name string size ( local ) 3 DECLARE LONG CONSTANT NAM$M_PWD = x'00000001'6 DECLARE LONG CONSTANT NAM$M_FILL_1 = x'00000002'6 DECLARE LONG CONSTANT NAM$M_FILL_2 = x'00000004'6 DECLARE LONG CONSTANT NAM$M_SYNCHK = x'00000008'9 DECLARE LONG CONSTANT NAM$M_NOCONCEAL = x'00000010 '7 DECLARE LONG CONSTANT NAM$M_SLPARSE = x'00000020'8 DECLARE LONG CONSTANT NAM$M_SRCHXABS = x'00000040'] DECLARE LONG CONSTANT NAM$C_UFS = 0 ! Unknown file system for remote file access or / ! not applicable for local file access orH DECLARE LONG CONSTANT NAM$C_NO_RFS = 0 ! task-to-task operation7 DECLARE LONG CONSTANT NAM$C_RMS11 = 1 ! RMS-11 7 DECLARE LONG CONSTANT NAM$C_RMS20 = 2 ! RMS-20 7 DECLARE LONG CONSTANT NAM$C_RMS32 = 3 ! RMS-32 7 DECLARE LONG CONSTANT NAM$C_FCS11 = 4 ! FCS-11 C DECLARE LONG CONSTANT NAM$C_RT11FS = 5 ! RT-11 file system G DECLARE LONG CONSTANT NAM$C_TOPS20FS = 7 ! TOPS-20 file system G DECLARE LONG CONSTANT NAM$C_TOPS10FS = 8 ! TOPS-10 file system R DECLARE LONG CONSTANT NAM$C_RMS32S = 10 ! RMS-32 subset ( e.g., VAXELAN )A DECLARE LONG CONSTANT NAM$C_CPMFS = 11 ! CP/M file systemF DECLARE LONG CONSTANT NAM$C_MS_DOSFS = 12 ! MS/DOS file system L DECLARE LONG CONSTANT NAM$C_ULTRIX32_FS = 13 ! Ultrix-32 file systemL DECLARE LONG CONSTANT NAM$C_ULTRIX11_FS = 14 ! Ultrix-11 file systemI DECLARE LONG CONSTANT DAP$K_SNADTF_FS = 15 ! SNADTF compatable FS ! +++++++++++++++++++++++C DECLARE LONG CONSTANT NAM$C_DVI = 16 ! length of dvi field  ! +++++*****3 DECLARE LONG CONSTANT NAM$M_IFI = x'00010000'7 DECLARE LONG CONSTANT NAM$M_SRCHNMF = x'40000000'5 DECLARE LONG CONSTANT NAM$M_SVCTX = x'80000000'N DECLARE LONG CONSTANT NAM$K_BLN_V2 = 56 ! Version 2 name block length N DECLARE LONG CONSTANT NAM$C_BLN_V2 = 56 ! Version 2 name block length 7 DECLARE LONG CONSTANT NAM$M_EXP_VER = x'00000001'8 DECLARE LONG CONSTANT NAM$M_EXP_TYPE = x'00000002'8 DECLARE LONG CONSTANT NAM$M_EXP_NAME = x'00000004'8 DECLARE LONG CONSTANT NAM$M_WILD_VER = x'00000008'9 DECLARE LONG CONSTANT NAM$M_WILD_TYPE = x'00000010'9 DECLARE LONG CONSTANT NAM$M_WILD _NAME = x'00000020'7 DECLARE LONG CONSTANT NAM$M_EXP_DIR = x'00000040'7 DECLARE LONG CONSTANT NAM$M_EXP_DEV = x'00000080'8 DECLARE LONG CONSTANT NAM$M_WILDCARD = x'00000100'; DECLARE LONG CONSTANT NAM$M_SEARCH_LIST = x'00000800'8 DECLARE LONG CONSTANT NAM$M_CNCL_DEV = x'00001000'8 DECLARE LONG CONSTANT NAM$M_ROOT_DIR = x'00002000'6 DECLARE LONG CONSTANT NAM$M_LOWVER = x'00004000'7 DECLARE LONG CONSTANT NAM$M_HIGHVER = x'00008000'3 DECLARE LONG  CONSTANT NAM$M_PPF = x'00010000'4 DECLARE LONG CONSTANT NAM$M_NODE = x'00020000'6 DECLARE LONG CONSTANT NAM$M_QUOTED = x'00040000'7 DECLARE LONG CONSTANT NAM$M_GRP_MBR = x'00080000'8 DECLARE LONG CONSTANT NAM$M_WILD_DIR = x'00100000'8 DECLARE LONG CONSTANT NAM$M_DIR_LVLS = x'00E00000'8 DECLARE LONG CONSTANT NAM$M_WILD_UFD = x'01000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD1 = x'02000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD2 = x'04000000'9 DE CLARE LONG CONSTANT NAM$M_WILD_SFD3 = x'08000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD4 = x'10000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD5 = x'20000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD6 = x'40000000'9 DECLARE LONG CONSTANT NAM$M_WILD_SFD7 = x'80000000'8 DECLARE LONG CONSTANT NAM$M_WILD_GRP = x'01000000'8 DECLARE LONG CONSTANT NAM$M_WILD_MBR = x'02000000'T DECLARE LONG CONSTANT NAM$K_BLN_DIRWC = 96 ! Not documented optional length T DECLAR E LONG CONSTANT NAM$C_BLN_DIRWC = 96 ! Not documented optional length A DECLARE LONG CONSTANT NAM$K_BLN = 96 ! Name block length A DECLARE LONG CONSTANT NAM$C_BLN = 96 ! Name block length - DECLARE LONG CONSTANT NAM$S_NAMDEF = 96 record NAMDEF8 BYTE NAM$B_BID ! block id < BYTE NAM$B_BLN ! block length  ! +++++++++++++++++++++++L ! the following 3 fields must not be rearranged relative to each oth er ! J BYTE NAM$B_RSS ! resultant string area size G BYTE NAM$B_RSL ! resultant string length M LONG NAM$L_RSA ! resultant string area address  ! ----------------------- group NAM$R_NOP_OVERLAY variant case; BYTE NAM$B_NOP ! Name options case& group NAM$R_NOP_BITSN ! Retur n password if present in nodespec string and any9 ! other task-specific data of the form /netacp_data": ! (default is to mask out password from expanded and; ! resultant name strings and to create a logical name; ! whose equivalence string is the unaltered nodespec)? ! unused. (used to be undocumented ROD)? ! unused. (used to be undocumented SOD)A ! Only do syntax check on $parse operation=  ! Do not conceal device/root directoryN ! Parse search list (not documented) -- used by BACKUP.M ! Fill in attached XABS on $SEARCH operations over the6 ! network (not documented) -- used by directory.g BYTE PWD_bits ! COMMENT ADDED BY SDL - PWD_bits contains bits PWD through fill_4* end group NAM$R_NOP_BITS end variant$ end group NAM$R_NOP_OVERLAYe BYTE NAM$B_RFS  ! Remote file system type ( currently not documented ) 6 ! Note: This field is reserved for use by DigitalL ! the following 3 fields must not be rearranged relative to each other ! I BYTE NAM$B_ESS ! espanded string area size F BYTE NAM$B_ESL ! expanded string length L LONG NAM$L_ESA ! expanded string area address  ! -----------------------K LONG NAM$L_RLF  ! related file nam block addr 9 STRING NAM$T_DVI = 16 ! device id 5 ! the location of the following fields must not8 ! be changed due to their commonality with the fib group NAM$R_FID_OVERLAY variant case: WORD NAM$W_FID ( 1 to 3 ) ! file id  case( group NAM$R_FID_FIELDS; WORD NAM$W_FID_NUM ! file number ?  WORD NAM$W_FID_SEQ ! sequence number 0 group NAM$R_FID_RVN_OVERLAY variant caseI WORD NAM$W_FID_RVN ! relative volume number  case5 group NAM$R_FID_RVN_FIELDSJ BYTE NAM$B_FID_RVN ! alternate format RVN \ BYTE NAM$B_FID_NMX ! alternate format file number extension 9  end group NAM$R_FID_RVN_FIELDS# end variant4 end group NAM$R_FID_RVN_OVERLAY, end group NAM$R_FID_FIELDS end variant$ end group NAM$R_FID_OVERLAY group NAM$R_DID_OVERLAY variant case? WORD NAM$W_DID ( 1 to 3 ) ! directory id  case( group NAM$R_DID_FIELDS; WORD NAM$W_DID_NUM !  file number ? WORD NAM$W_DID_SEQ ! sequence number 0 group NAM$R_DID_RVN_OVERLAY variant caseI WORD NAM$W_DID_RVN ! relative volume number  case5 group NAM$R_DID_RVN_FIELDSJ BYTE NAM$B_DID_RVN ! alternate format RVN \ BYTE NAM$B_DID_NMX ! alternate format file number extension 9 end group NAM$R_DID_RVN_FIELDS# end variant4 end group NAM$R_DID_RVN_OVERLAY, end group NAM$R_DID_FIELDS end variant$ end group NAM$R_DID_OVERLAY group NAM$R_WCC_OVERLAY variant caseA LONG NAM$L_WCC ! wild card context  case& group NAM$R_WCC_BITSH  ! the first word is reserved for IFI/ACP context 8 ! the first word contains an IFI > ! grow from top down, start at top bit H ! no-more-files has been encountered on a search : ! save context across search calls o LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through SVCTX* end group NAM$R_WCC_BITS end variant$  end group NAM$R_WCC_OVERLAY group NAM$R_FNB_OVERLAY variant caseE LONG NAM$L_FNB ! file name status bits  case' group NAM$R_FNB_BITS0. ! version was explicit + ! type was explicit + ! name was explicit 7 ! version contained a wild card 4 ! type contained a wild card 4  ! name contained a wild card 0 ! directory was explicit - ! device was explicit > ! filename string included a wild card - ! (inclusive or of other wild card bits)" ! (spares) - ! search list present 2 ! concealed device present 0 ! root directory present D ! lower numbered version(s) of file exist (s) " ! higher "  ! F ! process-permanent file referenced indirectly D ! filename specification included a nodename @ ! filename spec included a quoted string C ! directory spec was of group-member format = ! directory spec included a wild card A ! number of directory levels (0=ufd only) u LONG EXP_VER_bits ! COM MENT ADDED BY SDL - EXP_VER_bits contains bits EXP_VER through DIR_LVLS+ end group NAM$R_FNB_BITS0 case' group NAM$R_FNB_BITS1E ! separate byte for wild card directory flags 2 ! ufd included a wild card 3 ! sfd1 included a wild card 3 ! sfd2 included a wild card 3 ! sfd3 included a wild card 3 ! sfd4 includ ed a wild card 3 ! sfd5 included a wild card 3 ! sfd6 included a wild card 3 ! sfd7 included a wild card s LONG FILL_4_bits ! COMMENT ADDED BY SDL - FILL_4_bits contains bits FILL_4 through WILD_SFD7+ end group NAM$R_FNB_BITS1 case' group NAM$R_FNB_BITS2J ! alternate definitions for wild_ufd and wild_sfd1 5 ! group contained a wild card 6 ! member contained a wild card p LONG FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through fill_5+ end group NAM$R_FNB_BITS2 ! -----*****# ! (prior to 40 byte extension) ! ( ! Extend the NAM block by 40 bytes. !  end variant$ end group NAM$R_FNB_OVERLAY? BYTE NAM$B_NODE ! Nodespec length = BYTE NAM$B_DEV ! Device length @ BYTE NAM$B_DIR ! Directory length ? BYTE NAM$B_NAME ! Filename length ? BYTE NAM$B_TYPE ! Filetype length E BYTE NAM$B_VER ! Version number length C BYTE NAMDEF$$_FILL_6 ( 1 to 2 ) ! Currently unused @ LONG NAM$L_NODE ! Nodespec address > LONG NAM$L_DEV ! D evice address A LONG NAM$L_DIR ! Directory address @ LONG NAM$L_NAME ! Filename address @ LONG NAM$L_TYPE ! Filetype address F LONG NAM$L_VER ! Version number address C LONG NAMDEF$$_FILL_7 ( 1 to 2 ) ! Currently unused  end record NAMDEF  ww*PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ' ! definitions for all xabs ! $xabdef !  !  ! C ! the first four fields are shared in common between all xabs' ! and hence are defined on ly onceL ! (the only exception is that the spare word may be used by some xabs) ! - DECLARE LONG CONSTANT XAB$S_XABDEF = 20 record XABDEF; BYTE XAB$B_COD ! xab id code < BYTE XAB$B_BLN ! block length : WORD XABDEF$$_FILL_1 ! ( spare ) > LONG XAB$L_NXT ! xab chain link , ! WITH POSSIBLE EXCEPTION OF SPARE FIELD WORD XAB$W_RVN WORD XABDEF$$_FILL_2 group XAB$R_RDT_OVERLAY variant case* BASIC$QUADWORD XAB$Q_RDT case( group XAB$R_RDT_FIELDS$ LONG XAB$L_RDT0$ LONG XAB$L_RDT4# ! COMMON AMONG DAT AND RDT XABS, end group XAB$R_RDT_FIELDS end variant$ end group XAB$R_RDT_OVERLAY end record XABDEF . DECLARE LONG CONSTANT XAB$S_XABDEF1 = 23  record XABDEF1( BYTE XABDEF$$_FILL_3 ( 1 to 8 )Q BYTE XABDEF$$_FILL_4 ! THESE FIELDS WILL BE DEFINED LATER  BYTE XABDEF$$_FILL_5 WORD XABDEF$$_FILL_6 LONG XABDEF$$_FILL_7 LONG XABDEF$$_FILL_8 WORD XABDEF$$_FILL_9I BYTE XAB$B_BKZ ! COMMON TO FHC AND ALQ XABS  end record XABDEF1 S DECLARE LONG CONSTANT XAB$C_CXT_VER1 = 1 ! RMS Context Extraction version 1 ww*PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++9 ! file header characteristics xab definitions ! $xabfhcdef !  ! +++++*****9 ! the fields of this xab cannot be rearranged since/ ! they corre spond to an on-disk structure ! > DECLARE LONG CONSTANT XAB$C_FHC = 29 ! xabfhc id code 3 DECLARE LONG CONSTANT XAB$M_FTN = x'00000001'2 DECLARE LONG CONSTANT XAB$M_CR = x'00000002'3 DECLARE LONG CONSTANT XAB$M_PRN = x'00000004'3 DECLARE LONG CONSTANT XAB$M_BLK = x'00000008'C DECLARE LONG CONSTANT XAB$K_FHCLEN = 44 ! length of xabfhc C DECLARE LONG CONSTANT XAB$C_FHCLEN = 44 ! length of xabfhc 0 DECLARE LONG CONSTANT XAB$S_XABFHCDEF = 44  record XABFHCDEF BYTE XABFHCDEF$$_FILL_1 BYTE XABFHCDEF$$_FILL_2 WORD XABFHCDEF$$_FILL_3U LONG XABFHCDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFJ BYTE XAB$B_RFO ! record format and file org  group XAB$r_fill_6 variant caseA BYTE XAB$B_ATR ! record attributes  case$ group XAB$r_fill_7. ! fortran carriage-ctl 3 ! lf-record-cr carriage ctl 1 ! print-file carriage ctl > ! records don't cross block boundaries g BYTE FTN_bits ! COMMENT ADDED BY SDL - FTN_bits contains bits FTN through fill_8( end group XAB$r_fill_7 end variant end group XAB$r_fill_6G  WORD XAB$W_LRL ! longest record's length group XAB$R_HBK_OVERLAY variant case@ LONG XAB$L_HBK ! hi vbn allocated  ! (n.b. reversed on disk?) case( group XAB$R_HBK_FIELDS$ WORD XAB$W_HBK0$ WORD XAB$W_HBK2, end group XAB$R_HBK_FIELDS end variant$ end group XAB$R_HBK_OVERLAY group XAB$R_EBK_OVERLAY variant case7 LONG XAB$L_EBK ! eof vbn  ! (n.b. reversed on disk) case( group XAB$R_EBK_FIELDS$ WORD XAB$W_EBK0$ WORD XAB$W_EBK2, end group XAB$R_EBK_FIELDS end variant$ end group XAB$R_EBK_OVERLAYL WORD XAB$W_FFB ! first free byte in eof block ^ BYTE XABFHCDEF$$_FILL_5 ! bucket size for fhc ( note: field name is bkz, 3 ! defined above in $xabdef, since it is shared ! by the all xab)C BYTE XAB$B_HSZ ! header size for vfc ? WORD XAB$W_MRZ ! max record size G WORD XAB$W_DXQ ! default extend quantity C WORD XAB$W_GBC ! global buffer count L BYTE XABFHCDEF$$_FILL_6 ( 1 to 8 ) ! spares (pad to last word) G WORD XAB$W_VERLIMIT ! version limit for file.  ! -----*****J LONG XAB$L_SBN ! starting lbn if contiguous  end record XABFHCDEF  ww@}G+PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! ( ! allocation xab definitions ! $xaballdef !  !  ! +++++*****7 ! the fields thru bkz cannot be rearranged due to" ! thei r commonality with fab> DECLARE LONG CONSTANT XAB$C_ALL = 20 ! xaball id code 3 DECLARE LONG CONSTANT XAB$M_HRD = x'00000001'3 DECLARE LONG CONSTANT XAB$M_ONC = x'00000002'3 DECLARE LONG CONSTANT XAB$M_CBT = x'00000020'3 DECLARE LONG CONSTANT XAB$M_CTG = x'00000080'C DECLARE LONG CONSTANT XAB$C_ANY = 0 ! any allocation o.k. A DECLARE LONG CONSTANT XAB$C_CYL = 1 ! cylinder boundary I DECLARE LONG CONSTANT XAB$C_LBN = 2 ! allocate at speci fied lbn K DECLARE LONG CONSTANT XAB$C_VBN = 3 ! allocate near specified vbn J DECLARE LONG CONSTANT XAB$C_RFI = 4 ! allocate near related file C DECLARE LONG CONSTANT XAB$K_ALLLEN = 32 ! length of xaball C DECLARE LONG CONSTANT XAB$C_ALLLEN = 32 ! length of xaball 0 DECLARE LONG CONSTANT XAB$S_XABALLDEF = 32 record XABALLDEF BYTE XABALLDEF$$_FILL_1 BYTE XABALLDEF$$_FILL_2 WORD XABALLDEF$$_FILL_3U LONG XABALLDEF$ $_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF group XAB$R_AOP_OVERLAY variant caseB BYTE XAB$B_AOP ! allocation options  case& group XAB$R_AOP_BITS@ ! fail if requested alignment impossible B ! locate allocated space within a cylinder "  ! (spares) : ! contiguous alllocation, best try  ! spare / ! contiguous allocation d BYTE HRD_bits ! COMMENT ADDED BY SDL - HRD_bits contains bits HRD through CTG* end group XAB$R_AOP_BITS end variant$ end group XAB$R_AOP_OVERLAY> BYTE XAB$B_ALN ! alignment type R WORD XAB$W_VOL ! relative volume no.  for allocation + ! (not applicable if aln = vbn or rfi)C LONG XAB$L_LOC ! allocation location C LONG XAB$L_ALQ ! allocation quantity K WORD XAB$W_DEQ ! default allocation quantity ^ BYTE XABALLDEF$$_FILL_7 ! bucket size for area (note: field name is bkz, = ! defined above in $xabdef,since it is shared by the fhc. ! xab and has the same offset, of course) ! -----***** > BYTE XAB$B_AID ! area id number group XAB$R_RFI_OVERLAY variant caseB WORD XAB$W_RFI ( 1 to 3 ) ! related file id  case( group XAB$R_RFI_FIELDS; WORD XAB$W_RFI0 ! file number : WORD XAB$W_RFI2 ! seq number : WORD XAB$W_RFI4 ! rev number , end group XAB$R_RFI_FIELDS  end variant$ end group XAB$R_RFI_OVERLAY: WORD XABALLDEF$$_FILL_8 ! ( spare )  end record XABALLDEF  ww+PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! ' ! date/time xab definitions ! $xabdatdef ! > DECLARE LONG CONSTANT XAB$C_DAT = 18 ! xabdat id code M DECLARE LONG CONSTANT XAB$ K_DATLEN_V2 = 36 ! Version 2 XABDAT length M DECLARE LONG CONSTANT XAB$C_DATLEN_V2 = 36 ! Version 2 XABDAT length Q DECLARE LONG CONSTANT XAB$K_DATLEN_V54 = 44 ! Version V5.4 XABDAT length1 DECLARE LONG CONSTANT XAB$C_DATLEN_V54 = 44C DECLARE LONG CONSTANT XAB$K_DATLEN = 60 ! length of XABDAT C DECLARE LONG CONSTANT XAB$C_DATLEN = 60 ! length of XABDAT 0 DECLARE LONG CONSTANT XAB$S_XABDATDEF = 60 record XABDATDEF BYTE XABDATDEF$$_FI LL_1 BYTE XABDATDEF$$_FILL_2 WORD XABDATDEF$$_FILL_3U LONG XABDATDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFf WORD XABDATDEF$$_FILL_5 ! REVISION ?,DEFINED IN $XABDEF,SINCE COMMON TO DAT ? RDT 5 WORD XABDATDEF$$_FILL_6 ! spare W BASIC$QUADWORD XABDATDEF$$_FILL_7 ! revision date ? time,defined in $xabdef  group XAB$R_CDT_OVERLAY variant caseD BASIC$QUADWORD XAB$Q_CDT ! creation date ? time  case( group XAB$R_CDT_FIELDS$ LONG XAB$L_CDT0$ LONG XAB$L_CDT4, end group XAB$R_CDT_FIELDS end variant$ end group XAB$R_CDT_OVERLAY group XAB$R_EDT_OVERLAY variant caseF BASIC$QUADWORD XAB$Q _EDT ! expiration date ? time  case( group XAB$R_EDT_FIELDS$ LONG XAB$L_EDT0$ LONG XAB$L_EDT4, end group XAB$R_EDT_FIELDS end variant$ end group XAB$R_EDT_OVERLAY group XAB$R_BDT_OVERLAY variant caseD BASIC$QUADWORD XAB$Q_BDT ! backup date and time  case( group XAB$R_BDT_FIELDS$  LONG XAB$L_BDT0$ LONG XAB$L_BDT4, end group XAB$R_BDT_FIELDS end variant$ end group XAB$R_BDT_OVERLAY group XAB$R_RCD_OVERLAY variant caseF BASIC$QUADWORD XAB$Q_RCD ! Recorded date and time  case( group XAB$R_RCD_FIELDS$ LONG XAB$L_RCD0$ LONG XAB$L_RCD4, end group XAB$R_RCD_FI ELDS end variant$ end group XAB$R_RCD_OVERLAY group XAB$R_EFF_OVERLAY variant caseG BASIC$QUADWORD XAB$Q_EFF ! Effective date and time  case( group XAB$R_EFF_FIELDS$ LONG XAB$L_EFF0$ LONG XAB$L_EFF4, end group XAB$R_EFF_FIELDS end variant$ end group XAB$R_EFF_OVERLAY end record XABDATDEF  ww +PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! 0 ! revision date/time xab definitions ! $xabrdtdef> DECLARE LONG CONSTANT XAB$C_RDT = 30 ! xabrdt id code D DECLARE LONG CONSTANT XAB$  K_RDTLEN = 20 ! length of rdt xab D DECLARE LONG CONSTANT XAB$C_RDTLEN = 20 ! length of rdt xab 0 DECLARE LONG CONSTANT XAB$S_XABRDTDEF = 20 record XABRDTDEF BYTE XABRDTDEF$$_FILL_1 BYTE XABRDTDEF$$_FILL_2 WORD XABRDTDEF$$_FILL_3U LONG XABRDTDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFf WORD XABRDTDEF$$_FILL_5 ! REVISION ?,DEFINED IN $XABDEF,SINCE COMMON TO DAT ? RDT 5 WORD XABRDTDEF$$_FILL_6 ! spare W BASIC$QUADWORD XABRDTDEF$$_FILL_7 ! revision date ? time,defined in $xabdef  end record XABRDTDEF  ww 5,PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! . ! protection xab field definitions ! $xabprodef !  ! > DECLARE LONG CONSTANT XAB$C_PRO = 19 ! xabpro id code 6 DECLARE LONG CONSTANT XAB$M_NOREAD = x'00000001'7 DECLARE LONG CONSTANT XAB$M_NOWRITE = x'00000002'5 DECLARE LONG CONSTANT XAB$M_NOEXE = x'00000004'5 DECLARE LONG CONSTANT XAB$M_NODEL = x'00000008'/ DECLARE LONG CONSTANT XAB$S_XABPRODEF = 1 record XABPRODEF variant case) group XAB$R_XABPRODEF_BITS' ! deny read access ( ! deny write access , ! deny execution access )  ! deny delete access m BYTE NOREAD_bits ! COMMENT ADDED BY SDL - NOREAD_bits contains bits NOREAD through fill_9- end group XAB$R_XABPRODEF_BITS end variant end record XABPRODEF 9 DECLARE LONG CONSTANT XAB$M_PROPAGATE = x'00000001'G DECLARE LONG CONSTANT XAB$K_PROLEN_V3 = 16 ! V3a xabpro length G DECLARE LONG CONSTANT XAB$C_PROLEN_V3 = 16 ! V3a xabpro length @ DECLARE LONG CONSTANT XAB$K_PROLEN = 88 ! xa  bpro length @ DECLARE LONG CONSTANT XAB$C_PROLEN = 88 ! xabpro length 1 DECLARE LONG CONSTANT XAB$S_XABPRODEF1 = 88 record XABPRODEF1 BYTE XABPRODEF$$_FILL_1 BYTE XABPRODEF$$_FILL_2 WORD XABPRODEF$$_FILL_3U LONG XABPRODEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF group XAB$R_PRO_OVERLAY variant c  ase? WORD XAB$W_PRO ! protection mask  case& group XAB$R_PRO_BITS ! system  ! owner  ! group  ! world d WORD SYS_bits ! COMMENT ADDED BY SDL - SYS_bits contains bits SYS through WLD* end group XAB$R_PRO_BITS end variant$ end group XAB$R_PRO_OVERLAYL BYTE XAB$B_MTACC  ! Magtape access control char. % group XAB$R_PROT_OPT_OVERLAY variant caseC BYTE XAB$B_PROT_OPT ! XABPRO options field case- group XAB$R_PROT_OPT_FIELDSL ! Propagate security attributes on $ENTER and $RENAMEz BYTE PROPAGATE_bits ! COMMENT ADDED BY SDL - PROPAGATE_bits contains bits PROPAGATE through fill_101 end group  XAB$R_PROT_OPT_FIELDS end variant) end group XAB$R_PROT_OPT_OVERLAY group XAB$R_UIC_OVERLAY variant case8 LONG XAB$L_UIC ! uic code  case( group XAB$R_UIC_FIELDS; WORD XAB$W_MBM ! member code : WORD XAB$W_GRP ! group code , end group XAB$R_UIC_FIELDS end variant$ end group  XAB$R_UIC_OVERLAYL group XAB$R_PROT_MODE_OVERLAY ! RWED/mode protection for file variant caseQ BASIC$QUADWORD XAB$Q_PROT_MODE ! eventually may be a quadword case. group XAB$R_PROT_MODE_FIELDSH BYTE XAB$B_PROT_MODE ! but currently only a byte2 end group XAB$R_PROT_MODE_FIELDS end variant* end group XAB$R_PROT_MODE_OVERLAYK LONG  XAB$L_ACLBUF ! address of user's ACL bufferH WORD XAB$W_ACLSIZ ! size of user's ACL bufferJ WORD XAB$W_ACLLEN ! return length of entire ACL@ LONG XAB$L_ACLCTX ! ACL context fieldD LONG XAB$L_ACLSTS ! ACL return err status4 LONG XABPRODEF$$_FILL_10 ! spare4 LONG XABPRODEF$$_FILL_11 ! spare4 LONG XABPRODEF$$_FILL_12 ! s  pare4 LONG XABPRODEF$$_FILL_13 ! spare4 LONG XABPRODEF$$_FILL_14 ! spare4 LONG XABPRODEF$$_FILL_15 ! spare4 LONG XABPRODEF$$_FILL_16 ! spare4 LONG XABPRODEF$$_FILL_17 ! spare4 LONG XABPRODEF$$_FILL_18 ! spare4 LONG XABPRODEF$$_FILL_19 ! spare4 LONG XABPRODEF$$_FILL_20 ! spare4 LONG XABPRODEF$$_FILL_21 ! spare end record XABPRODEF1  ww APV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDY% %LET %BASIC$QUADWORD_DECLARED = 1S %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )Y END RECORDA% %LET %BASIC$OCTAWORD_DECLARED = 1N %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI 0z,PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! 4 ! terminal control xab field definitions ! $xabtrmdef !  !  ! = DECLARE LONG CONSTANT XAB$C_TRM = 31 ! XABTRM ID CODE Y  DECLARE LONG CONSTANT XAB$K_TRMLEN = 36 ! length of xab of type terminal control Y DECLARE LONG CONSTANT XAB$C_TRMLEN = 36 ! length of xab of type terminal control 0 DECLARE LONG CONSTANT XAB$S_XABTRMDEF = 36 record XABTRMDEF BYTE XABTRMDEF$$_FILL_1 BYTE XABTRMDEF$$_FILL_2 WORD XABTRMDEF$$_FILL_3U LONG XABTRMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE B  EEN DEFINED BY $XABDEF@ LONG XAB$L_ITMLST ! item list address? WORD XAB$W_ITMLST_LEN ! item list length4 WORD XABTRMDEF$$_FILL_5 ! spare4 LONG XABTRMDEF$$_FILL_6 ! spare4 LONG XABTRMDEF$$_FILL_7 ! spare4 LONG XABTRMDEF$$_FILL_8 ! spare4 LONG XABTRMDEF$$_FILL_9 ! spare4 LONG XABTRMDEF$$_FILL_10 ! spare end record XABTRMDEF  ww ͻ,PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! + ! summary xab field definitions ! $xabsumdef !  ! > DECLARE LONG CONSTANT XAB$C_SUM = 22 ! xabsum id code @ DECLARE LONG C ! ONSTANT XAB$K_SUMLEN = 12 ! xabsum length @ DECLARE LONG CONSTANT XAB$C_SUMLEN = 12 ! xabsum length 0 DECLARE LONG CONSTANT XAB$S_XABSUMDEF = 12 record XABSUMDEF BYTE XABSUMDEF$$_FILL_1 BYTE XABSUMDEF$$_FILL_2 WORD XABSUMDEF$$_FILL_3U LONG XABSUMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFV BYTE XAB$B_NOA ! number of defined areas for index file U BYTE XAB$B_NOK ! number of defined keys for index file e WORD XAB$W_PVN ! prologue version number ( relative and index files )  end record XABSUMDEF  ww# K1-PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI$ NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET% %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! -- ! ++ ! 2 ! key definition xab field definitions ! $xabkeydef !  ! > DECLARE LONG CONSTANT XAB$C_KEY = 21 ! xabkey id code 3 DECLARE & LONG CONSTANT XAB$M_DUP = x'00000001'3 DECLARE LONG CONSTANT XAB$M_CHG = x'00000002'3 DECLARE LONG CONSTANT XAB$M_NUL = x'00000004'9 DECLARE LONG CONSTANT XAB$M_IDX_NCMPR = x'00000008'9 DECLARE LONG CONSTANT XAB$M_KEY_NCMPR = x'00000040'9 DECLARE LONG CONSTANT XAB$M_DAT_NCMPR = x'00000080'6 DECLARE LONG CONSTANT XAB$C_STG = 0 ! string R DECLARE LONG CONSTANT XAB$C_IN2 = 1 ! signed 15 bit integer ( 2 bytes ) = DECLARE LONG CONSTANT XAB$C_BN2 ' = 2 ! 2 byte binary R DECLARE LONG CONSTANT XAB$C_IN4 = 3 ! signed 31 bit integer ( 4 bytes ) = DECLARE LONG CONSTANT XAB$C_BN4 = 4 ! 4 byte binary N DECLARE LONG CONSTANT XAB$C_PAC = 5 ! packed decimal ( 1-16 bytes ) R DECLARE LONG CONSTANT XAB$C_IN8 = 6 ! signed 63 bit integer ( 4 bytes ) = DECLARE LONG CONSTANT XAB$C_BN8 = 7 ! 8 byte binary 7 DECLARE LONG CONSTANT XAB$C_COL = 8 ! collatedK DECLARE LONG CONSTANT XAB$C_MAX_ASCEND =( 8 ! maximum ascending typeA DECLARE LONG CONSTANT XAB$C_DSTG = 32 ! descending stringF DECLARE LONG CONSTANT XAB$C_DIN2 = 33 ! " signed wordH DECLARE LONG CONSTANT XAB$C_DBN2 = 34 ! " unsigned wordJ DECLARE LONG CONSTANT XAB$C_DIN4 = 35 ! " signed longwordL DECLARE LONG CONSTANT XAB$C_DBN4 = 36 ! " unsigned longwordI DECLARE LONG CONSTANT XAB$C_DPAC = 37 ! " packed decimalJ DECLARE LONG CONSTANT XA ) B$C_DIN8 = 38 ! " signed quadwordL DECLARE LONG CONSTANT XAB$C_DBN8 = 39 ! " unsigned quadwordC DECLARE LONG CONSTANT XAB$C_DCOL = 40 ! " collatedG DECLARE LONG CONSTANT XAB$C_MAXDTP = 40 ! max. legal data type G DECLARE LONG CONSTANT XAB$K_KEYLEN_V2 = 64 ! old xabkey length G DECLARE LONG CONSTANT XAB$C_KEYLEN_V2 = 64 ! old xabkey length  ! F DECLARE LONG CONSTANT XAB$C_PRG3 = 3 ! Prologue version three D DECL * ARE LONG CONSTANT XAB$C_PRG2 = 2 ! Prologue version two D DECLARE LONG CONSTANT XAB$C_PRG1 = 1 ! Prologue versoin one L DECLARE LONG CONSTANT XAB$K_KEYLEN_V4 = 76 ! xabkey length until V5 K DECLARE LONG CONSTANT XAB$C_KEYLEN_V4 = 76 ! xabkey length until V5G DECLARE LONG CONSTANT XAB$K_KEYLEN = 100 ! xabkey length for V5G DECLARE LONG CONSTANT XAB$C_KEYLEN = 100 ! xabkey length for V5 ! --1 DECLARE LONG CONSTANT XAB$S_XABKEYDEF = 100 reco + rd XABKEYDEF BYTE XABKEYDEF$$_FILL_1 BYTE XABKEYDEF$$_FILL_2 WORD XABKEYDEF$$_FILL_3U LONG XABKEYDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF ! @ ! the field layout of the key xab is such that it matchs as? ! closely as possible the layout of a key decriptor in the@ ! index file prologue. this is so the contents may be moved= ! bet, ween the two structures as efficiently as possible. ! G BYTE XAB$B_IAN ! index level area number N BYTE XAB$B_LAN ! lowest index level area number F BYTE XAB$B_DAN ! data level area number D BYTE XAB$B_LVL ! level of root bucket W BYTE XAB$B_IBS ! size of index buckets in virtual blocks V BYTE XAB$B_DBS ! size of dat - a buckets in virtual blocks E LONG XAB$L_RVB ! root bucket start vbn group XAB$R_FLG_OVERLAY variant case@ BYTE XAB$B_FLG ! key option flags  case' group XAB$R_FLG_BITS06 ! duplicate key values allowed G ! alt key only --key field may change on update > ! alt key only --null key value enable Q . ! indicate index records for given key are not compressed  ! spareH ! indicates key is not compressed in data record h BYTE DUP_bits ! COMMENT ADDED BY SDL - DUP_bits contains bits DUP through fill_11+ end group XAB$R_FLG_BITS0 case' group XAB$R_FLG_BITS1( ! space over dup  ! spare- ! spa / ce over idx_ncmpr ! spare- ! space over key_ncmpr7 ! data record is not compressed s BYTE FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through DAT_NCMPR+ end group XAB$R_FLG_BITS1 end variant$ end group XAB$R_FLG_OVERLAYC BYTE XAB$B_DTP ! key field data type F BYTE XAB$B_NSG ! num0 ber of key segments A BYTE XAB$B_NUL ! nul key character O BYTE XAB$B_TKS ! total key field size ( bytes ) M BYTE XAB$B_REF ! key of reference (0=prim key,  ! 1-254 = alternate keys)Z WORD XAB$W_MRL ! minimun record length to contain key field Q WORD XAB$W_IFL ! index bucket fill size ( bytes ) O WORD XAB$W_DFL ! 1 data bucket fil size ( bytes ) group XAB$R_POS_OVERLAY variant caseT WORD XAB$W_POS ( 1 to 8 ) ! key field record offset positions  case( group XAB$R_POS_FIELDS9 WORD XAB$W_POS0 ! segment 0 9 WORD XAB$W_POS1 ! segment 1 9 WORD XAB$W_POS2 ! segment 2 9 WORD XAB$W_POS3 ! segment 3 9 2 WORD XAB$W_POS4 ! segment 4 9 WORD XAB$W_POS5 ! segment 5 9 WORD XAB$W_POS6 ! segment 6 9 WORD XAB$W_POS7 ! segment 7 , end group XAB$R_POS_FIELDS end variant$ end group XAB$R_POS_OVERLAY group XAB$R_SIZ_OVERLAY variant caseJ BYTE XAB$B_SIZ ( 1 to 8 ) ! key field segment sizes  3 case( group XAB$R_SIZ_FIELDS9 BYTE XAB$B_SIZ0 ! segment 0 9 BYTE XAB$B_SIZ1 ! segment 1 9 BYTE XAB$B_SIZ2 ! segment 2 9 BYTE XAB$B_SIZ3 ! segment 3 9 BYTE XAB$B_SIZ4 ! segment 4 9 BYTE XAB$B_SIZ5 ! segment 5 9 BYTE XAB$B_SIZ6 ! segment 6 9 BYTE 4 XAB$B_SIZ7 ! segment 7 , end group XAB$R_SIZ_FIELDS end variant$ end group XAB$R_SIZ_OVERLAY5 WORD XABKEYDEF$$_FILL_11 ! spare  ! K ! the positions of the above fields are dictated by the key descriptor0 ! record layout in the index file prologue. ! W LONG XAB$L_KNM ! pointer to 32 character key name buffer K LONG XAB$L_DVB ! first data bucket start v 5 bn % ! Additions for prologue 3 files ! group XAB$R_TYP_OVERLAY variant caseJ BYTE XAB$B_TYP ( 1 to 8 ) ! key field segment types  case( group XAB$R_TYP_FIELDS9 BYTE XAB$B_TYP0 ! segment 0 9 BYTE XAB$B_TYP1 ! segment 1 9 BYTE XAB$B_TYP2 ! segment 2 9 BYTE XAB$B_TYP3 ! segment 6 3 9 BYTE XAB$B_TYP4 ! segment 4 9 BYTE XAB$B_TYP5 ! segment 5 9 BYTE XAB$B_TYP6 ! segment 6 9 BYTE XAB$B_TYP7 ! segment 7 , end group XAB$R_TYP_FIELDS end variant$ end group XAB$R_TYP_OVERLAYg BYTE XAB$B_PROLOG ! indicate prologue version desired ( primary key only ) 5 BYTE XABKEYDEF$$_FILL_12 ! spare 5 WORD XABKEYDEF$$_FILL_13 ! spare G LONG XAB$L_COLTBL ! address of collate tableD LONG XAB$L_COLSIZ ! size of collate tableD LONG XAB$L_COLNAM ! name of collate table4 LONG XABKEYDEF$$_FILL_14 ! spare4 LONG XABKEYDEF$$_FILL_15 ! spare4 LONG XABKEYDEF$$_FILL_16 ! spare ! ++ end record XABKEYDEF  ww8  }-PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI9 NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET: %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 5 ! RMS Context XAB associated with the FAB ! $xabcxfdef !  ! > DECLARE LONG CONSTANT XAB$C_CXF = 32 ! XABCXF id code 6 DECLARE LONG CONSTANT XA ; B$M_CXFRST = x'00000001'I DECLARE LONG CONSTANT XAB$K_CXFLEN = 60 ! length of xab type CXF I DECLARE LONG CONSTANT XAB$C_CXFLEN = 60 ! length of xab type CXF 0 DECLARE LONG CONSTANT XAB$S_XABCXFDEF = 60 record XABCXFDEFA BYTE XABCXFDEF$$_FILL_1 ! COD - xab id code B BYTE XABCXFDEF$$_FILL_2 ! BLN - block length : WORD XABCXFDEF$$_FILL_3 ! ( spare ) D LONG XABCXFDEF$$_FILL_4 ! NXT - xab c < hain link ( ! UP TILL NOW COMMON AMONG ALL XABS ! : ! Following in common with the CXR block, too.5 ! Do not rearrange without changing both. ! R LONG XAB$L_CXFSTS ! Status of the last file operation. X LONG XAB$L_CXFSTV ! Status Value of the last file operation.  ! Q ! Top four bits of the options longword are reserved for the XABCXR. These 5 ! bits describe the version of the key buffer. =  ! # group XAB$R_CXFCOP_OVERLAY variant case@ LONG XAB$L_CXFCOP ! Context Options.  case) group XAB$R_CXFCOP_BITSH ! Restore file state - use context blk as input. q BYTE CXFRST_bits ! COMMENT ADDED BY SDL - CXFRST_bits contains bits CXFRST through fill_12- end group XAB$R_CXFCOP_BITS end variant' end group > XAB$R_CXFCOP_OVERLAY@ LONG XAB$L_CXFBKP ! Bookkeeping bits H WORD XAB$W_CXFIFI ! Internal File Identifier C BYTE XAB$B_CXFVER ! prologue version numS BYTE XABCXFDEF$$_FILL_5 ! spare to longword align commonality 5 LONG XABCXFDEF$$_FILL_6 ! spare  ! 5 ! Up Till now in common with XABCXR, too. ! H ! The following fields correspond to those in ? the FAB or IFBI ! They should not be rearranged as their order is assumed forH ! purposes of moving large chunks of data rather than a byteI ! or word at a time. Note: ASSUME is used in the actual code ! J WORD XAB$W_CXFDEQ ! Default extention quantity ; BYTE XAB$B_CXFFAC ! File access < BYTE XAB$B_CXFSHR ! File Sharing < WORD XAB$W_CXFRTE ! ( Not us ed )5 BYTE XABCXFDEF$$_FILL_7 ! spare A BYTE XAB$B_CXFORG ! file organization B WORD XAB$W_CXFGBC ! global buffer count? BYTE XAB$B_CXFRTV ! retrieval window BYTE XABCXFDEF$$_FILL_89 LONG XABCXFDEF$$_FILL_9 ( 1 to 4 ) ! spares  end record XABCXFDEF  wwA -PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIB NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETC %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 5 ! RMS Context XAB associated with the RAB ! $xabcxrdef !  ! > DECLARE LONG CONSTANT XAB$C_CXR = 33 ! XABCXR id code 6 DECLARE LONG CONSTANT XA D B$M_CXRRST = x'00000001'. DECLARE LONG CONSTANT XAB$C_CXB_VER1 = 1O DECLARE LONG CONSTANT XAB$C_CXRBLEN = 512 ! Length of CXRBUF ( bytes )I DECLARE LONG CONSTANT XAB$K_CXRLEN = 84 ! Length of XAB type CXR I DECLARE LONG CONSTANT XAB$C_CXRLEN = 84 ! Length of XAB type CXR 0 DECLARE LONG CONSTANT XAB$S_XABCXRDEF = 84 record XABCXRDEFA BYTE XABCXRDEF$$_FILL_1 ! COD - xab id code B BYTE XABCXRDEF$$_FILL_2 ! BLN - blo E ck length : WORD XABCXRDEF$$_FILL_3 ! ( spare ) D LONG XABCXRDEF$$_FILL_4 ! NXT - xab chain link ( ! UP TILL NOW COMMON AMONG ALL XABS ! : ! Following in common with the CXF block, too.3 ! Do not rearrange without changing it. ! T LONG XAB$L_CXRSTS ! Status of the last record operation. Z LONG XAB$L_CXRSTV ! Status Value of the last record operation. # group F XAB$R_CXRCOP_OVERLAY variant case@ LONG XAB$L_CXRCOP ! Context Options.  case) group XAB$R_CXRCOP_BITSO ! Restore file/record state - use context blk as input. . ! Version of Key bufferq LONG CXRRST_bits ! COMMENT ADDED BY SDL - CXRRST_bits contains bits CXRRST through CXRBVER- end group XAB$R_CXRCOP_BITS G end variant' end group XAB$R_CXRCOP_OVERLAY@ LONG XAB$L_CXRBKP ! Bookkeeping bits J WORD XAB$W_CXRISI ! Internal Record Identifier D BYTE XAB$B_CXRVER ! prologue version num.S BYTE XABCXRDEF$$_FILL_6 ! spare to longword align commonality 5 LONG XABCXRDEF$$_FILL_7 ! spare  ! 5 ! Up Till now in common with XABCXF, too. !  ! L ! Th H e following elements are arranged such that large amounts ofM ! data can be moved at a time rather than words or bytes. Do not@ ! rearrange them without this consideration in mind. ! L ! The following elements are stream dependent regardless of file org. ! @ BYTE XAB$B_CXRMBF ! Multibuffer count? BYTE XAB$B_CXRMBC ! Multiblock countC WORD XAB$W_CXRBFZ ! sz in byte of CXRBUF I ! J ! The following elements are necessary for saving the NRP context for% ! Sequential and Relative files. ! 6 LONG XAB$L_CXRVBN ! NRP VBN@ WORD XAB$W_CXROFF ! NRP offset in VBNC WORD XAB$W_FILL_8 ! mbz - longword align ! J ! The following elements are necessary for saving the NRP context for ! ISAM files. ! F LONG XAB$L_CXRPOS0 ! Primary Positioning RFA J WORD XAB$W_CXRPOS48 WORD XABCXRDEF$$_FILL_9 ! Spare MBZF LONG XAB$L_CXRCUR0 ! Current Positioning RFA WORD XAB$W_CXRCUR48 WORD XABCXRDEF$$_FILL_10 ! Spare MBZC LONG XAB$L_CXRSID0 ! SIDR positioning RFA WORD XAB$W_CXRSID48 WORD XABCXRDEF$$_FILL_11 ! Spare MBZ? WORD XAB$W_CXRCNT ! SIDR array countC BYTE XAB$B_CXRKREF  ! Cur Key of Reference< BYTE XAB$B_CXRKLEN ! Length of keyA LONG XAB$L_CXRBUF ! address of key buf9 LONG XABCXRDEF$$_FILL_12 ( 1 to 2 ) ! Spares  end record XABCXRDEF  wwL  .PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIM NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETN %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! % ! Journal XAB definitions ! $xabjnldef !  ! > DECLARE LONG CONSTANT XAB$C_JNL = 34 ! xabjnl id code 3 DECLARE LONG CONSTANT XAB$C_JN O L_TYPE_NONE = 09 DECLARE LONG CONSTANT XAB$C_AI = 1 ! AI journal9 DECLARE LONG CONSTANT XAB$C_BI = 2 ! BI journal9 DECLARE LONG CONSTANT XAB$C_AT = 3 ! AT journalF DECLARE LONG CONSTANT XAB$C_RU_DEFAULT = 4 ! default RU volume@ DECLARE LONG CONSTANT XAB$M_JOURNAL_DISABLED = x'00000001'; DECLARE LONG CONSTANT XAB$M_BACKUP_DONE = x'00000002'- DECLARE LONG CONSTANT XAB$K_JNLLEN = 80- DECLARE LONG CONSTANT XAB$C_JNLLEN = 800 DECLAR P E LONG CONSTANT XAB$S_XABJNLDEF = 80 record XABJNLDEF BYTE XABJNLDEF$$_FILL_1 BYTE XABJNLDEF$$_FILL_2 WORD XABJNLDEF$$_FILL_3U LONG XABJNLDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF> BYTE XAB$B_XABJNL_TYPE ! type of $XABJNL BYTE XABJNLDEF$$_FILL_5& group XAB$R_JNL_FLAGS_OVERLAY variant Q caseY WORD XAB$W_JNL_FLAGS ! journal flags ( from ACE$W_RMSJNL_FLAGS ) case, group XAB$R_JNL_FLAGS_BITSA ! journaling disabled by BACKUP (AI/BI/AT)5 ! Backup done since last $OPEN BYTE JOURNAL_DISABLED_bits ! COMMENT ADDED BY SDL - JOURNAL_DISABLED_bits contains bits JOURNAL_DISABLED & ! through fill_130 end group XAB$R_JNL_FLAGS_BITS R end variant* end group XAB$R_JNL_FLAGS_OVERLAYJ LONG XAB$L_JNL_FAB ! address of journal file FABT LONG XAB$L_VOLNAM_BUF ! address of journal volume name bufferQ WORD XAB$W_VOLNAM_SIZ ! size of journal volume name bufferS WORD XAB$W_VOLNAM_LEN ! return length of journal volume namec BASIC$QUADWORD XAB$Q_JNL_VERIFY_CDATE ! journal file creation date ( from ACE$Q_CDATE )3 ! ( S to match with journal file's creation date)W LONG XAB$L_JNLIDX ! Journal stream index within journal fileF LONG XAB$L_BACKUP_SEQNO ! Backup sequence number.W BASIC$QUADWORD XAB$Q_JNL_MOD_TIME ! Timestamp of last backup or last journal ! entry recovered. LONG XABJNLDEF$$_FILL_7 LONG XABJNLDEF$$_FILL_8 LONG XABJNLDEF$$_FILL_9! LONG XABJNLDEF$$_FILL_10! LONG XABJNLDEF$$_FILL_11!  LONG XABJNLDEF$$_FILL_12! LONG XABJNLDEF$$_FILL_13! LONG XABJNLDEF$$_FILL_14 end record XABJNLDEF  wwU @.PV%DEFINE UCHAR_FLAGS LONG%DEFINE XAB_RCF_FLAGS BYTE8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATIV NG_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART W GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! " ! Item XAB definitions !  ! > DECLARE LONG CONSTANT XAB$C_ITM = 36 ! xabitm id code T ! The followingX set of flags exactly mimic the FCHDEF flags defined in STARLET.Y ! They are here to provide an unsupported interface to the UCHAR longword maintained ! by the file system. ! O ! Note: RESERVED6 is the counterpart of FCH$x_SCRATCH. This SCRATCH bit L ! means the file is a temporary file that should only exist within the R ! context of an XQP operation. This bit should NEVER be visible to a user. M ! (It was implemented by XQP for ACP MOVEFILE subfunction. A ' Y scratch' M ! file is created with the scratch bit set in the file header. This is N ! made to be the 'moved' file, then the original file is replaced by the M ! moved file, and finally everything is cleaned up. If a crash occurs, P ! the scratch file is left lying around; the scratch bit is used to signal O ! to ANALYZE/DISK/REPAIR that this header is not being used.) RMS should : ! not provide any interface to sense or set this bit. ! 9 DECLARE LONG CON Z STANT XAB$M_WASCONTIG = x'00000001'8 DECLARE LONG CONSTANT XAB$M_NOBACKUP = x'00000002'9 DECLARE LONG CONSTANT XAB$M_WRITEBACK = x'00000004'9 DECLARE LONG CONSTANT XAB$M_READCHECK = x'00000008'9 DECLARE LONG CONSTANT XAB$M_WRITCHECK = x'00000010'7 DECLARE LONG CONSTANT XAB$M_CONTIGB = x'00000020'6 DECLARE LONG CONSTANT XAB$M_LOCKED = x'00000040'6 DECLARE LONG CONSTANT XAB$M_CONTIG = x'00000080'9 DECLARE LONG CONSTANT XAB$M_RESERVED1 = x'00000100'9 [ DECLARE LONG CONSTANT XAB$M_RESERVED2 = x'00000200'9 DECLARE LONG CONSTANT XAB$M_RESERVED3 = x'00000400'6 DECLARE LONG CONSTANT XAB$M_BADACL = x'00000800'5 DECLARE LONG CONSTANT XAB$M_SPOOL = x'00001000'9 DECLARE LONG CONSTANT XAB$M_DIRECTORY = x'00002000'8 DECLARE LONG CONSTANT XAB$M_BADBLOCK = x'00004000'7 DECLARE LONG CONSTANT XAB$M_MARKDEL = x'00008000'8 DECLARE LONG CONSTANT XAB$M_NOCHARGE = x'00010000'5 DECLARE LONG CONSTANT XAB$M_ERASE \ = x'00020000'9 DECLARE LONG CONSTANT XAB$M_RESERVED4 = x'00040000'7 DECLARE LONG CONSTANT XAB$M_SHELVED = x'00080000'9 DECLARE LONG CONSTANT XAB$M_RESERVED6 = x'00100000'6 DECLARE LONG CONSTANT XAB$M_NOMOVE = x'00200000'; DECLARE LONG CONSTANT XAB$M_NOSHELVABLE = x'00400000': DECLARE LONG CONSTANT XAB$M_PRESHELVED = x'00800000'1 DECLARE LONG CONSTANT XAB$S_UCHAR_FLAGS = 3 [ DECLARE LONG CONSTANT XAB$_NET_BUFFER_SIZE = 1 ! ( sense ) negocia] ted buffer size] DECLARE LONG CONSTANT XAB$_NET_BLOCK_COUNT = 2 ! ( set,sense ) requested block countY DECLARE LONG CONSTANT XAB$_NET_REMOTE_SYSTEM = 3 ! ( sense ) remote system typec DECLARE LONG CONSTANT XAB$_NET_REMOTE_FILE_SYSTEM = 4 ! ( sense ) remote file system type_ DECLARE LONG CONSTANT XAB$_NET_EXTPROT = 5 ! ( set,sense ) actual extended protection` DECLARE LONG CONSTANT XAB$_NET_SYSCAP_LOCAL = 6 ! ( sense ) DAP SYSCAP of local systemb ^ DECLARE LONG CONSTANT XAB$_NET_SYSCAP_REMOTE = 7 ! ( sense ) DAP SYSCAP of remote system` DECLARE LONG CONSTANT XAB$_NET_DAPVER_LOCAL = 8 ! ( sense ) DAP version - local systemb DECLARE LONG CONSTANT XAB$_NET_DAPVER_REMOTE = 9 ! ( sense ) DAP version - remote systemi DECLARE LONG CONSTANT XAB$_NET_LINK_TIMEOUT = 10 ! ( set,sense ) logical link timeout (seconds) Z DECLARE LONG CONSTANT XAB$_NET_DATA_CRC_ENABLE = 11 ! ( set,sense ) DAP level CRCh DECL_ ARE LONG CONSTANT XAB$_NET_LINK_CACHE_ENABLE = 12 ! ( set,sense ) Logical link cache enableK ! ,NET_DATA_COMPRESSION /* (set,sense) do data compression (FUTURE) - DECLARE LONG CONSTANT XAB$K_NET_MIN = 1. DECLARE LONG CONSTANT XAB$K_NET_MAX = 12[ DECLARE LONG CONSTANT XAB$_STAT_ENABLE = 64 ! ( set,sense ) Read statistics enableu DECLARE LONG CONSTANT XAB$_FILE_LENGTH_HINT = 65 ! ( set,sense ) File length hint (set of 2 quadword fields)/ DECLARE LONG CON` STANT XAB$K_STAT_MIN = 64/ DECLARE LONG CONSTANT XAB$K_STAT_MAX = 65` DECLARE LONG CONSTANT XAB$_UCHAR = 128 ! ( sense ) Read file characteristics (obsolete)U DECLARE LONG CONSTANT XAB$_UCHAR_WASCONTIG = 129 ! ( sense ) FCH$V_WASCONTIGW DECLARE LONG CONSTANT XAB$_UCHAR_NOBACKUP = 130 ! ( set,sense ) FCH$V_NOBACKUPU DECLARE LONG CONSTANT XAB$_UCHAR_WRITEBACK = 131 ! ( sense ) FCH$V_WRITEBACKY DECLARE LONG CONSTANT XAB$_UCHAR_READCHECK = 132 ! ( sea t,sense ) FCH$V_READCHECK[ DECLARE LONG CONSTANT XAB$_UCHAR_WRITECHECK = 133 ! ( set,sense ) FCH$V_WRITECHECKU DECLARE LONG CONSTANT XAB$_UCHAR_CONTIGB = 134 ! ( set,sense ) FCH$V_CONTIGBS DECLARE LONG CONSTANT XAB$_UCHAR_LOCKED = 135 ! ( set,sense ) FCH$V_LOCKEDO DECLARE LONG CONSTANT XAB$_UCHAR_CONTIG = 136 ! ( sense ) FCH$V_CONTIGO DECLARE LONG CONSTANT XAB$_UCHAR_BADACL = 137 ! ( sense ) FCH$V_BADACLM DECLARE LONG CONSTANT XAB$_UCHAR_SPOOL =b 138 ! ( sense ) FCH$V_SPOOLU DECLARE LONG CONSTANT XAB$_UCHAR_DIRECTORY = 139 ! ( sense ) FCH$V_DIRECTORYS DECLARE LONG CONSTANT XAB$_UCHAR_BADBLOCK = 140 ! ( sense ) FCH$V_BADBLOCKR DECLARE LONG CONSTANT XAB$_UCHAR_MARKDEL = 141 ! ( sense ) FCH$V_BADBLOCKS DECLARE LONG CONSTANT XAB$_UCHAR_NOCHARGE = 142 ! ( sense ) FCH$V_NOCHARGEQ DECLARE LONG CONSTANT XAB$_UCHAR_ERASE = 143 ! ( set,sense ) FCH$V_ERASES DECLARE LONG CONSTANT XAB$_UCHAR_NOMOVc E = 144 ! ( set,sense ) FCH$V_NOMOVEV DECLARE LONG CONSTANT XAB$_UCHAR_SHELVED = 145 ! ( sense ) FCH$V_SHELVED^ DECLARE LONG CONSTANT XAB$_UCHAR_NOSHELVABLE = 146 ! ( set,sense ) FCH$V_NOSHELVABLE\ DECLARE LONG CONSTANT XAB$_UCHAR_PRESHELVED = 147 ! ( sense ) FCH$V_PRESHELVED1 DECLARE LONG CONSTANT XAB$K_UCHAR_MIN = 1281 DECLARE LONG CONSTANT XAB$K_UCHAR_MAX = 147g DECLARE LONG CONSTANT XAB$_STORED_SEMANTICS = 192 ! ( set,sense ) Stored d semantics of the fileg DECLARE LONG CONSTANT XAB$_ACCESS_SEMANTICS = 193 ! ( set,sense ) Access semantics of the filei DECLARE LONG CONSTANT XAB$_RMS_EXTENSION = 194 ! ( set,sense ) Required RMS processing extension1 DECLARE LONG CONSTANT XAB$K_XLATE_MIN = 1921 DECLARE LONG CONSTANT XAB$K_XLATE_MAX = 194f DECLARE LONG CONSTANT XAB$C_SEMANTICS_MAX_LEN = 64 ! max length for stored or access semanticsf DECLARE LONG CONSTANT XAB$K_SEMANTICS_MAX_LEN = 64 ! e max length for stored or access semanticsr DECLARE LONG CONSTANT XAB$_MULTIBUFFER_COUNT = 256 ! ( set-only ) Multibuffer count (not limited to 127) ! legal only on $CONNECT DECLARE LONG CONSTANT XAB$_NORECORD = 257 ! ( set-only ) Norecord suppresses update of the expiration d/t, passed in on ! on $OPEN or $CLOSEL DECLARE LONG CONSTANT XAB$_RECOVERY = 258 ! Used to indicate type of ! recovery in progress.R DECLARE LONG CONSTANT XAB$_RUJVOLNAM = 2 f 59 ! Used to control RUJ placement^ DECLARE LONG CONSTANT XAB$_GBC_LONG = 260 ! ( set/sense ) GBC longword implementation0 DECLARE LONG CONSTANT XAB$K_MISC_MIN = 2560 DECLARE LONG CONSTANT XAB$K_MISC_MAX = 260B DECLARE LONG CONSTANT XAB$_TID = 320 ! ( set/sense ) TID/ DECLARE LONG CONSTANT XAB$K_TID_MIN = 320/ DECLARE LONG CONSTANT XAB$K_TID_MAX = 320/ DECLARE LONG CONSTANT XAB$K_SENSEMODE = 1- DECLARE LONG CONSTANT XAB$K_SETMODE = 2- g DECLARE LONG CONSTANT XAB$K_ITMLEN = 32- DECLARE LONG CONSTANT XAB$C_ITMLEN = 320 DECLARE LONG CONSTANT XAB$S_XABITMDEF = 32 record XABITMDEF BYTE XABITMDEF$$_FILL_1 BYTE XABITMDEF$$_FILL_2 WORD XABITMDEF$$_FILL_3U LONG XABITMDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEFH LONG XAB$L_ITEMLIST ! Address of the item h list I ! In the user interface, item codes are arbitrary integer values, soI ! we may as well allow logical groups to have contiguous codes, with7 ! room for expansion (to allow table driven code).R BYTE XAB$B_MODE ! must be either SETMODE or SENSEMODEV BYTE XAB$B_ITM_FILL1 ( 1 to 3 ) ! Reserved space for future definitionV LONG XAB$L_ITM_FILL2 ( 1 to 4 ) ! Reserved space for future definition end record XABITMDEF i B ! The following set of flags mimic the IFB$B_RECVRFLGS flags.9 ! They are here to provide an interface for RECOVER.6 DECLARE LONG CONSTANT XAB$M_RCF_RU = x'00000001'6 DECLARE LONG CONSTANT XAB$M_RCF_AI = x'00000002'6 DECLARE LONG CONSTANT XAB$M_RCF_BI = x'00000004'9 DECLARE LONG CONSTANT XAB$M_RCF_NOPAD = x'00000008'3 DECLARE LONG CONSTANT XAB$S_XAB_RCF_FLAGS = 1 - DECLARE LONG CONSTANT XAB$K_DISABLE = 0, DECLARE LONG CONSTANT XAB$K_EN j ABLE = 1* DECLARE LONG CONSTANT XAB$K_RT11 = 1* DECLARE LONG CONSTANT XAB$K_RSTS = 2, DECLARE LONG CONSTANT XAB$K_RSX11S = 3, DECLARE LONG CONSTANT XAB$K_RSX11M = 4, DECLARE LONG CONSTANT XAB$K_RSX11D = 5) DECLARE LONG CONSTANT XAB$K_IAS = 6, DECLARE LONG CONSTANT XAB$K_VAXVMS = 7, DECLARE LONG CONSTANT XAB$K_TOPS20 = 8, DECLARE LONG CONSTANT XAB$K_TOPS10 = 9+ DECLARE LONG CONSTANT XAB$K_RTS8 = 10* DECLARE LONG CONSTANT XAB$K_OS8 = 11 k . DECLARE LONG CONSTANT XAB$K_RSX11MP = 12. DECLARE LONG CONSTANT XAB$K_COPOS11 = 13+ DECLARE LONG CONSTANT XAB$K_P_OS = 14- DECLARE LONG CONSTANT XAB$K_VAXELN = 15* DECLARE LONG CONSTANT XAB$K_CPM = 16- DECLARE LONG CONSTANT XAB$K_MS_DOS = 170 DECLARE LONG CONSTANT XAB$K_ULTRIX_32 = 180 DECLARE LONG CONSTANT XAB$K_ULTRIX_11 = 19+ DECLARE LONG CONSTANT XAB$K_RMS11 = 1+ DECLARE LONG CONSTANT XAB$K_RMS20 = 2+ DECLARE LONG CONSTANT XA l B$K_RMS32 = 3+ DECLARE LONG CONSTANT XAB$K_FCS11 = 4, DECLARE LONG CONSTANT XAB$K_RT11FS = 5+ DECLARE LONG CONSTANT XAB$K_NO_FS = 6. DECLARE LONG CONSTANT XAB$K_TOPS20FS = 7. DECLARE LONG CONSTANT XAB$K_TOPS10FS = 8+ DECLARE LONG CONSTANT XAB$K_OS8FS = 9- DECLARE LONG CONSTANT XAB$K_RMS32S = 10, DECLARE LONG CONSTANT XAB$K_CPMFS = 11/ DECLARE LONG CONSTANT XAB$K_MS_DOSFS = 122 DECLARE LONG CONSTANT XAB$K_ULTRIX32_FS = 132 DECLARE m LONG CONSTANT XAB$K_ULTRIX11_FS = 14: DECLARE LONG CONSTANT XAB$M_NET_NOREAD = x'00000001'; DECLARE LONG CONSTANT XAB$M_NET_NOWRITE = x'00000002'= DECLARE LONG CONSTANT XAB$M_NET_NOEXECUTE = x'00000004'< DECLARE LONG CONSTANT XAB$M_NET_NODELETE = x'00000008'< DECLARE LONG CONSTANT XAB$M_NET_NOAPPEND = x'00000010'? DECLARE LONG CONSTANT XAB$M_NET_NODIRECTORY = x'00000020'< DECLARE LONG CONSTANT XAB$M_NET_NOUPDATE = x'00000040'< DECLARE LONG CONSTANT XA n B$M_NET_NOCHANGE = x'00000080'< DECLARE LONG CONSTANT XAB$M_NET_NOEXTEND = x'00000100'3 DECLARE LONG CONSTANT XAB$S_XABNETEXTPROT = 8 record XABNETEXTPROT group XAB$r_fill_15 variant case' WORD XAB$W_SYSTEM_ACC case% group XAB$r_fill_16} WORD NET_NOREAD_bits ! COMMENT ADDED BY SDL - NET_NOREAD_bits contains bits NET_NOREAD through fill_17) end gro oup XAB$r_fill_16 end variant end group XAB$r_fill_15 WORD XAB$W_OWNER_ACC WORD XAB$W_GROUP_ACC WORD XAB$W_WORLD_ACC end record XABNETEXTPROT 2 DECLARE LONG CONSTANT XAB$S_XABNETDAPVER = 5 record XABNETDAPVER BYTE XAB$B_VER_DAP BYTE XAB$B_VER_ECO BYTE XAB$B_VER_CUS BYTE XAB$B_VER_DSV BYTE XAB$B_VER_CSV end record XABNETDAPVER 2 DECLARE LONG CONST p ANT XAB$S_XABNETCAPDEF = 7 record XABNETCAPDEFw BYTE CAP_FILALL_bits ( 7 ) ! COMMENT ADDED BY SDL - CAP_FILALL_bits contains bits CAP_FILALL through fill_18 end record XABNETCAPDEF 1 DECLARE LONG CONSTANT XAB$S_BUFFER_SIZE = 49 DECLARE LONG CONSTANT XAB$S_NETWORK_BLOCK_COUNT = 43 DECLARE LONG CONSTANT XAB$S_REMOTE_SYSTEM = 48 DECLARE LONG CONSTANT XAB$S_REMOTE_FILE_SYSTEM = 43 DECLARE LONG CONSTANT XAB$S_EXTPROT_LOCAL = 84 DECLAR E LONG CONSTANT XAB$S_EXTPROT_REMOTE = 83 DECLARE LONG CONSTANT XAB$S_CAPABIL_LOCAL = 84 DECLARE LONG CONSTANT XAB$S_CAPABIL_REMOTE = 82 DECLARE LONG CONSTANT XAB$S_DAPVER_LOCAL = 53 DECLARE LONG CONSTANT XAB$S_DAPVER_REMOTE = 5/ DECLARE LONG CONSTANT XAB$S_CACHE_TMO = 42 DECLARE LONG CONSTANT XAB$S_HINT_LENGTH = 165 DECLARE LONG CONSTANT XAB$S_GBC_LONG_LENGTH = 4 wwr NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETs %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! + ! Recovery Unit XAB definitions ! $xabrudef !  ! = DECLARE LONG CONSTANT XAB$C_RU = 35 ! xabru id code 6 DECLARE LONG CONSTANT XA t B$M_NOJOIN = x'00000001', DECLARE LONG CONSTANT XAB$K_RULEN = 48, DECLARE LONG CONSTANT XAB$C_RULEN = 48/ DECLARE LONG CONSTANT XAB$S_XABRUDEF = 48 record XABRUDEF BYTE XABRUDEF$$_FILL_1 BYTE XABRUDEF$$_FILL_2 WORD XABRUDEF$$_FILL_3U LONG XABRUDEF$$_FILL_4 ! HAS SAME COD, BLN, SPARE AND NXT FIELD / ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND" ! HAVE BEEN DEFINED BY $XABDEF% group XAB$R_RU_FLAGS_OVERLAY u  variant case4 WORD XAB$W_RU_FLAGS ! Flags case+ group XAB$R_RU_FLAGS_BITS6 ! Do not join any recovery unitq BYTE NOJOIN_bits ! COMMENT ADDED BY SDL - NOJOIN_bits contains bits NOJOIN through fill_19/ end group XAB$R_RU_FLAGS_BITS end variant) end group XAB$R_RU_FLAGS_OVERLAY WORD XABRUDEF$$_FILL_5Q LON G XAB$L_RU_HANDLE ! RU handle to join ( input field )Q LONG XAB$L_RU_HANDLE_JOINED ! RU handle joined ( output field ) LONG XABRUDEF$$_FILL_7 LONG XABRUDEF$$_FILL_8 LONG XABRUDEF$$_FILL_9 LONG XABRUDEF$$_FILL_10 LONG XABRUDEF$$_FILL_11 LONG XABRUDEF$$_FILL_12 LONG XABRUDEF$$_FILL_13 end record XABRUDEF  www k/PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIx NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETy %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! / ! Descriptor codes for SYS$FILESCAN !  ! 5 DECLARE LONG CONSTANT FSCN$M_NODE = x'00000001'7 DECLARE LONG CONSTANT FSCN$M_DEVICE = x'00000002'5 DECL z ARE LONG CONSTANT FSCN$M_ROOT = x'00000004': DECLARE LONG CONSTANT FSCN$M_DIRECTORY = x'00000008'5 DECLARE LONG CONSTANT FSCN$M_NAME = x'00000010'5 DECLARE LONG CONSTANT FSCN$M_TYPE = x'00000020'8 DECLARE LONG CONSTANT FSCN$M_VERSION = x'00000040'= DECLARE LONG CONSTANT FSCN$M_NODE_PRIMARY = x'00000080'9 DECLARE LONG CONSTANT FSCN$M_NODE_ACS = x'00000100'? DECLARE LONG CONSTANT FSCN$M_NODE_SECONDARY = x'00000200'/ DECLARE LONG CONSTANT FSCN$S_FLDFL{ AGS = 4 record FLDFLAGS ! Node name present ! Device name present# ! Root directory present ! Directory present ! File name present ! File type present! ! File version present ! Fill out longword^ LONG NODE_bits ! COMMENT ADDED BY SDL - NODE_bits contains bits NODE through FILL_1 end record FLDFLAGS D DECLARE LONG CONSTANT FSCN$_FILESPEC = 1 ! complete filespec; | DECLARE LONG CONSTANT FSCN$_NODE = 2 ! node:: field> DECLARE LONG CONSTANT FSCN$_DEVICE = 3 ! device: field< DECLARE LONG CONSTANT FSCN$_ROOT = 4 ! [root.] fieldE DECLARE LONG CONSTANT FSCN$_DIRECTORY = 5 ! [directory] field9 DECLARE LONG CONSTANT FSCN$_NAME = 6 ! name field9 DECLARE LONG CONSTANT FSCN$_TYPE = 7 ! .typ field@ DECLARE LONG CONSTANT FSCN$_VERSION = 8 ! ;version field2 DECLARE LONG CONSTANT FSCN$_node_primary = 9/ DECLAR E LONG CONSTANT FSCN$_node_acs = 105 DECLARE LONG CONSTANT FSCN$_node_secondary = 11/ DECLARE LONG CONSTANT FSCN$S_ITEM_LEN = 8. DECLARE LONG CONSTANT FSCN$S_FSCNDEF = 8 record FSCNDEFA WORD FSCN$W_LENGTH ! return length word> WORD FSCN$W_ITEM_CODE ! item code value@ LONG FSCN$L_ADDR ! component address end record FSCNDEF  ww~ /PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  , DECLARE LONG CONSTANT RME$C_SETRFM = 1- DECLARE LONG CONSTANT RME$C_PPFECHO = 2, DECLARE LONG CONSTANT RME$C_SETRCF = 32 DECLARE LONG CONSTANT RME$C_KEEP_LOCK_ON = 43 DECLARE LONG CONSTANT RME$C_KEEP_LOCK_OFF = 5ww 0PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  $ ! SCREEN PACKAGE REQUEST TYPES D DECLARE LONG CONSTANT SCR$C_PUT_SCREEN = 0 ! SCR$PUT_SCREEN D DECLARE LONG CONSTANT SCR$C_GET_SCREEN = 1 ! SCR$GET_SCREEN D DECLARE LONG CONSTANT SC R$C_ERASE_PAGE = 2 ! SCR$ERASE_PAGE D DECLARE LONG CONSTANT SCR$C_ERASE_LINE = 3 ! SCR$ERASE_LINE D DECLARE LONG CONSTANT SCR$C_SET_CURSOR = 4 ! SCR$SET_CURSOR F DECLARE LONG CONSTANT SCR$C_DOWN_SCROLL = 5 ! SCR$DOWN_SCROLL F DECLARE LONG CONSTANT SCR$C_SCREEN_INFO = 6 ! SCR$SCREEN_INFO @ DECLARE LONG CONSTANT SCR$C_PUT_LINE = 7 ! SCR$PUT_LINE F DECLARE LONG CONSTANT SCR$C_MOVE_CURSOR = 8 ! SCR$MOVE_CURSOR D DECLARE LONG CONSTANT SCR$C_SET_SCROLL = 9 ! SCR$SET_SCROLL C DECLARE LONG CONSTANT SCR$C_UP_SCROLL = 10 ! SCR$UP_SCROLL  ! ? ! DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES ! 4 DECLARE LONG CONSTANT SCR$M_BOLD = x'00000001'7 DECLARE LONG CONSTANT SCR$M_REVERSE = x'00000002'5 DECLARE LONG CONSTANT SCR$M_BLINK = x'00000004'9 DECLARE LONG CONSTANT SCR$M_UNDERLINE = x'00000008'< DECLARE LONG CONSTANT SCR$M_NORMAL = 0 ! no bits set , DECLARE LONG CONSTANT SCR$S_SCRD EF = 1 record SCRDEF variant case& group SCR$R_SCRDEF_BITSg BYTE BOLD_bits ! COMMENT ADDED BY SDL - BOLD_bits contains bits BOLD through fill_0* end group SCR$R_SCRDEF_BITS end variant end record SCRDEF  ! < ! DEFINE FORMAT OF SCR$SCREEN_INFO RETURN BUFFER ! 6 DECLARE LONG CONSTANT SCR$M_SCREEN = x'00000001'7 DECLARE LONG CONSTANT SCR$M_ANSICRT = x'00000002'5 DECLARE LONG CONSTANT SCR$M_REGIS = x'00000004'5 DECLARE LONG CONSTANT SCR$M_BLOCK = x'00000008'3 DECLARE LONG CONSTANT SCR$M_AVO = x'00000010'4 DECLARE LONG CONSTANT SCR$M_EDIT = x'00000020'6 DECLARE LONG CONSTANT SCR$M_DECCRT = x'00000040'O DECLARE LONG CONSTANT SCR$K_LENGTH = 20 ! LENGTH OF INFO RETURN BUFFER O DECLARE LONG CONSTANT SCR$C_LENGTH = 20 ! LENGTH OF INFO RETURN BUFFER . DECLARE LONG CONSTANT SCR$S_SCRDEF1 = 20 record SCRDEF1" group SCR$R_FLAGS_OVERLAY variant case> LONG SCR$L_FLAGS ! FLAGS LONGWORD  case( group SCR$R_FLAGS_BITS< ! 1 = SCREEN ORIENTED, 0 = SCROLLING ' ! ANSI TERMINAL ( ! REGIS TERMINAL - ! BLOCK MODE TERMINAL 1 ! ADVANCED VIDEO TERMINAL 6 ! TERMINAL HAS EDIT CAPABILIT Y / ! TERMINAL IS A DEC CRT p BYTE SCREEN_bits ! COMMENT ADDED BY SDL - SCREEN_bits contains bits SCREEN through fill_1, end group SCR$R_FLAGS_BITS end variant& end group SCR$R_FLAGS_OVERLAYB WORD SCR$W_WIDTH ! WIDTH OF EACH LINE ? WORD SCR$W_PAGESIZE ! LINES IN SCREEN K BYTE SCR$B_DEVTYPE ! DEVICE TYPE ( SEE $DCDEF ) = BYTE SCRDEF$$_FILL_1 ( 1 to 11 ) ! (RESERVED)  end record SCRDEF1 ww p0PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 18:32:55.84 !  ! + SECSRVMSG.MSG ! + IDENT X-14 ! ' ! MESSAGE FILE FOR SECSRV FACILITY ! / ! VAX AND AXP STREAMS SHOULD BE IDENTICAL. !  ! REVISION HISTORY: ! H ! X-14 JAH0342 JOHN A HARNEY 05-OCT-1999C ! ADD CLUSTER-WIDE INTRUSION DETECTION MESSAGES:= ! CIACRECLUDB CREATED CLUSTER DATABASE; ! CIACRELOCDB CREATED LOCAL DATABASED ! CIAEXISTCLU USING EXISTING CLUSTER DATABASEB ! CIAEXISTLOC USING EXISTING LOCAL DATABASE ! H ! X-13 JAH0298 JOHN A HARNEY 10-JUN-1998J ! REMOVE "try again later" FROM PROXYNOTACTIVE MESSAGE. ! 2 ! X-12 JAH0166 JOHN A HARNEY 14-NOV-1994 ! FIX MORE MESSAGE TEXT. ! / ! X-11 JAH0166 JOHN A HARNEY 09-NOV-1994@ ! FIX MESSAGE TEXT AND SPELLING ERRORS AFTER REVIEW BY THE ! DOCUMENTATION GROUP.  ! d ! ** NOTE ** MAKE SURE WHEN YOU MODIFY THIS FILE THAT YOU ALSO MODIFY [SECSRV]SECSRVMSG_.ADA $ ! TO MATCH YOUR CHANGES HERE. ! 3 DECLARE LONG CONSTANT SECSRV$_FACILITY = 1774 ! A DECLARE LONG CONSTANT SECSRV$_SERVERRADIOACTIVE = 116299635 ! = DECLARE LONG CONSTANT SECSRV$_SERVERRESTART = 116299643> DECLARE LONG CONSTANT SECSRV$_SERVERSHUTDOWN = 116299651< DECLARE LONG CONSTANT SECSRV$_COULDNTSTART = 116299659> DECLARE LONG CONSTANT SECSRV$_COULDNTRESTART = 116299667= DECLARE LONG CONSTANT SECSRV$_PROXYSHUTDOWN = 116299675; DECLARE LONG CONSTANT SECSRV$_CIASHUTDOWN = 116299683@ DECLARE LONG CONSTANT SECSRV$_SERVERSTARTINGUP = 116299691? DECLARE LONG CONSTANT SECSRV$_PROXYSTARTINGUP = 116299699= DECLARE LONG CONSTANT SECSRV$_CIASTARTINGUP = 1162997078 DECLARE LONG CONSTANT SECSRV$_INTRUDER = 1162997157 DECLARE LONG CONSTANT SECSRV$_SUSPECT = 116299723= DECLARE LONG CONSTANT SECSRV$_CREATEPROXYDB = 116299731= DECLARE LONG CONSTANT SECSRV$_PROXYMODIFIED = 116299739A DECLARE LONG CONSTANT SECSRV$_NOSCANNEDINTRUDER = 116299747? DECLARE LONG CONSTANT SECSRV$_INVALIDTERMNAME = 116299755; DECLARE LONG CONSTANT SECSRV$_CIACRECLUDB = 116299763; DECLARE LONG CONSTANT SECSRV$_CIACRELOCDB = 116299771; DECLARE LONG CONSTANT SECSRV$_CIAEXISTCLU = 116299779; DECLARE LONG CONSTANT SECSRV$_CIAEXISTLOC = 116299787< DECLARE LONG CONSTANT SECSRV$_NORDPROXYREC = 116305632: DECLARE LONG CONSTANT SECSRV$_NOSUCHUSER = 116311634= DE CLARE LONG CONSTANT SECSRV$_DUPLICATEUSER = 116311642= DECLARE LONG CONSTANT SECSRV$_INVALIDDELETE = 116311650< DECLARE LONG CONSTANT SECSRV$_UPDATEFAILED = 116311658; DECLARE LONG CONSTANT SECSRV$_NOSUCHPROXY = 116311666? DECLARE LONG CONSTANT SECSRV$_DBALREADYEXISTS = 116311674< DECLARE LONG CONSTANT SECSRV$_TOOMANYUSERS = 116311682> DECLARE LONG CONSTANT SECSRV$_BADNODENAMELEN = 116311690= DECLARE LONG CONSTANT SECSRV$_BADREMUSERLEN = 116311698?  DECLARE LONG CONSTANT SECSRV$_BADLOCALUSERLEN = 116311706; DECLARE LONG CONSTANT SECSRV$_PROXYACTIVE = 116311714> DECLARE LONG CONSTANT SECSRV$_PROXYNOTACTIVE = 1163117229 DECLARE LONG CONSTANT SECSRV$_NOPROXYDB = 116311730J DECLARE LONG CONSTANT SECSRV$_NOSUCHINTRUDER = 116311738 ! NOMATCHF DECLARE LONG CONSTANT SECSRV$_CIADBEMPTY = 116311746 ! DBEMPTY9 DECLARE LONG CONSTANT SECSRV$_INSUFINFO = 116311754; DECLARE LONG CONSTANT SECSRV$_AUDITFAILED = 11 6311762< DECLARE LONG CONSTANT SECSRV$_ASSIGNFAILED = 1163117709 DECLARE LONG CONSTANT SECSRV$_QIOFAILED = 116311778< DECLARE LONG CONSTANT SECSRV$_DASSGNFAILED = 116311786: DECLARE LONG CONSTANT SECSRV$_BADJOBTYPE = 116311794? DECLARE LONG CONSTANT SECSRV$_SERVERNOTACTIVE = 116311802< DECLARE LONG CONSTANT SECSRV$_PROXYNOTOPEN = 116311810? DECLARE LONG CONSTANT SECSRV$_PROXYTERMINATED = 116317636= DECLARE LONG CONSTANT SECSRV$_CIATERMINATED = 116317 644@ DECLARE LONG CONSTANT SECSRV$_SERVERTERMINATED = 116317652< DECLARE LONG CONSTANT SECSRV$_CREMBXFAILED = 1163176607 DECLARE LONG CONSTANT SECSRV$_RUNNING = 116317668: DECLARE LONG CONSTANT SECSRV$_CONSTERROR = 1163176769 DECLARE LONG CONSTANT SECSRV$_TASKERROR = 116317684@ DECLARE LONG CONSTANT SECSRV$_OUTCOMTERMINATED = 116317692C DECLARE LONG CONSTANT SECSRV$_SRVREPLYTIMEOUT = 116317700 ! # ! ADD TEMPORARY MESSAGES HERE. ! 7 DECLARE LONG CONSTANT SECSRV$_CONVERT = 116323635A DECLARE LONG CONSTANT SECSRV$_VERIFY_CONVERSION = 116323643? DECLARE LONG CONSTANT SECSRV$_CONVERT_SUCCESS = 116323651ww `1PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:22:08.75 ! > ! SHRMSG.MSG - SYSTEM DEFINITION FILE FOR SHARED MESSAGES !  ! VERSION: 'X-9' ! R ! **************************************************************************** ! * *D ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1997, 1998 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! *  *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! 0 ! FACILITY: VAX/VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! A ! THIS FILE CONTAINS THE MDL SOURCE FOR THE SHARED MESSAGES. !  ! ENVIRONMENT: !  ! N/A !  ! -- !  ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! / ! X-9 TMS0357 TODD SCHOELLER 19-FEB-1998) ! ADD NOFIDS -- FIDS NOT PERMITTED. ! / ! X-8 TMS0317 TODD SCHOELLER 9-MAR-1997? ! ADD MESSAGES FOR HFS INVOLVING INABILITY FOR PROCESSINGA ! FILES WITH DIDS AND FIDS (FILDID, FILFID, AND FILDIDFID). ! / ! X-7 RG40042 RAY GUZMAN 11-JAN-1991< ! ADD A MESS AGE BADFORMAT TO INDICATE A FILE FORMAT IS ! INCOMPATIBLE. ! 1 ! X-6 SEH0021 SUSAN E. HEIMBACH 14-DEC-19897 ! ADD MESSAGE NOMEANING; TO BE USED FOR QUEMAN'S : ! START/QUEUE/MANAGER COMMAND'S OBSOLETE QUALIFIERS.. ! ADD OPENERR AND CLOSEERR. ! 1 ! X-5 SEH0011 SUSAN E. HEIMBACH 09-DEC-1988; ! ADD MESSAGE NOTDELETED; TO BE USED BY QUEMAN DELETE ! COMMANDS. ! ' ! X-4 RJS RON SOMMER 12-OCT_1987= ! ADD MESSAGE  PRDCONT. COMMON LMF MESSAGE TO BE USED BY= ! SYSTEM LAYERED PRODUCTS WHEN LICENSE CHECK HAS FAILED, ! BUT PRODUCT EXECUTION IS CONTINUING. ! / ! X-3 AEW0002 ANNE E. WARNER 08-DEC-1986< ! ADD MESSAGES ANBIGANS AND INVALANS USED FOR /CONFIRM/ ! IN COMMON QUALIFIER PACKAGE (LIBCQUAL). ! ) ! X-2 CWH5002 CW HOBBS 30-MAY-1986% ! CORRECT SPELLING IN NOSUCHID. ! 5 ! V03-011 TSK0002 TAMAR KRICHEVSKY 28-MAR-1984 ! ADD NOSUCHID. ! H ! V03-010 AEW0001 ANNE E. WARNER 6-MAR-19843 ! ADD FILSPCSRCH AND NOSRCHLIST.N ! FILSPCSRCH - FILE SPECIFICATION CONTAINS A SEARCH LIST.J ! NOSRCHLST - COMMAND DOES NOT SUPPORT SEARCH LISTS.H ! BOTH MESSAGES ORIGINALLY IN [CLIUTL.SRC]SETDIR.B32. ! 4 ! V03-009 TSK0001 TAMAR KRICHEVSKY 8-FEB-1984 ! ADD QUALMISS. ! 8 ! V03-008 SHZ0004 STEPHEN H. ZALEWSKI, 28- FEB-1983" ! CHANGED TEXT OF NOFILPURG. ! 8 ! V03-007 SHZ0003 STEPHEN H. ZALEWSKI, 11-JAN-1983> ! ADD FILNOTACC. MAKE DELINTERR AND DIRTOBUSY OBSOLETE. ! 5 ! V03-006 SBL3006 STEVEN B. LIONEL, 19-NOV-1982 ! ADD NOFILES. ! : ! V03-005 MLJ0094 MARTIN L. JACK, 31-JUL-1982 23:18 ! ADD INVQUAVAL. ! ? ! V03-004 SHZ0002 STEPHEN H. ZALEWSKI, 23-JUL-1982 16:405 ! ADDED TOTAL, PURGED, AND FILDELETED MESSAGES. ! 2 ! V03-003 BLS0152 BENN SCHREIBER 25-MAY-1982 ! ADD PRODNOTINS MESSAGE ! / ! V03-002 GAS0068 GERRY SMITH 31-MAR-1982 ! ADD NOTRUNC MESSAGE. ! : ! V03-001 MLJ0084 MARTIN L. JACK, 28-MAR-1982 14:48/ ! CLEAN UP INITIAL CAPITALIZATION ERRORS. ! J ! THESE MESSAGE CODES SHOULD NOT BE USED DIRECTLY BY A FACILITY SINCEG ! THEY DO NOT CONTAIN A SUBSYSTEM (I.E., FACILITY) IDENTIFIER OR AM ! SEVERITY CODE. USE THE FOLLOWING FORMULA TO CALCULATE ACTUAL FAC ILITY ! MESSAGE CODES.4 ! FACILITY MESSAGE CODE = COMMON MESSAGE CODE + ! FACILITY ID * 65536 + ! SEVERITY CODE- DECLARE LONG CONSTANT SHR$_FACILITY = 01 DECLARE LONG CONSTANT SHR$_APPENDEDB = 40961 DECLARE LONG CONSTANT SHR$_APPENDEDR = 4104/ DECLARE LONG CONSTANT SHR$_BADBYTE = 41120 DECLARE LONG CONSTANT SHR$_BADFIELD = 4120/ DECLARE LONG CONSTANT SHR$_BADLONG = 4128/ DECLARE LONG CONSTANT SHR$_BADWORD = 4136- DE CLARE LONG CONSTANT SHR$_BEGIN = 4144. DECLARE LONG CONSTANT SHR$_BEGIND = 4152. DECLARE LONG CONSTANT SHR$_BEGINT = 4160- DECLARE LONG CONSTANT SHR$_CLICB = 4168/ DECLARE LONG CONSTANT SHR$_CLOSEIN = 41760 DECLARE LONG CONSTANT SHR$_CLOSEOUT = 4184/ DECLARE LONG CONSTANT SHR$_COPIEDB = 4192/ DECLARE LONG CONSTANT SHR$_COPIEDR = 4200/ DECLARE LONG CONSTANT SHR$_CREATED = 4208- DECLARE LONG CONSTANT SHR$_ENDED = 4216. DECLARE LONG CONST ANT SHR$_ENDEDD = 4224. DECLARE LONG CONSTANT SHR$_ENDEDT = 42320 DECLARE LONG CONSTANT SHR$_NEWFILES = 4240. DECLARE LONG CONSTANT SHR$_OPENIN = 4248/ DECLARE LONG CONSTANT SHR$_OPENOUT = 4256/ DECLARE LONG CONSTANT SHR$_OVERLAY = 4264/ DECLARE LONG CONSTANT SHR$_READERR = 42720 DECLARE LONG CONSTANT SHR$_REPLACED = 42802 DECLARE LONG CONSTANT SHR$_WILDCONCAT = 42882 DECLARE LONG CONSTANT SHR$_WILDOUTVER = 42960 DECLARE LONG CONSTANT SHR$ _WRITEERR = 4304- DECLARE LONG CONSTANT SHR$_ABEND = 4312. DECLARE LONG CONSTANT SHR$_ABENDD = 4320. DECLARE LONG CONSTANT SHR$_ABENDT = 43282 DECLARE LONG CONSTANT SHR$_SYSERRORPC = 4336. DECLARE LONG CONSTANT SHR$_SYNTAX = 4344/ DECLARE LONG CONSTANT SHR$_NOVALUE = 4352. DECLARE LONG CONSTANT SHR$_BADKEY = 43600 DECLARE LONG CONSTANT SHR$_BADVALUE = 43680 DECLARE LONG CONSTANT SHR$_BADDELIM = 43760 DECLARE LONG CONSTANT SHR$_BADLOGIC = 43 84. DECLARE LONG CONSTANT SHR$_NOWILD = 4392, DECLARE LONG CONSTANT SHR$_TEXT = 44001 DECLARE LONG CONSTANT SHR$_IDXCONCAT = 44081 DECLARE LONG CONSTANT SHR$_RELCONCAT = 4416/ DECLARE LONG CONSTANT SHR$_HIGHVER = 44242 DECLARE LONG CONSTANT SHR$_BADLOGICPC = 4432, DECLARE LONG CONSTANT SHR$_ATPC = 44401 DECLARE LONG CONSTANT SHR$_BADCOPIES = 4448/ DECLARE LONG CONSTANT SHR$_BADFORM = 44560 DECLARE LONG CONSTANT SHR$_BADJOBID = 44642 DECLARE LONG CONSTANT SHR$_BADJOBNAME = 4472/ DECLARE LONG CONSTANT SHR$_BADPRTY = 44800 DECLARE LONG CONSTANT SHR$_BADQNAME = 4488/ DECLARE LONG CONSTANT SHR$_BADTIME = 4496/ DECLARE LONG CONSTANT SHR$_NOQUEUE = 4504/ DECLARE LONG CONSTANT SHR$_NOJOBID = 45121 DECLARE LONG CONSTANT SHR$_NOJOBNAME = 45200 DECLARE LONG CONSTANT SHR$_SYSERROR = 45281 DECLARE LONG CONSTANT SHR$_NOTCOPIED = 45360 DECLARE LONG CONSTANT SHR$_NOTCMPLT = 45440 DECLARE LONG CONSTANT SHR$_RMSERROR = 45521 DECLARE LONG CONSTANT SHR$_UNXPCTSTS = 45602 DECLARE LONG CONSTANT SHR$_HASHCONCAT = 45680 DECLARE LONG CONSTANT SHR$_INCOMPAT = 4576. DECLARE LONG CONSTANT SHR$_VALERR = 45841 DECLARE LONG CONSTANT SHR$_FILNOTDEL = 4592/ DECLARE LONG CONSTANT SHR$_CONFDEL = 4600/ DECLARE LONG CONSTANT SHR$_DELETED = 4608. DECLARE LONG CONSTANT SHR$_DELVER = 46160 DECLARE LONG CONSTANT SHR$_PURGEVER = 46240 DE CLARE LONG CONSTANT SHR$_CLOSEDEL = 46321 DECLARE LONG CONSTANT SHR$_DIRTOOBUS = 46401 DECLARE LONG CONSTANT SHR$_NOFILPURG = 46481 DECLARE LONG CONSTANT SHR$_FILNOTPUR = 46562 DECLARE LONG CONSTANT SHR$_SEARCHFAIL = 46641 DECLARE LONG CONSTANT SHR$_DELINTERR = 46721 DECLARE LONG CONSTANT SHR$_PARSEFAIL = 46801 DECLARE LONG CONSTANT SHR$_FILPURGED = 46880 DECLARE LONG CONSTANT SHR$_ENDABORT = 46960 DECLARE LONG CONSTANT SHR$_ENDDIAGS = 47040 DECLARE LONG CONSTANT SHR$_ENDNOOBJ = 4712. DECLARE LONG CONSTANT SHR$_HALTED = 47200 DECLARE LONG CONSTANT SHR$_NOCMDMEM = 4728. DECLARE LONG CONSTANT SHR$_QEMPTY = 4736+ DECLARE LONG CONSTANT SHR$_CBT = 4744. DECLARE LONG CONSTANT SHR$_EXISTS = 47520 DECLARE LONG CONSTANT SHR$_UNLOCKED = 4760/ DECLARE LONG CONSTANT SHR$_RENAMED = 47681 DECLARE LONG CONSTANT SHR$_PROTECTED = 47761 DECLARE LONG CONSTANT SHR$_NOTLOCKED = 47840 DECLAR E LONG CONSTANT SHR$_ACTIMAGE = 47921 DECLARE LONG CONSTANT SHR$_DIRNOTCRE = 48001 DECLARE LONG CONSTANT SHR$_NODESTQUE = 48081 DECLARE LONG CONSTANT SHR$_ILLDESQUE = 4816/ DECLARE LONG CONSTANT SHR$_NOTTERM = 48240 DECLARE LONG CONSTANT SHR$_CONFQUAL = 48322 DECLARE LONG CONSTANT SHR$_ILLDIRCOPY = 48401 DECLARE LONG CONSTANT SHR$_INSVIRMEM = 48482 DECLARE LONG CONSTANT SHR$_CREATEDSTM = 4856/ DECLARE LONG CONSTANT SHR$_NOTRUNC = 48642 DECLARE LONG CONSTANT SHR$_PRODNOTINS = 4872- DECLARE LONG CONSTANT SHR$_TOTAL = 4880/ DECLARE LONG CONSTANT SHR$_FILPURG = 4888. DECLARE LONG CONSTANT SHR$_FILDEL = 48961 DECLARE LONG CONSTANT SHR$_INVQUAVAL = 4904/ DECLARE LONG CONSTANT SHR$_NOFILES = 49121 DECLARE LONG CONSTANT SHR$_FILNOTACC = 49200 DECLARE LONG CONSTANT SHR$_QUALMISS = 49282 DECLARE LONG CONSTANT SHR$_FILSPCSRCH = 49361 DECLARE LONG CONSTANT SHR$_NOSRCHLST = 49440 DECLARE LONG CONSTANT SHR$_NOSUCHID = 49520 DECLARE LONG CONSTANT SHR$_AMBIGANS = 49600 DECLARE LONG CONSTANT SHR$_INVALANS = 4968/ DECLARE LONG CONSTANT SHR$_PRDCONT = 49762 DECLARE LONG CONSTANT SHR$_NOTDELETED = 49841 DECLARE LONG CONSTANT SHR$_NOMEANING = 4992/ DECLARE LONG CONSTANT SHR$_OPENERR = 50000 DECLARE LONG CONSTANT SHR$_CLOSEERR = 50081 DECLARE LONG CONSTANT SHR$_BADFORMAT = 5016. DECLARE LONG CONSTANT SHR$_FILDID = 5024. DECLARE LONG CONSTANT SHR$_FILFID = 50321 DECLARE LONG CONSTANT SHR$_FILDIDFID = 5040. DECLARE LONG CONSTANT SHR$_NOFIDS = 5048ww NW1PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 7 ! Symbiont/Job Controller Interface (SMB) Routines !  ! D ! SMB$CHECK_FOR_MESSAGE - Check for Message from Job Controller ! ( ! status = SMB$CHECK_FOR_MESSAGE () ! 3 EXTERNAL LONG FUNCTION SMB$CHECK_FOR_MESSAGE ! 8 ! SMB$INITIALIZE - Initialize User-Written Symbiont ! J ! status = SMB$INITIALIZE (structure_level [,ast_routine] [,streams]) ! J ! structure_level - Version of the job-controller/symbiont interface6 ! ast_routine - Message-handling AST routine> ! streams - Maximum number of streams to support ! . EXTERNAL LONG FUNCTION SMB$INITIALIZE & ( &" L ONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! ? ! SMB$READ_MESSAGE - Obtain Message Sent by Job Controller ! : ! status = SMB$READ_MESSAGE (stream, buffer, request) ! + ! stream - Stream number for message6 ! buffer - Buffer into which message is written2 ! request - Code that identifies the request ! 0 EXTERNAL LONG FUNCTION SMB$READ_MESSAGE & ( &"  LONG BY REF, &% STRING BY DESC, &! LONG BY REF & ) ! B ! SMB$READ_MESSAGE_ITEM - Parse Next Item from Message Buffer ! J ! status = SMB$READ_MESSAGE_ITEM (message, context, item_code, buffer0 ! [, size]) ! ) ! message - Message items to read! ! context - Context value- ! item_code - Item code of message read ! buffer - Message item( !  size - Size of message item ! 5 EXTERNAL LONG FUNCTION SMB$READ_MESSAGE_ITEM & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! : ! SMB$SEND_TO_JOBCTL - Send Message to Job Controller ! C ! status = SMB$SEND_TO_JOBCTL (stream [,request] [,accounting]9 ! [,checkpo int] [,device_status] [,error]) ! @ ! stream - Number of stream to which message refers@ ! request - Code identifying request being completed; ! accounting - Accounting information about a task: ! checkpoint - Checkpoint data about current task? ! device_status - Status of device served by the symbiontE ! error - Condition code returned by the requested task ! 2 EXTERNAL LONG FUNCTION SMB$SEND_TO_JOBCTL & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, && LONG DIM() BY REF & )ww H7GPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )5 END RECORDM% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 19 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI 1PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:15.85 !  ! R ! **************************************************************************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR O THERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTW ARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! FACILITY: ! SYMBIONT. !  ! ABSTRACT: ! SYMBIONT MESSAGES. ! M ! THESE ARE THE MESSAGES COMMON TO VAX/VMS SYMBIONTS. MESSAGE TYPES FORL ! MESSAGES SENT FROM THE SYMBIONTS TO THE JOB CONTROLLER ARE DEFINED BY ! THE $MSGDEF MACRO. !   ! ENVIRONMENT:$ ! VAX/VMS USER AND KERNEL MODE. ! > ! AUTHOR: ROWLAND R. BRADLEY, CREATION DATE: 20-JULY-1984 !  ! MODIFIED BY: ! 7 ! X-2 LMP0560 L. MARK PILANT, 27-MAR-1992 14:08< ! CHANGE THE MACRO NAME FROM $PSMMSGDEF TO $SMBMSGDEF. ! 2 ! 3B-010 BLS0336 BENN SCHREIBER 5-AUG-1984 ! ADD .END. ! 5 ! 3B-009 RRB0009 ROWLAND R. BRADLEY 20-JUL-1984B ! REMOVED THESE DEFINITIONS FOR SMB AND PLACED IN A SEPARATEE ! FILE SMBMSG.MSG. THIS ACCOMPLISHES THE RENAMING OF MESSAGES A ! WITH A SEPARATE FACILITY CODE. NOW TWO TYPES OF MESSAGES; ! SMB$... AND PSM$... DEPENDING ON THE CONTEXT OF THEA ! ERROR. AUDIT TRAIL BEGINS AT HIGHER NUMBER SINCE THIS IS% ! A CONTINUATION OF PSMMSG.MSG. !  ! ** ! / DECLARE LONG CONSTANT SMB$_FACILITY = 2727 DECLARE LONG CONSTANT SMB$_NOMOREITEMS = 178585625 DECLARE LONG CONSTANT SMB$_INVSTMNBR = 178585725 DECLARE LONG CONSTANT SMB$_INVSTRLEV = 17858580ww Ţ3PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *. ! COPYRIGHT (c) 1988, 1995 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSAC HUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ******** ******************************************************************* ! SMG$ADD_KEY_DEF !  ! Add Key Definition ! P ! The Add Key Definition routine adds a keypad key definition to a table ! of key definitions. ! / EXTERNAL LONG FUNCTION smg$add_key_def & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, & % STRING BY DESC, &$ STRING BY DESC & ) ! SMG$ALLOW_ESCAPE ! ! Allow Escape Sequences ! X ! SMG$ALLOW_ESCAPE enables or disables SMG parsing of escape sequences which are' ! output to a virtual display. ! 0 EXTERNAL LONG FUNCTION smg$allow_escape & ( &" LONG BY REF, &! LONG BY REF & )" ! SMG$BEGI N_DISPLAY_UPDATE ! , ! Begin Batching of Display Updates ! N ! The Begin Batching of Display Updates routine saves, or batches, all> ! output to a virtual display until a matching call to0 ! SMG$END_DISPLAY_UPDATE is encountered. ! 8 EXTERNAL LONG FUNCTION smg$begin_display_update & ( &! LONG BY REF & )% ! SMG$BEGIN_PASTEBOARD_UPDATE ! / ! Begin Batching of  Pasteboard Updates ! M ! The Begin Batching of Pasteboard Updates routine saves, or batches,= ! all output to a pasteboard until a matching call to3 ! SMG$END_PASTEBOARD_UPDATE is encountered. ! ; EXTERNAL LONG FUNCTION smg$begin_pasteboard_update & ( &! LONG BY REF & ) ! SMG$CANCEL_INPUT !  ! Cancel Input Request ! B ! The Cancel Input Request routine immediately cancels anyE ! read-in-progress that was issued by SMG$READ_COMPOSED_LINE,B ! SMG$READ_KEYSTROKE, SMG$READ_STRING, or SMG$READ_VERIFY. ! 0 EXTERNAL LONG FUNCTION smg$cancel_input & ( &! LONG BY REF & ) ! SMG$CURSOR_COLUMN ! ' ! Return Cursor Column Position ! P ! The Return Cursor Column Position routine returns the virtual cursor'sA ! current column p osition in a specified virtual display. ! 1 EXTERNAL LONG FUNCTION smg$cursor_column & ( &! LONG BY REF & )! ! SMG$CHECK_FOR_OCCLUSION !  ! Check for Occlusion ! I ! The Check for Occlusion routine checks to see whether a virtualC ! display is covered (occluded) by another virtual display. ! 7 EXTERNAL LONG FUNCTION smg$check_for_occlusion & ( & " LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CHANGE_VIEWPORT !  ! Change the Viewport ! K ! The Change the Viewport Associated with a Virtual Display routineL ! changes the size of an existing viewport in a virtual display. TheK ! text that is currently in the viewport is remapped to fit the new ! dimensions. ! 3 EXTERNAL LONG  FUNCTION smg$change_viewport & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CREATE_KEY_TABLE !  ! Create Key Table ! K ! The Create Key Table routine creates a table for key definitions. ! 4 EXTERNAL LONG FUNCTION smg$create_key_table & ( & ! LONG BY REF & ) ! SMG$CREATE_MENU ! . ! Fill the Virtual Display with a Menu ! P ! The Fill the Virtual Display with a Menu routine displays menu choicesJ ! in the virtual display indicated, starting at the specified row. ! / EXTERNAL LONG FUNCTION smg$create_menu & ( &" LONG BY REF, &* STRING DIM() BY DESC, &* OPTIONAL LON G BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CONTROL_MODE !  ! Control Mode ! L ! The Control Mode routine controls the mode of the pasteboard. ThisM ! includes buffering, minimal updating, whether the screen is clearedM ! when the pasteboard is deleted, and whether tab characters are used ! for sc reen formatting. ! 0 EXTERNAL LONG FUNCTION smg$control_mode & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! WORD BY REF & )" ! SMG$COPY_VIRTUAL_DISPLAY ! ! Copy a Virtual Display ! J ! The Copy a Virtual Display routine creates a copy of an existingM ! virtual display and assigns to it a new virtual display  identifier. ! 8 EXTERNAL LONG FUNCTION smg$copy_virtual_display & ( &" LONG BY REF, &! LONG BY REF & ) ! SMG$CREATE_PASTEBOARD !  ! Create a Pasteboard ! U ! The Create Pasteboard routine creates a pasteboard and returns its assigned ! pasteboard identifier. ! 5 EXTERNAL LONG FUNCTION smg$create_pasteboard & ( &"  LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & )( ! SMG$CHANGE_PBD_CHARACTERISTICS ! + ! Change Pasteboard Characteristics ! [ ! The Change Pasteboard Characteristics routine lets you change the characteristics' ! associated with a  pasteboard. ! > EXTERNAL LONG FUNCTION smg$change_pbd_characteristics & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$CHANGE_RENDITION ! " ! Change Default Rendition ! ` ! The Change Defau lt Rendition routine changes the video attributes for all or part of a ! virtual display. ! 4 EXTERNAL LONG FUNCTION smg$change_rendition & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$CURSOR_ROW ! $  ! Return Cursor Row Position ! M ! The Return Cursor Row Position routine returns the virtual cursor's> ! current row position in a specified virtual display. ! . EXTERNAL LONG FUNCTION smg$cursor_row & ( &! LONG BY REF & ) ! SMG$CREATE_SUBPROCESS ! , ! Create and Initialize a Subprocess ! F ! The Create and Initialize a Subprocess routine creates a DCL> !  subprocess and associates it with a virtual display. ! 5 EXTERNAL LONG FUNCTION smg$create_subprocess & ( &" LONG BY REF, &, OPTIONAL LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & )$ ! SMG$CREATE_VIRTUAL_DISPLAY ! " ! Create a Virtual Display ! V ! The Create Virtual Display routine creates a virtual display and returns its& ! assigned display identifier. ! : EXTERNAL LONG FUNCTION smg$create_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & )$ ! SMG$CHANGE_VIRTUAL_DISPLAY ! ! Change Virtual Display ! ^ ! The Change Virtual Display routine lets you change the dimensions, border, and video* ! attributes of a virtual display. ! : EXTERNAL LONG FUNCTION smg$change_virtual_display & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )% ! SMG$CREATE_VIRTUAL_KEYBOARD ! ! ! Create Virtual Keyboard ! a ! The Create Virtual Keyboard routine creates a virtual keyboard and returns its assigned ! keyboard identifier. ! ; EXTERNAL LONG FUNCTION smg$create_virtual_keyboard & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &! BYTE BY REF & ) ! SMG$CREATE_VIEWPORT ! # ! Create a Virtual Viewport ! F ! The Create a Virtual Viewport routine creates a viewport andL ! associates it with a virtual display. The location and size of the/ ! viewport are specified by the caller. ! 3 EXTERNAL LONG FUNCTION smg$create_viewport & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &!  LONG BY REF & ) ! SMG$DELETE_CHARS !  ! Delete Characters ! P ! The Delete Characters routine deletes characters in a virtual display. ! 0 EXTERNAL LONG FUNCTION smg$delete_chars & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$DEFINE_KEY ! & ! Perform  a DEFINE/KEY Command ! J ! The Perform a DEFINE/KEY Command routine performs the DEFINE/KEY ! command you provide. ! . EXTERNAL LONG FUNCTION smg$define_key & ( &" LONG BY REF, &$ STRING BY DESC & )( ! SMG$DISABLE_BROADCAST_TRAPPING ! $ ! Disable Broadcast Trapping ! O ! The Disable Broadcast Trapping routine disables trapping of broadcast. !  messages for the specified terminal. ! > EXTERNAL LONG FUNCTION smg$disable_broadcast_trapping & ( &! LONG BY REF & )' ! SMG$DISABLE_UNSOLICITED_INPUT ! # ! Disable Unsolicited Input ! H ! The Disable Unsolicited Input routine disables the trapping of ! unsolicited input. ! = EXTERNAL LONG FUNCTION smg$disable_unsolicited_input & ( &!  LONG BY REF & ) ! SMG$DELETE_KEY_DEF !  ! Delete Key Definition ! M ! The Delete Key Definition routine deletes a key definition from the- ! specified table of key definitions. ! 2 EXTERNAL LONG FUNCTION smg$delete_key_def & ( &" LONG BY REF, &% STRING BY DESC, &, OPTIONAL STRING BY DESC & ) ! SMG$DELETE_L INE !  ! Delete Line ! G ! The Delete Line routine deletes lines from a virtual display. ! / EXTERNAL LONG FUNCTION smg$delete_line & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$DELETE_MENU ! 5 ! End Access to a Menu in the Virtual Display ! P ! The End Access to a Menu in the Virtual Disp lay routine ends access to< ! the menu choices in the specified virtual display. ! / EXTERNAL LONG FUNCTION smg$delete_menu & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$DELETE_PASTEBOARD !  ! Delete Pasteboard ! = ! The Delete Pasteboard routine deletes a pasteboard. ! 5 EXTERNAL LONG FUNCTION smg$delete_pasteboard & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$DRAW_CHAR ! / ! Draw a Character in a Virtual Display ! P ! The Draw a Character in a Virtual Display routine draws a character at6 ! the specified position in a virtual display. ! - EXTERNAL LONG FUNCTION smg$draw_char & ( &" LONG BY REF, &" LONG BY REF, &*  OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$DRAW_LINE !  ! Draw a Line ! F ! The Draw a Line routine draws a horizontal or vertical line. ! - EXTERNAL LONG FUNCTION smg$draw_line & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$DRAW_RECTANGLE !  ! Draw a Rectangle ! 9 ! The Draw a Rectangle routine draws a rectangle. ! 2 EXTERNAL LONG FUNCTION smg$draw_rectangle & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$DELETE_SUBPROCESS ! ! Terminate a Subprocess ! J ! The Terminate a Subprocess routine deletes a subprocess that was9 ! created with the SMG$CREATE_SUBPROCESS routine. ! 5 EXTERNAL LONG FUNCTION smg$delete_subprocess & ( &! LONG BY REF &  ) ! SMG$DEL_TERM_TABLE !  ! Delete Terminal Table ! X ! The Delete Terminal Table routine terminates access to a private TERMTABLE.EXE9 ! and frees the associated virtual address space. ! 0 EXTERNAL LONG FUNCTION smg$del_term_table$ ! SMG$DELETE_VIRTUAL_DISPLAY ! ! Delete Virtual Display ! G ! The Delete Virtual Display routine deletes a virtual display. ! : EX TERNAL LONG FUNCTION smg$delete_virtual_display & ( &! LONG BY REF & )% ! SMG$DELETE_VIRTUAL_KEYBOARD ! ! ! Delete Virtual Keyboard ! I ! The Delete Virtual Keyboard routine deletes a virtual keyboard. ! ; EXTERNAL LONG FUNCTION smg$delete_virtual_keyboard & ( &! LONG BY REF & ) ! SMG$DELETE_VIEWPORT !  ! De lete a Viewport ! O ! The Delete a Viewport routine deletes the specified viewport from any, ! pasteboards to which it is pasted. ! 3 EXTERNAL LONG FUNCTION smg$delete_viewport & ( &! LONG BY REF & ) ! SMG$ERASE_CHARS !  ! Erase Characters ! P ! The Erase Characters routine erases characters in a virtual display by% ! replacing them with blanks. !  / EXTERNAL LONG FUNCTION smg$erase_chars & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$END_DISPLAY_UPDATE !  ! End Display Update ! T ! The End Display Update routine ends update batching for a virtual display. ! 6 EXTERNAL LONG FUNCTION smg$end_display_update & ( &!  LONG BY REF & )# ! SMG$END_PASTEBOARD_UPDATE !  ! End Pasteboard Update ! R ! The End Pasteboard Update routine ends update batching for a pasteboard. ! 9 EXTERNAL LONG FUNCTION smg$end_pasteboard_update & ( &! LONG BY REF & )& ! SMG$ENABLE_UNSOLICITED_INPUT ! " ! Enable Unsolicited Input ! L ! The Enable Unsolicited Input routine detects unsolicited input and+ ! calls an AST routine in response. ! < EXTERNAL LONG FUNCTION smg$enable_unsolicited_input & ( &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG BY VALUE & ) ! SMG$ERASE_COLUMN ! # ! Erase Column from Display ! O ! The Erase Column From Display routine erases the specified portion ofO !  the virtual display from the given position to the end of the column. ! 0 EXTERNAL LONG FUNCTION smg$erase_column & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_DISPLAY !  ! Erase Virtual Display ! K ! The Erase Virtual Display routine erases all or part of a virtual; ! displa y by replacing text characters with blanks. ! 1 EXTERNAL LONG FUNCTION smg$erase_display & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_LINE !  ! Erase Line ! S ! The Erase Line routine erases all or part of a line in a virtual display. ! . EXTERNAL LONG FUNCTION smg$erase_line & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$ERASE_PASTEBOARD !  ! Erase Pasteboard ! K ! The Erase Pasteboard routine erases the contents of a pasteboard. ! 4 EXTERNAL LONG FUNCTION smg$erase_pasteboard & ( &! LONG BY REF & )  ! SMG$EXECUTE_COMMAND ! ) ! Execute Command in a Subprocess ! L ! The Execute Command in a Subprocess routine executes the specifiedJ ! command in the subprocess created with the SMG$CREATE_SUBPROCESS ! routine. ! 3 EXTERNAL LONG FUNCTION smg$execute_command & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &! LONG BY  REF & )! ! SMG$FIND_CURSOR_DISPLAY !  ! Find Display ! G ! The Find Display that Contains the Cursor routine returns theN ! identifier of the most recently pasted virtual display that contains ! the physical cursor. ! 7 EXTERNAL LONG FUNCTION smg$find_cursor_display & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &!  LONG BY REF & ) ! SMG$FLUSH_BUFFER !  ! Flush Buffer ! O ! The Flush Buffer routine flushes all buffered output to the terminal. ! 0 EXTERNAL LONG FUNCTION smg$flush_buffer & ( &! LONG BY REF & )" ! SMG$FLUSH_DISPLAY_UPDATE !  ! Flush Display Update ! M ! The Flush Display Update routine flushes any update batching to the : ! screen and leaves the update batching in effect. ! 8 EXTERNAL LONG FUNCTION smg$flush_display_update & ( &! LONG BY REF & )# ! SMG$GET_BROADCAST_MESSAGE !  ! Get Broadcast Message ! L ! The Get Broadcast Message routine determines whether a message hasC ! been broadcast to the pasteboard and returns the message. ! 9 EXTERNAL LONG FUNCTION smg$get_broadc ast_message & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &! WORD BY REF & )) ! SMG$GET_CHAR_AT_PHYSICAL_CURSOR ! $ ! Return Character At Cursor ! M ! The Return Character At Cursor routine returns the character at the+ ! current physical cursor position.- ! ? EXTERNAL LONG FUNC TION smg$get_char_at_physical_cursor & ( &" LONG BY REF, &" BYTE BY REF, &* OPTIONAL BYTE BY REF, &! BYTE BY REF & ) ! SMG$GET_DISPLAY_ATTR ! ! Get Display Attributes ! N ! The Get Display Attributes routine returns the attributes associated! ! with a virtual display. ! 4 EXTERNAL LONG FUNCTION smg$get_display_attr &  ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )% ! SMG$GET_KEYBOARD_ATTRIBUTES ! ! ! Get Keyboard Attributes ! N ! The Get Keyboard Attributes routine gets information about a virtualF ! keyboard and leaves  it in a user-supplied area: the keyboard" ! information table (KIT). ! ; EXTERNAL LONG FUNCTION smg$get_keyboard_attributes & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$GET_KEY_DEF !  ! Get Key Definition ! X ! The Get Key Definition routine returns the key definition for a specified key. ! / EXTERNAL LONG FUNC TION smg$get_key_def & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! SMG$GET_NUMERIC_DATA ! # ! Get Numeric Terminal Data ! J ! The Get Numeric Terminal Data routine accesses TERMTABLE.EXE andK ! returns the value associ ated with a specified Boolean or numeric  ! capability. ! 4 EXTERNAL LONG FUNCTION smg$get_numeric_data & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$GET_PASTING_INFO ! $ ! Return Pasting Information ! N ! Provided that the specified virtual display is currently pasted, theN ! Return Pasting Information routine returns the row and column of the ! pasting. ! 4 EXTERNAL LONG FUNCTION smg$get_pasting_info & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )' ! SMG$GET_PASTEBOARD_ATTRIBUTES ! # ! Get Pasteboard Attributes ! N ! The Get Pasteboard Attributes routine gets pasteboar d attributes and: ! stores them in the pasteboard information table. ! = EXTERNAL LONG FUNCTION smg$get_pasteboard_attributes & ( &" LONG BY REF, &! ANY BY REF, &! LONG BY REF & ) ! SMG$GET_TERM_DATA !  ! Get Terminal Data ! N ! The Get Terminal Data routine accesses TERMTABLE.EXE and returns theJ ! character sequence that causes a terminal to perform a specified ! operation. ! 1 EXTERNAL LONG FUNCTION smg$get_term_data & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &. OPTIONAL LONG DIM() BY REF & ) ! SMG$GET_VIEWPORT_CHAR ! 2 ! Get Characteristics of Display Viewport ! I !  The Get Characteristics of Display Viewport routine returns the4 ! characteristics of the specified viewport. ! 5 EXTERNAL LONG FUNCTION smg$get_viewport_char & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$HOME_CURSOR !  ! Home Cursor ! K ! The Ho me Cursor routine moves the virtual cursor to the specified& ! corner of a virtual display. ! / EXTERNAL LONG FUNCTION smg$home_cursor & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$INIT_TERM_TABLE ! # ! Initialize Terminal Table ! I ! The Initialize Terminal Table routine initializes the TERMTABLEF ! database for the terminal named, so that sub sequent calls toP ! SMG$GET_TERM_DATA can extract information and command strings for that ! terminal. ! 3 EXTERNAL LONG FUNCTION smg$init_term_table & ( &% STRING BY DESC, &! LONG BY REF & ) ! SMG$INSERT_CHARS !  ! Insert Characters ! R ! The Insert Characters routine inserts characters into a virtual display. ! 0 EXTERNAL LONG FUNCTI ON smg$insert_chars & ( &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$INSERT_LINE !  ! Insert Line ! K ! The Insert Line routine inserts a line into a virtual display and ! scrolls the disp lay. ! / EXTERNAL LONG FUNCTION smg$insert_line & ( &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )% ! SMG$INIT_TERM_TABLE_BY_TYPE ! 4 ! Initialize TERMTABLE by VMS Terminal T  ype ! O ! The Initialize TERMTABLE by VMS Terminal Type routine initializes theP ! TERMTABLE database for the terminal named, so that subsequent calls toP ! SMG$GET_TERM_DATA can extract information and command strings for that ! terminal. ! ; EXTERNAL LONG FUNCTION smg$init_term_table_by_type & ( &" BYTE BY REF, &" LONG BY REF, &, OPTIONAL STRING BY DESC &  ) ! SMG$INVALIDATE_DISPLAY ! # ! Mark a Display as Invalid ! N ! The Mark a Display as Invalid routine marks a display as invalid and2 ! causes the entire display to be redrawn. ! 6 EXTERNAL LONG FUNCTION smg$invalidate_display & ( &! LONG BY REF & ) ! SMG$KEYCODE_TO_NAME ! / ! Translate a Key Code into a Key Name ! S ! The Transl ate a Key Code into a Key Name routine translates the key code @ ! of a key on the keyboard into its associated key name. ! 3 EXTERNAL LONG FUNCTION smg$keycode_to_name & ( &" WORD BY REF, &$ STRING BY DESC & ) ! SMG$LABEL_BORDER ! ( ! Label a Virtual Display Border ! K ! The Label a Virtual Display Border routine supplies a label for a# ! virtual displa y's border. ! 0 EXTERNAL LONG FUNCTION smg$label_border & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$LOAD_KEY_DEFS !  ! Load Key Definitions ! ? ! The Load Key Definitions routine loads a file of key  ! definitions ; ! (DEFINE/KEY commands) into a specified key table. ! 1 EXTERNAL LONG FUNCTION smg$load_key_defs & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &! LONG BY REF & ) ! SMG$LIST_KEY_DEFS !  ! List Key Definitions ! G ! The List Key Definitions routine retur ns, one at a time, the " ! definitions (equivalenceK ! strings) associated with specified keys in a specified key table. ! 1 EXTERNAL LONG FUNCTION smg$list_key_defs & ( &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! SMG$LIST_PASTING_ORDER ! 4 ! Return Virtual Display Pasting Information ! L ! The Return Virtual Display Pasting Information routine returns theO ! identifiers of the virtual displays pasted to a specified pasteboard.6 ! Optionally, the pasteboard row 1 and columnA ! 1 (origins) of the virtual displays are also returned. ! 6 EXTERNAL LONG FUNCTION smg$list_pasting_order & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )# ! SMG$LIST_PASTEBOARD_ORDER ! $ ! Return Pasting Information ! G ! The Return Pasting Information routine returns the pasteboardP ! identifier of the pasteboard to which the specified virtual display isP ! pasted. Optionally, the pasteboard row 1 and c olumn 1 (origins) of the. ! virtual displays are also returned. ! 9 EXTERNAL LONG FUNCTION smg$list_pasteboard_order & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )" ! SMG$LOAD_VIRTUAL_DISPLAY ! ! Load a Virtual Display ! O ! The Load a Virtual Display fro m a File routine creates a new virtual A ! display and loads it with a virtual display saved with # ! SMG$SAVE_VIRTUAL_DISPLAY. ! 8 EXTERNAL LONG FUNCTION smg$load_virtual_display & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & )" ! SMG$MOVE_VIRTUAL_DISPLAY !  ! Move Virtual Display ! Z ! The Move Virtual Display routine relocates a virtual display on a  pasteboard and& ! preserves the pasting order. ! 8 EXTERNAL LONG FUNCTION smg$move_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$MOVE_TEXT ! 7 ! Move Text from One Virtual Display to Another ! 3 ! The Move Text from One Virtual Displ  ay toO ! Another routine moves a rectangle of text from one virtual display toN ! another virtual display. Given two points in opposite corners of theN ! rectangle, SMG$MOVE_TEXT determines the desired width and height of " ! the new virtual display. ! - EXTERNAL LONG FUNCTION smg$move_text & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$NAME_TO_KEYCODE ! / ! Translate a Key Name into a Key Code ! M ! The Translate a Key Name into a Key Code routine translates the keyF ! name of a key on the keyboard into its associated key code. ! 3 EXTERNAL LONG FUNCTI ON smg$name_to_keycode & ( &% STRING BY DESC, &! WORD BY REF & )# ! SMG$PASTE_VIRTUAL_DISPLAY !  ! Paste Virtual Display ! U ! The Paste Virtual Display routine pastes a virtual display to a pasteboard. ! 9 EXTERNAL LONG FUNCTION smg$paste_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &"  LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$PUT_CHARS ! / ! Write Characters to a Virtual Display ! B ! The Write Characters to a Virtual Display routine writesD ! characters in a virtual display with the text you specify. ! - EXTERNAL LONG FUNCTION smg$put_chars & ( &" LONG BY REF, &% STRING BY DESC , &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_CHARS_HIGHWIDE ! 6 ! Write Double-Height Double-Width Characters ! H ! The Write Double-Height Double-Width Characters routine writesF ! double-height, double-width characters to a virtual display. ! 6 EXTERNAL LONG FUNCTION smg$put_chars_highwide & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_CHARS_MULTI ! 7 ! Put Text with Multiple Renditions to Display ! S ! The Put Te  xt with Multiple Renditions to Display routine writes text with5 ! multiple renditions to the virtual display. ! 3 EXTERNAL LONG FUNCTION smg$put_chars_multi & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &! LONG B Y REF & ) ! SMG$PUT_CHARS_WIDE ! ' ! Write Double-Width Characters ! W ! The Write Double-Width Characters routine writes double-width characters to a ! virtual display. ! 2 EXTERNAL LONG FUNCTION smg$put_chars_wide & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG  BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_HELP_TEXT ! ) ! Output Help Text to the Display ! O ! The Output Help Text to the Display routine retrieves and outputs theL ! help text for the specified topic in the virtual display provided. ! 1 EXTERNAL LONG FUNCTION smg$put_help_text & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE ! ' ! Write Line to Virtual Display ! N ! The Write Line to Virtual Display routine writes a line of text to aL ! virtual display, beginning at the current virtual cursor position. ! , EXTERNAL LONG FUNCTION smg$put_line &  ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_HIGHWIDE ! 4 ! Write Double-Height and Double-Width Line ! P ! The Write Double-Height and Double-Width Line routine writ es a line of> ! text with double-height and double-width characters. ! 5 EXTERNAL LONG FUNCTION smg$put_line_highwide & ( &" LONG BY REF, &% STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_MULTI ! 8 ! Write  Line with Multiple Renditions to Display ! D ! The Write Line with Multiple Renditions to Display routineG ! writes lines with multiple renditions to the virtual display,; ! optionally followed by cursor movement sequences. ! 2 EXTERNAL LONG FUNCTION smg$put_line_multi & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, & " LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_LINE_WIDE ! ! ! Write Double-Width Line ! P ! The Write Double-Width Line routine writes a line of double-width text ! to a virtual display. ! 1 EXTERNAL LONG FUNCTION smg$put_line_wide & ( &" LONG BY REF, &%  STRING BY DESC, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & )! ! SMG$POP_VIRTUAL_DISPLAY ! - ! Delete a Series of Virtual Displays ! M ! The Delete a Series of Virtual Displays routine deletes a specifiedL ! virtual display and all displays that were pasted on the specified= !  pasteboard on top of the specified virtual display. ! 7 EXTERNAL LONG FUNCTION smg$pop_virtual_display & ( &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_PASTEBOARD ! ) ! Output Pasteboard Using Routine ! P ! The Output Pasteboard Using Routine routine accesses the contents of a ! pasteboard. ! 2 EXTERNAL LONG FUNCTION smg$put_pasteboard &  ( &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL ANY BY VALUE, &! LONG BY REF & ) ! SMG$PRINT_PASTEBOARD ! . ! Print Pasteboard Using a Print Queue ! N ! The Print Pasteboard Using a Print Queue routine prints the contents8 ! of the specified pasteboard on a line printer. ! 4 EXTERNAL LONG FUNCTION smg$print_pasteboard &  ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$PUT_STATUS_LINE ! 5 ! Output Line of Text to Hardware Status Line ! P ! The Output Line of Text to Hardware Status Line routine outputs a line. ! of text to the hardware status line. ! 3 EXTERNAL LONG FUNCTION smg$put_status_line & ! ( &" LONG BY REF, &$ STRING BY DESC & )) ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED ! ) ! Write Encoded String To Display ! Y ! SMG$PUT_VIRTUAL_DISPLAY_ENCODED lets you write a string that has multiple video* ! renditions to a virtual display. ! ? EXTERNAL LONG FUNCTION smg$put_virtual_display_encoded & ( &" LONG BY REF, &" LON" G BY REF, &! ANY BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$PUT_WITH_SCROLL !  ! Write Text and Scroll ! X ! SMG$PUT_WITH_SCROLL writes a line of text to a virtual display and scrolls the ! display if necessary. ! 3 EXTERNAL LONG FUNCTION smg$put_with_scroll & # ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$RING_BELL ! * ! Ring the Terminal Bell or Buzzer ! Z ! The Ring the Terminal Bell or Buzzer routine sounds the terminal bell or buzzer. ! - EXTERN$ AL LONG FUNCTION smg$ring_bell & ( &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$READ_COMPOSED_LINE !  ! Read Composed Line ! J ! The Read Composed Line routine reads a line of input composed of4 ! normal keystrokes and equivalence strings. ! 6 EXTERNAL LONG FUNCTION smg$read_composed_line & ( &" LONG BY REF, &" % LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! WORD BY REF & ) ! SMG$REMOVE_LINE ! . ! Remove a Line from a Virtual Dis& play ! P ! The Remove a Line from a Virtual Display routine removes a line from aL ! specified virtual display that was drawn with the SMG$DRAW_LINE or' ! SMG$DRAW_RECTANGLE routines. ! / EXTERNAL LONG FUNCTION smg$remove_line & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! ' SMG$REPLACE_INPUT_LINE !  ! Replace Input Line ! L ! The Replace Input Line routine replaces the specified lines in the2 ! recall buffer with the specified string. ! 6 EXTERNAL LONG FUNCTION smg$replace_input_line & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &" BYTE BY REF, &! LONG BY REF & ) ! SMG$RETURN_INPUT_LINE ( !  ! Return Input Line ! ` ! The Return Input Line routine returns to the caller the requested line from the recallY ! buffer. This line is retrieved either by matching it with a specified string or4 ! by specifying the appropriate line number. ! 5 EXTERNAL LONG FUNCTION smg$return_input_line & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC) , &" BYTE BY REF, &! WORD BY REF & ) ! SMG$READ_FROM_DISPLAY ! ! Read Text from Display ! Y ! The Read Text from Display routine reads a line of text from a virtual display. ! 5 EXTERNAL LONG FUNCTION smg$read_from_display & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" * LONG BY REF, &$ STRING BY DESC & ) ! SMG$READ_KEYSTROKE ! ! ! Read a Single Character ! P ! The Read a Single Character routine reads a keystroke and returns that& ! keystroke's terminator code. ! 2 EXTERNAL LONG FUNCTION smg$read_keystroke & ( &" LONG BY REF, &" WORD BY REF, &- OPTIONAL STRING BY DESC, &" + LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$READ_LOCATOR ! " ! Read Locator Information ! H ! The Read Locator Information routine reads information from a N ! DECwindows workstation terminal's locator device (such as a mouse or ! tablet). ! 0 EXTERNAL LONG FUNCTION smg$read_locator & ( &" , LONG BY REF, &" WORD BY REF, &" WORD BY REF, &" WORD BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$REPAINT_LINE ! = ! Repaint One or More Lines on the Current Pasteboard ! T ! The Repaint One or More Lines on the Current Pasteboard routine repaints a4 ! series of lines on the current pasteboard. ! 0 - EXTERNAL LONG FUNCTION smg$repaint_line & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) ! SMG$REPAINT_SCREEN ! $ ! Repaint Current Pasteboard ! G ! The Repaint Current Pasteboard routine repaints the specified ! pasteboard after$ ! non-SMG$ I/O has occurred. ! 2 EXTERNAL LONG FUNCTION smg$repaint_screen & . ( &! LONG BY REF & )% ! SMG$REPASTE_VIRTUAL_DISPLAY ! " ! Repaste Virtual Display ! N ! The Repaste Virtual Display routine moves a virtual display to a newI ! position on the pasteboard. The pasting order is not preserved. ! ; EXTERNAL LONG FUNCTION smg$repaste_virtual_display & ( &" LONG BY REF, &" LONG BY REF, &" LON/ G BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & )% ! SMG$RESTORE_PHYSICAL_SCREEN ! % ! Restore Physical Pasteboard ! U ! The Restore Physical Pasteboard routine rewrites the pasteboard image as itJ ! was at the time the SMG$SAVE_PHYSICAL_SCREEN routine was called. ! ; EXTERNAL LONG FUNCTION smg$restore_physical_screen & ( &" LONG BY REF,0 &! LONG BY REF & ) ! SMG$READ_STRING !  ! Read String ! I ! The Read String routine reads a string from a virtual keyboard. ! / EXTERNAL LONG FUNCTION smg$read_string & ( &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" 1 LONG BY REF, &! ANY BY REF, &" WORD BY REF, &" WORD BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! SMG$RETURN_CURSOR_POS ! ! Return Cursor Position ! O ! The Return Cursor Position routine returns the current virtual cursor2 2 ! position in a specified virtual display. ! 5 EXTERNAL LONG FUNCTION smg$return_cursor_pos & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$READ_VERIFY ! " ! Read and Verify a String ! M ! The Read and Verify a String routine reads a sequence of characters$ ! and verifies the sequence. ! / EXTERNAL LONG FUNC3 TION smg$read_verify & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &! ANY BY REF, &" LONG BY REF, &" WORD BY REF,4 &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! WORD BY REF & )$ ! SMG$SET_BROADCAST_TRAPPING ! $ ! Enable Broadcast Trapping ! Q ! The Enable Broadcast Trapping routine enables the trapping of broadcast ! messages. ! : EXTERNAL LONG FUNCTION smg$set_broadcas5 t_trapping & ( &" LONG BY REF, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & )! ! SMG$SCROLL_DISPLAY_AREA !  ! Scroll Display Area ! K ! The Scroll Display Area routine scrolls a rectangular region of a ! virtual display. ! 7 EXTERNAL LONG FUNCTION smg$scroll_display_area & ( &" LONG BY REF, &* 6 OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$SET_CURSOR_ABS ! & ! Set Absolute Cursor Position ! N ! The Set Absolute Cursor Position routine moves the virtual cursor to6 ! the specified position in a virtual display. ! 2 EXTERNAL LONG FUNCTION sm7 g$set_cursor_abs & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SET_CURSOR_REL ! 3 ! Move Cursor Relative to Current Position ! P ! The Move Cursor Relative to Current Position routine moves the virtualJ ! cursor the specified number of rows and columns from the current7 ! virtual cursor position in a virtual display. ! 8 2 EXTERNAL LONG FUNCTION smg$set_cursor_rel & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SCROLL_VIEWPORT ! + ! Scroll a Display Under a Viewport ! f ! The Scroll a Display Under a Viewport routine scrolls a virtual display under its associated ! viewport. ! 3 EXTERNAL LONG FUNCTION smg$scroll_viewport & 9 ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )' ! SMG$SET_DISPLAY_SCROLL_REGION ! * ! Create Display Scrolling Region ! X ! The Create Display Scrolling Region routine creates a virtual scrolling region ! in a virtual display. ! = EXTERNAL LONG FUNCTION smg$set_display_scroll_region & ( &" LONG : BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! SMG$SELECT_FROM_MENU ! ( ! Make a Selection from the Menu ! N ! The Make a Selection from the Menu routine lets you move between theL ! menu choices using the arrow keys and lets you make a selection by ! pressing RETURN. ! 4 EXTERNAL LONG FUNCTION smg$select_from_menu & ( &" LONG B; Y REF, &" LONG BY REF, &" WORD BY REF, &* OPTIONAL WORD BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! SMG$SET_CURSOR_MODE !  ! Set the Cursor Mode ! ! ! The < Set the Cursor ModeA ! routine turns the physical cursor on or off and selects# ! jump or smooth scrolling. ! 3 EXTERNAL LONG FUNCTION smg$set_cursor_mode & ( &" LONG BY REF, &! LONG BY REF & ) ! SMG$SET_KEYPAD_MODE !  ! Set Keypad Mode ! Z ! The Set Keypad Mode routine sets the terminal's numeric keypad to either numeric ! or applications = mode. ! 3 EXTERNAL LONG FUNCTION smg$set_keypad_mode & ( &" LONG BY REF, &! LONG BY REF & )! ! SMG$SNAPSHOT_TO_PRINTER ! # ! Write Snapshot to Printer ! M ! The Write Snapshot to Printer routine writes the current pasteboard9 ! buffer to the printer attached to the terminal. ! 7 EXTERNAL LONG FUNCTION smg$snapshot_to_printer & > ( &" LONG BY REF, &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) ! SMG$SNAPSHOT !  ! Write Snapshot ! P ! The Write Snapshot routine writes the current pasteboard buffer to theK ! file or hardcopy terminal specified by the pasteboard identifier. ! , EXTERNAL LONG FUNCTION smg$snapshot & ( &" LONG BY REF, &) ? OPTIONAL LONG BY REF & )" ! SMG$SET_OUT_OF_BAND_ASTS !  ! Set Out-of-Band ASTs ! I ! The Set Out-of-Band ASTs routine either enables or disables the5 ! trapping of out-of-band control characters. ! 8 EXTERNAL LONG FUNCTION smg$set_out_of_band_asts & ( &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ OPTIONAL LONG @ BY VALUE & )! ! SMG$SET_PHYSICAL_CURSOR ! ' ! Set Cursor on Physical Screen ! P ! The Set Cursor on Physical Screen routine moves the physical cursor to3 ! the specified position on the pasteboard. ! 7 EXTERNAL LONG FUNCTION smg$set_physical_cursor & ( &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! SMG$SET_DEA FAULT_STATE !  ! Set Default State ! O ! The Set Default State routine sets and/or returns the current default ! state for a key table. ! 5 EXTERNAL LONG FUNCTION smg$set_default_state & ( &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & )& ! SMG$SET_TERM_CHARACTERISTICS ! * ! Change Terminal Characteristics B ! N ! The Change Terminal Characteristics routine changes or retrieves the: ! terminal characteristics for a given pasteboard. ! < EXTERNAL LONG FUNCTION smg$set_term_characteristics & ( &" LONG BY REF, &* OPTIONAL LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &C " LONG BY REF, &" LONG BY REF, &! LONG BY REF & )" ! SMG$SAVE_VIRTUAL_DISPLAY ! - ! Save the Virtual Display to a File ! Q ! The Save the Virtual Display to a File routine saves the contents of a 2 ! virtual display and stores it in a file. ! 8 EXTERNAL LONG FUNCTION smg$save_virtual_display & ( &" LONG BY REF, &, D OPTIONAL STRING BY DESC & )" ! SMG$SAVE_PHYSICAL_SCREEN !  ! Save Physical Screen ! R ! The Save Physical Screen routine saves the contents of the pasteboard soJ ! that a later call to SMG$RESTORE_PHYSICAL_SCREEN can restore it. ! 8 EXTERNAL LONG FUNCTION smg$save_physical_screen & ( &" LONG BY REF, &" LONG BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & )% ! SMG$UNPASTE_VIRTUAL_DISPLAY ! ! ! Remove Virtual Display ! Y ! The Remove Virtual Display routine removes a virtual display from a pasteboard. ! ; EXTERNAL LONG FUNCTION smg$unpaste_virtual_display & ( &" LONG BY REF, &! LONG BY REF & )wwF T5PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIG NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETH %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  5 ! Definitions for RTL Screen Management Facility !  ! Input terminator codes ! ; DECLARE LONG CONSTANT SMG$K_TRM_NULL_CHAR = 0 ! NUL7 DECLARE LONG CONSTANT SMG$K_TRM_CTRL I A = 1 ! SOH7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLB = 2 ! STX7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLC = 3 ! ETX7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLD = 4 ! EOT7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLE = 5 ! ENQ7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLF = 6 ! ACK7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLG = 7 ! BEL6 DECLARE LONG CONSTANT SMG$K_TRM_CTRLH = 8 ! BS6 DECLARE LONG CONSTANT SMG$K_TRM_CTRLI = 9 ! HT7 DECLARE LONG CONSTANT SM J G$K_TRM_CTRLJ = 10 ! LF7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLK = 11 ! VT7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLL = 12 ! FF7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLM = 13 ! CR7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLN = 14 ! SO7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLO = 15 ! SI8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLP = 16 ! DLE8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLQ = 17 ! DC18 DECLARE LONG CONSTANT SMG$K_TRM_CTRLR = 18 ! DC28 DECLARE K LONG CONSTANT SMG$K_TRM_CTRLS = 19 ! DC38 DECLARE LONG CONSTANT SMG$K_TRM_CTRLT = 20 ! DC48 DECLARE LONG CONSTANT SMG$K_TRM_CTRLU = 21 ! NAK8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLV = 22 ! SYN8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLW = 23 ! ETB8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLX = 24 ! CAN7 DECLARE LONG CONSTANT SMG$K_TRM_CTRLY = 25 ! EM8 DECLARE LONG CONSTANT SMG$K_TRM_CTRLZ = 26 ! SUB9 DECLARE LONG CONSTANT SMG$K_TRM_ESCAPE = 27 ! ES L C4 DECLARE LONG CONSTANT SMG$K_TRM_FS = 28 ! FS4 DECLARE LONG CONSTANT SMG$K_TRM_GS = 29 ! GS4 DECLARE LONG CONSTANT SMG$K_TRM_RS = 30 ! RS4 DECLARE LONG CONSTANT SMG$K_TRM_US = 31 ! US7 DECLARE LONG CONSTANT SMG$K_TRM_SPACE = 32 ! SPB DECLARE LONG CONSTANT SMG$K_TRM_EXCLAMATION_POINT = 33 ! ?= DECLARE LONG CONSTANT SMG$K_TRM_DOUBLE_QUOTE = 34 ! "< DECLARE LONG CONSTANT SMG$K_TRM_NUMBER_SIGN = 35 ! #< DECLARE LONG CONSTANT SMG$K_ M TRM_DOLLAR_SIGN = 36 ! $= DECLARE LONG CONSTANT SMG$K_TRM_PERCENT_SIGN = 37 ! %: DECLARE LONG CONSTANT SMG$K_TRM_AMPERSAND = 38 ! ?6 DECLARE LONG CONSTANT SMG$K_TRM_QUOTE = 39 ! '; DECLARE LONG CONSTANT SMG$K_TRM_LEFT_PAREN = 40 ! (< DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_PAREN = 41 ! )9 DECLARE LONG CONSTANT SMG$K_TRM_ASTERISK = 42 ! *: DECLARE LONG CONSTANT SMG$K_TRM_PLUS_SIGN = 43 ! +; DECLARE LONG CONSTANT SMG$K_TRM_COMMA_CHAR = 44 N ! ,5 DECLARE LONG CONSTANT SMG$K_TRM_DASH = 45 ! -4 DECLARE LONG CONSTANT SMG$K_TRM_DOT = 46 ! .6 DECLARE LONG CONSTANT SMG$K_TRM_SLASH = 47 ! /5 DECLARE LONG CONSTANT SMG$K_TRM_ZERO = 48 ! 04 DECLARE LONG CONSTANT SMG$K_TRM_ONE = 49 ! 14 DECLARE LONG CONSTANT SMG$K_TRM_TWO = 50 ! 26 DECLARE LONG CONSTANT SMG$K_TRM_THREE = 51 ! 35 DECLARE LONG CONSTANT SMG$K_TRM_FOUR = 52 ! 45 DECLARE LONG CONSTANT SMG$K_TRM_FIVE = 53 ! 54 O DECLARE LONG CONSTANT SMG$K_TRM_SIX = 54 ! 66 DECLARE LONG CONSTANT SMG$K_TRM_SEVEN = 55 ! 76 DECLARE LONG CONSTANT SMG$K_TRM_EIGHT = 56 ! 85 DECLARE LONG CONSTANT SMG$K_TRM_NINE = 57 ! 96 DECLARE LONG CONSTANT SMG$K_TRM_COLON = 58 ! :: DECLARE LONG CONSTANT SMG$K_TRM_SEMICOLON = 59 ! ;: DECLARE LONG CONSTANT SMG$K_TRM_LESS_THAN = 60 ! <6 DECLARE LONG CONSTANT SMG$K_TRM_EQUAL = 61 ! == DECLARE LONG CONSTANT SMG$K_TRM_GREATER_THAN = P 62 ! >> DECLARE LONG CONSTANT SMG$K_TRM_QUESTION_MARK = 63 ! ?8 DECLARE LONG CONSTANT SMG$K_TRM_AT_SIGN = 64 ! @< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_A = 65 ! A< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_B = 66 ! B< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_C = 67 ! C< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_D = 68 ! D< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_E = 69 ! E< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_F = 70 ! F< Q DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_G = 71 ! G< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_H = 72 ! H< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_I = 73 ! I< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_J = 74 ! J< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_K = 75 ! K< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_L = 76 ! L< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_M = 77 ! M< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_N = 78 ! N< DECL R ARE LONG CONSTANT SMG$K_TRM_UPPERCASE_O = 79 ! O< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_P = 80 ! P< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Q = 81 ! Q< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_R = 82 ! R< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_S = 83 ! S< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_T = 84 ! T< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_U = 85 ! U< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_V = 86 ! V< DECLARE LONG C S ONSTANT SMG$K_TRM_UPPERCASE_W = 87 ! W< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_X = 88 ! X< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Y = 89 ! Y< DECLARE LONG CONSTANT SMG$K_TRM_UPPERCASE_Z = 90 ! Z= DECLARE LONG CONSTANT SMG$K_TRM_LEFT_BRACKET = 91 ! [: DECLARE LONG CONSTANT SMG$K_TRM_BACKSLASH = 92 ! \> DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_BRACKET = 93 ! ]6 DECLARE LONG CONSTANT SMG$K_TRM_CARET = 94 ! ^: DECLARE LONG CONSTANT SMG$K_ T TRM_UNDERLINE = 95 ! _= DECLARE LONG CONSTANT SMG$K_TRM_GRAVE_ACCENT = 96 ! `< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_A = 97 ! a< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_B = 98 ! b< DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_C = 99 ! c= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_D = 100 ! d= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_E = 101 ! e= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_F = 102 ! f= DECLARE LONG CONSTANT SMG$K_TRM_ U LOWERCASE_G = 103 ! g= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_H = 104 ! h= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_I = 105 ! i= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_J = 106 ! j= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_K = 107 ! k= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_L = 108 ! l= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_M = 109 ! m= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_N = 110 ! n= DECLARE LONG CONSTANT SMG$ V K_TRM_LOWERCASE_O = 111 ! o= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_P = 112 ! p= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Q = 113 ! q= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_R = 114 ! r= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_S = 115 ! s= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_T = 116 ! t= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_U = 117 ! u= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_V = 118 ! v= DECLARE LONG CONSTANW T SMG$K_TRM_LOWERCASE_W = 119 ! w= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_X = 120 ! x= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Y = 121 ! y= DECLARE LONG CONSTANT SMG$K_TRM_LOWERCASE_Z = 122 ! zK DECLARE LONG CONSTANT SMG$K_TRM_LEFT_BRACE = 123 ! left curly brace? DECLARE LONG CONSTANT SMG$K_TRM_VERTICAL_LINE = 124 ! |M DECLARE LONG CONSTANT SMG$K_TRM_RIGHT_BRACE = 125 ! right curly brace7 DECLARE LONG CONSTANT SMG$K_TRM_TILDE = 126 !X ~: DECLARE LONG CONSTANT SMG$K_TRM_DELETE = 127 ! DEL ! & ! Synonyms for control characters ! , DECLARE LONG CONSTANT SMG$K_TRM_BS = 8, DECLARE LONG CONSTANT SMG$K_TRM_HT = 9- DECLARE LONG CONSTANT SMG$K_TRM_LF = 10- DECLARE LONG CONSTANT SMG$K_TRM_VT = 11- DECLARE LONG CONSTANT SMG$K_TRM_FF = 12- DECLARE LONG CONSTANT SMG$K_TRM_CR = 13 !  ! Keypad keys ! / DECLARE LONG CONSTANT SMG$K_TRM_PF1 = 256/ DECLARE Y LONG CONSTANT SMG$K_TRM_PF2 = 257/ DECLARE LONG CONSTANT SMG$K_TRM_PF3 = 258/ DECLARE LONG CONSTANT SMG$K_TRM_PF4 = 259/ DECLARE LONG CONSTANT SMG$K_TRM_KP0 = 260/ DECLARE LONG CONSTANT SMG$K_TRM_KP1 = 261/ DECLARE LONG CONSTANT SMG$K_TRM_KP2 = 262/ DECLARE LONG CONSTANT SMG$K_TRM_KP3 = 263/ DECLARE LONG CONSTANT SMG$K_TRM_KP4 = 264/ DECLARE LONG CONSTANT SMG$K_TRM_KP5 = 265/ DECLARE LONG CONSTANT SMG$K_TRM_KP6 = 266/ DECLARE LONG C Z ONSTANT SMG$K_TRM_KP7 = 267/ DECLARE LONG CONSTANT SMG$K_TRM_KP8 = 268/ DECLARE LONG CONSTANT SMG$K_TRM_KP9 = 2691 DECLARE LONG CONSTANT SMG$K_TRM_ENTER = 2701 DECLARE LONG CONSTANT SMG$K_TRM_MINUS = 2711 DECLARE LONG CONSTANT SMG$K_TRM_COMMA = 2722 DECLARE LONG CONSTANT SMG$K_TRM_PERIOD = 273 !  ! Cursor positioning keys ! . DECLARE LONG CONSTANT SMG$K_TRM_UP = 2740 DECLARE LONG CONSTANT SMG$K_TRM_DOWN = 2750 DECLARE LONG CON[ STANT SMG$K_TRM_LEFT = 2761 DECLARE LONG CONSTANT SMG$K_TRM_RIGHT = 277 !  ! Function keys ! . DECLARE LONG CONSTANT SMG$K_TRM_F1 = 281. DECLARE LONG CONSTANT SMG$K_TRM_F2 = 282. DECLARE LONG CONSTANT SMG$K_TRM_F3 = 283. DECLARE LONG CONSTANT SMG$K_TRM_F4 = 284. DECLARE LONG CONSTANT SMG$K_TRM_F5 = 285. DECLARE LONG CONSTANT SMG$K_TRM_F6 = 286. DECLARE LONG CONSTANT SMG$K_TRM_F7 = 287. DECLARE LONG CONSTANT SMG$K_TRM_F8 = 288. \ DECLARE LONG CONSTANT SMG$K_TRM_F9 = 289/ DECLARE LONG CONSTANT SMG$K_TRM_F10 = 290/ DECLARE LONG CONSTANT SMG$K_TRM_F11 = 291/ DECLARE LONG CONSTANT SMG$K_TRM_F12 = 292/ DECLARE LONG CONSTANT SMG$K_TRM_F13 = 293/ DECLARE LONG CONSTANT SMG$K_TRM_F14 = 294/ DECLARE LONG CONSTANT SMG$K_TRM_F15 = 295/ DECLARE LONG CONSTANT SMG$K_TRM_F16 = 296/ DECLARE LONG CONSTANT SMG$K_TRM_F17 = 297/ DECLARE LONG CONSTANT SMG$K_TRM_F18 = 298/ DECLAR] E LONG CONSTANT SMG$K_TRM_F19 = 299/ DECLARE LONG CONSTANT SMG$K_TRM_F20 = 300 ! ! ! Synonyms for function keys ! 0 DECLARE LONG CONSTANT SMG$K_TRM_HELP = 295. DECLARE LONG CONSTANT SMG$K_TRM_DO = 296 !  ! Editing keys ! 7 DECLARE LONG CONSTANT SMG$K_TRM_E1 = 311 ! FIND> DECLARE LONG CONSTANT SMG$K_TRM_E2 = 312 ! INSERT_HERE9 DECLARE LONG CONSTANT SMG$K_TRM_E3 = 313 ! REMOVE9 DECLARE LONG CONSTANT SMG$K_TRM_E4 = 314 ^ ! SELECT> DECLARE LONG CONSTANT SMG$K_TRM_E5 = 315 ! PREV_SCREEN> DECLARE LONG CONSTANT SMG$K_TRM_E6 = 316 ! NEXT_SCREEN ! ! Synonyms for editing keys ! 7 DECLARE LONG CONSTANT SMG$K_TRM_FIND = 311 ! E1> DECLARE LONG CONSTANT SMG$K_TRM_INSERT_HERE = 312 ! E29 DECLARE LONG CONSTANT SMG$K_TRM_REMOVE = 313 ! E39 DECLARE LONG CONSTANT SMG$K_TRM_SELECT = 314 ! E4> DECLARE LONG CONSTANT SMG$K_TRM_PREV_SCREEN = 315 ! E5> DECL _ ARE LONG CONSTANT SMG$K_TRM_NEXT_SCREEN = 316 ! E6 !  ! Locator keys ! K DECLARE LONG CONSTANT SMG$K_TRM_FIRST_DOWN = 321 ! Left button downN DECLARE LONG CONSTANT SMG$K_TRM_SECOND_DOWN = 322 ! Middle button downL DECLARE LONG CONSTANT SMG$K_TRM_THIRD_DOWN = 323 ! Right button downN DECLARE LONG CONSTANT SMG$K_TRM_FOURTH_DOWN = 324 ! Fourth button downG DECLARE LONG CONSTANT SMG$K_TRM_FIRST_UP = 325 ! Left button upJ DECLARE LONG CONST ` ANT SMG$K_TRM_SECOND_UP = 326 ! Middle button upH DECLARE LONG CONSTANT SMG$K_TRM_THIRD_UP = 327 ! Right button upJ DECLARE LONG CONSTANT SMG$K_TRM_FOURTH_UP = 328 ! Fourth button up !  ! Conditions ! [ DECLARE LONG CONSTANT SMG$K_TRM_CANCELLED = 508 ! I/O cancelled by SMG$CANCEL_INPUTN DECLARE LONG CONSTANT SMG$K_TRM_TIMEOUT = 509 ! Timeout period expiredJ DECLARE LONG CONSTANT SMG$K_TRM_BUFFER_FULL = 510 ! Buffer is fullJ DECLARE LONG a CONSTANT SMG$K_TRM_UNKNOWN = 511 ! Unknown terminator ! L ! Screen Management request types - These constants are used internally/ ! by SMG$ and should not be used by users. ! 7 DECLARE LONG CONSTANT SMG$C_CHANGE_RENDITION = 103 DECLARE LONG CONSTANT SMG$C_DELETE_CHARS = 114 DECLARE LONG CONSTANT SMG$C_ERASE_DISPLAY = 121 DECLARE LONG CONSTANT SMG$C_ERASE_LINE = 132 DECLARE LONG CONSTANT SMG$C_HOME_CURSOR = 143 DECLARE LONG CONSTANT SMG$C_ b INSERT_CHARS = 152 DECLARE LONG CONSTANT SMG$C_INSERT_LINE = 160 DECLARE LONG CONSTANT SMG$C_PUT_CHARS = 17/ DECLARE LONG CONSTANT SMG$C_PUT_LINE = 18: DECLARE LONG CONSTANT SMG$C_PUT_DISPLAY_ENCODED = 198 DECLARE LONG CONSTANT SMG$C_RETURN_CURSOR_POS = 206 DECLARE LONG CONSTANT SMG$C_PUT_WITH_SCROLL = 215 DECLARE LONG CONSTANT SMG$C_SET_CURSOR_ABS = 225 DECLARE LONG CONSTANT SMG$C_SET_CURSOR_REL = 232 DECLARE LONG CONSTANT SMG$C_DELETE_LINE = c 242 DECLARE LONG CONSTANT SMG$C_ERASE_CHARS = 25: DECLARE LONG CONSTANT SMG$C_SCROLL_DISPLAY_AREA = 26= DECLARE LONG CONSTANT SMG$C_CHANGE_VIRTUAL_DISPLAY = 273 DECLARE LONG CONSTANT SMG$C_LABEL_BORDER = 289 DECLARE LONG CONSTANT SMG$C_END_DISPLAY_UPDATE = 290 DECLARE LONG CONSTANT SMG$C_MOVE_TEXT = 30 !  ! Character Set Codes ! ? DECLARE LONG CONSTANT SMG$C_UNITED_KINGDOM = 0 ! Unused> DECLARE LONG CONSTANT SMG$C_ASCII = 1 ! AS d CII char setH DECLARE LONG CONSTANT SMG$C_SPEC_GRAPHICS = 2 ! Line drawing set9 DECLARE LONG CONSTANT SMG$C_ALT_CHAR = 3 ! Unused= DECLARE LONG CONSTANT SMG$C_ALT_GRAPHICS = 4 ! Unused- DECLARE LONG CONSTANT SMG$C_UNKNOWN = 52 DECLARE LONG CONSTANT SMG$C_SUPPLEMENTAL = 6/ DECLARE LONG CONSTANT SMG$C_JIS_ROMAN = 7. DECLARE LONG CONSTANT SMG$C_JIS_KANA = 8+ DECLARE LONG CONSTANT SMG$C_KANJI = 9, DECLARE LONG CONSTANT SMG$C_HANZI = 10, e DECLARE LONG CONSTANT SMG$C_HANYU = 11- DECLARE LONG CONSTANT SMG$C_HANGUL = 12/ DECLARE LONG CONSTANT SMG$C_KS_ROMAN = 13 ! E ! The following constants define corner cursor positions used in ! SMG$HOME_CURSOR. ! U DECLARE LONG CONSTANT SMG$C_UPPER_LEFT = 0 ! Home cursor to upper left cornerU DECLARE LONG CONSTANT SMG$C_LOWER_LEFT = 1 ! Home cursor to lower left cornerW DECLARE LONG CONSTANT SMG$C_UPPER_RIGHT = 2 ! Home cursor to upper r f ight cornerW DECLARE LONG CONSTANT SMG$C_LOWER_RIGHT = 3 ! Home cursor to lower right corner ! = ! The following constants define label positions used in ! SMG$LABEL_BORDER. ! H DECLARE LONG CONSTANT SMG$K_TOP = 0 ! Place label on top borderM DECLARE LONG CONSTANT SMG$K_BOTTOM = 1 ! Place label on bottom borderI DECLARE LONG CONSTANT SMG$K_LEFT = 2 ! Place label on left borderK DECLARE LONG CONSTANT SMG$K_RIGHT = 3 ! Place label on rig g ht border ! 8 ! The following constants define menu types used in ! SMG$CREATE_MENU. ! D DECLARE LONG CONSTANT SMG$K_BLOCK = 0 ! Matrix of menu itemsP DECLARE LONG CONSTANT SMG$K_VERTICAL = 1 ! Vertical vector of menu itemsT DECLARE LONG CONSTANT SMG$K_HORIZONTAL = 2 ! Horizontal vector of menu items ! 7 ! Master color wheel for screen background colors.0 ! Used with SMG$CHANGE_PBD_CHARACTERISTICS. ! J DECLARE LONG CONSTANT SMG$h C_COLOR_UNKNOWN = 0 ! Unknown backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_WHITE = 1 ! White backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_BLACK = 2 ! Black backgroundD DECLARE LONG CONSTANT SMG$C_COLOR_BLUE = 3 ! Blue backgroundD DECLARE LONG CONSTANT SMG$C_COLOR_CYAN = 4 ! Cyan backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_GREEN = 5 ! Green backgroundJ DECLARE LONG CONSTANT SMG$C_COLOR_MAGENTA = 6 ! Magenta backgroundB DECLARE LONG CONSTANT SMi G$C_COLOR_RED = 7 ! Red backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_YELLOW = 8 ! Yellow backgroundF DECLARE LONG CONSTANT SMG$C_COLOR_LIGHT = 9 ! Light backgroundE DECLARE LONG CONSTANT SMG$C_COLOR_DARK = 10 ! Dark backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER1 = 11 ! User 1 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER2 = 12 ! User 2 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER3 = 13 ! User 3 backgroundH DECLARE LONG CONSTANT j SMG$C_COLOR_USER4 = 14 ! User 4 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER5 = 15 ! User 5 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER6 = 16 ! User 6 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER7 = 17 ! User 7 backgroundH DECLARE LONG CONSTANT SMG$C_COLOR_USER8 = 18 ! User 8 background ! < ! The following constants describe the type of terminal7 ! and are used with SMG$GET_PASTEBOARD_ATTRIBUTES. ! > DECLARE LONG CONSTANT k SMG$K_UNKNOWN = 0 ! Unknown type5 DECLARE LONG CONSTANT SMG$K_VT05 = 1 ! Unused5 DECLARE LONG CONSTANT SMG$K_VT52 = 2 ! Unused6 DECLARE LONG CONSTANT SMG$K_VT100 = 3 ! UnusedO DECLARE LONG CONSTANT SMG$K_VTFOREIGN = 4 ! Foreign terminal ( ft1-8 )B DECLARE LONG CONSTANT SMG$K_HARDCOPY = 5 ! Hardcopy deviceD DECLARE LONG CONSTANT SMG$K_VTTERMTABLE = 6 ! Video terminalS DECLARE LONG CONSTANT SMG$K_FIRST_PRIV_TYPE = 191 ! Used internally by SMG l $ ! < ! Define bits, masks, and fields for the control modes. ! F DECLARE LONG CONSTANT SMG$K_BUF_ENABLED = 0 ! Enable BufferingG DECLARE LONG CONSTANT SMG$K_MINUPD = 1 ! Enable minimal update K DECLARE LONG CONSTANT SMG$K_CLEAR_SCREEN = 2 ! Clear screen on exitH DECLARE LONG CONSTANT SMG$K_NOTABS = 3 ! Don't use physical tabsF DECLARE LONG CONSTANT SMG$K_PROTECT = 4 ! Protect against ASTsL DECLARE LONG CONSTANT SMG$K_IGNORE = 5 ! Don't m output PBD if batchedS DECLARE LONG CONSTANT SMG$K_RELEASE_PBD = 6 ! Don't touch users part of PBD; DECLARE LONG CONSTANT SMG$M_BUF_ENABLED = x'00000001'6 DECLARE LONG CONSTANT SMG$M_MINUPD = x'00000002'< DECLARE LONG CONSTANT SMG$M_CLEAR_SCREEN = x'00000004'6 DECLARE LONG CONSTANT SMG$M_NOTABS = x'00000008'7 DECLARE LONG CONSTANT SMG$M_PROTECT = x'00000010'6 DECLARE LONG CONSTANT SMG$M_IGNORE = x'00000020'; DECLARE LONG CONSTANT SMG$M_RELEASE_PBD n = x'00000040'7 DECLARE LONG CONSTANT SMG$m_spare15 = x'FFFFFF80'2 DECLARE LONG CONSTANT SMG$S_SMGMODE_BITS = 4 record SMGMODE_BITS ! Enable buffering, ! Enable minimal update (default)! ! Clear screen on exit$ ! Don't use physical tabs! ! Protect against ASTs( ! Don't output PBD if batched* ! Don't touch users part of PBD ! extra bitst LONG BUF_ENABLED_bits ! COMMENT ADDED BY o SDL - BUF_ENABLED_bits contains bits BUF_ENABLED through spare15 end record SMGMODE_BITS  ! ! Key definition attributes ! : DECLARE LONG CONSTANT SMG$M_KEY_NOECHO = x'00000001'= DECLARE LONG CONSTANT SMG$M_KEY_TERMINATE = x'00000002'8 DECLARE LONG CONSTANT SMG$M_KEY_LOCK = x'00000004'= DECLARE LONG CONSTANT SMG$M_KEY_PROTECTED = x'00000008'< DECLARE LONG CONSTANT SMG$M_KEY_SETSTATE = x'00000010'7 DECLARE LONG CONSTANT SMG$m_spare18 = p x'FFFFFFE0'2 DECLARE LONG CONSTANT SMG$S_KEY_DEF_ATTR = 4 record SMG$R_KEY_DEF_ATTR ! Don't echo strings% ! This key terminates read ! Lock new state$ ! Definition is protected2 ! Definition sets a state (output only) ! extra bitsq LONG KEY_NOECHO_bits ! COMMENT ADDED BY SDL - KEY_NOECHO_bits contains bits KEY_NOECHO through spare18# end record SMG$R_KEY_DEF_ATTR  ! A ! Defi q ne bit masks and values for display renditions. ! 4 DECLARE LONG CONSTANT SMG$M_BOLD = x'00000001'7 DECLARE LONG CONSTANT SMG$M_REVERSE = x'00000002'5 DECLARE LONG CONSTANT SMG$M_BLINK = x'00000004'9 DECLARE LONG CONSTANT SMG$M_UNDERLINE = x'00000008'9 DECLARE LONG CONSTANT SMG$M_INVISIBLE = x'00000010'5 DECLARE LONG CONSTANT SMG$M_USER1 = x'00000100'5 DECLARE LONG CONSTANT SMG$M_USER2 = x'00000200'5 DECLARE LONG CONSTANT SMG$M_USER3 = x'0000 r 0400'5 DECLARE LONG CONSTANT SMG$M_USER4 = x'00000800'5 DECLARE LONG CONSTANT SMG$M_USER5 = x'00001000'5 DECLARE LONG CONSTANT SMG$M_USER6 = x'00002000'5 DECLARE LONG CONSTANT SMG$M_USER7 = x'00004000'5 DECLARE LONG CONSTANT SMG$M_USER8 = x'00008000'7 DECLARE LONG CONSTANT SMG$m_spare14 = x'FFFF0000'1 DECLARE LONG CONSTANT SMG$S_SMGDEF_BITS = 4 record SMGDEF_BITS ! Bold rendition$ ! Reverse video rendition ! Bs link rendition ! Underline rendition ! Invisible rendition$ ! internally used by SMG$ ! User rendition 1 ! User rendition 2 ! User rendition 3 ! User rendition 4 ! User rendition 5 ! User rendition 6 ! User rendition 7 ! User rendition 8 ! extra bits_ LONG BOLD_bits ! COMMENT ADDED BY SDL - BOLD_bits contains bits BOLD through spare14 t end record SMGDEF_BITS = DECLARE LONG CONSTANT SMG$M_NORMAL = 0 ! no bits set  ! 3 ! The following masks define values to be used: ! to specify a display attribute. These may be added/ ! together to specify multiple attributes. ! 6 DECLARE LONG CONSTANT SMG$M_BORDER = x'00000001': DECLARE LONG CONSTANT SMG$M_TRUNC_ICON = x'00000002'@ DECLARE LONG CONSTANT SMG$M_DISPLAY_CONTROLS = x'00000004'< DECLARE LONG CONSTANT SMG$M_USER_DISPLAY = u x'00000008'< DECLARE LONG CONSTANT SMG$M_BLOCK_BORDER = x'00000010'? DECLARE LONG CONSTANT SMG$M_PROTECT_DISPLAY = x'00000020'7 DECLARE LONG CONSTANT SMG$m_spare12 = x'FFFFFFC0'8 DECLARE LONG CONSTANT SMG$S_DISPLAY_ATTRIBUTES = 4 record DISPLAY_ATTRIBUTES ! Display is bordered$ ! Truncation icon enabled& ! Display carriage controls# ! User display for DEBUG& ! Display is block bordered) ! Protect dis v play against ASTs ! extra bitse LONG BORDER_bits ! COMMENT ADDED BY SDL - BORDER_bits contains bits BORDER through spare12# end record DISPLAY_ATTRIBUTES  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_SUBPROCESS. ! 7 DECLARE LONG CONSTANT SMG$M_TRUSTED = x'00000001'8 DECLARE LONG CONSTANT SMG$M_AUTHPRIV = x'00000002'9 DECLARE LONG CONSTANT SMG$M_SUBSYSTEM = x'00000004'7 DECLARE LONG w CONSTANT SMG$m_spare20 = x'FFFFFFF8'= DECLARE LONG CONSTANT SMG$S_CREATE_SUBPROCESS_FLAGS = 4* record SMG$R_CREATE_SUBPROCESS_FLAGS- ! Set TRUSTED flag for LIB$SPAWN- ! Set AUTHPRIV flag for LIB$SPAWN- ! Set SUBSYSTEM flag for LIB$SPAWN ! extra bitsh LONG TRUSTED_bits ! COMMENT ADDED BY SDL - TRUSTED_bits contains bits TRUSTED through spare20. end record SMG$R_CREATE_SUBPROCESS_FLAGS  ! D ! The following x defines bits used with subprocess manipulation. ! < DECLARE LONG CONSTANT SMG$M_DATA_FOLLOWS = x'00000001'8 DECLARE LONG CONSTANT SMG$M_SEND_EOF = x'00000002'8 DECLARE LONG CONSTANT SMG$M_NO_PRINT = x'00000004'7 DECLARE LONG CONSTANT SMG$m_spare11 = x'FFFFFFF8'6 DECLARE LONG CONSTANT SMG$S_SUBPROCESS_FLAGS = 4# record SMG$R_SUBPROCESS_FLAGS* ! The next call specifies data.2 ! Send an end-of-file to the subprocess1 ! Do not ou y tput command to the display ! extra bitsw LONG DATA_FOLLOWS_bits ! COMMENT ADDED BY SDL - DATA_FOLLOWS_bits contains bits DATA_FOLLOWS through spare11' end record SMG$R_SUBPROCESS_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$DELETE_PASTEBOARD. ! 9 DECLARE LONG CONSTANT SMG$M_ERASE_PBD = x'00000001'> DECLARE LONG CONSTANT SMG$M_IGNORE_BATCHED = x'00000002'7 DECLARE LONG CONSTANT SMG$m_sparz e10 = x'FFFFFFFC'6 DECLARE LONG CONSTANT SMG$S_DELETE_PBD_FLAGS = 4# record SMG$R_DELETE_PBD_FLAGS! ! Erase the pasteboard* ! Delete even if pbd is batched ! extra bitsn LONG ERASE_PBD_bits ! COMMENT ADDED BY SDL - ERASE_PBD_bits contains bits ERASE_PBD through spare10' end record SMG$R_DELETE_PBD_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$CREATE_PASTEBOARD. ! = DE { CLARE LONG CONSTANT SMG$M_KEEP_CONTENTS = x'00000001'; DECLARE LONG CONSTANT SMG$M_WORKSTATION = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare9 = x'FFFFFFFC'6 DECLARE LONG CONSTANT SMG$S_CREATE_PBD_FLAGS = 4# record SMG$R_CREATE_PBD_FLAGS' ! Don't erase the pasteboard. ! Pasteboard is DECwindows terminal ! extra bitsy LONG KEEP_CONTENTS_bits ! COMMENT ADDED BY SDL - KEEP_CONTENTS_bits contains bits KEEP_CONTENTS through spare9 | ' end record SMG$R_CREATE_PBD_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$READ_xxxx. ! 9 DECLARE LONG CONSTANT SMG$M_FUNC_KEYS = x'00000001'6 DECLARE LONG CONSTANT SMG$M_NOKEEP = x'00000002'8 DECLARE LONG CONSTANT SMG$M_NORECALL = x'00000004'6 DECLARE LONG CONSTANT SMG$m_spare8 = x'FFFFFFF8'0 DECLARE LONG CONSTANT SMG$S_READ_FLAGS = 4 record SMG$R_READ_FLAGS# ! Disable line-editting } .. ! Don't save input in recall buffer/ ! Disable input recall for this call ! extra bitsm LONG FUNC_KEYS_bits ! COMMENT ADDED BY SDL - FUNC_KEYS_bits contains bits FUNC_KEYS through spare8! end record SMG$R_READ_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$SET_CURSOR_MODE. ! : DECLARE LONG CONSTANT SMG$M_CURSOR_OFF = x'00000001'9 DECLARE LONG CONSTANT SMG$M_CURSOR_ON = x' ~ 00000002'; DECLARE LONG CONSTANT SMG$M_SCROLL_JUMP = x'00000004'= DECLARE LONG CONSTANT SMG$M_SCROLL_SMOOTH = x'00000008'7 DECLARE LONG CONSTANT SMG$m_spare16 = x'FFFFFFF0'6 DECLARE LONG CONSTANT SMG$S_SET_CURSOR_FLAGS = 4# record SMG$R_SET_CURSOR_FLAGS) ! Turn the physical cursor off( ! Turn the physical cursor on ! Set jump scroll ! Set smooth scroll ! extra bitsq LONG CURSOR_OFF_bits ! COMMENT  ADDED BY SDL - CURSOR_OFF_bits contains bits CURSOR_OFF through spare16' end record SMG$R_SET_CURSOR_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$GET_DISPLAY_ATTR. ! 8 DECLARE LONG CONSTANT SMG$M_VIEWPORT = x'00000001': DECLARE LONG CONSTANT SMG$M_SUBPROCESS = x'00000002'4 DECLARE LONG CONSTANT SMG$M_MENU = x'00000004'6 DECLARE LONG CONSTANT SMG$m_spare7 = x'FFFFFFF8'7 DECLARE LONG CONSTANT SMG$S_GET_DI SPLAY_FLAGS = 4$ record SMG$R_GET_DISPLAY_FLAGS( ! Display contains a viewport* ! Display contains a subprocess$ ! Display contains a menu ! extra bitsj LONG VIEWPORT_bits ! COMMENT ADDED BY SDL - VIEWPORT_bits contains bits VIEWPORT through spare7( end record SMG$R_GET_DISPLAY_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_CHARS. ! : DECLARE LONG CONSTANT SMG$M_ ERASE_LINE = x'00000001'< DECLARE LONG CONSTANT SMG$M_ERASE_TO_EOL = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare6 = x'FFFFFFFC'5 DECLARE LONG CONSTANT SMG$S_PUT_CHARS_FLAGS = 4" record SMG$R_PUT_CHARS_FLAGS" ! Erase the entire line- ! Erase from cursor to end of line ! extra bitsp LONG ERASE_LINE_bits ! COMMENT ADDED BY SDL - ERASE_LINE_bits contains bits ERASE_LINE through spare6& end record SMG$R_PUT_CHARS_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$MOVE_TEXT. ! 9 DECLARE LONG CONSTANT SMG$M_TEXT_SAVE = x'00000001'9 DECLARE LONG CONSTANT SMG$M_TEXT_ONLY = x'00000002'7 DECLARE LONG CONSTANT SMG$m_spare17 = x'FFFFFFFC'5 DECLARE LONG CONSTANT SMG$S_MOVE_TEXT_FLAGS = 4" record SMG$R_MOVE_TEXT_FLAGS- ! Don't erase text after moving it" ! Don't move attributes ! extra bitsn LONG TE XT_SAVE_bits ! COMMENT ADDED BY SDL - TEXT_SAVE_bits contains bits TEXT_SAVE through spare17& end record SMG$R_MOVE_TEXT_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for+ ! SMG$PUT_PASTEBOARD and SMG$SNAPSHOT. ! 9 DECLARE LONG CONSTANT SMG$M_FORM_FEED = x'00000001'6 DECLARE LONG CONSTANT SMG$m_spare5 = x'FFFFFFFE'4 DECLARE LONG CONSTANT SMG$S_SNAPSHOT_FLAGS = 4! record SMG$R_SNAPSHOT_FLAGS. ! Output form f eed before first row ! extra bitsm LONG FORM_FEED_bits ! COMMENT ADDED BY SDL - FORM_FEED_bits contains bits FORM_FEED through spare5% end record SMG$R_SNAPSHOT_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$PUT_xxxx. ! 9 DECLARE LONG CONSTANT SMG$M_WRAP_CHAR = x'00000001'9 DECLARE LONG CONSTANT SMG$M_WRAP_WORD = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare4 = x'FFFFFFFC'4 DECLARE LO NG CONSTANT SMG$S_PUT_LINE_FLAGS = 4! record SMG$R_PUT_LINE_FLAGS1 ! Do character wrapping at end of line, ! Do word wrapping at end of line ! extra bitsm LONG WRAP_CHAR_bits ! COMMENT ADDED BY SDL - WRAP_CHAR_bits contains bits WRAP_CHAR through spare4% end record SMG$R_PUT_LINE_FLAGS  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$SET_KEYPAD_MODE. ! B DECLARE LONG CONSTANT SMG$M_ KEYPAD_APPLICATION = x'00000001'> DECLARE LONG CONSTANT SMG$M_KEYPAD_NUMERIC = x'00000002'6 DECLARE LONG CONSTANT SMG$m_spare3 = x'FFFFFFFC'2 DECLARE LONG CONSTANT SMG$S_KEYPAD_MODES = 4 record SMG$R_KEYPAD_MODES ! Application keypad ! Numeric keypad ! extra bits LONG KEYPAD_APPLICATION_bits ! COMMENT ADDED BY SDL - KEYPAD_APPLICATION_bits contains bits KEYPAD_APPLICATION through & ! spare3# end record SMG$R_KEYPAD_ MODES  ! C ! The following defines bits used with the FLAGS parameter for ! SMG$GET_PASTING_INFO. ! > DECLARE LONG CONSTANT SMG$M_DISPLAY_PASTED = x'00000001'7 DECLARE LONG CONSTANT SMG$m_spare19 = x'FFFFFFFE'8 DECLARE LONG CONSTANT SMG$S_PASTING_INFO_FLAGS = 4% record SMG$R_PASTING_INFO_FLAGS ! Display is pasted ! extra bits} LONG DISPLAY_PASTED_bits ! COMMENT ADDED BY SDL - DISPLAY_PASTED_bits contains bits DIS PLAY_PASTED through spare19) end record SMG$R_PASTING_INFO_FLAGS  ! > ! The following defines bits used with menu manipulation. ! ; DECLARE LONG CONSTANT SMG$M_REMOVE_ITEM = x'00000001'< DECLARE LONG CONSTANT SMG$M_FIXED_FORMAT = x'00000002'< DECLARE LONG CONSTANT SMG$M_DOUBLE_SPACE = x'00000004'< DECLARE LONG CONSTANT SMG$M_RETURN_IMMED = x'00000008': DECLARE LONG CONSTANT SMG$M_ERASE_MENU = x'00000010'9 DECLARE LONG CONSTANT SMG$M_WIDE _MENU = x'00000020'9 DECLARE LONG CONSTANT SMG$M_WRAP_MENU = x'00000040': DECLARE LONG CONSTANT SMG$M_FULL_FIELD = x'00000080'6 DECLARE LONG CONSTANT SMG$m_spare2 = x'FFFFFF00'0 DECLARE LONG CONSTANT SMG$S_MENU_FLAGS = 4 record SMG$R_MENU_FLAGS" ! Only select item once ! Use fixed size cols# ! Double space menu rows! ! Ret on non-arrow key% ! Erase menu when deleting ! Wide menu items* ! Wrap menu items top to bottom# ! Highlight entire field? ! SCROLL_BARS bitfield mask; /* Use scroll bar indicatorsA ! MARK_ITEM bitfield mask; /* Use def rend for chosen items ! extra bitss LONG REMOVE_ITEM_bits ! COMMENT ADDED BY SDL - REMOVE_ITEM_bits contains bits REMOVE_ITEM through spare2! end record SMG$R_MENU_FLAGS  ! 6 ! The following are used with SMG$PUT_LINE_xxxx, 2 ! SMG$SCROLL_DISPLAY_AREA, and SMG$DRAW_CHAR. ! 2 DECLARE LONG CONSTANT SMG$M_UP = x'00000001'4 DECLARE LONG CONSTANT SMG$M_DOWN = x'00000002'5 DECLARE LONG CONSTANT SMG$M_RIGHT = x'00000004'4 DECLARE LONG CONSTANT SMG$M_LEFT = x'00000008'6 DECLARE LONG CONSTANT SMG$m_spare1 = x'FFFFFFF0'1 DECLARE LONG CONSTANT SMG$S_SCROLL_DIRS = 4 record SCROLL_DIRS ! Up ! Down ! Right ! Left ! extra bitsX LONG UP_bits ! COMMENT ADDED BY S DL - UP_bits contains bits UP through spare1 end record SCROLL_DIRS  !  ! Define data structures ! Z DECLARE LONG CONSTANT SMG$C_BAND_INFORMATION_TABLE = 12 ! Length of table in bytes ! Y DECLARE LONG CONSTANT SMG$C_PASTEBOARD_INFO_BLOCK = 36 ! Length of table in bytes ! W DECLARE LONG CONSTANT SMG$C_KEYBOARD_INFO_BLOCK = 36 ! Length of table in bytes- DECLARE LONG CONSTANT SMG$S_SMGDEF = 36 record SMGDEF variant  ! ? ! When an out-of-band AST triggers, the user's AST routine9 ! will get called. The first argument passed to his: ! routine is the address of a Band Information Table.7 ! The offsets into this table are described below.8 ! To make it easy to access from certain languages,8 ! the table is arranged so that it is convenient toA ! reference it as a longword vector as well as a byte block. !  case1 group SMG$R_BAND_INFORMATIO N_TABLE< LONG SMG$L_PASTEBOARD_ID ! Pasteboard IDB LONG SMG$L_ARG ! User's AST argument/ group SMG$R_CHARACTER_OVERLAY variant caseD BYTE SMG$B_CHARACTER ! The character typed caseK LONG SMG$L_CHARACTER ! The character and 3 spaces end variant3 end group SMG$R_CHARACTER_OVER LAY5 end group SMG$R_BAND_INFORMATION_TABLE4 ! When SMG$GET_PASTEBOARD_ATTRIBUTES is called,9 ! it returns data in a pasteboard information block.: ! The following structure is used to reference fields ! in this block.8 ! Items marked with a plus (+) will be 0 unless the0 ! device is a terminal (DEVCLASS=DC$_TERM). !  case0 group SMG$R_PASTEBOARD_INFO_BLOCKE LONG SMG$L_DEVCHAR ! Device characte risticsN LONG SMG$L_DEVDEPEND ! Specific characteristics ( 1 )N LONG SMG$L_DEVDEPEND2 ! Specific characteristics ( 2 )N BYTE SMG$B_DEVCLASS ! Device class ( e.g. DC$_TERM )G BYTE SMG$B_SMG_DEVTYPE ! Internal SMG device typeW BYTE SMG$B_PHY_DEVTYPE ! Physical device type ( e.g. DT$_VT100 )G BYTE SMG$B_ROWS ! Number of rows on device=  WORD SMG$W_WIDTH ! Terminal widthC BYTE SMG$B_COLOR ! PBD background colorG BYTE SMG$B_PARITY ! Parity attributes ( + )D WORD SMG$W_SPEED ! Terminal Speed ( + )J WORD SMG$W_FILL ! Fill characteristics ( + )K WORD SMG$W_CURSOR_ROW ! Row where physical cursor is ! (1-origin)K WORD SMG$W_CURSOR_COL ! Col where physical cursor is ! (1-origin)D LONG SMG$L_CURSOR_DID ! Display id of topmost! ! display that cursor is in. ! 0 if cursor is not in a ! virtual displayN LONG SMG$L_DEVDEPEND3 ! Specific characteristics ( 3 )4 end group SMG$R_PASTEBOARD_INFO_BLOCK2 ! When SMG$GET_KEYBOARD_ATTRIBUTES is called,7 ! it returns data in a keyboard information block.: ! The following structure is used to reference fields ! in this block.8 ! Items marked with a plus (+) will be 0 unless the0 ! device is a terminal (DEVCLASS=DC$_TERM). !  case. group SMG$R_KEYBOARD_INFO_BLOCKE LONG SMG$l_fill1 ! Device characteristicsN LONG SMG$l_fill2 ! Specific characteristics ( 1 )N LONG SMG$l_fill3 ! Specific characteristics ( 2 )N BYTE SMG$b_fill4 ! Device class ( e.g. DC$_TERM )K  BYTE SMG$B_RECALL_SIZE ! Size of recall buffer ( + )W BYTE SMG$b_fill5 ! Physical device type ( e.g. DT$_VT100 )U BYTE SMG$B_TYPEAHEAD_CHAR ! First char in typeahead buffer ( + )= WORD SMG$w_fill6 ! Terminal width[ WORD SMG$W_TYPEAHEAD_COUNT ! Number of chars in typeahead buffer ( + )" LONG SMG$l_fill7" LONG SMG$l_fill8" LONG SMG$l_fill9G LONG SMG$l_fill10 ! Device characteristics 32 end group SMG$R_KEYBOARD_INFO_BLOCK end variant end record SMGDEF  ! H ! Define the out-of-band information table used when an out-of-band0 ! AST routine is called as it's own record. ! 8 DECLARE LONG CONSTANT SMG$S_OUT_OF_BAND_TABLE = 12$ record SMG$R_OUT_OF_BAND_TABLE< LONG SMG$L_PBD_ID ! Pasteboard IDB LONG SMG$L_USER_ARG ! User's AST argument! group SMG$R_CHAR_OVERLAY variant caseB BYTE SMG$B_CHAR ! The character typed caseI LONG SMG$L_CHAR ! The character and 3 spaces end variant% end group SMG$R_CHAR_OVERLAY( end record SMG$R_OUT_OF_BAND_TABLE U DECLARE LONG CONSTANT SMG$C_OUT_OF_BAND_TABLE = 12 ! Length of table in bytes ! E ! Define the subprocess information table used when a subprocess0 ! AST routine is called as it's own record. ! < DECLARE LONG CONSTANT SMG$S_SUBPROCESS_INFO_TABLE = 12( record SMG$R_SUBPROCESS_INFO_TABLE9 LONG SMG$L_DISP_ID ! Display IDB LONG SMG$L_USR_ARG ! User's AST argumentI LONG SMG$L_STATUS ! Status of executed command, end record SMG$R_SUBPROCESS_INFO_TABLE Y DECLAR E LONG CONSTANT SMG$C_SUBPROCESS_INFO_TABLE = 12 ! Length of table in bytes ! ; ! Define an information table that can be used by bothD ! SMG$GET_PASTEBOARD_ATTRIBUTES and SMG$GET_KEYBOARD_ATTRIBUTES ! as it's own record. ! ; DECLARE LONG CONSTANT SMG$S_ATTRIBUTE_INFO_BLOCK = 36' record SMG$R_ATTRIBUTE_INFO_BLOCKE LONG SMG$L_DEV_CHAR ! Device characteristicsN LONG SMG$L_DEV_DEPEND ! Specific characteristics ( 1 )N LONG SMG$L_DEV_DEPEND2 ! Specific characteristics ( 2 )N BYTE SMG$B_DEV_CLASS ! Device class ( e.g. DC$_TERM ) group SMG$R_DEV_OVERLAY variant caseG BYTE SMG$B_PBD_TYPE ! Internal SMG device type caseK BYTE SMG$B_RECALL_NUM ! Size of recall buffer ( + ) end variant$ end group SMG$R_DEV_OVERLAYW BYTE SMG$B_DEV_ TYPE ! Physical device type ( e.g. DT$_VT100 ) group SMG$R_ROW_OVERLAY variant caseG BYTE SMG$B_NUM_ROWS ! Number of rows on device caseT BYTE SMG$B_TYPEAHD_CHAR ! First char in typeahead buffer ( + ) end variant$ end group SMG$R_ROW_OVERLAY= WORD SMG$W_NUM_COLUMNS ! Terminal width" group SMG$R_COUNT_OVERLAY vari ant caseY WORD SMG$W_TYPEAHD_CNT ! Number of chars in typeahead buffer ( + ) case* group SMG$R_COUNT_STRUCTC BYTE SMG$B_PBD_COLOR ! PBD background colorG BYTE SMG$B_DEV_PARITY ! Parity attributes ( + ). end group SMG$R_COUNT_STRUCT end variant& end group SMG$R_COUNT_OVERLAYD WORD SMG$W_DEV_SPEED ! Terminal Speed ( + )J WORD SMG$W_DEV_FILL ! Fill characteristics ( + )K WORD SMG$W_PHYS_CURSOR_ROW ! Row where physical cursor isK WORD SMG$W_PHYS_CURSOR_COL ! Col where physical cursor isL LONG SMG$L_DISPLAY_ID ! Display containing phy cursorN LONG SMG$L_DEV_DEPEND3 ! Specific characteristics ( 3 )+ end record SMG$R_ATTRIBUTE_INFO_BLOCK X DECLARE LONG CONSTANT SMG$C_ATTRIBUTE_INFO_BLOCK = 36 ! Length of table in bytesww 96PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:35.38 ! % ! FILE: SMGMSG.MSG EDIT: SL1035 ! R ! ****************************************************** ********************** ! * *N ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1985, 1986, 1987, 1994 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBI LITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! J ! 1-035 MODIFY THE TEXT FOR SEVERAL MESSAGES TO MATCH THE HELP TEXT, ( ! WHICH IS CORRECT. SL 28-SEP-1994= ! 1-034 ADD /MACRO=$SMGMSG FOR STARLETSD. TS 7-MAY-1986< ! 1-033 CHANGE WINTRUFIT TO WINTRUNCFIT JCW 18-MAR- 19864 ! 1-032 ADD SUBPROCESS MESSAGES. TS 12-DEC-19853 ! 1-031 ADD VIEWPORT MESSAGES. JCW 21-NOV-1985M ! 1-030 ADD SMG$_GETDATSTR FOR USE IN HELP TEXT DISPLAY. TS 17-OCT-1985L ! 1-029 ADD SMG$_NOTIMP - NOT IMPLEMENTED ERROR MESSAGE. JCW 2-JUL-19858 ! 1-028 ADD LINNOTFND AND EXPTOOCOM. TS 28-MAY-1985D ! 1-027 ADD DISREQ, LENNOTEQL, LENMUSONE FOR SMG$READ_VERIFY. G ! ADD FILESPEC TO TERMTABLE COMPILER ERROR MESSAGES. TS 8-JAN-1985' ! 1-001 ORIGINAL. PLL 16-M AR-1983 ! - ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! SMG$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. ! Q ! THE NAMES OF ALL PROCEDURES USING EACH ERROR CONDITION VALUE SHOULD APPEAR; ! IN THE COMMENTS INCLUDED WITH EACH ERROR DE FINITION. !  ! MACRO-32 PROGRAMMING: !  ! THE MACROS CALL: !  ! $SMGDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. !  ! -) ! TEMPLATE FOR DOCUMENTING MESSAGES.= ! EACH EXPLANATION FOLLOWS THE MESSAGE IT APPLIES TO AND# ! IS FOLLOWED BY A BLANK LINE.K ! BE SURE NOT TO  USE THE SEQUENCE "++" AFTER A "?" IN REGULAR COMMENTSB ! AS THIS SEQUENCE BEGINS A DOCUMENTATION SEQUENCE AND CAN BE= ! SEARCHED FOR IF AND WHEN THE PROCESS OF EXTRACTING THE' ! DOCUMENTATION BECOMES AUTOMATED. ! ++ ! FACILITY: SMG ! EXPLANATION: X ! USER ACTION: Y ! --" ! ; SET LH TO 18 (DECIMAL).. DECLARE LONG CONSTANT SMG$_FACILITY = 181 DECLARE LONG CONSTANT SMG$_NORMAL = 1212417 ! ++ ! FACILITY: SMG1 ! EXPLANATION : NORMAL SUCCESSFUL COMPLETION. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_PREDEFREP = 1212433 ! ++ ! FACILITY: SMGC ! EXPLANATION: A PREVIOUS KEY DEFINITION WAS REPLACED BY A NEW ! DEFINITION. ! USER ACTION: NONE ! -- ! +9 ! THE NEXT THREE MESSAGES ARE USED BY THE "batching"G ! PROCEDURES, SMG$BEGIN_DISPLAY_UPDATE AND SMG$END_DISPLAY_UPDATE.> ! THE TEXT OF THE MESSAGES SHOULD CHANGE IF WE DECIDE NOT+ ! TO PUBL ICLY USE THE TERM "batching". ! -4 DECLARE LONG CONSTANT SMG$_BATSTIPRO = 1212441 ! ++ ! FACILITY: SMG@ ! EXPLANATION: A USER TRIED TO END BATCHING (UPDATING) WITH+ ! A CALL TO SMG$END_DISPLAY_UPDATE OR0 ! SMG$END_PASTEBOARD_UPDATE. THIS DID NOT8 ! TERMINATE BATCHING BECAUSE THERE WERE MORE CALLS4 ! MADE TO BEGIN BATCHING THAN TO END BATCHING.B ! USER ACTION: NONE. SOME OUTER LEVEL ROUTINE PROBABLY STILL' ! WANTS BATCHING TO BE IN EFFE CT. ! --4 DECLARE LONG CONSTANT SMG$_BATWASOFF = 1212449 ! ++ ! FACILITY: SMG= ! EXPLANATION: A PROGRAM TRIED TO TURN OFF BATCHING WHEN! ! BATCHING WAS ALREADY OFF.A ! USER ACTION: PROBABLY NONE. CHECK THAT THERE WAS ONE CALL9 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --4 DECLARE LONG CONSTANT SMG$_BATWAS_ON = 1212457 ! ++ ! FACILITY: SMG< ! EXPLANATION: A PROGRAM TRIED TO TURN ON BATCHING WHEN3 ! BATCHING W AS ALREADY ON. THIS IS NORMAL IN ! A MODULAR ENVIRONMENT.8 ! USER ACTION: NONE. CHECK THAT THERE WAS ONE CALL9 ! TO TURN ON BATCHING FOR EACH CALL TO TURN IT OFF. ! --4 DECLARE LONG CONSTANT SMG$_PASALREXI = 1212465 ! ++ ! FACILITY: SMGE ! EXPLANATION: A USER TRIED TO CREATE A PASTEBOARD FOR A DEVICE,8 ! WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL IN: ! A MODULAR ENVIRONMENT. THE EXISTING PASTEBOARD ID ! IS RETURNED.A ! USER  ACTION: NONE. MAKE SURE YOU DON'T DELETE A PASTEBOARD( ! THAT YOU ACTUALLY DIDN'T CREATE. ! --4 DECLARE LONG CONSTANT SMG$_NOT_A_TRM = 1212473 ! ++ ! FACILITY: SMGE ! EXPLANATION: THIS IS AN INFORMATIONAL MESSAGE TELLING YOU THAT7 ! THE PASTEBOARD HAS BEEN CREATED, BUT THE OUTPUT! ! DEVICE IS NOT A TERMINAL. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_NO_MORMSG = 1212481 ! ++ ! FACILITY: SMGB ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FOUND THAT3 ! THERE WERE NO MORE MESSAGES TO BE OBTAINED. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_WILUSERMS = 1212489 ! ++ ! FACILITY: SMG@ ! EXPLANATION: NORMALLY THE SCREEN IS UPDATED AT THE END OF: ! EVERY OUTPUT OPERATION. IF, HOWEVER, THE 'DEVICE'7 ! IS ACTUALLY A FILE OR AN UNKNOWN TERMINAL, THEN6 ! THIS MESSAGE IS GIVEN AT THE TIME OUTPUT WOULD% ! HAVE BEEN SENT TO THE SCREEN. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_NOTRMSOUT = 1212497 ! ++ ! FACILITY: SMGG ! EXPLANATION: SMG$SNAPSHOT IS USED WITH FILES AND UNKNOWN DEVICES< ! TO CAPTURE THE CONTENTS OF THE PASTEBOARD AT VARIOUS: ! TIMES. IF SMG$SNAPSHOT IS CALLED FOR A PASTEBOARD: ! ASSOCIATED WITH A VIDEO TERMINAL, THEN IT TAKES NO6 ! ACTION AND RETURNS THIS INFORMATIONAL MESSAGE. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_NO_CH ADIS = 1212505 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE REQUESTED NUMBER OF COLUMNS TO CHANGE WAS ZERO,6 ! SO NOTHING IN THE VIRTUAL DISPLAY WAS CHANGED. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_PRISECMAP = 1212513 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN/ ! THE CALLER'S PRIVATE COPY OF TERMTABLE. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_GBLSECMAP = 1212521  ! ++ ! FACILITY: SMGB ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS FOUND IN= ! THE SYSTEM TERMTABLE. (REQUESTED TERMINAL DEFINITION9 ! DID NOT EXIST IN THE CALLER'S PRIVATE TERMTABLE.) ! USER ACTION: NONE ! --6 DECLARE LONG CONSTANT SMG$_WINTRUNCFIT = 1212529 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE VIEWPORT SPECIFICATION WILL NOT FIT WHOLLY WITHIN< ! THE VIRTUAL DISPLAY. THE VIEWPORT HAS BEEN TRUNCATED* ! TO FIT WIT HIN THE VIRTUAL DISPLAY. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_SUBALREXI = 1212537 ! ++ ! FACILITY: SMGE ! EXPLANATION: A USER TRIED TO CREATE A SUBPROCESS FOR A VIRTUAL? ! DISPLAY, WHEN ONE WAS ALREADY CREATED. THIS IS NORMAL # ! IN A MODULAR ENVIRONMENT.  ! USER ACTION: NONE.  ! --4 DECLARE LONG CONSTANT SMG$_NONBRDMSG = 1212545 ! ++ ! FACILITY: SMGB ! EXPLANATION: A CALL TO SMG$GET_BROADCAST_MESSAGE FO UND THAT9 ! THERE WAS A NON-BROADCAST MESSAGE TO BE OBTAINED. ! USER ACTION: NONE. ! --4 DECLARE LONG CONSTANT SMG$_FATERRLIB = 1212932 ! ++ ! FACILITY: SMG> ! EXPLANATION: AN INTERNAL ERROR HAS OCCURRED WITHIN SMG.= ! USER ACTION: CONTACT A DIGITAL SUPPORT REPRESENTATIVE. ! --1 DECLARE LONG CONSTANT SMG$_INVARG = 1212940 ! ++ ! FACILITY: SMGK ! EXPLANATION: THE VALUE OF SOME ARGUMENT IS NOT IN THE CORRECT RANGE.A ! USER ACTION: EXAMINE EACH ARGUMENT. DETERMINE WHICH ONE IS. ! OUT OF RANGE AND CORRECT YOUR PROGRAM. ! --1 DECLARE LONG CONSTANT SMG$_INVCOL = 1212948 ! ++ ! FACILITY: SMGJ ! EXPLANATION: AN INVALID COLUMN NUMBER WAS SPECIFIED. IT WAS EITHER8 ! LESS THAN 0 OR LARGER THAN THE NUMBER OF COLUMNS ! IN THE VIRTUAL DISPLAY.H ! USER ACTION: SPECIFY A VALID COLUMN NUMBER. COLUMNS ARE NUMBERED ! BEGINNING WITH 1. ! --4 DECLARE LONG CONSTANT SMG$_INVDIS_ID = 1212956 ! ++ ! FACILITY: SMG8 ! EXPLANATION: AN INVALID DISPLAY-ID WAS SPECIFIED.J ! USER ACTION: CHECK THAT YOU ARE PASSING THE DISPLAY ID BY REFERENCE4 ! NOT BY VALUE. ENSURE THAT THE DISPLAY ID WASB ! PREVIOUSLY SET UP BY A CALL TO SMG$CREATE_VIRTUAL_DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_INVPAS_ID = 1212964 ! ++ ! FACILITY: SMG; ! EXPLANATION: AN INVALID PASTEBOARD ID WAS SPECIFIED.M ! USER ACTION: CHECK THAT YOU ARE PASSING THE PASTEBOARD ID BY REFERENCE; ! NOT BY VALUE. (A REFERENCE TO A 0 IS VALID, SINCE 0= ! IS A LEGAL PASTEBOARD ID.) ENSURE THAT THE PASTEBOARD* ! WAS PREVIOUSLY SET UP BY A CALL TO= ! SMG$CREATE_PASTEBOARD AND THAT THE PASTEBOARD HAS NOT ! BEEN DELETED. ! --1 DECLARE LONG CONSTANT SMG$_INVROW = 1212972 ! ++ ! FACILITY: SMGG ! EXPLANATION: AN INVALID ROW NUMBER WAS SPECIFIED. IT WAS EITHER5 ! LESS THAN 0 OR LARGER THAN THE NUMBER OF ROWS ! IN THE VIRTUAL DISPLAY.B ! USER ACTION: SPECIFY A VALID ROW NUMBER. ROWS ARE NUMBERED ! BEGINNING WITH 1. ! --4 DECLARE LONG CONSTANT SMG$_DSPIN_USE = 1212980 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOTB ! LEGAL WHILE OUTPUT TO THE VIRTUAL DISPLAY IS BEING ACTIVE.A ! FOR EXAMPLE, YOU CAN'T OUTPUT TEXT TO A DISPLAY IN AN ASTA ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SA ME DISPLAY.M ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE UPDATES5 ! TO THE SAME VIRTUAL DISPLAY AT THE SAME TIME. ! --4 DECLARE LONG CONSTANT SMG$_TOOMANPAS = 1212988 ! ++ ! FACILITY: SMGB ! EXPLANATION: AN INTERNAL LIMIT ON THE NUMBER OF PASTEBOARDS5 ! THAT YOUR PROGRAM MAY HAVE HAS BEEN EXCEEDED." ! THE LIMIT IS CURRENTLY 31.* ! USER ACTION: USE FEWER PASTEBOARDS. ! --4 DECLARE LONG CONSTANT SMG$_WRONUMARG = 1 212996 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN SMG ROUTINE WAS CALLED WITH TOO FEW ARGUMENTS4 ! (LESS THAN THE NUMBER OF REQUIRED ARGUMENTS) ! OR TOO MANY ARGUMENTS.= ! USER ACTION: CORRECT THE CODE TO CALL THE ROUTINE WITH' ! THE PROPER NUMBER OF ARGUMENTS. ! --4 DECLARE LONG CONSTANT SMG$_INVKBD_ID = 1213004 ! ++ ! FACILITY: SMG6 ! EXPLANATION: AN INVALID KEYBOARD ID WAS PASSED.K ! USER ACTION: CHECK THAT YOU ARE PASSING THE K EYBOARD ID BY REFERENCE5 ! NOT BY VALUE. ENSURE THAT THE KEYBOARD ID WAS' ! PREVIOUSLY SET UP BY A CALL TO $ ! SMG$CREATE_VIRTUAL_KEYBOARD. ! --4 DECLARE LONG CONSTANT SMG$_INVKTB_ID = 1213012 ! ++ ! FACILITY: SMG7 ! EXPLANATION: AN INVALID KEY TABLE ID WAS PASSED.L ! USER ACTION: CHECK THAT YOU ARE PASSING THE KEY TABLE ID BY REFERENCE6 ! NOT BY VALUE. ENSURE THAT THE KEY TABLE ID WAS' ! PREVIOUSLY SET UP BY A CALL TO  ! SMG$CR EATE_KEY_TABLE. ! --4 DECLARE LONG CONSTANT SMG$_INVMAXLEN = 1213020 ! ++ ! FACILITY: SMGD ! EXPLANATION: THE MAXIMUM LENGTH SPECIFIED FOR AN INPUT STRING ! WAS TOO LONG.E ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS AN INPUT) ! STRING OF 512 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_FILTOOLON = 1213028 ! ++ ! FACILITY: SMG6 ! EXPLANATION: THE LENGTH OF THE SPECIFIED STRING ! WAS TOO LONG.C ! USER ACTION: CORRECT YOUR PROGRAM SO THAT IT REQUESTS A FILE' ! NAME OF 255 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_PROTOOLON = 1213036 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE LENGTH OF A PROMPT STRING EXCEEDED 512 CHARACTERS.A ! USER ACTION: SHORTEN THE PROMPT TO 512 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_NOTPASTED = 1213044 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN ATTEMPT WAS MADE TO UNPASTE OR MOVE A DIS PLAY8 ! THAT WAS NOT PASTED TO THE SPECIFIED PASTEBOARD.F ! USER ACTION: CHECK THAT YOU ARE REFERENCING THE CORRECT VIRTUAL6 ! DISPLAY. VERIFY THAT THE DISPLAY HAS NOT BEEN0 ! UNPASTED OR THAT YOU FORGOT TO PASTE IT. ! --4 DECLARE LONG CONSTANT SMG$_PBDIN_USE = 1213052 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOT> ! LEGAL WHILE OUTPUT TO THE PASTEBOARD IS BEING BATCHED.4 ! FOR EXAMPLE, YOU CAN'T CHANG E THE PASTEBOARD8 ! CHARACTERISTICS WHILE THE PASTEBOARD IS BATCHED.F ! USER ACTION: TURN OFF PASTEBOARD BATCHING BEFORE ATTEMPTING THE< ! OPERATION. YOU MAY TURN BATCHING ON AGAIN AFTER THE ! OPERATION. ! --4 DECLARE LONG CONSTANT SMG$_INVWIDARG = 1213060 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS0 ! OF THE TERMINAL, SETTING ITS WIDTH TO 0.> ! USER ACTION: CORRECT THE CODE. A WIDTH OF 0 IS ILLE GAL. ! --4 DECLARE LONG CONSTANT SMG$_INVPAGARG = 1213068 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS= ! OF THE TERMINAL, SETTING ITS HEIGHT (PAGE SIZE) TO 0.? ! USER ACTION: CORRECT THE CODE. A HEIGHT OF 0 IS ILLEGAL. ! --4 DECLARE LONG CONSTANT SMG$_INVCOLARG = 1213076 ! ++ ! FACILITY: SMGE ! EXPLANATION: AN ATTEMPT WAS MADE TO CHANGE THE CHARACTERISTICS6 ! OF THE TERMINAL, CHANGING ITS BACKGROUND COLOR& ! TO A VALUE THAT WAS NOT LEGAL.D ! USER ACTION: CHECK THE SYMBOLIC NAME FOR THE BACKGROUND COLOR' ! DESIRED. SPECIFY IT CORRECTLY. ! --4 DECLARE LONG CONSTANT SMG$_DIALINNOT = 1213084 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE VERTICES SPECIFIED WILL RESULT IN A DIAGONAL LINE,2 ! RATHER THAN A VERTICAL OR HORIZONTAL LINE.J ! USER ACTION: RE-SPECIFY THE VERTICES SO THAT THE LINE DRAWN WILL BE ! VERTICAL OR HORIZONTAL.  ! --4 DECLARE LONG CONSTANT SMG$_TABID_MIS = 1213092 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE TERMTABLE INTERNAL CONSISTENCY CHECK FAILED. THE< ! ROUTINES WHICH FETCH INFORMATION FROM TERMTABLE HAVE; ! A DIFFERENT VERSION NUMBER THAN THE TERMTABLE DATA.H ! USER ACTION: PROBABLY THE ROUTINES WHICH FETCH THE DATA ARE NEWER= ! THAN YOUR TERMTABLE.EXE. RE-COMPILE TERMTABLE.TXT TO" ! UPDATE YOUR TERMTABLE.EXE. ! --4 DECLARE LONG CONST ANT SMG$_UNDTERNAM = 1213100 ! ++ ! FACILITY: SMGF ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN< ! THE CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM ! COPY OF TERMTABLE.I ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE TERMINAL DEFINITION,; ! MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE> ! DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC POINTS> ! TO IT. IF YOU EXPECTED YOUR TERMINAL TO BE DEFINED IN= ! THE SYST EM TERMTABLE, CHECK WITH YOUR SYSTEM MANAGER. ! --4 DECLARE LONG CONSTANT SMG$_INVTERTAB = 1213108 ! ++ ! FACILITY: SMGD ! EXPLANATION: AN INVALID TERMINAL TABLE ADDRESS WAS SPECIFIED.J ! USER ACTION: CHECK THAT YOU ARE PASSING THE TERMINAL TABLE ARGUMENT> ! BY REFERENCE AND NOT BY VALUE. MAKE SURE THE TERMINAL. ! TABLE ADDRESS WAS ACQUIRED BY CALLING  ! SMG$INIT_TERM_TABLE. ! --4 DECLARE LONG CONSTANT SMG$_INVREQCOD = 1213116 ! ++ ! FACILITY: SMGF ! EXPLANATION: DATA IS REQUESTED FROM TERMTABLE VIA REQUEST CODES< ! WHICH ARE AVAILABLE AS SYMBOLIC NAMES. THE CODE YOU " ! HAVE SPECIFIED IS INVALID.J ! USER ACTION: CHECK THE SPELLING OF THE SYMBOLIC NAME YOU ARE USING. ! --4 DECLARE LONG CONSTANT SMG$_NOTBOOCAP = 1213124 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)H ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A BOOLEAN CAPABILITY, ! NAME BUT ENCOUNTERED SOMETHING ELSE.E ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE9 ! MISSPELLED THE BOOLEAN CAPABILITY NAME OR OMITTED9 ! ANOTHER STATEMENT SUCH AS STRING OR NUMERIC WHICH3 ! WOULD HAVE TERMINATED BOOLEAN CAPABILITIES. ! --1 DECLARE LONG CONSTANT SMG$_SYNERR = 1213132 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID; ! SYNTAX. FOR INSTANCE, THERE MAY BE A MISPLACED OR  ! MISSIN G EQUALS SIGN.5 ! USER ACTION: CHECK YOUR TERMINAL DEFINITION.  ! --4 DECLARE LONG CONSTANT SMG$_UNDTERTYP = 1213140 ! ++ ! FACILITY: SMG F ! EXPLANATION: THE DEFINITION FOR THE REQUESTED TERMINAL TYPE WAS; ! NOT FOUND IN THE CALLER'S PRIVATE COPY OF TERMTABLE ! OR THE SYSTEM TERMTABLE.E ! USER ACTION: IF YOU INTENDED TO USE A PRIVATE DEFINITION, MAKE@ ! SURE THAT TERMTABLE.EXE EXISTS IN YOUR PRIVATE DIRECTORY; ! AND THAT THE LOGICAL N AME TERM$TABLOC POINTS TO IT.< ! IF YOU EXPECTED YOUR TERMINAL DEFINITION TO EXIST IN: ! THE SYSTEM TERMTABLE, CONSULT YOUR SYSTEM MANAGER. ! --4 DECLARE LONG CONSTANT SMG$_MISTERNAM = 1213148 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: CAPABILITIES WERE NOT PRECEEDED BY THE NAME OF A ! TERMINAL.D ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. MAKE SURE THAT; ! EACH DEFINITION STARTS WITH NAME = . ! --4 DECLARE LONG CONSTANT SMG$_EXPTOOCOM = 1213156 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)1 ! EXPLANATION: THE SPECIFIED EXPRESSION WAS 8 ! TOO COMPLEX FOR THE TERMTABLE COMPILER TO PARSE.G ! USER ACTION: CORRECT YOUR CAPABILITY SO THAT IT IS LESS COMPLEX. ! --1 DECLARE LONG CONSTANT SMG$_ILLVAL = 1213164 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)E ! EXPLANATION: A BOOLEAN CAPABILITY WAS GIVEN A VALUE OTHER THAN ! 0 OR 1.J ! USE R ACTION: CHECK YOUR TERMINAL DEFINITIONS. BOOLEAN CAPABILITIES1 ! MUST BE 0 OR 1 (OFF OR ON, RESPECTIVELY). ! --1 DECLARE LONG CONSTANT SMG$_INVEXP = 1213172 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED AN INVALID  ! ARITHMETIC EXPRESSION.C ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE THAT YOU HAVE6 ! USED ONLY VALID OPERATORS AND OPERANDS IN YOUR ! EXPRESSIONS. ! --4 DECLARE LONG CONSTANT SMG$_ERRAT_LIN = 1213180 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUDED WITH MANY: ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY- ! SPECIFICALLY WHERE AN ERROR OCCURRED.@ ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --1 DECLARE LONG CONSTANT SMG$_ERRLIN = 1213188 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: GENERAL INFORMATION MESSAGE INCLUD ED WITH MANY: ! TERMTABLE COMPILER MESSAGES. ATTEMPTS TO IDENTIFY3 ! SPECIFICALLY WHICH LINE CONTAINED AN ERROR.@ ! USER ACTION: CHECK THE SPECIFIED LINE IN YOUR DEFINITION. ! --4 DECLARE LONG CONSTANT SMG$_UNDTERNOP = 1213196 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE REQUESTED TERMINAL DEFINITION WAS NOT FOUND IN THE8 ! CALLER'S PRIVATE COPY OF TERMTABLE OR THE SYSTEM> ! TERMTABLE. THE CALLER'S PRIVATE TERMTABLE COULDN'T BE> ! BE ACCESSE D, EITHER BECAUSE IT DIDN'T EXIST OR BECAUSE$ ! RMS COULD NOT OPEN THE FILE.I ! USER ACTION: IF YOU INTENDED TO USE A DEFINITION FROM YOUR PRIVATE> ! TERMTABLE, MAKE SURE THAT TERMTABLE.EXE EXISTS IN YOUR? ! PRIVATE DIRECTORY AND THAT THE LOGICAL NAME TERM$TABLOC= ! POINTS TO IT. MAKE SURE THAT YOU HAVE READ ACCESS TO ! THE FILE. ! --4 DECLARE LONG CONSTANT SMG$_UNDTERNOS = 1213204 ! ++ ! FACILITY: SMGF ! EXPLANATION: THE REQUESTED TE RMINAL DEFINITION WAS NOT FOUND IN? ! THE CALLER'S PRIVATE TERMTABLE OR THE SYSTEM TERMTABLE.- ! THE SYSTEM TERMTABLE WAS UNAVAILABLE.F ! USER ACTION: THE SYSTEM TERMTABLE SHOULD BE MAPPED AS A GLOBAL ; ! SECTION AND THEREFORE SHOULD ALWAYS BE AVAILABLE. 3 ! CONSULT YOUR SYSTEM MANAGER REGARDING THIS. ! --4 DECLARE LONG CONSTANT SMG$_MISFILSPE = 1213212 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE REQUIRE STATEMENT NEEDS A FILE NAME IN ORDER TO< ! LOCATE EXTERNAL DEFINITIONS WHICH SHOULD BECOME PART ! OF YOUR TERMTABLE.E ! USER ACTION: CHECK YOUR TERMTABLE.TXT. ADD A FILE NAME TO THE ! REQUIRE STATEMENT. ! --3 DECLARE LONG CONSTANT SMG$_UNRECSTA = 1213220 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE TERMTABLE COMPILER ENCOUNTERED A STATEMENT THAT ! IT DOES NOT RECOGNIZE.F ! USER ACTION: CHECK YOUR DEFINITION. MAKE SURE YOU HAVE SPELL ED: ! KEYWORDS CORRECTLY AND THAT STATEMENTS APPEAR ONLY ! IN VALID SEQUENCES. ! --4 DECLARE LONG CONSTANT SMG$_FAIOPEFIL = 1213228 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)B ! EXPLANATION: THE TERMTABLE COMPILER COULD NOT OPEN THE FILE ! SPECIFIED IN A REQUIRE.E ! USER ACTION: MAKE SURE THAT THE SPECIFIED FILE EXISTS AND THAT# ! YOU HAVE READ ACCESS TO IT. ! --2 DECLARE LONG CONSTANT SMG$_NO_ARGS = 1213236 ! ++ ! FAC ILITY: SMG A ! EXPLANATION: YOU REQUESTED A CAPABILITY THAT REQUIRES USER7 ! ARGUMENTS (SUCH AS A ROW AND COLUMN NUMBER) BUT ! DID NOT PROVIDE ANY.B ! USER ACTION: CHECK THE NUMBER OF ARGUMENTS REQUIRED BY THIS> ! CAPABILITY AND CORRECT YOUR CALL TO SMG$GET_TERM_DATA. ! --4 DECLARE LONG CONSTANT SMG$_NOTNUMCAP = 1213244 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)H ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A NUMERIC CAPABILITY, ! NAME BUT ENCOUNTERED SOMETHING ELSE.E ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE9 ! MISSPELLED THE NUMERIC CAPABILITY NAME OR OMITTED9 ! ANOTHER STATEMENT SUCH AS STRING OR BOOLEAN WHICH3 ! WOULD HAVE TERMINATED NUMERIC CAPABILITIES. ! --4 DECLARE LONG CONSTANT SMG$_NOTSTRCAP = 1213252 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)G ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED A STRING CAPABILITY, ! NAME BUT ENCOUNTERED SOMET HING ELSE.E ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. PERHAPS YOU HAVE8 ! MISSPELLED THE STRING CAPABILITY NAME OR OMITTED: ! ANOTHER STATEMENT SUCH AS BOOLEAN OR NUMERIC WHICH2 ! WOULD HAVE TERMINATED STRING CAPABILITIES. ! --4 DECLARE LONG CONSTANT SMG$_MISENDSTA = 1213260 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED AN END STATEMENT8 ! TO TERMINATE THE CURRENT TERMINAL DEFINITION AND' ! THIS END STATEMENT WAS MISSING.4 ! USER ACTION: CHECK YOUR TERMINAL DEFINITIONS. ! --4 DECLARE LONG CONSTANT SMG$_MISNAMREQ = 1213268 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)D ! EXPLANATION: THE TERMTABLE COMPILER EXPECTED TERMTABLE.TXT TO9 ! BEGIN WITH A TERMINAL DEFINITION (NAME STATEMENT)6 ! OR A REQUIRE. SOMETHING ELSE WAS ENCOUNTERED./ ! USER ACTION: CHECK YOUR TERMTABLE.TXT.  ! --4 DECLARE LONG CONSTANT SMG$_ILLBATFNC = 1213276  ! ++ ! FACILITY: SMGD ! EXPLANATION: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION THAT9 ! IS NOT PERMITTED WHILE A VIRTUAL DISPLAY IS BEING8 ! BATCHED (FOR EXAMPLE, PERFORMING INPUT OR MOVING ! THE VIRTUAL DISPLAY).7 ! USER ACTION: TERMINATE BATCHING FIRST BY CALLING ! SMG$END_DISPLAY_UPDATE. ! --1 DECLARE LONG CONSTANT SMG$_INVDIR = 1213284 ! ++) ! FACILITY: SMG (TERMTABLE COMPILER)A ! EXPLANATION: THE TERMTABLE COMPILER A CCEPTS ONLY A FEW FAO8 ! DIRECTIVES. IT ENCOUNTERED ONE THAT IT DOES NOT ! HANDLE.C ! USER ACTION: CHECK YOUR TERMINAL DEFINITION. MAKE SURE THAT+ ! YOU USE ONLY VALID FAO DIRECTIVES. ! --4 DECLARE LONG CONSTANT SMG$_TRMNOTANS = 1213292 ! ++ ! FACILITY: SMG> ! EXPLANATION: A CALL TO SMG$GET_PHYSICAL_CURSOR WAS MADE5 ! SPECIFYING THAT THE TERMINAL IS TO BE QUERIED) ! TO DETERMINE WHERE THE CURSOR IS.3 ! THIS COULD NOT BE DONE BECAUSE THE TERMINAL3 ! WAS NOT ANSI, AND THIS FEATURE IS AVAILABLE ! ONLY ON ANSI TERMINALS.? ! USER ACTION: RERUN YOUR APPLICATION ON AN ANSI TERMINAL, ! SUCH AS A VT100. ! --4 DECLARE LONG CONSTANT SMG$_LENNOTEQL = 1213300 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE2 ! SPECIFYING A PICTURE STRING AND AN INITIAL4 ! STRING OF UNEQUAL LENGTH. SINCE THE INITIAL3 ! STRING IS USED AS THE DEFAULT VALUE FOR THE: ! INPUT, IT MUST MATCH THE PICTURE STRING IN LENGTH.F ! USER ACTION: MODIFY THE INITIAL STRING TO BE OF THE SAME LENGTH ! AS THE PICTURE STRING. ! --4 DECLARE LONG CONSTANT SMG$_LENMUSONE = 1213308 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE+ ! SPECIFYING A FILL STRING OR A CLEAR@ ! STRING OF MORE THAN ONE CHARACTER. SINCE FILL CHARACTER; ! MATCHING IS DONE ONE CHARACTER AT A TIME, ONLY ONE A ! CHARACTER MAY BE SPECIFIED FOR THE FILL AND CLEAR STRING.K ! USER ACTION: MODIFY THE FILL AND/OR CLEAR STRING TO BE ONE CHARACTER ! LONG. ! --1 DECLARE LONG CONSTANT SMG$_DISREQ = 1213316 ! ++ ! FACILITY: SMG6 ! EXPLANATION: A CALL TO SMG$READ_VERIFY WAS MADE9 ! SPECIFYING RIGHT-JUSTIFICATION, NO DISPLAY_ID WAS9 ! SPECIFIED AND THE SCROLL_REVERSE SEQUENCE WAS NOT8 ! FOUND FOR THIS TERMINAL IN TERMTABLE.EXE. SINCE9 ! RIGHT-JUSTIFIC ATION REQUIRES A CURSOR POSITIONING8 ! SEQUENCE TO WORK PROPERLY, EITHER THE DISPLAY_ID9 ! PARAMETER MUST BE SPECIFIED OR THE SCROLL_REVERSE0 ! SEQUENCE MUST BE ADDED TO TERMTABLE.EXE.G ! USER ACTION: ADD THE DISPLAY_ID PARAMETER TO THE SMG$READ_VERIFY3 ! CALL OR ADD THE SCROLL_REVERSE SEQUENCE TO  ! TERMTABLE.EXE. ! --1 DECLARE LONG CONSTANT SMG$_NOTIMP = 1213324 ! ++ ! FACILITY: SMGF ! EXPLANATION: YOU TRIED TO USE A ROUTINE THAT IS NOT IMPLEMENTED ! IN THIS VERSION OF SMG$.8 ! USER ACTION: GET THE APPROPRIATE VERSION OF SMG$. ! --6 DECLARE LONG CONSTANT SMG$_NO_WINASSOC = 1213332 ! ++ ! FACILITY: SMGG ! EXPLANATION: A VIEWPORT HAS NOT BEEN ASSOCIATED WITH THE VIRTUAL ! DISPLAY.= ! USER ACTION: CREATE A VIEWPORT ON THE VIRTUAL DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_WINEXISTS = 1213340 ! ++ ! FACILITY: SMGK ! EXPLANATION: A VIEWPORT EXISTS. THAT IS , A VIEWPORT HAS ALREADY BEEN, ! ASSOCIATED WITH THE VIRTUAL DISPLAY.H ! USER ACTION: 1. USE THE VIEWPORT THAT ALREADY ASSOCIATED WITH THE? ! VIRTUAL DISPLAY. 2. DELETE THE EXISTING VIEWPORT BEFORE> ! YOU CREATE THE NEW VIEWPORT. OR, 3. USE OTHER VIEWPORT6 ! ROUTINES ON CHANGE/MOVE THE EXISTING VIEWPORT. ! --3 DECLARE LONG CONSTANT SMG$_NOSUBEXI = 1213348 ! ++ ! FACILITY: SMGI ! EXPLANATION: A SUBPROCESS DOES NOT EXIST FOR THE SPECIFIED VIRTUA L ! DISPLAY. I ! USER ACTION: CALL SMG$CREATE_SUBPROCESS TO CREATE A SUBPROCESS FOR ! THIS VIRTUAL DISPLAY. ! --4 DECLARE LONG CONSTANT SMG$_INSQUOCRE = 1213356 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE CURRENT BYTLM OR PRCLM QUOTA VALUE IS TOO SMALL ! TO CREATE A SUBPROCESS.C ! USER ACTION: INCREASE THE ACCOUNTS BYTLM AND/OR PRCLM VALUE. ! --4 DECLARE LONG CONSTANT SMG$_INPTOOLON = 1213364 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE LENGTH OF AN INPUT STRING EXCEEDED 255 CHARACTERS.A ! USER ACTION: SHORTEN THE STRING TO 255 CHARACTERS OR LESS. ! --4 DECLARE LONG CONSTANT SMG$_KBDIN_USE = 1213372 ! ++ ! FACILITY: SMGB ! EXPLANATION: THE OPERATION YOU HAVE TRIED TO PERFORM IS NOTD ! LEGAL WHILE INPUT FROM THE VIRTUAL KEYBOARD IS BEING ACTIVE.B ! FOR EXAMPLE, YOU CAN'T READ TEXT FROM A KEYBOARD IN AN ASTB ! ROUTINE THAT INTERRUPTED A SMG$ CALL ON THE SAME KEYBOAR D.L ! USER ACTION: SYNCRONIZE YOUR CALLS TO SMG$ TO PREVENT MULTIPLE INPUTS8 ! FROM THE SAME VIRTUAL KEYBOARD AT THE SAME TIME. ! --. DECLARE LONG CONSTANT SMG$_EOF = 1213442 ! ++ ! FACILITY: SMG@ ! EXPLANATION: END OF FILE CONDITION WAS DETECTED ON INPUT.G ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS$ ! CONDITION AND RESPOND TO IT. ! --4 DECLARE LONG CONSTANT SMG$_KEYDEFPRO = 1213450 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE SPECIFIED KEY IS ALREADY DEFINED, AND SINCE ITS9 ! DEFINITION IS PROTECTED, IT CAN NOT BE CHANGED OR ! RE-DEFINED. ! USER ACTION: NONE ! --4 DECLARE LONG CONSTANT SMG$_INVDEFATT = 1213458 ! ++ ! FACILITY: SMGK ! EXPLANATION: WHEN A KEY IS DEFINED, ATTRIBUTES SUCH AS NOECHO MAY BE? ! SPECIFIED WITH THE DEFINITION. AN ATTEMPT WAS MADE TO% ! SPECIFY AN UNKNOWN ATTRIBUTE.G ! USER ACTION: CHECK THE LIST OF VALID AT TRIBUTES AND CORRECT YOUR ! PROGRAM. ! --4 DECLARE LONG CONSTANT SMG$_INVKEYNAM = 1213466 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE SPECIFIED KEY NAME WAS LESS THAN 1 CHARACTER OR ! MORE THAN 31 CHARACTERS.> ! USER ACTION: CHOOSE A KEY NAME WITH 1 TO 31 CHARACTERS. ! --4 DECLARE LONG CONSTANT SMG$_INVSTANAM = 1213474 ! ++ ! FACILITY: SMGI ! EXPLANATION: THE SPECIFIED STATE NAME WAS LESS THAN 1 CHARACTER OR ! MORE THAN 31 CHARACTERS.@ ! USER ACTION: CHOOSE A STATE NAME WITH 1 TO 31 CHARACTERS. ! --4 DECLARE LONG CONSTANT SMG$_LINNOTFND = 1213482 ! ++ ! FACILITY: SMG: ! EXPLANATION: THE INPUT LINE REQUESTED IN A CALL TO , ! SMG$RETURN_INPUT_LINE WAS NOT FOUND.G ! USER ACTION: IF NECESSARY, MODIFY YOUR PROGRAM TO RECOGNIZE THIS$ ! CONDITION AND RESPOND TO IT. ! --4 DECLARE LONG CONSTANT SMG$_KEYNOTDEF = 1216512 ! ++ ! FACILITY: SMGH ! EXPLANATI ON: AN ATTEMPT WAS MADE TO PERFORM AN OPERATION, SUCH AS8 ! SMG$GET_KEY_DEF, ON A KEY WHICH WAS NOT DEFINED.E ! USER ACTION: CHECK YOUR PROGRAM TO SEE IF THIS KEY SHOULD HAVE ! BEEN DEFINED. ! --5 DECLARE LONG CONSTANT SMG$_NOMOREKEYS = 1216520 ! ++ ! FACILITY: SMGJ ! EXPLANATION: SMG$LIST_KEY_DEFS, WHEN CALLED REPEATEDLY, RETURNS ALL> ! THE KEY DEFINITIONS IN A KEY TABLE. WHEN THERE ARE NO1 ! MORE DEFINITIONS, THIS ERROR IS RETURNED.O ! USER ACTION: MODIFY YOUR PROGRAM TO EXPECT THIS CONDITION, IF NECESSARY. ! --4 DECLARE LONG CONSTANT SMG$_STRTERESC = 1216528 ! ++ ! FACILITY: SMGH ! EXPLANATION: AN SMG OUTPUT ROUTINE WAS PASSED AN ESCAPE SEQUENCE> ! EMBEDDED IN THE OUTPUT STRING. THE OUTPUT STRING WAS 9 ! WRITTEN TO THE VIRTUAL DISPLAY BUT THE STRING WAS* ! TERMINATED AT THE ESCAPE SEQUENCE.E ! USER ACTION: CHECK YOUR OUTPUT STRING TO DETERMINE WHAT ESCAPE: ! SEQUENCE W AS BEING PASSED. IF YOU NEED THE ACTION7 ! PROVIDED BY THIS ESCAPE SEQUENCE, THERE IS MOST> ! LIKELY A SMG ROUTINE THAT PROVIDES THAT FUNCTIONALITY. ! --4 DECLARE LONG CONSTANT SMG$_GBLNOTCRE = 1216536 ! ++ ! FACILITY: SMGJ ! EXPLANATION: THE SYSTEM PROGRAM THAT MAPS TERMTABLE.EXE AS A GLOBAL! ! SECTION WAS UNSUCCESSFUL.K ! USER ACTION: THIS MESSAGE SHOULD BE HANDLED ONLY BY SYSTEM MANAGERS.: ! IF THERE IS ALREADY AN EXISTING GLOBAL SECTION F ORA ! TERMTABLE, THE SYSTEM MUST BE REBOOTED IN ORDER TO CREATE ! A NEW GLOBAL SECTION. ! --+ ! THE FOLLOWING IS USED WITH GBLNOTCRE4 DECLARE LONG CONSTANT SMG$_DELEXIGBL = 1216544 ! ++ ! FACILITY: SMGG ! EXPLANATION: THE SYSTEM PROGRAM WHICH MAPS TERMTABLE AS A GLOBAL> ! SECTION WAS UNSUCCESSFUL. BEFORE A NEW GLOBAL SECTION9 ! CAN BE CREATED, THE PREVIOUS ONE MUST BE DELETED.E ! USER ACTION: THE SYSTEM MUST BE REBOOTED IN ORDER TO MA P A NEW, ! TERMTABLE.EXE AS THE GLOBAL SECTION. ! --4 DECLARE LONG CONSTANT SMG$_GETDATSTR = 1216552 ! ++ ! FACILITY: SMGI ! EXPLANATION: THIS MESSAGE IS SIGNALED INTERNALLY TO ALLOW THE HELP< ! OUTPUT ROUTINE THAT WAS CALLED BY LBR$OUTPUT_HELP TO? ! ACCESS THE DISPLAY_ID AND KEYBOARD_ID FOR THE SPECIFIED< ! DISPLAY. THIS MESSAGE SHOULD NEVER BE RETURNED AS A? ! STATUS FROM ANY SMG ROUTINE AND MUST NOT BE DOCUMENTED. ! USER ACTION: NO NE. ! --3 DECLARE LONG CONSTANT SMG$_OPNOTSUP = 1216560 ! ++ ! FACILITY: SMGE ! EXPLANATION: THE REQUESTED OPERATION CANNOT BE PERFORMED SINCE< ! THE TERMINAL HARDWARE DOES NOT SUPPORT THIS FEATURE.H ! USER ACTION: RUN THE APPLICATION ON A TERMINAL THAT SUPPORTS THIS ! FEATURE. ! --4 DECLARE LONG CONSTANT SMG$_HLPPMTSTR = 1216568 ! ++ ! FACILITY: SMGK ! EXPLANATION: THIS MESSAGE IS THE PROMPT STRING OUTPUT BY THE ROUTINE= ! SMG$PUT_HELP_TEXT. IT IS NOT A NORMAL ERROR MESSAGE : ! BUT RESIDES HERE TO ALLOW TRANSLATION TO LANGUAGES ! OTHER THAN ENGLISH. ! USER ACTION: NONE. ! --ww `G7PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF: ! Terminal Capability Pointers for RTL SMG$ facility  ! * ! Boolean capabilities here - 1 - 220 ! 4 DECLARE LONG CONSTANT SMG$K_ADVANCED_VIDEO = 1. DECLARE LONG CONSTANT SMG$K_ANSI_C RT = 21 DECLARE LONG CONSTANT SMG$K_AUTO_MARGIN = 3/ DECLARE LONG CONSTANT SMG$K_BACKSPACE = 40 DECLARE LONG CONSTANT SMG$K_BLOCK_MODE = 5- DECLARE LONG CONSTANT SMG$K_DEC_CRT = 6* DECLARE LONG CONSTANT SMG$K_EDIT = 7/ DECLARE LONG CONSTANT SMG$K_EIGHT_BIT = 8- DECLARE LONG CONSTANT SMG$K_FULLDUP = 95 DECLARE LONG CONSTANT SMG$K_IGNORE_NEWLINE = 108 DECLARE LONG CONSTANT SMG$K_INSERT_MODE_NULLS = 110 DECLARE LONG CONSTANT SMG$K_LOWERCAS E = 12/ DECLARE LONG CONSTANT SMG$K_NO_ERASE = 130 DECLARE LONG CONSTANT SMG$K_NO_SCROLL = 141 DECLARE LONG CONSTANT SMG$K_OVERSTRIKE = 153 DECLARE LONG CONSTANT SMG$K_PRINTER_PORT = 16, DECLARE LONG CONSTANT SMG$K_REGIS = 17, DECLARE LONG CONSTANT SMG$K_SCOPE = 185 DECLARE LONG CONSTANT SMG$K_SIXEL_GRAPHICS = 196 DECLARE LONG CONSTANT SMG$K_SOFT_CHARACTERS = 204 DECLARE LONG CONSTANT SMG$K_PHYSICAL_TABS = 212 DECLARE LONG CONSTANT SMG$K_ PHYSICAL_FF = 220 DECLARE LONG CONSTANT SMG$K_UNDERLINE = 239 DECLARE LONG CONSTANT SMG$K_CURSOR_REPORT_ANSI = 240 DECLARE LONG CONSTANT SMG$K_DEC_CRT_2 = 250 DECLARE LONG CONSTANT SMG$K_DEC_CRT_3 = 269 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_COL_ROW = 27- DECLARE LONG CONSTANT SMG$K_TEXT16 = 280 DECLARE LONG CONSTANT SMG$K_DEC_CRT_4 = 290 DECLARE LONG CONSTANT SMG$K_DEC_CRT_5 = 301 DECLARE LONG CONSTANT SMG$K_ANSI_COLOR = 31 ! 6 ! Pri vate capabilities reserved for customer use.( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_1 = 2115 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_2 = 2125 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_3 = 2135 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_4 = 2145 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_5 = 2155 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_6 = 2165 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_7 = 2175 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_8 = 2185 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_9 = 2196 DECLARE LONG CONSTANT SMG$K_PRIVATE_BOO_10 = 2208 DECLARE LONG CONSTANT SMG$K_MAX_BOOLEAN_CODE = 220 ! - ! Numeric capabilities here - 221 to 440 ! / DECLARE LONG CONSTANT SMG$K_COLUMNS = 221/ DECLARE LONG CONSTANT SMG$K_CR_FILL = 222- DECLARE LONG CONSTANT SMG$K_FRAME = 223/ DECLARE LONG CONSTANT SMG$K_LF_FILL = 2246 DECLARE LONG CONSTANT SMG$K_NU MBER_FN_KEYS = 225, DECLARE LONG CONSTANT SMG$K_ROWS = 226; DECLARE LONG CONSTANT SMG$K_VMS_TERMINAL_NUMBER = 227; DECLARE LONG CONSTANT SMG$K_WIDE_SCREEN_COLUMNS = 228 ! / ! Private capabilities for customer use. ( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_1 = 4315 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_2 = 4325 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_3 = 4335 DECLARE LONG CONSTANT SMG$K_PRIVAT E_NUM_4 = 4345 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_5 = 4355 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_6 = 4365 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_7 = 4375 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_8 = 4385 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_9 = 4396 DECLARE LONG CONSTANT SMG$K_PRIVATE_NUM_10 = 4408 DECLARE LONG CONSTANT SMG$K_MAX_NUMERIC_CODE = 440 ! + ! String capabilities here - 441 - 660 ! < DECLARE LONG CONSTANT SMG$K_ BEGIN_ALTERNATE_CHAR = 4413 DECLARE LONG CONSTANT SMG$K_BEGIN_BLINK = 4422 DECLARE LONG CONSTANT SMG$K_BEGIN_BOLD = 4439 DECLARE LONG CONSTANT SMG$K_BEGIN_DELETE_MODE = 4449 DECLARE LONG CONSTANT SMG$K_BEGIN_INSERT_MODE = 445? DECLARE LONG CONSTANT SMG$K_BEGIN_LINE_DRAWING_CHAR = 4465 DECLARE LONG CONSTANT SMG$K_BEGIN_REVERSE = 4478 DECLARE LONG CONSTANT SMG$K_BEGIN_UNDERSCORE = 4485 DECLARE LONG CONSTANT SMG$K_BOTTOM_T_CHAR = 4491 DECLARE LO NG CONSTANT SMG$K_CLEAR_TAB = 4502 DECLARE LONG CONSTANT SMG$K_CROSS_CHAR = 4513 DECLARE LONG CONSTANT SMG$K_CURSOR_DOWN = 4523 DECLARE LONG CONSTANT SMG$K_CURSOR_LEFT = 4534 DECLARE LONG CONSTANT SMG$K_CURSOR_RIGHT = 4541 DECLARE LONG CONSTANT SMG$K_CURSOR_UP = 4553 DECLARE LONG CONSTANT SMG$K_DARK_SCREEN = 4563 DECLARE LONG CONSTANT SMG$K_DELETE_CHAR = 4573 DECLARE LONG CONSTANT SMG$K_DELETE_LINE = 4589 DECLARE LONG CONSTANT SMG$K_DEVICE_A TTRIBUTES = 459: DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_BOTTOM = 4607 DECLARE LONG CONSTANT SMG$K_DOUBLE_HIGH_TOP = 4613 DECLARE LONG CONSTANT SMG$K_DOUBLE_WIDE = 4621 DECLARE LONG CONSTANT SMG$K_DUPLICATE = 463: DECLARE LONG CONSTANT SMG$K_END_ALTERNATE_CHAR = 4641 DECLARE LONG CONSTANT SMG$K_END_BLINK = 4650 DECLARE LONG CONSTANT SMG$K_END_BOLD = 4667 DECLARE LONG CONSTANT SMG$K_END_DELETE_MODE = 4677 DECLARE LONG CONSTANT SMG$K_END_INSERT _MODE = 468= DECLARE LONG CONSTANT SMG$K_END_LINE_DRAWING_CHAR = 4693 DECLARE LONG CONSTANT SMG$K_END_REVERSE = 4706 DECLARE LONG CONSTANT SMG$K_END_UNDERSCORE = 471< DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_DISPLAY = 4729 DECLARE LONG CONSTANT SMG$K_ERASE_TO_END_LINE = 473; DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_DISPLAY = 4748 DECLARE LONG CONSTANT SMG$K_ERASE_WHOLE_LINE = 475, DECLARE LONG CONSTANT SMG$K_HOME = 4766 DECLARE LONG CONSTANT SM G$K_HORIZONTAL_BAR = 4773 DECLARE LONG CONSTANT SMG$K_INIT_STRING = 4783 DECLARE LONG CONSTANT SMG$K_INSERT_CHAR = 4793 DECLARE LONG CONSTANT SMG$K_INSERT_LINE = 4802 DECLARE LONG CONSTANT SMG$K_INSERT_PAD = 481- DECLARE LONG CONSTANT SMG$K_KEY_0 = 482- DECLARE LONG CONSTANT SMG$K_KEY_1 = 483- DECLARE LONG CONSTANT SMG$K_KEY_2 = 484- DECLARE LONG CONSTANT SMG$K_KEY_3 = 485- DECLARE LONG CONSTANT SMG$K_KEY_4 = 486- DECLARE LONG CONSTAN T SMG$K_KEY_5 = 487- DECLARE LONG CONSTANT SMG$K_KEY_6 = 488- DECLARE LONG CONSTANT SMG$K_KEY_7 = 489- DECLARE LONG CONSTANT SMG$K_KEY_8 = 490- DECLARE LONG CONSTANT SMG$K_KEY_9 = 4915 DECLARE LONG CONSTANT SMG$K_KEY_BACKSPACE = 4921 DECLARE LONG CONSTANT SMG$K_KEY_COMMA = 4936 DECLARE LONG CONSTANT SMG$K_KEY_DOWN_ARROW = 494. DECLARE LONG CONSTANT SMG$K_KEY_E1 = 495. DECLARE LONG CONSTANT SMG$K_KEY_E2 = 496. DECLARE LONG CONSTANT SMG$ K_KEY_E3 = 497. DECLARE LONG CONSTANT SMG$K_KEY_E4 = 498. DECLARE LONG CONSTANT SMG$K_KEY_E5 = 499. DECLARE LONG CONSTANT SMG$K_KEY_E6 = 5001 DECLARE LONG CONSTANT SMG$K_KEY_ENTER = 501. DECLARE LONG CONSTANT SMG$K_KEY_F1 = 502. DECLARE LONG CONSTANT SMG$K_KEY_F2 = 503. DECLARE LONG CONSTANT SMG$K_KEY_F3 = 504. DECLARE LONG CONSTANT SMG$K_KEY_F4 = 505. DECLARE LONG CONSTANT SMG$K_KEY_F5 = 506. DECLARE LONG CONSTANT SMG$K_KEY_F6 = 507. DECLARE LONG CONSTANT SMG$K_KEY_F7 = 508. DECLARE LONG CONSTANT SMG$K_KEY_F8 = 509. DECLARE LONG CONSTANT SMG$K_KEY_F9 = 510/ DECLARE LONG CONSTANT SMG$K_KEY_F10 = 511/ DECLARE LONG CONSTANT SMG$K_KEY_F11 = 512/ DECLARE LONG CONSTANT SMG$K_KEY_F12 = 513/ DECLARE LONG CONSTANT SMG$K_KEY_F13 = 514/ DECLARE LONG CONSTANT SMG$K_KEY_F14 = 515/ DECLARE LONG CONSTANT SMG$K_KEY_F15 = 516/ DECLARE LONG CONSTANT SMG$K_KEY_F16 = 517/ DECLARE LONG CONSTANT SMG$K_KEY_F17 = 518/ DECLARE LONG CONSTANT SMG$K_KEY_F18 = 519/ DECLARE LONG CONSTANT SMG$K_KEY_F19 = 520/ DECLARE LONG CONSTANT SMG$K_KEY_F20 = 5216 DECLARE LONG CONSTANT SMG$K_KEY_LEFT_ARROW = 5221 DECLARE LONG CONSTANT SMG$K_KEY_MINUS = 5232 DECLARE LONG CONSTANT SMG$K_KEY_PERIOD = 524/ DECLARE LONG CONSTANT SMG$K_KEY_PF1 = 525/ DECLARE LONG CONSTANT SMG$K_KEY_PF2 = 526/ DECLARE LONG CONSTANT SMG$K_KEY_PF3 = 527/ DECLARE LONG CONSTANT SMG$K_KEY_PF4 = 5287 DECLARE LONG CONSTANT SMG$K_KEY_RIGHT_ARROW = 5294 DECLARE LONG CONSTANT SMG$K_KEY_UP_ARROW = 5300 DECLARE LONG CONSTANT SMG$K_LABEL_F1 = 5310 DECLARE LONG CONSTANT SMG$K_LABEL_F2 = 5320 DECLARE LONG CONSTANT SMG$K_LABEL_F3 = 5330 DECLARE LONG CONSTANT SMG$K_LABEL_F4 = 5340 DECLARE LONG CONSTANT SMG$K_LABEL_F5 = 5350 DECLARE LONG CONSTANT SMG$K_LABEL_F6 = 5360 DECLARE LONG CONSTANT SMG$K_LABEL_F7 = 5370 DE CLARE LONG CONSTANT SMG$K_LABEL_F8 = 5380 DECLARE LONG CONSTANT SMG$K_LABEL_F9 = 5391 DECLARE LONG CONSTANT SMG$K_LABEL_F10 = 5401 DECLARE LONG CONSTANT SMG$K_LABEL_F11 = 5411 DECLARE LONG CONSTANT SMG$K_LABEL_F12 = 5421 DECLARE LONG CONSTANT SMG$K_LABEL_F13 = 5431 DECLARE LONG CONSTANT SMG$K_LABEL_F14 = 5441 DECLARE LONG CONSTANT SMG$K_LABEL_F15 = 5451 DECLARE LONG CONSTANT SMG$K_LABEL_F16 = 5461 DECLARE LONG CONSTANT SMG$K_LABEL_F17 = 547 1 DECLARE LONG CONSTANT SMG$K_LABEL_F18 = 5481 DECLARE LONG CONSTANT SMG$K_LABEL_F19 = 5491 DECLARE LONG CONSTANT SMG$K_LABEL_F20 = 5503 DECLARE LONG CONSTANT SMG$K_LEFT_T_CHAR = 5514 DECLARE LONG CONSTANT SMG$K_LIGHT_SCREEN = 5529 DECLARE LONG CONSTANT SMG$K_LOWER_LEFT_CORNER = 553: DECLARE LONG CONSTANT SMG$K_LOWER_RIGHT_CORNER = 554, DECLARE LONG CONSTANT SMG$K_NAME = 5554 DECLARE LONG CONSTANT SMG$K_NEWLINE_CHAR = 5560 DECLARE LONG C ONSTANT SMG$K_PAD_CHAR = 5576 DECLARE LONG CONSTANT SMG$K_RESTORE_CURSOR = 5584 DECLARE LONG CONSTANT SMG$K_RIGHT_T_CHAR = 5593 DECLARE LONG CONSTANT SMG$K_SAVE_CURSOR = 5606 DECLARE LONG CONSTANT SMG$K_SCROLL_FORWARD = 5616 DECLARE LONG CONSTANT SMG$K_SCROLL_REVERSE = 562@ DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_DISPLAY = 563= DECLARE LONG CONSTANT SMG$K_SEL_ERASE_TO_END_LINE = 564? DECLARE LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_DISPLAY = 565< DECLARE LONG CONSTANT SMG$K_SEL_ERASE_WHOLE_LINE = 566> DECLARE LONG CONSTANT SMG$K_SET_APPLICATION_KEYPAD = 567> DECLARE LONG CONSTANT SMG$K_SET_CHAR_NOT_SEL_ERASE = 568: DECLARE LONG CONSTANT SMG$K_SET_CHAR_SEL_ERASE = 5696 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ABS = 570: DECLARE LONG CONSTANT SMG$K_SET_NUMERIC_KEYPAD = 5719 DECLARE LONG CONSTANT SMG$K_SET_SCROLL_REGION = 572/ DECLARE LONG CONSTANT SMG$K_SET_TAB = 5733 DECLARE LONG CONSTANT SMG$K_ SINGLE_HIGH = 5740 DECLARE LONG CONSTANT SMG$K_TAB_CHAR = 5752 DECLARE LONG CONSTANT SMG$K_TOP_T_CHAR = 5766 DECLARE LONG CONSTANT SMG$K_UNDERLINE_CHAR = 5779 DECLARE LONG CONSTANT SMG$K_UPPER_LEFT_CORNER = 578: DECLARE LONG CONSTANT SMG$K_UPPER_RIGHT_CORNER = 5794 DECLARE LONG CONSTANT SMG$K_VERTICAL_BAR = 5804 DECLARE LONG CONSTANT SMG$K_WIDTH_NARROW = 5812 DECLARE LONG CONSTANT SMG$K_WIDTH_WIDE = 582> DECLARE LONG CONSTANT SMG$K_CURSOR_POSITIO  N_REPORT = 583? DECLARE LONG CONSTANT SMG$K_REQUEST_CURSOR_POSITION = 5842 DECLARE LONG CONSTANT SMG$K_CR_GRAPHIC = 5852 DECLARE LONG CONSTANT SMG$K_FF_GRAPHIC = 5862 DECLARE LONG CONSTANT SMG$K_LF_GRAPHIC = 5872 DECLARE LONG CONSTANT SMG$K_HT_GRAPHIC = 5882 DECLARE LONG CONSTANT SMG$K_VT_GRAPHIC = 5897 DECLARE LONG CONSTANT SMG$K_TRUNCATION_ICON = 5908 DECLARE LONG CONSTANT SMG$K_CURSOR_NEXT_LINE = 591= DECLARE LONG CONSTANT SMG$K_CURSOR_PRECEDI  NG_LINE = 592- DECLARE LONG CONSTANT SMG$K_INDEX = 5935 DECLARE LONG CONSTANT SMG$K_REVERSE_INDEX = 594> DECLARE LONG CONSTANT SMG$K_BEGIN_NORMAL_RENDITION = 595; DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOWRAP_MODE = 5969 DECLARE LONG CONSTANT SMG$K_END_AUTOWRAP_MODE = 597= DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOREPEAT_MODE = 598; DECLARE LONG CONSTANT SMG$K_END_AUTOREPEAT_MODE = 599; DECLARE LONG CONSTANT SMG$K_SET_ORIGIN_RELATIVE = 600; DECLAR  E LONG CONSTANT SMG$K_SET_ORIGIN_ABSOLUTE = 601< DECLARE LONG CONSTANT SMG$K_ERASE_LINE_TO_CURSOR = 6021 DECLARE LONG CONSTANT SMG$K_NEXT_LINE = 603< DECLARE LONG CONSTANT SMG$K_BEGIN_AUTOPRINT_MODE = 604: DECLARE LONG CONSTANT SMG$K_END_AUTOPRINT_MODE = 6054 DECLARE LONG CONSTANT SMG$K_PRINT_SCREEN = 6065 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_ON = 6076 DECLARE LONG CONSTANT SMG$K_SET_CURSOR_OFF = 608: DECLARE LONG CONSTANT SMG$K_SET_PRINTER_OUTPUT =  6099 DECLARE LONG CONSTANT SMG$K_SET_SCREEN_OUTPUT = 610? DECLARE LONG CONSTANT SMG$K_ERASE_DISPLAY_TO_CURSOR = 611> DECLARE LONG CONSTANT SMG$K_REQUEST_PRINTER_STATUS = 6125 DECLARE LONG CONSTANT SMG$K_PRINTER_READY = 6139 DECLARE LONG CONSTANT SMG$K_PRINTER_NOT_READY = 6142 DECLARE LONG CONSTANT SMG$K_NO_PRINTER = 6157 DECLARE LONG CONSTANT SMG$K_SET_JUMP_SCROLL = 6169 DECLARE LONG CONSTANT SMG$K_SET_SMOOTH_SCROLL = 6172 DECLARE LONG CONST  ANT SMG$K_ERROR_ICON = 6183 DECLARE LONG CONSTANT SMG$K_PAGE_LENGTH = 619 ! 7 ! Private capabilities reserved for customer use. ( ! Put them at the end of the range. ! 5 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_1 = 6515 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_2 = 6525 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_3 = 6535 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_4 = 6545 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_5 = 6555 DECLARE LONG CONSTANT  SMG$K_PRIVATE_STR_6 = 6565 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_7 = 6575 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_8 = 6585 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_9 = 6596 DECLARE LONG CONSTANT SMG$K_PRIVATE_STR_10 = 6607 DECLARE LONG CONSTANT SMG$K_MAX_STRING_CODE = 660 ! 2 ! Second string capabilities here - 661 - 880 ! 3 DECLARE LONG CONSTANT SMG$K_BEGIN_USER1 = 6613 DECLARE LONG CONSTANT SMG$K_BEGIN_USER2 = 6623 DECLARE LONG C  ONSTANT SMG$K_BEGIN_USER3 = 6633 DECLARE LONG CONSTANT SMG$K_BEGIN_USER4 = 6643 DECLARE LONG CONSTANT SMG$K_BEGIN_USER5 = 6653 DECLARE LONG CONSTANT SMG$K_BEGIN_USER6 = 6663 DECLARE LONG CONSTANT SMG$K_BEGIN_USER7 = 6673 DECLARE LONG CONSTANT SMG$K_BEGIN_USER8 = 6681 DECLARE LONG CONSTANT SMG$K_END_USER1 = 6691 DECLARE LONG CONSTANT SMG$K_END_USER2 = 6701 DECLARE LONG CONSTANT SMG$K_END_USER3 = 6711 DECLARE LONG CONSTANT SMG$K_END_USER4 =  6721 DECLARE LONG CONSTANT SMG$K_END_USER5 = 6731 DECLARE LONG CONSTANT SMG$K_END_USER6 = 6741 DECLARE LONG CONSTANT SMG$K_END_USER7 = 6751 DECLARE LONG CONSTANT SMG$K_END_USER8 = 6764 DECLARE LONG CONSTANT SMG$K_BLACK_SCREEN = 6773 DECLARE LONG CONSTANT SMG$K_BLUE_SCREEN = 6783 DECLARE LONG CONSTANT SMG$K_CYAN_SCREEN = 6796 DECLARE LONG CONSTANT SMG$K_MAGENTA_SCREEN = 6804 DECLARE LONG CONSTANT SMG$K_GREEN_SCREEN = 6812 DECLARE LONG C ONSTANT SMG$K_RED_SCREEN = 6824 DECLARE LONG CONSTANT SMG$K_WHITE_SCREEN = 6835 DECLARE LONG CONSTANT SMG$K_YELLOW_SCREEN = 6844 DECLARE LONG CONSTANT SMG$K_USER1_SCREEN = 6854 DECLARE LONG CONSTANT SMG$K_USER2_SCREEN = 6869 DECLARE LONG CONSTANT SMG$K_BEGIN_STATUS_LINE = 6877 DECLARE LONG CONSTANT SMG$K_END_STATUS_LINE = 6885 DECLARE LONG CONSTANT SMG$K_BEGIN_LOCATOR = 6893 DECLARE LONG CONSTANT SMG$K_END_LOCATOR = 6906 DECLARE LONG CONSTANT SMG$K_KEY_FIRST_DOWN = 6917 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_DOWN = 6926 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_DOWN = 6937 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_DOWN = 6944 DECLARE LONG CONSTANT SMG$K_KEY_FIRST_UP = 6955 DECLARE LONG CONSTANT SMG$K_KEY_SECOND_UP = 6964 DECLARE LONG CONSTANT SMG$K_KEY_THIRD_UP = 6975 DECLARE LONG CONSTANT SMG$K_KEY_FOURTH_UP = 6984 DECLARE LONG CONSTANT SMG$K_USER3_SCREEN = 6994 DECLARE LONG CONSTANT SMG$ K_USER4_SCREEN = 7004 DECLARE LONG CONSTANT SMG$K_USER5_SCREEN = 7014 DECLARE LONG CONSTANT SMG$K_USER6_SCREEN = 7024 DECLARE LONG CONSTANT SMG$K_USER7_SCREEN = 7034 DECLARE LONG CONSTANT SMG$K_USER8_SCREEN = 7041 DECLARE LONG CONSTANT SMG$K_SET_ASCII = 7059 DECLARE LONG CONSTANT SMG$K_SET_SPEC_GRAPHICS = 7068 DECLARE LONG CONSTANT SMG$K_SET_SUPPLEMENTAL = 7074 DECLARE LONG CONSTANT SMG$K_SET_JIS_KANA = 7081 DECLARE LONG CONSTANT SMG$K_SET_KANJI = 7095 DECLARE LONG CONSTANT SMG$K_SET_JIS_ROMAN = 7101 DECLARE LONG CONSTANT SMG$K_SET_HANZI = 7111 DECLARE LONG CONSTANT SMG$K_SET_HANYU = 7122 DECLARE LONG CONSTANT SMG$K_SET_HANGUL = 7134 DECLARE LONG CONSTANT SMG$K_SET_KS_ROMAN = 7148 DECLARE LONG CONSTANT SMG$K_MAX_STRING2_CODE = 880ww ׮7PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD , MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY  * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q !  *************************************************************************** !  ! SOR$BEGIN_MERGE  ! $ ! Initialize a Merge Operation ! M ! Initializes the merge operation by opening the input and output filesK ! and by providing the number of input files, the key specifications, ! and the merge options. ! / EXTERNAL LONG FUNCTION SOR$BEGIN_MERGE & ( &) OPTIONAL ANY BY REF, &" WORD B Y REF, &" LONG BY REF, &" BYTE BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! SOR$BEGIN_SORT  !  ! Begin a Sort Operation ! M ! Initializes a sort operation by opening input and output files and by9 ! passing the key information and any sort options. ! . EXTERNAL LONG FUNCTI ON SOR$BEGIN_SORT & ( &) OPTIONAL ANY BY REF, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" BYTE BY REF, &" BYTE BY REF, &! LONG BY REF & ) !  ! SOR$DO_MERGE  !  ! Obsolete (from VMS V3) ! * EXTERNAL LONG FUNCTION  SOR$DO_MERGE !  ! SOR$END_SORT  !  ! End a Sort Operation ! K ! Does cleanup functions, such as closing files and releasing memory. ! , EXTERNAL LONG FUNCTION SOR$END_SORT & ( &) OPTIONAL LONG BY REF & ) !  ! SOR$INIT_MERGE  !  ! Obsolete (from VMS V3) ! . EXTERNAL LONG FUNCTION SOR$INIT_MERGE & ( &* OPTIONAL BYTE BY REF, &!  ANY BY REF, &" WORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! SOR$INIT_SORT  !  ! Obsolete (from VMS V3) ! - EXTERNAL LONG FUNCTION SOR$INIT_SORT & ( &) OPTIONAL ANY BY REF, &" WORD BY REF, &" LONG BY REF, &" BYTE BY REF, &"  BYTE BY REF, &" BYTE BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! SOR$PASS_FILES  !  ! Pass File Names ! B ! Passes the names of input and output files and output file) ! characteristics to SORT or MERGE. ! . EXTERNAL LONG FUNCTION SOR$PASS_FILES & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, &" BYTE BY REF, &" BYTE BY REF, &" WORD BY REF, &" WORD BY REF, &" LONG BY REF, &" LONG BY REF, &" BYTE BY REF, &! LONG BY REF & ) !  ! SOR$RELEASE_REC  !  ! Pass One Record to Sort ! J ! Used with the record interface to pass one input record to SORT or  ! MERGE. ! / EXTERNAL LONG FUNCTION SOR$RELEASE_REC & ( &% STRING BY DESC, &) OPTIONAL LONG BY REF & ) !  ! SOR$RETURN_REC ! ! Return One Sorted Record ! E ! Used with the record interface to return one sorted or merged ! record to a program. ! . EXTERNAL LONG FUNCTION SOR$RETURN_REC & ( &% STRING BY DESC, &*  OPTIONAL WORD BY REF, &! LONG BY REF & ) !  ! SOR$SORT_MERGE  ! ! Sort ! ! Sorts the input records. ! . EXTERNAL LONG FUNCTION SOR$SORT_MERGE & ( &) OPTIONAL LONG BY REF & ) !  ! SOR$SPEC_FILE  ! & ! Pass a Specification File Name ! @ ! Used to pass a specification file or specification text., !  - EXTERNAL LONG FUNCTION SOR$SPEC_FILE & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) !  ! SOR$STAT ! ! ! Obtain Sorting Statistics ! K ! Returns one statistic about the sort or merge operation to the user ! program. ! ( EXTERNAL LONG FUNCTION SOR$STAT & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & )ww NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:02:24.64 !  ! FILE: SORMSG.MSG  ! R ! ********************************************************************  ******** ! * *> ! * COPYRIGHT (C) 1978, 1980, 1982, 1984, 1993 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES TH EREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABIL! ITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! ++ ! " ! FACILITY: VAX-11 SORT/MERGE !  ! ABSTRACT: ! G ! THIS FILE CONTAINS THE DEFINITION FOR THE SORT FACILITY SPECIFIC? ! ERROR MESSAGES. THE FACILITY CODE FOR SORT/MERGE IS 28. ! % ! ENVIRONMENT: VAX/VMS USER MODE " ! 5 ! AUTHOR: P. GILBERT, CREATION DATE: 15-FEB-1982 !  ! MODIFIED BY: !  ! T03-015 ORIGINALE ! T03-018 CHANGED THE SEVERITY OF WORK_DEV FROM FATAL TO SEVERE. ! PDG 16-DEC-1982D ! T03-019 ADDED OPERFAIL, REQ_ALT AND USE_ALT. PDG 21-DEC-1982D ! T03-020 ADD NEW MESSAGES FOR ERRORS WITH COLLATING SEQUENCES. ! PDG 26-JAN-1983B ! T03-021 ADDED NEW MESSAGES FOR CDD ERRORS. PDG 11-FEB-1983/ ! T03-022 ADDED ENDDIAGS. PDG 16-MAR-198 # 37 ! T03-023 CHANGE TEXT OF COL_PAD. PDG 20-APR-1983- ! T03-024 ADDED OPREPLY. PDG 9-MAY-1983- ! T04-001 ADDED ODD_LEN. MH 15-JUL-1985A ! V06-001 CHANGED TEXT FOR VAR_FIX TO "truncated or padded". ! BAB 10-FEB-1992? ! CORRECTED SPELLING AND PUNCTUATION ERRORS.@ ! DEE RYAN 29-SEP-1993 ! -- ! L ! SOME ERROR MESSAGES WERE ISSUED BY OLD VERSIONS OF VAX-11 SORT/MERGE,A ! BUT ARE NO LONGER B $ E ISSUED. THESE MUST STILL BE DEFINED. ! P ! SOME ERROR MESSAGES WILL BE USED BY THE NEW VERSION OF VAX-11 SORT/MERGE,J ! BUT ARE NOT YET ISSUED BY THE CODE. THESE ARE PREFIXED WITH A "?". ! / DECLARE LONG CONSTANT SORT$_FACILITY = 283 DECLARE LONG CONSTANT SOR$_MISS_KEY = 18677803 DECLARE LONG CONSTANT SOR$_WORK_DEV = 18677861 DECLARE LONG CONSTANT SOR$_NO_WRK = 18677942 DECLARE LONG CONSTANT SOR$_VM_FAIL = 18678042 DECLARE LONG CONSTANT % SOR$_WS_FAIL = 18678122 DECLARE LONG CONSTANT SOR$_SORT_ON = 18678202 DECLARE LONG CONSTANT SOR$_BAD_KEY = 18678282 DECLARE LONG CONSTANT SOR$_NUM_KEY = 18678362 DECLARE LONG CONSTANT SOR$_BAD_LEN = 18678441 DECLARE LONG CONSTANT SOR$_ONE_IN = 18678522 DECLARE LONG CONSTANT SOR$_IND_OVR = 18678603 DECLARE LONG CONSTANT SOR$_INCONSIS = 18678682 DECLARE LONG CONSTANT SOR$_VAR_FIX = 18678723 DECLARE LONG CONSTANT SOR$_BAD_TYPE = 18678843 DECL & ARE LONG CONSTANT SOR$_LRL_MISS = 18678923 DECLARE LONG CONSTANT SOR$_BAD_SPEC = 18679002 DECLARE LONG CONSTANT SOR$_BAD_LRL = 18679063 DECLARE LONG CONSTANT SOR$_BAD_FILE = 18679162 DECLARE LONG CONSTANT SOR$_BAD_ADR = 1867924. DECLARE LONG CONSTANT SOR$_MAP = 18679321 DECLARE LONG CONSTANT SOR$_EXTEND = 18679402 DECLARE LONG CONSTANT SOR$_KEY_LEN = 18679463 DECLARE LONG CONSTANT SOR$_CLEAN_UP = 18679564 DECLARE LONG CONSTANT SOR$_BAD_MERGE = ' 18679625 DECLARE LONG CONSTANT SOR$_BAD_ROUTIN = 18679724 DECLARE LONG CONSTANT SOR$_INP_FILES = 18679804 DECLARE LONG CONSTANT SOR$_BAD_ORDER = 1867984 ! % ! V3B MESSAGES ARE DEFINED BELOW ! 5 DECLARE LONG CONSTANT SOR$_DUP_OUTPUT = 18679965 DECLARE LONG CONSTANT SOR$_MISS_PARAM = 18680043 DECLARE LONG CONSTANT SOR$_END_SORT = 18680090 DECLARE LONG CONSTANT SOR$_KEYED = 18680182 DECLARE LONG CONSTANT SOR$_BAD_SRL = 18680243 DE ( CLARE LONG CONSTANT SOR$_NODUPEXC = 18680362 DECLARE LONG CONSTANT SOR$_DELETE1 = 18680412 DECLARE LONG CONSTANT SOR$_DELETE2 = 18680492 DECLARE LONG CONSTANT SOR$_DELBOTH = 1868057. DECLARE LONG CONSTANT SOR$_NYI = 18680663 DECLARE LONG CONSTANT SOR$_RTNERROR = 18680744 DECLARE LONG CONSTANT SOR$_KEYAMBINC = 18680840 DECLARE LONG CONSTANT SOR$_OBS_0 = 18680922 DECLARE LONG CONSTANT SOR$_ROPRAND = 18680984 DECLARE LONG CONSTANT SOR$_UNDOPTION = 1 ) 8681084 DECLARE LONG CONSTANT SOR$_STABLEEXC = 18681161 DECLARE LONG CONSTANT SOR$_SRTIWA = 18681241 DECLARE LONG CONSTANT SOR$_SPCOVR = 18681281 DECLARE LONG CONSTANT SOR$_SPCMIS = 18681361 DECLARE LONG CONSTANT SOR$_SPCSIS = 18681441 DECLARE LONG CONSTANT SOR$_SPCIVP = 18681561 DECLARE LONG CONSTANT SOR$_SPCIVS = 18681641 DECLARE LONG CONSTANT SOR$_SPCIVC = 18681721 DECLARE LONG CONSTANT SOR$_SPCIVF = 18681801 DECLARE LONG CONSTANT * SOR$_SPCIVD = 18681881 DECLARE LONG CONSTANT SOR$_SPCIVX = 18681961 DECLARE LONG CONSTANT SOR$_SPCIVK = 18682041 DECLARE LONG CONSTANT SOR$_SPCIVI = 18682123 DECLARE LONG CONSTANT SOR$_INCNOKEY = 18682204 DECLARE LONG CONSTANT SOR$_INCNODATA = 18682282 DECLARE LONG CONSTANT SOR$_INVFOLD = 18682343 DECLARE LONG CONSTANT SOR$_OPERFAIL = 18682442 DECLARE LONG CONSTANT SOR$_REQ_ALT = 18682512 DECLARE LONG CONSTANT SOR$_USE_ALT = 18682592 DE + CLARE LONG CONSTANT SOR$_COL_ADJ = 18682684 DECLARE LONG CONSTANT SOR$_COL_CMPLX = 18682763 DECLARE LONG CONSTANT SOR$_COL_CHAR = 18682842 DECLARE LONG CONSTANT SOR$_COL_PAD = 18682924 DECLARE LONG CONSTANT SOR$_COL_THREE = 18683003 DECLARE LONG CONSTANT SOR$_BADDTYPE = 18683064 DECLARE LONG CONSTANT SOR$_BADLENOFF = 18683144 DECLARE LONG CONSTANT SOR$_BADOCCURS = 18683244 DECLARE LONG CONSTANT SOR$_BADOVRLAY = 18683304 DECLARE LONG CONSTANT SOR$ , _BADPROTCL = 18683403 DECLARE LONG CONSTANT SOR$_CDDERROR = 18683482 DECLARE LONG CONSTANT SOR$_ILLBASE = 18683544 DECLARE LONG CONSTANT SOR$_ILLLITERL = 18683643 DECLARE LONG CONSTANT SOR$_ILLSCALE = 18683704 DECLARE LONG CONSTANT SOR$_INCDIGITS = 18683784 DECLARE LONG CONSTANT SOR$_MISLENOFF = 18683843 DECLARE LONG CONSTANT SOR$_MULTIDIM = 18683944 DECLARE LONG CONSTANT SOR$_NOTRECORD = 18684044 DECLARE LONG CONSTANT SOR$_SIGNCOMPQ = 18684084 - DECLARE LONG CONSTANT SOR$_UNSUPLEVL = 18684203 DECLARE LONG CONSTANT SOR$_ENDDIAGS = 18684272 DECLARE LONG CONSTANT SOR$_OPREPLY = 18684351 DECLARE LONG CONSTANT SOR$_CHKPNT = 18684412 DECLARE LONG CONSTANT SOR$_ODD_LEN = 18684523 DECLARE LONG CONSTANT SOR$_STATMSG1 = 18684593 DECLARE LONG CONSTANT SOR$_STATMSG2 = 18684673 DECLARE LONG CONSTANT SOR$_STATMSG3 = 18684753 DECLARE LONG CONSTANT SOR$_STATMSG4 = 18684833 DECLARE LONG CONSTANT SOR$_STATMSG5 = 18684913 DECLARE LONG CONSTANT SOR$_STATMSG6 = 18684993 DECLARE LONG CONSTANT SOR$_STATMSG7 = 18685073 DECLARE LONG CONSTANT SOR$_STATMSG8 = 18685153 DECLARE LONG CONSTANT SOR$_STATMSG9 = 18685234 DECLARE LONG CONSTANT SOR$_STATMSG10 = 1868531ww/ @8PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI0 NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET1 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + ! Define Procedure argument data types! ! C.9 ARGUMENT DATA TYPESA ! The following encoding is used for atomic data elements:. ! Mnemonic Code DescriptionW DECL2 ARE LONG CONSTANT DSC$K_DTYPE_Z = 0 ! Unspecified. The calling program has 3 ! specified no data type/* the called2 ! procedure should assume the argument is of ! the correct type.N DECLARE LONG CONSTANT DSC$K_DTYPE_V = 1 ! Bit. An aligned bit string. Z DECLARE LONG CONSTANT DSC$K_DTYPE_BU = 2 ! Byte Logical. 8-bit unsigned quantity. [ DECLARE LONG CONSTANT DSC$K_DTYPE_WU = 3 ! Word Logical. 16-bit unsigned quantity. U DECLARE LONG CONSTANT 3 DSC$K_DTYPE_LU = 4 ! Longword Logical. 32-bit unsigned  ! quantity.U DECLARE LONG CONSTANT DSC$K_DTYPE_QU = 5 ! Quadword Logical. 64-bit unsigned  ! quantity.W DECLARE LONG CONSTANT DSC$K_DTYPE_OU = 25 ! Octaword Logical. 128-bit unsigned  ! quantity.\ DECLARE LONG CONSTANT DSC$K_DTYPE_B = 6 ! Byte Integer. 8-bit signed 2's-complement  ! integer.] DECLARE LONG CONSTANT DSC$K_DTYPE_W = 7 ! Word Integer. 16-bit signed 2's-complement  ! 4 integer.R DECLARE LONG CONSTANT DSC$K_DTYPE_L = 8 ! Longword Integer. 32-bit signed  ! 2's-complement integer.R DECLARE LONG CONSTANT DSC$K_DTYPE_Q = 9 ! Quadword Integer. 64-bit signed  ! 2's-complement integer.T DECLARE LONG CONSTANT DSC$K_DTYPE_O = 26 ! Octaword Integer. 128-bit signed  ! 2's-complement integer.g DECLARE LONG CONSTANT DSC$K_DTYPE_F = 10 ! F_floating. 32-bit F_floating quantity representing ! ! a single-precision number.g 5 DECLARE LONG CONSTANT DSC$K_DTYPE_D = 11 ! D_floating. 64-bit D_floating quantity representing ! ! a double-precision number.g DECLARE LONG CONSTANT DSC$K_DTYPE_G = 27 ! G_floating. 64-bit G_floating quantity representing ! ! a double-precision number.h DECLARE LONG CONSTANT DSC$K_DTYPE_H = 28 ! H_floating. 128-bit H_floating quantity representing $ ! a quadruple-precision number.c DECLARE LONG CONSTANT DSC$K_DTYPE_FC = 12 ! F_floating complex. Ordered 6 pair of F_floating 9 ! quantities representing a single-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.c DECLARE LONG CONSTANT DSC$K_DTYPE_DC = 13 ! D_floating complex. Ordered pair of D_floating 9 ! quantities representing a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imagina 7 ry part.c DECLARE LONG CONSTANT DSC$K_DTYPE_GC = 29 ! G_floating complex. Ordered pair of G_floating 9 ! quantities representing a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.c DECLARE LONG CONSTANT DSC$K_DTYPE_HC = 30 ! H_floating complex. Ordered pair of H_floating < ! quantities representing a quadruple-precision complex3 ! number. The lower addresse8 d quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.n DECLARE LONG CONSTANT DSC$K_DTYPE_FS = 52 ! IEEE floating basic single S. 32-bit quantity representing! ! a single-precision number.n DECLARE LONG CONSTANT DSC$K_DTYPE_FT = 53 ! IEEE floating basic double T. 64-bit quantity representing! ! a double-precision number.u DECLARE LONG CONSTANT DSC$K_DTYPE_FSC = 54 ! IEEE floating basic single S complex. Ordered pair of S 9 _floating9 ! quantities representing a single-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.u DECLARE LONG CONSTANT DSC$K_DTYPE_FTC = 55 ! IEEE floating basic double T complex. Ordered pair of T_floating9 ! quantities representing a double-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! : imaginary part.s DECLARE LONG CONSTANT DSC$K_DTYPE_FX = 57 ! IEEE floating basic quadruple X. 128-bit quantity representing $ ! an extended-precision number.y DECLARE LONG CONSTANT DSC$K_DTYPE_FXC = 58 ! IEEE floating basic quadruple X complex. Ordered pair of X_floating < ! quantities representing an extended-precision complex3 ! number. The lower addressed quantity is the7 ! real part, the higher addressed quantity is the ! imaginary part.b DECL ; ARE LONG CONSTANT DSC$K_DTYPE_CIT = 31 ! COBOL Intermediate Temporary. Floating point 0 ! datum with an 18 digit normalized decimal4 ! fraction and a 2 digit decimal exponent. The2 ! fraction is represented as a packed decimal0 ! number. The exponent is represented as a1 ! 16-bit 2's complement integer. A detailed4 ! description of this data type can be found in% ! Section 7.4 of SRM Appendix C.C DECLARE LONG CONSTANT DSC$K_DTYPE_VU = 34 ! Bit Unaligne< d. N ! The following string types are ordinarily described by a stringJ ! descriptor. The data type codes below occur in those descriptors:b DECLARE LONG CONSTANT DSC$K_DTYPE_T = 14 ! Character-coded text. A single 8-bit character / ! (atomic data type) or a sequence of 0 to3 ! 2**16-1 8-bit characters (string data type).\ DECLARE LONG CONSTANT DSC$K_DTYPE_VT = 37 ! Varying Character-coded Text Data Type. W DECLARE LONG CONSTANT DSC$K_DTYPE_T2 = 3= 8 ! 16-bit Text ( Asian workstations )N DECLARE LONG CONSTANT DSC$K_DTYPE_NU = 15 ! Numeric string, unsigned. X DECLARE LONG CONSTANT DSC$K_DTYPE_NL = 16 ! Numeric string, left separate sign. \ DECLARE LONG CONSTANT DSC$K_DTYPE_NLO = 17 ! Numeric string, left overpunched sign. Y DECLARE LONG CONSTANT DSC$K_DTYPE_NR = 18 ! Numeric string, right separate sign. ] DECLARE LONG CONSTANT DSC$K_DTYPE_NRO = 19 ! Numeric string, right overpunched sign. P DECL> ARE LONG CONSTANT DSC$K_DTYPE_NZ = 20 ! Numeric string, zoned sign. J DECLARE LONG CONSTANT DSC$K_DTYPE_P = 21 ! Packed decimal string. E ! The following encodings are used for miscellaneous data types:N DECLARE LONG CONSTANT DSC$K_DTYPE_ZI = 22 ! Sequence of instructions. K DECLARE LONG CONSTANT DSC$K_DTYPE_ZEM = 23 ! Procedure entry mask. d DECLARE LONG CONSTANT DSC$K_DTYPE_DSC = 24 ! Descriptor. This data type allows a descriptor 4 ! to be an argument d ? ata type, thereby allowing( ! the use of levels of descriptors.b DECLARE LONG CONSTANT DSC$K_DTYPE_BPV = 32 ! Bound Procedure Value. A two longword entity 7 ! in which the first longword contains the address8 ! of a procedure entry mask and the second longword8 ! contains the environment value. The environmeent1 ! value is determined in a language specific6 ! fashion when the original Bound Procedure Value1 ! is generated. When the bound procedure is4 @ ! invoked, the calling program loads the second6 ! longword into R1. This data type can be passed3 ! using the immediate value mechanism when the5 ! environment value is not needed. In this case6 ! the argument list entry contains the address of7 ! the procedure entry mask and the second longword ! is omitted.H DECLARE LONG CONSTANT DSC$K_DTYPE_BLV = 33 ! Bound label value. L DECLARE LONG CONSTANT DSC$K_DTYPE_ADT = 35 ! Absolute Date and Time V A ! K DTYPE_???,36 /* DTYPE code 36 is reserved for future definitionH ! The following types are used by the VAX/VMS Debug Facility: \FORL ! INTERNAL DOCUMENTATION ONLY. For details, see VAX/VMS Debug Facility ! Documentation.\R DECLARE LONG CONSTANT DSC$K_DTYPE_CAD = 178 ! Address calculation command N DECLARE LONG CONSTANT DSC$K_DTYPE_ENT = 179 ! Entry global definition O DECLARE LONG CONSTANT DSC$K_DTYPE_GBL = 180 ! Global symbol definition B N DECLARE LONG CONSTANT DSC$K_DTYPE_EPT = 181 ! Entry point to routine. ^ DECLARE LONG CONSTANT DSC$K_DTYPE_R11 = 182 ! Line number relative to R11 correlation ! table.H DECLARE LONG CONSTANT DSC$K_DTYPE_FLD = 183 ! BLISS FIELD name. I DECLARE LONG CONSTANT DSC$K_DTYPE_PCT = 184 ! PSECT information. [ DECLARE LONG CONSTANT DSC$K_DTYPE_DPC = 185 ! PC correlation table for FORTRAN IV+ G DECLARE LONG CONSTANT DSC$K_DTYPE_LBL = 186 ! LITERAL or LABC EL ] DECLARE LONG CONSTANT DSC$K_DTYPE_SLB = 187 ! Label in non-assembly language modules N DECLARE LONG CONSTANT DSC$K_DTYPE_MOD = 188 ! Beginning of new module D DECLARE LONG CONSTANT DSC$K_DTYPE_EOM = 189 ! End of module O DECLARE LONG CONSTANT DSC$K_DTYPE_RTN = 190 ! Beginning of new routine E DECLARE LONG CONSTANT DSC$K_DTYPE_EOR = 191 ! End of routine > ! The following type codes are RESERVED for future use:2 ! 37-177 R D ESERVED to DECA ! 192-255 RESERVED to CSS and customers! ! C.10 ARGUMENT DESCRIPTORSM ! A uniform descriptor mechanism is defined for use by all proceduresM ! which conform to this standard. Descriptors are uniformly typed andM ! the mechanism is extensible. As new varieties of descriptor become7 ! necessary, they will be added to this catalogue. ! Note: ! H ! All fields represent unsigned quantities unless explicitly E stated ! otherwise.# ! C.10.1 Descriptor PrototypeM ! Each class of descriptor consists of at least 2 longwords in the ! following format:- ! +-------+-------+---------------+: ! | CLASS | DTYPE | LENGTH | :Descriptor- ! +-------+-------+---------------+- ! | POINTER |- ! +-------------------------------+F ! DSC$W_LENGTH A one-word field specific to the descriptorI ! F <0,15:0> class/* typically a 16-bit (unsigned) length. ! E ! DSC$B_DTYPE A one-byte atomic data type code (see C.9) ! <0,23:16> ! G ! DSC$B_CLASS A one-byte descriptor class code (see below) ! <0,31:24> ! G ! DSC$A_POINTER A longword pointing to the first byte of the2 ! <1,31:0> data element described.M ! Note that the descriptor can be placed in a pair of registers with aM ! MOVQ insG truction and then the length and address used directly. ThisM ! gives a word length, so the class and type are placed as bytes in theM ! rest of that longword. Class 0 is unspecified and hence no more than, ! the above information can be assumed.* ! Define the descriptor class codes/*> DECLARE LONG CONSTANT DSC$K_CLASS_Z = 0 ! Unspecified L DECLARE LONG CONSTANT DSC$K_CLASS_S = 1 ! Scalar, String Descriptor L DECLARE LONG CONSTANT DSC$K_CLASS_D = 2 ! H Dynamic String Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_V = 3 ! Reserved for use by Digital C DECLARE LONG CONSTANT DSC$K_CLASS_A = 4 ! Array Descriptor G DECLARE LONG CONSTANT DSC$K_CLASS_P = 5 ! Procedure Descriptor T DECLARE LONG CONSTANT DSC$K_CLASS_PI = 6 ! Procedure Incarnation Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_J = 7 ! Reserved for use by Digital < DECLARE LONG CONSTANT DSC$K_CLASS_JI = 8 ! Obsolete T DECLARE LONG CONSTANI T DSC$K_CLASS_SD = 9 ! Decimal Scalar String Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_NCA = 10 ! Non-contiguous Array Descriptor N DECLARE LONG CONSTANT DSC$K_CLASS_VS = 11 ! Varying String Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_VSA = 12 ! Varying String Array Descriptor U DECLARE LONG CONSTANT DSC$K_CLASS_UBS = 13 ! Unaligned Bit String Descriptor T DECLARE LONG CONSTANT DSC$K_CLASS_UBA = 14 ! Unaligned Bit Array Descriptor R DECLARE LOJ NG CONSTANT DSC$K_CLASS_SB = 15 ! String with Bounds Descriptor b DECLARE LONG CONSTANT DSC$K_CLASS_UBSB = 16 ! Unaligned Bit String with Bounds Descriptor I ! The following descriptor class is FOR INTERNAL USE ONLY by the VAXK ! Common Run-Time Library and Debugger. This descriptor is not passedI ! between separately compiled modules. For further information, seeD ! VAX-11 BASIC Description of Generated Code, Software Document# ! Retrieval Number JBS-79-004.RK DECLARE LONG CONSTANT DSC$K_CLASS_BFA = 191 ! BASIC File Array Descriptor > ! Descriptor classes 17-190 are RESERVED to DEC. Classes9 ! 192 through 255 are RESERVED to CSS and customers.) ! Array Descriptor (DSC$K_CLASS_A)L ! An array descriptor consists of 3 contiguous blocks. The first blockN ! contains the descriptor prototype information and is part of everyN ! array descriptor. The second and third blocks are optional. If the5 ! third bl L ock is present then so is the second.2 ! A complete array descriptor has the form:. ! +-------+-------+---------------+; ! | 4 | DTYPE | LENGTH | :Descriptor. ! +-------+-------+---------------+. ! | POINTER |. ! +-------+-------+---------------+K ! | DIMCT | AFLAGS|DIGITS | SCALE | Block 1 - Prototype. ! +-------+-------+---------------+. ! | ARSIZE M |. ! +-------------------------------+ ! . ! +-------------------------------+. ! | A0 |. ! +-------------------------------+. ! | M1 |. ! +-------------------------------+M ! | ... | Block 2 - Multipliers. ! +-------------------------------+. ! | M(n-1) |. ! +------ N -------------------------+. ! | Mn |. ! +-------------------------------+ ! . ! +-------------------------------+. ! | L1 |. ! +-------------------------------+. ! | U1 |. ! +-------------------------------+H ! | ... | Block 3 - Bounds. ! +-------------------------------+. ! O | Ln |. ! +-------------------------------+. ! | Un |. ! +-------------------------------+ !  !  ! Define descriptor fields:@ ! \The following three fields are only valid for descriptor+ ! class DSC$K_CLASS_BFA (see above). \- DECLARE LONG CONSTANT DSC$S_DSCDEF = 14 record DSCDEF^ LONG DSC$A_HANDLE ! The address of a vector of data concerning the P 6 ! current state of processing of the array. This+ ! is set to zero by the creator of the3 ! descriptor, and maintained thereafter by the- ! BASIC file array processing functions. ! \ LONG DSC$L_BYTEOFF ! Byte offset in the file of element 0,0,...,0 1 ! of the array. This need not be within the2 ! array, or even within the file if the array! ! does not have zero origin. ! ] LONG DSC$L_LOGUNIT ! The Q logical unit number ( BASIC channel ) on . ! which the file containing the array has6 ! been opened. This is set by the creator of the5 ! descriptor before first referencing the array. ! I ! End of BASIC File Array specific descriptor fields. The remaining2 ! fields are common to all array descriptors. !  ! c WORD DSC$W_LENGTH ! A one-word field specifiec to the descriptor class; , ! typically a 16-bit (unsigned) length. R end record DSCDEF - DECLARE LONG CONSTANT DSC$S_DSCDEF1 = 8 record DSCDEF1b WORD DSC$W_MAXSTRLEN ! Max length of the BODY field of the varying string * ! in bytes in the range 0 to 2**16-1. ! (Classes VS, VSA)] BYTE DSC$B_DTYPE ! A one-byte atomic data type code ( see C.9 ) : ! Symbols used in this filed have form: DSC$K_DTYPE_t3 ! where t is the data type mnemonic from above* ! and agrees with m S ethodology manual.` BYTE DSC$B_CLASS ! A one-byte descriptor class code ( see above ). : ! Symbols used in this field have form: DSC$K_CLASS_f7 ! where f is the argument form mnemonic from above. ! and agrees with the methodology manual.a LONG DSC$A_POINTER ! A longword pointing to the first byte of the data  ! element described. end record DSCDEF1 X DECLARE LONG CONSTANT DSC$K_Z_BLN = 8 ! Block length iT n bytes for Z class desc. X DECLARE LONG CONSTANT DSC$C_Z_BLN = 8 ! Block length in bytes for Z class desc. Y DECLARE LONG CONSTANT DSC$K_S_BLN = 8 ! Block length in bytes for S class descr. Y DECLARE LONG CONSTANT DSC$C_S_BLN = 8 ! Block length in bytes for S class descr. Y DECLARE LONG CONSTANT DSC$K_D_BLN = 8 ! Block length in bytes for D class descr. Y DECLARE LONG CONSTANT DSC$C_D_BLN = 8 ! Block length in bytes for D class descr. Y DECLARE LONG CU ONSTANT DSC$K_P_BLN = 8 ! Block length in bytes for P class descr. Y DECLARE LONG CONSTANT DSC$C_P_BLN = 8 ! Block length in bytes for P class descr. Y DECLARE LONG CONSTANT DSC$K_J_BLN = 8 ! Block length in bytes for J class descr. Y DECLARE LONG CONSTANT DSC$C_J_BLN = 8 ! Block length in bytes for J class descr. [ DECLARE LONG CONSTANT DSC$K_VS_BLN = 8 ! Block length in bytes for VS class descr. [ DECLARE LONG CONSTANT DSC$C_VS_BLN = 8 ! Block length inV bytes for VS class descr.  ! +- DECLARE LONG CONSTANT DSC$S_DSCDEF2 = 8 record DSCDEF2( BYTE DSCDEF$$_FILL_3 ( 1 to 4 )e LONG DSC$A_BASE ! Base of address relative to which the signed relative ; ! bit position, POS, is used to locate the bit string." ! (Classes UBS, UBA and UBSB)5 ! End of common definitions for all descriptors. ! - ! +( ! Unaligned bit string definitions. ! - end record DSCDEF2 W  ^ DECLARE LONG CONSTANT DSC$K_UBS_BLN = 12 ! Block length in bytes for UBS class descr. ^ DECLARE LONG CONSTANT DSC$C_UBS_BLN = 12 ! Block length in bytes for UBS class descr.  ! +. DECLARE LONG CONSTANT DSC$S_DSCDEF3 = 12 record DSCDEF3( BYTE DSCDEF$$_FILL_4 ( 1 to 8 )U LONG DSC$L_POS ! Signed longword relative bit position , ! with respect to BASE of the first bit ! of unaligned bit string5 ! WARNING?? X Do not use this symbol to reference4 ! class UBA descriptors? The DSC$L_POS in that5 ! descriptor is at a variable location after the$ ! bounds and multiplier blocks.* ! Varying type descriptor definitions ! - end record DSCDEF3 . DECLARE LONG CONSTANT DSC$S_DSCDEF4 = 12 record DSCDEF4( BYTE DSCDEF$$_FILL_5 ( 1 to 8 )O WORD DSC$W_MAXLEN ! An unsigned word specifying the & ! maximum length of the data item" Y ! (i.e., the space allocated)= WORD DSCDEF$$_FILL_1 ! reserved word  ! +# ! Array Descriptor definitions ! - end record DSCDEF4 \ DECLARE LONG CONSTANT DSC$K_SD_BLN = 12 ! Block length in bytes for SD class descr. \ DECLARE LONG CONSTANT DSC$C_SD_BLN = 12 ! Block length in bytes for SD class descr. . DECLARE LONG CONSTANT DSC$S_DSCDEF5 = 20 record DSCDEF5( BYTE DSCDEF$$_FILL_6 ( 1 to 8 )] BYTE DS Z C$B_SCALE ! Signed power of ten multiplier to convert the 4 ! internal form to external form. For example,1 ! if internal number is 123 and scale is +1,4 ! then the represented external number is 1230.W BYTE DSC$B_DIGITS ! If non-zero, unsigned number of decimal 1 ! digits in the external representation. If1 ! zero, the number of digits can be computed ! based on DSC$W_LENGTH.# group DSC$R_AFLAGS_OVERLAY [ variant case@ BYTE DSC$B_AFLAGS ! Array flag bits.  case) group DSC$R_AFLAGS_BITS- ! reserved to Digital A ! If set, the array can be redimensioned; . ! i.e., DSC$A_A0, DSC$L_Mi, DSC$L_Li, and2 ! DSC$L_Ui may be changed. The redimensioned0 ! array cannot exceed the size allocated to% ! the array (i.e. DSC$L_ARSIZE).? ! I \ f set, the elements of the array are . ! stored by columns (FORTRAN)> Otherwise' ! the elements are stored by rows.D ! If set, the multiplicative coefficients in  ! Block 2 are present.C ! If set, the bounds information in Block 3  ! is present.s BYTE FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FL_BOUNDS- end group DSC$R_AFLAGS_BITS end vari ] ant' end group DSC$R_AFLAGS_OVERLAYD BYTE DSC$B_DIMCT ! Number of dimensions ] LONG DSC$L_ARSIZE ! Total size of array (in bytes unless DTYPE is , ! EQUL DSC$K_DTYPE_V or DSC$K_DTYPE_P).X LONG DSC$A_A0 ! Address of element A ( 0,0,...,0 ). This / ! need not be within the actual array/* it0 ! is the same as DSC$A_POINTER for 0-origin ! arrays. end record DSCDEF5 . DE ^ CLARE LONG CONSTANT DSC$S_DSCDEF6 = 28 record DSCDEF6) BYTE DSCDEF$$_FILL_7 ( 1 to 16 )` LONG DSC$L_V0 ! Signed bit offset of element A ( 0,0,...0 ) with $ ! respect to BASE. (Class UBA)D ! The following two fields have meaning only if the array is of4 ! class DSC$K_CLASS_NCA (Non-contiguous array).W LONG DSC$L_S1 ! Stride of the first dimension, i.e. the * ! difference between the addresses of2 ! _ successive elements of the first dimension.O LONG DSC$L_S2 ! Stride of the second dimension.  end record DSCDEF6 . DECLARE LONG CONSTANT DSC$S_DSCDEF7 = 28 record DSCDEF7) BYTE DSCDEF$$_FILL_8 ( 1 to 20 )S LONG DSC$L_M1 ! Addressing coefficient M1 = U1-L1+1 S LONG DSC$L_M2 ! Addressing coefficient M2 = U2-L2+1  ! +< ! Procedure Incarnation descriptor (DSC$K_CLA ` SS_PI) and5 ! Label Incarnation descriptor (DSC$K_CLASS_JI). ! - end record DSCDEF7 \ DECLARE LONG CONSTANT DSC$K_PI_BLN = 12 ! Block length in bytes for PI class descr. \ DECLARE LONG CONSTANT DSC$C_PI_BLN = 12 ! Block length in bytes for PI class descr. \ DECLARE LONG CONSTANT DSC$K_JI_BLN = 12 ! block length in bytes for JI class descr. \ DECLARE LONG CONSTANT DSC$C_JI_BLN = 12 ! block length in bytes for JI class descr.  ! +. DECL a ARE LONG CONSTANT DSC$S_DSCDEF8 = 12 record DSCDEF8( BYTE DSCDEF$$_FILL_9 ( 1 to 8 )@ LONG DSC$A_FRAME ! Address of frame 6 ! String with Bounds descriptor (DSC$K_CLASS_SB). ! - end record DSCDEF8 . DECLARE LONG CONSTANT DSC$S_DSCDEF9 = 16 record DSCDEF9) BYTE DSCDEF$$_FILL_10 ( 1 to 8 )T LONG DSC$L_SB_L1 ! Signed lower bound of first dimensionT LONG DSC$L_SB_U1  ! Signed upper bound of first dimension ! +F ! Unaligned Bit String with Bounds descriptor (DSC$K_CLASS_UBSB). ! - end record DSCDEF9 / DECLARE LONG CONSTANT DSC$S_DSCDEF10 = 20 record DSCDEF10* BYTE DSCDEF$$_FILL_11 ( 1 to 12 )T LONG DSC$L_UBSB_L1 ! Signed lower bound of first dimensionT LONG DSC$L_UBSB_U1 ! Signed upper bound of first dimension end record DSCDEF10  wwc @39PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGId NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETe %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +" ! Define SRM Hardware symbols ! -O DECLARE LONG CONSTANT SRM$K_INT_OVF_T = 1 ! Integer overflow trap code U DECLARE LONG CONSTANT SRM$K_INT_DIV_T = 2 ! Integer divide by f zero trap code P DECLARE LONG CONSTANT SRM$K_FLT_OVF_T = 3 ! Floating overflow trap code ^ DECLARE LONG CONSTANT SRM$K_FLT_DIV_T = 4 ! Floating/decimal Divide by zero trap code Q DECLARE LONG CONSTANT SRM$K_FLT_UND_T = 5 ! Floating Underflow trap code V DECLARE LONG CONSTANT SRM$K_DEC_OVF_T = 6 ! Decimal string overflow trap code I DECLARE LONG CONSTANT SRM$K_SUB_RNG_T = 7 ! Subscript range trap Q DECLARE LONG CONSTANT SRM$K_FLT_OVF_F = 8 ! Floating Overflow fault code W DECLARE LONG CONSTANT SRM$K_FLT_DIV_F = 9 ! Floating Divide by zero fault code S DECLARE LONG CONSTANT SRM$K_FLT_UND_F = 10 ! Floating Underflow fault code  wwh `x9PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIi NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETj %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +1 ! Define PSW bits (STARDEF.MDL has PSL bits) ! -1 DECLARE LONG CONSTANT PSW$M_C = x'00000001'1 DECLARE LONG CONSTANT PSW$M_V = x'00000002'1 DECLARE LONG CONSTANT PSW$k M_Z = x'00000004'1 DECLARE LONG CONSTANT PSW$M_N = x'00000008'4 DECLARE LONG CONSTANT PSW$M_TBIT = x'00000010'2 DECLARE LONG CONSTANT PSW$M_IV = x'00000020'2 DECLARE LONG CONSTANT PSW$M_FU = x'00000040'2 DECLARE LONG CONSTANT PSW$M_DV = x'00000080', DECLARE LONG CONSTANT PSW$S_PSWDEF = 1 record PSWDEF variant case& group PSW$R_PSWDEF_BITS ! carry  ! overflow  ! zero  ! negative ( ! trace trap enable . ! integer overflow enable 0 ! floating underflow enable . ! decimal overflow enable Z BYTE C_bits ! COMMENT ADDED BY SDL - C_bits contains bits C through DV* end group PSW$R_PSWDEF_BITS end variant end record PSWDEF  wwm `9PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIn NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETo %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! += ! Define stack frame offsets as a separate structure SF$ ! -0 DECLARE LONG CONSTANT SF$M_C = x'00000001'0 DECLARE LONG CONSTANT SF$M_V = x'00000002'0 DECLARE LONG CONST p ANT SF$M_Z = x'00000004'0 DECLARE LONG CONSTANT SF$M_N = x'00000008'3 DECLARE LONG CONSTANT SF$M_TBIT = x'00000010'1 DECLARE LONG CONSTANT SF$M_IV = x'00000020'1 DECLARE LONG CONSTANT SF$M_FU = x'00000040'1 DECLARE LONG CONSTANT SF$M_DV = x'00000080'+ DECLARE LONG CONSTANT SF$S_SFDEF = 24 record SFDEFR LONG SF$A_HANDLER ! Adr. of handler or 0 if no handler $ group SF$R_SAVE_PSW_OVERLAY variant q case9 WORD SF$W_SAVE_PSW ! saved PSW  case* group SF$R_SAVE_PSW_BITS ! carry " ! overflow  ! zero " ! negative + ! trace trap enable 1 ! integer overflow enable 3 ! floating underflow enable 1 ! decimal overflow enable ] BYTE r C_bits ! COMMENT ADDED BY SDL - C_bits contains bits C through DV. end group SF$R_SAVE_PSW_BITS end variant( end group SF$R_SAVE_PSW_OVERLAY% group SF$R_SAVE_MASK_OVERLAY variant caseN WORD SF$W_SAVE_MASK ! saved register mask plus flags  case+ group SF$R_SAVE_MASK_BITS, ! register save mask  ! MBZ $ s ! 1 if CALLS # ! SP offset | WORD SAVE_MASK_bits ! COMMENT ADDED BY SDL - SAVE_MASK_bits contains bits SAVE_MASK through STACKOFFS/ end group SF$R_SAVE_MASK_BITS end variant) end group SF$R_SAVE_MASK_OVERLAY8 LONG SF$L_SAVE_AP ! saved AP 8 LONG SF$L_SAVE_FP ! saved FP 8 LONG SF$L_SAVE_PC ! saved PC R LONG SF$L_SAVE_REGS ! first register saved is saved here  end record SFDEF wwu `ۅ %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIv NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETw %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:22:09.13 ! E ! SSMSG.MSG - SYSTEM DEFINITION FILE FOR SYSTEM SERVICE MESSAGES !  ! VERSION: 'X-67' x ! R ! **************************************************************************** ! * *, ! * COPYRIGHT 1978-1998 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT y NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * z DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** ! ++ ! , ! FACILITY: VMS SYSTEM MACRO LIBRARIES !  ! ABSTRACT: ! E ! THIS FILE CONTAINS THE SDL SOURCE FOR SYSTEM SERVICE MESSAGES. !  ! GUIDELINES: ! L ! WITH THE RE { LEASE OF HELP MESSAGE, MESSAGE DOCUMENTATION MUST EXACTLY M ! MATCH THE MESSAGE TEXT IN THIS FILE IN ORDER FOR THE ONLINE SEARCH TO H ! SUCCEED. TO AVOID DOCUMENTING EMBARRASSING TYPOS OR GRAMMATICAL K ! ERRORS, PLEASE FORWARD YOUR NEW OR CHANGED MESSAGES TO THE MESSAGES J ! WRITER FOR A QUICK EDIT. VMS SENIOR MANAGEMENT SUPPORTS ENFORCING J ! STANDARD MESSAGE FORMATTING CONVENTIONS, WHICH ARE INCLUDED IN THE  ! FOLLOWING GUIDELINES. ! R ! O SS$ CODE NA | MES SHOULD BE 15 OR FEWER CHARACTERS TO PREVENT TRUNCATION7 ! IN MESSAGE TEXT, WHICH CAUSES GENERAL CONFUSION. ! Q ! O WORDS IN MESSAGES SHOULD NOT BEGIN WITH CAPS UNLESS THEY WOULD START5 ! WITH CAPS IN RUNNING TEXT. FOR EXAMPLE, ! / ! WRONG: / ! RIGHT:  ! K ! THIS IS NOT WELL KNOWN, BUT THE $GETMSG SYSTEM SERVICE AUTOMATICALLYL ! CONVERTS TO UPPERCASE THE INITIAL LETTE } R OF A MESSAGE WHEN RETRIEVINGD ! A MESSAGE IN AN ENVIRONMENT WHERE THE FACILITY, SEVERITY, AND2 ! IDENTIFICATION FIELDS HAVE BEEN SUPPRESSED. ! / ! O ACRONYMS SHOULD BE UPPERCASE ONLY: ! % !  ! = ! O DO NOT USE PUNCTUATION AT THE END OF A MESSAGE.  ! M ! O AVOID USING CONTRACTIONS IN MESSAGES. FOR EXAMPLE, USE "cannot" D ! INSTEAD OF "can't" AND "does not" INSTEAD OF "doesn't". ! ~ K ! O "It's" IS A CONTRACTION FOR "it is". THE POSSESSIVE IS "its". ! L ! O USE THE WORDS "and" OR "or" INSTEAD OF A "/" WHENEVER POSSIBLE. ! 9 ! WRONG: ? ! RIGHT:  ! Q ! O AVOID USING HYPHENS TO SEPARATE CLAUSES. USE A SEMICOLON INSTEAD.  ! B ! WRONG: A ! RIGHT:  ! M ! O SEMICOLONS SHOULD BE USED TO SEPARATE MAIN CLAUSES THAT ARE NOT K ! JOINED BY "and" OR "but". IN THE ABOVE EXAMPLE, IT IS GRAMMATICALLYN ! INCORRECT TO USE A COMMA IN PLACE OF THE SEMICOLON. A COMMA IS CORRECTN ! WHEN EITHER CLAUSE DOES NOT FORM A COMPLETE SENTENCE OR WHEN THE COMMA 9 ! IS USED TO SEPARATE ITEMS IN A LIST. FOR EXAMPLE, ! D !  ! H ! O ABOVE ALL, KEEP THE JARGON TO A MINIMUM AND CONCENTRATE ON I ! COMMUNICATING A MESSAGE THAT IS AS INFORMATIVE AND HELPFUL AS YOU  ! CAN MAKE IT. !  ! 6 ! NOTE BENE: WHEN OBSOLETING OR ADDING MESSAGES:  ! P ! O REUSE OBSOLETE MESSAGE ENTRIES WHEN POSSIBLE. THESE ARE MARKED BY + ! A MESSAGE NAME OF OBSOLETE_. ! O ! O IF YOU MUST REMOVE A MESSAGE, DON'T SIMPLY DELETE IT. IF MESSAGESL ! COME AFTER IT, OBSOLETE IT BY CHANGING THE NAME TO OBSOLETE_.K ! LOOK FOR THE OTHER OBSOLETE MESSAGES TO FIND OUT WHAT THE NEXT FREE M ! NUMBER IS. THIS WILL LET OTHERS KNOW THAT WHEN THEY WANT A SLOT, THEY D ! CAN REUSE SOME OBSOLETE MESSAGE INSTEAD OF ADDING A NEW ONE.  ! R ! O THE 64-BIT PROJECT HAS ENABLED THE ENTIRE ALPHA VIRTUAL ADDRESS RANGEL ! (WITH THE EXCEPTION OF THE GAP) TO BE AVAILABLE. THEREFORE, MESSAGESK ! THAT DISPLAY ADDRESSES, INCLUDING PCS, MUST DISPLAY THE FUL L 64-BITSL ! OF THOSE ADDRESSES. USE THE ?XH FAO DIRECTIVE FOR THIS PURPOSE. FAOH ! (SYS$FAO ? SYS$FAOL_64 ONLY) FOR ALPHA HANDLES QUADWORD ARGUMENTSK ! BY VALUE SO YOU DO NOT HAVE TO SPECIFY THE INDIRECTION OPERATOR (@). ! -- ! 9 ! AUTHOR: THE VMS GROUP CREATION DATE: 1-AUG-1976 !  ! MODIFIED BY: ! / ! X-67 EMB ELLEN M. BATBOUTA 06-JAN-1999K ! ADD SS$_NOADD AND SS$_SYSTEMUIC MESSAGES FOR THE CLASS ! SCHEDULER. ! / ! X-66 EMB ELLEN M. BATBOUTA 16-DEC-1999? ! ADD SS$_INCLASS ERROR MESSAGE. THIS ERROR MESSAGE WILL@ ! BE RETURNED BY THE $SCHED SYSTEM SERVICE WHEN AN ATTEMPT> ! IS MADE TO CLASS SCHEDULE A PROCESS/KERNEL THREAD WHEN9 ! IT ALREADY BELONGS TO A SCHEDULING CLASS FROM THE& ! CLASS SCHEDULER DATABASE FILE. ! 0 ! X-65 KAR KIMBERLEE A RIVERS 23-AUG-1999I ! X-90 JMB076 JAMES M. BLUE 22-MAR-1999E ! ADD SS$_NOQIOSERVER - QIOSERVER'S QIO$CONFIGUREF ! PROCESS IS NOT AVAILABLE TO HANDLE SYS$QIOSERVERF ! REQUESTS. ADD SS$_INVQSRFNC - THE FUNCTION CODE> ! IN THE SYS$QIOSERVER REQUEST IS INVALID. ! I ! X-89 GP GENADY PERCHENKO 18-FEB-1999" ! ADD WRONGDRV ! I ! X-88 JAH0323 JOHN A HARNEY 10-DEC-1998E ! ADD PERSONARESERVE D FOR OPERATIONS ATTEMPTED ON/ ! A RESERVED PERSONA INDEX. !  ! 0 ! X-64 JAH0323 JOHN A HARNEY 10-DEC-1998D ! ADD PERSONARESERVED FOR OPERATIONS ATTEMPTED ONA ! A RESERVED PERSONA INDEX. (NOT USED ON VAX) ! 0 ! X-63 JSC JESSIE COTE 19-NOV-1998I ! X-87 JRK390 JIM KAUFFMAN 11-SEP-1998D ! ADD NOCPUMATCH AND TRIM CPUSELECTED TO FIT PAGEI !  X-86 JRK390 JIM KAUFFMAN 9-JUL-1998$ ! ADD CPUSELECTEDI ! X-84 EMB ELLEN M. BATBOUTA 04-JUN-1998J ! ADD 2 NEW ERROR MESSAGES, NOFASTPATH AND CPUNOTAVAIL.I ! X-83 GP GENADY PERCHENKO 26-MAY-1998G ! FIX A TYPO IN ERROR SYMBOL. IT SGOULD BE DEVNOTCON, ! INSTEAD OF MPDEVNOTCON.I ! X-82 GP GENADY PERCHENKO 20-MAY-1998J ! ADD SOME MORE MULTIPATH STATUS CODES. AND RENAME SOME# ! EXISTING ONES.I ! X-81 GP GENADY PERCHENKO 02-APR-19988 ! ADD NEW STATUS CODES FOR MULTIPATH. ! A ! X-62 KJP-SDOS KEVIN PLAYFORD 29-JUN-1998K ! UPDATE SNAPSHOT SERVICES MESSAGES BASED ON DEVICE NAME ! CHANGE. ! ) ! X-61 BMAN BRIAN MAN 16-APR-1998) ! X-80 DAVE BERNARDO 24-FEB-1998< ! ADD BADLCKTBL AND MAKE BROKEN A SUCCESS STATUS CODE., ! MAKE THE ERROR TEXT MORE MEANINGFUL., ! X-79 AHM039 DREW MASON 17-FEB-1998= ! ADD MORE STATUS CODES FOR GALAXY MEMBERSHIP SERVICES. ! ) ! X-60 BMAN BRIAN MAN 29-JAN-1998- ! ROLL FORWARD TO X6J5-AXP AND X6WU-VAXC ! X-78 PKH-G006 PAUL K. HARTER, JR. 27-JAN-1998> ! ADDED TWO STATUS CODES FOR GALAXY MEMBERSHIP SERVICES.C ! X-77 AHM034 DREW MASON 26-JAN-19989 ! ADD STATUS CODES FOR GALAXY MEMBERSHIP CALLBACKS.+ ! X-75 DMB DAVE BERNARDO 07-JAN-19981 ! ADD MORE STATUS CODES FOR GALAXY LOCKING. ! , ! X-59 NELSON PAT NELSON 14-JAN-1998/ ! CLEANED UP INSTRUCTIONS AT TOP OF FILE. ! ) ! X-58 BMAN BRIAN MAN 11-DEC-1997- ! ROLL FORWARD TO X6IH-AXP AND X6VQ-VAX* ! X-74 HAR HAROLD READ 10-DEC-1997, ! ADD NEW STATUS CODE FOR MSCP ERRORS. 0 ! X-73 JAH0250 JOHN A HARNEY 11-NOV-1997< ! ADD SS$_NOSUCHEXT FOR IMPERSONATION SERVICES TO TELL+ ! THE USER THERE'S NO SUCH EXTENSION., ! X-72 DMB DAVE BERNARDO 27-OCT-1997, ! ADD STATUS CODES FOR GALAXY LOCKING.0 ! X-71 KLN2008 KAREN L. NOEL 21-OCT-19976 ! ADD NEW STATUS CODES FOR GALAXY SHARED MEMORY. ! * ! X-57 HAR HAROLD READ 10-DEC-1997E ! ADDED NEW STATUS FOR MSCP ERRORS, FIX PROBLEMS WITH X-56, NEWD ! MESSAGES MUST BE ADDED TO THE END OF THE LIST, MESSAGE COUNT ! WASN'T UPDATED. ! ) ! X-56 BMAN BRIAN MAN 30-SEP-1997- ! ROLL FORWARD TO X6H2-AXP AND X6UI-VAX( ! X-69 ANDY KUEHNEL 10-SEP-1997H ! ADD SS$_SECREFOVF ERROR TO BE RETURNED IF ADDING MORE REFERENCESH ! TO A GLOBAL SECTION WOULD CAUSE THE REFERENCE COUNT TO OVERFLOW. ! * ! X-55 HAR HAROLD READ 18-SEP-19976 ! ADDED TEN NEW MESSAGES FOR DU/TUDRIVER STATUS. ! H ! X-54 WDB:MTD 20 WALTER BLASCHUK 13 AUG 1997N ! MULTIPLE TAPE DENSITY PROJECT: INSERT TWO INFORMATIONALSD ! SS$_NOTATBOT AND SS$_PREVSDENS. ALPHA AND VAX. ! 1 ! X-53 KJP-SDOS KEVIN PLAYFORD 16-JUL-1997F ! UPDATE MESSAGE FOR SNAP CAPABLE DISK TO REFLECT NEEDED ERRORS. ! ) ! X-52 BMAN BRIAN MAN 17-JUN-1997- ! ROLL FORWARD TO X6FA-AXP AND X6RQ-VAX ! 1 ! X-66 KJP-SDOS KEVIN PLAYFORD 11-JUN-1997E ! ADD SS$_TO OMANYFRAGS AND SS$_TOOMANYFAMILIES FOR SNAP CAPABLE ! DISK. ! / ! X-51 IBB038 IAN BROCKBANK 4-JUN-19978 ! F11BXQP HFS LATENT SUPPORT - ADD SS$_NOTF11ODS5,& ! SS$_NOCONVJNL AND SS$_NORAD50. ! ) ! X-50 BMAN BRIAN MAN 21-MAR-1997- ! ROLL FORWARD TO X6E0-AXP AND X6PT-VAX ! C ! X-63 DOUGLAS FYFE 14-FEB-1997N ! MAINLINE MERGE OF PER-THREAD SECURITY SUPPORT: (GEN 58A1)I ! A DD SS$_PERSONADELPEND TO BE RETURNED WHEN A REQUESTI ! TO DELETE A PERSONA IS PREVENTED ONLY BY OUTSTANDING, ! REFERENCES IN REFCOUNT. ! C ! X-62 JMP-VDC JULIAN PALMER 29-JAN-1997> ! ADD SS$_FLUSHFAIL FOR VDC LATENT SUPPORT. ! H ! CW-SD CHRIS WHITAKER 29-JAN-1997G ! ADD ADDITIONAL ERROR MESSAGES FOR SNAPSHOT-CAPABLE ! DISK.  !  ! ) ! X-49 BMAN BRIAN MAN 22-AUG-1996. ! ROLL FORWARD TO X6AB-AXP AND X6KS-VAX: ! 3 ! X-61 NYK656 NITIN Y. KARKHANSI 21-AUG-1996< ! ADDED SS$_NOSHPTS AS PART SHARED PAGE TABLE SUPPORT. ! / ! X-60 KLN1572 KAREN L. NOEL 6-AUG-1996? ! O ADDED SS$_RES_MEM_INCON FOR RESERVED MEMORY REGISTRY.> ! O ADDED SS$_PTE_NOT_EMPTY FOR SYSTEM PTE DEALLOCATION. ! 3 ! X-59 NYK640 NITIN Y. KARKHANIS 17-JUL-1996D ! O ADDED SYSTEM SERVI CE MESSAGE FOR SHARED PAGE TABLE SECTION% ! CREATION, SS$_CREATED_SHPT.8 ! O REMOVED SS$_MRES_NOTREG, SS$_MRES_REGSMALL AND) ! SS$_MRES_REGBIG FOR KAREN NOEL. ! / ! X-58 KLN1546 KAREN L. NOEL 2-MAY-1996C ! ADDED SYSTEM SERVICE MESSAGES FOR MEMORY RESIDENT SECTIONS.@ ! MRES_REGSMALL, MRES_REGBIG, MRES_NOTREG, MRES_PFNSMALL, > ! MRES_INCON, NORESERVEDMEM, RESERVEDMEMUSED, NOMEMRESID !  ! G ! X-48 WXD BILL DAVENP ORT 2-APR-1996R ! PER-THREAD SECURITY. RENAME DETACH PRIVILEGE TO IMPERSONATE.: ! ADD NODELPERMANENT FOR LATENT SUPPORT OF PERSONAE. ! 3 ! X-47 JACH0020 JEREMY A. C. HITT 6-MAR-19969 ! ADDED THE FOLLOWING MESSAGES FOR ACME: NOEXTAUTH,) ! ERRMAPAUTH, AUTHFAIL AND INVUSER. ! 1 ! X-46 PKW338 PAUL K. M. WEISS 8-NOV-1995T ! ADD SS$_THREAD_UPCALL, WHICH IS USED TO COMMUNICATE FROM KERNELQ ! INT ERNAL SERVICES TO THE CALLER'S MODE JACKET THAT IT SHOULD# ! MAKE AN UPCALL ! ) ! X-45 BMAN BRIAN MAN 25-OCT-1995. ! ROLL FORWARD TO X64E-T3A AND X6CC-E3A: ! C ! X-54 JCH703B JOHN C. HALLYBURTON, JR. 10-OCT-1995Q ! ADD SS$_NOBUFOBJID (ATTEMPTED USER MODE CREATE BUFFER OBJECT2 ! WITHOUT A RIGHTS IDENTIFIER). ! D ! X-53 KLN1520 KAREN L. NOEL 28-SEP-1995I ! 1. FIX SEVERAL NEW SS$ CODES TO BE ERRORS INSTEAD OF! ! WARNINGS.K ! 2. SHORTEN SEVERAL NEW SS$ CODE NAMES SO THEY ARE LESSQ ! THEN 15 CHARACTERS. OTHERWISE, THEY GET TRUNCATED IN THE% ! MESSAGE TEXT.0 ! 3. FIX TEXT OF SS$_CHANVIO. ! C ! X-52 KLN1514 KAREN L. NOEL 12-SEP-1995H ! 1. CHANGE MESSAGE TEXT FOR SS$_IVPROTECT TO INCLUDE6 ! INVALID GLOBAL SECTION PROTECTION? ! 2. FIX TYPO IN SS$_OFFSET_NOTBLOCK MESSAGE ! + ! X-44 WBF BURNS FISHER 12-SEP-1995? ! ADD SS$_EMULATED (USED FOR ALPHA INSTRUCTION EMULATION) ! ) ! X-43 BMAN BRIAN MAN 22-MAR-1995. ! ROLL FORWARD TO X605-T3A AND X66I-E3A: ! 3 ! X-49 NYK292 NITIN Y. KARKHANIS 28-FEB-19954 ! O DISPLAY THE FULL 64-BITS OF PCS WITH ?XH.A ! O REPLACED INSTANCES OF ?XQ WITH ?XH (?XQ W AS INTRODUCED ! IN EDIT X-47). ! * ! X-48 RLP050 RAY PFAU 23-FEB-19951 ! ADD SS$_NOMORETHREAD FOR KERNEL THREADS. ! 3 ! X-47 NYK280 NITIN Y. KARKHANIS 23-FEB-1995E ! 64-BIT PROJECT: PROMOTE ADDRESS ARGUMENTS IN SYSTEM MESSAGES> ! FROM ?XL TO ?XQ. $FAO NOW HANDLES QUADWORD BY VALUE? ! 0 ! X-46 KLN1389 KAREN L. NOEL 16-FEB-1995: ! ADD EVEN MORE SS$ CODES FOR 64-BIT GLOBAL SECTION ! SYSTEM SERVICES. ! / !  X-45 KLN1377 KAREN L. NOEL 3-FEB-1995= ! ADD ANOTHER SS$ CODE FOR 64-BIT MMG SYSTEM SERVICES. ! 9 ! X-42 JCH703A JOHN C. HALLYBURTON, JR. 15-MAR-1995@ ! BEWARE THE IDES OF MARCH. ADD SS$_EXBUFOBJLM FROM THETA. ! ) ! X-41 BMAN BRIAN MAN 05-JAN-1995 ! FIX TRUNCATED LINES. ! ) ! X-40 BMAN BRIAN MAN 13-DEC-1994! ! MERGE CHANGES FROM THETA: ! 2 ! X-43 KLN1342 KAREN L. NOEL 1-DEC-1994@ ! ADD SOME FORGOTTEN CODES FOR 64-BIT MMG SYSTEM SERVICES. ! 3 ! X-42 KLN1333 KAREN L. NOEL 16-NOV-1994< ! ADD NEW CODES NEEDED FOR 64-BIT MMG SYSTEM SERVICES. ! , ! X-41 TRB TOM BENSON 02-NOV-1994E ! ADDED SS$_RESIGNAL_64 AND SS$_CONTINUE_64. THESE ARE VARIANTSA ! OF THEIR 32-BIT COUNTERPARTS THAT TELL EXCEPTION THAT THE+ ! 64-BIT SIGNAL ARRAY SHOULD BE USED. ! 9 ! X-40 LSS0312 LEONARD S. SZUBOWICZ 20-OCT-1994B ! ADD SS$_NOT64DEVFUNC. THIS IS RETUR NED BY THE $QIO SYSTEM@ ! SERVICE IF THE P1 PARAMETER HAS MORE THAN 32 SIGNIFICANT5 ! BITS AND THE DRIVER DOES NOT SUPPORT 64-BITS. ! 3 ! X-39 KLN1326 KAREN L. NOEL 18-OCT-1994 ! 64-BIT PROJECT: ! ADD SS$_ARG_GTR_32_BITS ! ; ! X-38 JCH703 JOHN C. HALLYBURTON, JR. 5-OCT-1994; ! ERROR CODES FOR FAST-IO: BADFANDLE THRU UNSUPVOLSET ! ) ! X-39 BMAN BRIAN MAN 12-OCT-1994 ! MERGE CHANGES FROM ZETA: ! 4 ! X-33 U3 JFD0528 JAMES F. DUNHAM 18-JUL-1994* ! ADD MESSAGES TO SUPPORT SCSI-2 TCQ ! , ! X-33U1 DBK001 DAN KYLER 7-SEP-1994R ! ADD MESSAGES FOR SMFS LAYERED PRODUCT IN MME RESERVED REGION. ! * ! X-33 JHH-BL5 JIM HOGG 6-JUL-1994? ! ADD SS$_INSFTHREADS ? SS$_NOTSUPFS FOR F64 FILE SYSTEM. ! 3 ! X-38 NJB NANCY JEAN BURKHOLDER 15 SEP 1994 ! ADD SS$_ZEROALLOCLS ! 2 ! X-37 RAB0190 RICHARD A. BISHOP 3-JUN-1994$ ! MERG E TWO CHANGES FROM ZETA: ! . ! X-32 RAB RICHARD A. BISHOP 3-JUN-1994( ! ADD SS$_SIGNAL64 FOR MIKE HARVEY ! 4 ! X-31 SAD0308 STUART A. DAVIDSON 22-MAR-1994A ! ADD INSFP1POOL TO CLEARLY IDENTIFY INSUFFICIENT CTLPAGES. ! 3 ! X-36 RAB0184 RICHARD A. BISHOP 15-MAR-1994B ! PICK UP THE FOLLOWING CHANGES FROM EPSILON. THIS INCLUDES @ ! SOME REWORKING OF THE COMMENTS DELIMITING THE GROUPS OF  ! MESSAGE CODES: ! 6 ! X-29 RWC136 RICH ARD W. CRITZ, JR. 23-DEC-1993; ! ADD SS$_CONFIG_SYNTAX FOR 3PB SUPPORT. IT REPLACES ! SS$_OBSOLETE_6. ! . ! X-28 RAB RICHARD A. BISHOP 9-DEC-19938 ! ADD IMPERSONATION MESSAGE CODES FOR STU DAVIDSON ! 2 ! X-35 FAK004 FORREST A. KENNEY 11-JAN-1994E ! ADD NEW MESSAGE , IOC$CLONE_UCB RETURNS THISB ! WHEN WE HAVE USED UP ALL THE AVAILABLE UNITS FOR A DEVICE. ! P ! X-34 DEE RYAN  30-SEP-1993I ! CORRECTED SPELLING, PUNCTUATION, AND LEGAL ERRORS IN" ! MESSAGE TEXT. ! 3 ! X-33 RAB0170 RICHARD A. BISHOP 17-AUG-1993" ! PICK UP NEW ALPHA SYMBOLS: ! + ! X-24 HH1202 HAI HUANG 12-AUG-1993+ ! ADD NEW IEEE ARITHMETIC EXCEPTIONS. ! - ! X-23 HH1110 GENE LEACHE 15-JUL-1993 ! ADD SS$_NOCALLTRANS_SUP ! P ! X-32 WXD BILL DAVENPORT 11-AUG-1993 D ! ADD SS$_IVNODNAM, INVALID NODE NAME FOR DECNET. ! 2 ! X-31 RAB0165 RICHARD A. BISHOP 7-JUL-1993$ ! ANOTHER CHANGE FROM EPSILON: ! + ! X-22 HH1110 HAI HUANG 14-JUN-19936 ! ADD SS$_TARGET_UNWIND, SS$_TARGET_GOTO_UNWIND. ! ( ! X-30 MW MARK WATTS 21-MAY-1993B ! ADD A NEW FILESYSTEM ERROR MESSAGE CALLED SHELFERROR, THISE ! WILL BE RETURNED THROUGH THE FILESYSTEM BY THE SHELF HANDLER. ! 3 ! X-29 RAB0155 RICHARD A. BISHOP 14-MAY-1993+ ! ADD IN ONE NEW SYMBOL FROM EPSILON: ! D ! X-15 WDB:HLL004 WALTER D. BLASCHUK, JR. 06-JAN-1993; ! HLLDD PROJECT: FDT PROCESSING CHANGES.= ! ADD THE SS$_FDT_COMPL CONSTANT. THIS WILL INDICATE < ! THAT FDT PROCESSING IS COMPLETE. IT SAYS NOTHING' ! ABOUT THE PRESENCE OF AN ERROR. ! 3 ! X-28 RAB0147 RICHARD A. BISHOP 14-APR-1993/ ! FOLD BLADE/DELTA CLEANUP INTO MAINLINE: ! 4 !  X-25A2 RAB0147 RICHARD A. BISHOP 14-APR-1993= ! MERGE BLADE CHANGES AND RESOLVE CONTENTION (REQUIRES ' ! VALUE OF NOTRANQUIL TO CHANGE): ! - ! X-14U2 EHL004 GENE LEACHE 1-APR-1993 ! ADD SIG_ARGMISMATCH ! - ! X-14U1 EHL003 GENE LEACHE 1-FEB-19939 ! ADD SIG_INVARGTYPE, SIG_INVFLTARG, SIG_INVARGLIST ! 1 ! X-27 AJM93032 ANDREW J. MOSKAL 11-MAR-1993> ! ADD NOTRANQUIL AND SMALLHEADER - MAC RELATED MESSAGES. ! / ! X-26 MME002 MICHAEL BEELER 8-MAR-1993 ! MERGE MME WITH MAINLINE ! 4 ! X-21A1A1 MME001 MICHAEL BEELER 12-OCT-19926 ! ADD MME (MEDIA MANAGEMENT EXTENSION) MESSAGES ! 2 ! X-25 RAB0132 RICHARD A. BISHOP 20-NOV-1992= ! PICK UP NEW MESSAGES FROM ALPHA ? FIX SPELLING ERRORS ! FOUND BY JIM DUNHAM: ! ) ! PJH PAUL J. HOULIHAN 20-NOV-1992? ! ADD SCS INTERNAL STATUS. THESE ARE NEVER SEEN BY USERS. ! > ! X-24 MWD0038 MICHAEL DANIELE 20-OCT-1992 14:13A ! ADD NAMESERVCOMMERR - "Name service communications error" ! ON BEHALF OF DECNET/OSI. ! D ! X-23 DDP1354 DERRELL D. PIPER 30-SEP-1992 16:36D ! ADD MESSAGE FOR ATTEMPT TO ADD A PROTECTED SUBSYSTEM ID WITHD ! ATTRIBUTES THAT EXCEED THOSE OF ITS HOLDER (SS$_SSANOTAUTH).A ! ALSO ADD A MESSAGE FOR INVALID FILE OWNER (SS$_BADOWNER). ! D ! X-22 DDP1337 DERRELL D. PIPER 16-SEP-1992 17:55? ! UPDATE NOP RIV, EXQUOTA, AND OBJNOTLOCKED MESSAGE TEXTS. ! 2 ! X-21 JAD045 JOSEPH A. DZIEDZIC 29-JUN-19929 ! ADD "page read error across access modes" STATUS, ! SS$_PAGRDERRXM. ! 2 ! X-20 RAB0115 RICHARD A. BISHOP 16-JUL-1992$ ! RETROFIT MORE ALPHA CHANGES: ! - ! X-22 EHL002 GENE LEACHE 8-JUL-1992 ! ADD SS$_ILLPOLICY ! - ! X-21 EHL001 GENE LEACHE 18-JUN-1992 ! ADD SS$_ILLPRIPOL ! 3 ! X-20 EMB0170 ELLEN M. BATBOUT A 12-JUN-19927 ! ADD 2 NEW FATAL ERROR MESSAGES, TRANSCALLER AND; ! NOCALLTRANS. THESE MESSAGES INDICATE THAT A NATIVE: ! IMAGE WAS NOT BUILT CORRECTLY TO INTEROPERATE WITH ! TRANSLATED CODE. ! 1 ! X-19 RLA095B ROBERT L. ADAMS 12-JUN-19929 ! OBSOLETE CHARGE CODE ACCOUNTING AND REPLACE WITH 5 ! MORE DESCRIPTIVE PROTECTED SUBSYSTEMS ERRORS.+ ! ADD COMMENT ON OBSOLETING MESSAGES. ! 2 ! X-18 RAB0104 RICHARD A. BISHOP 19-MAY-1992&  ! RETROFIT RECENT ALPHA CHANGES: ! + ! X-17 HH0855 HAI HUANG 10-MAR-1992* ! -16 ADD STATUS FOR GENTRAP CODES. ! + ! X-15 HH0853 HAI HUANG 26-FEB-1992: ! ADD SS$_GENTRAP, SS$_GOTO_UNWIND, SS$_EXIT_UNWIND. ! . ! X-17 ATP014.17 ALAN POTTER 2-APR-19928 ! CHANGE ERROR MESSAGE TEXT FOR SS$_TPDISABLED AND ! SS$_NOLOG. ! G ! X-15/16 DDP1198 DERRELL D. PIPER 24-MAR-1992 18:15A ! FIX PUNCTUATION OF MESSAGES FOR HELP/MESSAGE AND ADD SOME2 ! POMPOUS GUIDELINES FOR FUTURE GENERATIONS. ! 2 ! X-14 RAB0100 RICHARD A. BISHOP 30-JAN-1992: ! MERGE BLADE AND ALPHA VERSIONS OF THIS FILE. THIS 9 ! IS BEING DONE SO AS TO LEAVE BLADE VALUES INTACT.8 ! WHERE CHANGES IN VALUES ARE NECESSARY, THEY ARE  ! HAPPENING TO ALPHA.  ! < ! ALSO MOVE SS$_IMGDMP (PREVIOUS BLADE CHECKIN). THIS < ! WAS WRONGLY PLACED, AND CAUSED SOME SYMBOLS TO MOVE.2 ! THEY NOW GO BACK T O THEIR ORIGINAL VALUES. ! : ! AS LUCK WOULD HAVE IT, THIS CHECKIN IS GENERATION # ! 14 ON BOTH MASTERPACKS..... ! / ! ======================================== ! : ! 30-JAN-1992: WHAT FOLLOWS IS THE BLADE AUDIT TRAIL ( ! FROM 30-NOV-1990 TO 20-DEC-1991 ! / ! ======================================== ! 1 ! X-13 SJVMAJ STEPHEN J. VIVIAN 20-DEC-19910 ! ADD SS$_IMGDMP SIGNAL FOR MAJIQ SUPPORT. ! < ! X-12 CRB0711 COLIN R. BLAKE 18-DEC-1991 13:18:23.93< ! THIS IS THE C2 VERSION BEING INSERTED INTO MAINLINE. ! I ! X-8A3A1A2 THE GREAT MERGER NASSER ABBASI 11-DEC-1991 ! MERGE T4 WITH BLADE_BLD6( ! COPY OF HISTORY FROM BLD6 MODULE( ! --------------------------------8 ! X-11 JFD0031 JAMES F. DUNHAM 8-JAN-19917 ! ADD MESSAGES TO SUPPORT ISO 9660 VOLUME MOUNTS ! 8 ! X-8A3A1A1 DOR DENNIS O. ROGERS 26-NOV-1991 12:19 ! C2 BLADE MERGE (T4):  ! 1 ! X-10 CBD0238 CHARLES B. DUNN 14-OCT-1991+ ! ADD SS$_TIMENOTSET FOR DTSS SUPPORT ! @ ! X-8A3A1 CRB0044 COLIN R. BLAKE 6-NOV-1991 08:58 ! T3 MERGE: ! / ! X-9 EJL0610 EDWARD J. LOS 02-OCT-1991? ! RESET VERSION TO MATCH GENERATION. ADD SYSTEM SNAPSHOT ! VALIDATION ERRORS ! 1 ! X-8A3 CRB0030 COLIN R. BLAKE 23-OCT-1991 ! MORE C2 MERGING: ! 5 ! T-6T9 SAD0144 STUART A. DAVIDSON 18-OCT-19919 ! ADD NOOJBSRV ERROR -- OBJECT SERVER NOT RUNNING. ! 3 ! X-8A2 FAK0003 FORREST A. KENNEY 16-OCT-1991 ! MERGE LATEST C2 CHANGES. ! = ! T-9 DDP0887 DERRELL D. PIPER 4-OCT-1991 18:43& ! ADD ITEM CODE ERROR MESSAGES. ! 3 ! X-8A1 FAK0002 FORREST A. KENNEY 20-SEP-1991@ ! MERGE C2 MESSAGES INTO MAINLINE, FIX IDENT TO AGREE WITH& ! CMS DUE TO MASTERPACK CLEANUP. ! ; ! X-80T8 LMP0542 L. MARK PILANT, 29-JUL-1991 16:42? ! ADD A MESSAGE TO INDICATE THAT DELETION OF FILES WITH . ! ACTIVE RMS JOURNALING IS NOT ALLOWED. ! 5 ! LMP0544 L. MARK PILANT, 30-JUL-1991 14:455 ! ADD A MESSAGE TO INDICATE THE SUPPLIED FILE > ! SPECIFICATION IS INVALID FOR THE ATTEMPTED OPERATION. ! - ! T-7 RLA ROBERT L. ADAMS 26-JUN-1991- ! FOLD MAGIC CHANGES INTO TRANQUILITY. ! 7 ! T-6 DDP0977 DERRELL D. PIPER 7-JUN-1991 10:01 ! ADD OVRMAXAUD. ! -  ! T-5 AJM ANDREW J. MOSKAL 13-MAY-1991@ ! ADD INVSECOPER, NOCLASSSUPPORT - MAC PROTECTION RELATED ! MESSAGES. ! 3 ! T-4 SAD0116 STUART A. DAVIDSON 3-MAY-19918 ! ADD ILLRSDM (ILLEGAL RESOURCE DOMAIN OPERATION) ! 6 ! X-80T3 SAD0109 STUART A. DAVIDSON 19-APR-1991/ ! ADD OBJECT CONTEXT NOT LOCKED MESSAGE. ! 6 ! X-80T2 SAD0109 STUART A. DAVIDSON 11-MAR-1991; ! ADD MISSED MESSAGES FOR SECURITY OBJECT MANAGEMENT ! 5 !  X-81 RLA0147 ROBERT L. ADAMS 15-FEB-19916 ! ADD SECURITY MESSAGES ADDED FOR PHOENIX WORK. ! 0 ! X-87 PMV0169 PETER M. VATNE 20-JUN-1991 ! ADD SS$_DEVNOTWS. ! + ! X-86 CW CHRIS WHITAKER 10-MAR-1991 ! ADD SS$_REMEMBER ALIAS. ! 1 ! X-85 FAK001 FORREST A. KENNEY 08-MAR-1991 ! ADD SS$_QUEUED. ! + ! X-84 JLBBP01 J.L. BERG 28-FEB-1991* ! ADD SS$_NOREADER AND SS$_NOWRITER. ! + ! X-83 CW CHRIS WHITAKER 26-F EB-19910 ! ADD ERROR CODES FOR DECDTM V1.2 SUPPORT. ! 0 ! X-82 RG40077 RAY GUZMAN 21-FEB-1991F ! ADD 4 NEW CODES. SS$_BADCHECKSUM, SS$_INVSECDOMAIN,) ! SS$_ARBTOOBIG, AND SS$_ORBTOOBIG. ! 5 ! X-81 RKK0058 ROBERT K. KOSAKOWSKI 19-FEB-1991A ! RESERVE 20 MESSAGE CODES FOR MEDIA MANAGEMENT EXTENSIONS. ! (FOR DAN KYLER) ! . ! X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! , ! X-74 LPL0001 LE E LEAHY 12 OCT 1990= ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,6 ! SS$_INVCOMPLIST, SS$_RMTPATH, AND NOCOMPLSTS. ! / ! ======================================== ! : ! 30-JAN-1992: WHAT FOLLOWS IS THE ALPHA AUDIT TRAIL ( ! FROM 16-JUL-1990 TO 18-DEC-1991 ! / ! ======================================== ! / ! X-13 RS00233 RICHARD SAYDE 18-DEC-19916 ! ADD ERROR CODES FOR ALIGNMENT FAULT REPORTING. ! . ! X-12 TNS0 01 TOM SCARPELLI 24-OCT-19919 ! ADD MESSAGES FROM VAX SIDE FOR NEW QUEUE MANAGER. ! 1 ! X-11 DMB001 DAVID M. BERNARDO 23-OCT-1991 ! ADD SLICING_DISABLED. ! . ! X-10 WMC010 WAYNE CARDOZA 24-SEP-1991 ! ADD UNALIGNED SP LOAD. ! - ! X-9 TNS001 TOM SCARPELLI 17-JUN-1991B ! ADD MESSAGES FROM VAX SIDE FOR $FORGE_WORD SYSTEM SERVICE. ! 5 ! X-8 RWC038 RICHARD W. CRITZ, JR. 12-JUN-1991B ! CHANGE SS$_DRVEXISTS AND SS$_DEVEXISTS FROM INFORMATIONALS ! TO WARNINGS. ! ) ! X-7 HH0624 HAI HUANG 09-APR-1991; ! ADD SS$_ALTER, ALTER STACK FRAMES, FOR TIE SUPPORT. ! + ! X-K10 LPL001 LEE LEAHY 4 APR 19911 ! INCLUDED THE DEFINITIONS FROM IOWA/SIGMA. ! / ! X-46U12 LPL0001 LEE LEAHY 30 NOV 1990 ! MERGED EDIT X-74 ! - ! X-74 LPL0001 LEE LEAHY 12 OCT 1990> ! ADDED SS$_INVBUSNAM, SS$_INVCOMPTYPE, SS$_INVCOMPID,7 ! SS$_INVCOMPLIST, SS$_RMT PATH, AND NOCOMPLSTS. ! * ! X-K9 HH0610 HAI HUANG 25-FEB-1991= ! ADD ALPHA HARDWARE EXCEPTIONS SS$_HPARITH, SS$_ALIGN. ! 1 ! X-K8 RFH002 ROBERT F. HOFFMAN 23-JAN-19919 ! ADD SS$_QIO_CROCK FOR SPECIAL TREATMENT THAT $QIO; ! NEEDS IN ORDER TO FAULT IN A PAGE IN CALLER'S MODE. ! 2 ! X-K7 MSH1062 MICHAEL S. HARVEY 13-DEC-19909 ! ADD SS$_INVARG FOR $CRMPSC AND $MPGBLSC SERVICES. ! 1 ! X-K6 RFH001 ROBERT F. HOFFMAN 11-DEC-1990<  ! ADD SS$_QUEUED FOR TTDRIVER PORT (REPLACES AN UNUSED ! MESSAGE) ! 5 ! X-K5 RWC003 RICHARD W. CRITZ, JR. 1-NOV-1990 ! ADD SS$_DRVNOTVALID. ! 5 ! X-K4 RWC003 RICHARD W. CRITZ, JR. 11-OCT-1990" ! ADD $LOAD_DRIVER STATUSES. ! / ! X-K3 KLN1027 KAREN L. NOEL 25-JUL-1990 ! ADD SS$_NOT_LOADED ! . ! X-K2 WMC0K2 WAYNE CARDOZA 16-JUL-1990! ! ADD WAIT IN CALLERS MODE. ! / ! ========================================  ! ; ! 30-JAN-1992: WHAT FOLLOWS IS THE COMMON AUDIT TRAIL  ! UP TO 21-MAY-1990 ! / ! ======================================== ! 2 ! X-46U11 CW1024 CHRIS WHITAKER 21-MAY-1990 ! ADD SS$_VOLATILE. ! A ! X-46U10 DDP0643 DERRELL D. PIPER 28-MAR-1990 15:55 ! ADD SS$_USEGENPWD. ! 2 ! X-46U9 MAS0254 MARK A. STILES 20-FEB-1990; ! FIXUP OUT-OF-ORDER CODES. MOVE SOME NEW CODES INTO> ! UNUSED SLOTS. FIX TEXT OF INSFSPT TO BE MORE GENERIC. ! 6 ! X-46U8 CAM0109 CHRISTOPHER A. MEGA 12-FEB-1990G ! ADD BOOTREJECT WARNING STATUS - USED BY START/CPU CODE IF A CPU? ! FAILS TO BOOT BECAUSE IT IS IN THE BOOT_REJECTED STATE. ! . ! X-46U7 LBB0010 LEE BARTON 30-NOV-1989< ! ADD SS$_ARCHIVING, SS$_ARCHIVED (XQP SUPPORT OF ALM) ! : ! X-46U6 LMP0517 L. MARK PILANT, 17-OCT-1989 16:42( ! ADD PROTECTED SUBSYSTEM SUPPORT. ! / ! X-46U5 RLF RICHARD L. FRANK  16-OCT-1989< ! MODIFY INSFSPTS TO BE MORE GENERIC. ADD INSFRPGS AND ! INSFLPGS. ! 6 ! X-46U4 CAM0072 CHRISTOPHER A. MEGA 06-OCT-1989( ! CHANGED CPUSTOPPD TO CPUSTOPPING ! ? ! X-46U3 DDP0546 DERRELL D. PIPER 4-OCT-1989 14:24- ! ADD SS$_NOCALLPRIV FOR $CHECK_ACCESS. ! 4 ! X-46U2 PRD0503 PAUL R. DESTEFANO 25-SEP-1989= ! ADD SS$_NOSUCHFAC FOR EVENT FACILITY OBJECT SECURITY. ! 4 ! X-46U1 PRD0495 PAUL R. DESTEFANO 18-SEP- 19899 ! ADD SS$_INVEVENT FATAL MESSAGE FOR $SETEVTAST AND ! $CANEVTAST. ! 1 ! X-46 SAS0203 SCOTT A. SHURTS 15-SEP-19898 ! ADD SS$_INCONOLCK FATAL MESSAGE FOR $CHANGE_ACL. ! 4 ! X-45 CAM0063 CHRISTOPHER A. MEGA 13-SEP-1989A ! ADD WARNING AND INFORMATIONAL STATUS FOR ENHANCED PRIMARYC ! CPU SWITCHING: CPUSTARTIP, CPUSTARTD, CPUSTOPPD, PRIMNOSTP.$ ! ALSO ADDED /FAO=1 TO NSTPPD. ! D ! X-44 DDP0429 DERRELL D. PIPER 11-S EP-1989 16:57< ! CHANGE THE SEVERITY OF THE NEW PASSWORD STATUS CODES ! FROM FATAL TO ERROR. ! 1 ! X-43 CBD0198 CHARLES B. DUNN 14-AUG-19896 ! ADD SS$_EFNOTSET FOR IOC$PRE_SIMREQCOM SUPPORT ! , ! X-42 RAP0491 ROD A. PAYNE 15-AUG-89? ! ADD SS$_HSTBUFACC, TO REPORT HOST BUFFER ACCESS ERRORS. ! 1 ! X-41 CJB0041 CHERYL J. BULMER 9-AUG-19896 ! ADD SS$_LOADER, TO REPORT LOADER CYCLE ERRORS. ! 0 ! X-40 MAS0238 MARK A. STILES 9-AUG-1989< ! ADD SS$_CPUCAP FOR USE WHEN A REQUESTED CPU DOES NOT: ! HAVE THE CAPABILITIES REQUIRED TO RUN THE PROCESS.* ! [FOLD FROM X-29U11 IN V5.3 STREAM] ! = ! X-39 MVI0033 MICHAEL V. ILES, 28-JUL-1989 10:08:05.45> ! ADD MESSAGE CODE NOSUCHCPB AND CHANGE TEXT FOR ACLFULL ! D ! X-38 DDP0387 DERRELL D. PIPER 25-JUL-1989 12:47> ! ADD MESSAGE CODES FOR SITE-SPECIFIC PASSWORD POLICIES. ! D ! X-37 DDP0375 DERRELL D. PI PER 31-MAY-1989 15:12- ! REPLACE SOME OBSOLETE MESSAGE CODES.  ! * ! X-36 HH0340 HAI HUANG 03-OCT-1988 ! ADD VECALIGN ERROR. ! , ! X-35 SSA0002 STAN AMWAY 30-SEP-1988% ! CORRECT TEXT FOR SS$_VECFULL. ! 1 ! X-34 JEJ0550 JAMES E JOHNSON 19-SEP-1988? ! ADD ALRCURTID, RMALRDCL, NOSUCHPART, INVLOG, BADLOGVER,# ! LOGSTALL, LOGFULL, LOGNAME. ! , ! X-33 SSA0001 STAN AMWAY 14-SEP-19886 ! ADD NOSUSPEND ("process ca nnot be suspended"). ! 8 ! X-32 RJB0165 RICHARD J. BOUCHARD JR. 14-SEP-19887 ! ADD NOMOREDEV MESSAGE FOR $DEVICE_SCAN SERVICE. ! < ! X-31 ACG0559 ANDREW C. GOLDSTEIN, 31-AUG-1988 16:289 ! ADD HWM_STALL FOR ABORT OF STALLED INTERNAL IRP'S ! * ! X-30 HH0334 HAI HUANG 31-AUG-1988> ! REPLACE SYSVERDIF WITH A NEW VALUE (I.E. SEVERITY) AND ! A NEW MESSAGE. ! D ! X-29 DDP0308 DERRELL D. PIPER 21-JUL-1988 14:020 ! ADD PWDSYNTAX, INVPWDLEN, AND PWDNOTDIF. ! 1 ! X-28 JEJ0527 JAMES E JOHNSON 27-JUN-1988= ! ADD NOSUCHTID, NOCURTID, WRONGSTATE, VETO, UNKRESULT,= ! FORGET, PREPARED, NOSUCHRM, ITEMNOTFOUND, NOMOREITEMS ! * ! X-26 HH0315 HAI HUANG 18-APR-19884 ! -27 ADD NEW STATUS CODES FOR VECTOR SUPPORT. ! : ! X-25 PT00010 PANKAJ TANDON 30-DEC-1987 : ! ADD ALLSTARTED,ALRDYSTRT,ALRDYSTPPD AND NSTPPD FOR( ! $START/STOP CPU ERRONEOUS CASES.  ! 8 ! X-24 LMP0465 L. MARK PILANT, 28-OCT-1987 15:58A ! ADD A NEW MESSAGE, SS$_NORIGHTSDB, TO INDICATE THAT THERE> ! IS NOT A RIGHTS DATABASE IS NOT PRESENT ON THE SYSTEM. ! ( ! X-23 SJF STU FARNHAM 5-OCT-1987 ! ADD NOSUCHCPU ! + ! X-22 DLM006 DAN MURPHY 13-SEP-1987) ! INFORMATIONAL CODES FOR $GETSECI. ! . ! X-21 WMC0021 WAYNE CARDOZA 4-SEP-1987' ! FIX A MISSPELLING IN VA_IN_USE. ! / ! X-20 WMC0020 WAYNE CARDOZA 27-JUL-1987 ! ADD NODELETE. ! / ! X-19 WMC0019 WAYNE CARDOZA 10-MAR-19871 ! EXPRCLM SHOULD NOT MENTION SUBPROCESSES. ! / ! X-18 WMC0018 WAYNE CARDOZA 19-FEB-1987 ! ADD VA_IN_USE. ! 1 ! X-17 DDP0029 DERRELL D. PIPER 21-JAN-19877 ! CONVERT SS$_BADXXXCTX TO SINGLE BADCONTEXT MSG. ! 1 ! X-16 DDP0027 DERRELL D. PIPER 12-JAN-1987- ! ADD SS$_TOOMUCHCTX AND SS$_BADUAICTX. ! * ! X-15 HH0237 HAI HUANG 06-JAN-19 87 ! ADD SS$_UNSUPPORTED. ! 1 ! X-14 DDP0008 DERRELL D. PIPER 08-DEC-19868 ! ADD SS$_LASTID, SS$_NOMOREID, SS$_RLSEMPTY, AND 4 ! SS$_BADJPICTX FOR JPI$_RIGHTSLIST ITEM CODE.( ! (NB: S VARIANT IS NOW OBSOLETE.) ! 0 ! X-9 NCD0001 NANCY C. DENARDO 21-OCT-1986? ! ADDED SS$_EXLICENSE, SS$_INVLICENSE, SS$_LICENSE_LEVEL,* ! AND SS$_INV_HW_ID FOR LMF SERVICE. ! 3 ! X-8 SAS001 SCOTT A. SHURTS 02-OCT-1986; ! ADDED SS$_SRVMMA T TO INDICATE CRYPTOGRAPHIC SERVICE ! MISMATCH. ! . ! X-7 KL 0001 KEITH LOEPERE 12-JUN-1986= ! ADDED SS$_REMOVED TO INDICATE DIR ENTRY ONLY REMOVED. ! ) ! X-6 CWH5006 CW HOBBS 30-MAY-19863 ! ADD SS$_REMOTE_PROC ERROR MESSAGE FOR CWPS. ! * ! X-5H2 SJF STU FARNHAM 29-MAY-19868 ! ADD SS$_CPUNOTACT TO INDICATE THAT THE REQUESTED+ ! CPU IN AN SMP SYSTEM IS NOT ACTIVE. ! 1 ! X-5 PRD0184 PAUL R. DESTEFANO 07-NOV-19858 ! ADD SS$_DATALOST "data lost" TO INDICATE DLS END> ! FLAG SET IN CACHING TAPE DRIVE OR DRIVER HAS OTHERWISE) ! DETECTED THE LOSS OF CACHED DATA. ! 7 ! X-4 LMP0382 L. MARK PILANT, 6-NOV-1985 10:10D ! ADD SS$_OBJLOCKHELD TO INDICATE THAT A PROCESS ALREADY HOLDS ! THE OBJECT'S ACL LOCK. ! 2 ! X-3 JMK0002 JOSEPH M. KRAETSCH 17-SEP-1985E ! ADD SS$_RUCONFLICT "file has active RUs by another facility".- ! REMOVE NOTMPJNL, NOPRMJNL (OBSOLETE).  ! 3 ! V04-001 ROW0466 RALPH O. WEBER 11-JUN-1985@ ! REPLACE SS$_SHACPYINP (A NO LONGER USED SHADOWING ERROR G ! STATUS) WITH SS$_DEVNOTSHR, "device not currently shareable". E ! SS$_DEVNOTSHR IS AN ERROR STATUE FOR USE WITH DEVICES MARKED C ! FOR EXCLUSIVE ACCESS BY SOMEONE ELSE BY AN MSCP CONTROLLER. ! ! --- ! + ! SYSTEM STATUS CODES !  ! LAYOUT OF MESSAGE SPACE: ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! ) ! 0-127 0-3FF 128 FATAL ERRORS> ! 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS. ! 192-255 600-7FF 64 SUCCESS CODES. ! 256-383 800-BFF 128 WARNING CODES4 ! 384-447 C00-DFF 64 INFORMATIONAL CODES5 ! 448-511 E00-FFF 64 NONFATAL ERROR CODESG ! 512-1023 1000-1FFF 512 SHARED MESSAGES (NOT HERE, SEE SHRMSG)B ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF)4 ! 1280-1343 2800-29FF 64 NO PRIVIL EGE ERRORS6 ! 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORSC ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONSJ ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF)/ ! 1664-4031 3400-7DFF 2368 (UNUSED)8 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS !  ! - ! & ! EXPLICITLY DEFINED SUCESS CODES ! @ ! DO NOT MIX THESE CODES WITH INCREMENTAL ASSIGNMENTS BELOW ! 0 DECLARE LONG CONSTANT SYST EM$_FACILITY = 0* DECLARE LONG CONSTANT SS$_NORMAL = 1 ! M ! NOTE THAT CONTINUE,WASCLR,WASSET,REMEMBER DO NOT HAVE ANY MESSAGE TEXTJ ! SINCE THESE CODES USE THE SAME MESSAGE NUMBER AS NORMAL AND ACCVIO,D ! THEY CAN NEVER BE MADE TO HAVE MESSAGES ASSOCIATED WITH THEM. ! , DECLARE LONG CONSTANT SS$_CONTINUE = 1* DECLARE LONG CONSTANT SS$_WASCLR = 1* DECLARE LONG CONSTANT SS$_WASSET = 9, DECLARE LONG CONSTANT SS$_REMEMBER = 1 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! ) ! 0-127 0-3FF 128 FATAL ERRORSB ! 1024-1279 2000-27FF 256 FATAL ERRORS (CONTINUED FROM 3FF) ! + DECLARE LONG CONSTANT SS$_ACCVIO = 12- DECLARE LONG CONSTANT SS$_BADPARAM = 20, DECLARE LONG CONSTANT SS$_EXQUOTA = 28+ DECLARE LONG CONSTANT SS$_NOPRIV = 365 ! MAKE THE ABOVE ERRORS FALL INTO SHORT LITERALS* DECLARE LONG CONSTANT SS$_ABORT = 44. DECLARE LONG CONSTANT SS$_BADATTRIB = 52. DECLARE LONG CONSTANT SS$_BADESCAPE = 60. DECLARE LONG CONSTANT SS$_BADIMGHDR = 68. DECLARE LONG CONSTANT SS$_CHANINTLK = 76, DECLARE LONG CONSTANT SS$_CTRLERR = 84. DECLARE LONG CONSTANT SS$_DATACHECK = 920 DECLARE LONG CONSTANT SS$_DEVFOREIGN = 100. DECLARE LONG CONSTANT SS$_DEVMOUNT = 108/ DECLARE LONG CONSTANT SS$_DEVNOTMBX = 1161 DECLARE LONG CONSTANT SS$_DEVNOTMOUNT = 1240 DECLARE LONG CONSTANT SS$_DEVOFFLINE = 132, DECLARE LONG CONST ANT SS$_DRVERR = 140- DECLARE LONG CONSTANT SS$_DUPLNAM = 148/ DECLARE LONG CONSTANT SS$_FILACCERR = 156/ DECLARE LONG CONSTANT SS$_FILALRACC = 164/ DECLARE LONG CONSTANT SS$_FILNOTACC = 172/ DECLARE LONG CONSTANT SS$_FILNOTEXP = 180, DECLARE LONG CONSTANT SS$_FORMAT = 188- DECLARE LONG CONSTANT SS$_GPTFULL = 196- DECLARE LONG CONSTANT SS$_GSDFULL = 204/ DECLARE LONG CONSTANT SS$_LCKPAGFUL = 212/ DECLARE LONG CONSTANT SS$_ILLBLKNUM = 2201 DECLARE LONG CONSTANT SS$_ILLCNTRFUNC = 228, DECLARE LONG CONSTANT SS$_ILLEFC = 236/ DECLARE LONG CONSTANT SS$_ILLIOFUNC = 244/ DECLARE LONG CONSTANT SS$_ILLPAGCNT = 252, DECLARE LONG CONSTANT SS$_ILLSER = 2601 DECLARE LONG CONSTANT SS$_INCVOLLABEL = 268- DECLARE LONG CONSTANT SS$_INSFARG = 276- DECLARE LONG CONSTANT SS$_INSFWSL = 284- DECLARE LONG CONSTANT SS$_INSFMEM = 292. DECLARE LONG CONSTANT SS$_INSFRAME = 300, DECLAR E LONG CONSTANT SS$_IVADDR = 308, DECLARE LONG CONSTANT SS$_IVCHAN = 316. DECLARE LONG CONSTANT SS$_IVDEVNAM = 324. DECLARE LONG CONSTANT SS$_IVGSDNAM = 332. DECLARE LONG CONSTANT SS$_IVLOGNAM = 340. DECLARE LONG CONSTANT SS$_IVLOGTAB = 348. DECLARE LONG CONSTANT SS$_IVQUOTAL = 356. DECLARE LONG CONSTANT SS$_IVSECFLG = 364, DECLARE LONG CONSTANT SS$_IVSSRQ = 372. DECLARE LONG CONSTANT SS$_IVSTSFLG = 380, DECLARE LONG CONSTANT SS$_IVTIME = 388 , DECLARE LONG CONSTANT SS$_LENVIO = 396/ DECLARE LONG CONSTANT SS$_LKWSETFUL = 404. DECLARE LONG CONSTANT SS$_MBTOOSML = 412, DECLARE LONG CONSTANT SS$_MEDOFL = 420, DECLARE LONG CONSTANT SS$_NODATA = 428. DECLARE LONG CONSTANT SS$_NOIOCHAN = 436. DECLARE LONG CONSTANT SS$_NOLOGNAM = 444. DECLARE LONG CONSTANT SS$_NONEXDRV = 4520 DECLARE LONG CONSTANT SS$_NOTFILEDEV = 4600 DECLARE LONG CONSTANT SS$_NOTINTBLSZ = 4680 DECLARE LONG CONST ANT SS$_NOTLABELMT = 476. DECLARE LONG CONSTANT SS$_NOTSQDEV = 484/ DECLARE LONG CONSTANT SS$_PAGOWNVIO = 492, DECLARE LONG CONSTANT SS$_PARITY = 5000 DECLARE LONG CONSTANT SS$_PARTESCAPE = 508, DECLARE LONG CONSTANT SS$_PFMBSY = 516- DECLARE LONG CONSTANT SS$_PSTFULL = 524/ DECLARE LONG CONSTANT SS$_RESULTOVF = 532/ DECLARE LONG CONSTANT SS$_SECTBLFUL = 5401 DECLARE LONG CONSTANT SS$_TAPEPOSLOST = 548- DECLARE LONG CONSTANT SS$_TIMEOUT = 556- DECLARE LONG CONSTANT SS$_UNASEFC = 564, DECLARE LONG CONSTANT SS$_UNSAFE = 572- DECLARE LONG CONSTANT SS$_VASFULL = 580. DECLARE LONG CONSTANT SS$_VECINUSE = 588, DECLARE LONG CONSTANT SS$_VOLINV = 596- DECLARE LONG CONSTANT SS$_WRITLCK = 604. DECLARE LONG CONSTANT SS$_NOTAPEOP = 612/ DECLARE LONG CONSTANT SS$_IVCHNLSEC = 620+ DECLARE LONG CONSTANT SS$_NOMBX = 628- DECLARE LONG CONSTANT SS$_NOLINKS = 636/ DECLARE LONG CON STANT SS$_NOSOLICIT = 6440 DECLARE LONG CONSTANT SS$_NOSUCHNODE = 652, DECLARE LONG CONSTANT SS$_REJECT = 6601 DECLARE LONG CONSTANT SS$_TOOMUCHDATA = 668. DECLARE LONG CONSTANT SS$_BUGCHECK = 6760 DECLARE LONG CONSTANT SS$_FILNOTCNTG = 684. DECLARE LONG CONSTANT SS$_BADSTACK = 692, DECLARE LONG CONSTANT SS$_MCHECK = 700/ DECLARE LONG CONSTANT SS$_DEVACTIVE = 708, DECLARE LONG CONSTANT SS$_HANGUP = 716/ DECLARE LONG CONSTANT SS$_OPINCOMPL = 724. DECLARE LONG CONSTANT SS$_ILLSEQOP = 7320 DECLARE LONG CONSTANT SS$_IVSECIDCTL = 740/ DECLARE LONG CONSTANT SS$_NOTNETDEV = 748/ DECLARE LONG CONSTANT SS$_IVPROTECT = 756. DECLARE LONG CONSTANT SS$_ACPVAFUL = 764/ DECLARE LONG CONSTANT SS$_MTLBLLONG = 772/ DECLARE LONG CONSTANT SS$_BUFBYTALI = 780+ DECLARE LONG CONSTANT SS$_NOAQB = 788. DECLARE LONG CONSTANT SS$_WRONGACP = 7961 DECLARE LONG CONSTANT SS$_BUFNOTALIGN = 804/ DECLARE LONG CONSTANT SS$_DEVCMDERR = 812/ DECLARE LONG CONSTANT SS$_DEVREQERR = 820/ DECLARE LONG CONSTANT SS$_INSFBUFDP = 8280 DECLARE LONG CONSTANT SS$_INSFMAPREG = 836. DECLARE LONG CONSTANT SS$_IVBUFLEN = 844, DECLARE LONG CONSTANT SS$_IVMODE = 8520 DECLARE LONG CONSTANT SS$_MCNOTVALID = 860/ DECLARE LONG CONSTANT SS$_POWERFAIL = 8681 DECLARE LONG CONSTANT SS$_SHMGSNOTMAP = 8761 DECLARE LONG CONSTANT SS$_TOOMANYLNAM = 8840 DECLARE LONG CONSTANT SS$_SHMNOTCNCT = 8920 DECLARE LONG CONSTANT SS$_NOTCREATOR = 900/ DECLARE LONG CONSTANT SS$_INTERLOCK = 9081 DECLARE LONG CONSTANT SS$_BADQUEUEHDR = 916, DECLARE LONG CONSTANT SS$_NOSLOT = 924/ DECLARE LONG CONSTANT SS$_SUSPENDED = 9321 DECLARE LONG CONSTANT SS$_EXPORTQUOTA = 9400 DECLARE LONG CONSTANT SS$_NOSHMBLOCK = 948. DECLARE LONG CONSTANT SS$_BADQFILE = 956- DECLARE LONG CONSTANT SS$_NOQFILE = 964. DECLARE LONG CONST ANT SS$_QFACTIVE = 972. DECLARE LONG CONSTANT SS$_QFNOTACT = 9801 DECLARE LONG CONSTANT SS$_DUPDSKQUOTA = 9881 DECLARE LONG CONSTANT SS$_NODISKQUOTA = 9962 DECLARE LONG CONSTANT SS$_EXDISKQUOTA = 10041 DECLARE LONG CONSTANT SS$_IDMISMATCH = 1012, DECLARE LONG CONSTANT SS$_NOWRT = 1020 ! **************@ ! NOTE: THE ABOVE SET OF SEVERE ERROR MESSAGES IS FULL????: ! ANY ADDITIONAL SEVERE ERROR MESSAGES MUST BE ADDED* ! BELOW, IN THE RANGE HE X 2000-2800. ! **************- DECLARE LONG CONSTANT SS$_BADISD = 8196- DECLARE LONG CONSTANT SS$_RELINK = 82041 DECLARE LONG CONSTANT SS$_NOTINSTALL = 82121 DECLARE LONG CONSTANT SS$_SHARTOOBIG = 8220- DECLARE LONG CONSTANT SS$_NOP1VA = 8228. DECLARE LONG CONSTANT SS$_MULTRMS = 8236. DECLARE LONG CONSTANT SS$_VECFULL = 8244- DECLARE LONG CONSTANT SS$_IVLVEC = 8252/ DECLARE LONG CONSTANT SS$_INSFSPTS = 82601 DECLARE LONG CONSTAN T SS$_DISCONNECT = 82682 DECLARE LONG CONSTANT SS$_PRIVINSTALL = 82762 DECLARE LONG CONSTANT SS$_PROTINSTALL = 8284- DECLARE LONG CONSTANT SS$_BADVEC = 8292. DECLARE LONG CONSTANT SS$_REMRSRC = 8300/ DECLARE LONG CONSTANT SS$_PROTOCOL = 83081 DECLARE LONG CONSTANT SS$_THIRDPARTY = 83161 DECLARE LONG CONSTANT SS$_NOSUCHUSER = 8324+ DECLARE LONG CONSTANT SS$_SHUT = 83322 DECLARE LONG CONSTANT SS$_UNREACHABLE = 8340/ DECLARE LONG CONSTANT SS$_INVLOGIN = 83480 DECLARE LONG CONSTANT SS$_NOSUCHOBJ = 8356/ DECLARE LONG CONSTANT SS$_EXCPUTIM = 8364/ DECLARE LONG CONSTANT SS$_OPRABORT = 83722 DECLARE LONG CONSTANT SS$_SHRIDMISMAT = 8380/ DECLARE LONG CONSTANT SS$_COMMHARD = 8388- DECLARE LONG CONSTANT SS$_IVCHAR = 8396/ DECLARE LONG CONSTANT SS$_DEVINACT = 84041 DECLARE LONG CONSTANT SS$_CONNECFAIL = 84120 DECLARE LONG CONSTANT SS$_LINKABORT = 84201 DECLARE LONG CONSTANT SS$_ LINKDISCON = 8428/ DECLARE LONG CONSTANT SS$_LINKEXIT = 8436/ DECLARE LONG CONSTANT SS$_PATHLOST = 8444. DECLARE LONG CONSTANT SS$_CLEARED = 8452, DECLARE LONG CONSTANT SS$_RESET = 84600 DECLARE LONG CONSTANT SS$_UNSOLICIT = 84682 DECLARE LONG CONSTANT SS$_TOOMANYREDS = 8476/ DECLARE LONG CONSTANT SS$_IVLOCKID = 8484/ DECLARE LONG CONSTANT SS$_SUBLOCKS = 84922 DECLARE LONG CONSTANT SS$_PARNOTGRANT = 85001 DECLARE LONG CONSTANT SS$_CVTUNG RANT = 85082 DECLARE LONG CONSTANT SS$_FORCEDERROR = 8516. DECLARE LONG CONSTANT SS$_ILLSELF = 8524/ DECLARE LONG CONSTANT SS$_ILLCDTST = 85321 DECLARE LONG CONSTANT SS$_NOLISTENER = 85402 DECLARE LONG CONSTANT SS$_EXGBLPAGFIL = 8548- DECLARE LONG CONSTANT SS$_BADRCT = 85562 DECLARE LONG CONSTANT SS$_DIRNOTEMPTY = 85641 DECLARE LONG CONSTANT SS$_FORCEDEXIT = 85721 DECLARE LONG CONSTANT SS$_NOTPRINTED = 8580/ DECLARE LONG CONSTANT SS$_JB CERROR = 85880 DECLARE LONG CONSTANT SS$_NOLICENSE = 8596/ DECLARE LONG CONSTANT SS$_VCBROKEN = 8604/ DECLARE LONG CONSTANT SS$_VCCLOSED = 8612. DECLARE LONG CONSTANT SS$_INSFCDT = 86201 DECLARE LONG CONSTANT SS$_DEVNOTDISM = 8628/ DECLARE LONG CONSTANT SS$_NOSHRIMG = 8636. DECLARE LONG CONSTANT SS$_DUPUNIT = 86440 DECLARE LONG CONSTANT SS$_BADACLCTX = 86522 DECLARE LONG CONSTANT SS$_SERIOUSEXCP = 86602 DECLARE LONG CONSTANT SS$_TEMPLATE DEV = 8668, DECLARE LONG CONSTANT SS$_IVACL = 8676/ DECLARE LONG CONSTANT SS$_NOSUCHID = 86840 DECLARE LONG CONSTANT SS$_NOLCLMEDA = 86920 DECLARE LONG CONSTANT SS$_NOREGAVIL = 87000 DECLARE LONG CONSTANT SS$_NOREGSUIT = 87080 DECLARE LONG CONSTANT SS$_NOSUCHPGM = 87160 DECLARE LONG CONSTANT SS$_PGMLDFAIL = 87240 DECLARE LONG CONSTANT SS$_PGMSTDALN = 8732. DECLARE LONG CONSTANT SS$_IVIDENT = 8740/ DECLARE LONG CONSTANT SS$_DUPIDENT = 87480 DECLARE LONG CONSTANT SS$_INCSEGTRA = 87560 DECLARE LONG CONSTANT SS$_NODELEAVE = 87640 DECLARE LONG CONSTANT SS$_KERNELINV = 87721 DECLARE LONG CONSTANT SS$_EXLNMQUOTA = 87801 DECLARE LONG CONSTANT SS$_PARENT_DEL = 87880 DECLARE LONG CONSTANT SS$_PARNOTSYS = 87963 DECLARE LONG CONSTANT SS$_INSSWAPSPACE = 8804. DECLARE LONG CONSTANT SS$_VOLOERR = 8812/ DECLARE LONG CONSTANT SS$_DATALATE = 88200 DECLARE LONG CONSTANT SS$_OVRMAXARG = 88280 DECLARE LONG CONSTANT SS$_SHACHASTA = 88361 DECLARE LONG CONSTANT SS$_TERMNETDEV = 8844/ DECLARE LONG CONSTANT SS$_NOLOGTAB = 88520 DECLARE LONG CONSTANT SS$_WRONGNAME = 8860/ DECLARE LONG CONSTANT SS$_NOVOLACC = 8868/ DECLARE LONG CONSTANT SS$_NOFILACC = 88761 DECLARE LONG CONSTANT SS$_INVEXHLIST = 88843 DECLARE LONG CONSTANT SS$_NOACLSUPPORT = 88921 DECLARE LONG CONSTANT SS$_INVSECLASS = 89000 DECLARE LONG CONSTANT SS$_INCSHAMEM = 89 080 DECLARE LONG CONSTANT SS$_DEVNOTSHR = 89161 DECLARE LONG CONSTANT SS$_RUCONFLICT = 8924/ DECLARE LONG CONSTANT SS$_DATALOST = 89322 DECLARE LONG CONSTANT SS$_REMOTE_PROC = 89400 DECLARE LONG CONSTANT SS$_CPUNOTACT = 8948. DECLARE LONG CONSTANT SS$_SRVMMAT = 89560 DECLARE LONG CONSTANT SS$_EXLICENSE = 89641 DECLARE LONG CONSTANT SS$_INVLICENSE = 89724 DECLARE LONG CONSTANT SS$_LICENSE_LEVEL = 89800 DECLARE LONG CONSTANT SS$_INV_HW_ID = 89881 DECLARE LONG CONSTANT SS$_BADCONTEXT = 89961 DECLARE LONG CONSTANT SS$_TOOMUCHCTX = 90040 DECLARE LONG CONSTANT SS$_VA_IN_USE = 9012/ DECLARE LONG CONSTANT SS$_NODELETE = 90200 DECLARE LONG CONSTANT SS$_NOSUCHCPU = 9028. DECLARE LONG CONSTANT SS$_IMGVEXC = 90360 DECLARE LONG CONSTANT SS$_NOSAVPEXC = 90440 DECLARE LONG CONSTANT SS$_NOSUCHTID = 9052/ DECLARE LONG CONSTANT SS$_NOSUCHRM = 9060/ DECLARE LONG CONSTANT SS$_NOCURTID = 9068 1 DECLARE LONG CONSTANT SS$_WRONGSTATE = 9076+ DECLARE LONG CONSTANT SS$_VETO = 90840 DECLARE LONG CONSTANT SS$_PWDSYNTAX = 90920 DECLARE LONG CONSTANT SS$_PWDNOTDIF = 91000 DECLARE LONG CONSTANT SS$_INVPWDLEN = 91080 DECLARE LONG CONSTANT SS$_SYSVERDIF = 91160 DECLARE LONG CONSTANT SS$_HWM_STALL = 91240 DECLARE LONG CONSTANT SS$_NOSUSPEND = 91321 DECLARE LONG CONSTANT SS$_NOSUCHPART = 9140/ DECLARE LONG CONSTANT SS$_RMALRDCL = 91480 DECLARE LONG CONSTANT SS$_ALRCURTID = 9156- DECLARE LONG CONSTANT SS$_INVLOG = 91640 DECLARE LONG CONSTANT SS$_BADLOGVER = 9172/ DECLARE LONG CONSTANT SS$_OPINPROG = 91802 DECLARE LONG CONSTANT SS$_WRONGACMODE = 91880 DECLARE LONG CONSTANT SS$_SUBTRACED = 91960 DECLARE LONG CONSTANT SS$_ARCHIVING = 9204/ DECLARE LONG CONSTANT SS$_ARCHIVED = 92122 DECLARE LONG CONSTANT SS$_SITEPWDFAIL = 92200 DECLARE LONG CONSTANT SS$_NOSUCHCPB = 9228- DE CLARE LONG CONSTANT SS$_CPUCAP = 9236- DECLARE LONG CONSTANT SS$_LOADER = 92440 DECLARE LONG CONSTANT SS$_HSTBUFACC = 92520 DECLARE LONG CONSTANT SS$_INCONOLCK = 9260/ DECLARE LONG CONSTANT SS$_INVEVENT = 92680 DECLARE LONG CONSTANT SS$_NOSUCHFAC = 92761 DECLARE LONG CONSTANT SS$_NOCALLPRIV = 9284/ DECLARE LONG CONSTANT SS$_INSFLPGS = 9292/ DECLARE LONG CONSTANT SS$_INSFRPGS = 93000 DECLARE LONG CONSTANT SS$_BADREASON = 93080 DECLARE LO NG CONSTANT SS$_NOSUCHBID = 93160 DECLARE LONG CONSTANT SS$_NOTORIGIN = 9324, DECLARE LONG CONSTANT SS$_NOLOG = 93321 DECLARE LONG CONSTANT SS$_TPDISABLED = 93402 DECLARE LONG CONSTANT SS$_BRANCHENDED = 93484 DECLARE LONG CONSTANT SS$_BRANCHSTARTED = 93563 DECLARE LONG CONSTANT SS$_NOSUCHREPORT = 9364. DECLARE LONG CONSTANT SS$_BADTIME = 93721 DECLARE LONG CONSTANT SS$_PARTJOINED = 93800 DECLARE LONG CONSTANT SS$_NOPRESUME = 93884 DECLARE LONG CONSTANT SS$_RECOVERCANCEL = 93963 DECLARE LONG CONSTANT SS$_CURTIDCHANGE = 9404/ DECLARE LONG CONSTANT SS$_NOREADER = 9412/ DECLARE LONG CONSTANT SS$_NOWRITER = 9420/ DECLARE LONG CONSTANT SS$_DEVNOTWS = 9428. DECLARE LONG CONSTANT SS$_NOCLASS = 94362 DECLARE LONG CONSTANT SS$_CONTEXTSKEW = 94441 DECLARE LONG CONSTANT SS$_BADFORGEDB = 9452/ DECLARE LONG CONSTANT SS$_NODOMAIN = 94600 DECLARE LONG CONSTANT SS$_OVRMAXAUD = 9468/ DECL ARE LONG CONSTANT SS$_BADCHAIN = 94760 DECLARE LONG CONSTANT SS$_BADBUFLEN = 94840 DECLARE LONG CONSTANT SS$_BADITMCOD = 94920 DECLARE LONG CONSTANT SS$_BADBUFADR = 95000 DECLARE LONG CONSTANT SS$_BADRETLEN = 95081 DECLARE LONG CONSTANT SS$_SSINOTHELD = 95161 DECLARE LONG CONSTANT SS$_SSAMISSING = 95241 DECLARE LONG CONSTANT SS$_SSANOTAUTH = 9532/ DECLARE LONG CONSTANT SS$_BADOWNER = 95406 DECLARE LONG CONSTANT SS$_NAMESERVCOMMERR = 9548/ DECLARE LONG CONSTANT SS$_IVNODNAM = 95564 DECLARE LONG CONSTANT SS$_CONFIG_SYNTAX = 9564. DECLARE LONG CONSTANT SS$_SHELVED = 95722 DECLARE LONG CONSTANT SS$_DRVNOTVALID = 95807 DECLARE LONG CONSTANT SS$_SLICING_DISABLED = 95882 DECLARE LONG CONSTANT SS$_NOCALLTRANS = 95962 DECLARE LONG CONSTANT SS$_TRANSCALLER = 96040 DECLARE LONG CONSTANT SS$_ILLPRIPOL = 96120 DECLARE LONG CONSTANT SS$_ILLPOLICY = 96200 DECLARE LONG CONSTANT SS$_INSFRSPID = 96282 DECLARE LONG CONSTANT SS$_INSFCREDITL = 96362 DECLARE LONG CONSTANT SS$_INSFCREDITH = 9644. DECLARE LONG CONSTANT SS$_INSFMAP = 96525 DECLARE LONG CONSTANT SS$_SIG_INVARGTYPE = 96604 DECLARE LONG CONSTANT SS$_SIG_INVFLTARG = 96685 DECLARE LONG CONSTANT SS$_SIG_INVARGLIST = 96766 DECLARE LONG CONSTANT SS$_SIG_INVFUNCTYPE = 96846 DECLARE LONG CONSTANT SS$_SIG_ARGMISMATCH = 96921 DECLARE LONG CONSTANT SS$_NOTRANQUIL = 97006 DECLARE LONG CONSTANT SS$_NOCALLTRANS_SUP = 97082 DECLARE LONG CONSTANT SS$_DEVLISTFULL = 97161 DECLARE LONG CONSTANT SS$_INSFP1POOL = 9724/ DECLARE LONG CONSTANT SS$_SIGNAL64 = 97322 DECLARE LONG CONSTANT SS$_ZEROALLOCLS = 97401 DECLARE LONG CONSTANT SS$_QUEUE_FULL = 97483 DECLARE LONG CONSTANT SS$_DEVICE_RESET = 97561 DECLARE LONG CONSTANT SS$_ACA_ACTIVE = 97646 DECLARE LONG CONSTANT SS$_BUS_PHASE_ERROR = 97724 DECLARE LONG CONSTANT SS$_NOMULTITHREAD = 97804 DECLARE LONG CONSTANT SS$_MTHREADACTIVE = 97882 DECLARE LONG CONSTANT SS$_MAXKTHREADS = 97963 DECLARE LONG CONSTANT SS$_NOSUCHTHREAD = 98042 DECLARE LONG CONSTANT SS$_NOTHREADMAN = 98123 DECLARE LONG CONSTANT SS$_NOSUCHUPCALL = 98200 DECLARE LONG CONSTANT SS$_BADFANDLE = 98281 DECLARE LONG CONSTANT SS$_FANDLEBUSY = 98360 DECLARE LONG CONSTANT SS$_UNALIGNED = 98440 DECLARE LONG CONSTANT SS$_BADIOSADR = 98520 DECLARE LONG CONSTANT SS$_ ILLBUFOBJ = 98602 DECLARE LONG CONSTANT SS$_ILLMODIFIER = 98683 DECLARE LONG CONSTANT SS$_NOCCBBUFFOBJ = 9876. DECLARE LONG CONSTANT SS$_NORDACC = 9884/ DECLARE LONG CONSTANT SS$_NOWRTACC = 98921 DECLARE LONG CONSTANT SS$_NOTNOCNVRT = 99002 DECLARE LONG CONSTANT SS$_UNSUPVOLSET = 99086 DECLARE LONG CONSTANT SS$_ARG_GTR_32_BITS = 99163 DECLARE LONG CONSTANT SS$_NOT64DEVFUNC = 9924. DECLARE LONG CONSTANT SS$_CHANVIO = 99326 DECLARE LONG CON STANT SS$_GBLSEC_MISMATCH = 99400 DECLARE LONG CONSTANT SS$_ILLRELPAG = 9948/ DECLARE LONG CONSTANT SS$_IVACMODE = 9956/ DECLARE LONG CONSTANT SS$_IVREGFLG = 9964. DECLARE LONG CONSTANT SS$_IVREGID = 99720 DECLARE LONG CONSTANT SS$_IVREGPROT = 9980. DECLARE LONG CONSTANT SS$_IVVAFLG = 99885 DECLARE LONG CONSTANT SS$_LEN_NOTBLKMULT = 99966 DECLARE LONG CONSTANT SS$_LEN_NOTPAGMULT = 100046 DECLARE LONG CONSTANT SS$_NOT_PROCESS_VA = 100126 DE CLARE LONG CONSTANT SS$_OFF_NOTBLKALGN = 100206 DECLARE LONG CONSTANT SS$_OFF_NOTPAGALGN = 100286 DECLARE LONG CONSTANT SS$_OFFSET_TOO_BIG = 100361 DECLARE LONG CONSTANT SS$_REGOWNVIO = 10044/ DECLARE LONG CONSTANT SS$_PROTVIO = 100525 DECLARE LONG CONSTANT SS$_TOO_MANY_ARGS = 100605 DECLARE LONG CONSTANT SS$_VA_NOTPAGALGN = 100681 DECLARE LONG CONSTANT SS$_NOEXTAUTH = 100760 DECLARE LONG CONSTANT SS$_AUTHFAIL = 10084/ DECLARE LONG CONSTANT SS $_INVUSER = 100922 DECLARE LONG CONSTANT SS$_ERRMAPAUTH = 10100/ DECLARE LONG CONSTANT SS$_NORAD50 = 101080 DECLARE LONG CONSTANT SS$_BADMEDIA = 101163 DECLARE LONG CONSTANT SS$_UNRECOVRDER = 101240 DECLARE LONG CONSTANT SS$_IVFORMAT = 101322 DECLARE LONG CONSTANT SS$_IVUNITFLAG = 10140/ DECLARE LONG CONSTANT SS$_IVPARAM = 101483 DECLARE LONG CONSTANT SS$_NOSUCHENTRY = 101563 DECLARE LONG CONSTANT SS$_ALLOCFAILED = 101643 DECLARE LONG C ONSTANT SS$_SHMEM_INCON = 101720 DECLARE LONG CONSTANT SS$_IVLOCKOP = 101801 DECLARE LONG CONSTANT SS$_IVLOCKTBL = 101881 DECLARE LONG CONSTANT SS$_LOCKINUSE = 101964 DECLARE LONG CONSTANT SS$_LOCK_TIMEOUT = 102041 DECLARE LONG CONSTANT SS$_BADLCKTBL = 10212/ DECLARE LONG CONSTANT SS$_NOBREAK = 102202 DECLARE LONG CONSTANT SS$_IVPROTOCOL = 102282 DECLARE LONG CONSTANT SS$_NOWAIT = 10236 ! B ! ***** NOTE: NO ROOM FOR MORE MESSAGES IN THIS SECTI ON ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! > ! 128-191 400-5FF 64 HARDWARE DEFINED FATAL ERRORS ! - DECLARE LONG CONSTANT SS$_PLHLDR = 1028- DECLARE LONG CONSTANT SS$_ASTFLT = 1036, DECLARE LONG CONSTANT SS$_BREAK = 1044/ DECLARE LONG CONSTANT SS$_CMODSUPR = 1052/ DECLARE LONG CONSTANT SS$_CMODUSER = 1060- DECLARE LONG CONSTANT SS$_COMPAT = 1068- DECLARE LONG CONSTANT SS$_OPCCUS = 1076- DECL ARE LONG CONSTANT SS$_OPCDEC = 1084/ DECLARE LONG CONSTANT SS$_PAGRDERR = 1092. DECLARE LONG CONSTANT SS$_RADRMOD = 1100. DECLARE LONG CONSTANT SS$_ROPRAND = 1108- DECLARE LONG CONSTANT SS$_SSFAIL = 1116+ DECLARE LONG CONSTANT SS$_TBIT = 1124, DECLARE LONG CONSTANT SS$_DEBUG = 1132E ! THE FOLLOWING CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED- DECLARE LONG CONSTANT SS$_ARTRES = 1140- DECLARE LONG CONSTANT SS$_INTOVF = 1148- DECLARE LONG CONSTANT SS$_INTDIV = 1156- DECLARE LONG CONSTANT SS$_FLTOVF = 1164- DECLARE LONG CONSTANT SS$_FLTDIV = 1172- DECLARE LONG CONSTANT SS$_FLTUND = 1180- DECLARE LONG CONSTANT SS$_DECOVF = 1188- DECLARE LONG CONSTANT SS$_SUBRNG = 1196/ DECLARE LONG CONSTANT SS$_FLTOVF_F = 1204/ DECLARE LONG CONSTANT SS$_FLTDIV_F = 1212/ DECLARE LONG CONSTANT SS$_FLTUND_F = 1220A ! THE ABOVE CODES MUST BE IN ORDER SINCE THEY ARE CALCULATED. DECLARE LONG CONSTANT SS$_INHCHMK = 1228. DECLARE LONG CONSTANT SS$_INHCHME = 1236- DECLARE LONG CONSTANT SS$_VECDIS = 1244- DECLARE LONG CONSTANT SS$_VARITH = 1252/ DECLARE LONG CONSTANT SS$_ILLVECOP = 1260/ DECLARE LONG CONSTANT SS$_VECALIGN = 1268- DECLARE LONG CONSTANT SS$_IMGDMP = 1276. DECLARE LONG CONSTANT SS$_HPARITH = 1284, DECLARE LONG CONSTANT SS$_ALIGN = 12926 DECLARE LONG CONSTANT SS$_UNALIGN_SP_LOAD = 1300. DECLARE LONG CONSTANT SS $_GENTRAP = 1308- DECLARE LONG CONSTANT SS$_FLTINV = 1316- DECLARE LONG CONSTANT SS$_FLTINE = 1324- DECLARE LONG CONSTANT SS$_DECDIV = 1332- DECLARE LONG CONSTANT SS$_DECINV = 13400 DECLARE LONG CONSTANT SS$_ASSERTERR = 13480 DECLARE LONG CONSTANT SS$_NULPTRERR = 1356- DECLARE LONG CONSTANT SS$_STKOVF = 13640 DECLARE LONG CONSTANT SS$_STRLENERR = 13720 DECLARE LONG CONSTANT SS$_SUBSTRERR = 1380/ DECLARE LONG CONSTANT SS$_RANGEERR = 1388 . DECLARE LONG CONSTANT SS$_SUBRNG1 = 1396. DECLARE LONG CONSTANT SS$_SUBRNG2 = 1404. DECLARE LONG CONSTANT SS$_SUBRNG3 = 1412. DECLARE LONG CONSTANT SS$_SUBRNG4 = 1420. DECLARE LONG CONSTANT SS$_SUBRNG5 = 1428. DECLARE LONG CONSTANT SS$_SUBRNG6 = 1436. DECLARE LONG CONSTANT SS$_SUBRNG7 = 14441 DECLARE LONG CONSTANT SS$_PAGRDERRXM = 14525 DECLARE LONG CONSTANT SS$_ILLEGAL_SHADOW = 1460/ DECLARE LONG CONSTANT SS$_FLTINV_F = 1468/ DECL ARE LONG CONSTANT SS$_FLTINE_F = 1476/ DECLARE LONG CONSTANT SS$_INTOVF_F = 1484 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 6 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! . ! 192-255 600-7FF 64 SUCCESS CODES ! 0 DECLARE LONG CONSTANT SS$_BUFFEROVF = 1537/ DECLARE LONG CONSTANT SS$_CONTROLO = 1545/ DECLARE LONG CONSTANT SS$_CONTROLY = 1553. DECLARE LONG CONSTANT SS$_CREATED = 15610 DECLARE LONG CONSTANT SS$_MSGNOTFND = 1569- DECLARE LONG CONSTANT SS$_NOTRAN = 15770 DECLARE LONG CONSTANT SS$_SUPERSEDE = 1585- DECLARE LONG CONSTANT SS$_WASECC = 15932 DECLARE LONG CONSTANT SS$_DEVALRALLOC = 1601- DECLARE LONG CONSTANT SS$_REMOTE = 1609/ DECLARE LONG CONSTANT SS$_CONTROLC = 16172 DECLARE LONG CONSTANT SS$_NOTMODIFIED = 16250 DECLARE LONG CONSTANT SS$_RDDELDATA = 16332 DECLARE LONG CONSTANT SS$_OVRDSKQUOTA = 16411 DECLARE LONG CONSTANT SS$_OBSOLETE_1 = 16491 DECLARE LONG CONSTANT SS$_FILEPURGED = 16571 DECLARE LONG CONSTANT SS$_NOTALLPRIV = 1665, DECLARE LONG CONSTANT SS$_SYNCH = 16730 DECLARE LONG CONSTANT SS$_CONCEALED = 1681/ DECLARE LONG CONSTANT SS$_INCOMPAT = 16890 DECLARE LONG CONSTANT SS$_DBGOPCREQ = 16972 DECLARE LONG CONSTANT SS$_ALRDYCLOSED = 17051 DECLARE LONG CONSTANT SS$_LNMCREATED = 1713 1 DECLARE LONG CONSTANT SS$_ACEIDMATCH = 1721/ DECLARE LONG CONSTANT SS$_DBGEVENT = 1729. DECLARE LONG CONSTANT SS$_REMOVED = 1737- DECLARE LONG CONSTANT SS$_QUEUED = 17452 DECLARE LONG CONSTANT SS$_SUBDISABLED = 1753- DECLARE LONG CONSTANT SS$_FORGET = 1761/ DECLARE LONG CONSTANT SS$_PREPARED = 17692 DECLARE LONG CONSTANT SS$_NOMOREITEMS = 1777/ DECLARE LONG CONSTANT SS$_VOLATILE = 17850 DECLARE LONG CONSTANT SS$_CLASSUPER = 17932 DECLARE LONG CONSTANT SS$_CONTINUE_64 = 18014 DECLARE LONG CONSTANT SS$_THREAD_UPCALL = 18093 DECLARE LONG CONSTANT SS$_CREATED_SHPT = 18175 DECLARE LONG CONSTANT SS$_PERSONADELPEND = 1825/ DECLARE LONG CONSTANT SS$_DEVAVAIL = 1833. DECLARE LONG CONSTANT SS$_LONGGAP = 1841- DECLARE LONG CONSTANT SS$_BROKEN = 1849 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTB ! ***** NOTE: ROOM FOR 21 MORE MESSAGES IN THIS SECTION *****  !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! . ! 256-383 800-BFF 128 WARNING CODES ! 1 DECLARE LONG CONSTANT SS$_ACCONFLICT = 20480 DECLARE LONG CONSTANT SS$_BADCHKSUM = 20561 DECLARE LONG CONSTANT SS$_BADFILEHDR = 20642 DECLARE LONG CONSTANT SS$_BADFILENAME = 20721 DECLARE LONG CONSTANT SS$_BADFILEVER = 20802 DECLARE LONG CONSTANT SS$_BADIRECTORY = 2088- DECLARE LONG CONSTANT SS$_CANCEL = 20961 DECLARE LONG C ONSTANT SS$_DATAOVERUN = 2104/ DECLARE LONG CONSTANT SS$_DEVALLOC = 21120 DECLARE LONG CONSTANT SS$_DEVASSIGN = 21201 DECLARE LONG CONSTANT SS$_DEVICEFULL = 21282 DECLARE LONG CONSTANT SS$_DEVNOTALLOC = 2136. DECLARE LONG CONSTANT SS$_DIRFULL = 21442 DECLARE LONG CONSTANT SS$_DUPFILENAME = 21520 DECLARE LONG CONSTANT SS$_ENDOFFILE = 21600 DECLARE LONG CONSTANT SS$_ENDOFTAPE = 2168/ DECLARE LONG CONSTANT SS$_TMACTIVE = 21761 DECLARE LONG C ONSTANT SS$_FCPREADERR = 21842 DECLARE LONG CONSTANT SS$_FCPREWNDERR = 21921 DECLARE LONG CONSTANT SS$_FCPSPACERR = 22001 DECLARE LONG CONSTANT SS$_FCPWRITERR = 22081 DECLARE LONG CONSTANT SS$_FILELOCKED = 22161 DECLARE LONG CONSTANT SS$_FILENUMCHK = 22241 DECLARE LONG CONSTANT SS$_FILESEQCHK = 22321 DECLARE LONG CONSTANT SS$_FILESTRUCT = 22401 DECLARE LONG CONSTANT SS$_HEADERFULL = 22482 DECLARE LONG CONSTANT SS$_IDXFILEFULL = 2256- DECLARE LONG CONSTANT SS$_MBFULL = 22640 DECLARE LONG CONSTANT SS$_NOHOMEBLK = 2272. DECLARE LONG CONSTANT SS$_NONEXPR = 2280/ DECLARE LONG CONSTANT SS$_NONLOCAL = 22880 DECLARE LONG CONSTANT SS$_NOHANDLER = 2296/ DECLARE LONG CONSTANT SS$_NOSIGNAL = 23040 DECLARE LONG CONSTANT SS$_NOSUCHDEV = 23121 DECLARE LONG CONSTANT SS$_NOSUCHFILE = 2320/ DECLARE LONG CONSTANT SS$_RESIGNAL = 2328- DECLARE LONG CONSTANT SS$_UNWIND = 23360 DECLARE LO NG CONSTANT SS$_UNWINDING = 23442 DECLARE LONG CONSTANT SS$_NOMOREFILES = 23520 DECLARE LONG CONSTANT SS$_BEGOFFILE = 23602 DECLARE LONG CONSTANT SS$_BLOCKCNTERR = 23682 DECLARE LONG CONSTANT SS$_MUSTCLOSEFL = 23761 DECLARE LONG CONSTANT SS$_WAITUSRLBL = 23842 DECLARE LONG CONSTANT SS$_ILLUSRLBLRD = 23922 DECLARE LONG CONSTANT SS$_ILLUSRLBLWT = 24000 DECLARE LONG CONSTANT SS$_ILLLBLAST = 24082 DECLARE LONG CONSTANT SS$_ENDOFUSRLBL = 24160 DE CLARE LONG CONSTANT SS$_NOSUCHSEC = 24240 DECLARE LONG CONSTANT SS$_CLIFRCEXT = 24320 DECLARE LONG CONSTANT SS$_FCPREPSTN = 24401 DECLARE LONG CONSTANT SS$_TOOMANYVER = 24480 DECLARE LONG CONSTANT SS$_NOTVOLSET = 24562 DECLARE LONG CONSTANT SS$_ENDOFVOLUME = 24641 DECLARE LONG CONSTANT SS$_NOMOREPROC = 2472/ DECLARE LONG CONSTANT SS$_NODEVAVL = 24800 DECLARE LONG CONSTANT SS$_NOTQUEUED = 24880 DECLARE LONG CONSTANT SS$_DGQINCOMP = 2496/ DE CLARE LONG CONSTANT SS$_DIRALLOC = 2504/ DECLARE LONG CONSTANT SS$_ACLEMPTY = 2512. DECLARE LONG CONSTANT SS$_NOENTRY = 25200 DECLARE LONG CONSTANT SS$_NOMOREACE = 25281 DECLARE LONG CONSTANT SS$_RIGHTSFULL = 25362 DECLARE LONG CONSTANT SS$_VALNOTVALID = 2544. DECLARE LONG CONSTANT SS$_ACLFULL = 25521 DECLARE LONG CONSTANT SS$_NOMORENODE = 25601 DECLARE LONG CONSTANT SS$_NOMORELOCK = 25680 DECLARE LONG CONSTANT SS$_BEGOFTAPE = 25762 DECL ARE LONG CONSTANT SS$_OBJLOCKHELD = 25841 DECLARE LONG CONSTANT SS$_CPUSTARTIP = 25921 DECLARE LONG CONSTANT SS$_ALLSTARTED = 26000 DECLARE LONG CONSTANT SS$_ALRDYSTRT = 26081 DECLARE LONG CONSTANT SS$_ALRDYSTPPD = 2616- DECLARE LONG CONSTANT SS$_NSTPPD = 26240 DECLARE LONG CONSTANT SS$_UNKRESULT = 26323 DECLARE LONG CONSTANT SS$_ITEMNOTFOUND = 26400 DECLARE LONG CONSTANT SS$_NOMOREDEV = 2648/ DECLARE LONG CONSTANT SS$_EFNOTSET = 26560 DECLARE LONG CONSTANT SS$_PRIMNOSTP = 26641 DECLARE LONG CONSTANT SS$_BOOTREJECT = 2672. DECLARE LONG CONSTANT SS$_RMTPATH = 26804 DECLARE LONG CONSTANT SS$_OBJECT_EXISTS = 26883 DECLARE LONG CONSTANT SS$_NOSUCHOBJECT = 26960 DECLARE LONG CONSTANT SS$_NOVOLDESC = 27040 DECLARE LONG CONSTANT SS$_NOPTBLDIR = 27120 DECLARE LONG CONSTANT SS$_DRVEXISTS = 27200 DECLARE LONG CONSTANT SS$_DEVEXISTS = 27282 DECLARE LONG CONSTANT SS$_GOTO_UNWIND = 27362 DECLARE LONG CONSTANT SS$_EXIT_UNWIND = 27442 DECLARE LONG CONSTANT SS$_SMALLHEADER = 27520 DECLARE LONG CONSTANT SS$_FDT_COMPL = 27604 DECLARE LONG CONSTANT SS$_TARGET_UNWIND = 27689 DECLARE LONG CONSTANT SS$_TARGET_GOTO_UNWIND = 27762 DECLARE LONG CONSTANT SS$_RESIGNAL_64 = 27840 DECLARE LONG CONSTANT SS$_NOMOREREG = 27922 DECLARE LONG CONSTANT SS$_PAGNOTINREG = 28000 DECLARE LONG CONSTANT SS$_REGISFULL = 28080 DECLARE LONG CONSTANT SS$_PAGT  YPVIO = 28160 DECLARE LONG CONSTANT SS$_NOSUCHPAG = 28242 DECLARE LONG CONSTANT SS$_PAGNOTWRITE = 28323 DECLARE LONG CONSTANT SS$_NOMORETHREAD = 28401 DECLARE LONG CONSTANT SS$_NOTF11ODS5 = 28480 DECLARE LONG CONSTANT SS$_NOCONVJNL = 28560 DECLARE LONG CONSTANT SS$_MPDEVBUSY = 28647 DECLARE LONG CONSTANT SS$_MPDEVUSERDISABLE = 28725 DECLARE LONG CONSTANT SS$_NOCPUMATCH = 2880 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTB  ! ***** NOTE: ROOM FOR 24 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 4 ! 384-447 C00-DFF 64 INFORMATIONAL CODES ! , DECLARE LONG CONSTANT SS$_EOTIN = 3075- DECLARE LONG CONSTANT SS$_CHAINW = 3083/ DECLARE LONG CONSTANT SS$_NOTINSEC = 3091. DECLARE LONG CONSTANT SS$_NONXPAG = 3099. DECLARE LONG CONSTANT SS$_LOGNAME = 31070 DECLARE LONG CONSTANT SS$_CPUSTARTD = 31152 DECLAR  E LONG CONSTANT SS$_CPUSTOPPING = 31235 DECLARE LONG CONSTANT SS$_NOTALLCANCELED = 31312 DECLARE LONG CONSTANT SS$_NOTHINGDONE = 31391 DECLARE LONG CONSTANT SS$_EVTNOTENAB = 31470 DECLARE LONG CONSTANT SS$_NOPATHTBL = 31552 DECLARE LONG CONSTANT SS$_RESELECTION = 3163/ DECLARE LONG CONSTANT SS$_EMULATED = 3171. DECLARE LONG CONSTANT SS$_REMDONE = 31790 DECLARE LONG CONSTANT SS$_REMINPROG = 3187- DECLARE LONG CONSTANT SS$_DEVCON = 31950 DE CLARE LONG CONSTANT SS$_DEVNOTCON = 32032 DECLARE LONG CONSTANT SS$_CPUSELECTED = 3211 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTB ! ***** NOTE: ROOM FOR 45 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 5 ! 448-511 E00-FFF 64 NONFATAL ERROR CODESJ ! 1408-1663 2C00-33FF 256 NONFATAL ERROR CODES (CONTINUED FROM FFF) ! / DECLARE LONG CONSTANT SS$_LINEABRT = 3586/  DECLARE LONG CONSTANT SS$_DEADLOCK = 3594/ DECLARE LONG CONSTANT SS$_NOLOCKID = 3602. DECLARE LONG CONSTANT SS$_EXDEPTH = 36101 DECLARE LONG CONSTANT SS$_PARTMAPPED = 36182 DECLARE LONG CONSTANT SS$_CANCELGRANT = 3626, DECLARE LONG CONSTANT SS$_RETRY = 3634- DECLARE LONG CONSTANT SS$_BADACL = 36420 DECLARE LONG CONSTANT SS$_ACEEXISTS = 36502 DECLARE LONG CONSTANT SS$_UNSUPPORTED = 36581 DECLARE LONG CONSTANT SS$_NORIGHTSDB = 3666/ DE  CLARE LONG CONSTANT SS$_LOGSTALL = 3674. DECLARE LONG CONSTANT SS$_LOGFULL = 3682/ DECLARE LONG CONSTANT SS$_PWDINDIC = 3690/ DECLARE LONG CONSTANT SS$_PWDINHIS = 3698. DECLARE LONG CONSTANT SS$_PWDWEAK = 37060 DECLARE LONG CONSTANT SS$_USEGENPWD = 37140 DECLARE LONG CONSTANT SS$_INVBUSNAM = 37222 DECLARE LONG CONSTANT SS$_INVCOMPTYPE = 37300 DECLARE LONG CONSTANT SS$_INVCOMPID = 37382 DECLARE LONG CONSTANT SS$_INVCOMPLIST = 37461 DECLARE  LONG CONSTANT SS$_NOCOMPLSTS = 37543 DECLARE LONG CONSTANT SS$_INVSECDOMAIN = 37622 DECLARE LONG CONSTANT SS$_BADCHECKSUM = 37700 DECLARE LONG CONSTANT SS$_ARBTOOBIG = 37780 DECLARE LONG CONSTANT SS$_ORBTOOBIG = 37860 DECLARE LONG CONSTANT SS$_INVAJLNAM = 37941 DECLARE LONG CONSTANT SS$_TOOMANYAJL = 38020 DECLARE LONG CONSTANT SS$_RSDMINUSE = 38101 DECLARE LONG CONSTANT SS$_RSDMNOTFOU = 38180 DECLARE LONG CONSTANT SS$_INVUICGRP = 38262 DE  CLARE LONG CONSTANT SS$_RSDM_ACTIVE = 38340 DECLARE LONG CONSTANT SS$_OBJLOCKED = 3842/ DECLARE LONG CONSTANT SS$_NOTMPNAM = 38500 DECLARE LONG CONSTANT SS$_INVCLSITM = 38580 DECLARE LONG CONSTANT SS$_NOTSHRTBL = 3866. DECLARE LONG CONSTANT SS$_MMATORB = 38740 DECLARE LONG CONSTANT SS$_NOSUCHVOL = 38823 DECLARE LONG CONSTANT SS$_OBJNOTLOCKED = 3890. DECLARE LONG CONSTANT SS$_ILLRSDM = 38985 DECLARE LONG CONSTANT SS$_NOCLASSSUPPORT = 39061 DECLARE LONG CONSTANT SS$_INVSECOPER = 39142 DECLARE LONG CONSTANT SS$_NODELJNLACT = 39222 DECLARE LONG CONSTANT SS$_INVFILFOROP = 3930/ DECLARE LONG CONSTANT SS$_NOOBJSRV = 39383 DECLARE LONG CONSTANT SS$_NOFILEACCESS = 39462 DECLARE LONG CONSTANT SS$_BADFILESIZE = 39545 DECLARE LONG CONSTANT SS$_NOTFULLYMAPPED = 39620 DECLARE LONG CONSTANT SS$_BADWINCNT = 39700 DECLARE LONG CONSTANT SS$_BADWINLBN = 39780 DECLARE LONG CONSTANT SS$_BADWINRVN = 39862 DECLARE LONG CONSTANT SS$_EXTRAWINDOW = 3994. DECLARE LONG CONSTANT SS$_REVISED = 40021 DECLARE LONG CONSTANT SS$_TIMENOTSET = 40108 DECLARE LONG CONSTANT SS$_WAIT_CALLERS_MODE = 40181 DECLARE LONG CONSTANT SS$_NOT_LOADED = 40263 DECLARE LONG CONSTANT SS$_DRV_NOUNLOAD = 4034- DECLARE LONG CONSTANT SS$_INVARG = 40420 DECLARE LONG CONSTANT SS$_QIO_CROCK = 4050, DECLARE LONG CONSTANT SS$_ALTER = 40582 DECLARE LONG CONSTANT SS$_AFR_ENAB LED = 40666 DECLARE LONG CONSTANT SS$_AFR_NOT_ENABLED = 40741 DECLARE LONG CONSTANT SS$_SHELFERROR = 4082I DECLARE LONG CONSTANT SS$_PERSONANONGRATA = 4090 ! **************B ! NOTE: THE ABOVE SET OF NONFATAL ERROR MESSAGES IS FULL????< ! ANY ADDITIONAL NONFATAL ERROR MESSAGES MUST BE ADDED* ! BELOW, IN THE RANGE HEX 2C00-33FF. ! **************3 DECLARE LONG CONSTANT SS$_NOTASSUMING = 112667 DECLARE LONG CONSTANT SS$_ALREADYASSUMING = 11274- DECLARE LONG CONSTANT SS$_INUSE = 112824 DECLARE LONG CONSTANT SS$_USERDISABLED = 11290/ DECLARE LONG CONSTANT SS$_NOCHJIB = 112980 DECLARE LONG CONSTANT SS$_NOTSUPFS = 113063 DECLARE LONG CONSTANT SS$_INSFTHREADS = 113142 DECLARE LONG CONSTANT SS$_NOBUFOBJID = 113226 DECLARE LONG CONSTANT SS$_NODELPERMANENT = 113302 DECLARE LONG CONSTANT SS$_NOMEMRESID = 113385 DECLARE LONG CONSTANT SS$_MRES_PFNSMALL = 113462 DECLARE LONG CONSTANT SS$_MR ES_INCON = 113545 DECLARE LONG CONSTANT SS$_NORESERVEDMEM = 113627 DECLARE LONG CONSTANT SS$_RESERVEDMEMUSED = 113705 DECLARE LONG CONSTANT SS$_RES_MEM_INCON = 11378/ DECLARE LONG CONSTANT SS$_NOSHPTS = 113861 DECLARE LONG CONSTANT SS$_FLUSHFAIL = 113944 DECLARE LONG CONSTANT SS$_NOTINSTALLED = 114025 DECLARE LONG CONSTANT SS$_POOLDEVEXISTS = 11410/ DECLARE LONG CONSTANT SS$_NOUNITS = 114180 DECLARE LONG CONSTANT SS$_NOTAPOOL = 114264  DECLARE LONG CONSTANT SS$_MISSINGUNITS = 114345 DECLARE LONG CONSTANT SS$_DISKDEVEXISTS = 114424 DECLARE LONG CONSTANT SS$_TOOMANYUNITS = 114501 DECLARE LONG CONSTANT SS$_NOTINPOOL = 114581 DECLARE LONG CONSTANT SS$_WRONGPOOL = 114660 DECLARE LONG CONSTANT SS$_ALRBOUND = 114746 DECLARE LONG CONSTANT SS$_NOTPOOLMOUNTED = 114821 DECLARE LONG CONSTANT SS$_POOLINUSE = 114901 DECLARE LONG CONSTANT SS$_DISKINUSE = 114982 DECLARE LONG CONSTANT SS$_SD  DISABLED = 115062 DECLARE LONG CONSTANT SS$_UNITINPOOL = 115144 DECLARE LONG CONSTANT SS$_FAMILYTOOBIG = 115222 DECLARE LONG CONSTANT SS$_NODISKNAME = 115306 DECLARE LONG CONSTANT SS$_DISKNAMEEXISTS = 115385 DECLARE LONG CONSTANT SS$_INSUFFREESEGS = 115460 DECLARE LONG CONSTANT SS$_NOTBOUND = 115544 DECLARE LONG CONSTANT SS$_TOOMANYFRAGS = 115627 DECLARE LONG CONSTANT SS$_TOOMANYFAMILIES = 115703 DECLARE LONG CONSTANT SS$_DISKISBOUND = 115781  DECLARE LONG CONSTANT SS$_SNAPINFAM = 115862 DECLARE LONG CONSTANT SS$_CHKSNAPVER = 115942 DECLARE LONG CONSTANT SS$_BADSNAPVER = 116024 DECLARE LONG CONSTANT SS$_SD_RESERVED4 = 116104 DECLARE LONG CONSTANT SS$_SD_RESERVED5 = 116181 DECLARE LONG CONSTANT SS$_SECREFOVF = 11626/ DECLARE LONG CONSTANT SS$_DATAERR = 11634. DECLARE LONG CONSTANT SS$_INVPFN = 116421 DECLARE LONG CONSTANT SS$_INV_SHMEM = 116503 DECLARE LONG CONSTANT SS$_INV_SHM_CP  P = 116583 DECLARE LONG CONSTANT SS$_INV_SHM_REG = 116661 DECLARE LONG CONSTANT SS$_ONEMAPPER = 116741 DECLARE LONG CONSTANT SS$_NOSUCHEXT = 116821 DECLARE LONG CONSTANT SS$_CBKEXISTS = 116901 DECLARE LONG CONSTANT SS$_NOSUCHCBK = 116982 DECLARE LONG CONSTANT SS$_NOTAMEMBER = 117065 DECLARE LONG CONSTANT SS$_GLXSPIUNAVAIL = 117147 DECLARE LONG CONSTANT SS$_MPDEVILLCURPATH = 117225 DECLARE LONG CONSTANT SS$_MPDEVINCOMPAT = 117300 DECL  ARE LONG CONSTANT SS$_MPDEVNOT = 117384 DECLARE LONG CONSTANT SS$_MPDEVNOTCONF = 117467 DECLARE LONG CONSTANT SS$_PERSONARESERVED = 117540 DECLARE LONG CONSTANT SS$_WRONGDRV = 117621 DECLARE LONG CONSTANT SS$_INVQSRFNC = 117703 DECLARE LONG CONSTANT SS$_NOQIOSERVER = 11778/ DECLARE LONG CONSTANT SS$_INCLASS = 11786- DECLARE LONG CONSTANT SS$_NOADD = 117946 DECLARE LONG CONSTANT SS$_SYSTEM_UIC = 11802 ! B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATE LY BEFORE THIS COMMENTC ! ***** NOTE: ROOM FOR 195 MORE MESSAGES IN THIS SECTION ***** !  ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 4 ! 1280-1343 2800-29FF 64 NO PRIVILEGE ERRORS !  ! M ! NB: THESE MESSAGES MUST BE KEPT IN THE SAME ORDER AS THE PRIVILEGE BITS ! DEFINITIONS ($PRVDEF) AS THE PRIVILEGE BIT POSITION IS USED AS AN INDEX INTOB ! THESE MESSAGE CODES BY THE $CHECK_PRIVILEGE SYSTEM SERVICE. ! 2 DECLARE LONG CONST  ANT SS$_NOPRIVSTRT = 102400 DECLARE LONG CONSTANT SS$_NODETACH = 102840 DECLARE LONG CONSTANT SS$_NOCMKRNL = 102440 DECLARE LONG CONSTANT SS$_NOCMEXEC = 102520 DECLARE LONG CONSTANT SS$_NOSYSNAM = 102600 DECLARE LONG CONSTANT SS$_NOGRPNAM = 102682 DECLARE LONG CONSTANT SS$_NOALLSPOOL = 102765 DECLARE LONG CONSTANT SS$_NOIMPERSONATE = 102842 DECLARE LONG CONSTANT SS$_NODIAGNOSE = 102920 DECLARE LONG CONSTANT SS$_NOLOG_IO = 10300/ DECLARE LONG  CONSTANT SS$_NOGROUP = 10308. DECLARE LONG CONSTANT SS$_NOACNT = 103160 DECLARE LONG CONSTANT SS$_NOPRMCEB = 103240 DECLARE LONG CONSTANT SS$_NOPRMMBX = 103320 DECLARE LONG CONSTANT SS$_NOPSWAPM = 103400 DECLARE LONG CONSTANT SS$_NOALTPRI = 103480 DECLARE LONG CONSTANT SS$_NOSETPRV = 103560 DECLARE LONG CONSTANT SS$_NOTMPMBX = 10364/ DECLARE LONG CONSTANT SS$_NOWORLD = 10372/ DECLARE LONG CONSTANT SS$_NOMOUNT = 10380. DECLARE LONG CONSTAN  T SS$_NOOPER = 103881 DECLARE LONG CONSTANT SS$_NOEXQUOTA = 103960 DECLARE LONG CONSTANT SS$_NONETMBX = 104040 DECLARE LONG CONSTANT SS$_NOVOLPRO = 104120 DECLARE LONG CONSTANT SS$_NOPHY_IO = 104200 DECLARE LONG CONSTANT SS$_NOBUGCHK = 104280 DECLARE LONG CONSTANT SS$_NOPRMGBL = 104360 DECLARE LONG CONSTANT SS$_NOSYSGBL = 104440 DECLARE LONG CONSTANT SS$_NOPFNMAP = 10452/ DECLARE LONG CONSTANT SS$_NOSHMEM = 104600 DECLARE LONG CONSTANT SS$_  NOSYSPRV = 104680 DECLARE LONG CONSTANT SS$_NOBYPASS = 104760 DECLARE LONG CONSTANT SS$_NOSYSLCK = 10484/ DECLARE LONG CONSTANT SS$_NOSHARE = 104921 DECLARE LONG CONSTANT SS$_NOUPGRADE = 105003 DECLARE LONG CONSTANT SS$_NODOWNGRADE = 105080 DECLARE LONG CONSTANT SS$_NOGRPPRV = 105161 DECLARE LONG CONSTANT SS$_NOREADALL = 105240 DECLARE LONG CONSTANT SS$_NOIMPORT = 10532/ DECLARE LONG CONSTANT SS$_NOAUDIT = 105402 DECLARE LONG CONSTANT SS  $_NOSECURITY = 105481 DECLARE LONG CONSTANT SS$_NOPRIVEND = 10751 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 6 ! 1344-1375 2A00-2AFF 32 EXCEEDED QUOTA ERRORS ! 3 DECLARE LONG CONSTANT SS$_EXQUOTASTRT = 10752/ DECLARE LONG CONSTANT SS$_EXASTLM = 10756/ DECLARE LONG CONSTANT SS$_EXBIOLM = 10764/ DECLARE LONG CONSTANT SS$_EXBYTLM = 10772/ DECLARE LONG CONSTANT SS$_EXDIOLM = 10780/ DECLARE LONG CONSTANT SS$_EXFILLM = 10  7883 DECLARE LONG CONSTANT SS$_EXPGFLQUOTA = 10796/ DECLARE LONG CONSTANT SS$_EXPRCLM = 10804/ DECLARE LONG CONSTANT SS$_EXTQELM = 10812/ DECLARE LONG CONSTANT SS$_EXENQLM = 10820. ! SYSTEM-WIDE QUOTA ERRORS GROW BACKWARDS2 DECLARE LONG CONSTANT SS$_EXBUFOBJLM = 110042 DECLARE LONG CONSTANT SS$_EXQUOTAEND = 11007 ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! C ! 1376-1407 2B00-2BFF 32 RESERVED FOR MEDIA MGMT EXTENSIONS !  1 DECLARE LONG CONSTANT SS$_MMSFAILED = 11012B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 2 MORE MESSAGES IN THIS SECTION *****1 DECLARE LONG CONSTANT SS$_TOOFEWDEV = 11032/ DECLARE LONG CONSTANT SS$_AVRWAIT = 11040B ! NEW SYMBOLS SHOULD BE ADDED IMMEDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 3 MORE MESSAGES IN THIS SECTION *****. DECLARE LONG CONSTANT SS$_NO_MMS = 110750 DECLARE LONG CONSTANT SS  $_MMSREADY = 110833 DECLARE LONG CONSTANT SS$_MMSNOTREADY = 110913 DECLARE LONG CONSTANT SS$_SKIP_CHECKS = 110991 DECLARE LONG CONSTANT SS$_NO_NOTIFY = 111077 DECLARE LONG CONSTANT SS$_SKIP_EXPIRATION = 111150 DECLARE LONG CONSTANT SS$_NOTATBOT = 111230 DECLARE LONG CONSTANT SS$_PREVDENS = 111317 ! A NEW BASE SHOULD BE CREATED FOR INFORMATIONALS B ! ***** NOTE: ROOM FOR 0 MORE MESSAGES IN ABOVE SECTION *****. DECLARE LONG CONSTANT SS$_RDBERR = 1  1140/ DECLARE LONG CONSTANT SS$_MDMSERR = 111480 DECLARE LONG CONSTANT SS$_IVMEDTYP = 11156. DECLARE LONG CONSTANT SS$_IVDENS = 11164. DECLARE LONG CONSTANT SS$_IVPOOL = 111720 DECLARE LONG CONSTANT SS$_IVEXPDAT = 111803 DECLARE LONG CONSTANT SS$_NOCONFMEDIA = 111885 DECLARE LONG CONSTANT SS$_PTE_NOT_EMPTY = 111963 DECLARE LONG CONSTANT SS$_CPUNOTAVAIL = 112042 DECLARE LONG CONSTANT SS$_NOFASTPATH = 11212B ! NEW SYMBOLS SHOULD BE ADDED IMM  EDIATELY BEFORE THIS COMMENTA ! ***** NOTE: ROOM FOR 8 MORE MESSAGES IN THIS SECTION ***** ! 2 ! MSG #S RANGE # MSGS DESCRIPTION ! 8 ! 4032-4095 7E00-7FFF 64 RESERVED FOR SCS SYSAPS ! 8 ! MESSAGE CODES IN THIS BLOCK ARE GUARANTEED NOT TO< ! BE TRANSLATED BY VMS WHEN THEY ARE SEND OUT BY VMSSCS; ! OR WHEN THEY ARE RECEIVED BY VMSSCS. SCA SYSAPS ARE< ! FREE TO USE THESE CODES IN ANY SYSAP-DEPENDENT MANNER ! IN WHICH THEY CHOOSE. ! A ! THIS ADDRESS OF THIS BLOCK OF CODES MUST BE IN CONFORMANCE: ! WITH THE SCA ARCHITECTURE, I.E., MUST NOT BE MOVED. ! 0 DECLARE LONG CONSTANT SS$_SYSAPMIN = 322560 DECLARE LONG CONSTANT SS$_SYSAPMAX = 32767ww @L %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET! %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT ACC$K_TERMLEN = 84 ! TERMINATION MESSAGE LENGTH N DECLARE LONG CONSTANT ACC$C_TERMLEN = 84 ! TERMINATION MESSAGE LENGTH / ! AND ACCOUNTING RECORD FOR NON BATCH JOBS" Z DECLARE LONG CONSTANT ACC$K_JOB_LEN = 108 ! LENGTH OF BATCH JOB ACCOUNTING RECORD Z DECLARE LONG CONSTANT ACC$C_JOB_LEN = 108 ! LENGTH OF BATCH JOB ACCOUNTING RECORD . DECLARE LONG CONSTANT ACC$S_ACCDEF = 108 record ACCDEFA WORD ACC$W_MSGTYP ! MESSAGE TYPE CODE ` WORD ACC$W_MSGSIZ ! LENGTH OF DATA MESSAGE ( VALID ONLY IN ACCLOG ) A LONG ACC$L_FINALSTS ! FINAL EXIT STATUS : LONG AC# C$L_PID ! PROCESS ID \ LONG ACC$L_JOBID ! JOB IDENTIFICATION ( VALID ONLY IN ACCLOG ) Q BASIC$QUADWORD ACC$Q_TERMTIME ! TERMINATION TIME ( 100NS UNITS ) U STRING ACC$T_ACCOUNT = 8 ! ACCOUNT NAME STRING ( BLANK FILLED ) R STRING ACC$T_USERNAME = 12 ! USER NAME STRING ( BLANK FILLED ) D LONG ACC$L_CPUTIM ! CPUTIM IN 10MS UNITS A LONG ACC$L_PAGEFLTS $ ! TOTAL PAGE FAULTS F LONG ACC$L_PGFLPEAK ! PEAK PAGING FILE USAGE E LONG ACC$L_WSPEAK ! PEAK WORKING SET SIZE P LONG ACC$L_BIOCNT ! COUNT OF BUFFERED I/O OPERATIONS N LONG ACC$L_DIOCNT ! COUNT OF DIRECT I/O OPERATIONS H LONG ACC$L_VOLUMES ! COUNT OF VOLUMES MOUNTED K BASIC$QUADWORD ACC$Q_LOGIN ! LOGIN TIME ( 100NS UNITS ) G LONG ACC$L_OW % NER ! PID OF SUBPROCESS OWNER ! ! END OF TERMINATION MESSAGEJ STRING ACC$T_JOB_NAME = 8 ! JOB NAME ( BLANK FILLED ) F STRING ACC$T_JOB_QUE = 16 ! QUEUE NAME ( .ASCIC )  end record ACCDEF U DECLARE LONG CONSTANT ACC$K_PRT_LEN = 88 ! LENGTH OF PRINT ACCOUNTING RECORD U DECLARE LONG CONSTANT ACC$C_PRT_LEN = 88 ! LENGTH OF PRINT ACCOUNTING RECORD  ! . DECLARE LONG CONSTANT ACC$S_ACCDEF1 = 88 & record ACCDEF1) BYTE ACCDEF$$_FILL_1 ( 1 to 48 )C LONG ACC$L_PAGCNT ! SYMBIONT PAGE COUNT B LONG ACC$L_QIOCNT ! SYMBIONT QIO COUNT B LONG ACC$L_GETCNT ! SYMBIONT GET COUNT C BASIC$QUADWORD ACC$Q_QUETIME ! TIME JOB WAS QUEUED A STRING ACC$T_PRT_NAME = 8 ! NAME OF PRINT JOB C STRING ACC$T_PRT_QUE = 12 ! NAME OF PRINT QUEUE / ! DEFINE USER ACCOUNTING ME ' SSAGE DATA AREA !  end record ACCDEF1 M DECLARE LONG CONSTANT ACC$K_INS_LEN = 176 ! LENGTH OF INSERT MESSAGE M DECLARE LONG CONSTANT ACC$C_INS_LEN = 176 ! LENGTH OF INSERT MESSAGE  ! A DECLARE LONG CONSTANT ACC$K_PRCTRM = 1 ! JOB TERMINATION G DECLARE LONG CONSTANT ACC$K_BATTRM = 2 ! BATCH JOB TERMINATION M DECLARE LONG CONSTANT ACC$K_INTTRM = 3 ! INTERACTIVE JOB TERMINATION S DECLARE LONG CONSTANT ACC$K_LOGTRM = 4 ! LOGIN FAI( LURE PROCESS TERMINATION C DECLARE LONG CONSTANT ACC$K_IMGTRM = 5 ! IMAGE TERMINATION H DECLARE LONG CONSTANT ACC$K_SUBTRM = 6 ! SUBPROCESS TERMINATION N DECLARE LONG CONSTANT ACC$K_DETTRM = 7 ! DETACHED PROCESS TERMINATION M DECLARE LONG CONSTANT ACC$K_NETTRM = 8 ! NETWORK PROCESS TERMINATION  ! MISC ACCOUNTING RECORDS G DECLARE LONG CONSTANT ACC$K_PRTJOB = 16 ! PRINT JOB ACCOUNTING C DECLARE LONG CONSTANT ACC$K_INSMSG = 17 ! INSERTED MESSAGE )  ! V DECLARE LONG CONSTANT ACC$K_INSMESG = 1 ! INSERT MESSAGE INTO ACCOUNTING FILE L DECLARE LONG CONSTANT ACC$K_NEWFILE = 2 ! CREATE A NEW ACCOUNT FILE D DECLARE LONG CONSTANT ACC$K_ENABACC = 3 ! ENABLE ACCOUNTING E DECLARE LONG CONSTANT ACC$K_DISAACC = 4 ! DISABLE ACCOUNTING N DECLARE LONG CONSTANT ACC$K_ENABSEL = 5 ! ENABLE SELECTIVE ACCOUNTING O DECLARE LONG CONSTANT ACC$K_DISASEL = 6 ! DISABLE SELECTIVE ACCOUNTING / DECLARE LONG CONSTANT ACC$S_ACCDEF2 = 176 record ACCDEF2) BYTE ACCDEF$$_FILL_2 ( 1 to 44 )R STRING ACC$T_USER_DATA = 132 ! ALLOW UP TO 132 BYTES OF USER DATA C ! ASSIGN RECORD TYPE CODES FOR RECORDS IN THE ACCOUNT LOG FILE ! " ! PROCESS ACCOUNTING RECORDS . ! DEFINE ACCOUNTING MANAGER MESSAGE CODES !  !  end record ACCDEF2  wwZ$NPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )$ END RECORDS% %LET %BASIC$QUADWORD_DECLARED = 1S %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI, =PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI- NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET. %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! 6 ! Access Control list Entry structure definitions !  ! -E DECLARE LONG CONSTANT ACE$C_KEYID = 1 ! Key identifier entry B DECLARE LONG CONSTANT ACE$C_RMSJNL_BI / = 2 ! RMS BI journalB DECLARE LONG CONSTANT ACE$C_RMSJNL_AI = 3 ! RMS AI journalB DECLARE LONG CONSTANT ACE$C_RMSJNL_AT = 4 ! RMS AT journalL DECLARE LONG CONSTANT ACE$C_AUDIT = 5 ! Security audit journal entryD DECLARE LONG CONSTANT ACE$C_ALARM = 6 ! Security alarm entryJ DECLARE LONG CONSTANT ACE$C_INFO = 7 ! General purpose informationU DECLARE LONG CONSTANT ACE$C_RMSJNL_RU_DEFAULT = 8 ! RU journal default volumeM DECLARE LONG CONSTANT ACE$C_0 DIRDEF = 9 ! Directory default protectionR DECLARE LONG CONSTANT ACE$C_RMSJNL_RU = 10 ! RU journal ( many per file )P DECLARE LONG CONSTANT ACE$C_SUBSYSTEM_IDS = 11 ! Protected subsystem idsG DECLARE LONG CONSTANT ACE$C_OIL = 12 ! Object Information LabelM DECLARE LONG CONSTANT ACE$C_NEW_OWNER = 13 ! Protection for owner ACEP DECLARE LONG CONSTANT ACE$C_MAX_CODE = 14 ! Maximum ACE type code plus 1 ! ACE types registered toJ DECLARE LONG CONSTAN1 T ACE$C_PATHWORKS = 128 ! Pathworks common ACEK DECLARE LONG CONSTANT ACE$C_LANMAN_SECURITY = 129 ! LANMAN securityT DECLARE LONG CONSTANT ACE$C_LANMAN_ATTRIB = 130 ! LANMAN extended attributesC DECLARE LONG CONSTANT ACE$C_NETWARE = 131 ! Netware trusteeI DECLARE LONG CONSTANT ACE$C_MAC_COMMENT = 132 ! MacIntosh commentM DECLARE LONG CONSTANT ACE$C_PATHWORKS_1 = 133 ! reserved to PathworksM DECLARE LONG CONSTANT ACE$C_PATHWORKS_2 = 134 ! reserved t 2 o PathworksM DECLARE LONG CONSTANT ACE$C_PATHWORKS_3 = 135 ! reserved to PathworksF DECLARE LONG CONSTANT ACE$C_RESERVED = 255 ! Reserved ACE typeT DECLARE LONG CONSTANT ACE$C_APPLICATION = 7 ! Alternate application ACE code? DECLARE LONG CONSTANT ACE$C_CUST = 1 ! Customer defined: DECLARE LONG CONSTANT ACE$C_CSS = 2 ! CSS defined: DECLARE LONG CONSTANT ACE$C_VMS = 3 ! VMS defined7 DECLARE LONG CONSTANT ACE$M_SUCCESS = x'00000001'7 DECL 3 ARE LONG CONSTANT ACE$M_FAILURE = x'00000002'7 DECLARE LONG CONSTANT ACE$M_DEFAULT = x'00000100'9 DECLARE LONG CONSTANT ACE$M_PROTECTED = x'00000200'6 DECLARE LONG CONSTANT ACE$M_HIDDEN = x'00000400'; DECLARE LONG CONSTANT ACE$M_NOPROPAGATE = x'00000800'4 DECLARE LONG CONSTANT ACE$M_READ = x'00000001'5 DECLARE LONG CONSTANT ACE$M_WRITE = x'00000002'7 DECLARE LONG CONSTANT ACE$M_EXECUTE = x'00000004'6 DECLARE LONG CONSTANT ACE$M_DELETE = x'00000008'4 7 DECLARE LONG CONSTANT ACE$M_CONTROL = x'00000010'M DECLARE LONG CONSTANT ACE$K_LENGTH = 8 ! Length of the overhead area M DECLARE LONG CONSTANT ACE$C_LENGTH = 8 ! Length of the overhead area [ DECLARE LONG CONSTANT ACE$C_RMS_ATTRIBUTES = 0 ! variant of ACE for file attributes[ DECLARE LONG CONSTANT ACE$K_RMS_ATTRIBUTES = 0 ! variant of ACE for file attributesO DECLARE LONG CONSTANT ACE$K_RMSATR_MINOR_V50 = 2 ! minor ID for VMS 5.0W DECLARE LO5 NG CONSTANT ACE$K_RMSATR_MINOR_VDW = 2 ! minor ID for DECwindows V1.0_ DECLARE LONG CONSTANT ACE$C_RMSATR_MINOR_ID = 2 ! current minor ID ( obsolete symbol )5 DECLARE LONG CONSTANT ACE$K_RMSATR_MINOR_ID = 2J DECLARE LONG CONSTANT ACE$C_RMSATR_MAJOR_ID = 1 ! current major ID5 DECLARE LONG CONSTANT ACE$K_RMSATR_MAJOR_ID = 1: DECLARE LONG CONSTANT ACE$M_STATISTICS = x'00000001'9 DECLARE LONG CONSTANT ACE$M_XLATE_DEC = x'00000002'c DECLARE LONG CONSTAN6 T ACE$S_RMSATR = 20 ! size of RMS file attributes ACE ( fixed fields )g DECLARE LONG CONSTANT ACE$S_RMSATR_V50 = 20 ! size of RMS file attributes ACE ( fixed fields )g DECLARE LONG CONSTANT ACE$S_RMSATR_VDW = 20 ! size of RMS file attributes ACE ( fixed fields )J ! Beyond the fixed fields, variable length information will by stored` DECLARE LONG CONSTANT ACE$_RMSATR_ORGANIZATION = 1 ! organizational extension object ID R DECLARE LONG CONSTANT ACE$_RMSATR_SEMA7 NTICS = 2 ! file semantics object ID9 DECLARE LONG CONSTANT ACE$K_RMSATR_ORG_MAX_LEN = 649 DECLARE LONG CONSTANT ACE$K_RMSATR_SEM_MAX_LEN = 64\ DECLARE LONG CONSTANT ACE$S_RMSJNL_RU_DEFAULT = 17 ! length of RMSJNL RU default ACE@ DECLARE LONG CONSTANT ACE$M_JOURNAL_DISABLED = x'00000001'; DECLARE LONG CONSTANT ACE$M_BACKUP_DONE = x'00000002'L DECLARE LONG CONSTANT ACE$S_RMSJNL_RU = 38 ! length of RMSJNL RU ACEO DECLARE LONG CONSTANT ACE$S_RMSJNL = 50 8 ! length of RMSJNL AI/BI/AT ACEN DECLARE LONG CONSTANT ACE$S_OIL_S64I64 = 32 ! Length of Type 0 OIL ACEL DECLARE LONG CONSTANT ACE$S_OIL_S128 = 32 ! Length of Type 1 OIL ACEC DECLARE LONG CONSTANT ACE$S_OIL = 32 ! Maximum OIL ACE Size- DECLARE LONG CONSTANT ACE$S_ACEDEF = 50 record ACEDEFA BYTE ACE$B_SIZE ! Size of the entry = BYTE ACE$B_TYPE ! Type of entry  ! outside products. Not" ! rec 9 ognized by VMS software." ! Registered for Pathworks..." group ACE$R_FLAGS_OVERLAY variant caseR WORD ACE$W_FLAGS ! Type dependent ? independent flags  caseF group ACE$R_FLAGS_INFO ! Flags for INFO type ACE) ! INFO ACE subtypey BYTE INFO_TYPE_bits ! COMMENT ADDED BY SDL - INFO_TYPE_bits contains bits INFO_TYPE through fill_0, : end group ACE$R_FLAGS_INFO caseC group ACE$R_FLAGS_KEYID ! Flags for KEYID type4 ! Count of reserved longwordsv BYTE RESERVED_bits ! COMMENT ADDED BY SDL - RESERVED_bits contains bits RESERVED through fill_1- end group ACE$R_FLAGS_KEYID case) group ACE$R_FLAGS_BITS04 ! Audit or alarm upon success4 ! Audit ot alarm upon ; failures BYTE SUCCESS_bits ! COMMENT ADDED BY SDL - SUCCESS_bits contains bits SUCCESS through fill_2- end group ACE$R_FLAGS_BITS0 caseE group ACE$R_FLAGS_BITS ! Type independent flags1 ! Directory default entry & ! Protected ACE# ! Hidden ACE8 ! No propagation between versionsp WORD FILL_A_bits ! COMMEN < T ADDED BY SDL - FILL_A_bits contains bits FILL_A through fill_3, end group ACE$R_FLAGS_BITS end variant& end group ACE$R_FLAGS_OVERLAYJ group ACE$R_ACE_FIELDS ! Start of ACE overlayed area variant caseN group ACE$R_KEY_AUD_TYPE ! KEY-ID and security audit types' group ACE$r_fill_4 variant caseG = LONG ACE$L_ACCESS ! Access rights bitmask  case- group ACE$r_fill_52 ! Allowed to read 3 ! Allowed to write 5 ! Allowed to execute 4 ! Allowed to delete > ! All privileges of the owner s BYTE READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits > READ through fill_61 end group ACE$r_fill_5# end variant+ end group ACE$r_fill_4, group ACE$R_KEY_OVERLAY variant caseF LONG ACE$L_KEY ! Start of the key fields case] STRING ACE$T_AUDITNAME = 16 ! Start of the security journal name# end variant0 ? end group ACE$R_KEY_OVERLAY. end group ACE$R_KEY_AUD_TYPE case' group ACE$R_INFO_TYPE' group ACE$r_fill_7 variant caseP LONG ACE$L_INFO_FLAGS ! INFO type application flags case- group ACE$r_fill_8Y WORD ACE$W_APPLICATION_FLAGS ! VMS application f @ lags word_ WORD ACE$W_APPLICATION_FACILITY ! VMS application facility code1 end group ACE$r_fill_8# end variant+ end group ACE$r_fill_7* group ACE$R_INFO_DATA variant caseS STRING ACE$T_INFO_START = 1 ! Start of the information case2 group ACEA $R_RMSATR_TYPEc WORD ACE$W_RMSATR_VARIANT ! Which variant of the RMS attributes ACEX BYTE ACE$B_RMSATR_FIXLEN ! length of fixed format fields' ! (introduced at minor ID 3. Older/ ! ACE's are assumed to be all fixed form)K BYTE ACE$B_RMSATR_SPARE1 ! currectly unused] WORD ACE$W_RMSATR_MINOR_ID ! RMS file attributes ACE minor ID] WO B RD ACE$W_RMSATR_MAJOR_ID ! RMS file attributes ACE major ID0 group ACE$r_fill_9( variant% casel LONG ACE$L_RMS_ATTRIBUTE_FLAGS ! RMS file attributes flags definitions% case7 group ACE$r_fill_10U ! Statistics monitoring enabled on this fileG C ! File semantics are DEC-local BYTE STATISTICS_bits ! COMMENT ADDED BY SDL - STATISTICS_bits contains bits STATISTICS & ! through fill_11; end group ACE$r_fill_10, end variant4 end group ACE$r_fill_9M ! using a {field-type, length, value} scheme. This allows extensibility" ! and compact representation. !  ! f D ield types are:6 end group ACE$R_RMSATR_TYPE# end variant. end group ACE$R_INFO_DATA+ end group ACE$R_INFO_TYPE caseM group ACE$R_RMSJNL_TYPE ! Used for all 5 RMSJNL_xxx ACEsM STRING ACE$T_VOLNAM = 12 ! Volume name of journal fileT BYTE ACE$B_VOLNAM_LEN ! Length of volume name of journal fileO BYTE ACE$B_ E RJRVER ! RMS journal file structure levelH group ACE$R_FID_OVERLAY ! File-id of journal file variant caseA WORD ACE$W_FID ( 1 to 3 ) ! file id  case1 group ACE$R_FID_FIELDSA WORD ACE$W_FID_NUM ! file number E WORD ACE$W_FID_SEQ ! sequence number 9 F group ACE$R_FID_RVN_OVERLAY( variant% caseR WORD ACE$W_FID_RVN ! relative volume number % case> group ACE$R_FID_RVN_FIELDSS BYTE ACE$B_FID_RVN ! alternate format RVN e BYTE ACE$B_FID_NMX ! alternate format file number extension B G end group ACE$R_FID_RVN_FIELDS, end variant= end group ACE$R_FID_RVN_OVERLAY5 end group ACE$R_FID_FIELDS# end variant0 end group ACE$R_FID_OVERLAY5 group ACE$R_RMSJNL_FLAGS_OVERLAY variant case2 WORD ACE$W_RMSJNL_FLAGS ca H se8 group ACE$R_RMSJNL_FLAGS_BITS5 ! journaling disabled' ! (AI, BI, AT only; set by BACKUP); ! BACKUP done on this file;) ! RMS needs to write a backup marker' ! (AI, BI, AT only; set by BACKUP)z BYTE JOURNAL_DISABLED_bits ! COMMENT ADDED BY SDL - JOURNAL_DISABLED_bits contains bits &# ! JOURNAL_DISABLED through fill_12< end group I ACE$R_RMSJNL_FLAGS_BITS# end variant9 end group ACE$R_RMSJNL_FLAGS_OVERLAYJ LONG ACE$L_JNLIDX ! journal stream index numberQ BASIC$QUADWORD ACE$Q_CDATE ! creation date/time of journalK LONG ACE$L_BACKUP_SEQNO ! BACKUP sequence number (to' ! find where to start in journal).` BASIC$QUADWORD ACE$Q_MODIFICATION_TIME ! timestamp of last backup or last J ! journal entry recovered.- end group ACE$R_RMSJNL_TYPE case) group ACE$R_DIRDEF_TYPE< LONG ACE$L_SPARE1 ! For alignmentH LONG ACE$L_SYS_PROT ! Default system protectionG LONG ACE$L_OWN_PROT ! Default owner protectionG LONG ACE$L_GRP_PROT ! Default group protectionG LONG ACE$L_WOR_PROT ! Default world protection- K end group ACE$R_DIRDEF_TYPE caseL group ACE$R_IMAGE_ID_TYPE ! Protected subsystem ACE type< LONG ACE$L_SPARE2 ! For alignmentQ BASIC$QUADWORD ACE$Q_IMAGE_IDS ! Start of the image ids (a$ ! quadword for each identifier)/ end group ACE$R_IMAGE_ID_TYPE caseG group ACE$R_OIL_TYPE ! Object Information Label< LONG ACE$L_ OIL_FLAGS ! For AlignmentE LONG ACE$L_BRAND_NAME ! OIL Type-Specific InfoD STRING ACE$R_CLASS_PROT = 1 ! OIL Class Block* end group ACE$R_OIL_TYPE end variant# end group ACE$R_ACE_FIELDS end record ACEDEF  wwM +=PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIN NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETO %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT ACL$K_LENGTH = 12 ! Length of the overhead area N DECLARE LONG CONSTANT ACL$C_LENGTH = 12 ! Length of the overhead area 4 DECLARE LONG CONSTANT ACL$C_FILE = 1 ! FP ilesB DECLARE LONG CONSTANT ACL$C_DEVICE = 2 ! MBX, MT, TT, etc.K DECLARE LONG CONSTANT ACL$C_JOBCTL_QUEUE = 3 ! Job controller queueV DECLARE LONG CONSTANT ACL$C_COMMON_EF_CLUSTER = 4 ! Common event flag clustersP DECLARE LONG CONSTANT ACL$C_LOGICAL_NAME_TABLE = 5 ! Logical name tables9 DECLARE LONG CONSTANT ACL$C_PROCESS = 6 ! ProcessT DECLARE LONG CONSTANT ACL$C_GROUP_GLOBAL_SECTION = 7 ! Group global sectionsV DECLARE LONG CONSTANT ACL$C_SYSTQ EM_GLOBAL_SECTION = 8 ! System global sections? DECLARE LONG CONSTANT ACL$C_CAPABILITY = 9 ! CapabilityH DECLARE LONG CONSTANT ACL$C_EVENT_FACILITY = 10 ! Event facilityC DECLARE LONG CONSTANT ACL$C_LOCK = 11 ! Lock block/resourceF DECLARE LONG CONSTANT ACL$C_VOLUME = 12 ! Disk volume ( set )E DECLARE LONG CONSTANT ACL$C_MAX_OBJECT = 13 ! max object codeH DECLARE LONG CONSTANT ACL$C_NUM_OBJECTS = 12 ! number of objectsH DECLARE LONG CONSTANT R ACL$K_NUM_OBJECTS = 12 ! number of objects ! Action codesD DECLARE LONG CONSTANT ACL$C_ADDACLENT = 1 ! Add an ACL entryG DECLARE LONG CONSTANT ACL$C_DELACLENT = 2 ! Delete an ACL entryG DECLARE LONG CONSTANT ACL$C_MODACLENT = 3 ! Modify an ACL entryG DECLARE LONG CONSTANT ACL$C_FNDACLENT = 4 ! Locate an ACL entryL DECLARE LONG CONSTANT ACL$C_FNDACETYP = 5 ! Locate specific ACE typeQ DECLARE LONG CONSTANT ACL$C_DELETEACL = 6 ! Delete ACL, leavS ing protected> DECLARE LONG CONSTANT ACL$C_READACL = 7 ! Read the ACLH DECLARE LONG CONSTANT ACL$C_ACLLENGTH = 8 ! Get the ACL's lengthC DECLARE LONG CONSTANT ACL$C_READACE = 9 ! Read a single ACEE DECLARE LONG CONSTANT ACL$C_RLOCK_ACL = 10 ! Read lock on ACLF DECLARE LONG CONSTANT ACL$C_WLOCK_ACL = 11 ! Write lock on ACLL DECLARE LONG CONSTANT ACL$C_UNLOCK_ACL = 12 ! Release exclusive lockH DECLARE LONG CONSTANT ACL$C_GRANT_ACE = 13 ! ACE graT nting accessH DECLARE LONG CONSTANT ACL$C_NEXT_ACE = 14 ! Increment ACE numberG DECLARE LONG CONSTANT ACL$C_DELETE_ALL = 15 ! Delete entire ACLM DECLARE LONG CONSTANT ACL$C_RESERVED_ITEM_2 = 16 ! Reserved item codeM DECLARE LONG CONSTANT ACL$C_RESERVED_ITEM_3 = 17 ! Reserved item codeF DECLARE LONG CONSTANT ACL$S_ADDACLENT = 255 ! Add an ACL entryI DECLARE LONG CONSTANT ACL$S_DELACLENT = 255 ! Delete an ACL entryI DECLARE LONG CONSTANT ACL$S_MOU DACLENT = 255 ! Modify an ACL entryI DECLARE LONG CONSTANT ACL$S_FNDACLENT = 255 ! Locate an ACL entryN DECLARE LONG CONSTANT ACL$S_FNDACETYP = 255 ! Locate specific ACE typeS DECLARE LONG CONSTANT ACL$S_DELETEACL = 255 ! Delete ACL, leaving protected@ DECLARE LONG CONSTANT ACL$S_READACL = 512 ! Read the ACLH DECLARE LONG CONSTANT ACL$S_ACLLENGTH = 4 ! Get the ACL's lengthE DECLARE LONG CONSTANT ACL$S_READACE = 255 ! Read a single ACED DECLARV E LONG CONSTANT ACL$S_RLOCK_ACL = 4 ! Read lock on ACLE DECLARE LONG CONSTANT ACL$S_WLOCK_ACL = 4 ! Write lock on ACLG DECLARE LONG CONSTANT ACL$S_UNLOCK_ACL = 4 ! Remove lock on ACLI DECLARE LONG CONSTANT ACL$S_GRANT_ACE = 255 ! ACE granting accessG DECLARE LONG CONSTANT ACL$S_NEXT_ACE = 4 ! Increment ACE numberH DECLARE LONG CONSTANT ACL$S_DELETE_ALL = 255 ! Delete entire ACLN DECLARE LONG CONSTANT ACL$S_RESERVED_ITEM_2 = 255 ! Reserved item codeW N DECLARE LONG CONSTANT ACL$S_RESERVED_ITEM_3 = 255 ! Reserved item codeU DECLARE LONG CONSTANT ACL$C_MAX_SEGMENT_SIZE = 512 ! Maximum ACL segemnt sizeU DECLARE LONG CONSTANT ACL$K_MAX_SEGMENT_SIZE = 512 ! Maximum ACL segemnt size- DECLARE LONG CONSTANT ACL$S_ACLDEF = 16 record ACLDEFV LONG ACL$L_FLINK ! Forward link to next list in the queue S LONG ACL$L_BLINK ! Back link to previous list in queue F WORD ACL$W_SIZE ! Total size of the list C BYTE ACL$B_TYPE ! Structure type code A BYTE ACLDEF$$_FILL_1 ! Spare unused byte S LONG ACL$L_LIST ! Start of the Access Control Entries  ! Object types end record ACLDEF  wwY O>PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIZ NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET[ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! L ! Definitions for the $AUTHENTICATE[W], $LOGON[W], and $SET_PASSWORD[W] ! system services. !  ! ! $LOGON[W] function codes. ! P DECLARE LONG CONSTANT ACME$_MAP_ \ TO_USERNAME = 1 ! Map userid to usernameT DECLARE LONG CONSTANT ACME$_VERIFY_PASSWORD_ONLY = 2 ! Authenticate password[ DECLARE LONG CONSTANT ACME$_MAX_FUNCTION_CODE = 3 ! maximum legal function code + 1 ! D ! Item codes. Codes specific to a particular service are noted: !  ! $AU = $AUTHENTICATE[W] ! $LO = $LOGON[W] ! $SP = $SET_PASSWORD[W] ! L DECLARE LONG CONSTANT ACME$_NULL = 1 ! NULL item code ( skip item )F DECLARE LONG CON] STANT ACME$_DOMAIN = 2 ! Authentication domain8 DECLARE LONG CONSTANT ACME$_USERID = 3 ! User IDB DECLARE LONG CONSTANT ACME$_PASSWORD = 4 ! Single passwordE DECLARE LONG CONSTANT ACME$_PASSWORD_LIST = 5 ! Password listL DECLARE LONG CONSTANT ACME$_NEW_PASSWORD = 6 ! New password ( $SP )^ DECLARE LONG CONSTANT ACME$_OUTPUT_VMS_USERNAME = 7 ! Mapped OpenVMS username ( $LO )^ DECLARE LONG CONSTANT ACME$_NOAUTHENTICATION = 8 ! No password authenticatio^ n ( $SP )[ DECLARE LONG CONSTANT ACME$_OVERRIDE_POLICY = 9 ! Override password policy ( $SP )[ DECLARE LONG CONSTANT ACME$_SYNCHRONIZE = 10 ! Set password in all domains ( $SP )P DECLARE LONG CONSTANT ACME$_REASON_CODE = 11 ! ACME-specific reason codeY DECLARE LONG CONSTANT ACME$_VALIDATE_ONLY = 12 ! Validate user can login ( $LO )h DECLARE LONG CONSTANT ACME$_UAF_RECORD_LOCKED = 13 ! Advisory that UAF record is locked ( $LO )E DECLARE LONG CONSTAN _ T ACME$_RESERVED_ITEM_1 = 14 ! Reserved 1E DECLARE LONG CONSTANT ACME$_RESERVED_ITEM_2 = 15 ! Reserved 2T DECLARE LONG CONSTANT ACME$_MAX_ITEM_CODE = 16 ! maximum legal item code + 1 ! ! Structures and constants. ! K DECLARE LONG CONSTANT ACME$C_MAJOR_VERSION = 1 ! Major ACME versionK DECLARE LONG CONSTANT ACME$C_MINOR_VERSION = 0 ! Minor ACME versionM DECLARE LONG CONSTANT ACME$S_MAX_DOMAIN = 256 ! Maximum domain lengthM DECLARE LO ` NG CONSTANT ACME$S_MAX_USERID = 256 ! Maximum userid lengthQ DECLARE LONG CONSTANT ACME$S_MAX_PASSWORD = 256 ! Maximum password length ! N ! The PASSWORD_LIST item code requires a list of password items with eachN ! item specified by a PWDITM structure definition. The list is terminated ! by a longword zero. ! . DECLARE LONG CONSTANT ACME$S_PWDITM = 12 record ACME$R_PWDITM group ACME$R_PWDTRM variant caseC a LONG ACME$L_TERMINATOR ! Termination longword case, group ACME$R_PWDNUM_FIELDSS WORD ACME$W_PWDNUM ! Password number ( 1=primary, etc. )K WORD ACME$W_RSRVD1 ! reserved for future use, MBZ0 end group ACME$R_PWDNUM_FIELDS end variant end group ACME$R_PWDTRMR LONG ACME$A_OLDPWD ! Descriptor address for old passwordR LONG ACME$A_NEWPWD ! Descriptor address for new password end record ACME$R_PWDITM  ! : ! Maximum password number to be used in password list ! 7 DECLARE LONG CONSTANT ACME$C_MAX_PASSWORD_NUM = 8 wwc >PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGId NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETe %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! : ! ACMEVMSIC structures mirror an ACMEDEF declaration% ! until SDL READ works for Ada. !  ! + !  ! $ACM Item Codes ! B ! Item codes are 16-bit unsigned vf alues, encoded as follows: ! ! 1( ! 5 8 7 0) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+) ! | | | | | | | | | | | | | | | | |) ! +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ ! ^ ^ ^ ! | | |I ! | | +-- Bit [13] = 0 ==> not subject to VTF-7 <-> UCS conversionE ! | | 1 ==> subject to VTF-7 <-> UCS conversion ! | |, ! | +---- Bit [14] = 0 ==> input item- ! | 1 ==> output ite g m ! |- ! +------ Bit [15] = 0 ==> common item4 ! 1 ==> ACME specific item !  ! -: DECLARE LONG CONSTANT acmevmsic$M_ITEM = x'00001FFF'9 DECLARE LONG CONSTANT acmevmsic$m_ucs = x'00002000'< DECLARE LONG CONSTANT acmevmsic$m_output = x'00004000'C DECLARE LONG CONSTANT acmevmsic$m_acme_specific = x'00008000'2 DECLARE LONG CONSTANT acmevmsic$k_length = 25 DECLARE LONG CONSTANT acmevmsic$s_acmevmsic = 2 recoh rd acmevmsic" group acmevmsic$r_fill_13 variant case@ WORD acmevmsic$w_item_code ! Composite field case+ group acmevmsic$r_fill_14% ! Ranged valueF ! 0 ==> not subject to VTF-7 <-> UCS conversion0 ! 1 ==> subject to VTF-7 <-> UCS conversion) ! 0 ==> input item ! 1 ==> output item* ! 0 ==> common item i ! 1 ==> ACME specific itemq WORD ITEM_bits ! COMMENT ADDED BY SDL - ITEM_bits contains bits ITEM through acme_specific/ end group acmevmsic$r_fill_14 end variant& end group acmevmsic$r_fill_13 end record acmevmsic  ! ! Item code biasing factors !  ! Backward-compatibility ! Not for initial call ! Contemporary supported ! $CREPRC argument items ! UAI data ! & ! j ACME-specific output data types ! : ! These codes are provided by the VMS ACME for return1 ! in field MAX_LENGTH of an output Item Set. ! ; ! The field MAX_LENGTH is named for its purpose within: ! Input Item Sets, but for Output Item Sets it allows? ! SYS$ACM[W] clients to categorize the output they receive, ! and dispatch to specialized handling. ! D ! These ACME-specific values are provided only where the callerC ! is one the VMS ACME knows k can handle these particular binary ! codes, i.e. LOGINOUT. ! Q ! These data types are defined exclusively to provide backward compatibilityM ! with interface methods used prior to the introduction of SYS$ACM[W] byL ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.H ! They will not be provided to other clients which call SYS$ACM[W]. ! : DECLARE LONG CONSTANT acmevms$k_min_msg_type = 32768^ DECLARE LONG CONSTANT acmevms$k_old_decwl _pwd_exp_1 = 32768 ! Binary expiration warning^ DECLARE LONG CONSTANT acmevms$k_old_decw_pwd_exp_2 = 32769 ! Binary expiration warninge DECLARE LONG CONSTANT acmevms$k_old_decw_pwd_quality = 32770 ! Binary password quality statusU DECLARE LONG CONSTANT acmevms$k_old_sysuaf_070 = 32771 ! Authorization Record[ DECLARE LONG CONSTANT acmevms$k_old_auth_flags = 32772 ! Password requirement flags: DECLARE LONG CONSTANT acmevms$k_max_msg_type = 32772 ! 0 ! m ACME-specific Item Codes for the VMS ACME ! ? ! Items with these codes from the callr of SYS$ACM[W] will? ! be provided to the VMS ACME (exclusively) if they followA ! an instance of General Item Code ACME_TARGET_ACME_ID which ! specifies the VMS ACME. ! C ! ACME-specific Item Codes have the high bit (15) set, whereas( ! General Item Codes have it clear. !  !  ! Input Item Codes ! @ ! While SYS$ACM does not specify semantics for n the handlingD ! of multiple input item codes of the same value, the semantics> ! of the VMS ACME are uniform for all input item codes --> ! the value associated with the last input item prevails. !  ! ? ! Input item codes not subject to VTF-7 <-> UCS conversion !  ! . ! Backward-compatibility Input Item Codes ! L ! These codes are defined exclusively to provide backward compatibilityM ! with interface methods used prior to the introduction oo f SYS$ACM[W] byL ! TNT$SERVER, LOGINOUT LGI-callouts and LOGINOUT DECwindows interfaces.I ! They will not be honored from other clients which call SYS$ACM[W]. ! 7 DECLARE LONG CONSTANT acmevms$_min_old_in = 32768l DECLARE LONG CONSTANT acmevms$_old_decwindows_flag = 32768 ! old DECwindows authentication mechanismi DECLARE LONG CONSTANT acmevms$_old_hashed_password_1 = 32769 ! old ARGUS authentication mechanismi DECLARE LONG CONSTANT acmevms$_old_hashed_pa p ssword_2 = 32770 ! old ARGUS authentication mechanismg DECLARE LONG CONSTANT acmevms$_old_lgi_phase = 32771 ! old LGI-callout authentication mechanismh DECLARE LONG CONSTANT acmevms$_old_lgi_status = 32772 ! old LGI-callout authentication mechanism7 DECLARE LONG CONSTANT acmevms$_max_old_in = 32772 ! ! ! Solicited Input Item Codes ! H ! These codes support historic LOGINOUT behavour and in addition toH ! being retricted to LOGINOUT are not honored o q n initial calls fromM ! LOGINOUT. They can only be provided in response to an Input Item Set. ! = DECLARE LONG CONSTANT acmevms$_min_solicited_in = 33024f DECLARE LONG CONSTANT acmevms$_loginout_local_flag = 33024 ! LOGINOUT received /LOCAL_PASSWORDq DECLARE LONG CONSTANT acmevms$_loginout_reconn_flag = 33025 ! LOGINOUT is authenticating for reconnection= DECLARE LONG CONSTANT acmevms$_max_solicited_in = 33025 !  ! General Input Items ! C r ! These non-converting input item codes are permanent featuresD ! of the VMS ACME, although some require particular privileges. ! D ! LOGINOUT_CREPRC_FLAGS is only honored from LOGINOUT, althoughI ! other clients can achieve the same results using other Item Codes.D ! The reason LOGINOUT_CREPRC_FLAGS exists is to minimize codingB ! changes for the transition of LOGINOUT to using SYS$ACM[W]. ! ; DECLARE LONG CONSTANT acmevms$_min_general_in = 33280m DEs CLARE LONG CONSTANT acmevms$_autologin_allowed_flag = 33280 ! autologin is allowed for this requestj DECLARE LONG CONSTANT acmevms$_default_principal_flag = 33281 ! default principal name if possiblec DECLARE LONG CONSTANT acmevms$_genpwd_count = 33282 ! desired number of generated passwordsh DECLARE LONG CONSTANT acmevms$_genpwd_mandatory_flag = 33283 ! generated password must be chosenf DECLARE LONG CONSTANT acmevms$_genpwd_maxlength = 33284 ! maximum length of get nerated passwordf DECLARE LONG CONSTANT acmevms$_genpwd_minlength = 33285 ! minimum length of generated passwordh DECLARE LONG CONSTANT acmevms$_loginout_creprc_flags = 33286 ! CTL$GL_CREPRC_FLAGS from LOGINOUTQ DECLARE LONG CONSTANT acmevms$_parent_pid = 33287 ! PID of client process` DECLARE LONG CONSTANT acmevms$_preauthentication_flag = 33288 ! preauthenticated requestk DECLARE LONG CONSTANT acmevms$_uses_system_password = 33289 ! this connection uses syste u m passwords; DECLARE LONG CONSTANT acmevms$_max_general_in = 33289 ! ; ! Input item codes subject to VTF-7 <-> UCS conversion ! ? DECLARE LONG CONSTANT acmevms$_min_general_in_ucs = 41984f DECLARE LONG CONSTANT acmevms$_net_proxy = 41984 ! network proxy username string from LOGINOUT[ DECLARE LONG CONSTANT acmevms$_parent_username = 41985 ! Username of client processa DECLARE LONG CONSTANT acmevms$_confirm_password_sys = 41986 ! Reenter New System v Password` DECLARE LONG CONSTANT acmevms$_confirm_password_1 = 41987 ! Reenter New Primary Passwordb DECLARE LONG CONSTANT acmevms$_confirm_password_2 = 41988 ! Reenter New Secondary Password? DECLARE LONG CONSTANT acmevms$_max_general_in_ucs = 41988 !  ! Output Item Codes ! @ ! While SYS$ACM does not specify semantics for the handlingE ! of multiple output item codes of the same value, the semantics? ! of the VMS ACME are uniform for all output w item codes --0 ! all such codes are honored independently. !  ! @ ! Output item codes not subject to VTF-7 <-> UCS conversion !  ! ! CREPRC-based output items ! G ! These Output Item Codes provide information in a format suitableH ! for passing to the $CREPRC System service, freeing callers of any@ ! need to track the introduction of new VMS process quotas. ! ; DECLARE LONG CONSTANT acmevms$_min_creprc_out = 49920T DECLARE LOx NG CONSTANT acmevms$_creprc_baspri = 49920 ! Process base priorityV DECLARE LONG CONSTANT acmevms$_creprc_image = 49921 ! Image name ( LOGINOUT )V DECLARE LONG CONSTANT acmevms$_creprc_prcnam = 49922 ! Process name ( blank )P DECLARE LONG CONSTANT acmevms$_creprc_prvadr = 49923 ! Process privilegeP DECLARE LONG CONSTANT acmevms$_creprc_quota = 49924 ! Process quota listT DECLARE LONG CONSTANT acmevms$_creprc_uic = 49925 ! UIC for detached process; DECL y ARE LONG CONSTANT acmevms$_max_creprc_out = 49925 !  ! UAI-based output items ! D ! These codes provide the same information returned by $GETUAI,E ! but synchronized with the UAI data as used for authentication. ! B ! Correspondence between these codes and those from UAIDEF isE ! tested in the private part of module STARLET_WE_USE_ by arraysB ! ENSURE_UAI_NO_BIGGER_THAN_ACMEVMS_UAI and also by the array- ! ENSURE_ACMEVMS_UAI_NO_BIGGER_THAN_UAI. z ! G ! The UAI_BASE constant defined below, added to normal UAI$_ codesD ! used for the $SETUAI and $GETUAI system services will produce ! the following values: ! 8 DECLARE LONG CONSTANT acmevms$_min_uai_out = 50176J DECLARE LONG CONSTANT acmevms$_uai_rtype = 50176 ! UAF record typeO DECLARE LONG CONSTANT acmevms$_uai_version = 50177 ! UAF format versiond DECLARE LONG CONSTANT acmevms$_uai_usrdatoff = 50178 ! offset of counted string of user data{ F DECLARE LONG CONSTANT acmevms$_uai_username = 50179 ! username^ DECLARE LONG CONSTANT acmevms$_uai_username_tag = 50180 ! tag to differentiate recordsE DECLARE LONG CONSTANT acmevms$_uai_uic = 50181 ! user ID codeH DECLARE LONG CONSTANT acmevms$_uai_mem = 50182 ! member subfieldG DECLARE LONG CONSTANT acmevms$_uai_grp = 50183 ! group subfieldO DECLARE LONG CONSTANT acmevms$_uai_sub_id = 50184 ! user sub-identifierb DECLARE LONG CONSTANT acmevm| s$_uai_parent_id = 50185 ! identifier of owner of this accountI DECLARE LONG CONSTANT acmevms$_uai_account = 50186 ! account nameG DECLARE LONG CONSTANT acmevms$_uai_owner = 50187 ! owner's nameJ DECLARE LONG CONSTANT acmevms$_uai_defdev = 50188 ! default deviceM DECLARE LONG CONSTANT acmevms$_uai_defdir = 50189 ! default directoryN DECLARE LONG CONSTANT acmevms$_uai_lgicmd = 50190 ! login command fileW DECLARE LONG CONSTANT acmevms$_uai_defcli = 5019} 1 ! default command interpreterN DECLARE LONG CONSTANT acmevms$_uai_clitables = 50192 ! user CLI tablesH DECLARE LONG CONSTANT acmevms$_uai_pwd = 50193 ! hashed passwordI DECLARE LONG CONSTANT acmevms$_uai_pwd2 = 50194 ! second passwordU DECLARE LONG CONSTANT acmevms$_uai_logfails = 50195 ! count of login failuresN DECLARE LONG CONSTANT acmevms$_uai_salt = 50196 ! random password salt\ DECLARE LONG CONSTANT acmevms$_uai_encrypt = 50197 ! primary pas~ sword hash algorithm_ DECLARE LONG CONSTANT acmevms$_uai_encrypt2 = 50198 ! secondary password hash algorithmW DECLARE LONG CONSTANT acmevms$_uai_pwd_length = 50199 ! minimum password length[ DECLARE LONG CONSTANT acmevms$_uai_expiration = 50200 ! expiration date for accountS DECLARE LONG CONSTANT acmevms$_uai_pwd_lifetime = 50201 ! password lifetimeU DECLARE LONG CONSTANT acmevms$_uai_pwd_date = 50202 ! date of password changeZ DECLARE LONG CONSTANT  acmevms$_uai_pwd2_date = 50203 ! date of 2nd password change_ DECLARE LONG CONSTANT acmevms$_uai_lastlogin_i = 50204 ! date of last interactive loginc DECLARE LONG CONSTANT acmevms$_uai_lastlogin_n = 50205 ! date of last non-interactive loginR DECLARE LONG CONSTANT acmevms$_uai_priv = 50206 ! process privilege vectorX DECLARE LONG CONSTANT acmevms$_uai_def_priv = 50207 ! default process privilegesU DECLARE LONG CONSTANT acmevms$_uai_min_class = 50208 ! minim um security classU DECLARE LONG CONSTANT acmevms$_uai_max_class = 50209 ! maximum security classN DECLARE LONG CONSTANT acmevms$_uai_flags = 50210 ! user flags longwordd DECLARE LONG CONSTANT acmevms$_uai_network_access_p = 50211 ! hourly network access, primaryf DECLARE LONG CONSTANT acmevms$_uai_network_access_s = 50212 ! hourly network access, secondary` DECLARE LONG CONSTANT acmevms$_uai_batch_access_p = 50213 ! hourly batch access, primaryb DECLARE  LONG CONSTANT acmevms$_uai_batch_access_s = 50214 ! hourly batch access, secondary` DECLARE LONG CONSTANT acmevms$_uai_local_access_p = 50215 ! hourly local access, primaryb DECLARE LONG CONSTANT acmevms$_uai_local_access_s = 50216 ! hourly local access, secondaryb DECLARE LONG CONSTANT acmevms$_uai_dialup_access_p = 50217 ! hourly dialup access, primaryd DECLARE LONG CONSTANT acmevms$_uai_dialup_access_s = 50218 ! hourly dialup access, secondaryb DECLARE LONG C ONSTANT acmevms$_uai_remote_access_p = 50219 ! hourly remote access, primaryd DECLARE LONG CONSTANT acmevms$_uai_remote_access_s = 50220 ! hourly remote access, secondary] DECLARE LONG CONSTANT acmevms$_uai_primedays = 50221 ! bits representing primary daysN DECLARE LONG CONSTANT acmevms$_uai_pri = 50222 ! base process priorityX DECLARE LONG CONSTANT acmevms$_uai_quepri = 50223 ! maximum job queuing priorityY DECLARE LONG CONSTANT acmevms$_uai_maxjobs = 50224  ! maximum jobs for UIC alloweda DECLARE LONG CONSTANT acmevms$_uai_maxacctjobs = 50225 ! maximum jobs for account alloweda DECLARE LONG CONSTANT acmevms$_uai_maxdetach = 50226 ! maximum detached processes for UICU DECLARE LONG CONSTANT acmevms$_uai_prccnt = 50227 ! subprocess creation limitM DECLARE LONG CONSTANT acmevms$_uai_biolm = 50228 ! buffered I/O limitK DECLARE LONG CONSTANT acmevms$_uai_diolm = 50229 ! direct I/O limitR DECLARE LONG CONSTAN T acmevms$_uai_tqcnt = 50230 ! timer queue entry limitJ DECLARE LONG CONSTANT acmevms$_uai_astlm = 50231 ! AST queue limitH DECLARE LONG CONSTANT acmevms$_uai_enqlm = 50232 ! enqueue limitJ DECLARE LONG CONSTANT acmevms$_uai_fillm = 50233 ! open file limitO DECLARE LONG CONSTANT acmevms$_uai_shrfillm = 50234 ! shared file limitS DECLARE LONG CONSTANT acmevms$_uai_wsquota = 50235 ! working set size quotaU DECLARE LONG CONSTANT acmevms$_uai_dfwscnt = 502 36 ! default working set sizeT DECLARE LONG CONSTANT acmevms$_uai_wsextent = 50237 ! working set size limitN DECLARE LONG CONSTANT acmevms$_uai_pgflquota = 50238 ! page file quotaJ DECLARE LONG CONSTANT acmevms$_uai_cputim = 50239 ! CPU time quotaX DECLARE LONG CONSTANT acmevms$_uai_bytlm = 50240 ! buffered I/O byte count limit] DECLARE LONG CONSTANT acmevms$_uai_pbytlm = 50241 ! paged buffer I/O byte count limitg DECLARE LONG CONSTANT acmevms$_uai_jtq uota = 50242 ! job-wide logical name table creation quota_ DECLARE LONG CONSTANT acmevms$_uai_proxy_lim = 50243 ! number of proxies user can grantV DECLARE LONG CONSTANT acmevms$_uai_proxies = 50244 ! number of proxies granted_ DECLARE LONG CONSTANT acmevms$_uai_account_lim = 50245 ! number of sub-accounts allowed[ DECLARE LONG CONSTANT acmevms$_uai_accounts = 50246 ! number of sub-accounts in useM DECLARE LONG CONSTANT acmevms$_uai_user_data = 50247 ! use r data area. ! Next two codes not supported for outputX DECLARE LONG CONSTANT acmevms$_uai_password = 50248 ! plaintext primary password[ DECLARE LONG CONSTANT acmevms$_uai_password2 = 50249 ! plaintext secondary password2 ! Previous two codes not supported for output^ DECLARE LONG CONSTANT acmevms$_uai_def_class = 50250 ! default security classification8 DECLARE LONG CONSTANT acmevms$_max_uai_out = 50250 ! < ! Output item codes subject to VTF-7 <-> UCS conversion !  ! + !  ! Miscellaneous constants !  ! -l DECLARE LONG CONSTANT acmevms$k_auth_mech_argus = 13860864 ! Authentication mechanism for TNT$SERVERa DECLARE LONG CONSTANT acmevms$k_uai_base = 50175 ! Base to which UAI$_ codes can be addedi DECLARE LONG CONSTANT acmevms$k_maxchar_vms_username = 32 ! Maximum size of a Mapped VMS Username ww }?PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +- ! ACRDEF - ACCOUNTING RECORD DEFINITIONS ! L ! **********************************************************************L ! NOTE: IF ANY FIELDS CHANGE, A NEW VERSION NUMBER MUST BE ADDED AND *S ! "ACR$K_CURVER" EQUATED TO IT. *L ! ********************************************************************** !  ! -. ! RECORD/PACKET VERSIONS (ACR$V_VERSION) S DECLARE LONG CONSTANT ACR$K_VERSION2 = 0 ! VMS VERSION 2 ACCOUNTING FORMAT M DECLARE LONG CONSTANT ACR$K_VERSION3T = 1 ! VMS VERSION 3 FIELD TEST S DECLARE LONG CONSTANT ACR$K_VERSION3 = 2 ! VMS VERSION 3 ACCOUNTING FORMAT O DECL ARE LONG CONSTANT ACR$K_CURVER = 2 ! CURRENT FORMAT VERSION NUMBER 6 DECLARE LONG CONSTANT ACR$M_PACKET = x'00000001'4 DECLARE LONG CONSTANT ACR$M_TYPE = x'000000FE'7 DECLARE LONG CONSTANT ACR$M_SUBTYPE = x'00000F00'7 DECLARE LONG CONSTANT ACR$M_VERSION = x'00007000'8 DECLARE LONG CONSTANT ACR$M_CUSTOMER = x'00008000'@ DECLARE LONG CONSTANT ACR$K_PRCDEL = 1 ! PROCESS DELETE ? DECLARE LONG CONSTANT ACR$K_PRCPUR = 2 ! PROCESS PURGE > DECLARE LONG CONSTANT ACR$K_IMGDEL = 3 ! IMAGE DELETE = DECLARE LONG CONSTANT ACR$K_IMGPUR = 4 ! IMAGE PURGE H DECLARE LONG CONSTANT ACR$K_SYSINIT = 5 ! SYSTEM INITIALIZATION B DECLARE LONG CONSTANT ACR$K_SETTIME = 6 ! SET SYSTEM TIME K DECLARE LONG CONSTANT ACR$K_LOGFAIL = 7 ! LOGIN VALIDATION FAILURE : DECLARE LONG CONSTANT ACR$K_PRINT = 8 ! PRINT JOB B DECLARE LONG CONSTANT ACR$K_USER = 9 ! USER SUPPLIED DATA M DECLARE LONG CONSTANT ACR$K_ENABLE = 10 ! ACC. MANG. FUNCTION ENABLE O DECLARE LONG CONSTANT ACR$K_DISABLE = 11 ! ACC. MANG. FUNCTION DISABLE O DECLARE LONG CONSTANT ACR$K_ALTACM = 12 ! DECLARE ALTERNATE ACC. MANG. R DECLARE LONG CONSTANT ACR$K_FILE_FL = 13 ! ACCOUNTING FILE - FORWARD LINK S DECLARE LONG CONSTANT ACR$K_FILE_BL = 14 ! ACCOUNTING FILE - BACKWARD LINK 0 ! RECORD SUBTYPE (ACR$V_SUBTYPE) CONSTANTS J DECLARE LONG CONSTANT ACR$K_INTERACTIVE = 1 ! INTERACTIVE PROCESS @ DECLARE  LONG CONSTANT ACR$K_SUBPROCESS = 2 ! SUBPROCESS D DECLARE LONG CONSTANT ACR$K_DETACHED = 3 ! DETACHED PROCESS > DECLARE LONG CONSTANT ACR$K_BATCH = 4 ! BATCH PROCESS B DECLARE LONG CONSTANT ACR$K_NETWORK = 5 ! NETWORK PROCESS * ! PACKET TYPE (ACR$V_TYPE) CONSTANTS E DECLARE LONG CONSTANT ACR$K_ID = 1 ! IDENTIFICATION PACKET I DECLARE LONG CONSTANT ACR$K_RESOURCE = 2 ! RESOURCE USAGE PACKET E DECLARE LONG CONSTANT ACR$K_IMAGENAME = 3 ! IMAGENAM E PACKET C DECLARE LONG CONSTANT ACR$K_FILENAME = 4 ! FILENAME PACKET E DECLARE LONG CONSTANT ACR$K_USER_DATA = 5 ! USER DATA PACKET , DECLARE LONG CONSTANT ACR$S_ACRDEF = 4 record ACRDEF! group ACR$R_TYPE_OVERLAY variant caseB WORD ACR$W_TYPE ! RECORD/PACKET TYPE  case' group ACR$R_TYPE_BITS- ! RECORD(0)/PACKET(1) , ! RECORD/PACKET TYPE / ! RECORD/PACKET SUBTYPE 6 ! RECORD/PACKET VERSION NUMBER 0 ! DIGITAL(0)/CUSTOMER(1) r WORD PACKET_bits ! COMMENT ADDED BY SDL - PACKET_bits contains bits PACKET through CUSTOMER+ end group ACR$R_TYPE_BITS* ! RECORD TYPE (ACR$V_TYPE) CONSTANTS  end variant% end group ACR$R_TYPE_OVERLAYG WORD ACR$W_LENGTH ! RECORD OR PACKET LENGTH  !  ! RECORD HEADER !  end record ACRDEF G DECLARE LONG CONSTANT ACR$K_HDRLEN = 12 ! RECORD HEADER LENGTH G DECLARE LONG CONSTANT ACR$C_HDRLEN = 12 ! RECORD HEADER LENGTH  ! . DECLARE LONG CONSTANT ACR$S_ACRDEF1 = 12 record ACRDEF1( BYTE ACRDEF$$_FILL_2 ( 1 to 4 )A BASIC$QUADWORD ACR$Q_SYSTIME ! EVENT SYSTEM TIME  ! IDENTIFICATION PACKET !  end record ACRDEF1 8 DECLAR E LONG CONSTANT ACR$M_FULLNAME = x'00000001'6 DECLARE LONG CONSTANT ACR$M_FILL_1 = x'000000FE'T DECLARE LONG CONSTANT ACR$K_IDVAR = 50 ! BEGINNING OF VARIABLE STORAGE AREA T DECLARE LONG CONSTANT ACR$C_IDVAR = 50 ! BEGINNING OF VARIABLE STORAGE AREA  ! . DECLARE LONG CONSTANT ACR$S_ACRDEF2 = 50 record ACRDEF2( BYTE ACRDEF$$_FILL_3 ( 1 to 4 ): LONG ACR$L_PID ! PROCESS ID ? LONG ACR$L_OWNER ! OWNER PROCES ID group ACR$R_UIC_OVERLAY variant case; LONG ACR$L_UIC ! PROCESS UIC  case( group ACR$R_UIC_FIELDS: WORD ACR$W_MEM ! MEMBER UIC 9 WORD ACR$W_GRP ! GROUP UIC , end group ACR$R_UIC_FIELDS end variant$ end group ACR$R_UIC_OVERLAY< BASIC$QUADWORD ACR$Q_PRIV ! PROCESS PRI V @ BYTE ACR$B_PRI ! PROCESS PRIORITY # group ACR$R_IDFLGS_OVERLAY variant case= BYTE ACR$B_IDFLGS ! FLAGS BIT MASK case) group ACR$R_IDFLGS_BITS2 ! NOT PRESENT(0)/PRESENT(1)# ! SPARE BITSv BYTE FULLNAME_bits ! COMMENT ADDED BY SDL - FULLNAME_bits contains bits FULLNAME through FILL_1- end group ACR$R_IDFLGS_BITS end variant' end group ACR$R_IDFLGS_OVERLAY? WORD ACR$W_USERNAME ! USERNAME OFFSET C WORD ACR$W_ACCOUNT ! ACCOUNT NAME OFFSET @ WORD ACR$W_NODENAME ! NODE NAME OFFSET D WORD ACR$W_TERMINAL ! TERMINAL NAME OFFSET ? WORD ACR$W_JOBNAME ! JOB NAME OFFSET 6 LONG ACR$L_JOBID ! JOB ID A W ORD ACR$W_QUEUE ! QUEUE NAME OFFSET C WORD ACR$W_NODEADDR ! REMOTE NODE ADDRESS @ WORD ACR$W_REMOTEID ! REMOTE ID OFFSET E WORD ACR$W_FULLADDR ! REMOTE PHASE V ADDRESSF WORD ACR$W_FULLNAME ! REMOTE PHASE V FULLNAME ! RESOURCE PACKET !  end record ACRDEF2 . DECLARE LONG CONSTANT ACR$S_ACRDEF3 = 56 record ACRDEF3( BYTE ACRDEF$$_FILL_4 ( 1  to 4 )H BASIC$QUADWORD ACR$Q_LOGIN ! PROCESS/IMAGE START TIME J LONG ACR$L_STATUS ! PROCESS/IMAGE FINAL STATUS U LONG ACR$L_IMGCNT ! IMAGE EXECUTION COUNT/SEQUENCE NUMBER F LONG ACR$L_CPUTIME ! PROCESS/IMAGE CPU TIME N LONG ACR$L_FAULTS ! PROCESS/IMAGE PAGE FAULT COUNT R LONG ACR$L_FAULTIO ! PROCESS/IMAGE PAGE FAULT I/O COUNT N LONG ACR$L_WSPE AK ! PROCESS/IMAGE WORKING SET PEAK R LONG ACR$L_PAGEFL ! PROCESS/IMAGE PEAK PAGE FILE USAGE N LONG ACR$L_DIOCNT ! PROCESS/IMAGE DIRECT I/O COUNT P LONG ACR$L_BIOCNT ! PROCESS/IMAGE BUFFERED I/O COUNT P LONG ACR$L_VOLUMES ! PROCESS/IMAGE VOLUME MOUNT COUNT L LONG ACR$L_VP_CPUTIME ! PROCESS/IMAGE VECTOR CPU TIME !  ! IMAGENAME PACKET !   end record ACRDEF3 / DECLARE LONG CONSTANT ACR$S_ACRDEF4 = 260 record ACRDEF4( BYTE ACRDEF$$_FILL_5 ( 1 to 4 )9 STRING ACR$T_IMAGENAME = 256 ! IMAGENAME  !  ! PRINT RESOURCE PACKET !  end record ACRDEF4 . DECLARE LONG CONSTANT ACR$S_ACRDEF5 = 40 record ACRDEF5( BYTE ACRDEF$$_FILL_6 ( 1 to 4 ): LONG ACR$L_PRINTSTS ! JOB STATUS C BASIC$QUADWORD ACR$Q_QUETIME ! TIME  JOB WAS QUEUED B BASIC$QUADWORD ACR$Q_BEGTIME ! TIME JOB WAS BEGUN A LONG ACR$L_SYMCPUTIM ! SYMBIONT CPU TIME C LONG ACR$L_PAGECNT ! TOTAL PAGES PRINTED A LONG ACR$L_QIOCNT ! TOTAL QIOS ISSUED A LONG ACR$L_GETCNT ! TOTAL GETS ISSUED  !  ! FILENAME PACKET !  end record ACRDEF5 / DECLARE LONG CONSTANT ACR$S_ACRDEF6 = 260 record ACRDEF6(  BYTE ACRDEF$$_FILL_7 ( 1 to 4 )8 STRING ACR$T_FILENAME = 256 ! FILENAME  !  ! USER DATA PACKET !  end record ACRDEF6 / DECLARE LONG CONSTANT ACR$S_ACRDEF7 = 260 record ACRDEF7( BYTE ACRDEF$$_FILL_8 ( 1 to 4 )9 STRING ACR$T_USER_DATA = 256 ! USER DATA  end record ACRDEF7  ww  ?PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +$ ! $ASSIGN FLAGS bit definitions ! -8 DECLARE LONG CONSTANT AGN$M_READONLY = x'00000001'9 DECLARE LONG CONSTANT AGN$M_WRITEONLY = x'00000002', DECLARE LONG CONSTANT AGN$S_AGNDEF = 4 record AGNDEF variant case& group AGN$R_AGNDEF_BITSD ! Channel to be assigned to device is READ ONLY.E ! Channel to be assigned to device is WRITE ONLY.s LONG READONLY_bits ! COMMENT ADDED BY SDL - READONLY_bits contains bits READONLY through FILL_0* end group AGN$R_AGNDEF_BITS end variant end record AGNDEF  ww e^APV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  2 DECLARE LONG CONSTANT ALPHA$K_ID_BASE = 1025P DECLARE LONG CONSTANT ALPHA$K_A7000_610 = 1025 ! ( DEC 7000 Model 610 )P DECLARE LONG CONSTANT ALPHA$K_A7000_620 = 1026 ! ( DEC 7000 Model 620 )P DECLARE LONG CONSTANT ALPHA$K_A7000_630 = 1027 ! ( DEC 7000 Model 630 )P DECLARE LONG CONSTANT ALPHA$K_A7000_640 = 1028 ! ( DEC 7000 Model 640 )R DECLARE LONG CONSTANT ALPHA$K_A10000_610 = 1029 ! ( DEC 10000 Model 610 )R DECLARE LONG CONSTANT ALPHA$K_A10000_620 = 1030 ! ( DEC 10000 Model 620 )R DECLARE LONG CONSTANT ALPHA$K_A10000_630 = 1031 ! ( DEC 10000 Model 630 )R DECLARE LONG CONSTANT ALPHA$K_A10000_640 = 1032 ! ( DEC 10000 Model 640 ) Q DECLARE LONG CONSTANT ALPHA$K_A3000_500W = 1033 ! ( DEC 3000 Model 500 )R DECLARE LONG CONSTANT ALPHA$K_A3000_500S = 1034 ! ( DEC 3000 Model 500S )Q DECLARE LONG CONSTANT ALPHA$K_A3000_400W = 1035 ! ( DEC 3000 Model 400 )R DECLARE LONG CONSTANT ALPHA$K_A3000_400S = 1036 ! ( DEC 3000 Model 400S )P DECLARE LONG CONSTANT ALPHA$K_A4000_610 = 1037 ! ( DEC 4000 Model 610 )P DECLARE LONG CONSTANT ALPHA$K_A4000_620 = 1038 ! ( DEC 4000 Model 620 )4  DECLARE LONG CONSTANT ALPHA$K_A4000_810 = 10394 DECLARE LONG CONSTANT ALPHA$K_A4000_820 = 1040/ DECLARE LONG CONSTANT ALPHA$K_AADU = 1041P DECLARE LONG CONSTANT ALPHA$K_A3000_300 = 1042 ! ( DEC 3000 Model 300 )R DECLARE LONG CONSTANT ALPHA$K_A3000_300L = 1043 ! ( DEC 3000 Model 300L )P DECLARE LONG CONSTANT ALPHA$K_A2000_300 = 1044 ! ( DEC 2000 Model 300 )R DECLARE LONG CONSTANT ALPHA$K_A2000_300S = 1045 ! ( DEC 2000 Model 300S )P DECLARE LONG C ONSTANT ALPHA$K_A7000_650 = 1046 ! ( DEC 7000 Model 650 )P DECLARE LONG CONSTANT ALPHA$K_A7000_660 = 1047 ! ( DEC 7000 Model 660 )R DECLARE LONG CONSTANT ALPHA$K_A10000_650 = 1048 ! ( DEC 10000 Model 650 )R DECLARE LONG CONSTANT ALPHA$K_A10000_660 = 1049 ! ( DEC 10000 Model 660 )4 DECLARE LONG CONSTANT ALPHA$K_A4000_630 = 10504 DECLARE LONG CONSTANT ALPHA$K_A4000_640 = 10514 DECLARE LONG CONSTANT ALPHA$K_A4000_650 = 10524 DECLARE LONG CONSTANT ALPH A$K_A4000_660 = 10534 DECLARE LONG CONSTANT ALPHA$K_A2000_200 = 10545 DECLARE LONG CONSTANT ALPHA$K_A2000_200S = 1055R DECLARE LONG CONSTANT ALPHA$K_A3000_500X = 1056 ! ( DEC 3000 Model 500X )S DECLARE LONG CONSTANT ALPHA$K_AS0202020001 = 1057 ! ( DEC 4000 Model 710 )S DECLARE LONG CONSTANT ALPHA$K_AS0202020002 = 1058 ! ( DEC 4000 Model 720 )^ DECLARE LONG CONSTANT ALPHA$K_AS0902020001 = 1059 ! ( AlphaServer 2100 4/200 ) (1cpu)^ DECLARE LONG CON STANT ALPHA$K_AS0902020002 = 1060 ! ( AlphaServer 2100 4/200 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902020003 = 1061 ! ( AlphaServer 2100 4/200 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902020004 = 1062 ! ( AlphaServer 2100 4/200 ) (4cpu)S DECLARE LONG CONSTANT ALPHA$K_AS0402040001 = 1063 ! ( DEC 3000 Model 800 )S DECLARE LONG CONSTANT ALPHA$K_AS0402060001 = 1064 ! ( DEC 3000 Model 600 )S DECLARE LONG CONSTANT ALPHA$K_AS0602010001 = 1065 ! ( DEC 2 000 Model 500 )T DECLARE LONG CONSTANT ALPHA$K_AS0702020001 = 1068 ! ( DEC 3000 Model 300X )U DECLARE LONG CONSTANT ALPHA$K_AS0702030001 = 1069 ! ( DEC 3000 Model 300LX )S DECLARE LONG CONSTANT ALPHA$K_AS0406070001 = 1070 ! ( DEC 3000 Model 700 )S DECLARE LONG CONSTANT ALPHA$K_AS0406080001 = 1071 ! ( DEC 3000 Model 900 )I DECLARE LONG CONSTANT ALPHA$K_AS0706040001 = 1072 ! ( DEC 3000 )I DECLARE LONG CONSTANT ALPHA$K_AS0706050001 = 1073 ! ( DEC 3000 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030001 = 1074 ! ( DEC 7000 Model 710 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030002 = 1075 ! ( DEC 7000 Model 720 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030003 = 1076 ! ( DEC 7000 Model 730 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030004 = 1077 ! ( DEC 7000 Model 740 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030005 = 1078 ! ( DEC 7000 Model 750 )S DECLARE LONG CONSTANT ALPHA$K_AS0306030006 = 1079 ! ( DEC 7000 Model 760 )W DECLARE LONG CONSTANT ALPHA$K_AS0D02010001 = 1086 ! ( AlphaStation 400 4/166 )W DECLARE LONG CONSTANT ALPHA$K_AS0D02020001 = 1087 ! ( AlphaStation 200 4/166 )W DECLARE LONG CONSTANT ALPHA$K_AS0D02030001 = 1088 ! ( AlphaStation 200 4/133 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05010001 = 1089 ! ( AlphaStation 600 5/300 )W DECLARE LONG CONSTANT ALPHA$K_AS1102010001 = 1090 ! ( AlphaServer 1000 4/200 )W DECLARE LONG CONSTANT ALPHA$K_ AS1106020001 = 1091 ! ( AlphaServer 1000 4/233 )^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000001 = 1093 ! ( AlphaServer 8200 5/300 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000002 = 1094 ! ( AlphaServer 8200 5/300 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000003 = 1095 ! ( AlphaServer 8200 5/300 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000004 = 1096 ! ( AlphaServer 8200 5/300 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000005 = 1097 ! ( Alpha Server 8200 5/300 ) (5cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05000006 = 1098 ! ( AlphaServer 8200 5/300 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010001 = 1099 ! ( AlphaServer 8400 5/300 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010002 = 1100 ! ( AlphaServer 8400 5/300 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010003 = 1101 ! ( AlphaServer 8400 5/300 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010004 = 1102 ! ( AlphaServer 8400 5/300 ) (4cpu) ^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010005 = 1103 ! ( AlphaServer 8400 5/300 ) (5cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010006 = 1104 ! ( AlphaServer 8400 5/300 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010007 = 1105 ! ( AlphaServer 8400 5/300 ) (7cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010008 = 1106 ! ( AlphaServer 8400 5/300 ) (8cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05010009 = 1107 ! ( AlphaServer 8400 5/300 ) (9cpu)_ DECLARE LONG CONST ANT ALPHA$K_AS0C0501000A = 1108 ! ( AlphaServer 8400 5/300 ) (10cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0501000B = 1109 ! ( AlphaServer 8400 5/300 ) (11cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0501000C = 1110 ! ( AlphaServer 8400 5/300 ) (12cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020001 = 1115 ! ( AlphaServer 2100 4/275 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020002 = 1116 ! ( AlphaServer 2100 4/275 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS090602 0003 = 1117 ! ( AlphaServer 2100 4/275 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020004 = 1118 ! ( AlphaServer 2100 4/275 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020001 = 1119 ! ( AlphaServer 2100 5/250 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020002 = 1120 ! ( AlphaServer 2100 5/250 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020003 = 1121 ! ( AlphaServer 2100 5/250 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020004 = 1122 ! ( AlphaSe rver 2100 5/250 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902010001 = 1123 ! ( AlphaServer 2000 4/200 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902010002 = 1124 ! ( AlphaServer 2000 4/200 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902010003 = 1125 ! ( AlphaServer 2000 4/200 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0902010004 = 1126 ! ( AlphaServer 2000 4/200 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010001 = 1127 ! ( AlphaServer 2000 4/275 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010002 = 1128 ! ( AlphaServer 2000 4/275 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010003 = 1129 ! ( AlphaServer 2000 4/275 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010004 = 1130 ! ( AlphaServer 2000 4/275 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010001 = 1131 ! ( AlphaServer 2000 5/250 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010002 = 1132 ! ( AlphaServer 2000 5/250 ) (2cpu)^ DECLARE LONG CONSTAN T ALPHA$K_AS0905010003 = 1133 ! ( AlphaServer 2000 5/250 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010004 = 1134 ! ( AlphaServer 2000 5/250 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0902030001 = 1135 ! ( AlphaServer 2100-RM 4/200 ) (1cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0902030002 = 1136 ! ( AlphaServer 2100-RM 4/200 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0902030003 = 1137 ! ( AlphaServer 2100-RM 4/200 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS09 02030004 = 1138 ! ( AlphaServer 2100-RM 4/200 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030001 = 1139 ! ( AlphaServer 2100-RM 4/275 ) (1cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030002 = 1140 ! ( AlphaServer 2100-RM 4/275 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030003 = 1141 ! ( AlphaServer 2100-RM 4/275 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030004 = 1142 ! ( AlphaServer 2100-RM 4/275 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS09050300 01 = 1143 ! ( AlphaServer 2100-RM 5/250 ) (1cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030002 = 1144 ! ( AlphaServer 2100-RM 5/250 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030003 = 1145 ! ( AlphaServer 2100-RM 5/250 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030004 = 1146 ! ( AlphaServer 2100-RM 5/250 ) (4cpu)W DECLARE LONG CONSTANT ALPHA$K_AS0D06040001 = 1151 ! ( AlphaStation 200 4/233 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06050001 = 1152 ! ( AlphaStation 400 4/233 )\ DECLARE LONG CONSTANT ALPHA$K_AS0D06060001 = 1153 ! ( AlphaStation 400 4/266 ) (2M)_ DECLARE LONG CONSTANT ALPHA$K_AS0D06070001 = 1154 ! ( AlphaStation 400 4/266 ) (512kb)C DECLARE LONG CONSTANT ALPHA$K_AS0D06080001 = 1155 ! ( M3 )W DECLARE LONG CONSTANT ALPHA$K_AS0D02090001 = 1156 ! ( AlphaStation 200 4/100 )W DECLARE LONG CONSTANT ALPHA$K_AS0D060A0001 = 1157 ! ( AlphaStation 200 4/300 )W DECLARE LONG CONSTANT ALPHA$K_ AS0D060B0001 = 1158 ! ( AlphaStation 200 4/266 )D DECLARE LONG CONSTANT ALPHA$K_AS0D060C0001 = 1159 ! ( M3+ )W DECLARE LONG CONSTANT ALPHA$K_AS0D060D0001 = 1160 ! ( AlphaStation 400 4/300 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05020001 = 1161 ! ( AlphaStation 600 5/266 )C DECLARE LONG CONSTANT ALPHA$K_AS1706010001 = 1167 ! ( K2 )^ DECLARE LONG CONSTANT ALPHA$K_AS0906010101 = 1171 ! ( AlphaServer 2000 4/233 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_ AS0906010102 = 1172 ! ( AlphaServer 2000 4/233 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010103 = 1173 ! ( AlphaServer 2000 4/233 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906010104 = 1174 ! ( AlphaServer 2000 4/233 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010101 = 1175 ! ( AlphaServer 2000 5/300 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010102 = 1176 ! ( AlphaServer 2000 5/300 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010103 = 1177 ! ( AlphaServer 2000 5/300 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905010104 = 1178 ! ( AlphaServer 2000 5/300 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020101 = 1179 ! ( AlphaServer 2100 4/233 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020102 = 1180 ! ( AlphaServer 2100 4/233 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020103 = 1181 ! ( AlphaServer 2100 4/233 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0906020104 = 1182 ! ( AlphaServer 2100 4/233 )  (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020101 = 1183 ! ( AlphaServer 2100 5/300 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020102 = 1184 ! ( AlphaServer 2100 5/300 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020103 = 1185 ! ( AlphaServer 2100 5/300 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0905020104 = 1186 ! ( AlphaServer 2100 5/300 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030101 = 1187 ! ( AlphaServer 2100-RM 4/233 ) (1cpu)a DECLARE  LONG CONSTANT ALPHA$K_AS0906030102 = 1188 ! ( AlphaServer 2100-RM 4/233 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030103 = 1189 ! ( AlphaServer 2100-RM 4/233 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0906030104 = 1190 ! ( AlphaServer 2100-RM 4/233 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030101 = 1191 ! ( AlphaServer 2100-RM 5/300 ) (1cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030102 = 1192 ! ( AlphaServer 2100-RM 5/300 ) (2cpu)a DECLARE LONG C ONSTANT ALPHA$K_AS0905030103 = 1193 ! ( AlphaServer 2100-RM 5/300 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0905030104 = 1194 ! ( AlphaServer 2100-RM 5/300 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010001 = 1195 ! ( AlphaServer 2000A 4/233 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010002 = 1196 ! ( AlphaServer 2000A 4/233 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010003 = 1197 ! ( AlphaServer 2000A 4/233 ) (3cpu)_ DECLARE LONG CONSTANT ALPH A$K_AS1806010004 = 1198 ! ( AlphaServer 2000A 4/233 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010101 = 1199 ! ( AlphaServer 2000A 4/275 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010102 = 1200 ! ( AlphaServer 2000A 4/275 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010103 = 1201 ! ( AlphaServer 2000A 4/275 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806010104 = 1202 ! ( AlphaServer 2000A 4/275 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010001 = 1203 ! ( AlphaServer 2000A 5/250 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010002 = 1204 ! ( AlphaServer 2000A 5/250 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010003 = 1205 ! ( AlphaServer 2000A 5/250 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010004 = 1206 ! ( AlphaServer 2000A 5/250 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010101 = 1207 ! ( AlphaServer 2000A 5/300 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010102 = 1208 ! ( A lphaServer 2000A 5/300 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010103 = 1209 ! ( AlphaServer 2000A 5/300 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805010104 = 1210 ! ( AlphaServer 2000A 5/300 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020001 = 1211 ! ( AlphaServer 2100A 4/233 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020002 = 1212 ! ( AlphaServer 2100A 4/233 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020003 = 1213 ! ( AlphaServer 2100A 4/233 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020004 = 1214 ! ( AlphaServer 2100A 4/233 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020101 = 1215 ! ( AlphaServer 2100A 4/275 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020102 = 1216 ! ( AlphaServer 2100A 4/275 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020103 = 1217 ! ( AlphaServer 2100A 4/275 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1806020104 = 1218 ! ( AlphaServer 2100A 4/275 ) (4cpu) _ DECLARE LONG CONSTANT ALPHA$K_AS1805020001 = 1219 ! ( AlphaServer 2100A 5/250 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020002 = 1220 ! ( AlphaServer 2100A 5/250 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020003 = 1221 ! ( AlphaServer 2100A 5/250 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020004 = 1222 ! ( AlphaServer 2100A 5/250 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020101 = 1223 ! ( AlphaServer 2100A 5/300 ) (1cpu)_ DECLARE  LONG CONSTANT ALPHA$K_AS1805020102 = 1224 ! ( AlphaServer 2100A 5/300 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020103 = 1225 ! ( AlphaServer 2100A 5/300 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1805020104 = 1226 ! ( AlphaServer 2100A 5/300 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030001 = 1227 ! ( AlphaServer 2100A-RM 4/233 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030002 = 1228 ! ( AlphaServer 2100A-RM 4/233 ) (2cpu)b DECLARE LONG CONSTAN T ALPHA$K_AS1806030003 = 1229 ! ( AlphaServer 2100A-RM 4/233 ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030004 = 1230 ! ( AlphaServer 2100A-RM 4/233 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030101 = 1231 ! ( AlphaServer 2100A-RM 4/275 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030102 = 1232 ! ( AlphaServer 2100A-RM 4/275 ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1806030103 = 1233 ! ( AlphaServer 2100A-RM 4/275 ) (3cpu)b DECLARE LONG CONSTANT ALPH A$K_AS1806030104 = 1234 ! ( AlphaServer 2100A-RM 4/275 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030001 = 1235 ! ( AlphaServer 2100A-RM 5/250 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030002 = 1236 ! ( AlphaServer 2100A-RM 5/250 ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030003 = 1237 ! ( AlphaServer 2100A-RM 5/250 ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030004 = 1238 ! ( AlphaServer 2100A-RM 5/250 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS 1805030101 = 1239 ! ( AlphaServer 2100A-RM 5/300 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030102 = 1240 ! ( AlphaServer 2100A-RM 5/300 ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030103 = 1241 ! ( AlphaServer 2100A-RM 5/300 ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1805030104 = 1242 ! ( AlphaServer 2100A-RM 5/300 ) (4cpu)J DECLARE LONG CONSTANT ALPHA$K_AS1A05010001 = 1245 ! ( EB164 266 )J DECLARE LONG CONSTANT ALPHA$K_AS1A05020001 = 1246 ! ( EB164 300 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06200001 = 1250 ! ( AlphaStation 205 4/133 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06210001 = 1251 ! ( AlphaStation 205 4/166 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06220001 = 1252 ! ( AlphaStation 205 4/200 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06230001 = 1253 ! ( AlphaStation 205 4/233 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06240001 = 1254 ! ( AlphaStation 205 4/266 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06250001 = 1255 ! ( AlphaStation 205 4/300 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06260001 = 1256 ! ( AlphaStation 205 4/333 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06270001 = 1257 ! ( AlphaStation 255 4/133 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06280001 = 1258 ! ( AlphaStation 255 4/166 )W DECLARE LONG CONSTANT ALPHA$K_AS0D06290001 = 1259 ! ( AlphaStation 255 4/200 )W DECLARE LONG CONSTANT ALPHA$K_AS0D062A0001 = 1260 ! ( AlphaStation 255 4/233 )W DECLARE  LONG CONSTANT ALPHA$K_AS0D062B0001 = 1261 ! ( AlphaStation 255 4/266 )W DECLARE LONG CONSTANT ALPHA$K_AS0D062C0001 = 1262 ! ( AlphaStation 255 4/300 )W DECLARE LONG CONSTANT ALPHA$K_AS0D062D0001 = 1263 ! ( AlphaStation 255 4/333 )W DECLARE LONG CONSTANT ALPHA$K_AS1106030001 = 1264 ! ( AlphaServer 1000 4/266 )X DECLARE LONG CONSTANT ALPHA$K_AS1B06010001 = 1265 ! ( AlphaServer 1000A 4/266 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05030001 = 1266 ! ( AlphaSt ation 500 5/266 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05040001 = 1267 ! ( AlphaStation 500 5/300 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05050001 = 1268 ! ( AlphaStation 500 5/333 )W DECLARE LONG CONSTANT ALPHA$K_AS1105040001 = 1269 ! ( AlphaServer 1000 5/300 )X DECLARE LONG CONSTANT ALPHA$K_AS1B05020001 = 1270 ! ( AlphaServer 1000A 5/300 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05060001 = 1275 ! ( AlphaStation 600 5/333 )W DECLARE LONG CONSTANT ALPHA$K_ AS0F05070001 = 1276 ! ( AlphaStation 600 5/366 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05080001 = 1277 ! ( AlphaStation 600 5/400 )W DECLARE LONG CONSTANT ALPHA$K_AS0F05090001 = 1278 ! ( AlphaStation 600 5/433 )W DECLARE LONG CONSTANT ALPHA$K_AS0F050A0001 = 1279 ! ( AlphaStation 600 5/466 )W DECLARE LONG CONSTANT ALPHA$K_AS0F050B0001 = 1280 ! ( AlphaStation 600 5/500 )U DECLARE LONG CONSTANT ALPHA$K_AS0F070C0001 = 1281 ! ( AlphaStation 500/333 )U  DECLARE LONG CONSTANT ALPHA$K_AS0F070D0001 = 1282 ! ( AlphaStation 500/366 )U DECLARE LONG CONSTANT ALPHA$K_AS0F070E0001 = 1283 ! ( AlphaStation 500/400 )U DECLARE LONG CONSTANT ALPHA$K_AS0F070F0001 = 1284 ! ( AlphaStation 500/433 )U DECLARE LONG CONSTANT ALPHA$K_AS0F07100001 = 1285 ! ( AlphaStation 500/466 )U DECLARE LONG CONSTANT ALPHA$K_AS0F07110001 = 1286 ! ( AlphaStation 500/500 )^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020001 = 1292 ! ( AlphaSe rver 8200 5/350 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020002 = 1293 ! ( AlphaServer 8200 5/350 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020003 = 1294 ! ( AlphaServer 8200 5/350 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020004 = 1295 ! ( AlphaServer 8200 5/350 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020005 = 1296 ! ( AlphaServer 8200 5/350 ) (5cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05020006 = 1297 ! ( AlphaServer 8200 5/350 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030001 = 1298 ! ( AlphaServer 8400 5/350 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030002 = 1299 ! ( AlphaServer 8400 5/350 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030003 = 1300 ! ( AlphaServer 8400 5/350 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030004 = 1301 ! ( AlphaServer 8400 5/350 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030005 = 1302 ! ( AlphaServer 8400 5/350 ) (5cpu)^ DECLARE LONG CONSTAN T ALPHA$K_AS0C05030006 = 1303 ! ( AlphaServer 8400 5/350 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030007 = 1304 ! ( AlphaServer 8400 5/350 ) (7cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030008 = 1305 ! ( AlphaServer 8400 5/350 ) (8cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C05030009 = 1306 ! ( AlphaServer 8400 5/350 ) (9cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0503000A = 1307 ! ( AlphaServer 8400 5/350 ) (10cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0503000B = 1308 ! ( AlphaServer 8400 5/350 ) (11cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0503000C = 1309 ! ( AlphaServer 8400 5/350 ) (12cpu)V DECLARE LONG CONSTANT ALPHA$K_AS1B07040001 = 1310 ! ( AlphaServer 600 5/333 )X DECLARE LONG CONSTANT ALPHA$K_AS1B07030001 = 1311 ! ( AlphaServer 1000A 5/400 )W DECLARE LONG CONSTANT ALPHA$K_AS1107050001 = 1312 ! ( AlphaServer 1000 5/400 )b DECLARE LONG CONSTANT ALPHA$K_AS1605020001 = 1313 ! ( AlphaServer 4100 5/266 0MB )  (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020002 = 1314 ! ( AlphaServer 4100 5/266 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020003 = 1315 ! ( AlphaServer 4100 5/266 0MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020004 = 1316 ! ( AlphaServer 4100 5/266 0MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010001 = 1317 ! ( AlphaServer 4100 5/266 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010002 = 1318 ! ( AlphaServer 4100 5/266 0MB ) (2cpu) b DECLARE LONG CONSTANT ALPHA$K_AS1605010003 = 1319 ! ( AlphaServer 4100 5/266 0MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010004 = 1320 ! ( AlphaServer 4100 5/266 0MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020101 = 1321 ! ( AlphaServer 4100 5/300 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020102 = 1322 ! ( AlphaServer 4100 5/300 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020103 = 1323 ! ( AlphaServer 4100 5/300 0MB ) (3cpu)b  DECLARE LONG CONSTANT ALPHA$K_AS1605020104 = 1324 ! ( AlphaServer 4100 5/300 0MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010101 = 1325 ! ( AlphaServer 4100 5/300 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010102 = 1326 ! ( AlphaServer 4100 5/300 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010103 = 1327 ! ( AlphaServer 4100 5/300 0MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010104 = 1328 ! ( AlphaServer 4100 5/300 0MB ) (4cpu)b DECL ARE LONG CONSTANT ALPHA$K_AS1607020001 = 1329 ! ( AlphaServer 4100 5/400 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020002 = 1330 ! ( AlphaServer 4100 5/400 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020003 = 1331 ! ( AlphaServer 4100 5/400 0MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020004 = 1332 ! ( AlphaServer 4100 5/400 0MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010001 = 1333 ! ( AlphaServer 4100 5/400 0MB ) (1cpu)b DECLARE LO NG CONSTANT ALPHA$K_AS1607010002 = 1334 ! ( AlphaServer 4100 5/400 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010003 = 1335 ! ( AlphaServer 4100 5/400 0MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010004 = 1336 ! ( AlphaServer 4100 5/400 0MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020201 = 1337 ! ( AlphaServer 4100 5/266 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020202 = 1338 ! ( AlphaServer 4100 5/266 1MB ) (2cpu)b DECLARE LONG CON STANT ALPHA$K_AS1605020203 = 1339 ! ( AlphaServer 4100 5/266 1MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020204 = 1340 ! ( AlphaServer 4100 5/266 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010201 = 1341 ! ( AlphaServer 4100 5/266 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010202 = 1342 ! ( AlphaServer 4100 5/266 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010203 = 1343 ! ( AlphaServer 4100 5/266 1MB ) (3cpu)b DECLARE LONG CONSTANT  ALPHA$K_AS1605010204 = 1344 ! ( AlphaServer 4100 5/266 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020301 = 1345 ! ( AlphaServer 4100 5/300 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020302 = 1346 ! ( AlphaServer 4100 5/300 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020303 = 1347 ! ( AlphaServer 4100 5/300 1MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020304 = 1348 ! ( AlphaServer 4100 5/300 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$ K_AS1605010301 = 1349 ! ( AlphaServer 4100 5/300 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010302 = 1350 ! ( AlphaServer 4100 5/300 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010303 = 1351 ! ( AlphaServer 4100 5/300 1MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010304 = 1352 ! ( AlphaServer 4100 5/300 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020101 = 1353 ! ( AlphaServer 4100 5/400 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS16 07020102 = 1354 ! ( AlphaServer 4100 5/400 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020103 = 1355 ! ( AlphaServer 4100 5/400 1MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020104 = 1356 ! ( AlphaServer 4100 5/400 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010101 = 1357 ! ( AlphaServer 4100 5/400 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010102 = 1358 ! ( AlphaServer 4100 5/400 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS16070101 03 = 1359 ! ( AlphaServer 4100 5/400 1MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010104 = 1360 ! ( AlphaServer 4100 5/400 1MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020401 = 1361 ! ( AlphaServer 4100 5/266 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020402 = 1362 ! ( AlphaServer 4100 5/266 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020403 = 1363 ! ( AlphaServer 4100 5/266 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020404 = 1 364 ! ( AlphaServer 4100 5/266 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010401 = 1365 ! ( AlphaServer 4100 5/266 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010402 = 1366 ! ( AlphaServer 4100 5/266 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010403 = 1367 ! ( AlphaServer 4100 5/266 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010404 = 1368 ! ( AlphaServer 4100 5/266 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020501 = 1369 ! ( AlphaServer 4100 5/300 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020502 = 1370 ! ( AlphaServer 4100 5/300 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020503 = 1371 ! ( AlphaServer 4100 5/300 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020504 = 1372 ! ( AlphaServer 4100 5/300 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010501 = 1373 ! ( AlphaServer 4100 5/300 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010502 = 1374 ! ( A lphaServer 4100 5/300 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010503 = 1375 ! ( AlphaServer 4100 5/300 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010504 = 1376 ! ( AlphaServer 4100 5/300 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020201 = 1377 ! ( AlphaServer 4100 5/400 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020202 = 1378 ! ( AlphaServer 4100 5/400 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020203 = 1379 ! ( AlphaSe rver 4100 5/400 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020204 = 1380 ! ( AlphaServer 4100 5/400 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010201 = 1381 ! ( AlphaServer 4100 5/400 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010202 = 1382 ! ( AlphaServer 4100 5/400 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010203 = 1383 ! ( AlphaServer 4100 5/400 2MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010204 = 1384 ! ( AlphaServer 4 100 5/400 2MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020601 = 1385 ! ( AlphaServer 4100 5/266 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020602 = 1386 ! ( AlphaServer 4100 5/266 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020603 = 1387 ! ( AlphaServer 4100 5/266 4MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020604 = 1388 ! ( AlphaServer 4100 5/266 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010601 = 1389 ! ( AlphaServer 4100 5/ 266 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010602 = 1390 ! ( AlphaServer 4100 5/266 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010603 = 1391 ! ( AlphaServer 4100 5/266 4MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010604 = 1392 ! ( AlphaServer 4100 5/266 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020701 = 1393 ! ( AlphaServer 4100 5/300 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020702 = 1394 ! ( AlphaServer 4100 5/300 4M B ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020703 = 1395 ! ( AlphaServer 4100 5/300 4MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605020704 = 1396 ! ( AlphaServer 4100 5/300 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010701 = 1397 ! ( AlphaServer 4100 5/300 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010702 = 1398 ! ( AlphaServer 4100 5/300 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010703 = 1399 ! ( AlphaServer 4100 5/300 4MB ) (3 cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605010704 = 1400 ! ( AlphaServer 4100 5/300 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020301 = 1401 ! ( AlphaServer 4100 5/400 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020302 = 1402 ! ( AlphaServer 4100 5/400 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020303 = 1403 ! ( AlphaServer 4100 5/400 4MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607020304 = 1404 ! ( AlphaServer 4100 5/400 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010301 = 1405 ! ( AlphaServer 4100 5/400 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010302 = 1406 ! ( AlphaServer 4100 5/400 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010303 = 1407 ! ( AlphaServer 4100 5/400 4MB ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607010304 = 1408 ! ( AlphaServer 4100 5/400 4MB ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040001 = 1409 ! ( AlphaServer 4000 5/266 0MB ) (1cpu)b  DECLARE LONG CONSTANT ALPHA$K_AS1605040002 = 1410 ! ( AlphaServer 4000 5/266 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030001 = 1411 ! ( AlphaServer 4000 5/266 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030002 = 1412 ! ( AlphaServer 4000 5/266 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040101 = 1413 ! ( AlphaServer 4000 5/300 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040102 = 1414 ! ( AlphaServer 4000 5/300 0MB ) (2cpu)b DECLAR E LONG CONSTANT ALPHA$K_AS1605030101 = 1415 ! ( AlphaServer 4000 5/300 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030102 = 1416 ! ( AlphaServer 4000 5/300 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040001 = 1417 ! ( AlphaServer 4000 5/400 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040002 = 1418 ! ( AlphaServer 4000 5/400 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030001 = 1419 ! ( AlphaServer 4000 5/400 0MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030002 = 1420 ! ( AlphaServer 4000 5/400 0MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040201 = 1421 ! ( AlphaServer 4000 5/266 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040202 = 1422 ! ( AlphaServer 4000 5/266 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030201 = 1423 ! ( AlphaServer 4000 5/266 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030202 = 1424 ! ( AlphaServer 4000 5/266 1MB ) (2cpu)b DECLARE LONG CONST ANT ALPHA$K_AS1605040301 = 1425 ! ( AlphaServer 4000 5/300 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040302 = 1426 ! ( AlphaServer 4000 5/300 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030301 = 1427 ! ( AlphaServer 4000 5/300 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030302 = 1428 ! ( AlphaServer 4000 5/300 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040101 = 1429 ! ( AlphaServer 4000 5/400 1MB ) (1cpu)b DECLARE LONG CONSTANT AL PHA$K_AS1607040102 = 1430 ! ( AlphaServer 4000 5/400 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030101 = 1431 ! ( AlphaServer 4000 5/400 1MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030102 = 1432 ! ( AlphaServer 4000 5/400 1MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040401 = 1433 ! ( AlphaServer 4000 5/266 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040402 = 1434 ! ( AlphaServer 4000 5/266 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_ AS1605030401 = 1435 ! ( AlphaServer 4000 5/266 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030402 = 1436 ! ( AlphaServer 4000 5/266 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040501 = 1437 ! ( AlphaServer 4000 5/300 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040502 = 1438 ! ( AlphaServer 4000 5/300 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030501 = 1439 ! ( AlphaServer 4000 5/300 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605 030502 = 1440 ! ( AlphaServer 4000 5/300 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040201 = 1441 ! ( AlphaServer 4000 5/400 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040202 = 1442 ! ( AlphaServer 4000 5/400 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030201 = 1443 ! ( AlphaServer 4000 5/400 2MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030202 = 1444 ! ( AlphaServer 4000 5/400 2MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040601 = 1445 ! ( AlphaServer 4000 5/266 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040602 = 1446 ! ( AlphaServer 4000 5/266 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030601 = 1447 ! ( AlphaServer 4000 5/266 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030602 = 1448 ! ( AlphaServer 4000 5/266 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040701 = 1449 ! ( AlphaServer 4000 5/300 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605040702 = 145 0 ! ( AlphaServer 4000 5/300 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030701 = 1451 ! ( AlphaServer 4000 5/300 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1605030702 = 1452 ! ( AlphaServer 4000 5/300 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040301 = 1453 ! ( AlphaServer 4000 5/400 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607040302 = 1454 ! ( AlphaServer 4000 5/400 4MB ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030301 = 1455 !  ( AlphaServer 4000 5/400 4MB ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1607030302 = 1456 ! ( AlphaServer 4000 5/400 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060001 = 1457 ! ( AlphaServer 4000A 5/266 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060002 = 1458 ! ( AlphaServer 4000A 5/266 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050001 = 1459 ! ( AlphaServer 4000A 5/266 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050002 = 1460 !  ( AlphaServer 4000A 5/266 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060101 = 1461 ! ( AlphaServer 4000A 5/300 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060102 = 1462 ! ( AlphaServer 4000A 5/300 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050101 = 1463 ! ( AlphaServer 4000A 5/300 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050102 = 1464 ! ( AlphaServer 4000A 5/300 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060001 = 1465  ! ( AlphaServer 4000A 5/400 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060002 = 1466 ! ( AlphaServer 4000A 5/400 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050001 = 1467 ! ( AlphaServer 4000A 5/400 0MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050002 = 1468 ! ( AlphaServer 4000A 5/400 0MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060201 = 1469 ! ( AlphaServer 4000A 5/266 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060202 = 1 470 ! ( AlphaServer 4000A 5/266 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050201 = 1471 ! ( AlphaServer 4000A 5/266 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050202 = 1472 ! ( AlphaServer 4000A 5/266 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060301 = 1473 ! ( AlphaServer 4000A 5/300 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060302 = 1474 ! ( AlphaServer 4000A 5/300 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050301 = 1475 ! ( AlphaServer 4000A 5/300 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050302 = 1476 ! ( AlphaServer 4000A 5/300 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060101 = 1477 ! ( AlphaServer 4000A 5/400 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060102 = 1478 ! ( AlphaServer 4000A 5/400 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050101 = 1479 ! ( AlphaServer 4000A 5/400 1MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS160705 0102 = 1480 ! ( AlphaServer 4000A 5/400 1MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060401 = 1481 ! ( AlphaServer 4000A 5/266 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060402 = 1482 ! ( AlphaServer 4000A 5/266 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050401 = 1483 ! ( AlphaServer 4000A 5/266 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050402 = 1484 ! ( AlphaServer 4000A 5/266 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS16 05060501 = 1485 ! ( AlphaServer 4000A 5/300 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060502 = 1486 ! ( AlphaServer 4000A 5/300 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050501 = 1487 ! ( AlphaServer 4000A 5/300 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050502 = 1488 ! ( AlphaServer 4000A 5/300 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060201 = 1489 ! ( AlphaServer 4000A 5/400 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_ AS1607060202 = 1490 ! ( AlphaServer 4000A 5/400 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050201 = 1491 ! ( AlphaServer 4000A 5/400 2MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050202 = 1492 ! ( AlphaServer 4000A 5/400 2MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060601 = 1493 ! ( AlphaServer 4000A 5/266 4MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060602 = 1494 ! ( AlphaServer 4000A 5/266 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPH A$K_AS1605050601 = 1495 ! ( AlphaServer 4000A 5/266 4MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050602 = 1496 ! ( AlphaServer 4000A 5/266 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060701 = 1497 ! ( AlphaServer 4000A 5/300 4MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605060702 = 1498 ! ( AlphaServer 4000A 5/300 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1605050701 = 1499 ! ( AlphaServer 4000A 5/300 4MB ) (1cpu)c DECLARE LONG CONSTANT  ALPHA$K_AS1605050702 = 1500 ! ( AlphaServer 4000A 5/300 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060301 = 1501 ! ( AlphaServer 4000A 5/400 4MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607060302 = 1502 ! ( AlphaServer 4000A 5/400 4MB ) (2cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050301 = 1503 ! ( AlphaServer 4000A 5/400 4MB ) (1cpu)c DECLARE LONG CONSTANT ALPHA$K_AS1607050302 = 1504 ! ( AlphaServer 4000A 5/400 4MB ) (2cpu)^ DECLARE LONG CONST ANT ALPHA$K_AS0907010001 = 1505 ! ( AlphaServer 2000 5/375 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010002 = 1506 ! ( AlphaServer 2000 5/375 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010003 = 1507 ! ( AlphaServer 2000 5/375 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010004 = 1508 ! ( AlphaServer 2000 5/375 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020001 = 1509 ! ( AlphaServer 2100 5/375 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020002 = 1510 ! ( AlphaServer 2100 5/375 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020003 = 1511 ! ( AlphaServer 2100 5/375 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020004 = 1512 ! ( AlphaServer 2100 5/375 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030001 = 1513 ! ( AlphaServer 2100-RM 5/375 ) (1cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030002 = 1514 ! ( AlphaServer 2100-RM 5/375 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030003 = 1515 ! ( Alpha Server 2100-RM 5/375 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030004 = 1516 ! ( AlphaServer 2100-RM 5/375 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010101 = 1517 ! ( AlphaServer 2000 5/400 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010102 = 1518 ! ( AlphaServer 2000 5/400 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010103 = 1519 ! ( AlphaServer 2000 5/400 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907010104 = 1520 ! ( AlphaServer 2000 5/400  ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020101 = 1521 ! ( AlphaServer 2100 5/400 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020102 = 1522 ! ( AlphaServer 2100 5/400 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020103 = 1523 ! ( AlphaServer 2100 5/400 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0907020104 = 1524 ! ( AlphaServer 2100 5/400 ) (4cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030101 = 1525 ! ( AlphaServer 2100-RM 5/400 ) (1cpu)a DECLAR E LONG CONSTANT ALPHA$K_AS0907030102 = 1526 ! ( AlphaServer 2100-RM 5/400 ) (2cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030103 = 1527 ! ( AlphaServer 2100-RM 5/400 ) (3cpu)a DECLARE LONG CONSTANT ALPHA$K_AS0907030104 = 1528 ! ( AlphaServer 2100-RM 5/400 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010001 = 1529 ! ( AlphaServer 2000A 5/375 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010002 = 1530 ! ( AlphaServer 2000A 5/375 ) (2cpu)_ DECLARE LONG CON STANT ALPHA$K_AS1807010003 = 1531 ! ( AlphaServer 2000A 5/375 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010004 = 1532 ! ( AlphaServer 2000A 5/375 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020001 = 1533 ! ( AlphaServer 2100A 5/375 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020002 = 1534 ! ( AlphaServer 2100A 5/375 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020003 = 1535 ! ( AlphaServer 2100A 5/375 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS 1807020004 = 1536 ! ( AlphaServer 2100A 5/375 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030001 = 1537 ! ( AlphaServer 2100A-RM 5/375 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030002 = 1538 ! ( AlphaServer 2100A-RM 5/375 ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030003 = 1539 ! ( AlphaServer 2100A-RM 5/375 ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030004 = 1540 ! ( AlphaServer 2100A-RM 5/375 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS18070101 01 = 1541 ! ( AlphaServer 2000A 5/400 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010102 = 1542 ! ( AlphaServer 2000A 5/400 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010103 = 1543 ! ( AlphaServer 2000A 5/400 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807010104 = 1544 ! ( AlphaServer 2000A 5/400 ) (4cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020101 = 1545 ! ( AlphaServer 2100A 5/400 ) (1cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020102 = 1546 ! ( AlphaServer 2100A 5/400 ) (2cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020103 = 1547 ! ( AlphaServer 2100A 5/400 ) (3cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS1807020104 = 1548 ! ( AlphaServer 2100A 5/400 ) (4cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030101 = 1549 ! ( AlphaServer 2100A-RM 5/400 ) (1cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030102 = 1550 ! ( AlphaServer 2100A-RM 5/400 ) (2cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030103 = 1551 ! ( AlphaServer 2100A-RM 5/400 ) (3cpu)b DECLARE LONG CONSTANT ALPHA$K_AS1807030104 = 1552 ! ( AlphaServer 2100A-RM 5/400 ) (4cpu)X DECLARE LONG CONSTANT ALPHA$K_AS1B07030101 = 1558 ! ( AlphaServer 1000A 5/333 )W DECLARE LONG CONSTANT ALPHA$K_AS1107050101 = 1559 ! ( AlphaServer 1000 5/333 )^ DECLARE LONG CONSTANT ALPHA$K_AS0C07040001 = 1560 ! ( AlphaServer 8200 5/440 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07040002 = 1561 ! ( AlphaServer 8200 5/440 ) (2cpu)^ DE CLARE LONG CONSTANT ALPHA$K_AS0C07040003 = 1562 ! ( AlphaServer 8200 5/440 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07040004 = 1563 ! ( AlphaServer 8200 5/440 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07040005 = 1564 ! ( AlphaServer 8200 5/440 ) (5cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07040006 = 1565 ! ( AlphaServer 8200 5/440 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050001 = 1566 ! ( AlphaServer 8400 5/440 ) (1cpu)^ DECLARE LONG CONSTANT ALPHA$ K_AS0C07050002 = 1567 ! ( AlphaServer 8400 5/440 ) (2cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050003 = 1568 ! ( AlphaServer 8400 5/440 ) (3cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050004 = 1569 ! ( AlphaServer 8400 5/440 ) (4cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050005 = 1570 ! ( AlphaServer 8400 5/440 ) (5cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050006 = 1571 ! ( AlphaServer 8400 5/440 ) (6cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050007 = 1572 !  ( AlphaServer 8400 5/440 ) (7cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050008 = 1573 ! ( AlphaServer 8400 5/440 ) (8cpu)^ DECLARE LONG CONSTANT ALPHA$K_AS0C07050009 = 1574 ! ( AlphaServer 8400 5/440 ) (9cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0705000A = 1575 ! ( AlphaServer 8400 5/440 ) (10cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0705000B = 1576 ! ( AlphaServer 8400 5/440 ) (11cpu)_ DECLARE LONG CONSTANT ALPHA$K_AS0C0705000C = 1577 ! ( AlphaServer 8400 5/440 ) (12cpu)4 DECLARE LONG CONSTANT ALPHA$K_MAX_MODEL = 1056 ww NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +. ! Access Rights Mask longword definitions ! -4 DECLARE LONG CONSTANT ARM$M_READ = x'00000001'5 DECLARE LONG CONSTANT ARM$M_WRITE = x'00000002'7 DECLARE LONG CONSTANT AR  M$M_EXECUTE = x'00000004'6 DECLARE LONG CONSTANT ARM$M_DELETE = x'00000008'7 DECLARE LONG CONSTANT ARM$M_CONTROL = x'00000010'6 DECLARE LONG CONSTANT ARM$M_CREATE = x'00000004'4 DECLARE LONG CONSTANT ARM$M_LOCK = x'00000004'8 DECLARE LONG CONSTANT ARM$M_PHYSICAL = x'00000004'7 DECLARE LONG CONSTANT ARM$M_LOGICAL = x'00000008'9 DECLARE LONG CONSTANT ARM$M_ASSOCIATE = x'00000001'6 DECLARE LONG CONSTANT ARM$M_SUBMIT = x'00000002'6 DECLARE LONG CON STANT ARM$M_MANAGE = x'00000004'3 DECLARE LONG CONSTANT ARM$M_USE = x'00000001', DECLARE LONG CONSTANT ARM$S_ARMDEF = 4 record ARMDEF variant case" group ARM$r_fill_15 variant case+ LONG ARM$L_FILE_ACCESS case( group ARM$r_fill_16' ! Read access( ! Write access* ! Ex ecute access) ! Delete access* ! Control accessI ! [LOADSS]SYSACLSRV depends on this being here?k LONG READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through FILL, end group ARM$r_fill_16 end variant& end group ARM$r_fill_15 case" group ARM$r_fill_17 variant  case- LONG ARM$L_VOLUME_ACCESS case( group ARM$r_fill_182 ! Create access (volume)k BYTE V_1_bits ! COMMENT ADDED BY SDL - V_1_bits contains bits V_1 through fill_19, end group ARM$r_fill_18 end variant& end group ARM$r_fill_17 case" group ARM$r_fill_20 variant case+ LONG ARM$L_RSDM_ACCESS case( group ARM$r_fill_219 ! Lock access (resource domain)k BYTE R_1_bits ! COMMENT ADDED BY SDL - R_1_bits contains bits R_1 through fill_22, end group ARM$r_fill_21 end variant& end group ARM$r_fill_20 case" group ARM$r_fill_23 variant case- LONG ARM$L_DEVICE_ACCESS case( group ARM$r_fill_248 ! Physical I/O access (device)7 ! Logical I/O access (device)k BYTE D_1_bits ! COMMENT ADDED BY SDL - D_1_bits contains bits D_1 through fill_25, end group ARM$r_fill_24 end variant& end group ARM$r_fill_23 case" group ARM$r_fil  l_26 variant case* LONG ARM$L_CEB_ACCESS case( group ARM$r_fill_27C ! Associate access (common event cluster)} BYTE ASSOCIATE_bits ! COMMENT ADDED BY SDL - ASSOCIATE_bits contains bits ASSOCIATE through fill_28, end group ARM$r_fill_27 end variant& end group ARM$r_fill_26 case"  group ARM$r_fill_29 variant case, LONG ARM$L_QUEUE_ACCESS case( group ARM$r_fill_301 ! Submit access (queue)1 ! Manage access (queue)k BYTE Q_1_bits ! COMMENT ADDED BY SDL - Q_1_bits contains bits Q_1 through fill_31, end group ARM$r_fill_30 end variant& end  group ARM$r_fill_29 case" group ARM$r_fill_32 variant case* LONG ARM$L_CAP_ACCESS case( group ARM$r_fill_333 ! Use access (capability)k BYTE USE_bits ! COMMENT ADDED BY SDL - USE_bits contains bits USE through fill_34, end group ARM$r_fill_33 end variant& end group ARM$r_fill_32 end variant end record ARMDEF  ww `BPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! ATTRIBUTE LIST DESCRIPTION. THE ATTRIBUTE CONTROL LIST IS USED TO READ ANDR ! WRITE FILE ATTRIBUTES. IT CONSISTS OF CONCATENATED ATTRIBUTE CONTROL BLOCKS, ! TERMINATED BY A SINGLE ZERO LONGW  ORD. ! Q DECLARE LONG CONSTANT ATR$C_UCHAR = 3 ! 4 BYTE USER FILE CHARACTERISTICS M DECLARE LONG CONSTANT ATR$C_RECATTR = 4 ! 32 BYTES RECORD ATTRIBUTES I DECLARE LONG CONSTANT ATR$C_FILNAM = 5 ! 6 BYTE RAD-50 FILE NAME I DECLARE LONG CONSTANT ATR$C_FILTYP = 6 ! 2 BYTE RAD-50 FILE TYPE L DECLARE LONG CONSTANT ATR$C_FILVER = 7 ! 2 BYTE BINARY FILE VERSION N DECLARE LONG CONSTANT ATR$C_EXPDAT = 8 ! 7 BYTE ASCII EXPIRATION DATE K DECLARE LONG CONSTANT ATR$C_STATBLK = 9 ! 32 BYTE STATISTICS BLOCK G DECLARE LONG CONSTANT ATR$C_HEADER = 10 ! 512 BYTE FILE HEADER H DECLARE LONG CONSTANT ATR$C_BLOCKSIZE = 11 ! MAGTAPE BLOCK SIZE E DECLARE LONG CONSTANT ATR$C_USERLABEL = 12 ! USER FILE LABEL Z DECLARE LONG CONSTANT ATR$C_ASCDATES = 13 ! REVISION COUNT THRU EXP DATE IN ASCII X DECLARE LONG CONSTANT ATR$C_ALCONTROL = 14 ! COMPATIBILITY MODE ALLOCATION DATA r DECLARE LONG CONSTANT ATR$C_ENDLBLAST  = 15 ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK V DECLARE LONG CONSTANT ATR$C_ASCNAME = 16 ! FILE NAME, TYPE ? VERSION IN ASCII H DECLARE LONG CONSTANT ATR$C_CREDATE = 17 ! 64 BIT CREATION DATE H DECLARE LONG CONSTANT ATR$C_REVDATE = 18 ! 64 BIT REVISION DATE J DECLARE LONG CONSTANT ATR$C_EXPDATE = 19 ! 64 BIT EXPIRATION DATE F DECLARE LONG CONSTANT ATR$C_BAKDATE = 20 ! 64 BIT BACKUP DATE E DECLARE LONG CONSTANT ATR$C_UIC = 21 ! 4 B YTE FILE OWNER UIC G DECLARE LONG CONSTANT ATR$C_FPRO = 22 ! 2 BYTE FILE PROTECTION I DECLARE LONG CONSTANT ATR$C_RPRO = 23 ! 2 BYTE RECORD PROTECTION L DECLARE LONG CONSTANT ATR$C_ACLEVEL = 24 ! 1 BYTE FILE ACCESS LEVEL O DECLARE LONG CONSTANT ATR$C_SEMASK = 25 ! FILE SECURITY MASK AND LIMIT @ DECLARE LONG CONSTANT ATR$C_UIC_RO = 26 ! READ ONLY UIC R DECLARE LONG CONSTANT ATR$C_DIRSEQ = 27 ! DIRECTORY UPDATE SEQUENCE COUNT K DECLARE LONG CONST ANT ATR$C_BACKLINK = 28 ! FILE BACK LINK POINTER I DECLARE LONG CONSTANT ATR$C_JOURNAL = 29 ! JOURNAL CONTROL FLAGS ^ DECLARE LONG CONSTANT ATR$C_HDR1_ACC = 30 ! ANSI TAPE HEADER 1 ACCESSIBILITY CHARACTERQ DECLARE LONG CONSTANT ATR$C_ADDACLENT = 31 ! ADD AN ACCESS CONTROL ENTRY T DECLARE LONG CONSTANT ATR$C_DELACLENT = 32 ! REMOVE AN ACCESS CONTROL ENTRY I DECLARE LONG CONSTANT ATR$C_MODACLENT = 33 ! MODIFY AN ACL ENTRY I DECLARE LONG CONSTANT ATR$C_ FNDACLENT = 34 ! LOCATE AN ACL ENTRY Q DECLARE LONG CONSTANT ATR$C_FNDACLTYP = 35 ! FIND A SPECIFIC TYPE OF ACE Q DECLARE LONG CONSTANT ATR$C_DELETEACL = 36 ! DELETE ACL LEAVING PROTECTEDG DECLARE LONG CONSTANT ATR$C_READACL = 37 ! READ THE ENTIRE ACL Q DECLARE LONG CONSTANT ATR$C_ACLLENGTH = 38 ! RETURN THE LENGTH OF THE ACLD DECLARE LONG CONSTANT ATR$C_READACE = 39 ! READ A SINGLE ACEH DECLARE LONG CONSTANT ATR$C_RESERVED = 40 ! MODIFY RESERVED  AREA[ DECLARE LONG CONSTANT ATR$C_HIGHWATER = 41 ! HIGHWATER MARK ( USER READ ONLY ) E DECLARE LONG CONSTANT ATR$C_DUMMY_0 = 42 ! *** AVAILABLE CODET DECLARE LONG CONSTANT ATR$C_PRIVS_USED = 43 ! PRIVILEGES USED TO GAIN ACCESS[ DECLARE LONG CONSTANT ATR$C_MATCHING_ACE = 44 ! ACE USED TO GAIN ACCESS ( IF ANY )f DECLARE LONG CONSTANT ATR$C_ACCESS_MODE = 45 ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSM DECLARE LONG CONSTANT ATR$C_FILE_SPEC = 46  ! CONVERT FID TO FILE-SPEC[ DECLARE LONG CONSTANT ATR$C_CLASS_MASK = 47 ! Non-discretionary classification maskx DECLARE LONG CONSTANT ATR$C_BUFFER_OFFSET = 48 ! For magnetic tape only length of buffer offset of block in filep DECLARE LONG CONSTANT ATR$C_RU_ACTIVE = 49 ! Recoverable facility id number (if non-zero, means file has6 ! active recovery units managed by that facility)H DECLARE LONG CONSTANT ATR$C_GRANT_ACE = 50 ! ACE granting accessH DECLARE LO NG CONSTANT ATR$C_NEXT_ACE = 51 ! Increment ACE numberK DECLARE LONG CONSTANT ATR$C_DELETE_ALL = 52 ! Delete the entire ACL_ DECLARE LONG CONSTANT ATR$C_BACKUP_DONE = 53 ! Alter backup info in RMS journaling ACEs ! ISO 9660 DescriptorsG DECLARE LONG CONSTANT ATR$C_EFFDATE = 54 ! ISO 9660 Backup DateI DECLARE LONG CONSTANT ATR$C_RCDDATE = 55 ! ISO 9660 Recorded DateA DECLARE LONG CONSTANT ATR$C_VD = 56 ! Volume Descriptor I DECLARE LONG CONST ANT ATR$C_PVD = 57 ! Primary Volume Descriptor O DECLARE LONG CONSTANT ATR$C_SVD = 58 ! Supplementary Volume Descriptor K DECLARE LONG CONSTANT ATR$C_VPD = 59 ! Volume Partition Descriptor Q DECLARE LONG CONSTANT ATR$C_VDST = 60 ! Volume Descriptor Set Terminator < DECLARE LONG CONSTANT ATR$C_BOOT = 61 ! Boot Record A DECLARE LONG CONSTANT ATR$C_PTR = 62 ! Path Table Record @ DECLARE LONG CONSTANT ATR$C_DIR = 63 ! Directory Record I DECLARE  LONG CONSTANT ATR$C_XAR = 64 ! Extended Attribute Record " ! ISO 9660 Descriptors FieldsF DECLARE LONG CONSTANT ATR$C_VOLUME_ID = 65 ! Volume IdentifierD DECLARE LONG CONSTANT ATR$C_VOLUME_FLAGS = 66 ! Volume FlagsL DECLARE LONG CONSTANT ATR$C_ESCAPE_SEQUENCES = 67 ! Escape SequencesN DECLARE LONG CONSTANT ATR$C_VOLUME_SET_ID = 68 ! Volume Set IdentifierR DECLARE LONG CONSTANT ATR$C_COPYRIGHT_FID = 69 ! Copyright File IdentifierQ DECLARE LONG CONST ANT ATR$C_ABSTRACT_FID = 70 ! Abstract File Identifier [ DECLARE LONG CONSTANT ATR$C_BIBLIOGRAPHIC_FID = 71 ! Bibliographic File Identifier K DECLARE LONG CONSTANT ATR$C_CACHE_SEQ = 72 ! Cache Sequence NumbersW DECLARE LONG CONSTANT ATR$C_FILE_SYSTEM_INFO = 73 ! File system structure levelT DECLARE LONG CONSTANT ATR$C_FILE_ATTR_CACHING_POLICY = 74 ! F64 caching onlyT DECLARE LONG CONSTANT ATR$C_FILE_DATA_CACHING_POLICY = 75 ! F64 caching onlyW DECLAR! E LONG CONSTANT ATR$C_CACHING_OPTIONS = 76 ! Spiralog/VDC caching optionsM DECLARE LONG CONSTANT ATR$C_POSIX_DATA = 77 ! POSIX private data areaI DECLARE LONG CONSTANT ATR$C_ACCDATE = 78 ! ODS-5 last access timeP DECLARE LONG CONSTANT ATR$C_ATTDATE = 79 ! ODS-5 last attribute mod timeR DECLARE LONG CONSTANT ATR$C_LENGTH_HINT = 80 ! ODS-5 file length hint area^ DECLARE LONG CONSTANT ATR$C_EX_RECATTR = 81 ! ODS-5 extended RMS attributes - Reserved0 ! to " Digital for future use. Must be zero.@ DECLARE LONG CONSTANT ATR$C_EXTFLAGS = 82 ! MS-DOS flags# ! All new attributes should be# ! added here before MAX_PLUS1K DECLARE LONG CONSTANT ATR$C_MAX_PLUS1 = 83 ! Maximum code plus one / DECLARE LONG CONSTANT ATR$C_MAX_CODE = 820 DECLARE LONG CONSTANT ATR$C_FNDACETYP = 35, ! Valid values for ATR$C_CACHING_POLICY< DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_WRITETHRU = 1< DECLARE LONG CONSTANT ATR$C_CACH# E_POLICY_WRITEBACK = 2: DECLARE LONG CONSTANT ATR$C_CACHE_POLICY_DEFAULT = 3! ! ATTRIBUTE MAXIMUM LENGTHS Q DECLARE LONG CONSTANT ATR$S_UCHAR = 4 ! 4 BYTE USER FILE CHARACTERISTICS N DECLARE LONG CONSTANT ATR$S_RECATTR = 32 ! 32 BYTES RECORD ATTRIBUTES I DECLARE LONG CONSTANT ATR$S_FILNAM = 6 ! 6 BYTE RAD-50 FILE NAME I DECLARE LONG CONSTANT ATR$S_FILTYP = 2 ! 2 BYTE RAD-50 FILE TYPE L DECLARE LONG CONSTANT ATR$S_FILVER = 2 ! 2 BYTE BINARY FILE VE$ RSION N DECLARE LONG CONSTANT ATR$S_EXPDAT = 7 ! 7 BYTE ASCII EXPIRATION DATE L DECLARE LONG CONSTANT ATR$S_STATBLK = 32 ! 32 BYTE STATISTICS BLOCK H DECLARE LONG CONSTANT ATR$S_HEADER = 512 ! 512 BYTE FILE HEADER G DECLARE LONG CONSTANT ATR$S_BLOCKSIZE = 2 ! MAGTAPE BLOCK SIZE E DECLARE LONG CONSTANT ATR$S_USERLABEL = 80 ! USER FILE LABEL Z DECLARE LONG CONSTANT ATR$S_ASCDATES = 35 ! REVISION COUNT THRU EXP DATE IN ASCII X DECLARE LONG CONSTANT % ATR$S_ALCONTROL = 14 ! COMPATIBILITY MODE ALLOCATION DATA q DECLARE LONG CONSTANT ATR$S_ENDLBLAST = 4 ! END OF MAGTAPE LABEL PROCESSING AND SUPPLY AST CONTROL BLOCK M DECLARE LONG CONSTANT ATR$S_ASCNAME = 252 ! FILE NAME, TYPE ? VERSIONG DECLARE LONG CONSTANT ATR$S_CREDATE = 8 ! 64 BIT CREATION DATE G DECLARE LONG CONSTANT ATR$S_REVDATE = 8 ! 64 BIT REVISION DATE I DECLARE LONG CONSTANT ATR$S_EXPDATE = 8 ! 64 BIT EXPIRATION DATE E DECLARE LONG CONST& ANT ATR$S_BAKDATE = 8 ! 64 BIT BACKUP DATE E DECLARE LONG CONSTANT ATR$S_UIC = 4 ! 4 BYTE FILE OWNER UIC F DECLARE LONG CONSTANT ATR$S_FPRO = 2 ! 2 BYTE FILE PROTECTION H DECLARE LONG CONSTANT ATR$S_RPRO = 2 ! 2 BYTE RECORD PROTECTION K DECLARE LONG CONSTANT ATR$S_ACLEVEL = 1 ! 1 BYTE FILE ACCESS LEVEL N DECLARE LONG CONSTANT ATR$S_SEMASK = 8 ! FILE SECURITY MASK AND LIMIT ? DECLARE LONG CONSTANT ATR$S_UIC_RO = 4 ! READ ONLY UIC Q DECLARE LO' NG CONSTANT ATR$S_DIRSEQ = 2 ! DIRECTORY UPDATE SEQUENCE COUNT J DECLARE LONG CONSTANT ATR$S_BACKLINK = 6 ! FILE BACK LINK POINTER H DECLARE LONG CONSTANT ATR$S_JOURNAL = 1 ! JOURNAL CONTROL FLAGS T DECLARE LONG CONSTANT ATR$S_HDR1_ACC = 1 ! ANSI TAPE HEADER 1 ACCESSIBILITY  ! CHARACTERR DECLARE LONG CONSTANT ATR$S_ADDACLENT = 255 ! ADD AN ACCESS CONTROL ENTRY U DECLARE LONG CONSTANT ATR$S_DELACLENT = 255 ! REMOVE AN ACCESS CONTROL ENTRY J DECL( ARE LONG CONSTANT ATR$S_MODACLENT = 255 ! MODIFY AN ACL ENTRY J DECLARE LONG CONSTANT ATR$S_FNDACLENT = 255 ! LOCATE AN ACL ENTRY R DECLARE LONG CONSTANT ATR$S_FNDACLTYP = 255 ! FIND A SPECIFIC TYPE OF ACE R DECLARE LONG CONSTANT ATR$S_FNDACETYP = 255 ! FIND A SPECIFIC TYPE OF ACE R DECLARE LONG CONSTANT ATR$S_DELETEACL = 255 ! DELETE ACL LEAVING PROTECTEDH DECLARE LONG CONSTANT ATR$S_READACL = 512 ! READ THE ENTIRE ACL P DECLARE LONG CONSTANT ATR$S_ACLL) ENGTH = 4 ! RETURN THE LENGTH OF THE ACLE DECLARE LONG CONSTANT ATR$S_READACE = 255 ! READ A SINGLE ACEI DECLARE LONG CONSTANT ATR$S_RESERVED = 380 ! MODIFY RESERVED AREA` DECLARE LONG CONSTANT ATR$S_HIGHWATER = 4 ! FILE HIGH WATER MARK ( USER READ ONLY ) D DECLARE LONG CONSTANT ATR$S_DUMMY_0 = 4 ! *** AVAILABLE CODEN DECLARE LONG CONSTANT ATR$S_PRIVS_USED = 4 ! PRIVS USED TO GAIN ACCESSP DECLARE LONG CONSTANT ATR$S_MATCHING_ACE = 255 ! ACE USED * TO GAIN ACCESSe DECLARE LONG CONSTANT ATR$S_ACCESS_MODE = 1 ! ACCESS MODE FOR FOLLOWING ATTRIBUTE DESCRIPTORSO DECLARE LONG CONSTANT ATR$S_FILE_SPEC = 4098 ! CONVERT FID TO FILE-SPEC[ DECLARE LONG CONSTANT ATR$S_CLASS_MASK = 20 ! Non-discretionary classification maskR DECLARE LONG CONSTANT ATR$S_BUFFER_OFFSET = 2 ! Buffer offset length fieldY DECLARE LONG CONSTANT ATR$S_RU_ACTIVE = 1 ! Recoverable facility id if RUs activeI DECLARE LONG CONSTANT ATR$S_+ GRANT_ACE = 255 ! ACE granting accessG DECLARE LONG CONSTANT ATR$S_NEXT_ACE = 4 ! Increment ACE numberM DECLARE LONG CONSTANT ATR$S_DELETE_ALL = 255 ! Delete the entire ACL ^ DECLARE LONG CONSTANT ATR$S_BACKUP_DONE = 1 ! Alter backup info in RMS journaling ACEsG DECLARE LONG CONSTANT ATR$S_EFFDATE = 8 ! 64 BIT EFFECTIVE DATEG DECLARE LONG CONSTANT ATR$S_RCDDATE = 8 ! 64 BIT RECORDED DATE A DECLARE LONG CONSTANT ATR$S_VD = 7 ! Volume Descriptor , K DECLARE LONG CONSTANT ATR$S_PVD = 1395 ! Primary Volume Descriptor Q DECLARE LONG CONSTANT ATR$S_SVD = 1395 ! Supplementary Volume Descriptor K DECLARE LONG CONSTANT ATR$S_VPD = 88 ! Volume Partition Descriptor P DECLARE LONG CONSTANT ATR$S_VDST = 7 ! Volume Descriptor Set Terminator < DECLARE LONG CONSTANT ATR$S_BOOT = 71 ! Boot Record A DECLARE LONG CONSTANT ATR$S_PTR = 45 ! Path Table Record A DECLARE LONG CONSTANT ATR$S_DIR = 512 ! Dire- ctory Record J DECLARE LONG CONSTANT ATR$S_XAR = 512 ! Extended Attribute Record " ! ISO 9660 Descriptors FieldsF DECLARE LONG CONSTANT ATR$S_VOLUME_ID = 32 ! Volume IdentifierC DECLARE LONG CONSTANT ATR$S_VOLUME_FLAGS = 1 ! Volume FlagsL DECLARE LONG CONSTANT ATR$S_ESCAPE_SEQUENCES = 32 ! Escape SequencesO DECLARE LONG CONSTANT ATR$S_VOLUME_SET_ID = 128 ! Volume Set IdentifierR DECLARE LONG CONSTANT ATR$S_COPYRIGHT_FID = 37 ! Copyright File Iden. tifierQ DECLARE LONG CONSTANT ATR$S_ABSTRACT_FID = 37 ! Abstract File Identifier [ DECLARE LONG CONSTANT ATR$S_BIBLIOGRAPHIC_FID = 37 ! Bibliographic File Identifier I DECLARE LONG CONSTANT ATR$S_CACHE_SEQ = 8 ! Cache sequence numberV DECLARE LONG CONSTANT ATR$S_FILE_SYSTEM_INFO = 2 ! file system structure levelV DECLARE LONG CONSTANT ATR$S_FILE_ATTR_CACHING_POLICY = 1 ! Dollar caching onlyV DECLARE LONG CONSTANT ATR$S_FILE_DATA_CACHING_POLICY = 1 ! D/ ollar caching onlyI DECLARE LONG CONSTANT ATR$S_POSIX_DATA = 64 ! Dollar caching onlyV DECLARE LONG CONSTANT ATR$S_CACHING_OPTIONS = 4 ! Spiralog/VDC caching optionsH DECLARE LONG CONSTANT ATR$S_ACCDATE = 8 ! ODS-5 last access timeO DECLARE LONG CONSTANT ATR$S_ATTDATE = 8 ! ODS-5 last attribute mod timeR DECLARE LONG CONSTANT ATR$S_LENGTH_HINT = 16 ! ODS-5 file length hint areaR DECLARE LONG CONSTANT ATR$S_EX_RECATTR = 8 ! ODS-5 extended RMS attributes 0 ? DECLARE LONG CONSTANT ATR$S_EXTFLAGS = 2 ! MS-DOS flags, DECLARE LONG CONSTANT ATR$S_ATRDEF = 8 record ATRDEFJ WORD ATR$W_SIZE ! SIZE OF ATTRIBUTE IN BYTES C WORD ATR$W_TYPE ! ATTRIBUTE TYPE CODE I LONG ATR$L_ADDR ! ADDRESS OF ATTRIBUTE TEXT  ! ATTRIBUTE CODES  end record ATRDEF K ! Define fields and constant values for ATR$_CACHING_OPTIONS longword.3 ! These 1 must match [STARLET]FIBDEF.SDL exactly? DECLARE LONG CONSTANT ATR$M_FILE_ATTRIBUTES = x'0000000F'= DECLARE LONG CONSTANT ATR$M_FILE_CONTENTS = x'000000F0'- DECLARE LONG CONSTANT ATR$C_DEFAULT = 02 DECLARE LONG CONSTANT ATR$C_WRITETHROUGH = 11 DECLARE LONG CONSTANT ATR$C_WRITEBEHIND = 2/ DECLARE LONG CONSTANT ATR$C_NOCACHING = 3> DECLARE LONG CONSTANT ATR$M_FLUSH_ON_CLOSE = x'00000F00'+ DECLARE LONG CONSTANT ATR$C_FLUSH = 1- DECLARE LONG CON STANT ATR$C_NOFLUSH = 2C DECLARE LONG CONSTANT ATR$M_CACHING_OPTIONS_MBZ = x'FFFFF000'? DECLARE LONG CONSTANT ATR$S_ATR_CACHING_OPTIONS_FLAGS = 4& record ATR_CACHING_OPTIONS_FLAGS{ LONG FILE_ATTRIBUTES_bits ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES through & ! CACHING_OPTIONS_MBZ* end record ATR_CACHING_OPTIONS_FLAGS  ww3 BPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI4 NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET5 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! 2 ! Breakthru system service input definitions. !  ! -< DECLARE LONG CONSTANT BRK$C_DEVICE = 1 ! device name< DECLARE LONG CONSTANT BRK$C_USERNAME = 2 ! user na 6 me< DECLARE LONG CONSTANT BRK$C_ALLUSERS = 3 ! all usersF DECLARE LONG CONSTANT BRK$C_ALLTERMS = 4 ! all logged in users1 DECLARE LONG CONSTANT BRK$C_MAXSENDTYPE = 4 ! * ! Requestor ID's, DEC use only (0-31) ! M DECLARE LONG CONSTANT BRK$C_GENERAL = 0 ! GENERAL ( OR UNSPECIFIED )5 DECLARE LONG CONSTANT BRK$C_PHONE = 1 ! PHONE3 DECLARE LONG CONSTANT BRK$C_MAIL = 2 ! MAIL= DECLARE LONG CONSTANT BRK$C_QUEUE = 3 ! QUEUE MANAGERB 7 DECLARE LONG CONSTANT BRK$C_SHUTDOWN = 4 ! SYSTEM SHUTDOWN? DECLARE LONG CONSTANT BRK$C_URGENT = 5 ! URGENT MESSAGEA DECLARE LONG CONSTANT BRK$C_DCL = 6 ! DCL ( control T )@ DECLARE LONG CONSTANT BRK$C_OPCOM = 7 ! OPERATOR MESSAGEA ! Note that only first 16 are really stored by TTDRIVER now E DECLARE LONG CONSTANT BRK$C_USER1 = 32 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER2 = 33 ! reserved to customerE DECLARE LONG CONSTANT 8 BRK$C_USER3 = 34 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER4 = 35 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER5 = 36 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER6 = 37 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER7 = 38 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER8 = 39 ! reserved to customerE DECLARE LONG CONSTANT BRK$C_USER9 = 40 ! reserved to customerF DECLARE LONG CONSTANT BR9 K$C_USER10 = 41 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER11 = 42 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER12 = 43 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER13 = 44 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER14 = 45 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER15 = 46 ! reserved to customerF DECLARE LONG CONSTANT BRK$C_USER16 = 47 ! reserved to customer6 DECLARE LONG CONSTANT BRK$ : M_SCREEN = x'00000100'6 DECLARE LONG CONSTANT BRK$M_BOTTOM = x'00000200'9 DECLARE LONG CONSTANT BRK$M_NOREFRESH = x'00000400'7 DECLARE LONG CONSTANT BRK$M_CLUSTER = x'00000800': DECLARE LONG CONSTANT BRK$M_REMOTENODE = x'00001000'> DECLARE LONG CONSTANT BRK$M_PROVIDE_COUNTS = x'00002000'4 DECLARE LONG CONSTANT BRK$M_CSID = x'00004000'1 DECLARE LONG CONSTANT BRK$S_FLAGS_INPUT = 2@ record FLAGS_INPUT ! mimics $BRDCSTDEF% ! ; number of lines to erase& ! Do screen formatted write' ! "screen" message at bottom( ! Refresh an interrupted read! ! broadcast to cluster) ! Specified remote target node- ! Return information in IOSB about# ! number of terminals notified. ! Remote node is really a node CSIDt WORD ERASE_LINES_bits ! COMMENT ADDED BY SDL - ERASE_LINES_bits contains bits ERASE_LINES through fill_35 end record FLAGS_INPUT  ww= `2CPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI> NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET? %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! / ! CONDITION HANDLING ARGUMENT LIST OFFSETSL ! THERE ARE THREE CONDITIONAL HANDLING STRUCTURES: THE PRIMARY ARGUMENTP ! LIST, AND THE SIGNAL AND MECHANISM ARRAYS. ALL ARE IDENTIFIED BY @ THE SAME ! BLOCK PREFIX. ! - DECLARE LONG CONSTANT CHF$S_CHFDEF = 12 record CHFDEFE LONG CHFDEF$$_FILL_1 ! PRIMARY ARGUMENT COUNT J LONG CHF$L_SIGARGLST ! ADDRESS OF SIGNAL ARGUMENTS L LONG CHF$L_MCHARGLST ! ADDRESS OF MECHANISM ARGUMENTS end record CHFDEF . DECLARE LONG CONSTANT CHF$S_CHFDEF1 = 12 record CHFDEF1" group CHF$R_SIG_ARGS_DESC variant A caseH LONG CHF$IS_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS caseI LONG CHF$L_SIG_ARGS ! NUMBER OF SIGNAL ARGUMENTS  end variant& end group CHF$R_SIG_ARGS_DESC" group CHF$R_SIG_NAME_DESC variant case9 LONG CHF$IS_SIG_NAME ! SIGNAL NAME case: LONG CHF$L_SIG_NAME ! SIGNAL NAME  end variant& B end group CHF$R_SIG_NAME_DESC" group CHF$R_SIG_ARG1_DESC variant caseL LONG CHF$IS_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT caseM LONG CHF$L_SIG_ARG1 ! FIRST SIGNAL SPECIFIC ARGUMENT  end variant& end group CHF$R_SIG_ARG1_DESC end record CHFDEF1 . DECLARE LONG CONSTANT CHF$S_CHFDEF2 = 20 record CHFDEF2" group CHF$R_MCH_ARGS_DESC C variant caseL LONG CHF$IS_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  caseL LONG CHF$L_MCH_ARGS ! NUMBER OF MECHANISM ARGUMENTS  end variant& end group CHF$R_MCH_ARGS_DESC# group CHF$R_MCH_FRAME_DESC variant caseH LONG CHF$PH_MCH_FRAME ! ESTABLISHER FRAME ADDRESS  caseH LONG CHF$L_MCH_FRAME ! ESTAD BLISHER FRAME ADDRESS  end variant' end group CHF$R_MCH_FRAME_DESC# group CHF$R_MCH_DEPTH_DESC variant caseI LONG CHF$IS_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  caseI LONG CHF$L_MCH_DEPTH ! FRAME DEPTH OF ESTABLISHER  end variant' end group CHF$R_MCH_DEPTH_DESC# group CHF$R_MCH_SAVR0_DESC variant case@ E LONG CHF$IH_MCH_SAVR0 ! SAVED REGISTER R0  case@ LONG CHF$L_MCH_SAVR0 ! SAVED REGISTER R0  end variant' end group CHF$R_MCH_SAVR0_DESC# group CHF$R_MCH_SAVR1_DESC variant case@ LONG CHF$IH_MCH_SAVR1 ! SAVED REGISTER R1  case@ LONG CHF$L_MCH_SAVR1 ! SAVED REGISTER R1  end variant' end group CHF$R_MCH_SAVR1_DESC end record CHFDEF2  wwG uCPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIH NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETI %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! - ! @ ! Define flags for calls to create checkpointable processes ! +? DECLARE LONG CONSTANT CHKPNT$M_AUTO_RESTART = x'00000001'8 DECLARE LONG CONSTANT CHKPNT$M_DEBUG = x'0 0000002'8 DECLARE LONG CONSTANT CHKPNT$M_ASYNC = x'00000004'2 DECLARE LONG CONSTANT CHKPNT$S_CHKPNTDEF = 1 record CHKPNTDEF* ! auto-restart detached process ! merge in DEBUG- ! asynchronous checkpoint process w BYTE AUTO_RESTART_bits ! COMMENT ADDED BY SDL - AUTO_RESTART_bits contains bits AUTO_RESTART through fill_36 end record CHKPNTDEF  wwK `CPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIL NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETM %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! N ! Item code definition for the $CHKPRO (check protection) system service. ! 7 DECLARE LONG CONSTANT CHP$_END = 0 ! list end? DECLARE LONG CONSTANT CHP$_ACCESS = 1 ! intendN ed accessA DECLARE LONG CONSTANT CHP$_FLAGS = 2 ! read / write flags= DECLARE LONG CONSTANT CHP$_PRIV = 3 ! privilege maskD DECLARE LONG CONSTANT CHP$_ACMODE = 4 ! accessor access modeQ DECLARE LONG CONSTANT CHP$_ACCLASS = 5 ! accessor security classification; DECLARE LONG CONSTANT CHP$_RIGHTS = 6 ! rights listS DECLARE LONG CONSTANT CHP$_ADD_RIGHTS = 7 ! additional rights list segmentsA DECLARE LONG CONSTANT CHP$_MODE = 8 ! simple accessO modeE DECLARE LONG CONSTANT CHP$_MODES = 9 ! per action access modeS DECLARE LONG CONSTANT CHP$_MIN_CLASS = 10 ! minimum security classificationS DECLARE LONG CONSTANT CHP$_MAX_CLASS = 11 ! maximum security classification@ DECLARE LONG CONSTANT CHP$_OWNER = 12 ! object owner UIC> DECLARE LONG CONSTANT CHP$_PROT = 13 ! protection maskJ DECLARE LONG CONSTANT CHP$_ACL = 14 ! access control list segmentI DECLARE LONG CONSTANT CHP$_AUDIT_NAME = 15P ! audit names returnedI DECLARE LONG CONSTANT CHP$_ALARM_NAME = 16 ! alarm names returnedM DECLARE LONG CONSTANT CHP$_MATCHED_ACE = 17 ! address of matching ACEU DECLARE LONG CONSTANT CHP$_PRIVUSED = 18 ! address of mask of privileges used\ DECLARE LONG CONSTANT CHP$_AUDIT_LIST = 19 ! address of supplemental audit item listL DECLARE LONG CONSTANT CHP$_OBJECT_NAME = 20 ! object name descriptorS DECLARE LONG CONSTANT CHP$_OBJECT_CLASS = 21 ! object Q class name descriptor; DECLARE LONG CONSTANT CHP$_UIC = 22 ! accessor UIC_ DECLARE LONG CONSTANT CHP$_OBJECT_SPECIFIC = 23 ! object specific longword ( for OSR )% ! add new item codes before hereI DECLARE LONG CONSTANT CHP$_MAX_CODE = 24 ! highest CHP$ item code. DECLARE LONG CONSTANT CHP$_ADDRIGHTS = 7. DECLARE LONG CONSTANT CHP$_MINCLASS = 10. DECLARE LONG CONSTANT CHP$_MAXCLASS = 11/ DECLARE LONG CONSTANT CHP$_AUDITNAME = 15/ DECLAR R E LONG CONSTANT CHP$_ALARMNAME = 160 DECLARE LONG CONSTANT CHP$_MATCHEDACE = 17* DECLARE LONG CONSTANT CHP$_CLASS = 5: DECLARE LONG CONSTANT CHP$K_MATCHED_ACE_LENGTH = 2554 DECLARE LONG CONSTANT CHP$K_ALARM_LENGTH = 7685 DECLARE LONG CONSTANT CHP$K_AUDIT_LENGTH = 15606 DECLARE LONG CONSTANT CHP$M_SYSPRV = x'00000001'6 DECLARE LONG CONSTANT CHP$M_BYPASS = x'00000002'7 DECLARE LONG CONSTANT CHP$M_UPGRADE = x'00000004'9 DECLARE LONG CONSTANT CHP$M_ S DOWNGRADE = x'00000008'6 DECLARE LONG CONSTANT CHP$M_GRPPRV = x'00000010'7 DECLARE LONG CONSTANT CHP$M_READALL = x'00000020'4 DECLARE LONG CONSTANT CHP$M_OPER = x'00000040'6 DECLARE LONG CONSTANT CHP$M_GRPNAM = x'00000080'6 DECLARE LONG CONSTANT CHP$M_SYSNAM = x'00000100'5 DECLARE LONG CONSTANT CHP$M_GROUP = x'00000200'5 DECLARE LONG CONSTANT CHP$M_WORLD = x'00000400'6 DECLARE LONG CONSTANT CHP$M_PRMCEB = x'00000800'6 DECLARE LONG CONSTANT CHP$ T K_NUMBER_OF_PRIVS = 125 DECLARE LONG CONSTANT CHP$S_PRIVS_USED_BITS = 2 record PRIVS_USED_BITS( ! access via SYSPRV privilege( ! access via BYPASS privilege) ! access via UPGRADE privilege+ ! access via DOWNGRADE privilege( ! access via GRPPRV privilege) ! access via READALL privilege& ! access via OPER privilege( ! access via GRPNAM privilege( ! access via SYSNAM privilege' ! U access via GROUP privilege' ! access via WORLD privilege( ! access via PRMCEB privilegee WORD SYSPRV_bits ! COMMENT ADDED BY SDL - SYSPRV_bits contains bits SYSPRV through fill_37 end record PRIVS_USED_BITS 7 DECLARE LONG CONSTANT CHP$M_OBSERVE = x'00000001'5 DECLARE LONG CONSTANT CHP$M_ALTER = x'00000002'4 DECLARE LONG CONSTANT CHP$M_READ = x'00000001'5 DECLARE LONG CONSTANT CHP$M_WRITE = x'00000002': DECLARE LONG CONST V ANT CHP$M_USEREADALL = x'00000004'5 DECLARE LONG CONSTANT CHP$M_AUDIT = x'00000008'9 DECLARE LONG CONSTANT CHP$M_NOFAILAUD = x'00000010'9 DECLARE LONG CONSTANT CHP$M_NOSUCCAUD = x'00000020'6 DECLARE LONG CONSTANT CHP$M_DELETE = x'00000040'9 DECLARE LONG CONSTANT CHP$M_MANDATORY = x'00000080'5 DECLARE LONG CONSTANT CHP$M_FLUSH = x'00000100'6 DECLARE LONG CONSTANT CHP$M_CREATE = x'00000200'8 DECLARE LONG CONSTANT CHP$M_INTERNAL = x'00000400'6 DE W CLARE LONG CONSTANT CHP$M_SERVER = x'00000800'/ DECLARE LONG CONSTANT CHP$S_FLAG_BITS = 2 record FLAG_BITS variant case% group CHP$R_SEVMS_DEFS3 ! non-discretionary read access4 ! non-discretionary write accessq BYTE OBSERVE_bits ! COMMENT ADDED BY SDL - OBSERVE_bits contains bits OBSERVE through fill_38) end group CHP$R_SEVMS_DEFS case# group C X HP$R_VMS_DEFS3 ! non-discretionary read access4 ! non-discretionary write access/ ! READALL privilege applies, ! access audit requested8 ! do not perform failed access audit< ! do not perform successful access audit8 ! perform audit as delete event type- ! perform mandatory audit8 ! force buffer flush in AUDIT_SERVER8 Y ! perform audit as create event type0 ! audit on behalf of VMS TCB< ! audit originates in TCB server processh WORD READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through fill_39' end group CHP$R_VMS_DEFS end variant end record FLAG_BITS 8 DECLARE LONG CONSTANT CHP$M_NOACCESS = x'00000001'8 DECLARE LONG CONSTANT CHP$M_REMDUPID = x'00000002'8 DECLARE LONG Z CONSTANT CHP$M_INCSYSID = x'00000004'8 DECLARE LONG CONSTANT CHP$M_INCIMGID = x'00000008'7 DECLARE LONG CONSTANT CHP$M_DEFPRIV = x'00000010'8 DECLARE LONG CONSTANT CHP$M_DEFCLASS = x'00000020'3 DECLARE LONG CONSTANT CHP$S_PROFILE_FLAGS = 1 record PROFILE_FLAGS/ ! do not access UAF to build profile/ ! remove duplicate system rights IDs& ! include system rights IDs% ! include image rights IDs/ ! initialize privs from default mask/ ! initialize class from default maskk BYTE NOACCESS_bits ! COMMENT ADDED BY SDL - NOACCESS_bits contains bits NOACCESS through fill_40 end record PROFILE_FLAGS  ww\ }DPV%DEFINE CIA$GENERIC_REPLY LONG8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SING] LE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_P^ ART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  * DECLARE LONG CONSTANT CIA$K_SCAN = 1, DECLARE LONG CONSTANT CIA$K_DELETE = 2* DECLARE LONG CONSTANT CIA$K_SHOW = 31 DECLARE LONG CONSTANT CIA$K_PERFORMA _ NCE = 46 DECLARE LONG CONSTANT CIA$K_ZERO_PERFORMANCE = 53 DECLARE LONG CONSTANT CIA$K_SCAN_EXTENDED = 65 DECLARE LONG CONSTANT CIA$K_DELETE_EXTENDED = 73 DECLARE LONG CONSTANT CIA$K_SHOW_EXTENDED = 82 DECLARE LONG CONSTANT CIA$K_MAX_CIA_CODE = 99 DECLARE LONG CONSTANT CIA$K_PERFORMANCE_LENGTH = 402 DECLARE LONG CONSTANT CIA$S_PERFORMANCE = 40 record PERFORMANCE" LONG CIA$L_TOTAL_MESSAGES$ LONG CIA$L_TOTAL_EXCEPTIONS LON` G CIA$L_SHOWS LONG CIA$L_SCANS LONG CIA$L_DELETES LONG CIA$L_PERFORMANCE LONG CIA$L_AUDITS$ LONG CIA$L_INVALID_MESSAGES LONG CIA$L_INTRUDERS LONG CIA$L_SUSPECTS end record PERFORMANCE = DECLARE LONG CONSTANT CIA$K_SOURCE_TERMINAL_LENGTH = 64? DECLARE LONG CONSTANT CIA$K_SOURCE_NODE_MAX_LENGTH = 1024= DECLARE LONG CONSTANT CIA$K_USER_SPEC_MAX_LENGTH = 1058= DECLARE LONG CONSTANT CIA$K_USER_S a TRING_MAX_LENGTH = 32: DECLARE LONG CONSTANT CIA$K_PASSWORD_MAX_LENGTH = 32A DECLARE LONG CONSTANT CIA$K_SOURCE_ADDRESS_MAX_LENGTH = 1284 DECLARE LONG CONSTANT CIA$K_SCSNODE_LENGTH = 8; DECLARE LONG CONSTANT CIA$K_SCSNODE_REPLY_LENGTH = 127 DECLARE LONG CONSTANT CIA$K_USERDATA_LENGTH = 2566 DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_DESC = 5 record CIA$GENERIC_DESC WORD CIA$W_DESC_LENGTH WORD CIA$W_FILL1# STRING CIA$T_DESC_DAT b A = 1! end record CIA$GENERIC_DESC / DECLARE LONG CONSTANT CIAEXT$S_PACKET = 49 DECLARE LONG CONSTANT CIAEXT$S_EXTENSION_PACKET = 4 record EXTENSION_PACKET: WORD CIAEXT$W_TYPE ! packet typeT WORD CIAEXT$W_LENGTH ! packet length NOT including T/L words< STRING CIAEXT$R_VALUE = 0 ! start of data! end record EXTENSION_PACKET 3 DECLARE LONG CONSTANT CIAEXT$_USER_DATA = 1001 DECLc ARE LONG CONSTANT CIAEXT$_SCSNODE = 1017 DECLARE LONG CONSTANT CIAEXT$_SCSNODE_REPLY = 1029 DECLARE LONG CONSTANT CIAEXT$_MAX_CIAEXT_CODE = 103V DECLARE LONG CONSTANT CIA$_SCSNODE_LIST = 200 ! List of nodes for which to actG DECLARE LONG CONSTANT CIA$_SCSNODE = 201 ! Single node for SCANW DECLARE LONG CONSTANT CIA$_OUTPUT_LIST = 202 ! List of nodes records occured onS DECLARE LONG CONSTANT CIA$_USER_DATA = 203 ! Opaque Data. We don't use it._ DEd CLARE LONG CONSTANT CIA$_USER_CRITERIAL = 204 ! Existing argument passed by item lista DECLARE LONG CONSTANT CIA$_FAILED_USERNAME = 205 ! Existing argument passsed by item list3 DECLARE LONG CONSTANT CIA$_MAX_CIA_ITEM = 206= DECLARE LONG CONSTANT CIA$M_IGNORE_RETURN = x'00000001': DECLARE LONG CONSTANT CIA$M_RESERVED_1 = x'000000FE'8 DECLARE LONG CONSTANT CIA$M_SUSPECTS = x'00000100'9 DECLARE LONG CONSTANT CIA$M_INTRUDERS = x'00000200'B DECLARE LONG C e ONSTANT CIA$M_SECONDARY_PASSWORD = x'00000400'7 DECLARE LONG CONSTANT CIA$M_NOAUDIT = x'00000800'= DECLARE LONG CONSTANT CIA$M_REAL_USERNAME = x'00001000'9 DECLARE LONG CONSTANT CIA$M_SHOW_NODE = x'00002000'8 DECLARE LONG CONSTANT CIA$M_ITEMLIST = x'00004000'6 DECLARE LONG CONSTANT CIA$M_FILL_1 = x'FFFF8000'3 DECLARE LONG CONSTANT CIA$K_HEADER_LENGTH = 8, DECLARE LONG CONSTANT CIA$S_HEADER = 8 record HEADER LONG CIA$L_CONTEXT gf roup CIA$r_fill_41 variant case) LONG CIA$L_HEADER_FLAGS case% group CIA$r_fill_42 LONG IGNORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1) end group CIA$r_fill_42 end variant end group CIA$r_fill_41 end record HEADER : DECLARE LONG CONSTANT CIA$K_SHOW_INPUT_LENGTH = 10g 62< DECLARE LONG CONSTANT CIA$K_DELETE_INPUT_LENGTH = 10621 DECLARE LONG CONSTANT CIA$S_CONTENTS = 1062 record CONTENTS WORD CIA$W_LENGTH WORD CIA$W_UNUSED! STRING CIA$T_NAME = 1058 end record CONTENTS = DECLARE LONG CONSTANT CIA$K_SCAN_CONTENTS_LENGTH = 13866 DECLARE LONG CONSTANT CIA$S_SCAN_CONTENTS = 1386 record SCAN_CONTENTS LONG CIA$L_PARENT_ID LONG CIA$L_JOB_TYPE LONG CIA$L_LOGIN_STh ATUS group CIA$r_fill_43 variant case3 STRING CIA$T_SOURCE_TERMINAL = 68 case% group CIA$r_fill_442 WORD CIA$W_SOURCE_TERM_LENGTH( WORD CIA$W_UNUSED_17 STRING CIA$T_SOURCE_TERM_NAME = 64) end group CIA$r_fill_44 end variant end group CIA$r_fill_43 group CIA$r_fill_45 variant i case/ STRING CIA$T_SOURCE_USER = 36 case% group CIA$r_fill_462 WORD CIA$W_SOURCE_USER_LENGTH( WORD CIA$W_UNUSED_27 STRING CIA$T_SOURCE_USER_NAME = 32) end group CIA$r_fill_46 end variant end group CIA$r_fill_45 group CIA$r_fill_47 variant case3 STRING CIA$T_SOURCE_ADDRESj S = 132 case% group CIA$r_fill_482 WORD CIA$W_SOURCE_ADDR_LENGTH( WORD CIA$W_UNUSED_3; STRING CIA$T_SOURCE_ADDRESS_NAME = 128) end group CIA$r_fill_48 end variant end group CIA$r_fill_47 WORD CIA$W_UNUSED_4 group CIA$R_FAILED_USER) WORD CIA$W_FAILED_USER_LENGTH WORD CIA$W_UNUSED_5. STRING CIA$T_FAILED_k USER_NAME = 32$ end group CIA$R_FAILED_USER group CIA$r_fill_49 variant case3 STRING CIA$T_FAILED_PASSWORD = 36 case% group CIA$r_fill_502 WORD CIA$W_FAILED_PASS_LENGTH( WORD CIA$W_UNUSED_67 STRING CIA$T_FAILED_PASS_NAME = 32) end group CIA$r_fill_50 end variant end group CIA$r_fill_49 l group CIA$r_fill_51 variant case/ STRING CIA$T_PARENT_USER = 36 case% group CIA$r_fill_522 WORD CIA$W_PARENT_USER_LENGTH( WORD CIA$W_UNUSED_77 STRING CIA$T_PARENT_USER_NAME = 32) end group CIA$r_fill_52 end variant end group CIA$r_fill_51 group CIA$r_fill_53 variant casm e1 STRING CIA$T_SOURCE_NODE = 1028 case% group CIA$r_fill_542 WORD CIA$W_SOURCE_NODE_LENGTH( WORD CIA$W_UNUSED_89 STRING CIA$T_SOURCE_NODE_NAME = 1024) end group CIA$r_fill_54 end variant end group CIA$r_fill_53 end record SCAN_CONTENTS 8 DECLARE LONG CONSTANT CIA$M_INTRUDER = x'00000001'7 DECLARE LONG CONSTANT CIA$M_ n SUSPECT = x'00000002'7 DECLARE LONG CONSTANT CIA$M_NETWORK = x'00000004'9 DECLARE LONG CONSTANT CIA$M_TERM_USER = x'00000008'8 DECLARE LONG CONSTANT CIA$M_TERMINAL = x'00000010'8 DECLARE LONG CONSTANT CIA$M_USERNAME = x'00000020'6 DECLARE LONG CONSTANT CIA$M_FILL_2 = x'FFFFFFC0'; DECLARE LONG CONSTANT CIA$K_SHOW_OUTPUT_LENGTH = 10864 DECLARE LONG CONSTANT CIA$S_SHOW_OUTPUT = 1086 record SHOW_OUTPUT LONG CIA$L_STATUS$ LONG CIA$L_REo TURNED_CONTEXT- BASIC$QUADWORD CIA$Q_EXPIRATION_TIME group CIA$r_fill_55 variant case" LONG CIA$L_FLAGS case% group CIA$r_fill_56v LONG INTRUDER_bits ! COMMENT ADDED BY SDL - INTRUDER_bits contains bits INTRUDER through FILL_2) end group CIA$r_fill_56 end variant end group CIA$r_fill_55! LONG CIA$L_ATTEMPT_COUNT gp roup CIA$r_fill_57 variant case/ STRING CIA$T_USER_SPEC = 1062 case% group CIA$r_fill_580 WORD CIA$W_USER_SPEC_LENGTH( WORD CIA$W_UNUSED_87 STRING CIA$T_USER_SPEC_NAME = 1058) end group CIA$r_fill_58 end variant end group CIA$r_fill_57 end record SHOW_OUTPUT 4 DECLARE LONG CONSTANT CIA$S_BREAKI N_BLOCK = 16 record BREAKIN_BLOCK LONG CIA$L_BREAK_FLAGS LONG CIA$L_BREAK_COUNT( BASIC$QUADWORD CIA$Q_BREAK_TIME end record BREAKIN_BLOCK 7 DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_REPLY = 4  ww@=UPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD % %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD % %LET %BASIC$OCTAWORD_DECLARED = 1C %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIs EAEPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIt NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETu %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! 8 ! $CLIDEF --- COMMAND LAGUAGE INTERFACE DEFINITIONS ! D ! THIS MODULE DEFINES THE OFFSET VALUES FOR THE DATA STRUCTURESC ! USED TO COMMUNICATED COMMAND INFORMATION BETWEE v N THE CLI AND? ! THE UTILITY THAT WAS REQUESTED TO PERFORM THE OPERATION. !  ! --5 DECLARE LONG CONSTANT CLI$M_DEBUG = x'00000001'6 DECLARE LONG CONSTANT CLI$M_DBGTRU = x'00000002'6 DECLARE LONG CONSTANT CLI$M_VERIFY = x'00000004'5 DECLARE LONG CONSTANT CLI$M_BATCH = x'00000008'8 DECLARE LONG CONSTANT CLI$M_INDIRECT = x'00000010'6 DECLARE LONG CONSTANT CLI$M_VFYINP = x'00000020'8 DECLARE LONG CONSTANT CLI$M_TRMVRBLV = x'00000300'7 DECL w ARE LONG CONSTANT CLI$M_DBGEXCP = x'00010000'- DECLARE LONG CONSTANT CLI$S_CLIDEF = 32 record CLIDEFA LONG CLI$L_INIARGCNT ! INITIAL ARG COUNT O LONG CLI$A_PROGXFER ! PROGRAM TRANSFER VECTOR ADDRESS N LONG CLI$A_UTILSERV ! ADDRESS OF CLI UTILITY SERVICE G LONG CLI$A_IMGHDADR ! ADDRESS OF IMAGE HEADER J LONG CLI$A_IMGFILED ! ADDRESS OF IMAGE FILE DATA B x LONG CLI$L_LINKFLAG ! LINK FLAG LONGWORD $ group CLI$R_CLIFLAG_OVERLAY variant caseA LONG CLI$L_CLIFLAG ! CLI FLAG LONGWORD  case* group CLI$R_CLIFLAG_BITS. ! DEBUG QUALIFIER SEEN ( ! DEBUG WAS TRUE & ! VERIFY IS ON 5 ! THIS PROCESS IS A BATCH JOB : ! INDIRECT LEVEL NOT y EQUAL TO ZERO 5 ! UTILITY SHOULD VERFIY INPUT / ! ROUND UP TO NEXT BYTE 2 ! TERMINAL VERBOSITY LEVEL / ! ROUND UP TO NEXT BYTE ? ! DEBUGGER CALLED VIA "DEBUG" EXCEPTION n LONG DEBUG_bits ! COMMENT ADDED BY SDL - DEBUG_bits contains bits DEBUG through fill_63. end group CLI$R_CLIFLAG_BITSI ! THE FOLLOWING ARGUMENTS ARE OPTIONAL DEPENz DING ON INIARGCNT end variant( end group CLI$R_CLIFLAG_OVERLAYT LONG CLI$L_ARGLIST ! ADDRESS OF APPLICATION ARGUMENT LIST + ! (USED FOR MERGED IMAGE ARG. PASSING) ! 8 ! DEFINE CLI COMMAND INTERFACE REQUEST BLOCK !  end record CLIDEF 7 DECLARE LONG CONSTANT CLI$M_PARMREQ = x'00000001'6 DECLARE LONG CONSTANT CLI$M_ABSADR = x'00000002'6 DECLARE LONG CONSTANT CLI$M_EXPNAM = x'00000004'7 DECL { ARE LONG CONSTANT CLI$M_LASTVAL = x'00000001'5 DECLARE LONG CONSTANT CLI$M_DUMMY = x'00000002'7 DECLARE LONG CONSTANT CLI$M_PARMPRS = x'00000001'9 DECLARE LONG CONSTANT CLI$M_CONCATINP = x'00000002'7 DECLARE LONG CONSTANT CLI$M_MOREINP = x'00000004'7 DECLARE LONG CONSTANT CLI$M_PARMDEF = x'00000008'8 DECLARE LONG CONSTANT CLI$M_MOREVALS = x'00000001'7 DECLARE LONG CONSTANT CLI$M_KEYVALU = x'00000002'I DECLARE LONG CONSTANT CLI$K_REQDESC = 28 ! S| IZE OF THE STRUCTURE I DECLARE LONG CONSTANT CLI$C_REQDESC = 28 ! SIZE OF THE STRUCTURE  ! . DECLARE LONG CONSTANT CLI$S_CLIDEF1 = 28 record CLIDEF1# group CLI$R_FILL_3_OVERLAY variant case9 LONG CLIDEF$$_FILL_3 ! DUMMY ARG  case+ group CLI$R_FILL_3_FIELDS/ group CLI$R_RQTYPE_OVERLAY variant caseL } BYTE CLI$B_RQTYPE ! TYPE OF REQUEST BEING MADE  case2 group CLI$R_RQTYPE_BITS1 ! SUB TYPE VIELD 0 ! PRIMARY TYPYE y BYTE SUBTYP_bits ! COMMENT ADDED BY SDL - SUBTYP_bits contains bits SUBTYP through PRITYP6 end group CLI$R_RQTYPE_BITS# end variant3 end group ~ CLI$R_RQTYPE_OVERLAY0 group CLI$R_SERVCOD_OVERLAY variant caseC WORD CLI$W_SERVCOD ! CLI SERVICE CODE  case5 group CLI$R_SERVCOD_FIELDS8 group CLI$R_RQINDX_OVERLAY( variant% caseY BYTE CLI$B_RQINDX ! OFFSET FOR VAL  UE KEYWORD INDEX % case] BYTE CLI$B_BITNUM ! BIT TO SET IF REQUEST IS SUCESSFUL , end variant< end group CLI$R_RQINDX_OVERLAY8 group CLI$R_RQFLGS_OVERLAY( variant% caseY BYTE CLI$B_RQFLGS ! INPUT FLAGS CONCERNING REQUEST %  case< group CLI$R_RQFLGS_BITS0A ! PARAMATER IS REQUIRED D ! ALL ADDRESS ARE ABSOLUTE F ! RETURN EXPLICIT NAMES ONLY BYTE PARMREQ_bits ! COMMENT ADDED BY SDL - PARMREQ_bits contains bits PARMREQ through & ! fill_64@ end group CLI$R_RQFLGS_B ITS0% case< group CLI$R_RQFLGS_BITS1> ! LAST VALUE ALLOWED J ! *** SAVE PLACE FOR ABS ADR *** BYTE LASTVAL_bits ! COMMENT ADDED BY SDL - LASTVAL_bits contains bits LASTVAL through & ! fill_65@ end group CLI$R_RQFLGS_BITS1, end variant< end group CLI$R_RQFLGS_OVERLAY9 end group CLI$R_SERVCOD_FIELDS# end variant4 end group CLI$R_SERVCOD_OVERLAY/ group CLI$R_RQSTAT_OVERLAY variant caseE BYTE CLI$B_RQSTAT ! OUTPUT STATUS FLAGS  case3 group CLI$R_RQSTAT_BITS07 ! PARAMETER IS PRESENT = ! INPUT CONCATONATION EXISTS B ! ANOTHER SET OF INPUT PARAMETERS B ! PARAMETER WAS DEFAULTED PRESENT } BYTE PARMPRS_bits ! COMMENT ADDED BY SDL - PARMPRS_bits contains bits PARMPRS through fill_667 end group CLI$R_RQSTAT_BITS0 case3 group CLI$R_RQSTAT_BITS1< ! UNPROCESSED VALUES REMAIN D ! SUBSEQUENT TOKEN IS VALUE FOR KEY BYTE MOREVALS_bits ! COMMENT ADDED BY SDL - MOREVALS_bits contains bits MOREVALS through fill_677 end group CLI$R_RQSTAT_BITS1# end variant3 end group CLI$R_RQSTAT_OVERLAY/ end group CLI$R_FILL_3_FIELDS end variant' end group C LI$R_FILL_3_OVERLAYO LONG CLI$A_ERRACT ! ADDRESS OF ERROR ACTION ROUTINE # group CLI$R_RQDESC_OVERLAY variant caseN BASIC$QUADWORD CLI$Q_RQDESC ! QUADWORD REQUEST DESCRIPTOR  case+ group CLI$R_RQDESC_FIELDSK WORD CLI$W_RQSIZE ! RESULTANT SIZE OF PARAMETER H WORD CLIDEF$$_FILL_4 ! SPARE WORD IN DESCRIPTOR / group CLI$R_RQVALU_OVERLAY variant caseS LONG CLI$L_RQVALU ! ACTUAL VALUE IN VALUE CONVERSTION  caseP LONG CLI$A_RQADDR ! ADDRESS OF RESULTANT PARAMETER # end variant3 end group CLI$R_RQVALU_OVERLAY/ end group CLI$R_RQDESC_FIELDS end variant' end group CLI$R_RQDESC_OVERLAYP LONG CLI$A_PRSACT ! PARAMETER PRESENT ACTION ROUTINE O LONG CLI$A_ABSACT ! PARAMETER ABSENT ACTION ROUTINE E LONG CLI$A_QUALST ! ADDRESS OF QUALIFIERS F ! Define the Descriptor Used by Symbol and Logical-name Callbacks !  end record CLIDEF1 . DECLARE LONG CONSTANT CLI$S_CLIDEF2 = 36 record CLIDEF2( BYTE CLIDEF$$_FILL_8 ( 1 to 4 )K BASIC$QUADWORD CLI$Q_NAMDESC ! Log ical name or symbol name P BASIC$QUADWORD CLI$Q_VALDESC ! Equivalence name or symbol value I BASIC$QUADWORD CLI$Q_TABDESC ! Name of logical name tableC LONG CLI$L_ITMLST ! Address of item listL LONG CLI$L_ATTR ! Address of attribute longword ! ; ! Define the Descriptor Locations Used for the Old/New% ! Out-of-Band Character(s) Masks !  end record CLIDEF2 . DECLARE LONG CON STANT CLI$S_CLIDEF3 = 12 record CLIDEF3( BYTE CLIDEF$$_FILL_9 ( 1 to 4 )C LONG CLI$L_NEW_MASK ! Enable/disable mask L LONG CLI$L_OLD_MASK ! Previous enabled values mask  ! 5 ! Define the descriptor used for ATTACH callback !  end record CLIDEF3 - DECLARE LONG CONSTANT CLI$S_CLIDEF4 = 8 record CLIDEF4) BYTE CLIDEF$$_FILL_10 ( 1 to 4 )L LONG CLI$L_PID ! PID of "destination" process  ! 4 ! Define the descriptor used for SPAWN callback !  end record CLIDEF4 6 DECLARE LONG CONSTANT CLI$M_NOWAIT = x'00000001'8 DECLARE LONG CONSTANT CLI$M_NOCLISYM = x'00000002'8 DECLARE LONG CONSTANT CLI$M_NOLOGNAM = x'00000004'8 DECLARE LONG CONSTANT CLI$M_NOKEYPAD = x'00000008'6 DECLARE LONG CONSTANT CLI$M_NOTIFY = x'00000010'9 DECLARE LONG CONSTANT CLI$M_NOCONTROL = x'00000020'7 DECLARE LONG CONSTANT CL I$M_TRUSTED = x'00000040'8 DECLARE LONG CONSTANT CLI$M_AUTHPRIV = x'00000080'9 DECLARE LONG CONSTANT CLI$M_SUBSYSTEM = x'00000100'F DECLARE LONG CONSTANT CLI$K_SPAWN_VERSION = 1 ! Latest versionF DECLARE LONG CONSTANT CLI$C_SPAWN_VERSION = 1 ! Latest versionX DECLARE LONG CONSTANT CLI$K_SRVDESC = 84 ! Length of longest "service" callback X DECLARE LONG CONSTANT CLI$C_SRVDESC = 84 ! Length of longest "service" callback  ! . DECLARE LONG CONSTANT CLI$S_CLIDEF5 = 84 record CLIDEF5) BYTE CLIDEF$$_FILL_11 ( 1 to 4 )" group CLI$R_FLAGS_OVERLAY variant caseA BYTE CLI$B_FLAGS ! Flags ( as byte ) caseA WORD CLI$W_FLAGS ! Flags ( as word ) case( group CLI$R_FLAGS_BITS? ! Do not wait for subprocess completion ? ! Do not copy CLI symbols to subprocess A ! Do not copy logical names to subprocess ? ! Do not copy keypad state to subprocess4 ! Output notification messageC ! Do not put CR/LF in front of prompt stringC ! Allow spawn regardless of UAF CAPTIVE flag9 ! Propagate AUTHPRIV to subprocessC ! Copy protected subsystem IDs to subprocessq WORD NOWAIT_b its ! COMMENT ADDED BY SDL - NOWAIT_bits contains bits NOWAIT through fill_68, end group CLI$R_FLAGS_BITS end variant& end group CLI$R_FLAGS_OVERLAY9 BYTE CLIDEF$$_FILL_5 ( 1 to 2 ) ! Unused K LONG CLI$L_OUTPID ! PID of subprocess on return X LONG CLI$L_LSTSTATUS ! Address to store final subprocess status L BASIC$QUADWORD CLI$Q_CMDSTR ! Descriptor of command string L  BASIC$QUADWORD CLI$Q_INPUT ! Descriptor of input filespec M BASIC$QUADWORD CLI$Q_OUTPUT ! Descriptor of output filespec Q BASIC$QUADWORD CLI$Q_PRCNAM ! Descriptor of name for subprocess R LONG CLI$L_ASTADR ! Address of termination AST routine P LONG CLI$L_ASTPRM ! Address of AST routine parameter P BYTE CLI$B_EFN ! Event flag to set on termination E BYTE CLI$B_VE RSION ! Data structure version9 BYTE CLIDEF$$_FILL_6 ( 1 to 2 ) ! Unused J BASIC$QUADWORD CLI$Q_PROMPT ! Descriptor of prompt stringE BASIC$QUADWORD CLI$Q_CLI ! Descriptor of cli nameK BASIC$QUADWORD CLI$Q_TABLE ! Descriptor of cli table name ! P ! Define the length of the longest "supervisor-mode service" request block,K ! so that programs can allocate a fixed amount of space for the block. ! 0 ! DEFINE THE PARAMETER QUALIFIER DESCRIPTOR !  end record CLIDEF5 8 DECLARE LONG CONSTANT CLI$M_ALLOCCUR = x'00000001'6 DECLARE LONG CONSTANT CLI$M_QDUSRV = x'00000002'6 DECLARE LONG CONSTANT CLI$M_QDEXPA = x'00000004'7 DECLARE LONG CONSTANT CLI$M_QUALTRU = x'00000001'7 DECLARE LONG CONSTANT CLI$M_QUALEXP = x'00000002'S DECLARE LONG CONSTANT CLI$K_QUALDEF = 20 ! SIZE OF FIXED PART OF STRUCTURE S DECLARE LONG CONSTANT CLI$C_QUAL DEF = 20 ! SIZE OF FIXED PART OF STRUCTURE Z DECLARE LONG CONSTANT CLI$K_QDBITS = 20 ! START OF BIT LISTS ( VARIALBLE LENGTH ) Z DECLARE LONG CONSTANT CLI$C_QDBITS = 20 ! START OF BIT LISTS ( VARIALBLE LENGTH ) . DECLARE LONG CONSTANT CLI$S_CLIDEF6 = 24 record CLIDEF6G BYTE CLI$B_QDBLKSIZ ! SIZE OF THE FINAL BLOCK I BYTE CLI$B_QDCODE ! ID CODE FOR THE QUALIFIER # group CLI$R_QDFLGS_OVERLAY vari ant case: BYTE CLI$B_QDFLGS ! FLAGS BYTE  case) group CLI$R_QDFLGS_BITS7 ! TAKE ACTION ON ALL OCCURANCES 6 ! USER CONTEX VALUE IS PRESENT < ! TAKE ACTION ON EXPLICIT OCCURANCES w BYTE ALLOCCUR_bits ! COMMENT ADDED BY SDL - ALLOCCUR_bits contains bits ALLOCCUR through fill_69- end group CLI$R_QDFLGS_BITS end variant' end group CLI$R_QDFLGS_OVERLAY# group CLI$R_QDSTAT_OVERLAY variant case@ BYTE CLI$B_QDSTAT ! QUALIFIER STATUS  case) group CLI$R_QDSTAT_BITS+ ! QUALIFIER IS TRUE 5 ! QUALIFIER EXPLICITLY STATED t BYTE QUALTRU_bits ! COMMENT ADDED BY SDL - QUALTRU_bits contains bits QUALTRU through fill_70- end group CLI$R_QDSTAT_BITS end variant' end group CLI$R_QDSTAT_OVERLAY& group CLI$R_QDVALDESC_OVERLAY variant caseP BASIC$QUADWORD CLI$Q_QDVALDESC ! QUALIFIER VALUE DESCRIPTOR  case. group CLI$R_QDVALDESC_FIELDS= WORD CLI$W_QDVALSIZ ! SIZE OF VALUE : WORD CLIDEF$$_FILL_7 ! SPARE WORD G LONG CLI$A_QDVALADR ! ADDRESS OF VALUE STRING 2 end group CLI$R_QDVALDESC_FIELDS end variant* end group CLI$R_QDVALDESC_OVERLAYM LONG CLI$A_TRUACT ! QUALIFIER TRUE ACTION ROUTINE N LONG CLI$A_FLSACT ! QUALIFIER FALSE ACTION ROUTINE L LONG CLI$L_USRVAL ! OPTION USER VALUE IF PRESENT  ! 2 ! DEFINE SPACE FOR THE RESULT PARSE WORK AREA !  end record CLIDEF6 D DECLAR E LONG CONSTANT CLI$K_WORKAREA = 128 ! SIZE OF HEADER D DECLARE LONG CONSTANT CLI$C_WORKAREA = 128 ! SIZE OF HEADER  ! E DECLARE LONG CONSTANT CLI$K_UTILOPR = 0 ! UTILITY OPERATIONS U DECLARE LONG CONSTANT CLI$K_INPSPEC = 1 ! REQUEST FOR AN INPUT SPECIFICATION O DECLARE LONG CONSTANT CLI$K_OUTSPEC = 2 ! AN OUTPUT FILE SPECIFICATION I DECLARE LONG CONSTANT CLI$K_PARDONE = 3 ! PARAMETER DONE REQUEST M DECLARE LONG CONSTANT CLI$K_VALCONV = 4 ! RE QUEST A VALUE CONVERSION A DECLARE LONG CONSTANT CLI$K_CLINT = 5 ! CLINT OPERATIONS  ! R DECLARE LONG CONSTANT CLI$K_INITPRS = 0 ! REQUEST INITIALIZATION OF PARSE K DECLARE LONG CONSTANT CLI$K_GETCMD = 1 ! GET COMMAND BUFFER LIMITS M DECLARE LONG CONSTANT CLI$K_GETQUAL = 2 ! OPTAIN STATE OF QUALIFIERS G DECLARE LONG CONSTANT CLI$K_GETOPT = 3 ! DECODE COMMAND OPTION C DECLARE LONG CONSTANT CLI$K_GETLINE = 4 ! GET COMMAND LINE  ! O ! T HE CLISERV REQUEST TYPE APPEARS HERE, INSTEAD OF WITH THE OTHER REQUESTN ! TYPES, BECAUSE IT HAS NO SUBFUNCTIONS ASSOCIATED WITH IT, AND BECAUSE AL ! DAY 1 CODING ERROR CAUSES DCL TO EXPECT THAT THIS REQUEST NUMBER WILLL ! APPEAR IN THE SUBFUNCTION BITS. THIS MEANS THAT NO UTILITY OPERATION4 ! CAN BE DEFINED WITH THE SUBFUNCTION NUMBER 5. ! Q DECLARE LONG CONSTANT CLI$K_CLISERV = 5 ! REQUEST A SERVICE FROM THE CLI  ! @ DECLARE LONG CONSTANT CLI$K_INPUT1 = 16 ! PRIMARY INPUT B DECLARE LONG CONSTANT CLI$K_INPUT2 = 17 ! SECONDARY INPUT 9 DECLARE LONG CONSTANT CLI$K_INPUT3 = 18 ! THIRD, > DECLARE LONG CONSTANT CLI$K_INPUT4 = 19 ! ETC,ETC,ETC  ! @ DECLARE LONG CONSTANT CLI$K_OUTPUT1 = 32 ! FIRST OUTPUT A DECLARE LONG CONSTANT CLI$K_OUTPUT2 = 33 ! SECOND OUTPUT ; DECLARE LONG CONSTANT CLI$K_OUTPUT3 = 34 ! THIRD,- ? DECLARE LONG CONSTANT CLI$K_OUTPUT4 = 35 ! ETC,ETC,ETC  ! M DECLAR E LONG CONSTANT CLI$K_ENDPRM1 = 48 ! COMPLETED PARAMETER SET 1 M DECLARE LONG CONSTANT CLI$K_ENDPRM2 = 49 ! COMPLETED PARAMETER SET 2 M DECLARE LONG CONSTANT CLI$K_ENDPRM3 = 50 ! COMPLETED PARAMETER SET 3 M DECLARE LONG CONSTANT CLI$K_ENDPRM4 = 51 ! COMPLETED PARAMETER SET 4  ! C DECLARE LONG CONSTANT CLI$K_NUMERVAL = 64 ! NUMBERIC VALUE @ DECLARE LONG CONSTANT CLI$K_ASCIIVAL = 65 ! ASCII VALUE A DECLARE LONG CONSTANT CLI$K_KEYWORD = 66 ! KEY WORD VALUE E DECLARE LONG CONSTANT CLI$K_KEYVAL = 67 ! KEYWORD WITH VALUE G DECLARE LONG CONSTANT CLI$K_FILSPEC = 68 ! VALUE IS A FILESPEC  ! R DECLARE LONG CONSTANT CLI$K_PRESENT = 80 ! DETERMINE IF ENTITY IS PRESENT H DECLARE LONG CONSTANT CLI$K_GETVALUE = 81 ! GET VALUE OF ENTITY S DECLARE LONG CONSTANT CLI$K_ENDPARSE = 82 ! CLEAN UP AFTER PARSING COMMAND L DECLARE LONG CONSTANT CLI$K_DCLPARSE = 83 ! PARSE USER COMMAND LINE O DECLARE LO NG CONSTANT CLI$K_DISPATCH = 84 ! DISPATCH TO ACTION ROUTINE J DECLARE LONG CONSTANT CLI$K_NEXTQUAL = 85 ! PROCESS NEXT QUALIFIER ! / DECLARE LONG CONSTANT CLI$S_CLIDEF7 = 128 record CLIDEF7 variant caseJ LONG CLI$L_WORKAREA ( 1 to 32 ) ! ALLOCATE 32 LONG WORDS ' ! DEFINE CLI UTILITY REQUEST CODES ! < ! CODES ARE 8 BITS, CONSISTING OF 2 4 BIT FIELDS8 ! THE LEAST 4 BITS ARE SUBFUCTION DEFINITONS>  ! AND THE MOST SIGNIFICANT 4 BITS ARE REQUEST TYPE ! ! ! DEFINE REQUEST TYPE CODES 3 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! 5 ! DEFINE COMPLETE CODES FOR INPUT SPECIFICATIONS ! 6 ! DEFINE COMPLETE CODES FOR OUTPUT SPECIFICATIONS ! 9 ! DEFINE CODES FOR RESULT PARSE PARAMETER COMPLETION ! 1 ! DEFINE CODES FOR VALUE CONVERSION REQUESTS ! 3 ! DEFINE COMPLETE CODES FOR UTILITY OPERATIONS ! ( ! DEFINE SET CO DE SET REQUEST BLOCK !  end variant end record CLIDEF7 - DECLARE LONG CONSTANT CLI$S_CLIDEF8 = 8 record CLIDEF8) BYTE CLIDEF$$_FILL_12 ( 1 to 4 )= LONG CLI$L_CODESET ! CODE SET VALUE end record CLIDEF8  ww EPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ' ! DEFINE CLI SERVICE REQUEST CODES ! ! DEFINE CLI SERVICE CODES @ DECLARE LONG CONSTANT CLI$K_PAUSE = 1 ! PAUSE THE IMAGE V DECLARE LONG CONSTANT CLI$K_DEFLOCAL = 2 !  DEFINE A SYMBOL IN THE LOCAL TABLE X DECLARE LONG CONSTANT CLI$K_DEFGLOBAL = 3 ! DEFINE A SYMBOL IN THE GLOBAL TABLE T DECLARE LONG CONSTANT CLI$K_CHAIN = 4 ! PASS AN IMAGE TO RUN AFTER THIS ONE W DECLARE LONG CONSTANT CLI$K_COMMAND = 5 ! PASS A COMMAND LINE TO LATER EXECUTE P DECLARE LONG CONSTANT CLI$K_CREALOG = 6 ! DEFINE A PROCESS LOGICAL NAME P DECLARE LONG CONSTANT CLI$K_DELELOG = 7 ! DELETE A PROCESS LOGICAL NAME U DECLARE LONG CONSTANT CLI$K_DISA CTRLY = 8 ! DISABLE DCL CONTROL Y PROCESSING T DECLARE LONG CONSTANT CLI$K_ENABCTRLY = 9 ! ENABLE DCL CONTROL Y PROCESSING K DECLARE LONG CONSTANT CLI$K_GETSYM = 10 ! RETURN VALUE OF A SYMBOL I DECLARE LONG CONSTANT CLI$K_DELELCL = 11 ! DELETE A LOCAL SYMBOL J DECLARE LONG CONSTANT CLI$K_DELEGBL = 12 ! DELETE A GLOBAL SYMBOL W DECLARE LONG CONSTANT CLI$K_DISAOOB = 13 ! DISABLE OUT-OF-BAND CHARACTER ( S ) Y DECLARE LONG CONSTANT CLI$K_ENABOOB = 14 !  RE-ENABLE OUT-OF-BAND CHARACTER ( S ) D DECLARE LONG CONSTANT CLI$K_SPAWN = 15 ! SPAWN A SUBPROCESS F DECLARE LONG CONSTANT CLI$K_ATTACH = 16 ! ATTACH TO A PROCESS j DECLARE LONG CONSTANT CLI$K_LIBDEFLOCAL = 17 ! DEFINE A SYMBOL IN LOCAL TABLE USING LIB$SET_SYMBOLl DECLARE LONG CONSTANT CLI$K_LIBDEFGLOBAL = 18 ! DEFINE A SYMBOL IN GLOBAL TABLE USING LIB$SET_SYMBOL\ DECLARE LONG CONSTANT CLI$K_LIBGETSYM = 19 ! GET A SYMBOL VALUE USING LIB$GET_SYMBOL] DECL ARE LONG CONSTANT CLI$K_LIBDELELCL = 20 ! DELETE A SYMBOL USING LIB$DELETE_SYMBOLd DECLARE LONG CONSTANT CLI$K_LIBDELEGBL = 21 ! DELETE A GLOBAL SYMBOL USING LIB$DELETE_SYMBOLB DECLARE LONG CONSTANT CLI$K_SETCODESET = 22 ! SET CODE SET ! 9 ! Define local/global symbol flag returned by GETSYM ! A DECLARE LONG CONSTANT CLI$K_LOCAL_SYM = 1 ! Local symbol C DECLARE LONG CONSTANT CLI$K_GLOBAL_SYM = 2 ! Global symbol  ww  EPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! % ! DEFINE GENERIC CODES FOR VERBS ! ! ! DEFINE VERB QENERIC CODES = DECLARE LONG CONSTANT CLI$K_VERB_ALLO = 1 ! ALLOCATE < DECLARE LONG CONSTANT CLI$K_VERB_ANAL = 2 ! ANALIZE ; DECLARE LONG CONSTANT CLI$K_VERB_ASSI = 3 ! ASSIGN : DECLARE LONG CONSTANT CLI$K_VERB_BASI = 4 ! BASIC : DECLARE LONG CONSTANT CLI$K_VERB_BLIS = 5 ! BLISS : DECLARE LONG CONSTANT CLI$K_VERB_COBO = 6 ! COBOL = DECLARE LONG CONSTANT CLI$K_VERB_CONT = 7 ! CONTINUE 9 DECLARE LONG CONSTANT CLI$K_VERB_COPY = 8 ! COPY ; DECLARE LONG CONSTANT CLI$K_VERB_CREA = 9 ! CREATE : DECLARE LONG CONSTANT CLI$K_VERB_DATA = 10 ! DATA @ DE CLARE LONG CONSTANT CLI$K_VERB_DEAL = 11 ! DEALLOCATE > DECLARE LONG CONSTANT CLI$K_VERB_DEAS = 12 ! DEASSIGN ; DECLARE LONG CONSTANT CLI$K_VERB_DEBU = 13 ! DEBUG < DECLARE LONG CONSTANT CLI$K_VERB_DEFI = 14 ! DEFINE < DECLARE LONG CONSTANT CLI$K_VERB_DELE = 15 ! DELETE = DECLARE LONG CONSTANT CLI$K_VERB_DEPO = 16 ! DEPOSIT H DECLARE LONG CONSTANT CLI$K_VERB_DIFF = 17 ! DIFFERENCE COMMAND ? DECLARE LONG CONSTANT CLI$K_VERB_DIRE = 18 ! DIRECTO RY > DECLARE LONG CONSTANT CLI$K_VERB_DISM = 19 ! DISMOUNT : DECLARE LONG CONSTANT CLI$K_VERB_EDIT = 20 ! EDIT 8 DECLARE LONG CONSTANT CLI$K_VERB_EOD = 21 ! EOD = DECLARE LONG CONSTANT CLI$K_VERB_EXAM = 22 ! EXAMINE : DECLARE LONG CONSTANT CLI$K_VERB_EXIT = 23 ! EXIT = DECLARE LONG CONSTANT CLI$K_VERB_FORT = 24 ! FORTRAN : DECLARE LONG CONSTANT CLI$K_VERB_GOTO = 25 ! GOTO : DECLARE LONG CONSTANT CLI$K_VERB_HELP = 26 ! HELP 6 DECL ARE LONG CONSTANT CLI$K_VERB_IF = 27 ! IF @ DECLARE LONG CONSTANT CLI$K_VERB_INIT = 28 ! INITIALIZE = DECLARE LONG CONSTANT CLI$K_VERB_INQU = 29 ! INQUIRE : DECLARE LONG CONSTANT CLI$K_VERB_LINK = 30 ! LINK < DECLARE LONG CONSTANT CLI$K_VERB_LOGO = 31 ! LOGOUT ; DECLARE LONG CONSTANT CLI$K_VERB_MACR = 32 ! MACRO 8 DECLARE LONG CONSTANT CLI$K_VERB_MCR = 33 ! MCR 6 DECLARE LONG CONSTANT CLI$K_VERB_ON = 34 ! ON ; DECLARE LONG CONSTANT CLI$ K_VERB_PRIN = 35 ! PRINT 8 DECLARE LONG CONSTANT CLI$K_VERB_RUN = 36 ! RUN 8 DECLARE LONG CONSTANT CLI$K_VERB_SET = 37 ! SET : DECLARE LONG CONSTANT CLI$K_VERB_SHOW = 38 ! SHOW ; DECLARE LONG CONSTANT CLI$K_VERB_STAR = 39 ! START : DECLARE LONG CONSTANT CLI$K_VERB_STOP = 40 ! STOP < DECLARE LONG CONSTANT CLI$K_VERB_SUBM = 41 ! SUBMIT : DECLARE LONG CONSTANT CLI$K_VERB_TYPE = 42 ! TYPE ; DECLARE LONG CONSTANT CLI$K_VERB_MOUN = 43 ! MOU NT ; DECLARE LONG CONSTANT CLI$K_VERB_PATC = 44 ! PATCH < DECLARE LONG CONSTANT CLI$K_VERB_REPL = 45 ! REPLAY < DECLARE LONG CONSTANT CLI$K_VERB_UNLO = 46 ! UNLOCK D DECLARE LONG CONSTANT CLI$K_VERB_APPE = 47 ! APPEND COMMAND : DECLARE LONG CONSTANT CLI$K_VERB_DUMP = 48 ! DUMP ; DECLARE LONG CONSTANT CLI$K_VERB_PURG = 49 ! PURGE < DECLARE LONG CONSTANT CLI$K_VERB_RENA = 50 ! RENAME < DECLARE LONG CONSTANT CLI$K_VERB_CANC = 51 ! CANCEL = DECLARE LONG CONSTANT CLI$K_VERB_LIBR = 52 ! LIBRARY : DECLARE LONG CONSTANT CLI$K_VERB_SORT = 53 ! SORT = DECLARE LONG CONSTANT CLI$K_VERB_REQU = 54 ! REQUEST @ DECLARE LONG CONSTANT CLI$K_VERB_SYNC = 55 ! SYNCRONIZE ; DECLARE LONG CONSTANT CLI$K_VERB_CORA = 56 ! CORAL < DECLARE LONG CONSTANT CLI$K_VERB_PASC = 57 ! PASCAL 9 DECLARE LONG CONSTANT CLI$K_VERB_PLI = 58 ! PL/1 = DECLARE LONG CONSTANT CLI$K_VERB_MESS = 59 ! MESSAGE !  ! DEFINE VERB QENERIC CODES F DECLARE LONG CONSTANT CLI$K_VERB_FORE = 255 ! FOREIGN COMMAND  ww doFPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! E ! Security classification block. Contains secrecy and integrityN ! level and categories for non-discretionary (mandatory) access controls. !  ! -3 DECLARE LONG C ONSTANT CLS$S_CLSDEF_TLVRNG = 4O record CLSDEF_TLVRNG ! Range specifier field references> WORD CLS$W_RANGE_LOW ! Range low limit? WORD CLS$W_RANGE_HIGH ! Range high limit end record CLSDEF_TLVRNG > DECLARE LONG CONSTANT CLS$K_END = 0 ! List terminatorW DECLARE LONG CONSTANT CLS$K_SC_ENUMERATE = 1 ! Secrecy category enumerated listN DECLARE LONG CONSTANT CLS$K_SC_RANGE = 2 ! Secrecy category  range listJ DECLARE LONG CONSTANT CLS$K_SC_MASK = 3 ! Secrecy category bitmaskZ DECLARE LONG CONSTANT CLS$K_IC_ENUMERATE = 17 ! Integrity category enumerated listQ DECLARE LONG CONSTANT CLS$K_IC_RANGE = 18 ! Integirty category range listM DECLARE LONG CONSTANT CLS$K_IC_MASK = 19 ! Integrity category bitmask= DECLARE LONG CONSTANT CLS$K_VOID = 255 ! Voided entry0 DECLARE LONG CONSTANT CLS$S_CLSDEF_TLV = 8I record CLSDEF_TLV ! T LV entry field references variant case group CLS$R_TLV: BYTE CLS$B_TAG ! Format codeR group CLS$B_LENGTH ! Field length, intrepretation format variant ! dependent: caseO BYTE CLS$B_COUNT ! # entries in an enumerated list% ! # range pairs in a range list* ! # longwords following voided entry c aseJ BYTE CLS$B_MASK_SIZE ! # longwords in a bitmask end variant( end group CLS$B_LENGTH9 group CLS$R_VALUE_SET ! Value set. variant case- group CLS$R_CATLSTTLV] WORD CLS$W_CATLST ( 1 to 1 ) ! Vector of enumerated cat.1 end group CLS$R_CATLSTTLV case- group CLS$R_RNGLSTTLV* WORD CLS$W_RSVD[ LONG CLS$L_RNGLST ( 1 to 1 ) ! Vector of high:low word ! range pairs1 end group CLS$R_RNGLSTTLV case* group CLS$R_MSKTLV9 WORD CLS$W_BASE ! Bias valueS LONG CLS$L_MASK ( 1 to 1 ) ! <32 * MASK_SIZE> bit mask. end group CLS$R_MSKTLV case* group CLS$R_ENDTLV5 WORD CLS$W_RSVD ( 1 to 3 ). end group CLS$R_ENDTLV case+ group CLS$R_VOIDTLVO WORD CLS$W_VOID ( 1 to 1 ) ! words/ end group CLS$R_VOIDTLV end variant+ end group CLS$R_VALUE_SET" end group CLS$R _TLV end variant end record CLSDEF_TLV L DECLARE LONG CONSTANT CLS$K_MIN_SEC_LEV = 0 ! Minimum secrecy level N DECLARE LONG CONSTANT CLS$K_MIN_INT_LEV = 0 ! Minimum integrity level N DECLARE LONG CONSTANT CLS$K_MAX_SEC_LEV = 255 ! Maximum secrecy level P DECLARE LONG CONSTANT CLS$K_MAX_INT_LEV = 255 ! Maximum integrity level O DECLARE LONG CONSTANT CLS$K_MIN_SEC_CAT = 1 ! Minimum secrecy category Q DECLARE LONG CONSTANT CLS$K_MIN_IN T_CAT = 1 ! Minimum integrity category ] DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT = 65536 ! Maximum supported secrecy category _ DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT = 65536 ! Maximum supported integrity category ^ DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_S64I64 = 64 ! Maximum type 0 secrecy category ` DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT_S64I64 = 64 ! Maximum type 0 integrity category ] DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_S128 = 128 ! Maximum type  1 secrecy category b DECLARE LONG CONSTANT CLS$K_MAX_SEC_CAT_DYN_CAT = 65536 ! Maximum type 2 secrecy category d DECLARE LONG CONSTANT CLS$K_MAX_INT_CAT_DYN_CAT = 65536 ! Maximum type 2 integrity category R DECLARE LONG CONSTANT CLS$K_TYP_S64I64 = 0 ! Type 0 class block identifierP DECLARE LONG CONSTANT CLS$K_TYP_S128 = 1 ! Type 1 class block identifierS DECLARE LONG CONSTANT CLS$K_TYP_DYN_CAT = 2 ! Type 2 class blook identifierT DECLARE LONG CONSTANT CL S$K_LENGTH_S64I64 = 20 ! Size of type 0 class blockR DECLARE LONG CONSTANT CLS$K_LENGTH_S128 = 20 ! Size of type 1 class block4 DECLARE LONG CONSTANT CLS$K_LENGTH_DYN_CAT = 8" ! Size of type 2 class blockE DECLARE LONG CONSTANT CLS$K_LENGTH = 20 ! length of structure- DECLARE LONG CONSTANT CLS$S_CLSDEF = 20 record CLSDEF variant case% group CLS$R_SEVMS_DEFS< BYTE CLS$B_SEC_LEV ! Secrecy lev el> BYTE CLS$B_INT_LEV ! Integrity level? BYTE CLS$B_TYPE ! Class block type# ! Class block type identifiersO BYTE CLS$B_TLVLST_SIZE ! Size in longwords of TLV list in ! a type 2 class block.Q group CLS$R_CLSDEF_X ! Type dependent overlays/extensions variant ! M ! Usage of the ..._S64I64 and ..._S128 symbolic name forms is preferred.O ! Previous name forms have been retained for backwards compatibility only. !  caseO group CLS$R_CLSDEF_S64I64 ! Type 0 class block fieldsY BASIC$QUADWORD CLS$Q_SEC_CAT_S64I64 ! Secrecy category mask[ BASIC$QUADWORD CLS$Q_INT_CAT_S64I64 ! Integrity category mask5 end group CLS$R_CLSDEF_S64I64 caseM group CLS$R_CLSDEF_S128 ! Ty pe 1 class block fieldsW BASIC$OCTAWORD CLS$O_SEC_CAT_S128 ! Secrecy category mask3 end group CLS$R_CLSDEF_S128 caseP group CLS$R_CLSDEF_DYN_CAT ! Type 2 class block fieldsU LONG CLS$L_TLVLST ( 1 to 1 ) ! Tag-Length-Value_set list ! fixed portion6 end group CLS$R_CLSDEF_DYN_CAT ! n ! The following definitions have been superse ded and are being retained for backwards compatibility only.H ! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. !  caseJ group CLS$R_CLSDEF_0 ! Type 0 class block fields BASIC$QUADWORD CLS$Q_SEC_CAT_0 ! Secrecy category mask - Usage of CLS$Q_SEC_CAT_S64I64 preferred BASIC$QUADWORD CLS$Q_INT_CAT_0 ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred 0 end group CLS$R_CLSDEF_0 caseJ group CLS$R_CLSDEF_1 ! Type 1 class block fields| BASIC$OCTAWORD CLS$O_SEC_CAT_1 ! Secrecy category mask - Usage of CLS$O_SEC_CAT_S128 preferred0 end group CLS$R_CLSDEF_1 end variant* end group CLS$R_CLSDEF_X) end group CLS$R_SEVMS_DEFS ! n ! The following definitions have been s uperseded and are being retained for backwards compatibility only.H ! Usage of the ..._S64I64 and ..._S128 symbolic names is preferred. !  case# group CLS$R_VMS_DEFS` BYTE CLS$B_SECUR_LEV ! Security level - Usage of CLS$B_SEC_LEV preferreda BYTE CLS$B_INTEG_LEV ! Integrity level - Usage of CLS$B_INT_LEV preferred7 WORD CLS$W_FILL_1 ! Reserved BASIC$QUADWORD CLS$Q_SECUR _CAT ! Security category mask - Usage of CLS$Q_SEC_CAT_S64I64/CLS$O_SEC_CAT_S128 & ! preferredv BASIC$QUADWORD CLS$Q_INTEG_CAT ! Integrity category mask - Usage of CLS$Q_INT_CAT_S64I64 preferred' end group CLS$R_VMS_DEFS end variant end record CLSDEF  ! J ! $CHANGE_CLASS, PARSE_CLASS, FORMAT_CLASS system service item codes ! O DECLARE LONG CONSTANT CLS$_SECSTR = 1 ! Textual secrecy/security stringH DECLARE  LONG CONSTANT CLS$_INTSTR = 2 ! Textual integrity stringK DECLARE LONG CONSTANT CLS$_CLSBLK = 3 ! Simple classification blockO DECLARE LONG CONSTANT CLS$_MINCLSBLK = 4 ! Minimum classification blockO DECLARE LONG CONSTANT CLS$_MAXCLSBLK = 5 ! Maximum classification blockQ DECLARE LONG CONSTANT CLS$_WIDTH = 6 ! Width of display for $FORMAT_CLASSQ DECLARE LONG CONSTANT CLS$_TRMDSC = 7 ! Line terminator for $FORMAT_CLASSP DECLARE LONG CONSTANT CLS$_IND ENT = 8 ! Line indenting for $FORMAT_CLASSP DECLARE LONG CONSTANT CLS$_OLDCLSBLK = 9 ! Previous classification blockP DECLARE LONG CONSTANT CLS$_OLDMINCLS = 10 ! Previous minimum class blockP DECLARE LONG CONSTANT CLS$_OLDMAXCLS = 11 ! Previous maximum class blockj DECLARE LONG CONSTANT CLS$_TRANQUIL = 12 ! Override tranquility checks - Usage reserved to DigitalH DECLARE LONG CONSTANT CLS$_FLAGS = 13 ! Formatting control flags) ! ADD ITEM-CODES BEFORE THI S COMMENT2 DECLARE LONG CONSTANT CLS$_MIN_ITEM_CODE = 13 DECLARE LONG CONSTANT CLS$_MAX_ITEM_CODE = 138 DECLARE LONG CONSTANT CLS$M_COMPRESS = x'00000001'6 DECLARE LONG CONSTANT CLS$M_EXPAND = x'00000002'- DECLARE LONG CONSTANT CLS$s_fill_71 = 4 record fill_71 variant caseJ LONG CLS$L_FLAGS ! $FORMAT_CLASS control flags case" group CLS$r_fill_725 ! Compress categor y range strings4 ! Expande category range stringst BYTE COMPRESS_bits ! COMMENT ADDED BY SDL - COMPRESS_bits contains bits COMPRESS through fill_73& end group CLS$r_fill_72 end variant end record fill_71  ww @FPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  I DECLARE LONG CONSTANT CLUEVTHNDL$K_LENGTH = 8 ! Length of block. I DECLARE LONG CONSTANT CLUEVTHNDL$C_LENGTH = 8 ! Length of block. 7 DECLARE LONG CONSTANT cluevthndl$S_CLUEVTHNDL = 8  record CLUEVTHNDL& LONG cluevthndl$l_cluacb_addr" LONG cluevthndl$l_seq_num end record CLUEVTHNDL , DECLARE LONG CONSTANT CLUEVT$C_ADD = 1/ DECLARE LONG CONSTANT CLUEVT$C_REMOVE = 2 ww  %FPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +$ ! $CREMBX FLAGS bit definitions ! -8 DECLARE LONG CONSTANT CMB$M_READONLY = x'00000001'9 DECLARE LONG CONSTANT CMB$M_WRITEONLY = x'00000002', DECLARE LONG CONSTANT CMB$S_CMBDEF = 4 record CMBDEF variant case& group CMB$R_CMBDEF_BITSE ! Channel to be assigned to mailbox is READ ONLY.F ! Channel to be assigned to mailbox is WRITE ONLY.s LONG READONLY_bits ! COMMENT ADDED BY SDL - READONLY_bits contains bits READONLY through FILL_0* end group CMB$R_CMBDEF_BITS end variant end record CMBDEF  ww NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! CARD READER STATUS BITS ! -4 DECLARE LONG CONSTANT CR$M_TMODE = x'0000000F'I DECLARE LONG CONSTANT CR$K_T026 = 0 ! 026 PUNCH CODE TRANSLATION I DECLARE LONG CONSTAN T CR$K_T029 = 1 ! 029 PUNCH CODE TRANSLATION * DECLARE LONG CONSTANT CR$S_CRDEF = 1 record CRDEF variant case$ group CR$R_CRDEF_BITS' ! TRANSLATION MODE k BYTE TMODE_bits ! COMMENT ADDED BY SDL - TMODE_bits contains bits TMODE through fill_74( end group CR$R_CRDEF_BITS ! # ! TRANSLATION MODE DEFINITIONS !  !  end variant end record CRDEF  ww 5GPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! $SCHED function codesM DECLARE LONG CONSTANT CSH$_READ_ALL = 23 ! Read data on all processesM DECLARE LONG CONSTANT CSH$_READ_NEW = 24 ! Read data on new processesW DECLARE LONG CONSTANT CSH$_SET_CLASS = 25 ! Place process ( es ) into class(es)* DECLARE LONG CONSTANT CSH$_RES1 = 26* DECLARE LONG CONSTANT CSH$_RES2 = 27* DECLARE LONG CONSTANT CSH$_RES3 = 28* DECLARE LONG CONSTANT CSH$_RES4 = 29N DECLARE LONG CONSTANT CSH$_SET_NEW = 30 ! Define this process as "new"G DECLARE LONG CONSTANT CSH$_SET_TIMEOUT = 31 ! Set deadman timer* DECLARE LONG CONSTANT CSH$_RES5 = 32* DECLARE LONG CONSTANT CSH$_RES6 = 33* DECLARE LO NG CONSTANT CSH$_RES7 = 34* DECLARE LONG CONSTANT CSH$_RES8 = 35T DECLARE LONG CONSTANT CSH$_READ_QUANT = 36 ! Read per-class quanta remainingK DECLARE LONG CONSTANT CSH$_SET_QUANT = 37 ! Define per-class quanta* DECLARE LONG CONSTANT CSH$_RES9 = 38* DECLARE LONG CONSTANT CSH$_RESA = 39* DECLARE LONG CONSTANT CSH$_RESB = 40* DECLARE LONG CONSTANT CSH$_RESC = 41N DECLARE LONG CONSTANT CSH$_SET_ATTN_AST = 42 ! Establish attention AST* DECLARE LONG CONSTANT CSH$_RSED = 43* DECLARE LONG CONSTANT CSH$_RESE = 44* DECLARE LONG CONSTANT CSH$_RESF = 45* DECLARE LONG CONSTANT CSH$_RES0 = 46L DECLARE LONG CONSTANT CSH$_CLEAR_ATTN_AST = 47 ! Clear attention AST4 DECLARE LONG CONSTANT CSH$_MAX_SCHED_FUNC = 48 ! AST reason maskG DECLARE LONG CONSTANT CSH$V_NEW_PROC = 1 ! Possible new process+ ! CSHC -- Class ScHeduler Class block  ! N ! Used to communicate from user to system, defining pro cess/class mapping- DECLARE LONG CONSTANT CSHC$K_LENGTH = 8- DECLARE LONG CONSTANT CSHC$C_LENGTH = 8+ DECLARE LONG CONSTANT CSHC$S_CSHC = 8 record CSHCE LONG CSHC$L_EPID ! EPID of target processP WORD CSHC$W_CLASS ! Class number, 0-N, %X'FFFF' means% ! `Take out of class scheduling'F WORD CSHC$W_WINDFALL ! Windfall ticks to grant end record CSHC 7 ! CSHP -- Class ScHedul er data block for Processes ! O ! Used to communicate from system to user, showing various characteristics ! of processes.. DECLARE LONG CONSTANT CSHP$K_LENGTH = 24. DECLARE LONG CONSTANT CSHP$C_LENGTH = 24, DECLARE LONG CONSTANT CSHP$S_CSHP = 24 record CSHP@ LONG CSHP$L_STATUS ! Copy of PCB$L_STSA WORD CSHP$W_PIX ! Process index slotM BYTE CSHP$B_PRI ! Current priority ( i nternal )R BYTE CSHP$B_PRIB ! Current base priority ( internal )? LONG CSHP$L_EPID ! The official PIDF STRING CSHP$T_ACCOUNT = 8 ! Account string from PCB? LONG CSHP$L_CPUTIM ! CPU time charged end record CSHP  ww `(IPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! DEVICE ADAPTER, CLASS, AND TYPE DEFINITIONS !  !  ! DEFINE ADAPTER TYPESO ! When adding a new adapter type, make sure a corresponding entry is addedS ! to the ADP_TB L_UP and ADP_TBL_DWN tables in any affected [SYSLOA]ERRSUB*.MAR ! modules. !  ! DEFINE ADAPTER TYPES ? DECLARE LONG CONSTANT AT$_MBA = 0 ! MASSBUS ADAPTER > DECLARE LONG CONSTANT AT$_UBA = 1 ! UNIBUS ADAPTER < DECLARE LONG CONSTANT AT$_DR = 2 ! DR32 ADAPTER A DECLARE LONG CONSTANT AT$_MPM = 3 ! MULTI-PORT MEMORY 6 DECLARE LONG CONSTANT AT$_CI = 4 ! CI BUS J DECLARE LONG CONSTANT AT$_NULL = 5 ! NULL ( SOFTWARE ) AD APTER H DECLARE LONG CONSTANT AT$_BDA = 6 ! BI DISK ADAPTER ( KDB50 )< DECLARE LONG CONSTANT AT$_DMB32 = 7 ! DMB32 ADAPTER< DECLARE LONG CONSTANT AT$_DRB32 = 8 ! DRB32 ADAPTERB DECLARE LONG CONSTANT AT$_BVP = 9 ! BVP GENERIC ADAPTERI DECLARE LONG CONSTANT AT$_BVP_SSP = 10 ! BVP STORAGE SYSTEMS PORT< DECLARE LONG CONSTANT AT$_BVP_NIP = 11 ! BVP NI PORT= DECLARE LONG CONSTANT AT$_KA410 = 12 ! VAXstar systemC DECLARE LONG CONSTANT AT $_KA420 = 12 ! PVAX/CVAXstar system@ DECLARE LONG CONSTANT AT$_GENBI = 13 ! Generic BI device: DECLARE LONG CONSTANT AT$_NBI = 14 ! NBIB on BI.* DECLARE LONG CONSTANT AT$_DISK9 = 15( DECLARE LONG CONSTANT AT$_XBI = 16* DECLARE LONG CONSTANT AT$_TERM9 = 17* DECLARE LONG CONSTANT AT$_TAPE9 = 18* DECLARE LONG CONSTANT AT$_PRTR9 = 19* DECLARE LONG CONSTANT AT$_SFUN9 = 20* DECLARE LONG CONSTANT AT$_USER9 = 21+ DECLARE LONG CONSTANT AT$_MB USIO = 22, DECLARE LONG CONSTANT AT$_MBUSGFX = 23* DECLARE LONG CONSTANT AT$_KA640 = 24+ DECLARE LONG CONSTANT AT$_XWATCH = 251 DECLARE LONG CONSTANT AT$_XBI_PLUS_XMI = 260 DECLARE LONG CONSTANT AT$_XBI_PLUS_BI = 27( DECLARE LONG CONSTANT AT$_XJA = 28* DECLARE LONG CONSTANT AT$_HSX50 = 29* DECLARE LONG CONSTANT AT$_KDM70 = 29' DECLARE LONG CONSTANT AT$_NI = 30) DECLARE LONG CONSTANT AT$_KA43 = 31( DECLARE LONG CONSTANT AT$_SJA = 32 + DECLARE LONG CONSTANT AT$_GENXMI = 33* DECLARE LONG CONSTANT AT$_KA440 = 34) DECLARE LONG CONSTANT AT$_KA46 = 34* DECLARE LONG CONSTANT AT$_KA520 = 35* DECLARE LONG CONSTANT AT$_KA550 = 35( DECLARE LONG CONSTANT AT$_XSA = 36( DECLARE LONG CONSTANT AT$_XZA = 37- DECLARE LONG CONSTANT AT$_XZA_SCSI = 37( DECLARE LONG CONSTANT AT$_VME = 38( DECLARE LONG CONSTANT AT$_IOP = 39) DECLARE LONG CONSTANT AT$_LAMB = 40) DECLARE LONG CON STANT AT$_KA49 = 41' DECLARE LONG CONSTANT AT$_TC = 42* DECLARE LONG CONSTANT AT$_X1303 = 43* DECLARE LONG CONSTANT AT$_CIMNA = 52- DECLARE LONG CONSTANT AT$_XZA_DSSI = 53* DECLARE LONG CONSTANT AT$_DEMNA = 54) DECLARE LONG CONSTANT AT$_KA4A = 59* DECLARE LONG CONSTANT AT$_KA600 = 60+ DECLARE LONG CONSTANT AT$_SCSI_B = 61* DECLARE LONG CONSTANT AT$_TT600 = 62* DECLARE LONG CONSTANT AT$_KA560 = 63 !  ! DEFINE DEVICE CLASSES !  ! DEFINE DEVICE CLASSES 4 DECLARE LONG CONSTANT DC$_DISK = 1 ! DISK 5 DECLARE LONG CONSTANT DC$_TAPE = 2 ! TAPES R DECLARE LONG CONSTANT DC$_SCOM = 32 ! SYNCHRONOUS COMMUNICATIONS DEVICES ; DECLARE LONG CONSTANT DC$_CARD = 65 ! CARD READER 8 DECLARE LONG CONSTANT DC$_TERM = 66 ! TERMINAL < DECLARE LONG CONSTANT DC$_LP = 67 ! LINE PRINTER A DECLARE LONG CONSTANT DC$_WORKSTATION = 70 ! WORKSTATIONS< DECLARE LONG CONSTAN T DC$_REALTIME = 96 ! REAL-TIME C DECLARE LONG CONSTANT DC$_DECVOICE = 97 ! DECVOICE products< DECLARE LONG CONSTANT DC$_AUDIO = 98 ! General audio< DECLARE LONG CONSTANT DC$_VIDEO = 99 ! General video> DECLARE LONG CONSTANT DC$_BUS = 128 ! BUSES, E.G, CI : DECLARE LONG CONSTANT DC$_MAILBOX = 160 ! MAILBOX O DECLARE LONG CONSTANT DC$_REMCSL_STORAGE = 170 ! REMOTE CONSOLE STORAGEE DECLARE LONG CONSTANT DC$_MISC = 200 ! MISCELLANEOUS DEVICES  ! . ! DEFINE DEVICE TYPES  !  !  ! DISK DEVICES ! 8 DECLARE LONG CONSTANT DT$_RK06 = 1 ! RK06 DISK 8 DECLARE LONG CONSTANT DT$_RK07 = 2 ! RK07 DISK 8 DECLARE LONG CONSTANT DT$_RP04 = 3 ! RP04 DISK 8 DECLARE LONG CONSTANT DT$_RP05 = 4 ! RP05 DISK 8 DECLARE LONG CONSTANT DT$_RP06 = 5 ! RP06 DISK 8 DECLARE LONG CONSTANT DT$_RM03 = 6 ! RM03 DISK 8 DECLARE LONG CONSTANT DT$_RP07 = 7 ! RP07 DIS K H DECLARE LONG CONSTANT DT$_RP07HT = 8 ! RP07 DISK WITH HEAD/TRACK 8 DECLARE LONG CONSTANT DT$_RL01 = 9 ! RL01 DISK 8 DECLARE LONG CONSTANT DT$_RL02 = 10 ! RL02 DISK 8 DECLARE LONG CONSTANT DT$_RX02 = 11 ! RX02 DISK 8 DECLARE LONG CONSTANT DT$_RX04 = 12 ! RX04 DISK 8 DECLARE LONG CONSTANT DT$_RM80 = 13 ! RM80 DISK 3 DECLARE LONG CONSTANT DT$_TU58 = 14 ! TU58 8 DECLARE LONG CONSTANT DT$_RM05 = 15 ! RM05 DISK 8 DECLARE LONG CONSTAN T DT$_RX01 = 16 ! RX01 DISK 8 DECLARE LONG CONSTANT DT$_ML11 = 17 ! ML11 disk ; DECLARE LONG CONSTANT DT$_RB02 = 18 ! R02 ON RB730 ; DECLARE LONG CONSTANT DT$_RB80 = 19 ! R80 ON RB730 L DECLARE LONG CONSTANT DT$_RA80 = 20 ! R80 ON INTELLIGENT CONTROLLER L DECLARE LONG CONSTANT DT$_RA81 = 21 ! R81 ON INTELLIGENT CONTROLLER N DECLARE LONG CONSTANT DT$_RA60 = 22 ! PINON ON INTELLIGENT CONTROLLER K DECLARE LONG CONSTANT DT$_RZ01 = 23 ! AZTEC REMO VABLE ( Old name )K DECLARE LONG CONSTANT DT$_RC25 = 23 ! AZTEC REMOVABLE ( New name )G DECLARE LONG CONSTANT DT$_RZF01 = 24 ! AZTEC FIXED ( Old name )G DECLARE LONG CONSTANT DT$_RCF25 = 24 ! AZTEC FIXED ( New name )C DECLARE LONG CONSTANT DT$_RD51 = 25 ! RD51 FIXED DISK DRIVED DECLARE LONG CONSTANT DT$_RX50 = 26 ! RX50 FLOPPY DISK DRIVEC DECLARE LONG CONSTANT DT$_RD52 = 27 ! RD52 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD53 = 28 ! RD 53 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD26 = 29 ! RD26 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RA82 = 30 ! RA82 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD31 = 31 ! RD31 FIXED DISK DRIVEC DECLARE LONG CONSTANT DT$_RD54 = 32 ! RD54 FIXED DISK DRIVE: DECLARE LONG CONSTANT DT$_CRX50 = 33 ! Console RX503 DECLARE LONG CONSTANT DT$_RRD50 = 34 ! RRD50? DECLARE LONG CONSTANT DT$_GENERIC_DU = 35 ! Brand X DiskA DECLARE LONG CONST ANT DT$_RX33 = 36 ! RX33 DISKETTE DRIVE2 DECLARE LONG CONSTANT DT$_RX18 = 37 ! RX18) DECLARE LONG CONSTANT DT$_RA70 = 38) DECLARE LONG CONSTANT DT$_RA90 = 39) DECLARE LONG CONSTANT DT$_RD32 = 40* DECLARE LONG CONSTANT DT$_DISK9 = 41) DECLARE LONG CONSTANT DT$_RX35 = 42) DECLARE LONG CONSTANT DT$_RF30 = 43) DECLARE LONG CONSTANT DT$_RF70 = 44) DECLARE LONG CONSTANT DT$_RF71 = 44) DECLARE LONG CONSTANT DT$_RD33 = 45* DECLARE LONG CONSTANT DT$_ESE20 = 46) DECLARE LONG CONSTANT DT$_TU56 = 47) DECLARE LONG CONSTANT DT$_RZ22 = 48) DECLARE LONG CONSTANT DT$_RZ23 = 49) DECLARE LONG CONSTANT DT$_RZ24 = 50) DECLARE LONG CONSTANT DT$_RZ55 = 51+ DECLARE LONG CONSTANT DT$_RRD40S = 52* DECLARE LONG CONSTANT DT$_RRD40 = 53/ DECLARE LONG CONSTANT DT$_GENERIC_DK = 54) DECLARE LONG CONSTANT DT$_RX23 = 55) DECLARE LONG CONSTANT DT$_RF31 = 56) DECLARE LONG CONSTANT DT$_RF72 = 57- DECLARE LONG CONSTANT DT$_RAM_DISK = 58) DECLARE LONG CONSTANT DT$_RZ25 = 59) DECLARE LONG CONSTANT DT$_RZ56 = 60) DECLARE LONG CONSTANT DT$_RZ57 = 61* DECLARE LONG CONSTANT DT$_RX23S = 62* DECLARE LONG CONSTANT DT$_RX33S = 63) DECLARE LONG CONSTANT DT$_RA92 = 64, DECLARE LONG CONSTANT DT$_SSTRIPE = 65* DECLARE LONG CONSTANT DT$_RZ23L = 66) DECLARE LONG CONSTANT DT$_RX26 = 67* DECLARE LONG CONSTANT DT$_RZ57I = 68) DECLARE LONG CONSTANT DT$_RZ31 = 69) DECLARE LONG CONSTANT DT$_RZ58 = 70, DECLARE LONG CONSTANT DT$_SCSI_MO = 71* DECLARE LONG CONSTANT DT$_RWZ01 = 71* DECLARE LONG CONSTANT DT$_RRD42 = 720 DECLARE LONG CONSTANT DT$_CD_LOADER_1 = 73* DECLARE LONG CONSTANT DT$_ESE25 = 74* DECLARE LONG CONSTANT DT$_RFH31 = 75* DECLARE LONG CONSTANT DT$_RFH72 = 76) DECLARE LONG CONSTANT DT$_RF73 = 77* DECLARE LONG CONSTANT DT$_RFH73 = 78) DECLARE LONG CONSTANT DT$_RA72 = 79) DECLARE LONG CONSTANT DT$_RA71 = 80* DECLARE LONG CONSTANT DT$_RAH72 = 80) DECLARE LONG CONSTANT DT$_RF32 = 81) DECLARE LONG CONSTANT DT$_RF35 = 81* DECLARE LONG CONSTANT DT$_RFH32 = 82* DECLARE LONG CONSTANT DT$_RFH35 = 82* DECLARE LONG CONSTANT DT$_RFF31 = 83* DECLARE LONG CONSTANT DT$_RF31F = 83) DECLARE LONG CONSTANT DT$_RZ72 = 84) DECLARE LONG CONSTANT DT$_RZ73 = 85) DECLARE LONG CONSTANT DT$_RZ35 = 86* DECLARE LONG CONSTANT DT$_RZ24L = 87* DECLARE LONG CONSTANT DT$_RZ25L = 88* DECLARE LONG CONSTANT DT$_RZ55L = 89* DECLARE LONG CONSTANT DT$_RZ56L = 90* DECLARE LONG CONSTANT DT$_RZ57L = 91) DECLARE LONG CONSTANT DT$_RA73 = 92) DECLARE LONG CONSTANT DT$_RZ26 = 93) DECLARE LONG CONSTANT DT$_RZ36 = 94) DECLARE LONG CONSTANT DT$_RZ74 = 95* DECLARE LONG CONSTANT DT$_ESE52 = 96* DECLARE LONG CONSTANT DT$_ESE56 = 97* DECLARE LONG CONSTANT DT$_ESE58 = 98) DECLARE LONG CONSTANT DT$_RZ27 = 99* DECLARE LONG CONSTANT DT$_RZ37 = 100+ DECLARE LONG CONSTANT DT$_RZ34L = 101+ DECLARE LONG CONSTANT DT$_RZ35L = 102+ DECLARE LONG CONSTANT DT$_RZ36L = 103* DECLARE LONG CONSTANT DT$_RZ38 = 104* DECLARE LONG CONSTANT DT$_RZ75 = 105* DECLARE LONG CONSTANT DT$_RZ59 = 106* DECLARE LONG CONSTANT DT$_RZ13 = 107* DECLARE LONG CONSTANT DT$_RZ14 = 108* DECLARE LONG CONSTANT DT $_RZ15 = 109* DECLARE LONG CONSTANT DT$_RZ16 = 110* DECLARE LONG CONSTANT DT$_RZ17 = 111* DECLARE LONG CONSTANT DT$_RZ18 = 112* DECLARE LONG CONSTANT DT$_EZ51 = 113* DECLARE LONG CONSTANT DT$_EZ52 = 114* DECLARE LONG CONSTANT DT$_EZ53 = 115* DECLARE LONG CONSTANT DT$_EZ54 = 116* DECLARE LONG CONSTANT DT$_EZ58 = 117* DECLARE LONG CONSTANT DT$_EF51 = 118* DECLARE LONG CONSTANT DT$_EF52 = 119* DECLARE LONG CONSTANT DT$_EF53 = 120* DE CLARE LONG CONSTANT DT$_EF54 = 121* DECLARE LONG CONSTANT DT$_EF58 = 122* DECLARE LONG CONSTANT DT$_RF36 = 123* DECLARE LONG CONSTANT DT$_RF37 = 124* DECLARE LONG CONSTANT DT$_RF74 = 125* DECLARE LONG CONSTANT DT$_RF75 = 126+ DECLARE LONG CONSTANT DT$_HSZ10 = 127* DECLARE LONG CONSTANT DT$_RZ28 = 128A DECLARE LONG CONSTANT DT$_FD1 = 129 ! FOREIGN DISK TYPE 1A DECLARE LONG CONSTANT DT$_FD2 = 130 ! FOREIGN DISK TYPE 2A DECLARE LONG CONST ANT DT$_FD3 = 131 ! FOREIGN DISK TYPE 3A DECLARE LONG CONSTANT DT$_FD4 = 132 ! FOREIGN DISK TYPE 4A DECLARE LONG CONSTANT DT$_FD5 = 133 ! FOREIGN DISK TYPE 5A DECLARE LONG CONSTANT DT$_FD6 = 134 ! FOREIGN DISK TYPE 6A DECLARE LONG CONSTANT DT$_FD7 = 135 ! FOREIGN DISK TYPE 7A DECLARE LONG CONSTANT DT$_FD8 = 136 ! FOREIGN DISK TYPE 8* DECLARE LONG CONSTANT DT$_RZ29 = 137+ DECLARE LONG CONSTANT DT$_RZ26L = 138+ DECLARE LONG CONSTANT DT$_ RRD43 = 139+ DECLARE LONG CONSTANT DT$_RRD44 = 140+ DECLARE LONG CONSTANT DT$_HSX00 = 141+ DECLARE LONG CONSTANT DT$_HSX01 = 142+ DECLARE LONG CONSTANT DT$_RZ26B = 143+ DECLARE LONG CONSTANT DT$_RZ27B = 144+ DECLARE LONG CONSTANT DT$_RZ28B = 145+ DECLARE LONG CONSTANT DT$_RZ29B = 146+ DECLARE LONG CONSTANT DT$_RZ73B = 147+ DECLARE LONG CONSTANT DT$_RZ74B = 148+ DECLARE LONG CONSTANT DT$_RZ75B = 149+ DECLARE LONG CONSTANT DT$_ RWZ21 = 150+ DECLARE LONG CONSTANT DT$_RZ27L = 151+ DECLARE LONG CONSTANT DT$_HSZ20 = 152+ DECLARE LONG CONSTANT DT$_HSZ40 = 153+ DECLARE LONG CONSTANT DT$_HSZ15 = 154+ DECLARE LONG CONSTANT DT$_RZ26M = 155+ DECLARE LONG CONSTANT DT$_RW504 = 156+ DECLARE LONG CONSTANT DT$_RW510 = 157+ DECLARE LONG CONSTANT DT$_RW514 = 158+ DECLARE LONG CONSTANT DT$_RW516 = 159+ DECLARE LONG CONSTANT DT$_RWZ52 = 160+ DECLARE LONG CONSTANT DT$_ RWZ53 = 161+ DECLARE LONG CONSTANT DT$_RWZ54 = 162+ DECLARE LONG CONSTANT DT$_RWZ31 = 163* DECLARE LONG CONSTANT DT$_EZ31 = 164* DECLARE LONG CONSTANT DT$_EZ32 = 165* DECLARE LONG CONSTANT DT$_EZ33 = 166* DECLARE LONG CONSTANT DT$_EZ34 = 167* DECLARE LONG CONSTANT DT$_EZ35 = 168+ DECLARE LONG CONSTANT DT$_EZ31L = 169+ DECLARE LONG CONSTANT DT$_EZ32L = 170+ DECLARE LONG CONSTANT DT$_EZ33L = 171+ DECLARE LONG CONSTANT DT$_RZ28L = 17 2+ DECLARE LONG CONSTANT DT$_RWZ51 = 173+ DECLARE LONG CONSTANT DT$_EZ56R = 174+ DECLARE LONG CONSTANT DT$_RAID0 = 175+ DECLARE LONG CONSTANT DT$_RAID5 = 1761 DECLARE LONG CONSTANT DT$_SNAPPY_DISK = 1801 DECLARE LONG CONSTANT DT$_SNAPPY_POOL = 181 !  ! TAPE DEVICES ! ; DECLARE LONG CONSTANT DT$_TE16 = 1 ! TE16 MAGTAPE ; DECLARE LONG CONSTANT DT$_TU45 = 2 ! TU45 MAGTAPE ; DECLARE LONG CONSTANT DT$_TU77 = 3 ! TU77 M AGTAPE ; DECLARE LONG CONSTANT DT$_TS11 = 4 ! TS11 MAGTAPE ; DECLARE LONG CONSTANT DT$_TU78 = 5 ! TU78 MAGTAPE ; DECLARE LONG CONSTANT DT$_TA78 = 6 ! TA78 MAGTAPE ; DECLARE LONG CONSTANT DT$_TU80 = 7 ! TU80 MAGTAPE ; DECLARE LONG CONSTANT DT$_TU81 = 8 ! TU81 MAGTAPE ( DECLARE LONG CONSTANT DT$_TA81 = 9A DECLARE LONG CONSTANT DT$_TK50 = 10 ! TK50 CARTRIDGE TAPEG DECLARE LONG CONSTANT DT$_MR_TU70 = 11 ! TU70 STC TAPE ( DX20 )= DECLARE LONG CONSTANT DT$_MR_TU72 = 12 ! TU72 STC TAPED DECLARE LONG CONSTANT DT$_MW_TSU05 = 13 ! TSU05 TAPE ( CSS )D DECLARE LONG CONSTANT DT$_MW_TSV05 = 14 ! TSV05 TAPE ( CSS )A DECLARE LONG CONSTANT DT$_TK70 = 15 ! TK70 CARTRIDGE TAPE) DECLARE LONG CONSTANT DT$_RV20 = 16) DECLARE LONG CONSTANT DT$_RV80 = 16A DECLARE LONG CONSTANT DT$_TK60 = 17 ! TK60 CARTRIDGE TAPE? DECLARE LONG CONSTANT DT$_GENERIC_TU = 18 ! Brand X Tape2 DECLARE LONG CONSTANT DT$_TA79 = 19 ! TA79* DECLARE LONG CONSTANT DT$_TAPE9 = 20) DECLARE LONG CONSTANT DT$_TA90 = 21) DECLARE LONG CONSTANT DT$_TF30 = 22) DECLARE LONG CONSTANT DT$_TF85 = 22) DECLARE LONG CONSTANT DT$_TF70 = 23) DECLARE LONG CONSTANT DT$_RV60 = 24) DECLARE LONG CONSTANT DT$_TZ30 = 25) DECLARE LONG CONSTANT DT$_TM32 = 26) DECLARE LONG CONSTANT DT$_TZX0 = 27* DECLARE LONG CONSTANT DT$_TSZ05 = 27/ DECLARE LONG CONSTANT DT$_GENERIC_MK = 28* DECLARE LONG CONSTANT DT$_TK50S = 29* DECLARE LONG CONSTANT DT$_TZ30S = 30* DECLARE LONG CONSTANT DT$_TK70L = 31* DECLARE LONG CONSTANT DT$_TLZ04 = 32* DECLARE LONG CONSTANT DT$_TZK10 = 33* DECLARE LONG CONSTANT DT$_TSZ07 = 34* DECLARE LONG CONSTANT DT$_TSZ08 = 35* DECLARE LONG CONSTANT DT$_TA90E = 36* DECLARE LONG CONSTANT DT$_TZK11 = 37) DECLARE LONG CONSTANT DT$_TZ85 = 38) DECLARE LONG CONSTANT DT$_TZ86 = 39)  DECLARE LONG CONSTANT DT$_TZ87 = 40* DECLARE LONG CONSTANT DT$_TZ857 = 41, DECLARE LONG CONSTANT DT$_EXABYTE = 422 DECLARE LONG CONSTANT DT$_TAPE_LOADER_1 = 43) DECLARE LONG CONSTANT DT$_TA91 = 44* DECLARE LONG CONSTANT DT$_TLZ06 = 45) DECLARE LONG CONSTANT DT$_TA85 = 46* DECLARE LONG CONSTANT DT$_TKZ60 = 47) DECLARE LONG CONSTANT DT$_TLZ6 = 48* DECLARE LONG CONSTANT DT$_TZ867 = 49* DECLARE LONG CONSTANT DT$_TZ877 = 50* DECLAR E LONG CONSTANT DT$_TAD85 = 51) DECLARE LONG CONSTANT DT$_TF86 = 52* DECLARE LONG CONSTANT DT$_TKZ09 = 53) DECLARE LONG CONSTANT DT$_TA86 = 54) DECLARE LONG CONSTANT DT$_TA87 = 55) DECLARE LONG CONSTANT DT$_TD34 = 56) DECLARE LONG CONSTANT DT$_TD44 = 57* DECLARE LONG CONSTANT DT$_HST00 = 58* DECLARE LONG CONSTANT DT$_HST01 = 59* DECLARE LONG CONSTANT DT$_TLZ07 = 60) DECLARE LONG CONSTANT DT$_TLZ7 = 61) DECLARE LONG CONSTANT DT$_TZ88 = 62* DECLARE LONG CONSTANT DT$_TZ885 = 63* DECLARE LONG CONSTANT DT$_TZ887 = 64) DECLARE LONG CONSTANT DT$_TZ89 = 65* DECLARE LONG CONSTANT DT$_TZ895 = 66* DECLARE LONG CONSTANT DT$_TZ897 = 67* DECLARE LONG CONSTANT DT$_TZ875 = 68* DECLARE LONG CONSTANT DT$_TL810 = 69* DECLARE LONG CONSTANT DT$_TL820 = 70* DECLARE LONG CONSTANT DT$_TZ865 = 71 !  ! TERMINAL DEVICE TYPES ! I ! new definitions for terminal types should be pl aced in $ttdef only7 ! this table remains around for compatibility only ! ! ! **** MATCHES $TTDEF ***** A DECLARE LONG CONSTANT DT$_TTYUNKN = 0 ! UNKNOWN TERMINAL 4 DECLARE LONG CONSTANT DT$_VT05 = 1 ! VT05 F DECLARE LONG CONSTANT DT$_FT1 = 16 ! FOREIGN TERMINAL TYPES ( DECLARE LONG CONSTANT DT$_FT2 = 17( DECLARE LONG CONSTANT DT$_FT3 = 18( DECLARE LONG CONSTANT DT$_FT4 = 19( DECLARE LONG CONSTANT DT$_FT5 = 20( DECLARE LONG C ONSTANT DT$_FT6 = 21( DECLARE LONG CONSTANT DT$_FT7 = 22D DECLARE LONG CONSTANT DT$_FT8 = 23 ! END OF FOREIGN TYPES + ! RESERVE REST UP TO 32 FOR EXTENSIONS@ DECLARE LONG CONSTANT DT$_LAX = 32 ! LA TYPE TERMINAL 4 DECLARE LONG CONSTANT DT$_LA36 = 32 ! LA36 * DECLARE LONG CONSTANT DT$_LA120 = 339 DECLARE LONG CONSTANT DT$_VT5X = 64 ! VT5X TYPE 4 DECLARE LONG CONSTANT DT$_VT52 = 64 ! VT52 4 DECLARE LONG CONSTANT DT$_VT55 = 65 ! V T55 5 DECLARE LONG CONSTANT DT$_TQ_BTS = 4 ! TQ_BTS? DECLARE LONG CONSTANT DT$_TEK401X = 10 ! TEK401X series5 DECLARE LONG CONSTANT DT$_VT100 = 96 ! VT100 ) DECLARE LONG CONSTANT DT$_VK100 = 2) DECLARE LONG CONSTANT DT$_VT173 = 3) DECLARE LONG CONSTANT DT$_LA34 = 34) DECLARE LONG CONSTANT DT$_LA38 = 35) DECLARE LONG CONSTANT DT$_LA12 = 36) DECLARE LONG CONSTANT DT$_LA24 = 37* DECLARE LONG CONSTANT DT$_LA100 = 37* DECLARE LONG CONSTANT DT$_LQP02 = 38* DECLARE LONG CONSTANT DT$_VT101 = 97* DECLARE LONG CONSTANT DT$_VT102 = 98* DECLARE LONG CONSTANT DT$_VT105 = 99+ DECLARE LONG CONSTANT DT$_VT125 = 100+ DECLARE LONG CONSTANT DT$_VT131 = 101+ DECLARE LONG CONSTANT DT$_VT132 = 102? DECLARE LONG CONSTANT DT$_DZ11 = 66 ! DZ11 CONTROLLER ? DECLARE LONG CONSTANT DT$_DZ32 = 67 ! DZ32 CONTROLLER K DECLARE LONG CONSTANT DT$_DZ730 = 68 ! DZ730 ( COMBO ) CONTROLLER  ? DECLARE LONG CONSTANT DT$_DMZ32 = 69 ! DMZ32 CONTROLLER= DECLARE LONG CONSTANT DT$_DHV = 70 ! DHV CONTROLLER= DECLARE LONG CONSTANT DT$_DHU = 71 ! DHU CONTROLLERG DECLARE LONG CONSTANT DT$_SLU = 72 ! Onboard Serial Line Unit= DECLARE LONG CONSTANT DT$_TERM9 = 73 ! Terminal on 009< DECLARE LONG CONSTANT DT$_LAT = 74 ! LAT terminals !  ! Terminal WORKSTATIONS ! = DECLARE LONG CONSTANT DT$_VS100 = 1 ! VAXstation 100 = DECLARE LONG CONSTANT DT$_VS125 = 2 ! VAXstation 125K DECLARE LONG CONSTANT DT$_VL_VS8200 = 3 ! VAXstation 8200 ( Lynx )E DECLARE LONG CONSTANT DT$_VD = 4 ! VAXstation Vir. Device/ DECLARE LONG CONSTANT DT$_DECW_OUTPUT = 5. DECLARE LONG CONSTANT DT$_DECW_INPUT = 6/ DECLARE LONG CONSTANT DT$_DECW_PSEUDO = 7 ! . ! SYNCHRONOUS COMMUNICATIONS DEVICE TYPES ! 5 DECLARE LONG CONSTANT DT$_DMC11 = 1 ! DMC11 5 DECLARE LONG CON STANT DT$_DMR11 = 2 ! DMR11 R DECLARE LONG CONSTANT DT$_XK_3271 = 3 ! DUP-11 FOR 3271 PROTOCOL EMULATOR D DECLARE LONG CONSTANT DT$_XJ_2780 = 4 ! DUP-11 FOR 2780 " " E DECLARE LONG CONSTANT DT$_NW_X25 = 5 ! X25 PROTOCOL EMULATOR 7 DECLARE LONG CONSTANT DT$_NV_X29 = 6 ! X29 " " D DECLARE LONG CONSTANT DT$_SB_ISB11 = 7 ! ISB-11 DEC dataway L DECLARE LONG CONSTANT DT$_MX_MUX200 = 8 ! MUX-200 PROTOCOL EMULATOR 5 DECLARE LONG CONSTANT DT$_DMP11 =  9 ! DMP11 5 DECLARE LONG CONSTANT DT$_DMF32 = 10 ! DMF32 N DECLARE LONG CONSTANT DT$_XV_3271 = 11 ! DV-11 3271 PROTOCOL EMULATOR J DECLARE LONG CONSTANT DT$_CI = 12 ! CI - Computer Interconnect I DECLARE LONG CONSTANT DT$_NI = 13 ! NI - Network Interconnect D DECLARE LONG CONSTANT DT$_UNA11 = 14 ! UNIBUS to NI adapter D DECLARE LONG CONSTANT DT$_DEUNA = 14 ! UNIBUS to NI adapter A DECLARE LONG CONSTANT DT$_YN_X25 = 15 ! KMS11 X.25 P. E. 6 DECLARE LONG CONSTANT DT$_YO_X25 = 16 ! " " " ? DECLARE LONG CONSTANT DT$_YP_ADCCP = 17 ! " ADCCP P.E. 7 DECLARE LONG CONSTANT DT$_YQ_3271 = 18 ! " " " : DECLARE LONG CONSTANT DT$_YR_DDCMP = 19 ! " DDCMP 8 DECLARE LONG CONSTANT DT$_YS_SDLC = 20 ! " SDLC 9 DECLARE LONG CONSTANT DT$_UK_KTC32 = 21 ! " KTC32C DECLARE LONG CONSTANT DT$_DEQNA = 22 ! Q-BUS to NI adapter 4 DECLARE LONG CONSTANT DT$_DMV11 = 23 ! DMV11H DECLARE LONG  CONSTANT DT$_ES_LANCE = 24 ! SCORPIO to NI adapter C DECLARE LONG CONSTANT DT$_DELUA = 25 ! LSI version of DEUNA5 DECLARE LONG CONSTANT DT$_NQ_3271 = 26 ! DHCFA DECLARE LONG CONSTANT DT$_DMB32 = 27 ! DMB32 ( BICombo )W DECLARE LONG CONSTANT DT$_YI_KMS11K = 28 ! not a product, used by field serviceJ DECLARE LONG CONSTANT DT$_ET_DEBNT = 29 ! DEBNT ( DEBNA grandpa )J DECLARE LONG CONSTANT DT$_ET_DEBNA = 29 ! DEBNA ( BI-NI adapter )J DECLARE LONG CONSTANT DT$_SJ_DSV11 = 30 ! DSV11 Q-BUS sync adapterG DECLARE LONG CONSTANT DT$_SL_DSB32 = 31 ! DSB32 BI sync adaptor< DECLARE LONG CONSTANT DT$_ZS_DST32 = 32 ! DST32, X25M DECLARE LONG CONSTANT DT$_XQ_DELQA = 33 ! DELQA - Q-BUS to NI adaptorJ DECLARE LONG CONSTANT DT$_ET_DEBNI = 34 ! DEBNI ( BI-NI adapter )K DECLARE LONG CONSTANT DT$_EZ_SGEC = 35 ! SGEC CVAX to ethernet chip- DECLARE LONG CONSTANT DT$_EX_DEMNA = 36* DECLARE LONG CONSTAN T DT$_DIV32 = 37- DECLARE LONG CONSTANT DT$_XQ_DEQTA = 38* DECLARE LONG CONSTANT DT$_FT_NI = 39- DECLARE LONG CONSTANT DT$_EP_LANCE = 40* DECLARE LONG CONSTANT DT$_KWV32 = 41- DECLARE LONG CONSTANT DT$_SM_DSF32 = 42- DECLARE LONG CONSTANT DT$_FX_DEMFA = 43T DECLARE LONG CONSTANT DT$_SF_DSF32 = 44 ! FT unit for DSF32 CIRRUS sync commQ DECLARE LONG CONSTANT DT$_SE_DUP11 = 45 ! SEDRIVER common DUP11 sync commQ DECLARE LONG CONSTANT DT$_SE_DPV11 = 46 ! SEDRIVER common DPV11 sync commD DECLARE LONG CONSTANT DT$_ZT_DSW = 47 ! Generic DSW sync comF DECLARE LONG CONSTANT DT$_FC_DEFZA = 48 ! Turbochannel to FDDII DECLARE LONG CONSTANT DT$_EC_PMAD = 49 ! Turbochannel to EthernetC DECLARE LONG CONSTANT DT$_EZ_TGEC = 50 ! TGEC ethernet chipG DECLARE LONG CONSTANT DT$_EA_DEANA = 51 ! Futurebus to EthernetJ DECLARE LONG CONSTANT DT$_EY_NITC2 = 52 ! Turbochannel to EthernetF DECLARE LONG CONSTANT DT$_ER_DE422 = 53 ! EISA bus to EthernetE DECLARE LONG CONSTANT DT$_ER_DE200 = 54 ! ISA bus to EthernetT DECLARE LONG CONSTANT DT$_EW_TULIP = 55 ! Integral PCI bus to TULIP EthernetC DECLARE LONG CONSTANT DT$_FA_DEFAA = 56 ! Futurebus to FDDIF DECLARE LONG CONSTANT DT$_FC_DEFTA = 57 ! Turbochannel to FDDI? DECLARE LONG CONSTANT DT$_FQ_DEFQA = 58 ! Q-bus to FDDIB DECLARE LONG CONSTANT DT$_FR_DEFEA = 59 ! EISA bus to FDDIL DECLARE LONG CONSTANT DT$_IC_DETRA = 61 ! Turbochannel to Token RingE DECLARE LONG CONSTANT DT$_IQ_DEQRA = 62 ! Q-bus to Token RingH DECLARE LONG CONSTANT DT$_IR_DW300 = 63 ! EISA bus to Token RingL DECLARE LONG CONSTANT DT$_ER_DE425 = 67 ! EISA bus to TULIP EthernetK DECLARE LONG CONSTANT DT$_EW_DE435 = 68 ! PCI bus to TULIP EthernetK DECLARE LONG CONSTANT DT$_ER_DE205 = 69 ! ISA bus to LEMAC EthernetD DECLARE LONG CONSTANT DT$_HC_OTTO = 70 ! Turbochannel to ATME DECLARE LONG CONSTANT DT$_ZS_PBXDI = 71 ! ISA sync comms cardL DECLARE LONG CONSTANT DT$_EL_ELAN = 72 ! Emulated CSMACD LAN for ATM; DECLARE LONG CONSTANT DT$_HW_OTTO = 73 ! PCI to ATMD DECLARE LONG CONSTANT DT$_EO_3C598 = 74 ! PCMCIA to EthernetC DECLARE LONG CONSTANT DT$_IW_TC4048 = 75 ! PCI to TokenRingI DECLARE LONG CONSTANT DT$_EW_DE450 = 76 ! PCI to DC21040 EthernetI DECLARE LONG CONSTANT DT$_EW_DE500 = 77 ! PCI to DC21140 EthernetF  DECLARE LONG CONSTANT DT$_CL_CLIP = 78 ! Classical IP over ATME DECLARE LONG CONSTANT DT$_ZW_PBXDP = 79 ! PCI sync comms card ! 0 ! LINE PRINTER AND CARD READER DEVICE TYPES ! 4 DECLARE LONG CONSTANT DT$_LP11 = 1 ! LP11 4 DECLARE LONG CONSTANT DT$_LA11 = 2 ! LA11 5 DECLARE LONG CONSTANT DT$_LA180 = 3 ! LA180 6 DECLARE LONG CONSTANT DT$_LC_DMF32 = 4 ! DMF326 DECLARE LONG CONSTANT DT$_LI_DMB32 = 5 ! DMB32< DECLARE LONG CON STANT DT$_PRTR9 = 6 ! Printer on 009C DECLARE LONG CONSTANT DT$_SCSI_SCANNER_1 = 7 ! SCSI Scanner@ DECLARE LONG CONSTANT DT$_CR11 = 1 ! CR11 CARD READER  !  ! MAILBOX DEVICE TYPES ! D DECLARE LONG CONSTANT DT$_MBX = 1 ! LOCAL MEMORY MAILBOX E DECLARE LONG CONSTANT DT$_SHRMBX = 2 ! SHARED MEMORY MAILBOX > DECLARE LONG CONSTANT DT$_NULL = 3 ! The NULL DEVICE: DECLARE LONG CONSTANT DT$_PIPE = 4 ! PIPE DEVICE ! * ! REM OTE CONSOLE STORAGE DEVICE TYPES ! F DECLARE LONG CONSTANT DT$_DAP_DEVICE = 1 ! DAP-ACCESSED DEVICE !  ! REALTIME DEVICE TYPES ! 6 DECLARE LONG CONSTANT DT$_LPA11 = 1 ! LPA-11 5 DECLARE LONG CONSTANT DT$_DR780 = 2 ! DR780 5 DECLARE LONG CONSTANT DT$_DR750 = 3 ! DR750 5 DECLARE LONG CONSTANT DT$_DR11W = 4 ! DR11W G DECLARE LONG CONSTANT DT$_PCL11R = 5 ! PCL11 RECEIVER ( CSS ) I DECLARE LONG CONSTANT DT$_PCL11T = 6 ! PCL11 TRANSMTTER ( CSS ) H DECLARE LONG CONSTANT DT$_DR11C = 7 ! DR11C PARALLEL INTERFACE = DECLARE LONG CONSTANT DT$_BS_DT07 = 8 ! UNIBUS SWITCH\ DECLARE LONG CONSTANT DT$_XP_PCL11B = 9 ! PCL-11B ( DECNET and NONDECNET mode CSS )N DECLARE LONG CONSTANT DT$_IX_IEX11 = 10 ! IEEE-488 to UNIBUS INTERFACEN DECLARE LONG CONSTANT DT$_FP_FEPCM = 11 ! FEPCM CSS frontend processorL DECLARE LONG CONSTANT DT$_TK_FCM = 12 ! FEPCM CSS frontend processorO DE CLARE LONG CONSTANT DT$_XI_DR11C = 13 ! PARALLEL INTERFACE ON DMF-32 J DECLARE LONG CONSTANT DT$_XA_DRV11WA = 14 ! DMA Parallel Interface@ DECLARE LONG CONSTANT DT$_DRB32 = 15 ! DRB32 ( or MFA )K DECLARE LONG CONSTANT DT$_HX_DRQ3B = 16 ! DRQ3B PARALLEL INTERFACE  !  ! DECVOICE DEVICES ! J DECLARE LONG CONSTANT DT$_DECVOICE = 1 ! VQ- DECVOICE class driverN DECLARE LONG CONSTANT DT$_DTC04 = 2 ! VX DECvoice 1 M7132 port driverP DECLARE LONG CONSTANT DT$_DTC05 = 3 ! VM Decvoice III M3135 port driverP DECLARE LONG CONSTANT DT$_DTCN5 = 4 ! VN Decvoice III M3136 port driver !  ! AUDIO DEVICES ! J DECLARE LONG CONSTANT DT$_AMD79C30A = 1 ! AMD79C30A on VLC/PMARIAH !  ! BUS CLASS DEVICES ! 5 DECLARE LONG CONSTANT DT$_CI780 = 1 ! CI780 5 DECLARE LONG CONSTANT DT$_CI750 = 2 ! CI750 D DECLARE LONG CONSTANT DT$_UQPORT = 3 ! UQPORT is generic UDA5 DECLARE LONG  CONSTANT DT$_UDA50 = 3 ! UDA50 5 DECLARE LONG CONSTANT DT$_UDA50A = 4 ! UDA50A> DECLARE LONG CONSTANT DT$_LESI = 5 ! Low end storage8 DECLARE LONG CONSTANT DT$_TU81P = 6 ! TU81 port8 DECLARE LONG CONSTANT DT$_RDRX = 7 ! RDRX port8 DECLARE LONG CONSTANT DT$_TK50P = 8 ! TK50 port9 DECLARE LONG CONSTANT DT$_RUX50P = 9 ! RUX50 port9 DECLARE LONG CONSTANT DT$_RC26P = 10 ! RC26P portG DECLARE LONG CONSTANT DT$_QDA50 = 11 ! KDA50 p ort ( old name )9 DECLARE LONG CONSTANT DT$_KDA50 = 11 ! KDA50 portG DECLARE LONG CONSTANT DT$_BDA50 = 12 ! KDB50 port ( old name )J DECLARE LONG CONSTANT DT$_KDB50 = 12 ! KDB50 port ( alias BDA50 ): DECLARE LONG CONSTANT DT$_RRD50P = 13 ! RRD50 portG DECLARE LONG CONSTANT DT$_QDA25 = 14 ! KDA25 port ( old name )9 DECLARE LONG CONSTANT DT$_KDA25 = 14 ! KDA25 port= DECLARE LONG CONSTANT DT$_BCI750 = 15 ! BI-CI750 port9 DECLARE LONG  CONSTANT DT$_BCA = 16 ! BI-CI port9 DECLARE LONG CONSTANT DT$_RQDX3 = 17 ! RQDX3 port: DECLARE LONG CONSTANT DT$_NISCA = 18 ! NI-SCA port; DECLARE LONG CONSTANT DT$_AIO = 19 ! BVP SSP port; DECLARE LONG CONSTANT DT$_KFBTA = 19 ! BVP SSP port= DECLARE LONG CONSTANT DT$_AIE = 20 ! BVP multi-port= DECLARE LONG CONSTANT DT$_DEBNT = 20 ! BVP multi-port( DECLARE LONG CONSTANT DT$_BSA = 21* DECLARE LONG CONSTANT DT$_KSB50 = 218 DECLARE LONG CONSTANT DT$_TK70P = 22 ! TK70 port* DECLARE LONG CONSTANT DT$_RV20P = 23* DECLARE LONG CONSTANT DT$_RV80P = 238 DECLARE LONG CONSTANT DT$_TK60P = 24 ! TK60 port( DECLARE LONG CONSTANT DT$_SII = 25+ DECLARE LONG CONSTANT DT$_KFSQSA = 26* DECLARE LONG CONSTANT DT$_KFQSA = 26) DECLARE LONG CONSTANT DT$_SHAC = 27* DECLARE LONG CONSTANT DT$_CIXCD = 28* DECLARE LONG CONSTANT DT$_N5380 = 29* DECLARE LONG CONSTANT DT$_SCSII = 30*  DECLARE LONG CONSTANT DT$_HSX50 = 31* DECLARE LONG CONSTANT DT$_KDM70 = 31* DECLARE LONG CONSTANT DT$_TM32P = 32* DECLARE LONG CONSTANT DT$_TK7LP = 33* DECLARE LONG CONSTANT DT$_SWIFT = 34+ DECLARE LONG CONSTANT DT$_N53C94 = 35* DECLARE LONG CONSTANT DT$_KFMSA = 360 DECLARE LONG CONSTANT DT$_SCSI_XTENDR = 371 DECLARE LONG CONSTANT DT$_FT_TRACE_RAM = 38) DECLARE LONG CONSTANT DT$_XVIB = 39- DECLARE LONG CONSTANT DT$_XZA_SCSI = 40-  DECLARE LONG CONSTANT DT$_XZA_DSSI = 41. DECLARE LONG CONSTANT DT$_N710_SCSI = 42. DECLARE LONG CONSTANT DT$_N710_DSSI = 43- DECLARE LONG CONSTANT DT$_AHA1742A = 44* DECLARE LONG CONSTANT DT$_CIPCA = 47, DECLARE LONG CONSTANT DT$_ISP1020 = 48 !  ! MISCELLANEOUS DEVICES ! : DECLARE LONG CONSTANT DT$_DN11 = 1 ! AUTODIALER > DECLARE LONG CONSTANT DT$_PV = 2 ! Pseudo keyboard) DECLARE LONG CONSTANT DT$_SFUN9 = 3) DECLARE LONG CONSTANT DT$_USER9 = 40 DECLARE LONG CONSTANT DT$_GENERIC_SCSI = 5+ DECLARE LONG CONSTANT DT$_DMA_520 = 6) DECLARE LONG CONSTANT DT$_T3270 = 7+ DECLARE LONG CONSTANT DT$_DMA_560 = 8 ww!`IPV,%DEFINE DDTM$X_TRANSACTION_ID BASIC$OCTAWORD+%DEFINE DDTM$X_UTC_DATE_TIME BASIC$OCTAWORD8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL )" = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATI#NG_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! : ! Transaction Manager services structure definitions !   H DECLARE LONG CONSTANT $DDTM$S_TID = 16 ! Size of a transaction id ! % ! System services modifier flags ! 5 DECLARE LONG CONSTANT DDTM$M_SYNC = x'00000001'; DECLARE LONG CONSTANT DDTM$M_NONDEFAULT = x'00000002'8 DECLARE LONG CONSTANT DDTM$M_PROCESS = x'00000004'9 DECLARE LONG CONSTANT DDTM$M_VOLATILE = x'00000008'8 DECLARE LONG CONSTANT DDTM$M_RUNDOWN = x'00000010'7 DECLARE LONG CONSTANT DDTM$M_CANCEL = x'00000020'; DECLARE LONG CONSTANT DDTM$M_FULL_STATE = x'00 %000040'A DECLARE LONG CONSTANT DDTM$M_BRANCH_UNSYNCHED = x'00000080'< DECLARE LONG CONSTANT DDTM$M_COORDINATOR = x'00000100'7 DECLARE LONG CONSTANT DDTM$M_NOWAIT = x'00000200'< DECLARE LONG CONSTANT DDTM$M_FINAL_STATE = x'00000400'5 DECLARE LONG CONSTANT DDTM$M_LATE = x'80000000', DECLARE LONG CONSTANT DDTM$S_FLAGS = 4 record DDTM$R_FLAGS) ! Synchronous status requested( ! Not the default transaction! ! Process-permanent & RM ! volatile-only state ! forget all RMs! ! Cancel GET operation# ! Full state information& ! Don't need to sync branch! ! Join Coordinating RM' ! Don't wait for termination* ! Get final transaction outcome# ! Fill out to a longword% ! Phase one branch or join\ LONG SYNC_bits ! COMMENT ADDED BY SDL - SYNC_bits contains bits SYNC through LATE end record DDTM$R_FLAG 'S  ! - ! Resource manager event request options ! ; DECLARE LONG CONSTANT DDTM$M_EV_PREPARE = x'00000001'9 DECLARE LONG CONSTANT DDTM$M_EV_ABORT = x'00000002': DECLARE LONG CONSTANT DDTM$M_EV_COMMIT = x'00000004'A DECLARE LONG CONSTANT DDTM$M_EV_DEFAULT_TRANS = x'00000008'? DECLARE LONG CONSTANT DDTM$M_EV_TRANS_START = x'00000010'1 DECLARE LONG CONSTANT DDTM$S_EVENT_MASK = 4 record DDTM$R_EVENT_MASK" ! Vote request requir(ed ! Abort notificiation! ! Commit notificiation ! New default TID- ! Request transaction start events# ! Fill out to a longwordp LONG EV_PREPARE_bits ! COMMENT ADDED BY SDL - EV_PREPARE_bits contains bits EV_PREPARE through FILL_2" end record DDTM$R_EVENT_MASK  ! . ! $TRANS_EVENT system service event types ! Q DECLARE LONG CONSTANT DDTM$K_TX_PREPARE = 1 ! Prepare transaction requestM DECLAR )E LONG CONSTANT DDTM$K_TX_COMMIT = 2 ! Commit transaction orderK DECLARE LONG CONSTANT DDTM$K_TX_ABORT = 3 ! Abort transaction orderU DECLARE LONG CONSTANT DDTM$K_TX_RECOVER_COMMIT = 4 ! Commit order on recoveryS DECLARE LONG CONSTANT DDTM$K_TX_RECOVER_ABORT = 5 ! Abort order on recovery ! * ! Resource manager event report types ! D DECLARE LONG CONSTANT DDTM$K_PREPARE = 1 ! Prepare operationB DECLARE LONG CONSTANT DDTM$K_COMMIT = 2 ! Commit* operation@ DECLARE LONG CONSTANT DDTM$K_ABORT = 3 ! Abort operationL DECLARE LONG CONSTANT DDTM$K_ONE_PHASE_COMMIT = 4 ! One-phase commitP DECLARE LONG CONSTANT DDTM$K_DEFAULT_CLEARED = 5 ! Tid no longer defaultN DECLARE LONG CONSTANT DDTM$K_DEFAULT_SET = 6 ! Tid now process defaultZ DECLARE LONG CONSTANT DDTM$K_STARTED_DEFAULT = 7 ! New process default transactionX DECLARE LONG CONSTANT DDTM$K_STARTED_NONDEFAULT = 8 ! New nondefault transactionR +DECLARE LONG CONSTANT DDTM$K_RECOVER_COMMITTED = 9 ! Transaction committedO DECLARE LONG CONSTANT DDTM$K_RECOVER_ERROR = 10 ! Error during recoveryR DECLARE LONG CONSTANT DDTM$K_RECOVER_INDOUBT = 11 ! Transaction is indoubtX DECLARE LONG CONSTANT DDTM$K_RECOVER_RESOLVE = 12 ! RM resposible for resolution ! 1 ! Transaction report structure (DECdtm V1.0) ! . DECLARE LONG CONSTANT DDTM$S_ASTDEF = 56N record DDTM$R_ASTDEF ! Transacti ,on event AST parameter? LONG DDTM$L_ARGLEN ! Structure length= LONG DDTM$A_TID ! Transaction idE LONG DDTM$L_PART_ID ! Participant identifier> LONG DDTM$L_RM_CTX ! RM event ASTPRM= LONG DDTM$L_OPTYPE ! Operation typeI LONG DDTM$L_REASON ! Abort extended reason codeC BASIC$OCTAWORD DDTM$O_UTC_CMT_TIME ! Reserved to DigitalB - BASIC$OCTAWORD DDTM$O_UTC_LATEST ! Reserved to Digital end record DDTM$R_ASTDEF  ! # ! Transaction report structure ! 1 DECLARE LONG CONSTANT DDTM$S_REPORTDEF = 72 record DDTM$R_REPORTDEF? LONG DDTM$L_REPORT_LEN ! Structure length= LONG DDTM$A_TID_PTR ! Transaction id@ LONG DDTM$L_REPORT_ID ! Report identifier> LONG DDTM$L_RM_CONTEXT ! RM event ASTPRM@ LONG DDTM$L_EVENT_TYPE ! Event report typeI LONG DDTM$L_ABORT_REASON ! Abort extended reason codeB BASIC$OCTAWORD DDTM$O_COMMIT_TIME ! Reserved to DigitalB BASIC$OCTAWORD DDTM$O_LATEST_TIME ! Reserved to DigitalK BASIC$QUADWORD DDTM$Q_TX_CLASS ! Transaction class descriptorE BASIC$QUADWORD DDTM$Q_PART_NAME ! RM Instance descriptor! end record DDTM$R_REPORTDEF  ww/ JPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI0NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET1 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! @ ! THE FOLLOWING BITS DEFINE THE DEVICE CHARACTERISTICS FOR ! BOTH THE UCBS AND RMS. ! 3 DECLARE LONG CONSTANT DEV$M_REC = x'00000001'3 DECLARE LONG CONSTANT DEV$M_CCL = 2x'00000002'3 DECLARE LONG CONSTANT DEV$M_TRM = x'00000004'3 DECLARE LONG CONSTANT DEV$M_DIR = x'00000008'3 DECLARE LONG CONSTANT DEV$M_SDI = x'00000010'3 DECLARE LONG CONSTANT DEV$M_SQD = x'00000020'3 DECLARE LONG CONSTANT DEV$M_SPL = x'00000040'3 DECLARE LONG CONSTANT DEV$M_OPR = x'00000080'3 DECLARE LONG CONSTANT DEV$M_RCT = x'00000100'4 DECLARE LONG CONSTANT DEV$M_QSVD = x'00000200'5 DECLARE LONG CONSTANT DEV$M_QSVBL = x'00000400'? 3 DECLARE LONG CONSTANT DEV$M_MULTI_SECONDARY = x'00000800'6 DECLARE LONG CONSTANT DEV$M_FILL_3 = x'00001000'3 DECLARE LONG CONSTANT DEV$M_NET = x'00002000'3 DECLARE LONG CONSTANT DEV$M_FOD = x'00004000'3 DECLARE LONG CONSTANT DEV$M_DUA = x'00008000'3 DECLARE LONG CONSTANT DEV$M_SHR = x'00010000'3 DECLARE LONG CONSTANT DEV$M_GEN = x'00020000'3 DECLARE LONG CONSTANT DEV$M_AVL = x'00040000'3 DECLARE LONG CONSTANT DEV$M_MNT = x'00080000'3 DECL 4ARE LONG CONSTANT DEV$M_MBX = x'00100000'3 DECLARE LONG CONSTANT DEV$M_DMT = x'00200000'3 DECLARE LONG CONSTANT DEV$M_ELG = x'00400000'3 DECLARE LONG CONSTANT DEV$M_ALL = x'00800000'3 DECLARE LONG CONSTANT DEV$M_FOR = x'01000000'3 DECLARE LONG CONSTANT DEV$M_SWL = x'02000000'3 DECLARE LONG CONSTANT DEV$M_IDV = x'04000000'3 DECLARE LONG CONSTANT DEV$M_ODV = x'08000000'3 DECLARE LONG CONSTANT DEV$M_RND = x'10000000'3 DECLARE LONG CONSTANT DE 5V$M_RTM = x'20000000'3 DECLARE LONG CONSTANT DEV$M_RCK = x'40000000'3 DECLARE LONG CONSTANT DEV$M_WCK = x'80000000'3 DECLARE LONG CONSTANT DEV$M_CLU = x'00000001'3 DECLARE LONG CONSTANT DEV$M_DET = x'00000002'3 DECLARE LONG CONSTANT DEV$M_RTT = x'00000004'3 DECLARE LONG CONSTANT DEV$M_CDP = x'00000008'2 DECLARE LONG CONSTANT DEV$M_2P = x'00000010'4 DECLARE LONG CONSTANT DEV$M_MSCP = x'00000020'3 DECLARE LONG CONSTANT DEV$M_SSM = x'00000040' 63 DECLARE LONG CONSTANT DEV$M_SRV = x'00000080'3 DECLARE LONG CONSTANT DEV$M_RED = x'00000100'3 DECLARE LONG CONSTANT DEV$M_NNM = x'00000200'3 DECLARE LONG CONSTANT DEV$M_WBC = x'00000400'3 DECLARE LONG CONSTANT DEV$M_WTC = x'00000800'3 DECLARE LONG CONSTANT DEV$M_HOC = x'00001000'3 DECLARE LONG CONSTANT DEV$M_LOC = x'00002000'3 DECLARE LONG CONSTANT DEV$M_DFS = x'00004000'3 DECLARE LONG CONSTANT DEV$M_DAP = x'00008000'3 DECLARE LONG 7 CONSTANT DEV$M_NLT = x'00010000'3 DECLARE LONG CONSTANT DEV$M_SEX = x'00020000'3 DECLARE LONG CONSTANT DEV$M_SHD = x'00040000'3 DECLARE LONG CONSTANT DEV$M_VRT = x'00080000'3 DECLARE LONG CONSTANT DEV$M_LDR = x'00100000'4 DECLARE LONG CONSTANT DEV$M_NOLB = x'00200000'5 DECLARE LONG CONSTANT DEV$M_NOCLU = x'00400000'4 DECLARE LONG CONSTANT DEV$M_VMEM = x'00800000'4 DECLARE LONG CONSTANT DEV$M_SCSI = x'01000000'3 DECLARE LONG CONSTANT DEV$M_WL 8G = x'02000000'4 DECLARE LONG CONSTANT DEV$M_NOFE = x'04000000'3 DECLARE LONG CONSTANT DEV$M_AIP = x'08000000'6 DECLARE LONG CONSTANT DEV$M_CRAMIO = x'10000000'3 DECLARE LONG CONSTANT DEV$M_DTN = x'20000000'= DECLARE LONG CONSTANT DEV$M_MULTI_ENABLED = x'40000000'8 DECLARE LONG CONSTANT DEV$M_POOL_MBR = x'80000000', DECLARE LONG CONSTANT DEV$S_DEVDEF = 4 record DEVDEF variant case' group DEV$R_DEVDEF_BITS0- 9 ! DEVICE RECORD ORIENTED . ! CARRIAGE CONTROL DEVICE + ! DEVICE IS A TERMINAL 5 ! DEVICE IS DIRECTORY STRUCTURED < ! DEVICE IS SINGLE DIRECTORY STRUCTURED G ! SEQUENTIAL BLOCK-ORIENTED DEVICE (I.E., MAGTAPE) + ! DEVICE BEING SPOOLED , ! DEVICE IS AN OPERATOR @ ! DISK CONTAINS RCT (DEC STANDARD 166 DISK) = : ! Device is a client served via QIOserver5 ! Device is servable by QIOserverH ! Indicates device is a secondary in a multipath set* ! SPARE FOR THE FUTURE% ! NETWORK DEVICE @ ! FILES-ORIENTED DEVICE (I.E., DISK AND MT) , ! DEVICE IS DUAL PORTED ' ! DEVICE SHAREABLE 1 ! DEVICE IS A GENERIC DEVICE / ! DEVICE AVAILABLE ; FOR USE ( ! DEVICE IS MOUNTED * ! DEVICE IS A MAILBOX 1 ! DEVICE MARKED FOR DISMOUNT 7 ! DEVICE HAS ERROR LOGGING ENABLED * ! DEVICE IS ALLOCATED L ! DEVICE IS MOUNTED FOREIGN (I.E., NON-FILE STRUCTURED) 6 ! DEVICE IS SOFTWARE WRITE LOCKED 8 ! DEVICE CAPABLE OF PROVIDING INPUT 9 ! DEVICE CAPABLE OF PROVIDING OUTPUT 2 < ! DEVICE ALLOWS RANDOM ACCESS 3 ! DEVICE IS REALTIME IN NATURE 7 ! DEVICE HAS READ CHECKING ENABLED 8 ! DEVICE HAS WRITE CHECKING ENABLED a LONG REC_bits ! COMMENT ADDED BY SDL - REC_bits contains bits REC through WCK+ end group DEV$R_DEVDEF_BITS0 case' group DEV$R_DEVDEF_BITS16 ! DEVICE IS AVAILABLE CLUSTER-WIDE1 ! DE =VICE IS DETACHED TERMINAL> ! DEVICE HAS REMOTE TERMINAL UCB EXTENSION2 ! DUAL PATH DEVICE WITH 2 UCBs8 ! TWO PATHS ARE KNOWN TO THIS DEVICE? ! DEVICE ACCESSED USING MSCP (disk or tape)3 ! DEVICE IS A SHADOW SET MEMBER: ! DEVICE IS SERVED VIA THE MSCP SERVER3 ! DEVICE IS redirected terminal0 ! DEVICE HAS "node$" PREFIX 8 ! > DEVICE SUPPORTS WRITE-BACK CACHING; ! DEVICE SUPPORTS WRITE-THROUGH CACHING2 ! DEVICE SUPPORTS HOST CACHINGK ! DEVICE ACCESSIBLE VIA LOCAL (NON-EMULATED) CONTROLLER* ! DEVICE IS DFS-SERVED, ! DEVICE IS DAP ACCESSEDH ! DEVICE IS NOT-LAST-TRACK (I.E. IT HAS NO BAD BLOCK% ! INFORMATION ON ITS LAST TRACK)G ! DEVICE (tape) SUPPORTS SERIOUS EXCEPTION HANDLING ?C ! DEVICE IS A MEMBER OF A HOST BASED SHADOW SET9 ! DEVICE IS A SHADOW SET VIRTUAL UNIT, ! LOADER PRESENT (TAPES)C ! DEVICE IGNORES SERVER LOAD BALANCING REQUESTSA ! DEVICE WILL NEVER BE AVAILABLE CLUSTER-WIDE9 ! Virtual member of a constituent set- ! DEVICE IS A SCSI DEVICE9 ! DEVICE HAS WRITE LOGGING CAPABILITY9 ! @DEVICE DOESN'T SUPPORT FORCED ERROR2 ! Allocation in progress (MME)* ! Performs Mailbox I/O? ! Device has DDR Device Type Name available\ ! Device is part of a multipath set. This bit used to be DEV$V_SHADDEV.5 ! Unit is bound to a storage poolf LONG CLU_bits ! COMMENT ADDED BY SDL - CLU_bits contains bits CLU through POOL_MBR+ end group DEV$R_DEVDEF_BITS1  end variant end record DEVDEF  wwBSJPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGICNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETD %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! DEVICE INFORMATION BLOCK DEFINITIONS ! -I DECLARE LONG CONSTANT DIB$K_LENGTH = 116 ! LENGTH OF TOTAL BUFFER I DECLARE LONG CONSTANT DIB$C_LENGTH = 116 ! LENGTH OF TOTAL EBUFFER . DECLARE LONG CONSTANT DIB$S_DIBDEF = 116 record DIBDEFE LONG DIB$L_DEVCHAR ! DEVICE CHARACTERISTICS ; BYTE DIB$B_DEVCLASS ! DEVICE CLASS : BYTE DIB$B_DEVTYPE ! DEVICE TYPE A WORD DIB$W_DEVBUFSIZ ! DEVICE BUFFER SIZE & group DIB$R_DEVDEPEND_OVERLAY variant caseK LONG DIB$L_DEVDEPEND ! DEVICE DEPENDENT INFORMATION  F case. group DIB$R_DEVDEPEND_FIELDSO BYTE DIB$B_SECTORS ! ( DISK ONLY ) SECTORS PER TRACK E BYTE DIB$B_TRACKS ! " TRACKS PER CYLINDER E WORD DIB$W_CYLINDERS ! " NUMBER OF CYLINDERS 2 end group DIB$R_DEVDEPEND_FIELDS end variant* end group DIB$R_DEVDEPEND_OVERLAYA WORD DIB$W_UNIT ! DEVICE UNIT NUMBER S WORD DIB$W_DEGVNAMOFF ! OFFSET TO DEVICE NAME COUNTED STRING R LONG DIB$L_PID ! DEVICE OWNER PROCESS IDENTIFICATION T LONG DIB$L_OWNUIC ! DEVICE OWNER USER IDENTIFICATION CODE E WORD DIB$W_VPROT ! DEVICE PROTECTION MASK A WORD DIB$W_ERRCNT ! DEVICE ERROR COUNT F LONG DIB$L_OPCNT ! DEVICE OPERATIONS COUNT T WORD DIB$W_VOLNAMOFF ! OFFSET TO VOLUME LABEL COUNTED STRING B WORD DIB$W_RECSIZ ! BLOCKED RECORD SIZE U STRING DIB$T_DEVNAME = 76 ! SPACE FOR DEVNAME AND LABEL ( 64+12 ) I LONG DIB$L_MAXBLOCK ! DISK VOLUME SIZE IN BLOCKS  end record DIBDEF  wwIJPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIJNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETK %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 9 ! LAYOUT OF THE HEADER BLOCK OF THE SYSTEM DUMP FILE@ ! (WHICH IS THE FIRST DISK BLOCK OF SYS$SYSTEM:SYSDUMP.DMP) ! @ DECLARE LONG CONSTANT DMP$M_SELECT_DUMPSTYLE = x'00000001'=L DECLARE LONG CONSTANT DMP$M_FULL_MESSAGES = x'00000002'7 DECLARE LONG CONSTANT DMP$M_DO_DOSD = x'00000004'? DECLARE LONG CONSTANT DMP$M_COMPRESSED_DUMP = x'00000008'E DECLARE LONG CONSTANT DMP$M_IGN_DOSD_VOLLABEL_CHK = x'00000010'D DECLARE LONG CONSTANT DMP$M_DOSD_IGNORE_SIZE_CHK = x'00000200'7 DECLARE LONG CONSTANT DMP$M_NO_DOTS = x'00000400'@ DECLARE LONG CONSTANT DMP$M_BUGCHECK_SQUARED = x'00000800'F DECLARE LONG CONSTANT DMP$M_DOSD_7K_VALIDATE_P MATHS = x'00008000'7 DECLARE LONG CONSTANT DMP$M_DOSD_7K = x'0FFF0000'7 DECLARE LONG CONSTANT DMP$M_OLDDUMP = x'00000001'5 DECLARE LONG CONSTANT DMP$M_EMPTY = x'00000002'6 DECLARE LONG CONSTANT DMP$M_HDRBLK = x'00000004'6 DECLARE LONG CONSTANT DMP$M_ERRLOG = x'00000008'6 DECLARE LONG CONSTANT DMP$M_MEMORY = x'00000010'3 DECLARE LONG CONSTANT DMP$M_SPT = x'00000020'9 DECLARE LONG CONSTANT DMP$M_WRITECOMP = x'00000040': DECLARE LONG CONSTANT DMP$NM_ERRLOGCOMP = x'00000080': DECLARE LONG CONSTANT DMP$M_DUMP_STYLE = x'00000F00'; DECLARE LONG CONSTANT DMP$M_DUMP_COPIED = x'00001000'; DECLARE LONG CONSTANT DMP$M_DUMP_COPING = x'00002000'= DECLARE LONG CONSTANT DMP$M_CLUE_SNAPDONE = x'00004000'; DECLARE LONG CONSTANT DMP$M_DUMP_IN_USE = x'00008000'Z DECLARE LONG CONSTANT DMP$K_FULL_DUMP = 0 ! FULL PHYSICAL MEMORY DUMP ( OLD WAY )a DECLARE LONG CONSTANT DMP$K_SUBSET_DUMP = 1 ! SUBSETTED DUMP FILE ( O NOT ALL INFO SAVED )_ DECLARE LONG CONSTANT DMP$C_DUMP_LUMP = 127 ! NUMBER OF SPTES REQUIRED FOR SUBSET DUMPS: DECLARE LONG CONSTANT DMP$M_COMPRESSED = x'00000001'8 DECLARE LONG CONSTANT DMP$M_NOTSAVED = x'00000002'7 DECLARE LONG CONSTANT DMP$M_VAXDUMP = x'00000004'9 DECLARE LONG CONSTANT DMP$M_ALPHADUMP = x'00000008'8 DECLARE LONG CONSTANT DMP$M_BITS_4_7 = x'000000F0'R DECLARE LONG CONSTANT DMP$C_MEMDSCSIZ = 8 ! SIZE OF ONE MEMORY DESCRIPTOR O PDECLARE LONG CONSTANT DMP$C_NMEMDSC = 8 ! NUMBER OF MEMORY DESCRIPTORS M DECLARE LONG CONSTANT DMP$K_DUMPVER = 1328 ! DUMP FILE VERSION NUMBERI DECLARE LONG CONSTANT DMP$K_LENGTH = 132 ! LENGTH OF FILE HEADER I DECLARE LONG CONSTANT DMP$C_LENGTH = 132 ! LENGTH OF FILE HEADER . DECLARE LONG CONSTANT DMP$S_DMPDEF = 136 record DMPDEF/ group DMP$R_DUMPCONTROL_OVERLAY !  variant caseJ LONG DMP$L_ERRSE QQ ! LAST ERROR LOG SEQ. NUMBER  case' group DMP$R_DUMP_BITSD ! Differentiate between full and subset dumpsD ! To keep the risc and cisc platforms in stepD ! Requests for Dump Off System Disk behaviourD ! Over-ride volume label check on DOSD device/ ! Allow > 2Meg full dumps/ ! Disallow printing them4 R ! Prevent recursive bugchecksS ! For Neon systems only, validate both paths to system disk D ! For Neon systems only dump device 1 -> FFF LONG SELECT_DUMPSTYLE_bits ! COMMENT ADDED BY SDL - SELECT_DUMPSTYLE_bits contains bits SELECT_DUMPSTYLE & ! through filler+ end group DMP$R_DUMP_BITS end variant, end group DMP$R_DUMPCONTROL_OVERLAY" group DMP$R_FLAGS_OVERLAY S variant case* group DMP$R_FLAGS_FIELDS> WORD DMP$W_FLAGS ! DUMP FILE FLAGS. end group DMP$R_FLAGS_FIELDS case( group DMP$R_FLAGS_BITS6 ! SET IF DUMP ALREADY ANALYZED 8 ! SET IF DUMP HAS NO DATA BLOCKS H ! SET IF ERROR WRITING FIRST BLOCK OF DUMP HEADERG ! SET IF ERROR WRITING BLOCKS 2-3 OF DUMPT HEADERJ ! SET IF ERROR WRITING MEMORY CONTENTS TO DUMP FILES ! SET IF ERROR WRITING SYSTEM PAGE TABLE BLOCKS TO DUMP FILE8 ! SET IF DUMP WRITE WAS COMPLETEDE ! SET IF HEADER/ERROR LOGS WRITE WAS COMPLETEDK ! SET TO DIFFERENTIATE BETWEEN DIFFERENT STYLE DUMPSE ! Set if SDA has successfully copied this dump: ! Set if this dump is being cop Uied F ! Set if CLUE has taken a snapshot of this dump; ! Set if this dump is being written x WORD OLDDUMP_bits ! COMMENT ADDED BY SDL - OLDDUMP_bits contains bits OLDDUMP through DUMP_IN_USE, end group DMP$R_FLAGS_BITS# ! DUMP_STYLE BITFIELD SETTINGS end variant& end group DMP$R_FLAGS_OVERLAY# group DMP$R_FLAGS2_OVERLAY variant case+ V group DMP$R_FLAGS2_FIELDSC BYTE DMP$B_FLAGS2 ! More dump file flags/ end group DMP$R_FLAGS2_FIELDS case) group DMP$R_FLAGS2_BITS7 ! SET IF DUMP DATA IS COMPRESSEDT ! Set by SYSINIT if SAVEDUMP not set and dump in PAGEFILE.SYS" ! Never set# ! Always set ! SPARE~ BYTE COMPRESSEDW_bits ! COMMENT ADDED BY SDL - COMPRESSED_bits contains bits COMPRESSED through BITS_4_7- end group DMP$R_FLAGS2_BITS end variant' end group DMP$R_FLAGS2_OVERLAYb BYTE DMP$B_ERLBUFPAGES ! PAGES PER ERL BUFFER; IF ZERO, CORRECT VALUE IS ONED LONG DMP$L_SBR ! SYSTEM BASE REGISTER F LONG DMP$L_SLR ! SYSTEM LENGTH REGISTER D LONG DMP$L_KSP ! KERNEL ST XACK POINTER G LONG DMP$L_ESP ! EXECUTIVE STACK POINTER H LONG DMP$L_SSP ! SUPERVISOR STACK POINTER B LONG DMP$L_USP ! USER STACK POINTER G LONG DMP$L_ISP ! INTERRUPT STACK POINTER group DMP$R_MEMORY_DESC variant casex LONG DMP$L_MEMORY_DESC_SPACE ( 1 to 16 ) ! RESERVE SPACE FOR 8 MEMORY DESCRIPTORS (2 LONGWORDS EACH) Y case, group DMP$R_MEMDSC_OVERLAY variant caseD LONG DMP$L_MEMDSC ! 8 MEMORY DESCRIPTORS  case/ group DMP$R_MEMDSC_BITS9 ! NUMBER OF PAGES IN MEMORY 4 ! TR NUMBER FOR MEMORY 3 ! BASE PFN FOR MEMORY } BYTE PAGCNT_bits ( 8 ) ! COMMENT ADDE ZD BY SDL - PAGCNT_bits contains bits PAGCNT through BASEPFN3 end group DMP$R_MEMDSC_BITS end variant0 end group DMP$R_MEMDSC_OVERLAY end variant$ end group DMP$R_MEMORY_DESCE LONG DMP$L_SYSVER ! SYSTEM VERSION NUMBER I LONG DMP$L_CHECK ! ONES COMPLEMENT OF SYSVER G WORD DMP$W_DUMPVER ! DUMP FILE VERSION NUMBERK WORD DMP$W_[ERLBUFCNT ! NUMBER OF ERROR LOG BUFFERS F WORD DMP$W_ERLBUFHEAD ! RING BUFFER HEAD INDEX F WORD DMP$W_ERLBUFTAIL ! RING BUFFER TAIL INDEX P LONG DMP$L_ERRSTATUS ! LAST ERROR STATUS FROM DUMP WRITEP LONG DMP$L_DUMPERRS ! COUNT OF ERRORS DURING DUMP WRITEK LONG DMP$L_MEMPAGCNT ! COUNT OF MEMORY PAGES DUMPEDX LONG DMP$L_SAVEPRCCNT ! COUNT OF SAVED PROCESSES ( SUBSET DUMP )J LONG DMP$L_CRASHERL ! SYSTEM CRASH ERR LOG ENTRY  end record DMPDEF  ww]@_ KPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI^NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET_ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ; ! FLAG BITS FOR THE $DISMOU (DISMOUNT) SYSTEM SERVICE. ! 8 DECLARE LONG CONSTANT DMT$M_NOUNLOAD = x'00000001'4 DECLARE LONG CONSTANT DMT$M_UNIT = x'00000002'5 DECLARE LONG ` CONSTANT DMT$M_ABORT = x'00000004'7 DECLARE LONG CONSTANT DMT$M_CLUSTER = x'00000008'6 DECLARE LONG CONSTANT DMT$M_UNLOAD = x'00000010': DECLARE LONG CONSTANT DMT$M_OVR_CHECKS = x'00000020': DECLARE LONG CONSTANT DMT$M_CHECK_ONLY = x'00000040'6 DECLARE LONG CONSTANT DMT$M_REMOTE = x'00000080'5 DECLARE LONG CONSTANT DMT$M_FORCE = x'00000100', DECLARE LONG CONSTANT DMT$S_DMTDEF = 2 record DMTDEF variant case& gro aup DMT$R_DMTDEF_BITS; ! DO NOT UNLOAD (SPIN DOWN) THE VOLUME 9 ! DISMOUNT ONLY THE SPECIFIED VOLUME & ! FORCED DISMOUNT + ! CLUSTER-WIDE DISMOUNT= ! EXPLICIT UNLOAD (OVERRIDE UCB$x_UNLOAD)/ ! OVERRIDE OPEN FILE CHECKS@ ! CHECK ONLY FOR OPEN FILES - DON'T DISMOUNTM ! CURRENT DISMOUNTER IS REMOTE WITH RESPECT TO ORIGINATOR+  ! FORCE dismount of SSMt WORD NOUNLOAD_bits ! COMMENT ADDED BY SDL - NOUNLOAD_bits contains bits NOUNLOAD through fill_75* end group DMT$R_DMTDEF_BITS end variant end record DMTDEF  wwR~[PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1L %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD$% %LET %BASIC$OCTAWORD_DECLARED = 1E %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGId oKPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIeNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETf %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! DTI flag definitions !  ! Item list definitionsF DECLARE LONG CONSTANT DTI$_ENDITEM = 0 ! End of item list codeX DECLARE LONG CONSTANT DTI$_TRANSACTION_INFORMATION = 1g ! Active transaction listS DECLARE LONG CONSTANT DTI$_CURRENT_TID = 2 ! Current transaction identifierX DECLARE LONG CONSTANT DTI$_MEMBERSHIP_COUNT = 3 ! # members still in transactionU DECLARE LONG CONSTANT DTI$_BRANCH_COUNT = 4 ! # branches still in transactionA DECLARE LONG CONSTANT DTI$_ROOT_NODE_NAME = 5 ! Root nodeM DECLARE LONG CONSTANT DTI$_STARTING_TIME = 6 ! Transaction start time3 DECLARE LONG CONSTANT dti$K_MAX_ITEM_CODE = 6 ! Tra hnsaction states* DECLARE LONG CONSTANT DTI$K_NULL = 0A DECLARE LONG CONSTANT DTI$K_STARTING = 1 ! Starting state= DECLARE LONG CONSTANT DTI$K_ACTIVE = 2 ! Active stateT DECLARE LONG CONSTANT DTI$K_ONE_P_COMMITTING = 3 ! Committing ( one-phase )C DECLARE LONG CONSTANT DTI$K_PREPARING = 4 ! Preparing stateA DECLARE LONG CONSTANT DTI$K_PREPARED = 5 ! Prepared stateE DECLARE LONG CONSTANT DTI$K_COMMITTING = 6 ! Committing stateC DECLARE LOiNG CONSTANT DTI$K_COMMITTED = 7 ! Committed stateR DECLARE LONG CONSTANT DTI$K_ONE_P_COMMITTED = 8 ! Committed ( one-phase )A DECLARE LONG CONSTANT DTI$K_ABORTING = 9 ! Aborting stateM DECLARE LONG CONSTANT DTI$K_ABORTED = 10 ! Aborted or forgotten state ! SET item codesE DECLARE LONG CONSTANT DTI$K_ILLEGAL = 0 ! Make code 0 illegalO DECLARE LONG CONSTANT DTI$K_DELETE_TRANSACTION = 1 ! Delete transactionP DECLARE LONG CONSTANT DTI$K_DELETE_RjM_NAME = 2 ! Delete resource managerO DECLARE LONG CONSTANT DTI$K_MODIFY_STATE = 3 ! Modify transaction stateO DECLARE LONG CONSTANT DTI$K_DELETE_BRANCH_NODE = 4 ! Delete branch node` DECLARE LONG CONSTANT DTI$K_SET_CURRENT_TID = 5 ! Set the current transaction identifier2 DECLARE LONG CONSTANT DTI$K_MAX_SET_CODE = 5? DECLARE LONG CONSTANT DTI$M_SEARCH_STARTING = x'00000001'= DECLARE LONG CONSTANT DTI$M_SEARCH_ACTIVE = x'00000002'C DECLARE LONG CONkSTANT DTI$M_SEARCH_1P_COMITTING = x'00000004'@ DECLARE LONG CONSTANT DTI$M_SEARCH_PREPARING = x'00000008'? DECLARE LONG CONSTANT DTI$M_SEARCH_PREPARED = x'00000010'A DECLARE LONG CONSTANT DTI$M_SEARCH_COMMITTING = x'00000020'@ DECLARE LONG CONSTANT DTI$M_SEARCH_COMMITTED = x'00000040'C DECLARE LONG CONSTANT DTI$M_SEARCH_1P_COMMITTED = x'00000080'? DECLARE LONG CONSTANT DTI$M_SEARCH_ABORTING = x'00000100'> DECLARE LONG CONSTANT DTI$M_SEARCH_ABORTED = x'000l00200'E DECLARE LONG CONSTANT DTI$_ENDSEARCH = 0 ! End of search listF DECLARE LONG CONSTANT DTI$_SEARCH_AS_NODE = 1 ! Search as nodea DECLARE LONG CONSTANT DTI$_SEARCH_CURRENT_TID = 2 ! Search current transaction identifierQ DECLARE LONG CONSTANT DTI$_SEARCH_TID = 3 ! Search transaction identifierO DECLARE LONG CONSTANT DTI$_SEARCH_RM_NAME = 4 ! Search resource managerT DECLARE LONG CONSTANT DTI$_SEARCH_BRANCH_NAME = 5 ! Search branch node namesB m DECLARE LONG CONSTANT DTI$_SEARCH_STATE = 6 ! Search stateT DECLARE LONG CONSTANT DTI$_SEARCH_RESOLVED_STATE = 7 ! Search resolved state5 DECLARE LONG CONSTANT DTI$K_MAX_SEARCH_CODE = 72 DECLARE LONG CONSTANT DTI$S_DTISEARCHDEF = 2@ record DTISEARCHDEF ! Search list codes ! Starting state ! Active state ! 1P Committing state ! Preparing state ! Prepared state ! Committing stat ne ! Committed state ! 1P Committed state ! Aborting state ! Aborted state# ! Search item list definitions WORD SEARCH_STARTING_bits ! COMMENT ADDED BY SDL - SEARCH_STARTING_bits contains bits SEARCH_STARTING through fill_76 end record DTISEARCHDEF 6 DECLARE LONG CONSTANT DTI$M_UPDATE = x'00000001'8 DECLARE LONG CONSTANT DTI$M_LOCAL_RM = x'00000002'k DECLARE LONG CONSTANT DTI$S_TRANSACTION_INFORMATION = o84 ! length of transaction information record0 DECLARE LONG CONSTANT DTI$S_DTIRECDEF = 84Y record DTIRECDEF ! Transaction information record definitions group DTI$r_fill_77 variant case= WORD DTI$W_FLAGS ! Modifier flags case% group DTI$r_fill_78A ! Delete resource manager from transaction< ! Participant type (1 = p RM, 0 = node)q BYTE UPDATE_bits ! COMMENT ADDED BY SDL - UPDATE_bits contains bits UPDATE through fill_79) end group DTI$r_fill_78 end variant end group DTI$r_fill_77@ BYTE DTI$B_STATE ! Transaction stateI BYTE DTI$B_PART_NAME_LEN ! Length of participant name? STRING DTI$T_PART_NAME = 32 ! Participant nameA STRING DTI$T_PART_LOG_ID = 16 ! Participant log id= STRING DTI$T_TID = 16 ! Transaction IDA BASIC$OCTAWORD DTI$O_UTC_COMMIT_TIME ! UTC commit time end record DTIRECDEF  wwr@W.LPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIsNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETt %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! D ! Get Device and Volume Information Data Identifier Definitions !  ! **** NOTE **** ! H ! New items must always be added at the END of the list so that* ! u users will not have to rebuild. ! E ! For RESERVED items (ie. symbols that are used on Alpha and9 ! are not used on VAX, requiring "placeholders")G ! Insert the same code (in the same order) as on Alpha in thisG ! file. Then edit [VMSLIB]DVITABLE.MAR to include the symbol: ! DVI_ITEM_CODE - ! , TS ! note: only a "T" is used as the second qualifier (after the symbol name)= ! Then edit [SYS]SYSGETDVI.MAR vto include the label: ! SPC_:0 ! below the other labels for the singleF ! BRW EXE$DVI_RETURN_ZERO ; Continue in $GETDVI.F ! instruction. Search for the "Generic return zero" comment. !  ! -Z DECLARE LONG CONSTANT DVI$_DEVCHAR = 2 ! Device characteristics - VALUE - 4 bytes P DECLARE LONG CONSTANT DVI$_DEVCLASS = 4 ! Device class - VALUE - 1 byte N DECLARE LONG CONSTANT DVI$_DEVTYPE = 6 ! Device type - VALUEw - 1 byte X DECLARE LONG CONSTANT DVI$_DEVBUFSIZ = 8 ! Device buffer size - VALUE - 2 bytes c DECLARE LONG CONSTANT DVI$_DEVDEPEND = 10 ! Device dependent information - VALUE - 4 bytes M DECLARE LONG CONSTANT DVI$_UNIT = 12 ! Unit number - VALUE - 2 bytes h DECLARE LONG CONSTANT DVI$_PID = 14 ! Process identification of device owner - VALUE - 4 bytes W DECLARE LONG CONSTANT DVI$_OWNUIC = 16 ! UIC of device owner - VALUE - 4 bytes Y DECLARE LONG CONSTANxT DVI$_VPROT = 18 ! Volume protection mask - VALUE - 2 bytes O DECLARE LONG CONSTANT DVI$_ERRCNT = 20 ! Error count - VALUE - 2 bytes R DECLARE LONG CONSTANT DVI$_OPCNT = 22 ! Operation count - VALUE - 4 bytes W DECLARE LONG CONSTANT DVI$_RECSIZ = 24 ! Blocked record size - VALUE - 2 bytes v DECLARE LONG CONSTANT DVI$_MAXBLOCK = 26 ! Number of logical blocks on the volume ( disk ) - VALUE - 4 bytes h DECLARE LONG CONSTANT DVI$_DEVDEPEND2 = 28 ! Additional ydevice dependent data - VALUE - 4 bytes ` DECLARE LONG CONSTANT DVI$_REFCNT = 30 ! Reference count of processes - VALUE - 2 bytes Q DECLARE LONG CONSTANT DVI$_DEVNAM = 32 ! Device name - STRING - 64 bytes Q DECLARE LONG CONSTANT DVI$_VOLNAM = 34 ! Volume name - STRING - 12 bytes i DECLARE LONG CONSTANT DVI$_SECTORS = 36 ! Number of sectors per track ( disk ) - VALUE - 1 byte j DECLARE LONG CONSTANT DVI$_TRACKS = 38 ! Number of tracks per cylinder ( disk ) -z VALUE - 1 byte r DECLARE LONG CONSTANT DVI$_CYLINDERS = 40 ! Number of cylinders on the volume ( disk ) - VALUE - 2 bytes u DECLARE LONG CONSTANT DVI$_FREEBLOCKS = 42 ! Number of free blocks on the volume ( disk ) - VALUE - 4 bytes \ DECLARE LONG CONSTANT DVI$_LOGVOLNAM = 44 ! Logical volume name - STRING - 64 bytes s DECLARE LONG CONSTANT DVI$_VOLNUMBER = 46 ! Number of this volume in volume set ( disk ) - VALUE - 4 byte m DECLARE LONG CONSTANT DVI$_VOLCOUN{T = 48 ! Count of volumes in volume set ( disk ) - VALUE - 4 byte | DECLARE LONG CONSTANT DVI$_ROOTDEVNAM = 50 ! Device name of root volume in volume set ( disk ) - STRING - 64 bytes | DECLARE LONG CONSTANT DVI$_NEXTDEVNAM = 52 ! Device name of next volume in volume set ( disk ) - STRING - 64 bytes ^ DECLARE LONG CONSTANT DVI$_TRANSCNT = 54 ! Volume Transaction Count - VALUE - 2 bytes Q DECLARE LONG CONSTANT DVI$_MOUNTCNT = 56 ! Mount count - VALUE - 2 bytes b | DECLARE LONG CONSTANT DVI$_CLUSTER = 58 ! Volume Cluster Size ( disk ) - VALUE - 2 bytes g DECLARE LONG CONSTANT DVI$_MAXFILES = 60 ! Maximum Files on Volume ( disk ) - VALUE - 4 bytes e DECLARE LONG CONSTANT DVI$_SERIALNUM = 62 ! Volume Serial Number ( disk ) - VALUE - 4 bytes R DECLARE LONG CONSTANT DVI$_ACPPID = 64 ! ACP Process ID - VALUE - 4 bytes Q DECLARE LONG CONSTANT DVI$_ACPTYPE = 66 ! ACP type code - VALUE - 1 byte c DECLARE LONG CONSTANT DV }I$_CONCEALED = 68 ! Device is a concealed device - BOOLEAN - 1 byte ! K ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVCHAR LONGWORD ! F DECLARE LONG CONSTANT DVI$_REC = 70 ! DEVICE RECORD ORIENTED G DECLARE LONG CONSTANT DVI$_CCL = 72 ! CARRIAGE CONTROL DEVICE D DECLARE LONG CONSTANT DVI$_TRM = 74 ! DEVICE IS A TERMINAL N DECLARE LONG CONSTANT DVI$_DIR = 76 ! DEVICE IS DIRECTORY STRUCTURED U DECLARE LONG CONSTANT DVI$_SDI = 78 ~! DEVICE IS SINGLE DIRECTORY STRUCTURED c DECLARE LONG CONSTANT DVI$_SQD = 80 ! SEQUENTIAL BLOCK-ORIENTED DEVICE ( I.E., MAGTAPE ) D DECLARE LONG CONSTANT DVI$_SPL = 82 ! DEVICE BEING SPOOLED E DECLARE LONG CONSTANT DVI$_OPR = 84 ! DEVICE IS AN OPERATOR \ DECLARE LONG CONSTANT DVI$_RCT = 86 ! DISK CONTAINS RCT ( DEC STANDARD 166 DISK ) > DECLARE LONG CONSTANT DVI$_NET = 88 ! NETWORK DEVICE \ DECLARE LONG CONSTANT DVI$_FOD = 90 ! FILES-ORIENTED DEVICE ( I.E., DISK AND MT ) E DECLARE LONG CONSTANT DVI$_DUA = 92 ! DEVICE IS DUAL PORTED @ DECLARE LONG CONSTANT DVI$_SHR = 94 ! DEVICE SHAREABLE J DECLARE LONG CONSTANT DVI$_GEN = 96 ! DEVICE IS A GENERIC DEVICE H DECLARE LONG CONSTANT DVI$_AVL = 98 ! DEVICE AVAILABLE FOR USE A DECLARE LONG CONSTANT DVI$_MNT = 100 ! DEVICE IS MOUNTED C DECLARE LONG CONSTANT DVI$_MBX = 102 ! DEVICE IS A MAILBOX J DECLARE LONG CONSTANT DVI$_DMT = 104 !  DEVICE MARKED FOR DISMOUNT P DECLARE LONG CONSTANT DVI$_ELG = 106 ! DEVICE HAS ERROR LOGGING ENABLED C DECLARE LONG CONSTANT DVI$_ALL = 108 ! DEVICE IS ALLOCATED h DECLARE LONG CONSTANT DVI$_FOR = 110 ! DEVICE IS MOUNTED FOREIGN ( I.E., NON-FILE STRUCTURED ) O DECLARE LONG CONSTANT DVI$_SWL = 112 ! DEVICE IS SOFTWARE WRITE LOCKED Q DECLARE LONG CONSTANT DVI$_IDV = 114 ! DEVICE CAPABLE OF PROVIDING INPUT R DECLARE LONG CONSTANT DVI$_ODV = 116 ! DEVIC E CAPABLE OF PROVIDING OUTPUT K DECLARE LONG CONSTANT DVI$_RND = 118 ! DEVICE ALLOWS RANDOM ACCESS L DECLARE LONG CONSTANT DVI$_RTM = 120 ! DEVICE IS REALTIME IN NATURE P DECLARE LONG CONSTANT DVI$_RCK = 122 ! DEVICE HAS READ CHECKING ENABLED Q DECLARE LONG CONSTANT DVI$_WCK = 124 ! DEVICE HAS WRITE CHECKING ENABLED  ! N ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND LONGWORD; ! * (AS DEFINED FOR TERMINALS: TTDEF IN STARDEFQZ.SDL)  ! 1 DECLARE LONG CONSTANT DVI$_TT_PASSALL = 1260 DECLARE LONG CONSTANT DVI$_TT_NOECHO = 1283 DECLARE LONG CONSTANT DVI$_TT_NOTYPEAHD = 1300 DECLARE LONG CONSTANT DVI$_TT_ESCAPE = 1322 DECLARE LONG CONSTANT DVI$_TT_HOSTSYNC = 1340 DECLARE LONG CONSTANT DVI$_TT_TTSYNC = 1360 DECLARE LONG CONSTANT DVI$_TT_SCRIPT = 138/ DECLARE LONG CONSTANT DVI$_TT_LOWER = 1401 DECLARE LONG CONSTANT DVI$_TT_MECHTAB = 142. DECLARE LONG CONSTANT DVI$_TT_WRAP  = 1440 DECLARE LONG CONSTANT DVI$_TT_CRFILL = 1460 DECLARE LONG CONSTANT DVI$_TT_LFFILL = 148/ DECLARE LONG CONSTANT DVI$_TT_SCOPE = 1500 DECLARE LONG CONSTANT DVI$_TT_REMOTE = 1522 DECLARE LONG CONSTANT DVI$_TT_EIGHTBIT = 1542 DECLARE LONG CONSTANT DVI$_TT_MBXDSABL = 1562 DECLARE LONG CONSTANT DVI$_TT_NOBRDCST = 1582 DECLARE LONG CONSTANT DVI$_TT_READSYNC = 1602 DECLARE LONG CONSTANT DVI$_TT_MECHFORM = 1621 DECLARE LONG CONSTANT DVI$_TT_HA LFDUP = 164/ DECLARE LONG CONSTANT DVI$_TT_MODEM = 166. DECLARE LONG CONSTANT DVI$_TT_OPER = 168. DECLARE LONG CONSTANT DVI$_TT_PAGE = 170 ! O ! * THE FOLLOWING CODES ARE THE INDIVIDUAL BITS OF THE DEVDEPEND2 LONGWORD< ! * (AS DEFINED FOR TERMINALS: TT2DEF IN STARDEFQZ.SDL) ! 3 DECLARE LONG CONSTANT DVI$_TT_LOCALECHO = 1722 DECLARE LONG CONSTANT DVI$_TT_AUTOBAUD = 1740 DECLARE LONG CONSTANT DVI$_TT_HANGUP = 1763 DECLARE LONG CONSTANT DV I$_TT_MODHANGUP = 1783 DECLARE LONG CONSTANT DVI$_TT_BRDCSTMBX = 180- DECLARE LONG CONSTANT DVI$_TT_DMA = 1823 DECLARE LONG CONSTANT DVI$_TT_ALTYPEAHD = 1842 DECLARE LONG CONSTANT DVI$_TT_SETSPEED = 186X DECLARE LONG CONSTANT DVI$_TT_DCL_MAILBX = 188 ! TEMP DEFINITIONS FOR DCL SPAWN 1 DECLARE LONG CONSTANT DVI$_TT_EDITING = 1900 DECLARE LONG CONSTANT DVI$_TT_INSERT = 1922 DECLARE LONG CONSTANT DVI$_TT_FALLBACK = 1940 DECLARE LONG CONSTANT DV I$_TT_DIALUP = 1960 DECLARE LONG CONSTANT DVI$_TT_SECURE = 1984 DECLARE LONG CONSTANT DVI$_TT_DISCONNECT = 2001 DECLARE LONG CONSTANT DVI$_TT_PASTHRU = 202/ DECLARE LONG CONSTANT DVI$_TT_SIXEL = 204. DECLARE LONG CONSTANT DVI$_TT_DRCS = 2061 DECLARE LONG CONSTANT DVI$_TT_PRINTER = 2084 DECLARE LONG CONSTANT DVI$_TT_APP_KEYPAD = 2100 DECLARE LONG CONSTANT DVI$_TT_SYSPWD = 2121 DECLARE LONG CONSTANT DVI$_TT_ANSICRT = 214/ DECLARE LONG CONST ANT DVI$_TT_REGIS = 216/ DECLARE LONG CONSTANT DVI$_TT_BLOCK = 218- DECLARE LONG CONSTANT DVI$_TT_AVO = 220. DECLARE LONG CONSTANT DVI$_TT_EDIT = 2220 DECLARE LONG CONSTANT DVI$_TT_DECCRT = 224 ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! > DECLARE LONG CONSTANT DVI$_STS = 226 ! STATUS LONGWORDD DECLARE LONG CONSTANT DVI$_DEVSTS = 228 ! DEVICE STATUS WORDm DECLARE LONG CONSTANT DVI$_DEVCHAR2 = 230 ! Second device characteristics longword - VALUE - 4 bytes Q DECLARE LONG CONSTANT DVI$_FULLDEVNAM = 232 ! Fully qualified device nameR DECLARE LONG CONSTANT DVI$_LOCKID = 234 ! Device lock id - VALUE - 4 bytesS DECLARE LONG CONSTANT DVI$_ALLDEVNAM = 236 ! Allocation class + device nameF DECLARE LONG CONSTANT DVI$_VOLSETMEM = 238 ! Volume set memberF DECLARE LONG CONSTANT DVI$_DEVLOCKNAM = 240 ! Device lock name ! P ! * THE FOLLOWING CODES SUPPORT FEATURES OF DUAL-PATH AND SHADOW-SET DEVICES ! U DECLARE LONG CONSTANT DVI$_ALLOCLASS = 242 ! Allocation class of host ( s ) R DECLARE LONG CONSTANT DVI$_ALT_HOST_AVAIL = 244 ! Alternate host is active\ DECLARE LONG CONSTANT DVI$_ALT_HOST_NAME = 246 ! Name of host serving alternate pathO DECLARE LONG CONSTANT DVI$_ALT_HOST_TYPE = 248 ! Type of alternate hostL DECLARE LONG CONSTANT DVI$_HOST_AVAIL = 250 ! Primary host is activeS DECLARE LONG CONSTANT DVI$_HOST_COUNT = 252 ! Number of paths to the deviceZ DECLARE LONG CONSTANT DVI$_HOST_NAME = 254 ! Name of host serving the primary path| DECLARE LONG CONSTANT DVI$_HOST_TYPE = 256 ! Type of primary host ( today one of "V785", "V780", "V750" or "HS50" )^ DECLARE LONG CONSTANT DVI$_REMOTE_DEVICE = 258 ! Device is not connected to local nodeX DECLARE LONG CONSTANT DVI$_SERVED_DEVICE = 260 ! Device is served to the cluster\ DECLARE LONG CONSTANT DVI$_SHDW_CATCHUP_COPYING = 262 ! Catch-up copy is in progressg DECLARE LONG CONSTANT DVI$_SHDW_MASTER = 264 ! Device is "virtual" master device for shadow setp DECLARE LONG CONSTANT DVI$_SHDW_MASTER_NAME = 266 ! Name of the "virtual" master device for a shadow setg DECLARE LONG CONSTANT DVI$_SHDW_MEMBER = 268 ! Device is one of the volumes making a shadow setW DECLARE LONG CONSTANT DVI$_SHDW_MERGE_COPYING = 270 ! Merge copy is in progressc DECLARE LONG CONSTANT DVI$_SHDW_NEXT_MBR_NAME = 272 ! Name of the ne xt device in shadow set ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! i DECLARE LONG CONSTANT DVI$_TT_PHYDEVNAM = 274 ! Terminal physical device name - STRING - 64 bytesf DECLARE LONG CONSTANT DVI$_TT_DECCRT2 = 276 ! DEC_CRT level 2 part of devdepend2 longword for  ! terminals.q DECLARE LONG CONSTANT DVI$_MEDIA_NAME = 278 ! Decoded media name from UCB$L_MEDIA_ID field ( ie. RK07 )o DECLARE LONG CONSTANT DVI$_MEDIA_TYPE = 280 ! Decoded media type from UCB$L_MEDIA_ID field ( ie. DM )[ DECLARE LONG CONSTANT DVI$_MEDIA_ID = 282 ! NONdecoded media id from UCB$L_MEDIA_ID ! m DECLARE LONG CONSTANT DVI$_SHDW_FAILED_MEMBER = 284 ! Member unit has been failed out from shadow sete DECLARE LONG CONSTANT DVI$_MSCP_UNIT_NUMBER = 286 ! MSCP unit number of device (internal hash8 ! value, not useful for customers or applications)d DECLARE LONG CONSTANT DVI$_DISPLAY_DEVNAM = 288 ! A displayable device name, useful for user$ ! displays but not for $ASSIGNe DECLARE LONG CONSTANT DVI$_TT_ACCPORNAM = 290 ! Name of local port on remote system. Counted4 ! string in remote native format, ie: LAT, X.29Q DECLARE LONG CONSTANT DVI$_DEVDEPEND3 = 292 ! Device dependent longword 3Q DECLARE LONG CONSTANT DVI$_TT_MULTISESSION = 294 ! Multi-session terminalK DECLARE LONG CONSTANT DVI$_TT_DECCRT3 = 296 ! VT3xx series terminal[ DECLARE LONG CONSTANT DVI$_SET_HOST_TERMINAL = 298 ! SET HOST session terminal T DECLARE LONG CONSTANT DVI$_DFS_ACCESS = 300 ! DFS client access point device^ DECLARE LONG CONSTANT DVI$_DAPDEVNAM = 302 ! DAP device name, used to store the remote3 ! name string of a device that is accessed via1 ! the DAP protocol (without DECnet), such as ! certain console disks.K DECLARE LONG CONSTANT DVI$_TT_DECCRT4 = 304 ! VT4xx series terminalX DECLARE LONG CONSTANT DVI$_TT_CHARSET = 306 ! Termin al character set information ! O ! * The following codes are the individual bits of the TT_CHARSET longword3 ! * in the terminal UCB (as defined in TTCDEF) ! P DECLARE LONG CONSTANT DVI$_TT_CS_KANA = 308 ! Support Kana character setR DECLARE LONG CONSTANT DVI$_TT_CS_KANJI = 310 ! Support Kanji character setR DECLARE LONG CONSTANT DVI$_TT_CS_HANZI = 312 ! Support Hanzi character setT DECLARE LONG CONSTANT DVI$_TT_CS_HANGUL = 314 ! Support Hangul cha racter setR DECLARE LONG CONSTANT DVI$_TT_CS_HANYU = 316 ! Support Hanyu character setP DECLARE LONG CONSTANT DVI$_TT_CS_THAI = 318 ! Support Thai character set ! . ! * THE FOLLOWING CODES ARE REGULAR ITEMS ! Q DECLARE LONG CONSTANT DVI$_DEVDEPEND4 = 320 ! Device dependent longword 4P DECLARE LONG CONSTANT DVI$_DEVICE_TYPE_NAME = 322 ! DDR Device type name[ DECLARE LONG CONSTANT DVI$_TT_ASIAN_MODE = 324 ! Asian terminal I/O characteristicsa  DECLARE LONG CONSTANT DVI$_PREFERRED_CPU = 326 ! Reserved for Alpa CPU affinity of deviceK DECLARE LONG CONSTANT DVI$_TT_DECCRT5 = 328 ! VT5xx series terminalf DECLARE LONG CONSTANT DVI$_TT_ANSI_COLOR = 330 ! Terminal supports ANSI color escape sequencesZ DECLARE LONG CONSTANT DVI$_MT3_SUPPORTED = 332 ! Tape UCB owned by an MTD enhanced ! driver? (longword)R DECLARE LONG CONSTANT DVI$_MT3_DENSITY = 334 ! Tape density. ( longword )b DECLARE LONG CONST ANT DVI$_DRIVER_IMAGE_NAME = 336 ! Reserved, used only on Alpha - string_ DECLARE LONG CONSTANT DVI$_CLIENT_DEVICE = 338 ! Reserved, used only on Alpha - boolean ! B ! *** ADD NEW ITEM-CODES IMMEDIATELY BEFORE THIS COMMENT ***** !  ! ) ! Define flag bits in the item code. ! 9 DECLARE LONG CONSTANT DVI$M_SECONDARY = x'00000001': DECLARE LONG CONSTANT DVI$M_NOREDIRECT = x'00008000', DECLARE LONG CONSTANT DVI$S_DVIDEF = 2 record DVIDEF1  ! Use secondary device characteristics ! Space for item codeE ! Define additional flags here, subtracting the space out of theG ! above item code. (The item code must contain all the unused bits- ! for proper validation in the service.)/ ! Don't redirect to virtual terminalq WORD SECONDARY_bits ! COMMENT ADDED BY SDL - SECONDARY_bits contains bits SECONDARY through NOREDIRECT end record DVIDEF  ! 4 ! Constant form  of name for past compatibility. ! / DECLARE LONG CONSTANT DVI$C_SECONDARY = 1 ! C ! The following ACP type codes are formally defined in $AQBDEFA ! These synonyms are available to user programs and they areG ! guaranteed to be consistent by ASSUME's in SYSGETDEV. AdditionsD ! to the ACP type codes in $AQBDEF should be reflected here and# ! in the ASSUMES in SYSGETDEV. ! O DECLARE LONG CONSTANT DVI$C_ACP_F11V1 = 1 ! FILES-11 STRUCTURE LEVEL 1 O DECLARE LONG CONSTANT DVI$C_ACP_F11V2 = 2 ! FILES-11 STRUCTURE LEVEL 2 : DECLARE LONG CONSTANT DVI$C_ACP_MTA = 3 ! MAGTAPE ; DECLARE LONG CONSTANT DVI$C_ACP_NET = 4 ! NETWORKS = DECLARE LONG CONSTANT DVI$C_ACP_REM = 5 ! REMOTE I/O F DECLARE LONG CONSTANT DVI$C_ACP_HBS = 6 ! HOST BASED SHADOWINGU DECLARE LONG CONSTANT DVI$C_ACP_F11V3 = 7 ! Files-11 presentation of ISO 9660X DECLARE LONG CONSTANT DVI$C_ACP_F11V4 = 8 ! Files-11 presentation of High SierraA DECLARE LONG CONSTANT DVI$C_ACP_F64 = 9 ! Dollar ACP typeV DECLARE LONG CONSTANT DVI$C_ACP_UCX = 10 ! ACP for TCP/IP Services for OpenVMSP DECLARE LONG CONSTANT DVI$C_ACP_F11V5 = 11 ! FILES-11 STRUCTURE LEVEL 5  wwzqLPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! . ! Device Scan Data Identifier Definitions !  ! **** NOTE **** ! F ! New items must always be added at the END of the list so that( ! users will not have to rebuild. !  ! -c DECLARE LONG CONSTANT DVS$_DEVCLASS = 1 ! Device class - VALUE - 4 bytes ( only one used )a DECLARE LONG CONSTANT DVS$_DEVTYPE = 2 ! Device type - VALUE - 4 bytes ( only one used ) wwLPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  R DECLARE LONG CONSTANT EFN$C_ENF = 128 ! Event No Flag ( no stored state ) ww-LPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! B ! Define erase type codes. The codes LODUMMY and HIDUMMY areD ! used as placeholders, to make the definition of the upper andF ! lower bound erase type symbols automatic. New erase type codesB ! should be added at the end of the list, but before HIDUMMY. !  ! 2 DECLARE LONG CONSTANT ERA$K_LODUMMY = 0 ! B DECLARE LONG CONSTANT ERA$K_MEMORY = 1 ! Erase main memoryF DECLARE LONG CONSTANT ERA$K_DISK = 2 ! Erase disk mass storageO DECLARE LONG CONSTANT ERA$K_TAPE = 3 ! Erase magnetic tape mass storage1 DECLARE LONG CONSTANT ERA$K_HIDUMMY = 4 ! Q DECLARE LONG CONSTANT ERA$K_MINTYPE = 1 ! Lower bound of erase type codesQ DECLARE LONG CONSTANT ERA$K_MAXTYPE = 3 ! Upper bound of erase type codesww7MPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +' ! FDL CALL INTERFACE CONTROL FLAGS ! -6 DECLARE LONG CONSTANT FDL$M_SIGNAL = x'00000001': DECLARE LONG CONSTANT FDL$M_FDL_STRING = x'00000002'> DECLARE LONG CONSTANT FD L$M_DEFAULT_STRING = x'00000004'; DECLARE LONG CONSTANT FDL$M_FULL_OUTPUT = x'00000008'9 DECLARE LONG CONSTANT FDL$M_$CALLBACK = x'00000010', DECLARE LONG CONSTANT FDL$S_FDLDEF = 1 record FDLDEF variant case& group FDL$R_FDLDEF_BITS1 ! SIGNAL ERRORS, DON'T RETURN4 ! MAIN FDL SPEC IS A CHAR STRING7 ! DEFAULT FDL SPEC IS A CHAR STRING3 ! PRODUCE A 'COMPLETE' FDL SPEC5 ! USED BY EDF ON INPUT (DEC ONLY)m BYTE SIGNAL_bits ! COMMENT ADDED BY SDL - SIGNAL_bits contains bits SIGNAL through fill_0* end group FDL$R_FDLDEF_BITS end variant end record FDLDEF  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ! ---- ! 4 ! LAYOUT OF THE FILE IDENTIFICATION BLOCK (FIB) ! ! **** ! Z ! NOTE: If the size of the FIB is changed the following must be changed, !  to reflect the change: ! > ! In Module: [RMS.SRC]RMSFWADEF.SDL ! 8 ! Field: FWA$T_FIBBUF ! 3 ! Constant: FWA$C_FIBLEN ! L ! Both the field and constant must be GEQ to the size ofM ! the FIB, i.e. FIB$C_LENGTH. FIB length is currently 96. ! L ! N.B. FWA$C_FIBLEN is currently set to the values of FIB$C_F64LENE ! due t o some nasty hackery in som e other facilities. ! ! **** ! 7 DECLARE LONG CONSTANT FIB$M_NOWRITE = x'00000001'5 DECLARE LONG CONSTANT FIB$M_DLOCK = x'00000002'8 DECLARE LONG CONSTANT FIB$M_BLK_LOCK = x'00000004'; DECLARE LONG CONSTANT FIB$M_FASTRDSQNOS = x'00000008'5 DECLARE LONG CONSTANT FIB$M_SPOOL = x'00000010'7 DECLARE LONG CONSTANT FIB$M_WRITECK = x'00000020'7 DECLARE LONG CONSTANT FIB$M_SEQONLY = x'00000040'5 DECLARE LONG CON STANT FIB$M_SEQNO = x'00000080'5 DECLARE LONG CONSTANT FIB$M_WRITE = x'00000100'6 DECLARE LONG CONSTANT FIB$M_READCK = x'00000200'6 DECLARE LONG CONSTANT FIB$M_NOREAD = x'00000400'7 DECLARE LONG CONSTANT FIB$M_NOTRUNC = x'00000800'7 DECLARE LONG CONSTANT FIB$M_CONTROL = x'00001000'< DECLARE LONG CONSTANT FIB$M_NO_READ_DATA = x'00002000'7 DECLARE LONG CONSTANT FIB$M_EXECUTE = x'00010000'9 DECLARE LONG CONSTANT FIB$M_PRSRV_ATR = x'00020000'7 DE CLARE LONG CONSTANT FIB$M_RMSLOCK = x'00040000'9 DECLARE LONG CONSTANT FIB$M_WRITETHRU = x'00080000'6 DECLARE LONG CONSTANT FIB$M_NOLOCK = x'00100000'8 DECLARE LONG CONSTANT FIB$M_NORECORD = x'00200000'8 DECLARE LONG CONSTANT FIB$M_NOVERIFY = x'00400000': DECLARE LONG CONSTANT FIB$M_CHANGE_VOL = x'00800000'6 DECLARE LONG CONSTANT FIB$M_REWIND = x'00000008'6 DECLARE LONG CONSTANT FIB$M_CURPOS = x'00000010'6 DECLARE LONG CONSTANT FIB$M_UPDATE = x'00000040'S DECLARE LONG CONSTANT FIB$K_ACCDATA = 10 ! ABOVE DATA NECESSARY FOR ACCESS S DECLARE LONG CONSTANT FIB$C_ACCDATA = 10 ! ABOVE DATA NECESSARY FOR ACCESS Z DECLARE LONG CONSTANT FIB$K_DIRDATA = 22 ! ABOVE DATA NECESSARY FOR DIRECTORY OPS Z DECLARE LONG CONSTANT FIB$C_DIRDATA = 22 ! ABOVE DATA NECESSARY FOR DIRECTORY OPS : DECLARE LONG CONSTANT FIB$M_NAMES_8BIT = x'00000001'; DECLARE LONG CONSTANT FIB$M_NAMES_16BIT = x'00000002'? DECLARE LONG CONST ANT FIB$M_PERCENT_LITERAL = x'00000004'6 DECLARE LONG CONSTANT FIB$M_ALLVER = x'00000008'6 DECLARE LONG CONSTANT FIB$M_ALLTYP = x'00000010'6 DECLARE LONG CONSTANT FIB$M_ALLNAM = x'00000020'4 DECLARE LONG CONSTANT FIB$M_WILD = x'00000100'6 DECLARE LONG CONSTANT FIB$M_NEWVER = x'00000200'9 DECLARE LONG CONSTANT FIB$M_SUPERSEDE = x'00000400'7 DECLARE LONG CONSTANT FIB$M_FINDFID = x'00000800'6 DECLARE LONG CONSTANT FIB$M_LOWVER = x'00004000'7 DECLAR E LONG CONSTANT FIB$M_HIGHVER = x'00008000'5 DECLARE LONG CONSTANT FIB$M_ALCON = x'00000001'6 DECLARE LONG CONSTANT FIB$M_ALCONB = x'00000002'6 DECLARE LONG CONSTANT FIB$M_FILCON = x'00000004'5 DECLARE LONG CONSTANT FIB$M_ALDEF = x'00000008'8 DECLARE LONG CONSTANT FIB$M_ALLOCATR = x'00000010'6 DECLARE LONG CONSTANT FIB$M_EXTEND = x'00000080'5 DECLARE LONG CONSTANT FIB$M_TRUNC = x'00000100'8 DECLARE LONG CONSTANT FIB$M_NOHDREXT = x'00000200'7 DECLARE LONG CONSTANT FIB$M_MARKBAD = x'00000400'7 DECLARE LONG CONSTANT FIB$M_NOPLACE = x'00004000'8 DECLARE LONG CONSTANT FIB$M_NOCHARGE = x'00008000'\ DECLARE LONG CONSTANT FIB$K_EXTDATA = 32 ! ABOVE NECESSARY FOR BASIC FILE EXTENSION \ DECLARE LONG CONSTANT FIB$C_EXTDATA = 32 ! ABOVE NECESSARY FOR BASIC FILE EXTENSION 5 DECLARE LONG CONSTANT FIB$M_EXACT = x'00000001'5 DECLARE LONG CONSTANT FIB$M_ONCYL = x'00000002'J DECLARE LONG CONSTANT FIB$C_CYL = 1 ! CYLINDER ADDRESS SPECIFIED = DECLARE LONG CONSTANT FIB$C_LBN = 2 ! LBN SPECIFIED G DECLARE LONG CONSTANT FIB$C_VBN = 3 ! PROXIMATE VBN SPECIFIED I DECLARE LONG CONSTANT FIB$C_RFI = 4 ! RELATED FILE ID SPECIFIED V DECLARE LONG CONSTANT FIB$K_ALCDATA = 44 ! ABOVE DATA NECESSARY FOR PLACEMENT V DECLARE LONG CONSTANT FIB$C_ALCDATA = 44 ! ABOVE DATA NECESSARY FOR PLACEMENT 7 DECLARE LONG CONSTANT FIB$M_ALT_REQ = x'00000001'; DECLARE LONG CON STANT FIB$M_ALT_GRANTED = x'00000002'6 DECLARE LONG CONSTANT FIB$M_DIRACL = x'00000004'9 DECLARE LONG CONSTANT FIB$M_PROPAGATE = x'00000008'9 DECLARE LONG CONSTANT FIB$M_NOCOPYACL = x'00000010'; DECLARE LONG CONSTANT FIB$M_NOCOPYOWNER = x'00000020': DECLARE LONG CONSTANT FIB$M_NOCOPYPROT = x'00000040'< DECLARE LONG CONSTANT FIB$M_EXCLPREVIOUS = x'00000080'; DECLARE LONG CONSTANT FIB$M_ALIAS_ENTRY = x'00000100'< DECLARE LONG CONSTANT FIB$M_WILDFID_FLAG = x'00000200'< DECLARE LONG CONSTANT FIB$M_DID_FILESPEC = x'00000400'S DECLARE LONG CONSTANT FIB$K_MOVEFILE = 72 ! end of FIB required by MOVEFILES DECLARE LONG CONSTANT FIB$C_MOVEFILE = 72 ! end of FIB required by MOVEFILE? DECLARE LONG CONSTANT FIB$M_FILE_ATTRIBUTES = x'0000000F'= DECLARE LONG CONSTANT FIB$M_FILE_CONTENTS = x'000000F0'K DECLARE LONG CONSTANT FIB$C_DEFAULT = 0 ! Use default caching policyN DECLARE LONG CONSTANT FIB$C_WRITETHROUGH = 1 ! Use writethrough cachingL DECLARE LONG CONSTANT FIB$C_WRITEBEHIND = 2 ! Use writebehind cachingD DECLARE LONG CONSTANT FIB$C_NOCACHING = 3 ! Do not cache file> DECLARE LONG CONSTANT FIB$M_FLUSH_ON_CLOSE = x'00000F00'U DECLARE LONG CONSTANT FIB$C_FLUSH = 1 ! Flush file from cache when file closedV DECLARE LONG CONSTANT FIB$C_NOFLUSH = 2 ! Retain file in cache when file closedC DECLARE LONG CONSTANT FIB$M_CACHING_OPTIONS_MBZ = x'FFFFF000'P DECLARE LONG CONSTANT FIB$C_ODS2 = 0 ! Name is ODS-2 legal ASCII encodedM DECLARE LONG CONSTANT FIB$C_ISL1 = 1 ! Name is 8-bit ( ISO Latin 1 )D DECLARE LONG CONSTANT FIB$C_ISO_LATIN = 1 ! Synonym for ISL14 ! NOTE - Name format type 2 reserved (was UTF8)N DECLARE LONG CONSTANT FIB$C_UCS2 = 3 ! Name is UCS-2 encoded ( both )_ DECLARE LONG CONSTANT FIB$C_NAMETYPE_LEN = 96 ! Length of FIB including NAMETYPE fields- DECLARE LONG CONSTANT FIB$K_LENGTH = 96- DE CLARE LONG CONSTANT FIB$C_LENGTH = 96- DECLARE LONG CONSTANT FIB$K_F64LEN = 96- DECLARE LONG CONSTANT FIB$C_F64LEN = 96- DECLARE LONG CONSTANT FIB$S_FIBDEF = 96 record FIBDEF" group FIB$R_ACCTL_OVERLAY variant caseC LONG FIB$L_ACCTL ! ACCESS CONTROL BITS  case) group FIB$R_ACCTL_BITS0* ! NO OTHER WRITERS . ! ENABLE DEACCESS  LOCK 5 ! ENABLE RMS-11 BLOCK LOCKING 5 ! READ HDRSEQ AND DATASEQ VALS- ! SPOOL FILE ON CLOSE , ! ENABLE WRITE CHECK 0 ! SEQUENTIAL ONLY ACCESS 3 ! STORE SEQNOS FOR THIS FILE& ! WRITE ACCESS + ! ENABLE READ CHECK * ! NO OTHER READERS 3 ! FILE MAY NOT BE TRUNCATED /  ! CONTROL ACCESS TO FILE4 ! NO READ ACCESS TO FILE DATA ! SPARE ' ! THE HIGH 8 BITS CANNOT BE COPIED. ! INTO THE ACCESS MODE WORD IN THE WINDOWE ! ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) > ! PRESERVE ORIGINAL ATTRIBUTES OF FILE 6 ! OPEN WITH RMS RECORD LOCKING @ ! FORCE CACHE WRITE-THROUGH ON OPERATION 4 !  OVERRIDE ACCESS INTERLOCKS 3 ! DO NOT RECORD FILE ACCESS 8 ! Do not perform compare on move.F ! Allow Movefile move between volumes in a set.w LONG NOWRITE_bits ! COMMENT ADDED BY SDL - NOWRITE_bits contains bits NOWRITE through CHANGE_VOL- end group FIB$R_ACCTL_BITS0 case) group FIB$R_ACCTL_BITS1% ! REWIND TAPE 9  ! CREATE AT CURRENT TAPE POSITION A ! UPDATE MODE (POSITION TO START OF FILE) p BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through fill_1- end group FIB$R_ACCTL_BITS1 case+ group FIB$R_ACCTL_FIELDS25 BYTE FIBDEF$$_FILL_13 ( 1 to 3 ); BYTE FIB$B_WSIZE ! WINDOW SIZE / end group FIB$R_ACCTL_FIELDS2 end variant& end group FIB$R_ACCTL_OVERLAY group FIB$R_FID_OVERLAY variant case: WORD FIB$W_FID ( 1 to 3 ) ! FILE ID  case( group FIB$R_FID_FIELDS; WORD FIB$W_FID_NUM ! FILE NUMBER D WORD FIB$W_FID_SEQ ! FILE SEQUENCE NUMBER 0 group FIB$R_FID_RVN_OVERLAY variant  caseI WORD FIB$W_FID_RVN ! RELATIVE VOLUME NUMBER  case5 group FIB$R_FID_RVN_FIELDSD BYTE FIB$B_FID_RVN ! SHORT FORM RVN J BYTE FIB$B_FID_NMX ! EXTENDED FILE NUMBER 9 end group FIB$R_FID_RVN_FIELDS# end variant4 end group FIB$R_FID_RVN_OVERLAY, end group FIB$R_ FID_FIELDS caseQ group FIB$R_FID_ISO_9660_FIELDS ! File ID fields for ISO 9660J WORD FIB$W_FID_DIRNUM ! Directory number of File-IdG LONG FIB$L_FID_RECNUM ! Record number of File-ID5 end group FIB$R_FID_ISO_9660_FIELDS end variant$ end group FIB$R_FID_OVERLAY group FIB$R_DID_OVERLAY variant case? WORD FIB$W_DID ( 1 to 3 ) ! DIRECTORY ID  case( group FIB$R_DID_FIELDS; WORD FIB$W_DID_NUM ! FILE NUMBER D WORD FIB$W_DID_SEQ ! FILE SEQUENCE NUMBER 0 group FIB$R_DID_RVN_OVERLAY variant caseI WORD FIB$W_DID_RVN ! RELATIVE VOLUME NUMBER  case5 group FIB$R_DID_RVN_FIELDSD  BYTE FIB$B_DID_RVN ! SHORT FORM RVN J BYTE FIB$B_DID_NMX ! EXTENDED FILE NUMBER 9 end group FIB$R_DID_RVN_FIELDS# end variant4 end group FIB$R_DID_RVN_OVERLAY, end group FIB$R_DID_FIELDS caseV group FIB$R_DID_ISO_9660_FIELDS ! Directory ID fields for ISO 9660J WORD FIB$W_DID_DIRNUM ! Directory num ber of File-IdG LONG FIB$L_DID_RECNUM ! Record number of File-ID5 end group FIB$R_DID_ISO_9660_FIELDS end variant$ end group FIB$R_DID_OVERLAYA LONG FIB$L_WCC ! WILD CARD CONTEXT " group FIB$R_NMCTL_OVERLAY variant caseA WORD FIB$W_NMCTL ! NAME CONTROL BITS  case( group FIB$R_NMCTL_BITS5  ! RETURN 8BIT FILENAMES (HFS)5 ! RETURN 16BIT FILENAMES (HFS)5 ! PERCENT IS LITERAL (HFS), ! MATCH ALL VERSIONS ) ! MATCH ALL TYPES ) ! MATCH ALL NAMES 1 ! WILD CARDS IN FILE NAME 1 ! MAXIMIZE VERSION NUMBER 1 ! SUPERSEDE EXISTING FILE , ! SEARCH FOR FILE ID 6  ! LOWER VERSION OF FILE EXISTS 7 ! HIGHER VERSION OF FILE EXISTS } WORD NAMES_8BIT_bits ! COMMENT ADDED BY SDL - NAMES_8BIT_bits contains bits NAMES_8BIT through HIGHVER, end group FIB$R_NMCTL_BITS end variant& end group FIB$R_NMCTL_OVERLAY" group FIB$R_EXCTL_OVERLAY variant case> WORD FIB$W_EXCTL ! EXTEND CONTROL  case(  group FIB$R_EXCTL_BITS- ! ALLOCATE CONTIGUOUS 0 ! CONTIGUOUS BEST EFFORT . ! MARK FILE CONTIGUOUS 1 ! ALLOCATE DEFAULT AMOUNT B ! PLACEMENT DATA PRESENT IN ATTRIBUTE LIST * ! ENABLE EXTENSION + ! ENABLE TRUNCATION 3 ! INHIBIT EXTENSION HEADERS ) ! MARK BLOCKS BAD A  ! DON'T ADD PLACEMENT POINTERS IN MOVEFILE0 ! DON'T CHARGE DISKQUOTA o WORD ALCON_bits ! COMMENT ADDED BY SDL - ALCON_bits contains bits ALCON through NOCHARGE, end group FIB$R_EXCTL_BITS end variant& end group FIB$R_EXCTL_OVERLAY; LONG FIB$L_EXSZ ! EXTEND SIZE = LONG FIB$L_EXVBN ! EXTENSION VBN # group FIB$R_ALOPTS_OVERLAY variant caseB BYTE FIB$B_ALOPTS ! ALLOCATION OPTIONS  case) group FIB$R_ALOPTS_BITS2 ! EXACT PLACEMENT REQUIRED 8 ! PUT ALLOCATION ON ONE CYLINDER m BYTE EXACT_bits ! COMMENT ADDED BY SDL - EXACT_bits contains bits EXACT through fill_2- end group FIB$R_ALOPTS_BITS end variant' end group FIB$R_ALOPTS_OVERLAYD  BYTE FIB$B_ALALIGN ! ALLOCATION ALIGNMENT " group FIB$R_ALLOC_OVERLAY variant caseF WORD FIB$W_ALLOC ( 1 to 5 ) ! ALLOCATION LOCATION  case* group FIB$R_ALLOC_FIELDS0 group FIB$R_LOC_FID_OVERLAY variant caseM WORD FIB$W_LOC_FID ( 1 to 3 ) ! RELATED FILE ID  ca se5 group FIB$R_LOC_FID_FIELDSI WORD FIB$W_LOC_NUM ! RELATED FILE NUMBER J WORD FIB$W_LOC_SEQ ! FILE SEQUENCE NUMBER 9 group FIB$R_LOC_RVN_OVERLAY( variant% caseG WORD FIB$W_LOC_RVN ! RELATED RVN % case> gr oup FIB$R_LOC_RVN_FIELDSM BYTE FIB$B_LOC_RVN ! SHORT FORM RVN S BYTE FIB$B_LOC_NMX ! EXTENDED FILE NUMBER B end group FIB$R_LOC_RVN_FIELDS, end variant= end group FIB$R_LOC_RVN_OVERLAY9 end group FIB$R_LOC_FID_FIELDS# end variant4 end group FIB$R_L OC_FID_OVERLAYS LONG FIB$L_LOC_ADDR ! LOCATION ADDRESS ( VBN, LBN, CYL ) . end group FIB$R_ALLOC_FIELDS end variant& end group FIB$R_ALLOC_OVERLAYM WORD FIB$W_VERLIMIT ! DIRECTORY ENTRY VERSION LIMIT A BYTE FIB$B_AGENT_MODE ! AGENTS ACCESS MODEH BYTE FIB$B_RU_FACILITY ! RECOVERABLE-FACILITY CODED LONG FIB$L_ACLCTX ! ACL CONTEXT FOR READ O LONG FIB$L_ACL_STATUS ! RETURN STATUS FROM ACL OPERATION# group FIB$R_STATUS_OVERLAY variant caseF LONG FIB$L_STATUS ! GENERAL STATUS LONGWORD case) group FIB$R_STATUS_BITS2 ! ALTERNATE ACCESS REQUIRED1 ! ALTERNATE ACCESS GRANTED5 ! DO DIRECTORY ACL PROPAGATION7 ! DO PROPAGATION ON  ENTER/MODIFY0 ! DON'T PROPAGATE THE ACL6 ! DON'T PROPAGATE THE OWNER UIC< ! DON'T PROPAGATE THE SOGW PROTECTIONF ! EXCLUDE THE PREVIOUS VERSION FROM PROPAGATIONC ! FILE ACCESSED VIA AN ALIAS DIRECTORY ENTRY* ! WILDCARD FID FLAG1 ! FILESPEC HAS BEEN DID'EDs WORD ALT_REQ_bits ! COMMENT ADDED BY SDL - ALT_REQ_bits conta ins bits ALT_REQ through fill_3- end group FIB$R_STATUS_BITS end variant' end group FIB$R_STATUS_OVERLAYD LONG FIB$L_ALT_ACCESS ! ALTERNATE ACCESS MASK group FIB$R_FUNCDEPEND variant case& group FIB$R_MOVFILDPI LONG FIB$L_MOV_SVBN ! starting VBN ( MOVEFILE )J LONG FIB$L_MOV_VBNCNT ! count of VBNs ( MOVEFILE )*  end group FIB$R_MOVFILDP end variant# end group FIB$R_FUNCDEPENDT WORD FIB$W_FILE_HDRSEQ_INCR ! header seq no increment for indiv fileX WORD FIB$W_DIR_HDRSEQ_INCR ! header seq no increment for directory fileR WORD FIB$W_FILE_DATASEQ_INCR ! data seq no increment for indiv fileV WORD FIB$W_DIR_DATASEQ_INCR ! data seq no increment for driectory fileM ! Define fields and constant values for FIB$L_CACHING_OPTION S longword.3 ! These must match [STARLET]ATRDEF.SDL exactly, group FIB$R_CACHING_OPTIONS_OVERLAY variant caseN LONG FIB$L_CACHING_OPTIONS ! F64XQP cache control bitvector case2 group FIB$R_CACHING_OPTIONS_BITS5 ! File attributes caching field3 ! File contents caching field1 ! Flush file on close field$ ! Must be zero LONG FILE_ATTRIBUTES_bits ! COMMENT ADDED BY SDL - FILE_ATTRIBUTES_bits contains bits FILE_ATTRIBUTES & ! through CACHING_OPTIONS_MBZ6 end group FIB$R_CACHING_OPTIONS_BITS end variant0 end group FIB$R_CACHING_OPTIONS_OVERLAYR group FIB$R_SD_FID_OVERLAY ! FID field for Secondary File Delete variant case; WORD FIB$W_SD_FID ( 1 to 3 ) ! FILE ID  c ase+ group FIB$R_SD_FID_FIELDS; WORD FIB$W_SD_FID_NUM ! FILE NUMBER D WORD FIB$W_SD_FID_SEQ ! FILE SEQUENCE NUMBER 3 group FIB$R_SD_FID_RVN_OVERLAY variant caseL WORD FIB$W_SD_FID_RVN ! RELATIVE VOLUME NUMBER  case8 group FIB$R_SD_FID_RVN_FIELDSG BYTE FIB $B_SD_FID_RVN ! SHORT FORM RVN M BYTE FIB$B_SD_FID_NMX ! EXTENDED FILE NUMBER < end group FIB$R_SD_FID_RVN_FIELDS# end variant7 end group FIB$R_SD_FID_RVN_OVERLAY/ end group FIB$R_SD_FID_FIELDS end variant' end group FIB$R_SD_FID_OVERLAYL WORD FIB$$_RESERVED_1 ! Pad up to a longword boundaryI BYTE FIB$B_NAME_FORMAT_IN  ! Inbound file name encodingN BYTE FIB$B_NAME_FORMAT_OUT ! Returned file name encoding I BYTE FIB$B_ASCNAME_FORMAT ! ASCNAME attribute encodingV BYTE FIB$B_RESERVED_2 ! For alignment. NOTE - Must be zero.  end record FIBDEF F DECLARE LONG CONSTANT FIB$C_REWINDVOL = 1 ! REWIND VOLUME SET O DECLARE LONG CONSTANT FIB$C_POSEND = 2 ! POSITION TO END OF VOLUME SET D DECLARE LONG CONSTANT FIB$C_NE XTVOL = 3 ! FORCE NEXT VOLUME D DECLARE LONG CONSTANT FIB$C_SPACE = 4 ! SPACE MAGNETIC TAPE 2 DECLARE LONG CONSTANT FIB$C_ILLEGAL = 5 ! @ DECLARE LONG CONSTANT FIB$C_REWINDFIL = 6 ! REWIND FILE R DECLARE LONG CONSTANT FIB$C_LOCK_VOL = 7 ! LOCK VOLUME AGAINST ALLOCATION A DECLARE LONG CONSTANT FIB$C_UNLK_VOL = 8 ! UNLOCK VOLUME  ! QUOTA FILE OPERATIONSF DECLARE LONG CONSTANT FIB$C_ENA_QUOTA = 9 ! ENABLE QUOTA FILE H DECLARE LONG CONSTANT FIB$C_DSA_QUOTA = 10 ! DISABLE QUOTA FILE J DECLARE LONG CONSTANT FIB$C_ADD_QUOTA = 11 ! ADD QUOTA FILE ENTRY N DECLARE LONG CONSTANT FIB$C_EXA_QUOTA = 12 ! EXAMINE QUOTA FILE ENTRY M DECLARE LONG CONSTANT FIB$C_MOD_QUOTA = 13 ! MODIFY QUOTA FILE ENTRY M DECLARE LONG CONSTANT FIB$C_REM_QUOTA = 14 ! REMOVE QUOTA FILE ENTRY T DECLARE LONG CONSTANT FIB$C_USEREOT = 15 ! ENABLE USER END OF TAPE HANDLING C DECLARE LONG CONSTANT FIB$C_REMAP = 16 ! REMAP FILE WINDOW m DECLARE LONG CONSTANT FIB$C_CLSEREXCP = 17 ! ALLOW THE USER TO CLEAR A SERIOUS EXCP FROM A TAPE DRIVEK DECLARE LONG CONSTANT FIB$C_FLUSH_CACHE = 18 ! FLUSH SELECTED CACHEU DECLARE LONG CONSTANT FIB$C_FORCE_MV = 19 ! FORCE MOUNT VERIFICATION TO OCCURk DECLARE LONG CONSTANT FIB$C_VALIDATE_VOLUME = 20 ! VALIDATE VOLUME SET FOLLOWING SNAPSHOT FILE BOOTc DECLARE LONG CONSTANT FIB$C_VALIDATE_FILE = 21 ! VALIDATE FILE FOLLOWING SNAPSHOT FILE BOOTo DECLARE LONG CONSTANT FIB$C_UPDATE_VOL_PROFILE = 22 ! UPDATE A VOLUME'S ( PERMANENT ) SECURITY PROFILEm DECLARE LONG CONSTANT FIB$C_UPDATE_FIL_PROFILE = 23 ! UPDATE A FILE'S ( PERMANENT ) SECURITY PROFILEc DECLARE LONG CONSTANT FIB$C_CHECK_PROTECTION = 24 ! PERFORM FILE OR VOLUME PROTECTION CHECKF DECLARE LONG CONSTANT FIB$C_ADD_THREAD = 25 ! ADD A NEW THREADE DECLARE LONG CONSTANT FIB$C_REM_THREAD = 26 ! REMOVE A THREADK DECLARE LONG CONSTANT FIB$C_EXA_THREAD = 27 ! INQUIRE ABOUT THREADST DECLARE LONG CONSTANT FIB$C_CHECK_PATH = 28 ! FIND DIRSEQ VAL AND ARM BLKASTG DECLARE LONG CONSTANT FIB$C_ENA_DW = 29 ! ENABLE DEFERRED WRITEH DECLARE LONG CONSTANT FIB$C_DSA_DW = 30 ! DISABLE DEFERRED WRITEF DECLARE LONG CONSTANT FIB$C_WRITEBACK_CACHE = 31 ! F64 cachingF DECLARE LONG CONSTANT FIB$C_WRITETHRU_CACHE = 32 ! F64 cachingU DECLARE LONG CONSTANT FIB$C_FILE_SYNCH = 33 ! VDC/Spiralog flush file to disk[  DECLARE LONG CONSTANT FIB$C_CACHING_OPTIONS = 34 ! VDC/Spiralog select caching modeb DECLARE LONG CONSTANT FIB$C_WRITE_BARRIER = 35 ! VDC/Spiralog barrier writes to this pointU DECLARE LONG CONSTANT FIB$C_VOL_FLUSH = 36 ! VDC volume flush local node only^ DECLARE LONG CONSTANT FIB$C_VOL_FLUSH_ALL = 37 ! VDC flush all volumes local node onlyo DECLARE LONG CONSTANT FIB$C_CLONE_FIL_PROFILE = 38 ! Return a copy of a file's current security profileK DECLARE LONG CONSTANT FIB$C_STRUC_LEVEL2 = 39 ! Set the vcb to ods2K DECLARE LONG CONSTANT FIB$C_STRUC_LEVEL5 = 40 ! Set the vcb to ods5H DECLARE LONG CONSTANT FIB$K_MTALEN = 28 ! LENGTH OF MTAACP DATA H DECLARE LONG CONSTANT FIB$C_MTALEN = 28 ! LENGTH OF MTAACP DATA  ! G DECLARE LONG CONSTANT FIB$C_FID_CACHE = 1 ! FLUSH THE FID CACHEM DECLARE LONG CONSTANT FIB$C_EXTENT_CACHE = 2 ! FLUSH THE EXTENT CACHEK DECLARE LONG CONSTANT FIB$C_QUOTA_CACHE = 3 ! FL USH THE QUOTA CACHEI DECLARE LONG CONSTANT FIB$C_BFRD_CACHE = 4 ! FLUSH THE BFRD CACHEG DECLARE LONG CONSTANT FIB$C_VBN_CACHE = 5 ! FLUSH THE VBN CACHE ! Z DECLARE LONG CONSTANT FIB$C_FLUSH_FILE_ATTRIBUTES = 1 ! Only flush file attributesV DECLARE LONG CONSTANT FIB$C_FLUSH_FILE_CONTENTS = 2 ! Only flush file contentsG DECLARE LONG CONSTANT FIB$C_FLUSH_FILE = 3 ! Flush all of file  ! 7 DECLARE LONG CONSTANT FIB$M_ALL_MEM = x'00000001'7 DECLARE LONG CONSTANT FIB$M_ALL_GRP = x'00000002'7 DECLARE LONG CONSTANT FIB$M_MOD_USE = x'00000004'8 DECLARE LONG CONSTANT FIB$M_MOD_PERM = x'00000008'8 DECLARE LONG CONSTANT FIB$M_MOD_OVER = x'00000010'. DECLARE LONG CONSTANT FIB$S_FIBDEF1 = 28 record FIBDEF1* BYTE FIBDEF$$_FILL_14 ( 1 to 22 )D WORD FIB$W_CNTRLFUNC ! ACP CONTROL FUNCTION ( ! DEFINE ACP CONTROL FUNCTION CODES ! % group FIB$R_CNTRLVAL_OVERLAY  variant caseT LONG FIB$L_CNTRLVAL ! ACP CONTROL FUNCTION VALUE PARAMETER - ! CACHE IDENTIFIER CODES FOR FLUSH_CACHE ! 4 ! Files-64 CACHE IDENTIFIER CODES FOR FILE_SYNC ! - ! CONTROL BITS FOR QUOTA FILE OPERATIONS !  case+ group FIB$R_CNTRLVAL_BITS2 ! MATCH ALL MEMBER NUMBERS 1 ! MATCH ALL GROUP NUMBERS + ! MODIFY USAG E DATA 0 ! MODIFY PERMANENT QUOTA 0 ! MODIFY OVERDRAFT LIMIT s BYTE ALL_MEM_bits ! COMMENT ADDED BY SDL - ALL_MEM_bits contains bits ALL_MEM through fill_4/ end group FIB$R_CNTRLVAL_BITS end variant) end group FIB$R_CNTRLVAL_OVERLAY end record FIBDEF1 D ! Add a synonym for FIB$C_FILE_SYNCH to keep naming consistency1 DECLARE LONG CONSTANT FIB$C_FILE_FLUSH = 33 wwyNPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! # ! STRUCTURE OF A FILE ID (FID) ! , DECLARE LONG CONSTANT FID$K_LENGTH = 6, DECLARE LONG CONSTANT FID$C_LENGTH = 6< DECLARE LONG CONSTANT FID$C_INDEXF = 1 ! INDEX FILE B DECLARE LONG CONSTANT FID$C_BITMAP = 2 ! STORAGE MAP FILE @ DECLARE LONG CONSTANT FID$C_BADBLK = 3 ! BAD BLOCK FILE E DECLARE LONG CONSTANT FID$C_MFD = 4 ! MASTER FILE DIRECTORY A DECLARE LONG CONSTANT FID$C_CORIMG = 5 ! CORE IMAGE FILE F DECLARE LONG CONSTANT FID$C_VOLSET = 6 ! VOLUME SET LIST FILE L DECLARE LONG CONSTANT FID$C_CONTIN = 7 ! STANRARD CONTINUATION FILE A DECLARE LONG CONSTANT FID$C_BACKUP = 8 ! BACKUP LOG FILE D DECLARE LONG CONSTANT FID$C_BADLOG = 9 ! BAD BLOCK LOG FILE B DECLARE LONG CONSTANT FID$C_FREFIL = 10 ! FREE SPACE FILE , DECLARE LONG CONSTANT FID$S_FIDDEF = 6 record FIDDEF group FID$R_FID_OVERLAY variant caseL WORD FID$W_FID ( 1 to 3 ) ! File Identification Number case( group FID$R_FID_FIELDS; WORD FID$W_NUM ! FILE NUMBER D WORD FID$W_ SEQ ! FILE SEQUENCE NUMBER , group FID$R_RVN_OVERLAY variant caseF WORD FID$W_RVN ! RELATIVE VOLUME NUMBER  case1 group FID$R_RVN_FIELDSB BYTE FID$B_RVN ! BYTE FORM OF RVN G BYTE FID$B_NMX ! FILE NUMBER EXTENSION 5 end group FID$R_RVN_FIELDS#  end variant0 end group FID$R_RVN_OVERLAY, end group FID$R_FID_FIELDS caseM group FID$R_ISO_9660_FIELDS ! File ID fields for ISO 9660J WORD FID$W_DIRNUM ! Directory number of File-IdG LONG FID$L_RECNUM ! Record number of File-ID1 end group FID$R_ISO_9660_FIELDS end variant$ end group FID$R_FID_OVERLAY end record FIDDEF  ww NPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ? DECLARE LONG CONSTANT HW$_VAX = 1 ! VAX architectureA DECLARE LONG CONSTANT HW$_ALPHA = 2 ! Alpha architecture ww@ OPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +% ! IMAGE ACTIVATION CONTROL FLAGS ! -5 DECLARE LONG CONSTANT IAC$M_NOACT = x'00000001'8 DECLARE LONG CONSTANT IAC$M_WRITABLE = x'00000002'9 DECLARE LONG CONSTANT IAC$M_ SHAREABLE = x'00000004'9 DECLARE LONG CONSTANT IAC$M_PRIVILEGE = x'00000008'5 DECLARE LONG CONSTANT IAC$M_MERGE = x'00000010'6 DECLARE LONG CONSTANT IAC$M_EXPREG = x'00000020'7 DECLARE LONG CONSTANT IAC$M_P1MERGE = x'00000040'8 DECLARE LONG CONSTANT IAC$M_PARANOID = x'00000080'7 DECLARE LONG CONSTANT IAC$M_LASTCLU = x'00000100'3 DECLARE LONG CONSTANT IAC$M_LIM = x'00000200'5 DECLARE LONG CONSTANT IAC$M_RETRY = x'00000400'8 DECLARE LONG CONST ANT IAC$M_NOCMKRNL = x'00000800'9 DECLARE LONG CONSTANT IAC$M_SEQDEVLOD = x'00001000'7 DECLARE LONG CONSTANT IAC$M_XLINKER = x'00002000'9 DECLARE LONG CONSTANT IAC$M_KP_RESHDR = x'00004000'9 DECLARE LONG CONSTANT IAC$M_IS_RESHDR = x'00008000'9 DECLARE LONG CONSTANT IAC$M_NOTSHARED = x'00010000'9 DECLARE LONG CONSTANT IAC$M_GBLCLUSTR = x'00020000'8 DECLARE LONG CONSTANT IAC$M_SHMIDENT = x'00040000'6 DECLARE LONG CONSTANT IAC$M_NOCOPY = x'00080000'9  DECLARE LONG CONSTANT IAC$M_P1MERG_P0 = x'00100000'9 DECLARE LONG CONSTANT IAC$M_SETVECTOR = x'00200000'9 DECLARE LONG CONSTANT IAC$M_PROTECTED = x'00400000'Q DECLARE LONG CONSTANT IAC$C_LARGEST = 6 ! LARGEST FLAG CALLER MAY SPECIFY , DECLARE LONG CONSTANT IAC$S_IACDEF = 3 record IACDEF variant case& group IAC$R_IACDEF_BITS= ! DO NOT ACTIVATE THE IMAGE (FOR INSTALL) . ! MAKE IMAGE FI LE WRITABLE = ! ACT. SHAREABLE IMAGE FOR EXECUTABLE IMG = ! ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG ; ! ACT 2ND EXECUTABLE IMG INTO ADR SPACE 7 ! MAP IMAGE INTO NEXT FREE VA SPACE = ! P1 MERGED ACTIVATION (LEGAL INPUT FLAG) * ! GO INTO PARANOIA MODE' ! LAST CLUSTER FLAG $ ! LINKABLE IMAGE , ! RETRY IMAGE ACTIVATION 8  ! SHUT OFF CMKRNL,CMEXEC-SYSVER DIFF : ! LOADING FROM SEQUENTIAL DEVICE (NET) ) ! CROSS LINKER FORMAT 0 ! MAKE IMAGE HEADER RESIDENT . ! IMAGE HEADER IS RESIDENT 7 ! DO NOT SET IS_SHARED IN KFI ENTRY : ! CURRENTLY PROCESSING GBL ISD CLUSTER : ! SHARED MEMORY IDENT USED FOR GBL SEC < ! NO PRIVATE COPY OF SECTION IN EXEC IMG : ! P1 MERGED ACTIVATION WITH P0 ADDRESS ! ! RANGE (INTERNAL FLAG ONLY); ! SIGNAL ALTERNATE ENTRY TO SET VECTORS 5 ! REQUIRE SHAREABLES BE /PROTECTEDj LONG NOACT_bits ! COMMENT ADDED BY SDL - NOACT_bits contains bits NOACT through fill_5* end group IAC$R_IACDEF_BITS end variant end record IACDEF  ww@6`OPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 9 ! ICC IOSB data structure for data transfer routines ! N ! Past the 1st longword, the IOS_ICC fields vary depending on the type ofN ! request/operation. The diagram attempts to p icture those relationshipsN ! below. Longwords 2-5 are done in columns, each column representing theA ! value of that longword for that type of request/operation. ! " ! +4 +2 +0C ! +---------------------------------------------------------+G ! L1: | Undefined | Return status code |C ! |---------------------------------------------------------|C ! |---------------------------------------------------------|  ! | | | | |C ! | RECEIVE | REPLY | TRANSCEIVE | CONNECT | ! | | | | |G ! L2: | rcv_len | replyto_handle| txrcv_len | RemStat |G ! |---------------|---------------|---------------|---------|G ! L3: | req_handle | Unused | | Unused |G ! |---------------|---------------| reply_buffer | |G ! L4: | reply_len | Unused | | |G !  |---------------|---------------|---------------| |G ! L5: | Unused | Unused | txreply_len | |G ! |---------------+---------------+---------------+---------| ! 2 DECLARE LONG CONSTANT IOS_ICC$S_IOS_ICC = 20 record IOS_ICCJ WORD IOS_ICC$w_status ! return status ( returned )7 WORD IOS_ICC$w_reserved ! reserved# group IOS_ICC$r_parameters variant c ase) group IOS_ICC$r_connectK LONG IOS_ICC$l_remstat ! remote status ( returned )4 LONG IOS_ICC$l_fill0 ( 1 to 3 )- end group IOS_ICC$r_connect case) group IOS_ICC$r_receiveS LONG IOS_ICC$l_rcv_len ! number of bytes recvd ( returned )P LONG IOS_ICC$l_req_handle ! request handle ( returned )O LONG IOS_ICC$l_reply_ len ! reply len ( returned )) LONG IOS_ICC$l_fill1- end group IOS_ICC$r_receive case' group IOS_ICC$r_replyQ LONG IOS_ICC$l_replyto_handle ! request_handle ( input )4 LONG IOS_ICC$l_fill2 ( 1 to 3 )+ end group IOS_ICC$r_reply case, group IOS_ICC$r_transceiveU LONG IOS_ICC$l_txrcv_len ! number o f bytes recvd ( returned )C LONG IOS_ICC$A_reply_buffer ! buffer address* LONG IOS_ICC$l_fill64M LONG IOS_ICC$l_txreply_len ! reply len ( input )0 end group IOS_ICC$r_transceive end variant' end group IOS_ICC$r_parameters end record IOS_ICC 2 DECLARE LONG CONSTANT ICC$C_receive_len = 16/ DECLARE LONG CONSTANT ICC$C_reply_len = 85 DECLARE LONG CONSTANT IC C$C_transceive_len = 20 ! D ! Connection flag bit definitions (for connect/accept services) ! : DECLARE LONG CONSTANT ICC$M_Synch_Mode = x'00000001': DECLARE LONG CONSTANT ICC$S_ICC_CONNECTION_FLAGS = 1! record ICC_CONNECTION_FLAGS. ! Set (1) if data transfer routines( ! are allowed to return SS$_SYNCH ! to the user.p BYTE Synch_Mode_bits ! COMMENT ADDED BY SDL - Synch_Mode_bits contains bits Synch_Mode through fill_6% end record ICC_CONNECTION_FLAGS  !  ! Length constants ! 4 DECLARE LONG CONSTANT ICC$C_MAX_ASSOC_LEN = 31: DECLARE LONG CONSTANT ICC$C_MAX_CONN_DATA_LEN = 1000 ! L ! ICC event codes (first parameter) for the connect/disconnect routines ! 0 DECLARE LONG CONSTANT ICC$C_EV_CONNECT = 03 DECLARE LONG CONSTANT ICC$C_EV_DISCONNECT = 1/ DECLARE LONG CONSTANT ICC$C_min_event = 0/ DECLARE LONG CONSTANT ICC$C_max_event = 1 ! % ! D efault ICC association handle ! 7 DECLARE LONG CONSTANT ICC$C_DFLT_ASSOC_HANDLE = 1 ! ! ! Default flow control value ! T DECLARE LONG CONSTANT ICC$C_DEFAULT_MAXFLOWBUFCNT = 5 ! Pending inbound msgs wwgOPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! += ! $PERSONA_CREATE, $PERSONA_ASSUME FLAGS bit definitions ! -? DECLARE LONG CONSTANT IMP$M_ASSUME_SECURITY = x'00000001'> DECLARE LONG CONSTANT IMP$M_ASSUME_ACCOUNT = x'00000 002'? DECLARE LONG CONSTANT IMP$M_ASSUME_JOB_WIDE = x'00000004'> DECLARE LONG CONSTANT IMP$M_ASSUME_DEFPRIV = x'00000008'? DECLARE LONG CONSTANT IMP$M_ASSUME_DEFCLASS = x'00000010'0 DECLARE LONG CONSTANT IMP$S_IMPFLAGDEF = 4 record IMPFLAGDEF variant case& group IMP$R_IMPDEF_BITS LONG ASSUME_SECURITY_bits ! COMMENT ADDED BY SDL - ASSUME_SECURITY_bits contains bits ASSUME_SECURITY through & ! FILL_1*  end group IMP$R_IMPDEF_BITS end variant end record IMPFLAGDEF  ww6PPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! * ! Values for INIT$_DENSITY item code. ! G DECLARE LONG CONSTANT INIT$K_DENSITY_800_BPI = 1 ! 800 bpi tapeI DECLARE LONG CONSTANT INIT$K_DENSITY_1600_BPI = 2 ! 1600 bpi tape I DECLARE LONG CONSTANT INIT$K_DENSITY_6250_BPI = 3 ! 6250 bpi tapeR DECLARE LONG CONSTANT INIT$K_DENSITY_SINGLE_DISK = 4 ! Single-density RX02Z DECLARE LONG CONSTANT INIT$K_DENSITY_DOUBLE_DISK = 5 ! RX33 or double-density RX02j DECLARE LONG CONSTANT INIT$K_DENSITY_DD_DISK = 6 ! "Double density" ( lower than "High Density" )P DECLARE LONG CONSTANT INIT$K_DENSITY_HD_DISK = 7 ! High density disketteX DECLARE LONG CONSTANT INIT$K_DENSITY_COMPACT = 8 ! TA9 0 with data compaction on O DECLARE LONG CONSTANT INIT$K_DENSITY_ED_DISK = 9 ! New density for RX26 ! - ! Values for INIT$_HOMEBLOCKS item code. ! Q DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_GEOMETRY = 1 ! geometry dependentJ DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_FIXED = 2 ! fixed positionK DECLARE LONG CONSTANT INIT$K_HOMEBLOCKS_CONTIGUOUS = 3 ! contiguous ! + ! Item codes for $INIT_VOL parameters. ! 8 DECLARE LONG CONSTANT INIT $S_BADBLOCKS_LBN_DEF = 8 record BADBLOCKS_LBN_DEFA LONG INIT$L_BADBLOCKS_LBN ! LBN of first blockK LONG INIT$L_BADBLOCKS_LBN_COUNT ! Count of blocks to be marked" end record BADBLOCKS_LBN_DEF 9 DECLARE LONG CONSTANT INIT$S_BADBLOCKS_SEC_DEF = 16 record BADBLOCKS_SEC_DEFD LONG INIT$L_BADBLOCKS_SECTOR ! Sector of first blockK LONG INIT$L_BADBLOCKS_SEC_COUNT ! Count of blocks to be markedC LONG INIT$L _BADBLOCKS_TRACK ! Track of first blockF LONG INIT$L_BADBLOCKS_CYLINDER ! Cylinder of first block" end record BADBLOCKS_SEC_DEF ! Define codes as constantsX DECLARE LONG CONSTANT INIT$_ACCESSED = 1 ! Number of directories in system space_ DECLARE LONG CONSTANT INIT$_BADBLOCKS_LBN = 2 ! Bad block areas by logical block numberb DECLARE LONG CONSTANT INIT$_BADBLOCKS_SEC = 3 ! Bad block areas by sector, track, cylinderM DECLARE LONG C ONSTANT INIT$_CLUSTERSIZE = 4 ! Minimum allocation unitM DECLARE LONG CONSTANT INIT$_COMPACTION = 5 ! Data compaction for TA90J DECLARE LONG CONSTANT INIT$_NO_COMPACTION = 6 ! No data compaction8 DECLARE LONG CONSTANT INIT$_DENSITY = 7 ! FormatZ DECLARE LONG CONSTANT INIT$_DIRECTORIES = 8 ! Preallocated entries for directoriesF DECLARE LONG CONSTANT INIT$_ERASE = 9 ! Destroy data on volumeQ DECLARE LONG CONSTANT INIT$_NO_ERASE = 10 ! Do not destroy data on volumeU DECLARE LONG CONSTANT INIT$_EXTENSION = 11 ! Default extension size for filesM DECLARE LONG CONSTANT INIT$_FPROT = 12 ! Default protection for filesX DECLARE LONG CONSTANT INIT$_HEADERS = 13 ! Number of file headers for index fileZ DECLARE LONG CONSTANT INIT$_HIGHWATER = 14 ! Set the file highwater mark attributed DECLARE LONG CONSTANT INIT$_NO_HIGHWATER = 15 ! Do not set the file highwater mark attributeb DECLARE LONG CONSTANT INIT$_INDEX_BEGINNING = 16 ! Place index file at beginning of volumeI DECLARE LONG CONSTANT INIT$_INDEX_BLOCK = 17 ! LBN for index fileV DECLARE LONG CONSTANT INIT$_INDEX_END = 18 ! Place index file at end of volume\ DECLARE LONG CONSTANT INIT$_INDEX_MIDDLE = 19 ! Place index file at middle of volume\ DECLARE LONG CONSTANT INIT$_INTERCHANGE = 20 ! Do not write VMS-specific informationX DECLARE LONG CONSTANT INIT$_NO_INTERCHANGE = 21 ! Write VMS-specific information^  DECLARE LONG CONSTANT INIT$_LABEL_ACCESS = 22 ! Character for ANSI accessability fieldR DECLARE LONG CONSTANT INIT$_LABEL_VOLO = 23 ! Text for ANSI owner ID fieldU DECLARE LONG CONSTANT INIT$_MAXFILES = 24 ! Maximum number of files on volumeW DECLARE LONG CONSTANT INIT$_OVR_ACCESS = 25 ! Override ANSI accessability fielda DECLARE LONG CONSTANT INIT$_NO_OVR_ACCESS = 26 ! Do not override ANSI accessability fieldK DECLARE LONG CONSTANT INIT$_OVR_EXP = 27 !  Override expiration dateU DECLARE LONG CONSTANT INIT$_NO_OVR_EXP = 28 ! Do not override expiration dateP DECLARE LONG CONSTANT INIT$_OVR_VOLO = 29 ! Override ANSI owner ID fieldZ DECLARE LONG CONSTANT INIT$_NO_OVR_VOLO = 30 ! Do not override ANSI owner ID field? DECLARE LONG CONSTANT INIT$_OWNER = 31 ! UIC for volumeN DECLARE LONG CONSTANT INIT$_READCHECK = 32 ! Check all read operationsX DECLARE LONG CONSTANT INIT$_NO_READCHECK = 33 ! Do not check all read operations@ DECLARE LONG CONSTANT INIT$_SIZE = 34 ! Size of RAM diskW DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_1 = 35 ! Format in Files-11 level 1W DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_2 = 36 ! Format in Files-11 level 2g DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_2_SUB_0 = 37 ! Format in subset of Files-11 level 2I DECLARE LONG CONSTANT INIT$_USER_NAME = 38 ! User name for volumeP DECLARE LONG CONSTANT INIT$_VERIFIED = 39 ! Use bad block data on volumeV DECLARE LONG CONSTANT INIT$_NO_VERIFIED = 40 ! Ignore bad block data on volumeB DECLARE LONG CONSTANT INIT$_VPROT = 41 ! Volume protection] DECLARE LONG CONSTANT INIT$_WINDOW = 42 ! Number of mapping pointers for file windowsP DECLARE LONG CONSTANT INIT$_WRITECHECK = 43 ! Check all write operationsZ DECLARE LONG CONSTANT INIT$_NO_WRITECHECK = 44 ! Do not check all write operationsS DECLARE LONG CONSTANT INIT$_MIN_CLASS = 45 ! Minimum security classficationS DECLARE LONG CONSTANT INIT$_MAX_CLASS = 46 ! Maximum security classfication[ DECLARE LONG CONSTANT INIT$_NO_PROTECTION = 47 ! No default security classificationY DECLARE LONG CONSTANT INIT$_HOMEBLOCKS = 48 ! Homeblock placement strategy to useW DECLARE LONG CONSTANT INIT$_STRUCTURE_LEVEL_5 = 49 ! Format in Files-11 level 5U DECLARE LONG CONSTANT INIT$S_USER_NAME = 12 ! Max size of user name on volume wwQPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +$ ! I/O FUNCTION CODE DEFINITIONS ! - ! 0 ! *** START PHYSICAL I/O FUNCTION CODES *** ! ; DECLARE LONG CONSTANT IO$_NOP = 0 ! NO OPERATION ; DECLARE LONG CON STANT IO$_UNLOAD = 1 ! UNLOAD DRIVE @ DECLARE LONG CONSTANT IO$_LOADMCODE = 1 ! LOAD MICROCODE ? DECLARE LONG CONSTANT IO$_START_BUS = 1 ! START LAVC BUS< DECLARE LONG CONSTANT IO$_SEEK = 2 ! SEEK CYLINDER = DECLARE LONG CONSTANT IO$_SPACEFILE = 2 ! SPACE FILES G DECLARE LONG CONSTANT IO$_STARTMPROC = 2 ! START MICROPROCESSOR = DECLARE LONG CONSTANT IO$_STOP_BUS = 2 ! STOP LAVC BUS@ DECLARE LONG CONSTANT IO$_RECAL = 3 ! RECALIBRATE DRIVE ?  DECLARE LONG CONSTANT IO$_DUPLEX = 3 ! ENTER DUPLEX MODE3 DECLARE LONG CONSTANT IO$_STOP = 3 ! STOP H DECLARE LONG CONSTANT IO$_DEF_COMP = 3 ! DEFINE NETWORK COMPONENT: DECLARE LONG CONSTANT IO$_DRVCLR = 4 ! DRIVE CLEAR = DECLARE LONG CONSTANT IO$_INITIALIZE = 4 ! INITIALIZE > DECLARE LONG CONSTANT IO$_MIMIC = 4 ! ENTER MIMIC MODER DECLARE LONG CONSTANT IO$_DEF_COMP_LIST = 4 ! DEFINE NETWORK COMPONENT LIST< DECLARE LONG CONSTANT IO$_RELEASE = 5  ! RELEASE PORT I DECLARE LONG CONSTANT IO$_SETCLOCKP = 5 ! SET CLOCK ( PHYSICAL ) Q DECLARE LONG CONSTANT IO$_START_ANALYSIS = 5 ! START LAVC FAILURE ANALYSIS@ DECLARE LONG CONSTANT IO$_OFFSET = 6 ! OFFSET READ HEADS < DECLARE LONG CONSTANT IO$_ERASETAPE = 6 ! ERASE TAPE T DECLARE LONG CONSTANT IO$_STARTDATAP = 6 ! START DATA TRANSFER ( PHYSICAL ) O DECLARE LONG CONSTANT IO$_STOP_ANALYSIS = 6 ! STOP LAVC FAILURE ANALYSISF DECLARE LONG CONSTANT IO$_RETCENTER = 7 ! RETURN TO CENTERLINE A DECLARE LONG CONSTANT IO$_QSTOP = 7 ! QUEUE STOP REQUEST P DECLARE LONG CONSTANT IO$_START_MONITOR = 7 ! START LAVC CHANNEL MONITOR.@ DECLARE LONG CONSTANT IO$_PACKACK = 8 ! PACK ACKNOWLEDGE N DECLARE LONG CONSTANT IO$_STOP_MONITOR = 8 ! STOP LAVC CHANNEL MONITOR.@ DECLARE LONG CONSTANT IO$_SEARCH = 9 ! SEARCH FOR SECTOR A DECLARE LONG CONSTANT IO$_SPACERECORD = 9 ! SPACE RECORDS O DECLARE LONG CONSTANT IO$_READRCT = 9 ! READ REPLACEMENT ? CACHING TABLE@ DECLARE LONG CONSTANT IO$_MANAGE_PE = 9 ! MANAGE PEDRIVERD DECLARE LONG CONSTANT IO$_WRITECHECK = 10 ! WRITE CHECK DATA G DECLARE LONG CONSTANT IO$_WRITEPBLK = 11 ! WRITE PHYSICAL BLOCK E DECLARE LONG CONSTANT IO$_READPBLK = 12 ! READ PHYSICAL BLOCK H DECLARE LONG CONSTANT IO$_WRITEHEAD = 13 ! WRITE HEADER AND DATA @ DECLARE LONG CONSTANT IO$_RDSTATS = 13 ! READ STATISTICS C DECLARE LONG CONSTANT IO$_CRESHAD = 13 ! CREATE A SHADOW SETF DECLARE LONG CONSTANT IO$_READHEAD = 14 ! READ HEADER AND DATA H DECLARE LONG CONSTANT IO$_ADDSHAD = 14 ! ADD MEMBER TO SHADOW SETE DECLARE LONG CONSTANT IO$_WRITETRACKD = 15 ! WRITE TRACK DATA S DECLARE LONG CONSTANT IO$_COPYSHAD = 15 ! PERFORM SHADOW SET COPY OPERATIONSC DECLARE LONG CONSTANT IO$_READTRACKD = 16 ! READ TRACK DATA M DECLARE LONG CONSTANT IO$_REMSHAD = 16 ! REMOVE MEMBER FROM SHADOW SETU DECLARE LONG CONSTANT IO$_AVAILABLE = 17 ! AVAILABLE ( DISK AND TAPE CLASS ) E DECLARE LONG CONSTANT IO$_SETPRFPATH = 18 ! SET PREFERRED PATHD DECLARE LONG CONSTANT IO$_DISPLAY = 19 ! DISPLAY VOLUME LABELP DECLARE LONG CONSTANT IO$_REMSHADMBR = 20 ! REMOVE MEMBER FROM SHADOW SETR DECLARE LONG CONSTANT IO$_DSE = 21 ! DATA SECURITY ERASE ( AND REWIND ) < DECLARE LONG CONSTANT IO$_REREADN = 22 ! REREAD NEXT E DECLARE LONG CONSTANT IO$_DISK_COPY_DATA = 22 ! DISK_COPY_DATAE DECLARE LONG CONSTANT IO$_MOUNTSHAD = 23 ! CREATE A SHADOW SET@ DECLARE LONG CONSTANT IO$_REREADP = 23 ! REREAD PREVIOUS F DECLARE LONG CONSTANT IO$_WHM = 23 ! WRITE HISTORY MANAGEMENTL DECLARE LONG CONSTANT IO$_AS_SETCHAR = 23 ! ASIAN SET CHARACTERISTICS= DECLARE LONG CONSTANT IO$_WRITERET = 24 ! WRITE RETRY P DECLARE LONG CONSTANT IO$_WRITECHECKH = 24 ! WRITE CHECK HEADER AND DATA P DECLARE LONG CONSTANT IO$_AS_SENSECHAR = 24 ! ASIAN SENSE CHA RACTERISTICSK DECLARE LONG CONSTANT IO$_ADDSHADMBR = 25 ! ADD MEMBER TO SHADOW SETA DECLARE LONG CONSTANT IO$_READPRESET = 25 ! READIN PRESET A DECLARE LONG CONSTANT IO$_STARTSPNDL = 25 ! START SPINDLE D DECLARE LONG CONSTANT IO$_SETCHAR = 26 ! SET CHARACTERISTICS M DECLARE LONG CONSTANT IO$_SENSECHAR = 27 ! SENSE TAPE CHARACTERISTICS B DECLARE LONG CONSTANT IO$_WRITEMARK = 28 ! WRITE TAPE MARK ; DECLARE LONG CONSTANT IO$_COPYMEM = 28 ! COPY MEMORY!L DECLARE LONG CONSTANT IO$_PSXSETCHAR = 28 ! POSIX SET CHARACTERISTICSF DECLARE LONG CONSTANT IO$_WRTTMKR = 29 ! WRITE TAPE MARK RETRY : DECLARE LONG CONSTANT IO$_DIAGNOSE = 29 ! DIAGNOSE O DECLARE LONG CONSTANT IO$_SHADMV = 29 ! PREFORM MOUNT VER. ON SHADOW SETP DECLARE LONG CONSTANT IO$_PSXSENSECHAR = 29 ! POSIX SENSE CHARACTERISTICS6 DECLARE LONG CONSTANT IO$_FORMAT = 30 ! FORMAT 9 DECLARE LONG CONSTANT IO$_CLEAN = 30 ! CLEAN TAPE C DECLARE "LONG CONSTANT IO$_UPSHAD = 30 ! UP DATE SHAD LOCK IDT DECLARE LONG CONSTANT IO$_PHYSICAL = 31 ! HIGHEST PHYSICAL I/O FUNCTION CODE  ! / ! *** START LOGICAL I/O FUNCTION CODES *** ! F DECLARE LONG CONSTANT IO$_WRITELBLK = 32 ! WRITE LOGICAL BLOCK D DECLARE LONG CONSTANT IO$_READLBLK = 33 ! READ LOGICAL BLOCK I DECLARE LONG CONSTANT IO$_REWINDOFF = 34 ! REWIND AND SET OFFLINE E DECLARE LONG CONSTANT IO$_READRCTL = 34 ! READ RCT SECTOR ZERO9 DE#CLARE LONG CONSTANT IO$_SETMODE = 35 ! SET MODE ; DECLARE LONG CONSTANT IO$_REWIND = 36 ! REWIND TAPE < DECLARE LONG CONSTANT IO$_SKIPFILE = 37 ! SKIP FILES A DECLARE LONG CONSTANT IO$_PSXSETMODE = 37 ! POSIX SET MODE@ DECLARE LONG CONSTANT IO$_SKIPRECORD = 38 ! SKIP RECORDS E DECLARE LONG CONSTANT IO$_PSXSENSEMODE = 38 ! POSIX SENSE MODEB DECLARE LONG CONSTANT IO$_SENSEMODE = 39 ! SENSE TAPE MODE B DECLARE LONG CONSTANT IO$_WRITEOF = 40 ! WRITE EN$D OF FILE ] DECLARE LONG CONSTANT IO$_TTY_PORT_BUFIO = 40 ! BUFFERED I/O TERMINAL PORT FDT ROUTINEJ DECLARE LONG CONSTANT IO$_TTY_PORT = 41 ! TERMINAL PORT FDT ROUTINED DECLARE LONG CONSTANT IO$_FREECAP = 41 ! RETURN FREE CAPACITYD DECLARE LONG CONSTANT IO$_FLUSH = 42 ! FLUSH CONTROLLER CACHEA DECLARE LONG CONSTANT IO$_AS_SETMODE = 42 ! ASIAN SET MODEK DECLARE LONG CONSTANT IO$_READLCHUNK = 43 ! READ LARGE LOGICAL BLOCKE DECLARE LONG CONSTANT IO$_AS_S %ENSEMODE = 43 ! ASIAN SENSE MODEM DECLARE LONG CONSTANT IO$_WRITELCHUNK = 44 ! WRITE LARGE LOGICAL BLOCKR DECLARE LONG CONSTANT IO$_LOGICAL = 47 ! HIGHEST LOGICAL I/O FUNCTION CODE  ! + ! *** START VIRTUAL I/O FUNCTION CODES ! F DECLARE LONG CONSTANT IO$_WRITEVBLK = 48 ! WRITE VIRTUAL BLOCK D DECLARE LONG CONSTANT IO$_READVBLK = 49 ! READ VIRTUAL BLOCK ; DECLARE LONG CONSTANT IO$_ACCESS = 50 ! ACCESS FILE H DECLARE LONG CONSTANT IO$_PSXWRITE&VBLK = 50 ! POSIX WRITE VIRTUAL; DECLARE LONG CONSTANT IO$_CREATE = 51 ! CREATE FILE ? DECLARE LONG CONSTANT IO$_DEACCESS = 52 ! DEACCESS FILE F DECLARE LONG CONSTANT IO$_PSXREADVBLK = 52 ! POSIX READ VIRTUAL; DECLARE LONG CONSTANT IO$_DELETE = 53 ! DELETE FILE ; DECLARE LONG CONSTANT IO$_MODIFY = 54 ! MODIFY FILE P DECLARE LONG CONSTANT IO$_NETCONTROL = 54 ! X25 NETWORK CONTROL FUNCTION M DECLARE LONG CONSTANT IO$_READPROMPT = 55 ! READ TERMINAL W 'ITH PROMPT ; DECLARE LONG CONSTANT IO$_SETCLOCK = 55 ! SET CLOCK : DECLARE LONG CONSTANT IO$_AUDIO = 55 ! CD-ROM AUDIOM DECLARE LONG CONSTANT IO$_ACPCONTROL = 56 ! MISCELLANEOUS ACP CONTROL = DECLARE LONG CONSTANT IO$_STARTDATA = 56 ! START DATA ; DECLARE LONG CONSTANT IO$_MOUNT = 57 ! MOUNT VOLUME J DECLARE LONG CONSTANT IO$_TTYREADALL = 58 ! TERMINAL READ PASSALL P DECLARE LONG CONSTANT IO$_TTYREADPALL = 59 ! TERM READ W/PROMPT PASSALL R (DECLARE LONG CONSTANT IO$_CONINTREAD = 60 ! Connect to interrupt readonly U DECLARE LONG CONSTANT IO$_CONINTWRITE = 61 ! Connect to interrupt with write G DECLARE LONG CONSTANT IO$_READDIR = 62 ! READ DIRECTORY CONTENTSM DECLARE LONG CONSTANT IO$_VIRTUAL = 63 ! HIGHEST VIRTUAL I/O FUNCTION  ! ( ! FUNCTION MODIFIER BIT DEFINITIONS ! 4 DECLARE LONG CONSTANT IO$M_FCODE = x'0000003F'9 DECLARE LONG CONSTANT IO$M_FMODIFIERS = x'0000FFC0'7 DECLARE )LONG CONSTANT IO$M_INHERLOG = x'00000800'4 DECLARE LONG CONSTANT IO$M_ERASE = x'00000400'< DECLARE LONG CONSTANT IO$V_ENCRYPT = 13 ! Encryption/ DECLARE LONG CONSTANT IO$M_ENCRYPT = 81925 DECLARE LONG CONSTANT IO$M_EXFUNC = x'00002000'8 DECLARE LONG CONSTANT IO$M_DATACHECK = x'00004000'7 DECLARE LONG CONSTANT IO$M_INHRETRY = x'00008000'6 DECLARE LONG CONSTANT IO$M_SYNCSTS = x'00010000'7 DECLARE LONG CONSTANT IO$M_NOVCACHE = x'00020000'9 DECL *ARE LONG CONSTANT IO$M_FILE_FLUSH = x'00100000'6 DECLARE LONG CONSTANT IO$M_BARRIER = x'00200000'6 DECLARE LONG CONSTANT IO$M_INHSEEK = x'00001000'6 DECLARE LONG CONSTANT IO$M_REVERSE = x'00000040'5 DECLARE LONG CONSTANT IO$M_NOWAIT = x'00000080'8 DECLARE LONG CONSTANT IO$M_INHEXTGAP = x'00001000'8 DECLARE LONG CONSTANT IO$M_RETENSION = x'00002000'8 DECLARE LONG CONSTANT IO$M_ALLOWFAST = x'00004000': DECLARE LONG CONSTANT IO$M_MT3_DENSITY = x'00008000' +9 DECLARE LONG CONSTANT IO$M_MSCPMODIFS = x'00000100'5 DECLARE LONG CONSTANT IO$M_SHADOW = x'00000040'5 DECLARE LONG CONSTANT IO$M_LOCATE = x'00000080': DECLARE LONG CONSTANT IO$M_MSCP_FORMAT = x'00000040'7 DECLARE LONG CONSTANT IO$M_ALLHOSTS = x'00000040'7 DECLARE LONG CONSTANT IO$M_DISSOLVE = x'00000080'8 DECLARE LONG CONSTANT IO$M_NOCLEANUP = x'00000100'7 DECLARE LONG CONSTANT IO$M_SPINDOWN = x'00000040'; DECLARE LONG CONSTANT IO$M_EST_COM ,_PATH = x'00000040'; DECLARE LONG CONSTANT IO$M_LCL_SRC_UNIT = x'00000080'; DECLARE LONG CONSTANT IO$M_RTN_COM_PATH = x'00000100'8 DECLARE LONG CONSTANT IO$M_DEALC_ALL = x'00000040'8 DECLARE LONG CONSTANT IO$M_DEALC_HRN = x'00000080'; DECLARE LONG CONSTANT IO$M_DEALC_ENTLOC = x'00000100'7 DECLARE LONG CONSTANT IO$M_DECR_AFC = x'00000200'7 DECLARE LONG CONSTANT IO$M_READ_ALL = x'00000400'7 DECLARE LONG CONSTANT IO$M_READ_HRN = x'00000800'9 DE -CLARE LONG CONSTANT IO$M_BREAK_CONN = x'00001000'7 DECLARE LONG CONSTANT IO$M_STEPOVER = x'00000040'5 DECLARE LONG CONSTANT IO$M_COPYOP = x'00000100'5 DECLARE LONG CONSTANT IO$M_EXISTS = x'00000040'2 DECLARE LONG CONSTANT IO$M_CBS = x'00000080'6 DECLARE LONG CONSTANT IO$M_BOOTING = x'00000100'6 DECLARE LONG CONSTANT IO$M_VUEX_FC = x'00000200'8 DECLARE LONG CONSTANT IO$M_FORCEPATH = x'00000040'5 DECLARE LONG CONSTANT IO$M_COMMOD = x'00000040'9 .DECLARE LONG CONSTANT IO$M_MOVETRACKD = x'00000080'9 DECLARE LONG CONSTANT IO$M_DIAGNOSTIC = x'00000100'8 DECLARE LONG CONSTANT IO$M_SKPSECINH = x'00000200'6 DECLARE LONG CONSTANT IO$M_DELDATA = x'00000040'5 DECLARE LONG CONSTANT IO$M_NOMRSP = x'00000040'3 DECLARE LONG CONSTANT IO$M_SWAP = x'00000100'7 DECLARE LONG CONSTANT IO$M_OPPOSITE = x'00000200'8 DECLARE LONG CONSTANT IO$M_CLSEREXCP = x'00000200'8 DECLARE LONG CONSTANT IO$M_CHUNKDIAG = x'00000 /040'2 DECLARE LONG CONSTANT IO$M_TBC = x'00000400'5 DECLARE LONG CONSTANT IO$M_ENAREP = x'00000040'5 DECLARE LONG CONSTANT IO$M_ACCESS = x'00000040'5 DECLARE LONG CONSTANT IO$M_CREATE = x'00000080'5 DECLARE LONG CONSTANT IO$M_DELETE = x'00000100'4 DECLARE LONG CONSTANT IO$M_MOUNT = x'00000200'5 DECLARE LONG CONSTANT IO$M_DMOUNT = x'00000400'6 DECLARE LONG CONSTANT IO$M_REMOUNT = x'00000800'7 DECLARE LONG CONSTANT IO$M_MOVEFILE = x'00001000'8 0 DECLARE LONG CONSTANT IO$M_RWSHELVED = x'00004000'5 DECLARE LONG CONSTANT IO$M_SETDIR = x'00008000'5 DECLARE LONG CONSTANT IO$M_BINARY = x'00000040'5 DECLARE LONG CONSTANT IO$M_PACKED = x'00000080'2 DECLARE LONG CONSTANT IO$M_NOW = x'00000040'5 DECLARE LONG CONSTANT IO$M_STREAM = x'00000080': DECLARE LONG CONSTANT IO$M_READERCHECK = x'00000100': DECLARE LONG CONSTANT IO$M_WRITERCHECK = x'00000200'7 DECLARE LONG CONSTANT IO$M_NORSWAIT = x'000004 100'= DECLARE LONG CONSTANT IO$M_MB_ROOM_NOTIFY = x'00000040'7 DECLARE LONG CONSTANT IO$M_READATTN = x'00000080'6 DECLARE LONG CONSTANT IO$M_WRTATTN = x'00000100'6 DECLARE LONG CONSTANT IO$M_SETPROT = x'00000200'9 DECLARE LONG CONSTANT IO$M_READERWAIT = x'00000400'9 DECLARE LONG CONSTANT IO$M_WRITERWAIT = x'00000800'5 DECLARE LONG CONSTANT IO$M_NOECHO = x'00000040'4 DECLARE LONG CONSTANT IO$M_TIMED = x'00000080'5 DECLARE LONG CONSTANT IO$M_CVT 2LOW = x'00000100'6 DECLARE LONG CONSTANT IO$M_NOFILTR = x'00000200'7 DECLARE LONG CONSTANT IO$M_DSABLMBX = x'00000400'4 DECLARE LONG CONSTANT IO$M_PURGE = x'00000800'8 DECLARE LONG CONSTANT IO$M_TRMNOECHO = x'00001000'6 DECLARE LONG CONSTANT IO$M_REFRESH = x'00002000'5 DECLARE LONG CONSTANT IO$M_ESCAPE = x'00004000'5 DECLARE LONG CONSTANT IO$M_EXTEND = x'00008000'7 DECLARE LONG CONSTANT IO$M_CANCTRLO = x'00000040'7 DECLARE LONG CONSTANT IO$M_E 3NABLMBX = x'00000080'7 DECLARE LONG CONSTANT IO$M_NOFORMAT = x'00000100'8 DECLARE LONG CONSTANT IO$M_BREAKTHRU = x'00000200'6 DECLARE LONG CONSTANT IO$M_NEWLINE = x'00000400'9 DECLARE LONG CONSTANT IO$M_TYPEAHDCNT = x'00000040'4 DECLARE LONG CONSTANT IO$M_MAINT = x'00000040'7 DECLARE LONG CONSTANT IO$M_CTRLYAST = x'00000080'7 DECLARE LONG CONSTANT IO$M_CTRLCAST = x'00000100'5 DECLARE LONG CONSTANT IO$M_HANGUP = x'00000200'6 DECLARE LONG CONST 4ANT IO$M_OUTBAND = x'00000400'9 DECLARE LONG CONSTANT IO$M_TT_CONNECT = x'00000800'8 DECLARE LONG CONSTANT IO$M_TT_DISCON = x'00001000'9 DECLARE LONG CONSTANT IO$M_TT_PROCESS = x'00002000'5 DECLARE LONG CONSTANT IO$M_BRDCST = x'00004000'3 DECLARE LONG CONSTANT IO$M_LOOP = x'00000080'5 DECLARE LONG CONSTANT IO$M_UNLOOP = x'00000100'7 DECLARE LONG CONSTANT IO$M_LINE_OFF = x'00000200'8 DECLARE LONG CONSTANT IO$M_SET_MODEM = x'00000400'6 DECLARE 5LONG CONSTANT IO$M_LINE_ON = x'00000800'7 DECLARE LONG CONSTANT IO$M_LOOP_EXT = x'00001000'9 DECLARE LONG CONSTANT IO$M_AUTXOF_ENA = x'00002000'9 DECLARE LONG CONSTANT IO$M_AUTXOF_DIS = x'00004000'6 DECLARE LONG CONSTANT IO$M_INCLUDE = x'00000800'7 DECLARE LONG CONSTANT IO$M_TT_ABORT = x'00001000'8 DECLARE LONG CONSTANT IO$M_POSIXINIT = x'00000040'8 DECLARE LONG CONSTANT IO$M_POSIXFLOW = x'00000080'8 DECLARE LONG CONSTANT IO$M_SET_POSIX = x'00000080' 6: DECLARE LONG CONSTANT IO$M_CLEAR_POSIX = x'00000100': DECLARE LONG CONSTANT IO$M_SET_TERMIOS = x'00000200'6 DECLARE LONG CONSTANT IO$M_SET_PTC = x'00000400'8 DECLARE LONG CONSTANT IO$M_CLEAR_PTC = x'00000800'8 DECLARE LONG CONSTANT IO$M_FLUSH_TAB = x'00001000'; DECLARE LONG CONSTANT IO$M_FLUSH_OUTPUT = x'00002000'9 DECLARE LONG CONSTANT IO$M_UPDATE_PTC = x'00004000'7 DECLARE LONG CONSTANT IO$M_OUT_XOFF = x'00000100'6 DECLARE LONG CONSTANT IO$M 7_OUT_XON = x'00000200'6 DECLARE LONG CONSTANT IO$M_IN_XOFF = x'00000400'5 DECLARE LONG CONSTANT IO$M_IN_XON = x'00000800'9 DECLARE LONG CONSTANT IO$M_O_NONBLOCK = x'00000040'8 DECLARE LONG CONSTANT IO$M_INTERRUPT = x'00000040'7 DECLARE LONG CONSTANT IO$M_MULTIPLE = x'00000080'6 DECLARE LONG CONSTANT IO$M_LOCKBUF = x'00000100'6 DECLARE LONG CONSTANT IO$M_NOBLOCK = x'00000200'4 DECLARE LONG CONSTANT IO$M_ABORT = x'00000100'4 DECLARE LONG CONSTANT 8IO$M_SYNCH = x'00000200'7 DECLARE LONG CONSTANT IO$M_RESPONSE = x'00000040'6 DECLARE LONG CONSTANT IO$M_STARTUP = x'00000040'7 DECLARE LONG CONSTANT IO$M_SHUTDOWN = x'00000080'6 DECLARE LONG CONSTANT IO$M_ATTNAST = x'00000100'3 DECLARE LONG CONSTANT IO$M_CTRL = x'00000200'6 DECLARE LONG CONSTANT IO$M_SET_MAC = x'00000800'5 DECLARE LONG CONSTANT IO$M_RD_MEM = x'00000040'7 DECLARE LONG CONSTANT IO$M_RD_MODEM = x'00000080'7 DECLARE LONG CONSTANT 9IO$M_RD_COUNT = x'00000100'8 DECLARE LONG CONSTANT IO$M_CLR_COUNT = x'00000400'8 DECLARE LONG CONSTANT IO$M_SENSE_MAC = x'00000800'O DECLARE LONG CONSTANT IO$K_SRRUNOUT = 0 ! Send or rcv until cnt runout N DECLARE LONG CONSTANT IO$K_PTPBSC = 8192 ! Point to point BSC control @ DECLARE LONG CONSTANT IO$K_LOOPTEST = 57344 ! Loop test 2 ! X25 driver WRITEBLK function modifier bits.3 DECLARE LONG CONSTANT IO$M_MORE = x'00000040'8 DECLARE LONG CONSTAN :T IO$M_QUALIFIED = x'00000080'7 DECLARE LONG CONSTANT IO$M_REDIRECT = x'00000040'5 DECLARE LONG CONSTANT IO$M_ACCEPT = x'00000080'5 DECLARE LONG CONSTANT IO$M_SETEVF = x'00000040'3 DECLARE LONG CONSTANT IO$M_WORD = x'00000040'6 DECLARE LONG CONSTANT IO$M_SETFNCT = x'00000200'7 DECLARE LONG CONSTANT IO$M_DATAPATH = x'00000400'4 DECLARE LONG CONSTANT IO$M_CYCLE = x'00001000'4 DECLARE LONG CONSTANT IO$M_RESET = x'00002000'7 DECLARE LONG CONSTANT ;IO$M_SETCUADR = x'00000100'7 DECLARE LONG CONSTANT IO$M_SETBSIZE = x'00000200'8 DECLARE LONG CONSTANT IO$M_SETPOOLSZ = x'00000400'8 DECLARE LONG CONSTANT IO$M_SETENQCNT = x'00000800'4 DECLARE LONG CONSTANT IO$M_CLEAR = x'00001000'5 DECLARE LONG CONSTANT IO$M_LPBEXT = x'00002000'5 DECLARE LONG CONSTANT IO$M_LPBINT = x'00004000'6 DECLARE LONG CONSTANT IO$M_READCSR = x'00008000'8 DECLARE LONG CONSTANT IO$M_NOCTSWAIT = x'00000040'7 DECLARE LONG CON <STANT IO$M_SLAVLOOP = x'00000080'8 DECLARE LONG CONSTANT IO$M_NODSRWAIT = x'00000100'8 DECLARE LONG CONSTANT IO$M_MAINTLOOP = x'00000200'8 DECLARE LONG CONSTANT IO$M_LASTBLOCK = x'00000400'7 DECLARE LONG CONSTANT IO$M_INTCLOCK = x'00001000'9 DECLARE LONG CONSTANT IO$M_LT_CONNECT = x'00000040'8 DECLARE LONG CONSTANT IO$M_LT_DISCON = x'00000080': DECLARE LONG CONSTANT IO$M_LT_READPORT = x'00000100': DECLARE LONG CONSTANT IO$M_LT_MAP_PORT = x'00000200'8 = DECLARE LONG CONSTANT IO$M_LT_RATING = x'00000400': DECLARE LONG CONSTANT IO$M_LT_SOL_INFO = x'00000800': DECLARE LONG CONSTANT IO$M_LT_RCV_INFO = x'00001000'9 DECLARE LONG CONSTANT IO$M_LT_SETMODE = x'00002000'; DECLARE LONG CONSTANT IO$M_LT_SENSEMODE = x'00004000'? DECLARE LONG CONSTANT IO$M_LT_QUE_CHG_NOTIF = x'00008000'< DECLARE LONG CONSTANT IO$M_LT_MAP_FILLER = x'00000001'< DECLARE LONG CONSTANT IO$M_LT_MAP_NODNAM = x'00000002'< DECLARE LO >NG CONSTANT IO$M_LT_MAP_PORNAM = x'00000004'< DECLARE LONG CONSTANT IO$M_LT_MAP_SRVNAM = x'00000008'< DECLARE LONG CONSTANT IO$M_LT_MAP_LNKNAM = x'00000010'< DECLARE LONG CONSTANT IO$M_LT_MAP_NETADR = x'00000020'6 DECLARE LONG CONSTANT IO$M_MKFILL1 = x'00000040'> DECLARE LONG CONSTANT IO$M_ALLOWFAST_NEVER = x'00000080'? DECLARE LONG CONSTANT IO$M_ALLOWFAST_PER_IO = x'00000100'? DECLARE LONG CONSTANT IO$M_ALLOWFAST_ALWAYS = x'00000200'7 DECLARE LONG CON ?STANT IO$M_IDSTRING = x'00000040'8 DECLARE LONG CONSTANT IO$M_SERIALNUM = x'00000080'* DECLARE LONG CONSTANT IO$S_IODEF = 3 record IODEF variant2 ! Basic I/O function code/modifiers structure case) group IO$R_FCODE_STRUCTURE) ! Function Code Field. ! Function Modifiers Fieldn WORD FCODE_bits ! COMMENT ADDED BY SDL - FCODE_bits contains bits FCODE through FMODIFIERS- @ end group IO$R_FCODE_STRUCTUREF ! Function modifiers common to all drivers which do error logging case* group IO$R_ERRLOG_MODIFIERS+ ! Inhibit error logging WORD fcode_fill_1_bits ! COMMENT ADDED BY SDL - fcode_fill_1_bits contains bits fcode_fill_1 through fill_7. end group IO$R_ERRLOG_MODIFIERS4 ! General disk and tape function code modifiers case- group IO$R_DISK_TAPE_MODI AFIERS ! Erase data# ! IO$M_INHERLOG+ ! func<31:16> are valid5 ! Write check data after transfer) ! Inhibit error retry4 ! the following are only valid if EXFUNC is set2 ! allow synchronous completion* ! do not use VBN cacheB ! equiv to BUFOBJ on Alpha (Buffer object I/O)L ! equiv to TRUSTED on Alpha (I/O from trus Bted component)( ! Flush file to disk6 ! Insert a barrier after the write LONG fcode_fill_2_bits ! COMMENT ADDED BY SDL - fcode_fill_2_bits contains bits fcode_fill_2 through fill_81 end group IO$R_DISK_TAPE_MODIFIERS+ ! General disk function code modifiers case( group IO$R_DISK_MODIFIERS@ ! Inhibit implied seek on physical functions WORD fcode_fill_3_bi Cts ! COMMENT ADDED BY SDL - fcode_fill_3_bits contains bits fcode_fill_3 through fill_9, end group IO$R_DISK_MODIFIERS+ ! General tape function code modifiers case( group IO$R_TAPE_MODIFIERS' ! Reverse operation4 ! No wait for rewind to complete8 ! Inhibit extended inter-record gap S ! Traverse the entire tape to uniformly set the tape's tension.6 ! Applies only t Do IO$_REWIND/REWINDOFF functions? ! Allow fast skip by filemarks when enabled8 ! Applies only to IO$_SKIPFILE/SPACEFILE functionsM ! Indicates this QIO request uses MT3 density parameters.{ WORD fcode_fill_4_bits ! COMMENT ADDED BY SDL - fcode_fill_4_bits contains bits fcode_fill_4 through & ! MT3_DENSITY, end group IO$R_TAPE_MODIFIERSI ! DU ? TU, disk & tape class driver transfer function modifier bits E case- group IO$R_DUTU_XFER_MODIFIERS. ! Use MSCP modifiers in P5 WORD fcode_fill_5_bits ! COMMENT ADDED BY SDL - fcode_fill_5_bits contains bits fcode_fill_5 through fill_101 end group IO$R_DUTU_XFER_MODIFIERS case, group IO$R_DU_SENSE_MODIFIERS) ! Shadowing SENSECHAR/ ! Shadowing Locate function BYTE fcode_fill_6_bits ! COMMENT ADD FED BY SDL - fcode_fill_6_bits contains bits fcode_fill_6 through LOCATE0 end group IO$R_DU_SENSE_MODIFIERS case. group IO$R_DU_PACKACK_MODIFIERS2 ! PACKACK media for formatting BYTE fcode_fill_7_bits ! COMMENT ADDED BY SDL - fcode_fill_7_bits contains bits fcode_fill_7 through fill_112 end group IO$R_DU_PACKACK_MODIFIERS case, group IO$R_DU_AVAIL_MODIFIERS; G ! Do available as for all class drivers) ! Dissolve shadow set= ! Normal shadow set cleanup not necessary WORD fcode_fill_8_bits ! COMMENT ADDED BY SDL - fcode_fill_8_bits contains bits fcode_fill_8 through fill_120 end group IO$R_DU_AVAIL_MODIFIERS case. group IO$R_DU_REMSHAD_MODIFIERS. ! Spin down removed member BYTE fcode_fill_9_bits ! COMMENT ADDED B HY SDL - fcode_fill_9_bits contains bits fcode_fill_9 through fill_132 end group IO$R_DU_REMSHAD_MODIFIERS case* group IO$R_DU_DCD_MODIFIERS2 ! Establish Communication Path' ! Local Source Unit/ ! Retain Communication Path~ WORD fcode_fill_11_bits ! COMMENT ADDED BY SDL - fcode_fill_11_bits contains bits fcode_fill_11 through & ! fill_14. end group IO$R_DU_DCD_M IODIFIERS case* group IO$R_DU_WHM_MODIFIERS$ ! Deallocate All9 ! Deallocate by Host Reference Number1 ! Deallocate by Entry Locator8 ! Decrement Allocation Failure Count ! Read All3 ! Read by Host Reference Number& ! Break Connection~ WORD fcode_fill_12_bits ! COMMENT ADDED BY SDL - fcode_fill_12_bits contains bit Js fcode_fill_12 through & ! fill_15. end group IO$R_DU_WHM_MODIFIERS1 ! HBS driver transfer function modifier bitsC ! Make sure that IO$V_SHADOW .ne. IO$V_LOCATE .ne. IO$V_COPYOP case0 group IO$R_HBS_COPYSHAD_MODIFIERS& ! Stepover SCBLBN./ ! Shad Server Cpy Operation~ WORD fcode_fill_13_bits ! COMMENT ADDED BY SDL - fcode_fill_13_bits contains bits fcode_fill_13 through & ! fill_16 K4 end group IO$R_HBS_COPYSHAD_MODIFIERS case/ group IO$R_HBS_CRESHAD_MODIFIERS( ! VU already exists.1 ! Controller based shadowing.. ! Creshad for system disk.~ WORD fcode_fill_14_bits ! COMMENT ADDED BY SDL - fcode_fill_14_bits contains bits fcode_fill_14 through & ! fill_173 end group IO$R_HBS_CRESHAD_MODIFIERS case, group IO$R_HB LS_XFER_MODIFIERS/ ! Exclude Full copy members~ WORD fcode_fill_15_bits ! COMMENT ADDED BY SDL - fcode_fill_15_bits contains bits fcode_fill_15 through & ! fill_180 end group IO$R_HBS_XFER_MODIFIERS5 ! Function modifier bits for Set Preferred Path. case+ group IO$R_PRFPATH_MODIFIERS> ! No modifiers set, passes in a preferred path (DUDRIVER)8 ! Make path change happen (DUDRIVER)O M ! Reserved for Fast Path CPU affinity of port (port driver)~ BYTE fcode_fill_10_bits ! COMMENT ADDED BY SDL - fcode_fill_10_bits contains bits fcode_fill_10 through & ! filler_9/ end group IO$R_PRFPATH_MODIFIERS( ! DR driver function modifier bits. case& group IO$R_DR_MODIFIERS( ! Diagnostic command+ ! Move track descriptor) ! Diagnostic function) N ! Skip sector inhibit~ WORD fcode_fill_16_bits ! COMMENT ADDED BY SDL - fcode_fill_16_bits contains bits fcode_fill_16 through & ! fill_19* end group IO$R_DR_MODIFIERS( ! DY driver function modifier bits. case& group IO$R_DY_MODIFIERS- ! Write deleted data mark~ BYTE fcode_fill_17_bits ! COMMENT ADDED BY SDL - fcode_fill_17_bits contains bits fcode_fill_17 through & ! fill_ O20* end group IO$R_DY_MODIFIERS/ ! DD driver (TU58) function modifier bits. case& group IO$R_DD_MODIFIERS8 ! Do not use MRSP for this operation~ BYTE fcode_fill_18_bits ! COMMENT ADDED BY SDL - fcode_fill_18_bits contains bits fcode_fill_18 through & ! fill_21* end group IO$R_DD_MODIFIERS= ! Magnetic tape I/O function modifier bits for the TS11. case( group IO$R_ PTS11_MODIFIERS& ! Swap byte (TS11)5 ! Opposite bit for rereads (TS11)~ WORD fcode_fill_19_bits ! COMMENT ADDED BY SDL - fcode_fill_19_bits contains bits fcode_fill_19 through & ! fill_22, end group IO$R_TS11_MODIFIERS' ! TU driver function modifier bits case& group IO$R_TU_MODIFIERS7 ! Clear serious exception condition~ WORD fcode_fill_20_bits ! COMM QENT ADDED BY SDL - fcode_fill_20_bits contains bits fcode_fill_20 through & ! fill_23* end group IO$R_TU_MODIFIERSC ! Tape class driver segmented and large transfer modifier bits case2 group IO$R_TU_LG_TRANSFER_MODIFIERS. ! Allow diagnostic buffers. ! To be continued modifier~ WORD fcode_fill_21_bits ! COMMENT ADDED BY SDL - fcode_fill_21_bits contains bits fcode_fill_21 through & ! fill_ R246 end group IO$R_TU_LG_TRANSFER_MODIFIERS/ ! TUDRIVER SETMODE function modifier bits. case. group IO$R_TU_SETMODE_MODIFIERS* ! Enable media quality~ BYTE fcode_fill_22_bits ! COMMENT ADDED BY SDL - fcode_fill_22_bits contains bits fcode_fill_22 through & ! fill_252 end group IO$R_TU_SETMODE_MODIFIERS ! reporting." ! ACP function modifier bits. case' group S IO$R_ACP_MODIFIERS! ! Access file! ! Create file! ! Delete file" ! Mount volume% ! Dismount volume$ ! Remount volume! ! Move a file% ! Used for EXFUNC* ! Access shelved files- ! Set file as a directory ! Bit 19 used for TRUSTED WORD fcode_fill_23_bits ! COMMENT ADDED BY T SDL - fcode_fill_23_bits contains bits fcode_fill_23 through SETDIR+ end group IO$R_ACP_MODIFIERS6 ! CR (card reader) driver function modifier bits. case& group IO$R_CR_MODIFIERS! ! Binary read! ! Packed read BYTE fcode_fill_24_bits ! COMMENT ADDED BY SDL - fcode_fill_24_bits contains bits fcode_fill_24 through PACKED* end group IO$R_CR_MODIFIERS2 ! MB (mailbox) driver f Uunction modifier bits.G ! The following modifers are for the QIO READ, WRITE and SENSEMODE ! functions. case& group IO$R_MB_MODIFIERS8 ! Do not wait for operation completeE ! Perform stream mode operation (vs. record mode)V ! Perform operation if no read channel is assigned to the mailbox.W ! Perform operation if no write channel is assigned to the mailbox.1 ! VDo not allow resource waits ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED~ WORD fcode_fill_25_bits ! COMMENT ADDED BY SDL - fcode_fill_25_bits contains bits fcode_fill_25 through & ! fill_26* end group IO$R_MB_MODIFIERS7 ! More MB (mailbox) driver function modifier bits.. ! Mailbox QIO SETMODE function modifiers. case. group IO$R_MB_SETMODE_MODIFIERSO ! Notify when some (any) space in th We mailbox is available.3 ! Request ast on waiting reader3 ! Request ast on waiting writer+ ! Set volume protectionL ! Wait for a read channel to be assigned to the mailbox.M ! Wait for a write channel to be assigned to the mailbox.~ WORD fcode_fill_26_bits ! COMMENT ADDED BY SDL - fcode_fill_26_bits contains bits fcode_fill_26 through & ! fill_272 end group IO$ XR_MB_SETMODE_MODIFIERS- ! TT driver READ function modifier bits. case+ group IO$R_TT_READ_MODIFIERS ! Noecho ! Timed( ! Convert lower case ! No filter% ! Disable mailbox% ! Purge typeahead0 ! Terminators are not echoed0 ! Control-R interrupted read7 ! Terminate read on escape sequenc Ye5 ! Used by alternate class drivers WORD fcode_fill_27_bits ! COMMENT ADDED BY SDL - fcode_fill_27_bits contains bits fcode_fill_27 through EXTEND/ end group IO$R_TT_READ_MODIFIERS. ! TT driver WRITE function modifier bits. case, group IO$R_TT_WRITE_MODIFIERS& ! Cancel control O$ ! Enable mailbox* ! Do not format output# ! Broadcas Zt I/O& ! Output a newline~ WORD fcode_fill_28_bits ! COMMENT ADDED BY SDL - fcode_fill_28_bits contains bits fcode_fill_28 through & ! fill_280 end group IO$R_TT_WRITE_MODIFIERS2 ! TT driver SENSEMODE function modifier bits. case0 group IO$R_TT_SENSEMODE_MODIFIERS1 ! Sense typeahead information~ BYTE fcode_fill_29_bits ! COMMENT ADDED BY SDL - fcode_fill_29_bits contains [ bits fcode_fill_29 through & ! reserve_rd_modem4 end group IO$R_TT_SENSEMODE_MODIFIERS3 ! TT driver SETMODE subfunction modifier bits. case. group IO$R_TT_SETMODE_MODIFIERS0 ! Enable maint sub modifiers' ! Set control Y AST# ! Set Control C/ ! Set mode and hang up line) ! Set out of band AST2 ! Connect to detached terminal2 \ ! Disconnect detached terminal0 ! Define controlling process+ ! Define broadcast mask~ WORD fcode_fill_30_bits ! COMMENT ADDED BY SDL - fcode_fill_30_bits contains bits fcode_fill_30 through & ! fill_292 end group IO$R_TT_SETMODE_MODIFIERS9 ! TT driver MAINTIANCE subfunction submodifier bits. case, group IO$R_TT_MAINT_MODIFIERS) ! Diagnostic loopback/ ] ! Diagnostic reset loopback" ! Disable line. ! Diagnostic modem control! ! Enable line2 ! Diagnostic external loopback& ! Enable auto XOFF' ! Disable auto XOFF~ WORD fcode_fill_31_bits ! COMMENT ADDED BY SDL - fcode_fill_31_bits contains bits fcode_fill_31 through & ! reserve_int_disable0 end group IO$R_TT_MAINT_MODIFIERS+ ^ ! TT driver out-of-band modifier bits. case0 group IO$R_TT_OUTOFBAND_MODIFIERS1 ! Include character in stream' ! Abort current I/O~ WORD fcode_fill_32_bits ! COMMENT ADDED BY SDL - fcode_fill_32_bits contains bits fcode_fill_32 through & ! fill_304 end group IO$R_TT_OUTOFBAND_MODIFIERS? ! Posix terminal driver SETMODE subfunction modifier bits. case1 group _ IO$R_TT_PSXSETMODE_MODIFIERS8 ! Enable initialization subfunctions6 ! Enable flow control subfunctions~ BYTE fcode_fill_33_bits ! COMMENT ADDED BY SDL - fcode_fill_33_bits contains bits fcode_fill_33 through & ! POSIXFLOW5 end group IO$R_TT_PSXSETMODE_MODIFIERS? ! Posix terminal driver INIT subfunction submodifier bits. case0 group IO$R_TT_POSIXINIT_MODIFIERS4 ! Set TT `3$M_POSIX and set up PTC9 ! Clear TT3$M_POSIX (opt. delete PTC)$ ! Set up termios' ! Set up all of PTC ! clear PTC, ! flush typeahead buffer. ! flush outstanding writes ! update PTC~ WORD fcode_fill_34_bits ! COMMENT ADDED BY SDL - fcode_fill_34_bits contains bits fcode_fill_34 through & ! fill_314 end group IO$R_TT_POSIX aINIT_MODIFIERS? ! Posix terminal driver FLOW subfunction submodifier bits. case0 group IO$R_TT_POSIXFLOW_MODIFIERS* ! Simulate output XOFF) ! Simulate output XON) ! Simulate input XOFF( ! Simulate input XON~ WORD fcode_fill_35_bits ! COMMENT ADDED BY SDL - fcode_fill_35_bits contains bits fcode_fill_35 through & ! fill_324 end group IO$R_TT_POSIXFLOW b_MODIFIERS9 ! Posix terminal driver READ function modifier bits. case. group IO$R_TT_PSXREAD_MODIFIERS ! Nonblock~ BYTE fcode_fill_36_bits ! COMMENT ADDED BY SDL - fcode_fill_36_bits contains bits fcode_fill_36 through & ! fill_332 end group IO$R_TT_PSXREAD_MODIFIERS= ! Network WRITE and READ VIRTUAL function modifier bits. case2 group IO$R_NET_WRITE_READ_MODIFIERS' c ! Interrupt message2 ! Multiple write/read request ( ! Direct I/O request2 ! Segment message w/o blocking ! Bit 13 used for EXFUNC ! Bit 19 used for TRUSTED~ WORD fcode_fill_37_bits ! COMMENT ADDED BY SDL - fcode_fill_37_bits contains bits fcode_fill_37 through & ! fill_346 end group IO$R_NET_WRITE_READ_MODIFIERS6 ! Network ACCESS/DEACCESS function modifier bits. dcase. group IO$R_NET_ACCDEA_MODIFIERS5 ! Disconnect abort/connect reject, ! Synchronous disconnect~ WORD fcode_fill_38_bits ! COMMENT ADDED BY SDL - fcode_fill_38_bits contains bits fcode_fill_38 through & ! fill_352 end group IO$R_NET_ACCDEA_MODIFIERS7 ! DATALINK driver WRITE subfunction modifier bits. case/ group IO$R_DLINK_WRITE_MODIFIERS8 ! Transmit t ehis packet as a response~ BYTE fcode_fill_39_bits ! COMMENT ADDED BY SDL - fcode_fill_39_bits contains bits fcode_fill_39 through & ! fill_363 end group IO$R_DLINK_WRITE_MODIFIERS: ! DATALINK driver SETMODE subfunction modifier bits.  case1 group IO$R_DLINK_SETMODE_MODIFIERS$ ! Start protocol# ! Stop protocol# ! Attention AST; ! Controller (ie. not fstation) function( ! Set MAC parameters~ WORD fcode_fill_40_bits ! COMMENT ADDED BY SDL - fcode_fill_40_bits contains bits fcode_fill_40 through & ! fill_375 end group IO$R_DLINK_SETMODE_MODIFIERS; ! DATALINK driver SENSEMODE subfunction modifier bits. case3 group IO$R_DLINK_SENSEMODE_MODIFIERS( ! Read device memory' ! Read modem status# ! Read cou gnters$ ! Clear counters* ! Sense MAC parameters~ WORD fcode_fill_41_bits ! COMMENT ADDED BY SDL - fcode_fill_41_bits contains bits fcode_fill_41 through & ! fill_387 end group IO$R_DLINK_SENSEMODE_MODIFIERS case- group IO$R_X25_WRITE_MODIFIERS/ ! More data follows (M-bit)7 ! Use qualified sub-channel (Q-bit)~ BYTE fcode_fill_42_bits h! COMMENT ADDED BY SDL - fcode_fill_42_bits contains bits fcode_fill_42 through & ! QUALIFIED1 end group IO$R_X25_WRITE_MODIFIERS0 ! X25 driver ACCESS function modifier bits. case. group IO$R_X25_ACCESS_MODIFIERS+ ! Redirect virtual call) ! Accept virtual call BYTE fcode_fill_43_bits ! COMMENT ADDED BY SDL - fcode_fill_43_bits contains bits fcode_fill_43 through ACCEPT2 end i group IO$R_X25_ACCESS_MODIFIERS- ! LPA-11 driver STARTDATA modifier bits. case- group IO$R_LPA_START_MODIFIERS$ ! Set event flag~ BYTE fcode_fill_44_bits ! COMMENT ADDED BY SDL - fcode_fill_44_bits contains bits fcode_fill_44 through & ! fill_391 end group IO$R_LPA_START_MODIFIERS1 ! XA (DR11-W) driver function modifier bits. case& group IO$R_XA_MODIFIERSA j ! Word (interrupt)/block (DMA) mode specifier ! IO$M_TIMED3 ! IO$M_ATTNAST, IO$M_DIAGNOSTIC3 ! Set "FNCT" bits in device CSR; ! Change UBA datapath (direct/buffered)< ! IO$M_INHERLOG (former def'n for RESET)3 ! Set "cycle" bit in device CSR, ! Device reset specifier~ WORD fcode_fill_45_bits ! COMMENT ADDED BY SDL - fcode_fill_45_bits co kntains bits fcode_fill_45 through & ! fill_40* end group IO$R_XA_MODIFIERS* ! 3271 driver function modifier bits. case+ group IO$R_IBM3271_MODIFIERS* ! Set a new CU address3 ! Set a new maximum buffer size) ! Set a new pool size- ! Set a new ENQ threshold* ! Zero status counters3 ! Loopback is external loopback; l ! Loopback is internal loopback (DUP11)( ! Read CSRs on DUP11~ WORD fcode_fill_46_bits ! COMMENT ADDED BY SDL - fcode_fill_46_bits contains bits fcode_fill_46 through & ! READCSR/ end group IO$R_IBM3271_MODIFIERS( ! XW driver function modifier bits. case& group IO$R_XW_MODIFIERS* ! Diagnostic function * ! Diagnostic function 1 ! Do not wait for DS mR (diag) * ! Internal maint loop , ! Last block of message % ! Internal clock ~ WORD fcode_fill_47_bits ! COMMENT ADDED BY SDL - fcode_fill_47_bits contains bits fcode_fill_47 through & ! fill_41* end group IO$R_XW_MODIFIERS) ! LAT driver function modifier bits. case& group IO$R_LT_MODIFIERS= ! Solicit connection to remote LAT device, n ! Disconnect LAT session* ! Read LAT device info* ! Map application port( ! Set service rating* ! Request solicit info+ ! Setup to recive reply+ ! SETMODE on LTA device- ! SENSEMODE on LTA device& ! Queue change AST~ WORD fcode_fill_48_bits ! COMMENT ADDED BY SDL - fcode_fill_48_bits contains bits fcode_fill_48 thro ough & ! LT_QUE_CHG_NOTIF* end group IO$R_LT_MODIFIERS- ! LAT item list definitions for MAP_PORT case$ group IO$R_LT_MAPITEM% ! Item 0 not used& ! Server node name& ! Server port name) ! Server service name ! Link name* ! Server Ethernet Add.~ BYTE LT_MAP_FILLER_bits ! COMMENT ADDED BY SDL - LT_MAP_FILLER_bit ps contains bits LT_MAP_FILLER through & ! fill_42( end group IO$R_LT_MAPITEM. ! MKDRIVER function modifiers for SETMODE case. group IO$R_MK_SETMODE_MODIFIERS; ! Filler to not coincide with TU modif.3 ! Disable all skip by filemarks: ! Enable skip by filemarks w/ modifier; ! Default all IO$_SKIPFILE to filemarks~ WORD fcode_fill_49_bits ! COMMENT ADDE qD BY SDL - fcode_fill_49_bits contains bits fcode_fill_49 through & ! fill_432 end group IO$R_MK_SETMODE_MODIFIERS ! USB usbattr modifiers case/ group IO$R_USB_USBATTR_MODIFIERSA ! Request for printer's 1284 device ID stringH ! Request for printer's serial number (if supported)~ BYTE fcode_fill_50_bits ! COMMENT ADDED BY SDL - fcode_fill_50_bits contains bits fcode_fill_50 through & ! SERIALNUM3 end group IO$R_USB_USBATTR_MODIFIERS end variant end record IODEF  ww"+cPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1V %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )S END RECORDI% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIt QPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIuNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETv %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! NOTE:H ! The tags used in the data structures defined by this file reflectD ! the size of the field in the OpenVMS V7.0 ALPHA release. TheH ! field names have been ported to t whe VAX release for compatabilityG ! reasons and it is recognized that some of the fields are shorterG ! than their tags indicated. If the tags were to be corrected forF ! their proper size on VAX it would break our goal of application- ! source code compatability for Fast IO. ! - ! + ! Define I/O Status Area ! -A DECLARE LONG CONSTANT IOSA$K_LENGTH = 32 ! Length of IOSAA DECLARE LONG CONSTANT IOSA$C_LENGTH = 32 ! Length of IOSA@ xDECLARE LONG CONSTANT iosa$S_IOSADEF = 32 ! Size of IOSA, DECLARE LONG CONSTANT iosa$s_iosa = 32 record iosa5 LONG iosa$l_status ! StatusC LONG iosa$l_resd ! Reserved ( driver ) group iosa$r_bytecount variant case> BASIC$QUADWORD iosa$q_count_q ! Force size case> LONG iosa$ih_count ! Number of bytes end variant#y end group iosa$r_bytecount group iosa$r_ctx variant case@ BASIC$QUADWORD iosa$q_context_q ! Force size case@ LONG iosa$ph_context_p ! User context area case@ LONG iosa$ih_context ! User context area end variant end group iosa$r_ctxC group iosa$r_reserved ! Just in case we need variant z caseE LONG iosa$l_resl ( 1 to 2 ) ! in the future some case@ LONG iosa$q_resq ! additional space end variant" end group iosa$r_reserved end record iosa  ! + ! $IO_SETUP flag bits ! -8 DECLARE LONG CONSTANT fio$m_expedite = x'00000001'; DECLARE LONG CONSTANT fio$m_ast_nofloat = x'00000002'1 DECLARE LONG CONSTANT fio$s_setup_flags = 4 record set{up_flags variant case( LONG fio$l_flags_longword case$ group fio$r_flag_bits3 ! Make this a high-priority I/O< ! The AST routine does not use f.p. regst BYTE expedite_bits ! COMMENT ADDED BY SDL - expedite_bits contains bits expedite through fill_44( end group fio$r_flag_bits end variant end record setup_flags  ! H ! These entry p|oint definitions were ported from Alpha STARLET.SDL.G ! They are applicable only when the IOSA structure definitions areJ ! present and are not actual system services on VAX. Therefore, they9 ! will remain in this file (IOSADEF.SDL) for the VAX !  ! $IO_CLEANUP ! ) ! Cleanup a previously set-up I/O !  ! $IO_CLEANUP fandle ! " ! fandle = fandle to clean up ! . EXTERNAL LONG FUNCTION SYS$IO_CLEANUP & ( &# } LONG BY VALUE & ) ! $IO_PERFORM ! 1 ! Transfer data between device and buffer ! @ ! $IO_PERFORM fandle, chan, iosadr, bufadr, buflen, devdata ! ($IO_PERFORMW) ! . ! fandle = fandle from previous $IO_SETUP ! $ ! chan = standard I/O channel !  ! iosadr = IOSA address ! 0 ! bufadr = address of data buffer (64 bits) ! / ! buflen = length of data buffer (64 bits) ! : ! dev~data= data passed to driver, e.g., media address !  ! . EXTERNAL LONG FUNCTION SYS$IO_PERFORM & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$IO_PERFORMW & ( &$ LONG BY VALUE, &$  WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $IO_SETUP !  ! Set up a fast I/O ! D ! $IO_SETUP func, bufobj, iosobj, astadr, flags, return_fandle !  ! func = function code  ! B ! bufobj = data buffer object (address of (vector of 2 ints)) ! B ! iosobj = IOSA buffer object (address of (vector of 2 ints)) ! 9 ! astadr = completion AST address (address of entry) !  ! flags = flags ! 1 ! return_fandle = address of returned fandle ! , EXTERNAL LONG FUNCTION SYS$IO_SETUP & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ww`LRPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +? ! $PERSONA_CREATE, $PERSONA_CREATE_INT itemlist item codesH ! These item codes must match the TLV item codes in [LIB]PSBDEF.SDL !  ! - ! +P ! At the time of this mod ules creation there are four CHP$ item codes whichP ! must have the same value as their ISS$ counterparts. They are as follows: ! , ! ISS$_WORKPRIV = CHP$_PRIV = 3, ! ISS$_CLASS = CHP$_CLASS = 5, ! ISS$_ADD_RIGHTS = CHP$_ADD_RIGHTS = 7- ! ISS$_UIC = CHP$_UIC = 22 ! K ! This is to preserve backward comptibility with $CREATE_USER_PROFILE. ! -? DECLARE LONG CONSTANT ISS$_FLAGS = 1 ! 1 Persona flags; DECLARE LONG CONSTANT ISS$_ARBFLAGS = 2 ! 2 UnusedG DECLARE LONG CONSTANT ISS$_WORKPRIV = 3 ! 3 Working privileges= DECLARE LONG CONSTANT ISS$_MODE = 4 ! 4 Access modeL DECLARE LONG CONSTANT ISS$_WORKCLASS = 5 ! 5 Working classification9 DECLARE LONG CONSTANT ISS$_RIGHTS = 6 ! 6 RightsH DECLARE LONG CONSTANT ISS$_ADD_RIGHTS = 7 ! 7 Add to the RightsP DECLARE LONG CONSTANT ISS$_ADD_AUTHRIGHTS = 8 ! 8 Add to the AuthRights= DECLARE LONG CONSTANT ISS$_USERNAME = 9 ! 9 Username< DECLARE LONG CONSTANT ISS$_ACCOUNT = 10 ! 10 AccountE DECLARE LONG CONSTANT ISS$_NOAUDIT = 11 ! 11 No Audit settingK DECLARE LONG CONSTANT ISS$_AUTHPRIV = 12 ! 12 Authorized privilegesJ DECLARE LONG CONSTANT ISS$_PERMPRIV = 13 ! 13 Permanent privilegesT DECLARE LONG CONSTANT ISS$_IMAGE_WORKPRIV = 14 ! 14 Image working privilegesH DECLARE LONG CONSTANT ISS$_ENABLED = 15 ! 15 Rights enabled maskI DECLARE LONG CONSTANT ISS$_AUTHRIGHTS = 16 ! 16 Authorized rightsL DECLARE LONG CONSTANT ISS$_MINCLASS = 17 ! 17 Minimum classificationL DECLARE LONG CONSTANT ISS$_MAXCLASS = 18 ! 18 Maximum classification5 DECLARE LONG CONSTANT ISS$_UID = 19 ! 19 UIDB DECLARE LONG CONSTANT ISS$_PERSONA_ID = 20 ! 20 Persona IDE DECLARE LONG CONSTANT ISS$_PRINCIPAL = 21 ! 21 Principal Name5 DECLARE LONG CONSTANT ISS$_UIC = 22 ! 22 UICX DECLARE LONG CONSTANT ISS$_SWITCH_EXTENSION = 23 ! 23 Switch Extension directiveT DECLARE LONG CONSTANT ISS$_PRIMARY_EXTENSION = 24 ! 24 PSB Primary ExtensionV DECLARE LONG CONSTANT ISS$_EXTENSION_COUNT = 25 ! 25 Count of valid extensionsY DECLARE LONG CONSTANT ISS$_EXTENSION_ARRAY = 26 ! 26 Array of valid extension IDsW DECLARE LONG CONSTANT ISS$_RIGHTS_INDEX = 27 ! 27 Rights Chain Index - sets the$ ! chain for all rights list ! operations.2 DECLARE LONG CONSTANT ISS$_MIN_ITEM_ CODE = 13 DECLARE LONG CONSTANT ISS$_MAX_ITEM_CODE = 27 ! +' ! Bits within item code ISS$_FLAGS ! -> DECLARE LONG CONSTANT ISS$M_FLAG_PERMANENT = x'00000001'= DECLARE LONG CONSTANT ISS$M_FLAG_SECAUDIT = x'00000002'1 DECLARE LONG CONSTANT ISS$S_ISSFLAGSDEF = 4 record ISSFLAGSDEF variant case( group ISS$R_ISSFLAGS_BITS LONG FLAG_PERMANENT_bits ! COMMENT ADDED BY SDL - FLAG_PERMANENT_bits contai ns bits FLAG_PERMANENT through & ! FILL_0, end group ISS$R_ISSFLAGS_BITS end variant end record ISSFLAGSDEF ? ! Codes that represent common attributes that are normally( ! present in all persona extensions> DECLARE LONG CONSTANT ISS$_COMMON_FLAGS = 1024 ! FlagsD DECLARE LONG CONSTANT ISS$_COMMON_USERNAME = 1025 ! UsernameB DECLARE LONG CONSTANT ISS$_COMMON_ACCOUNT = 1026 ! Account9 DECLARE LONG CONSTANT ISS$_DOMAIN = 10 27 ! DomainF DECLARE LONG CONSTANT ISS$_COMMON_PRINCIPAL = 1028 ! principal+ DECLARE LONG CONSTANT ISS$_DOI = 10295 DECLARE LONG CONSTANT ISS$_EXTENSION = 1030 ! < DECLARE LONG CONSTANT ISS$_MIN_COMMON_ITEM_CODE = 1024< DECLARE LONG CONSTANT ISS$_MAX_COMMON_ITEM_CODE = 1030J ! Codes that represent attributes specific to each persona extension.0 ! These codes are shared by all extensions.& ! NT Persona extension item codes: DECLARE LONG CONSTAN T ISS$_NT_TOKEN = 8192 ! tokenP DECLARE LONG CONSTANT ISS$_NT_SECURITY_SUBJECT = 8193 ! securtiy context0 DECLARE LONG CONSTANT ISS$_NT_FLAGS = 81948 DECLARE LONG CONSTANT ISS$_NT_USER_REFCOUNT = 81954 DECLARE LONG CONSTANT ISS$_NT_PRINCIPAL = 8196Z DECLARE LONG CONSTANT ISS$_NT_CREDENTIALS = 8197 ! access token + security context> DECLARE LONG CONSTANT ISS$_NT_NT_OWF_PASSWORD = 8198 ! > DECLARE LONG CONSTANT ISS$_NT_LM_OWF_PASSWORD = 8199 ! ; DECLARE LONG CONSTANT ISS$_NT_UNPACK_CRED_SIZE = 82008 DECLARE LONG CONSTANT ISS$_NT_TOKEN_TOKENID = 8201A DECLARE LONG CONSTANT ISS$_NT_TOKEN_IMPERSONATELEVEL = 8202A DECLARE LONG CONSTANT ISS$_NT_TOKEN_AUTHENTICATIONID = 8203B DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPCOUNT = 8204? DECLARE LONG CONSTANT ISS$_NT_TOKEN_VARIABLELENGTH = 8205> DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPS = 8206B DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERANDGROUPS_SID = 8207= DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIMARYGROUP = 8208; DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIVILEGES = 8209< DECLARE LONG CONSTANT ISS$_NT_TOKEN_DEFAULTDACL = 82108 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXUID = 82118 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXGID = 82128 DECLARE LONG CONSTANT ISS$_NT_TOKEN_GIDINFO = 8213= DECLARE LONG CONSTANT ISS$_NT_TOKEN_GIDINFO_GIDS = 82149 DECLARE LONG CONSTANT ISS$_NT_TOKEN_UNIXNAME = 8215; DECLAR E LONG CONSTANT ISS$_NT_TOKEN_DOMAINNAME = 82169 DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERNAME = 8217? DECLARE LONG CONSTANT ISS$_NT_TOKEN_USERSESSIONKEY = 8218= DECLARE LONG CONSTANT ISS$_NT_TOKEN_LMSESSIONKEY = 8219= DECLARE LONG CONSTANT ISS$_NT_TOKEN_VARIABLEPART = 8220; DECLARE LONG CONSTANT ISS$_NT_TOKEN_GROUP_LIST = 8221@ DECLARE LONG CONSTANT ISS$_NT_TOKEN_PRIVILEGES_LIST = 8222= DECLARE LONG CONSTANT ISS$_NT_SECURITY_SIGNATURE = 8223: DECL ARE LONG CONSTANT ISS$_NT_SECURITY_SMBUID = 8224B DECLARE LONG CONSTANT ISS$_NT_SECURITY_PROCESSAUDITID = 8225= DECLARE LONG CONSTANT ISS$_NT_SECURITY_PROCESSID = 8226; DECLARE LONG CONSTANT ISS$_NT_SECURITY_LOGONID = 8227= DECLARE LONG CONSTANT ISS$_NT_SECURITY_LOGONTYPE = 8228@ DECLARE LONG CONSTANT ISS$_NT_SECURITY_SUBJECTFLAGS = 8229A DECLARE LONG CONSTANT ISS$_NT_SECURITY_CONTEXT_OTHER = 82308 DECLARE LONG CONSTANT ISS$_MIN_NT_ITEM_CODE = 81928 DECLARE LONG CONSTANT ISS$_MAX_NT_ITEM_CODE = 8230 ! +) ! Bits within item code ISS$_ENABLED ! -? DECLARE LONG CONSTANT ISS$M_ENABLED_PERSONA = x'00000001'A DECLARE LONG CONSTANT ISS$M_ENABLED_SUBSYSTEM = x'00000002'= DECLARE LONG CONSTANT ISS$M_ENABLED_IMAGE = x'00000004'> DECLARE LONG CONSTANT ISS$M_ENABLED_SYSTEM = x'00000008'A DECLARE LONG CONSTANT ISS$M_ENABLED_TEMPORARY = x'00000010'3 DECLARE LONG CONSTANT ISS$S_ISSENABLEDDEF = 4 record ISSENABLEDDEF variant case* group ISS$R_ISSENABLED_BITS LONG ENABLED_PERSONA_bits ! COMMENT ADDED BY SDL - ENABLED_PERSONA_bits contains bits ENABLED_PERSONA through & ! FILL_0. end group ISS$R_ISSENABLED_BITS end variant end record ISSENABLEDDEF  ! ARB_SUPPORT constants6 DECLARE LONG CONSTANT ISS$C_ARB_UNSPECIFIED = -1. DECLARE LONG CONSTANT ISS$C_ARB_NONE = 0/ DECLARE LO NG CONSTANT ISS$C_ARB_CLEAR = 13 DECLARE LONG CONSTANT ISS$C_ARB_READ_ONLY = 2. DECLARE LONG CONSTANT ISS$C_ARB_FULL = 32 DECLARE LONG CONSTANT ISS$C_ARB_MAX_CODE = 32 DECLARE LONG CONSTANT ISS$C_ARB_MIN_CODE = 0 ! Reserved Persona Ids0 DECLARE LONG CONSTANT ISS$C_ID_NATURAL = 1 ! +% ! Persona services control flags ! -9 DECLARE LONG CONSTANT ISS$M_IMP_FLAGS = x'0000007F'B DECLARE LONG CONSTANT ISS$M_ASSUME_NODEREF_OLD = x'00010000'@ DECLARE LONG CONSTANT ISS$M_ASSUME_NOREF_NEW = x'00020000'> DECLARE LONG CONSTANT ISS$M_CREATE_DEFPRIV = x'00000008'? DECLARE LONG CONSTANT ISS$M_CREATE_DEFCLASS = x'00000010'8 DECLARE LONG CONSTANT ISS$M_NOACCESS = x'00100000'0 DECLARE LONG CONSTANT ISS$S_ISSSRVCFLG = 4 record ISSSRVCFLG variant !  ! Common flags !  case' group ISS$R_COMMON_FLAGS2 ! Previously defined IMP flags{  LONG IMP_FLAGS_bits ! COMMENT ADDED BY SDL - IMP_FLAGS_bits contains bits IMP_FLAGS through COMMON_RSVD+ end group ISS$R_COMMON_FLAGS ! # ! ASSUME service control flags !  case' group ISS$R_ASSUME_FLAGS- ! Start past common flags0 ! Do not drop a reference to# ! the old (pre-ASSUME) persona/ ! Do not add a reference to$ ! the new (post-ASSUME) persona.  ! Reserved for the future.. ! Reserved for the future.~ LONG ASSUME_COMMON_bits ! COMMENT ADDED BY SDL - ASSUME_COMMON_bits contains bits ASSUME_COMMON through & ! ASSUME_FILL+ end group ISS$R_ASSUME_FLAGS ! # ! CREATE service control flags !  case' group ISS$R_CREATE_FLAGS/ ! Create psb w/ def. privs./ ! Create psb w/ def. class.-  ! Start past common flags ! and the assume flags.- ! When set, do not access ! the SYSUAF or RIGHTSLIST. ! This is similar to ! CREATE_USER_PROFILE.. ! Reserved for the future.. ! Reserved for the future.v LONG CREATE_COMMON_RSVD_0_bits ! COMMENT ADDED BY SDL - CREATE_COMMON_RSVD_0_bits contains bits &+ ! CREATE_COMMON_RSVD_0 through CREATE_FILL+ end group ISS$R_CREATE_FLAGS end variant end record ISSSRVCFLG  ! NT TLV version number 2 DECLARE LONG CONSTANT ISS$K_NT_VERSION_1 = 1 ww@0SPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! > ! Get Job Process Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK !  (preceeding the ENDlistname item) so that users will not have ! to relink. ! - ! DEFINE TABLE NUMBERS & ! STRUCTURE CODES MUST START AT 1J DECLARE LONG CONSTANT JPI$C_ADRTYPE = 1 ! ITEM IS ADDRESS OF DATA L DECLARE LONG CONSTANT JPI$C_CTLTYPE = 2 ! ITEM IS IN CONTROL REGION > DECLARE LONG CONSTANT JPI$C_PCBTYPE = 3 ! ITEM IN PCB > DECLARE LONG CONSTANT JPI$C_PHDTYPE = 4 ! ITEM IN PHD F DECLARE LONG CONSTANT JPI$C_PCBFLDTYPE = 5 ! ITEM IS BIT FIELDF DECLARE LONG CONSTANT JPI$C_PHDFLDTYPE = 6 ! ITEM IS BIT FIELDJ DECLARE LONG CONSTANT JPI$C_JIBTYPE = 7 ! ITEM IN JIB ( SUBTYPE )J DECLARE LONG CONSTANT JPI$C_ARBTYPE = 8 ! ITEM IN ARB ( SUBTYPE )D DECLARE LONG CONSTANT JPI$C_MAXSTRUC = 6 ! TOTAL OF 6 TABLESK DECLARE LONG CONSTANT JPI$C_LISTEND = 0 ! DEFINE ITMLST TERMINATOR ? DECLARE LONG CONSTANT JPI$_CHAIN = -1 ! CHAIN INDICATORT DECLARE LONG CONSTANT JPI$_GETJPI_CONTRO L_FLAGS = -2 ! SPECIAL CONTROL ITEMS@ DECLARE LONG CONSTANT JPI$M_NO_TARGET_INSWAP = x'00000001'= DECLARE LONG CONSTANT JPI$M_NO_TARGET_AST = x'00000002'D DECLARE LONG CONSTANT JPI$M_IGNORE_TARGET_STATUS = x'00000004'/ DECLARE LONG CONSTANT JPI$S_JPICTLDEF = 4 record JPICTLDEF group JPI$r_fill_45 variant caseA LONG JPI$L_JPICTLFLGS ! Control item flags case% group JPI$ r_fill_46^ ! Do not inswap the target process, (do deliver ASTs if it is resident)2 ! Do not send AST to target1 ! Don't check target state BYTE NO_TARGET_INSWAP_bits ! COMMENT ADDED BY SDL - NO_TARGET_INSWAP_bits contains bits NO_TARGET_INSWAP & ! through fill_47) end group JPI$r_fill_46 end variant end group JPI$r_fill_45 end record JPICTLDEF B ! NOTE: the following constants must match values in $JIBDEF?@ DECLARE LONG CONSTANT JPI$K_OTHER = 0 ! JPI$_Mode valuesB DECLARE LONG CONSTANT JPI$K_NETWORK = 1 ! JPI$_Mode values@ DECLARE LONG CONSTANT JPI$K_BATCH = 2 ! JPI$_Mode valuesF DECLARE LONG CONSTANT JPI$K_INTERACTIVE = 3 ! JPI$_Mode valuesF DECLARE LONG CONSTANT JPI$K_DETACHED = 0 ! JPI$_JOBTYPE valuesC DECLARE LONG CONSTANT JPI$K_LOCAL = 3 ! JPI$_JOBTYPE valuesD DECLARE LONG CONSTANT JPI$K_DIALUP = 4 ! JPI$_JOBTYPE valuesD DECLARE LONG CONSTANT JPI$K_REMOTE = 5 ! JPI$_JOBTYPE values! ! (also BATCH ? INTERACTIVE)A DECLARE LONG CONSTANT JPI$M_NEW_MAIL_AT_LOGIN = x'00000001'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_CHANGED = x'00000002'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_EXPIRED = x'00000004'@ DECLARE LONG CONSTANT JPI$M_PASSWORD_WARNING = x'00000008'A DECLARE LONG CONSTANT JPI$M_PASSWORD2_CHANGED = x'00000010'A DECLARE LONG CONST ANT JPI$M_PASSWORD2_EXPIRED = x'00000020'A DECLARE LONG CONSTANT JPI$M_PASSWORD2_WARNING = x'00000040'/ DECLARE LONG CONSTANT JPI$S_JPILGIDEF = 4 record JPILGIDEF group JPI$r_fill_48 variant caseH LONG JPI$L_JPILGIFLGS ! Miscellaneous LOGIN flags case% group JPI$r_fill_495 ! User had new MAIL message(s)1 ! Primary password changed:  ! Primary password expired on login= ! Primary password expiration imminent3 ! Secondary password changed< ! Secondary password expired on login? ! Secondary password expiration imminents BYTE NEW_MAIL_AT_LOGIN_bits ! COMMENT ADDED BY SDL - NEW_MAIL_AT_LOGIN_bits contains bits &$ ! NEW_MAIL_AT_LOGIN through fill_50) end group JPI$r_fill_49  end variant end group JPI$r_fill_48 end record JPILGIDEF ! ITEM IDENTIFIERS FOR PCB P DECLARE LONG CONSTANT JPI$_ASTACT = 768 ! ACCESS MODES WITH ACTIVE ASTS P DECLARE LONG CONSTANT JPI$_ASTEN = 769 ! ACCESS MODES WITH ASTS ENABLED H DECLARE LONG CONSTANT JPI$_PRI = 770 ! CURRENT PROCESS PRIORITY _ DECLARE LONG CONSTANT JPI$_OWNER = 771 ! Epid of owner process, if this is a subprocess> DECLARE LONG CONSTANT JPI$_UIC = 772 ! UIC OF PROCESS > DECLARE LONG CONSTANT JPI$_STS = 773 ! PROCESS STATUS ? DECLARE LONG CONSTANT JPI$_STATE = 774 ! PROCESS STATE C DECLARE LONG CONSTANT JPI$_MEM = 775 ! MEMBER FIELD OF UIC B DECLARE LONG CONSTANT JPI$_GRP = 776 ! GROUP FIELD OF UIC F DECLARE LONG CONSTANT JPI$_PRIB = 777 ! PROCESS BASE PRIORITY J DECLARE LONG CONSTANT JPI$_APTCNT = 778 ! ACTIVE PAGE TABLE COUNT I DECLARE LONG CONSTANT JPI$_TMBU = 779 ! TERMINATION MAILBOX UNIT S DECLARE LONG CONSTANT JPI$_GPGCNT = 780 ! GLOBAL PAGE COUNT IN WORKING SET T DECLARE LONG CONSTANT JPI$_PPGCNT = 781 ! PROCESS PAGE COUNT IN WORKING SET F DECLARE LONG CONSTANT JPI$_ASTCNT = 782 ! AST COUNT REMAINING O DECLARE LONG CONSTANT JPI$_BIOCNT = 783 ! BUFFERED I/O COUNT REMAINING D DECLARE LONG CONSTANT JPI$_BIOLM = 784 ! BUFFERED I/O LIMIT X DECLARE LONG CONSTANT JPI$_BYTCNT = 785 ! BYTE COUNT REMAINING FOR BUFFERED I/O M DECLARE LONG CONSTANT JPI$_DIOCNT = 786 ! DIRECT I/O COUNT REMAINING H DECLARE LONG CONSTANT JPI$_DIOLM = 787 ! DIRECT I/O COUNT LIMIT P DECLARE LONG CONSTANT JPI$_FILCNT = 788 ! COUNT REMAINING OF OPEN FILES X DECLARE LONG CONSTANT JPI$_TQCNT = 789 ! COUNT REMAINING OF TIMER QUEUE ENTRIES E DECLARE LONG CONSTANT JPI$_EFWM = 790 ! EVENT FLAG WAIT MASK G DECLARE LONG CONSTANT JPI$_EFCS = 791 ! LOCAL EVENT FLAGS 0-31 H DECLARE LONG CONSTANT JPI$_EFCU = 792 ! LOCAL EVENT FLAGS 32-63 F DECLARE LONG CONSTANT JPI$_PID = 793 ! PROCESS IDENTIFICATION O DECLARE LONG CONSTANT JPI$_BYTLM = 794 ! BUFFERED I/0 BYTE COUNT LIMIT C DECLARE LONG CONSTANT JPI$_PRCCNT = 795 ! SUBPROCESS COUNT ? DECLARE LONG CONSTANT JPI$_PRCNAM = 796 ! PROCESS NAME H DECLARE LONG CONSTANT JPI$_TERMINAL = 797 ! LOGIN TERMINAL NAME Z DECLARE LONG CONSTANT JPI$_JOBPRCCNT = 798 ! TOTAL COUNT OF SUBPROCESSES IN A JOB J DECLARE LONG CONSTANT JPI$_ENQCNT = 799 ! ENQUEUE COUNT REMAINING E DECLARE LONG CONSTANT JPI$_ENQLM = 800 ! ENQUEUE COUNT LIMIT U DECLARE LONG CONSTANT JPI$_SWPFILLOC = 801 ! SWAP FILE BACKING STORE ADDRESS X DECLARE LONG CONSTANT JPI$_MODE = 802 ! MODE VALUE ( FROM STS ) - DEFINED ABOVE@ DECLARE LONG CONSTANT JPI$_JOBTYPE = 803 ! JOB TYPE CODEC DECLARE LONG CONSTANT JPI$_PROC_INDEX = 804 ! PROCESS INDEXH DECLARE LONG CONSTANT JPI$_MASTER_PID = 805 ! MASTER PROCESS PIDJ DECLARE LONG CONSTANT JPI$_RIGHTSLIST = 806 ! PSB composite rights8 DECLARE LONG CONSTANT JPI$_CPU_ID = 807 ! CPU IDN DECLARE LONG CONSTANT JPI$_STS2 = 808 ! Second process status longword\ DECLARE LONG CONSTANT JPI$_NODENAME = 809 ! Name of node on which process is running] DECLARE LONG CONSTANT JPI$_NODE_CSID = 810 ! CSID of node on which process is runningg DECLARE LONG CONSTANT JPI$_NODE_VERSION = 811 ! VMS version of node on which process is runningX DECLARE LONG CONSTANT JPI$_TT_PHYDEVNAM = 812 ! Physical device name of terminalT DECLARE LONG CONSTANT JPI$_TT_ACCPORNAM = 813 ! Access port name of terminalL DECLARE LONG CONSTANT JPI$_PROCESS_RIGHTS = 814 ! PSB persona rightsJ DECLARE LONG CONSTANT JPI$_SYSTEM_RIGHTS = 815 ! PSB system rightsW DECLARE LONG CONSTANT JPI$_IMAGE_RIGHTS = 816 ! PSB protected sub-system rightsm DECLARE LONG CONSTANT JPI$_RIGHTS_SIZE = 817 ! Approximate size ( in bytes ) of all PSB rights listsX DECLARE LONG CONSTANT JPI$_CLASSIFICATION = 818 ! PSB current MAC classification_ DECLARE LONG CONSTANT JPI$_RMS_FILEPROT = 820 ! Process default file protection for RMSX DECLARE LONG CONSTANT JPI$_MULTITHREAD = 821 ! Kernel threads - max thread countQ DECLARE LONG CONSTANT JPI$_KT_COUNT = 822 ! Kernel threads - thread counta DECLARE LONG CONSTANT JPI$_INITIAL_THREAD_PID = 823 ! Kernel threads - initial thread PIDU DECLARE LONG CONSTANT JPI$_THREAD_INDEX = 824 ! Kernel threads - thread indexQ DECLARE LONG CONSTANT JPI$_SCHED_CLASS_NAME = 843 ! Scheduling class namea DECLARE LONG CONSTANT JPI$_CREATOR = 847 ! Epid of creator process ( Unix-style parent )- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTJ DECLARE LONG CONSTANT JPI$_LASTPCB = 848 ! MAX INDEX IN PCB TABLE ! ITEM IDENTIFIERS FOR PHD S DECLARE LONG CONSTANT JPI$_CURPRIV = 1024 ! CURRENT PROCESS PRIVILEGE MASK O DECLARE LONG CONSTANT JPI$_WSAUTH = 1025 ! AUTHORIZED WORKING SET SIZE N DECLARE LONG CONSTANT JPI$_WSQUOTA = 1026 ! QUOTA ON WORKING SET SIZE M DECLARE LONG CONSTANT JPI$_DFWSCNT = 1027 ! DEFAULT WORKING SET SIZE ` DECLARE LONG CONSTANT JPI$_FREP0VA = 1028 ! FIRST FREE VIRTUAL ADDR. AT END OF P0 SPACE X DECLARE LONG CONSTANT JPI$_FREP1VA = 1029 ! FIRST FREE ADDR. AT END OF P1 SPACE M DECLARE LONG CONSTANT JPI$_DFPFC = 1030 ! DEFAULT PAGE FAULT CLUSTER H DECLARE LONG CONSTANT JPI$_CPUTIM = 1031 ! ACCUMULATED CPU TIME C DECLARE LONG CONSTANT JPI$_PRCLM = 1032 ! SUBPROCESS QUOTA < DECLARE LONG CONSTANT JPI$_ASTLM = 1033 ! AST LIMIT J DECLARE LONG CONSTANT JPI$_PAGEFLTS = 1034 ! COUNT OF PAGE FAULTS P DECLARE LONG CONSTANT JPI$_DIRIO = 1035 ! PROCESS DIRECT I/O OPERATIONS R DECLARE LONG CONSTANT JPI$_BUFIO = 1036 ! PROCESS BUFFERED I/O OPERATIONS O DECLARE LONG CONSTANT JPI$_CPULIM = 1037 ! LIMIT ON CPUTIM FOR PROCESS N DECLARE LONG CONSTANT JPI$_PGFLQUOTA = 1038 ! MAX. VIRTUAL PAGE COUNT B DECLARE LONG CONSTANT JPI$_FILLM = 1039 ! OPEN FILE LIMIT C DECLARE LONG CONSTANT JPI$_TQLM = 1040 ! TIMER QUEUE LIMIT L DECLARE LONG CONSTANT JPI$_WSSIZE = 1041 ! CURRENT WORKING SET SIZE R DECLARE LONG CONSTANT JPI$_AUTHPRIV = 1042 ! PSB authorized privilege maskn DECLARE LONG CONSTANT JPI$_IMAGPRIV = 1043 ! PHD installed image permanent ( default ) privilege maskW DECLARE LONG CONSTANT JPI$_PAGFILCNT = 1044 ! PAGES CHARGED TO PAGE FILE QUOTA [ DECLARE LONG CONSTANT JPI$_FREPTECNT = 1045 ! ROOM FOR EXPANSION OF P0 OR P1 SPACE P DECLARE LONG CONSTANT JPI$_WSEXTENT = 1046 ! EXTENT OF WORKING SET SIZE U DECLARE LONG CONSTANT JPI$_WSAUTHEXT = 1047 ! MAX EXTENT OF WORKING SET SIZE T DECLARE LONG CONSTANT JPI$_AUTHPRI = 1048 ! AUTHORIZED PRIORITY FOR $SETPRI V DECLARE LONG CONSTANT JPI$_PAGFILLOC = 1049  ! PAGE FILE BACKING STORE ADDRESS ] DECLARE LONG CONSTANT JPI$_IMAGECOUNT = 1050 ! IMAGE COUNTER ( CLOCKED BY RUNDOWN ) N DECLARE LONG CONSTANT JPI$_PHDFLAGS = 1051 ! PROCESS HEADER FLAGS WORDE DECLARE LONG CONSTANT JPI$_VP_CPUTIM = 1052 ! VECTOR CPU TIMEb DECLARE LONG CONSTANT JPI$_VP_CONSUMER = 1053 ! Flag -- is this process a vector consumer?- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTP DECLARE LONG CONSTANT JPI$_LASTPHD = 1059 ! MAX INDEX IN PROCESS HEADER + ! ITEM IDENTIFIERS FOR CONTROL REGION F DECLARE LONG CONSTANT JPI$_VIRTPEAK = 512 ! PEAK VIRTUAL SIZE H DECLARE LONG CONSTANT JPI$_WSPEAK = 513 ! PEAK WORKING SET SIZE G DECLARE LONG CONSTANT JPI$_USERNAME = 514 ! PSB username stringJ DECLARE LONG CONSTANT JPI$_ACCOUNT = 515 ! PSB account name string] DECLARE LONG CONSTANT JPI$_PROCPRIV = 516 ! PSB permanent ( default ) privilege maskC DECLARE LONG CONSTANT JPI$_VOLUMES = 517 ! VOLUMES MOUNTED V DECLARE LONG CONSTANT JPI$_LOGINTIM = 518 ! TIME OF LOGIN OR PROCESS CREATION L DECLARE LONG CONSTANT JPI$_IMAGNAME = 519 ! CURRENT IMAGE FILE NAME S DECLARE LONG CONSTANT JPI$_SITESPEC = 520 ! PER-PROCESS SITE-SPECIFIC CELL P DECLARE LONG CONSTANT JPI$_MSGMASK = 521 ! PROCESS DEFAULT MESSAGE FLAGST DECLARE LONG CONSTANT JPI$_CLINAME = 522 ! COMMAND LANGUAGE INTERPRETER NAME\ DECLARE LONG CONSTANT JPI$_TABLENAME = 523 ! COMMAND LANGUAGE INTERPRETER TABLE NAMEa DECLARE LONG CONSTANT JPI$_CREPRC_FLAGS = 524 ! $CREPRC FLAGS USED TO CREATE THIS PROCESSJ DECLARE LONG CONSTANT JPI$_UAF_FLAGS = 525 ! FLAGS FROM UAF RECORD_ DECLARE LONG CONSTANT JPI$_MAXDETACH = 526 ! MAXIMUM DETACHED PROCESSES FOR SINGLE USER[ DECLARE LONG CONSTANT JPI$_MAXJOBS = 527 ! MAXIMUM ACTIVE PROCESSES FOR SINGLE USERM DECLARE LONG CONSTANT JPI$_SHRFILLM = 528 ! MAXIMUM OPEN SHARED FILES` DECLARE LONG CONSTANT JPI$_FAST_VP_SWITCH = 529 ! NUMBER OF FAST VECTOR CONTEXT SWITCHES` DECLARE LONG CONSTANT JPI$_SLOW_VP_SWITCH = 530 ! NUMBER OF SLOW VECTOR CONTEXT SWITCHESN DECLARE LONG CONSTANT JPI$_LAST_LOGIN_I = 531 ! Last interactive loginR DECLARE LONG CONSTANT JPI$_LAST_LOGIN_N = 532 ! Last non-interactive login[ DECLARE LONG CONSTANT JPI$_LOGIN_FAILURES = 533 ! Number of login failures at loginP DECLARE LONG CONSTANT JPI$_LOGIN_FLAGS = 534 ! Miscellaneous login flagsS DECLARE LONG CONSTANT JPI$_RMS_DFMBC = 535 ! RMS default: multi-block count` DECLARE LONG CONSTANT JPI$_RMS_DFMBFSDK = 536 ! " " multi-buffer count for disk ( SEQ )W DECLARE LONG CONSTANT JPI$_RMS_DFMBFSMT = 537 ! " " multi-buffer count for tape^ DECLARE LONG CONSTANT JPI$_RMS_DFMBFSUR = 538 ! " " multi-buffer count for unit record\ DECLARE LONG CONSTANT JPI$_RMS_DFMBFREL = 539 ! " " multi-buffer count for REL files] DECLARE LONG CONSTANT JPI$_RMS_DFMBFIDX = 540 ! " " multi-buffer count for ISAM filesB DECLARE LONG CONSTANT JPI$_RMS_PROLOGUE = 541 ! " " prologS DECLARE LONG CONSTANT JPI$_RMS_EXTEND_SIZE = 542 ! " " file extend quantityL DECLARE LONG CONSTANT JPI$_RMS_DFNBC = 543 ! " " network block countN DECLARE LONG CONSTANT JPI$_RMS_DFLRL = 544 ! " " Heuristic default LRL] DECLARE LONG CONSTANT JPI$_RMS_HEURISTIC = 545 ! " " Heuristic enable/disable setting- ! ADD NEW ITEM-CODES BEFORE THIS COMMENTO  DECLARE LONG CONSTANT JPI$_LASTCTL = 552 ! MAX INDEX IN CONTROL REGION ) ! ITEM IDENTIFIERS FOR ADDRESS DATA W DECLARE LONG CONSTANT JPI$_EXCVEC = 256 ! ADDRESS OF "EXCEPTION VECTOR" VECTOR ] DECLARE LONG CONSTANT JPI$_FINALEXC = 257 ! ADDRESS OF LAST CHANCE EXCEPTION VECTORS - ! ADD NEW ITEM-CODES BEFORE THIS COMMENTN DECLARE LONG CONSTANT JPI$_LASTADR = 258 ! MAX INDEX IN ADDRESS TABLE " ! ITEM IDENTIFIERS FOR PCBFLD) ! ADD ITEM-CODES BEFORE THIS COMMENTQ DECLARE LONG CONSTANT JPI$_LASTPCBFLD = 1280 ! MAX INDEX IN PCBFLD TABLE " ! ITEM IDENTIFIERS FOR PHDFLD) ! ADD ITEM-CODES BEFORE THIS COMMENTQ DECLARE LONG CONSTANT JPI$_LASTPHDFLD = 1536 ! MAX INDEX IN PHDFLD TABLE  wwSSPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++L ! Key Grant Block definitions: Format of records in the rights databaseI ! file. These records (1) associate identifier codes with names, and= ! (2) list the holders of all identifie rs in the system. ! --R ! WARNING : If you add attributes, you must change the following modules: ! ; ! [AUDSRV]FORMATBL.B32 - add name to id_attr_table ! Z ! Changing these modules is necessary so that auditing will reflect the new attr name ! 8 DECLARE LONG CONSTANT KGB$M_RESOURCE = x'00000001'7 DECLARE LONG CONSTANT KGB$M_DYNAMIC = x'00000002'8 DECLARE LONG CONSTANT KGB$M_NOACCESS = x'00000004'9 DECLARE LONG CONSTANT KGB$M_SUBSYSTEM = x'00000008'; DECLARE LONG CONSTANT KGB$M_IMPERSONATE = x'00000010'= DECLARE LONG CONSTANT KGB$M_HOLDER_HIDDEN = x'00000020'; DECLARE LONG CONSTANT KGB$M_NAME_HIDDEN = x'00000040'K DECLARE LONG CONSTANT KGB$K_HOLD_RECORD = 16 ! End of holder recordP DECLARE LONG CONSTANT KGB$K_IDENT_RECORD = 48 ! End of identifier recordL DECLARE LONG CONSTANT KGB$K_LEVEL1 = 257 ! Version 1 structure levelQ DECLARE LONG CONSTANT KGB$K_MAINT_RECORD = 64 ! En d of maintenance record: DECLARE LONG CONSTANT KGB$K_NUMBER_OF_ATTRIBUTES = 7- DECLARE LONG CONSTANT KGB$S_KGBDEF = 64 record KGBDEFE LONG KGB$L_IDENTIFIER ! Binary identifier code group KGB$r_fill_51 variant caseH LONG KGB$L_ATTRIBUTES ! Attribute bit definitions case% group KGB$r_fill_52> ! Resource may be charged to identifier>  ! Identifier may be enabled or disabledI ! Identifier will not be used in protection checksF ! Identifier denotes active protected subsystemA ! Identifier can be used for impersonation6 ! Holder records are restrictedG ! $IDTOASC or $ASCTOID translation is restrictedw BYTE RESOURCE_bits ! COMMENT ADDED BY SDL - RESOURCE_bits contains bits RESOU RCE through fill_53) end group KGB$r_fill_52 end variant end group KGB$r_fill_51@ BASIC$QUADWORD KGB$Q_HOLDER ! Holder identifierW STRING KGB$T_NAME = 32 ! Identifier name ( blank filled string )C WORD KGB$W_LEVEL ! File structure level WORD KGB$$$_FILL_1@ BASIC$QUADWORD KGB$Q_SYS_ID ! System identifierH LONG KGB$L_NEXT_ID ! Next availa ble identifier end record KGBDEF  ! ++0 ! Define the environmental rights ID values ! --K DECLARE LONG CONSTANT KGB$K_BATCH_ID = -2147483647 ! Batch ID valueM DECLARE LONG CONSTANT KGB$K_DIALUP_ID = -2147483646 ! Dialup ID valueW DECLARE LONG CONSTANT KGB$K_INTERACTIVE_ID = -2147483645 ! Interactive ID valueK DECLARE LONG CONSTANT KGB$K_LOCAL_ID = -2147483644 ! Local ID valueO DECLARE LONG CONSTANT KGB$K_NETWORK_ID = -2147483643 !  Network ID valueM DECLARE LONG CONSTANT KGB$K_REMOTE_ID = -2147483642 ! Remote ID valueU DECLARE LONG CONSTANT KGB$K_DECWINDOWS_ID = -2147483641 ! Decwindows ID valueZ DECLARE LONG CONSTANT KGB$K_BOBUSER_ID = -2147483640 ! Buffer Object User ID valuef DECLARE LONG CONSTANT KGB$K_MRES_USER_ID = -2147483639 ! Memory Resident Section User ID valueb DECLARE LONG CONSTANT KGB$K_LAST_ENV_ID = -2147483638 ! NOTE: Add all new ones before this ! 4 ! Define the range of environmental identifiers ! ; DECLARE LONG CONSTANT KGB$K_BASE_ENV_ID = -21474836477 DECLARE LONG CONSTANT KGB$K_NUMBER_OF_ENV_IDS = 9 ! S ! Define the restricted range of system identifiers as lowest id (%x800000000) ! to %x80010000.  ! @ DECLARE LONG CONSTANT KGB$K_RESTRICTED_RANGE = -2147418112 ! . ! Define the various access class ranges. ! > DECLARE LONG CONSTANT KGB$K_SEC_LEVEL_BASE = -2147482648> DECLARE LONG  CONSTANT KGB$K_INT_LEVEL_BASE = -2147482392A DECLARE LONG CONSTANT KGB$K_SEC_CATEGORY_BASE = -2147482136A DECLARE LONG CONSTANT KGB$K_INT_CATEGORY_BASE = -2147482072E DECLARE LONG CONSTANT KGB$K_SEC_ACCESS_CLASS_BASE = -2147482648D DECLARE LONG CONSTANT KGB$K_SEC_ACCESS_CLASS_END = -2147482008 ! K ! Define the values for the optional $GRANTID/$REVOKID FLAGS argument. ! > DECLARE LONG CONSTANT KGB$K_PROCESS = 0 ! local rights> DECLARE LONG CONSTANT KGB$K_SYSTEM = 1 ! system rightsM DECLARE LONG CONSTANT KGB$K_EXTENDED = 2 ! local rights ( extended )U DECLARE LONG CONSTANT KGB$K_IMAGE = 3 ! image ( protected subsystem ) rights- DECLARE LONG CONSTANT KGB$K_MAX_SEG = 4Y DECLARE LONG CONSTANT KGB$K_SUBSYSTEM = 3 ! image ( protected subsystem ) rights ww`SPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! ) ! LPA-11 CHARACTERISTICS DEFINITIONS !  ! - ! MICROCODE TYPE VALUES H DECLARE LONG CONSTANT LA$K_MRMCODE = 1 ! MULTIREQUEST MICROCODE I DECLARE LONG CONST ANT LA$K_ADMCODE = 2 ! DEDICATED A/D MICROCODE I DECLARE LONG CONSTANT LA$K_DAMCODE = 3 ! DEDICATED D/A MICROCODE 6 DECLARE LONG CONSTANT LA$M_MCVALID = x'00000001'5 DECLARE LONG CONSTANT LA$M_CLOCKA = x'00000008'5 DECLARE LONG CONSTANT LA$M_CLOCKB = x'00000010'2 DECLARE LONG CONSTANT LA$M_AD1 = x'00000020'2 DECLARE LONG CONSTANT LA$M_AD2 = x'00000040'1 DECLARE LONG CONSTANT LA$M_DA = x'00000080'3 DECLARE LONG CONSTANT LA$M_DIO1 = x'00000100'3  DECLARE LONG CONSTANT LA$M_DIO2 = x'00000200'3 DECLARE LONG CONSTANT LA$M_DIO3 = x'00000400'3 DECLARE LONG CONSTANT LA$M_DIO4 = x'00000800'3 DECLARE LONG CONSTANT LA$M_DIO5 = x'00001000'6 DECLARE LONG CONSTANT LA$M_BFROVRN = x'00800000'* DECLARE LONG CONSTANT LA$S_LADEF = 4 record LADEF variant case% group LA$R_LADEF_BITS0& ! MICROCODE VALID % ! MICROCODE TYPE 0  ! DEVICE CONFIGURATION BITS ! ! CLOCK RATE # ! CLOCK PRESET p LONG MCVALID_bits ! COMMENT ADDED BY SDL - MCVALID_bits contains bits MCVALID through PRESET) end group LA$R_LADEF_BITS0 case% group LA$R_LADEF_BITS19 ! SKIP OVER MICROCODE VALID AND TYPE  ! CLOCK A  ! CLOCK B  ! A/D ? 1  ! A/ D ? 2  ! D/A & ! DIGITAL I/O ? 1 & ! DIGITAL I/O ? 2 & ! DIGITAL I/O ? 3 & ! DIGITAL I/O ? 4 & ! DIGITAL I/O ? 5 n WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_54) end group LA$R_LADEF_BITS1 case% group LA$R_LADEF_BITS2/ ! (IN USER'S COMMAND TABLE) 3  ! BUFFER OVERRUN NON-FATAL BIT n LONG FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through BFROVRN) end group LA$R_LADEF_BITS2 end variant end record LADEF  ww@:TPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  5 DECLARE LONG CONSTANT LAT$M_ETYPE = x'0000FFFF'. DECLARE LONG CONSTANT LAT$C_ENT_NODE = 11 DECLARE LONG CONSTANT LAT$C_ENT_SERVICE = 2. DECLARE LONG CONSTANT LAT$C_ENT_LINK = 3.  DECLARE LONG CONSTANT LAT$C_ENT_PORT = 44 DECLARE LONG CONSTANT LAT$C_ENT_CONNECTION = 55 DECLARE LONG CONSTANT LAT$C_ENT_QUEUE_ENTRY = 6. DECLARE LONG CONSTANT LAT$C_MAXETYPE = 67 DECLARE LONG CONSTANT LAT$M_ESTATUS = x'0000000F'E DECLARE LONG CONSTANT LAT$C_ENTS_OLD = 0 ! Must already existN DECLARE LONG CONSTANT LAT$C_ENTS_NEW = 1 ! Must NOT exist. Create it.N DECLARE LONG CONSTANT LAT$C_ENTS_UNK = 2 ! Create if it does not existI DECLARE LONG CONSTANT LAT$C_ENTS_DEL = 3 ! Must exist. Delete it.: DECLARE LONG CONSTANT LAT$M_SENSE_NEXT = x'00000001': DECLARE LONG CONSTANT LAT$M_SENSE_FULL = x'00000002'< DECLARE LONG CONSTANT LAT$M_READ_HISTORY = x'00000004', DECLARE LONG CONSTANT LAT$S_ENTITY = 3 record ENTITY` WORD ETYPE_bits ! COMMENT ADDED BY SDL - ETYPE_bits contains bits ETYPE through ETYPE group LAT$R_ESTATFLAGS variant caseq BYTE ESTATUS_bits ! COMMENT ADDED BY SDL - ESTATUS_bits contains bits ESTATUS through ESTATUS case# group LAT$R_EFLAG variant caseB BYTE LAT$B_EFLAGS ! Flags for SENSEmode case- group LAT$R_EFLAGBITS, ! Wildcard flag6 ! Full (vs. summary) flag6 ! Used for hist ory buffer~ BYTE SENSE_NEXT_bits ! COMMENT ADDED BY SDL - SENSE_NEXT_bits contains bits SENSE_NEXT through & ! fill_551 end group LAT$R_EFLAGBITS end variant' end group LAT$R_EFLAG end variant# end group LAT$R_ESTATFLAGS end record ENTITY 9 DECLARE LONG CONSTANT LAT$M_ITEMINDEX = x'00003FFF'6 DECLARE LONG CONSTANT LAT$M_STRING = x'00004000'5 DECLARE LONG CONSTANT LAT$M_CLEAR = x'00008000'P DECLARE LONG CONSTANT LAT$_ITM_STATE = 1 ! Entity ( node or port ) stateM DECLARE LONG CONSTANT LAT$_ITM_CIRCUIT_TIMER = 2 ! Circuit timer valueQ DECLARE LONG CONSTANT LAT$_ITM_KEEPALIVE_TIMER = 3 ! Keepalive timer valueQ DECLARE LONG CONSTANT LAT$_ITM_MULTICAST_TIMER = 4 ! Multicast timer valueN DECLARE LONG CONSTANT LAT$_ITM_NODE_LIMIT = 5 ! Maximum number of nodesS DECLARE LONG CONSTANT LAT$_ITM_RETRANSMIT_LIMIT = 6 ! Retransmit limit valueN DECLARE LONG CONSTANT LAT$_ITM_SERVER_MODE = 7 ! Enable LAT master flagV DECLARE LONG CONSTANT LAT$_ITM_OUTGOING_SES_LIMIT = 8 ! Outgoing sessions limitV DECLARE LONG CONSTANT LAT$_ITM_INCOMING_SES_LIMIT = 9 ! Incoming sessions limitN DECLARE LONG CONSTANT LAT$_ITM_CONNECTIONS = 10 ! Enable LAT slave flagS DECLARE LONG CONSTANT LAT$_ITM_DECNET_ADDRESS = 11 ! Use DECnet address flagK DECLARE LONG CONSTANT LAT$_ITM_RATING = 12 ! Static LAT rating valueS DECLARE LONG CONSTANT LAT$_ITM_RATING_TYPE = 13 ! Dynamic/static rating flagR DECLARE LONG CONSTANT LAT$_ITM_NODE_TYPE = 14 ! Local/remote node type flagS DECLARE LONG CONSTANT LAT$_ITM_NODE_STATUS = 15 ! Reachable/unreachable flagV DECLARE LONG CONSTANT LAT$_ITM_SERVICE_STATUS = 16 ! Available/unavailable flagF DECLARE LONG CONSTANT LAT$_ITM_PORT_TYPE = 17 ! Port type valueP DECLARE LONG CONSTANT LAT$_ITM_QUEUED = 18 ! Queued/nonqueued access flagY DECLARE LONG CONSTANT LAT$_ITM_DISCONNECT_REASON = 19 ! Reason for last disconnectW DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_COUNT = 20 ! Number of current sessionsL DECLARE LONG CONSTANT LAT$_ITM_SERVICE_TYPE = 21 ! Service type valueU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SSZ = 22 ! ( node ) Seconds since zeroedS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGR = 23 ! ( node ) Messages receivedV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MSGT = 24 ! ( node ) Messages transmittedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTR = 25 ! ( node ) Slots receivedS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLTT = 26 ! ( node ) Slots transmittedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTR = 27 ! ( node ) Bytes receivedS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_BYTT = 28 ! ( node ) Bytes transmittedX DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MNA = 29 ! ( node ) Multiple node addressesT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DUP = 30 ! ( node ) Duplicates receivedW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MRT = 31 ! ( node ) Messages retransmittedZ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILM = 32 ! ( node ) Illegal messages receivedW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ILS = 33 ! ( node ) Illegal slots receivedX DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCA = 34 ! ( node ) Solicitations acceptedX DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SLCR = 35 ! ( node ) Solicitations rejectedP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TER = 36 ! ( node ) Transmit errorsP DECLARE LONG CONSTANT LAT$_ITM_CTNOD_RES = 37 ! ( node ) Resource errorsS DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NTB = 38 ! ( node ) No transmit bufferY DECLARE LONG CONSTANT LAT$_ITM_CTNOD_TMO = 39 ! ( node ) Virtual circuit timeoutsW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DOB = 40 ! ( node ) Discarded output bytesV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LSTER = 41 ! ( node ) Last transmit errorW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_PROTO = 42 ! ( node ) Protocol error countb DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVM = 43 ! ( protocol ) Invalid message type receivedc DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ISM = 44 ! ( protocol ) Invalid start message received\ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_IVS = 45 ! ( protocol ) Invalid sequence number] DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NIZ = 46 ! ( protocol ) Zero node index received^ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ICI = 47 ! ( protocol ) Invalid server slot index] DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CSI = 48 ! ( protocol ) Circuit sequence invalidb DECLARE LONG CONSTANT LAT$_ITM_CTPRO_NLV = 49 ! ( protocol ) Circuit index no longer valid\ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_HALT = 50 ! ( protocol ) Circuit forced to halt^ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_MIZ = 51 ! ( protocol ) Invalid master slot index] DECLARE LONG CONSTANT LAT$_ITM_CTPRO_SIZ = 52 ! ( protocol ) Invalid slave slot indexZ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_CRED = 53 ! ( protocol ) Invalid credit field_ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RCSM = 54 ! ( protocol ) Repeat master slot createc DECLARE LONG CONSTANT LAT$_ITM_CTPRO_RDSM = 55 ! ( protocol ) Repeat master slot disconnectX DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SSZ = 56 ! ( service ) Seconds since zeroedZ DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNA = 57 ! ( service ) Connections attemptedZ DECLARE LONG CONSTANT LAT$_ITM_CTSRV_MCNC = 58 ! ( service ) Connections completedY DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNA = 59 ! ( service ) Connections acceptedY DECLARE LONG CONSTANT LAT$_ITM_CTSRV_SCNR = 60 ! ( service ) Connections rejectedU DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SSZ = 61 ! ( port ) Seconds since zeroedP DECLARE LONG CONSTANT LAT$_ITM_CTPRT_RMT = 62 ! ( port ) Remote accessesP DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTR = 63 ! ( port ) Bytes receivedS DECLARE LONG CONSTANT LAT$_ITM_CTPRT_BYTT = 64 ! ( port ) Bytes transmittedY DECLARE LONG CONSTANT LAT$_ITM_MAXIMUM_UNITS = 65 ! Maximum LTA device unit numberS DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASS = 66 ! Port service class itemY DECLARE LONG CONSTANT LAT$_ITM_DISPLAY_NUMBER = 67 ! X Display Number ( Binary )C DECLARE LONG CONSTANT LAT$_ITM_CPU_RATING = 68 ! CPU ratingQ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_RESPONDER = 69 ! Service responderW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBXMT = 70 ! ( node ) Multicast bytes xmtW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCBRCV = 71 ! ( node ) Multicast bytes rcvV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMXMT = 72 ! ( node ) Multicast msgs xmtV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_MCMRCV = 73 ! ( node ) Multicast msgs rcvU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_SOLFAIL = 74 ! ( node ) Solicit failuresV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ATLOS = 75 ! ( node ) Attention slot lostR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_DATLOS = 76 ! ( node ) User data lostV DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOREJ = 77 ! ( node ) No reject slot sentT DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSCT = 78 ! ( node ) Node counter lostR DECLARE LONG CONSTANT LAT$_ITM_CTNOD_LOSSAM = 79 ! ( node ) s.a.m. lossageW DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSAM = 80 ! ( node ) Couldn't send s.a.m.S DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOSTS = 81 ! ( node ) Lost node statusU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_NOXMT = 82 ! ( node ) No link to send onT DECLARE LONG CONSTANT LAT$_ITM_HISTORY = 83 ! ( node ) History buffer enableU DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CTLERR = 84 ! ( node ) Controller errorsZ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_CERRCOD = 85 ! ( node ) Last controller error_ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLA = 86 ! ( node ) (Incoming) solicits accepted_ DECLARE LONG CONSTANT LAT$_ITM_CTNOD_ISOLR = 87 ! ( node ) (Incoming) solicits rejectedX DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SESSIONS = 88 ! Connected session countJ DECLARE LONG CONSTANT LAT$_ITM_CONNECT_TYPE = 89 ! Connection typeZ DECLARE LONG CONSTANT LAT$_ITM_CONNECTION_SESS_LIM = 90 ! Connection session limitQ DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRCV = 91 ! ( conn ) msgs receivedQ DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPRCV = 92 ! ( conn ) dup msgs rcvdM DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGXMT = 93 ! ( conn ) msgs xmtdU DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGILL = 94 ! ( conn ) illegal msgs rcvdV DECLARE LONG CONSTANT LAT$_ITM_CTCON_MSGRXT = 95 ! ( conn ) msgs retransmittedR DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTILL = 96 ! ( conn ) ill slots rcvdR DECLARE LONG CONSTANT LAT$_ITM_CTCON_DUPNOD = 97 ! ( conn ) duplicate nodeV DECLARE LONG CONSTANT LAT$_ITM_CTCON_SECZER = 98 ! ( conn ) seconds since zeroR DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTRCV = 99 ! ( conn ) bytes receivedO DECLARE LONG CONSTANT LAT$_ITM_CTCON_BYTXMT = 100 ! ( conn ) bytes xmtdO DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTRCV = 101 ! ( conn ) slots rcvdV DECLARE LONG CONSTANT LAT$_ITM_CTCON_SLTXMT = 102 ! ( conn ) slots transmittedV DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLACP = 103 ! ( conn ) solicits acceptedV DECLARE LONG CONSTANT LAT$_ITM_CTCON_SOLREJ = 104 ! ( conn ) solicits rejectedV DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERR = 105 ! ( conn ) last transmit errorY DECLARE LONG CONSTANT LAT$_ITM_CTCON_XERRCOD = 106 ! ( conn ) last xmt error codeX DECLARE LONG CONSTANT LAT$_ITM_CTCON_ATTLOS = 107 ! ( conn ) attention slot lossN DECLARE LONG CONSTANT LAT$_ITM_CTCON_DATLOS = 108 ! ( conn ) data lossV DECLARE LONG CONSTANT LAT$_ITM_CTCON_CANTREJ = 109 ! ( conn ) reject slot lossb DECLARE LONG CONSTANT LAT$_ITM_SESSION_NUMBER = 110 ! ( conn ) session number for subblockc DECLARE LONG CONSTANT LAT$_ITM_FORWARD_SESSION_LIMIT = 111 ! ( node ) forward session limit[ DECLARE LONG CONSTANT LAT$_ITM_EXTRA_DATALINK_BUFFERS = 112 ! Extra datalink buffers\ DECLARE LONG CONSTANT LAT$_ITM_TRANSMIT_BUFFERS_INUSE = 113 ! Transmit buffers in useW DECLARE LONG CONSTANT LAT$_ITM_QUE_POS_OBSOLETE = 114 ! Queue position for entry ! Obsolete - node queue and ! service queue position are ! now implemented.[ DECLARE LONG CONSTANT LAT$_ITM_QUEUE_DEPTH_LIMIT = 115 ! ( node ) queue depth limitO DECLARE LONG CONSTANT LAT$_ITM_DEVICE_SEED = 116 ! ( node ) device seedb DECLARE LONG CONSTANT LAT$_ITM_NODE_QUEUE_POSITION = 117 ! ( port ) minimum queue positione DECLARE LONG CONSTANT LAT$_ITM_SERVICE_QUEUE_POSITION = 118 ! ( port ) maximum queue positionT DECLARE LONG CONSTANT LAT$_ITM_DIALUP = 119 ! ( port ) dialup characteristicR DECLARE LONG CONSTANT LAT$_ITM_AUTOPROMPT = 120 ! ( port ) autoprompt charh DECLARE LONG CONSTANT LAT$_ITM_RATING_LOAD_OBSOLETE = 121 ! obsolete - portion of rating for loadP DECLARE LONG CONSTANT LAT$_ITM_CTPRT_LCL = 122 ! ( port ) local accessesY DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCA = 123 ! ( port ) Solicitations acceptedY DECLARE LONG CONSTANT LAT$_ITM_CTPRT_SLCR = 124 ! ( port ) Solicitations rejected` DECLARE LONG CONSTANT LAT$_ITM _CTPRT_ISOLA = 125 ! ( node ) (Incoming) solicits accepted` DECLARE LONG CONSTANT LAT$_ITM_CTPRT_ISOLR = 126 ! ( node ) (Incoming) solicits rejected ! G ! This next item code is only returned (it cannot be supplied as aI ! SETMODE item). It indicates whether or not a service on the local" ! node is password protected. ! Y DECLARE LONG CONSTANT LAT$_ITM_PASSWORD = 127 ! ( svc ) Password enabled/disabledT DECLARE LONG CONSTANT LAT$_ITM_HI_CIRCUITS = 128 ! ( node ) Hi circuit countZ DECLARE LONG CONSTANT LAT$_ITM_CUR_CIRCUITS = 129 ! ( node ) Current circuit count] DECLARE LONG CONSTANT LAT$_ITM_MAX_CIRCUITS = 130 ! ( node ) Maximum virtual circuitsT DECLARE LONG CONSTANT LAT$_ITM_HI_SESSIONS = 131 ! ( node ) Hi session countZ DECLARE LONG CONSTANT LAT$_ITM_CUR_SESSIONS = 132 ! ( node ) Current session countZ DECLARE LONG CONSTANT LAT$_ITM_MAX_SESSIONS = 133 ! ( node ) Maximum session count^ DECLARE LONG CONSTANT LAT$_ITM_HI_OUT_QUEUE = 134 ! ( node ) Hi outgoing queue entries` DECLARE LONG CONSTANT LAT$_ITM_CUR_OUT_QUEUE = 135 ! ( node ) Current outgoing q entries` DECLARE LONG CONSTANT LAT$_ITM_MAX_OUT_QUEUE = 136 ! ( node ) Maximum outgoing q entries] DECLARE LONG CONSTANT LAT$_ITM_HI_IN_QUEUE = 137 ! ( node ) Hi incoming queue entries_ DECLARE LONG CONSTANT LAT$_ITM_CUR_IN_QUEUE = 138 ! ( node ) Current incoming q entries_ DECLARE LONG CONSTANT LAT$_ITM_MAX_IN_QUEUE = 139 ! ( node ) Maximum incoming q entriesZ DECLARE LONG CONSTANT LAT$_ITM_HI_SAMS_QUEUED = 140 ! ( node ) Hi unprocessed SAMs` DECLARE LONG CONSTANT LAT$_ITM_CUR_SAMS_QUEUED = 141 ! ( node ) Current unprocessed SAMs` DECLARE LONG CONSTANT LAT$_ITM_MAX_SAMS_QUEUED = 142 ! ( node ) Maximum unprocessed SAMs^ DECLARE LONG CONSTANT LAT$_ITM_HI_SOL_QUEUED = 143 ! ( node ) Hi unprocessed sol infosd DECLARE LONG CONSTANT LAT$_ITM_CUR_SOL_QUEUED = 144  ! ( node ) Current unprocessed sol infosd DECLARE LONG CONSTANT LAT$_ITM_MAX_SOL_QUEUED = 145 ! ( node ) Maximum unprocessed sol infos[ DECLARE LONG CONSTANT LAT$_ITM_HI_AVAIL_SVCS = 146 ! ( node ) Hi available servicesa DECLARE LONG CONSTANT LAT$_ITM_CUR_AVAIL_SVCS = 147 ! ( node ) Current available servicesa DECLARE LONG CONSTANT LAT$_ITM_MAX_AVAIL_SVCS = 148 ! ( node ) Maximum available servicesY DECLARE LONG CONSTANT LAT$_ITM_HI_REACH_NODES = 149 ! ( node ) Hi reachable nodes_ DECLARE LONG CONSTANT LAT$_ITM_CUR_REACH_NODES = 150 ! ( node ) Current reachable nodes_ DECLARE LONG CONSTANT LAT$_ITM_MAX_REACH_NODES = 151 ! ( node ) Maximum reachable nodesU DECLARE LONG CONSTANT LAT$_ITM_HI_LCL_SVCS = 152 ! ( node ) Hi local services[ DECLARE LONG CONSTANT LAT$_ITM_CUR_LCL_SVCS = 153 ! ( node ) Current local services[ DECLARE LONG CONSTANT LAT$_ITM_MAX_LCL_SVCS = 154 ! ( node ) Maximum local servicesW DECLARE LONG CONSTANT LAT$_ITM_DISCARDED_NODES = 155 ! ( node ) Discarded nodes_ DECLARE LONG CONSTANT LAT$_ITM_MAX_DL_BUFFERS = 156 ! ( conn ) Maximum datalink buffersQ DECLARE LONG CONSTANT LAT$_ITM_PRODUCT_TYPE = 157 ! ( conn ) Product typeb DECLARE LONG CONSTANT LAT$_ITM_REM_PRODUCT_VERSION = 158 ! ( conn ) Remote product versionT DECLARE LONG CONSTANT LAT$_ITM_CTPRT_FRAMERR = 159 ! ( port ) Framing errorsR DECLARE LONG CONSTANT LAT$_ITM_CTPRT_PARERR = 160  ! ( port ) Parity errorsS DECLARE LONG CONSTANT LAT$_ITM_CTPRT_OVERRUN = 161 ! ( port ) Data overrunso DECLARE LONG CONSTANT LAT$_ITM_CTPRO_INVCLASS = 162 ! ( protocol ) protocol error invalid service classq DECLARE LONG CONSTANT LAT$_ITM_CTPRO_EXCSTART = 163 ! ( protocol ) protocol error (excessive start slots)c DECLARE LONG CONSTANT LAT$_ITM_CTNOD_XSTR = 164 ! ( node ) Remote node too many START slotsc DECLARE LONG CONSTANT LAT$_ITM_PASSWORD_FAILURES = 165 ! ( service,port ) Password failuresU DECLARE LONG CONSTANT LAT$_ITM_CTPRO_ILLSAM = 166 ! ( protocol ) Illegal SAMsU DECLARE LONG CONSTANT LAT$_ITM_TYPEAHEAD = 167 ! ( port ) 1 = typeahd presentP DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RMSG = 168 ! ( link ) LAT msgs rcvdQ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_RBYT = 169 ! ( link ) LAT bytes rcvdO DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XMSG = 170 ! ( link ) LAT msgs xmtP DECLARE LONG CONSTANT LAT$_ITM_CTLAT_XBYT = 171 ! ( link ) LAT bytes xmt^ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RMSG = 172 ! ( link ) LAT multicast msgs rcvd_ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_RBYT = 173 ! ( link ) LAT multicast bytes rcvd] DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XMSG = 174 ! ( link ) LAT multicast msgs xmt^ DECLARE LONG CONSTANT LAT$_ITM_CTLAT_MUL_XBYT = 175 ! ( link ) LAT multicast bytes xmtL DECLARE LONG CONSTANT LAT$_ITM_PATH_STATE = 176 ! Datalink path state[ DECLARE LONG CONSTANT LAT$_ITM_LARGE_BUFFERS = 177 ! Use of large buffers by defaultd DECLARE LONG CONSTANT LAT$_ITM_ANNOUNCEMENTS = 178 ! ( node ) Transmit service announcementsP DECLARE LONG CONSTANT LAT$_ITM_PORT_STATE = 179 ! ( port ) Current state_ DECLARE LONG CONSTANT LAT$_ITM_CTPRO_BADUID = 180 ! ( protocol ) Invalid node UID event5 DECLARE LONG CONSTANT LAT$C_ITM_MAXSCALAR = 180i DECLARE LONG CONSTANT LAT$_ITM_IDENTIFICATION = 16640 ! Entity ( node or service ) identificationI DECLARE LONG CONSTANT LAT$_ITM_SERVICE_NAME = 16641 ! Service nameC DECLARE LONG CONSTANT LAT$_ITM_NODE_NAME = 16642 ! Node nameC DECLARE LONG CONSTANT LAT$_ITM_PORT_NAME = 16643 ! Port named DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_SERVICE_NAME = 16644 ! Port's connected service name^ DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_NODE_NAME = 16645 ! Port's connected node name^ DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_PORT_NAME = 16646 ! Port's connected port name^ DECLARE LONG CONSTANT LAT$_ITM_TARGET_SERVICE_NAME = 16647 ! Port's target service nameX DECLARE LONG CONSTANT LAT$_ITM_TARGET_NODE_NAME = 16648 ! Port's target node nameX DECLARE LONG CONSTANT LAT$_ITM_TARGET_PORT_NAME = 16649 ! Port's target port name] DECLARE LONG CONSTANT LAT$_ITM_SERVICE_GROUPS = 16650 ! Enabled service groups bitmaskW DECLARE LONG CONSTANT LAT$_ITM_USER_GROUPS = 16651 ! Enabled user groups bitmaskC DECLARE LONG CONSTANT LAT$_ITM_LINK_NAME = 16652 ! Link nameQ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_PASSWORD = 16653 ! Service passwordN DECLARE LONG CONSTANT LAT$_ITM_DEVICE_NAME = 16654 ! Link's device name_ DECLARE LONG CONSTANT LAT$_ITM_DATALINK_ADDRESS = 16655 ! 6-byte binary Ethernet address\ DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_VERSION = 16656 ! LAT protocol version stringY DECLARE LONG CONSTANT LAT$_ITM_SVC_NODE_BLOCK = 16657 ! Subblock for SENSE SERVICEV DECLARE LONG CONSTANT LAT$_ITM_NODE_SVC_BLOCK = 16658 ! Subblock for SENSE NODE[ DECLARE LONG CONSTANT LAT$_ITM_DED_PORT_BLOCK = 16659 ! Subblock for dedicated portsN DECLARE LONG CONSTANT LAT$_ITM_COUNTERS = 16660 ! Subblock for counters\ DECLARE LONG CONSTANT LAT$_ITM_PROTOCOL_ERRORS = 16661 ! Subblock for protocol errors^ DECLARE LONG CONSTANT LAT$_ITM_CONNECTED_LINK_NAME = 16662 ! Port's connected link nameW DECLARE LONG CONSTANT LAT$_ITM_HISTORY_ENTRY = 16663 ! Node history buffer entryJ DECLARE LONG CONSTANT LAT$_ITM_CONNECT_ID = 16664 ! Connect ID name[ DECLARE LONG CONSTANT LAT$_ITM_SESSION_BLOCK = 16665 ! Subblock for SENSE CONNECTIONV DECLARE LONG CONSTANT LAT$_ITM_QUEUED_ENTRY_ID = 16666 ! Queued entry ID stringY DECLARE LONG CONSTANT LAT$_ITM_LIM_PORT_BLOCK = 16667 ! subblock for limited ports^ DECLARE LONG CONSTANT LAT$_ITM_SERVICE_CLASSES = 16668 ! service class bitmask for nodeX DECLARE LONG  CONSTANT LAT$_ITM_LAT_DEV_CTR_BLOCK = 16669 ! link LAT only countersT DECLARE LONG CONSTANT LAT$_ITM_PATH_BLOCK = 16670 ! Datalink path information7 DECLARE LONG CONSTANT LAT$C_ITM_MAXSTRING = 166700 DECLARE LONG CONSTANT LAT$S_ITEM_ENTRY = 6 record ITEM_ENTRY group LAT$R_ITM_CODE variant case% WORD LAT$W_ITEMCODE case& group LAT$R_ITM_BITSx WORD ITEMINDEX_ bits ! COMMENT ADDED BY SDL - ITEMINDEX_bits contains bits ITEMINDEX through CLEAR* end group LAT$R_ITM_BITS end variant! end group LAT$R_ITM_CODE group LAT$R_ITEM_VALUE variant case1 group LAT$R_ITEM_COUNTED_STRING) BYTE LAT$B_ITEM_BCNTB STRING LAT$T_ITEM_STRING_VALUE ( 1 to 1 ) = 15 end group LAT$R_ITEM_COUNTED_STRING c ase. LONG LAT$L_ITEM_SCALAR_VALUE end variant# end group LAT$R_ITEM_VALUE end record ITEM_ENTRY . DECLARE LONG CONSTANT LAT$C_DISABLED = 0- DECLARE LONG CONSTANT LAT$C_ENABLED = 1) DECLARE LONG CONSTANT LAT$C_OFF = 0( DECLARE LONG CONSTANT LAT$C_ON = 1* DECLARE LONG CONSTANT LAT$C_SHUT = 20 DECLARE LONG CONSTANT LAT$M_FLUSH_DATA = 1M DECLARE LONG CONSTANT LAT$C_PT_FORWARD = 0 ! "Forward" connection portQ DECLARE LONG CONSTANT LAT$C_PT_INTERACTIVE = 1 ! Interactive incoming portH DECLARE LONG CONSTANT LAT$C_PT_APPLICATION = 2 ! Application portD DECLARE LONG CONSTANT LAT$C_PT_DEDICATED = 3 ! Dedicated port@ DECLARE LONG CONSTANT LAT$C_PT_LIMITED = 4 ! Limited portN DECLARE LONG CONSTANT LAT$C_PT_STATE_INACTIVE = 0 ! Idle, no connection] DECLARE LONG CONSTANT LAT$C_PT_STATE_CONNECTING = 1 ! Connection in progress, not doneH DECLARE LONG CONSTANT LAT$C_PT_STATE_ACTIVE = 2 ! Fully connectedY DECLARE LONG CONSTANT LAT$C_PT_STATE_DISCONNECTING = 3 ! In the disconnect process= DECLARE LONG CONSTANT LAT$C_NT_LOCAL = 0 ! My own node@ DECLARE LONG CONSTANT LAT$C_NT_REMOTE = 1 ! The other guyO DECLARE LONG CONSTANT LAT$C_ST_GENERAL = 0 ! General timesharing serviceK DECLARE LONG CONSTANT LAT$C_ST_APPLICATION = 1 ! Application serviceC DECLARE LONG CONSTANT LAT$C_ST_LIMITED = 2 ! Limited serviceD DECLAR E LONG CONSTANT LAT$C_DYNAMIC = 0 ! Dynamic calculation< DECLARE LONG CONSTANT LAT$C_STATIC = 1 ! Fixed rating0 DECLARE LONG CONSTANT LAT$C_PS_WORKING = 00 DECLARE LONG CONSTANT LAT$C_PS_SUSPECT = 1/ DECLARE LONG CONSTANT LAT$C_PS_FAILED = 2K DECLARE LONG CONSTANT LAT$C_CN_UNKNOWN = 0 ! Unknown connection typeE DECLARE LONG CONSTANT LAT$C_CN_INCOMING = 1 ! Slave connectionF DECLARE LONG CONSTANT LAT$C_CN_OUTGOING = 2 ! Master connectionD DECLARE LONG CONSTANT LAT$C_UNREACHABLE = 0 ! Known not thereI DECLARE LONG CONSTANT LAT$C_UNKNOWN = 1 ! Haven't heard in a whileC DECLARE LONG CONSTANT LAT$C_REACHABLE = 2 ! I heard from himA DECLARE LONG CONSTANT LAT$C_UNAVAILABLE = 0 ! Can't get it> DECLARE LONG CONSTANT LAT$C_AVAILABLE = 1 ! It IS thereN DECLARE LONG CONSTANT LAT$C_SERVCLASS_INTERACTIVE = 1 ! SC1 = TTDRIVERR DECLARE LONG CONSTANT LAT$C_SERVCLASS_TESTSERVICE = 2 ! SC2 = TEST SERVICEP DECLARE LONG CONSTANT LAT$C_SERVCLASS_XTRANSPORT = 3 ! SC3 = X TransportF DECLARE LONG CONSTANT LAT$C_SERVCLASS_FONT = 4 ! SC4 = X Fonts0 DECLARE LONG CONSTANT LAT$S_LATSETBITS = 1 record LATSETBITS variant case& STRING LAT$T_FILLER = 0 case' STRING LAT$T_FILLER2 = 1 end variant end record LATSETBITS N DECLARE LONG CONSTANT LAT$C_RATING_VECTOR_LENGTH = 56 ! Size of vector1 DECLARE LONG CONSTANT LAT$S_RATING_VEC = 56 record RATING_VECI LONG LAT$A_CONTROL_INIT_RTN ! Address of controller initC LONG LAT$A_UNIT_INIT_RTN ! Address of init initT LONG LAT$A_RATING_INIT_RTN ! Address of initial call from LTDRIVERI LONG LAT$A_TIMER_RTN ! Routine called each secondM LONG LAT$A_CALC_RATING_RTN ! Routine that calculates ratingM LONG LAT$A_STOP_RTN ! Routine called at LAT shutdownD LONG LAT$A_SPARE1_RTN ! Expansion placeholderD LONG LAT$A_SPARE2_RTN ! Expansion placeholderD LONG LAT$A_SPARE3_RTN ! Expansion placeholderD LONG LAT$A_SPARE4_RTN ! Expansion placeholderD LONG LAT$A_SPARE5_RTN ! Expansion placeholderD LONG LAT$A_SPARE6_RTN ! Expansion placeholderD LONG LAT$A_SPARE7_RTN ! Expansion placeholderD LONG LAT$A_SPARE8_RTN ! Expansion placeholder end record RATING_VEC  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! LOCK MANAGER DEFINITIONS ! -6 DECLARE LONG CONSTANT LCK$M_VALBLK = x'00000001'7 DECLARE LONG CONSTANT LCK$M_CONVERT = x'00000002'7 DECLARE LONG CONSTANT LCK$M_NOQUEU E = x'00000004'7 DECLARE LONG CONSTANT LCK$M_SYNCSTS = x'00000008'6 DECLARE LONG CONSTANT LCK$M_SYSTEM = x'00000010'7 DECLARE LONG CONSTANT LCK$M_NOQUOTA = x'00000020'6 DECLARE LONG CONSTANT LCK$M_CVTSYS = x'00000040'7 DECLARE LONG CONSTANT LCK$M_RECOVER = x'00000080'7 DECLARE LONG CONSTANT LCK$M_PROTECT = x'00000100'8 DECLARE LONG CONSTANT LCK$M_NODLCKWT = x'00000200'9 DECLARE LONG CONSTANT LCK$M_NODLCKBLK = x'00000400'8 DECLARE LONG CONSTAN T LCK$M_EXPEDITE = x'00000800'6 DECLARE LONG CONSTANT LCK$M_QUECVT = x'00001000'6 DECLARE LONG CONSTANT LCK$M_BYPASS = x'00002000'6 DECLARE LONG CONSTANT LCK$M_DEQALL = x'00000001'6 DECLARE LONG CONSTANT LCK$M_CANCEL = x'00000002'9 DECLARE LONG CONSTANT LCK$M_INVVALBLK = x'00000004'6 DECLARE LONG CONSTANT LCK$K_NLMODE = 0 ! NULL A DECLARE LONG CONSTANT LCK$K_CRMODE = 1 ! CONCURRENT READ B DECLARE LONG CONSTANT LCK$K_CWMODE = 2 ! CONCURRENT WRITE @ DECLARE LONG CONSTANT LCK$K_PRMODE = 3 ! PROTECTED READ A DECLARE LONG CONSTANT LCK$K_PWMODE = 4 ! PROTECTED WRITE ; DECLARE LONG CONSTANT LCK$K_EXMODE = 5 ! EXCLUSIVE , DECLARE LONG CONSTANT LCK$S_LCKDEF = 2 record LCKDEF variant case' group LCK$R_LCKDEF_BITS0+ ! VALUE BLOCK INCLUDED ) ! CONVERSION REQUEST + ! DO NOT QUEUE REQUEST 3 ! SYNC HRONOUS STATUS REQUESTED " ! SYSTEM LOCK ( ! DON'T CHARGE QUOTA' ! CONVERT TO SYSTEM2 ! RECOVER LOCK DURING FAILOVER2 ! PROTECT LOCK DURING FAILOVER) ! NO DEADLOCK WAITING* ! NO DEADLOCK BLOCKING- ! EXPEDITE NLMODE REQUEST/ ! FORCE CONVERSION TO QUEUE- ! BYPASS WAITING REQUESTS ! E ! I FBLKING bitfield mask; /* PERFORM CONVERSION IF BLOCKING ! n WORD VALBLK_bits ! COMMENT ADDED BY SDL - VALBLK_bits contains bits VALBLK through fill_56+ end group LCK$R_LCKDEF_BITS0 case' group LCK$R_LCKDEF_BITS1( ! DEQUEUE ALL LOCKS $ ! CANCEL REQUEST, ! INVALIDATE VALUE BLOCKn BYTE DEQALL_bits ! COMMENT ADDED BY SDL - DEQALL_bits contains bits DEQALL through fill_57+ end group LCK$R_LCKDEF_BITS1 ! LOCK MODES  end variant end record LCKDEF  ww``UPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! 7 ! Get Lock Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK ! (preceeding the ENDlistname item) so that users will not have ! to relink. ! - ! ITEM LIST BLOCKS] DECLARE LONG CONSTANT LKI$K_LENGTH = 24 ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$C_LENGTH = 24 ! LENGTH OF LIST BLOCK WITHOUT BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$K_BR_LENGTH = 56 ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFO] DECLARE LONG CONSTANT LKI$C_BR_LENGTH = 56 ! LENGTH OF LIST BLOCK WITH BYTE RANGE INFO ! WITH MULTITASK INFO.- DECLARE LONG CONSTANT LKI$S_LKIDEF = 56 record LKIDEF group LKI$R_U1 variant case? LONG LKI$L_MSTLKID ! LOCK ID ON MASTER case8 LONG LKI$L_LOCKID ! OLD SYMBOL end variant end group LKI$R_U18 LONG LKI$L_PID ! PROCESS ID group LKI$R_U2 variant case<  LONG LKI$L_MSTCSID ! CSID OF MASTER case8 LONG LKI$L_SYSID ! OLD SYMBOL end variant end group LKI$R_U2: BYTE LKI$B_RQMODE ! REQUEST MODE: BYTE LKI$B_GRMODE ! GRANTED MODE8 BYTE LKI$B_QUEUE ! LOCK QUEUE8 BYTE LKI$$$_SPARE ! SPARE BYTE group LKI$R_U3 variant caseF  LONG LKI$L_LKID ! LOCK ID ON PROCESS NODE  case8 LONG LKI$L_REMLKID ! OLD SYMBOL end variant end group LKI$R_U3 group LKI$R_U4 variant caseC LONG LKI$L_CSID ! CSID OF PROCESS NODE  case8 LONG LKI$L_REMSYSID ! OLD SYMBOL end variant end group LKI$R_U4B BASIC$QUADWORD LKI$ Q_RQSTART ! REQUEST RANGE STARTC BASIC$QUADWORD LKI$Q_RQLENGTH ! REQUEST RANGE LENGTHB BASIC$QUADWORD LKI$Q_GRSTART ! GRANTED RANGE STARTC BASIC$QUADWORD LKI$Q_GRLENGTH ! GRANTED RANGE LENGTH end record LKIDEF  ! DEFINE NAMSPACE FIELDS6 DECLARE LONG CONSTANT LKI$M_SYSNAM = x'80000000'. DECLARE LONG CONSTANT LKI$S_NAMSPACE = 4 record NAMSPACE# group LKI$R_NAMSPACE_UNION variant  case- group LKI$R_NAMSPACE_FIELDS@ WORD LKI$W_GROUP ! GROUP OF OWNER UICD BYTE LKI$B_RMOD ! ACCESS MODE OF REQUEST@ BYTE LKI$B_STATUS ! STATUS OF RESOURCE1 end group LKI$R_NAMSPACE_FIELDS case) group LKI$R_STATUS_BITS ! SPARE( ! SYSTEM WIDE RSBj LONG FILL_bits ! COMMENT ADDED BY SDL - FILL_bits contains bits FILL through SYSNAM- end group LKI$R_STATUS_BITS end variant' end group LKI$R_NAMSPACE_UNION end record NAMSPACE  ! DEFINE STATE FIELDS, DECLARE LONG CONSTANT LKI$S_STATEF = 3 record STATEF: BYTE LKI$B_STATE_RQMODE ! REQUEST MODE: BYTE LKI$B_STATE_GRMODE ! GRANTED MODE= BYTE LKI$B_STATE_QUEUE ! LOCK STATE CODE end record  STATEF 0 DECLARE LONG CONSTANT LKIUSR$K_LENGTH = 200 DECLARE LONG CONSTANT LKIUSR$C_LENGTH = 20k DECLARE LONG CONSTANT LKIUSR$K_BLOCKER_START = 20 ! OFFSET TO THE START OF THE RETURNED INFORMATION3 DECLARE LONG CONSTANT LKIUSR$S_LKIUSRDEF = 20 record LKIUSRDEFK BASIC$QUADWORD LKIUSR$Q_START ! START OF THE REQUESTED RANGEL BASIC$QUADWORD LKIUSR$Q_LENGTH ! LENGTH OF THE REQUESTED RANGE= BYTE LKIUSR$B_RQMODE !  REQUESTED MODE` BYTE LKIUSR$B_IGNORE_OWN ! FLAG TO IGNORE LOCKS OWNED BY THE CALLING PROCESS7 WORD LKI$$_FILL_1 ! reserved end record LKIUSRDEF 2 DECLARE LONG CONSTANT LKI$_RNG_S_RNGDEF = 32 record RNGDEFB BASIC$QUADWORD LKI$_RNG_Q_RQSTART ! REQUEST RANGE STARTD BASIC$QUADWORD LKI$_RNG_Q_RQLENGTH ! REQUEST RANGE LENGTHB BASIC$QUADWORD LKI$_RNG_Q_GRSTART ! GRANTED RANGE STARTD BASIC$QUA DWORD LKI$_RNG_Q_GRLENGTH ! GRANTED RANGE LENGTH end record RNGDEF  ! LOCK STATE CODE VALUES9 DECLARE LONG CONSTANT LKI$C_GRANTED = 1 ! GRANTED< DECLARE LONG CONSTANT LKI$C_CONVERT = 0 ! CONVERSION: DECLARE LONG CONSTANT LKI$C_WAITING = -1 ! WAITING> DECLARE LONG CONSTANT LKI$C_RETRY = -2 ! RETRY REQUEST; DECLARE LONG CONSTANT LKI$C_SCSWAIT = -3 ! SCS WAITH DECLARE LONG CONSTANT LKI$C_RSPNOTQED = -4 ! RESPONSE NOT QUEUEDD DECL ARE LONG CONSTANT LKI$C_RSPQUEUED = -5 ! RESPONSE QUEUEDE DECLARE LONG CONSTANT LKI$C_RSPGRANTD = -6 ! RESPONSE GRANTEDH DECLARE LONG CONSTANT LKI$C_RSPDOLOCL = -7 ! RESPONSE DO LOCALLYD DECLARE LONG CONSTANT LKI$C_RSPRESEND = -8 ! RESPONSE RESEND ! DEFINE TABLE NUMBERS & ! STRUCTURE CODES MUST START AT 1> DECLARE LONG CONSTANT LKI$C_LKBTYPE = 1 ! ITEM IN LKB = DECLARE LONG CONSTANT LKI$C_RSBTYPE = 2 ! ITEM IN RSBK DECLARE LONG CONSTANT LKI$ C_LISTEND = 0 ! DEFINE ITMLST TERMINATOR  ! ITEM IDENTIFIERS FOR LKB9 DECLARE LONG CONSTANT LKI$_PID = 256 ! PROCESS IDC DECLARE LONG CONSTANT LKI$_STATE = 257 ! CURRENT LOCK STATEC DECLARE LONG CONSTANT LKI$_PARENT = 258 ! ID OF PARENT LOCKM DECLARE LONG CONSTANT LKI$_LCKREFCNT = 259 ! SUB-LOCK REFERENCE COUNT9 DECLARE LONG CONSTANT LKI$_LOCKID = 260 ! LOCK IDA DECLARE LONG CONSTANT LKI$_REMLKID = 261 ! REMOTE LOCK IDM DECLARE LONG CONSTANT LKI$_MSTLKID = 262 ! LOCK ID ON RESOURCE MASTERG DECLARE LONG CONSTANT LKI$_LKID = 263 ! LOCK ID ON PROCESS NODED DECLARE LONG CONSTANT LKI$_CSID = 264 ! CSID OF PROCESS NODEL DECLARE LONG CONSTANT LKI$_BRL = 265 ! IS THE LOCK A BYTE RANGE LOCKA DECLARE LONG CONSTANT LKI$_RANGE = 266 ! Range of requestJ DECLARE LONG CONSTANT LKI$_LASTLKB = 267 ! MAX INDEX IN LKB TABLE  ! ITEM IDENTIFIERS FOR RSBG DECLARE LONG CONSTANT LKI$_NAMSPACE =  512 ! RESOURCE NAME SPACE? DECLARE LONG CONSTANT LKI$_RESNAM = 513 ! RESOURCE NAMEQ DECLARE LONG CONSTANT LKI$_RSBREFCNT = 514 ! SUB-RESOURCE REFERENCE COUNT= DECLARE LONG CONSTANT LKI$_VALBLK = 515 ! VALUE BLOCKS DECLARE LONG CONSTANT LKI$_SYSTEM = 516 ! SYSTEM ID OF SYSTEM WITH RESOURCEN DECLARE LONG CONSTANT LKI$_LCKCOUNT = 517 ! COUNT OF LOCKS ON RESOURCEZ DECLARE LONG CONSTANT LKI$_BLOCKEDBY = 518 ! LIST OF LOCKS BLOCKED BY CURRENT LOCKW ! DECLARE LONG CONSTANT LKI$_BLOCKING = 519 ! LIST OF LOCKS BLOCKING CURRENT LOCKN DECLARE LONG CONSTANT LKI$_LOCKS = 520 ! LIST OF ALL LOCKS ON RESOURCEV DECLARE LONG CONSTANT LKI$_CVTCOUNT = 521 ! COUNT OF LOCKS ON CONVERSION QUEUER DECLARE LONG CONSTANT LKI$_WAITCOUNT = 522 ! COUNT OF LOCKS ON WAIT QUEUE T DECLARE LONG CONSTANT LKI$_GRANTCOUNT = 523 ! COUNT OF LOCKS ON GRANT QUEUE J DECLARE LONG CONSTANT LKI$_MSTCSID = 524 ! CSID OF RESOURCE MASTERF "DECLARE LONG CONSTANT LKI$_VALBLKST = 525 ! VALUE BLOCK STATUSn DECLARE LONG CONSTANT LKI$_BLOCKEDBY_BR = 526 ! LIST OF LOCKS BLOCKED BY CURRENT LOCK WITH BYTE RANGESo DECLARE LONG CONSTANT LKI$_BLOCKING_BR = 527 ! LIST OF LOCKS BLOCKING THE CURRENT LOCK WITH BYTE RANGESj DECLARE LONG CONSTANT LKI$_LOCKS_BR = 528 ! LIST OF LOCKS ALL LOCKS ON A RESOURCE WITH BYTE RANGESg DECLARE LONG CONSTANT LKI$_BLOCKER_BR = 529 ! LOCK THAT WILL BLOCK THE REQUESTED RANGE AND MODEC # DECLARE LONG CONSTANT LKI$_LASTRSB = 530 ! MAX INDEX IN RSBD DECLARE LONG CONSTANT LKISND$K_HDRLEN = 16 ! LENGTH OF HEADERD DECLARE LONG CONSTANT LKISND$C_HDRLEN = 16 ! LENGTH OF HEADER3 DECLARE LONG CONSTANT LKISND$S_LKISNDDEF = 16 record LKISNDDEFP ! Format for local system buffer header when sending an information request ! to a remote system.B WORD LKISND$W_RETSIZE ! size of return infoB WORD LKISND$W_STATUS $ ! status of operation4 WORD LKISND$W_FLAGS ! flags< WORD LKISND$W_SEQNUM ! rebuild seqnm@ WORD LKISND$W_SIZE ! size of structure? BYTE LKISND$B_TYPE ! type of stucture. BYTE LKISND$B_FILL_2 ! ? BYTE LKISND$B_ITEM_LENGTH ! len of item info. BYTE LKISND$B_FILL_3 ! . WORD LKISND$W_FILL_4 !  end record LKISNDDEF  ww&`VPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI'NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET( %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  / DECLARE LONG CONSTANT LMF$_PROD_TOKEN = 1* DECLARE LONG CONSTANT LMF$_HW_ID = 21 DECLARE LONG CONSTANT LMF$_PROD_VERSION = 3. DECLARE LONG CONSTANT LMF$_PROD_DATE = 40 DECLARE )LONG CONSTANT LMF$_CHARGE_TYPE = 51 DECLARE LONG CONSTANT LMF$_UNITS_IN_USE = 6- DECLARE LONG CONSTANT LMF$_USERNAME = 70 DECLARE LONG CONSTANT LMF$_CHECK_TOKEN = 8/ DECLARE LONG CONSTANT LMF$_CHECK_HWID = 90 DECLARE LONG CONSTANT LMF$_NO_RELEASE = 100 DECLARE LONG CONSTANT LMF$C_PRDNAMLEN = 240 DECLARE LONG CONSTANT LMF$K_PRDNAMLEN = 241 DECLARE LONG CONSTANT LMF$C_PRDUCERLEN = 241 DECLARE LONG CONSTANT LMF$K_PRDUCERLEN = 241 DECLARE LO *NG CONSTANT LMF$C_CONTEXTLEN = 161 DECLARE LONG CONSTANT LMF$K_CONTEXTLEN = 16/ DECLARE LONG CONSTANT LMF$C_TOKENLEN = 31/ DECLARE LONG CONSTANT LMF$K_TOKENLEN = 31/ DECLARE LONG CONSTANT LMF$C_HW_IDLEN = 31/ DECLARE LONG CONSTANT LMF$K_HW_IDLEN = 310 DECLARE LONG CONSTANT LMF$C_VERSIONLEN = 40 DECLARE LONG CONSTANT LMF$K_VERSIONLEN = 4- DECLARE LONG CONSTANT LMF$K_DATELEN = 8- DECLARE LONG CONSTANT LMF$C_DATELEN = 8? DECLARE LONG CON +STANT LMF$M_RETURN_FAILURES = x'00000001'B DECLARE LONG CONSTANT LMF$M_BROADCAST_FAILURES = x'00000002'? DECLARE LONG CONSTANT LMF$M_OUTPUT_FAILURES = x'00000004'< DECLARE LONG CONSTANT LMF$M_KERNEL_GRANT = x'00000008'D DECLARE LONG CONSTANT LMF$M_LOOKUP_LICENSE_SPARE = x'FFFFFFF0'1 DECLARE LONG CONSTANT LMF$s_dvspm_masks = 4 record dvspm_masks& ! return status .vs. signal ! do an OPCOM ! do a PUTMSG! ! grant in kernel mode ! spare area{ LONG RETURN_FAILURES_bits ! COMMENT ADDED BY SDL - RETURN_FAILURES_bits contains bits RETURN_FAILURES through & ! LOOKUP_LICENSE_SPARE end record dvspm_masks  ww-eVPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI.NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET/ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  8 DECLARE LONG CONSTANT LNM$M_NO_ALIAS = x'00000001'7 DECLARE LONG CONSTANT LNM$M_CONFINE = x'00000002'6 DECLARE LONG CONSTANT LNM$M_CRELOG = x'00000004'5 DECLARE LONG CONSTANT LNM$M_TA 0BLE = x'00000008'9 DECLARE LONG CONSTANT LNM$M_CONCEALED = x'00000100'8 DECLARE LONG CONSTANT LNM$M_TERMINAL = x'00000200'6 DECLARE LONG CONSTANT LNM$M_EXISTS = x'00000400'9 DECLARE LONG CONSTANT LNM$M_SHAREABLE = x'00010000'; DECLARE LONG CONSTANT LNM$M_CLUSTERWIDE = x'00020000'9 DECLARE LONG CONSTANT LNM$M_CREATE_IF = x'01000000': DECLARE LONG CONSTANT LNM$M_CASE_BLIND = x'02000000'; DECLARE LONG CONSTANT LNM$M_INTERLOCKED = x'04000000'< DE 1CLARE LONG CONSTANT LNM$M_LOCAL_ACTION = x'08000000', DECLARE LONG CONSTANT LNM$S_LNMDEF = 4 record LNMDEF* ! Logical name attributes -- bits 0-7* ! Do not allow outer mode alias( ! Do not copy into subprocess- ! Created with old $CRELOG service! ! This is a table name' ! Fill out logical name byte7 ! Logical name translation attributes -- bits 8-151 ! Do not display result of translation5 ! Do no 2t retranslate result of translation1 ! Translation does exist at this index& ! Fill out translation byte7 ! Logical name table characteristics -- bits 16-237 ! Logical name table is shareable (S0 space)3 ! This is a clusterwide table (or name) 5 ! Only supported as returned $TRNLNM attribute' ! Reserved bit numbers 18-19 ! Fill out table byte+ ! System service options -- bits 24-313 ! May map to exis 3ting logical name table1 ! Perform case-insensitive translationB ! Translate clusterwide name with LNM$CWLOGICALS locked5 ! A local operation on a clusterwide name 7 ! done in response to a request from another node' ! Only supported from kernel mode" ! Fill out options bytej LONG NO_ALIAS_bits ! COMMENT ADDED BY SDL - NO_ALIAS_bits contains bits NO_ALIAS through FILL_4 end record LNMDEF p DECLARE LONG CONSTANT 4LNM$C_TABNAMLEN = 31 ! Maximum length of a name contained within a directory table_ DECLARE LONG CONSTANT LNM$C_NAMLENGTH = 255 ! Maximum logical name / translation lengthX DECLARE LONG CONSTANT LNM$C_MAXDEPTH = 10 ! Maximum logical name recursion depth@ DECLARE LONG CONSTANT LNM$_INDEX = 1 ! Translation indexB DECLARE LONG CONSTANT LNM$_STRING = 2 ! Translation stringB DECLARE LONG CONSTANT LNM$_ATTRIBUTES = 3 ! Attribute bitsF DECLARE LONG CONSTANT LN 5M$_TABLE = 4 ! Logical name table nameL DECLARE LONG CONSTANT LNM$_LENGTH = 5 ! Length of translation stringC DECLARE LONG CONSTANT LNM$_ACMODE = 6 ! Access mode of nameL DECLARE LONG CONSTANT LNM$_MAX_INDEX = 7 ! Maximum translation indexN DECLARE LONG CONSTANT LNM$_PARENT = 8 ! Parent logical name table nameK DECLARE LONG CONSTANT LNM$_LNMB_ADDR = 9 ! Return LNM block address ! internal use by MTL  ! and mailbox UCBH DECLARE LONG CONSTANT LNM$_AGENT_ACMODE = 10 ! Agent access mode ! Define item list codesB DECLARE LONG CONSTANT LNM$_CHAIN = -1 ! Chain to next list ww7VPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI8NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET9 %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +/ ! LINE PRINTER CHARACTERISTICS DEFINITIONS ! -1 DECLARE LONG CONSTANT LP$M_CR = x'00000001'7 DECLARE LONG CONSTANT LP$M_MECHFORM = x'00000002'7 DECLARE LONG CONSTANT :LP$M_PRINTALL = x'00000004'4 DECLARE LONG CONSTANT LP$M_DAVFU = x'00000008'3 DECLARE LONG CONSTANT LP$M_WRAP = x'00000010'7 DECLARE LONG CONSTANT LP$M_TRUNCATE = x'00000020'2 DECLARE LONG CONSTANT LP$M_TAB = x'00000040'4 DECLARE LONG CONSTANT LP$M_LOWER = x'00000080'6 DECLARE LONG CONSTANT LP$M_PASSALL = x'00000100'7 DECLARE LONG CONSTANT LP$M_FALLBACK = x'00000200'5 DECLARE LONG CONSTANT LP$M_SIXELS = x'00000400'8 DECLARE LONG CONSTANT LP$M_B ;ITMAPPED = x'00000800'5 DECLARE LONG CONSTANT LP$M_POLLED = x'00001000'< DECLARE LONG CONSTANT LP$M_BIDIRECTIONAL = x'00002000'5 DECLARE LONG CONSTANT LP$M_PAGE_L = x'FF000000'( DECLARE LONG CONSTANT LP$_LP11 = 1( DECLARE LONG CONSTANT LP$_LA11 = 2) DECLARE LONG CONSTANT LP$_LA180 = 3. DECLARE LONG CONSTANT LP$_PC_PRINTER = 8* DECLARE LONG CONSTANT LP$S_LPDEF = 4 record LPDEF variant case$ group LP$R_LPDEF_ <BITS- ! CARRIAGE RETURN NEEDED + ! MECHANICAL FORM FEED 9 ! NON PRINTABLE CHAR. ACCEPT(DMF-32) # ! DAVFU AVAIL. & ! CHAR. WRAP MODE 7 ! TRUNCATE output at carriage width ! TAB needed- ! PRINTER HAS LOWER CASE # ! PASSALL MODE # ! FALLBACK MODE$ ! HANDLES SIXELS& ! HANDLES BIT MAPS/ ! Printer will poll device / ! Bidirectional USB printer( ! SPARE UNUSED BITS " ! PAGE LENGTH a LONG CR_bits ! COMMENT ADDED BY SDL - CR_bits contains bits CR through PAGE_L( end group LP$R_LPDEF_BITS end variant end record LPDEF ww>{'WPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI?NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET@ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  - DECLARE LONG CONSTANT MAPPING$K_ADD = 10 DECLARE LONG CONSTANT MAPPING$K_CREATE = 20 DECLARE LONG CONSTANT MAPPING$K_DEFINE = 30 DECLARE LONG CONSTANT MAPPING$K_DELETE = 40 DECL AARE LONG CONSTANT MAPPING$K_MODIFY = 5. DECLARE LONG CONSTANT MAPPING$K_SCAN = 60 DECLARE LONG CONSTANT MAPPING$K_LOOKUP = 75 DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE = 8: DECLARE LONG CONSTANT MAPPING$K_ZERO_PERFORMANCE = 9/ DECLARE LONG CONSTANT MAPPING$K_STOP = 100 DECLARE LONG CONSTANT MAPPING$K_START = 11; DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_CODE = 12/ DECLARE LONG CONSTANT MAPPING$K_END = 1000 DECLARE LONG CONSTANT MAPPING$K_TY BPE = 1017 DECLARE LONG CONSTANT MAPPING$K_REMOTE_AREA = 1027 DECLARE LONG CONSTANT MAPPING$K_REMOTE_NAME = 1036 DECLARE LONG CONSTANT MAPPING$K_LOCAL_NAME = 1041 DECLARE LONG CONSTANT MAPPING$K_FLAGS = 1055 DECLARE LONG CONSTANT MAPPING$K_USER_DATA = 106< DECLARE LONG CONSTANT MAPPING$K_USER_DATA_LENGTH = 1077 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_MC = 1087 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_SC = 1097 DECLARE LONG CONSTANT MAPPING$K_ CWILDCARD_TC = 1107 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_TS = 1117 DECLARE LONG CONSTANT MAPPING$K_DEFINE_NAME = 1128 DECLARE LONG CONSTANT MAPPING$K_DEFINE_FLAGS = 1137 DECLARE LONG CONSTANT MAPPING$K_SCAN_BUFFER = 1149 DECLARE LONG CONSTANT MAPPING$K_PROPOSED_NAME = 1159 DECLARE LONG CONSTANT MAPPING$K_WC_RESOLUTION = 116= DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_ITEMS = 117= DECLARE LONG CONSTANT MAPPING$K_WC_MUST_BE_UNIQUE = 200< DDECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LONGEST = 201= DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_SHORTEST = 202? DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_MOST_TERMS = 203A DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_FEWEST_TERMS = 204= DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LEFTMOST = 205> DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_RIGHTMOST = 206: DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_WC = 207= DECLARE LONG CONSTANT MAPPING$K_ANY_TYPE = X"80000000"L<E DECLARE LONG CONSTANT MAPPING$K_TCP_USER = -2147483391= DECLARE LONG CONSTANT MAPPING$K_TCP_GROUP = -2147483390= DECLARE LONG CONSTANT MAPPING$K_TCP_PROXY = -2147483389? DECLARE LONG CONSTANT MAPPING$K_DCE_MAPPING = -2147483135= DECLARE LONG CONSTANT MAPPING$K_DCE_PROXY = -2147483134C DECLARE LONG CONSTANT MAPPING$K_PATHWORKS_PROXY = -2147482879@ DECLARE LONG CONSTANT MAPPING$K_DECNET_PROXY = -2147482623D DECLARE LONG CONSTANT MAPPING$K_KERBEROS_MAPFPING = -2147482367= DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE_LENGTH = 56> DECLARE LONG CONSTANT MAPPING$S_MAPPING$PERFORMANCE = 56 record MAPPING$PERFORMANCE& LONG MAPPING$L_TOTAL_MESSAGES( LONG MAPPING$L_TOTAL_EXCEPTIONS LONG MAPPING$L_ADDS LONG MAPPING$L_CREATES LONG MAPPING$L_DEFINESS LONG MAPPING$L_DELETES LONG MAPPING$L_MODIFYS LONG MAPPING$L_SCANS LONG MAPPING$L_LOOKUPS# L GONG MAPPING$L_PERFORMANCE LONG MAPPING$L_STOPS LONG MAPPING$L_STARTS LONG MAPPING$L_AUDITS( LONG MAPPING$L_INVALID_MESSAGES$ end record MAPPING$PERFORMANCE @ DECLARE LONG CONSTANT MAPPING$M_LOCAL_UNIQUE = x'00000001'A DECLARE LONG CONSTANT MAPPING$M_REMOTE_UNIQUE = x'00000002'> DECLARE LONG CONSTANT MAPPING$M_DEFAULT_IN = x'00000004'? DECLARE LONG CONSTANT MAPPING$M_DEFAULT_OUT = x'00000008'A DECLARE LONG CONSTANT MAPP HING$M_NO_DEFAULT_IN = x'00000010'B DECLARE LONG CONSTANT MAPPING$M_NO_DEFAULT_OUT = x'00000020': DECLARE LONG CONSTANT MAPPING$M_MODIFY = x'00000040'> DECLARE LONG CONSTANT MAPPING$M_DEFINITION = x'00000080'> DECLARE LONG CONSTANT MAPPING$M_CASE_BLIND = x'00000100'< DECLARE LONG CONSTANT MAPPING$M_WILDCARD = x'00000200'> DECLARE LONG CONSTANT MAPPING$M_FIND_LOCAL = x'00000400'? DECLARE LONG CONSTANT MAPPING$M_FIND_REMOTE = x'00000800': DECLARE LONG CON ISTANT MAPPING$M_FILL_1 = x'FFFFF000'8 DECLARE LONG CONSTANT MAPPING$K_HEADER_LENGTH = 409 DECLARE LONG CONSTANT MAPPING$S_MAPPING$HEADER = 40 record MAPPING$HEADER LONG MAPPING$L_LENGTH LONG MAPPING$L_CONTEXT group MAPPING$r_fill_2 variant case& LONG MAPPING$L_FLAGS case( group MAPPING$r_fill_3 LONG LOCAL_UNIQUE_bits ! COMMENT ADDED BY SDL - LJOCAL_UNIQUE_bits contains bits LOCAL_UNIQUE through FILL_1, end group MAPPING$r_fill_3 end variant# end group MAPPING$r_fill_2 LONG MAPPING$L_TYPE! LONG MAPPING$L_WILDFLAGS! LONG MAPPING$L_WILDMULTI" LONG MAPPING$L_WILDSINGLE LONG MAPPING$L_WILDTERM LONG MAPPING$L_TERMSEP LONG MAPPING$L_UNUSED end record MAPPING$HEADER ? DECLARE LONG CONSTANT MAPPING$S_MAPPING$GENERIC_DESC 1 = 5" record MAPPING$GENERIC_DESC1# WORD MAPPING$W_DESC_LENGTH WORD MAPPING$W_FILL1' STRING MAPPING$T_DESC_DATA = 1& end record MAPPING$GENERIC_DESC1  wwL@rWPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIMNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETN %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! N ! Module $UICDEF defines the rightslist identifier space from %XA0000000; ! thru %XA3FFFFFF as being reserved for use by SEVMS. ! ) ! This space has been segmented Oas: ! C ! %XA0000000 thru %XA000FFFF for MAC secrecy level identifiersF ! %XA0010000 thru %XA001FFFF for MAC secrecy category identifiersE ! %XA0020000 thru %XA002FFFF for MAC integrity level identifiersH ! %XA0030000 thru %XA003FFFF for MAC integrity category identifiers ! P ! to provide 64K identifiers within each grouping. This allows for growthI ! consistent with variable format (i.e. type DYN_CAT) class blocks. !  ! -8 DECLARE LONG C PONSTANT MACID$M_ID_NUM = x'0000FFFF'= DECLARE LONG CONSTANT MACID$M_LVL_CAT_SEL = x'00010000'C DECLARE LONG CONSTANT MACID$K_LVL = 0 ! Level ID sub-groupF DECLARE LONG CONSTANT MACID$K_CAT = 1 ! Category ID sub-group= DECLARE LONG CONSTANT MACID$M_SEC_INT_SEL = x'00020000'A DECLARE LONG CONSTANT MACID$K_SEC = 0 ! Secrecy ID groupC DECLARE LONG CONSTANT MACID$K_INT = 1 ! Integrity ID group5 DECLARE LONG CONSTANT MACID$M_MBZ = x'03FC0000'9 Q DECLARE LONG CONSTANT MACID$M_FMT_SEL = x'FC000000'P DECLARE LONG CONSTANT MACID$K_SEVMS_ID = 40 ! Format specifier for SEVMS) ! identifiers as defined by $UICDEF. DECLARE LONG CONSTANT MACID$s_fill_4 = 4 record fill_4 variant case$ LONG MACID$L_MACIDDEF case# group MACID$r_fill_5. ! Group relative ID number: ! Level/Category ID sub-group selector9 ! Secrecy/Integrity ID group selector2 ! Composite overlay of $UICDEF$ ! ID_TYPE + ASSIGN_CODE fieldsn LONG ID_NUM_bits ! COMMENT ADDED BY SDL - ID_NUM_bits contains bits ID_NUM through FMT_SEL' end group MACID$r_fill_5 end variant end record fill_4  wwS XPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGITNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETU %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + DECLARE LONG CONSTANT MME$_UNLOAD = 1* DECLARE LONG CONSTANT MME$_ALLOC = 20 DECLARE LONG CONSTANT MME$_BACKUP_FILE = 3/ DECLARE LONG CONSTANT MME$_CLOSE_READ = 40 DECLARE LONG V CONSTANT MME$_CLOSE_WRITE = 58 DECLARE LONG CONSTANT MME$_CONTINUATION_VOLUME = 6/ DECLARE LONG CONSTANT MME$_DEALLOCATE = 71 DECLARE LONG CONSTANT MME$_DEVICE_AVAIL = 83 DECLARE LONG CONSTANT MME$_DEVICE_UNAVAIL = 9. DECLARE LONG CONSTANT MME$_DISMOUNT = 105 DECLARE LONG CONSTANT MME$_DISPLAY_MESSAGE = 11. DECLARE LONG CONSTANT MME$_EOV_READ = 12/ DECLARE LONG CONSTANT MME$_EOV_WRITE = 130 DECLARE LONG CONSTANT MME$_INITIALIZE = 14+ DE WCLARE LONG CONSTANT MME$_MOUNT = 153 DECLARE LONG CONSTANT MME$_MOUNT_REQUEST = 164 DECLARE LONG CONSTANT MME$_NEWVOL_REQUEST = 173 DECLARE LONG CONSTANT MME$_NOTIFY_DEVICE = 18/ DECLARE LONG CONSTANT MME$_OPCOM_ACP = 191 DECLARE LONG CONSTANT MME$_OPCOM_MOUNT = 20/ DECLARE LONG CONSTANT MME$_OPEN_READ = 210 DECLARE LONG CONSTANT MME$_OPEN_WRITE = 223 DECLARE LONG CONSTANT MME$_VOLUME_ONLINE = 230 DECLARE LONG CONSTANT MME$_BACKUP_END = 242 X DECLARE LONG CONSTANT MME$_BACKUP_START = 253 DECLARE LONG CONSTANT MME$_WRITE_REQUEST = 26/ DECLARE LONG CONSTANT MME$_MOUNT_END = 27. DECLARE LONG CONSTANT MME$_INIT_END = 280 DECLARE LONG CONSTANT MME$_NEWVOL_END = 295 DECLARE LONG CONSTANT MME$_DISMNT_PROC_DEL = 30, DECLARE LONG CONSTANT MME$S_ACMODE = 4/ DECLARE LONG CONSTANT MME$S_BLOCKSIZE = 4- DECLARE LONG CONSTANT MME$S_DENSITY = 44 DECLARE LONG CONSTANT MME$S_DEVICE_CONTEXT = 4 Y/ DECLARE LONG CONSTANT MME$S_DMT_FLAGS = 4+ DECLARE LONG CONSTANT MME$S_ERASE = 40 DECLARE LONG CONSTANT MME$S_EXPIRATION = 8/ DECLARE LONG CONSTANT MME$S_FILESEQNO = 4/ DECLARE LONG CONSTANT MME$S_FILESECNO = 41 DECLARE LONG CONSTANT MME$S_IO_FUNCTION = 42 DECLARE LONG CONSTANT MME$S_LABEL_ACCESS = 13 DECLARE LONG CONSTANT MME$S_MOUNT_CONTEXT = 4/ DECLARE LONG CONSTANT MME$S_MNT_FLAGS = 8, DECLARE LONG CONSTANT MME$S_OBJCNT = 40 Z DECLARE LONG CONSTANT MME$S_OVR_ACCESS = 4- DECLARE LONG CONSTANT MME$S_OVR_EXP = 4. DECLARE LONG CONSTANT MME$S_OVR_VOLO = 4/ DECLARE LONG CONSTANT MME$S_OWNER_UIC = 4) DECLARE LONG CONSTANT MME$S_PID = 4/ DECLARE LONG CONSTANT MME$S_RECORDSIZ = 41 DECLARE LONG CONSTANT MME$S_RESPONSEREQ = 4- DECLARE LONG CONSTANT MME$S_SETNEW1 = 4- DECLARE LONG CONSTANT MME$S_SETNEW2 = 4+ DECLARE LONG CONSTANT MME$S_VPROT = 4- DECLARE LONG CONSTAN [T MME$S_FILE_ID = 6/ DECLARE LONG CONSTANT MME$S_GROUPSIZE = 40 DECLARE LONG CONSTANT MME$S_PROTECTION = 4, DECLARE LONG CONSTANT MME$S_STATUS = 45 DECLARE LONG CONSTANT MME$S_ASSIGNMENT_UNIT = 44 DECLARE LONG CONSTANT MME$S_CARTRIDGE_SIDE = 41 DECLARE LONG CONSTANT MME$S_DISPOSITION = 4/ DECLARE LONG CONSTANT MME$S_RECFORMAT = 1- ! MME action routine argument item codes+ DECLARE LONG CONSTANT MME$_ACMODE = 1. DECLARE LONG CONSTANT MME$ \_BLOCKSIZE = 2, DECLARE LONG CONSTANT MME$_COMMENT = 3, DECLARE LONG CONSTANT MME$_DENSITY = 43 DECLARE LONG CONSTANT MME$_DEVICE_CONTEXT = 5. DECLARE LONG CONSTANT MME$_DMT_FLAGS = 6) DECLARE LONG CONSTANT MME$_EOF1 = 7) DECLARE LONG CONSTANT MME$_EOF2 = 8) DECLARE LONG CONSTANT MME$_EOF3 = 9* DECLARE LONG CONSTANT MME$_EOF4 = 10* DECLARE LONG CONSTANT MME$_EOV1 = 11* DECLARE LONG CONSTANT MME$_EOV2 = 12* DECLARE LONG CONSTANT MME$ ]_EOV3 = 13* DECLARE LONG CONSTANT MME$_EOV4 = 14+ DECLARE LONG CONSTANT MME$_ERASE = 15) DECLARE LONG CONSTANT MME$_FIB = 16/ DECLARE LONG CONSTANT MME$_FILESEQNO = 17* DECLARE LONG CONSTANT MME$_HDR1 = 18* DECLARE LONG CONSTANT MME$_HDR2 = 19* DECLARE LONG CONSTANT MME$_HDR3 = 20* DECLARE LONG CONSTANT MME$_HDR4 = 211 DECLARE LONG CONSTANT MME$_IO_FUNCTION = 222 DECLARE LONG CONSTANT MME$_LABEL_ACCESS = 230 DECLARE LONG CONSTANT MM ^E$_LABEL_VOLO = 243 DECLARE LONG CONSTANT MME$_MOUNT_CONTEXT = 25/ DECLARE LONG CONSTANT MME$_MNT_FLAGS = 26* DECLARE LONG CONSTANT MME$_MSG1 = 27* DECLARE LONG CONSTANT MME$_MSG2 = 28/ DECLARE LONG CONSTANT MME$_NEWDEVNAM = 29- DECLARE LONG CONSTANT MME$_NEWMSG1 = 30- DECLARE LONG CONSTANT MME$_NEWMSG2 = 31/ DECLARE LONG CONSTANT MME$_NEWVOLNAM = 32, DECLARE LONG CONSTANT MME$_NXTVOL = 33, DECLARE LONG CONSTANT MME$_OBJCNT = 340 _DECLARE LONG CONSTANT MME$_OVR_ACCESS = 35- DECLARE LONG CONSTANT MME$_OVR_EXP = 36. DECLARE LONG CONSTANT MME$_OVR_VOLO = 37/ DECLARE LONG CONSTANT MME$_OWNER_UIC = 38/ DECLARE LONG CONSTANT MME$_PHYDEVNAM = 39) DECLARE LONG CONSTANT MME$_PID = 40. DECLARE LONG CONSTANT MME$_PREV_VOL = 41/ DECLARE LONG CONSTANT MME$_PROCESSOR = 42/ DECLARE LONG CONSTANT MME$_RECORDSIZ = 43/ DECLARE LONG CONSTANT MME$_REQDEVNAM = 441 DECLARE LONG CONST `ANT MME$_RESPONSEREQ = 45- DECLARE LONG CONSTANT MME$_SETNEW1 = 46- DECLARE LONG CONSTANT MME$_SETNEW2 = 47* DECLARE LONG CONSTANT MME$_VOL1 = 48* DECLARE LONG CONSTANT MME$_VOL2 = 49, DECLARE LONG CONSTANT MME$_VOLNAM = 50+ DECLARE LONG CONSTANT MME$_VPROT = 517 DECLARE LONG CONSTANT MME$_BACKUP_FILE_FLAGS = 522 DECLARE LONG CONSTANT MME$_BACKUP_FLAGS = 530 DECLARE LONG CONSTANT MME$_EXPIRATION = 54. DECLARE LONG CONSTANT MME$_FILENAME a= 55- DECLARE LONG CONSTANT MME$_FILE_ID = 56/ DECLARE LONG CONSTANT MME$_GROUPSIZE = 57- DECLARE LONG CONSTANT MME$_IN_SAVE = 586 DECLARE LONG CONSTANT MME$_IN_SPECIFICATION = 59/ DECLARE LONG CONSTANT MME$_IN_VOLUME = 60. DECLARE LONG CONSTANT MME$_OUT_SAVE = 610 DECLARE LONG CONSTANT MME$_PROTECTION = 62, DECLARE LONG CONSTANT MME$_STATUS = 635 DECLARE LONG CONSTANT MME$_ASSIGNMENT_UNIT = 645 DECLARE LONG CONSTANT MME$_CART_MEDIA_NAME b = 654 DECLARE LONG CONSTANT MME$_CARTRIDGE_NAME = 664 DECLARE LONG CONSTANT MME$_CARTRIDGE_SIDE = 670 DECLARE LONG CONSTANT MME$_COLLECTION = 681 DECLARE LONG CONSTANT MME$_DEVICE_TYPE = 691 DECLARE LONG CONSTANT MME$_DISPOSITION = 70. DECLARE LONG CONSTANT MME$_LOCATION = 710 DECLARE LONG CONSTANT MME$_MEDIA_NAME = 720 DECLARE LONG CONSTANT MME$_LABEL_TYPE = 73- DECLARE LONG CONSTANT MME$_EXPDATE = 74- DECLARE LONG CONSTANT MME$_CREDATE c = 75/ DECLARE LONG CONSTANT MME$_RECFORMAT = 76/ DECLARE LONG CONSTANT MME$_FILESECNO = 77+ DECLARE LONG CONSTANT MME$_REPLY = 785 DECLARE LONG CONSTANT MME$M_IMAGE = x'00000001'3 DECLARE LONG CONSTANT MME$M_CRC = x'00000002'6 DECLARE LONG CONSTANT MME$M_DELETE = x'00000004'= DECLARE LONG CONSTANT MME$M_IGN_INTERLOCK = x'00000008'9 DECLARE LONG CONSTANT MME$M_IGN_LABEL = x'00000010'< DECLARE LONG CONSTANT MME$M_IGN_NOBACKUP = x'00000020'; d DECLARE LONG CONSTANT MME$M_INTERCHANGE = x'00000040'6 DECLARE LONG CONSTANT MME$M_RECORD = x'00000080'6 DECLARE LONG CONSTANT MME$M_REWIND = x'00000100'6 DECLARE LONG CONSTANT MME$M_VERIFY = x'00000200'8 DECLARE LONG CONSTANT MME$M_PHYSICAL = x'00000400': DECLARE LONG CONSTANT MME$M_COMPACTION = x'00000800'2 DECLARE LONG CONSTANT MME$S_BACKUP_FLAGS = 4 record BACKUP_FLAGSN group MME$R_FLAGS_OVERLAY ! Flag mask for MME$_BACKUP_FLAGS e variant case' LONG MME$L_FLAGS_MASK case( group MME$R_FLAGS_BITSm WORD IMAGE_bits ! COMMENT ADDED BY SDL - IMAGE_bits contains bits IMAGE through fill_6, end group MME$R_FLAGS_BITS end variant& end group MME$R_FLAGS_OVERLAY end record BACKUP_FLAGS 9 DECLARE LONG CONSTANT MME$M_VERIF_ERR = x'00000001'8 DECLARE LONG CONSTANT MME$ fM_NOBACKUP = x'00000002'9 DECLARE LONG CONSTANT MME$M_FILE_OPEN = x'00000004'8 DECLARE LONG CONSTANT MME$M_ACC_CONF = x'00000008'7 DECLARE LONG CONSTANT MME$S_BACKUP_FILE_FLAGS = 4 record BACKUP_FILE_FLAGSN group MME$R_FILE_FLAGS_OVERLAY ! Flag mask for MME$_BACKUP_FLAGS variant case, LONG MME$L_FILE_FLAGS_MASK case- group MME$R_FILE_FLAGS_BITSx LONG VERIF_ gERR_bits ! COMMENT ADDED BY SDL - VERIF_ERR_bits contains bits VERIF_ERR through fill11 end group MME$R_FILE_FLAGS_BITS end variant+ end group MME$R_FILE_FLAGS_OVERLAY" end record BACKUP_FILE_FLAGS , DECLARE LONG CONSTANT MME$C_ANSI_1 = 1, DECLARE LONG CONSTANT MME$C_ANSI_2 = 2, DECLARE LONG CONSTANT MME$C_ANSI_3 = 3, DECLARE LONG CONSTANT MME$C_ANSI_4 = 4- DECLARE LONG CONSTANT MME$C_IBM_STD = 50 DECLARE LONG CONSTANT MME$C_UNLABELLED = 6* DECLARE LONG CONSTANT MME$C_ODS1 = 7* DECLARE LONG CONSTANT MME$C_ODS2 = 8 wwgPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1Z %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD % %LET %BASIC$OCTAWORD_DECLARED = 1T %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIjrXPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIkNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETl %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  - DECLARE LONG CONSTANT MMI$_FACILITY = 1+ DECLARE LONG CONSTANT MMI$_MBUNIT = 2( DECLARE LONG CONSTANT MMI$_PID = 3+ DECLARE LONG CONSTANT MMI$_MBXUCB = 4+ DECLARE LONG CONSTAN mT MMI$_UNLOAD = 5* DECLARE LONG CONSTANT MMI$_ALLOC = 6/ DECLARE LONG CONSTANT MMI$_BACKUP_END = 70 DECLARE LONG CONSTANT MMI$_BACKUP_FILE = 81 DECLARE LONG CONSTANT MMI$_BACKUP_START = 90 DECLARE LONG CONSTANT MMI$_CLOSE_READ = 101 DECLARE LONG CONSTANT MMI$_CLOSE_WRITE = 119 DECLARE LONG CONSTANT MMI$_CONTINUATION_VOLUME = 120 DECLARE LONG CONSTANT MMI$_DEALLOCATE = 132 DECLARE LONG CONSTANT MMI$_DEVICE_AVAIL = 144 DECLARE LONG CONSTAN nT MMI$_DEVICE_UNAVAIL = 15. DECLARE LONG CONSTANT MMI$_DISMOUNT = 165 DECLARE LONG CONSTANT MMI$_DISPLAY_MESSAGE = 17. DECLARE LONG CONSTANT MMI$_EOV_READ = 18/ DECLARE LONG CONSTANT MMI$_EOV_WRITE = 190 DECLARE LONG CONSTANT MMI$_INITIALIZE = 20+ DECLARE LONG CONSTANT MMI$_MOUNT = 213 DECLARE LONG CONSTANT MMI$_MOUNT_REQUEST = 224 DECLARE LONG CONSTANT MMI$_NEWVOL_REQUEST = 233 DECLARE LONG CONSTANT MMI$_NOTIFY_DEVICE = 24/ DECLARE LONG CONSTANT MMI$_OPCOM_ACP = 251 DECLARE LONG CONSTANT MMI$_OPCOM_MOUNT = 26/ DECLARE LONG CONSTANT MMI$_OPEN_READ = 270 DECLARE LONG CONSTANT MMI$_OPEN_WRITE = 283 DECLARE LONG CONSTANT MMI$_VOLUME_ONLINE = 293 DECLARE LONG CONSTANT MMI$_WRITE_REQUEST = 30/ DECLARE LONG CONSTANT MMI$_MOUNT_END = 31. DECLARE LONG CONSTANT MMI$_INIT_END = 320 DECLARE LONG CONSTANT MMI$_NEWVOL_END = 33 wwp}YPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIqNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETr %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! , ! Definitions needed for callable mail. !  ! : ! NOTE: New item codes must be appended to the end of< ! each category so users will not have to relink.5 ! We sallow 1024 entries in eatch category. !  !  ! Send input codes ! 2 DECLARE LONG CONSTANT mail$_send_spare_0 = 1R DECLARE LONG CONSTANT mail$_send_foreign = 2 ! Send foreign format messageL DECLARE LONG CONSTANT mail$_send_cc_line = 3 ! CC text specificationV DECLARE LONG CONSTANT mail$_send_default_name = 4 ! Default file name for sendf DECLARE LONG CONSTANT mail$_send_default_transport = 5 ! Default transport used for addressees] DECLtARE LONG CONSTANT mail$_send_error_entry = 6 ! Entry point for send error routineZ DECLARE LONG CONSTANT mail$_send_filename = 7 ! Specification of file name to sendP DECLARE LONG CONSTANT mail$_send_from_line = 8 ! From text specificationk DECLARE LONG CONSTANT mail$_send_no_default_transport = 9 ! Don't use any default transport on sendX DECLARE LONG CONSTANT mail$_send_pers_name = 10 ! Personal name text for messageH DECLARE LONG CONSTANT mail$_send_record u= 11 ! Record to be sentV DECLARE LONG CONSTANT mail$_send_resultspec = 12 ! Resultant filespec bodyparta DECLARE LONG CONSTANT mail$_send_server = 13 ! Operate in server mode ( signal success )R DECLARE LONG CONSTANT mail$_send_subject = 14 ! Subject text specificationb DECLARE LONG CONSTANT mail$_send_success_entry = 15 ! Entry point for send success routineR DECLARE LONG CONSTANT mail$_send_to_line = 16 ! To line text specificationY DECLARE LONG CONvSTANT mail$_send_uflags = 17 ! User flags ( for header ) to sendd DECLARE LONG CONSTANT mail$_send_user_data = 18 ! User specified context for action routinesY DECLARE LONG CONSTANT mail$_send_username = 19 ! Username to add to the "To" listV DECLARE LONG CONSTANT mail$_send_username_type = 20 ! Username type - TO or CCG DECLARE LONG CONSTANT mail$_send_fid = 21 ! FID of file to send_ DECLARE LONG CONSTANT mail$_send_no_pers_name = 22 ! Send message withou wt personal nameF DECLARE LONG CONSTANT mail$_send_sigfile = 23 ! Signature fileI DECLARE LONG CONSTANT mail$_send_no_sigfile = 24 ! Signature fileX DECLARE LONG CONSTANT mail$_send_parse_quotes = 25 ! Reply String Parsing Quotes !  ! Send output codes ! Y DECLARE LONG CONSTANT mail$_send_copy_reply = 26 ! Copy self reply set in profileX DECLARE LONG CONSTANT mail$_send_copy_send = 27 ! Copy self send set in profileG DECLARE LONG CONSTAN xT mail$_send_user = 28 ! Username of caller] DECLARE LONG CONSTANT mail$_send_copy_forward = 29 ! Copy self forward set in profile6 DECLARE LONG CONSTANT mail$_send_out_spare2 = 306 DECLARE LONG CONSTANT mail$_send_out_spare3 = 316 DECLARE LONG CONSTANT mail$_send_out_spare4 = 326 DECLARE LONG CONSTANT mail$_send_out_spare5 = 334 DECLARE LONG CONSTANT mail$k_send_min_item = 15 DECLARE LONG CONSTANT mail$k_send_max_item = 332 DECLARE LONG CONSTANT ymail$k_send_items = 33 !  ! file input codes ! 9 DECLARE LONG CONSTANT mail$_mailfile_spare_0 = 1025[ DECLARE LONG CONSTANT mail$_mailfile_default_name = 1026 ! Default filespec to openr DECLARE LONG CONSTANT mail$_mailfile_folder_routine = 1027 ! Entry point of routine to process foldernamesr DECLARE LONG CONSTANT mail$_mailfile_full_close = 1028 ! Do a PURGE, CONVERT/RECLAIM if necessary on closeL DECLARE LONG CONSTANT mail$_mailfile_name = 1029z ! File spec to openY DECLARE LONG CONSTANT mail$_mailfile_reclaim = 1030 ! Do RECLAIM on PURGE commandj DECLARE LONG CONSTANT mail$_mailfile_user_data = 1031 ! User specified context for action routinesd DECLARE LONG CONSTANT mail$_mailfile_wastebasket_name = 1032 ! New wastebasket name for fileY DECLARE LONG CONSTANT mail$_mailfile_collate_seq = 1033 ! I18N collating sequence; DECLARE LONG CONSTANT mail$_mailfile_in_spare2 = 1034; DECLARE LONG CONSTAN {T mail$_mailfile_in_spare3 = 1035; DECLARE LONG CONSTANT mail$_mailfile_in_spare4 = 1036; DECLARE LONG CONSTANT mail$_mailfile_in_spare5 = 1037; DECLARE LONG CONSTANT mail$_mailfile_in_spare6 = 1038; DECLARE LONG CONSTANT mail$_mailfile_in_spare7 = 1039; DECLARE LONG CONSTANT mail$_mailfile_in_spare8 = 1040; DECLARE LONG CONSTANT mail$_mailfile_in_spare9 = 1041< DECLARE LONG CONSTANT mail$_mailfile_in_spare10 = 1042< DECLARE LONG CONSTANT mail$_ma |ilfile_in_spare11 = 1043< DECLARE LONG CONSTANT mail$_mailfile_in_spare12 = 1044< DECLARE LONG CONSTANT mail$_mailfile_in_spare13 = 1045< DECLARE LONG CONSTANT mail$_mailfile_in_spare14 = 1046< DECLARE LONG CONSTANT mail$_mailfile_in_spare15 = 1047< DECLARE LONG CONSTANT mail$_mailfile_in_spare16 = 1048< DECLARE LONG CONSTANT mail$_mailfile_in_spare17 = 1049< DECLARE LONG CONSTANT mail$_mailfile_in_spare18 = 1050< DECLARE LONG CONSTANT mail$_mailfile_in_ }spare19 = 1051< DECLARE LONG CONSTANT mail$_mailfile_in_spare20 = 1052 !  ! file output codes ! c DECLARE LONG CONSTANT mail$_mailfile_data_reclaim = 1053 ! Number of data buckets reclaimed^ DECLARE LONG CONSTANT mail$_mailfile_data_scan = 1054 ! Number of data buckets scannede DECLARE LONG CONSTANT mail$_mailfile_deleted_bytes = 1055 ! Number of free bytes in mail filee DECLARE LONG CONSTANT mail$_mailfile_index_reclaim = 1056 ! Number of index ~buckets reclaimede DECLARE LONG CONSTANT mail$_mailfile_mail_directory = 1057 ! Mail sub-directory specificationa DECLARE LONG CONSTANT mail$_mailfile_messages_deleted = 1058 ! Number of messages deletedT DECLARE LONG CONSTANT mail$_mailfile_resultspec = 1059 ! Resultant file spec[ DECLARE LONG CONSTANT mail$_mailfile_total_reclaim = 1060 ! Total buckets reclaimedR DECLARE LONG CONSTANT mail$_mailfile_wastebasket = 1061 ! Wastebasket nameG DECLARE LONG  CONSTANT mail$_mailfile_indexed = 1062 ! ISAM file< DECLARE LONG CONSTANT mail$_mailfile_out_spare2 = 1063< DECLARE LONG CONSTANT mail$_mailfile_out_spare3 = 1064< DECLARE LONG CONSTANT mail$_mailfile_out_spare4 = 1065< DECLARE LONG CONSTANT mail$_mailfile_out_spare5 = 1066< DECLARE LONG CONSTANT mail$_mailfile_out_spare6 = 1067< DECLARE LONG CONSTANT mail$_mailfile_out_spare7 = 1068< DECLARE LONG CONSTANT mail$_mailfile_out_spare8 = 1069< DECLARE LO NG CONSTANT mail$_mailfile_out_spare9 = 1070= DECLARE LONG CONSTANT mail$_mailfile_out_spare10 = 1071= DECLARE LONG CONSTANT mail$_mailfile_out_spare11 = 1072= DECLARE LONG CONSTANT mail$_mailfile_out_spare12 = 1073= DECLARE LONG CONSTANT mail$_mailfile_out_spare13 = 1074= DECLARE LONG CONSTANT mail$_mailfile_out_spare14 = 1075= DECLARE LONG CONSTANT mail$_mailfile_out_spare15 = 1076= DECLARE LONG CONSTANT mail$_mailfile_out_spare16 = 1077= DECLAR E LONG CONSTANT mail$_mailfile_out_spare17 = 1078= DECLARE LONG CONSTANT mail$_mailfile_out_spare18 = 1079= DECLARE LONG CONSTANT mail$_mailfile_out_spare19 = 1080= DECLARE LONG CONSTANT mail$_mailfile_out_spare20 = 1081; DECLARE LONG CONSTANT mail$k_mailfile_min_item = 1025; DECLARE LONG CONSTANT mail$k_mailfile_max_item = 10816 DECLARE LONG CONSTANT mail$k_mailfile_items = 57 !  ! message input codes ! 8 DECLARE LONG CONSTANT mail$_message_spare_0 = 2048N DECLARE LONG CONSTANT mail$_message_back = 2049 ! Get previous messageW DECLARE LONG CONSTANT mail$_message_before = 2050 ! Select messages BEFORE datei DECLARE LONG CONSTANT mail$_message_cc_substring = 2051 ! Select messages containing CC substringN DECLARE LONG CONSTANT mail$_message_continue = 2052 ! Read next record[ DECLARE LONG CONSTANT mail$_message_file_action = 2053 ! File create action routine_ DECLARE LONG CONSTANT mail$_message_folder_action = 2054 ! Folder create action routineS DECLARE LONG CONSTANT mail$_message_default_name = 2055 ! Default file nameJ DECLARE LONG CONSTANT mail$_message_delete = 2056 ! Delete messageH DECLARE LONG CONSTANT mail$_message_erase = 2057 ! Erase messageP DECLARE LONG CONSTANT mail$_message_file_ctx = 2058 ! File level contextU DECLARE LONG CONSTANT mail$_message_filename = 2059 ! File name specificationU DECLARE LONG CONSTANT mail$_message_flags = 2060 ! Header flags specificationU DECLARE LONG CONSTANT mail$_message_folder = 2061 ! Folder name specificationm DECLARE LONG CONSTANT mail$_message_from_substring = 2062 ! Select messages containing FROM substringE DECLARE LONG CONSTANT mail$_message_id = 2063 ! ID of messageN DECLARE LONG CONSTANT mail$_message_next = 2064 ! Retrive NEXT messageU DECLARE LONG CONSTANT mail$_message_since = 2065 ! Select messages SINCE datem DECLARE LONG CONSTANT mail$_message_subj_substring = 2066 ! Select messages containing SUBJ substringi DECLARE LONG CONSTANT mail$_message_to_substring = 2067 ! Select messages containing TO substringT DECLARE LONG CONSTANT mail$_message_uflags = 2068 ! User flags specification[ DECLARE LONG CONSTANT mail$_message_auto_newmail = 2069 ! Move newmail to MAIL auto_ DECLARE LONG CONSTANT mail$_message_user_data = 2070 ! User context for action routinesk DECLARE LONG CONSTANT mail$_message_flags_mbz = 2071 ! Select messages with these flags set at zero[ DECLARE LONG CONSTANT mail$_message_min_class = 2072 ! Min access class for message[ DECLARE LONG CONSTANT mail$_message_max_class = 2073 ! Max access class for message: DECLARE LONG CONSTANT mail$_message_in_spare1 = 2074: DECLARE LONG CONSTANT mail$_message_in_spare2 = 2075: DECLARE LONG CONSTANT mail$_message_in_spare3 = 2076: DECLARE LONG CONSTANT mail$_message_in_spare 4 = 2077: DECLARE LONG CONSTANT mail$_message_in_spare5 = 2078: DECLARE LONG CONSTANT mail$_message_in_spare6 = 2079: DECLARE LONG CONSTANT mail$_message_in_spare7 = 2080: DECLARE LONG CONSTANT mail$_message_in_spare8 = 2081: DECLARE LONG CONSTANT mail$_message_in_spare9 = 2082; DECLARE LONG CONSTANT mail$_message_in_spare10 = 2083; DECLARE LONG CONSTANT mail$_message_in_spare11 = 2084; DECLARE LONG CONSTANT mail$_message_in_spare12 = 2085; DECL ARE LONG CONSTANT mail$_message_in_spare13 = 2086; DECLARE LONG CONSTANT mail$_message_in_spare14 = 2087; DECLARE LONG CONSTANT mail$_message_in_spare15 = 2088; DECLARE LONG CONSTANT mail$_message_in_spare16 = 2089; DECLARE LONG CONSTANT mail$_message_in_spare17 = 2090; DECLARE LONG CONSTANT mail$_message_in_spare18 = 2091; DECLARE LONG CONSTANT mail$_message_in_spare19 = 2092; DECLARE LONG CONSTANT mail$_message_in_spare20 = 2093 !  ! message output codes ! J DECLARE LONG CONSTANT mail$_message_cc = 2094 ! CC text of messageU DECLARE LONG CONSTANT mail$_message_current_id = 2095 ! ID of current messageQ DECLARE LONG CONSTANT mail$_message_date = 2096 ! Date of current messageW DECLARE LONG CONSTANT mail$_message_extid = 2097 ! Filespec of external messageU DECLARE LONG CONSTANT mail$_message_file_created = 2098 ! Mailfile created...U DECLARE LONG CONSTANT mail$_message_folder_created = 2099 ! Folder created...N DECLARE LONG CONSTANT mail$_message_from = 2100 ! From text of messageO DECLARE LONG CONSTANT mail$_message_record = 2101 ! Record from message_ DECLARE LONG CONSTANT mail$_message_record_type = 2102 ! Type of record, header or textT DECLARE LONG CONSTANT mail$_message_reply_path = 2103 ! Reply path of senderS DECLARE LONG CONSTANT mail$_message_resultspec = 2104 ! Resultant file spec] DECLARE LONG CONSTANT mail$_message_return_flags = 2105 ! Message header system flags\ DECLARE LONG CONSTANT mail$_message_return_uflags = 2106 ! Message header user flagsY DECLARE LONG CONSTANT mail$_message_selected = 2107 ! Number of messages selectedG DECLARE LONG CONSTANT mail$_message_sender = 2108 ! Sender nameU DECLARE LONG CONSTANT mail$_message_size = 2109 ! Size of the current messageX DECLARE LONG CONSTANT mail$_message_subject = 2110 ! Subject text of the messageN DECLARE LONG CONSTANT mail$_message_to = 2111 ! To text of the messageJ DECLARE LONG CONSTANT mail$_message_buffer = 2112 ! Buffer addressZ DECLARE LONG CONSTANT mail$_message_return_class = 2113 ! Class of current messageZ DECLARE LONG CONSTANT mail$_message_binary_date = 2114 ! Binary date/time quadword7 DECLARE LONG CONSTANT mail$_message_spare4 = 2115] DECLARE LONG CONSTANT mail$_message_parse_quotes = 2116 ! Reply String Parsing Quotes7 DECLARE LONG CONST ANT mail$_message_spare6 = 21177 DECLARE LONG CONSTANT mail$_message_spare7 = 21187 DECLARE LONG CONSTANT mail$_message_spare8 = 21197 DECLARE LONG CONSTANT mail$_message_spare9 = 21208 DECLARE LONG CONSTANT mail$_message_spare10 = 21218 DECLARE LONG CONSTANT mail$_message_spare11 = 21228 DECLARE LONG CONSTANT mail$_message_spare12 = 21238 DECLARE LONG CONSTANT mail$_message_spare13 = 21248 DECLARE LONG CONSTANT mail$_message_spare14 = 21258 DE CLARE LONG CONSTANT mail$_message_spare15 = 21268 DECLARE LONG CONSTANT mail$_message_spare16 = 21278 DECLARE LONG CONSTANT mail$_message_spare17 = 21288 DECLARE LONG CONSTANT mail$_message_spare18 = 21298 DECLARE LONG CONSTANT mail$_message_spare19 = 2130 !  ! Constants returned ! G DECLARE LONG CONSTANT mail$_message_null = 2131 ! Null bodypartR DECLARE LONG CONSTANT mail$_message_header = 2132 ! Header record returnedN DECLARE LONG CON STANT mail$_message_text = 2133 ! Text record returned8 DECLARE LONG CONSTANT mail$_message_spare20 = 2134: DECLARE LONG CONSTANT mail$k_message_min_item = 2048: DECLARE LONG CONSTANT mail$k_message_max_item = 21345 DECLARE LONG CONSTANT mail$k_message_items = 87 !  ! user input codes ! 5 DECLARE LONG CONSTANT mail$_user_spare_0 = 3072Q DECLARE LONG CONSTANT mail$_user_first = 3073 ! Retrive first user recordO DECLARE LONG CONSTANT mail$_user_next = 3074 ! Retrive next user recordV DECLARE LONG CONSTANT mail$_user_username = 3075 ! Retrive record for usernameO DECLARE LONG CONSTANT mail$_user_set_auto_purge = 3076 ! Set auto-purgeT DECLARE LONG CONSTANT mail$_user_set_no_auto_purge = 3077 ! Clear auto-purgeU DECLARE LONG CONSTANT mail$_user_set_sub_directory = 3078 ! Set sub-dir fieldZ DECLARE LONG CONSTANT mail$_user_set_no_sub_directory = 3079 ! Clear sub-dir fieldW DECLARE LONG CONSTANT mail$_user_set_forwarding = 3080 ! Set forwarding address\ DECLARE LONG CONSTANT mail$_user_set_no_forwarding = 3081 ! Clear forwarding addressU DECLARE LONG CONSTANT mail$_user_set_personal_name = 3082 ! Set personal nameZ DECLARE LONG CONSTANT mail$_user_set_no_personal_name = 3083 ! Clear personal nameM DECLARE LONG CONSTANT mail$_user_set_copy_send = 3084 ! Set copy-sendR DECLARE LONG CONSTANT mail$_user_set_no_copy_send = 3085 ! Clear copy sendO DECLARE LONG CONSTANT mail$_user_set_copy_reply = 3086 ! Set copy replyT DECLARE LONG CONSTANT mail$_user_set_no_copy_reply = 3087 ! Clear copy replyX DECLARE LONG CONSTANT mail$_user_set_new_messages = 3088 ! Set new message count[ DECLARE LONG CONSTANT mail$_user_create_if = 3089 ! Create record if does not existE DECLARE LONG CONSTANT mail$_user_set_mailplus = 3090 ! Set M+J DECLARE LONG CONSTANT mail$_user_set_no_mailplus = 3091 ! Clear M+S  DECLARE LONG CONSTANT mail$_user_set_transport = 3092 ! Set transport fieldX DECLARE LONG CONSTANT mail$_user_set_no_transport = 3093 ! Clear transport fieldM DECLARE LONG CONSTANT mail$_user_set_editor = 3094 ! Set editor fieldR DECLARE LONG CONSTANT mail$_user_set_no_editor = 3095 ! Clear editor fieldK DECLARE LONG CONSTANT mail$_user_set_queue = 3096 ! Set queue fieldP DECLARE LONG CONSTANT mail$_user_set_no_queue = 3097 ! Clear queue fieldK DECLARE LONG CONSTANT mail$_user_set_user1 = 3098 ! Set user1 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user1 = 3099 ! Clear user1 fieldK DECLARE LONG CONSTANT mail$_user_set_user2 = 3100 ! Set user2 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user2 = 3101 ! Clear user2 fieldK DECLARE LONG CONSTANT mail$_user_set_user3 = 3102 ! Set user3 fieldP DECLARE LONG CONSTANT mail$_user_set_no_user3 = 3103 ! Clear user3 fieldI DECLARE LONG CONSTANT mail$_user_set_form = 3104 ! Set form fieldN DECLARE LONG CONSTANT mail$_user_set_no_form = 3105 ! Clear form fieldX DECLARE LONG CONSTANT mail$_user_set_copy_forward = 3106 ! Set copy self forward] DECLARE LONG CONSTANT mail$_user_set_no_copy_forward = 3107 ! Clear copy self forwardP DECLARE LONG CONSTANT mail$_user_set_cc_prompt = 3108 ! Set CC promptingU DECLARE LONG CONSTANT mail$_user_set_no_cc_prompt = 3109 ! Clear CC promptingP DECLARE LONG CONSTANT ma il$_user_set_sigfile = 3110 ! Set signature fileU DECLARE LONG CONSTANT mail$_user_set_no_sigfile = 3111 ! Clear signature file7 DECLARE LONG CONSTANT mail$_user_in_spare1 = 31127 DECLARE LONG CONSTANT mail$_user_in_spare2 = 31137 DECLARE LONG CONSTANT mail$_user_in_spare3 = 31147 DECLARE LONG CONSTANT mail$_user_in_spare4 = 31157 DECLARE LONG CONSTANT mail$_user_in_spare5 = 31167 DECLARE LONG CONSTANT mail$_user_in_spare6 = 31177 DECLARE LONG  CONSTANT mail$_user_in_spare7 = 31187 DECLARE LONG CONSTANT mail$_user_in_spare8 = 31197 DECLARE LONG CONSTANT mail$_user_in_spare9 = 31208 DECLARE LONG CONSTANT mail$_user_in_spare10 = 31218 DECLARE LONG CONSTANT mail$_user_in_spare11 = 31228 DECLARE LONG CONSTANT mail$_user_in_spare12 = 31238 DECLARE LONG CONSTANT mail$_user_in_spare13 = 31248 DECLARE LONG CONSTANT mail$_user_in_spare14 = 31258 DECLARE LONG CONSTANT mail$_user_in_spare15 = 31268  DECLARE LONG CONSTANT mail$_user_in_spare16 = 31278 DECLARE LONG CONSTANT mail$_user_in_spare17 = 31288 DECLARE LONG CONSTANT mail$_user_in_spare18 = 31298 DECLARE LONG CONSTANT mail$_user_in_spare19 = 31308 DECLARE LONG CONSTANT mail$_user_in_spare20 = 3131 !  ! Output item parameters ! C DECLARE LONG CONSTANT mail$_user_mailplus = 3132 ! M+ fieldK DECLARE LONG CONSTANT mail$_user_transport = 3133 ! Transport fieldE DECLARE LONG CONSTANT mail$_user_editor = 3134 ! Editor fieldC DECLARE LONG CONSTANT mail$_user_queue = 3135 ! Queue fieldC DECLARE LONG CONSTANT mail$_user_user1 = 3136 ! User1 fieldC DECLARE LONG CONSTANT mail$_user_user2 = 3137 ! User2 fieldC DECLARE LONG CONSTANT mail$_user_user3 = 3138 ! User3 fieldA DECLARE LONG CONSTANT mail$_user_form = 3139 ! Form fieldP DECLARE LONG CONSTANT mail$_user_copy_forward = 3140 ! Copy forward flagH DECLARE LONG CONSTANT mail$_user_sigfile = 3141 ! Signature file\ DECLARE LONG CONSTANT mail$_user_return_username = 3142 ! Username of current recordL DECLARE LONG CONSTANT mail$_user_auto_purge = 3143 ! Auto purge flagL DECLARE LONG CONSTANT mail$_user_sub_directory = 3144 ! Sub-dir specT DECLARE LONG CONSTANT mail$_user_full_directory = 3145 ! Full directory specP DECLARE LONG CONSTANT mail$_user_new_messages = 3146 ! New message countM DECLARE LONG CONSTANT mail$_user_forwarding = 3147 ! Forwarding fieldS DECLARE LONG CONSTANT mail$_user_personal_name = 3148 ! Personal name fieldJ DECLARE LONG CONSTANT mail$_user_copy_send = 3149 ! Copy send flagL DECLARE LONG CONSTANT mail$_user_copy_reply = 3150 ! Copy reply flagI DECLARE LONG CONSTANT mail$_user_captive = 3151 ! User is captiveM DECLARE LONG CONSTANT mail$_user_cc_prompt = 3152 ! CC prompting flag8 DECLARE LONG CONSTANT mail$_user_out_spare2 = 31538 DECLAR E LONG CONSTANT mail$_user_out_spare3 = 31548 DECLARE LONG CONSTANT mail$_user_out_spare4 = 31558 DECLARE LONG CONSTANT mail$_user_out_spare5 = 31568 DECLARE LONG CONSTANT mail$_user_out_spare6 = 31578 DECLARE LONG CONSTANT mail$_user_out_spare7 = 31588 DECLARE LONG CONSTANT mail$_user_out_spare8 = 31598 DECLARE LONG CONSTANT mail$_user_out_spare9 = 31609 DECLARE LONG CONSTANT mail$_user_out_spare10 = 31619 DECLARE LONG CONSTANT mail$_user_out_spare11 =  31629 DECLARE LONG CONSTANT mail$_user_out_spare12 = 31639 DECLARE LONG CONSTANT mail$_user_out_spare13 = 31649 DECLARE LONG CONSTANT mail$_user_out_spare14 = 31659 DECLARE LONG CONSTANT mail$_user_out_spare15 = 31669 DECLARE LONG CONSTANT mail$_user_out_spare16 = 31679 DECLARE LONG CONSTANT mail$_user_out_spare17 = 31689 DECLARE LONG CONSTANT mail$_user_out_spare18 = 31699 DECLARE LONG CONSTANT mail$_user_out_spare19 = 31709 DECLARE LONG  CONSTANT mail$_user_out_spare20 = 31717 DECLARE LONG CONSTANT mail$k_user_min_item = 30727 DECLARE LONG CONSTANT mail$k_user_max_item = 31713 DECLARE LONG CONSTANT mail$k_user_items = 100 !  ! Special items ! O DECLARE LONG CONSTANT mail$_noop = 4097 ! Do nothing - used for testingI DECLARE LONG CONSTANT mail$_nosignal = 4098 ! Don't signal errorsV DECLARE LONG CONSTANT mail$_noprobe = 4099 ! Don't probe the item list buffers] DECL ARE LONG CONSTANT mail$_tld_input = 4100 ! This item is a tld to be used as input\ DECLARE LONG CONSTANT mail$_tld_output = 4101 ! This item describes a buffer to fill ! / ! Username types for mail$send_add_address ! J DECLARE LONG CONSTANT mail$_to = 1 ! Address part of the TO lineJ DECLARE LONG CONSTANT mail$_cc = 2 ! Address part of the CC line, DECLARE LONG CONSTANT mail$_spare1 = 3, DECLARE LONG CONSTANT mail$_spare2 = 4 ! 3 ! D efine the flag values for mail system flags ! 7 DECLARE LONG CONSTANT MAIL$m_newmsg = x'00000001'8 DECLARE LONG CONSTANT MAIL$m_replied = x'00000002'7 DECLARE LONG CONSTANT MAIL$m_dwmail = x'00000004'7 DECLARE LONG CONSTANT MAIL$m_extmsg = x'00000008'7 DECLARE LONG CONSTANT MAIL$m_extfnf = x'00000010'8 DECLARE LONG CONSTANT MAIL$m_notrans = x'00000020'8 DECLARE LONG CONSTANT MAIL$m_extnstd = x'00000040'7 DECLARE LONG CONSTANT MAIL$m_marked = x'00000080'8 DECLARE LONG CONSTANT MAIL$m_recmode = x'00000100'/ DECLARE LONG CONSTANT MAIL$s_flagsdef = 2 record flagsdef group MAIL$r_fill_7 variant case8 WORD MAIL$w_flags ! Flags word case% group MAIL$r_fill_8- ! This is a new message8 ! This message has been replied to$ ! DW mail flag5 ! Message text in external file7 ! External message file not found6 ! No translator for this message9 ! External file is not var-seq file4 ! This message has been markedB ! This message should be read in record modep WORD newmsg_bits ! COMMENT ADDED BY SDL - newmsg_bits contains bits newmsg through fill_9) end group MAIL$r_fill_8 end variant end group MAIL$r_fill_7 end record flagsdef  ww= $MAPPINGDEF)$MHDDEF$MHDEFi$MMIDEF$MNTDEF$MOUNDEF$MSGDEF $MSGHLPDEF$MT2DEF$MT3DEF$MTADEFb$MTDEFE$MTHDEF&$NAMDEF_$NCSDEF$NETDEF$NSADEF $NSARECDEFm $OBJRECDEFZPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! / ! FLAG BITS FOR THE $MOUNT SYSTEM SERVICE. !  ! -7 DECLARE LONG CONSTANT MNT$M_FOREIGN = x'00000001'5 DECLARE LONG CONSTANT MNT$M_GROUP = x'00000002'8 DE CLARE LONG CONSTANT MNT$M_NOASSIST = x'00000004'7 DECLARE LONG CONSTANT MNT$M_NODISKQ = x'00000008'6 DECLARE LONG CONSTANT MNT$M_NOHDR3 = x'00000010'7 DECLARE LONG CONSTANT MNT$M_NOLABEL = x'00000020'7 DECLARE LONG CONSTANT MNT$M_NOWRITE = x'00000040': DECLARE LONG CONSTANT MNT$M_OVR_ACCESS = x'00000080'7 DECLARE LONG CONSTANT MNT$M_OVR_EXP = x'00000100'9 DECLARE LONG CONSTANT MNT$M_OVR_IDENT = x'00000200'9 DECLARE LONG CONSTANT MNT$M_OVR_SETID = x' 00000400'9 DECLARE LONG CONSTANT MNT$M_READCHECK = x'00000800'5 DECLARE LONG CONSTANT MNT$M_SHARE = x'00001000'7 DECLARE LONG CONSTANT MNT$M_MESSAGE = x'00002000'6 DECLARE LONG CONSTANT MNT$M_SYSTEM = x'00004000': DECLARE LONG CONSTANT MNT$M_WRITECHECK = x'00008000'9 DECLARE LONG CONSTANT MNT$M_WRITETHRU = x'00010000'7 DECLARE LONG CONSTANT MNT$M_NOCACHE = x'00020000'8 DECLARE LONG CONSTANT MNT$M_OVR_LOCK = x'00040000'8 DECLARE LONG CONSTANT MNT$M_NOMNTVER = x'00080000'8 DECLARE LONG CONSTANT MNT$M_NOUNLOAD = x'00100000'? DECLARE LONG CONSTANT MNT$M_TAPE_DATA_WRITE = x'00200000'6 DECLARE LONG CONSTANT MNT$M_NOCOPY = x'00400000'6 DECLARE LONG CONSTANT MNT$M_NOAUTO = x'00800000'8 DECLARE LONG CONSTANT MNT$M_INIT_ALL = x'01000000'9 DECLARE LONG CONSTANT MNT$M_INIT_CONT = x'02000000'8 DECLARE LONG CONSTANT MNT$M_OVR_VOLO = x'04000000'8 DECLARE LONG CONSTANT MNT$M_INTERCHG = x'08000000'7 DECLARE LONG CONSTANT MNT$M_CLUSTER = x'10000000'9 DECLARE LONG CONSTANT MNT$M_NOREBUILD = x'20000000': DECLARE LONG CONSTANT MNT$M_OVR_SHAMEM = x'40000000'9 DECLARE LONG CONSTANT MNT$M_MULTI_VOL = x'80000000'6 DECLARE LONG CONSTANT MNT2$M_DISKQ = x'00000001'; DECLARE LONG CONSTANT MNT2$M_COMPACTION = x'00000002'8 DECLARE LONG CONSTANT MNT2$M_INCLUDE = x'00000004'6 DECLARE LONG CONSTANT MNT2$M_PASS2 = x'00000008'9 DECLARE LONG CONSTANT MNT2$M_OVR_NOF E = x'00000010'8 DECLARE LONG CONSTANT MNT2$M_SCRATCH = x'00000020'6 DECLARE LONG CONSTANT MNT2$M_CDROM = x'00000040'4 DECLARE LONG CONSTANT MNT2$M_XAR = x'00000080'4 DECLARE LONG CONSTANT MNT2$M_DSI = x'00000100': DECLARE LONG CONSTANT MNT2$M_SUBSYSTEM = x'00000200'= DECLARE LONG CONSTANT MNT2$M_NOCOMPACTION = x'00000400'= DECLARE LONG CONSTANT MNT2$M_OVR_SECURITY = x'00000800'C DECLARE LONG CONSTANT MNT2$M_OVR_LIMITED_SEARCH = x'00001000'5 DE CLARE LONG CONSTANT MNT2$M_POOL = x'00002000'; DECLARE LONG CONSTANT MNT2$M_WLG_ENABLE = x'00004000'< DECLARE LONG CONSTANT MNT2$M_WLG_DISABLE = x'00008000'@ DECLARE LONG CONSTANT MNT2$M_REQUIRE_MEMBERS = x'00010000'= DECLARE LONG CONSTANT MNT2$M_VERIFY_LABEL = x'00020000'; DECLARE LONG CONSTANT MNT2$M_FULL_MERGE = x'00040000'< DECLARE LONG CONSTANT MNT2$M_WRITE_FIRST = x'00080000'4 DECLARE LONG CONSTANT MNT2$M_DCD = x'00100000'6 DECLARE LONG CONSTAN T MNT2$M_NODCD = x'00200000'; DECLARE LONG CONSTANT MNT2$M_LOCAL_HOST = x'00400000'7 DECLARE LONG CONSTANT MNT2$M_FACTOR = x'00800000'9 DECLARE LONG CONSTANT MNT2$M_PRIORITY = x'01000000'< DECLARE LONG CONSTANT MNT$_DEVNAM = 1 ! DEVICE NAME < DECLARE LONG CONSTANT MNT$_VOLNAM = 2 ! VOLUME NAME = DECLARE LONG CONSTANT MNT$_LOGNAM = 3 ! LOGICAL NAME ; DECLARE LONG CONSTANT MNT$_FLAGS = 4 ! MOUNT FLAGS A DECLARE LONG CONSTANT MNT$_ACCESSED = 5  ! ACCESSED VALUE B DECLARE LONG CONSTANT MNT$_PROCESSOR = 6 ! PROCESSOR NAME @ DECLARE LONG CONSTANT MNT$_VOLSET = 7 ! VOLUME SET NAME C DECLARE LONG CONSTANT MNT$_BLOCKSIZE = 8 ! BLOCKSIZE VALUE D DECLARE LONG CONSTANT MNT$_DENSITY = 9 ! TAPE DENSITY VALUE P DECLARE LONG CONSTANT MNT$_EXTENT = 10 ! NUMBER OF EXTENT CACHE ENTRIES D DECLARE LONG CONSTANT MNT$_FILEID = 11 ! FILE ID CACHE SIZE C DECLARE LONG CONSTANT MNT$_LIMIT = 12 ! EXTENT CACHE LIMIT A DECLARE LONG CONSTANT MNT$_OWNER = 13 ! VOLUME OWNER UIC B DECLARE LONG CONSTANT MNT$_VPROT = 14 ! VOLUME PROTECTION A DECLARE LONG CONSTANT MNT$_QUOTA = 15 ! QUOTA CACHE SIZE F DECLARE LONG CONSTANT MNT$_RECORDSIZ = 16 ! RECORD SIZE VALUE C DECLARE LONG CONSTANT MNT$_WINDOW = 17 ! NUMBER OF WINDOWS K DECLARE LONG CONSTANT MNT$_EXTENSION = 18 ! DEFAULT FILE EXTENSION J DECLARE LONG CONSTANT MNT$_VISUAL_ID = 19 ! VISUAL IDENTIFICATION ? DECLARE LONG CONSTANT MNT$_COMMENT = 20 ! USER COMMENT F DECLARE LONG CONSTANT MNT$_CLASS = 21 ! SECURITY CLASSFICATIONo DECLARE LONG CONSTANT MNT$_UNUSED2 = 22 ! SPARE ( was used for now obsolete journaling-related items )o DECLARE LONG CONSTANT MNT$_UNUSED3 = 23 ! SPARE ( was used for now obsolete journaling-related items )H DECLARE LONG CONSTANT MNT$_SHACOPY_BUF = 24 ! SHADOW COPY BUFFERM DECLARE LONG CONSTANT MNT$_SHANAM = 25 ! SHADOW SET VIRTUAL UNIT NAMEL DECLARE LONG CONSTANT MNT$_SHAMEM = 26 ! SHADOW SET MEMBER UNIT NAMEc DECLARE LONG CONSTANT MNT$_SHAMEM_MGCOPY = 27 ! SHADOW SET MEMBER UNIT NAME ( MERGE COPY )` DECLARE LONG CONSTANT MNT$_SHAMEM_COPY = 28 ! SHADOW SET MEMBER UNIT NAME ( FULL COPY )F DECLARE LONG CONSTANT MNT$_PRFD_PATH = 29 ! PREFERRED DSA PATHR DECLARE LONG CONSTANT MNT$_ASSIGNMENT_UNIT = 30 ! Assignment unit ( MME )W DECLARE LONG CONSTANT MNT$_CART_MEDIA_NAME = 31 ! Cartridge Media Name ( MME )P DECLARE LONG CONSTANT MNT$_CARTRIDGE_NAME = 32 ! Cartridge Name ( MME )P DECLARE LONG CONSTANT MNT$_CARTRIDGE_SIDE = 33 ! Cartridge Side ( MME )M DECLARE LONG CONSTANT MNT$_COLLECTION = 34 ! Collection name ( MME )X DECLARE LONG CONSTANT MNT$_DEVICE_TYPE = 35 ! Device Selection criteria ( MME )S DECLARE LONG CONSTANT MNT$_DISPOSITION = 36 ! Dismount Disposition ( MME )N DECLARE LONG CONSTANT MNT$_LOCATION = 37 ! Cartridge Location ( MME )H DECLARE LONG CONSTANT MNT$_MEDIA_NAME = 38 ! Media Name ( MME )7 DECLARE LONG CONSTANT MNT$_UNUSED4 = 39 ! SPAREQ DECLARE LONG CONSTANT MNT$_UNDEFINED_FAT = 40 ! Undefined File AttributesM DECLARE LONG CONSTANT MNT$_UCS = 41 ! Universal Character Set stringT DECLARE LONG CONSTANT MNT$_TAPE_EXPIRATION = 42 ! Date Tape Expires ( MME )J DECLARE LONG CONSTANT MNT$_PRIORITY = 43 ! SHDRIVER merge priorityY DECLARE LO NG CONSTANT MNT$_FACTOR = 44 ! SHDRIVER IO completion factor for merges ! * ! Add new item codes before this line ! N DECLARE LONG CONSTANT MNT$_LAST_ITEM_CODE = 45 ! last item code plus 1Q DECLARE LONG CONSTANT MNT$C_BASE_CARTRIDGE = 1 ! Assign a whole cartridgeN DECLARE LONG CONSTANT MNT$C_COMPOUND_CARTRIDGE = 2 ! Assign a magazine_ DECLARE LONG CONSTANT MNT$C_PREASSIGNED_SIDE = 3 ! Assign a pre-assigned cartridge sideM DECLARE LONG CONSTANT MNT$C_SIDE = 4 ! Assign a single cartridge sideF DECLARE LONG CONSTANT MNT$C_KEEP = 1 ! Keep the media assignedC DECLARE LONG CONSTANT MNT$C_RELEASE = 2 ! Release the media, DECLARE LONG CONSTANT MNT$S_MNTDEF = 8 record MNTDEF variant case& group MNT$R_MNTDEF_BITS. ! FOREIGN OPTION SELECTED , ! GROUP OPTION SELECTED / ! NOASSIST OPTION SELECTED . ! NO DISKQ OPTION SELECTED - ! NOHDR3 OPTION SELECTED . ! NOLABEL OPTION SELECTED . ! NOWRITE OPTION SELECTED < ! OVERRIDE ACCESSIBLITY OPTION SELECTED 9 ! OVERRIDE EXPIRATON OPTION SELECTED , ! OVERRIDE VOLUME LABEL A ! OVERRIDE VOLUME SET IDENT OPTION SELECTIED 0 ! READCHECK OPTION SELECTED , ! SHARE OPTION SELECTED 5  ! ALLOW $MOUNT TO PRINT MESSAGES - ! SYSTEM OPTION SELECTED 1 ! WRITECHECK OPTION SELECTED 0 ! WRITETHRU OPTION SELECTED + ! TURN OFF ALL CACHING 4 ! OVERRIDE AUTOMATIC WRITE-LOCK 1 ! DISABLE MOUNT VERIFICATION 7 ! DO NOT UNLOAD VOLUME AT DISMOUNT 5 ! ENABLE WRITE-BACK CACHE ON TAPE8 ! DO NOT ALLOW SHADO W COPY OPERATIONA ! DO NOT SET THE MTAACP INTO AVR AND AVL MODEB ! INITIALIZE ALL VOLUMES IN SET BEFORE WRITINGD ! INITIALIZE CONTINUATION VOLUMES BEFORE WRITING; ! OVERRIDE VOL1 VOLUME IDENTIFIER FIELDK ! VOL FOR INTERCHG NO VMS SPECIFIC INFO WRITTEN TO TAPE8 ! CLUSTER-WIDE MOUNT OPTION SELECTED+ ! DO NOT REBUILD VOLUME< ! OVERRIDE SHADOW MEMBERSHIP RESTRICTION+ ! MULTI_VOLUME TAPE SET/ ! QUOTA EXPLICITLY SELECTED0 ! MAGTAPE DATA COMPACTION ON8 ! INCLUDE PREVIOUS SHADOWSET MEMBERS: ! PASS2 of /INCLUDE/CONFIRM PROCESSING/ ! /OVERRIDE=NO_FORCED_ERROR1 ! Scratch tape requested flag= ! Force mounting of a Files-11 C/D Volume5 ! Enable protection based on XAR sJ ! Enable protection based on Digital System Id in XARs ! /SUBSYSTEM1 ! MAGTAPE DATA COMPACTION OFF( ! /OVERRIDE=SECURITY/ ! /OVERRIDE=LIMITIED_SEARCH> ! /POOL operation for snapshot pool member( ! /POLICY=ENABLE_WLG) ! /POLICY=DISABLE_WLG- ! /POLICY=REQUIRE_MEMBERS# ! /VERIFY_LABEL#  ! /POLICY=MERGE) ! /POLCIY=WRITE_FIRST! ! /POLICY=DCD# ! /POLICY=NODCD( ! /POLICY=LOCAL_HOST$ ! /POLICY=FACTOR& ! /POLICY=PRIORITYv BYTE FOREIGN_bits ( 8 ) ! COMMENT ADDED BY SDL - FOREIGN_bits contains bits FOREIGN through FILL_0* end group MNT$R_MNTDEF_BITS case' group MNT$R_MNT2DEF_BITS/  ! QUOTA EXPLICITLY SELECTED0 ! MAGTAPE DATA COMPACTION ON8 ! INCLUDE PREVIOUS SHADOWSET MEMBERS: ! PASS2 of /INCLUDE/CONFIRM PROCESSING/ ! /OVERRIDE=NO_FORCED_ERROR1 ! Scratch tape requested flag= ! Force mounting of a Files-11 C/D Volume5 ! Enable protection based on XARsJ ! Enable protection based on Digital System Id in XARs  ! /SUBSYSTEM1 ! MAGTAPE DATA COMPACTION OFF( ! /OVERRIDE=SECURITY/ ! /OVERRIDE=LIMITIED_SEARCH> ! /POOL operation for snapshot pool member( ! /POLICY=ENABLE_WLG) ! /POLICY=DISABLE_WLG- ! /POLICY=REQUIRE_MEMBERS# ! /VERIFY_LABEL# ! /POLICY=MERGE) ! /POLCIY=WRITE_FIRST!  ! /POLICY=DCD# ! /POLICY=NODCD( ! /POLICY=LOCAL_HOST$ ! /POLICY=FACTOR& ! /POLICY=PRIORITYj LONG DISKQ_bits ! COMMENT ADDED BY SDL - DISKQ_bits contains bits DISKQ through FILL_1+ end group MNT$R_MNT2DEF_BITS ! ' ! Item codes for mount parameters. ! ! ! DEFINE CODES AS CONSTANTS  end variant end record MNTDEF  ! 0 ! Define format of the /UNDEFINED_FAT block ! 5 DECLARE LONG CONSTANT UNFAT$S_UNDEFINED_FAT = 4 record UNDEFINED_FATF WORD UNFAT$W_MRS ! FAT Maximum Record SizeD BYTE UNFAT$B_RAT ! FAT Record Attributes@ BYTE UNFAT$B_RFM ! FAT Record Format end record UNDEFINED_FAT  ww qZPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! ( ! SYSTEM WIDE MAILBOX MESSAGE TYPES !  ! -! ! DEFINE CODES AS CONSTANTS N DECLARE LONG CONSTANT MSG$_TRMUNSOLIC = 1 ! UNSOLICITED TERMINAL DATA O DECLARE LONG CONSTANT MSG$_CRUNSOLIC = 2 ! UNSOLICTED CARD READER DATA @ DECLARE LONG CONSTANT MSG$_DELPROC = 3 ! DELETE PROCESS I DECLARE LONG CONSTANT MSG$_SNDSMB = 4 ! SEND TO SYMBIONT MANAGER B DECLARE LONG CONSTANT MSG$_DEVOFFLIN = 5 ! DEVICE OFFLINE D DECLARE LONG CONSTANT MSG$_TRMHANGUP = 6 ! TERMINAL HANG UP @ DECLARE LONG CONSTANT MSG$_DEVONLIN = 7 ! DEVICE ONLINE Y DECLARE LONG CONSTANT MSG$_OPRQST = 8 ! OPERATOR REQUEST *** OVERLAPPED CODE *** X DECLARE LONG CONSTANT MSG$_OPREPLY = 9 ! OPERATOR REPLY *** OVERLAPPED CODE *** ) ! DEFINE SYMBIONT RESPONSE MESSAGES D DECLARE LONG CONSTANT MSG$_SMBINI = 8 ! SYMBIONT HAS INITED B DECLARE LONG CONSTANT MSG$_SMBDON = 9 ! SYMBIONT FINISHED T DECLARE LONG CONSTANT MSG$_SNDACC = 10 ! SEND MESSAGE TO ACCOUNTING MANAGER X DECLARE LONG CONSTANT MSG$_PURPROC = 11 ! PURGE PROCESS *** OVERLAPPED CODE *** W DECLARE LONG CONSTANT MSG$_DELIMAG = 12 ! DELETE IMAGE *** OVERLAPPED CODE *** V DECLARE LONG CONSTANT MSG$_PURIMAG = 13 ! PURGE IMAGE *** OVERLAPPED CODE *** Z DECLARE LONG CONSTANT MSG$_SYSFUNC = 14 ! SYSTEM FUNCTION *** OVERLAPPED CODE *** O DECLARE LONG CONSTANT MSG$_SNDJBC = 15 ! Send message to job controller_ DECLARE LONG CONSTANT MSG$_GETQUI = 16 ! Get queue information ( from job controller ) ! DEFINE DMC MESSAGES I DECLARE LONG CONSTANT MSG$_XM_DATAVL = 11 ! DMC UNSOLICITED DATA B DECLARE LONG CONSTANT MSG$_XM_SHUTDN = 12 ! DMC LINE DOWN H DECLARE LONG CONSTANT MSG$_XM_ATTN = 13 ! DMC ATTENTION MESSAGE ! ! SYMBIONT COMMAND MESSAGES J DECLARE LONG CONSTANT MSG$_INIOPR = 16 ! INITIATE PRINTING A FILE G DECLARE LONG CONSTANT MSG$_ABOOPR = 17 ! ABORT PRINTING A FILE I DECLARE LONG CONSTANT MSG$_SUSOPR = 18 ! PAUSE PRINTING THE FILE J DECLARE LONG CONSTANT MSG$_RESOPR = 19 ! RESUME PRINTING THE FILE O DECLARE LONG CONSTANT MSG$_D ELSMB = 20 ! SYMBIONT SHOULD DELETE ITSELF L DECLARE LONG CONSTANT MSG$_REQUE = 21 ! REQUEUE A FILE FOR PRINTING  ! K DECLARE LONG CONSTANT MSG$_SMBRSP = 32 ! SYMBIONT MANAGER RESPONSE M DECLARE LONG CONSTANT MSG$_ACCRSP = 33 ! ACCOUNTING MANAGER RESPONSE  ! FILE ACP MESSAGES K DECLARE LONG CONSTANT MSG$_SCANBAD = 40 ! SCAN FILE FOR BAD BLOCKS M DECLARE LONG CONSTANT MSG$_SCANRSP = 41 ! RESPONSE FROM FILE SCANNER  ! NETWORK ATTENTION CODES E DECLARE LONG CONSTANT MSG$_ABORT = 48 ! PARTNER ABORTED LINK B DECLARE LONG CONSTANT MSG$_CONFIRM = 49 ! CONNECT CONFIRM K DECLARE LONG CONSTANT MSG$_CONNECT = 50 ! INBOUND CONNECT INITIATE O DECLARE LONG CONSTANT MSG$_DISCON = 51 ! PARTNER DISCONNECTED - HANGUP J DECLARE LONG CONSTANT MSG$_EXIT = 52 ! PARTNER EXITED PREMATURELY V DECLARE LONG CONSTANT MSG$_INTMSG = 53 ! INTERRUPT MESSAGE - UNSOLICITED DATA N DECLARE LONG CONSTANT MSG$_PATHLOST = 54 ! NFW - PATH LOST TO PARTNER B DECLARE LONG CONSTANT MSG$_PROTOCOL = 55 ! PROTOCOL ERROR @ DECLARE LONG CONSTANT MSG$_REJECT = 56 ! CONNECT REJECT L DECLARE LONG CONSTANT MSG$_THIRDPARTY = 57 ! THIRD PARTY DISCONNECT B DECLARE LONG CONSTANT MSG$_TIMEOUT = 58 ! CONNECT TIMEOUT H DECLARE LONG CONSTANT MSG$_NETSHUT = 59 ! Network shutting down M DECLARE LONG CONSTANT MSG$_NODEACC = 60 ! Node has become accessible Q DECLARE LONG CONSTANT MSG$_NODEINACC = 61 ! Node has become inaccessible M DECLARE LONG CONSTANT MSG$_EVTAVL = 62 ! Events are available to EVL S DECLARE LONG CONSTANT MSG$_EVTRCVCHG = 63 ! Event receiver database change C DECLARE LONG CONSTANT MSG$_INCDAT = 64 ! X25 INCOMING DATA B DECLARE LONG CONSTANT MSG$_RESET = 65 ! X25 CIRCUIT RESET @ DECLARE LONG CONSTANT MSG$_LINUP = 66 ! X25 PVC LINE UP C DECLARE LONG CONSTANT MSG$_LINDWN = 67 ! X25 PVC LINE DOWN V DECLARE LONG CONSTANT MSG$_EVTXMTCHG = 68 ! Event transmitter database change # ! MOUNT VERIFICATION MESSAGES D DECLARE LONG CONSTANT MSG$_DEVOFFLINX = 80 ! DEVICE OFFLINE J DECLARE LONG CONSTANT MSG$_WRONGVOL = 81 ! WRONG VOLUME IN DEVICE Q DECLARE LONG CONSTANT MSG$_DEVWRTLCK = 82 ! DEVICE HAS BEEN WRITE LOCKED G DECLARE LONG CONSTANT MSG$_TRMBRDCST = 83 ! TERMINAL BROADCAST R DECLARE LONG CONSTANT MSG$_MVCOMPLETE = 84 ! MOUNT VERIFICATION COMPLETED O DECLARE LONG CONSTANT MSG$_MVABORTED = 85 ! MOUNT VERIFICATION ABORTED G DECLARE LONG CONSTANT MSG$_DISMOUNTED = 86 ! VOLUME DISMOUNTED Q DECLARE LONG CONSTANT MSG$_UDA50MVER = 87 ! UDA50 MICORCODE NOT UPTO REV W DECLARE LONG CONSTANT MSG$_DUPUNITNO = 88 ! MSCP CONTROLLER - DUPLICATE UNIT ? I DECLARE LONG CONSTANT MSG$_CLUMBX = 89 ! CNXMGR to OPCOM messagesU DECLARE LONG CONSTANT MSG$_TM78MVER = 90 ! TM78 Microcode not up to rev levelS DECLARE LONG CONSTANT MSG$_SHAMEMFAL = 91 ! Member failed out of shadow setF DECLARE LONG CONSTANT MSG$_SHARDUCED = 92 ! Shadow set reducedO DECLARE LONG CONSTANT MSG$_RC25MVER = 93 ! RC25 MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_RDRXMVER = 94 ! RDRX MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_TU81MVER = 95 ! TU81 MICORCODE NOT UPTO REV O DECLARE LONG CONSTANT MSG$_MAYAMVER = 96 ! MAYA MICORCODE NOT UPTO REV P DECLARE LONG CONSTANT MSG$_SHACHASTA = 97 ! Shadow set has changed stateW DECLARE LONG CONSTANT MSG$_SHACOPCOM = 98 ! Shadow copy operation has completedV DECLARE LONG CONSTANT MSG$_SHAREDZER = 99 ! Shadow set reduced to zero membersO DECLARE LONG CONSTANT MSG$_SHAPOSMEM = 100 ! Possible shadow set member] DECLARE LONG CONSTANT MSG$_SHAALLCOM = 101 ! All shadow set copy operations completedP DECLARE LONG CONSTANT MSG$_SHACOPBEG = 102 ! Shadow copy operation begunX DECLARE LONG CONSTANT MSG$_SHAWROMEM = 103 ! Shadow member contains wrong volume] DECLARE LONG CONSTANT MSG$_SHAORGMEM = 104 ! Shadow system disk missing VMB R3 memberO DECLARE LONG CONSTANT MSG$_TRMLOSE_KB = 105 ! terminal lost physical KBQ DECLARE LONG CONSTANT MSG$_TRMGAIN_KB = 106 ! terminal gained physical KBS DECLARE LONG CONSTANT MSG$_TRMSHRINK = 107 ! terminal window shrunk to iconR DECLARE LONG CONSTANT MSG$_TRMEXPAND = 108 ! terminal window icon expandedL  DECLARE LONG CONSTANT MSG$_TRMRESIZE = 109 ! terminal window resizedH DECLARE LONG CONSTANT MSG$_TRMMOVE = 110 ! terminal window movedX DECLARE LONG CONSTANT MSG$_SNDMME = 111 ! message to media management extensionsa DECLARE LONG CONSTANT MSG$_RETMME = 112 ! message returned from media management software DECLARE LONG CONSTANT MSG$_SHAADPBAD = 113 ! Shadow VMB R3 member not currently connected to original boot adapter type & ! (PA versus PU) DECLARE LONG CONSTANT MSG$_SHAEMUPTH = 114 ! Shadow VMB R3 member not currently connected to original boot adapter - on & ! an emulated pathy DECLARE LONG CONSTANT MSG$_SHABENODMP = 115 ! Shadow VMB R3 member not on original adapter, current type unknown { DECLARE LONG CONSTANT MSG$_SHABNODMP = 116 ! Shadow VMB R3 member not the master of set or not on PATH named to VMB DECLARE LONG CONSTANT MSG$_SHALOCDEV = 117 ! A Satellites shadow master member is now on a local device, no reboot or & ! dumps possibled DECLARE LONG CONSTANT MSG$_SHANOBPOK = 118 ! Shadow VMB R3 member is not a member of the setd DECLARE LONG CONSTANT MSG$_SHABDMPOK = 119 ! Shadow VMB R3 member is on the original adapterv DECLARE LONG CONSTANT MSG$_BOOTDMPOK = 120 ! System dump will has been redirected to the current master membern DECLARE LONG CONSTANT MSG$_SHABDBCK = 121 ! Shadow VMB R3 member has returned to the original adapter w DECLARE LONG CONSTANT MSG$_SHANODMP = 122 ! Shadow master changed. Dump will NOT be written if system crashes.s DECLARE LONG CONSTANT MSG$_SHADMPOK = 123 ! Shadow master changed. Dump WILL be written if system crashes.& ! DEFINE MESSAGES FOR USE BY QMANO DECLARE LONG CONSTANT MSG$_QMAN_INTERNAL = 200 ! QMAN internal message  ww@ZPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  9 DECLARE LONG CONSTANT MSGHLP$M_NOSORT = x'00000001'8 DECLARE LONG CONSTANT MSGHLP$M_BRIEF = x'00000002': DECLARE LONG CONSTANT MSGHLP$M_MACHINE = x'00000004'> DECLARE LONG CONSTANT MS GHLP$M_NOSUBSTRING = x'00000008'2 DECLARE LONG CONSTANT MSGHLP$S_MSGHLPDEF = 4 record MSGHLPDEF& ! Do *NOT* sort the output 1 ! Give only the names of the messages 8 ! Return the text in machine-readable format 6 ! Match only entire words, no abreviations i BYTE NOSORT_bits ! COMMENT ADDED BY SDL - NOSORT_bits contains bits NOSORT through NOSUBSTRING WORD MSGHLP$w_unusedL BYTE MSGHLP$B_WORK_FILES ! How many workfiles for /SORT? end record MSGHLPDEF  ww [PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +) ! MAGTAPE ACCESSIBILTY ROUTINE CODES ! -# ! DEFINITIONS FOR ACCESS_SPEC K DECLARE LONG CONSTANT MTA$K_NOCHAR = 0 ! ACCESS CHAR IS NOVALID H DECLARE LONG CONSTANT MTA$K_CHARVALID = 1 ! ACCESS CHAR IS VALID ! DEFINITIONS FOR TYPE I DECLARE LONG CONSTANT MTA$K_INVOL1 = 0 ! INPUT A VOL1 ACCESS CODEI DECLARE LONG CONSTANT MTA$K_INHDR1 = 1 ! INPUT A HDR1 ACCESS CODEK DECLARE LONG CONSTANT MTA$K_OUTVOL1 = 2 ! OUTPUT A VOL1 ACCESS CODEK DECLARE LONG CONSTANT MTA$K_OUTHDR1 = 3 ! OUTPUT A HDR1 ACCESS CODE wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! MAGTAPE STATUS BITS ! -6 DECLARE LONG CONSTANT MT$M_SEREXCP = x'00000001'9 DECLARE LONG CONSTANT MT$M_ENAUTOPACK = x'00000002'8 DECLARE LONG CONSTANT MT$M_ENSEREXCP =  x'00000004'5 DECLARE LONG CONSTANT MT$M_PARITY = x'00000008'5 DECLARE LONG CONSTANT MT$M_FORMAT = x'000000F0'6 DECLARE LONG CONSTANT MT$M_DENSITY = x'00001F00'< DECLARE LONG CONSTANT MT$M_FASTSKIP_USED = x'00002000'6 DECLARE LONG CONSTANT MT$M_LOGSOFT = x'00004000'8 DECLARE LONG CONSTANT MT$M_LOGSOFTOG = x'00008000'2 DECLARE LONG CONSTANT MT$M_BOT = x'00010000'2 DECLARE LONG CONSTANT MT$M_EOF = x'00020000'2 DECLARE LONG CONSTANT MT$M_EOT = x'000 40000'2 DECLARE LONG CONSTANT MT$M_HWL = x'00080000'3 DECLARE LONG CONSTANT MT$M_LOST = x'00100000'7 DECLARE LONG CONSTANT MT$M_SUP_NRZI = x'00200000'5 DECLARE LONG CONSTANT MT$M_SUP_PE = x'00400000'6 DECLARE LONG CONSTANT MT$M_SUP_GCR = x'00800000'4 DECLARE LONG CONSTANT MT$M_SPEED = x'FF000000'@ DECLARE LONG CONSTANT MT$K_DEFAULT = 0 ! DEFAULT FORMAT A DECLARE LONG CONSTANT MT$K_NORMAL11 = 12 ! PDP-11 NORMAL D DECLARE LONG CONSTANT MT$K_C ORDMP11 = 13 ! PDP-11 CORE DUMP A DECLARE LONG CONSTANT MT$K_NORMAL15 = 14 ! PDP-15 NORMAL  ! ? DECLARE LONG CONSTANT MT$K_NRZI_800 = 3 ! NRZI 800 BPI = DECLARE LONG CONSTANT MT$K_PE_1600 = 4 ! PE 1600 BPI ? DECLARE LONG CONSTANT MT$K_GCR_6250 = 5 ! GCR 6250 BPI J DECLARE LONG CONSTANT MT$K_WOD_6250 = 8 ! RV80 6250 BPI EQUIVALENTN DECLARE LONG CONSTANT MT$K_SCSI_DC1 = 10 ! Data Compaction algorithm 1? DECLARE LONG CONSTANT MT$K_HPC_40K = 12 ! HPC 39872 BPIF DECLARE LONG CONSTANT MT$K_HPC_COMP = 13 ! HPC 39872 compacted2 DECLARE LONG CONSTANT MT$K_XPC_80K = 14 ! 3 DECLARE LONG CONSTANT MT$K_XPC_COMP = 15 ! I DECLARE LONG CONSTANT MT$K_BLK_833 = 17 ! BLOCK ( TK50 ) 833 BPIK DECLARE LONG CONSTANT MT$K_BLK_1250 = 18 ! BLOCK ( TK70 ) 1250 BPIK DECLARE LONG CONSTANT MT$K_BLK_10K = 19 ! BLOCK ( TF85 ) 10625 BPIG DECLARE LONG CONSTANT MT$K_BLK_20K = 20 ! BLOCK ( TF86 ) 10626 G DECLARE LONG CONSTANT MT$K_BLK_60K = 21 ! BLOCK ( Tx87 ) 62500S DECLARE LONG CONSTANT MT$K_BLK_COMP = 22 ! BLOCK ( Tx87 ) COMPRESSED 62501T DECLARE LONG CONSTANT MT$K_DAT_61K = 24 ! DAT CARTRIDGE 61000 BPI EQUIVALENT ! @ DECLARE LONG CONSTANT MT$K_SPEED_DEF = 0 ! DEFAULT SPEED9 DECLARE LONG CONSTANT MT$K_SPEED_25 = 25 ! 25 IPS9 DECLARE LONG CONSTANT MT$K_SPEED_75 = 75 ! 75 IPS* DECLARE LONG CONSTANT MT$S_MTDEF = 4 record MTDEF  variant case$ group MT$R_MTDEF_BITS/ ! SERIOUS EXCEPTION PRESENT) ! ENABLE AUTO PACKACK3 ! ENABLE SERIOUS EXCEPTION MODE4 ! PARITY SELECT (0=ODD, 1=EVEN) ' ! RECORDING FORMAT 3 ! RECORDING DENSITY AND METHOD 9 ! IO$_SKIPFILE USED SKIP BY FILEMARKS; ! LOG SOFT (TU78) ERRORS (0=NO, 1=YES) :  ! TOGGLE TO REVERSE LOGSOFT STATE BIT + ! AT BEGINNING OF TAPE % ! AT END OF FILE % ! AT END OF TAPE 3 ! TAPE IS HARDWARE WRITELOCKED ) ! TAPE POSITION LOST 3 ! DRIVE SUPPORTS NRZI (800 BPI)2 ! DRIVE SUPPORTS PE (1600 BPI)3 ! DRIVE SUPPORTS GCR (6250 BPI) ! TAPE SPEEDo LONG SEREXCP_bits ! COMMENT ADDED BY SDL - SEREXCP_bits contains bits SEREXCP through SPEED( end group MT$R_MTDEF_BITS ! " ! RECORDING FORMAT DEFINTIONS !  ! / ! RECORDING DENSITY AND METHOD DEFINITIONS !  ! Default 0 ! 9 Track 1 - 7 ! Optical Disk 8 - 9% ! SCSI Compaction codes 10 - 11) ! High Performance Cartridge 12 - 15 ! Block Mode 16 - 23 ! Reserved 24 - 31 !  ! Q ! DEFAULT,0  /* DEFAULT DENSITY (SAME AS ABOVE)# ! TAPE SPEED VALUE DEFINITIONS !  end variant end record MTDEF  ww [PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +, ! EXTENDED MAGTAPE CHARACTERISTICS BITS ! -8 DECLARE LONG CONSTANT MT2$M_SUP_DENS = x'0000FFFF': DECLARE LONG CONSTANT MT2$M_WBC_ENABLE = x'00010000'; DECLARE LONG CONST ANT MT2$M_RDC_DISABLE = x'00020000'; DECLARE LONG CONSTANT MT2$M_CACHED_DATA = x'00040000'7 DECLARE LONG CONSTANT MT2$M_CD_LOST = x'00080000'9 DECLARE LONG CONSTANT MT2$M_TAPE_MARK = x'00100000'8 DECLARE LONG CONSTANT MT2$M_COMP_SUP = x'00200000'8 DECLARE LONG CONSTANT MT2$M_COMP_ENA = x'00400000'= DECLARE LONG CONSTANT MT2$M_MT3_SUPPORTED = x'00800000'= DECLARE LONG CONSTANT MT2$M_ALLOWFAST_SUP = x'01000000'@ DECLARE LONG CONSTANT MT2$M_ALLOWFAST_ ALWAYS = x'02000000'@ DECLARE LONG CONSTANT MT2$M_ALLOWFAST_PER_IO = x'04000000'? DECLARE LONG CONSTANT MT2$M_ALLOWFAST_NEVER = x'08000000', DECLARE LONG CONSTANT MT2$S_MT2DEF = 4 record MT2DEF variant case& group MT2$R_MT2DEF_BITS) ! SUPPORTED DENSITIES3 ! WRITE-BACK CACHING IS ENABLED. ! READ CACHING IS DISABLED9 ! CLASS DRIVER DETECTED DATA IN CACHE<  ! CLASS DRIVER DETECTED CACHED DATA LOST0 ! TAPE MARK HAS BEEN WRITTEN* ! COMPACTION supported( ! COMPACTION enabled9 ! device has extended density support0 ! SCSI Fast Search supported, ! ALWAYS use Fast Search/ ! PER_IO use of Fast Search+ ! NEVER use Fast Searcht LONG SUP_DENS_bits ! COMMENT ADDED BY SDL - SUP_DENS_bits contains bits SUP_DENS through fill_10* end group MT2$R_MT2DEF_BITS end variant end record MT2DEF  ww`#\PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +4 ! MAGNETIC TAPE DENSITY/COMPRESSION DEFINITIONS ! @ ! These values are used only for MTD enhanced tape drivers " ! and are not found in MTDEF. ! N DECLARE LONG CONSTANT MT3$K_DEFAULT = 0 ! DEFAULT DENSITY/COMPRESSION B DECLARE LONG CONSTANT MT3$K_NRZI_800 = 257 ! NRZI 800 BPI @ DECLARE LONG CONSTANT MT3$K_PE_1600 = 258 ! PE 1600 BPI B DECLARE LONG CONSTANT MT3$K_GCR_6250 = 260 ! GCR 6250 BPI B DECLARE LONG CONSTANT MT3$K_TK50 = 513 ! DLT TK50: 833 BPIC DECLARE LONG CONSTANT MT3$K_TK70 = 514 ! DLT TK70: 1250 BPIG DECLARE LONG CONSTANT MT3$K_3480 = 769 ! IBM 3480 HPC 39872 BPIF DECLARE LONG CONSTANT MT3$K_3490E = 770 ! IBM 3480: compressedG DECLARE LONG CONSTANT MT3$K_3480_COMP = 772 ! IBM 3490 density K DECLARE LONG CONSTANT MT3$K_3490E_COMP = 776 ! IBM 3490: compressedN DECLARE LONG CONSTANT MT3$K_WOD_6250 = 1025 ! RV80 6250 BPI EQUIVALENT@ DECLARE LONG CONSTANT MT3$K_DAT = 1281 ! DAT - 61000 bpiD DECLARE LONG CONSTANT MT3$K_DAT_COMP = 1282 ! DAT CompressedR ! Only the Symbols to here are understood by pre-Raven TMSCP / TUDRIVER code.d DECLARE LONG CONSTANT MT3$K_DENSITY_INVALID = 31 ! Indicates,, DEVDEPEND density is invalid.? DECLARE LONG CONSTANT MT3$K_8200 = 1537 ! Exa-Byte 8200? DECLARE LONG CONSTANT MT3$K_8500 = 1538 ! Exa-Byte 8500O DECLARE LONG CONSTANT MT3$K_8500_COMP = 1540 ! Exa-Byte 8500 CompressedO DECLARE LONG CONSTANT MT3$K_8200_COMP = 1544 ! Exa-Byte 8200 CompressedX DECLARE LONG CONSTANT MT3$K_QIC = 1793 ! All QIC drives are drive settable only.Q DECLARE LONG CONSTANT MT3$K_TK85 = 2052 ! DLT Tx85: 10625 BPI -- Cmpt IIIQ DECLARE LONG CONSTANT MT3$K_TK86 = 2056 ! DLT Tx86: 10626 BPI -- Cmpt IIIQ DECLARE LONG CONSTANT MT3$K_TK87 = 2064 ! DLT Tx87: 62500 BPI -- Cmpt IIIU DECLARE LONG CONSTANT MT3$K_TK87_COMP = 2080 ! DLT Tx87: Compressed 62501 BPIX DECLARE LONG CONSTANT MT3$K_TK89 = 2305 ! DLT Tx89: ( Quantum 7000 ) -- Cmpt IVV DECLARE LONG CONSTANT MT3$K_TK89_COMP = 2306 ! DLT Tx89: Compressed -- Cmpt IVX DECLARE LONG CONSTANT MT3$K_TK88 = 2368 ! DLT Tx88: ( Quantum 4000 ) -- Cmpt IVV DECLARE LONG CONSTANT MT3$K_TK88_COMP = 2432 ! DLT Tx88: Compressed -- Cmpt IVQ DECLARE LONG CONSTANT MT3$K_AIT1 = 2561 ! Sony Advanced Intelligent Tapesa DECLARE LONG CONSTANT MT3$K_AIT1_COMP = 2562 ! Sony Advanced Intelligent Tapes CompressedH DECLARE LONG CONSTANT MT3$K_DDS2 = 2817 ! Digital Data Storage 2X DECLARE LONG CONSTANT MT3$K_DDS2_COMP = 2818 ! Digital Data Storage 2 CompressedA ! DDS-3 thru DDS-4 are not yet supported by DEC tapes drivesI DECLARE LONG CONSTANT MT3$K_DDS3 = 3073 ! Digital Data Storage 3 Z DECLARE LONG CONSTANT MT3$K_DDS3_COMP = 3074 ! Digital Data Storage 3 Compressed J DECLARE LONG CONSTANT MT3$K_DDS4 = 3329 ! Digital Data Storage 4 Z DECLARE LONG CONSTANT MT3$K_DDS4_COMP = 3330 ! Digital Data Storage 4 Compressed ! Compression Only codes. S ! The X%FFxx codes below are layed out so that future compression enhancments 8 ! may take advantage of multiple compression types.I DECLARE LONG CONSTANT MT3$K_NO_COMP = 65280 ! All Compression OFFA DECLARE LONG CONSTANT MT3$K_COMP = 65281 ! Compression ON wwa\PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! DECnet-VAX definitions ! -, DECLARE LONG CONSTANT NET$S_NETDEF = 4 record NETDEFA BYTE NET$B_USER_ECO ! User ECO of DECnetD BYTE NET$B_DEC_ECO ! Digital ECO of DECnet= BYTE NET$B_DEC_VERSION ! DECnet VersionB BYTE NET$B_RESERVED ! Reserved to Digital end record NETDEF  ww Zj_PV%DEFINE NSAREPLYDEF LONG8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! L ! Define the packet header and record types used for security auditing. ! Q DECLARE LONG CONSTANT NSA$C_MSG_SERVER = 1 ! Audit server control messageN  DECLARE LONG CONSTANT NSA$C_MSG_AUDIT = 2 ! Change in auditable eventsE DECLARE LONG CONSTANT NSA$C_MSG_BREAKIN = 3 ! Breakin attemptR DECLARE LONG CONSTANT NSA$C_MSG_INSTALL = 4 ! Change to INSTALLed databaseC DECLARE LONG CONSTANT NSA$C_MSG_LOGFAIL = 5 ! Login failureD DECLARE LONG CONSTANT NSA$C_MSG_LOGIN = 6 ! Successful loginF DECLARE LONG CONSTANT NSA$C_MSG_LOGOUT = 7 ! Successful logoutL DECLARE LONG CONSTANT NSA$C_MSG_MOUNT = 8 ! Volume mount or dismountU DECLARE LONG CONSTANT NSA$C_MSG_NETPROXY = 9 ! Network proxy data base changeT DECLARE LONG CONSTANT NSA$C_MSG_ACCESS = 10 ! Object access *** obsolete ***@ DECLARE LONG CONSTANT NSA$C_MSG_SYSUAF = 11 ! UAF changeN DECLARE LONG CONSTANT NSA$C_MSG_RIGHTSDB = 12 ! Rights database changeR DECLARE LONG CONSTANT NSA$C_MSG_CUSTOMER = 13 ! Customer application eventH DECLARE LONG CONSTANT NSA$C_MSG_CSS = 14 ! CSS application eventG DECLARE LONG CONSTANT NSA$C_MSG_LP = 15 ! Layered product eventE DECLARE LONG CONSTANT NSA$C_MSG_PRVAUD = 16 ! Privilege auditT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_1 = 17 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_2 = 18 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_3 = 19 ! Reserved message type codeT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_4 = 20 ! Reserved message type codeO DECLARE LONG CONSTANT NSA$C_MSG_SYSTIME = 21 ! System time modificationS DECLARE LONG CONSTANT NSA$C_MSG_SYSGEN = 22 ! SYSGEN parameter modificationI DECLARE LONG CONSTANT NSA$C_MSG_OBJ_CREATE = 23 ! Object creationI DECLARE LONG CONSTANT NSA$C_MSG_OBJ_DELETE = 24 ! Object deletionK DECLARE LONG CONSTANT NSA$C_MSG_OBJ_DEACCESS = 25 ! Object deaccessG DECLARE LONG CONSTANT NSA$C_MSG_OBJ_ACCESS = 26 ! Object accessD DECLARE LONG CONSTANT NSA$C_MSG_CONNECTION = 27 ! ConnectionT DECLARE LONG CONSTANT NSA$C_MSG_RESERVED_5 = 28 ! Reserved Message type codeL DECLARE LONG CONSTANT NSA$C_MSG_NCP = 29 ! NCP command line auditingO DECLARE LONG CONSTANT NSA$C_MSG_PROCESS = 30 ! Process control auditing_ DECLARE LONG CONSTANT NSA$C_MSG_OBJECT_SERVICE = 31 ! Cluster visable object processingV DECLARE LONG CONSTANT NSA$C_MSG_AUTHENTICATE = 32 ! Distributed authenticationT DECLARE LONG CONSTANT NSA$C_MSG_MAX_CODE = 33 ! Last type code ( plus one )9 DECLARE LONG CONSTANT NSA$M_MANDATORY = x'00000001'3 DECLARE LONG CONSTANT NSA$M_ACL = x'00000002'8 DECLARE LONG CONSTANT NSA$M_INTERNAL = x'00000004'5 DECLARE LONG CONSTANT NSA$M_ALARM = x'00000008'5 DECLARE LONG CONSTANT NSA$M_AUDIT = x'00000010'7 DECLARE LONG CONSTANT NSA$M_FOREIGN = x'00000020'5 DECLARE LONG CONSTANT NSA$M_FLUSH = x'00000040'6 DECLARE LONG CONSTANT NSA$M_SERVER = x'00000080'8 DECLARE LONG CONSTANT NSA$ M_DEACCESS = x'00000100'5 DECLARE LONG CONSTANT NSA$M_SYNCH = x'00000200': DECLARE LONG CONSTANT NSA$M_IDENTIFIER = x'00000400'8 DECLARE LONG CONSTANT NSA$M_PROCPRIV = x'00000800'8 DECLARE LONG CONSTANT NSA$M_AUTHPRIV = x'00001000': DECLARE LONG CONSTANT NSA$M_NOEVTCHECK = x'00002000'9 DECLARE LONG CONSTANT NSA$M_NOFAILAUD = x'00004000'9 DECLARE LONG CONSTANT NSA$M_NOSUCCAUD = x'00008000'M DECLARE LONG CONSTANT NSA$C_VERSION_1 = 1 ! First version of auditingN DECLARE LONG CONSTANT NSA$C_VERSION_2 = 2 ! Second version of auditingh DECLARE LONG CONSTANT NSA$C_VERSION_3 = 3 ! Third version of auditing ( support facility code )S DECLARE LONG CONSTANT NSA$C_V1_MSG_HDR_LENGTH = 12 ! For version 1 messages8 DECLARE LONG CONSTANT NSA$K_V1_MSG_HDR_LENGTH = 12U DECLARE LONG CONSTANT NSA$C_MSG_HDR_LENGTH = 20 ! For latest version messages5 DECLARE LONG CONSTANT NSA$K_MSG_HDR_LENGTH = 200 DECLARE LONG C ONSTANT NSA$S_NSAMSGDEF = 21 record NSAMSGDEF ! Define the packet header? WORD NSA$W_RECORD_TYPE ! Audit event typeB WORD NSA$W_RECORD_SUBTYPE ! Audit event subtype group NSA$r_fill_11 variant case= WORD NSA$W_FLAGS ! Auditing flags case% group NSA$r_fill_12- ! Event must be logged/ ! Event resul ts from ACE/ ! Event generated by TCB* ! Event is an alarm* ! Event is an audit- ! Event outside of TCB8 ! Force audit server buffer flush6 ! Override process no-audit bit0 ! Deaccess audit required7 ! Synchronous return if possible7 ! Privilege check via identifierC ! P rivilege check against process privilegesF ! Privilege check against authorized privileges+ ! Bypass event check= ! Do not audit failed privilege checksA ! Do not audit successful privilege checks| WORD MANDATORY_bits ! COMMENT ADDED BY SDL - MANDATORY_bits contains bits MANDATORY through NOSUCCAUD) end group NSA$r_fill_12 end variant end gro up NSA$r_fill_11E WORD NSA$W_PACKET_COUNT ! Number of data packets% group NSA$R_REC_SIZE_OVERLAY variant case% WORD NSA$W_REC_SIZE caseT WORD NSA$W_RECORD_SIZE ! Total size ( header + data packets ) end variant) end group NSA$R_REC_SIZE_OVERLAY4 BYTE NSA$B_SPARE_3 ! SpareO BYTE NSA$B_VERSION ! Security audi ting version number= WORD NSA$W_SPARE_4 ( 1 to 3 ) ! Spare words@ WORD NSA$W_FACILITY ! VMS facility code? BYTE NSA$R_PACKET_LIST ! Start of packets end record NSAMSGDEF # ! Server control message typesQ DECLARE LONG CONSTANT NSA$C_SRV_ADD_JOURNAL = 1 ! Add a new audit journalZ DECLARE LONG CONSTANT NSA$C_SRV_REM_JOURNAL = 2 ! Remove an existing audit journalS DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_JOURNAL = 3 ! Flush specified journalY DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_ALL_JOURNALS = 4 ! Flush all audit journals[ DECLARE LONG CONSTANT NSA$C_SRV_FLUSH_INTERVAL = 5 ! Journal flushing time intervalU DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_DEVICE = 6 ! Specify archiving deviceS DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_ENABLE = 7 ! Archiving enable flagsU DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_DISABLE = 8 ! Archiving disable flags] DECLARE LONG CONSTANT NSA$C_SRV_ARCHIVE_INTERVAL = 9 ! Guaranteed archinving intervalX DECLARE LONG CONSTANT NSA$C_SRV_BADJNL_INTERVAL = 10 ! Bad journal scan intervalk DECLARE LONG CONSTANT NSA$C_SRV_BADJNL_LIMIT = 11 ! Maximum number of bad journals to keep track ofH DECLARE LONG CONSTANT NSA$C_SRV_EXIT = 12 ! Shut down the serverc DECLARE LONG CONSTANT NSA$C_SRV_CREATE_SYSTEM_LOG = 13 ! Create a new system audit log filed DECLARE LONG CONSTANT NSA$C_SRV_AUDIT_CHANGE = 14 ! Change state of system auditing/alarmingw DECLARE LONG CONSTANT NSA$C_SRV_REDIRECT_SYSTEM_LOG = 15 ! Open the latest version of the system audit log filea DECLARE LONG CONSTANT NSA$C_SRV_REM_ENABLE = 16 ! Enable resource monitoring on a journalc DECLARE LONG CONSTANT NSA$C_SRV_REM_DISABLE = 17 ! Disable resource monitoring on a journal] DECLARE LONG CONSTANT NSA$C_SRV_REM_MONITOR_INTERVAL = 18 ! Resource monitor intervalc DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME_INTERVAL = 19 ! Resource resume monitor intervala DECLARE LONG CONSTANT NSA$C_SRV_REM_MONITOR_MODE = 20 ! Specify new resource monitor modeh DECLARE LONG CONSTANT NSA$C_SRV_REM_FINAL_ACTION = 21 ! Specify final resource exhaustion action\ DECLARE LONG CONSTANT NSA$C_SRV_REM_WARN_THRESHOLD = 22 ! Resource warning thresholdh DECLARE LONG CONSTANT NSA$C_SRV_REM_ACTION_THRESHOLD = 23 ! Resource exhaustion action thresholda DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME_THRESHOLD = 24 ! Resource resumption thresholdV DECLARE LONG CONSTANT NSA$C_SRV_REM_RESUME = 25 ! Force resource re-evaluation\ DECLARE LONG CONSTANT NSA$C_SRV_REM_ADD_EXCLUDE = 26 ! Add process to exclusion lista DECLARE LONG CONSTANT NSA$C_SRV_REM_DEL_EXCLUDE = 27 ! Remove process from exclusion listV DECLARE LONG CONSTANT NSA$C_SRV_LISTENER_ENABLE = 28 ! Specify listener deviceV DECLARE LONG CONSTANT NSA$C_SRV_LISTENER_DISABLE = 29 ! Cancel listener deviced DECLARE LONG CONSTANT NSA$C_SRV_NEW_LOG = 30 ! Create new cluster-wide system audit log fileK DECLARE LONG CONSTANT NSA$C_SRV_RESTART = 31 ! Restart audit server^ DECLARE LONG CONSTANT NSA$C_SRV_LOCK_SERVER = 32 ! Lock audit server to prevent changeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_1 = 33 ! Reserved server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_2 = 34 ! Reserved server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_3 = 35 ! Reserved server codeN DECLARE LONG CONSTANT NSA$C_SRV_RESERVED_4 = 36 ! Reserved server codea DECLARE LONG CONSTANT NSA$C_SRV_FAILURE_MODE = 37 ! Change security auditing failure modeS DECLARE LONG CONSTANT NSA$C_SRV_SNAPSHOT = 38 ! System snapshot in progressW DECLARE LONG CONSTANT NSA$C_SRV_BACKLOG_TOTAL = 39 ! Flow control total backlog[ DECLARE LONG CONSTANT NSA$C_SRV_BACKLOG_PROCESS = 40 ! Flow control process backlogN DECLARE LONG CONSTANT NSA$C_SRV_INITIATE = 41 ! Initiate event loggingT DECLARE LONG CONSTANT NSA$C_SRV_RESTART_ALL = 42 ! Restart all audit serversS DECLARE LONG CONSTANT NSA$C_SRV_RESTART_OBJECT = 43 ! Restart object serverW DECLARE LONG CONSTANT NSA$C_SRV_MAX_CODE = 44 ! Last message code ( plus one )0 ! Define resource exhaustion monitor modes.S DECLARE LONG CONSTANT NSA$C_REM_SPACE = 1 ! # blocks to keep free on volumeQ DECLARE LONG CONSTANT NSA$C_REM_PERCENTAGE = 2 ! % of volume to keep freeO DECLARE LONG CONSTANT NSA$C_REM_COUNT = 3 ! # msgs to reserve space forW DECLARE LONG CONSTANT NSA$C_REM_TIME = 4 ! # secs to reserve ave. msg space for_ DECLARE LONG CONSTANT NSA$C_REM_MAX_MODE = 5 ! Last resource monitor mode ( plus one )G ! Define final action to take when process buffer space exhausted.U DECLARE LONG CONSTANT NSA$C_REM_PURGE_OLD = 1 ! Purge oldest entry from queue[ DECLARE LONG CONSTANT NSA$C_REM_IGNORE_NEW = 2 ! Ignore newest ( current ) messageZ DECLARE LONG CONSTANT NSA$C_REM_RESTART = 3 ! Restart server - create process dumpP DECLARE LONG CONSTANT NSA$C_REM_CRASH = 4 ! Shutdown VMS ( BUG_CHECK ) \ DECLARE LONG CONSTANT NSA$C_REM_MAX_FINAL = 5 ! Last final action mode ( plus one )9 ! Define security auditing state modification codes.4 DECLARE LONG CONSTANT NSA$C_AUDIT_DISABLED = 13 DECLARE LONG CONSTANT NSA$C_AUDIT_ENABLED = 25 DECLARE LONG CONSTANT NSA$C_AUDIT_TERMINATE = 34 DECLARE LONG CONSTANT NSA$C_AUDIT_INITIATE = 4X DECLARE LONG CONSTANT NSA$C_SNAPSHOT_SAVE = 5 ! System snapshot save in progress\ DECLARE LONG CONSTANT NSA$C_SNAPSHOT_ABORT = 6 ! System snapshot attempt has aborted] DECLARE LONG CONSTANT NSA$C_SNAPSHOT_STARTUP = 7 ! System booted from a snapshot fileW DECLARE LONG CONSTANT NSA$C_SNAPSHOT_ACCESS = 8 ! Snapshot file access/deaccessN DECLARE LONG CONSTANT NSA$C_AUDIT_STATE = 9 ! New state of audit flagsO DECLARE LONG CONSTANT NSA$C_ALARM_STATE = 10 ! New state of alarm flagse DECLARE LONG CONSTANT NSA$C_AUDIT_LOG_FINAL = 11 ! Final entry in audit log ( forward link )b DECLARE LONG CONSTANT NSA$C_AUDIT_LOG_FIRST = 12 ! First entry in audit log ( back link )h DECLARE LONG CONSTANT NSA$C_AUDIT_BAD_TCB_AUDIT = 13 ! An internal ( TCB ) audit was ill-formed5 DECLARE LONG CONSTANT NSA$C_AUDIT_MAX_CODE = 143 ! Define security auditing failure mode codes.V DECLARE LONG CONSTANT NSA$C_FAIL_WAIT = 1 ! Wait for resource ( if possible )L DECLARE LONG CONSTANT NSA$C_FAIL_CRASH = 2 ! Crash system on failureJ DECLARE LONG CONSTANT NSA$C_FAIL_IGNORE = 3 ! Ignore failing auditW DECLARE LONG CONSTANT NSA$C_FAIL_MAX_MODE = 4 ! Last failure mode ( plus one )> ! Define BREAKIN, LOGIN, LOGOUT, and LOGIN failure codes.+ DECLARE LONG CONSTANT NSA$C_BATCH = 1. DECLARE LONG CONSTANT NS A$C_DETACHED = 2, DECLARE LONG CONSTANT NSA$C_DIALUP = 3+ DECLARE LONG CONSTANT NSA$C_LOCAL = 4- DECLARE LONG CONSTANT NSA$C_NETWORK = 5, DECLARE LONG CONSTANT NSA$C_REMOTE = 60 DECLARE LONG CONSTANT NSA$C_SUBPROCESS = 7, DECLARE LONG CONSTANT NSA$C_SERVER = 86 DECLARE LONG CONSTANT NSA$C_JOBTYPE_MAX_CODE = 9? ! Define INSTALLed file database state modification codes.1 DECLARE LONG CONSTANT NSA$C_INSTALL_ADD = 14 DECLARE LONG CONSTANT NSA$ C_INSTALL_REMOVE = 26 DECLARE LONG CONSTANT NSA$C_INSTALL_MAX_CODE = 3T ! Define INSTALLed file database state modification qualifier codes. Also, the9 ! codes used by the audit message formatting tables.; DECLARE LONG CONSTANT NSA$M_INS_SPARE_0 = x'00000001'8 DECLARE LONG CONSTANT NSA$M_INS_OPEN = x'00000002'C DECLARE LONG CONSTANT NSA$M_INS_HEADER_RESIDENT = x'00000004': DECLARE LONG CONSTANT NSA$M_INS_SHARED = x'00000008'@ DECLARE LONG CONSTANT NSA$ M_INS_EXECUTE_ONLY = x'00000010'= DECLARE LONG CONSTANT NSA$M_INS_WRITEABLE = x'00000020'> DECLARE LONG CONSTANT NSA$M_INS_PRIVILEGED = x'00000040'= DECLARE LONG CONSTANT NSA$M_INS_PROTECTED = x'00000080'; DECLARE LONG CONSTANT NSA$M_INS_NOPURGE = x'00000100'> DECLARE LONG CONSTANT NSA$M_INS_ACCOUNTING = x'00000200'- DECLARE LONG CONSTANT NSA$s_fill_13 = 4 record fill_13 variant case' LONG NSA$L_INSTALL_FLAGS  case" group NSA$r_fill_14} WORD INS_SPARE_0_bits ! COMMENT ADDED BY SDL - INS_SPARE_0_bits contains bits INS_SPARE_0 through fill_15& end group NSA$r_fill_14 end variant end record fill_13 1 DECLARE LONG CONSTANT NSA$C_INS_SPARE_0 = 1. DECLARE LONG CONSTANT NSA$C_INS_OPEN = 29 DECLARE LONG CONSTANT NSA$C_INS_HEADER_RESIDENT = 30 DECLARE LONG CONSTANT NSA$C_INS_SHARED = 46 DECLARE LONG CONSTAN T NSA$C_INS_EXECUTE_ONLY = 53 DECLARE LONG CONSTANT NSA$C_INS_WRITEABLE = 64 DECLARE LONG CONSTANT NSA$C_INS_PRIVILEGED = 73 DECLARE LONG CONSTANT NSA$C_INS_PROTECTED = 81 DECLARE LONG CONSTANT NSA$C_INS_NOPURGE = 95 DECLARE LONG CONSTANT NSA$C_INS_ACCOUNTING = 103 DECLARE LONG CONSTANT NSA$C_INS_MAX_CODE = 11. ! Define volume state modification codes.2 DECLARE LONG CONSTANT NSA$C_VOL_DISMOUNT = 1/ DECLARE LONG CONSTANT NSA$C_VOL_MOUNT = 22  DECLARE LONG CONSTANT NSA$C_VOL_MAX_CODE = 38 ! Define volume state modification qualifier codes.; DECLARE LONG CONSTANT NSA$M_MNT_FOREIGN = x'00000001'9 DECLARE LONG CONSTANT NSA$M_MNT_GROUP = x'00000002'< DECLARE LONG CONSTANT NSA$M_MNT_NOASSIST = x'00000004'; DECLARE LONG CONSTANT NSA$M_MNT_NODISKQ = x'00000008': DECLARE LONG CONSTANT NSA$M_MNT_NOHDR3 = x'00000010'; DECLARE LONG CONSTANT NSA$M_MNT_NOLABEL = x'00000020'; DECLARE LONG CONSTANT NS !A$M_MNT_NOWRITE = x'00000040'> DECLARE LONG CONSTANT NSA$M_MNT_OVR_ACCESS = x'00000080'; DECLARE LONG CONSTANT NSA$M_MNT_OVR_EXP = x'00000100'= DECLARE LONG CONSTANT NSA$M_MNT_OVR_IDENT = x'00000200'= DECLARE LONG CONSTANT NSA$M_MNT_OVR_SETID = x'00000400'= DECLARE LONG CONSTANT NSA$M_MNT_READCHECK = x'00000800'9 DECLARE LONG CONSTANT NSA$M_MNT_SHARE = x'00001000'; DECLARE LONG CONSTANT NSA$M_MNT_MESSAGE = x'00002000': DECLARE LONG CONSTANT NSA$M_ "MNT_SYSTEM = x'00004000'> DECLARE LONG CONSTANT NSA$M_MNT_WRITECHECK = x'00008000'= DECLARE LONG CONSTANT NSA$M_MNT_WRITETHRU = x'00010000'; DECLARE LONG CONSTANT NSA$M_MNT_NOCACHE = x'00020000'< DECLARE LONG CONSTANT NSA$M_MNT_OVR_LOCK = x'00040000'< DECLARE LONG CONSTANT NSA$M_MNT_NOMNTVER = x'00080000'< DECLARE LONG CONSTANT NSA$M_MNT_NOUNLOAD = x'00100000'C DECLARE LONG CONSTANT NSA$M_MNT_TAPE_DATA_WRITE = x'00200000': DECLARE LONG CONSTANT NSA$M_ #MNT_NOCOPY = x'00400000': DECLARE LONG CONSTANT NSA$M_MNT_NOAUTO = x'00800000'< DECLARE LONG CONSTANT NSA$M_MNT_INIT_ALL = x'01000000'= DECLARE LONG CONSTANT NSA$M_MNT_INIT_CONT = x'02000000'< DECLARE LONG CONSTANT NSA$M_MNT_OVR_VOLO = x'04000000'< DECLARE LONG CONSTANT NSA$M_MNT_INTERCHG = x'08000000'; DECLARE LONG CONSTANT NSA$M_MNT_CLUSTER = x'10000000'= DECLARE LONG CONSTANT NSA$M_MNT_NOREBUILD = x'20000000'> DECLARE LONG CONSTANT NSA$M_MNT_OVR_SH $AMEM = x'40000000'= DECLARE LONG CONSTANT NSA$M_MNT_MULTI_VOL = x'80000000'- DECLARE LONG CONSTANT NSA$s_fill_16 = 8 record fill_16 variant case/ BASIC$QUADWORD NSA$Q_MOUNT_FLAGS case" group NSA$r_fill_17 BYTE MNT_FOREIGN_bits ( 6 ) ! COMMENT ADDED BY SDL - MNT_FOREIGN_bits contains bits MNT_FOREIGN through fill_18& end group NSA$r_fill_17 end variant end record % fill_16 U DECLARE LONG CONSTANT NSA$C_MNT_MAX_CODE = 47 ! # of mount bits ( plus one ) ! Define dismount flags.W DECLARE LONG CONSTANT NSA$C_DMT_MAX_CODE = 5 ! # of dismount bits ( plus one )< DECLARE LONG CONSTANT NSA$M_DMT_NOUNLOAD = x'00000001'8 DECLARE LONG CONSTANT NSA$M_DMT_UNIT = x'00000002'9 DECLARE LONG CONSTANT NSA$M_DMT_ABORT = x'00000004'; DECLARE LONG CONSTANT NSA$M_DMT_CLUSTER = x'00000008'- DECLARE LONG CONSTANT NSA$s_fill&_19 = 4 record fill_19 variant case( LONG NSA$L_DISMOUNT_FLAGS case" group NSA$r_fill_20 BYTE DMT_NOUNLOAD_bits ! COMMENT ADDED BY SDL - DMT_NOUNLOAD_bits contains bits DMT_NOUNLOAD through fill_21& end group NSA$r_fill_20 end variant end record fill_19 < ! Define network authorization file modification codes.2 DECLARE LONG CONSTANT NSA$C_NETPROXY_ADD = 15 ' DECLARE LONG CONSTANT NSA$C_NETPROXY_DELETE = 25 DECLARE LONG CONSTANT NSA$C_NETPROXY_MODIFY = 32 DECLARE LONG CONSTANT NSA$C_NETPROXY_NCP = 47 DECLARE LONG CONSTANT NSA$C_NETPROXY_SHUTDOWN = 56 DECLARE LONG CONSTANT NSA$C_NETPROXY_STARTUP = 65 DECLARE LONG CONSTANT NSA$C_NETPROXY_CREATE = 77 DECLARE LONG CONSTANT NSA$C_NETPROXY_MAX_CODE = 8R ! Define object access codes. This table must parallel the object type codesQ ! defined in $ACEDEF (in STAR (DEFAE.SDL). Any additional objects must appearP ! in both places. These same subtype codes are shared for all of the otherD ! object message type codes (CREATE, DELETE, MODIFY, DEACCESS).1 DECLARE LONG CONSTANT NSA$C_FILE_ACCESS = 13 DECLARE LONG CONSTANT NSA$C_DEVICE_ACCESS = 22 DECLARE LONG CONSTANT NSA$C_QUEUE_ACCESS = 30 DECLARE LONG CONSTANT NSA$C_CEF_ACCESS = 40 DECLARE LONG CONSTANT NSA$C_LNM_ACCESS = 54 DECLARE LONG CONSTANT NSA$C_PROCESS_ACCE )SS = 63 DECLARE LONG CONSTANT NSA$C_GRPGBL_ACCESS = 73 DECLARE LONG CONSTANT NSA$C_SYSGBL_ACCESS = 87 DECLARE LONG CONSTANT NSA$C_CAPABILITY_ACCESS = 93 DECLARE LONG CONSTANT NSA$C_EVENT_ACCESS = 102 DECLARE LONG CONSTANT NSA$C_LOCK_ACCESS = 114 DECLARE LONG CONSTANT NSA$C_VOLUME_ACCESS = 126 DECLARE LONG CONSTANT NSA$C_OBJECT_MAX_CODE = 13; ! Define system authorization file modification codes.0 DECLARE LONG CONSTANT NSA$C_SYSUAF_ADD = 11 * DECLARE LONG CONSTANT NSA$C_SYSUAF_COPY = 23 DECLARE LONG CONSTANT NSA$C_SYSUAF_DELETE = 33 DECLARE LONG CONSTANT NSA$C_SYSUAF_MODIFY = 43 DECLARE LONG CONSTANT NSA$C_SYSUAF_RENAME = 55 DECLARE LONG CONSTANT NSA$C_SYSUAF_MAX_CODE = 61 ! Define rights database modification codes.0 DECLARE LONG CONSTANT NSA$C_RDB_ADD_ID = 10 DECLARE LONG CONSTANT NSA$C_RDB_CREATE = 22 DECLARE LONG CONSTANT NSA$C_RDB_GRANT_ID = 34 DECLARE LONG CONSTANT NSA$C_RD +B_MOD_HOLDER = 40 DECLARE LONG CONSTANT NSA$C_RDB_MOD_ID = 50 DECLARE LONG CONSTANT NSA$C_RDB_REM_ID = 63 DECLARE LONG CONSTANT NSA$C_RDB_REVOKE_ID = 72 DECLARE LONG CONSTANT NSA$C_RDB_MAX_CODE = 8- ! Define enhanced privilege audit codes.T DECLARE LONG CONSTANT NSA$C_PRVAUD_SUCCESS = 1 ! Successful use of privilegeW DECLARE LONG CONSTANT NSA$C_PRVAUD_FAILURE = 2 ! Event due to privilege failure5 DECLARE LONG CONSTANT NSA$C_PRVAUD_MAX_CODE = 3& , ! Define system time audit codes.M DECLARE LONG CONSTANT NSA$C_SYSTIM_SET = 1 ! Explicit setting of timeJ DECLARE LONG CONSTANT NSA$C_SYSTIM_CAL = 2 ! Calibration from todr5 DECLARE LONG CONSTANT NSA$C_SYSTIM_MAX_CODE = 3! ! Define SYSGEN audit codes.R DECLARE LONG CONSTANT NSA$C_SYSGEN_SET = 1 ! Sysgen parameter modification5 DECLARE LONG CONSTANT NSA$C_SYSGEN_MAX_CODE = 2/ ! Define the create object event subtypes.B DECLARE LONG CONSTANT NS -A$C_OBJ_CREATE = 1 ! Create object5 DECLARE LONG CONSTANT NSA$C_CREATE_MAX_CODE = 2/ ! Define the delete object event subtypes.B DECLARE LONG CONSTANT NSA$C_OBJ_DELETE = 1 ! Delete object5 DECLARE LONG CONSTANT NSA$C_DELETE_MAX_CODE = 2/ ! Define the access object event subtypes.B DECLARE LONG CONSTANT NSA$C_OBJ_ACCESS = 1 ! Access object5 DECLARE LONG CONSTANT NSA$C_ACCESS_MAX_CODE = 21 ! Define the deaccess object event subtypes.F DECLAR.E LONG CONSTANT NSA$C_OBJ_DEACCESS = 1 ! Deaccess object7 DECLARE LONG CONSTANT NSA$C_DEACCESS_MAX_CODE = 20 ! Define connection message event subtypes.H DECLARE LONG CONSTANT NSA$C_CNX_REQUEST = 1 ! Connection requestH DECLARE LONG CONSTANT NSA$C_CNX_ACCEPT = 2 ! Connection acceptedH DECLARE LONG CONSTANT NSA$C_CNX_REJECT = 3 ! Connection rejectedP DECLARE LONG CONSTANT NSA$C_CNX_DISCONNECT = 4 ! Connection disconnectedU DECLARE LONG CONSTANT NSA$C_/CNX_ABORT = 5 ! Connection aborted by third-partyW DECLARE LONG CONSTANT NSA$C_CNX_DECNET_CREATE = 6 ! DECnet logical link created\ DECLARE LONG CONSTANT NSA$C_CNX_DECNET_DELETE = 7 ! DECnet logical link disconnectedM DECLARE LONG CONSTANT NSA$C_CNX_IPC_OPEN = 8 ! IPC association openedN DECLARE LONG CONSTANT NSA$C_CNX_IPC_CLOSE = 9 ! IPC association closedW DECLARE LONG CONSTANT NSA$C_CNX_INC_REQUEST = 10 ! Incomming connection requestU DECLARE LONG0 CONSTANT NSA$C_CNX_INC_ACCEPT = 11 ! Connection request acceptedU DECLARE LONG CONSTANT NSA$C_CNX_INC_REJECT = 12 ! Connection request rejected^ DECLARE LONG CONSTANT NSA$C_CNX_INC_DISCONNECT = 13 ! Incoming connection disconnectedc DECLARE LONG CONSTANT NSA$C_CNX_INC_ABORT = 14 ! Incoming connection aborted by third-party3 DECLARE LONG CONSTANT NSA$C_CNX_MAX_CODE = 15H DECLARE LONG CONSTANT NSA$C_NCP_COMMAND = 1 ! NCP command issued2 DECLARE LONG CON1STANT NSA$C_NCP_MAX_CODE = 2C DECLARE LONG CONSTANT NSA$C_PRC_CREPRC = 1 ! Create processC DECLARE LONG CONSTANT NSA$C_PRC_DELPRC = 2 ! Delete processL DECLARE LONG CONSTANT NSA$C_PRC_SCHDWK = 3 ! Schedule process wakeupJ DECLARE LONG CONSTANT NSA$C_PRC_CANWAK = 4 ! Cancel process wakeup? DECLARE LONG CONSTANT NSA$C_PRC_WAKE = 5 ! Wake processD DECLARE LONG CONSTANT NSA$C_PRC_SUSPND = 6 ! Suspend processC DECLARE LONG CONSTANT NSA$C_PRC_RESUME =2 7 ! Resume processF DECLARE LONG CONSTANT NSA$C_PRC_GRANTID = 8 ! Grant identifierG DECLARE LONG CONSTANT NSA$C_PRC_REVOKID = 9 ! Revoke identifierT DECLARE LONG CONSTANT NSA$C_PRC_GETJPI = 10 ! Get job or process informationF DECLARE LONG CONSTANT NSA$C_PRC_FORCEX = 11 ! Force image exitV DECLARE LONG CONSTANT NSA$C_PRC_SIGPRC = 12 ! Signal process ( undocumented )J DECLARE LONG CONSTANT NSA$C_PRC_SETPRI = 13 ! Set process priorityc DECLARE 3LONG CONSTANT NSA$C_PRC_PRCTERM = 14 ! Detect process termination ( undocumented )3 DECLARE LONG CONSTANT NSA$C_PRC_MAX_CODE = 19W DECLARE LONG CONSTANT NSA$C_INSTANTIATE_ORB = 1 ! Create an instance of an ORB % ! the profile may, or may not, ! present in the database.I DECLARE LONG CONSTANT NSA$C_DISTRIBUTE_ORB = 2 ! ORB distribution[ DECLARE LONG CONSTANT NSA$C_OBJECT_AUDIT_CHANGE = 3 ! Change in audit/alarm vectorsS DECLARE LONG CONSTANT NS4A$C_DISTRIBUTE_NOTICE = 4 ! Notify agents of change ! used for objects which! ! provide permanent storage5 DECLARE LONG CONSTANT NSA$C_OBJSRV_MAX_CODE = 57 ! Define distributed authentication subtypes here.c DECLARE LONG CONSTANT NSA$C_AUTH_NETWORK_LOGIN = 2 ! authenticated network login a DECLARE LONG CONSTANT NSA$C_AUTH_RENEW_LOGIN = 3 ! authentication credential renewal b DECLARE LONG CONSTANT NSA$C_AUTH_INIT_SEC_CTX = 4 ! initia5te security context a DECLARE LONG CONSTANT NSA$C_AUTH_ACC_SEC_CTX = 5 ! accept security context f DECLARE LONG CONSTANT NSA$C_AUTH_INSTALL_DEF_CRED = 6 ! install application credential handle b DECLARE LONG CONSTANT NSA$C_AUTH_ACQUIRE_CRED = 7 ! acquire credential handle ` DECLARE LONG CONSTANT NSA$C_AUTH_GRANT_CRED = 8 ! grant credential to another process b DECLARE LONG CONSTANT NSA$C_AUTH_RELEASE_CRED = 9 ! release cr6edential handle b DECLARE LONG CONSTANT NSA$C_AUTH_DEL_SEC_CTX = 10 ! delete security context e DECLARE LONG CONSTANT NSA$C_AUTH_PROC_CTX_TOKEN = 11 ! process context token ] DECLARE LONG CONSTANT NSA$C_AUTH_VERIFY = 12 ! verify signature C DECLARE LONG CONSTANT NSA$C_AUTH_SIGN = 13 ! sign a messageC DECLARE LONG CONSTANT NSA$C_AUTH_SEAL = 14 ! seal a messageG DECLARE LONG CONSTANT NSA$C_AU7TH_UNSEAL = 15 ! unseal a messageb DECLARE LONG CONSTANT NSA$C_CA_STARTUP = 16 ! the certification authority has been startedY DECLARE LONG CONSTANT NSA$C_CA_EXIT = 17 ! the certification authority has exited[ DECLARE LONG CONSTANT NSA$C_CA_ADD_DIRECTORY = 18 ! a name directory has been addedV DECLARE LONG CONSTANT NSA$C_CA_ADD_PRINCIPAL = 19 ! a principal has been added] DECLARE LONG CONSTANT NSA$C_CA_LINK_DIRECTORY = 20 ! two directories have been linked8i DECLARE LONG CONSTANT NSA$C_CA_CHANGE_LINK = 21 ! a link between two directories has been changedz DECLARE LONG CONSTANT NSA$C_CA_CHANGE_PRINCIPAL = 22 ! a principal's keypair/password or duration has been changed` DECLARE LONG CONSTANT NSA$C_CA_REMOVE_DIRECTORY = 23 ! a name directory has been removed[ DECLARE LONG CONSTANT NSA$C_CA_REMOVE_PRINCIPAL = 24 ! a principal has been removed` DECLARE LONG CONSTANT NSA$C_CA_CERTIFICATE_DELETED = 25 ! a certificate 9has been deletedr DECLARE LONG CONSTANT NSA$C_CA_REVOKED_CERT_FOUND = 26 ! a revoked certificate has been read from the CSS e DECLARE LONG CONSTANT NSA$C_CA_PASSWORD_CHANGE = 27 ! the password to the CA has been changed[ DECLARE LONG CONSTANT NSA$C_CSS_OBJECT_CREATED = 28 ! a CSS object has been created[ DECLARE LONG CONSTANT NSA$C_CSS_OBJECT_DELETED = 29 ! a CSS object has been deleteda DECLARE LONG CONSTANT NSA$C_CSS_CERTIFICATE_DELETED = 30 ! a certificate: has been deletedo DECLARE LONG CONSTANT NSA$C_CSS_CREDENTIAL_READ = 31 ! a principal's permanent credential has been readj DECLARE LONG CONSTANT NSA$C_CSS_CERTIFICATE_ADDED = 32 ! a certificate has been added to an object DECLARE LONG CONSTANT NSA$C_CSS_CREDENTIAL_WRITTEN = 33 ! an encrypted permanent credential has been added to an objectm DECLARE LONG CONSTANT NSA$C_CSS_USER_CHANGED_PASSWORD = 34 ! a principal has changed his/her passwordy DECLARE LONG CON;STANT NSA$C_CSS_UPDATED_SECONDARY = 35 ! a CSS secondary has been updated from the local databasew DECLARE LONG CONSTANT NSA$C_CSS_DATABASE_UPDATED = 36 ! a secondary CSS has updated its database from a primaryc DECLARE LONG CONSTANT NSA$C_CSS_STARTED = 37 ! the CSS server has been successfully started` DECLARE LONG CONSTANT NSA$C_CSS_WINDOW_OPEN = 38 ! the CSS access window has been openedb DECLARE LONG CONSTANT NSA$C_CSS_WINDOW_CLOSED = 39 ! the CSS access window< has been closedg DECLARE LONG CONSTANT NSA$C_CSS_LOCTABLE_UPDATED = 40 ! the CSS location table has been updated4 DECLARE LONG CONSTANT NSA$C_AUTH_MAX_CODE = 41 ! Define data packet formatM DECLARE LONG CONSTANT NSA$C_PKT_ACCESS_DESIRED = 1 ! Access requestedB DECLARE LONG CONSTANT NSA$C_PKT_ACCOUNT = 2 ! Account nameK DECLARE LONG CONSTANT NSA$C_PKT_ALARM_NAME = 3 ! Alarm journal nameQ DECLARE LONG CONSTANT NSA$C_PKT_APPL_DATA = 4 ! Application =supplied dataE DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_FLAGS = 5 ! Audit flagsK DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_NAME = 6 ! Audit journal nameN DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_NAME = 7 ! SCS system node nameV DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_ID = 8 ! SCS system node identificationi DECLARE LONG CONSTANT NSA$C_PKT_DEVICE_NAME = 9 ! Primary device name on which the volume residesS DECLARE LONG CONSTANT NSA$C_PKT_DISMOUNT_FLAGS = 10 ! Vo>lume dismount flagsF DECLARE LONG CONSTANT NSA$C_PKT_HOLDER_NAME = 11 ! Holder nameK DECLARE LONG CONSTANT NSA$C_PKT_HOLDER_OWNER = 12 ! Holder owner IDR DECLARE LONG CONSTANT NSA$C_PKT_ID_ATTRIBUTES = 13 ! Identifier attributesF DECLARE LONG CONSTANT NSA$C_PKT_ID_NAME = 14 ! Identifier nameM DECLARE LONG CONSTANT NSA$C_PKT_ID_NEW_NAME = 15 ! Identifer new nameH DECLARE LONG CONSTANT NSA$C_PKT_ID_VALUE = 16 ! Identifier valueP DECLARE LONG CONST?ANT NSA$C_PKT_ID_NEW_VALUE = 17 ! Identifier new value_ DECLARE LONG CONSTANT NSA$C_PKT_IDENTIFIERS_USED = 18 ! Identifiers used to gain accessZ DECLARE LONG CONSTANT NSA$C_PKT_IMAGE_NAME = 19 ! Name of the image being executedJ DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_FILE = 20 ! Installed fileJ DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_FLAGS = 21 ! INSTALL flagsO DECLARE LONG CONSTANT NSA$C_PKT_INSTALL_PRIVS = 22 ! INSTALL privilegesd DECLARE LONG CONST@ANT NSA$C_PKT_LOGICAL_NAME = 23 ! Logical name associated with the device.M DECLARE LONG CONSTANT NSA$C_PKT_MOUNT_FLAGS = 24 ! Volume mount flagsO DECLARE LONG CONSTANT NSA$C_PKT_NEW_DATA = 25 ! Data after modificationS DECLARE LONG CONSTANT NSA$C_PKT_FILE_ID = 26 ! File identification ( FID )d DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_MIN_CLASS = 27 ! Minimum object access classificationd DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_MAX_CLASS = 28 ! Maximum objectA access classificationL DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_NAME = 29 ! The object's name\ DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_NAME_2 = 30 ! Secondary ( path ) object named DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_OWNER = 31 ! Owner identifier ( UIC ) of the processc DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_PROTECTION = 32 ! UIC based protection of the objectM DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_TYPE = 33 ! Object's type codeU DECLARE LONG CONSTANBT NSA$C_PKT_ORIGINAL_DATA = 34 ! Data before modificationR DECLARE LONG CONSTANT NSA$C_PKT_PARENT_ID = 35 ! PID of the parent processN DECLARE LONG CONSTANT NSA$C_PKT_PARENT_NAME = 36 ! Parent process nameY DECLARE LONG CONSTANT NSA$C_PKT_PARENT_OWNER = 37 ! Parent process owner ( UIC )V DECLARE LONG CONSTANT NSA$C_PKT_PARENT_USERNAME = 38 ! Parent process usernameH DECLARE LONG CONSTANT NSA$C_PKT_PASSWORD = 39 ! Breakin passwordX DECLARE LONG CONSTANCT NSA$C_PKT_PRIVS_USED = 40 ! Privileges used to gain accessM DECLARE LONG CONSTANT NSA$C_PKT_PROCESS_ID = 41 ! Current process PIDP DECLARE LONG CONSTANT NSA$C_PKT_PROCESS_NAME = 42 ! Current process nameW DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODE_ID = 43 ! Node ID of network sourceN DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODENAME = 44 ! Remote nodenameN DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_USERNAME = 45 ! Remote usernameY DECLARE LONG CONSTANT NSDA$C_PKT_SUBJECT_CLASS = 46 ! Process current access classS DECLARE LONG CONSTANT NSA$C_PKT_SUBJECT_OWNER = 47 ! Process owner ( UIC )M DECLARE LONG CONSTANT NSA$C_PKT_FINAL_STATUS = 48 ! Completion statusM DECLARE LONG CONSTANT NSA$C_PKT_TERMINAL = 49 ! Process terminal nameS DECLARE LONG CONSTANT NSA$C_PKT_TIME_STAMP = 50 ! When the event took placeG DECLARE LONG CONSTANT NSA$C_PKT_UAF_ADD = 51 ! UAF record addedL DECLARE LONG CONSTANT NSA$C_PKT_EUAF_DELETE = 52 ! UAF record removedM DECLARE LONG CONSTANT NSA$C_PKT_UAF_MODIFY = 53 ! UAF record modifiedI DECLARE LONG CONSTANT NSA$C_PKT_UAF_COPY = 54 ! UAF record copiedM DECLARE LONG CONSTANT NSA$C_PKT_UAF_FIELDS = 55 ! UAF fields modifiedJ DECLARE LONG CONSTANT NSA$C_PKT_USERNAME = 56 ! Requestor usernameM DECLARE LONG CONSTANT NSA$C_PKT_UAF_SOURCE = 57 ! UAF source usernameL DECLARE LONG CONSTANT NSA$C_PKT_UAF_RENAME = 58 ! UAF record renamFedU DECLARE LONG CONSTANT NSA$C_PKT_VOLUME_NAME = 59 ! Mount/dismount volume nameN DECLARE LONG CONSTANT NSA$C_PKT_VOLUME_SET_NAME = 60 ! Volume set nameL DECLARE LONG CONSTANT NSA$C_PKT_SERVER_ACCOUNT = 61 ! Server accountP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SYSTEM_ID = 62 ! Server system idT DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SYSTEM_NAME = 63 ! Server system nameP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_FINAL_STATUS = 64 ! Server statusR GDECLARE LONG CONSTANT NSA$C_PKT_SERVER_IMAGE_NAME = 65 ! Server image nameP DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_ID = 66 ! Server parent id_ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_OWNER = 67 ! Server parent owner ( UIC )\ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PARENT_NAME = 68 ! Server parent process nameR DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PROCESS_ID = 69 ! Server process idV DECLARE LONG CONSTANT NSA$C_PKT_SERVER_PROCESS_NAME = 70 ! SerHver process nameY DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SUBJECT_CLASS = 71 ! Server classificationY DECLARE LONG CONSTANT NSA$C_PKT_SERVER_SUBJECT_OWNER = 72 ! Server owner ( UIC )N DECLARE LONG CONSTANT NSA$C_PKT_SERVER_TERMINAL = 73 ! Server terminalQ DECLARE LONG CONSTANT NSA$C_PKT_SERVER_TIME_STAMP = 74 ! Server timestampN DECLARE LONG CONSTANT NSA$C_PKT_SERVER_USERNAME = 75 ! Server usernameU DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_DISABLE = 76 ! I Audit event disable maskS DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_ENABLE = 77 ! Audit event enable maskU DECLARE LONG CONSTANT NSA$C_PKT_ALARM_DISABLE = 78 ! Alarm event disable maskS DECLARE LONG CONSTANT NSA$C_PKT_ALARM_ENABLE = 79 ! Alarm event enable maskQ DECLARE LONG CONSTANT NSA$C_PKT_NOP = 80 ! Nop ( for static item lists )X DECLARE LONG CONSTANT NSA$C_PKT_REPLY_MAILBOX = 81 ! Message acknowledge mailbox^ DECLARE LONG CONSTANT NSA$C_PKT_DEFAULJT_USERNAME = 82 ! NETPROXY default proxy accountZ DECLARE LONG CONSTANT NSA$C_PKT_LOCAL_USERNAME = 83 ! NETPROXY local proxy accountc DECLARE LONG CONSTANT NSA$C_PKT_FIELD_NAME = 84 ! Name of ( NEW_DATA/ORIGINAL_DATA ) fieldS DECLARE LONG CONSTANT NSA$C_PKT_LISTENER_DEVICE = 85 ! Listener device nameQ DECLARE LONG CONSTANT NSA$C_PKT_FIELD_TITLE_STR = 86 ! Field title stringO DECLARE LONG CONSTANT NSA$C_PKT_FIELD_DATA_STR = 87 ! Field data stringY DEKCLARE LONG CONSTANT NSA$C_PKT_MESSAGE_TYPE_STR = 88 ! Event message type string^ DECLARE LONG CONSTANT NSA$C_PKT_EVENT_TYPE = 89 ! Event message type ( $AUDIT_EVENT )d DECLARE LONG CONSTANT NSA$C_PKT_EVENT_SUBTYPE = 90 ! Event message subtype ( $AUDIT_EVENT )^ DECLARE LONG CONSTANT NSA$C_PKT_EVENT_FACILITY = 91 ! Event facility ( $AUDIT_EVENT )l DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_ENTRY = 92 ! Directory entry associated with XQP operationM DECLARE LONGL CONSTANT NSA$C_PKT_DIRECTORY_ID = 93 ! Directory file-idR ! The following three blocks of codes are obsolete with V5.4. With V5.4, oneN ! should use the NSA$W_FACILITY field for layered product and/or customerR ! audit messages. These symbols must not be reused as versions of SeVMS (and) ! fiends) depend on their existence.H DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_1 = 94 ! obsolete codes5 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_2 = 955 DECLARE LONG CON MSTANT NSA$C_PKT_CUSTOMER_3 = 965 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_4 = 975 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_5 = 985 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_6 = 996 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_7 = 1006 DECLARE LONG CONSTANT NSA$C_PKT_CUSTOMER_8 = 101D DECLARE LONG CONSTANT NSA$C_PKT_CSS_1 = 102 ! obsolete codes1 DECLARE LONG CONSTANT NSA$C_PKT_CSS_2 = 1031 DECLARE LONG CONSTANT NSA$C_PKT_CSS_3 = 1041 DECLARE LONG N CONSTANT NSA$C_PKT_CSS_4 = 1051 DECLARE LONG CONSTANT NSA$C_PKT_CSS_5 = 1061 DECLARE LONG CONSTANT NSA$C_PKT_CSS_6 = 1071 DECLARE LONG CONSTANT NSA$C_PKT_CSS_7 = 1081 DECLARE LONG CONSTANT NSA$C_PKT_CSS_8 = 109C DECLARE LONG CONSTANT NSA$C_PKT_LP_1 = 110 ! obsolete codes0 DECLARE LONG CONSTANT NSA$C_PKT_LP_2 = 1110 DECLARE LONG CONSTANT NSA$C_PKT_LP_3 = 1120 DECLARE LONG CONSTANT NSA$C_PKT_LP_4 = 1130 DECLARE LONG CONSTANT NSA$C_PKT_LP_5 = O 1140 DECLARE LONG CONSTANT NSA$C_PKT_LP_6 = 1150 DECLARE LONG CONSTANT NSA$C_PKT_LP_7 = 1160 DECLARE LONG CONSTANT NSA$C_PKT_LP_8 = 117 ! End of obsolete codes.P DECLARE LONG CONSTANT NSA$C_PKT_ALARM_FAILURE = 118 ! Alarm failure modeP DECLARE LONG CONSTANT NSA$C_PKT_AUDIT_FAILURE = 119 ! Audit failure modeJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_0 = 120 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_1 = 121 ! Reserved for SeVMSJ P DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_2 = 122 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_3 = 123 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_4 = 124 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_5 = 125 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_6 = 126 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_7 = 127 ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_8 = 128 Q ! Reserved for SeVMSJ DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_9 = 129 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_10 = 130 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_11 = 131 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_12 = 132 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_13 = 133 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_14 = 134 ! Reserved for SeVMSK DECLARE LORNG CONSTANT NSA$C_PKT_SEVMS_15 = 135 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_16 = 136 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_17 = 137 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SEVMS_18 = 138 ! Reserved for SeVMSK DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_TIME = 139 ! Snapshot timec DECLARE LONG CONSTANT NSA$C_PKT_TRANSPORT_NAME = 140 ! Transport name ( IPC, DECnet, SMI )U DECLARE LONG CONSTANT NSSA$C_PKT_DECNET_LINK_ID = 141 ! DECnet logical link IDU DECLARE LONG CONSTANT NSA$C_PKT_DECNET_OBJECT_NAME = 142 ! DECnet object nameY DECLARE LONG CONSTANT NSA$C_PKT_DECNET_OBJECT_NUMBER = 143 ! DECnet object numberU DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_LINK_ID = 144 ! Remote logical link IDI DECLARE LONG CONSTANT NSA$C_PKT_COMMAND_LINE = 145 ! Command lineU DECLARE LONG CONSTANT NSA$C_PKT_ASSOCIATION_NAME = 146 ! IPC association name` DECLARE LOTNG CONSTANT NSA$C_PKT_REM_ASSOCIATION_NAME = 147 ! IPC remote association nameO DECLARE LONG CONSTANT NSA$C_PKT_CONNECTION_ID = 148 ! IPC connection IDO DECLARE LONG CONSTANT NSA$C_PKT_MESSAGE = 149 ! Associated message codeV DECLARE LONG CONSTANT NSA$C_PKT_MSGFILNAM = 150 ! Associated message file name^ DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_POINTER = 151 ! Object container ( Directory )[ DECLARE LONG CONSTANT NSA$C_PKT_ID_NEW_ATTRIBUTES = 152 ! IdentifierU new attributesJ DECLARE LONG CONSTANT NSA$C_PKT_SYSTIM_NEW = 153 ! New system timeJ DECLARE LONG CONSTANT NSA$C_PKT_SYSTIM_OLD = 154 ! Old system time^ DECLARE LONG CONSTANT NSA$C_PKT_PARAMS_WRITE = 155 ! SYSGEN filename for WRITE commandf DECLARE LONG CONSTANT NSA$C_PKT_PARAMS_INUSE = 156 ! SYSGEN parameter set name for USE command[ DECLARE LONG CONSTANT NSA$C_PKT_MATCHING_ACE = 157 ! ACE granting or denying access\ DECLARE LONG CONSTANT NSA$C_PKT_SNAPVSHOT_SAVE_FILNAM = 158 ! Snapshot save file nameP DECLARE LONG CONSTANT NSA$C_PKT_MAILBOX_UNIT = 159 ! Mailbox unit numberT DECLARE LONG CONSTANT NSA$C_PKT_NEW_OWNER = 160 ! New process owner ( UIC )Q DECLARE LONG CONSTANT NSA$C_PKT_NEW_PRIORITY = 161 ! New process priorityQ DECLARE LONG CONSTANT NSA$C_PKT_OLD_PRIORITY = 162 ! Old process priorityM DECLARE LONG CONSTANT NSA$C_PKT_DIAG_FUNC = 163 ! Diagnostic functionP DECLARE LONG CONSTANT NSA$C_PKT_WRESOURCE_NAME = 164 ! Lock resource nameV DECLARE LONG CONSTANT NSA$C_PKT_LNM_TABLE_NAME = 165 ! Logical name table name^ DECLARE LONG CONSTANT NSA$C_PKT_LNM_PARENT_NAME = 166 ! Parent logical name table nameP DECLARE LONG CONSTANT NSA$C_PKT_EFC_NAME = 167 ! Event Flag Cluster nameb DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_CLASS = 168 ! Target process classificationT DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_ID = 169 ! Target process PIDW DECLXARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_NAME = 170 ! Target process nameb DECLARE LONG CONSTANT NSA$C_PKT_TARGET_PROCESS_OWNER = 171 ! Target process owner ( UIC )O DECLARE LONG CONSTANT NSA$C_PKT_TARGET_USERNAME = 172 ! Target usernameM DECLARE LONG CONSTANT NSA$C_PKT_NEW_PRIVILEGES = 173 ! New privilegesM DECLARE LONG CONSTANT NSA$C_PKT_OLD_PRIVILEGES = 174 ! Old privilegesY DECLARE LONG CONSTANT NSA$C_PKT_REMOTE_NODE_FULLNAME = 175 ! Remote node fulYlnameG DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_2 = 176 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_3 = 177 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_4 = 178 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_5 = 179 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_6 = 180 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_7 = 181 ! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_8 = 182 Z! Unused packet G DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_9 = 183 ! Unused packet H DECLARE LONG CONSTANT NSA$C_PKT_UNUSED_10 = 184 ! Unused packet P DECLARE LONG CONSTANT NSA$C_PKT_PRIVS_MISSING = 185 ! Privileges missingU DECLARE LONG CONSTANT NSA$C_PKT_TARGET_DEVICE_NAME = 186 ! Target device nameP DECLARE LONG CONSTANT NSA$C_PKT_SECTION_NAME = 187 ! Global section nameT DECLARE LONG CONSTANT NSA$C_PKT_ID_VALUE_ASCII = 188 ! ID value via $IDTOASCN[ DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_CLASS = 189 ! Object class nameP DECLARE LONG CONSTANT NSA$C_PKT_SUPPRESS = 190 ! Suppress supplied itemsY DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_BOOTFILE = 191 ! Snapshot boot file namef DECLARE LONG CONSTANT NSA$C_PKT_SOURCE_PROCESS_ID = 192 ! Source process ID ( impersonation )M DECLARE LONG CONSTANT NSA$C_PKT_REQUEST_NUMBER = 193 ! Request numberG DECLARE LONG CONSTANT NSA$C_PKT_ACCESS_MODE = 194 ! Access m\odeW DECLARE LONG CONSTANT NSA$C_PKT_SYSTEM_SERVICE_NAME = 195 ! System service name] DECLARE LONG CONSTANT NSA$C_PKT_NEW_AUTH_PRIVILEGES = 196 ! New authorized privileges] DECLARE LONG CONSTANT NSA$C_PKT_OLD_AUTH_PRIVILEGES = 197 ! Old authorized privilegesY DECLARE LONG CONSTANT NSA$C_PKT_NEW_DEF_PRIVILEGES = 198 ! New default privilegesY DECLARE LONG CONSTANT NSA$C_PKT_OLD_DEF_PRIVILEGES = 199 ! Old default privilegesM DECLARE LONG CONSTANT NSA$C_]PKT_NEW_PROCESS_ID = 200 ! New process ID\ DECLARE LONG CONSTANT NSA$C_PKT_NEW_PROCESS_OWNER = 201 ! New process owner ( UIC )Q DECLARE LONG CONSTANT NSA$C_PKT_NEW_PROCESS_NAME = 202 ! New process nameM DECLARE LONG CONSTANT NSA$C_PKT_NEW_IMAGE_NAME = 203 ! New image nameI DECLARE LONG CONSTANT NSA$C_PKT_NEW_USERNAME = 204 ! New usernameO DECLARE LONG CONSTANT NSA$C_PKT_DEACCESS_KEY = 205 ! Deaccess audit keyW DECLARE LONG CONSTANT NSA$C_PKT_OBJECT^_RIGHTS_BLOCK = 206 ! Object Rights Blockl DECLARE LONG CONSTANT NSA$C_PKT_OBJSRV_COMPLETE = 207 ! Object service processing completion routineK DECLARE LONG CONSTANT NSA$C_PKT_TLV_ORB = 208 ! Object distributionX DECLARE LONG CONSTANT NSA$C_PKT_FILE_NAME = 209 ! File name ( volume auditing )R DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_NAME = 210 ! Directory file name[ DECLARE LONG CONSTANT NSA$C_PKT_SEQUENCE_KEY = 211 ! Sequence key ( XQP auditing ) _! DAS item codes.> DECLARE LONG CONSTANT NSA$C_PKT_PRINCIPAL_FULLNAME = 212; DECLARE LONG CONSTANT NSA$C_PKT_TARGET_FULLNAME = 213; DECLARE LONG CONSTANT NSA$C_PKT_SOURCE_FULLNAME = 214< DECLARE LONG CONSTANT NSA$C_PKT_DESIRED_FULLNAME = 215< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_USERNAME = 216< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_FULLNAME = 217< DECLARE LONG CONSTANT NSA$C_PKT_CLAIMED_NODENAME = 2184 DECLARE LONG CONSTANT NSA$C_PKT_TIME_REQ = 2 `194 DECLARE LONG CONSTANT NSA$C_PKT_TIME_REC = 2205 DECLARE LONG CONSTANT NSA$C_PKT_REQ_FLAGS = 2215 DECLARE LONG CONSTANT NSA$C_PKT_RET_FLAGS = 2228 DECLARE LONG CONSTANT NSA$C_PKT_LIFETIME_REQ = 2238 DECLARE LONG CONSTANT NSA$C_PKT_LIFETIME_REC = 2246 DECLARE LONG CONSTANT NSA$C_PKT_CRED_USAGE = 225: DECLARE LONG CONSTANT NSA$C_PKT_CONTEXT_HANDLE = 2265 DECLARE LONG CONSTANT NSA$C_PKT_QOP_STATE = 2276 DECLARE LONG CONSTANT NSA$C_PKT_CONF_STATE a = 228= DECLARE LONG CONSTANT NSA$C_PKT_DELEG_CRED_HANDLE = 2298 DECLARE LONG CONSTANT NSA$C_PKT_MAJOR_STATUS = 2301 DECLARE LONG CONSTANT NSA$C_PKT_DAS_1 = 2311 DECLARE LONG CONSTANT NSA$C_PKT_DAS_2 = 2321 DECLARE LONG CONSTANT NSA$C_PKT_DAS_3 = 2331 DECLARE LONG CONSTANT NSA$C_PKT_DAS_4 = 2341 DECLARE LONG CONSTANT NSA$C_PKT_DAS_5 = 2351 DECLARE LONG CONSTANT NSA$C_PKT_DAS_6 = 2361 DECLARE LONG CONSTANT NSA$C_PKT_DAS_7 = 2371 DECLAR bE LONG CONSTANT NSA$C_PKT_DAS_8 = 2381 DECLARE LONG CONSTANT NSA$C_PKT_DAS_9 = 2392 DECLARE LONG CONSTANT NSA$C_PKT_DAS_10 = 240; DECLARE LONG CONSTANT NSA$C_PKT_STATE_FILE_NAME = 241> DECLARE LONG CONSTANT NSA$C_PKT_DIRECTORY_FULLNAME = 242= DECLARE LONG CONSTANT NSA$C_PKT_FROM_DIR_FULLNAME = 243; DECLARE LONG CONSTANT NSA$C_PKT_TO_DIR_FULLNAME = 244; DECLARE LONG CONSTANT NSA$C_PKT_ISSUER_FULLNAME = 245< DECLARE LONG CONSTANT NSA$C_PKT_SUBJECT_FU cLLNAME = 2467 DECLARE LONG CONSTANT NSA$C_PKT_CERTIF_TYPE = 247> DECLARE LONG CONSTANT NSA$C_PKT_CSS_SECONDARY_NAME = 248? DECLARE LONG CONSTANT NSA$C_PKT_CSS_OBJECT_FULLNAME = 249< DECLARE LONG CONSTANT NSA$C_PKT_CSS_REQUEST_FROM = 250< DECLARE LONG CONSTANT NSA$C_PKT_CSS_PRIMARY_NAME = 251@ DECLARE LONG CONSTANT NSA$C_PKT_CERTIF_SERIAL_NUMBER = 252; DECLARE LONG CONSTANT NSA$C_PKT_WINDOW_END_TIME = 253J DECLARE LONG CONSTANT NSA$C_PKT_LOG_CLOSED = 2d54 ! log file closedJ DECLARE LONG CONSTANT NSA$C_PKT_LOG_OPENED = 255 ! log file openedW DECLARE LONG CONSTANT NSA$C_PKT_IDENTIFIERS_MISSING = 256 ! identifiers missing@ DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIELD_NAME = 257? DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_ORIG_DATA = 258> DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_NEW_DATA = 259A DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIELD_TITLE = 260@ DECLARE LONG CONSTANT NSA$C_PKT_SENSITIVE_FIEL eD_DATA = 261E DECLARE LONG CONSTANT NSA$C_PKT_MAX_CODE = 262 ! Must be last4 DECLARE LONG CONSTANT NSA$C_PKT_HDR_LENGTH = 44 DECLARE LONG CONSTANT NSA$K_PKT_HDR_LENGTH = 4H DECLARE LONG CONSTANT NSA$_ACCESS_DESIRED = 1 ! Access requested= DECLARE LONG CONSTANT NSA$_ACCOUNT = 2 ! Account nameF DECLARE LONG CONSTANT NSA$_ALARM_NAME = 3 ! Alarm journal nameL DECLARE LONG CONSTANT NSA$_APPL_DATA = 4 ! Application supplied data@ DECLARE LONG CONSTfANT NSA$_AUDIT_FLAGS = 5 ! Audit flagsF DECLARE LONG CONSTANT NSA$_AUDIT_NAME = 6 ! Audit journal nameI DECLARE LONG CONSTANT NSA$_SYSTEM_NAME = 7 ! SCS system node nameQ DECLARE LONG CONSTANT NSA$_SYSTEM_ID = 8 ! SCS system node identificationd DECLARE LONG CONSTANT NSA$_DEVICE_NAME = 9 ! Primary device name on which the volume residesN DECLARE LONG CONSTANT NSA$_DISMOUNT_FLAGS = 10 ! Volume dismount flagsA DECLARE LONG CONSTANT NSA$_HOLDER_NAME = 11 g ! Holder nameF DECLARE LONG CONSTANT NSA$_HOLDER_OWNER = 12 ! Holder owner IDM DECLARE LONG CONSTANT NSA$_ID_ATTRIBUTES = 13 ! Identifier attributesA DECLARE LONG CONSTANT NSA$_ID_NAME = 14 ! Identifier nameH DECLARE LONG CONSTANT NSA$_ID_NEW_NAME = 15 ! Identifer new nameC DECLARE LONG CONSTANT NSA$_ID_VALUE = 16 ! Identifier valueK DECLARE LONG CONSTANT NSA$_ID_NEW_VALUE = 17 ! Identifier new valueZ DECLARE LONG CONSTANT NSA$_IDENTIFIERS_UhSED = 18 ! Identifiers used to gain accessU DECLARE LONG CONSTANT NSA$_IMAGE_NAME = 19 ! Name of the image being executedE DECLARE LONG CONSTANT NSA$_INSTALL_FILE = 20 ! Installed fileE DECLARE LONG CONSTANT NSA$_INSTALL_FLAGS = 21 ! INSTALL flagsJ DECLARE LONG CONSTANT NSA$_INSTALL_PRIVS = 22 ! INSTALL privileges_ DECLARE LONG CONSTANT NSA$_LOGICAL_NAME = 23 ! Logical name associated with the device.H DECLARE LONG CONSTANT NSA$_MOUNT_FLAGS = 24 ! iVolume mount flagsJ DECLARE LONG CONSTANT NSA$_NEW_DATA = 25 ! Data after modificationN DECLARE LONG CONSTANT NSA$_FILE_ID = 26 ! File identification ( FID )_ DECLARE LONG CONSTANT NSA$_OBJECT_MIN_CLASS = 27 ! Minimum object access classification_ DECLARE LONG CONSTANT NSA$_OBJECT_MAX_CLASS = 28 ! Maximum object access classificationG DECLARE LONG CONSTANT NSA$_OBJECT_NAME = 29 ! The object's nameW DECLARE LONG CONSTANT NSA$_OBJECT_NAME_2 = 30 ! Secojndary ( path ) object name_ DECLARE LONG CONSTANT NSA$_OBJECT_OWNER = 31 ! Owner identifier ( UIC ) of the process^ DECLARE LONG CONSTANT NSA$_OBJECT_PROTECTION = 32 ! UIC based protection of the objectH DECLARE LONG CONSTANT NSA$_OBJECT_TYPE = 33 ! Object's type codeP DECLARE LONG CONSTANT NSA$_ORIGINAL_DATA = 34 ! Data before modificationM DECLARE LONG CONSTANT NSA$_PARENT_ID = 35 ! PID of the parent processI DECLARE LONG CONSTANT NSA$_PARENT_NAME =k 36 ! Parent process nameT DECLARE LONG CONSTANT NSA$_PARENT_OWNER = 37 ! Parent process owner ( UIC )Q DECLARE LONG CONSTANT NSA$_PARENT_USERNAME = 38 ! Parent process usernameC DECLARE LONG CONSTANT NSA$_PASSWORD = 39 ! Breakin passwordS DECLARE LONG CONSTANT NSA$_PRIVS_USED = 40 ! Privileges used to gain accessH DECLARE LONG CONSTANT NSA$_PROCESS_ID = 41 ! Current process PIDK DECLARE LONG CONSTANT NSA$_PROCESS_NAME = 42 ! Current process namelR DECLARE LONG CONSTANT NSA$_REMOTE_NODE_ID = 43 ! Node ID of network sourceI DECLARE LONG CONSTANT NSA$_REMOTE_NODENAME = 44 ! Remote nodenameI DECLARE LONG CONSTANT NSA$_REMOTE_USERNAME = 45 ! Remote usernameT DECLARE LONG CONSTANT NSA$_SUBJECT_CLASS = 46 ! Process current access classN DECLARE LONG CONSTANT NSA$_SUBJECT_OWNER = 47 ! Process owner ( UIC )H DECLARE LONG CONSTANT NSA$_FINAL_STATUS = 48 ! Completion statusH DECLARE LONG CONSTANT mNSA$_TERMINAL = 49 ! Process terminal nameN DECLARE LONG CONSTANT NSA$_TIME_STAMP = 50 ! When the event took placeB DECLARE LONG CONSTANT NSA$_UAF_ADD = 51 ! UAF record addedG DECLARE LONG CONSTANT NSA$_UAF_DELETE = 52 ! UAF record removedH DECLARE LONG CONSTANT NSA$_UAF_MODIFY = 53 ! UAF record modifiedD DECLARE LONG CONSTANT NSA$_UAF_COPY = 54 ! UAF record copiedH DECLARE LONG CONSTANT NSA$_UAF_FIELDS = 55 ! UAF fields modifiedE DECLARE LONG CnONSTANT NSA$_USERNAME = 56 ! Requestor usernameG DECLARE LONG CONSTANT NSA$_UAF_SOURCE = 57 ! Secondary usernameG DECLARE LONG CONSTANT NSA$_UAF_RENAME = 58 ! UAF record renamedP DECLARE LONG CONSTANT NSA$_VOLUME_NAME = 59 ! Mount/dismount volume nameI DECLARE LONG CONSTANT NSA$_VOLUME_SET_NAME = 60 ! Volume set nameG DECLARE LONG CONSTANT NSA$_SERVER_ACCOUNT = 61 ! Server accountK DECLARE LONG CONSTANT NSA$_SERVER_SYSTEM_ID = 62 ! Server system iodO DECLARE LONG CONSTANT NSA$_SERVER_SYSTEM_NAME = 63 ! Server system nameK DECLARE LONG CONSTANT NSA$_SERVER_FINAL_STATUS = 64 ! Server statusM DECLARE LONG CONSTANT NSA$_SERVER_IMAGE_NAME = 65 ! Server image nameK DECLARE LONG CONSTANT NSA$_SERVER_PARENT_ID = 66 ! Server parent idQ DECLARE LONG CONSTANT NSA$_SERVER_PARENT_OWNER = 67 ! Server parent ownerW DECLARE LONG CONSTANT NSA$_SERVER_PARENT_NAME = 68 ! Server parent process nameM DECLpARE LONG CONSTANT NSA$_SERVER_PROCESS_ID = 69 ! Server process idQ DECLARE LONG CONSTANT NSA$_SERVER_PROCESS_NAME = 70 ! Server process nameT DECLARE LONG CONSTANT NSA$_SERVER_SUBJECT_CLASS = 71 ! Server classificationV DECLARE LONG CONSTANT NSA$_SERVER_SUBJECT_OWNER = 72 ! Server owner ( 'UIC' )I DECLARE LONG CONSTANT NSA$_SERVER_TERMINAL = 73 ! Server terminalL DECLARE LONG CONSTANT NSA$_SERVER_TIME_STAMP = 74 ! Server timestampI DECLARE LONG CONSTqANT NSA$_SERVER_USERNAME = 75 ! Server usernameP DECLARE LONG CONSTANT NSA$_AUDIT_DISABLE = 76 ! Audit event disable maskN DECLARE LONG CONSTANT NSA$_AUDIT_ENABLE = 77 ! Audit event enable maskP DECLARE LONG CONSTANT NSA$_ALARM_DISABLE = 78 ! Alarm event disable maskN DECLARE LONG CONSTANT NSA$_ALARM_ENABLE = 79 ! Alarm event enable maskM DECLARE LONG CONSTANT NSA$_NOP = 80 ! Nop ( for static item lists )S DECLARE LONG CONSTANT NSA$_REPLY_MAILBOX = 8r1 ! Message acknowledge mailboxY DECLARE LONG CONSTANT NSA$_DEFAULT_USERNAME = 82 ! NETPROXY proxy default accountU DECLARE LONG CONSTANT NSA$_LOCAL_USERNAME = 83 ! NETPROXY proxy local account^ DECLARE LONG CONSTANT NSA$_FIELD_NAME = 84 ! Name of ( NEW_DATA/ORIGINAL_DATA ) fieldN DECLARE LONG CONSTANT NSA$_LISTENER_DEVICE = 85 ! Listener device nameL DECLARE LONG CONSTANT NSA$_FIELD_TITLE_STR = 86 ! Field title stringJ DECLARE LONG CONSTANT NSA$_FIEsLD_DATA_STR = 87 ! Field data stringT DECLARE LONG CONSTANT NSA$_MESSAGE_TYPE_STR = 88 ! Event message type stringY DECLARE LONG CONSTANT NSA$_EVENT_TYPE = 89 ! Event message type ( $AUDIT_EVENT )_ DECLARE LONG CONSTANT NSA$_EVENT_SUBTYPE = 90 ! Event message subtype ( $AUDIT_EVENT )Y DECLARE LONG CONSTANT NSA$_EVENT_FACILITY = 91 ! Event facility ( $AUDIT_EVENT )g DECLARE LONG CONSTANT NSA$_DIRECTORY_ENTRY = 92 ! Directory entry associated with XQP oper tationH DECLARE LONG CONSTANT NSA$_DIRECTORY_ID = 93 ! Directory file-idC DECLARE LONG CONSTANT NSA$_CUSTOMER_1 = 94 ! obsolete codes0 DECLARE LONG CONSTANT NSA$_CUSTOMER_2 = 950 DECLARE LONG CONSTANT NSA$_CUSTOMER_3 = 960 DECLARE LONG CONSTANT NSA$_CUSTOMER_4 = 970 DECLARE LONG CONSTANT NSA$_CUSTOMER_5 = 980 DECLARE LONG CONSTANT NSA$_CUSTOMER_6 = 991 DECLARE LONG CONSTANT NSA$_CUSTOMER_7 = 1001 DECLARE LONG CONSTANT NSA$_CUSTOMER_8 = 101? u DECLARE LONG CONSTANT NSA$_CSS_1 = 102 ! obsolete codes, DECLARE LONG CONSTANT NSA$_CSS_2 = 103, DECLARE LONG CONSTANT NSA$_CSS_3 = 104, DECLARE LONG CONSTANT NSA$_CSS_4 = 105, DECLARE LONG CONSTANT NSA$_CSS_5 = 106, DECLARE LONG CONSTANT NSA$_CSS_6 = 107, DECLARE LONG CONSTANT NSA$_CSS_7 = 108, DECLARE LONG CONSTANT NSA$_CSS_8 = 109> DECLARE LONG CONSTANT NSA$_LP_1 = 110 ! obsolete codes+ DECLARE LONG CONSTANT NSA$_LP_2 = 111+ DE vCLARE LONG CONSTANT NSA$_LP_3 = 112+ DECLARE LONG CONSTANT NSA$_LP_4 = 113+ DECLARE LONG CONSTANT NSA$_LP_5 = 114+ DECLARE LONG CONSTANT NSA$_LP_6 = 115+ DECLARE LONG CONSTANT NSA$_LP_7 = 116+ DECLARE LONG CONSTANT NSA$_LP_8 = 117K DECLARE LONG CONSTANT NSA$_ALARM_FAILURE = 118 ! Alarm failure modeK DECLARE LONG CONSTANT NSA$_AUDIT_FAILURE = 119 ! Audit failure modeE DECLARE LONG CONSTANT NSA$_SEVMS_0 = 120 ! Reserved for SeVMSE DECLwARE LONG CONSTANT NSA$_SEVMS_1 = 121 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_2 = 122 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_3 = 123 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_4 = 124 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_5 = 125 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_6 = 126 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_7 = 127 ! Reserved for SeVMSE DECLARxE LONG CONSTANT NSA$_SEVMS_8 = 128 ! Reserved for SeVMSE DECLARE LONG CONSTANT NSA$_SEVMS_9 = 129 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_10 = 130 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_11 = 131 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_12 = 132 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_13 = 133 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_14 = 134 ! Reserved for SeVMSF DECLARE yLONG CONSTANT NSA$_SEVMS_15 = 135 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_16 = 136 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_17 = 137 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SEVMS_18 = 138 ! Reserved for SeVMSF DECLARE LONG CONSTANT NSA$_SNAPSHOT_TIME = 139 ! Snapshot timeX DECLARE LONG CONSTANT NSA$_TRANSPORT_NAME = 140 ! Transport name ( DECwindows )P DECLARE LONG CONSTANT NSA$_DECNET_LINK_ID = 141 ! DECnet logiczal link IDP DECLARE LONG CONSTANT NSA$_DECNET_OBJECT_NAME = 142 ! DECnet object nameT DECLARE LONG CONSTANT NSA$_DECNET_OBJECT_NUMBER = 143 ! DECnet object numberP DECLARE LONG CONSTANT NSA$_REMOTE_LINK_ID = 144 ! Remote logical link IDD DECLARE LONG CONSTANT NSA$_COMMAND_LINE = 145 ! Command lineP DECLARE LONG CONSTANT NSA$_ASSOCIATION_NAME = 146 ! IPC association name[ DECLARE LONG CONSTANT NSA$_REM_ASSOCIATION_NAME = 147 ! IPC remote association name{J DECLARE LONG CONSTANT NSA$_CONNECTION_ID = 148 ! IPC connection IDJ DECLARE LONG CONSTANT NSA$_MESSAGE = 149 ! Associated message codeQ DECLARE LONG CONSTANT NSA$_MSGFILNAM = 150 ! Associated message file nameY DECLARE LONG CONSTANT NSA$_OBJECT_POINTER = 151 ! Object container ( Directory )V DECLARE LONG CONSTANT NSA$_ID_NEW_ATTRIBUTES = 152 ! Identifier new attributesF DECLARE LONG CONSTANT NSA$_SYSTIM_NEW = 153 ! New system time F DECLARE LO|NG CONSTANT NSA$_SYSTIM_OLD = 154 ! Old system time 3 DECLARE LONG CONSTANT NSA$_PARAMS_WRITE = 1553 DECLARE LONG CONSTANT NSA$_PARAMS_INUSE = 156V DECLARE LONG CONSTANT NSA$_MATCHING_ACE = 157 ! ACE granting or denying accessW DECLARE LONG CONSTANT NSA$_SNAPSHOT_SAVE_FILNAM = 158 ! Snapshot save file nameK DECLARE LONG CONSTANT NSA$_MAILBOX_UNIT = 159 ! Mailbox unit numberO DECLARE LONG CONSTANT NSA$_NEW_OWNER = 160 ! New process owner ( UIC )L } DECLARE LONG CONSTANT NSA$_NEW_PRIORITY = 161 ! New process priorityL DECLARE LONG CONSTANT NSA$_OLD_PRIORITY = 162 ! Old process priorityH DECLARE LONG CONSTANT NSA$_DIAG_FUNC = 163 ! Diagnostic functionK DECLARE LONG CONSTANT NSA$_RESOURCE_NAME = 164 ! Lock resource nameQ DECLARE LONG CONSTANT NSA$_LNM_TABLE_NAME = 165 ! Logical name table nameY DECLARE LONG CONSTANT NSA$_LNM_PARENT_NAME = 166 ! Parent logical name table nameK DECLARE LONG CONSTAN~T NSA$_EFC_NAME = 167 ! Event Flag Cluster name] DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_CLASS = 168 ! Target process classificationO DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_ID = 169 ! Target process PIDR DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_NAME = 170 ! Target process name] DECLARE LONG CONSTANT NSA$_TARGET_PROCESS_OWNER = 171 ! Target process owner ( UIC )J DECLARE LONG CONSTANT NSA$_TARGET_USERNAME = 172 ! Target usernameH DECLARE LONG CONSTANT NSA$_NEW_PRIVILEGES = 173 ! New privilegesH DECLARE LONG CONSTANT NSA$_OLD_PRIVILEGES = 174 ! Old privilegesT DECLARE LONG CONSTANT NSA$_REMOTE_NODE_FULLNAME = 175 ! Remote node fullnameE DECLARE LONG CONSTANT NSA$_UNUSED_2 = 176 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_3 = 177 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_4 = 178 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_5 = 179 ! Unused item code E  DECLARE LONG CONSTANT NSA$_UNUSED_6 = 180 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_7 = 181 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_8 = 182 ! Unused item code E DECLARE LONG CONSTANT NSA$_UNUSED_9 = 183 ! Unused item code F DECLARE LONG CONSTANT NSA$_UNUSED_10 = 184 ! Unused item code K DECLARE LONG CONSTANT NSA$_PRIVS_MISSING = 185 ! Privileges missingP DECLARE LONG CONSTANT NSA$_TARGET_DEVICE_NAME = 186 ! Target device nameK DECLARE LONG CONSTANT NSA$_SECTION_NAME = 187 ! Global section nameO DECLARE LONG CONSTANT NSA$_ID_VALUE_ASCII = 188 ! ID value via $IDTOASCI DECLARE LONG CONSTANT NSA$_OBJECT_CLASS = 189 ! Object class nameK DECLARE LONG CONSTANT NSA$_SUPPRESS = 190 ! Suppress supplied itemsT DECLARE LONG CONSTANT NSA$_SNAPSHOT_BOOTFILE = 191 ! Snapshot boot file namea DECLARE LONG CONSTANT NSA$_SOURCE_PROCESS_ID = 192 ! Source process ID ( impersonation )H DECLARE LONG CONSTANT NSA$_REQUEST_NUMBER = 193 ! Request numberB DECLARE LONG CONSTANT NSA$_ACCESS_MODE = 194 ! Access modeR DECLARE LONG CONSTANT NSA$_SYSTEM_SERVICE_NAME = 195 ! System service nameX DECLARE LONG CONSTANT NSA$_NEW_AUTH_PRIVILEGES = 196 ! New authorized privilegesX DECLARE LONG CONSTANT NSA$_OLD_AUTH_PRIVILEGES = 197 ! Old authorized privilegesT DECLARE LONG CONSTANT NSA$_NEW_DEF_PRIVILEGES = 198 ! New default privilegesT DECLARE LONG CONSTANT NSA$_OLD_DEF_PRIVILEGES = 199 ! Old default privilegesH DECLARE LONG CONSTANT NSA$_NEW_PROCESS_ID = 200 ! New process IDW DECLARE LONG CONSTANT NSA$_NEW_PROCESS_OWNER = 201 ! New process owner ( UIC )L DECLARE LONG CONSTANT NSA$_NEW_PROCESS_NAME = 202 ! New process nameH DECLARE LONG CONSTANT NSA$_NEW_IMAGE_NAME = 203 ! New image nameD DECLARE LONG CONSTANT NSA$_NEW_USERNAME = 204 ! New usernameJ DECLARE LONG CONSTANT NSA$_DEACCESS_KEY = 205 ! Deaccess audit keyR DECLARE LONG CONSTANT NSA$_OBJECT_RIGHTS_BLOCK = 206 ! Object Rights Blockg DECLARE LONG CONSTANT NSA$_OBJSRV_COMPLETE = 207 ! Object service processing completion routineF DECLARE LONG CONSTANT NSA$_TLV_ORB = 208 ! Object distributionS DECLARE LONG CONSTANT NSA$_FILE_NAME = 209 ! File name ( volume auditing )M DECLARE LONG CONSTANT NSA$_DIRECTORY_NAME = 210 ! Directory file nameV DECLARE LONG CONSTANT NSA$_SEQUENCE_KEY = 211 ! Sequence key ( XQP auditing ) ! DAS item codes.9 DECLARE LONG CONSTANT NSA$_PRINCIPAL_FULLNAME = 2126 DECLARE LONG CONSTANT NSA$_TARGET_FULLNAME = 2136 DECLARE LONG CONSTANT NSA$_SOURCE_FULLNAME = 2147 DECLARE LONG CONSTANT NSA$_DESIRED_FULLNAME = 2157 DECLARE LONG CONSTANT NSA$_CLAIMED_USERNAME = 2167 DECLARE LONG CONSTANT NSA$_CLAIMED_FULLNAME = 2177 DECLARE LONG CONSTANT NSA$_CLAIMED_NODENAME = 218/ DECLARE LONG CONSTANT NSA$_TIM E_REQ = 219/ DECLARE LONG CONSTANT NSA$_TIME_REC = 2200 DECLARE LONG CONSTANT NSA$_REQ_FLAGS = 2210 DECLARE LONG CONSTANT NSA$_RET_FLAGS = 2223 DECLARE LONG CONSTANT NSA$_LIFETIME_REQ = 2233 DECLARE LONG CONSTANT NSA$_LIFETIME_REC = 2241 DECLARE LONG CONSTANT NSA$_CRED_USAGE = 2255 DECLARE LONG CONSTANT NSA$_CONTEXT_HANDLE = 2260 DECLARE LONG CONSTANT NSA$_QOP_STATE = 2271 DECLARE LONG CONSTANT NSA$_CONF_STATE = 2288 DECLARE LONG CONST ANT NSA$_DELEG_CRED_HANDLE = 2293 DECLARE LONG CONSTANT NSA$_MAJOR_STATUS = 230, DECLARE LONG CONSTANT NSA$_DAS_1 = 231, DECLARE LONG CONSTANT NSA$_DAS_2 = 232, DECLARE LONG CONSTANT NSA$_DAS_3 = 233, DECLARE LONG CONSTANT NSA$_DAS_4 = 234, DECLARE LONG CONSTANT NSA$_DAS_5 = 235, DECLARE LONG CONSTANT NSA$_DAS_6 = 236, DECLARE LONG CONSTANT NSA$_DAS_7 = 237, DECLARE LONG CONSTANT NSA$_DAS_8 = 238, DECLARE LONG CONSTANT NSA$_DAS_9 = 239-  DECLARE LONG CONSTANT NSA$_DAS_10 = 2406 DECLARE LONG CONSTANT NSA$_STATE_FILE_NAME = 2419 DECLARE LONG CONSTANT NSA$_DIRECTORY_FULLNAME = 242> DECLARE LONG CONSTANT NSA$_FROM_DIRECTORY_FULLNAME = 243< DECLARE LONG CONSTANT NSA$_TO_DIRECTORY_FULLNAME = 2446 DECLARE LONG CONSTANT NSA$_ISSUER_FULLNAME = 2457 DECLARE LONG CONSTANT NSA$_SUBJECT_FULLNAME = 2462 DECLARE LONG CONSTANT NSA$_CERTIF_TYPE = 2479 DECLARE LONG CONSTANT NSA$_CSS_SECONDARY_NAME = 248: DECLARE LONG CONSTANT NSA$_CSS_OBJECT_FULLNAME = 2497 DECLARE LONG CONSTANT NSA$_CSS_REQUEST_FROM = 2507 DECLARE LONG CONSTANT NSA$_CSS_PRIMARY_NAME = 251; DECLARE LONG CONSTANT NSA$_CERTIF_SERIAL_NUMBER = 2526 DECLARE LONG CONSTANT NSA$_WINDOW_END_TIME = 253E DECLARE LONG CONSTANT NSA$_LOG_CLOSED = 254 ! log file closedE DECLARE LONG CONSTANT NSA$_LOG_OPENED = 255 ! log file openedR DECLARE LONG CONSTANT NSA$_IDENTIFIERS_MISSING = 256 !  identifiers missing; DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_NAME = 257: DECLARE LONG CONSTANT NSA$_SENSITIVE_ORIG_DATA = 2589 DECLARE LONG CONSTANT NSA$_SENSITIVE_NEW_DATA = 259< DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_TITLE = 260; DECLARE LONG CONSTANT NSA$_SENSITIVE_FIELD_DATA = 261D DECLARE LONG CONSTANT NSA$_MAX_ITM_CODE = 262 ! Must be lastV DECLARE LONG CONSTANT NSA$_CHAIN = 65535 ! For $AUDIT_EVENT item list chaining3 DECLARE LONG C ONSTANT NSA$_CLIENT_ACCOUNT = 25 DECLARE LONG CONSTANT NSA$_CLIENT_SYSTEM_ID = 87 DECLARE LONG CONSTANT NSA$_CLIENT_SYSTEM_NAME = 79 DECLARE LONG CONSTANT NSA$_CLIENT_FINAL_STATUS = 487 DECLARE LONG CONSTANT NSA$_CLIENT_IMAGE_NAME = 196 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_ID = 359 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_OWNER = 378 DECLARE LONG CONSTANT NSA$_CLIENT_PARENT_NAME = 367 DECLARE LONG CONSTANT NSA$_CLIENT_PROCESS_ID = 419 DE CLARE LONG CONSTANT NSA$_CLIENT_PROCESS_NAME = 42: DECLARE LONG CONSTANT NSA$_CLIENT_SUBJECT_CLASS = 46: DECLARE LONG CONSTANT NSA$_CLIENT_SUBJECT_OWNER = 475 DECLARE LONG CONSTANT NSA$_CLIENT_TERMINAL = 497 DECLARE LONG CONSTANT NSA$_CLIENT_TIME_STAMP = 505 DECLARE LONG CONSTANT NSA$_CLIENT_USERNAME = 560 DECLARE LONG CONSTANT NSA$S_NSADATADEF = 5 record NSADATADEF? WORD NSA$W_PACKET_SIZE ! Data packet size? WORD NSA$W_PA CKET_TYPE ! Data packet typeC BYTE NSA$R_PACKET_DATA ! Start of packet data& ! Define $AUDIT_EVENT item codes. end record NSADATADEF @ ! Define flag masks for NSA$EVENT_AUDIT supplied parameter.? ! Each bit set tells NSA$EVENT_AUDIT *not* to default that5 ! corresponding packet from the current process.< DECLARE LONG CONSTANT NSA$M_ACCOUNT_NAME = x'00000001'9 DECLARE LONG CONSTANT NSA$M_SYSTEM_ID = x'00000002'; DECLARE LONG CONSTANT NSA$M_SYSTEM_NAME = x'00000004'< DECLARE LONG CONSTANT NSA$M_FINAL_STATUS = x'00000008': DECLARE LONG CONSTANT NSA$M_IMAGE_NAME = x'00000010'9 DECLARE LONG CONSTANT NSA$M_PARENT_ID = x'00000020'< DECLARE LONG CONSTANT NSA$M_PARENT_OWNER = x'00000040'; DECLARE LONG CONSTANT NSA$M_PARENT_NAME = x'00000080': DECLARE LONG CONSTANT NSA$M_PROCESS_ID = x'00000100'< DECLARE LONG CONSTANT NSA$M_PROCESS_NAME = x'00000200'= DECLARE LONG CON STANT NSA$M_SUBJECT_CLASS = x'00000400'= DECLARE LONG CONSTANT NSA$M_SUBJECT_OWNER = x'00000800'8 DECLARE LONG CONSTANT NSA$M_TERMINAL = x'00001000': DECLARE LONG CONSTANT NSA$M_TIME_STAMP = x'00002000'8 DECLARE LONG CONSTANT NSA$M_USERNAME = x'00004000'? DECLARE LONG CONSTANT NSA$M_PARENT_USERNAME = x'00008000'- DECLARE LONG CONSTANT NSA$s_fill_22 = 4 record fill_22 variant case( LONG NSA$L_SUPPLIED_FLAGS  case" group NSA$r_fill_23 ! account ! system id! ! system name ! status ! image name ! parent id" ! parent owner) ! parent process name ! process id" ! process name$ ! classification# ! owner ('UIC') ! terminal  ! timestamp ! username% ! parent username{ WORD ACCOUNT_NAME_bits ! COMMENT ADDED BY SDL - ACCOUNT_NAME_bits contains bits ACCOUNT_NAME through & ! PARENT_USERNAME& end group NSA$r_fill_23 end variant end record fill_22 L ! Define the format of an audit server reply message. This defines theC ! format of the message written to any supplied reply mailbox.2 DECLARE LO NG CONSTANT NSA$C_REPLY_LENGTH = 42 DECLARE LONG CONSTANT NSA$K_REPLY_LENGTH = 41 DECLARE LONG CONSTANT NSA$S_NSAREPLYDEF = 4  ! U ! Define the structure of a message formating table entry. These entries defineV ! the order in which the data packets are displayed, and the manner in which they ! are formatted. ! H DECLARE LONG CONSTANT NSA$C_FMTINF_NONE = 0 ! No value to format[ DECLARE LONG CONSTANT NSA$C_FMTINF_LONG_VALUE = 1 ! Value is supplied as a longword[ DECLARE LONG CONSTANT NSA$C_FMTINF_IDENTIFIER = 2 ! Value supplied is an identifier` DECLARE LONG CONSTANT NSA$C_FMTINF_DATE = 3 ! Value supplied is address of quadword datej DECLARE LONG CONSTANT NSA$C_FMTINF_STRING = 4 ! String size ( count ) and address supplied to FAOb DECLARE LONG CONSTANT NSA$C_FMTINF_CLASSIFICATION = 5 ! Vector represents a classificationT DECLARE LONG CONSTANT NSA$C_FMTINF_SPECIAL = 6 ! Special processing requir edE DECLARE LONG CONSTANT NSA$M_FMTINF_CHECK_PREVIOUS = x'00000001'C DECLARE LONG CONSTANT NSA$M_FMTINF_NTH_NEW_LINE = x'00000002'? DECLARE LONG CONSTANT NSA$M_FMTINF_NOFORMAT = x'00000004'@ DECLARE LONG CONSTANT NSA$M_FMTINF_SENSITIVE = x'00000008'4 DECLARE LONG CONSTANT NSA$K_FMTINF_LENGTH = 284 DECLARE LONG CONSTANT NSA$C_FMTINF_LENGTH = 28% ! Define the format style codes.b DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_BRIEF = 1 ! Single line briefly formatted messageS DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_FULL = 2 ! Fully formatted messageU DECLARE LONG CONSTANT NSA$C_FORMAT_STYLE_PACKET_TYPE = 3 ! Packet type format4 ! Define classification string format constants\ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_SINGLE_SEC_STR = 3895 ! Simple secrecy string^ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_SINGLE_INT_STR = 1977 ! Simple integrity string] DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_RANGE_SEC_STR = 7801 ! Compound secrecy string_ DECLARE LONG CONSTANT NSA$C_FMTINF_MAX_RANGE_INT_STR = 3963 ! Compound integrity string0 DECLARE LONG CONSTANT NSA$S_FMTTBLDEF = 28 record FMTTBLDEFT LONG NSA$L_FMTINF_PACKET_NAME ! Address of the packet name descriptoru WORD NSA$W_FMTINF_PACKET_TYPE ! Define the type of packet represented by this entry ( NSA$C_PKT_xxx )T WORD NSA$W_FMTINF_OUTPUT_ORDER ! Define the order in the output bufferH LONG NSA$L_FMTINF_FAO_CTRSTR ! Normal FAO control stringa LONG NSA$L_FMTINF_CLIENT_FAO_CTRSTR ! FAO control string for client/server combinatione LONG NSA$L_FMTINF_NTH_FAO_CTRSTR ! FAO control string for the Nth packet of the same typeE BYTE NSA$B_FMTINF_DATA_TYPE ! Type of data to format group NSA$r_fill_24 variant case- BYTE NSA$B_FMTINF_FMT_FLAGS case% group NS A$r_fill_25B ! Check adjacency with previous output item> ! Force duplicate packets to a new line3 ! Don't format the packet(s)> ! Packet contains sensitive information{ BYTE FMTINF_CHECK_PREVIOUS_bits ! COMMENT ADDED BY SDL - FMTINF_CHECK_PREVIOUS_bits contains bits &( ! FMTINF_CHECK_PREVIOUS through fill_26) end group NSA$r_fill_25 end variant  end group NSA$r_fill_24L WORD NSA$W_FMTINF_SERVER_PKT ! Associated ( server ) packetL WORD NSA$W_FMTINF_INDENT ! Indent for multi-line packets5 WORD NSA$W_FMTINF_SPARE_1 ! Unused end record FMTTBLDEF  ! _ ! Define the structure of the format image callout block. This block is used to determinea ! which routines should be used to format event messages and event message data packets that4 ! are unknown to th e base VMS operating system. ! 4 DECLARE LONG CONSTANT NSA$K_IMGXFR_LENGTH = 534 DECLARE LONG CONSTANT NSA$C_IMGXFR_LENGTH = 531 DECLARE LONG CONSTANT NSA$S_FMTCALLDEF = 53 record FMTCALLDEFW LONG NSA$L_IMGXFR_FLINK ! Address of next entry ( must be first )\ LONG NSA$L_IMGXFR_BLINK ! Address of previous entry ( must be secomd )B WORD NSA$W_IMGXFR_SIZE ! Size of entry blockF WORD NSA$W_IMGXFR_FACILITY ! Facility code for imageI LONG NSA$L_IMGXFR_BASE_ORDER_OFFSET ! Base output order offset0 ! Start of sharable image routine addressesJ LONG NSA$A_IMGXFR_MESSAGE_INFO ! Message information routineH LONG NSA$A_IMGXFR_VALIDATE_PACKET ! Packet validation routineQ LONG NSA$A_IMGXFR_DISPLAY_INFO ! Packet display information routineL LONG NSA$A_IMGXFR_LINE_BREAK ! Line break processing routineP LONG NSA$A_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineO LONG NSA$A_IMGXFR_FORMAT_INFO ! Normal packet formatting routineC LONG NSA$A_IMGXFR_FORMAT_BRIEF ! Brief format routineL LONG NSA$A_IMGXFR_FORMAT_PACKET_TYPE ! Packet type format routineT LONG NSA$A_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routine. ! End of sharable image routine addressesN STRING NSA$T_IMGXFR_IMAGE_NAME ( 1 to 1 ) = 1 ! Start of image name end record FMTCALLDEF R ! The following structure defines the common argument block passed to all theG ! various formatting routines (which actually format information).@ DECLARE LONG CONSTANT NSA$M_FMTARG_SENSITIVE = x'00000001'D DECLARE LONG CONSTANT NSA$M_FMTARG_DISPLAY_TITLE = x'00000002'E DECLARE LONG CONSTANT NSA$M_FMTARG_CHECK_PREVIOUS = x'00000001'C DECLARE LONG CONSTANT NSA$M_FMTARG_NTH_NEW_LINE = x'00000002'? DECLARE LONG CONSTANT NSA$M_FMTARG _NOFORMAT = x'00000004'4 DECLARE LONG CONSTANT NSA$K_FMTARG_LENGTH = 364 DECLARE LONG CONSTANT NSA$C_FMTARG_LENGTH = 360 DECLARE LONG CONSTANT NSA$S_FMTARGDEF = 36 record FMTARGDEF group NSA$r_fill_27 variant case4 BASIC$QUADWORD NSA$Q_FMTARG_BUFFER case% group NSA$r_fill_28I WORD NSA$W_FMTARG_BUFFER_SIZE ! Output buffer size9 WORD NSA$W_ FMTARG_SPARE_1 ! UnusedO LONG NSA$A_FMTARG_BUFFER_POINTER ! Output buffer address) end group NSA$r_fill_28 end variant end group NSA$r_fill_27P WORD NSA$W_FMTARG_BUFFER_OFFSET ! Current position in output bufferR WORD NSA$W_FMTARG_BOL_OFFSET ! Offset to beginning of current line group NSA$r_fill_29 variant case8 BASIC$QUADWORD NSA$Q_FMTARG_TERMIN ATOR case% group NSA$r_fill_30L WORD NSA$W_FMTARG_TERM_SIZE ! Size of line terminator9 WORD NSA$W_FMTARG_SPARE_2 ! UnusedO LONG NSA$A_FMTARG_TERM_TEXT ! Address of terminator text) end group NSA$r_fill_30 end variant end group NSA$r_fill_29C WORD NSA$W_FMTARG_LINE_WIDTH ! Output display widthS WORD NSA$W_FMTARG_LINE_INDENT ! Positions to indent ( when needed )K LONG NSA$A_FMTARG_OUTPUT_ROUTINE ! Address of an output routine group NSA$r_fill_31 variant case) LONG NSA$L_FMTARG_FLAGS case% group NSA$r_fill_32( group NSA$r_fill_33 variant case6 WORD NSA$W_FMTARG_FLAGS_LOW case.  group NSA$r_fill_34G ! Packet contains sensitive information/ ! Display titlez BYTE FMTARG_SENSITIVE_bits ! COMMENT ADDED BY SDL - FMTARG_SENSITIVE_bits contains bits &# ! FMTARG_SENSITIVE through fill_352 end group NSA$r_fill_34# end variant, end group NSA$r_fill_33( group NSA$r_fill_36  variant case7 WORD NSA$W_FMTARG_FLAGS_HIGH case. group NSA$r_fill_37K ! Check adjacency with previous output itemG ! Force duplicate packets to a new line< ! Don't format the packet(s) BYTE FMTARG_CHECK_PREVIOUS_bits ! COMMENT ADDED BY SDL - FMTARG_CHEC K_PREVIOUS_bits contains bits &( ! FMTARG_CHECK_PREVIOUS through fill_382 end group NSA$r_fill_37# end variant, end group NSA$r_fill_36) end group NSA$r_fill_32 end variant end group NSA$r_fill_31@ LONG NSA$L_FMTARG_USER_CONTEXT ! User context cell end record FMTARGDEF U ! The following structure defines the transfer vector area for the format image.Y  DECLARE LONG CONSTANT NSA$C_IMGXFR_MESSAGE_INFO = 0 ! Message information routineZ DECLARE LONG CONSTANT NSA$C_IMGXFR_VALIDATE_PACKET = 1 ! Packet validation routine` DECLARE LONG CONSTANT NSA$C_IMGXFR_DISPLAY_INFO = 2 ! Packet display information routineY DECLARE LONG CONSTANT NSA$C_IMGXFR_LINE_BREAK = 3 ! Line break processing routinea DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_SPECIAL = 4 ! Special packet formatting routine] DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_INFO = 5 ! Normal packet formatting routineR DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_BRIEF = 6 ! Brief format routine^ DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_PACKET_TYPE = 7 ! Packet type format routinef DECLARE LONG CONSTANT NSA$C_IMGXFR_FORMAT_EVENT_TYPE = 8 ! Message type/subtype format routine1 DECLARE LONG CONSTANT NSA$S_FMTXFERDEF = 72 record FMTXFERDEFQ BASIC$QUADWORD NSA$R_IMGXFR_MESSAGE_INFO ! Message information routineR BASIC$QUADWORD NSA$R_IMGXFR_VALIDATE_PACKET ! Packet validation routineX BASIC$QUADWORD NSA$R_IMGXFR_DISPLAY_INFO ! Packet display information routineQ BASIC$QUADWORD NSA$R_IMGXFR_LINE_BREAK ! Line break processing routineY BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_SPECIAL ! Special packet formatting routineU BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_INFO ! Normal packet formatting routineJ BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_BRIEF ! Brief format  routineV BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_PACKET_TYPE ! Packet type format routine^ BASIC$QUADWORD NSA$R_IMGXFR_FORMAT_EVENT_TYPE ! Message type/subtype format routineU ! The following list of constants is used to index into the transfer vector area[ ! defined above. The structure definition and constant list must parallel each other. end record FMTXFERDEF  ! N ! Define block to hold access bitname information for a particular object ! I DECLARE LONG CONSTANT NSA$K_ACCNAM_LENGTH = 139 ! Length of block5 DECLARE LONG CONSTANT NSA$C_ACCNAM_LENGTH = 1394 DECLARE LONG CONSTANT NSA$S_FMTACCNAMDEF = 139 record FMTACCNAMDEFW LONG NSA$L_ACCNAM_FLINK ! Address of next entry ( must be first )\ LONG NSA$L_ACCNAM_BLINK ! Address of previous entry ( must be secomd )B WORD NSA$W_ACCNAM_SIZE ! Size of entry blockX LONG NSA$L_ACCNAM_CODES ( 1 t o 32 ) ! 32 pointers to access name descriptorsP STRING NSA$T_ACCNAM_OBJECT_TYPE ( 1 to 1 ) = 1 ! Start of object name end record FMTACCNAMDEF  ! [ ! Define the format of the message information block. This block defines some general= ! characteristics of messages for a particular facility. ! 3 DECLARE LONG CONSTANT NSA$K_MSGINF_LENGTH = 83 DECLARE LONG CONSTANT NSA$C_MSGINF_LENGTH = 80 DECLARE LONG CONSTANT NSA$S_MSGINFODEF = 8  record MSGINFODEFN LONG NSA$L_MSGINF_MAX_ORDER_OFFSET ! Maximum ( output ) line indexP LONG NSA$A_MSGINF_BRIEF_TITLE ! Address of brief format titleline end record MSGINFODEF  ! X ! Define the structure of a formatting table subtype entry. This entry consists ofG ! a description of the subtype as well as the name of the subtype. ! 3 DECLARE LONG CONSTANT NSA$K_SUBTBL_LENGTH = 83 DECLARE LONG CONSTANT NSA$C_SUBTBL_LENGTH = 82 DECLARE LONG CONSTANT NSA$S_SUBFMTTBLDEF = 8 record SUBFMTTBLDEF% group NSA$R_SUBTBL_OVERLAY_3 variant caseU LONG NSA$L_SUBTBL_DESCRIPTION ! Address of the description string caseT LONG NSA$L_SUBTBL_TABLE_SIZE ! Number of entries in the subtable end variant) end group NSA$R_SUBTBL_OVERLAY_3J LONG NSA$L_SUBTBL_MNEMONIC ! Mnemonic name for the ent ry end record SUBFMTTBLDEF 7 ! Define obsolete message types and subtypes here.0 DECLARE LONG CONSTANT NSA$C_MSG_NETUAF = 95 DECLARE LONG CONSTANT NSA$C_MSG_PRIV_AUDIT = 160 DECLARE LONG CONSTANT NSA$C_PRIV_AUDIT = 19 DECLARE LONG CONSTANT NSA$C_JOBCTL_QUEUE_ACCESS = 30 DECLARE LONG CONSTANT NSA$C_NETUAF_ADD = 13 DECLARE LONG CONSTANT NSA$C_NETUAF_DELETE = 23 DECLARE LONG CONSTANT NSA$C_NETUAF_MODIFY = 30 DECLARE LONG CONSTANT NSA$ C_NETUAF_NCP = 45 DECLARE LONG CONSTANT NSA$C_NETUAF_MAX_CODE = 8C ! Define obsolete packet types and item code equivalents here.4 DECLARE LONG CONSTANT NSA$C_PKT_OBJECT_ID = 26/ DECLARE LONG CONSTANT NSA$_OBJECT_ID = 26% ! Define packet pseudonyms here.4 DECLARE LONG CONSTANT NSA$C_PKT_PRIV_MASK = 22/ DECLARE LONG CONSTANT NSA$_PRIV_MASK = 225 DECLARE LONG CONSTANT NSA$C_PKT_PRIVILEGES = 220 DECLARE LONG CONSTANT NSA$_PRIVILEGES = 22; DECLARE LONG CONSTANT NSA$C_PKT_SNAPSHOT_FILNAM = 1586 DECLARE LONG CONSTANT NSA$_SNAPSHOT_FILNAM = 158: DECLARE LONG CONSTANT NSA$C_PKT_PERFORMANCE_NOP = 805 DECLARE LONG CONSTANT NSA$_PERFORMANCE_NOP = 80: DECLARE LONG CONSTANT NSA$C_PKT_SUPPLIED_FLAGS = 1905 DECLARE LONG CONSTANT NSA$_SUPPLIED_FLAGS = 190 wwcX`PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! Security Auditing record definitions ! -N DECLARE LONG CONSTANT NSA$C_REC_MAXLENGTH = 1024 ! Maximum record sizeN DECLARE LONG CONSTANT NSA$K_REC_MAXLENGTH = 1024 ! Max imum record sizeN DECLARE LONG CONSTANT NSA$S_REC_MAXLENGTH = 1024 ! Maximum record size ! +$ ! Audit record type definitions ! -@ DECLARE LONG CONSTANT NSA$K_RECTYP_FIL = 1 ! File accessB DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF = 2 ! System UAFC DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF = 3 ! Network UAFM DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB = 4 ! Login breakin detectionF DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI = 5 ! Successful loginC DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF = 6 ! Login failure< DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO = 7 ! LogoutF DECLARE LONG CONSTANT NSA$K_RECTYP_VOL = 8 ! Volume operationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_GBL = 9 ! Global section accessK DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL = 10 ! INSTALL operationsS DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS = 11 ! Rights database operationsL DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT = 12 ! SET AUDIT operations0 DECLARE LONG CONSTANT NSA$K_RECTYPNUM = 12 ! +. ! Audit record subtype and ID definitions ! - ! File accessP DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_SUCC = 1 ! Successful file accessM DECLARE LONG CONSTANT NSA$K_RECTYP_FIL_FAIL = 2 ! File access failure3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_FIL = 28 DECLARE LONG CONSTANT NSA$K_RECID_FIL_SUCC = 655379 DECLARE LONG CONSTANT NSA$K_RECID_FIL_FAIL = 131073 ! Globa l section accessZ DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_SUCC = 1 ! Successful Global section accessW DECLARE LONG CONSTANT NSA$K_RECTYP_GBL_FAIL = 2 ! Global section access failure3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_GBL = 28 DECLARE LONG CONSTANT NSA$K_RECID_GBL_SUCC = 655459 DECLARE LONG CONSTANT NSA$K_RECID_GBL_FAIL = 131081 ! System UAFV DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_ADD = 1 ! System UAF record additionV DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_DEL = 2 ! System UAF record deletionZ DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_MOD = 3 ! System UAF record modificationT DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_COP = 4 ! System UAF record copiedU DECLARE LONG CONSTANT NSA$K_RECTYP_SYSUAF_REN = 5 ! System UAF record renamed6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_SYSUAF = 5: DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_ADD = 65538; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_DEL = 131074; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_MOD = 196610; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_COP = 262146; DECLARE LONG CONSTANT NSA$K_RECID_SYSUAF_REN = 327682 ! Network UAFW DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_ADD = 1 ! Network UAF record additionW DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_DEL = 2 ! Network UAF record deletion[ DECLARE LONG CONSTANT NSA$K_RECTYP_NETUAF_MOD = 3 ! Network UAF record modification6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_NETUAF = 3: DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_ADD = 65539; DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_DEL = 131075; DECLARE LONG CONSTANT NSA$K_RECID_NETUAF_MOD = 196611 ! Login breakin detection^ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DIA = 1 ! Dialup interactive breakin detection] DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_LOC = 2 ! Local interactive breakin detection^ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_REM = 3 ! Remote int eractive breakin detectionS DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_NET = 4 ! Network breakin detection\ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGB_DET = 5 ! Detached process breakin detection4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGB = 58 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_DIA = 655409 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_LOC = 1310769 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_REM = 1966129 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_NET = 2621489 DECLARE LONG CONSTANT NSA$K_RECID_LOGB_DET = 327684 ! Successful loginM DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_BAT = 1 ! Batch process loginR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DIA = 2 ! Dialup interactive loginQ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_LOC = 3 ! Local interactive loginR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_REM = 4 ! Remote interactive loginG DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_NET = 5 ! Network loginJ DECLARE LONG C ONSTANT NSA$K_RECTYP_LOGI_SUB = 6 ! Subprocess loginP DECLARE LONG CONSTANT NSA$K_RECTYP_LOGI_DET = 7 ! Detached process login4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGI = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_BAT = 655419 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DIA = 1310779 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_LOC = 1966139 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_REM = 2621499 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_NET = 3276859 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_SUB = 3932219 DECLARE LONG CONSTANT NSA$K_RECID_LOGI_DET = 458757 ! Login failureU DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_BAT = 1 ! Batch process login failureZ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DIA = 2 ! Dialup interactive login failureY DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_LOC = 3 ! Local interactive login failureZ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_REM = 4 ! Remote interactive login failureO DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_NET = 5 ! Network login failureR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_SUB = 6 ! Subprocess login failureX DECLARE LONG CONSTANT NSA$K_RECTYP_LOGF_DET = 7 ! Detached process login failure4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGF = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_BAT = 655429 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DIA = 1310789 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_LOC = 1966149 DECLARE LONG CONSTANT NSA$K_ RECID_LOGF_REM = 2621509 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_NET = 3276869 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_SUB = 3932229 DECLARE LONG CONSTANT NSA$K_RECID_LOGF_DET = 458758 ! LogoutN DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_BAT = 1 ! Batch process logoutS DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DIA = 2 ! Dialup interactive logoutR DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_LOC = 3 ! Local interactive logoutS DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_REM = 4 ! Remote interactive logoutH DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_NET = 5 ! Network logoutK DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_SUB = 6 ! Subprocess logoutQ DECLARE LONG CONSTANT NSA$K_RECTYP_LOGO_DET = 7 ! Detached process logout4 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_LOGO = 78 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_BAT = 655439 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DIA = 1310799 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_L OC = 1966159 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_REM = 2621519 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_NET = 3276879 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_SUB = 3932239 DECLARE LONG CONSTANT NSA$K_RECID_LOGO_DET = 458759 ! Volume operationsF DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_MOU = 1 ! Volume mountsJ DECLARE LONG CONSTANT NSA$K_RECTYP_VOL_DMOU = 2 ! Volume dismounts3 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_VOL = 27 DECLARE LONG CONST ANT NSA$K_RECID_VOL_MOU = 655449 DECLARE LONG CONSTANT NSA$K_RECID_VOL_DMOU = 131080 ! INSTALL operationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_ADD = 1 ! Add known fileM DECLARE LONG CONSTANT NSA$K_RECTYP_INSTAL_REM = 2 ! Remove known file6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_INSTAL = 2! ! Rights database operationsR DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_CRE = 1 ! Create rights databaseJ DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_ADD = 2 ! Add identifierM DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REM = 3 ! Remove identifierP DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_ID = 4 ! Modify identifierW DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_MOD_HO = 5 ! Modify identifier holderN DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_GRANT = 6 ! Grant identifierO DECLARE LONG CONSTANT NSA$K_RECTYP_RIGHTS_REVOK = 7 ! Revoke identifier6 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_RIGHTS = 7 ! SET A UDIT operationsJ DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_AL = 1 ! Enable alarmK DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_AL = 2 ! Disable alarmL DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_ENA_JL = 3 ! Enable journalM DECLARE LONG CONSTANT NSA$K_RECTYP_AUDIT_DIS_JL = 4 ! Disable journal5 DECLARE LONG CONSTANT NSA$K_RECTYPNUM_AUDIT = 4 ! + ! SYSUAFF stuff ! -2 DECLARE LONG CONSTANT nsa$s_sysuaff_bits = 8 record sysuaff_bits group nsa$r_fill_39 variant caseA BASIC$QUADWORD nsa$q_sysuaff ! SYSUAFF flags: case% group nsa$r_fill_40) ! ACCESS modified* ! ACCOUNT modified( ! ASTLM modified( ! BATCH modified( ! BIOLM modified( ! BYTLM modified& ! CLI modified,  ! CLITABLES modified* ! CPUTIME modified0 ! DEFPRIVILEGES modified) ! DEVICE modified) ! DIALUP modified( ! DIOLM modified, ! DIRECTORY modified( ! ENQLM modified- ! EXPIRATION modified( ! FILLM modified( ! FLAGS modified.  ! INTERACTIVE modified* ! JTQUOTA modified) ! LGICMD modified( ! LOCAL modified, ! MAXDETACH modified* ! MAXJOBS modified. ! MAXACCTJOBS modified* ! NETWORK modified( ! OWNER modified+ ! PASSWORD modified) ! PBYTLM modified) ! PFLAGS m odified- ! P_RESTRICT modified, ! PGFLQUOTA modified( ! PRCLM modified, ! PRIMEDAYS modified+ ! PRIORITY modified- ! PRIVILEGES modified. ! PWDLIFETIME modified- ! PWDMINIMUM modified. ! QUEPRIORITY modified) ! REMOTE modified) ! SFLAGS  modified- ! S_RESTRICT modified+ ! SHRFILLM modified( ! TQELM modified& ! UIC modified, ! WSDEFAULT modified+ ! WSEXTENT modified* ! WSQUOTA modifiedw BYTE access_bits ( 6 ) ! COMMENT ADDED BY SDL - access_bits contains bits access through wsquota) end group nsa$r_fill_40 end variant end group nsa$r_fill_39 end record sysuaff_bits  ! +' ! Record header offset definitions ! -@ DECLARE LONG CONSTANT NSA$M_REC_FLAGS_PKTCON = x'00000001'4 DECLARE LONG CONSTANT NSA$C_RECHDR_LENGTH = 764 DECLARE LONG CONSTANT NSA$K_RECHDR_LENGTH = 763 DECLARE LONG CONSTANT NSA$S_NSARECHDRDEF = 76 record NSARECHDRDEF# group NSA$R_REC_ID_OVERLAY variant caseM LONG N SA$L_REC_ID ! Record identification longword case+ group NSA$R_REC_ID_FIELDS: WORD NSA$W_REC_TYPE ! Record type> WORD NSA$W_REC_SUBTYPE ! Record subtype/ end group NSA$R_REC_ID_FIELDS end variant' end group NSA$R_REC_ID_OVERLAYK BYTE NSA$B_REC_SEQNUM ! This records sequence numberK BYTE NSA$B_REC_SEQLAST ! Last records se quence number& group NSA$R_REC_FLAGS_OVERLAY variant case@ BYTE NSA$B_REC_FLAGS ! Record flags byte case, group NSA$R_REC_FLAGS_BITS1 ! Last packet in record is ! continued in next record BYTE REC_FLAGS_PKTCON_bits ! COMMENT ADDED BY SDL - REC_FLAGS_PKTCON_bits contains bits REC_FLAGS_PKTCON & ! through fill_410 end group NSA$R_ REC_FLAGS_BITS end variant* end group NSA$R_REC_FLAGS_OVERLAYO BYTE NSA$B_REC_PKTNUM ! Number of data packets in recordE WORD NSA$W_REC_PKTOFF ! Offset to first packetF WORD NSA$W_REC_PKTHDRSIZ ! Data packet header size; LONG NSA$L_REC_EPID ! Extended PIDM BASIC$QUADWORD NSA$Q_REC_TIME ! Event time ( EXE$GQ_SYSTIME )@ STRING NSA$T_REC_CLUSNAM = 16 ! Clust er node name; STRING NSA$T_REC_PROCNAM = 16 ! Process name7 STRING NSA$T_REC_USERNAM = 12 ! username; STRING NSA$T_REC_ACCTNAM = 8 ! Account name end record NSARECHDRDEF  ! +# ! Data packet type definitions ! -I DECLARE LONG CONSTANT NSA$K_PKTTYP_IMGNAM = 1 ! Image name packetH DECLARE LONG CONSTANT NSA$K_PKTTYP_FACMOD = 2 ! File access modeW DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVUSED = 3 ! Privilege used to access fileA DECLARE LONG CONSTANT NSA$K_PKTTYP_FILNAM = 4 ! File nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_DEVNAM = 5 ! Device nameD DECLARE LONG CONSTANT NSA$K_PKTTYP_LOGNAM = 6 ! Logical nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLNAM = 7 ! Volume nameH DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLSNAM = 8 ! Volume set nameB DECLARE LONG CONSTANT NSA$K_PKTTYP_NODENAM = 9 ! Node nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_USERNAM = 10 ! User nameC DECLARE LONG CONSTANT NSA$K_PKTTYP_PASSWORD = 11 ! PasswordN DECLARE LONG CONSTANT NSA$K_PKTTYP_UIC = 12 ! User identification codeJ DECLARE LONG CONSTANT NSA$K_PKTTYP_VOLPRO = 13 ! Volume protectionD DECLARE LONG CONSTANT NSA$K_PKTTYP_MOUFLG = 14 ! Mount flagsH DECLARE LONG CONSTANT NSA$K_PKTTYP_DMOUFLG = 15 ! Dismount flags@ DECLARE LONG CONSTANT NSA$K_PKTTYP_NODEID = 16 ! Node IDC DECLARE LONG CONSTANT NSA$K_PKTTYP_EPID = 17 ! Extended PIDR DECLARE LONG CONSTANT NSA$K_PKTTYP_SYSUAFF = 18 ! System UAF record fieldsH DECLARE LONG CONSTANT NSA$K_PKTTYP_STATUS = 19 ! Status longwordL DECLARE LONG CONSTANT NSA$K_PKTTYP_SECNAM = 20 ! Global section nameK DECLARE LONG CONSTANT NSA$K_PKTTYP_PRIVS = 21 ! Full privilege maskF DECLARE LONG CONSTANT NSA$K_PKTTYP_INSFLG = 22 ! Install flagsH DECLARE LONG CONSTANT NSA$K_PKTTYP_IDNAME = 23 ! Identifier nameH DECLARE LONG CONSTANT NSA$K_PKTTYP_IDVAL = 24 ! Identifier valueN DECLARE LONG CONSTANT NSA$K_PKTTYP_IDATTR = 25 ! Identifier attributesJ DECLARE LONG CONSTANT NSA$K_PKTTYP_HOLDER = 26 ! Identifier holderB DECLARE LONG CONSTANT NSA$K_PKTTYP_AUDIT = 27 ! Audit itemO DECLARE LONG CONSTANT NSA$K_PKTTYP_DEFUSERNAM = 28 ! Default proxy nameK DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDUSERNAM = 29 ! Old proxy nameY DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDDEFUNAM = 30 ! Old default local proxy  nameQ DECLARE LONG CONSTANT NSA$K_PKTTYP_OLDNODENAM = 31 ! Old remote node name0 DECLARE LONG CONSTANT NSA$K_PKTTYPNUM = 31 ! +% ! Data packet offset definitions ! -3 DECLARE LONG CONSTANT NSA$C_PKTHDR_LENGTH = 43 DECLARE LONG CONSTANT NSA$K_PKTHDR_LENGTH = 4< DECLARE LONG CONSTANT NSA$M_PKT_INS_OPEN = x'00000002'; DECLARE LONG CONSTANT NSA$M_PKT_INS_HDR = x'00000004'= DECLARE LONG CONSTANT NSA$M_PKT_INS_SHARE = x'00000008'< DE CLARE LONG CONSTANT NSA$M_PKT_INS_EXEC = x'00000010'= DECLARE LONG CONSTANT NSA$M_PKT_INS_WRITE = x'00000020'< DECLARE LONG CONSTANT NSA$M_PKT_INS_PRIV = x'00000040'< DECLARE LONG CONSTANT NSA$M_PKT_INS_PROT = x'00000080'= DECLARE LONG CONSTANT NSA$M_PKT_INS_NOPRG = x'00000100'; DECLARE LONG CONSTANT NSA$M_PKT_INS_ACC = x'00000200'1 DECLARE LONG CONSTANT NSA$S_NSAPKTDEF = 448 record NSAPKTDEF? WORD NSA$W_PKT_TYPE ! Packet data typ e: WORD NSA$W_PKT_SIZE ! Packet size" STRING NSA$T_PKT_DATA = 0% group NSA$R_PKT_DATA_OVERLAY variant case> STRING NSA$T_PKT_IMGNAM = 444 ! Image name case? LONG NSA$L_PKT_FACMOD ! File access mode caseL LONG NSA$L_PKT_PRIVUSED ! Privilege used to access file case= STRING NSA$T_PKT_FILNAM = 444  ! File name caseN STRING NSA$T_PKT_DEVNAM = 64 ! Device and access port name case@ STRING NSA$T_PKT_LOGNAM = 255 ! Logical name case> STRING NSA$T_PKT_VOLNAM = 12 ! Volume name caseC STRING NSA$T_PKT_VOLSNAM = 12 ! Volume set name case< STRING NSA$T_PKT_NODENAM = 6 ! Node name case=  STRING NSA$T_PKT_USERNAM = 32 ! User name case= STRING NSA$T_PKT_PASSWORD = 32 ! Password case9 LONG NSA$L_PKT_UIC ! Volume UIC case@ WORD NSA$W_PKT_VOLPRO ! Volume protection case: LONG NSA$L_PKT_MOUFLG ! Mount flags case= WORD NSA$W_PKT_DMOUFLG ! Dismount flags case=  BASIC$QUADWORD NSA$Q_PKT_NODEID ! Node ID case; LONG NSA$L_PKT_EPID ! Extended PID caseO BASIC$QUADWORD NSA$Q_PKT_SYSUAFF ! System UAF record fields case> LONG NSA$L_PKT_STATUS ! Status longword caseF STRING NSA$T_PKT_SECNAM = 54 ! Global section name caseH BASIC$QUADWORD NSA$Q_PKT_PRIVS ! Full privilege mask case% group NSA$r_fill_42 variant case? LONG NSA$L_PKT_INSFLG ! Install flags case+ group NSA$r_fill_433 ! Bit 0 must be unused$ ! /OPEN/ ! /HEADER_RESIDENT% ! /SHARE' ! /EXECUTE%  ! /WRITE) ! /PRIVILEGE) ! /PROTECTED' ! /NOPURGE* ! /ACCOUNTING WORD PKT_INS_FILL_bits ! COMMENT ADDED BY SDL - PKT_INS_FILL_bits contains bits PKT_INS_FILL through & ! fill_44/ end group NSA$r_fill_43 end variant) end group NSA$r_fill_42 caseB  STRING NSA$T_PKT_IDNAME = 32 ! Identifier name case? LONG NSA$L_PKT_IDVAL ! Identifier value caseD LONG NSA$L_PKT_IDATTR ! Identifier attributes caseG BASIC$QUADWORD NSA$Q_PKT_HOLDER ! Identifier holder caseI STRING NSA$R_PKT_AUDIT = 0 ! Audit item ( not used ) caseI STRING NSA$T_PKT_DEFUSERNAM = 32 ! Default proxy name caseE STRING NSA$T_PKT_OLDUSERNAM = 32 ! Old proxy name caseS STRING NSA$T_PKT_OLDDEFUNAM = 32 ! Old default local proxy name caseJ STRING NSA$T_PKT_OLDNODENAM = 6 ! Old remote node name end variant) end group NSA$R_PKT_DATA_OVERLAY end record NSAPKTDEF  wwP`PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +O ! OPERATOR COMMUNICATIONS MESSAGE TYPES AND VALUES These are now obsolete. ! - ! OPERATOR MESSAGE TYPES C DECLARE LONG CONSTANT OPR$_TERMENABL = 1 ! ENABLE TERMINAL D  DECLARE LONG CONSTANT OPR$_LOGINIT = 2 ! INITIALIZE THE LOG A DECLARE LONG CONSTANT OPR$_OPRQST = 3 ! OPERATOR REQUEST @ DECLARE LONG CONSTANT OPR$_OPREPLY = 4 ! OPERATOR REPLY 7 DECLARE LONG CONSTANT OPR$M_CENTRAL = x'00000001'7 DECLARE LONG CONSTANT OPR$M_PRINTER = x'00000002'5 DECLARE LONG CONSTANT OPR$M_TAPES = x'00000004'5 DECLARE LONG CONSTANT OPR$M_DISKS = x'00000008'7 DECLARE LONG CONSTANT OPR$M_DEVICES = x'00000010'5 DECLARE LONG C ONSTANT OPR$M_USER1 = x'0001FFE0'5 DECLARE LONG CONSTANT OPR$M_USER2 = x'00020000'5 DECLARE LONG CONSTANT OPR$M_USER3 = x'00040000'5 DECLARE LONG CONSTANT OPR$M_USER4 = x'00080000'5 DECLARE LONG CONSTANT OPR$M_USER5 = x'00100000'5 DECLARE LONG CONSTANT OPR$M_USER6 = x'00200000'5 DECLARE LONG CONSTANT OPR$M_USER7 = x'00400000'5 DECLARE LONG CONSTANT OPR$M_USER8 = x'00800000'5 DECLARE LONG CONSTANT OPR$M_USER9 = x'01000000'6 DECLARE LONG CON STANT OPR$M_USER10 = x'02000000'6 DECLARE LONG CONSTANT OPR$M_USER11 = x'04000000'6 DECLARE LONG CONSTANT OPR$M_USER12 = x'08000000', DECLARE LONG CONSTANT OPR$S_OPRDEF = 48 record OPRDEF ! Obsolete. variant case8 group OPR$R_OPRDEF_BITS ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete. ! Obsolete.q LONG CENTRAL_bits ! COMMENT ADDED BY SDL - CENTRAL_bits contains bits CENTRAL through fill_45* end group OPR$R_OPRDEF_BITS end variant end record OPRDEF  wwaPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +/ ! Object Security Service processing flag ! and itemcode definitions. ! -5 DECLARE LONG CONSTANT OSS$M_WLOCK = x'00000001'6 DECLARE LONG CONSTANT OSS$M_RELCTX = x'000 00002'5 DECLARE LONG CONSTANT OSS$M_LOCAL = x'00000004', DECLARE LONG CONSTANT OSS$S_OSSDEF = 1 record OSSDEF group OSS$R_FLAGS_BITS# ! Maintain Write lock ! Release context* ! update local profile only e BYTE WLOCK_bits ! COMMENT ADDED BY SDL - WLOCK_bits contains bits WLOCK through fill_46# end group OSS$R_FLAGS_BITS end record OSSDEF 5 DECLARE LONG CONSTANT OSS$_ACCESS_NAMES = 1  ! < DECLARE LONG CONSTANT OSS$_ACCESS_NAMES_LENGTH = 2 ! 6 DECLARE LONG CONSTANT OSS$_ACL_ADD_ENTRY = 3 ! 9 DECLARE LONG CONSTANT OSS$_ACL_DELETE_ENTRY = 4 ! 3 DECLARE LONG CONSTANT OSS$_ACL_DELETE = 5 ! 7 DECLARE LONG CONSTANT OSS$_ACL_DELETE_ALL = 6 ! 7 DECLARE LONG CONSTANT OSS$_ACL_FIND_ENTRY = 7 ! 6 DECLARE LONG CONSTANT OSS$_ACL_FIND_NEXT = 8 ! 6 DECLARE LONG CONSTANT OSS$_ACL_FIND_TYPE = 9 ! 7 DECLARE LONG CONSTANT OSS$_ACL_GRA NT_ACE = 10 ! 4 DECLARE LONG CONSTANT OSS$_ACL_LENGTH = 11 ! : DECLARE LONG CONSTANT OSS$_ACL_MODIFY_ENTRY = 12 ! 6 DECLARE LONG CONSTANT OSS$_ACL_POSITION = 13 ! : DECLARE LONG CONSTANT OSS$_ACL_POSITION_TOP = 14 ! = DECLARE LONG CONSTANT OSS$_ACL_POSITION_BOTTOM = 15 ! 8 DECLARE LONG CONSTANT OSS$_ACL_READ_ENTRY = 16 ! 2 DECLARE LONG CONSTANT OSS$_ACL_READ = 17 ! 3 DECLARE LONG CONSTANT OSS$_MAX_CLASS = 18 ! 3 DECLARE LONG CONSTANT OS S$_MIN_CLASS = 19 ! 5 DECLARE LONG CONSTANT OSS$_NEXT_OBJECT = 20 ! / DECLARE LONG CONSTANT OSS$_OWNER = 21 ! 4 DECLARE LONG CONSTANT OSS$_PROTECTION = 22 ! 2 DECLARE LONG CONSTANT OSS$_SYS_PROT = 23 ! 2 DECLARE LONG CONSTANT OSS$_OWN_PROT = 24 ! 2 DECLARE LONG CONSTANT OSS$_GRP_PROT = 25 ! 2 DECLARE LONG CONSTANT OSS$_WOR_PROT = 26 ! 4 DECLARE LONG CONSTANT OSS$_CLASS_NAME = 27 ! 8 DECLARE LONG CONSTANT OSS$_FIRST_TEMPLATE = 28 ! 7  DECLARE LONG CONSTANT OSS$_NEXT_TEMPLATE = 29 ! 5 DECLARE LONG CONSTANT OSS$_OBJECT_NAME = 30 ! ; DECLARE LONG CONSTANT OSS$_ACCESS_CLASS_NAME = 31 ! 5 DECLARE LONG CONSTANT OSS$_DAMAGED_ACL = 32 ! 7 DECLARE LONG CONSTANT OSS$_IN_TRANSITION = 33 ! 7 DECLARE LONG CONSTANT OSS$_TRANQUILITY_COUNT = 344 DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES = 1; DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES_LENGTH = 2/ DECLARE LONG CONSTANT OSS$_ACL_ADDACE = 3/ DECLARE LONG CONSTANT OSS$_ACL_DELACE = 4/ DECLARE LONG CONSTANT OSS$_ACL_FNDACE = 7/ DECLARE LONG CONSTANT OSS$_ACL_FNDNXT = 8/ DECLARE LONG CONSTANT OSS$_ACL_FNDTYP = 90 DECLARE LONG CONSTANT OSS$_ACL_MODACE = 121 DECLARE LONG CONSTANT OSS$_ACL_READACE = 16 wwFmPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORDS% %LET %BASIC$QUADWORD_DECLARED = 1P %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORDS% %LET %BASIC$OCTAWORD_DECLARED = 1M %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI(TaPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +3 ! PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS ! --4 DECLARE LONG CONSTANT PCC$M_CHAR = x'0000001F'8 DECLARE LONG CONSTANT PCC$M_EIGHTBIT = x'00000040'6 DECLARE LONG CON STANT PCC$M_SINGLE = x'00000080'7 DECLARE LONG CONSTANT PCC$M_LINECNT = x'0000007F'B DECLARE LONG CONSTANT PCC$_FTN_SINGLE = 32 ! SINGLE SPACE B DECLARE LONG CONSTANT PCC$_FTN_DOUBLE = 48 ! DOUBLE SPACE > DECLARE LONG CONSTANT PCC$_FTN_PAGE = 49 ! PAGE SPACE @ DECLARE LONG CONSTANT PCC$_FTN_OVRPRT = 43 ! OVER PRINT < DECLARE LONG CONSTANT PCC$_FTN_PROMPT = 36 ! PROMPT , DECLARE LONG CONSTANT PCC$S_PCCDEF = 4 record PCCDEF= WORD PCC$ W_FORTRAN ! FORTRAN FIELD < group PCC$R_PREFIX_OVERLAY ! PREFIX FIELD  variant case# BYTE PCC$B_PREFIX case* group PCC$R_PREFIX_BITS0n BYTE BITS0_bits ! COMMENT ADDED BY SDL - BITS0_bits contains bits BITS0 through fill_47. end group PCC$R_PREFIX_BITS0 case* group PCC$R_PREFIX_BITS1n BYT E BITS1_bits ! COMMENT ADDED BY SDL - BITS1_bits contains bits BITS1 through fill_48. end group PCC$R_PREFIX_BITS1 end variant' end group PCC$R_PREFIX_OVERLAY$ group PCC$R_POSTFIX_OVERLAY variant case= BYTE PCC$B_POSTFIX ! POSTFIX FIELD  case+ group PCC$R_POSTFIX_BITS0) ! CHARACTER FIELD 0 ! EIGHTBIT CHARACTER SET * ! SINGLE CHARACTER j BYTE CHAR_bits ! COMMENT ADDED BY SDL - CHAR_bits contains bits CHAR through SINGLE/ end group PCC$R_POSTFIX_BITS0 case+ group PCC$R_POSTFIX_BITS11 ! LINE COUNT FOR NEWLINES t BYTE LINECNT_bits ! COMMENT ADDED BY SDL - LINECNT_bits contains bits LINECNT through fill_49/ end group PCC$R_POSTFIX_BITS1 ! FORTRAN CONSTANTS  end variant( end group PCC$R_POSTFIX_OVERLAY end record PCCDEF  ww@LaPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! PRIVILEGED LIBRARY VECTOR DEFINITION ! -J DECLARE LONG CONSTANT PLV$C_TYP_CMOD = 1 ! CHANGE MODE VECTOR TYPE E DECLARE LONG CONSTANT PLV$C_TYP_MSG = 2 ! MESSAGE VECTOR TY PE - DECLARE LONG CONSTANT PLV$S_PLVDEF = 32 record PLVDEFJ LONG PLV$L_TYPE ! TYPE CODE FOR VECTOR FORMAT ' ! TYPE CODES FOR PRIVILEGE VECTORS D LONG PLV$L_VERSION ! SYSTEM VERSION NUMBER # group PLV$R_KERNEL_OVERLAY variant caseU LONG PLV$L_KERNEL ! SELF-REL PTR TO KERNEL MODE DISPATCHER  caseQ LONG PLV$L_MSGDSP ! SELF-REL PTR TO MESSAGE DISPATCHER  end variant' end group PLV$R_KERNEL_OVERLAYS LONG PLV$L_EXEC ! SELF-REL PTR TO EXEC MODE DISPATCHER S LONG PLV$L_USRUNDWN ! SELF-REL PTR TO USER RUNDOWN SERVICE N LONG PLVDEF$$_FILL_1 ! UNUSED, RESERVED FOR FUTURE USE V LONG PLV$L_RMS ! SELF-REL PTR TO RMS SERVICES DISPATCHER U LONG PLV$L_CHECK ! LONGWORD USED TO CHECK VIRTUAL ADDRESS  ! LOCATION OF VECTOR end record PLVDEF  wwaPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  B ! The following definitions are passed in the ctrl parameter.K DECLARE LONG CONSTANT POSIX$C_BLOCK_FORK = 1 ! block fork executionO DECLARE LONG CONSTANT POSIX$C_UNBLOCK_FORK = 2 ! unblock fork executionE DECLARE LONG CONSTANT POSIX$C_DISABLE_FORK = 3 ! disable forkO DECLARE LONG CONSTANT POSIX$C_SETUP_CALLBACK = 4 ! setup image callbackQ DECLARE LONG CONSTANT POSIX$C_SYSTEM_CALLBACK = 5 ! setup system callback] DECLARE LONG CONSTANT POSIX$C_PROCESS_CALLBACK = 6 ! setup process permanent callbackM DECLARE LONG CONSTANT POSIX$C_CANCEL_CALLBACK = 7 ! cancel a callbackG DECLARE LONG CONSTANT POSIX$C_CONTINUE = 8 ! continue callbacks R DECLARE LONG CONSTANT POSIX$C_TEST_CALLS = 9 ! temporary value for testing1 DECLARE LONG CONSTANT POSIX$C_MAX_CNTRL = 91 DECLARE LONG CONSTANT POSIX$K_MAX_CNTRL = 9 ! K ! The following definitions are for the 'when' mask. They define when! ! callbacks are to be made. ! 8 DECLARE LONG CONSTANT POSIX$V_CALL_BEFORE_COPY = 05 DECLARE LONG CONSTANT POSIX$V_CALL_IN_CHILD = 18 DECLARE LONG CONSTANT POSIX$V_CALL_AFTER_CHILD = 27 DECLARE LONG CONSTANT POSIX$V_CALL_ON_FAILURE = 3= DECLARE LONG CONSTANT POSIX$V_CALL_BEFORE_COPY_FAIL = 4: DECLARE LONG CONSTANT POSIX$V_CALL_IN_CHILD_FAIL = 5= DECLARE LONG CONSTANT POSIX$V_CALL_AFTER_CHILD_FAIL = 68 DECLARE LONG CONSTANT POSIX$M_CALL_BEFORE_COPY = 15 DECLARE LONG CONSTANT POSIX$M_CALL_IN_CHILD = 28 DECLARE LONG CONSTANT POSIX$M_CALL_AFTER_CHILD = 47 DECLARE LONG CONSTANT POSIX$M_CALL_ON_FAILURE = 8> DECLARE LONG CONSTANT POSIX$M_CALL_BEFORE_COPY_FAIL = 16; DECLARE LONG CONSTANT POSIX$M_CALL_IN_CHILD_FAIL = 32> DECLARE LONG CONSTANT POSIX$M_CALL_AFTER_CHILD_FAIL = 64 wwA(bPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! PROCESS QUOTA LIST CODES ! -Q DECLARE LONG CONSTANT PQL$_LISTEND = 0 ! LIST END CODE ( MUST BE FIRST ) 8 DECLARE LONG CONSTANT PQL$_ASTLM = 1 ! AST LIMIT A DECLARE LONG CONSTANT PQL$_BIOLM = 2 ! BUFFERED I/O LIMIT J DECLARE LONG CONSTANT PQL$_BYTLM = 3 ! BYTE LIMIT FOR BUFFERED I/O = DECLARE LONG CONSTANT PQL$_CPULM = 4 ! CPU TIME LIMIT ? DECLARE LONG CONSTANT PQL$_DIOLM = 5 ! DIRECT I/O LIMIT > DECLARE LONG CONSTANT PQL$_FILLM = 6 ! OPEN FILE LIMIT D DECLARE LONG CONSTANT PQL$_PGFLQUOTA = 7 ! PAGING FILE QUOTA @ DECLARE LONG CONSTANT PQL$_PRCLM = 8 ! SUB-PROCESS LIMIT F DECLARE LONG CONSTANT PQL$_TQELM = 9 ! TIMER QUEUE ENTRY LIMIT C DECLARE LONG CONSTANT PQL$_WSQUOTA = 10 ! WORKING SET QUOTA G DECLARE LONG CONSTANT PQL$_WSDEFAULT = 11 ! WORKING SET DEFAULT = DECLARE LONG CONSTANT PQL$_ENQLM = 12 ! ENQUEUE LIMIT K DECLARE LONG CONSTANT PQL$_WSEXTENT = 13 ! WORKING SET EXTENT LIMIT [ DECLARE LONG CONSTANT PQL$_JTQUOTA = 14 ! JOB-WIDE LOGICAL NAME TABLE CREATION QUOTAS DECLARE LONG CONSTANT PQL$_LENGTH = 15 ! NUMBER OF QUOTAS ( MUST BE LAST )  ww }bPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +* ! $CREPRC STATUS FLAGS AND ITEM CODES ! -7 DECLARE LONG CONSTANT PRC$M_SSRWAIT = x'00000001'7 DECLARE LONG CONSTANT PRC$M_SSFEXCU = x'00000002'6 DECLARE LONG CONSTANT PRC$M_PSWAPM = x'00000004'6 DECLARE LONG CONSTANT PRC$M_NOACNT = x'00000008'5 DECLARE LONG CONSTANT PRC$M_BATCH = x'00000010'5 DECLARE LONG CONSTANT PRC$M_HIBER = x'00000020'5 DECLARE LONG CONSTANT PRC$M_NOUAF = x'00000040'6 DECLARE LONG CONSTANT PRC$M_NETWRK = x'00000080'6 DECLARE LONG CONSTANT PRC$M_DISAWS = x'00000100'6 DECLARE LONG CONSTANT PRC$M_DETACH = x'00000200'5 DECLARE LONG CONSTANT PRC$M_INTER = x'00000400'6 DECLARE LONG CONSTANT PR C$M_IMGDMP = x'00000800'7 DECLARE LONG CONSTANT PRC$M_CLISPEC = x'00001000': DECLARE LONG CONSTANT PRC$M_NOPASSWORD = x'00002000'5 DECLARE LONG CONSTANT PRC$M_DEBUG = x'00004000'6 DECLARE LONG CONSTANT PRC$M_DBGTRU = x'00008000'9 DECLARE LONG CONSTANT PRC$M_SUBSYSTEM = x'00010000'3 DECLARE LONG CONSTANT PRC$M_TCB = x'00020000'> DECLARE LONG CONSTANT PRC$M_NO_IMAGE_PRIVS = x'00040000'> DECLARE LONG CONSTANT PRC$M_PERM_SUBSYSTEM = x'00080000'> DE CLARE LONG CONSTANT PRC$M_PARSE_EXTENDED = x'00100000'? DECLARE LONG CONSTANT PRC$M_INHERIT_PERSONA = x'00200000'5 DECLARE LONG CONSTANT PRC$M_LOGIN = x'00000040', DECLARE LONG CONSTANT PRC$S_PRCDEF = 3 record PRCDEF variant case& group PRC$R_PRCDEF_BITS, ! RESOURCE WAIT DISABLE 9 ! SYSTEM SERVICE FAIL EXCEPTION MODE ( ! PROCESS SWAP MODE 1 ! ACCOUNTING MES SAGE DISABLE & ! BATCH INDICATOR = ! HIBERNATE BEFORE CALLING INITIAL IMAGE C ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. ( ! NETWORK INDICATOR 1 ! DISABLE WORKING SET ADJUST & ! DETACHED PROCESS+ ! INTERACTIVE INDICATOR* ! IMAGE DUMP REQUESTED- ! PASS CLI SPECIFICATIONS< ! DON'T PROMPT FOR USERN AME AND PASSWORD$ ! /DEBUG desired& ! debugger present> ! inherit protected subsystem identifiers , ! process is part of TCB; ! image privileges not to be propagated5 ! make subsystem rights permanent@ ! make new process have parse_style extended4 ! process gets persona of callerq LONG SSRWAIT_bits ! COMMENT ADDED BY SDL -  SSRWAIT_bits contains bits SSRWAIT through fill_50* end group PRC$R_PRCDEF_BITS case* group PRC$R_PRCDEF_OBSOLETEC ! BYPASS LOGIN VERIFICATION FOR DETACHED PROC. n BYTE FILL_0_bits ! COMMENT ADDED BY SDL - FILL_0_bits contains bits FILL_0 through fill_51. end group PRC$R_PRCDEF_OBSOLETE end variant end record PRCDEF  ! + ! ; ! Create Process Item List Data Identif ier Definitions !  ! **** NOTE **** ! K ! New items must always be added at the END of the list so that: ! users will not have to relink or reassemble. !  ! -T DECLARE LONG CONSTANT PRC$_LISTEND = 0 ! End of list ( must be first code )K DECLARE LONG CONSTANT PRC$_PGFLCHAR = 1 ! Page file characteristicsB DECLARE LONG CONSTANT PRC$_PGFLINDEX = 2 ! Page file indexG DECLARE LONG CONSTANT PRC$_INPUT_ATT = 3 ! SYS$INPUT attributesI DECLARE LONG CONSTANT PRC$_OUTPUT_ATT = 4 ! SYS$OUTPUT attributesG DECLARE LONG CONSTANT PRC$_ERROR_ATT = 5 ! SYS$ERROR attributesE DECLARE LONG CONSTANT PRC$_CLASS = 6 ! Process classification wwibPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! PRIVILEGE BIT DEFINITIONS ! 6 DECLARE LONG CONSTANT PRV$M_CMKRNL = x'00000001'6 DECLARE LONG CONSTANT PRV$M_CMEXEC = x'00000002'6 DECLARE LONG CONSTANT PRV$M_SYSNAM = x'0 0000004'6 DECLARE LONG CONSTANT PRV$M_GRPNAM = x'00000008'8 DECLARE LONG CONSTANT PRV$M_ALLSPOOL = x'00000010'; DECLARE LONG CONSTANT PRV$M_IMPERSONATE = x'00000020'8 DECLARE LONG CONSTANT PRV$M_DIAGNOSE = x'00000040'6 DECLARE LONG CONSTANT PRV$M_LOG_IO = x'00000080'5 DECLARE LONG CONSTANT PRV$M_GROUP = x'00000100'6 DECLARE LONG CONSTANT PRV$M_NOACNT = x'00000200'6 DECLARE LONG CONSTANT PRV$M_PRMCEB = x'00000400'6 DECLARE LONG CONSTANT PRV$M_PRMM BX = x'00000800'6 DECLARE LONG CONSTANT PRV$M_PSWAPM = x'00001000'6 DECLARE LONG CONSTANT PRV$M_SETPRI = x'00002000'6 DECLARE LONG CONSTANT PRV$M_SETPRV = x'00004000'6 DECLARE LONG CONSTANT PRV$M_TMPMBX = x'00008000'5 DECLARE LONG CONSTANT PRV$M_WORLD = x'00010000'5 DECLARE LONG CONSTANT PRV$M_MOUNT = x'00020000'4 DECLARE LONG CONSTANT PRV$M_OPER = x'00040000'7 DECLARE LONG CONSTANT PRV$M_EXQUOTA = x'00080000'6 DECLARE LONG CONSTANT PRV$M_NETMBX  = x'00100000'6 DECLARE LONG CONSTANT PRV$M_VOLPRO = x'00200000'6 DECLARE LONG CONSTANT PRV$M_PHY_IO = x'00400000'6 DECLARE LONG CONSTANT PRV$M_BUGCHK = x'00800000'6 DECLARE LONG CONSTANT PRV$M_PRMGBL = x'01000000'6 DECLARE LONG CONSTANT PRV$M_SYSGBL = x'02000000'6 DECLARE LONG CONSTANT PRV$M_PFNMAP = x'04000000'5 DECLARE LONG CONSTANT PRV$M_SHMEM = x'08000000'6 DECLARE LONG CONSTANT PRV$M_SYSPRV = x'10000000'6 DECLARE LONG CONSTANT PRV$M_BYPASS =  x'20000000'6 DECLARE LONG CONSTANT PRV$M_SYSLCK = x'40000000'5 DECLARE LONG CONSTANT PRV$M_SHARE = x'80000000'Z DECLARE LONG CONSTANT PRV$K_NUMBER_OF_PRIVS = 39 ! Total number of privilege bits.4 DECLARE LONG CONSTANT PRV$M_ACNT = x'00000200'6 DECLARE LONG CONSTANT PRV$M_ALTPRI = x'00002000'6 DECLARE LONG CONSTANT PRV$M_DETACH = x'00000020', DECLARE LONG CONSTANT PRV$S_PRVDEF = 8 record PRVDEF variant case' gro up PRV$R_PRVDEF_BITS00 ! MAY CHANGE MODE TO KERNEL . ! MAY CHANGE MODE TO EXEC > ! MAY INSERT IN SYSTEM LOGICAL NAME TABLE = ! MAY INSERT IN GROUP LOGICAL NAME TABLE 2 ! MAY ALLOCATE SPOOLED DEVICE @ ! MAY IMPERSONATE ANOTHER USER (old DETACH) + ! MAY DIAGNOSE DEVICES ) ! MAY DO LOGICAL I/O ? ! MAY AFFECT OTHER PROCESSES  IN SAME GROUP 6 ! MAY SUPPRESS ACCOUNTING MESSAGE A ! MAY CREATE PERMANENT COMMON EVENT CLUSTERS 3 ! MAY CREATE PERMANENT MAILBOX 3 ! MAY CHANGE PROCESS SWAP MODE 1 ! MAY SET ANY PRIORITY VALUE / ! MAY SET ANY PRIVILEGE BIT3 ! MAY CREATE TEMPORARY MAILBOX > ! MAY AFFECT OTHER PROCESSES IN THE WORLD 6 ! MAY EXECUTE MO UNT ACP FUNCTIONS ) ! OPERATOR PRIVILEGE ( ! MAY EXCEED QUOTAS 0 ! MAY CREATE NETWORK DEVICE 5 ! MAY OVERRIDE VOLUME PROTECTION * ! MAY DO PHYSICAL I/O ; ! MAY MAKE BUG CHECK ERROR LOG ENTRIES ; ! MAY CREATE PERMANENT GLOBAL SECTIONS = ! MAY CREATE SYSTEM WIDE GLOBAL SECTIONS 0 ! MAY MAP TO SECTION BY PFN ?  ! MAY ALLOCATE STRUCTURES IN SHARED MEMORY ; ! ELIGIBLE FOR SYSTEM PROTECTION FIELD 6 ! MAY BYPASS UIC BASED PROTECTION 3 ! MAY CREATE SYSTEM WIDE LOCKS = ! MAY ASSIGN CHANNEL TO NON-SHARED DEVICE2 ! May upgrade object integrity2 ! May downgrade object secrecyJ ! May access group objects via system protection field) ! May read any o bjectA ! May set classification for unlabeled objectC ! May direct audit to system security audit log4 ! May perform security functions0 ! XXXXXX bitfield; /* Reserved for SEVMSs BYTE CMKRNL_bits ( 8 ) ! COMMENT ADDED BY SDL - CMKRNL_bits contains bits CMKRNL through FILL_1+ end group PRV$R_PRVDEF_BITS0 case' group PRV$R_PRVDEF_BITS1@ ! MAY SUPPRE SS ACCOUNTING MESSAGES (NOACNT) 9 ! MAY SET ANY PRIORITY VALE (SETPRI) n WORD FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through fill_52+ end group PRV$R_PRVDEF_BITS1 case' group PRV$R_PRVDEF_BITS2E LONG PRV$L_L1_BITS ! Bits in first longwordF LONG PRV$L_L2_BITS ! Bits in second longword+ end group PRV$R_PRVDEF_BITS2 ! case' group PRV$R_PRVDEF_BITS38 ! Offset to obsolete DETACH bitfield3 ! MAY CREATE DETACHED PROCESSESn BYTE fill_4_bits ! COMMENT ADDED BY SDL - fill_4_bits contains bits fill_4 through fill_53+ end group PRV$R_PRVDEF_BITS3 end variant end record PRVDEF 6 DECLARE LONG CONSTANT PRV$M_SORTED = x'00000001'5 DECLARE LONG CONSTANT PRV$M_BRIEF = x'00000002'6 DECLARE LONG CONSTANT PRV$M_FILLED = x'00000004'1 DECLARE LONG CONSTANT PRV$S_PRVDSP_BITS = 1 record PRVDSP_BITS ! sort privilege list) ! display only privilege names% ! display names in columnse BYTE SORTED_bits ! COMMENT ADDED BY SDL - SORTED_bits contains bits SORTED through fill_54 end record PRVDSP_BITS  ww#NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET$ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +# ! PROTECTION FIELD DEFINITIONS ! -9 DECLARE LONG CONSTANT PRT$C_NA = 0 ! NO ACCESS @ DECLARE LONG CONSTANT PRT$C_KR = 3 ! KERNEL READ ONLY < DECLARE LONG CONST %ANT PRT$C_KW = 2 ! KERNEL WRITE > DECLARE LONG CONSTANT PRT$C_ER = 7 ! EXEC READ ONLY : DECLARE LONG CONSTANT PRT$C_EW = 5 ! EXEC WRITE ? DECLARE LONG CONSTANT PRT$C_SR = 11 ! SUPER READ ONLY ; DECLARE LONG CONSTANT PRT$C_SW = 8 ! SUPER WRITE > DECLARE LONG CONSTANT PRT$C_UR = 15 ! USER READ ONLY : DECLARE LONG CONSTANT PRT$C_UW = 4 ! USER WRITE F DECLARE LONG CONSTANT PRT$C_ERKW = 6 ! EXEC READ KERNEL WRITE H DECLARE LONG CONSTANT PRT$C_SRKW = 10 ! SUPER READ KERNEL WRITE E DECLARE LONG CONSTANT PRT$C_SREW = 9 ! SUPER READ EXEC WRITE G DECLARE LONG CONSTANT PRT$C_URKW = 14 ! USER READ KERNEL WRITE E DECLARE LONG CONSTANT PRT$C_UREW = 13 ! USER READ EXEC WRITE F DECLARE LONG CONSTANT PRT$C_URSW = 12 ! USER READ SUPER WRITE < DECLARE LONG CONSTANT PRT$C_RESERVED = 1 ! RESERVED  ww'cPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI(NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET) %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +& ! PROCESSOR REGISTER DEFINITIONS ! -C DECLARE LONG CONSTANT PR$_KSP = 0 ! KERNEL STACK POINTER F DECLARE LONG CONSTANT PR$_ESP = 1 ! EXECUTIVE STACK POINTER G *DECLARE LONG CONSTANT PR$_SSP = 2 ! SUPERVISOR STACK POINTER A DECLARE LONG CONSTANT PR$_USP = 3 ! USER STACK POINTER F DECLARE LONG CONSTANT PR$_ISP = 4 ! INTERRUPT STACK POINTER K DECLARE LONG CONSTANT PR$_ASN = 6 ! ADDRESS SPACE NUMBER REGISTERK DECLARE LONG CONSTANT PR$_SPTEP = 7 ! SYSTEM PTE PROTOTYPE REGISTER? DECLARE LONG CONSTANT PR$_P0BR = 8 ! P0 BASE REGISTER @ DECLARE LONG CONSTANT PR$_P0LR = 9 ! P0 LIMIT REGISTER ? DECL+ARE LONG CONSTANT PR$_P1BR = 10 ! P1 BASE REGISTER @ DECLARE LONG CONSTANT PR$_P1LR = 11 ! P1 LIMIT REGISTER C DECLARE LONG CONSTANT PR$_SBR = 12 ! SYSTEM BASE REGISTER D DECLARE LONG CONSTANT PR$_SLR = 13 ! SYSTEM LIMIT REGISTER E DECLARE LONG CONSTANT PR$_CPUID = 14 ! CPU IDENTIFIER REGISTER? DECLARE LONG CONSTANT PR$_WHAMI = 15 ! WHo AM I REGISTERI DECLARE LONG CONSTANT PR$_PCBB = 16 ! PROCESS CONTROL BLOCK BASE H DECLARE LONG CONSTANT PR,$_SCBB = 17 ! SYSTEM CONTROL BLOCK BASE P DECLARE LONG CONSTANT PR$_IPL = 18 ! INTERRUPT PRIORITY LEVEL REGISTER B DECLARE LONG CONSTANT PR$_ASTLVL = 19 ! AST LEVEL REGISTER R DECLARE LONG CONSTANT PR$_SIRR = 20 ! SOFTWARE INTERRUPT REQUEST REGISTER R DECLARE LONG CONSTANT PR$_SISR = 21 ! SOFTWARE INTERRUPT SUMMARY REGISTER V DECLARE LONG CONSTANT PR$_ICCS = 24 ! INTERVAL CLOCK CONTROL STATUS REGISTER X DECLARE LONG CONSTANT PR$_RXCS = 32 ! CONSOLE R-ECIEVER CONTROL STATUS REGISTER U DECLARE LONG CONSTANT PR$_RXDB = 33 ! CONSOLE RECEIVER DATA BUFFER REGISTER X DECLARE LONG CONSTANT PR$_TXCS = 34 ! CONSOLE TRANSMIT CONTROL STATUS REGISTER U DECLARE LONG CONSTANT PR$_TXDB = 35 ! CONSOLE TRANSMIT DATA BUFFER REGISTER G DECLARE LONG CONSTANT PR$_MAPEN = 56 ! MAPPING ENABLE REGISTER Q DECLARE LONG CONSTANT PR$_TBIA = 57 ! TRANSLATION BUFFER INVALIDATE: ALLG DECLARE LONG CONSTANT PR$_TBIS = 58 ! . TB INVALIDATE: SINGLE U DECLARE LONG CONSTANT PR$_TBIASN = 59 ! TB INVALIDATE: ADDRESS SPACE NUMBERG DECLARE LONG CONSTANT PR$_TBISYS = 60 ! TB INVALIDATE: SYSTEMN DECLARE LONG CONSTANT PR$_SID = 62 ! SYSTEM IDENTIFICATION REGISTER N DECLARE LONG CONSTANT PR$_TBCHK = 63 ! TRANSLATION BUFFER VALID CHECK O DECLARE LONG CONSTANT PR$_VPSR = 144 ! VECTOR PROCESSOR STATUS REGISTERS DECLARE LONG CONSTANT PR$_VAER = 145 ! VECTOR ARITHMETIC EXCEPTION R /EGISTERR DECLARE LONG CONSTANT PR$_VMAC = 146 ! VECTOR MEMORY ACCESS CHECK REGISTERH DECLARE LONG CONSTANT PR$_VTBIA = 147 ! VECTOR TB INVALIDATE ALLL DECLARE LONG CONSTANT PR$_VSAR = 148 ! VECTOR STATE ADDRESS REGISTER> DECLARE LONG CONSTANT PR$_SID_TYP780 = 1 ! VAX 11/780 > DECLARE LONG CONSTANT PR$_SID_TYP750 = 2 ! VAX 11/750 > DECLARE LONG CONSTANT PR$_SID_TYP730 = 3 ! VAX 11/730 = DECLARE LONG CONSTANT PR$_SID_TYP790 = 4 ! VAX 11/790B 0 DECLARE LONG CONSTANT PR$_SID_TYP8SS = 5 ! Scorpio for nowC DECLARE LONG CONSTANT PR$_SID_TYP8NN = 6 ! Nautilus for now> DECLARE LONG CONSTANT PR$_SID_TYPUV1 = 7 ! MicroVAX I ? DECLARE LONG CONSTANT PR$_SID_TYPUV2 = 8 ! MicroVAX II : DECLARE LONG CONSTANT PR$_SID_TYP410 = 8 ! VAXstar> DECLARE LONG CONSTANT PR$_SID_TYP009 = 9 ! Virtual VAX8 DECLARE LONG CONSTANT PR$_SID_TYP420 = 10 ! PVAX< DECLARE LONG CONSTANT PR$_SID_TYP520 = 10 ! Cirrus I 1; DECLARE LONG CONSTANT PR$_SID_TYP650 = 10 ! Mayfair? DECLARE LONG CONSTANT PR$_SID_TYP9CC = 10 ! Calypso/XCP/ DECLARE LONG CONSTANT PR$_SID_TYP9CI = 10: DECLARE LONG CONSTANT PR$_SID_TYP60 = 10 ! FirefoxC DECLARE LONG CONSTANT PR$_SID_TYP670 = 11 ! KA670 ( Pele )7 DECLARE LONG CONSTANT PR$_SID_TYP9RR = 11 ! XRPE DECLARE LONG CONSTANT PR$_SID_TYP43 = 11 ! KA43 ( RigelMAX )< DECLARE LONG CONSTANT PR$_SID_TYP9AQ = 14 ! Aquarius= 2 DECLARE LONG CONSTANT PR$_SID_TYP8PS = 17 ! Polarstar? DECLARE LONG CONSTANT PR$_SID_TYP1202 = 18 ! Mariah/XMP< DECLARE LONG CONSTANT PR$_SID_TYP46 = 18 ! PV-Mariah/ DECLARE LONG CONSTANT PR$_SID_TYP600 = 19/ DECLARE LONG CONSTANT PR$_SID_TYP690 = 19/ DECLARE LONG CONSTANT PR$_SID_TYP700 = 190 DECLARE LONG CONSTANT PR$_SID_TYP1302 = 19. DECLARE LONG CONSTANT PR$_SID_TYP49 = 190 DECLARE LONG CONSTANT PR$_SID_TYP1303 = 19G DECLARE LONG C3ONSTANT PR$_SID_TYP660 = 20 ! KA660 ( Spitfire )9 DECLARE LONG CONSTANT PR$_SID_TYP440 = 20 ! PVAX28 DECLARE LONG CONSTANT PR$_SID_TYP4A = 20 ! PCVAX= DECLARE LONG CONSTANT PR$_SID_TYP550 = 20 ! Cirrus II? DECLARE LONG CONSTANT PR$_SID_TYP1701 = 23 ! Laser/NeonH DECLARE LONG CONSTANT PR$_SID_TYP560 = 23 ! KA560 ( Jetstream )G DECLARE LONG CONSTANT PR$_SID_TYPMAX = 23 ! MAX LEGAL CPU TYPE ` DECLARE LONG CONSTANT PR$_SID_TYP_NOTAVAX = 128 ! 4 Not a VAX ( i.e. Alpha or some such ) ! Chip CPU types? DECLARE LONG CONSTANT PR$_SID_TYPUV = 8 ! MicroVAX chip ! MicroVAX chip CPU SubtypesW DECLARE LONG CONSTANT PR$_XSID_UV_UV = 0 ! Generic MicroVAX ( unused subtype )? DECLARE LONG CONSTANT PR$_XSID_UV_UV2 = 1 ! MicroVAX II; DECLARE LONG CONSTANT PR$_XSID_UV_410 = 4 ! VAXstar< DECLARE LONG CONSTANT PR$_SID_TYPCV = 10 ! CVAX chip ! CVAX chip CPU SubtypesS DECLARE LONG CONSTANT PR$_ 5XSID_CV_CV = 0 ! Generic CVAX ( unused subtype ); DECLARE LONG CONSTANT PR$_XSID_CV_650 = 1 ! Mayfair? DECLARE LONG CONSTANT PR$_XSID_CV_9CC = 2 ! Calypso/XCP: DECLARE LONG CONSTANT PR$_XSID_CV_60 = 3 ! Firefox8 DECLARE LONG CONSTANT PR$_XSID_CV_420 = 4 ! PVAX/ DECLARE LONG CONSTANT PR$_XSID_CV_9CI = 5< DECLARE LONG CONSTANT PR$_XSID_CV_520 = 7 ! CIRRUS I= DECLARE LONG CONSTANT PR$_SID_TYPRV = 11 ! Rigel chip ! Rigel chip CPU Subtypes6T DECLARE LONG CONSTANT PR$_XSID_RV_RV = 0 ! Generic Rigel ( unused subtype )C DECLARE LONG CONSTANT PR$_XSID_RV_670 = 1 ! KA670 ( Pele )? DECLARE LONG CONSTANT PR$_XSID_RV_9RR = 2 ! Calypso/XRPE DECLARE LONG CONSTANT PR$_XSID_RV_43 = 4 ! KA43 ( RigelMAX )C DECLARE LONG CONSTANT PR$_SID_TYPV12 = 18 ! Mariah chip set ! Mariah chip CPU SubtypesW DECLARE LONG CONSTANT PR$_XSID_V12_V12 = 0 ! Generic Mariah ( unused subtype )@ DECLARE LO 7NG CONSTANT PR$_XSID_V12_1202 = 2 ! MARIAH/XMPH DECLARE LONG CONSTANT PR$_XSID_V12_46 = 4 ! PVAX- mariah subtype/ DECLARE LONG CONSTANT PR$_SID_TYPV13 = 190 DECLARE LONG CONSTANT PR$_XSID_V13_V13 = 00 DECLARE LONG CONSTANT PR$_XSID_V13_690 = 11 DECLARE LONG CONSTANT PR$_XSID_V13_1302 = 21 DECLARE LONG CONSTANT PR$_XSID_V13_1303 = 3/ DECLARE LONG CONSTANT PR$_XSID_V13_49 = 40 DECLARE LONG CONSTANT PR$_XSID_V13_700 = 50 DECLARE LONG CONSTANT 8PR$_XSID_V13_600 = 6@ DECLARE LONG CONSTANT PR$_SID_TYPV14 = 20 ! SOC Chip SID ! SOC chip CPU subtypesC DECLARE LONG CONSTANT PR$_XSID_V14_V14 = 0 ! unused subtypeH DECLARE LONG CONSTANT PR$_XSID_V14_660 = 1 ! KA660 ( Spitfire )B DECLARE LONG CONSTANT PR$_XSID_V14_440 = 4 ! PVAX2 subtypeA DECLARE LONG CONSTANT PR$_XSID_V14_4A = 5 ! PCVAX subtype> DECLARE LONG CONSTANT PR$_XSID_V14_550 = 7 ! CIRRUS IIB DECLARE LONG CONSTANT PR$_SID_TYPV17 = 9 23 ! NVAX+ Chip SID ! NVAX+ chip CPU subtypesC DECLARE LONG CONSTANT PR$_XSID_V17_V17 = 0 ! unused subtype@ DECLARE LONG CONSTANT PR$_XSID_V17_1701 = 1 ! Laser/NeonI DECLARE LONG CONSTANT PR$_XSID_V17_560 = 2 ! KA560 ( Jetstream ) ! Nautilus CPU Subtypes; DECLARE LONG CONSTANT PR$_XSID_N8800 = 0 ! VAX 8800; DECLARE LONG CONSTANT PR$_XSID_N8700 = 1 ! VAX 8700F DECLARE LONG CONSTANT PR$_XSID_N2 = 2 ! Undefined Nautilus CPUF DECLAR :E LONG CONSTANT PR$_XSID_N3 = 3 ! Undefined Nautilus CPUF DECLARE LONG CONSTANT PR$_XSID_N4 = 4 ! Undefined Nautilus CPUF DECLARE LONG CONSTANT PR$_XSID_N5 = 5 ! Undefined Nautilus CPU; DECLARE LONG CONSTANT PR$_XSID_N8550 = 6 ! VAX 8550; DECLARE LONG CONSTANT PR$_XSID_N8500 = 7 ! VAX 8500H DECLARE LONG CONSTANT PR$_XSID_N8NNN = -1 ! Unknown Nautilus CPU ! VAX 11/780 IPR'S:D DECLARE LONG CONSTANT PR$_WCSA = 44 ! WCS ADDRESS REGISTER A DE;CLARE LONG CONSTANT PR$_WCSD = 45 ! WCS DATA REGISTER I DECLARE LONG CONSTANT PR$_SBIFS = 48 ! SBI FAULT STATUS REGISTER A DECLARE LONG CONSTANT PR$_SBIS = 49 ! SBI SILO REGISTER G DECLARE LONG CONSTANT PR$_SBISC = 50 ! SBI COMPARATOR REGISTER H DECLARE LONG CONSTANT PR$_SBIMT = 51 ! SBI MAINTENANCE REGISTER B DECLARE LONG CONSTANT PR$_SBIER = 52 ! SBI ERROR REGISTER L DECLARE LONG CONSTANT PR$_SBITA = 53 ! SBI TIMEOUT ADDRESS REGISTER K DE<CLARE LONG CONSTANT PR$_SBIQC = 54 ! SBI QUADWORD CLEAR REGISTER & ! END OF VAX 11/780-SPECIFIC IPR'SK DECLARE LONG CONSTANT PR$_CMIERR = 23 ! CMI ERROR SUMMARY REGISTER L DECLARE LONG CONSTANT PR$_CSRS = 28 ! CONSOLE BLK STORE RCV STATUS J DECLARE LONG CONSTANT PR$_CSRD = 29 ! CONSOLE BLK STORE RCV DATA M DECLARE LONG CONSTANT PR$_CSTS = 30 ! CONSOLE BLK STORE XMIT STATUS K DECLARE LONG CONSTANT PR$_CSTD = 31 ! CONSOLE BLK STORE XMIT DATA C =DECLARE LONG CONSTANT PR$_TBDR = 36 ! TB DISABLE REGISTER F DECLARE LONG CONSTANT PR$_CADR = 37 ! CACHE DISABLE REGISTER O DECLARE LONG CONSTANT PR$_MCESR = 38 ! MACHINE CHECK ERROR SUMMARY REG D DECLARE LONG CONSTANT PR$_CAER = 39 ! CACHE ERROR REGISTER K DECLARE LONG CONSTANT PR$_UBRESET = 55 ! UNIBUS I/O RESET REGISTER $ ! END OF 11/750 AND 11/730 IPR'S< DECLARE LONG CONSTANT PR$_PAMACC = 64 ! PAMM ACCESS > DECLARE LONG CONSTANT PR$_PAMLOC => 65 ! PAMM LOCATION D DECLARE LONG CONSTANT PR$_CSWP = 66 ! CACHE SWEEP REGISTER F DECLARE LONG CONSTANT PR$_MDECC = 67 ! MBOX DATA ECC REGISTER J DECLARE LONG CONSTANT PR$_MENA = 68 ! MBOX ERROR ENABLE REGISTER J DECLARE LONG CONSTANT PR$_MDCTL = 69 ! MBOX DATA CONTROL REGISTER I DECLARE LONG CONSTANT PR$_MCCTL = 70 ! MBOX MCC CONTROL REGISTER M DECLARE LONG CONSTANT PR$_MERG = 71 ! MBOX ERROR GENERATOR REGISTER > DECLARE LONG CONSTANT PR$_?CRBT = 72 ! CONSOLE REBOOT J DECLARE LONG CONSTANT PR$_DFI = 73 ! DIAGNOSTIC FAULT INSERTION N DECLARE LONG CONSTANT PR$_EHSR = 74 ! ERROR HANDLING STATUS REGISTER M DECLARE LONG CONSTANT PR$_ACCS790 = 75 ! ACCELERATOR STATUS REGISTER J DECLARE LONG CONSTANT PR$_STXCS = 76 ! CONSOLE STORAGE CONTROL REGL DECLARE LONG CONSTANT PR$_STXDB = 77 ! CONSOLE STORAGE DATA REGISTERA DECLARE LONG CONSTANT PR$_LSPA = 78 ! SCRATCHPAD ADDRESS> DECLARE LO @NG CONSTANT PR$_RSPD = 79 ! SCRATCHPAD DATA+ ! END OF 11/790 PROCESSOR-SPECIFIC IPRS* DECLARE LONG CONSTANT PR$S_PRDEF = 4 record PRDEF variant case$ group PR$R_PRDEF_BITS* ! SERIAL NUMBER FIELD  ! PLANT ID ! ECO LEVEL $ ! CPU TYPE CODE o LONG SID_SN_bits ! COMMENT ADDED BY SDL - SID_SN_bits contains bits SID_SN through SID_TYPE( A end group PR$R_PRDEF_BITS case% group PR$R_PRDEF_XBITS, ! CPU-SPECIFIC XSID BITS' ! CPU SUBTYPE CODE LONG FILL_XSID_BITS_bits ! COMMENT ADDED BY SDL - FILL_XSID_BITS_bits contains bits FILL_XSID_BITS through & ! XSID_TYPE) end group PR$R_PRDEF_XBITS$ ! SYSTEM ID REGISTER CPU TYPES  ! Number assignments are ! based upon the jumpers ! read by the console from  ! the MPS backplane" ! VAX 11/750 AND 11/730 IPR'S:( ! VAX 11/790 PROCESSOR-SPECIFIC IPRS end variant end record PRDEF  wwC`dPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIDNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETE %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  W DECLARE LONG CONSTANT PR730$_NICR = 25 ! INTERVAL CLOCK NEXT INTERVAL REGISTER W DECLARE LONG CONSTANT PR730$_ICR = 26 ! INTERVAL CLOCK INTERVAL COUNT REGISTER F DECLARE LONG CONSTANT FPR730$_TODR = 27 ! TIME OF DAY REGISTER U DECLARE LONG CONSTANT PR730$_ACCS = 40 ! ACCELERATOR CONTROL STATUS REGISTER F DECLARE LONG CONSTANT PR730$_ACCR = 41 ! ACCELERATOR RESERVED K DECLARE LONG CONSTANT PR730$_PME = 61 ! PERFORMANCE MONITOR ENABLE N DECLARE LONG CONSTANT PR730$_CMIERR = 23 ! CMI ERROR SUMMARY REGISTER N DECLARE LONG CONSTANT PR730$_CSRS = 28 ! CONSOLE BLK STORE RCV STATUS L DECLARE LONG CONSTANT PR730$_CSRD = 29 ! CONSOLE BLK STOGRE RCV DATA O DECLARE LONG CONSTANT PR730$_CSTS = 30 ! CONSOLE BLK STORE XMIT STATUS M DECLARE LONG CONSTANT PR730$_CSTD = 31 ! CONSOLE BLK STORE XMIT DATA E DECLARE LONG CONSTANT PR730$_TBDR = 36 ! TB DISABLE REGISTER H DECLARE LONG CONSTANT PR730$_CADR = 37 ! CACHE DISABLE REGISTER R DECLARE LONG CONSTANT PR730$_MCESR = 38 ! MACHINE CHECK ERROR SUMMARY REG F DECLARE LONG CONSTANT PR730$_CAER = 39 ! CACHE ERROR REGISTER N DECLARE LONG CONSTANT PR730$_UBRESET = 55 ! UNIBUS I/O RESET REGISTER  wwI _dPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIJNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETK %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  W DECLARE LONG CONSTANT PR750$_NICR = 25 ! INTERVAL CLOCK NEXT INTERVAL REGISTER W DECLARE LONG CONSTANT PR750$_ICR = 26 ! INTERVAL CLOCK INTERVAL COUNT REGISTER F DECLARE LONG CONSTANT LPR750$_TODR = 27 ! TIME OF DAY REGISTER U DECLARE LONG CONSTANT PR750$_ACCS = 40 ! ACCELERATOR CONTROL STATUS REGISTER F DECLARE LONG CONSTANT PR750$_ACCR = 41 ! ACCELERATOR RESERVED K DECLARE LONG CONSTANT PR750$_PME = 61 ! PERFORMANCE MONITOR ENABLE N DECLARE LONG CONSTANT PR750$_CMIERR = 23 ! CMI ERROR SUMMARY REGISTER N DECLARE LONG CONSTANT PR750$_CSRS = 28 ! CONSOLE BLK STORE RCV STATUS L DECLARE LONG CONSTANT PR750$_CSRD = 29 ! CONSOLE BLK STOMRE RCV DATA O DECLARE LONG CONSTANT PR750$_CSTS = 30 ! CONSOLE BLK STORE XMIT STATUS M DECLARE LONG CONSTANT PR750$_CSTD = 31 ! CONSOLE BLK STORE XMIT DATA E DECLARE LONG CONSTANT PR750$_TBDR = 36 ! TB DISABLE REGISTER H DECLARE LONG CONSTANT PR750$_CADR = 37 ! CACHE DISABLE REGISTER R DECLARE LONG CONSTANT PR750$_MCESR = 38 ! MACHINE CHECK ERROR SUMMARY REG F DECLARE LONG CONSTANT PR750$_CAER = 39 ! CACHE ERROR REGISTER N DECLARE LONG CONSTANT PR750$_UBRESET = 55 ! UNIBUS I/O RESET REGISTER  wwOdPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIPNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETQ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  W DECLARE LONG CONSTANT PR780$_NICR = 25 ! INTERVAL CLOCK NEXT INTERVAL REGISTER W DECLARE LONG CONSTANT PR780$_ICR = 26 ! INTERVAL CLOCK INTERVAL COUNT REGISTER F DECLARE LONG CONSTANT RPR780$_TODR = 27 ! TIME OF DAY REGISTER U DECLARE LONG CONSTANT PR780$_ACCS = 40 ! ACCELERATOR CONTROL STATUS REGISTER F DECLARE LONG CONSTANT PR780$_ACCR = 41 ! ACCELERATOR RESERVED K DECLARE LONG CONSTANT PR780$_PME = 61 ! PERFORMANCE MONITOR ENABLE F DECLARE LONG CONSTANT PR780$_WCSA = 44 ! WCS ADDRESS REGISTER C DECLARE LONG CONSTANT PR780$_WCSD = 45 ! WCS DATA REGISTER L DECLARE LONG CONSTANT PR780$_SBIFS = 48 ! SBI FAULT STATUS REGISTER C  DECLARE LONG CONSTANT PR780$_SBIS = 49 ! SBI SILO REGISTER J DECLARE LONG CONSTANT PR780$_SBISC = 50 ! SBI COMPARATOR REGISTER K DECLARE LONG CONSTANT PR780$_SBIMT = 51 ! SBI MAINTENANCE REGISTER E DECLARE LONG CONSTANT PR780$_SBIER = 52 ! SBI ERROR REGISTER O DECLARE LONG CONSTANT PR780$_SBITA = 53 ! SBI TIMEOUT ADDRESS REGISTER N DECLARE LONG CONSTANT PR780$_SBIQC = 54 ! SBI QUADWORD CLEAR REGISTER  wwTPdPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIUNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETV %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  W DECLARE LONG CONSTANT PR790$_NICR = 25 ! INTERVAL CLOCK NEXT INTERVAL REGISTER W DECLARE LONG CONSTANT PR790$_ICR = 26 ! INTERVAL CLOCK INTERVAL COUNT REGISTER F DECLARE LONG CONSTANT WPR790$_TODR = 27 ! TIME OF DAY REGISTER U DECLARE LONG CONSTANT PR790$_ACCS = 40 ! ACCELERATOR CONTROL STATUS REGISTER F DECLARE LONG CONSTANT PR790$_ACCR = 41 ! ACCELERATOR RESERVED K DECLARE LONG CONSTANT PR790$_PME = 61 ! PERFORMANCE MONITOR ENABLE ? DECLARE LONG CONSTANT PR790$_PAMACC = 64 ! PAMM ACCESS A DECLARE LONG CONSTANT PR790$_PAMLOC = 65 ! PAMM LOCATION F DECLARE LONG CONSTANT PR790$_CSWP = 66 ! CACHE SWEEP REGISTER I DECLARE LONGX CONSTANT PR790$_MDECC = 67 ! MBOX DATA ECC REGISTER L DECLARE LONG CONSTANT PR790$_MENA = 68 ! MBOX ERROR ENABLE REGISTER M DECLARE LONG CONSTANT PR790$_MDCTL = 69 ! MBOX DATA CONTROL REGISTER L DECLARE LONG CONSTANT PR790$_MCCTL = 70 ! MBOX MCC CONTROL REGISTER O DECLARE LONG CONSTANT PR790$_MERG = 71 ! MBOX ERROR GENERATOR REGISTER @ DECLARE LONG CONSTANT PR790$_CRBT = 72 ! CONSOLE REBOOT K DECLARE LONG CONSTANT PR790$_DFI = 73 ! DIAGNOSTIC FAULT INSERTION P DECLARE LONG CONSTANT PR790$_EHSR = 74 ! ERROR HANDLING STATUS REGISTER P DECLARE LONG CONSTANT PR790$_ACCS790 = 75 ! ACCELERATOR STATUS REGISTER M DECLARE LONG CONSTANT PR790$_STXCS = 76 ! CONSOLE STORAGE CONTROL REGO DECLARE LONG CONSTANT PR790$_STXDB = 77 ! CONSOLE STORAGE DATA REGISTERC DECLARE LONG CONSTANT PR790$_LSPA = 78 ! SCRATCHPAD ADDRESS@ DECLARE LONG CONSTANT PR790$_RSPD = 79 ! SCRATCHPAD DATA wwZ-ePV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI[NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET\ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  H DECLARE LONG CONSTANT PRUV1$_CADR = 37 ! CACHE DISABLE REGISTER R DECLARE LONG CONSTANT PRUV1$_MCESR = 38 ! MACHINE CHECK ERROR SUMMARY REG K DECLARE LONG CONSTANT PRUV1$_IORESET = 55 ! INITIALIZE BUS REGISTER wwM@wPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )F END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1S %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )E END RECORDD% %LET %BASIC$OCTAWORD_DECLARED = 1F %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI_jePV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI`NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETa %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  X DECLARE LONG CONSTANT PRUV2$_SAVISP = 41 ! CONSOLE SAVED INTERRUPT STACK POINTERK DECLARE LONG CONSTANT PRUV2$_SAVPC = 42 ! CONSOLE SAVED PC REGISTERM DECLARE LONG CONSTANT PRUV2$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTERK DECLARE LONG CONSTANT PRUV2$_IORESET = 55 ! INITIALIZE BUS REGISTER wwcePV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIdNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETe %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  X DECLARE LONG CONSTANT PR410$_SAVISP = 41 ! CONSOLE SAVED INTERRUPT STACK POINTERK DECLARE LONG CONSTANT PR410$_SAVPC = 42 ! CONSOLE SAVED PC REGISTERM DECLARE LONG CONSTANT PR410$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTER wwgKePV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIhNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETi %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  > DECLARE LONG CONSTANT PR420$_CADR = 37 ! CACHE DISABLED DECLARE LONG CONSTANT PR420$_MSER = 39 ! MEMORY SYSTEM ERRORK DECLARE LONG CONSTANT PR420$_SAVPC = 42 ! CONSOLE SAVED PC REGISTE jRM DECLARE LONG CONSTANT PR420$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTER: DECLARE LONG CONSTANT PR420$M_MSER_TAG = x'00000001': DECLARE LONG CONSTANT PR420$M_MSER_DAT = x'00000002': DECLARE LONG CONSTANT PR420$M_MSER_MCC = x'00000010': DECLARE LONG CONSTANT PR420$M_MSER_MCD = x'00000020': DECLARE LONG CONSTANT PR420$M_MSER_DAL = x'00000040'9 DECLARE LONG CONSTANT PR420$M_MSER_HM = x'00000080'1 DECLARE LONG CONSTANT PR420$S_PR420MSER = 1 recokrd PR420MSER# group PR420$R_MSER_OVERLAY variant case) group PR420$R_MSER_BITS( ! Cache tag error) ! Cache data error ! Unused6 ! Machine check on first level  ! cache parity error0 ! Machine check on DAL PE) ! DAL parity error! ! Hit/missw BYTE MSER_TAG_bits ! COMMENT ADDED BY SDL - MSER_TAG_bits contains bits MSER_TAG through MSER_HM- end group PR420$R_MSER_BITS end variant' end group PR420$R_MSER_OVERLAY end record PR420MSER  wwm lfPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGInNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETo %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + DECLARE LONG CONSTANT PR43$_ICCS = 24, DECLARE LONG CONSTANT PR43$_MCESR = 38+ DECLARE LONG CONSTANT PR43$_ACCS = 40, DECLARE LONG CONSTANT PR43$_SAVPC = 42- DECLARE LONG CONST pANT PR43$_SAVPSL = 43, DECLARE LONG CONSTANT PR43$_TBTAG = 47- DECLARE LONG CONSTANT PR43$_TBDATA = 59. DECLARE LONG CONSTANT PR43$_VINTSR = 123- DECLARE LONG CONSTANT PR43$_PCTAG = 124- DECLARE LONG CONSTANT PR43$_PCIDX = 125- DECLARE LONG CONSTANT PR43$_PCERR = 126- DECLARE LONG CONSTANT PR43$_PCSTS = 1278 DECLARE LONG CONSTANT PR43$M_ICCS_IE = x'00000040'0 DECLARE LONG CONSTANT PR43$S_PR43_ICCS = 1 record PR43_ICCS" group P qR43$R_ICCS_OVERLAY variant case( group PR43$R_ICCS_BITSz BYTE ICCS_FILL_bits ! COMMENT ADDED BY SDL - ICCS_FILL_bits contains bits ICCS_FILL through fill_55, end group PR43$R_ICCS_BITS end variant& end group PR43$R_ICCS_OVERLAY end record PR43_ICCS < DECLARE LONG CONSTANT PR43$M_ACCS_VECTOR = x'00000001'; DECLARE LONG CONSTANT PR43$M_ACCS_FCHIP = x'00000002'9 rDECLARE LONG CONSTANT PR43$M_ACCS_WEP = x'80000000'0 DECLARE LONG CONSTANT PR43$S_PR43_ACCS = 4 record PR43_ACCS" group PR43$R_ACCS_OVERLAY variant case( group PR43$R_ACCS_BITS LONG ACCS_VECTOR_bits ! COMMENT ADDED BY SDL - ACCS_VECTOR_bits contains bits ACCS_VECTOR through ACCS_WEP, end group PR43$R_ACCS_BITS end variant& end group PR43$R_ACCS_OVERLAY end re scord PR43_ACCS > DECLARE LONG CONSTANT PR43$M_SAVPSL_HLTCOD = x'00003F00'= DECLARE LONG CONSTANT PR43$M_SAVPSL_INVAL = x'00004000'= DECLARE LONG CONSTANT PR43$M_SAVPSL_MAPEN = x'00008000'2 DECLARE LONG CONSTANT PR43$S_PR43_SAVPSL = 2 record PR43_SAVPSL$ group PR43$R_SAVPSL_OVERLAY variant case* group PR43$R_SAVPSL_BITS~ WORD SAVPSL_FILL1_bits ! COMMENT ADDED BY SDL - SAVPSL_FILL1_bitst contains bits SAVPSL_FILL1 through & ! SAVPSL_MAPEN. end group PR43$R_SAVPSL_BITS end variant( end group PR43$R_SAVPSL_OVERLAY end record PR43_SAVPSL : DECLARE LONG CONSTANT PR43$M_TBTAG_VPN = x'FFFFFE00'1 DECLARE LONG CONSTANT PR43$S_PR43_TBTAG = 4 record PR43_TBTAG# group PR43$R_TBTAG_OVERLAY variant case) group PR43$R_TBTAG_BITS LONG TBTAG_ uFILL1_bits ! COMMENT ADDED BY SDL - TBTAG_FILL1_bits contains bits TBTAG_FILL1 through TBTAG_VPN- end group PR43$R_TBTAG_BITS end variant' end group PR43$R_TBTAG_OVERLAY end record PR43_TBTAG ; DECLARE LONG CONSTANT PR43$M_TBDATA_PFN = x'001FFFFF'9 DECLARE LONG CONSTANT PR43$M_TBDATA_M = x'04000000'< DECLARE LONG CONSTANT PR43$M_TBDATA_PROT = x'78000000'9 DECLARE LONG CONSTANT PR43$M_TBDATA_V = x'80000000'2 DECL vARE LONG CONSTANT PR43$S_PR43_TBDATA = 4 record PR43_TBDATA$ group PR43$R_TBDATA_OVERLAY variant case* group PR43$R_TBDATA_BITS~ LONG TBDATA_PFN_bits ! COMMENT ADDED BY SDL - TBDATA_PFN_bits contains bits TBDATA_PFN through TBDATA_V. end group PR43$R_TBDATA_BITS end variant( end group PR43$R_TBDATA_OVERLAY end record PR43_TBDATA : DECLARE LONG CONSTANT PR43 w$M_PCTAG_TAG = x'1FFFF800'= DECLARE LONG CONSTANT PR43$M_PCTAG_PARITY = x'40000000'< DECLARE LONG CONSTANT PR43$M_PCTAG_VALID = x'80000000'1 DECLARE LONG CONSTANT PR43$S_PR43_PCTAG = 4 record PR43_PCTAG# group PR43$R_PCTAG_OVERLAY variant case) group PR43$R_PCTAG_BITS{ LONG PCTAG_FILL1_bits ! COMMENT ADDED BY SDL - PCTAG_FILL1_bits contains bits PCTAG_FILL1 through & ! PCTAG_VALID- x end group PR43$R_PCTAG_BITS end variant' end group PR43$R_PCTAG_OVERLAY end record PR43_PCTAG < DECLARE LONG CONSTANT PR43$M_PCIDX_INDEX = x'000007F8'1 DECLARE LONG CONSTANT PR43$S_PR43_PCIDX = 4 record PR43_PCIDX# group PR43$R_PCIDX_OVERLAY variant case) group PR43$R_PCIDX_BITS{ LONG PCIDX_FILL1_bits ! COMMENT ADDED BY SDL - PCIDX_FILL1_bits containys bits PCIDX_FILL1 through & ! PCIDX_FILL2- end group PR43$R_PCIDX_BITS end variant' end group PR43$R_PCIDX_OVERLAY end record PR43_PCIDX ; DECLARE LONG CONSTANT PR43$M_PCERR_ADDR = x'3FFFFFFF'1 DECLARE LONG CONSTANT PR43$S_PR43_PCERR = 4 record PR43_PCERR# group PR43$R_PCERR_OVERLAY variant case) group PR43$R_PCERR_BITS LONG PCERR_ADDR_bit zs ! COMMENT ADDED BY SDL - PCERR_ADDR_bits contains bits PCERR_ADDR through PCERR_FILL1- end group PR43$R_PCERR_BITS end variant' end group PR43$R_PCERR_OVERLAY end record PR43_PCERR @ DECLARE LONG CONSTANT PR43$M_PCSTS_FORCE_HIT = x'00000001'> DECLARE LONG CONSTANT PR43$M_PCSTS_ENA_PTS = x'00000002'< DECLARE LONG CONSTANT PR43$M_PCSTS_FLUSH = x'00000004'> DECLARE LONG CONSTANT PR43$M_PCSTS_ENA_RFR = x'00000008'= {DECLARE LONG CONSTANT PR43$M_PCSTS_PC_HIT = x'00000010': DECLARE LONG CONSTANT PR43$M_PCSTS_INT = x'00000020'< DECLARE LONG CONSTANT PR43$M_PCSTS_TRAP2 = x'00000040'< DECLARE LONG CONSTANT PR43$M_PCSTS_TRAP1 = x'00000080'= DECLARE LONG CONSTANT PR43$M_PCSTS_TAG_PE = x'00000100'> DECLARE LONG CONSTANT PR43$M_PCSTS_RDAL_PE = x'00000200'> DECLARE LONG CONSTANT PR43$M_PCSTS_DATA_PE = x'00000400'> DECLARE LONG CONSTANT PR43$M_PCSTS_BUS_ERR = x'00000800'= DE |CLARE LONG CONSTANT PR43$M_PCSTS_BC_HIT = x'00001000'1 DECLARE LONG CONSTANT PR43$S_PR43_PCSTS = 4 record PR43_PCSTS# group PR43$R_PCSTS_OVERLAY variant case) group PR43$R_PCSTS_BITS LONG PCSTS_FORCE_HIT_bits ! COMMENT ADDED BY SDL - PCSTS_FORCE_HIT_bits contains bits PCSTS_FORCE_HIT & ! through PCSTS_FILL1- end group PR43$R_PCSTS_BITS end variant' end group PR43$R_PCSTS_OVERLAY end record PR43_PCSTS  ww~!fPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  , DECLARE LONG CONSTANT PR440$_ICCS = 24+ DECLARE LONG CONSTANT PR440$_CCR = 37, DECLARE LONG CONSTANT PR440$_MSER = 39- DECLARE LONG CONSTANT PR440$_SAVPC = 42. DECLARE LONG CON STANT PR440$_SAVPSL = 43: DECLARE LONG CONSTANT PR440$M_MSER_INT = x'00000001'; DECLARE LONG CONSTANT PR440$M_MSER_TRP1 = x'00000002'; DECLARE LONG CONSTANT PR440$M_MSER_TRP2 = x'00000004': DECLARE LONG CONSTANT PR440$M_MSER_TPE = x'00000008': DECLARE LONG CONSTANT PR440$M_MSER_DPE = x'00000010'; DECLARE LONG CONSTANT PR440$M_MSER_CDPE = x'00000020': DECLARE LONG CONSTANT PR440$M_MSER_BER = x'00000040'2 DECLARE LONG CONSTANT PR440$S_PR440_MSER = 1  record PR440_MSER# group PR440$R_MSER_OVERLAY variant case) group PR440$R_MSER_BITSw BYTE MSER_INT_bits ! COMMENT ADDED BY SDL - MSER_INT_bits contains bits MSER_INT through fill_56- end group PR440$R_MSER_BITS end variant' end group PR440$R_MSER_OVERLAY end record PR440_MSER 9 DECLARE LONG CONSTANT PR440$M_CCR_DIA = x'00000001'; DECLARE LONG CON STANT PR440$M_CCR_FLUSH = x'00000002'9 DECLARE LONG CONSTANT PR440$M_CCR_ENA = x'00000004'9 DECLARE LONG CONSTANT PR440$M_CCR_CWP = x'00000008'1 DECLARE LONG CONSTANT PR440$S_PR440_CCR = 1 record PR440_CCR" group PR440$R_CCR_OVERLAY variant case( group PR440$R_CCR_BITSt BYTE CCR_DIA_bits ! COMMENT ADDED BY SDL - CCR_DIA_bits contains bits CCR_DIA through fill_57, end group PR440$R_CCR_BITS end variant& end group PR440$R_CCR_OVERLAY end record PR440_CCR  ww gPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + DECLARE LONG CONSTANT PR4A$_ICCS = 24* DECLARE LONG CONSTANT PR4A$_CCR = 37+ DECLARE LONG CONSTANT PR4A$_MSER = 39, DECLARE LONG CONSTANT PR4A$_SAVPC = 42- DECLARE LONG CONSTAN T PR4A$_SAVPSL = 439 DECLARE LONG CONSTANT PR4A$M_MSER_INT = x'00000001': DECLARE LONG CONSTANT PR4A$M_MSER_TRP1 = x'00000002': DECLARE LONG CONSTANT PR4A$M_MSER_TRP2 = x'00000004'9 DECLARE LONG CONSTANT PR4A$M_MSER_TPE = x'00000008'9 DECLARE LONG CONSTANT PR4A$M_MSER_DPE = x'00000010': DECLARE LONG CONSTANT PR4A$M_MSER_CDPE = x'00000020'9 DECLARE LONG CONSTANT PR4A$M_MSER_BER = x'00000040'0 DECLARE LONG CONSTANT PR4A$S_PR4A_MSER = 1 record P R4A_MSER" group PR4A$R_MSER_OVERLAY variant case( group PR4A$R_MSER_BITSw BYTE MSER_INT_bits ! COMMENT ADDED BY SDL - MSER_INT_bits contains bits MSER_INT through fill_58, end group PR4A$R_MSER_BITS end variant& end group PR4A$R_MSER_OVERLAY end record PR4A_MSER 8 DECLARE LONG CONSTANT PR4A$M_CCR_DIA = x'00000001': DECLARE LONG CONSTANT PR4A$M_CCR_FLUSH = x '00000002'8 DECLARE LONG CONSTANT PR4A$M_CCR_ENA = x'00000004'8 DECLARE LONG CONSTANT PR4A$M_CCR_CWP = x'00000008'/ DECLARE LONG CONSTANT PR4A$S_PR4A_CCR = 1 record PR4A_CCR! group PR4A$R_CCR_OVERLAY variant case' group PR4A$R_CCR_BITSt BYTE CCR_DIA_bits ! COMMENT ADDED BY SDL - CCR_DIA_bits contains bits CCR_DIA through fill_59+ end group PR4A$R_CCR_BITS end variant% end group PR4A$R_CCR_OVERLAY end record PR4A_CCR  ww$PROVDEF $PROWDEFr$PRTDEFY $PRUV1DEF^ $PRUV2DEF$PRVDEF:$PRXDEFG $PSCANDEFS$PSLDEF $PSMMSGDEFg $PSWDEFZ$PTDDEF`$QUIDEF$RABDEF $RBLDDEFgPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  + DECLARE LONG CONSTANT PR46$_ICCS = 24, DECLARE LONG CONSTANT PR46$_MCESR = 38+ DECLARE LONG CONSTANT PR46$_ACCS = 40, DECLARE LONG CONSTANT PR46$_SAVPC = 42- DECLARE LONG CONST ANT PR46$_SAVPSL = 43, DECLARE LONG CONSTANT PR46$_TBTAG = 47- DECLARE LONG CONSTANT PR46$_TBDATA = 59. DECLARE LONG CONSTANT PR46$_VINTSR = 123- DECLARE LONG CONSTANT PR46$_PCTAG = 124- DECLARE LONG CONSTANT PR46$_PCIDX = 125- DECLARE LONG CONSTANT PR46$_PCERR = 126- DECLARE LONG CONSTANT PR46$_PCSTS = 1278 DECLARE LONG CONSTANT PR46$M_ICCS_IE = x'00000040'0 DECLARE LONG CONSTANT PR46$S_PR46_ICCS = 1 record PR46_ICCS" group P R46$R_ICCS_OVERLAY variant case( group PR46$R_ICCS_BITSz BYTE ICCS_FILL_bits ! COMMENT ADDED BY SDL - ICCS_FILL_bits contains bits ICCS_FILL through fill_60, end group PR46$R_ICCS_BITS end variant& end group PR46$R_ICCS_OVERLAY end record PR46_ICCS < DECLARE LONG CONSTANT PR46$M_ACCS_VECTOR = x'00000001'; DECLARE LONG CONSTANT PR46$M_ACCS_FCHIP = x'00000002': DECLARE LONG CONSTANT PR46$M_ACCS_MODE = x'00000004'9 DECLARE LONG CONSTANT PR46$M_ACCS_WEP = x'80000000'0 DECLARE LONG CONSTANT PR46$S_PR46_ACCS = 4 record PR46_ACCS" group PR46$R_ACCS_OVERLAY variant case( group PR46$R_ACCS_BITS LONG ACCS_VECTOR_bits ! COMMENT ADDED BY SDL - ACCS_VECTOR_bits contains bits ACCS_VECTOR through ACCS_WEP, end group PR46$R_ACCS_BITS end variant& end group PR46$R_ACCS_OVERLAY end record PR46_ACCS > DECLARE LONG CONSTANT PR46$M_SAVPSL_HLTCOD = x'00003F00'= DECLARE LONG CONSTANT PR46$M_SAVPSL_INVAL = x'00004000'= DECLARE LONG CONSTANT PR46$M_SAVPSL_MAPEN = x'00008000'2 DECLARE LONG CONSTANT PR46$S_PR46_SAVPSL = 2 record PR46_SAVPSL$ group PR46$R_SAVPSL_OVERLAY variant case* group PR46$R_SAVPSL_BITS~ WORD SAVPSL_FILL1_bits ! COMMENT ADDED BY SDL - SAVPSL_FILL1_bits contains bits SAVPSL_FILL1 through & ! SAVPSL_MAPEN. end group PR46$R_SAVPSL_BITS end variant( end group PR46$R_SAVPSL_OVERLAY end record PR46_SAVPSL : DECLARE LONG CONSTANT PR46$M_TBTAG_VPN = x'FFFFFE00'1 DECLARE LONG CONSTANT PR46$S_PR46_TBTAG = 4 record PR46_TBTAG# group PR46$R_TBTAG_OVERLAY variant case)  group PR46$R_TBTAG_BITS LONG TBTAG_FILL1_bits ! COMMENT ADDED BY SDL - TBTAG_FILL1_bits contains bits TBTAG_FILL1 through TBTAG_VPN- end group PR46$R_TBTAG_BITS end variant' end group PR46$R_TBTAG_OVERLAY end record PR46_TBTAG ; DECLARE LONG CONSTANT PR46$M_TBDATA_PFN = x'001FFFFF'9 DECLARE LONG CONSTANT PR46$M_TBDATA_M = x'04000000'< DECLARE LONG CONSTANT PR46$M_TBDATA_PROT = x'78000000'9 DECL ARE LONG CONSTANT PR46$M_TBDATA_V = x'80000000'2 DECLARE LONG CONSTANT PR46$S_PR46_TBDATA = 4 record PR46_TBDATA$ group PR46$R_TBDATA_OVERLAY variant case* group PR46$R_TBDATA_BITS~ LONG TBDATA_PFN_bits ! COMMENT ADDED BY SDL - TBDATA_PFN_bits contains bits TBDATA_PFN through TBDATA_V. end group PR46$R_TBDATA_BITS end variant( end group PR46$R_TBDATA_OVERLAY en d record PR46_TBDATA : DECLARE LONG CONSTANT PR46$M_PCTAG_TAG = x'1FFFF800'= DECLARE LONG CONSTANT PR46$M_PCTAG_PARITY = x'40000000'< DECLARE LONG CONSTANT PR46$M_PCTAG_VALID = x'80000000'1 DECLARE LONG CONSTANT PR46$S_PR46_PCTAG = 4 record PR46_PCTAG# group PR46$R_PCTAG_OVERLAY variant case) group PR46$R_PCTAG_BITS{ LONG PCTAG_FILL1_bits ! COMMENT ADDED BY SDL - PCTAG_FILL1_bits contains bits PCTAG_FILL1 through & ! PCTAG_VALID- end group PR46$R_PCTAG_BITS end variant' end group PR46$R_PCTAG_OVERLAY end record PR46_PCTAG < DECLARE LONG CONSTANT PR46$M_PCIDX_INDEX = x'000007F8'1 DECLARE LONG CONSTANT PR46$S_PR46_PCIDX = 4 record PR46_PCIDX# group PR46$R_PCIDX_OVERLAY variant case) group PR46$R_PCIDX_BITS{ LONG PCIDX_FILL1_bits ! COMMENT ADDED BY SDL - PCIDX_FILL1_bits contains bits PCIDX_FILL1 through & ! PCIDX_FILL2- end group PR46$R_PCIDX_BITS end variant' end group PR46$R_PCIDX_OVERLAY end record PR46_PCIDX ; DECLARE LONG CONSTANT PR46$M_PCERR_ADDR = x'3FFFFFFF'1 DECLARE LONG CONSTANT PR46$S_PR46_PCERR = 4 record PR46_PCERR# group PR46$R_PCERR_OVERLAY variant case) group PR46$R_PCERR_BITS LONG PCERR_ADDR_bits ! COMMENT ADDED BY SDL - PCERR_ADDR_bits contains bits PCERR_ADDR through PCERR_FILL1- end group PR46$R_PCERR_BITS end variant' end group PR46$R_PCERR_OVERLAY end record PR46_PCERR @ DECLARE LONG CONSTANT PR46$M_PCSTS_FORCE_HIT = x'00000001'> DECLARE LONG CONSTANT PR46$M_PCSTS_ENA_PTS = x'00000002'< DECLARE LONG CONSTANT PR46$M_PCSTS_FLUSH = x'00000004'> DECL ARE LONG CONSTANT PR46$M_PCSTS_ENA_RFR = x'00000008'= DECLARE LONG CONSTANT PR46$M_PCSTS_PC_HIT = x'00000010': DECLARE LONG CONSTANT PR46$M_PCSTS_INT = x'00000020'< DECLARE LONG CONSTANT PR46$M_PCSTS_TRAP2 = x'00000040'< DECLARE LONG CONSTANT PR46$M_PCSTS_TRAP1 = x'00000080'= DECLARE LONG CONSTANT PR46$M_PCSTS_TAG_PE = x'00000100'> DECLARE LONG CONSTANT PR46$M_PCSTS_RDAL_PE = x'00000200'> DECLARE LONG CONSTANT PR46$M_PCSTS_DATA_PE = x'00000400'> DECLAR E LONG CONSTANT PR46$M_PCSTS_BUS_ERR = x'00000800'= DECLARE LONG CONSTANT PR46$M_PCSTS_BC_HIT = x'00001000'1 DECLARE LONG CONSTANT PR46$S_PR46_PCSTS = 4 record PR46_PCSTS# group PR46$R_PCSTS_OVERLAY variant case) group PR46$R_PCSTS_BITS LONG PCSTS_FORCE_HIT_bits ! COMMENT ADDED BY SDL - PCSTS_FORCE_HIT_bits contains bits PCSTS_FORCE_HIT & ! through PCSTS_FILL1- end group PR46$R_PCSTS_BITS end variant' end group PR46$R_PCSTS_OVERLAY end record PR46_PCSTS  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  L DECLARE LONG CONSTANT PR49$_NICR = 25 ! Next Interval Count RegisterF DECLARE LONG CONSTANT PR49$_ICR = 26 ! Interval Count Register wwL hPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  G DECLARE LONG CONSTANT PR520$_ICCS = 24 ! INTERVAL CLOCK CONTROL> DECLARE LONG CONSTANT PR520$_CADR = 37 ! CACHE DISABLED DECLARE LONG CONSTANT PR520$_MSER = 39 ! MEMORY SYSTEM ERRORK DECLARE LONG CONSTANT PR520$_SAVPC = 42 ! CONSOLE SAVED PC REGISTERM DECLARE LONG CONSTANT PR520$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTERF DECLARE LONG CONSTANT PR550$_CCR = 37 ! Cache Control Register: DECLARE LONG CONSTANT PR550$M_CCR_DIAG = x'00000001'; DECLARE LONG CONSTANT PR550$M_CCR_FLUSH = x'00000002'< DECLARE LONG CONSTANT PR550$M_CCR_ENABLE = x'00000004'9 DECLARE LONG CONSTANT PR550$M_CCR_WWP = x'00000008'1 DECLARE LONG CONSTANT PR550$S_PR550_CCR = 1 record PR550_CCR" group PR550$R_CCR_OVERLAY variant case( group PR550$R_CCR_BITSw BYTE CCR_DIAG_bits ! COMMENT ADDED BY SDL - CCR_DIAG_bits contains bits CCR_DIAG through fill_61, end group PR550$R_CCR_BITS end variant& end group PR550$R_CCR_OVERLAY end record PR550_CCR  wwEhPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ww^hPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  = DECLARE LONG CONSTANT PR650$_TODR = 27 ! TIME OF YEAR> DECLARE LONG CONSTANT PR650$_CADR = 37 ! CACHE DISABLED DECLARE LONG CONSTANT PR650$_MSER = 39 ! MEMORY SYSTEM ERRORK DECLARE LONG CONSTANT PR650$_SAVPC = 42 ! CONSOLE SAVED PC REGISTERM DECLARE LONG CONSTANT PR650$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTER@ DECLARE LONG CONSTANT PR650$_IORESET = 55 ! IO BUS RESET wwhPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  , DECLARE LONG CONSTANT PR660$_TODR = 27, DECLARE LONG CONSTANT PR660$_CSRS = 28, DECLARE LONG CONSTANT PR660$_CSRD = 29, DECLARE LONG CONSTANT PR660$_CSTS = 30, DECLARE LONG CONST ANT PR660$_CSTD = 31, DECLARE LONG CONSTANT PR660$_TBDR = 36+ DECLARE LONG CONSTANT PR660$_CCR = 37, DECLARE LONG CONSTANT PR660$_MSER = 39- DECLARE LONG CONSTANT PR660$_SAVPC = 42. DECLARE LONG CONSTANT PR660$_SAVPSL = 43/ DECLARE LONG CONSTANT PR660$_IORESET = 55: DECLARE LONG CONSTANT PR660$M_CCR_DIAG = x'00000001'; DECLARE LONG CONSTANT PR660$M_CCR_FLUSH = x'00000002'< DECLARE LONG CONSTANT PR660$M_CCR_ENABLE = x'00000004'9 DECLARE LO NG CONSTANT PR660$M_CCR_WWP = x'00000008'1 DECLARE LONG CONSTANT PR660$S_PR660_CCR = 1 record PR660_CCR" group PR660$R_CCR_OVERLAY variant case( group PR660$R_CCR_BITSw BYTE CCR_DIAG_bits ! COMMENT ADDED BY SDL - CCR_DIAG_bits contains bits CCR_DIAG through fill_63, end group PR660$R_CCR_BITS end variant& end group PR660$R_CCR_OVERLAY end record PR660_CCR  = DECLARE LONG CONSTANT PR660$M_MSER_TAG_PE = x'00000001'> DECLARE LONG CONSTANT PR660$M_MSER_DATA_PE = x'00000002'C DECLARE LONG CONSTANT PR660$M_MSER_MCA_CACHE_PE = x'00000010'B DECLARE LONG CONSTANT PR660$M_MSER_MCA_CDAL_PE = x'00000020'> DECLARE LONG CONSTANT PR660$M_MSER_CDAL_PE = x'00000040'2 DECLARE LONG CONSTANT PR660$S_PR660_MSER = 1 record PR660_MSER# group PR660$R_MSER_OVERLAY variant case) group PR660$R_MSER_BITS BYTE MSER_TAG_PE_bits ! COMMENT ADDED BY SDL - MSER_TAG_PE_bits contains bits MSER_TAG_PE through fill_64- end group PR660$R_MSER_BITS end variant' end group PR660$R_MSER_OVERLAY end record PR660_MSER  ww3fiPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  , DECLARE LONG CONSTANT PR670$_TODR = 27, DECLARE LONG CONSTANT PR670$_CSRS = 28, DECLARE LONG CONSTANT PR670$_CSRD = 29, DECLARE LONG CONSTANT PR670$_CSTS = 30, DECLARE LONG CONST ANT PR670$_CSTD = 31- DECLARE LONG CONSTANT PR670$_MCESR = 38, DECLARE LONG CONSTANT PR670$_ACCS = 40- DECLARE LONG CONSTANT PR670$_SAVPC = 42. DECLARE LONG CONSTANT PR670$_SAVPSL = 43- DECLARE LONG CONSTANT PR670$_TBTAG = 47/ DECLARE LONG CONSTANT PR670$_IORESET = 55. DECLARE LONG CONSTANT PR670$_TBDATA = 59. DECLARE LONG CONSTANT PR670$_BCBTS = 113/ DECLARE LONG CONSTANT PR670$_BCP1TS = 114/ DECLARE LONG CONSTANT PR670$_BCP2TS = 115.  DECLARE LONG CONSTANT PR670$_BCRFR = 116. DECLARE LONG CONSTANT PR670$_BCIDX = 117. DECLARE LONG CONSTANT PR670$_BCSTS = 118. DECLARE LONG CONSTANT PR670$_BCCTL = 119. DECLARE LONG CONSTANT PR670$_BCERR = 120/ DECLARE LONG CONSTANT PR670$_BCFBTS = 121/ DECLARE LONG CONSTANT PR670$_BCFPTS = 122/ DECLARE LONG CONSTANT PR670$_VINTSR = 123. DECLARE LONG CONSTANT PR670$_PCTAG = 124. DECLARE LONG CONSTANT PR670$_PCIDX = 125. DECLARE LONG C ONSTANT PR670$_PCERR = 126. DECLARE LONG CONSTANT PR670$_PCSTS = 127= DECLARE LONG CONSTANT PR670$M_BCBTS_VALID = x'0000003C'; DECLARE LONG CONSTANT PR670$M_BCBTS_TAG = x'1FFE0000'> DECLARE LONG CONSTANT PR670$M_BCBTS_PARITY = x'20000000'3 DECLARE LONG CONSTANT PR670$S_PR670_BCBTS = 4 record PR670_BCBTS$ group PR670$R_BCBTS_OVERLAY variant case* group PR670$R_BCBTS_BITS{ LONG BCBTS_FI LL1_bits ! COMMENT ADDED BY SDL - BCBTS_FILL1_bits contains bits BCBTS_FILL1 through & ! BCBTS_FILL3. end group PR670$R_BCBTS_BITS end variant( end group PR670$R_BCBTS_OVERLAY end record PR670_BCBTS = DECLARE LONG CONSTANT PR670$M_BCPTS_VALID = x'00000004'; DECLARE LONG CONSTANT PR670$M_BCPTS_TAG = x'1FFFF800'> DECLARE LONG CONSTANT PR670$M_BCPTS_PARITY = x'20000000'3 DECLARE LONG CONSTANT PR670$S_PR670_BCPTS = 4  record PR670_BCPTS$ group PR670$R_BCPTS_OVERLAY variant case* group PR670$R_BCPTS_BITS{ LONG BCPTS_FILL1_bits ! COMMENT ADDED BY SDL - BCPTS_FILL1_bits contains bits BCPTS_FILL1 through & ! BCPTS_FILL3. end group PR670$R_BCPTS_BITS end variant( end group PR670$R_BCPTS_OVERLAY end record PR670_BCPTS ? DECLARE LONG CONSTANT PR670$M_BCIDX_BTS_COL = x'000001C0 '? DECLARE LONG CONSTANT PR670$M_BCIDX_BTS_ROW = x'0001FE00'? DECLARE LONG CONSTANT PR670$M_BCIDX_PTS_COL = x'000001F0'? DECLARE LONG CONSTANT PR670$M_BCIDX_PTS_ROW = x'00000600'3 DECLARE LONG CONSTANT PR670$S_PR670_BCIDX = 4 record PR670_BCIDX$ group PR670$R_BCIDX_OVERLAY variant case. group PR670$R_BCIDX_BTS_BITS LONG BCIDX_BTS_FILL1_bits ! COMMENT ADDED BY SDL - BCIDX_BTS_FILL1_bits  contains bits BCIDX_BTS_FILL1 & ! through BCIDX_BTS_FILL22 end group PR670$R_BCIDX_BTS_BITS case. group PR670$R_BCIDX_PTS_BITS LONG BCIDX_PTS_FILL1_bits ! COMMENT ADDED BY SDL - BCIDX_PTS_FILL1_bits contains bits BCIDX_PTS_FILL1 & ! through BCIDX_PTS_FILL22 end group PR670$R_BCIDX_PTS_BITS end variant( end group PR670$R_BCIDX_OVERLAY end record PR670_BCIDX < DECLARE LONG CONSTANT PR670$M_BCSTS_LOCK = x'00000001'> DECLARE LONG CONSTANT PR670$M_BCSTS_BTS_PE = x'00000002'? DECLARE LONG CONSTANT PR670$M_BCSTS_P1TS_PE = x'00000004'? DECLARE LONG CONSTANT PR670$M_BCSTS_P2TS_PE = x'00000008'? DECLARE LONG CONSTANT PR670$M_BCSTS_BUS_ERR = x'00000010'? DECLARE LONG CONSTANT PR670$M_BCSTS_BTS_CMP = x'00020000'? DECLARE LONG CONSTANT PR670$M_BCSTS_BTS_HIT = x'00040000'@ DECLARE LONG CONSTANT PR670$M_BCSTS_P1TS_HIT = x'0 0080000'@ DECLARE LONG CONSTANT PR670$M_BCSTS_P2TS_HIT = x'00100000'@ DECLARE LONG CONSTANT PR670$M_BCSTS_RDAL_CMD = x'01E00000'@ DECLARE LONG CONSTANT PR670$M_BCSTS_IBUS_CYC = x'02000000'> DECLARE LONG CONSTANT PR670$M_BCSTS_PARITY = x'04000000'3 DECLARE LONG CONSTANT PR670$S_PR670_BCSTS = 4 record PR670_BCSTS$ group PR670$R_BCSTS_OVERLAY variant case* group PR670$R_BCSTS_BITS LONG BC STS_LOCK_bits ! COMMENT ADDED BY SDL - BCSTS_LOCK_bits contains bits BCSTS_LOCK through BCSTS_FILL2. end group PR670$R_BCSTS_BITS end variant( end group PR670$R_BCSTS_OVERLAY end record PR670_BCSTS B DECLARE LONG CONSTANT PR670$M_BCCTL_FORCE_BHIT = x'00000001'? DECLARE LONG CONSTANT PR670$M_BCCTL_ENA_BTS = x'00000002'? DECLARE LONG CONSTANT PR670$M_BCCTL_ENA_PTS = x'00000004'? DECLARE LONG CONSTANT PR670$M_BCCTL_ENA_RFR = x'00000008'? DECLARE LONG CONSTANT PR670$M_BCCTL_TWO_CYC = x'00000010'3 DECLARE LONG CONSTANT PR670$S_PR670_BCCTL = 4 record PR670_BCCTL$ group PR670$R_BCCTL_OVERLAY variant case* group PR670$R_BCCTL_BITS LONG BCCTL_FORCE_BHIT_bits ! COMMENT ADDED BY SDL - BCCTL_FORCE_BHIT_bits contains bits BCCTL_FORCE_BHIT & ! through BCCTL_FILL1. end group PR670$R_BCCTL_BITS end variant( end group PR670$R_BCCTL_OVERLAY end record PR670_BCCTL < DECLARE LONG CONSTANT PR670$M_BCERR_ADDR = x'3FFFFFF8'3 DECLARE LONG CONSTANT PR670$S_PR670_BCERR = 4 record PR670_BCERR$ group PR670$R_BCERR_OVERLAY variant case* group PR670$R_BCERR_BITS{ LONG BCERR_FILL1_bits ! COMMENT ADDED BY SDL - BCERR_FILL1_bits contains bits BCERR_FILL1 through & ! BCERR_FILL2.  end group PR670$R_BCERR_BITS end variant( end group PR670$R_BCERR_OVERLAY end record PR670_BCERR ; DECLARE LONG CONSTANT PR670$M_PCTAG_TAG = x'1FFFF800'> DECLARE LONG CONSTANT PR670$M_PCTAG_PARITY = x'40000000'= DECLARE LONG CONSTANT PR670$M_PCTAG_VALID = x'80000000'3 DECLARE LONG CONSTANT PR670$S_PR670_PCTAG = 4 record PR670_PCTAG$ group PR670$R_PCTAG_OVERLAY variant case*  group PR670$R_PCTAG_BITS{ LONG PCTAG_FILL1_bits ! COMMENT ADDED BY SDL - PCTAG_FILL1_bits contains bits PCTAG_FILL1 through & ! PCTAG_VALID. end group PR670$R_PCTAG_BITS end variant( end group PR670$R_PCTAG_OVERLAY end record PR670_PCTAG = DECLARE LONG CONSTANT PR670$M_PCIDX_INDEX = x'000007F8'3 DECLARE LONG CONSTANT PR670$S_PR670_PCIDX = 4 record PR670_PCIDX$ group PR670$R_PCIDX_OVERLAY variant case* group PR670$R_PCIDX_BITS{ LONG PCIDX_FILL1_bits ! COMMENT ADDED BY SDL - PCIDX_FILL1_bits contains bits PCIDX_FILL1 through & ! PCIDX_FILL2. end group PR670$R_PCIDX_BITS end variant( end group PR670$R_PCIDX_OVERLAY end record PR670_PCIDX < DECLARE LONG CONSTANT PR670$M_PCERR_ADDR = x'3FFFFFFF'3 DECLARE LONG CONSTANT PR670$S_PR670_PCERR = 4  record PR670_PCERR$ group PR670$R_PCERR_OVERLAY variant case* group PR670$R_PCERR_BITS LONG PCERR_ADDR_bits ! COMMENT ADDED BY SDL - PCERR_ADDR_bits contains bits PCERR_ADDR through PCERR_FILL1. end group PR670$R_PCERR_BITS end variant( end group PR670$R_PCERR_OVERLAY end record PR670_PCERR A DECLARE LONG CONSTANT PR670$M_PCSTS_FORCE_HIT = x'00000001'?  DECLARE LONG CONSTANT PR670$M_PCSTS_ENA_PTS = x'00000002'= DECLARE LONG CONSTANT PR670$M_PCSTS_FLUSH = x'00000004'? DECLARE LONG CONSTANT PR670$M_PCSTS_ENA_RFR = x'00000008'> DECLARE LONG CONSTANT PR670$M_PCSTS_PC_HIT = x'00000010'; DECLARE LONG CONSTANT PR670$M_PCSTS_INT = x'00000020'= DECLARE LONG CONSTANT PR670$M_PCSTS_TRAP2 = x'00000040'= DECLARE LONG CONSTANT PR670$M_PCSTS_TRAP1 = x'00000080'> DECLARE LONG CONSTANT PR670$M_PCSTS_TAG_PE = x'0000010 0'? DECLARE LONG CONSTANT PR670$M_PCSTS_RDAL_PE = x'00000200'? DECLARE LONG CONSTANT PR670$M_PCSTS_DATA_PE = x'00000400'? DECLARE LONG CONSTANT PR670$M_PCSTS_BUS_ERR = x'00000800'> DECLARE LONG CONSTANT PR670$M_PCSTS_BC_HIT = x'00001000'3 DECLARE LONG CONSTANT PR670$S_PR670_PCSTS = 4 record PR670_PCSTS$ group PR670$R_PCSTS_OVERLAY variant case* group PR670$R_PCSTS_BITS LONG PCSTS_FO RCE_HIT_bits ! COMMENT ADDED BY SDL - PCSTS_FORCE_HIT_bits contains bits PCSTS_FORCE_HIT & ! through PCSTS_FILL1. end group PR670$R_PCSTS_BITS end variant( end group PR670$R_PCSTS_OVERLAY end record PR670_PCSTS  ww@iPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  @ DECLARE LONG CONSTANT PR60$_CPUID = 14 ! Hardware CPU id@ DECLARE LONG CONSTANT PR60$_WHAMI = 15 ! Software CPU id= DECLARE LONG CONSTANT PR60$_CADR = 37 ! CACHE DISABLEC DECLAR E LONG CONSTANT PR60$_MSER = 39 ! MEMORY SYSTEM ERRORC DECLARE LONG CONSTANT PR60$_SAVGPR = 41 ! Console halt codeJ DECLARE LONG CONSTANT PR60$_SAVPC = 42 ! CONSOLE SAVED PC REGISTERL DECLARE LONG CONSTANT PR60$_SAVPSL = 43 ! CONSOLE SAVED PSL REGISTER. DECLARE LONG CONSTANT PR60$S_PR60SID = 4 record PR60SIDR BYTE PR60$B_SID_CVAXREV ! CVAX chip microcode revision level  WORD PR60$W_SID_RSVDL BYTE PR60$B_SID_TYPE  ! Processor type ( 10 = CVAX ) end record PR60SID # ! System ID Extension Longword/ DECLARE LONG CONSTANT PR60$S_PR60XSID = 4 record PR60XSID7 WORD PR60$W_XSID_FILL1 ! Reserved? BYTE PR60$B_XSID_ROMVER ! Boot ROM versionJ BYTE PR60$B_XSID_SYSCODE ! System code. 3 ( Firefox ) end record PR60XSID  ! Cache Disable register9 DECLARE LONG CONSTANT PR60$M_CADR_DIA = x'00000001 '8 DECLARE LONG CONSTANT PR60$M_CADR_WW = x'00000002'= DECLARE LONG CONSTANT PR60$M_CADR_DSTREAM = x'00000010'= DECLARE LONG CONSTANT PR60$M_CADR_ISTREAM = x'00000020': DECLARE LONG CONSTANT PR60$M_CADR_SET1 = x'00000040': DECLARE LONG CONSTANT PR60$M_CADR_SET2 = x'00000080'/ DECLARE LONG CONSTANT PR60$S_PR60CADR = 1 record PR60CADR ! Diagnostic mode ! Write wrong parity ! Filler ! Data stream enabled'  ! Instruction stream enabled ! Set 1 enabled ! Set 2 enabledm BYTE CADR_DIA_bits ! COMMENT ADDED BY SDL - CADR_DIA_bits contains bits CADR_DIA through CADR_SET2 end record PR60CADR # ! Memory System Error Register9 DECLARE LONG CONSTANT PR60$M_MSER_TAG = x'00000001': DECLARE LONG CONSTANT PR60$M_MSER_DATA = x'00000002'9 DECLARE LONG CONSTANT PR60$M_MSER_MCC = x'00000010'9 DECLARE LONG CONSTANT PR60$M_MSER_MCD = x'00000020'9 DECLARE LONG CONSTANT PR60$M_MSER_DAL = x'00000040'8 DECLARE LONG CONSTANT PR60$M_MSER_HM = x'00000080'/ DECLARE LONG CONSTANT PR60$S_PR60MSER = 1 record PR60MSER ! Tag error ! Data error ! Filler) ! Machine check - cache parity' ! Machine check - DAL parity ! DAL parity error ! Hit/missk BYTE MSER_TAG_bits ! COMMENT ADDED BY SDL - MSER_TAG_bits contains bits MSER_TAG through MSER_HM end record PR60MSER 1 ! Interval Control Clock and Status register8 DECLARE LONG CONSTANT PR60$M_ICCS_IE = x'00000040'/ DECLARE LONG CONSTANT PR60$S_PR60ICCS = 1 record PR60ICCS ! Filler ! Interrupt enablen BYTE ICCS_FILL_bits ! COMMENT ADDED BY SDL - ICCS_FILL_bits contains bits ICCS_FILL through fill_65 end record PR60ICCS  ww~PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )S END RECORDP% %LET %BASIC$QUADWORD_DECLARED = 19 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )Q END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIojPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  M DECLARE LONG CONSTANT PR8NN$_NICR = 25 ! Next Interval Count RegisterI DECLARE LONG CONSTANT PR8NN$_ICR = 26 ! Interval Counter Register= DECLARE LONG CONSTANT PR8NN$_TODR = 27 ! Time of YearJ DECLARE LONG CONSTANT PR8NN$_PME = 61 ! Performance Monitor EnableO DECLARE LONG CONSTANT PR8NN$_MCSTS = 38 ! Machine Check Status RegisterV DECLARE LONG CONSTANT PR8NN$_NICTRL = 128 ! NMI and Interrupt Control RegisterK DECLARE LONG CONSTANT PR8NN$_INOP = 129 ! Interrupt Other ProcessorM DECLARE LONG CONSTANT PR8NN$_NMIFSR = 130 ! NMI Fault/Status RegisterA DECLARE LONG CONSTANT PR8NN$_NMISILO = 131 ! NMI Bus SiloN DECLARE LONG CONSTANT PR8NN$_NMIEAR = 132 ! NMI Error Address RegisterB DECLARE LONG CONSTANT PR8NN$_COR = 133 ! Cache On RegisterG DECLARE LONG CONSTANT PR8NN$_REVR1 = 134 ! Revision Register #1G DECLARE LONG CONSTANT PR8NN$_REVR2 = 135 ! Revision Register #2; DECLARE LONG CONSTANT PR8NN$M_SID_LRCPU = x'00800000'; DECLARE LONG CONSTANT PR8NN$M_RXDB_LAVL = x'00000001'; DECLARE LONG CONSTANT PR8NN$M_RXDB_RAVL = x'00000002'; DECLARE LONG CONSTANT PR8NN$M_RXDB_SENB = x'00000004': DECLARE LONG CONSTANT PR8NN$M_RXDB_UNI = x'00000008'; DECLARE LONG CONSTANT PR8NN$M_RXDB_DKEY = x'00000010'; DECLARE LONG CONSTANT PR8NN$M_RXDB_VKEY = x'00000020'; DECLARE LONG CONSTANT PR8NN$M_RXDB_PCPU = x'00000040'; DECLARE LONG CONSTANT PR8NN$M_RXDB_SLOW = x'00000080'; DECLARE LONG CONSTANT PR8NN$M_RXDB_BOUN = x'00000001': DECLARE LONG CONSTANT PR8NN$M_RXDB_SP1 = x'00000002': DECLARE LONG CONSTANT PR8NN$M_RXDB_SP2 = x'00000004'0  DECLARE LONG CONSTANT PR8NN$S_PR8NNDEF = 4 record PR8NNDEF variant caseE group PR8NN$R_PR8NNSID_BITS ! Read only SID register- ! Processor Serial Number( ! CPU Revision Level( ! Left/Right CPU bit# ! CPU Type Code{ LONG SID_SERIAL_bits ! COMMENT ADDED BY SDL - SID_SERIAL_bits contains bits SID_SERIAL through SID_TYPE. end group PR8 NN$R_PR8NNSID_BITS caseI group PR8NN$R_PR8NNREVR2_BITS ! Read only REVR2 register, ! Console Revision Level( ! WCS Revision Level. ! Microcode Revision Levelr LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through REVR2_UCODE0 end group PR8NN$R_PR8NNREVR2_BITS ! L ! Bit definitions for data returned by the GET_CPU_INFO console command ! through the RXDB IPR. ! K ! The first group of names include bits that are similarly defined forL ! both uniprocessor and dual processor configurations. The second groupT ! of names defines those bits that are specific to uniprocessor configurations. !  case0 group PR8NN$R_PR8NNRXDB_BITS1 ! ( ! Left CPU Available) ! Right CPU Available+ ! Secondary CPU Enabled1 ! Uni-processor Configuration* ! Diag Key Matched SID) ! VMS Key Matched SID. ! 'Primary' CPU designator+ ! Slow/Fast designationy BYTE RXDB_LAVL_bits ! COMMENT ADDED BY SDL - RXDB_LAVL_bits contains bits RXDB_LAVL through RXDB_SLOW0 end group PR8NN$R_PR8NNRXDB_BITS1 case0 group PR8NN$R_PR8NNRXDB_BITS2 ! 2 ! Bounded System Configuration ! Unused ! Unusedw BYTE RXDB_BOUN_bits ! COMMENT ADDED BY SDL - RXDB_BOUN_bits contains bits RXDB_BOUN through fill_660 end group PR8NN$R_PR8NNRXDB_BITS2 end variant end record PR8NNDEF  ! G ! Field definitions for console interface thru RXCS/TXCS/RXDB/TXDB !  ! - ! RXCS - Console to CPU status register ! H ! 31 24 23 16 15 08 07 06 00I ! +--------------+--------------+---------------+----+----+--------+I ! | MBZ | MBZ | MBZ |DONE| IE | MBZ |I ! +--------------+--------------+---------------+----+----+--------+ ! ; DECLARE LONG CONSTANT rxcs$m_int_enable = x'00000040'7 DECLARE LONG CONSTANT rxcs$m_n_done = x'00000080'6 DECLARE LONG CONSTANT rxcs$s_n_rxcs_register = 4 record n_rxcs_register group rxcs$r_fill_67 variant case" LONG rxcs$l_rxcs case& group rxcs$r_fill_68% ! Must Be Zero+ ! Interrupts enabled' ! Operation donep LONG fill_0_bits ! COMMENT ADDED BY SDL - fill_0_bits contains bits fill_0 through fill_8* end group rxcs$r_fill_68 end variant! end group rxcs$r_fill_67 end record n_rxcs_register   ! + ! RXDB - Console to CPU communication ! G ! 31 24 23 16 15 14 12 11 08 07 00H ! +--------------+--------------+--+-------+--------+-------------+H ! | MBZ | MBZ |ER| MBZ | ID | DATA FIELD |H ! +--------------+--------------+--+-------+--------+-------------+ ! 6 DECLARE LONG CONSTANT rxdb$m_error = x'00008000'V DECLARE LONG CONSTANT rxdb$k_opa0_data = 0 ! 0 Local terminal read ascii dataQ DECLARE LONG CONSTANT rxdb$k_csa1_data = 1 ! 1 Drive 1 data binary dataQ DECLARE LONG CONSTANT rxdb$k_csa3_data = 2 ! 2 Drive 3 data binary data_ DECLARE LONG CONSTANT rxdb$k_opa4_data = 3 ! 3 Local term ( nolog ) read ascii dataQ DECLARE LONG CONSTANT rxdb$k_csa2_data = 4 ! 4 Drive 2 data binary data7 DECLARE LONG CONSTANT rxdb$k_csm_cksum = 5 ! 5W DECLARE LONG CONSTANT rxdb$k_opa5_data = 6 ! 6 Remote terminal read ascii dataX DECLARE LONG CONSTANT rxdb$k_csax_status = 7 ! 7 CSAx status byte binary dataS DECLARE LONG CONSTANT rxdb$k_cons_vax = 8 ! 8 Misc message see data below\ DECLARE LONG CONSTANT rxdb$k_get_cpu_data = 9 ! 9 Get-CPU-Data response binary data[ DECLARE LONG CONSTANT rxdb$k_csm_cmd = 10 ! A Cons support ucode cmd function codeX DECLARE LONG CONSTANT rxdb$k_csm_data = 11 ! B Console support data binary data@ DECLARE LONG CONSTANT rxdb$k_spare_c = 12 !  C spareS DECLARE LONG CONSTANT rxdb$k_toy_data = 13 ! D TOY clock data binary data@ DECLARE LONG CONSTANT rxdb$k_spare_e = 14 ! E spareU DECLARE LONG CONSTANT rxdb$k_decnet_data = 15 ! F DECnet data binary data ! H DECLARE LONG CONSTANT rxdb$k_env_alert = 0 ! Environmental AlertB DECLARE LONG CONSTANT rxdb$k_csa1_status = 1 ! CSA1 StatusB DECLARE LONG CONSTANT rxdb$k_csa2_status = 2 ! CSA2 StatusM DECLARE LONG CONSTANT rxdb$k_rem_port_status = 3 ! Remote Port StatusH DECLARE LONG CONSTANT rxdb$k_console_status = 4 ! Console StatusB DECLARE LONG CONSTANT rxdb$k_csa3_status = 5 ! CSA3 Status9 DECLARE LONG CONSTANT rxdb$k_spare_6 = 6 ! spareJ DECLARE LONG CONSTANT rxdb$k_toy_pe = 7 ! TOY clock protocol errorQ DECLARE LONG CONSTANT rxdb$k_emm_status = 8 ! EMM status inquiry response> ! Insert new console-to-vax message types above this line_ DECLARE LONG CONSTANT rxdb $k_max_type = 9 ! Highest defined console-to-VAX message type ! @ DECLARE LONG CONSTANT rxdb$k_emm_blower = 0 ! Blower outI DECLARE LONG CONSTANT rxdb$k_emm_yellow = 1 ! Yellow zone warningC DECLARE LONG CONSTANT rxdb$k_emm_red = 2 ! Red zone warning ! N DECLARE LONG CONSTANT rxdb$k_success = 0 ! Success, note low bit clearR DECLARE LONG CONSTANT rxdb$k_io_error = 1 ! POS IO Error, RMS Code followsE DECLARE LONG CONSTANT rxdb$k_open_error = 2 ! Failure to OPENS DECLARE LONG CONSTANT rxdb$k_io_blk_error = 3 ! QIO completion code followsP DECLARE LONG CONSTANT rxdb$k_qio_error = 4 ! QIO completion code followsO DECLARE LONG CONSTANT rxdb$k_write_error = 5 ! Can't write to hard disk ! : DECLARE LONG CONSTANT rxdb$k_carrier_present = 0 ! @ DECLARE LONG CONSTANT rxdb$k_carrier_absent = 15 ! hex F: DECLARE LONG CONSTANT rxdb$k_console_present = 0 ! U DECLARE LONG CONSTANT rxdb$k_console_absent = 15 ! hex F - about to be absent6 DECLARE LONG CONSTANT rxdb$s_n_rxdb_register = 4 record n_rxdb_register group rxdb$r_fill_69 variant case" LONG rxdb$l_rxdb case& group rxdb$r_fill_703 group rxdb$r_rxdb_data_overlay variant case9 BYTE rxdb$b_data ! Data byte  case3 group rxdb$r_data_fieldsr BYTE msg_bits ! COMMENT ADDED BY SDL - msg_bits contains bits msg through msg_type7 end group rxdb$r_data_fields# end variant7 end group rxdb$r_rxdb_data_overlayc BYTE id_bits ! COMMENT ADDED BY SDL - id_bits contains bits id through error' WORD rxdb$w_hiword* end group rxdb$r_fill_70 end variant! end group rxdb$r_fill_69 ! ( ! Constant definitions for id field ! % ! Valu Function Name Data Field7 ! Constant values for data byte message type field ! G ! Definitions for MESSAGE data byte field for environmental alert. ! B ! Definitions for MESSAGE data byte for CSA1/CSA2/CSA3 Status ! ? ! Constant definitions for Remote Port and Console status. ! end record n_rxdb_regist er  ! - ! TXCS - Console to CPU status register ! H ! 31 24 23 16 15 08 07 06 00I ! +--------------+--------------+---------------+----+----+--------+I ! | MBZ | MBZ | MBZ |DONE| IE | MBZ |I ! +--------------+--------------+---------------+----+----+--------+ ! ; DECLARE LONG CONSTANT txcs$m_int_enable = x'00000040'6 DECLARE LONG CONSTANT txcs$m_ready = x'00000080'6  DECLARE LONG CONSTANT txcs$s_n_txcs_register = 4 record n_txcs_register group txcs$r_fill_71 variant case" LONG txcs$l_txcs case& group txcs$r_fill_72% ! Must Be Zero+ ! Interrupts enabled, ! Data register readyp LONG fill_0_bits ! COMMENT ADDED BY SDL - fill_0_bits contains bits fill_0 through fill_8*  end group txcs$r_fill_72 end variant! end group txcs$r_fill_71 end record n_txcs_register  ! + ! TXDB - CPU to Console communication ! G ! 31 24 23 16 15 14 12 11 08 07 00H ! +--------------+--------------+--+-------+--------+-------------+H ! | MBZ | MBZ |ER| MBZ | ID | DATA FIELD |H ! +--------------+--------------+--+-------+--------+-------------+ ! 6 DECLARE LONG CONSTANT txdb$m_error = x'00008000'W DECLARE LONG CONSTANT txdb$k_opa0_data = 0 ! 0 Local terminal write ascii dataQ DECLARE LONG CONSTANT txdb$k_csa1_data = 1 ! 1 Drive 1 data binary dataS DECLARE LONG CONSTANT txdb$k_csa3_data = 2 ! 2 Drive 3 data binary data` DECLARE LONG CONSTANT txdb$k_opa4_data = 3 ! 3 Nolog term/diag writ ascii/binary dataQ DECLARE LONG CONSTANT txdb$k_csa2_data = 4 ! 4 Drive 2 data binary data\ DECLARE LONG CONSTANT txdb$k_uns_csm_data = 5 ! 5 Unsolicited CSM data csm statusX DECLARE LONG CONSTANT txdb$k_opa5_data = 6 ! 6 Remote terminal write ascii data; DECLARE LONG CONSTANT txdb$k_diagnostic = 7 ! 7 R DECLARE LONG CONSTANT txdb$k_decnet_data = 8 ! 8 DECnet data binary dataa DECLARE LONG CONSTANT txdb$k_drive_cmd = 9 ! 9 Drive ( CSA1/2/3 ) command function code[ DECLARE LONG CONSTANT txdb$k_csm_cmd = 10 ! A Cons support ucode cmd function codeX DECLARE LONG CONSTANT txdb$k_csm_data = 11 ! B Console support data binary dataT DECLARE LONG CONSTANT txdb$k_csm_cksum = 12 ! C CSM checksum binary dataS DECLARE LONG CONSTANT txdb$k_toy_data = 13 ! D TOY clock data binary dataD DECLARE LONG CONSTANT txdb$k_spare_e = 14 ! E ( unused )] DECLARE LONG CONSTANT txdb$k_misc_comm = 15 ! F Miscellaneous command command code ! @ DECLARE LONG CONSTANT txdb$k_csa1_cmd = 0 ! csa1 c ommand@ DECLARE LONG CONSTANT txdb$k_csa2_cmd = 1 ! csa2 command@ DECLARE LONG CONSTANT txdb$k_csa3_cmd = 2 ! csa3 command ! 6 DECLARE LONG CONSTANT txdb$k_read_sector = 0 ! 7 DECLARE LONG CONSTANT txdb$k_write_sector = 1 ! 6 DECLARE LONG CONSTANT txdb$k_read_status = 2 !  ! M DECLARE LONG CONSTANT txdb$k_software_done = 1 ! 1 - Software is doneJ DECLARE LONG CONSTANT txdb$k_boot_this_cpu = 2 ! 2 - Boot this cpuU DECLARE LONG CONSTANT txdb$k_clear_warm_start = 3 ! 3 - Clear warm start flagU DECLARE LONG CONSTANT txdb$k_clear_cold_start = 4 ! 4 - Clear cold start flagY DECLARE LONG CONSTANT txdb$k_boot_other_cpu = 5 ! 5 - Boot ( restart ) other cpuB DECLARE LONG CONSTANT txdb$k_unjam = 6 ! 6 - UNJAM commandC DECLARE LONG CONSTANT txdb$k_loadnboot = 7 ! 7 - @LOADNBOOTI DECLARE LONG CONSTANT txdb$k_toy_read = 8 ! 8 - Read TOY registerK DECLARE LONG CONSTANT txdb$k_toy_write = 9  ! 9 - Write TOY registerM DECLARE LONG CONSTANT txdb$k_disable_sec = 10 ! A - Disable secondaryQ DECLARE LONG CONSTANT txdb$k_emm_status_inq = 11 ! B - EMM Status Inquiry^ DECLARE LONG CONSTANT txdb$k_force_next_prim = 12 ! C - Force next primary to oppositeX DECLARE LONG CONSTANT txdb$k_get_cpu_info = 13 ! D - Get CPU Information request6 DECLARE LONG CONSTANT txdb$s_n_txdb_register = 4 record n_txdb_register group txdb$r_fill_73  variant case" LONG txdb$l_txdb case& group txdb$r_fill_743 group txdb$r_txdb_data_overlay variant case9 BYTE txdb$b_data ! Data byte case3 group txdb$r_data_fieldsr BYTE msg_bits ! COMMENT ADDED BY SDL - msg_bits contains bits msg through msg_ type7 end group txdb$r_data_fields# end variant7 end group txdb$r_txdb_data_overlay! ! ID field- ! unused, must be zero# ! Error flagc BYTE id_bits ! COMMENT ADDED BY SDL - id_bits contains bits id through errorC WORD txdb$w_hiword ! unused, must be zero* end group txdb$r_fill_74  end variant! end group txdb$r_fill_73 ! ( ! Constant definitions for id field ! % ! Valu Function Name Data FieldE ! Definitions for data byte fields for CSAx command message type ! ; ! Definitions for data byte field for csax_cmd message ! H ! Definitions for data byte field for miscellaneous communications. ! end record n_txdb_register  ! @ ! Definitions for data byte field for unsolicited CSM data. ! >  DECLARE LONG CONSTANT txdb$m_csm_trap_flag = x'00000080'; DECLARE LONG CONSTANT txdb$s_csm_unsolicited_data = 1! record csm_unsolicited_data group txdb$r_fill_75 variant case& BYTE txdb$b_csm_data case& group txdb$r_fill_76, ! Halt code if flag=1' ! 0=TOMM, 1=HALT BYTE halt_code_bits ! COMMENT ADDED BY SDL - halt_code_bits contains bits halt_code through csm_trap_flag* end group txdb$r_fill_76 end variant! end group txdb$r_fill_75% end record csm_unsolicited_data  ww $PR670DEFB $PR730DEFH $PR750DEFN $PR780DEFS $PR790DEF $PR8NNDEF $PR8PSDEF $PR8SSDEF $PR9AQDEF $PR9CCDEF! $PR9RRDEF$PRCDEF&$PRDEF$PRODEF$PROMDEFjPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  < DECLARE LONG CONSTANT PR8PS$M_RXDB_P0AVL = x'00000001'< DECLARE LONG CONSTANT PR8PS$M_RXDB_P1AVL = x'00000002'< DECLARE LONG CONSTANT PR8PS$M_RXDB_P2AVL = x'00000004'< DECLARE LONG CON STANT PR8PS$M_RXDB_P3AVL = x'00000008'; DECLARE LONG CONSTANT PR8PS$M_RXDB_DKEY = x'00000010'; DECLARE LONG CONSTANT PR8PS$M_RXDB_VKEY = x'00000020'0 DECLARE LONG CONSTANT PR8PS$S_PR8PSDEF = 4 record PR8PSDEF variant caseE group PR8PS$R_PR8PSSID_BITS ! Read only SID register- ! Processor Serial Number( ! CPU Revision Level& ! CPU number (0-3)# ! CPU Type  Code{ LONG SID_SERIAL_bits ! COMMENT ADDED BY SDL - SID_SERIAL_bits contains bits SID_SERIAL through SID_TYPE. end group PR8PS$R_PR8PSSID_BITS ! L ! Bit definitions for data returned by the GET_CPU_INFO console command ! through the RXDB IPR. !  case0 group PR8PS$R_PR8PSRXDB_BITS1 ! ( ! Processor 0 avail ( ! Processor 1 avail ( ! Proces sor 2 avail ( ! Processor 3 avail  ! Diag key ! VMS key. ! Processor num of primary~ BYTE RXDB_P0AVL_bits ! COMMENT ADDED BY SDL - RXDB_P0AVL_bits contains bits RXDB_P0AVL through RXDB_PRIMID0 end group PR8PS$R_PR8PSRXDB_BITS1 ! & ! Definitions for Polarstar REVR2 !  caseI group PR8PS$R_PR8PSREVR2_BITS ! Read only REVR2 register)  ! PCLK revision level( ! Backplane revision, ! Console Revision Level( ! WCS Revision Level. ! Microcode Revision Level~ LONG REVR2_PCLK_bits ! COMMENT ADDED BY SDL - REVR2_PCLK_bits contains bits REVR2_PCLK through REVR2_UCODE0 end group PR8PS$R_PR8PSREVR2_BITS end variant end record PR8PSDEF  ! 2 ! Definitions for extended Polarstar commands ! F DECLARE LONG CONSTANT TXDB$K_BOOT_CPU_0 = 20 ! 14 - Boot CPU 0F DECLARE LONG CONSTANT TXDB$K_BOOT_CPU_1 = 21 ! 15 - Boot CPU 1F DECLARE LONG CONSTANT TXDB$K_BOOT_CPU_2 = 22 ! 16 - Boot CPU 2F DECLARE LONG CONSTANT TXDB$K_BOOT_CPU_3 = 23 ! 17 - Boot CPU 3J DECLARE LONG CONSTANT TXDB$K_DISAB_CPU_0 = 24 ! 18 - Disable CPU 0J DECLARE LONG CONSTANT TXDB$K_DISAB_CPU_1 = 25 ! 19 - Disable CPU 1J DECLARE LONG CONSTANT TXDB$K_DISAB_CPU_2 = 26 ! 1A - Disable CPU 2J DECLARE LONG CONSTANT TXDB$K_DISAB_CPU_3 = 27 ! 1B - Disable CPU 3Y DECLARE LONG CONSTANT TXDB$K_FNP_CPU_0 = 28 ! 1C - Force Next Primary to be CPU 0Y DECLARE LONG CONSTANT TXDB$K_FNP_CPU_1 = 29 ! 1D - Force Next Primary to be CPU 1Y DECLARE LONG CONSTANT TXDB$K_FNP_CPU_2 = 30 ! 1E - Force Next Primary to be CPU 2Y DECLARE LONG CONSTANT TXDB$K_FNP_CPU_3 = 31 ! 1F - Force Next Primary to be CPU 3] DECLARE LONG CONSTANT TXDB$K_CSA1_INFO = 32 ! 20 - Get info on CSA1 [not implemented]] DECLARE LONG CONSTANT TXDB$K_CSA2_INFO = 33 ! 21 - Get info on CSA2 [not implemented]K DECLARE LONG CONSTANT TXDB$K_CSA3_INFO = 34 ! 22 - Get info on CSA3 ww@9kPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT PR8SS$_IPIR = 22 ! Interprocessor Interrupt Reg.V DECLARE LONG CONSTANT PR8SS$_NICR = 25 ! Interval Clock Next Interval RegisterV DECLARE LONG CONSTANT PR8SS$_ICR = 26 ! Interval Clock Interval Count RegisterE DECLARE LONG CONSTANT PR8SS$_TODR = 27 ! Time Of Day RegisterT DECLARE LONG CONSTANT PR8SS$_TBDR = 36 ! Translation Buffer Disable RegisterG DECLARE LONG CONSTANT PR8SS$_CADR = 37 ! Cache Disable RegisterV DECLARE LONG CONSTANT PR8SS$_MCESR = 38 ! Machine Check Error Summary RegisterU DECLARE LONG CONSTANT PR8SS$_ACCS = 40 ! Floating Point Accellerator RegisterE DECLARE LONG CONSTANT PR8SS$_WCSA = 44 ! WCS Address RegisterB DECLARE LONG CONSTANT PR8SS$_WCSD = 45 ! WCS Data RegisterA DECLARE LONG CONSTANT PR8SS$_WCSC = 46 ! WCS Cam RegisterJ DECLARE LONG CONSTANT PR8SS$_PME = 61 ! Performance Monitor EnableK DECLARE LONG CONSTANT PR8SS$_RXCS1 = 80 ! Serial Line 1 Receive CSRS DECLARE LONG CONSTANT PR8SS$_RXDB1 = 81 ! Serial Line 1 Receive Data BufferL DECLARE LONG CONSTANT PR8SS$_TXCS1 = 82 ! Serial Line 1 Transmit CSRT DECLARE LONG CONSTANT PR8SS$_TXDB1 = 83 ! Serial Line 1 Transmit Data BufferK DECLARE LONG CONSTANT PR8SS$_RXCS2 = 84 ! Serial Line 2 Receive CSRS DECLARE LONG CONSTANT PR8SS$_RXDB2 = 85 ! Serial Line 2 Receive Data BufferL DECLARE LONG CONSTANT PR8SS$_TXCS2 = 86 ! Serial Line 2 Transmit CSRT DECLARE LONG CONSTANT PR8SS$_TXDB2 = 87 ! Serial Line 2 Transmit Data BufferK DECLARE LONG CONSTANT PR8SS$_RXCS3 = 88 ! Serial Line 3 Receive CSRS DECLARE LONG CONSTANT PR8SS$_RXDB3 = 8 9 ! Serial Line 3 Receive Data BufferL DECLARE LONG CONSTANT PR8SS$_TXCS3 = 90 ! Serial Line 3 Transmit CSRT DECLARE LONG CONSTANT PR8SS$_TXDB3 = 91 ! Serial Line 3 Transmit Data BufferN DECLARE LONG CONSTANT PR8SS$_RXCD = 92 ! Receive Console Data RegisterL DECLARE LONG CONSTANT PR8SS$_CACHEX = 93 ! Cache Invalidate RegisterE DECLARE LONG CONSTANT PR8SS$_BINID = 94 ! BI Node ID RegisterI DECLARE LONG CONSTANT PR8SS$_BIINIT = 95 ! BI Init Nodes Regis ter: DECLARE LONG CONSTANT PR8SS$M_SID_SECP = x'00000100'9 DECLARE LONG CONSTANT PR8SS$M_RXCS_IE = x'00000040'; DECLARE LONG CONSTANT PR8SS$M_RXCS_DONE = x'00000080': DECLARE LONG CONSTANT PR8SS$M_RXDB_ERR = x'00008000'9 DECLARE LONG CONSTANT PR8SS$M_TXCS_IE = x'00000040': DECLARE LONG CONSTANT PR8SS$M_TXCS_RDY = x'00000080': DECLARE LONG CONSTANT PR8SS$M_TXCS_BRE = x'00000100'C DECLARE LONG CONSTANT PR8SS$_BAUD300 = 0 ! Baud Rate of 300C DE CLARE LONG CONSTANT PR8SS$_BAUD600 = 1 ! Baud Rate of 600E DECLARE LONG CONSTANT PR8SS$_BAUD1200 = 2 ! Baud Rate of 1200E DECLARE LONG CONSTANT PR8SS$_BAUD2400 = 3 ! Baud Rate of 2400E DECLARE LONG CONSTANT PR8SS$_BAUD4800 = 4 ! Baud Rate of 4800E DECLARE LONG CONSTANT PR8SS$_BAUD9600 = 5 ! Baud Rate of 9600G DECLARE LONG CONSTANT PR8SS$_BAUD19200 = 6 ! Baud Rate of 19200G DECLARE LONG CONSTANT PR8SS$_BAUD38400 = 7 ! Baud Rate of 38400C DE CLARE LONG CONSTANT PR8SS$_BOOTCPU = 2 ! Boot CPU CommandH DECLARE LONG CONSTANT PR8SS$_CLRWARM = 3 ! Clear Warm-start FlagH DECLARE LONG CONSTANT PR8SS$_CLRCOLD = 4 ! Clear Cold-start Flag8 DECLARE LONG CONSTANT PR8SS$M_CADR_D = x'00000001'8 DECLARE LONG CONSTANT PR8SS$M_CADR_H = x'00000002': DECLARE LONG CONSTANT PR8SS$M_RXCD_BSY = x'00008000'0 DECLARE LONG CONSTANT PR8SS$S_PR8SSDEF = 4 record PR8SSDEF variant caseE  group PR8SS$R_PR8SSSID_BITS ! Read only SID register* ! Ucode Revision Level) ! Secondary Patch Bit% ! Patch Rev Level# ! CPU Rev level5 ! 1=8250 (KA825), 0=8200 (KA820) # ! CPU Type Codex LONG SID_UCREV_bits ! COMMENT ADDED BY SDL - SID_UCREV_bits contains bits SID_UCREV through SID_TYPE. end group PR8SS$R_PR8SSSID_BITS ca se? group PR8SS$R_PR8SSRXCS_BITS ! Console RCV CSR& ! Interrupt Enable( ! 1=> Char. receivedp BYTE FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through RXCS_DONE/ end group PR8SS$R_PR8SSRXCS_BITS caseI group PR8SS$R_PR8SSRXDB_BITS ! Console RCV Data Register# ! Received Data ! Errorx WORD RXDB_ DATA_bits ! COMMENT ADDED BY SDL - RXDB_DATA_bits contains bits RXDB_DATA through RXDB_ERR/ end group PR8SS$R_PR8SSRXDB_BITS caseD group PR8SS$R_PR8SSTXCS_BITS ! Console Transmit CSR& ! Interrupt Enable ! Ready+ ! (WO) Baud Rate Enable ! Baud Rate ! Values to set baud ratesn WORD FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FI LL_3 through fill_77/ end group PR8SS$R_PR8SSTXCS_BITS caseN group PR8SS$R_PR8SSTXDB_BITS ! Console Transmit Data Register& ! Data to Transmit) ! ID - Destination of ! transmitted data - ! 0=>UART0, F=>Console ! command ! Possible Console Commandsw WORD TXDB_DATA_bits ! COMMENT ADDED BY SDL - TXDB_DATA_bits contains bits TXDB_DATA through fill_78/ end g roup PR8SS$R_PR8SSTXDB_BITS caseF group PR8SS$R_PR8SSCADR_BITS ! Cache Disable Register# ! Disable Cache+ ! Force 100% Cache Hitsn BYTE CADR_D_bits ! COMMENT ADDED BY SDL - CADR_D_bits contains bits CADR_D through fill_79/ end group PR8SS$R_PR8SSCADR_BITS caseJ group PR8SS$R_PR8SSWCSA_BITS ! WCS ( Patch ) Address Reg* ! High Order Data Bits!  ! Ram Address{ LONG WCSA_DATA_bits ! COMMENT ADDED BY SDL - WCSA_DATA_bits contains bits WCSA_DATA through WCSA_RAMADR/ end group PR8SS$R_PR8SSWCSA_BITS caseF group PR8SS$R_PR8SSWCSC_BITS ! WCS ( Patch ) CAM Reg! ! Cam Address! ! Rom Addressr LONG FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through WCSC_ROMADR/ end  group PR8SS$R_PR8SSWCSC_BITS caseM group PR8SS$R_PR8SSRXCD_BITS ! Receive Console Data Register# ! Received Data& ! Sender's Node ID1 ! Set=>Data has been receivedx WORD RXCD_DATA_bits ! COMMENT ADDED BY SDL - RXCD_DATA_bits contains bits RXCD_DATA through RXCD_BSY/ end group PR8SS$R_PR8SSRXCD_BITS caseK group PR8SS$R_PR8SSCACHEX_BITS ! Cache Invalidate Register* ! Physical Page Numbern LONG FILL_8_bits ! COMMENT ADDED BY SDL - FILL_8_bits contains bits FILL_8 through fill_801 end group PR8SS$R_PR8SSCACHEX_BITS caseD group PR8SS$R_PR8SSBINID_BITS ! BI Node ID Register* ! BI Node ID this nodew BYTE BINID_NID_bits ! COMMENT ADDED BY SDL - BINID_NID_bits contains bits BINID_NID through fill_810 end group PR8SS$R_PR8SSBINID_BITS end variant end record PR8SSDEF  wwkPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT PR9CC$_ICCS = 24 ! Interval Clock Control/StatusC DECLARE LONG CONSTANT PR9CC$_TODR = 27 ! Time of Year ClockP DECLARE LONG CONSTANT PR9CC$_RXCS = 32 ! Console Receiver Control/StatusM DECLARE LONG CONSTANT PR9CC$_RXDB = 33 ! Console Receiver Data BufferP DECLARE LONG CONSTANT PR9CC$_TXCS = 34 ! Console Transmit Control/StatusM DECLARE LONG CONSTANT PR9CC$_TXDB = 35 ! Console Transmit Data BufferG DECLARE LONG CONSTANT PR9CC$_CADR = 37 ! Cache Disable RegisterD DECLARE LONG CONSTANT PR9CC$_MSER = 39 ! Memory System ErrorB DECLARE LONG CONSTANT PR9CC$_SAVPC = 42 ! Console SAVED PCD DECLARE LONG CONSTANT PR9CC$_SAVPSL = 43 ! Console SAVED PSLO DECLARE LONG CONSTANT PR9CC$_SID = 62 ! System Identification Register 6 DECLARE LONG CONSTANT PR9CC$M_DIAG = x'00000001'> DECLARE LONG CONSTANT PR9CC$M_WRONG_PARITY = x'00000002': DECLARE LONG CONSTANT PR9CC$M_D_STREAM = x'00000010': DECLARE LONG CONSTANT PR9CC$M_I_STREAM = x'00000020'; DECLARE LONG CONSTANT PR9CC$M_ENAB_SET1 = x'00000040'; DECLARE LONG CONSTANT PR9CC$M_ENAB_SET2 = x'00000080'5 DECLARE LONG  CONSTANT PR9CC$M_TAG = x'00000001'5 DECLARE LONG CONSTANT PR9CC$M_DAT = x'00000002'5 DECLARE LONG CONSTANT PR9CC$M_ST1 = x'00000004'5 DECLARE LONG CONSTANT PR9CC$M_ST2 = x'00000008'5 DECLARE LONG CONSTANT PR9CC$M_MCC = x'00000010'5 DECLARE LONG CONSTANT PR9CC$M_MCD = x'00000020'5 DECLARE LONG CONSTANT PR9CC$M_DAL = x'00000040'4 DECLARE LONG CONSTANT PR9CC$M_HM = x'00000080'F DECLARE LONG CONSTANT PR9CC_XSID$_JIMMIED0 = 0 ! Jimmied ROM J DECLARE LONG CONSTANT PR9CC_XSID$_TIMESHARE = 1 ! Timeshare systemD DECLARE LONG CONSTANT PR9CC_XSID$_SERVER = 2 ! Server systemF DECLARE LONG CONSTANT PR9CC_XSID$_JIMMIED3 = 3 ! Jimmied ROM K DECLARE LONG CONSTANT PR9CC_XSID$_XCPFWREV31 = 49 ! Console REV 3.1K DECLARE LONG CONSTANT PR9CC_XSID$_XCPFWREV40 = 64 ! Console REV 4.0B DECLARE LONG CONSTANT PR9CC_XSID$_REV31 = 0 ! Rev 3.1 ROMsA DECLARE LONG CONSTANT PR9CC_XSID$_XCP = 1 ! XCP 80NS CVAXK  DECLARE LONG CONSTANT PR9CC_XSID$_HYPERION = 2 ! Hyperion 60NS CVAX0 DECLARE LONG CONSTANT PR9CC$S_PR9CCDEF = 4 record PR9CCDEF variant caseF group PR9CC$R_PR9CCCADR_BITS ! Cache Disable Register% ! Diagnostic Mode( ! Write Wrong Parity- ! Store D-Stream in cache- ! Store I-Stream in cache+ ! Enable Set 1 of cache+ ! En able Set 2 of cachej BYTE DIAG_bits ! COMMENT ADDED BY SDL - DIAG_bits contains bits DIAG through ENAB_SET2/ end group PR9CC$R_PR9CCCADR_BITS caseL group PR9CC$R_PR9CCMSER_BITS ! Memory System Error Register& ! Tag Parity Error' ! Data Parity Error( ! Set 1 Parity Error( ! Set 2 Parity Error0 ! Machine Check/Cache parity.  ! Machine Check/DAL parity& ! DAL parity error ! Hit/Miss` BYTE TAG_bits ! COMMENT ADDED BY SDL - TAG_bits contains bits TAG through HM/ end group PR9CC$R_PR9CCMSER_BITS caseN group PR9CC$R_PR9CCSID_BITS ! System Identification Register : ! CVAX chip microcode revision level BYTE SID_CVAXREV_bits ! COMMENT ADDED BY SDL - SID_CVAXREV_bits contains b its SID_CVAXREV through SID_CVAXREV. end group PR9CC$R_PR9CCSID_BITS caseK group PR9CC$R_PR9CCXSID_BITS ! XSID ( SYS_TYPE ) Register" ! License bits/ ! XCP / Hyperion distiction6 ! Calypso firmware revision level  ! CPU type LONG XSID_LICENSE_bits ! COMMENT ADDED BY SDL - XSID_LICENSE_bits contains bits XSID_LICENSE through XSID_TYPE/ end group PR9CC$R_PR9CCXSID_BITS end variant end record PR9CCDEF  ww":lPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI#NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET$ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT PR9RR$_ICCS = 24 ! Interval Clock Control/Status3 DECLARE LONG CONSTANT ICCS$M_IE = x'00000040'C DECLARE LONG CONSTANT PR9RR$_TODR = 27 ! Time of Year ClockP % DECLARE LONG CONSTANT PR9RR$_RXCS = 32 ! Console Receiver Control/Status6 DECLARE LONG CONSTANT RXCS$M_RX_IE = x'00000040'8 DECLARE LONG CONSTANT RXCS$M_RX_DONE = x'00000080'M DECLARE LONG CONSTANT PR9RR$_RXDB = 33 ! Console Receiver Data Buffer5 DECLARE LONG CONSTANT RXDB$M_DATA = x'000000FF'8 DECLARE LONG CONSTANT RXDB$M_RCV_BRK = x'00000800'8 DECLARE LONG CONSTANT RXDB$M_FRM_ERR = x'00002000'8 DECLARE LONG CONSTANT RXDB$M_OVR_ERR = x'00004000'8 & DECLARE LONG CONSTANT RXDB$M_ERR_9RR = x'00008000'P DECLARE LONG CONSTANT PR9RR$_TXCS = 34 ! Console Transmit Control/Status9 DECLARE LONG CONSTANT TXCS$M_XMIT_BRK = x'00000001'9 DECLARE LONG CONSTANT TXCS$M_LOOPBACK = x'00000004'6 DECLARE LONG CONSTANT TXCS$M_TX_IE = x'00000040'7 DECLARE LONG CONSTANT TXCS$M_TX_RDY = x'00000080'M DECLARE LONG CONSTANT PR9RR$_TXDB = 35 ! Console Transmit Data Buffer5 DECLARE LONG CONSTANT TXDB$M_DATA = x'000000FF'N' DECLARE LONG CONSTANT PR9RR$_MCESR = 38 ! Machine Check Error RegisterT DECLARE LONG CONSTANT PR9RR$_ACCS = 40 ! Floating Point Accelerator Register? DECLARE LONG CONSTANT ACCS$M_VECTOR_PRESENT = x'00000001'> DECLARE LONG CONSTANT ACCS$M_FCHIP_PRESENT = x'00000002'B DECLARE LONG CONSTANT ACCS$M_WRITE_EVEN_PARITY = x'80000000'B DECLARE LONG CONSTANT PR9RR$_SAVPC = 42 ! Console SAVED PCD DECLARE LONG CONSTANT PR9RR$_SAVPSL = 43 ! Console SAVED PSL< ( DECLARE LONG CONSTANT SAVPSL$M_HALT_CODE = x'00003F00': DECLARE LONG CONSTANT SAVPSL$M_INVALID = x'00004000'8 DECLARE LONG CONSTANT SAVPSL$M_MAPEN = x'00008000'H DECLARE LONG CONSTANT PR9RR$_TBTAG = 47 ! Translation Buffer Tag@ DECLARE LONG CONSTANT PR9RR$_IORESET = 55 ! IO BUS RESETJ DECLARE LONG CONSTANT PR9RR$_TBDATA = 59 ! Translation Buffer DataO DECLARE LONG CONSTANT PR9RR$_SID = 62 ! System Identification Register 5 DECLARE LONG CONSTANT XSID )$M_ARCH = x'000000FF'8 DECLARE LONG CONSTANT XSID$M_SYS_VAR = x'0000FF00'9 DECLARE LONG CONSTANT XSID$M_XRPFWREV = x'00FF0000'I DECLARE LONG CONSTANT PR9RR$_BCBTS = 113 ! Backup Cache Tag Store7 DECLARE LONG CONSTANT BCBTS$M_VALID = x'0000003C'5 DECLARE LONG CONSTANT BCBTS$M_TAG = x'1FFE0000'8 DECLARE LONG CONSTANT BCBTS$M_PARITY = x'20000000'c DECLARE LONG CONSTANT PR9RR$_BCP1TS = 114 ! Backup cache primary tag array, first half bits7 DECLARE *LONG CONSTANT BCPTS$M_VALID = x'00000004'5 DECLARE LONG CONSTANT BCPTS$M_TAG = x'1FFFFFF8'8 DECLARE LONG CONSTANT BCPTS$M_PARITY = x'20000000'd DECLARE LONG CONSTANT PR9RR$_BCP2TS = 115 ! Backup cache primary tag array, second half bits6 ! PR9RRBCP2TS_BITS structure fill prefix BCPTS$;P DECLARE LONG CONSTANT PR9RR$_BCRFR = 116 ! Backup Cache Refresh Register5 DECLARE LONG CONSTANT BCRFR$M_PTS = x'000001F0'5 DECLARE LONG CONSTANT BCRFR$M_BTS = x'0001FE00 +'N DECLARE LONG CONSTANT PR9RR$_BCIDX = 117 ! Backup Cache Index Register5 DECLARE LONG CONSTANT BCIDX$M_BTS = x'0001FFC0'5 DECLARE LONG CONSTANT BCIDX$M_PTS = x'000007F0'O DECLARE LONG CONSTANT PR9RR$_BCSTS = 118 ! Backup Cache Status Register6 DECLARE LONG CONSTANT BCSTS$M_LOCK = x'00000001': DECLARE LONG CONSTANT BCSTS$M_BTS_PERR = x'00000002'; DECLARE LONG CONSTANT BCSTS$M_P1TS_PERR = x'00000004'; DECLARE LONG CONSTANT BCSTS$M_P2TS_PERR = x' ,00000008'9 DECLARE LONG CONSTANT BCSTS$M_BUS_ERR = x'00000010': DECLARE LONG CONSTANT BCSTS$M_BTS_COMP = x'00020000'9 DECLARE LONG CONSTANT BCSTS$M_BTS_HIT = x'00040000': DECLARE LONG CONSTANT BCSTS$M_P1TS_HIT = x'00080000': DECLARE LONG CONSTANT BCSTS$M_P2TS_HIT = x'00100000'5 DECLARE LONG CONSTANT BCSTS$M_CMD = x'01E00000': DECLARE LONG CONSTANT BCSTS$M_IBUS_CYC = x'02000000': DECLARE LONG CONSTANT BCSTS$M_PRED_PAR = x'04000000'P DECLARE LONG- CONSTANT PR9RR$_BCCTL = 119 ! Backup Cache Control Register8 DECLARE LONG CONSTANT BCCTL$M_FRCHIT = x'00000001'8 DECLARE LONG CONSTANT BCCTL$M_ENABTS = x'00000002'8 DECLARE LONG CONSTANT BCCTL$M_ENAPTS = x'00000004'8 DECLARE LONG CONSTANT BCCTL$M_ENARFR = x'00000008'8 DECLARE LONG CONSTANT BCCTL$M_RAMSPD = x'00000010'@ DECLARE LONG CONSTANT BCCTL$K_RAMSPD = 0 ! Use fast RAMsV DECLARE LONG CONSTANT PR9RR$_BCERR = 120 ! Backup Cache Error Address Register.` DECLARE LONG CONSTANT PR9RR$_BCFBTS = 121 ! Backup Cache Backup Tag Store Flush Register. DECLARE LONG CONSTANT BCFBTS$K_FLUSH = 0a DECLARE LONG CONSTANT PR9RR$_BCFPTS = 122 ! Backup Cache Primary Tag Store Flush Register. DECLARE LONG CONSTANT BCFPTS$K_FLUSH = 0Z DECLARE LONG CONSTANT PR9RR$_VINTSR = 123 ! Vector interface error status registerE DECLARE LONG CONSTANT VINTSR$M_VECTOR_UNIT_ABSENT = x'00000001'C DECLARE LONG CONSTANT VINTSR$M_VECTOR_UN /IT_SERR = x'00000002'C DECLARE LONG CONSTANT VINTSR$M_VECTOR_UNIT_HERR = x'00000004'A DECLARE LONG CONSTANT VINTSR$M_VECTL_VIB_SERR = x'00000008'A DECLARE LONG CONSTANT VINTSR$M_VECTL_VIB_HERR = x'00000010'A DECLARE LONG CONSTANT VINTSR$M_CCHIP_VIB_SERR = x'00000020'A DECLARE LONG CONSTANT VINTSR$M_CCHIP_VIB_HERR = x'00000040'> DECLARE LONG CONSTANT VINTSR$M_BUS_TIMEOUT = x'00000080'F DECLARE LONG CONSTANT VINTSR$M_VECTOR_MODULE_RESET = x'00000100'D 0 DECLARE LONG CONSTANT VINTSR$M_DISABLE_VECT_INTF = x'00000200'J DECLARE LONG CONSTANT PR9RR$_PCTAG = 124 ! Primary Cache Tag Store5 DECLARE LONG CONSTANT PCTAG$M_TAG = x'1FFFF800'8 DECLARE LONG CONSTANT PCTAG$M_PARITY = x'40000000'7 DECLARE LONG CONSTANT PCTAG$M_VALID = x'80000000'O DECLARE LONG CONSTANT PR9RR$_PCIDX = 125 ! Primary Cache Index Register5 DECLARE LONG CONSTANT PCIDX$M_IDX = x'000007F8'W DECLARE LONG CONSTANT PR9RR$_PCERR = 126 ! Pri 1mary Cache Error Address RegisterP DECLARE LONG CONSTANT PR9RR$_PCSTS = 127 ! Primary Cache Status Register8 DECLARE LONG CONSTANT PCSTS$M_FRCHIT = x'00000001'8 DECLARE LONG CONSTANT PCSTS$M_ENAPTS = x'00000002'7 DECLARE LONG CONSTANT PCSTS$M_FLUSH = x'00000004'8 DECLARE LONG CONSTANT PCSTS$M_ENARFR = x'00000008'5 DECLARE LONG CONSTANT PCSTS$M_HIT = x'00000010'; DECLARE LONG CONSTANT PCSTS$M_INTERRUPT = x'00000020'7 DECLARE LONG CONSTANT PCSTS$M_TR 2AP2 = x'00000040'7 DECLARE LONG CONSTANT PCSTS$M_TRAP1 = x'00000080': DECLARE LONG CONSTANT PCSTS$M_TAG_PERR = x'00000100': DECLARE LONG CONSTANT PCSTS$M_DAL_PERR = x'00000200'; DECLARE LONG CONSTANT PCSTS$M_DATA_PERR = x'00000400'8 DECLARE LONG CONSTANT PCSTS$M_BUSERR = x'00000800'8 DECLARE LONG CONSTANT PCSTS$M_BC_HIT = x'00001000'/ DECLARE LONG CONSTANT PR9RRS_PR9RRDEF = 4 record PR9RRDEF variant case* group 3 PR9RRR_PR9RRICCS_BITS& ! Interrupt enablen BYTE FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_82. end group PR9RRR_PR9RRICCS_BITS case* group PR9RRR_PR9RRRXCS_BITS& ! Interrupt enable# ! Receiver donen BYTE FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through RX_DONE. end group PR9RR 4R_PR9RRRXCS_BITS case* group PR9RRR_PR9RRRXDB_BITS# ! Received data. ! Break or CTRL/P received# ! Framing error# ! Overrun error ! Errorh WORD DATA_bits ! COMMENT ADDED BY SDL - DATA_bits contains bits DATA through ERR_9RR. end group PR9RRR_PR9RRRXDB_BITS case* group PR9RRR_PR9RRTXCS_BITS$ 5 ! Transmit break ! Loopback& ! Interrupt enable' ! Transmitter readys BYTE XMIT_BRK_bits ! COMMENT ADDED BY SDL - XMIT_BRK_bits contains bits XMIT_BRK through TX_RDY. end group PR9RRR_PR9RRTXCS_BITS case* group PR9RRR_PR9RRTXDB_BITS& ! Data to transmite BYTE DATA_bits ! COMMENT ADDED BY SDL - DATA_bits contains bits DATA through DATA. 6 end group PR9RRR_PR9RRTXDB_BITS case* group PR9RRR_PR9RRACCS_BITS) ! Vector unit present$ ! F-Chip present' ! Write even parity LONG VECTOR_PRESENT_bits ! COMMENT ADDED BY SDL - VECTOR_PRESENT_bits contains bits VECTOR_PRESENT through & ! WRITE_EVEN_PARITY. end group PR9RRR_PR9RRACCS_BITS case, group PR9RRR_PR9RRSAVPSL_BITS 7 ! Halt code' ! Saved PSL invalid! ! Saved MAPENl WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through MAPEN0 end group PR9RRR_PR9RRSAVPSL_BITS case) group PR9RRR_PR9RRSID_BITS0 ! 9RR chip code rev level q BYTE RVAXREV_bits ! COMMENT ADDED BY SDL - RVAXREV_bits contains bits RVAXREV through RVAXREV- 8 end group PR9RRR_PR9RRSID_BITS$ ! XSID (SYS_TYPE) Register bits case* group PR9RRR_PR9RRXSID_BITS+ ! Architectural ID (=1)) ! System Variant (=1)2 ! XRP firmware revision level i LONG ARCH_bits ! COMMENT ADDED BY SDL - ARCH_bits contains bits ARCH through XRPFWREV. end group PR9RRR_PR9RRXSID_BITS case+ group PR9RRR_PR9RRBCBTS_BITS% 9 ! Four valid bits ! Cache tag ! Parity bitn LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_83/ end group PR9RRR_PR9RRBCBTS_BITS case, group PR9RRR_PR9RRBCP1TS_BITS ! Valid bit ! Cache tag ! Parity bitn LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits cont :ains bits FILL_1 through fill_840 end group PR9RRR_PR9RRBCP1TS_BITSN ! end PR9RRBCP2TS_BITS; /* Bit definitions are the same as PR9RR$_BCP1TS case+ group PR9RRR_PR9RRBCRFR_BITS' ! PTS refresh index' ! BTS refresh indexn LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_85/ end group PR9RRR_PR9RRBCRFR_BITS case+ ; group PR9RRR_PR9RRBCIDX_BITS variant case1 group BCIDX$R_PR9RRBCIDX_BTS% ! BTS indext LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_865 end group BCIDX$R_PR9RRBCIDX_BTS case1 group BCIDX$R_PR9RRBCIDX_PTS% ! PTS indext WORD FILL_2_bits < ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through fill_875 end group BCIDX$R_PR9RRBCIDX_PTS end variant/ end group PR9RRR_PR9RRBCIDX_BITS case+ group PR9RRR_PR9RRBCSTS_BITS ! Error lock& ! BTS parity error' ! P1TS parity error' ! P2TS parity error ! Bus error! ! BTS compare = ! BTS hit ! P1TS hit ! P2TS hit& ! Last DAL command! ! I-bus cycle& ! Predicted parityh LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits contains bits LOCK through fill_88/ end group PR9RRR_PR9RRBCSTS_BITS case+ group PR9RRR_PR9RRBCCTL_BITS ! Force hit+ ! Enable BTS (cach >e on), ! Enable PTS (filter on)$ ! Enable refreshA ! Cache RAM speed (0 = 1 cycle, 1 = 2 cycles)n BYTE FRCHIT_bits ! COMMENT ADDED BY SDL - FRCHIT_bits contains bits FRCHIT through fill_89/ end group PR9RRR_PR9RRBCCTL_BITS case, group PR9RRR_PR9RRVINTSR_BITS( ! Vector unit absent' ! Vector soft error' ! Vector soft er ?ror' ! Vector soft error' ! Vector soft error' ! Vector soft error' ! Vector soft error8 ! Bus timeout during vector transfer) ! Vector module reset) ! Vector module resetr WORD VECTOR_UNIT_ABSENT_bits ! COMMENT ADDED BY SDL - VECTOR_UNIT_ABSENT_bits contains bits &% ! VECTOR_UNIT_ABSENT through fill_900 end group PR9RR @R_PR9RRVINTSR_BITS case+ group PR9RRR_PR9RRPCTAG_BITS ! Cache tag ! Parity bit ! Valid bitl LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through VALID/ end group PR9RRR_PR9RRPCTAG_BITS case+ group PR9RRR_PR9RRPCIDX_BITS ! Tag indexn WORD FILL_1_bits ! COMMENT ADDED BY SDL - AFILL_1_bits contains bits FILL_1 through fill_91/ end group PR9RRR_PR9RRPCIDX_BITS case+ group PR9RRR_PR9RRPCSTS_BITS ! Force hit1 ! Enable tag store (cache on)! ! Flush cache$ ! Enable refresh# ! Reference hit- ! Error interrupt pending' ! Double error lock ! Error lock& ! Tag parity error+ ! DAL data parity error' ! Data parity error ! Bus error- ! Reference hit in Bcachen WORD FRCHIT_bits ! COMMENT ADDED BY SDL - FRCHIT_bits contains bits FRCHIT through fill_92/ end group PR9RRR_PR9RRPCSTS_BITS end variant end record PR9RRDEF  wwClPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIDNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETE %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  R DECLARE LONG CONSTANT PR009$_MCESR = 38 ! MACHINE CHECK ERROR SUMMARY REG U DECLARE LONG CONSTANT PR009$_ACCS = 40 ! ACCELERATOR CONTROL STATUS REGISTER K DECLARE LONG CONSTANT PR009$_IORESET = 55 ! INITIALIZE BUS REGISTERJ DECLARE LONG CONSTANT PR009$_PME = 61 ! PERFORMANCE MONITOR ENABLEU DECLARE LONG CONSTANT PR009$_MEMSIZE = 100 ! READ/WRITE MEMORY SIZE REGISTER G DECLARE LONG CONSTANT PR009$_KCALL = 101 ! KERNEL CALL REGISTER wwGNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETH %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  R DECLARE LONG CONSTANT PR9AQ$C_CONSIPL = 20 ! IPL for all Console RegistersJ DECLARE LONG CONSTANT PR9AQ$C_CLKIPL = 22 ! IPL for Interval ClockU DECLARE LONG CONSTANT PR9AQ$C_IP_IPL = 22 I ! IPL for Interprocessor InterruptsM DECLARE LONG CONSTANT PR9AQ$_NICR = 25 ! Next Interval Count RegisterI DECLARE LONG CONSTANT PR9AQ$_ICR = 26 ! Interval Counter Register= DECLARE LONG CONSTANT PR9AQ$_TODR = 27 ! Time of YearJ DECLARE LONG CONSTANT PR9AQ$_PME = 61 ! Performance Monitor Enable< DECLARE LONG CONSTANT PR9AQ$_CSWP = 66 ! Cache Sweep? DECLARE LONG CONSTANT PR9AQ$_CRBT = 72 ! Console RebootE DECLARE LONG CONSTANT PR9AQ$_CPUCNF J= 106 ! CPU ConfigurationK DECLARE LONG CONSTANT PR9AQ$_ICIR = 107 ! Interrupt Other ProcessorL DECLARE LONG CONSTANT PR9AQ$_RXFCT = 108 ! Receive Function RegisterM DECLARE LONG CONSTANT PR9AQ$_RXPRM = 109 ! Receive Parameter RegisterM DECLARE LONG CONSTANT PR9AQ$_TXFCT = 110 ! Transmit Function RegisterN DECLARE LONG CONSTANT PR9AQ$_TXPRM = 111 ! Transmit Parameter RegisterJ DECLARE LONG CONSTANT PR9AQ$C_CSWP_INIT = 1 ! Initiate Cache SweepO K DECLARE LONG CONSTANT PR9AQ$C_CRBT_CODE = 1 ! Reboot Code for CRBT_CODEP DECLARE LONG CONSTANT PR9AQ$C_TXFCT_GETHDWCTX = 1 ! Get Hardware ContextN DECLARE LONG CONSTANT PR9AQ$C_TXFCT_VBFIO = 2 ! Virtual Block File I/OF DECLARE LONG CONSTANT PR9AQ$C_TXFCT_KEEPALIVE = 3 ! Keep AliveF DECLARE LONG CONSTANT PR9AQ$C_TXFCT_SENDDG = 4 ! Send DatagramK DECLARE LONG CONSTANT PR9AQ$C_TXFCT_RETDGSTS = 5 ! Return DG StatusN DECLARE LONG CONSTANT PR9AQ$C_TXFCT_SWLITCHPRI = 6 ! Switch Primary CPUI DECLARE LONG CONSTANT PR9AQ$C_TXFCT_REBOOTSYS = 7 ! Reboot SystemQ DECLARE LONG CONSTANT PR9AQ$C_TXFCT_CLRWRMSTR = 8 ! Clear Warm Start FlagQ DECLARE LONG CONSTANT PR9AQ$C_TXFCT_CLRCLDSTR = 9 ! Clear Cold Start FlagT DECLARE LONG CONSTANT PR9AQ$C_TXFCT_BOOTSEC = 10 ! Boot/Reboot Secondary CPU` DECLARE LONG CONSTANT PR9AQ$C_TXFCT_HLTREMAVL = 11 ! Halt CPU, Remove from Available Set\ DECLARE LONG CONSTANT PR9AQ$C_TXFCT_MHLTKEPAVL = 12 ! Halt CPU, Keep in Available Set_ DECLARE LONG CONSTANT PR9AQ$C_TXFCT_CONSQUIET = 14 ! Shut Down Non-Primary Switch XMITsO DECLARE LONG CONSTANT PR9AQ$C_TXFCT_SETINTMOD = 15 ! Set Interrupt ModeO DECLARE LONG CONSTANT PR9AQ$C_TXFCT_ABORTDL = 16 ! Abort Datalink ( s )K DECLARE LONG CONSTANT PR9AQ$C_TXFCT_RESETIO = 17 ! Reset I/O SystemI DECLARE LONG CONSTANT PR9AQ$C_TXFCT_DSABLVBOX = 18 ! Disable VBOXY DECLARE LONG CONSTANT PR9AQ$C_TXNFCT_SETKEPALV = 19 ! Set Console Keep-Alive StateX DECLARE LONG CONSTANT PR9AQ$C_TXFCT_ERLENA = 20 ! Flush pending errorlog entries^ DECLARE LONG CONSTANT PR9AQ$C_TXFCT_GETSYSTYPE = 21 ! Return value of systype registerL DECLARE LONG CONSTANT PR9AQ$C_RXFCT_REMOVECPU = 2 ! Remove ProcessorF DECLARE LONG CONSTANT PR9AQ$C_RXFCT_ADDCPU = 3 ! Add ProcessorP DECLARE LONG CONSTANT PR9AQ$C_RXFCT_MARKBADPG = 4 ! Mark Memory Page BadP DECLARE LONG CONSTANT PR9AQ$OC_RXFCT_REQMEMORY = 5 ! Request Memory PagesP DECLARE LONG CONSTANT PR9AQ$C_RXFCT_SNDERLENT = 6 ! Send Error Log EntryN DECLARE LONG CONSTANT PR9AQ$C_RXFCT_SNDOPCMSG = 7 ! Send OPCOM MessageN DECLARE LONG CONSTANT PR9AQ$C_RXFCT_GETDGBUF = 8 ! Get Datagram BufferF DECLARE LONG CONSTANT PR9AQ$C_RXFCT_SENDDG = 9 ! Send DatagramL DECLARE LONG CONSTANT PR9AQ$C_RXFCT_RETDGSTS = 10 ! Return DG StatusQ DECLARE LONG CONSTANT PR9AQ$C_RXFCT_SETKEPALV = 11 ! Set K Peep-alive StateO DECLARE LONG CONSTANT PR9AQ$C_RXFCT_ABORTDL = 12 ! Abort Datalink ( s )K DECLARE LONG CONSTANT PR9AQ$C_RXFCT_ERRORINT = 13 ! Error Interrupt> DECLARE LONG CONSTANT PR9AQ_XSID$M_ARCH_ID = x'000000FF'= DECLARE LONG CONSTANT PR9AQ_XSID$M_VECTOR = x'00000100'; DECLARE LONG CONSTANT PR9AQ_XSID$M_CPUS = x'00000600'= DECLARE LONG CONSTANT PR9AQ_XSID$M_MMODEL = x'00001800'? DECLARE LONG CONSTANT PR9AQ_XSID$M_SYS_TYPE = x'7F800000'8 DE QCLARE LONG CONSTANT PR9AQ$C_SYSTYPE_AQUARIUS = 0: DECLARE LONG CONSTANT PR9AQ$C_SYSTYPE_AQUARIUSII = 1; DECLARE LONG CONSTANT PR9AQ$C_SYSTYPE_AQUARIUSIII = 26 DECLARE LONG CONSTANT PR9AQ$C_SYSTYPE_ARIDUS = 88 DECLARE LONG CONSTANT PR9AQ$C_SYSTYPE_ARIDUSII = 9: DECLARE LONG CONSTANT PR9AQ$C_SYSTYPE_ARIDUSIII = 10@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU_AVL = x'0000000F'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU_PSED = x'000000F0'A DECLARE LONG CONSTANRT PR9AQ$M_CPUCNF_VBOX_AVL = x'00000F00'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_XJA_AVL = x'0000F000'? DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_34_BIT = x'00010000'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_PRIMARY = x'00060000'? DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_RRINTR = x'00080000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_MMU0_ENA = x'00100000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_MMU1_ENA = x'00200000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_ICU0_ENA = x'00400000 S'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_ICU1_ENA = x'00800000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU0_CON = x'01000000'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU0_IE = x'02000000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU1_CON = x'04000000'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU1_IE = x'08000000'A DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU2_CON = x'10000000'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU2_IE = x'20000000'A DECLARE LONG CONSTANT PR9A TQ$M_CPUCNF_CPU3_CON = x'40000000'@ DECLARE LONG CONSTANT PR9AQ$M_CPUCNF_CPU3_IE = x'80000000'K DECLARE LONG CONSTANT PR9AQ$C_CPUCNF_FLUID = -16252688 ! Fluid bits ! (CPUx_IE/CPUx_CON/RRINTR/> DECLARE LONG CONSTANT PR9AQ$M_TXFCT_STATUS = x'20000000'> DECLARE LONG CONSTANT PR9AQ$M_TXFCT_INTENA = x'40000000'= DECLARE LONG CONSTANT PR9AQ$M_TXFCT_READY = x'80000000'> DECLARE LONG CONSTANT PR9AQ$M_RXFCT_STATUS = x'20000000'> DECLARE LONG CONSTANT PR9AQ$M_ URXFCT_INTENA = x'40000000'= DECLARE LONG CONSTANT PR9AQ$M_RXFCT_VALID = x'80000000'0 DECLARE LONG CONSTANT PR9AQ$S_PR9AQDEF = 4 record PR9AQDEF variant caseE group PR9AQ$R_PR9AQSID_BITS ! Read only SID register- ! Processor Serial Number$ ! Mfg Plant Code/ ! Expanded system type code+ ! System Revision Level& ! System Type Code# V ! CPU Type Code{ LONG SID_SERIAL_bits ! COMMENT ADDED BY SDL - SID_SERIAL_bits contains bits SID_SERIAL through SID_TYPE. end group PR9AQ$R_PR9AQSID_BITS case+ group PR9AQ$R_PR9AQXSID_BITS0 ! Timeshare (1) / Server (2)$ ! Vector capable) ! # CPUs installed -1* ! Marketing model type ! Reserved! ! System typ Weq LONG ARCH_ID_bits ! COMMENT ADDED BY SDL - ARCH_ID_bits contains bits ARCH_ID through fill_93/ end group PR9AQ$R_PR9AQXSID_BITS caseL group PR9AQ$R_PR9AQCPUCNF_BITS ! CPU Configuration Register' ! CPU 0-3 Available$ ! CPU 0-3 Paused; ! CPU 0-3 VBOX Configured and Available' ! XJA 0-3 Available/ ! Addressing Mode = 34 bits( X ! Primary CPU Number, ! Round Robin Interrupts" ! MMU0 Enabled" ! MMU1 Enabled" ! ICU0 Enabled" ! ICU1 Enabled$ ! CPU0 Connected1 ! CPU0 I/O Interrupts Enabled$ ! CPU1 Connected1 ! CPU1 I/O Interrupts Enabled$ ! CPU2 Connected1 ! CPU2 I/O Interrupts Enabled$ Y ! CPU3 Connected1 ! CPU3 I/O Interrupts Enabled LONG CPUCNF_CPU_AVL_bits ! COMMENT ADDED BY SDL - CPUCNF_CPU_AVL_bits contains bits CPUCNF_CPU_AVL through & ! CPUCNF_CPU3_IE1 end group PR9AQ$R_PR9AQCPUCNF_BITS ! CPUx_PSED) case? group PR9AQ$R_PR9AQTXFCT_BITS ! TXFCT register# ! Function Code ! SPARAM ! Unused ! Z Status Bit* ! Interrupt Enable Bit ! Ready Bit LONG TXFCT_FUNCT_bits ! COMMENT ADDED BY SDL - TXFCT_FUNCT_bits contains bits TXFCT_FUNCT through TXFCT_READY0 end group PR9AQ$R_PR9AQTXFCT_BITS case? group PR9AQ$R_PR9AQRXFCT_BITS ! RXFCT register# ! Function Code ! SPARAM ! Unused ! Status Bit* ! Interrupt Enable Bit ! Valid Bit LONG RXFCT_FUNCT_bits ! COMMENT ADDED BY SDL - RXFCT_FUNCT_bits contains bits RXFCT_FUNCT through RXFCT_VALID0 end group PR9AQ$R_PR9AQRXFCT_BITS end variant end record PR9AQDEF  ww\hmPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI]NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET^ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  O DECLARE LONG CONSTANT PR1202$_ICCS = 24 ! Interval Clock Control/Status: DECLARE LONG CONSTANT PR1202_ICCS$M_IE = x'00000040'D DECLARE LONG CONSTANT PR1202$_TODR = 27 ! Time of Year Clo _ckQ DECLARE LONG CONSTANT PR1202$_RXCS = 32 ! Console Receiver Control/Status= DECLARE LONG CONSTANT PR1202_RXCS$M_RX_IE = x'00000040'? DECLARE LONG CONSTANT PR1202_RXCS$M_RX_DONE = x'00000080'N DECLARE LONG CONSTANT PR1202$_RXDB = 33 ! Console Receiver Data Buffer< DECLARE LONG CONSTANT PR1202_RXDB$M_DATA = x'000000FF'? DECLARE LONG CONSTANT PR1202_RXDB$M_RCV_BRK = x'00000800'? DECLARE LONG CONSTANT PR1202_RXDB$M_FRM_ERR = x'00002000'? DECLARE `LONG CONSTANT PR1202_RXDB$M_OVR_ERR = x'00004000'; DECLARE LONG CONSTANT PR1202_RXDB$M_ERR = x'00008000'Q DECLARE LONG CONSTANT PR1202$_TXCS = 34 ! Console Transmit Control/Status@ DECLARE LONG CONSTANT PR1202_TXCS$M_XMIT_BRK = x'00000001'@ DECLARE LONG CONSTANT PR1202_TXCS$M_LOOPBACK = x'00000004'= DECLARE LONG CONSTANT PR1202_TXCS$M_TX_IE = x'00000040'> DECLARE LONG CONSTANT PR1202_TXCS$M_TX_RDY = x'00000080'N DECLARE LONG CONSTANT PR1202$_TXDB = 35 !a Console Transmit Data Buffer< DECLARE LONG CONSTANT PR1202_TXDB$M_DATA = x'000000FF'O DECLARE LONG CONSTANT PR1202$_MCESR = 38 ! Machine Check Error RegisterU DECLARE LONG CONSTANT PR1202$_ACCS = 40 ! Floating Point Accelerator RegisterF DECLARE LONG CONSTANT PR1202_ACCS$M_VECTOR_PRESENT = x'00000001'E DECLARE LONG CONSTANT PR1202_ACCS$M_FCHIP_PRESENT = x'00000002'B DECLARE LONG CONSTANT PR1202_ACCS$M_EADDR_MODE = x'00000004'I DECLARE LONG CONSTANT PRb1202_ACCS$M_WRITE_EVEN_PARITY = x'80000000'C DECLARE LONG CONSTANT PR1202$_SAVPC = 42 ! Console SAVED PCE DECLARE LONG CONSTANT PR1202$_SAVPSL = 43 ! Console SAVED PSLC DECLARE LONG CONSTANT PR1202_SAVPSL$M_HALT_CODE = x'00003F00'A DECLARE LONG CONSTANT PR1202_SAVPSL$M_INVALID = x'00004000'? DECLARE LONG CONSTANT PR1202_SAVPSL$M_MAPEN = x'00008000'I DECLARE LONG CONSTANT PR1202$_TBTAG = 47 ! Translation Buffer TagA DECLARE LONG CONSTANT PR1202$_IOcRESET = 55 ! IO BUS RESETK DECLARE LONG CONSTANT PR1202$_TBDATA = 59 ! Translation Buffer DataP DECLARE LONG CONSTANT PR1202$_SID = 62 ! System Identification Register @ DECLARE LONG CONSTANT PR1202_SID$M_UCODE_REV = x'000000FF'@ DECLARE LONG CONSTANT PR1202_SID$M_UCODE_OPT = x'0000FF00'? DECLARE LONG CONSTANT PR1202_SID$M_CPU_TYPE = x'FF000000'? DECLARE LONG CONSTANT PR1202_XSID$M_ARCH_ID = x'000000FF'? DECLARE LONG CONSTANT PR1202_XSID$M_SYS_VAR = dx'0000FF00'C DECLARE LONG CONSTANT PR1202_XSID$M_CONSOLE_REV = x'00FF0000'@ DECLARE LONG CONSTANT PR1202_XSID$M_SYS_TYPE = x'FF000000'O DECLARE LONG CONSTANT PR1202$_BCIDX = 112 ! Backup Cache Index Register> DECLARE LONG CONSTANT PR1202_BCIDX$M_BCIDX = x'0007FF80'? DECLARE LONG CONSTANT PR1202_BCIDX$M_COLUMN = x'00000780'< DECLARE LONG CONSTANT PR1202_BCIDX$M_ROW = x'0007F800'P DECLARE LONG CONSTANT PR1202$_BCSTS = 113 ! Backup Cache Status RegisterDe DECLARE LONG CONSTANT PR1202_BCSTS$M_ERR_SUMMARY = x'00000001'B DECLARE LONG CONSTANT PR1202_BCSTS$M_BTS_TPERR = x'00000002'C DECLARE LONG CONSTANT PR1202_BCSTS$M_BTS_VDPERR = x'00000004'? DECLARE LONG CONSTANT PR1202_BCSTS$M_I_PERR = x'00000030'C DECLARE LONG CONSTANT PR1202_BCSTS$M_FILL_ABORT = x'00000040'@ DECLARE LONG CONSTANT PR1202_BCSTS$M_AC_PERR = x'00000080'C DECLARE LONG CONSTANT PR1202_BCSTS$M_SECOND_ERR = x'00000100'@ DECLARE LONG CONSTANfT PR1202_BCSTS$M_BTS_HIT = x'00008000'D DECLARE LONG CONSTANT PR1202_BCSTS$M_BTS_COMPARE = x'00010000'< DECLARE LONG CONSTANT PR1202_BCSTS$M_PPG = x'00020000'C DECLARE LONG CONSTANT PR1202_BCSTS$M_PTS_PARITY = x'000C0000'C DECLARE LONG CONSTANT PR1202_BCSTS$M_IBUS_CYCLE = x'00100000'A DECLARE LONG CONSTANT PR1202_BCSTS$M_IBUS_CMD = x'00200000'@ DECLARE LONG CONSTANT PR1202_BCSTS$M_DAL_CMD = x'03C00000'> DECLARE LONG CONSTANT PR1202_BCSTS$M_DMG_L = x'0400000g0'? DECLARE LONG CONSTANT PR1202_BCSTS$M_SYNC_L = x'08000000'B DECLARE LONG CONSTANT PR1202_BCSTS$M_AC_PARITY = x'10000000'F DECLARE LONG CONSTANT PR1202_BCSTS$M_OREAD_PENDING = x'20000000'Q DECLARE LONG CONSTANT PR1202$_BCCTL = 114 ! Backup Cache Control RegisterC DECLARE LONG CONSTANT PR1202_BCCTL$M_FORCE_BHIT = x'00000001'C DECLARE LONG CONSTANT PR1202_BCCTL$M_ENABLE_BTS = x'00000002'G DECLARE LONG CONSTANT PR1202_BCCTL$M_BTS_ERROR_TRAN = x'00000004'hD DECLARE LONG CONSTANT PR1202_BCCTL$M_GEN_BAD_ACP = x'00000008'J DECLARE LONG CONSTANT PR1202$_BCERA = 115 ! Error address registerJ DECLARE LONG CONSTANT PR1202$_BCBTS = 116 ! Backup Cache Tag Store> DECLARE LONG CONSTANT PR1202_BCBTS$M_VALID = x'0000000F'> DECLARE LONG CONSTANT PR1202_BCBTS$M_DIRTY = x'000000F0'B DECLARE LONG CONSTANT PR1202_BCBTS$M_VD_PARITY = x'00000100'C DECLARE LONG CONSTANT PR1202_BCBTS$M_TAG_PARITY = x'00000200'< DECLARE LOiNG CONSTANT PR1202_BCBTS$M_TAG = x'7FF80000'K DECLARE LONG CONSTANT PR1202$_BCDET = 117 ! Deallocate tag registerG DECLARE LONG CONSTANT PR1202$_BCERT = 118 ! Current parity bits> DECLARE LONG CONSTANT PR1202_BCERT$M_VALID = x'0000000F'> DECLARE LONG CONSTANT PR1202_BCERT$M_DIRTY = x'000000F0'A DECLARE LONG CONSTANT PR1202_BCERT$M_VD_DIRTY = x'00000100'C DECLARE LONG CONSTANT PR1202_BCERT$M_TAG_PARITY = x'00000200'D DECLARE LONG CONSTANT PR1202_BCERT$Mj_CACHE_ENTRY = x'7FF80000'Q DECLARE LONG CONSTANT PR1202$_BC119 = 119 ! Backup Cache Reserved ReisterQ DECLARE LONG CONSTANT PR1202$_BC120 = 120 ! Backup Cache Reserved ReisterQ DECLARE LONG CONSTANT PR1202$_BC121 = 121 ! Backup Cache Reserved ReisterQ DECLARE LONG CONSTANT PR1202$_BC122 = 122 ! Backup Cache Reserved ReisterW DECLARE LONG CONSTANT PR1202$_VINTSR = 123 ! Vector Interface Error Status Reg.C DECLARE LONG CONSTANT PR1202_VINTSR$M_VP_ABSENkT = x'00000001'A DECLARE LONG CONSTANT PR1202_VINTSR$M_VP_SERR = x'00000002'A DECLARE LONG CONSTANT PR1202_VINTSR$M_VP_HERR = x'00000004'H DECLARE LONG CONSTANT PR1202_VINTSR$M_VECTL_VIB_SERR = x'00000008'H DECLARE LONG CONSTANT PR1202_VINTSR$M_VECTL_VIB_HERR = x'00000010'H DECLARE LONG CONSTANT PR1202_VINTSR$M_CCHIP_VIB_SERR = x'00000020'H DECLARE LONG CONSTANT PR1202_VINTSR$M_CCHIP_VIB_HERR = x'00000040'E DECLARE LONG CONSTANT PR1202_VINTSR$M_BUS_TIMEOUT l= x'00000080'B DECLARE LONG CONSTANT PR1202_VINTSR$M_VP_RESET = x'00000100'E DECLARE LONG CONSTANT PR1202_VINTSR$M_DIS_VP_INTF = x'00000200'E DECLARE LONG CONSTANT PR1202_VINTSR$M_BAD_DPARITY = x'00000400'E DECLARE LONG CONSTANT PR1202_VINTSR$M_BAD_CPARITY = x'00000800'K DECLARE LONG CONSTANT PR1202$_PCTAG = 124 ! Primary Cache Tag Store> DECLARE LONG CONSTANT PR1202_PCTAG$M_VALID = x'00000001'< DECLARE LONG CONSTANT PR1202_PCTAG$M_TAG = x'7FFFF800'? m DECLARE LONG CONSTANT PR1202_PCTAG$M_PARITY = x'80000000'P DECLARE LONG CONSTANT PR1202$_PCIDX = 125 ! Primary Cache Index Register< DECLARE LONG CONSTANT PR1202_PCIDX$M_IDX = x'000007F8'X DECLARE LONG CONSTANT PR1202$_PCERR = 126 ! Primary Cache Error Address RegisterQ DECLARE LONG CONSTANT PR1202$_PCSTS = 127 ! Primary Cache Status RegisterB DECLARE LONG CONSTANT PR1202_PCSTS$M_FORCE_HIT = x'00000001'C DECLARE LONG CONSTANT PR1202_PCSTS$M_ENABLE_PTS = nx'00000002'> DECLARE LONG CONSTANT PR1202_PCSTS$M_FLUSH = x'00000004'D DECLARE LONG CONSTANT PR1202_PCSTS$M_P_CACHE_HIT = x'00000010'B DECLARE LONG CONSTANT PR1202_PCSTS$M_INTERRUPT = x'00000020'> DECLARE LONG CONSTANT PR1202_PCSTS$M_TRAP2 = x'00000040'> DECLARE LONG CONSTANT PR1202_PCSTS$M_TRAP1 = x'00000080'G DECLARE LONG CONSTANT PR1202_PCSTS$M_TAG_PARITY_ERR = x'00000100'G DECLARE LONG CONSTANT PR1202_PCSTS$M_DAL_PARITY_ERR = x'00000200'H DECLARE oLONG CONSTANT PR1202_PCSTS$M_DATA_PARITY_ERR = x'00000400'@ DECLARE LONG CONSTANT PR1202_PCSTS$M_BUS_ERR = x'00000800'D DECLARE LONG CONSTANT PR1202_PCSTS$M_B_CACHE_HIT = x'00001000'1 DECLARE LONG CONSTANT PR1202S_PR1202DEF = 4 record PR1202DEF variant case, group PR1202R_PR1202ICCS_BITS& ! Interrupt enablen BYTE FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_940 p end group PR1202R_PR1202ICCS_BITS case, group PR1202R_PR1202RXCS_BITS& ! Interrupt enable# ! Receiver donen BYTE FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through RX_DONE0 end group PR1202R_PR1202RXCS_BITS case, group PR1202R_PR1202RXDB_BITS# ! Received data. ! Break or CTRL/P received# q ! Framing error# ! Overrun error ! Errord WORD DATA_bits ! COMMENT ADDED BY SDL - DATA_bits contains bits DATA through ERR0 end group PR1202R_PR1202RXDB_BITS case, group PR1202R_PR1202TXCS_BITS$ ! Transmit break ! Loopback& ! Interrupt enable' ! Transmitter readys BYTE XMIT_BRK_bi rts ! COMMENT ADDED BY SDL - XMIT_BRK_bits contains bits XMIT_BRK through TX_RDY0 end group PR1202R_PR1202TXCS_BITS case, group PR1202R_PR1202TXDB_BITS& ! Data to transmite BYTE DATA_bits ! COMMENT ADDED BY SDL - DATA_bits contains bits DATA through DATA0 end group PR1202R_PR1202TXDB_BITS case, group PR1202R_PR1202ACCS_BITS) ! Vector unit present$ s ! F-Chip present0 ! Selects 30-bit/32-bit mode' ! Write even parity LONG VECTOR_PRESENT_bits ! COMMENT ADDED BY SDL - VECTOR_PRESENT_bits contains bits VECTOR_PRESENT through & ! WRITE_EVEN_PARITY0 end group PR1202R_PR1202ACCS_BITS case. group PR1202R_PR1202SAVPSL_BITS ! Halt code' ! Saved PSL invalid! ! Saved MAPENl t WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through MAPEN2 end group PR1202R_PR1202SAVPSL_BITS case+ group PR1202R_PR1202SID_BITS/ ! Microcode revision level & ! Microcode option2 ! CPU_TYPE (12 hex/18 decimal)x LONG UCODE_REV_bits ! COMMENT ADDED BY SDL - UCODE_REV_bits contains bits UCODE_REV through CPU_TYPE/ e und group PR1202R_PR1202SID_BITS$ ! XSID (SYS_TYPE) Register bits case, group PR1202R_PR1202XSID_BITS& ! Timeshare/Server$ ! System Variant1 ! XMP console revision level & ! System type (02)r LONG ARCH_ID_bits ! COMMENT ADDED BY SDL - ARCH_ID_bits contains bits ARCH_ID through SYS_TYPE0 end group PR1202R_PR1202XSID_BITS case( g vroup PR1202R_PR1202BCIDX4 group PR1202_BCIDX$R_BCIDX_OVERLAY variant case8 group PR1202_BCIDX$R_BCIDX_BITS05 ! Backup cache tag indexw LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_95< end group PR1202_BCIDX$R_BCIDX_BITS0 case8 group PR1202_BCIDX w$R_BCIDX1_BITS6 ! Backup tag column index3 ! Backup tag row indexw LONG FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through fill_96< end group PR1202_BCIDX$R_BCIDX1_BITS end variant8 end group PR1202_BCIDX$R_BCIDX_OVERLAY, end group PR1202R_PR1202BCIDX case- group PR1202R_PR1202BCSTS x_BITS# ! Error summary/ ! Parity error in tag field- ! Parity error in V/D bit' ! IBUS parity error( ! Cache fill aborted2 ! Address/Command parity error* ! Second error occured' ! Valid sublock hit/ ! Results of tap comparison0 ! Predicted parity generator- ! Parity generated o yn tag/ ! Status register is loaded/ ! Invalidate command siganl& ! Last DAL command/ ! DMG from last DAL command0 ! SYNC from last DAL command/ ! Parity from last ABUS DAL3 ! Pending OREAD during last DAL} LONG ERR_SUMMARY_bits ! COMMENT ADDED BY SDL - ERR_SUMMARY_bits contains bits ERR_SUMMARY through fill_971 end group P zR1202R_PR1202BCSTS_BITS case- group PR1202R_PR1202BCCTL_BITS ! Force hit) ! Enable backup cache& ! Error transition/ ! Generate incorrect parityz BYTE FORCE_BHIT_bits ! COMMENT ADDED BY SDL - FORCE_BHIT_bits contains bits FORCE_BHIT through fill_981 end group PR1202R_PR1202BCCTL_BITS case- group PR1202R_PR1202BCBTS_BITS% { ! Four valid bits% ! Four dirty bits, ! Valid/dirty parity bit$ ! Tag parity bit ! Cache tagj LONG VALID_bits ! COMMENT ADDED BY SDL - VALID_bits contains bits VALID through FILL_21 end group PR1202R_PR1202BCBTS_BITS case- group PR1202R_PR1202BCERT_BITS ! Valid bit ! Dirty bit, | ! Valid/dirty parity bit$ ! Tag parity bit% ! Cache entry tagk LONG VALID_bits ! COMMENT ADDED BY SDL - VALID_bits contains bits VALID through fill_991 end group PR1202R_PR1202BCERT_BITS case. group PR1202R_PR1202VINTSR_BITS. ! 1=Vector Unit is present0 ! Recoverable internal error2 ! Unrecoverable internal error+ ! }Recoverable VIB error- ! Unrecoverable VIB error< ! MC-chip detected recoverable VIB error> ! MC-chip detected unrecoverable VIB errorI ! MC-chip detected bus timeout to vec IPR read/write ) ! Vector module reset9 ! Disable vector interface to MC-chipC ! Causes MC-chip to generate bad parity on dataF ! Causes MC-chip to generate bad parit ~y on commandx WORD VP_ABSENT_bits ! COMMENT ADDED BY SDL - VP_ABSENT_bits contains bits VP_ABSENT through fill_1002 end group PR1202R_PR1202VINTSR_BITS case- group PR1202R_PR1202PCTAG_BITS ! Valid bit ! Cache tag ! Parity bitj LONG VALID_bits ! COMMENT ADDED BY SDL - VALID_bits contains bits VALID through PARITY1 end group PR1202R_PR1202PCT AG_BITS case- group PR1202R_PR1202PCIDX_BITS ! Tag indexo WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_1011 end group PR1202R_PR1202PCIDX_BITS case- group PR1202R_PR1202PCSTS_BITS ! Force hit1 ! Enable tag store (cache on)! ! Flush cache# ! Reference hit-  ! Error interrupt pending' ! Double error lock ! Error lock& ! Tag parity error+ ! DAL data parity error' ! Data parity error ! Bus error- ! Reference hit in Bcachex WORD FORCE_HIT_bits ! COMMENT ADDED BY SDL - FORCE_HIT_bits contains bits FORCE_HIT through fill_1021 end group PR1202R_PR1202PCSTS_BITS  end variant end record PR1202DEF  ww@M.oPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q DECLARE LONG CONSTANT PR13$K_REVISION = 30 ! Revision number of this fileR ! In the definitions below, registers are annotated with one of the following ! symbols: ! 5 ! RW  - The register may be read and written+ ! RO - The register may only be read. ! WO - The register may only be written ! P ! For RO and WO registers, all bits and fields within the register are alsoK ! read-only or write-only. For RW registers, each bit or field within; ! the register is annotated with one of the following: ! 3 ! RW - The bit/field may be read and written; ! RO - The bit/field may be read; writes are ignoredQ ! WO - The bit/field may be written; reads return an UNPREDICTABLE result.< ! WZ - The bit/field may be written; reads return a 0D ! WC - The bit/field may be read; writes cause state to clear] ! RC - The bit/field may be read, which also causes state to clear; writes are ignoredM DECLARE LONG CONSTANT PR13$_TODR = 27 ! Time Of Year Register ( RW )U DECLARE LONG CONSTANT PR13$_MCESR = 38 ! Machine check error register ( WO )I DECLARE LONG CONSTANT PR13$_SAVPC = 42 ! Console saved PC ( RO )K DECLARE LONG CONSTANT PR13$_SAVPSL = 43 ! Console saved PSL ( RO )> DECLARE LONG CONSTANT PR13_SAVPSL$M_PSL_LO = x'000000FF'@ DECLARE LONG CONSTANT PR13_SAVPSL$M_HALTCODE = x'00003F00'Q DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_HLTPIN = 2 ! HALT_L pin assertedL DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_PWRUP = 3 ! Initial powerupW DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_INTSTK = 4 ! Interrupt stack not validg DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_DOUBLE = 5 ! Machine check during exception processing] DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_HLTINS = 6 ! Halt instruction in kernel modeb DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_ILLVEC = 7 ! Illegal SCB vector ( bits<1:0>=11 )^ DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_WCSVEC = 8 ! WCS SCB vector ( bits<1:0>=10 )U DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_CHMFI = 10 ! CHMx on interrupt stackc DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE0 = 16 ! ACV/TNV during machine check processingZ DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE1 = 17 ! ACV/TNV during KSNV processingi DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE2 = 18 ! Machine check during machine check processing` DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE3 = 19 ! Machine check during KSNV processingo DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE_PSL_101 = 25 ! PSL<26:24>=101 during interrupt or exceptiono DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE_PSL_110 = 26 ! PSL<26:24>=110 during interrupt or exceptiono DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_IE_PSL_111 = 27 ! PSL<26:24>=111 during interrupt or exception] DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_REI_PSL_101 = 29 ! PSL<26:24>=101 during REI] DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_REI_PSL_110 = 30 ! PSL<26:24>=110 during REI] DECLARE LONG CONSTANT PR13_SAVPSL$K_HALT_REI_PSL_111 = 31 ! PSL<26:24>=111 during REI? DECLARE LONG CONSTANT PR13_SAVPSL$M_INVALID = x'00004000'= DECLARE LONG CONSTANT PR13_SAVPSL$M_MAPEN = x'00008000'> DECLARE LONG CONSTANT PR13_SAVPSL$M_PSL_HI = x'FFFF0000'T DECLARE LONG CONSTANT PR13$_IORESET = 55 ! I/O system reset register ( WO )T DECLARE LONG CONSTANT PR13$_PME = 61 ! Performance monitoring enable ( RW )U DECLARE LONG CONSTANT PR13$_SID = 62 ! System identification register ( RO )> DECLARE LONG CONSTANT PR13_SID$M_UCODE_REV = x'000000FF'F  DECLARE LONG CONSTANT PR13_SID$M_NONSTANDARD_PATCH = x'00000100'> DECLARE LONG CONSTANT PR13_SID$M_PATCH_REV = x'00003E00'9 DECLARE LONG CONSTANT PR13_SID$M_TYPE = x'FF000000'W DECLARE LONG CONSTANT PR13$_IAK14 = 64 ! Level 14 interrupt acknowledge ( RO )W DECLARE LONG CONSTANT PR13$_IAK15 = 65 ! Level 15 interrupt acknowledge ( RO )W DECLARE LONG CONSTANT PR13$_IAK16 = 66 ! Level 16 interrupt acknowledge ( RO )W DECLARE LONG CONSTANT PR13$_IAK17 = 67 ! Level 17 interrupt acknowledge ( RO ): DECLARE LONG CONSTANT PR13_IAK$M_IPL17 = x'00000001'7 DECLARE LONG CONSTANT PR13_IAK$M_PR = x'00000002'? DECLARE LONG CONSTANT PR13_IAK$M_SCB_OFFSET = x'0000FFFC'J DECLARE LONG CONSTANT PR13$_CWB = 68 ! Clear write buffers ( RW ) ! Ebox registers.[ DECLARE LONG CONSTANT PR13$_INTSYS = 122 ! Interrupt system status register ( RW )= DECLARE LONG CONSTANT PR13_INTSYS$M_ICCS6 = x'00000001'< DECLARE LONG CONSTANT PR13_INTSYS$M_SISR = x'0000FFFE'> DECLARE LONG CONSTANT PR13_INTSYS$M_INT_ID = x'001F0000'G DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_HALT = 31 ! Halt pinJ DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_PWRFL = 30 ! Power failJ DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_H_ERR = 29 ! Hard errorP DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_INT_TIM = 28 ! Interval timerR DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_PMON = 27 ! Performance monitorJ  DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_S_ERR = 26 ! Soft errorV DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_IRQ3 = 23 ! IPL 17 device interruptV DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_IRQ2 = 22 ! IPL 16 device interruptV DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_IRQ1 = 21 ! IPL 15 device interruptV DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_IRQ0 = 20 ! IPL 14 device interruptI DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR15 = 15 ! SISR<15>I DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR14 = 14 ! SISR<14>I DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR13 = 13 ! SISR<13>I DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR12 = 12 ! SISR<12>I DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR11 = 11 ! SISR<11>I DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR10 = 10 ! SISR<10>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR9 = 9 ! SISR<9>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR8 = 8 ! SISR<8>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR7 = 7 ! SISR<7>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR6 = 6 ! SISR<6>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR5 = 5 ! SISR<5>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR4 = 4 ! SISR<4>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR3 = 3 ! SISR<3>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR2 = 2 ! SISR<2>F DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_SISR1 = 1 !  SISR<1>L DECLARE LONG CONSTANT PR13_INTSYS$K_INT_ID_NO_INT = 0 ! No interruptE DECLARE LONG CONSTANT PR13_INTSYS$M_INT_TIM_RESET = x'01000000'C DECLARE LONG CONSTANT PR13_INTSYS$M_S_ERR_RESET = x'08000000'B DECLARE LONG CONSTANT PR13_INTSYS$M_PMON_RESET = x'10000000'C DECLARE LONG CONSTANT PR13_INTSYS$M_H_ERR_RESET = x'20000000'C DECLARE LONG CONSTANT PR13_INTSYS$M_PWRFL_RESET = x'40000000'B DECLARE LONG CONSTANT PR13_INTSYS$M_HALT_RESET = x'80000000'i DECLARE LONG CONSTANT PR13$_PMFCNT = 123 ! Performance monitoring facility count register ( RW )> DECLARE LONG CONSTANT PR13_PMFCNT$M_PMCTR0 = x'0000FFFF'> DECLARE LONG CONSTANT PR13_PMFCNT$M_PMCTR1 = x'FFFF0000'b DECLARE LONG CONSTANT PR13$_PCSCR = 124 ! Patchable control store control register ( RW )C DECLARE LONG CONSTANT PR13_PCSCR$M_PAR_PORT_DIS = x'00000100'> DECLARE LONG CONSTANT PR13_PCSCR$M_PCS_ENB = x'00000200'@ DECLARE LONG CONSTANT PR13_PCSCR$M_PCS_WRITE = x'00000400'@ DECLARE LONG CONSTANT PR13_PCSCR$M_RWL_SHIFT = x'00000800'; DECLARE LONG CONSTANT PR13_PCSCR$M_DATA = x'00001000'H DECLARE LONG CONSTANT PR13_PCSCR$M_NONSTANDARD_PATCH = x'00800000'@ DECLARE LONG CONSTANT PR13_PCSCR$M_PATCH_REV = x'1F000000'M DECLARE LONG CONSTANT PR13$_ECR = 125 ! Ebox control register ( RW )C DECLARE LONG CONSTANT PR13_ECR$M_VECTOR_PRESENT = x'00000001'@ DECLARE LONG CONSTANT PR13_ECR$M_FBOX_ENABLE = x'000 00002'@ DECLARE LONG CONSTANT PR13_ECR$M_TIMEOUT_EXT = x'00000004'H DECLARE LONG CONSTANT PR13_ECR$M_FBOX_ST4_BYPASS_ENA = x'00000008'E DECLARE LONG CONSTANT PR13_ECR$M_TIMEOUT_OCCURRED = x'00000010'A DECLARE LONG CONSTANT PR13_ECR$M_TIMEOUT_TEST = x'00000020'B DECLARE LONG CONSTANT PR13_ECR$M_TIMEOUT_CLOCK = x'00000040'= DECLARE LONG CONSTANT PR13_ECR$M_ICCS_EXT = x'00000080'E DECLARE LONG CONSTANT PR13_ECR$M_FBOX_TEST_ENABLE = x'00002000'? DECLARE LONG CONSTANT PR13_ECR$M_PMF_ENABLE = x'00010000'= DECLARE LONG CONSTANT PR13_ECR$M_PMF_PMUX = x'00060000'D DECLARE LONG CONSTANT PR13_ECR$K_PMUX_IBOX = 0 ! Select IboxD DECLARE LONG CONSTANT PR13_ECR$K_PMUX_EBOX = 1 ! Select EboxD DECLARE LONG CONSTANT PR13_ECR$K_PMUX_MBOX = 2 ! Select MboxD DECLARE LONG CONSTANT PR13_ECR$K_PMUX_CBOX = 3 ! Select Cbox= DECLARE LONG CONSTANT PR13_ECR$M_PMF_EMUX = x'00380000'b DECLARE LONG CONSTANT PR13_ECR$K_EMUX_S3_STALL = 0 ! Measure S3 stall against total cyclesn DECLARE LONG CONSTANT PR13_ECR$K_EMUX_EM_PA_STALL = 1 ! Measure EM+PA queue stall against total cyclesi DECLARE LONG CONSTANT PR13_ECR$K_EMUX_CPI = 2 ! Measure instructions retired against total cyclesc DECLARE LONG CONSTANT PR13_ECR$K_EMUX_STALL = 3 ! Measure total stalls against total cyclesf DECLARE LONG CONSTANT PR13_ECR$K_EMUX_S3_STALL_PCT = 4 ! Measure S3 stall against total stallsr DECLARE LONG CONSTANT PR13_ECR$K_EMUX_EM_PA_STALL_PCT = 5 ! Measure EM+PA queue stall against total stallsT DECLARE LONG CONSTANT PR13_ECR$K_EMUX_UWORD = 7 ! Count microword increments= DECLARE LONG CONSTANT PR13_ECR$M_PMF_LFSR = x'00400000'> DECLARE LONG CONSTANT PR13_ECR$M_PMF_CLEAR = x'80000000'K DECLARE LONG CONSTANT PR13$_MTBTAG = 126 ! Mbox TB tag fill ( WO ): DECLARE LONG CONSTANT PR13_MTBTAG$M_TP = x'00000001'; DECLARE LONG CONSTANT PR13_MTBTAG$M_VPN = x'FFFFFE00'K  DECLARE LONG CONSTANT PR13$_MTBPTE = 127 ! Mbox TB PTE fill ( WO ); DECLARE LONG CONSTANT PR13_MTBPTE$M_PFN = x'007FFFFF'9 DECLARE LONG CONSTANT PR13_MTBPTE$M_P = x'01000000'9 DECLARE LONG CONSTANT PR13_MTBPTE$M_M = x'04000000'< DECLARE LONG CONSTANT PR13_MTBPTE$M_PROT = x'18000000'9 DECLARE LONG CONSTANT PR13_MTBPTE$M_V = x'20000000'Y DECLARE LONG CONSTANT PR13$_VPSR = 144 ! Vector processor status register ( RW )9 DECLARE LONG CONSTANT PR13_V PSR$M_VEN = x'00000001'9 DECLARE LONG CONSTANT PR13_VPSR$M_RST = x'00000002'9 DECLARE LONG CONSTANT PR13_VPSR$M_AEX = x'00000080'9 DECLARE LONG CONSTANT PR13_VPSR$M_IMP = x'01000000'9 DECLARE LONG CONSTANT PR13_VPSR$M_BSY = x'80000000'] DECLARE LONG CONSTANT PR13$_VAER = 145 ! Vector arithmetic exception register ( RO )< DECLARE LONG CONSTANT PR13_VAER$M_F_UNDF = x'00000001'< DECLARE LONG CONSTANT PR13_VAER$M_F_DIVZ = x'00000002'< DECLARE LONG CONSTANT PR13_VAER$M_F_ROPR = x'00000004'< DECLARE LONG CONSTANT PR13_VAER$M_F_OVFL = x'00000008'< DECLARE LONG CONSTANT PR13_VAER$M_I_OVFL = x'00000020'C DECLARE LONG CONSTANT PR13_VAER$M_REGISTER_MASK = x'FFFF0000'X DECLARE LONG CONSTANT PR13$_VMAC = 146 ! Vector memory activity register ( RO )b DECLARE LONG CONSTANT PR13$_VTBIA = 147 ! Vector translation buffer invalidate all ( WO ) ! Cbox registers.N DECLARE LONG CONSTANT PR13$_CCTL = 160 ! Cbox control register ( RW )< DECLARE LONG CONSTANT PR13_CCTL$M_ENABLE = x'00000001'? DECLARE LONG CONSTANT PR13_CCTL$M_TAG_SPEED = x'00000002'u DECLARE LONG CONSTANT PR13_CCTL$K_TAG_3_CYCLES = 0 ! Select tag RAM speed: 3-cycle read rep/3-cycle write repu DECLARE LONG CONSTANT PR13_CCTL$K_TAG_4_CYCLES = 1 ! Select tag RAM speed: 4-cycle read rep/4-cycle write rep@ DECLARE LONG CONSTANT PR13_CCTL$M_DATA_SPEED = x'0000000C'w DECLARE LONG CONSTANT PR13_CCTL$K_DATA_2_CYCLES = 0 ! Select data RAM speed: 2-cycle read rep/3-cycle write repw DECLARE LONG CONSTANT PR13_CCTL$K_DATA_3_CYCLES = 1 ! Select data RAM speed: 3-cycle read rep/4-cycle write repw DECLARE LONG CONSTANT PR13_CCTL$K_DATA_4_CYCLES = 2 ! Select data RAM speed: 4-cycle read rep/5-cycle write rep: DECLARE LONG CONSTANT PR13_CCTL$M_SIZE = x'00000030'N DECLARE LONG CONSTANT PR13_CCTL$K_SIZE_128KB = 0 ! Select 128KB BcacheN DECLARE LONG CONSTANT PR13_CCTL$K_SIZE_256KB = 1 ! Select 256KB BcacheN DECLARE LONG CONSTANT PR13_CCTL$K_SIZE_512KB = 2 ! Select 512KB BcacheJ DECLARE LONG CONSTANT PR13_CCTL$K_SIZE_2MB = 3 ! Select 2MB Bcache? DECLARE LONG CONSTANT PR13_CCTL$M_FORCE_HIT = x'00000040'D DECLARE LONG CONSTANT PR13_CCTL$M_DISABLE_ERRORS = x'00000080'< DECLARE LONG CONSTANT PR13_CCTL$M_SW_ECC = x'00000100'B DECLARE LONG CONSTANT PR13_CCTL$M_TIMEOUT_TEST = x'00000200'B DECLARE LONG CONSTANT PR13_CCTL$M_DISABLE_PACK = x'00000400'D DECLARE LONG CONSTANT PR13_CCTL$M_PM_ACCESS_TYPE = x'00003800'X DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_COH = 0 ! Coherency access of either typeW DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_COH_READ = 1 ! Coherency access for READY DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_COH_OREAD = 2 ! Coherency access for OREADO DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_CPU = 4 ! CPU access of any typeS DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_CPU_IREAD = 5 ! CPU access for IREADS DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_CPU_DREAD = 6 ! CPU access for DREADS DECLARE LONG CONSTANT PR13_CCTL$K_PMAT_CPU_OREAD = 7 ! CPU access for OREADA DECLARE LONG CONSTANT PR13_CCTL$M_PM_HIT_TYPE = x'0000C000'< DECLARE LONG CONSTANT PR13_CCTL$K_PMHT_HIT = 0 ! HitQ DECLARE LONG CONSTANT PR13_CCTL$K_PMHT_HIT_OWNED = 1 ! Hit on owned blockQ DECLARE LONG CONSTANT PR13_CCTL$K_PMHT_HIT_VALID = 2 ! Hit on valid blocki DECLARE LONG CONSTANT PR13_CCTL$K_PMHT_MISS_OWNED = 3 ! Miss on owned block ( causes writeback )E DECLARE LONG CONSTANT PR13_CCTL$M_FORCE_NDAL_PERR = x'00010000'< DECLARE LONG CONSTANT PR13_CCTL$M_SW_ETM = x'40000000'< DECLARE LONG CONSTANT PR13_CCTL$M_HW_ETM = x'80000000'N DECLARE LONG CONSTANT PR13$_BCDECC = 162 ! Bcache data ram ECC ( WO )= DECLARE LONG CONSTANT PR13_BCDECC$M_ECCLO = x'000003C0'= DECLARE LONG CONSTANT PR13_BCDECC$M_ECCHI = x'03C00000'S DECLARE LONG CONSTANT PR13$_BCETSTS = 163 ! Bcache error tag status ( RW )= DECLARE LONG CONSTANT PR13_BCETSTS$M_LOCK = x'00000001'= DECLARE LONG CONSTANT PR13_BCETSTS$M_CORR = x'00000002'? DECLARE LONG CONSTANT PR13_BCETSTS$M_UNCORR = x'00000004'A DECLARE LONG CONSTANT PR13_BCETSTS$M_BAD_ADDR = x'00000008'A DECLARE LONG CONSTANT PR13_BCETSTS$M_LOST_ERR = x'00000010'? DECLARE LONG CONSTANT PR13_BCETSTS$M_TS_CMD = x'000003E0'\ DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_DREAD = 7 ! Command was D-stream tag lookup\ DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_IREAD = 3 ! Command was I-stream tag lookupp DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_OREAD = 2 ! Command was OREAD tag lookup for write or read lock{ DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_WUNLOCK = 8 ! Command was write unlock tag lookup ( done only under ETM )t DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_R_INVAL = 13 ! Command was inval tag lookup for NDAL DREAD or IREADs DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_O_INVAL = 9 ! Command was inval tag lookup for NDAL OREAD or WRITEm DECLARE LONG CONSTANT PR13_BCETSTS$K_CMD_IPR_DEALLOC = 10 ! Command was tag lookup for IPR deallocateR DECLARE LONG CONSTANT PR13$_BCETIDX = 164 ! Bcache error tag index ( RO )K DECLARE LONG CONSTANT PR13$_BCETAG = 165 ! Bcache error tag ( RO )= DECLARE LONG CONSTANT PR13_BCETAG$M_VALID = x'00000200'= DECLARE LONG CONSTANT PR13_BCETAG$M_OW NED = x'00000400'; DECLARE LONG CONSTANT PR13_BCETAG$M_ECC = x'0001F800'; DECLARE LONG CONSTANT PR13_BCETAG$M_TAG = x'FFFE0000'T DECLARE LONG CONSTANT PR13$_BCEDSTS = 166 ! Bcache error data status ( RW )= DECLARE LONG CONSTANT PR13_BCEDSTS$M_LOCK = x'00000001'= DECLARE LONG CONSTANT PR13_BCEDSTS$M_CORR = x'00000002'? DECLARE LONG CONSTANT PR13_BCEDSTS$M_UNCORR = x'00000004'A DECLARE LONG CONSTANT PR13_BCEDSTS$M_BAD_ADDR = x'00000008'A DECLARE LONG CONSTANT PR13_BCEDSTS$M_LOST_ERR = x'00000010'? DECLARE LONG CONSTANT PR13_BCEDSTS$M_DR_CMD = x'00000F00'] DECLARE LONG CONSTANT PR13_BCEDSTS$K_CMD_DREAD = 7 ! Command was D-stream data lookup] DECLARE LONG CONSTANT PR13_BCEDSTS$K_CMD_IREAD = 3 ! Command was I-stream data lookup^ DECLARE LONG CONSTANT PR13_BCEDSTS$K_CMD_WBACK = 4 ! Command was writeback data lookupd DECLARE LONG CONSTANT PR13_BCEDSTS$K_CMD_RMW = 2 ! Command was read-modify-write data lookupS DECLARE LONG CONSTANT PR13$_BCEDIDX = 167 ! Bcache error data index ( RO )L DECLARE LONG CONSTANT PR13$_BCEDECC = 168 ! Bcache error ECC ( RO )> DECLARE LONG CONSTANT PR13_BCEDECC$M_ECCLO = x'000003C0'> DECLARE LONG CONSTANT PR13_BCEDECC$M_ECCHI = x'03C00000'M DECLARE LONG CONSTANT PR13$_CEFADR = 171 ! Fill error address ( RO )L DECLARE LONG CONSTANT PR13$_CEFSTS = 172 ! Fill error status ( RW )< DECLARE LONG CONSTANT PR13_CEFSTS$M_RDLK = x'0 0000001'< DECLARE LONG CONSTANT PR13_CEFSTS$M_LOCK = x'00000002'? DECLARE LONG CONSTANT PR13_CEFSTS$M_TIMEOUT = x'00000004'; DECLARE LONG CONSTANT PR13_CEFSTS$M_RDE = x'00000008'@ DECLARE LONG CONSTANT PR13_CEFSTS$M_LOST_ERR = x'00000010'; DECLARE LONG CONSTANT PR13_CEFSTS$M_ID0 = x'00000020'= DECLARE LONG CONSTANT PR13_CEFSTS$M_IREAD = x'00000040'= DECLARE LONG CONSTANT PR13_CEFSTS$M_OREAD = x'00000080'= DECLARE LONG CONSTANT PR13_CEFSTS$M_WRITE = x'00000100'? DECLARE LONG CONSTANT PR13_CEFSTS$M_TO_MBOX = x'00000200'; DECLARE LONG CONSTANT PR13_CEFSTS$M_RIP = x'00000400'; DECLARE LONG CONSTANT PR13_CEFSTS$M_OIP = x'00000800'; DECLARE LONG CONSTANT PR13_CEFSTS$M_DNF = x'00001000'D DECLARE LONG CONSTANT PR13_CEFSTS$M_RDLK_FL_DONE = x'00002000'E DECLARE LONG CONSTANT PR13_CEFSTS$M_REQ_FILL_DONE = x'00004000'= DECLARE LONG CONSTANT PR13_CEFSTS$M_COUNT = x'00018000'G DECLARE LONG CONSTANT PR13_CEFSTS$M_UNEXPECTED_FILL = x'00200000'K DECLARE LONG CONSTANT PR13$_NESTS = 174 ! NDAL error status ( RW )< DECLARE LONG CONSTANT PR13_NESTS$M_NOACK = x'00000001'? DECLARE LONG CONSTANT PR13_NESTS$M_BADWDATA = x'00000002'@ DECLARE LONG CONSTANT PR13_NESTS$M_LOST_OERR = x'00000004'; DECLARE LONG CONSTANT PR13_NESTS$M_PERR = x'00000008'A DECLARE LONG CONSTANT PR13_NESTS$M_INCON_PERR = x'00000010'@ DECLARE LONG CONSTANT PR13_NESTS$M_LOST_PERR = x'00000020'T DECLARE LONG CONSTANT PR13$_NEOADR = 176 ! NDAL error output address ( RO )T DECLARE LONG CONSTANT PR13$_NEOCMD = 178 ! NDAL error output command ( RO ); DECLARE LONG CONSTANT PR13_NEOCMD$M_CMD = x'0000000F': DECLARE LONG CONSTANT PR13_NEOCMD$M_ID = x'00000070'? DECLARE LONG CONSTANT PR13_NEOCMD$M_BYTE_EN = x'0000FF00'; DECLARE LONG CONSTANT PR13_NEOCMD$M_LEN = x'C0000000'P DECLARE LONG CONSTANT PR13$_NEDATHI = 180 ! NDAL error data high ( RO )O DECLARE LONG CONSTANT PR13$_NEDATLO = 182 ! NDAL error data low ( RO )S DECLARE LONG CONSTANT PR13$_NEICMD = 184 ! NDAL error input command ( RO ); DECLARE LONG CONSTANT PR13_NEICMD$M_CMD = x'0000000F': DECLARE LONG CONSTANT PR13_NEICMD$M_ID = x'00000070'> DECLARE LONG CONSTANT PR13_NEICMD$M_PARITY = x'00000380'H DECLARE LONG CONSTANT PR13_NDAL$K_LEN_HW = 0 ! Length = hexawordH DECLARE LONG CONSTANT PR13_NDAL$K_LEN_QW = 2 ! Length = quadwordH  DECLARE LONG CONSTANT PR13_NDAL$K_LEN_OW = 3 ! Length = octaword" ! encoded NDAL command valuesE DECLARE LONG CONSTANT PR13_NDAL$K_CMD_NOP = 0 ! Command = NOPI DECLARE LONG CONSTANT PR13_NDAL$K_CMD_WRITE = 2 ! Command = WriteR DECLARE LONG CONSTANT PR13_NDAL$K_CMD_WDISOWN = 3 ! Command = Write disownJ DECLARE LONG CONSTANT PR13_NDAL$K_CMD_IREAD = 4 ! Command = I-readJ DECLARE LONG CONSTANT PR13_NDAL$K_CMD_DREAD = 5 ! Command = D-readJ DECLARE LONG CONSTANT PR13_NDAL$K_CMD_OREAD = 6 ! Command = O-readQ DECLARE LONG CONSTANT PR13_NDAL$K_CMD_RDE = 9 ! Command = Read data errorO DECLARE LONG CONSTANT PR13_NDAL$K_CMD_WDATA = 10 ! Command = Write dataV DECLARE LONG CONSTANT PR13_NDAL$K_CMD_BADWDATA = 11 ! Command = Bad write dataV DECLARE LONG CONSTANT PR13_NDAL$K_CMD_RDR0 = 12 ! Command = Read data return 0V DECLARE LONG CONSTANT PR13_NDAL$K_CMD_RDR1 = 13 ! Command = Read data return 1V DECLARE LONG CONSTANT PR13_NDAL$K_CMD_RDR2 = 14 ! Command = Read data return 2V DECLARE LONG CONSTANT PR13_NDAL$K_CMD_RDR3 = 15 ! Command = Read data return 3 ! Cbox registers, continued[ DECLARE LONG CONSTANT PR13$_BCTAG = 16777216 ! First of 64K Bcache tag IPRs ( RW )^ DECLARE LONG CONSTANT PR13$_BCTAG_128KB_MAX = 16908256 ! Last tag IPR for 128KB Bcache^ DECLARE LONG CONSTANT PR13$_BCTAG_256KB_MAX = 17039328 ! Last tag IPR for 256KB Bcache^ DECLARE LONG CONSTANT PR13$_BCTAG_512KB_MAX = 17301472 ! Last tag IPR for 512KB BcacheZ DECLARE LONG CONSTANT PR13$_BCTAG_2MB_MAX = 18874336 ! Last tag IPR for 2MB Bcachec DECLARE LONG CONSTANT PR13_BCTAG$K_IPR_INCR = 32 ! Increment between Bcache tag IPR numbers< DECLARE LONG CONSTANT PR13_BCTAG$M_VALID = x'00000200'< DECLARE LONG CONSTANT PR13_BCTAG$M_OWNED = x'00000400': DECLARE LONG CONSTANT PR13_BCTAG$M_ECC = x'0001F800': DECLARE LONG CONSTANT PR13_BCTAG$M_TAG = x'FFFE0000'h DECLARE LONG CONSTANT PR13$_BCFLUSH = 20971520 ! First of 64K Bcache tag deallocate IPRs ( WO )g DECLARE LONG CONSTANT PR13$_BCFLUSH_128KB_MAX = 21102560 ! Last deallocate IPR for 128KB Bcacheg DECLARE LONG CONSTANT PR13$_BCFLUSH_256KB_MAX = 21233632 ! Last deallocate IPR for 256KB Bcacheg DECLARE LONG CONSTANT PR13$_BCFLUSH_512KB_MAX = 21495776 ! Last deallocate IPR for 512KB Bcachec DECLARE LONG CONSTANT PR13$_BCFLUSH_2MB_MAX = 23068640 ! Last deallocate  IPR for 2MB Bcachel DECLARE LONG CONSTANT PR13_BCFLUSH$K_IPR_INCR = 32 ! Increment between Bcache deallocate IPR numbers ! Ibox registers.L DECLARE LONG CONSTANT PR13$_VMAR = 208 ! VIC memory address register8 DECLARE LONG CONSTANT PR13_VMAR$M_LW = x'00000004'? DECLARE LONG CONSTANT PR13_VMAR$M_SUB_BLOCK = x'00000018'? DECLARE LONG CONSTANT PR13_VMAR$M_ROW_INDEX = x'000007E0': DECLARE LONG CONSTANT PR13_VMAR$M_ADDR = x'FFFFF800'A DECLARE LONG CON STANT PR13$_VTAG = 209 ! VIC tag register7 DECLARE LONG CONSTANT PR13_VTAG$M_V = x'0000000F'8 DECLARE LONG CONSTANT PR13_VTAG$M_DP = x'000000F0'8 DECLARE LONG CONSTANT PR13_VTAG$M_TP = x'00000100'9 DECLARE LONG CONSTANT PR13_VTAG$M_TAG = x'FFFFF800'C DECLARE LONG CONSTANT PR13$_VDATA = 210 ! VIC data registerY DECLARE LONG CONSTANT PR13$_ICSR = 211 ! Ibox control and status register ( RW )< DECLARE LONG CONSTANT PR13_ICSR$M_ENABLE = x'00000001':  DECLARE LONG CONSTANT PR13_ICSR$M_LOCK = x'00000004'; DECLARE LONG CONSTANT PR13_ICSR$M_DPERR = x'00000008'; DECLARE LONG CONSTANT PR13_ICSR$M_TPERR = x'00000010'X DECLARE LONG CONSTANT PR13$_BPCR = 212 ! Ibox branch prediction control register= DECLARE LONG CONSTANT PR13_BPCR$M_HISTORY = x'0000000F'@ DECLARE LONG CONSTANT PR13_BPCR$M_MISPREDICT = x'00000020'? DECLARE LONG CONSTANT PR13_BPCR$M_FLUSH_BHT = x'00000040'? DECLARE LONG CONSTANT PR13_BPCR$M_FLUSH_CTR = x'00000080'B DECLARE LONG CONSTANT PR13_BPCR$M_LOAD_HISTORY = x'00000100'C DECLARE LONG CONSTANT PR13_BPCR$M_BPU_ALGORITHM = x'FFFF0000'g DECLARE LONG CONSTANT PR13_BPCR$K_BPU_ALGORITHM = 65226 ! default value for BPU_ALGORITHM fieldF DECLARE LONG CONSTANT PR13$_BPC = 214 ! Ibox Backup PC ( RO )Z DECLARE LONG CONSTANT PR13$_BPCUNW = 215 ! Ibox Backup PC with RLOG unwind ( RO )1 ! Mbox internal memory management registers.O DECLARE LONG CONSTANT PR13$_MP0BR = 224 ! Mbox P0 base register ( RW )Q DECLARE LONG CONSTANT PR13$_MP0LR = 225 ! Mbox P0 length register ( RW )O DECLARE LONG CONSTANT PR13$_MP1BR = 226 ! Mbox P1 base register ( RW )Q DECLARE LONG CONSTANT PR13$_MP1LR = 227 ! Mbox P1 length register ( RW )R DECLARE LONG CONSTANT PR13$_MSBR = 228 ! Mbox system base register ( RW )T DECLARE LONG CONSTANT PR13$_MSLR = 229 ! Mbox system length register ( RW )X DECLARE LONG CONSTANT PR13$_MMAPEN = 230 ! Mbox memory management enable ( RW ) ! Mbox registers.U DECLARE LONG CONSTANT PR13$_PAMODE = 231 ! Mbox physical address mode ( RW )< DECLARE LONG CONSTANT PR13_PAMODE$M_MODE = x'00000001'F DECLARE LONG CONSTANT PR13_PAMODE$K_PA_30 = 0 ! 30-bit PA modeF DECLARE LONG CONSTANT PR13_PAMODE$K_PA_32 = 1 ! 32-bit PA mode_ DECLARE LONG CONSTANT PR13$_MMEADR = 232 ! Mbox memory management fault address ( RO )c DECLARE LONG CONSTANT PR13$_MMEPTE = 233 ! Mbox memory management fault PTE address ( RO )^ DECLARE LONG CONSTANT PR13$_MMESTS = 234 ! Mbox memory management fault status ( RO ): DECLARE LONG CONSTANT PR13_MMESTS$M_LV = x'00000001'? DECLARE LONG CONSTANT PR13_MMESTS$M_PTE_REF = x'00000002'9 DECLARE LONG CONSTANT PR13_MMESTS$M_M = x'00000004'= DECLARE LONG CONSTANT PR13_MMESTS$M_FAULT = x'0000C000'E DECLARE LONG CONSTANT PR13_MMESTS$K_FAULT_ACV = 1 ! ACV faultE DECLARE LONG CONSTANT PR13_MMESTS$K_FAULT_TNV = 2 ! TNV faultD DECLARE LONG CONSTANT PR13_MMESTS$K_FAULT_M0 = 3 ! M=0 fault; DECLARE LONG CONSTANT PR13_MMESTS$M_SRC = x'1C000000'< DECLARE LONG CONSTANT PR13_MMESTS$M_LOCK = x'E0000000'V DECLARE LONG CONSTANT PR13$_TBADR = 236 ! Mbox TB parity error address ( RO )U DECLARE LONG CONSTANT PR13$_TBSTS = 237 ! Mbox TB parity error status ( RW ); DECLARE LONG CONSTANT PR13_TBSTS$M_LOCK = x'00000001'< DECLARE LONG CONSTANT PR13_TBSTS$M_DPERR = x'00000002'< DECLARE LONG CONSTANT PR13_TBSTS$M_TPERR = x'00000004'= DECLARE LONG CONSTANT PR13_TBSTS$M_EM_VAL = x'00000008': DECLARE LONG CONSTANT PR13_TBSTS$M_CMD = x'000001F0': DECLARE LONG CONSTANT PR13_TBSTS$M_SRC = x'E0000000'Y DECLARE LONG CONSTANT PR13_MSRC$K_IREF_LATCH = 6 ! Source of fault was IREF latchY DECLARE LONG CONSTANT PR13_MSRC$K_SPEC_QUEUE = 4 ! Source of fault was spec queueU DECLARE LONG CONSTANT PR13_MSRC$K_EM_LATCH = 0 ! Source of fault was EM latch ! Mbox Pcache registers Z DECLARE LONG CONSTANT PR13$_PCADR = 242 ! Mbox Pcache parity error address ( RO )Y DECLARE LONG CONSTANT PR13$_PCSTS = 244 ! Mbox Pcache parity error status ( RW ); DECLARE LONG CONSTANT PR13_PCSTS$M_LOCK = x'00000001'< DECLARE LONG CONSTANT PR13_PCSTS$M_DPERR = x'00000002'A DECLARE LONG CONSTANT PR13_PCSTS$M_RIGHT_BANK = x'00000004'@ DECLARE LONG CONSTANT PR13_P CSTS$M_LEFT_BANK = x'00000008': DECLARE LONG CONSTANT PR13_PCSTS$M_CMD = x'000001F0'@ DECLARE LONG CONSTANT PR13_PCSTS$M_PTE_ER_WR = x'00000200'= DECLARE LONG CONSTANT PR13_PCSTS$M_PTE_ER = x'00000400'M DECLARE LONG CONSTANT PR13$_PCCTL = 248 ! Mbox Pcache control ( RW )? DECLARE LONG CONSTANT PR13_PCCTL$M_D_ENABLE = x'00000001'? DECLARE LONG CONSTANT PR13_PCCTL$M_I_ENABLE = x'00000002'@ DECLARE LONG CONSTANT PR13_PCCTL$M_FORCE_HIT = x'00000004'? DECLARE LONG CONSTANT PR13_PCCTL$M_BANK_SEL = x'00000008'? DECLARE LONG CONSTANT PR13_PCCTL$M_P_ENABLE = x'00000010': DECLARE LONG CONSTANT PR13_PCCTL$M_PMM = x'000000E0'C DECLARE LONG CONSTANT PR13_PCCTL$M_ELEC_DISABLE = x'00000100'A DECLARE LONG CONSTANT PR13_PCCTL$M_RED_ENABLE = x'00000200'[ DECLARE LONG CONSTANT PR13$_PCTAG = 25165824 ! First of 256 Pcache tag IPRs ( RW )V DECLARE LONG CONSTANT PR13$_PCTAG_MAX = 25173984 ! Last of 256 Pcache tag IPRsc DECLARE LONG CONSTANT PR13_PCTAG$K_IPR_INCR = 32 ! Increment between Pcache tag IPR numbers8 DECLARE LONG CONSTANT PR13_PCTAG$M_A = x'00000001'8 DECLARE LONG CONSTANT PR13_PCTAG$M_V = x'0000001E'8 DECLARE LONG CONSTANT PR13_PCTAG$M_P = x'00000020': DECLARE LONG CONSTANT PR13_PCTAG$M_TAG = x'FFFFF000'd DECLARE LONG CONSTANT PR13$_PCDAP = 29360128 ! First of 1024 Pcache data parity IPRs ( RW )_ DECLARE LONG CONSTANT PR13$_PCDAP_MAX = 29368312 ! Last of 1 024 Pcache data parity IPRsj DECLARE LONG CONSTANT PR13_PCDAP$K_IPR_INCR = 8 ! Increment between Pcache data parity IPR numbersB DECLARE LONG CONSTANT PR13_PCDAP$M_DATA_PARITY = x'000000FF'- DECLARE LONG CONSTANT PR13S_PR13DEF = 4 record PR13DEF variantM ! Architecturally-defined registers which have different characteristics ! on this CPU. case* group PR13R_PR13SAVPSL_BITS* ! Saved PSL bits <7:0>F  ! Halt code containing one of the following values+ ! Invalid SAVPSL if = 1 ! MAPEN<0>, ! Saved PSL bits <31:16>m LONG PSL_LO_bits ! COMMENT ADDED BY SDL - PSL_LO_bits contains bits PSL_LO through PSL_HI. end group PR13R_PR13SAVPSL_BITS case' group PR13R_PR13SID_BITS6 ! Microcode (chip) revision number: ! PCS loaded with a non-standard patch+ ! Patch revision number9 ! CPU type code (19 decimal for NVAX)t LONG UCODE_REV_bits ! COMMENT ADDED BY SDL - UCODE_REV_bits contains bits UCODE_REV through TYPE+ end group PR13R_PR13SID_BITS' ! System-level required registers.D ! These registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation. caseX group PR1 3R_PR13IAK_VECTOR ! Vector returned in response to IAK1x read? ! Force IPL 17, independent of actual level% ! Passive release: ! LW offset in SCB of interrupt vectorj LONG IPL17_bits ! COMMENT ADDED BY SDL - IPL17_bits contains bits IPL17 through FILL_1- end group PR13R_PR13IAK_VECTOR ! Ebox register definition case* group PR13R_PR13INTSYS_BITS" ! ICCS<6> (RO)% ! SISR<15:1> (RO): ! ID of highest pending interrupt (RO)9 ! Interval timer interrupt reset (WC)5 ! Soft error interrupt reset (WC)A ! Performance monitoring interrupt reset (WC)5 ! Hard error interrupt reset (WC)5 ! Power fail interrupt reset (WC)3 ! Halt pin interrupt reset (WC)n LONG ICCS6_bits ! COMM ENT ADDED BY SDL - ICCS6_bits contains bits ICCS6 through HALT_RESET. end group PR13R_PR13INTSYS_BITS case* group PR13R_PR13PMFCNT_BITS! ! PMCTR0 word! ! PMCTR1 wordm LONG PMCTR0_bits ! COMMENT ADDED BY SDL - PMCTR0_bits contains bits PMCTR0 through PMCTR1. end group PR13R_PR13PMFCNT_BITS case) group PR13R_PR13PCSCR_BITSF ! Disable parallel port control of scan chain (RW)@ ! Enable use of patchable control store (RW)F ! Write scan chain to patchable control store (WO)G ! Shift read-write latch scan chain by one bit (WO)E ! Data to be shifted into the PCS scan chain (RW)? ! PCS loaded with a non-standard patch (RW)0 ! Patch revision number (RW)m LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL _1_bits contains bits FILL_1 through FILL_3- end group PR13R_PR13PCSCR_BITS case' group PR13R_PR13ECR_BITS. ! Vector unit present (RW)' ! Fbox enabled (RW)N ! Select external timebase for S3 stall timeout timer (RW)A ! Fbox stage 4 conditional bypass enable (RW)4 ! S3 stall timeout occurred (WC)@ ! Select test mode for S3 stall timeout (RW)+ ! Clock S3 timeout (RW)B ! Full ICCS implemented in external logic (RW). ! Enable test of Fbox (RW)A ! Performance monitoring facility enable (RW)H ! Performance monitoring facility master select (RW)J ! Performance monitoring facility Ebox mux select (RW)K ! Performance monitoring facility Wbus LFSR enable (RW)I ! Clear performance mo nitoring hardware counters (WO) LONG VECTOR_PRESENT_bits ! COMMENT ADDED BY SDL - VECTOR_PRESENT_bits contains bits VECTOR_PRESENT through & ! PMF_CLEAR+ end group PR13R_PR13ECR_BITS ! Mbox TB registers.D ! These registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation. case* group PR13R_PR13MTBTAG_BITS$ ! Tag parity bit? ! Virtual page number of address (VA<31:9>)^ LONG TP_bits ! COMMENT ADDED BY SDL - TP_bits contains bits TP through VPN. end group PR13R_PR13MTBTAG_BITS casee group PR13R_PR13MTBPTE_BITS ! Format is normal PTE format, except for PTE parity bit2 ! Page frame number (PA<31:9>) ! PTE parity ! Modify bit& ! Protection field# ! PTE valid bit f LONG PFN_bits ! COMMENT ADDED BY SDL - PFN_bits contains bits PFN through fill_103. end group PR13R_PR13MTBPTE_BITS$ ! Vector architecture registers case( group PR13R_PR13VPSR_BITS3 ! Vector processor enabled (RW)7 ! Vector processor state reset (WO)6 ! Vector arithmetic exception (WC)A ! Implementation-specific hardware error (WC)0  ! Vector processor busy (RO)a LONG VEN_bits ! COMMENT ADDED BY SDL - VEN_bits contains bits VEN through BSY, end group PR13R_PR13VPSR_BITS case( group PR13R_PR13VAER_BITS( ! Floating underflow- ! Floating divide-by-zero/ ! Floating reserved operand' ! Floating overflow& ! Integer overflow6 ! Vector destination regis ter maskt LONG F_UNDF_bits ! COMMENT ADDED BY SDL - F_UNDF_bits contains bits F_UNDF through REGISTER_MASK, end group PR13R_PR13VAER_BITS case( group PR13R_PR13CCTL_BITS( ! Enable Bcache (RW)( ! Tag RAM speed (RW)) ! Data RAM speed (RW)& ! Bcache size (RW)+ ! Force Bcache hit (RW)4 ! Disable Bcache ECC errors (RW)5  ! Enable use of software ECC (RW)D ! Enable test of Cbox read timeout counters (RW)0 ! Disable write packing (RW)= ! Performance monitoring access type (RW): ! Performance monitoring hit type (RW)U ! Forces 1 parity error on the NDAL, on next outgoing transaction? ! Enter software error transition mode (RW)E ! Error transition mode entered due to error (WC)m LONG ENABLE_bits ! COMMENT ADDED BY SDL - ENABLE_bits contains bits ENABLE through HW_ETM, end group PR13R_PR13CCTL_BITS case* group PR13R_PR13BCDECC_BITS* ! ECC check bits <3:0>* ! ECC check bits <7:4>m LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_3. end group PR13R_PR13BCDECC_BITS ! Cbox registers,  continued case+ group PR13R_PR13BCETSTS_BITSI ! Tag store registers are locked due to an error (WC)5 ! Correctable error occurred (WC)7 ! Uncorrectable error occurred (WC)4 ! Addressing error occurred (WC)B ! Error occured while register was locked (WC)? ! Tag store command which caused error (RO)g LONG LOCK_bits ! COMMENT ADDED B Y SDL - LOCK_bits contains bits LOCK through FILL_1/ end group PR13R_PR13BCETSTS_BITS case* group PR13R_PR13BCETAG_BITS ! Valid bit# ! Ownership bit ! ECC bits ! tag dataj LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through TAG. end group PR13R_PR13BCETAG_BITS ! Cbox registers, continued ca se+ group PR13R_PR13BCEDSTS_BITSH ! Data RAM registers are locked due to an error (WC)9 ! Correctable ECC error occurred (WC); ! Uncorrectable ECC error occurred (WC)4 ! Addressing error occurred (WC)C ! Error occurred while register was locked (WC)> ! Data RAM command which caused error (RO)g LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits co ntains bits LOCK through FILL_2/ end group PR13R_PR13BCEDSTS_BITS case+ group PR13R_PR13BCEDECC_BITS9 ! Bcache data ECC syndrome bits <3:0>9 ! Bcache data ECC syndrome bits <7:4>m LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_3/ end group PR13R_PR13BCEDECC_BITS ! Cbox registers, continued case* group PR1 3R_PR13CEFSTS_BITS< ! Error occurred during a read lock (WC)O ! CEFSTS ? CEFADR registers are locked due to an error (WC)A ! Fill failed due to transaction timeout (WC)= ! Fill failed due to Read Data Error (WC)C ! Error occurred while register was locked (WC)5 ! NDAL id<0> for failed read (RO)8 ! Error occured during an IREAD (RO)9 ! Erro r occurred during an OREAD (RO)8 ! Error occurred during a write (RO)9 ! Data was destined for the Mbox (RO)6 ! READ invalidate was pending (RO)7 ! OREAD invalidate was pending (RO)K ! Data was not to be validated when fill completed (RO); ! Last fill for read lock received (RO)I ! Requested fill quadword was received for this read.B ! Nu mber of requested QW of fill received (RO)X ! RDE or RDR was received from the NDAL when fill_cam not valid (WC)g LONG RDLK_bits ! COMMENT ADDED BY SDL - RDLK_bits contains bits RDLK through FILL_2. end group PR13R_PR13CEFSTS_BITS ! Cbox registers, continued case) group PR13R_PR13NESTS_BITS6 ! Outgoing command was NACKed (WC)5 ! BADWDATA cycle transmitted (WC)L  ! Outgoing error was lost while register was locked (WC)5 ! NDAL parity error detected (WC)I ! Inconsistent parity error (parity error detected onO ! NDAL parity error detected while register was locked (WC) ! ACKed transaction) (WC)j LONG NOACK_bits ! COMMENT ADDED BY SDL - NOACK_bits contains bits NOACK through FILL_1- end group PR13R_PR13NESTS_BITS case* gro up PR13R_PR13NEOCMD_BITSL ! NDAL command on outgoing error transaction (see below); ! NDAL ID on outgoing error transaction@ ! Byte enables on outgoing error transactionF ! Length on outgoing error transaction (see below)a LONG CMD_bits ! COMMENT ADDED BY SDL - CMD_bits contains bits CMD through LEN. end group PR13R_PR13NEOCMD_BITS case* group PR13R_PR13NEICM D_BITSL ! NDAL command received on error transaction (see below); ! NDAL ID received error on transactionD ! NDAL parity bits received error on transactiond LONG CMD_bits ! COMMENT ADDED BY SDL - CMD_bits contains bits CMD through FILL_1. end group PR13R_PR13NEICMD_BITS! ! Encoded NDAL length values case) group PR13R_PR13BCTAG_BITS$ ! Valid bit (RW)(  ! Ownership bit (RW)# ! ECC bits (RW)# ! tag data (RW)j LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through TAG- end group PR13R_PR13BCTAG_BITS case( group PR13R_PR13VMAR_BITS. ! longword within quadword) ! sub-block indicator% ! cache row index# ! error addressk  LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through ADDR, end group PR13R_PR13VMAR_BITS case( group PR13R_PR13VTAG_BITS% ! data valid bits& ! data parity bits$ ! tag parity bit( ! unused bits (zero) ! tag[ LONG V_bits ! COMMENT ADDED BY SDL - V_bits contains bits V through TAG,  end group PR13R_PR13VTAG_BITS case( group PR13R_PR13ICSR_BITS) ! VIC enable bit (RW)= ! Register is locked due to an error (WC), ! Data parity error (RO)+ ! Tag parity error (RO)m LONG ENABLE_bits ! COMMENT ADDED BY SDL - ENABLE_bits contains bits ENABLE through FILL_2, end group PR13R_PR13ICSR_BITS case( group PR13R_PR13BPCR_ BITS) ! branch history bits, ! history of last branch0 ! flush branch history table4 ! flush branch hist addr counter0 ! write new history to array0 ! unused bits (must be zero)1 ! branch prediction algorithmw LONG HISTORY_bits ! COMMENT ADDED BY SDL - HISTORY_bits contains bits HISTORY through BPU_ALGORITHM, end group PR13R_P R13BPCR_BITSP ! The following two registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation.D ! These registers are for testability and diagnostics use only.L ! In normal operation, the equivalent architecturally-defined registers ! should be used instead. case* group PR13R_PR13PAMODE_BITS@ ! Addressing mode(1 = 32bit addressing) (RW)g LONG MODE_bits ! COMME NT ADDED BY SDL - MODE_bits contains bits MODE through FILL_1. end group PR13R_PR13PAMODE_BITS case* group PR13R_PR13MMESTS_BITS7 ! ACV fault due to length violation> ! ACV/TNV fault occurred on PPTE reference: ! Reference had write or modify intent7 ! Fault type, one of the following:J ! Shadow copy of LOCK bits (see MSRC$ constants below)<  ! Lock status (see MSRC$ constant below)_ LONG LV_bits ! COMMENT ADDED BY SDL - LV_bits contains bits LV through LOCK. end group PR13R_PR13MMESTS_BITS case) group PR13R_PR13TBSTS_BITS= ! Register is locked due to an error (WC), ! Data parity error (RO)+ ! Tag parity error (RO)A ! EM latch was valid when error occurred (RO)B ! S5 com mand when TB parity error occured (RO)R ! Source of original refernce (see MSRC$ constants below) (RO)d LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits contains bits LOCK through SRC- end group PR13R_PR13TBSTS_BITS case) group PR13R_PR13PCSTS_BITS= ! Register is locked due to an error (WC)5 ! Data parity error occurred (RO)? ! Right bank tag parity error occurred (RO)> ! Left bank tag parity error occurred (RO)F ! S6 command when Pcache parity error occured (RO)P ! Hard error on PTE DREAD occurred (orig ref was WRITE) (WC); ! Hard error on PTE DREAD occurred (WC)g LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits contains bits LOCK through FILL_1- end group PR13R_PR13PCSTS_BITS case) group PR13R_PR13PCCTL_B ITSJ ! Enable for invalidate, D-stream read/write/fill (RW)D ! Enable for invalidate, I-stream read/fill (RW)@ ! Enable force hit on Pcache references (RW)A ! Select left bank if 0, right bank if 1 (RW)1 ! Enable parity checking (RW)8 ! Mbox performance monitor mode (RW)8 ! Pcache electrical disable bit (RW)0 ! Redundancy enable bit (RO)s  LONG D_ENABLE_bits ! COMMENT ADDED BY SDL - D_ENABLE_bits contains bits D_ENABLE through FILL_1- end group PR13R_PR13PCCTL_BITS case) group PR13R_PR13PCTAG_BITSL ! Allocation bit corresponding to index of this tag (RW)K ! Valid bits corresponding to the 4 data subblocks (RW)% ! Tag parity (RW)# ! Tag bits (RW)[ LONG A_bits ! COMMENT ADDE D BY SDL - A_bits contains bits A through TAG- end group PR13R_PR13PCTAG_BITS case) group PR13R_PR13PCDAP_BITSF ! Even byte parity for the addressed quadword (RW)| LONG DATA_PARITY_bits ! COMMENT ADDED BY SDL - DATA_PARITY_bits contains bits DATA_PARITY through FILL_1- end group PR13R_PR13PCDAP_BITS end variant end record PR13DEF  ww`roPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  N DECLARE LONG CONSTANT PR1302$_NICR = 25 ! Next Interval Count RegisterH DECLARE LONG CONSTANT PR1302$_ICR = 26 ! Interval Count Register ww@pPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  R DECLARE LONG CONSTANT PR1701$K_REVISION = 1 ! Revision number of this fileR ! In the definitions below, registers are annotated with one of the following ! symbols: ! 5 ! RW  - The register may be read and written+ ! RO - The register may only be read. ! WO - The register may only be written ! P ! For RO and WO registers, all bits and fields within the register are alsoK ! read-only or write-only. For RW registers, each bit or field within; ! the register is annotated with one of the following: ! 3 ! RW - The bit/field may be read and written; ! RO - The bit/field may be read; writes are ignoredQ ! WO - The bit/field may be written; reads return an UNPREDICTABLE result.< ! WZ - The bit/field may be written; reads return a 0D ! WC - The bit/field may be read; writes cause state to clear] ! RC - The bit/field may be read, which also causes state to clear; writes are ignoredI DECLARE LONG CONSTANT PR1701$_IPL = 18 ! Interrupt Priority LevelO DECLARE LONG CONSTANT PR1701$_ICCS = 24 ! Interval Clock Control/StatusE DECLARE LONG CONSTANT PR1701$_NICR = 25 ! Next Interval Count? DECLARE LONG CONSTANT PR1701$_ICR = 26 ! Interval CountO DECLARE LONG CONSTANT PR1701$_TODR = 27 ! Time Of Year Register ( RW )W DECLARE LONG CONSTANT PR1701$_MCESR = 38 ! Machine check error register ( WO )K DECLARE LONG CONSTANT PR1701$_SAVPC = 42 ! Console saved PC ( RO )M DECLARE LONG CONSTANT PR1701$_SAVPSL = 43 ! Console saved PSL ( RO )> DECLARE LONG CONSTANT PR17_SAVPSL$M_PSL_LO = x'000000FF'@ DECLARE LONG CONSTANT PR17_SAVPSL$M_HALTCODE = x'00003F00'Q DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_HLTPIN = 2 ! HALT_L pin assertedL DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_PWRUP = 3 ! Initial powerupW DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_INTSTK = 4 ! Interrupt stack not validg DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_DOUBLE = 5 ! Machine check during exception processing] DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_HLTINS = 6 ! Halt instruction in kernel modeb DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_ILLVEC = 7 ! Illegal SCB vector ( bits<1:0>=11 )^ DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_WCSVEC = 8 ! WCS SCB vector ( bits<1:0>=10 )U DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_CHMFI = 10 ! CHMx on interrupt stackc DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE0 = 16 ! ACV/TNV during machine check processingZ DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE1 = 17 ! ACV/TNV during KSNV processingi DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE2 = 18 ! Machine check during machine check processing` DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE3 = 19 ! Machine check during KSNV processingo DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE_PSL_101 = 25 ! PSL<26:24>=101 during interrupt or exceptiono DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE_PSL_110 = 26 ! PSL<26:24>=110 during interrupt or exceptiono DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_IE_PSL_111 = 27 ! PSL<26:24>=111 during interrupt or exception] DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_REI_PSL_101 = 29 ! PSL<26:24>=101 during REI] DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_REI_PSL_110 = 30 ! PSL<26:24>=110 during REI] DECLARE LONG CONSTANT PR17_SAVPSL$K_HALT_REI_PSL_111 = 31 ! PSL<26:24>=111 during REI? DECLARE LONG CONSTANT PR17_SAVPSL$M_INVALID = x'00004000'= DECLARE LONG CONSTANT PR17_SAVPSL$M_MAPEN = x'00008000'> DECLARE LONG CONSTANT PR17_SAVPSL$M_PSL_HI = x'FFFF0000'V DECLARE LONG CONSTANT PR1701$_IORESET = 55 ! I/O system reset register ( WO )V DECLARE LONG CONSTANT PR1701$_PME = 61 ! Performance monitoring enable ( RW )' ! System-level required registers.Y DECLARE LONG CONSTANT PR1701$_IAK14 = 64 ! Level 14 interrupt acknowledge ( RO )Y DECLARE LONG CONSTANT PR1701$_IAK15 = 65 ! Level 15 interrupt acknowledge ( RO )Y DECLARE LONG CONSTANT PR1701$_IAK16 = 66 ! Level 16 interrupt acknowledge ( RO )Y DECLARE LONG CONSTANT PR1701 $_IAK17 = 67 ! Level 17 interrupt acknowledge ( RO )5 DECLARE LONG CONSTANT IAK$M_IPL17 = x'00000001'2 DECLARE LONG CONSTANT IAK$M_PR = x'00000002': DECLARE LONG CONSTANT IAK$M_SCB_OFFSET = x'0000FFFC'L DECLARE LONG CONSTANT PR1701$_CWB = 68 ! Clear write buffers ( RW )A DECLARE LONG CONSTANT PR1701$_LMBOX = 121 ! Laser Mailbox ! Ebox registers.] DECLARE LONG CONSTANT PR1701$_INTSYS = 122 ! Interrupt system status register ( RW )8 DECLARE LONG CONSTANT INTSYS$M_ICCS6 = x'00000001'7 DECLARE LONG CONSTANT INTSYS$M_SISR = x'0000FFFE'9 DECLARE LONG CONSTANT INTSYS$M_INT_ID = x'001F0000'B DECLARE LONG CONSTANT INTSYS$K_INT_ID_HALT = 31 ! Halt pinE DECLARE LONG CONSTANT INTSYS$K_INT_ID_PWRFL = 30 ! Power failE DECLARE LONG CONSTANT INTSYS$K_INT_ID_H_ERR = 29 ! Hard errorK DECLARE LONG CONSTANT INTSYS$K_INT_ID_INT_TIM = 28 ! Interval timerM DECLARE LONG CONSTANT INTSYS$K_INT_ID_PMON = 27  ! Performance monitorE DECLARE LONG CONSTANT INTSYS$K_INT_ID_S_ERR = 26 ! Soft errorQ DECLARE LONG CONSTANT INTSYS$K_INT_ID_IRQ3 = 23 ! IPL 17 device interruptQ DECLARE LONG CONSTANT INTSYS$K_INT_ID_IRQ2 = 22 ! IPL 16 device interruptQ DECLARE LONG CONSTANT INTSYS$K_INT_ID_IRQ1 = 21 ! IPL 15 device interruptQ DECLARE LONG CONSTANT INTSYS$K_INT_ID_IRQ0 = 20 ! IPL 14 device interruptD DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR15 = 15 ! SISR<15>D  DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR14 = 14 ! SISR<14>D DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR13 = 13 ! SISR<13>D DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR12 = 12 ! SISR<12>D DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR11 = 11 ! SISR<11>D DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR10 = 10 ! SISR<10>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR9 = 9 ! SISR<9>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR8 = 8 ! SISR<8>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR7 = 7 ! SISR<7>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR6 = 6 ! SISR<6>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR5 = 5 ! SISR<5>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR4 = 4 ! SISR<4>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR3 = 3 ! SISR<3>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR2 = 2 ! SISR<2>A DECLARE LONG CONSTANT INTSYS$K_INT_ID_SISR1 = 1 ! SISR<1>G DECLARE LONG CONSTANT INTSYS$K_INT_ID_NO_INT = 0 ! No interrupt@ DECLARE LONG CONSTANT INTSYS$M_INT_TIM_RESET = x'01000000'> DECLARE LONG CONSTANT INTSYS$M_S_ERR_RESET = x'08000000'= DECLARE LONG CONSTANT INTSYS$M_PMON_RESET = x'10000000'> DECLARE LONG CONSTANT INTSYS$M_H_ERR_RESET = x'20000000'> DECLARE LONG CONSTANT INTSYS$M_PWRFL_RESET = x'40000000'= DECLARE LONG CONSTANT INTSYS$M_HALT_RESET = x'80000000'k DECLARE LONG CONSTANT PR1701$_PMFCNT = 123 ! Performance monitoring facility count registe r ( RW )9 DECLARE LONG CONSTANT PMFCNT$M_PMCTR0 = x'0000FFFF'9 DECLARE LONG CONSTANT PMFCNT$M_PMCTR1 = x'FFFF0000'd DECLARE LONG CONSTANT PR1701$_PCSCR = 124 ! Patchable control store control register ( WO )> DECLARE LONG CONSTANT PCSCR$M_PAR_PORT_DIS = x'00000100'9 DECLARE LONG CONSTANT PCSCR$M_PCS_ENB = x'00000200'; DECLARE LONG CONSTANT PCSCR$M_PCS_WRITE = x'00000400'; DECLARE LONG CONSTANT PCSCR$M_RWL_SHIFT = x'00000800'6 DECLARE LONG CONST ANT PCSCR$M_DATA = x'00001000'C DECLARE LONG CONSTANT PCSCR$M_NONSTANDARD_PATCH = x'00800000'; DECLARE LONG CONSTANT PCSCR$M_PATCH_REV = x'1F000000'O DECLARE LONG CONSTANT PR1701$_ECR = 125 ! Ebox control register ( RW )> DECLARE LONG CONSTANT ECR$M_VECTOR_PRESENT = x'00000001'; DECLARE LONG CONSTANT ECR$M_FBOX_ENABLE = x'00000002'; DECLARE LONG CONSTANT ECR$M_TIMEOUT_EXT = x'00000004'F DECLARE LONG CONSTANT ECR$M_FBOX_ST4_BYPASS_ENABLE = x'00000008'@ DECLARE LONG CONSTANT ECR$M_TIMEOUT_OCCURRED = x'00000010'< DECLARE LONG CONSTANT ECR$M_TIMEOUT_TEST = x'00000020'= DECLARE LONG CONSTANT ECR$M_TIMEOUT_CLOCK = x'00000040'@ DECLARE LONG CONSTANT ECR$M_FBOX_TEST_ENABLE = x'00002000': DECLARE LONG CONSTANT ECR$M_PMF_ENABLE = x'00010000'8 DECLARE LONG CONSTANT ECR$M_PMF_PMUX = x'00060000'? DECLARE LONG CONSTANT ECR$K_PMUX_IBOX = 0 ! Select Ibox? DECLARE LONG CONSTANT ECR$K_PMUX_EBOX = 1 ! Select Ebox? DECLARE LONG CONSTANT ECR$K_PMUX_MBOX = 2 ! Select Mbox? DECLARE LONG CONSTANT ECR$K_PMUX_CBOX = 3 ! Select Cbox8 DECLARE LONG CONSTANT ECR$M_PMF_EMUX = x'00380000'] DECLARE LONG CONSTANT ECR$K_EMUX_S3_STALL = 0 ! Measure S3 stall against total cyclesi DECLARE LONG CONSTANT ECR$K_EMUX_EM_PA_STALL = 1 ! Measure EM+PA queue stall against total cyclesd DECLARE LONG CONSTANT ECR$K_EMUX_CPI = 2 ! Measure instructions retired against total cycles^ DECLARE LONG CONSTANT ECR$K_EMUX_STALL = 3 ! Measure total stalls against total cyclesa DECLARE LONG CONSTANT ECR$K_EMUX_S3_STALL_PCT = 4 ! Measure S3 stall against total stallsm DECLARE LONG CONSTANT ECR$K_EMUX_EM_PA_STALL_PCT = 5 ! Measure EM+PA queue stall against total stallsO DECLARE LONG CONSTANT ECR$K_EMUX_UWORD = 7 ! Count microword increments8 DECLARE LONG CONSTANT ECR$M_PMF_LFSR = x'00400000'9 DECLARE LONG CONSTANT ECR$M_PMF_CLEAR = x'80000000'M DECLARE LONG CONSTANT PR1701$_MTBTAG = 126 ! Mbox TB tag fill ( WO )5 DECLARE LONG CONSTANT MTBTAG$M_TP = x'00000001'6 DECLARE LONG CONSTANT MTBTAG$M_VPN = x'FFFFFE00'M DECLARE LONG CONSTANT PR1701$_MTBPTE = 127 ! Mbox TB PTE fill ( WO )6 DECLARE LONG CONSTANT MTBPTE$M_PFN = x'007FFFFF'4 DECLARE LONG CONSTANT MTBPTE$M_P = x'01000000'4 DECLARE LONG CONSTANT MTBPTE$M_M = x'04000000'7 DECLARE LONG CONSTANT MTBPTE$M_PROT = x'18000000'4 DECLARE LONG CONSTANT MTBPTE$M_V = x'20000000'[ DECLARE LONG CONSTANT PR1701$_VPSR = 144 ! Vector processor status register ( RW )9 DECLARE LONG CONSTANT PR17_VPSR$M_VEN = x'00000001'9 DECLARE LONG CONSTANT PR17_VPSR$M_RST = x'00000002'9 DECLARE LONG CONSTANT PR17_VPSR$M_AEX = x'00000080'9 DECLARE LONG CONSTANT PR17_VPSR$M_IMP = x'01000000'9 DECLARE LONG CONSTANT PR17_VPSR$M_BSY = x'80000000'_ DECLARE LONG CONSTANT PR1701$_VAER = 145 ! Vector arithmetic excepti on register ( RO )< DECLARE LONG CONSTANT PR17_VAER$M_F_UNDF = x'00000001'< DECLARE LONG CONSTANT PR17_VAER$M_F_DIVZ = x'00000002'< DECLARE LONG CONSTANT PR17_VAER$M_F_ROPR = x'00000004'< DECLARE LONG CONSTANT PR17_VAER$M_F_OVFL = x'00000008'< DECLARE LONG CONSTANT PR17_VAER$M_I_OVFL = x'00000020'C DECLARE LONG CONSTANT PR17_VAER$M_REGISTER_MASK = x'FFFF0000'Z DECLARE LONG CONSTANT PR1701$_VMAC = 146 ! Vector memory activity register ( RO )d DECLARE LONG CONSTANT PR1701$_VTBIA = 147 ! Vector translation buffer invalidate all ( WO ) ! Cbox registers.S DECLARE LONG CONSTANT PR1701$_BIU_CTL = 160 ! Cbox control register ( RW )9 DECLARE LONG CONSTANT BIU_CTL$M_BC_EN = x'00000001'7 DECLARE LONG CONSTANT BIU_CTL$M_ECC = x'00000002'F DECLARE LONG CONSTANT BIU_CTL$K_ECC_ECC = 1 ! select ECC modeL DECLARE LONG CONSTANT BIU_CTL$K_ECC_PARITY = 0 ! select Parity mode6 DECLARE LONG CONSTANT BIU_CTL$M_ OE = x'00000004'; DECLARE LONG CONSTANT BIU_CTL$M_BC_FHIT = x'00000008': DECLARE LONG CONSTANT BIU_CTL$M_BC_SPD = x'000000F0'D DECLARE LONG CONSTANT BIU_CTL$K_BC_SPD_2X = 0 ! 2x cpu cycleD DECLARE LONG CONSTANT BIU_CTL$K_BC_SPD_3X = 1 ! 3x cpu cycleD DECLARE LONG CONSTANT BIU_CTL$K_BC_SPD_4X = 2 ! 4x cpu cycle; DECLARE LONG CONSTANT BIU_CTL$M_BC_SIZE = x'70000000'P DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_128KB = 0 ! Select 128KB BcacheP DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_256KB = 1 ! Select 256KB BcacheP DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_512KB = 2 ! Select 512KB BcacheL DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_1MB = 3 ! Select 1MB BcacheL DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_2MB = 4 ! Select 2MB BcacheL DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_4MB = 5 ! Select 4MB BcacheL DECLARE LONG CONSTANT BIU_CTL$K_BC_SIZE_8MB = 6 ! Select 8MB Bcache9 DECLARE LONG CONSTANT BIU_CTL$M_WS_I O = x'80000000'M DECLARE LONG CONSTANT PR1701$_BC_TAG = 162 ! Bcache error tag ( RO )6 DECLARE LONG CONSTANT BC_TAG$M_HIT = x'00000001'8 DECLARE LONG CONSTANT BC_TAG$M_CTL_P = x'00000002'8 DECLARE LONG CONSTANT BC_TAG$M_CTL_S = x'00000004'8 DECLARE LONG CONSTANT BC_TAG$M_CTL_D = x'00000008'8 DECLARE LONG CONSTANT BC_TAG$M_CTL_V = x'00000010'8 DECLARE LONG CONSTANT BC_TAG$M_TAG_P = x'00400000'X DECLARE LONG CONSTANT PR1701$_BIU_STAT = 164 ! Bcache error data status ( W1C )= DECLARE LONG CONSTANT BIU_STAT$M_BIU_HERR = x'00000001'= DECLARE LONG CONSTANT BIU_STAT$M_BIU_SERR = x'00000002'= DECLARE LONG CONSTANT BIU_STAT$M_BC_TPERR = x'00000004'> DECLARE LONG CONSTANT BIU_STAT$M_BC_TCPERR = x'00000008'@ DECLARE LONG CONSTANT BIU_STAT$M_BIU_DSP_CMD = x'00000070'R DECLARE LONG CONSTANT BIU_STAT$K_WRITE_UNLOCK_IO = 0 ! WRITE_UNLOCK_IO cmd> DECLARE LONG CONSTANT BIU_STAT$K_IREAD = 1 ! IREAD cmdL DECLARE LONG CONSTANT BIU_STAT$K_WRITE_UNLOCK = 2 ! WRITE_UNLOCK cmd> DECLARE LONG CONSTANT BIU_STAT$K_WRITE = 3 ! WRITE cmd> DECLARE LONG CONSTANT BIU_STAT$K_DREAD = 4 ! DREAD cmdD DECLARE LONG CONSTANT BIU_STAT$K_DREAD_IO = 5 ! DREAD_IO cmdH DECLARE LONG CONSTANT BIU_STAT$K_DREAD_LOCK = 6 ! DREAD_LOCK cmd< DECLARE LONG CONSTANT BIU_STAT$M_BIU_SEO = x'00000080'= DECLARE LONG CONSTANT BIU_STAT$M_FILL_ECC = x'00000100'= DECLARE LONG CONSTANT BIU_STAT$M _FILL_CRD = x'00000200'> DECLARE LONG CONSTANT BIU_STAT$M_BIU_DPERR = x'00000400'= DECLARE LONG CONSTANT BIU_STAT$M_FILL_IRD = x'00000800'= DECLARE LONG CONSTANT BIU_STAT$M_FILL_SEO = x'00004000'8 DECLARE LONG CONSTANT BIU_STAT$M_RAZ = x'00008000'A DECLARE LONG CONSTANT BIU_STAT$M_FILL_DSP_CMD = x'000F0000'@ DECLARE LONG CONSTANT BIU_STAT$K_F_IREAD = 2 ! IREAD cmdD DECLARE LONG CONSTANT BIU_STAT$K_IREAD_IO = 3 ! IREAD_IO cmdT DECLARE LONG CONSTANT BIU_STAT$K_F_WRITE_UNLOCK_IO = 4 ! WRITE_UNLOCK_IO cmdD DECLARE LONG CONSTANT BIU_STAT$K_WRITE_IO = 5 ! WRITE_IO cmd@ DECLARE LONG CONSTANT BIU_STAT$K_F_WRITE = 6 ! WRITE cmdN DECLARE LONG CONSTANT BIU_STAT$K_F_WRITE_UNLOCK = 7 ! WRITE_UNLOCK cmdE DECLARE LONG CONSTANT BIU_STAT$K_F_DREAD = 8 ! DREAD cmd 100XF DECLARE LONG CONSTANT BIU_STAT$K_F_DREAD2 = 9 ! DREAD cmd 100XG DECLARE LONG CONSTANT BIU_STAT$K_F_DREAD_IO = 10 ! DREAD_IO cmdK DECLAR E LONG CONSTANT BIU_STAT$K_F_DREAD_LOCK = 12 ! DREAD_LOCK cmdO DECLARE LONG CONSTANT BIU_STAT$K_DREAD_LOCK_IO = 13 ! DREAD_LOCK_IO cmd< DECLARE LONG CONSTANT BIU_STAT$M_LST_WRT = x'00100000'9 DECLARE LONG CONSTANT BIU_STAT$M_RSVD = x'0FE00000'= DECLARE LONG CONSTANT BIU_STAT$M_BIU_ADDR = x'30000000'> DECLARE LONG CONSTANT BIU_STAT$M_FILL_ADDR = x'C0000000'g DECLARE LONG CONSTANT PR1701$_BIU_ADDR = 166 ! error address associated with BIU errors ( RO )u   DECLARE LONG CONSTANT PR1701$_FILL_SYN = 168 ! Syndrome bits associated with bad quadword during fill ( RO )i DECLARE LONG CONSTANT PR1701$_FILL_ADDR = 170 ! error address associated with FILL errors ( RO )a DECLARE LONG CONSTANT PR1701$_STC_RESULT = 172 ! Result of last store conditional ( RO ); DECLARE LONG CONSTANT STC_RESULT$M_PASS = x'00000004'^ DECLARE LONG CONSTANT PR1701$_BEDECC = 174 ! Alternate source of ECC check bits ( W )Q DECLARE LONG CON STANT PR1701$_CHALT = 176 ! Console HALT register ( RW )R DECLARE LONG CONSTANT PR1701$_SIO = 178 ! Seral line I/O register ( RW ) 6 DECLARE LONG CONSTANT SIO$M_SIO_IN = x'00000001'7 DECLARE LONG CONSTANT SIO$M_SIO_OUT = x'00000002'U DECLARE LONG CONSTANT PR1701$_SIO_IE = 180 ! Seral line I/O register ( RW ) 7 DECLARE LONG CONSTANT SIO$M_SROM_OE = x'00000001'9 DECLARE LONG CONSTANT SIO$M_SROM_FAST = x'00000002'[ DECLARE LONG CONSTANT PR1701$_QW_P ACK = 184 ! Pack next two longword writes ( WO )Q DECLARE LONG CONSTANT PR1701$_CLR_IO_PACK = 185 ! Clear QW IO Pack ( W ) ! Ibox registers.N DECLARE LONG CONSTANT PR1701$_VMAR = 208 ! VIC memory address register3 DECLARE LONG CONSTANT VMAR$M_LW = x'00000004': DECLARE LONG CONSTANT VMAR$M_SUB_BLOCK = x'00000018': DECLARE LONG CONSTANT VMAR$M_ROW_INDEX = x'000007E0'5 DECLARE LONG CONSTANT VMAR$M_ADDR = x'FFFFF800'C DECLARE LONG CONSTANT PR1701 $_VTAG = 209 ! VIC tag register2 DECLARE LONG CONSTANT VTAG$M_V = x'0000000F'3 DECLARE LONG CONSTANT VTAG$M_DP = x'000000F0'3 DECLARE LONG CONSTANT VTAG$M_TP = x'00000100'4 DECLARE LONG CONSTANT VTAG$M_TAG = x'FFFFF800'E DECLARE LONG CONSTANT PR1701$_VDATA = 210 ! VIC data register[ DECLARE LONG CONSTANT PR1701$_ICSR = 211 ! Ibox control and status register ( RW )7 DECLARE LONG CONSTANT ICSR$M_ENABLE = x'00000001'5 DECLARE LONG CONSTANT ICSR $M_LOCK = x'00000004'6 DECLARE LONG CONSTANT ICSR$M_DPERR = x'00000008'6 DECLARE LONG CONSTANT ICSR$M_TPERR = x'00000010'Z DECLARE LONG CONSTANT PR1701$_BPCR = 212 ! Ibox branch prediction control register8 DECLARE LONG CONSTANT BPCR$M_HISTORY = x'0000000F'; DECLARE LONG CONSTANT BPCR$M_MISPREDICT = x'00000020': DECLARE LONG CONSTANT BPCR$M_FLUSH_BHT = x'00000040': DECLARE LONG CONSTANT BPCR$M_FLUSH_CTR = x'00000080'= DECLARE LONG CONSTANT BPCR$M_LOAD_HISTORY = x'00000100'> DECLARE LONG CONSTANT BPCR$M_BPU_ALGORITHM = x'FFFF0000'b DECLARE LONG CONSTANT BPCR$K_BPU_ALGORITHM = 65226 ! default value for BPU_ALGORITHM fieldH DECLARE LONG CONSTANT PR1701$_BPC = 214 ! Ibox Backup PC ( RO )\ DECLARE LONG CONSTANT PR1701$_BPCUNW = 215 ! Ibox Backup PC with RLOG unwind ( RO )1 ! Mbox internal memory management registers.Q DECLARE LONG CONSTANT PR1701$_MP0BR = 224 ! Mbox P0 base register ( RW )S DECLARE LONG CONSTANT PR1701$_MP0LR = 225 ! Mbox P0 length register ( RW )Q DECLARE LONG CONSTANT PR1701$_MP1BR = 226 ! Mbox P1 base register ( RW )S DECLARE LONG CONSTANT PR1701$_MP1LR = 227 ! Mbox P1 length register ( RW )T DECLARE LONG CONSTANT PR1701$_MSBR = 228 ! Mbox system base register ( RW )V DECLARE LONG CONSTANT PR1701$_MSLR = 229 ! Mbox system length register ( RW )Z DECLARE LONG CONSTANT PR1701$_MMAPEN = 230 ! Mbox memory management enable ( RW ) ! Mbox registers.W DECLARE LONG CONSTANT PR1701$_PAMODE = 231 ! Mbox physical address mode ( RW )> DECLARE LONG CONSTANT PR1701_PAMODE$M_MODE = x'00000001'H DECLARE LONG CONSTANT PR1701_PAMODE$K_PA_30 = 0 ! 30-bit PA modeH DECLARE LONG CONSTANT PR1701_PAMODE$K_PA_32 = 1 ! 32-bit PA modea DECLARE LONG CONSTANT PR1701$_MMEADR = 232 ! Mbox memory management fault address ( RO )e DECLARE LONG CONSTANT PR1701$_MMEPTE = 233 ! Mbox memory management fault PTE address ( RO )` DECLARE LONG CONSTANT PR1701$_MMESTS = 234 ! Mbox memory management fault status ( RO )5 DECLARE LONG CONSTANT MMESTS$M_LV = x'00000001': DECLARE LONG CONSTANT MMESTS$M_PTE_REF = x'00000002'4 DECLARE LONG CONSTANT MMESTS$M_M = x'00000004'8 DECLARE LONG CONSTANT MMESTS$M_FAULT = x'0000C000'@ DECLARE LONG CONSTANT MMESTS$K_FAULT_ACV = 1 ! ACV fault@ DECLARE LONG CONSTANT MMESTS$K_FAULT_TNV = 2 ! TNV fault? DECLARE LONG CONSTANT MMESTS$K_FAULT_M0 = 3 ! M=0 fault6 DECLARE LONG CONSTANT MMESTS$M_SRC = x'1C000000'7 DECLARE LONG CONSTANT MMESTS$M_LOCK = x'E0000000'X DECLARE LONG CONSTANT PR1701$_TBADR = 236 ! Mbox TB parity error address ( RO )W DECLARE LONG CONSTANT PR1701$_TBSTS = 237 ! Mbox TB parity error status ( RW )6 DECLARE LONG CONSTANT TBSTS$M_LOCK = x'00000001'7 DECLARE LONG CONSTANT TBSTS$M_DPERR = x'00000002'7 DECLARE LONG CONSTANT TBSTS$M_TPERR = x'000000 04'8 DECLARE LONG CONSTANT TBSTS$M_EM_VAL = x'00000008'5 DECLARE LONG CONSTANT TBSTS$M_CMD = x'000001F0'5 DECLARE LONG CONSTANT TBSTS$M_SRC = x'E0000000'T DECLARE LONG CONSTANT MSRC$K_IREF_LATCH = 6 ! Source of fault was IREF latchT DECLARE LONG CONSTANT MSRC$K_SPEC_QUEUE = 4 ! Source of fault was spec queueP DECLARE LONG CONSTANT MSRC$K_EM_LATCH = 0 ! Source of fault was EM latch ! Mbox Pcache registers \ DECLARE LONG CONSTANT PR1701$_PCADR = 242 ! Mbox Pcache parity error address ( RO )[ DECLARE LONG CONSTANT PR1701$_PCSTS = 244 ! Mbox Pcache parity error status ( RW )6 DECLARE LONG CONSTANT PCSTS$M_LOCK = x'00000001'7 DECLARE LONG CONSTANT PCSTS$M_DPERR = x'00000002'< DECLARE LONG CONSTANT PCSTS$M_RIGHT_BANK = x'00000004'; DECLARE LONG CONSTANT PCSTS$M_LEFT_BANK = x'00000008'5 DECLARE LONG CONSTANT PCSTS$M_CMD = x'000001F0'; DECLARE LONG CONSTANT PCSTS$M_PTE_ER_WR = x'00000200'8 DECLARE LONG CONSTANT PCSTS$M_PTE_ER = x'00000400'O DECLARE LONG CONSTANT PR1701$_PCCTL = 248 ! Mbox Pcache control ( RW ): DECLARE LONG CONSTANT PCCTL$M_D_ENABLE = x'00000001': DECLARE LONG CONSTANT PCCTL$M_I_ENABLE = x'00000002'; DECLARE LONG CONSTANT PCCTL$M_FORCE_HIT = x'00000004': DECLARE LONG CONSTANT PCCTL$M_BANK_SEL = x'00000008': DECLARE LONG CONSTANT PCCTL$M_P_ENABLE = x'00000010'5 DECLARE LONG CONSTANT PCCTL$M_PMM = x'000000E0'> DECLARE LONG CONSTANT PCCTL$M_ELEC_DISABLE = x'00000100'< DECLARE LONG CONSTANT PCCTL$M_RED_ENABLE = x'00000200'] DECLARE LONG CONSTANT PR1701$_PCTAG = 25165824 ! First of 256 Pcache tag IPRs ( RW )X DECLARE LONG CONSTANT PR1701$_PCTAG_MAX = 25173984 ! Last of 256 Pcache tag IPRs^ DECLARE LONG CONSTANT PCTAG$K_IPR_INCR = 32 ! Increment between Pcache tag IPR numbers8 DECLARE LONG CONSTANT PR17_PCTAG$M_A = x'00000001'8 DECLARE LONG CONSTANT PR17_PCTAG$M_V = x'0000001E'8 DECLARE LONG CONSTANT PR17_PCTAG$M_P = x'00000020': DECLARE LONG CONSTANT PR17_PCTAG$M_TAG = x'01FFF000'8 DECLARE LONG CONSTANT PCTAGA$M_INDEX = x'00000FE0'4 DECLARE LONG CONSTANT PCTAGA$M_B = x'00001000'f DECLARE LONG CONSTANT PR1701$_PCDAP = 29360128 ! First of 1024 Pcache data parity IPRs ( RW )a DECLARE LONG CONSTANT PR1701$_PCDAP_MAX = 29368312 ! Last of 1024 Pcache data parity IPRse DECLARE LONG CONSTANT PCDAP$K_IPR_INCR = 8 ! Increment betwe en Pcache data parity IPR numbers= DECLARE LONG CONSTANT PCDAP$M_DATA_PARITY = x'000000FF'2 DECLARE LONG CONSTANT PR1701S_PR1701DEF = 32 record PR1701DEF variantM ! Architecturally-defined registers which have different characteristics ! on this CPU. case. group PR1701R_PR1701SAVPSL_BITS* ! Saved PSL bits <7:0>F ! Halt code containing one of the following values+ ! Invali d SAVPSL if = 1 ! MAPEN<0>, ! Saved PSL bits <31:16>m LONG PSL_LO_bits ! COMMENT ADDED BY SDL - PSL_LO_bits contains bits PSL_LO through PSL_HI2 end group PR1701R_PR1701SAVPSL_BITSD ! These registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation. case[ group PR1701R_PR1701IAK_VECTOR ! Vector returned in response to IAK1x read?  ! Force IPL 17, independent of actual level% ! Passive release: ! LW offset in SCB of interrupt vectorj LONG IPL17_bits ! COMMENT ADDED BY SDL - IPL17_bits contains bits IPL17 through FILL_11 end group PR1701R_PR1701IAK_VECTOR ! Ebox register definition case. group PR1701R_PR1701INTSYS_BITS" ! ICCS<6> (RO)% ! SISR<15:1> (RO):  ! ID of highest pending interrupt (RO)9 ! Interval timer interrupt reset (WC)5 ! Soft error interrupt reset (WC)A ! Performance monitoring interrupt reset (WC)5 ! Hard error interrupt reset (WC)5 ! Power fail interrupt reset (WC)3 ! Halt pin interrupt reset (WC)n LONG ICCS6_bits ! COMMENT ADDED BY SDL - ICCS6_bits contains bits ICCS6 through HALT _RESET2 end group PR1701R_PR1701INTSYS_BITS case. group PR1701R_PR1701PMFCNT_BITS! ! PMCTR0 word! ! PMCTR1 wordm LONG PMCTR0_bits ! COMMENT ADDED BY SDL - PMCTR0_bits contains bits PMCTR0 through PMCTR12 end group PR1701R_PR1701PMFCNT_BITS case- group PR1701R_PR1701PCSCR_BITSA ! Disable parallel port control of scan chain;  ! Enable use of patchable control storeA ! Write scan chain to patchable control storeB ! Shift read-write latch scan chain by one bit@ ! Data to be shifted into the PCS scan chain, ! Non-standard patch bit+ ! Patch revision numberm LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_31 end group PR1701R_PR1701PCSCR_BIT S case+ group PR1701R_PR1701ECR_BITS. ! Vector unit present (RW)' ! Fbox enabled (RW)N ! Select external timebase for S3 stall timeout timer (RW)A ! Fbox stage 4 conditional bypass enable (RW)4 ! S3 stall timeout occurred (WC)@ ! Select test mode for S3 stall timeout (RW)+ ! Clock S3 timeout (RW)< ! eliminate -I CCS in external logic- bit. ! Enable test of Fbox (RW)A ! Performance monitoring facility enable (RW)H ! Performance monitoring facility master select (RW)J ! Performance monitoring facility Ebox mux select (RW)K ! Performance monitoring facility Wbus LFSR enable (RW)I ! Clear performance monitoring hardware counters (WO) LONG VECTOR_PRESENT_bits ! COMMENT ADD !ED BY SDL - VECTOR_PRESENT_bits contains bits VECTOR_PRESENT through & ! PMF_CLEAR/ end group PR1701R_PR1701ECR_BITS ! Mbox TB registers.D ! These registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation. case. group PR1701R_PR1701MTBTAG_BITS$ ! Tag parity bit? ! Virtual page number of address (VA<31:9>)^ LONG TP_bits ! COMME "NT ADDED BY SDL - TP_bits contains bits TP through VPN2 end group PR1701R_PR1701MTBTAG_BITS casei group PR1701R_PR1701MTBPTE_BITS ! Format is normal PTE format, except for PTE parity bit2 ! Page frame number (PA<31:9>) ! PTE parity ! Modify bit& ! Protection field# ! PTE valid bitf LONG PFN_bits ! COMMENT ADDED BY SDL - PFN_bits contai #ns bits PFN through fill_1042 end group PR1701R_PR1701MTBPTE_BITS$ ! Vector architecture registers case, group PR1701R_PR1701VPSR_BITS3 ! Vector processor enabled (RW)7 ! Vector processor state reset (WO)6 ! Vector arithmetic exception (WC)A ! Implementation-specific hardware error (WC)0 ! Vector processor busy (RO)a LONG VEN_bits ! $COMMENT ADDED BY SDL - VEN_bits contains bits VEN through BSY0 end group PR1701R_PR1701VPSR_BITS case, group PR1701R_PR1701VAER_BITS( ! Floating underflow- ! Floating divide-by-zero/ ! Floating reserved operand' ! Floating overflow& ! Integer overflow6 ! Vector destination register maskt LONG F_UNDF_bits ! COMMENT ADD %ED BY SDL - F_UNDF_bits contains bits F_UNDF through REGISTER_MASK0 end group PR1701R_PR1701VAER_BITS case/ group PR1701R_PR1701BIU_CTL_BITS( ! Enable Bcache (WO), ! ECC/Parity select (WO)G ! CE pins not asserted during RAM write cycles (WO)+ ! Force Bcache hit (WO)' ! Bcache speed (WO)& ! Bcache size (WO), ! Workstat &ion IO mappingi LONG BC_EN_bits ! COMMENT ADDED BY SDL - BC_EN_bits contains bits BC_EN through WS_IO3 end group PR1701R_PR1701BIU_CTL_BITS ! Cbox registers, continued case. group PR1701R_PR1701BC_TAG_BITS+ ! tag status parity bit$ ! tag shared bit# ! tag dirty bit# ! tag valid bit ! tag ! tag parityf ' LONG HIT_bits ! COMMENT ADDED BY SDL - HIT_bits contains bits HIT through fill_1052 end group PR1701R_PR1701BC_TAG_BITS ! Cbox registers, continued case0 group PR1701R_PR1701BIU_STAT_BITS( ! Hard_Error on cACK( ! Soft_Error on cACK: ! Tag Parity error in tag address RAM : ! Tag Parity error in tag control RAM % ! Cbox cycle type, ( ! second BIU or BC error4 ! ECC error on Pcache fill data 0 ! ECC error was correctable ' ! BIU parity error 1 ! error during I stream fill R ! Quadword within Pcache FILL hexaword which had a FILL error ( ! second FILL error # ! Read as ZERO < ! Cbox cmd which resulted in FILL error & ! Lost write error# ) ! reserved bits) ! BIU ADDR bits 33:32* ! FILL ADDR bits 33:32v LONG BIU_HERR_bits ! COMMENT ADDED BY SDL - BIU_HERR_bits contains bits BIU_HERR through FILL_ADDR4 end group PR1701R_PR1701BIU_STAT_BITS case0 group PR1701R_PR1701FILL_SYN_BITS8 ! ECC syndrome bits for low longword9 ! ECC syndrome bits for high longworda LONG LO_ *bits ! COMMENT ADDED BY SDL - LO_bits contains bits LO through FILL_14 end group PR1701R_PR1701FILL_SYN_BITS ! Cbox registers, continued case2 group PR1701R_PR1701STC_RESULT_BITS/ ! Store Conditional passed m LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through FILL_26 end group PR1701R_PR1701STC_RESULT_BITS case. group PR1701R_PR1701BED +ECC_BITS2 ! BEDECC bits for low longword3 ! BEDECC bits for high longworda LONG LO_bits ! COMMENT ADDED BY SDL - LO_bits contains bits LO through FILL_12 end group PR1701R_PR1701BEDECC_BITS! ! Console dispatch structure caseL group PR1701R_CONSOLE_DISPATCH ! Console dispatch structure7 LONG CHALT$L_BRW_CODE ! BRW code: LONG CHALT$L_SYS_TYPE ! S,ystem TypeS LONG CHALT$L_CNSL_LOAD_ADR ! Consoles Load address used by SROMB LONG CHALT$L_HWRPB_SIZE ! HWRPB size in pagesN LONG CHALT$L_HWRPB_PHYS_ADR ! HWRPB base physical addrressN LONG CHALT$L_MEM_BITMAP_SIZ ! Memory bitmap size ( bits )U LONG CHALT$L_MEM_BITMAP_PHYS_ADR ! Memory bitmap physical addressJ LONG CHALT$L_MEM_BITMAP_CHKSM ! Memory bitmap checksum1 e -nd group PR1701R_CONSOLE_DISPATCH ! Serial line I/O registers case+ group PR1701R_PR1701SIO_BITS- ! Serial line/SROM input 4 ! Serial line/SROM clock output m LONG SIO_IN_bits ! COMMENT ADDED BY SDL - SIO_IN_bits contains bits SIO_IN through FILL_1/ end group PR1701R_PR1701SIO_BITS case. group PR1701R_PR1701SIO_IE_BITS) ! SROM output enable ./ ! Use fast version of SROM p LONG SROM_OE_bits ! COMMENT ADDED BY SDL - SROM_OE_bits contains bits SROM_OE through FILL_22 end group PR1701R_PR1701SIO_IE_BITS case, group PR1701R_PR1701VMAR_BITS. ! longword within quadword) ! sub-block indicator% ! cache row index# ! error addressk LONG FILL_1_bits ! COMMENT ADDED B /Y SDL - FILL_1_bits contains bits FILL_1 through ADDR0 end group PR1701R_PR1701VMAR_BITS case, group PR1701R_PR1701VTAG_BITS% ! data valid bits& ! data parity bits$ ! tag parity bit( ! unused bits (zero) ! tag[ LONG V_bits ! COMMENT ADDED BY SDL - V_bits contains bits V through TAG0 end group PR1701R_PR1701VTAG_BITS 0 case, group PR1701R_PR1701ICSR_BITS) ! VIC enable bit (RW)= ! Register is locked due to an error (WC), ! Data parity error (RO)+ ! Tag parity error (RO)m LONG ENABLE_bits ! COMMENT ADDED BY SDL - ENABLE_bits contains bits ENABLE through FILL_20 end group PR1701R_PR1701ICSR_BITS case, group PR1701R_PR1701BPCR_BITS) ! 1 branch history bits, ! history of last branch0 ! flush branch history table4 ! flush branch hist addr counter0 ! write new history to array0 ! unused bits (must be zero)1 ! branch prediction algorithmw LONG HISTORY_bits ! COMMENT ADDED BY SDL - HISTORY_bits contains bits HISTORY through BPU_ALGORITHM0 end group PR1701R_PR1701BPCR_BITSP ! T 2he following two registers are for testability and diagnostics use only.9 ! They should not be referenced in normal operation.D ! These registers are for testability and diagnostics use only.L ! In normal operation, the equivalent architecturally-defined registers ! should be used instead. case. group PR1701R_PR1701PAMODE_BITS@ ! Addressing mode(1 = 32bit addressing) (RW)g LONG MODE_bits ! COMMENT ADDED BY SDL - 3MODE_bits contains bits MODE through FILL_12 end group PR1701R_PR1701PAMODE_BITS case. group PR1701R_PR1701MMESTS_BITS7 ! ACV fault due to length violation> ! ACV/TNV fault occurred on PPTE reference: ! Reference had write or modify intent7 ! Fault type, one of the following:J ! Shadow copy of LOCK bits (see MSRC$ constants below)< ! Lock 4 status (see MSRC$ constant below)_ LONG LV_bits ! COMMENT ADDED BY SDL - LV_bits contains bits LV through LOCK2 end group PR1701R_PR1701MMESTS_BITS case- group PR1701R_PR1701TBSTS_BITS= ! Register is locked due to an error (WC), ! Data parity error (RO)+ ! Tag parity error (RO)A ! EM latch was valid when error occurred (RO)B ! S5 comma 5nd when TB parity error occured (RO)R ! Source of original refernce (see MSRC$ constants below) (RO)d LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits contains bits LOCK through SRC1 end group PR1701R_PR1701TBSTS_BITS case- group PR1701R_PR1701PCSTS_BITS= ! Register is locked due to an error (WC)5 ! Data parity error occurred (RO)? ! Right bank tag parity 6error occurred (RO)> ! Left bank tag parity error occurred (RO)F ! S6 command when Pcache parity error occured (RO)P ! Hard error on PTE DREAD occurred (orig ref was WRITE) (WC); ! Hard error on PTE DREAD occurred (WC)g LONG LOCK_bits ! COMMENT ADDED BY SDL - LOCK_bits contains bits LOCK through FILL_11 end group PR1701R_PR1701PCSTS_BITS case- group PR1701R 7_PR1701PCCTL_BITSJ ! Enable for invalidate, D-stream read/write/fill (RW)D ! Enable for invalidate, I-stream read/fill (RW)@ ! Enable force hit on Pcache references (RW)A ! Select left bank if 0, right bank if 1 (RW)1 ! Enable parity checking (RW)8 ! Mbox performance monitor mode (RW)8 ! Pcache electrical disable bit (RW)0 ! Redundancy enabl 8e bit (RO)s LONG D_ENABLE_bits ! COMMENT ADDED BY SDL - D_ENABLE_bits contains bits D_ENABLE through FILL_11 end group PR1701R_PR1701PCCTL_BITS case- group PR1701R_PR1701PCTAG_BITSL ! Allocation bit corresponding to index of this tag (RW)K ! Valid bits corresponding to the 4 data subblocks (RW)% ! Tag parity (RW)# ! Tag bits (RW)` LONG A9_bits ! COMMENT ADDED BY SDL - A_bits contains bits A through fill_1061 end group PR1701R_PR1701PCTAG_BITS case\ group PR1701R_PR1701PCTAGA_BITS ! Address of Pcache tag IPRs - Base = PCTAG) ! Index of PCache tag? ! Bank of PCache to access: 0=left, 1=righto WORD FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_1072 end group PR1701R_PR1701PCTAG A_BITS case- group PR1701R_PR1701PCDAP_BITSF ! Even byte parity for the addressed quadword (RW)| LONG DATA_PARITY_bits ! COMMENT ADDED BY SDL - DATA_PARITY_bits contains bits DATA_PARITY through FILL_11 end group PR1701R_PR1701PCDAP_BITS end variant end record PR1701DEF  ww;%qPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI<NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET= %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ) DECLARE LONG CONSTANT PRX$K_ADD = 1, DECLARE LONG CONSTANT PRX$K_DELETE = 2* DECLARE LONG CONSTANT PRX$K_SHOW = 3, DECLARE LONG CONSTANT PRX$K_VERIFY = 41 DECLARE LONG CONSTANT >PRX$K_PERFORMANCE = 56 DECLARE LONG CONSTANT PRX$K_ZERO_PERFORMANCE = 6, DECLARE LONG CONSTANT PRX$K_CREATE = 7* DECLARE LONG CONSTANT PRX$K_STOP = 8+ DECLARE LONG CONSTANT PRX$K_START = 95 DECLARE LONG CONSTANT PRX$K_MAX_PROXY_CODE = 109 DECLARE LONG CONSTANT PRX$K_PERFORMANCE_LENGTH = 486 DECLARE LONG CONSTANT PRX$S_PRX$PERFORMANCE = 48 record PRX$PERFORMANCE" LONG PRX$L_TOTAL_MESSAGES$ LONG PRX$L_TOTAL_EXCEPTIONS LONG ?PRX$L_SHOWS LONG PRX$L_ADDS LONG PRX$L_DELETES LONG PRX$L_VERIFYS LONG PRX$L_PERFORMANCE LONG PRX$L_CREATES LONG PRX$L_STOPS LONG PRX$L_STARTS LONG PRX$L_AUDITS$ LONG PRX$L_INVALID_MESSAGES end record PRX$PERFORMANCE = DECLARE LONG CONSTANT PRX$M_IGNORE_RETURN = x'00000001'= DECLARE LONG CONSTANT PRX$M_BYPASS_EXPAND = x'00000002'9 DECLARE LONG CONSTANT PRX$M_RESERVE_1 = x'0000 @00FC'7 DECLARE LONG CONSTANT PRX$M_DEFAULT = x'00000100'5 DECLARE LONG CONSTANT PRX$M_EXACT = x'00000200'> DECLARE LONG CONSTANT PRX$M_DELETE_ALLOWED = x'00000400'6 DECLARE LONG CONSTANT PRX$M_FILL_1 = x'FFFFF800'3 DECLARE LONG CONSTANT PRX$K_HEADER_LENGTH = 80 DECLARE LONG CONSTANT PRX$S_PRX$HEADER = 8 record PRX$HEADER LONG PRX$L_CONTEXT group PRX$r_fill_110 variant case" LONG PRX$LA_FLAGS case& group PRX$r_fill_111 LONG IGNORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1* end group PRX$r_fill_111 end variant! end group PRX$r_fill_110 end record PRX$HEADER 7 DECLARE LONG CONSTANT PRX$S_PRX$GENERIC_DESC1 = 5 record PRX$GENERIC_DESC1 WORD PRX$W_DESC_LENGTH WORD PRX$W_FILL1 B# STRING PRX$T_DESC_DATA = 1" end record PRX$GENERIC_DESC1 7 DECLARE LONG CONSTANT PRX$K_USER_NAME_LENGTH = 32@ DECLARE LONG CONSTANT PRX$K_REMOTE_NODE_NAME_LENGTH = 10246 DECLARE LONG CONSTANT PRX$K_MAX_LOCAL_USERS = 167 DECLARE LONG CONSTANT PRX$K_LOCAL_USER_ENTRY = 36- DECLARE LONG CONSTANT PRX$S_DATA = 1100 record DATA_D% WORD PRX$W_LOCAL_USER_LENGTH WORD PRX$W_UNUSED_3* STRING PRX$T_LOCAL_USER_NAME = 32& C WORD PRX$W_REMOTE_USER_LENGTH WORD PRX$W_UNUSED_4+ STRING PRX$T_REMOTE_USER_NAME = 32& WORD PRX$W_REMOTE_NODE_LENGTH WORD PRX$W_UNUSED_5- STRING PRX$T_REMOTE_NODE_NAME = 1024 end record DATA_D 4 DECLARE LONG CONSTANT PRX$K_DATA_LENGTH = 11004 DECLARE LONG CONSTANT PRX$S_BUFSIZ_SUMMARY = 8 record BUFSIZ_SUMMARY@ WORD PRX$W_BUFSIZ_USER ! proxy user length@ WORD PRX$W_BUFSIZ_NODE D ! proxy node lengthD WORD PRX$W_BUFSIZ_LOCAL_COUNT ! number of local usersE WORD PRX$W_BUFSIZ_DEF_USER ! length of default user end record BUFSIZ_SUMMARY 2 DECLARE LONG CONSTANT PRX$K_MAX_REPLY = 16922 DECLARE LONG CONSTANT PRX$S_REPLY_UNION = 88 record REPLY_UNION variant case( group PRX$R_GENERIC_REPLY@ LONG PRX$L_REPLY_STATUS ! status of request, end gro Eup PRX$R_GENERIC_REPLY case' group PRX$R_VERIFY_REPLY? LONG PRX$L_UNUSED_6 ! space for STATUSH WORD PRX$W_VALID_USER ! length of proxy user_name% WORD PRX$W_UNUSED_7M STRING PRX$T_VALID_USER ( 1 to 32 ) = 1 ! proxy usernname+ end group PRX$R_VERIFY_REPLY case% group PRX$R_SHOW_REPLY? LONG PRX$L_UNUSED_8 ! space for S FTATUS? LONG PRX$L_SHOW_CONTEXT ! returned contextJ WORD PRX$W_SHOW_DEF_USER ! length of default user_name% WORD PRX$W_UNUSED_8R STRING PRX$T_SHOW_DEF_USER ( 1 to 32 ) = 1 ! default user_nameI WORD PRX$W_SHOW_REM_USER ! length of remote user_name% WORD PRX$W_UNUSED_9Q STRING PRX$T_SHOW_REM_USER ( 1 to 32 ) = 1 ! remote user_nameK WORD PRX$W_SHO W_LOCAL_COUNT ! count of local user_namesS WORD PRX$W_SHOW_LOCAL_SIZE ! size of local user_name ( bytes )K group PRX$R_SHOW_LOCAL_DATA ! start of local user_names) LONG PRX$L_UNUSED_101 end group PRX$R_SHOW_LOCAL_DATA) end group PRX$R_SHOW_REPLY end variant end record REPLY_UNION 3 DECLARE LONG CONSTANT PRX$K_MAX_LENGTH = 1108 wwHqPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETJ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! ) ! Process_Scan item code definitions !  ! - ! Item code definitions, DECLARE LONG CONSTANT pscan$_BEGIN = 0H DECLARE LONG CONSTANT pscan$_ACCOUNT = 1 ! MKatch on account nameO DECLARE LONG CONSTANT pscan$_AUTHPRI = 2 ! Match on authorized priorityI DECLARE LONG CONSTANT pscan$_CURPRIV = 3 ! Match on current privsA DECLARE LONG CONSTANT pscan$_GRP = 4 ! Match on GRP fieldN DECLARE LONG CONSTANT pscan$_HW_MODEL = 5 ! Match on system's HW_MODELL DECLARE LONG CONSTANT pscan$_HW_NAME = 6 ! Match on system's HW_NAMER DECLARE LONG CONSTANT pscan$_JOBPRCCNT = 7 ! Match on job subprocess countQ DECLARE LOLNG CONSTANT pscan$_JOBTYPE = 8 ! Match on job origin type fieldT DECLARE LONG CONSTANT pscan$_MASTER_PID = 9 ! Match on PID of master processB DECLARE LONG CONSTANT pscan$_MEM = 10 ! Match on MEM fieldF DECLARE LONG CONSTANT pscan$_MODE = 11 ! Match on process modeM DECLARE LONG CONSTANT pscan$_NODE_CSID = 12 ! Match on system's CSID O DECLARE LONG CONSTANT pscan$_NODENAME = 13 ! Match on system's nodenameG DECLARE LONG CONSTANT pscan$_OWNER = 14 ! MMatch on PID of ownerL DECLARE LONG CONSTANT pscan$_PRCCNT = 15 ! Match on subprocess countH DECLARE LONG CONSTANT pscan$_PRCNAM = 16 ! Match on process nameI DECLARE LONG CONSTANT pscan$_PRI = 17 ! Match on current priorityG DECLARE LONG CONSTANT pscan$_PRIB = 18 ! Match on base priorityH DECLARE LONG CONSTANT pscan$_STATE = 19 ! Match on process stateG DECLARE LONG CONSTANT pscan$_STS = 20 ! Match on process statusK DECLARE LONG CONSTANT psca Nn$_TERMINAL = 21 ! Match on terminal nameB DECLARE LONG CONSTANT pscan$_UIC = 22 ! Match on UIC fieldF DECLARE LONG CONSTANT pscan$_USERNAME = 23 ! Match on usernameR DECLARE LONG CONSTANT pscan$_GETJPI_BUFFER_SIZE = 24 ! Buffer for blocking ! D ! The following 3 fields are reserved. They are item codes for4 ! kernel threads support on Alpha systems only. ! M DECLARE LONG CONSTANT pscan$_PSCAN_CONTROL_FLAGS = 25 ! Control FlagsU DECLARE LOONG CONSTANT pscan$_RESERVED2 = 26 ! Current count of kernel threadsV DECLARE LONG CONSTANT pscan$_RESERVED3 = 27 ! Maximum number of kernel threadsg DECLARE LONG CONSTANT pscan$_SCHED_CLASS_NAME = 28 ! Match on name of process' scheduling class+ DECLARE LONG CONSTANT pscan$_END = 29. DECLARE LONG CONSTANT pscan$k_type = 1294 DECLARE LONG CONSTANT pscan$M_OR = x'00000001'9 DECLARE LONG CONSTANT pscan$M_BIT_ALL = x'00000002'9 DECLARE LONG CONSTANT psca Pn$M_BIT_ANY = x'00000004'5 DECLARE LONG CONSTANT pscan$M_GEQ = x'00000008'5 DECLARE LONG CONSTANT pscan$M_GTR = x'00000010'5 DECLARE LONG CONSTANT pscan$M_LEQ = x'00000020'5 DECLARE LONG CONSTANT pscan$M_LSS = x'00000040'> DECLARE LONG CONSTANT pscan$M_PREFIX_MATCH = x'00000080': DECLARE LONG CONSTANT pscan$M_WILDCARD = x'00000100'< DECLARE LONG CONSTANT pscan$M_CASE_BLIND = x'00000200'5 DECLARE LONG CONSTANT pscan$M_EQL = x'00000400'5 DECLAR QE LONG CONSTANT pscan$M_NEQ = x'00000800'; DECLARE LONG CONSTANT pscan$s_item_specific_flags = 2 record item_specific_flags ! Logical OR of items$ ! All bits set in pattern# ! Any bit set in pattern' ! Match on leading substring ! Wildcard pattern( ! Ignore case of text stringsZ WORD OR_bits ! COMMENT ADDED BY SDL - OR_bits contains bits OR through fill_112$ end record item_specific_flags  wwIqʂPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 )I END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 )S END RECORDD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGITqPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIUNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETV %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +; ! PROCESSOR STATUS LONGWORD MASK AND FIELD DEFINITIONS ! -1 DECLARE LONG CONSTANT PSL$M_C = x'00000001'1 DECLARE LONG CONSTANT PSL$M_V = x'00000002'1 DECLARE LONG CON WSTANT PSL$M_Z = x'00000004'1 DECLARE LONG CONSTANT PSL$M_N = x'00000008'4 DECLARE LONG CONSTANT PSL$M_TBIT = x'00000010'2 DECLARE LONG CONSTANT PSL$M_IV = x'00000020'2 DECLARE LONG CONSTANT PSL$M_FU = x'00000040'2 DECLARE LONG CONSTANT PSL$M_DV = x'00000080'3 DECLARE LONG CONSTANT PSL$M_IPL = x'001F0000'6 DECLARE LONG CONSTANT PSL$M_PRVMOD = x'00C00000'6 DECLARE LONG CONSTANT PSL$M_CURMOD = x'03000000'2 DECLARE LONG CONSTANT PSL$M_IS = x'0400000 X0'3 DECLARE LONG CONSTANT PSL$M_FPD = x'08000000'2 DECLARE LONG CONSTANT PSL$M_TP = x'40000000'2 DECLARE LONG CONSTANT PSL$M_CM = x'80000000'= DECLARE LONG CONSTANT PSL$C_KERNEL = 0 ! KERNEL MODE 9 DECLARE LONG CONSTANT PSL$C_EXEC = 1 ! EXEC MODE @ DECLARE LONG CONSTANT PSL$C_SUPER = 2 ! SUPERVISOR MODE 9 DECLARE LONG CONSTANT PSL$C_USER = 3 ! USER MODE 1 DECLARE LONG CONSTANT PSL$M_SAFBITS = 14335, DECLARE LONG CONSTANT PSL$S_PSLDEF =Y 4 record PSLDEF variant case& group PSL$R_PSLDEF_BITS ! Carry  ! oVerflow  ! Zero  ! Negative " ! TBIT ENABLE ' ! INTEGER OVERFLOW ) ! FLOATING UNDEFINED % ! DIVIDE BY ZERO / ! INTERRUPT PRIORITY LEVEL . ! PREVIOUS PROCESSOR MODE -  ! CURRENT PROCESSOR MODE * ! INTERRUPT STACK BIT & ! FIRST PART DONE # ! MUST BE ZERO ) ! TRACE TRAP PENDING 6 ! COMPATIBILITY MODE BIT AND MASK Z LONG C_bits ! COMMENT ADDED BY SDL - C_bits contains bits C through CM* end group PSL$R_PSLDEF_BITS !  ! MODE SYMBOL DEFINITIONS !  end variant end record PSLDEF  ww[@rPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI\NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET] %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! @ ! Pseudo terminal driver notification AST type definitions. ! ! N.B.H ! These definitions are in a specific order and must not be changed: ! without matching chan ^ges to FTUCBDEF, and FTDRIVER. !  ! -L DECLARE LONG CONSTANT PTD$C_SEND_XON = 0 ! Enable or disable XON ASTN DECLARE LONG CONSTANT PTD$C_SEND_BELL = 1 ! Enable or disable BELL ASTN DECLARE LONG CONSTANT PTD$C_SEND_XOFF = 2 ! Enable or disable XOFF ASTW DECLARE LONG CONSTANT PTD$C_STOP_OUTPUT = 3 ! Enable or disable stop output AST[ DECLARE LONG CONSTANT PTD$C_RESUME_OUTPUT = 4 ! Enable or disable resume output ASTc DECLARE LONG CONSTANT PTD$C__CHAR_CHANGED = 5 ! Enable or disable characteristics change ASTY DECLARE LONG CONSTANT PTD$C_ABORT_OUTPUT = 6 ! Enable or disable abort output ASTU DECLARE LONG CONSTANT PTD$C_START_READ = 7 ! Enable or disable start read ASTW DECLARE LONG CONSTANT PTD$C_MIDDLE_READ = 8 ! Enable or disable middle read ASTQ DECLARE LONG CONSTANT PTD$C_END_READ = 9 ! Enable or disable end read ASTG DECLARE LONG CONSTANT PTD$C_ENABLE_READ = 10 ! Enable read ASTsI DECLARE LONG CONSTANT PTD$C_DISABLE_READ = 11 ! Disable read ASTs1 DECLARE LONG CONSTANT PTD$C_MAX_EVENTS = 12wwa^sPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIbNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETc %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ; ! Get Queue Information Service ($GETQUI) definitions. ! Y ! NOTE: New items must always be added at the end so users will not have to relink. ! L ! NOTE: Update [VMSLIB.S dRC]QUITABLE.MAR to reflect changes in $QUIDEF. !  !  ! Function codes ! U DECLARE LONG CONSTANT QUI$_CANCEL_OPERATION = 1 ! Cancel a wildcard operation` DECLARE LONG CONSTANT QUI$_DISPLAY_CHARACTERISTIC = 2 ! Return characteristic attributesL DECLARE LONG CONSTANT QUI$_DISPLAY_FILE = 3 ! Return file attributesL DECLARE LONG CONSTANT QUI$_DISPLAY_FORM = 4 ! Return form attributesJ DECLARE LONG CONSTANT QUI$_DISPLAY_JOB = 5 ! Return job attreibutesN DECLARE LONG CONSTANT QUI$_DISPLAY_QUEUE = 6 ! Return queue attributesZ DECLARE LONG CONSTANT QUI$_TRANSLATE_QUEUE = 7 ! Validate and translate queue name DECLARE LONG CONSTANT QUI$_DISPLAY_ENTRY = 8 ! Return entry ( job ) attributes (without first having to establish queue & ! context){ DECLARE LONG CONSTANT QUI$_DISPLAY_QMAN = 9 ! Reserved for Digital ( used by job control to get qman information )Y DECLARE LONG CONSTANT QUI$_DISPLAY_MANAGER = 1 f0 ! Return queue manager attributesO DECLARE LONG CONSTANT QUI$K_MIN_FUNC = 1 ! Minimum GETQUI function codeP DECLARE LONG CONSTANT QUI$K_MAX_FUNC = 10 ! Maximum GETQUI function code !  ! Item codes ! S DECLARE LONG CONSTANT QUI$_ACCOUNT_NAME = 1 ! Job: Submitter's account nameD DECLARE LONG CONSTANT QUI$_AFTER_TIME = 2 ! Job: /AFTER=timeW DECLARE LONG CONSTANT QUI$_ASSIGNED_QUEUE_NAME = 3 ! Queue: ASSIGN/QUEUE targetN DECLARE LONG CgONSTANT QUI$_BASE_PRIORITY = 4 ! Queue: /BASE_PRIORITY=nQ DECLARE LONG CONSTANT QUI$_CHARACTERISTIC_NAME = 5 ! Characteristic: NameU DECLARE LONG CONSTANT QUI$_CHARACTERISTIC_NUMBER = 6 ! Characteristic: Number` DECLARE LONG CONSTANT QUI$_CHARACTERISTICS = 7 ! Job, queue: /CHARACTERISTICS= ( c,... )M DECLARE LONG CONSTANT QUI$_CHECKPOINT_DATA = 8 ! Job: Checkpoint dataA DECLARE LONG CONSTANT QUI$_CLI = 9 ! Job: /CLI=filenamee DECLARE LONG CONSTANT hQUI$_COMPLETED_BLOCKS = 10 ! Job: Completed blocks including checkpointQ DECLARE LONG CONSTANT QUI$_CONDITION_VECTOR = 11 ! Job: Completion statusJ DECLARE LONG CONSTANT QUI$_CPU_DEFAULT = 12 ! Queue: /CPUDEFAULT=tM DECLARE LONG CONSTANT QUI$_CPU_LIMIT = 13 ! Job, queue: /CPUMAXIMUM=tG DECLARE LONG CONSTANT QUI$_DEVICE_NAME = 14 ! Queue: /ON=deviceH DECLARE LONG CONSTANT QUI$_ENTRY_NUMBER = 15 ! Job: Entry numberE DECLARE LONG CONSTANT QUI$_FILE_COPIiES = 16 ! File: /COPIES=ns DECLARE LONG CONSTANT QUI$_FILE_COPIES_CHKPT = 17 ! File: File copies checkpoint ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)V DECLARE LONG CONSTANT QUI$_FILE_COPIES_DONE = 18 ! File: File copies completedN DECLARE LONG CONSTANT QUI$_FILE_FLAGS = 19 ! File: Boolean informationY DECLARE LONG CONSTANT QUI$_FILE_SETUP_MODULES = 20 ! File: /SETUP= ( module,... )Z jDECLARE LONG CONSTANT QUI$_FILE_SPECIFICATION = 21 ! File: Full file specificationN DECLARE LONG CONSTANT QUI$_FILE_STATUS = 22 ! File: Status informationK DECLARE LONG CONSTANT QUI$_FIRST_PAGE = 23 ! File: /PAGES= ( n,"" )T DECLARE LONG CONSTANT QUI$_FORM_DESCRIPTION = 24 ! Form: /DESCRIPTION=stringN DECLARE LONG CONSTANT QUI$_FORM_FLAGS = 25 ! Form: Boolean informationE DECLARE LONG CONSTANT QUI$_FORM_LENGTH = 26 ! Form: /LENGTH=nS DECLARE LONG CONSTkANT QUI$_FORM_MARGIN_BOTTOM = 27 ! Form: /MARGIN=BOTTOM=nO DECLARE LONG CONSTANT QUI$_FORM_MARGIN_LEFT = 28 ! Form: /MARGIN=LEFT=nQ DECLARE LONG CONSTANT QUI$_FORM_MARGIN_RIGHT = 29 ! Form: /MARGIN=RIGHT=nM DECLARE LONG CONSTANT QUI$_FORM_MARGIN_TOP = 30 ! Form: /MARGIN=TOP=nO DECLARE LONG CONSTANT QUI$_FORM_NAME = 31 ! Form, job, queue: Form nameB DECLARE LONG CONSTANT QUI$_FORM_NUMBER = 32 ! Form: NumberY DECLARE LONG CONSTANT QUI$_FORM_SETUP_MODUlLES = 33 ! Form: /SETUP= ( module,... )L DECLARE LONG CONSTANT QUI$_FORM_STOCK = 34 ! Form: /STOCK=stock-nameC DECLARE LONG CONSTANT QUI$_FORM_WIDTH = 35 ! Form: /WIDTH=n\ DECLARE LONG CONSTANT QUI$_GENERIC_TARGET = 36 ! Queue: /GENERIC= ( queue-name,... )\ DECLARE LONG CONSTANT QUI$_INTERVENING_BLOCKS = 37 ! Job: Intervening pending blocksX DECLARE LONG CONSTANT QUI$_INTERVENING_JOBS = 38 ! Job: Intervening pending jobsF DECLARE LONG CONSTANT QUI$_JOBm_COPIES = 39 ! Job: /JOB_COUNT=np DECLARE LONG CONSTANT QUI$_JOB_COPIES_CHKPT = 40 ! Job: Job copies checkpoint ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)S DECLARE LONG CONSTANT QUI$_JOB_COPIES_DONE = 41 ! Job: Job copies completedL DECLARE LONG CONSTANT QUI$_JOB_FLAGS = 42 ! Job: Boolean informationG DECLARE LONG CONSTANT QUI$_JOB_LIMIT = 43 ! Queue: /JOB_LIMIT=n< DECLARE LONG CONSTANnT QUI$_JOB_NAME = 44 ! Job: Nameb DECLARE LONG CONSTANT QUI$_JOB_RESET_MODULES = 45 ! Queue: /SEPARATE=RESET= ( module,... )K DECLARE LONG CONSTANT QUI$_JOB_SIZE = 46 ! Job: Total blocks in jobP DECLARE LONG CONSTANT QUI$_JOB_SIZE_MAXIMUM = 47 ! Queue: /BLOCK_LIMIT=nX DECLARE LONG CONSTANT QUI$_JOB_SIZE_MINIMUM = 48 ! Queue: /BLOCK_LIMIT= ( n,"" )L DECLARE LONG CONSTANT QUI$_JOB_STATUS = 49 ! Job: Status informationB DECLARE LONG CONSTANT QUI$_LAST_PAGEo = 50 ! File: /PAGES=nb DECLARE LONG CONSTANT QUI$_LIBRARY_SPECIFICATION = 51 ! Queue: /LIBRARY=file-specificationL DECLARE LONG CONSTANT QUI$_LOG_QUEUE = 52 ! Job: /PRINTER=queue-name] DECLARE LONG CONSTANT QUI$_LOG_SPECIFICATION = 53 ! Job: /LOG_FILE=file-specification@ DECLARE LONG CONSTANT QUI$_NOTE = 54 ! Job: /NOTE=stringP DECLARE LONG CONSTANT QUI$_OPERATOR_REQUEST = 55 ! Job: /OPERATOR=stringE DECLARE LONG CONSTANT QUI$_OWNER_UIC = 56 ! Queue: p /OWNER=uic^ DECLARE LONG CONSTANT QUI$_PAGE_SETUP_MODULES = 57 ! Form: /PAGE_SETUP= ( module,... )L DECLARE LONG CONSTANT QUI$_PARAMETER_1 = 58 ! Job: /PARAMETER=string1 DECLARE LONG CONSTANT QUI$_PARAMETER_2 = 591 DECLARE LONG CONSTANT QUI$_PARAMETER_3 = 601 DECLARE LONG CONSTANT QUI$_PARAMETER_4 = 611 DECLARE LONG CONSTANT QUI$_PARAMETER_5 = 621 DECLARE LONG CONSTANT QUI$_PARAMETER_6 = 631 DECLARE LONG CONSTANT QUI$_PARAMETER_7 = 641 qDECLARE LONG CONSTANT QUI$_PARAMETER_8 = 65C DECLARE LONG CONSTANT QUI$_PRIORITY = 66 ! Job: /PRIORITY=nN DECLARE LONG CONSTANT QUI$_PROCESSOR = 67 ! Queue: /PROCESSOR=filenameL DECLARE LONG CONSTANT QUI$_PROTECTION = 68 ! Queue: /PROTECTION=maskP DECLARE LONG CONSTANT QUI$_QUEUE_FLAGS = 69 ! Queue: Boolean informationK DECLARE LONG CONSTANT QUI$_QUEUE_NAME = 70 ! Job, queue: Queue nameP DECLARE LONG CONSTANT QUI$_QUEUE_STATUS = 71 ! Queue: Status infrormationt DECLARE LONG CONSTANT QUI$_REFUSAL_REASON = 72 ! Job: Reason symbiont refused job ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)q DECLARE LONG CONSTANT QUI$_REQUEUE_PRIORITY = 73 ! Job: Priority after requeue ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)U DECLARE LONG CONSTANT QUI$_REQUEUE_QUEUE_NAME = 74 ! Job: Queue after srequeueH DECLARE LONG CONSTANT QUI$_SCSNODE_NAME = 75 ! Queue: /ON=node::N DECLARE LONG CONSTANT QUI$_SEARCH_FLAGS = 76 ! Flags to control searchP DECLARE LONG CONSTANT QUI$_SEARCH_NAME = 77 ! Object name to search for S DECLARE LONG CONSTANT QUI$_SEARCH_NUMBER = 78 ! Object number to search forN DECLARE LONG CONSTANT QUI$_SUBMISSION_TIME = 79 ! Job: Submission timeC DECLARE LONG CONSTANT QUI$_UIC = 80 ! Job: Submitter's UICL DECLARE LONG CONSTtANT QUI$_USERNAME = 81 ! Job: Submitter's usernameL DECLARE LONG CONSTANT QUI$_WSDEFAULT = 82 ! Job, queue: /WSDEFAULT=nJ DECLARE LONG CONSTANT QUI$_WSEXTENT = 83 ! Job, queue: /WSEXTENT=nH DECLARE LONG CONSTANT QUI$_WSQUOTA = 84 ! Job, queue: /WSQUOTA=nj DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_85 = 85 ! Reserved for Digital use ( name may change )j DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_86 = 86 ! Reserved for Digital use ( name may change )z DEuCLARE LONG CONSTANT QUI$_JOB_CONTROL_GQC = 87 ! Reserved for Digital ( Use to send GQC to job control process )c DECLARE LONG CONSTANT QUI$_SEARCH_USERNAME = 88 ! Username of owner of job to modify searchV DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_NAME = 89 ! Default form name on queueZ DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_NUMBER = 90 ! Default form number on queueY DECLARE LONG CONSTANT QUI$_DEFAULT_FORM_STOCK = 91 ! Stock name for default form B DECLARE LOvNG CONSTANT QUI$_JOB_PID = 92 ! Pid of batch jobi DECLARE LONG CONSTANT QUI$_FILE_IDENTIFICATION = 93 ! File identification ( From RMS NAM block )m DECLARE LONG CONSTANT QUI$_PENDING_JOB_BLOCK_COUNT = 94 ! Total number of blocks for all pending jobs~ DECLARE LONG CONSTANT QUI$_JOB_RETENTION_TIME = 95 ! The amount of time the job should be retained (may be delta or & ! absolute)b DECLARE LONG CONSTANT QUI$_JOB_COMPLETION_TIME = 96 ! The time the job completed exewcutions DECLARE LONG CONSTANT QUI$_JOB_COMPLETION_QUEUE = 97 ! The name of the queue the job completed execution onj DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_98 = 98 ! Reserved for Digital use ( name may change )j DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_99 = 99 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_100 = 100 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_101 =x 101 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_102 = 102 ! Reserved for Digital use ( name may change )Y DECLARE LONG CONSTANT QUI$_SEARCH_BATCH_EPID = 103 ! Batch job EPID to search forQ DECLARE LONG CONSTANT QUI$_SEARCH_JOB_NAME = 104 ! Job name to search fork DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_105 = 105 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_106 = y106 ! Reserved for Digital use ( name may change )` DECLARE LONG CONSTANT QUI$_EXECUTING_JOB_COUNT = 107 ! Number of jobs that are executingS DECLARE LONG CONSTANT QUI$_HOLDING_JOB_COUNT = 108 ! Number of holding jobsl DECLARE LONG CONSTANT QUI$_TIMED_RELEASE_JOB_COUNT = 109 ! Number of jobs specified with /AFTER_TIMEl DECLARE LONG CONSTANT QUI$_PENDING_JOB_REASON = 110 ! Secondary status describing why job is pendingE DECLARE LONG CONSTANT QUI$_ORB = 111 ! z ORB data in TLV formatY ! (note this item code is intentionally not documented and reserved for Digital use)P DECLARE LONG CONSTANT QUI$_QUEUE_DESCRIPTION = 112 ! Queue: /DESCRIPTIONq DECLARE LONG CONSTANT QUI$_SYMBIONT_FLAGS = 113 ! Symbiont options ( requests ) passed to job controllerY ! (note this item code is intentionally not documented and reserved for Digital use)s DECLARE LONG CONSTANT QUI$_JOB_ACCESS_CLASS = 114 ! Job access class information ( for in{ternal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use) DECLARE LONG CONSTANT QUI$_ORB_LOCK_KEY = 115 ! Key value for locking of in-memory ORB data structure (for internal use & ! only)Y ! (note this item code is intentionally not documented and reserved for Digital use)z DECLARE LONG CONSTANT QUI$_CHECKPOINT_FREQUENCY = 116 ! Number of pages in interval at which symbiont takes chkptsS DECLARE LONG CONSTANT QUI$_PEN|DING_JOB_COUNT = 117 ! Number of pending jobsU DECLARE LONG CONSTANT QUI$_RETAINED_JOB_COUNT = 118 ! Number of retained jobs DECLARE LONG CONSTANT QUI$_RESTART_QUEUE_NAME = 119 ! Name of queue into which a job would be restarted, if appropriateK DECLARE LONG CONSTANT QUI$_FILE_COUNT = 120 ! Count of files in job} DECLARE LONG CONSTANT QUI$_ATTRIBUTES = 121 ! Keywds and values of extens attribs associated with queue, job, or file DECLARE LONG CONSTANT QUI$}_ATTRIBUTES_SIZE = 122 ! Length of list of extens attribs associated with queue, job, or filec DECLARE LONG CONSTANT QUI$_QUEUE_SUPPORT = 123 ! Queue Support Images defined on this queuen DECLARE LONG CONSTANT QUI$_QUEUE_ATTRIBUTES = 124 ! Valid keywords for operations that alter the queue} DECLARE LONG CONSTANT QUI$_QUEUE_ATTRIBUTES_SIZE = 125 ! Length of list of keywords for queue-oriented extens attribsq DECLARE LONG CONSTANT QUI$_JOB_ATTRIBUTES = 126 ! Valid ke~ywords for operations that create or alter jobsy DECLARE LONG CONSTANT QUI$_JOB_ATTRIBUTES_SIZE = 127 ! Length of list of keywords for job-oriented extens attribsn DECLARE LONG CONSTANT QUI$_FILE_ATTRIBUTES = 128 ! Valid keywords for file submissions or alter_file's{ DECLARE LONG CONSTANT QUI$_FILE_ATTRIBUTES_SIZE = 129 ! Length of list of keywords for file-oriented extens attribs DECLARE LONG CONSTANT QUI$_AUTOSTART_ON = 130 ! Node ( s ) (and for print queues, device(s)) on which queue can be auto & ! startedM DECLARE LONG CONSTANT QUI$_AGENT_PROFILE = 131 ! Security informationJ DECLARE LONG CONSTANT QUI$_MANAGER_NAME = 132 ! Queue manager named DECLARE LONG CONSTANT QUI$_MANAGER_STATUS = 133 ! Queue manager state and status informationl DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_134 = 134 ! Reserved for Digital use ( name may change )o DECLARE LONG CONSTANT QUI$_MANAGER_NODES = 135 ! Preferred node listed specified on start queue managere DECLARE LONG CONSTANT QUI$_MANAGER_AUTOSTART = 136 ! List of nodes that are autostart enabledz DECLARE LONG CONSTANT QUI$_QUEUE_DIRECTORY = 137 ! Directory specification provided when queue manager was startedl DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_138 = 138 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_139 = 139 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_140 = 140 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_141 = 141 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_142 = 142 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_143 = 143 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_144 = 144 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_145 = 145 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_146 = 146 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_147 = 147 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_148 = 148 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_149 = 149 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_150 = 150 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_151 = 151 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_152 = 152 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_153 = 153 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_154 = 154 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_155 = 155 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_156 = 156 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_157 = 157 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_158 = 158 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT QUI$_RESERVED_OUTPUT_159 = 159 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_160 = 160 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_161 = 161 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_162 = 162 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_163 = 163 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_164 = 164 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT QUI$_RESERVED_INPUT_165 = 165 ! Reserved for Digital use ( name may change )K DECLARE LONG CONSTANT QUI$K_MIN_ITEM = 1 ! Minimum GETQUI item codeM DECLARE LONG CONSTANT QUI$K_MAX_ITEM = 165 ! Maximum GETQUI item codeR DECLARE LONG CONSTANT QUI$_CHARGE_CODE = 1 ! synonym for QUI$_ACCOUNT_NAME ! ) ! Subfields of FILE_FLAGS item code. ! : DECLARE LONG CONSTANT QUI$M_FILE_BURST = x'00000001'> DECLARE LONG CONSTANT QUI$M_FILE_BURST_EXP = x'00000002'; DECLARE LONG CONSTANT QUI$M_FILE_DELETE = x'00000004'A DECLARE LONG CONSTANT QUI$M_FILE_DOUBLE_SPACE = x'00000008'9 DECLARE LONG CONSTANT QUI$M_FILE_FLAG = x'00000010'= DECLARE LONG CONSTANT QUI$M_FILE_FLAG_EXP = x'00000020'< DECLARE LONG CONSTANT QUI$M_ FILE_TRAILER = x'00000040'@ DECLARE LONG CONSTANT QUI$M_FILE_TRAILER_EXP = x'00000080'@ DECLARE LONG CONSTANT QUI$M_FILE_PAGE_HEADER = x'00000100'= DECLARE LONG CONSTANT QUI$M_FILE_PAGINATE = x'00000200'< DECLARE LONG CONSTANT QUI$M_FILE_PASSALL = x'00000400'A DECLARE LONG CONSTANT QUI$M_FILE_PAGINATE_EXP = x'00000800'B DECLARE LONG CONSTANT QUI$M_FILE_DELETE_ALWAYS = x'00001000'0 DECLARE LONG CONSTANT QUI$S_FILE_FLAGS = 4 record FILE_FLAGS  ! /BURST? ! /[NO]BURST explicit (intentionally not documented) ! /DELETE ! /SPACE ! /FLAG> ! /[NO]FLAG explicit (intentionally not documented) ! /TRAILERA ! /[NO]TRAILER explicit (intentionally not documented) ! /HEADER ! /FEED ! /PASSALL> ! /[NO]FEED explicit (intentionally not documented) ! /DELETE_ALWAYSp LONG FILE_BURST_bits ! COMMENT ADDE D BY SDL - FILE_BURST_bits contains bits FILE_BURST through filler end record FILE_FLAGS  ! * ! Subfields of FILE_STATUS item code. ! A DECLARE LONG CONSTANT QUI$M_FILE_CHECKPOINTED = x'00000001'> DECLARE LONG CONSTANT QUI$M_FILE_EXECUTING = x'00000002'1 DECLARE LONG CONSTANT QUI$S_FILE_STATUS = 4 record FILE_STATUS ! File checkpointed% ! File currently executing LONG FILE_CHECKPOINTED_bits ! COMMENT ADDED BY SDL - FILE_CHECKPOINTED_bits contains bits FILE_CHECKPOINTED through & ! filler end record FILE_STATUS  ! ) ! Subfields of FORM_FLAGS item code. ! ? DECLARE LONG CONSTANT QUI$M_FORM_SHEET_FEED = x'00000001'= DECLARE LONG CONSTANT QUI$M_FORM_TRUNCATE = x'00000002'9 DECLARE LONG CONSTANT QUI$M_FORM_WRAP = x'00000004'0 DECLARE LONG CONSTANT QUI$S_FORM_FLAGS = 4 record FORM_FLAGS ! /SHEET_FEED ! /TRUNCATE ! /WRAP LONG FORM_SHEET_FEED_bits ! COMMENT ADDED BY SDL - FORM_SHEET_FEED_bits contains bits FORM_SHEET_FEED through filler end record FORM_FLAGS  ! ( ! Subfields of JOB_FLAGS item code. ! = DECLARE LONG CONSTANT QUI$M_JOB_CPU_LIMIT = x'00000001'> DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST = x'00000002'B DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST_ONE = x'00000004'B DECLARE LONG CONSTANT QUI$M_JOB_FILE_BURST_EXP = x'00000008'= DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG = x'00000010'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG_ONE = x'00000020'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_FLAG_EXP = x'00000040'@ DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER = x'00000080'D DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER_ONE = x'00000100'D DECLARE LONG CONSTANT QUI$M_JOB_FILE_TRAILER_EXP = x'00000200'> DECLARE LONG CONSTANT QUI$M_JOB_LOG_DELETE = x'00000400'< DECLARE LONG CONSTANT QUI$M_JOB_LOG_NU LL = x'00000800'= DECLARE LONG CONSTANT QUI$M_JOB_LOG_SPOOL = x'00001000'= DECLARE LONG CONSTANT QUI$M_JOB_LOWERCASE = x'00002000': DECLARE LONG CONSTANT QUI$M_JOB_NOTIFY = x'00004000'; DECLARE LONG CONSTANT QUI$M_JOB_RESTART = x'00008000'= DECLARE LONG CONSTANT QUI$M_JOB_WSDEFAULT = x'00010000'< DECLARE LONG CONSTANT QUI$M_JOB_WSEXTENT = x'00020000'; DECLARE LONG CONSTANT QUI$M_JOB_WSQUOTA = x'00040000'A DECLARE LONG CONSTANT QUI$M_JOB_FILE_PAGINAT E = x'00080000'E DECLARE LONG CONSTANT QUI$M_JOB_FILE_PAGINATE_EXP = x'00100000'= DECLARE LONG CONSTANT QUI$M_JOB_RETENTION = x'00200000'C DECLARE LONG CONSTANT QUI$M_JOB_ERROR_RETENTION = x'00400000'/ DECLARE LONG CONSTANT QUI$S_JOB_FLAGS = 4 record JOB_FLAGS ! /CPUTIME explicit ! /BURST=ALL ! /BURST=ONE? ! /[NO]BURST explicit (intentionally not documented) ! /FLAG=ALL ! /FLAG=ONE> ! /[NO]FLAG explicit (intentionally not documented) ! /TRAILER=ALL ! /TRAILER=ONEA ! /[NO]TRAILER explicit (intentionally not documented) ! /NOKEEP ! /NOLOG_FILE ! /PRINTER ! /LOWERCASE ! /NOTIFY ! /RESTART ! /WSDEFAULT explicit ! /WSEXTENT explicit ! /WSQUOTA explicit ! /FEED> ! /[NO]FEED explicit (intentionally not documented)  ! /RETAIN=ALWAYS ! /RETAIN=ERRORy LONG JOB_CPU_LIMIT_bits ! COMMENT ADDED BY SDL - JOB_CPU_LIMIT_bits contains bits JOB_CPU_LIMIT through filler end record JOB_FLAGS  ! ) ! Subfields of JOB_STATUS item code. ! < DECLARE LONG CONSTANT QUI$M_JOB_ABORTING = x'00000001'= DECLARE LONG CONSTANT QUI$M_JOB_EXECUTING = x'00000002'; DECLARE LONG CONSTANT QUI$M_JOB_HOLDING = x'00000004'@ DECLARE LONG CONSTANT QUI$M_JOB_INAC CESSIBLE = x'00000008'; DECLARE LONG CONSTANT QUI$M_JOB_REFUSED = x'00000010'; DECLARE LONG CONSTANT QUI$M_JOB_REQUEUE = x'00000020'> DECLARE LONG CONSTANT QUI$M_JOB_RESTARTING = x'00000040'< DECLARE LONG CONSTANT QUI$M_JOB_RETAINED = x'00000080'< DECLARE LONG CONSTANT QUI$M_JOB_STARTING = x'00000100'A DECLARE LONG CONSTANT QUI$M_JOB_TIMED_RELEASE = x'00000200'= DECLARE LONG CONSTANT QUI$M_JOB_SUSPENDED = x'00000400'; DECLARE LONG CONSTANT QUI$M_JOB_ PENDING = x'00000800'= DECLARE LONG CONSTANT QUI$M_JOB_UNDEFINED = x'00001000'; DECLARE LONG CONSTANT QUI$M_JOB_STALLED = x'00002000'> DECLARE LONG CONSTANT QUI$M_JOB_INCOMPLETE = x'00004000'> DECLARE LONG CONSTANT QUI$M_JOB_COMPLETING = x'00008000'0 DECLARE LONG CONSTANT QUI$S_JOB_STATUS = 4 record JOB_STATUS ! Job is aborting ! Job is executing% ! Job is holding for /HOLD ! Job is inaccessible( ! Job  was refused by symbiontH ! Job will requeue after abort (intentionally not documented)O ! Job started execution at least once (intentionally not documented)( ! Job was retained by /RETAIN ! Job is starting& ! Job is holding for /AFTER3 ! Job is suspended by STOP/QUEUE commandN ! Job is pending (see QUI$_JOB_PENDING_REASON for more information)E ! Job does not yet exist in db or is being removed from db)  ! Current job on stalled queueR ! Job was processed by the symbiont but further processing is necessary. ! Job has been completely processedv LONG JOB_ABORTING_bits ! COMMENT ADDED BY SDL - JOB_ABORTING_bits contains bits JOB_ABORTING through filler end record JOB_STATUS l DECLARE LONG CONSTANT QUI$V_JOB_TIMED = 9 ! Synonym for QUI$V_JOB_TIMED_RELEASE for V4 compatibilityn DECLARE LONG CONSTANT QUI$M_JOB_TIMED = 512 ! Synonym for QUI$ M_JOB_TIMED_RELEASE for V4 compatibility ! ' ! Subfields of PENDING_JOB_REASON. ! | ! Note that in the descriptions below "queue" refers to the execution queue in which a job resides, or to the set of & ! executionM ! queues that is the target of the generic queue in which a job resides. ! B DECLARE LONG CONSTANT QUI$M_PEND_CHAR_MISMATCH = x'00000001'A DECLARE LONG CONSTANT QUI$M_PEND_JOB_SIZE_MAX = x'00000002'A DECLARE LONG CONSTANT QUI$M_PEND_JOB _SIZE_MIN = x'00000004'G DECLARE LONG CONSTANT QUI$M_PEND_LOWERCASE_MISMATCH = x'00000008'> DECLARE LONG CONSTANT QUI$M_PEND_NO_ACCESS = x'00000010'? DECLARE LONG CONSTANT QUI$M_PEND_QUEUE_BUSY = x'00000020'@ DECLARE LONG CONSTANT QUI$M_PEND_QUEUE_STATE = x'00000040'C DECLARE LONG CONSTANT QUI$M_PEND_STOCK_MISMATCH = x'00000080'8 DECLARE LONG CONSTANT QUI$S_PENDING_JOB_REASON = 4 record PENDING_JOB_REASOND ! Queue's characteristics do not match job's requirementsU ! Print job's block size is too large to execute on queue (print job only)U ! Print job's block size is too small to execute on queue (print job only)[ ! Queue's lowercase attribute does not match job's requirements (print job only)/ ! User does not have access to queue\ ! Job is ready to execute but must wait until other jobs ahead of it in the queueU ! complete execution (this is a normal state that requires no use r intervention)Z ! Queue state prevents job from executing (see QUI$_QUEUE_STATUS for more info)P ! Stock type of mounted form on output execution queue does not matchM ! stock stock type required by form associated with job (print job only) LONG PEND_CHAR_MISMATCH_bits ! COMMENT ADDED BY SDL - PEND_CHAR_MISMATCH_bits contains bits PEND_CHAR_MISMATCH through & ! filler# end record PENDING_JOB_REASON  ! * ! Subfields of QUEUE_FLAGS item  code. ! ; DECLARE LONG CONSTANT QUI$M_QUEUE_BATCH = x'00000001'A DECLARE LONG CONSTANT QUI$M_QUEUE_CPU_DEFAULT = x'00000002'? DECLARE LONG CONSTANT QUI$M_QUEUE_CPU_LIMIT = x'00000004'@ DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_BURST = x'00000008'D DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_BURST_ONE = x'00000010'? DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_FLAG = x'00000020'C DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_FLAG_ONE = x'00000040'B DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_TRAILER = x'00000080'F DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_TRAILER_ONE = x'00000100'= DECLARE LONG CONSTANT QUI$M_QUEUE_GENERIC = x'00000200'G DECLARE LONG CONSTANT QUI$M_QUEUE_GENERIC_SELECTION = x'00000400'? DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_BURST = x'00000800'> DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_FLAG = x'00001000'D DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_SIZE_SCHED = x'00002000'A DECLARE LONG CONSTANT QUI$M_QUEUE_JOB_TRAILE R = x'00004000'@ DECLARE LONG CONSTANT QUI$M_QUEUE_RETAIN_ALL = x'00008000'B DECLARE LONG CONSTANT QUI$M_QUEUE_RETAIN_ERROR = x'00010000': DECLARE LONG CONSTANT QUI$M_QUEUE_SWAP = x'00020000'> DECLARE LONG CONSTANT QUI$M_QUEUE_TERMINAL = x'00040000'? DECLARE LONG CONSTANT QUI$M_QUEUE_WSDEFAULT = x'00080000'> DECLARE LONG CONSTANT QUI$M_QUEUE_WSEXTENT = x'00100000'= DECLARE LONG CONSTANT QUI$M_QUEUE_WSQUOTA = x'00200000'C DECLARE LONG CONSTANT QUI$M_QUEUE_FILE_PAGINATE = x'00400000'E DECLARE LONG CONSTANT QUI$M_QUEUE_RECORD_BLOCKING = x'00800000'= DECLARE LONG CONSTANT QUI$M_QUEUE_PRINTER = x'01000000'C DECLARE LONG CONSTANT QUI$M_QUEUE_ACL_SPECIFIED = x'02000000'I DECLARE LONG CONSTANT QUI$M_QUEUE_NOTIFY_ON_INTERRUPT = x'04000000'E DECLARE LONG CONSTANT QUI$M_QUEUE_CHECKPOINT_FREQ = x'08000000'? DECLARE LONG CONSTANT QUI$M_QUEUE_AUTOSTART = x'10000000'E DECLARE LONG CONSTANT QUI$M_SECURITY_INACCESSIBLE = x'20000000'C DECLARE LONG CONSTANT QUI$M_QUEUE_NO_INITIAL_FF = x'40000000'1 DECLARE LONG CONSTANT QUI$S_QUEUE_FLAGS = 4 record QUEUE_FLAGS ! /BATCH" ! /CPUDEFAULT specified" ! /CPUMAXIMUM specified ! /DEFAULT=BURST=ALL ! /DEFAULT=BURST=ONE ! /DEFAULT=FLAG=ALL ! /DEFAULT=FLAG=ONE! ! /DEFAULT=TRAILER=ALL! ! /DEFAULT=TRAILER=ONE ! /GENERIC ! /ENABLE_GENERIC ! /SEPARATE=BURST ! /SEPARATE=FLAG  ! /SCHEDULE=SIZE ! /SEPARATE=TRAILER ! /RETAIN=ALL ! /RETAIN=ERROR ! /NODISABLE_SWAPPINGJ ! /DEVICE=TERMINAL or terminal device type reported by symbiont! ! /WSDEFAULT specified ! /WSEXTENT specified ! /WSQUOTA specified ! /DEFAULT=FEED ! /RECORD_BLOCKINGH ! /DEVICE=PRINTER or printer de vice type reported by symbiont- ! ACL has been specified for queue! ! /NOTIFY=INTERRUPTION, ! /CHECKPOINT_FREQUENCY specified$ ! /AUTOSTART_ON specifiedC ! Requestor does not have access to security information ! /NO_INITIAL_FF s LONG QUEUE_BATCH_bits ! COMMENT ADDED BY SDL - QUEUE_BATCH_bits contains bits QUEUE_BATCH through filler end record QUEUE_FLAGS  ! + ! Subfields of QUEUE_STATUS item code.  ! > DECLARE LONG CONSTANT QUI$M_QUEUE_ALIGNING = x'00000001': DECLARE LONG CONSTANT QUI$M_QUEUE_IDLE = x'00000002'? DECLARE LONG CONSTANT QUI$M_QUEUE_LOWERCASE = x'00000004'F DECLARE LONG CONSTANT QUI$M_QUEUE_OPERATOR_REQUEST = x'00000008'< DECLARE LONG CONSTANT QUI$M_QUEUE_PAUSED = x'00000010'= DECLARE LONG CONSTANT QUI$M_QUEUE_PAUSING = x'00000020'< DECLARE LONG CONSTANT QUI$M_QUEUE_REMOTE = x'00000040'? DECLARE LONG CONSTANT QUI$M_QUEUE_RESETT ING = x'00000080'> DECLARE LONG CONSTANT QUI$M_QUEUE_RESUMING = x'00000100'< DECLARE LONG CONSTANT QUI$M_QUEUE_SERVER = x'00000200'= DECLARE LONG CONSTANT QUI$M_QUEUE_STALLED = x'00000400'> DECLARE LONG CONSTANT QUI$M_QUEUE_STARTING = x'00000800'= DECLARE LONG CONSTANT QUI$M_QUEUE_STOPPED = x'00001000'> DECLARE LONG CONSTANT QUI$M_QUEUE_STOPPING = x'00002000'A DECLARE LONG CONSTANT QUI$M_QUEUE_UNAVAILABLE = x'00004000'< DECLARE LONG CONSTANT QUI$M_QU EUE_CLOSED = x'00008000': DECLARE LONG CONSTANT QUI$M_QUEUE_BUSY = x'00010000'? DECLARE LONG CONSTANT QUI$M_QUEUE_UNDEFINED = x'00020000'? DECLARE LONG CONSTANT QUI$M_QUEUE_AVAILABLE = x'00040000'> DECLARE LONG CONSTANT QUI$M_QUEUE_DISABLED = x'00080000'H DECLARE LONG CONSTANT QUI$M_QUEUE_AUTOSTART_INACTIVE = x'00100000'B DECLARE LONG CONSTANT QUI$M_QUEUE_STOP_PENDING = x'00200000'2 DECLARE LONG CONSTANT QUI$S_QUEUE_STATUS = 4 record QUEUE_STATUS  ! Queue is aligningO ! Queue is idle: no jobs executing and none available for execution ! Lowercase deviceD ! Queue is doing /OPERATOR (intentionally not documented) ! Queue is paused ! Queue is pausing ! Remote device; ! Incomplete remote request to reset (OBSOLETE)0 ! Queue is resuming from paused stateL ! /DEVICE=SERVER or reported to be a served queue by the symbiont !  Device is stalled ! Queue is starting ! Queue is stopped ! Queue is stopping" ! Device is unavailable ! Queue is closedJ ! Queue is executing as many jobs as it is capable of executingG ! Queue does not yet exist in db or is being removed from dbV ! At least one job is executing, but the queue is capable of executing moreO ! Queue is not able to accept or process jobs; its QSIs are inactive/  ! AUTOSTART queue explicitly stoppedP ! Queue will be stopped when work currently in progress has completed| LONG QUEUE_ALIGNING_bits ! COMMENT ADDED BY SDL - QUEUE_ALIGNING_bits contains bits QUEUE_ALIGNING through filler end record QUEUE_STATUS  ! + ! Subfields of SEARCH_FLAGS item code. ! ? DECLARE LONG CONSTANT QUI$M_SEARCH_ALL_JOBS = x'00000001'? DECLARE LONG CONSTANT QUI$M_SEARCH_WILDCARD = x'00000002'< DECLARE LONG C ONSTANT QUI$M_SEARCH_BATCH = x'00000004'? DECLARE LONG CONSTANT QUI$M_SEARCH_SYMBIONT = x'00000008'? DECLARE LONG CONSTANT QUI$M_SEARCH_THIS_JOB = x'00000010'> DECLARE LONG CONSTANT QUI$M_SEARCH_PRINTER = x'00000020'= DECLARE LONG CONSTANT QUI$M_SEARCH_SERVER = x'00000040'? DECLARE LONG CONSTANT QUI$M_SEARCH_TERMINAL = x'00000080'> DECLARE LONG CONSTANT QUI$M_SEARCH_GENERIC = x'00000100'E DECLARE LONG CONSTANT QUI$M_SEARCH_GENERIC_TARGET = x'00000200'C  DECLARE LONG CONSTANT QUI$M_SEARCH_PENDING_JOBS = x'00000400'E DECLARE LONG CONSTANT QUI$M_SEARCH_EXECUTING_JOBS = x'00000800'I DECLARE LONG CONSTANT QUI$M_SEARCH_TIMED_RELEASE_JOBS = x'00001000'C DECLARE LONG CONSTANT QUI$M_SEARCH_HOLDING_JOBS = x'00002000'D DECLARE LONG CONSTANT QUI$M_SEARCH_RETAINED_JOBS = x'00004000'E DECLARE LONG CONSTANT QUI$M_SEARCH_FREEZE_CONTEXT = x'00008000'@ DECLARE LONG CONSTANT QUI$M_SEARCH_OPEN_JOBS = x'00010000'D DECLAR E LONG CONSTANT QUI$M_SEARCH_RESERVED_BIT1 = x'00020000'D DECLARE LONG CONSTANT QUI$M_SEARCH_RESERVED_BIT2 = x'00040000'2 DECLARE LONG CONSTANT QUI$S_SEARCH_FLAGS = 4 record SEARCH_FLAGSK ! Select all jobs (else only those with same username as caller)' ! Force a wildcard operation ! Select batch queues[ ! Select symbiont (output) queues (note that QUI$V_SEARCH_SYMBIONT is equivalentW ! to setting QUI$V_SEARCH_PRINTER, QUI$V_SEAR CH_SERVER, and QUI$V_SEARCH_TERMINAL)A ! Select only caller's batch job (forcing new context)" ! Select printer queues! ! Select server queues# ! Select terminal queues" ! Select generic queuesZ ! Select generic target queues after selecting generic queue (for internal use)Q ! (note this option is NOT supported; it is intentionally not documented and ! reserved for Digital use)% ! Select only pending jobs'  ! Select only executing jobs+ ! Select only timed release jobs% ! Select only holding jobs& ! Select only retained jobsW ! Do not advance wildcard context to next object in list at end of operation" ! Select only open jobs ! Reserved to Compaq ! Reserved to Compaq LONG SEARCH_ALL_JOBS_bits ! COMMENT ADDED BY SDL - SEARCH_ALL_JOBS_bits contains bits SEARCH_ALL_JOBS through filler end record  SEARCH_FLAGS  ! - ! Subfields of SYMBIONT_FLAGS item code. ! Y ! Note: this item code is intentionally not documented and reserved for Digital use. ! < DECLARE LONG CONSTANT QUI$M_SYM_NOTIFIES = x'00000001'A DECLARE LONG CONSTANT QUI$M_SYM_REQUESTS_OPER = x'00000002'? DECLARE LONG CONSTANT QUI$M_SYM_COPIES_FILE = x'00000004'> DECLARE LONG CONSTANT QUI$M_SYM_COPIES_JOB = x'00000008'E DECLARE LONG CONSTANT QUI$M_SYM_ACCEPTS_ALL_FORMS = x' 00000010'E DECLARE LONG CONSTANT QUI$M_SYM_NO_JOB_CHECKPOINT = x'00000020'4 DECLARE LONG CONSTANT QUI$S_SYMBIONT_FLAGS = 4 record SYMBIONT_FLAGS2 ! Symbiont notifies for job completions1 ! Symbiont generates operator messages4 ! Symbiont generates multiple file copies3 ! Symbiont generates multiple job copies. ! Symbiont processes all form types3 ! Always reprocess full job on a restartv LONG SYM_NOTIFI ES_bits ! COMMENT ADDED BY SDL - SYM_NOTIFIES_bits contains bits SYM_NOTIFIES through filler end record SYMBIONT_FLAGS  ! - ! Subfields of MANAGER_STATUS item code. ! E DECLARE LONG CONSTANT QUI$M_MANAGER_START_PENDING = x'00000001'@ DECLARE LONG CONSTANT QUI$M_MANAGER_STARTING = x'00000002'? DECLARE LONG CONSTANT QUI$M_MANAGER_RUNNING = x'00000004'@ DECLARE LONG CONSTANT QUI$M_MANAGER_FAILOVER = x'00000008'@ DECLARE LONG CONSTANT QUI$M_MA NAGER_STOPPING = x'00000010'? DECLARE LONG CONSTANT QUI$M_MANAGER_STOPPED = x'00000020'4 DECLARE LONG CONSTANT QUI$S_MANAGER_STATUS = 4 record MANAGER_STATUS> ! Queue manager will start when a node is available& ! Queue manager is starting- ! Queue manager is processing workH ! Queue manager is failing over to pick up new startup values+ ! Queue manager is shutting down% ! Queue manager is stoppedo LONG MANAGER_START_PENDING_bits ! COMMENT ADDED BY SDL - MANAGER_START_PENDING_bits contains bits &' ! MANAGER_START_PENDING through filler end record MANAGER_STATUS  wwMuPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +E ! Get System Performance Information Data Identifier Definitions ! F ! The following constants define the items which can be collectedB ! with the Get Resource Monitor Informati on service (GETRMI)./ ! The item numbers are defined as follows: ! ) ! 16 12 0) ! +------------------+-------------+) ! | Structure number | Item number |) ! +------------------+-------------+ ! L ! The top four bits represent the structure of the item and the last 12K ! bits represent the item within the structure. The item numbers startL ! at 0 and increase sequentially to the last item (even across tables).L ! If new items are added to a table, programs MUST be relinked to allowJ ! the old definitions to change. This was done to simplify some tableK ! lookups in the Monitor Utility. To get around this, new items can be$ ! added at the end of the list. ! M ! Each table has one item at the end to act as a place holder. It shouldK ! have the same item number as the first item of the next table. TheseN ! items are not counters in the total number of RMI items RMI$_TABLESIZE.  ! - ! DEFINE TABLE TYPESA DECLARE LONG CONSTANT RMI$C_EXETYPE = 1 ! Executive cellsQ DECLARE LONG CONSTANT RMI$C_EWSTYPE = 2 ! Executive writable storage areaH DECLARE LONG CONSTANT RMI$C_MONTYPE = 3 ! Monitor specific itemsL DECLARE LONG CONSTANT RMI$C_RMSTYPE = 4 ! Monitor RMS specific itemsC DECLARE LONG CONSTANT RMI$C_LISTEND = 0 ! End of table list ! U ! The following section defines items which are collected during initialization .Q ! There items include general system information, and server version number.6 ! The server version number is also defined here. ! J DECLARE LONG CONSTANT RMI$_initial = -1 ! Initialization item listS DECLARE LONG CONSTANT RMI$_data_collection = -2 ! Data collection item listI DECLARE LONG CONSTANT RMI$_sysinfo = -3 ! System information itemO DECLARE LONG CONSTANT RMI$_version_number = -4 ! Monitor version numberB DECLARE LONG CONSTANT RMI$_r ms_file = -5 ! Parse file nameK DECLARE LONG CONSTANT RMI$_rms_gs = -6 ! Get global section address/ DECLARE LONG CONSTANT RMI$_last_type = -73 DECLARE LONG CONSTANT RMI$_server_version = 5 ! I ! Define bits in the PMS flags field PMS$GL_FLAGS. These are used toF ! synchronize access to some PMS field and enable other activity. ! 3 DECLARE LONG CONSTANT RMI$s_rmi$pms_flags = 4 record rmi$pms_flagsX group RMI$l_flags ! Class qualifier flags for CDB ( Active ): ! YES => Enable disk queue length collection< ! This field must be accessed via an interlocked ! bit instruction.0 ! Fill out remainder of first byteA ! YES => Synchronize access to several PMS counters: ! used in the collection of disk queue length.< ! This field must be accessed via an interlocked8 ! bit instruction, AND MUST BE IN A SEPARATE8 !  BYTE from the disk_enable bit (required by< ! the architecture to maintain synchronization).+ ! Fill out remainder of fieldw LONG disk_enable_bits ! COMMENT ADDED BY SDL - disk_enable_bits contains bits disk_enable through filler2 end group RMI$l_flags end record rmi$pms_flags  ! K ! Define two contants to handle help handle large lookaside lists. The? ! maximum number that RMISHR will count to is defined withE ! RMI$K_MAX_PACKET and the value returned when this threshold is, ! reached is defined as RMI$K_POOL_OVF. ! 2 DECLARE LONG CONSTANT RMI$k_max_packet = 5008 DECLARE LONG CONSTANT RMI$k_pool_ovf = -2147483647 ! H ! Define item identifier numbers. Each data item has an associatedJ ! value which is used to find its entry in the EXETBL. The item tableM ! is defined by the macros RMI_GENERATE_TABLE which makes multiple callsB ! to the macro RMI_ITEM_CODE defined in the SYSGETRMI module. ! Q DECLARE LONG CONSTANT RMI$_MODES = 4096 ! All modes counters on all CPU'sX DECLARE LONG CONSTANT RMI$_INTERRUPT = 4097 ! time on interrupt stack -- primaryQ DECLARE LONG CONSTANT RMI$_KERNEL = 4098 ! time in kernel mode -- primaryM DECLARE LONG CONSTANT RMI$_EXEC = 4099 ! time in exec mode -- primaryT DECLARE LONG CONSTANT RMI$_SUPER = 4100 ! time in supervisor mode -- primaryM DECLARE LONG CONSTANT RMI$_USER = 4101 ! time in user mode -- primaryR DECLARE LONG CONSTANT RMI$_COMPAT = 4102 ! time in compat. mode -- primarye DECLARE LONG CONSTANT RMI$_INTERRUPT_BUSY = 4103 ! Time spent RMInning on the interrupt stack_ DECLARE LONG CONSTANT RMI$_KERNEL_BUSY = 4104 ! Time spent RMInning on the lernel stackE DECLARE LONG CONSTANT RMI$_IDLE = 4105 ! idle time -- primaryL DECLARE LONG CONSTANT RMI$_CPUBUSY = 4106 ! RETIRED ITEM - RETURNS 0D DECLARE LONG CONSTANT RMI$_COLPG = 4107 ! collided page wait= DECLARE LONG CONSTANT RMI$_MWAIT = 4108 ! memory waitF DECLARE LONG CONSTANT RMI$_CEF = 4109 ! common event flag wait9 DECLARE LONG CONSTANT RMI$_PFW = 4110 ! page waitE DECLARE LONG CONSTANT RMI$_LEF = 4111 ! local event flag waitI DECLARE LONG CONSTANT RMI$_LEFO = 4112 ! lef wait out of bal. set; DECLARE LONG CONSTANT RMI$_HIB = 4113 ! hibernatingG DECLARE LONG CONSTANT RMI$_HIBO = 4114 ! hibernating o utswapped: DECLARE LONG CONSTANT RMI$_SUSP = 4115 ! suspendedF DECLARE LONG CONSTANT RMI$_SUSPO = 4116 ! suspended outswapped> DECLARE LONG CONSTANT RMI$_FPG = 4117 ! free page wait9 DECLARE LONG CONSTANT RMI$_COM = 4118 ! computingF DECLARE LONG CONSTANT RMI$_COMO = 4119 ! computable outswapped7 DECLARE LONG CONSTANT RMI$_CUR = 4120 ! currentL DECLARE LONG CONSTANT RMI$_OTHSTAT = 4121 ! RETIRED ITEM - RETURNS 0P DECLARE LONG CONSTANT RMI$_PROCS = 4122 ! process count for SYSTEM classP DECLARE LONG CONSTANT RMI$_PROC = 4123 ! collect all process informationD DECLARE LONG CONSTANT RMI$_FRLIST = 4124 ! size of free listI DECLARE LONG CONSTANT RMI$_MODLIST = 4125 ! size of modified listC DECLARE LONG CONSTANT RMI$_FAULTS = 4126 ! page fault count= DECLARE LONG CONSTANT RMI$_PREADS = 4127 ! page reads? DECLARE LONG CONSTANT RMI$_PWRITES = 4128 ! page writesM DECLARE LONG CONSTANT RMI$_PWRITIO = 4129 ! physical page write I/O'sL DECLARE LONG CONSTANT RMI$_PREADIO = 4130 ! physical page read I/O'sH DECLARE LONG CONSTANT RMI$_GVALFLTS = 4131 ! global valid faultsS DECLARE LONG CONSTANT RMI$_WRTINPROG = 4132 ! faults from write in progressI DECLARE LONG CONSTANT RMI$_FREFLTS = 4133 ! faults from free listM DECLARE LONG CONSTANT RMI$_MFYFLTS = 4134 ! faults from modified listG DECLARE LONG CONSTANT RMI$_DZROFLTS = 4135 ! demand zero faultsH DECLARE LONG CONSTANT RMI$_SYSFAULTS = 4136 ! system page faultsR DECLARE LONG CONSTANT RMI$_LRPCNT = 4137 ! number of LRP packets availableJ DECLARE LONG CONSTANT RMI$_LRPINUSE = 4138 ! number of LRPs in useR DECLARE LONG CONSTANT RMI$_IRPCNT = 4139 ! number of IRP packets availableJ DECLARE LONG CONSTANT RMI$_IRPINUSE = 4140 ! number of IRPs in useR DECLARE LONG CONSTANT RMI$_SRPCNT = 4141 ! number of SRP packets availableJ DECLARE LONG CONSTANT RMI$_SRPINUSE = 4142 ! number of SRPs in useS DECLARE LONG CONSTANT RMI$_HOLECNT = 4143 ! number of blocks in dyn. memory@ DECLARE LONG CONSTANT RMI$_BIGHOLE = 4144 ! largest holeC DECLARE LONG CONSTANT RMI$_SMALLHOLE = 4145 ! smallest holeX DECLARE LONG CONSTANT RMI$_HOLESUM = 4146 ! total space in dyn. memory availableP DECLARE LONG CONSTANT RMI$_DYNINUSE = 4147 ! dynamic memory space in useX DECLARE LONG CONSTANT RMI$_SMALLCNT = 4148 ! number of blocks < 32 bytes in sizeA DECLARE LONG CONSTANT RMI$_ISWPCNT = 4149 ! total inswapsF DECLARE LONG CONSTANT RMI$_DIRIO = 4150 ! count of direct I/OsH DECLARE LONG CONSTANT RMI$_BUFIO = 4151 ! count of buffered I/OsG DECLARE LONG CONSTANT RMI$_MBREADS = 4152 ! total mailbox readsI DECLARE LONG CONSTANT RMI$_MBWRITES = 4153 ! total mailbox writesL DECLARE LONG CONSTANT RMI$_LOGNAM = 4154 ! logical name translationsD DECLARE LONG CONSTANT RMI$_FCPCALLS = 4155 ! total fcp callsO DECLARE LONG CONSTANT RMI$_FCPREAD = 4156 ! number of disk reads by FCPQ DECLARE LONG CONSTANT RMI$_FCPWRITE = 4157 ! number of disk writes by FCPM DECLARE LONG CONSTANT RMI$_FCPCACHE = 4158 ! number of FCP cache hitsL DECLARE LONG CONSTANT RMI$_FCPCPU = 4159 ! number of CPU tics by FCPH DECLARE LONG CONSTANT RMI$_FCPHIT = 4160 ! number of window hitsN DECLARE LONG CONSTANT RMI$_FCPSPLIT = 4161 ! number of split transfersN DECLARE LONG CONSTANT RMI$_FCPFAULT = 4162 ! number of FCP page faultsK DECLARE LONG CONSTANT RMI$_ENQNEW = 4163 ! number of ENQ's ( new )S DECLARE LONG CONSTANT RMI$_ENQCVT = 4164 ! number of ENQ's ( conversions )? DECLARE LONG CONSTANT RMI$_DEQ = 4165 ! number of DEQ'sK DECLARE LONG CONSTANT RMI$_BLKAST = 4166 ! number of blocking AST'sR DECLARE LONG CONSTANT RMI$_ENQWAIT = 4167 ! number of ENQ's forced to waitO DECLARE LONG CONSTANT RMI$_ENQNOTQD = 4168 ! number of ENQ's not queuedP DECLARE LONG CONSTANT RMI$_DLCKSRCH = 4169 ! number of deadlock searchesM DECLARE LONG CONSTANT RMI$_DLCKFND = 4170 ! number of deadlocks found@ DECLARE LONG CONSTANT RMI$_NUMLOCKS = 4171 ! total locksB DECLARE LONG CONSTANT RMI$_NUMRES = 4172 ! total resourcesK DECLARE LONG CONSTANT RMI$_ARRLOCPK = 4173 ! arriving local packetsL DECLARE LONG CONSTANT RMI$_DEPLOCPK = 4174 ! departing local packetsM DECLARE LONG CONSTANT RMI$_ARRTRAPK = 4175 ! arriving transit packetsL DECLARE LONG CONSTANT RMI$_TRCNGLOS = 4176 ! transit congestion lossM DECLARE LONG CONSTANT RMI$_RCVBUFFL = 4177 ! receiver buffer failuresM DECLARE LONG CONSTANT RMI$_RESERVED1 = 4178 ! Reserved PMS location 1M DECLARE LONG CONSTANT RMI$_RESERVED2 = 4179 ! Reserved PMS location 2M DECLARE LONG CONSTANT RMI$_RESERVED3 = 4180 ! Reserved PMS location 3M DECLARE LONG CONSTANT RMI$_RESERVED4 = 4181 ! Reserved PMS location 4M DECLARE LONG CONSTANT RMI$_RESERVED5 = 4182 ! Reserved PMS location 5M DECLARE LONG CONSTANT RMI$_RESERVED6 = 4183 ! Reserved PMS location 6M DECLARE LONG CONSTANT RMI$_RESERVED7 = 4184 ! Reserved PMS location 7M DECLARE LONG CONSTANT RMI$_RESERVED8 = 4185 ! Reserved PMS location 8M DECLARE LONG CONSTANT RMI$_RESERVED9 = 4186 ! Reserved PMS location 9O DECLARE LONG CONSTANT RMI$_RESERVED10 = 4187 ! Reserved PMS location 10O DECLARE LONG CONSTANT RMI$_RESERVED11 = 4188 ! Reserved PMS location 11O DECLARE LONG CONSTANT RMI$_RESERVED12 = 4189 ! Reserved PMS location 12O DECLARE LONG CONSTANT RMI$_RESERVED13 = 4190 ! Reserved PMS location 13O DECLARE LONG CONSTANT RMI$_RESERVED14 = 4191 ! Reserved PMS location 14O DECLARE LONG CONSTANT RMI$_RESERVED15 = 4192 ! Reserved PMS location 15O DECLARE LONG CONSTANT RMI$_RESERVED16 = 4193 !  Reserved PMS location 16O DECLARE LONG CONSTANT RMI$_RESERVED17 = 4194 ! Reserved PMS location 17O DECLARE LONG CONSTANT RMI$_RESERVED18 = 4195 ! Reserved PMS location 18U DECLARE LONG CONSTANT RMI$_FID_TRIES = 4196 ! count of File Id cache attempts\ DECLARE LONG CONSTANT RMI$_FILHDR_TRIES = 4197 ! count of File header cache attempts` DECLARE LONG CONSTANT RMI$_DIRFCB_TRIES = 4198 ! count of Directory block cache attempts` DECLARE LONG CONSTANT RMI$_DIRDATA_TRIES = 4199 ! count of Directory data cache attemptsT DECLARE LONG CONSTANT RMI$_EXT_TRIES = 4200 ! count of Extent cache attemptsS DECLARE LONG CONSTANT RMI$_QUO_TRIES = 4201 ! count of Quota cache attemptsb DECLARE LONG CONSTANT RMI$_STORAGMAP_TRIES = 4202 ! count of storage bitmap cache attempts? DECLARE LONG CONSTANT RMI$_DISKS = 4203 ! all disk data DECLARE LONG CONSTANT RMI$_TOTAL_LOCKS = 4204 ! Total of all locking activity - NOT COLLECTED BY RMI - COMPUTED BY MONITORR DECLARE LONG CONSTANT RMI$_ENQNEWLOC = 4205 ! new lock requests ( local )T DECLARE LONG CONSTANT RMI$_ENQNEWIN = 4206 ! new lock requests ( incoming )U DECLARE LONG CONSTANT RMI$_ENQNEWOUT = 4207 ! new lock requests ( outgoing )Y DECLARE LONG CONSTANT RMI$_ENQCVTLOC = 4208 ! lock conversion requests ( local )[ DECLARE LONG CONSTANT RMI$_ENQCVTIN = 4209 ! lock conversion requests ( incoming )\ DECLARE LONG CONSTANT RMI$_ENQCVTOUT = 4210 ! lock conversion requests ( outgoing )F DECLARE LONG CONSTANT RMI$_DEQLOC = 4211 ! dequeues ( local )H DECLARE LONG CONSTANT RMI$_DEQIN = 4212 ! dequeues ( incoming )I DECLARE LONG CONSTANT RMI$_DEQOUT = 4213 ! dequeues ( outgoing )R DECLARE LONG CONSTANT RMI$_BLKLOC = 4214 ! blocking ASTs queued ( local )T DECLARE LONG CONSTANT RMI$_BLKIN = 4215 ! blocking ASTs queued ( incoming )U DECLARE LONG CONSTANT RMI$_BLKOUT = 4216 ! blocking ASTs queued ( outgoing )T DECLARE LONG CONSTANT RMI$_DIRIN = 4217 ! directory operations ( incoming )U DECLARE LONG CONSTANT RMI$_DIROUT = 4218 ! directory operations ( outgoing )^ DECLARE LONG CONSTANT RMI$_DLCKMSGS = 4219 ! deadlock detection messages ( in ? out )C DECLARE LONG CONSTANT RMI$_SCS = 4220 ! All SCS informationG DECLARE LONG CONSTANT RMI$_SYSTIME = 4221 ! Current system time[ DECLARE LONG CONSTANT RMI$_MSCP_REQUEST = 4222 ! IO request rate to the MSCP serverZ DECLARE LONG CONSTANT RMI$_MSCP_READ = 4223 ! Read request rate to the MSCP server\ DECLARE LONG CONSTANT RMI$_MSCP_WRITE = 4224 ! Write request rate to the MSCP server\ DECLARE LONG CONSTANT RMI$_MSCP_FRAGMENT = 4225 ! Rate at which I/O's are fragmentedT DECLARE LONG CONSTANT RMI$_MSCP_SPLIT = 4226 ! Rate at which I/O's are splitr DECLARE LONG CONSTANT RMI$_MSCP_BUFWAIT = 4227 ! Rate at which incoming requests have to wait for a bufferT DECLARE LONG CONSTANT RMI$_MSCP_SIZE1 = 4228 ! I/O rate for sizes 1-2 blocksT DECLARE LONG CONSTANT RMI$_MSCP_SIZE2 = 4229 ! I/O rate for sizes 2-3 blocksT DECLARE LONG CONSTANT RMI$_MSCP_SIZE3 = 4230 ! I/O rate for sizes 4-7 blocksU DECLARE LONG CONSTANT RMI$_MSCP_SIZE4 = 4231 ! I/O rate for sizes 8-15 blocksV DECLARE LONG CONSTANT RMI$_MSCP_SIZE5 = 4232 ! I/O rate for sizes 16-31 blocksV DECLARE LONG CONSTANT RMI$_MSCP_SIZE6 = 4233 ! I/O rate for sizes 32-63 blocksW DECLARE LONG CONSTANT RMI$_MSCP_SIZE7 = 4234 ! I/O rate for sizes 64-127 blocksf DECLARE LONG CONSTANT RMI$_MSCP_ALL = 4235 ! Dummy item to collect all MSCP server class itemsP DECLARE LONG CONSTANT RMI$_DDTM_STARTS = 4236 ! Local Transaction startsY DECLARE LONG CONSTANT RMI$_DDTM_PREPARES = 4237 ! Local Transaction prepare event] DECLARE LONG CONSTANT RMI$_DDTM_ONE_PHASE = 4238 ! Transaction ONE_PHASE commit eventW DECLARE LONG CONSTANT RMI$_DDTM_COMMITS = 4239 ! Local Transaction commit eventU DECLARE LONG CONSTANT RMI$_DDTM_ABORTS = 4240 ! Local Transaction abort eventL DECLARE LONG CONSTANT RMI$_DDTM_ENDS = 4241 ! Local Transaction endsK DECLARE LONG CONSTANT RMI$_DDTM_BRANCHS = 4242 ! Start branch eventF DECLARE LONG CONSTANT RMI$_DDTM_ADDS = 4243 ! Add branch eventJ DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS1 = 4244 ! TPS rate for < 1J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS2 = 4245 ! TPS rate for 1-2J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS3 = 4246 ! TPS rate for 2-3J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS4 = 4247 ! TPS rate for 3-4J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS5 = 4248 ! TPS rate for 4-5J DECLARE LONG CONSTANT RMI$_DDTM_BUCKETS6 = 4249 ! TPS rate for > 6f DECLARE LONG CONSTANT RMI$_DDTM_ALL = 4250 ! Dummy item to collect all TRANSACTION class itemsS DECLARE LONG CONSTANT RMI$_VECTORP = 4251 ! Vector P rocessor tics scheduledF DECLARE LONG CONSTANT RMI$_VBYTE_READ = 4252 ! VBS bytes readJ DECLARE LONG CONSTANT RMI$_VBYTE_WRITE = 4253 ! VBS bytes written1 DECLARE LONG CONSTANT RMI$_VVBS_TRAN = 42541 DECLARE LONG CONSTANT RMI$_VRBS_TRAN = 42550 DECLARE LONG CONSTANT RMI$_VDIO_SEL = 42565 DECLARE LONG CONSTANT RMI$_VDIOMAP_ALLOC = 42572 DECLARE LONG CONSTANT RMI$_VRBS_AVAIL = 42581 DECLARE LONG CONSTANT RMI$_VSEL_FAIL = 42591 DECLARE LONG  CONSTANT RMI$_VVBSM_HIT = 42603 DECLARE LONG CONSTANT RMI$_VVBSM_CACHE = 42611 DECLARE LONG CONSTANT RMI$_VFLUIDBAL = 4262/ DECLARE LONG CONSTANT RMI$_VRECOPY = 42631 DECLARE LONG CONSTANT RMI$_VCPUTICKS = 4264K DECLARE LONG CONSTANT RMI$_RESERVEDEXE1 = 4265 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE2 = 4266 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE3 = 4267 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE4 = 4268 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE5 = 4269 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE6 = 4270 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE7 = 4271 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE8 = 4272 ! Reserved EXE itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEXE9 = 4273 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE10 = 4274 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE11 = 4275 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE12 = 4276 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE13 = 4277 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE14 = 4278 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE15 = 4279 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE16 = 4280 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE17 = 4281 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE18 = 4282 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE19 = 4283 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE20 = 4284 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE21 = 4285 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE22 = 4286 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE23 = 4287 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE24 = 4288 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE25 = 4289 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE26 = 4290 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE27 = 4291 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE28 = 4292 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE29 = 4293 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE30 = 4294 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE31 = 4295 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE32 = 4296 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE33 = 4297 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE34 = 4298 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE35 = 4299 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE36 = 4300 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE37 = 4301 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE38 = 4302 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE39 = 4303 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE40 = 4304 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE41 = 4305 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE42 = 4306 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE43 = 4307 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE44 = 4308 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE45 = 4309 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE46 = 4310 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE47 = 4311 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE48 = 4312 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE49 = 4313 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE50 = 4314 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE51 = 4315 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE52 = 4316 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE53 = 4317 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE54 = 4318 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE55 = 4319 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE56 = 4320 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE57 = 4321 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE58 = 4322 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE59 = 4323 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE60 = 4324 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE61 = 4325 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE62 = 4326 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE63 = 4327 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE64 = 4328 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE65 = 4329 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE66 = 4330 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE67 = 4331 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE68 = 4332 ! Reserved EXE itemsL DECLARE LONG C ONSTANT RMI$_RESERVEDEXE69 = 4333 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE70 = 4334 ! Reserved EXE itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEXE71 = 4335 ! Reserved EXE itemsN DECLARE LONG CONSTANT RMI$_LASTEXE = 4336 ! Last item in the EXE table ! K ! These next items are located in an executive writable page in memory ! J DECLARE LONG CONSTANT RMI$_ACCESS = 8432 ! number of file accessesH DECLARE LONG CONSTANT RMI$_ALLOC = 8433 ! number of file extendsN DECLARE LONG CONSTANT RMI$_FCPCREATE = 8434 ! number of file creationsY DECLARE LONG CONSTANT RMI$_VOLWAIT = 8435 ! # of times XQP waited for volume lockJ DECLARE LONG CONSTANT RMI$_FCPTURN = 8436 ! number of window turnsJ DECLARE LONG CONSTANT RMI$_FCPERASE = 8437 ! number of erase callsF DECLARE LONG CONSTANT RMI$_OPENS = 8438 ! number of file opensN DECLARE LONG CONSTANT RMI$_FIDHIT = 8439 ! count of File Id cache hitsQ DECLARE LONG CONSTANT RMI$_FIDMISS = 8440 ! count of File Id cache missesV DECLARE LONG CONSTANT RMI$_FILHDR_HIT = 8441 ! count of File header cache hitsZ DECLARE LONG CONSTANT RMI$_DIRFCB_HIT = 8442 ! count of Directory block cache hits] DECLARE LONG CONSTANT RMI$_DIRFCB_MISS = 8443 ! count of Directory block cache missesZ DECLARE LONG CONSTANT RMI$_DIRDATA_HIT = 8444 ! count of Directory data cache hitsM DECLARE LONG CONSTANT RMI$_EXTHIT = 8445 ! count of Extent cache hitsP DECLARE LONG CONSTANT RMI$_EXTMISS = 8446 ! count of Extent cache missesL DECLARE LONG CONSTANT RMI$_QUOHIT = 8447 ! count of Quota cache hitsO DECLARE LONG CONSTANT RMI$_QUOMISS = 8448 ! count of Quota cache misses\ DECLARE LONG CONSTANT RMI$_STORAGMAP_HIT = 8449 ! count of storage bitmap cache hitsE DECLARE LONG CONSTANT RMI$_VOLLCK = 8450 ! Volume synch locksS DECLARE LONG CONSTANT RMI$_SYNCHLCK = 8451 ! directory and file synch locksn DECLARE LONG CONSTANT RMI$_SYNCHWAIT = 8452 ! # of times XQP waited for a directory or file synch lock? DECLARE LONG CONSTANT RMI$_ACCLCK = 8453 ! access locksm DECLARE LONG CONSTANT RMI$_XQPCACHEWAIT = 8454 ! # of times XQP had to wait for free space in a cacheK DECLARE LONG CONSTANT RMI$_RESERVEDEWS1 = 8455 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS2 = 8456 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS3 = 8457 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS4 = 8458 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS5 = 8459 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS6 = 8460 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS7 = 8461 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS8 = 8462 ! Reserved EWS itemsK DECLARE LONG CONSTANT RMI$_RESERVEDEWS9 = 8463 ! Reserved EWS itemsL  DECLARE LONG CONSTANT RMI$_RESERVEDEWS10 = 8464 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS11 = 8465 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS12 = 8466 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS13 = 8467 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS14 = 8468 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS15 = 8469 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS16 = 8470 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS17 = 8471 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS18 = 8472 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS19 = 8473 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS20 = 8474 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS21 = 8475 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS22 = 8476 ! Reserved EWS itemsL  DECLARE LONG CONSTANT RMI$_RESERVEDEWS23 = 8477 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS24 = 8478 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS25 = 8479 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS26 = 8480 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS27 = 8481 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS28 = 8482 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS29 = 8483 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS30 = 8484 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS31 = 8485 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS32 = 8486 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS33 = 8487 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS34 = 8488 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS35 = 8489 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS36 = 8490 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS37 = 8491 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS38 = 8492 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS39 = 8493 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS40 = 8494 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS41 = 8495 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS42 = 8496 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS43 = 8497 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS44 = 8498 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS45 = 8499 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS46 = 8500 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS47 = 8501 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS48 = 8502 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS49 = 8503 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS50 = 8504 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS51 = 8505 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS52 = 8506 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS53 = 8507 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS54 = 8508 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS55 = 8509 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS56 = 8510 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS57 = 8511 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS58 = 8512 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS59 = 8513 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS60 = 8514 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS61 = 8515 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS62 = 8516 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS63 = 8517 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS64 = 8518 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS65 = 8519 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS66 = 8520 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS67 = 8521 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS68 = 8522 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS69 = 8523 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS70 = 8524 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS71 = 8525 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS72 = 8526 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS73 = 8527 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS74 = 8528 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS75 = 8529 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS76 = 8530 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS77 = 8531 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS78 = 8532 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS79 = 8533 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS80 = 8534 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS81 = 8535 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS82 = 8536 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS83 = 8537 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS84 = 8538 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS85 = 8539 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS86 = 8540 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS87 = 8541 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS88 = 8542 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS89 = 8543 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS90 = 8544 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS91 = 8545 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS92 = 8546 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS93 = 8547 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS94 = 8548 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS95 = 8549 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS96 = 8550 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS97 = 8551 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS98 = 8552 ! Reserved EWS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDEWS99 = 8553 ! Reserved EWS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDEWS100 = 8554 ! Reserved EWS itemsX DECLARE LONG CONSTANT RMI$_LASTEWS = 8555 ! Last item in the exec writable table ! D ! Begin monitor specific data items. The items listed below areK ! NOT collected by the RMI as individual items. Some are NOT collected* ! at all but are computed by MONITOR. ! d DECLARE LONG CONSTANT RMI$_FIDHITPCNT = 12651 ! percentage of file id cache hits/hits+missesl DECLARE LONG CONSTANT RMI$_FILHDR_HITPCNT = 12652 ! percentage of file header cache hits/hits+missesp DECLARE LONG CONSTANT RMI$_DIRFCB_HITPCNT = 12653 ! percentage of directory block cache hits/hits+missesp DECLARE LONG CONSTANT RMI$_DIRDATA_HITPCNT = 12654 ! percentage of directory data cache hits/hits+missesc DECLARE LONG CONSTANT RMI$_EXTHITPCNT = 12655 ! percentage of extent cache hits/hits+missesb DECLARE LONG CONSTANT RMI$_QUOHITPCNT = 12656 ! percentage of quota cache hits/hits+misseso DECLARE LONG CONSTANT RMI$_STORAGMAP_HITPCNT = 12657 ! percentage of storage map cache hits/hits+missesJ DECLARE LONG CONSTANT RMI$_OPCNT = 12658 ! disk io operation countJ DECLARE LONG CONSTANT RMI$_IOQUELEN = 12659 ! disk io queue lengthT DECLARE LONG CONSTANT RMI$_IOAQUELEN = 12660 ! Accurate disk io queue lengthN DECLARE LONG CONSTANT RMI$_DISKRESPTIM = 12661 ! disk io response timeb DECLARE LONG CONSTANT RMI$_JNLIOCNT = 12662 ! journaling io operation count ( for disks )S DECLARE LONG CONSTANT RMI$_JDNQLEN = 12663 ! jdevice normal io queue lengthR DECLARE LONG CONSTANT RMI$_JDWQLEN = 12664 ! jdevice wait irp queue lengthR DECLARE LONG CONSTANT RMI$_JDFQLEN = 12665 ! jdevice force io queue lengthI DECLARE LONG CONSTANT RMI$_JDEXCNT = 12666 ! jdevice extend count> DECLARE LONG CONSTANT RMI$_JNLWRTSS = 12667 ! obsolete> DECLARE LONG CONSTANT RMI$_JNLBUFWR = 12668 ! obsoleteR DECLARE LONG CONSTANT RMI$_DGSENT = 12669 ! SCS application datagrams sentV DECLARE LONG CONSTANT RMI$_DGRCVD = 12670 ! SCS application datagrams receivedZ DECLARE LONG CONSTANT RMI$_DGDISCARD = 12671 ! SCS application datagrams discardedR DECLARE LONG CONSTANT RMI$_MSGSENT = 12672 ! SCS application messages sentV DECLARE LONG CONSTANT RMI$_MSGRCVD = 12673 ! SCS application messages receivedR DECLARE LONG CONSTANT RMI$_SNDATS = 12674 ! SCS block send datas initiatedT DECLARE LONG CONSTANT RMI$_KBYTSENT = 12675 ! SCS kbytes sent via send datasV DECLARE LONG CONSTANT RMI$_REQDATS = 12676 ! SCS block request datas initiated[ DECLARE LONG CONSTANT RMI$_KBYTREQD = 12677 ! SCS kbytes received via request datasZ DECLARE LONG CONSTANT RMI$_KBYTMAPD = 12678 ! SCS kbytes mapped for block transfer` DECLARE LONG CONSTANT RMI$_QCR_CNT = 12679 ! SCS times connection queued for send creditg DECLARE LONG CONSTANT RMI$_QBDT_CNT = 12680 ! SCS times connection queued for buffer descriptorF DECLARE LONG CONSTANT RMI$_DIRLOOK = 12681 ! directory lookupsE DECLARE LONG CONSTANT RMI$_DIRINS = 12682 ! directory insertsE DECLARE LONG CONSTANT RMI$_DIRDEL = 12683 ! directory deletesL DECLARE LONG CONSTANT RMI$_PACKETS = 12684 ! Ethernet packets/secondA DECLARE LONG CONSTANT RMI$_KBYTES = 12685 ! Kbytes/secondO DECLARE LONG CONSTANT RMI$_PACKETSIZE = 12686 ! Packets size ( bytes )N DECLARE LONG CONSTANT RMI$_MPACKETS = 12687 ! Multicast packets/secondL DECLARE LONG CONSTANT RMI$_MKBYTES = 12688 ! Multicast Kbytes/secondY DECLARE LONG CONSTANT RMI$_MPACKETSIZE = 12689 ! Multicast packet size ( bytes )Z DECLARE LONG CONSTANT RMI$_SINGLECOLL = 12690 ! Transmit single collision detectedY DECLARE LONG CONSTANT RMI$_MULTICOLL = 12691 ! Transmit multi collisions detectedR DECLARE LONG CONSTANT RMI$_INITDEFER = 12692 ! Transmit initially deferredY DECLARE LONG CONSTANT RMI$_INTERNALBUFERR = 12693 ! Receive internal buffer errorQ DECLARE LONG CONSTANT RMI$_LOCBUFERR = 12694 ! Receive local buffer errorR DECLARE LONG CONSTANT RMI$_BUFFUNAVAIL = 12695 ! System buffer unavailableB DECLARE LONG CONSTANT RMI$_FILLER = 12696 ! Dummy pad itemL DECLARE LONG CONSTANT RMI$_RESERVEDMON1 = 12697 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON2 = 12698 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON3 = 12699 ! Reserved MON itemsL  DECLARE LONG CONSTANT RMI$_RESERVEDMON4 = 12700 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON5 = 12701 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON6 = 12702 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON7 = 12703 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON8 = 12704 ! Reserved MON itemsL DECLARE LONG CONSTANT RMI$_RESERVEDMON9 = 12705 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON10 = 12706 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON11 = 12707 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON12 = 12708 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON13 = 12709 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON14 = 12710 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON15 = 12711 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON16 = 12712 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON17 = 12713 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON18 = 12714 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON19 = 12715 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON20 = 12716 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON21 = 12717 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON22 = 12718 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON23 = 12719 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON24 = 12720 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON25 = 12721 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON26 = 12722 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON27 = 12723 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON28 = 12724 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON29 = 12725 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON30 = 12726 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON31 = 12727 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON32 = 12728 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON33 = 12729 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON34 = 12730 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON35 = 12731 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON36 = 12732 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON37 = 12733 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON38 = 12734 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON39 = 12735 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON40 = 12736 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON41 = 12737 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON42 = 12738 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON43 = 12739 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON44 = 12740 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON45 = 12741 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON46 = 12742 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON47 = 12743 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON48 = 12744 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON49 = 12745 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON50 = 12746 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON51 = 12747 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON52 = 12748 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON53 = 12749 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON54 = 12750 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON55 = 12751 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON56 = 12752 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON57 = 12753 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON58 = 12754 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON59 = 12755 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON60 = 12756 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON61 = 12757 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON62 = 12758 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON63 = 12759 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON64 = 12760 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON65 = 12761 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON66 = 12762 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON67 = 12763 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON68 = 12764 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON69 = 12765 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON70 = 12766 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON71 = 12767 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON72 = 12768 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON73 = 12769 ! Res erved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON74 = 12770 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON75 = 12771 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON76 = 12772 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON77 = 12773 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON78 = 12774 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON79 = 12775 ! Reserved MON itemsM DE CLARE LONG CONSTANT RMI$_RESERVEDMON80 = 12776 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON81 = 12777 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON82 = 12778 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON83 = 12779 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON84 = 12780 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON85 = 12781 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_R ESERVEDMON86 = 12782 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON87 = 12783 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON88 = 12784 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON89 = 12785 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON90 = 12786 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON91 = 12787 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON92 = 12788 ! R eserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON93 = 12789 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON94 = 12790 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON95 = 12791 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON96 = 12792 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON97 = 12793 ! Reserved MON itemsM DECLARE LONG CONSTANT RMI$_RESERVEDMON98 = 12794 ! Reserved MON itemsM  DECLARE LONG CONSTANT RMI$_RESERVEDMON99 = 12795 ! Reserved MON itemsN DECLARE LONG CONSTANT RMI$_RESERVEDMON100 = 12796 ! Reserved MON items\ DECLARE LONG CONSTANT RMI$_LASTMON = 12797 ! Last item in the monitor specific table ! P ! Begin items specific to the Monitor RMS class. These items are maintainedS ! by RMS and collected from a global section with the following naming scheme:P ! _RMS$xxxxxxxxyyyyyy where x is the volume lock id and y is the fid of the ! file being monitored. ! Z DECLARE LONG CONSTANT RMI$_RMS_STATS = 16893 ! All of the following rms statisticsO DECLARE LONG CONSTANT RMI$_SEQGETS = 16894 ! Total # of sequential getsJ DECLARE LONG CONSTANT RMI$_KEYGETS = 16895 ! Total # of keyed getsK DECLARE LONG CONSTANT RMI$_RFAGETS = 16896 ! Total # of gets by RFAU DECLARE LONG CONSTANT RMI$_GETBYTES = 16897 ! Total size in bytes of all GETSO DECLARE LONG CONSTANT RMI$_SEQPUTS = 16898 !  Total # of sequential putsK DECLARE LONG CONSTANT RMI$_KEYPUTS = 16899 ! Total # of puts by keyR DECLARE LONG CONSTANT RMI$_PUTBYTES = 16900 ! Total # of bytes put to fileS DECLARE LONG CONSTANT RMI$_UPDATES = 16901 ! Total # of updates to the fileY DECLARE LONG CONSTANT RMI$_UPDATEBYTES = 16902 ! Total # of bytes updated in fileO DECLARE LONG CONSTANT RMI$_DELETES = 16903 ! Total # of deletes to file_ DECLARE LONG CONSTANT RMI$_TRUNCATES = 16904 !  Total # of times file has been truncated` DECLARE LONG CONSTANT RMI$_TRUNCBLKS = 16905 ! Total # of blocks file has been truncatedQ DECLARE LONG CONSTANT RMI$_SEQFINDS = 16906 ! Total # of sequential findsL DECLARE LONG CONSTANT RMI$_KEYFINDS = 16907 ! Total # of keyed findsJ DECLARE LONG CONSTANT RMI$_RFAFINDS = 16908 ! Total # of RFA findsD DECLARE LONG CONSTANT RMI$_READS = 16909 ! Total # of $READSX DECLARE LONG CONSTANT RMI$_READBYTES = 16910 ! Total # of bytes read from $READSL DECLARE LONG CONSTANT RMI$_CONNECTS = 16911 ! Total connect requestsR DECLARE LONG CONSTANT RMI$_DISCONNECTS = 16912 ! Total disconnect requestsB DECLARE LONG CONSTANT RMI$_EXTENDS = 16913 ! Total extendsd DECLARE LONG CONSTANT RMI$_EXTBLOCKS = 16914 ! Total number of blocks file has been extendedS DECLARE LONG CONSTANT RMI$_FLUSHES = 16915 ! Total number of calls to flushT DECLARE LONG CONSTANT RMI$_REWINDS = 16916 ! Total number of calls to REWINDS DECLARE LONG CONSTANT RMI$_WRITES = 16917 ! Total number of calls to $WRITEX DECLARE LONG CONSTANT RMI$_WRITEBYTES = 16918 ! Total bytes written using $WRITEU DECLARE LONG CONSTANT RMI$_FLCKENQS = 16919 ! Total number of file lock ENQ'sU DECLARE LONG CONSTANT RMI$_FLCKDEQS = 16920 ! Total number of file lock DEQ's[ DECLARE LONG CONSTANT RMI$_FLCKCNVS = 16921 ! Total number of file lock conversions^ DECLARE LONG CONSTANT RMI$_LBLCKENQS = 16922 ! Total number of local buffer lock ENQ's^ DECLARE LONG CONSTANT RMI$_LBLCKDEQS = 16923 ! Total number of local buffer lock DEQ'sd DECLARE LONG CONSTANT RMI$_LBLCKCNVS = 16924 ! Total number of local buffer lock conversions_ DECLARE LONG CONSTANT RMI$_GBLCKENQS = 16925 ! Total number of global buffer lock ENQ's_ DECLARE LONG CONSTANT RMI$_GBLCKDEQS = 16926 ! Total number of global buffer lock DEQ'se DECLARE LONG CONSTANT RMI$_GBLCKCNVS = 16927 ! Total number of global buffer lock conversions` DECLARE LONG CONSTANT RMI$_GSLCKENQS = 16928 ! Total number of global section lock ENQ's` DECLARE LONG CONSTANT RMI$_GSLCKDEQS = 16929 ! Total number of global section lock DEQ'sf DECLARE LONG CONSTANT RMI$_GSLCKCNVS = 16930 ! Total number of global section lock conversionsW DECLARE LONG CONSTANT RMI$_RLCKENQS = 16931 ! Total number of record lock ENQ'sW DECLARE LONG CONSTANT RMI$_RLCKDEQS = 16932 ! Total number of record lock DEQ's] DECLARE LONG CONSTANT RMI$_RLCKCNVS = 16933 ! Total number of record lock conversionsY DECLARE LONG CONSTANT RMI$_APPLCKENQS = 16934 ! Total number of append lock ENQ'sY DECLARE LONG CONSTANT RMI$_APPLCKDEQS = 16935 ! Total number of append lock DEQ's_ DECLARE LONG CONSTANT RMI$_APPLCKCNVS = 16936 ! Total number of append lock conversions^ DECLARE LONG CONSTANT RMI$_FLBLKASTS = 16937 ! Total number of file lock blocking ASTsg DECLARE LONG CONSTANT RMI$_LBLBLKASTS = 16938 ! Total number of local buffer lock blocking ASTsh DECLARE LONG CONSTANT RMI$_GBLBLKASTS = 16939 ! Total number of global buffer lock blocking ASTsh DECLARE LONG CONSTANT RMI$_APPBLKASTS = 16940 ! Total number of shared append lock blocking ASTsd DECLARE LONG CONSTANT RMI$_LCACHEHITS = 16941 ! Total cache hits on buckets in local buffersi DECLARE LONG CONSTANT RMI$_LCACHETRIES = 16942 ! Total cache attempts on buckets in local bufferse DECLARE LONG CONSTANT RMI$_GCACHEHITS = 16943 ! Total cache hits on buckets in global buffersj DECLARE LONG CONSTANT RMI$_GCACHETRIES = 16944 ! Total cache attempts on buckets in global buffersl DECLARE LONG CONSTANT RMI$_GBRDIRIOS = 16945 ! Total direct IO's causes by global buffer cache readsm DECLARE LONG CONSTANT RMI$_GBWDIRIOS = 16946 ! Total direct IO's causes by global buffer cache writesk DECLARE LONG CONSTANT RMI$_LBRDIRIOS = 16947 ! Total direct IO's causes by local buffer cache readsl DECLARE LONG CONSTANT RMI$_LBWDIRIOS = 16948 ! Total direct IO's causes by local buffer cache writesg DECLARE LONG CONSTANT RMI$_BKTSPLT = 16949 ! Total number of 2 bucket splits done for this filel DECLARE LONG CONSTANT RMI$_MBKTSPLT = 16950 ! Total number of multi-bucket splits done for this file` DECLARE LONG CONSTANT RMI$_RMSOPENS = 16951 ! Total number of times file has been opened^ DECLARE LONG CONSTANT RMI$_CLOSES = 16952 ! Total number of times file has been closedS DECLARE LONG CONSTANT RMI$_GSBLKASTS = 16953 ! Global Section Blocking ASTSR DECLARE LONG CONSTANT RMI$_FLWAITS = 16954 ! File lock ENQs forced to waitU DECLARE LONG CONSTANT RMI$_LBWAITS = 16955 ! Local buffer ENQs forced to waitV DECLARE LONG CONSTANT RMI$_GBWAITS = 16956 ! Global buffer ENQs forced to waitW DECLARE LONG CONSTANT RMI$_GSWAITS = 16957 ! Global section ENQs forced to waitT DECLARE LONG CONSTANT RMI$_RLWAITS = 16958 ! Record lock ENQs forced to waitT DECLARE LONG CONSTANT RMI$_APWAITS = 16959 ! Append lock ENQs forced to waitO DECLARE LONG CONSTANT RMI$_TOTWAITS = 16960 ! Total ENQs forced to waiti DECLARE LONG CONSTANT RMI$_OUTBUFQUO = 16961 ! Number of times a process runs out of buffer quotad DECLARE LONG CONSTANT RMI$_RMSDEV1 = 16962 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV2 = 16963 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV3 = 16964 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV4 = 16965 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV5 = 16966 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV6 = 16967 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV7 = 16968 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV8 = 16969 ! Reserved for RMS development private monitoringd DECLARE LONG CONSTANT RMI$_RMSDEV9 = 16970 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV10 = 16971 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV11 = 16972 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV12 = 16973 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV13 = 16974 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV14 = 16975 ! Reserved for RMS development private monitoringe DECLARE LONG CONSTANT RMI$_RMSDEV15 = 16976 ! Reserved for RMS development private monitoringb DECLARE LONG CONSTANT RMI$_XQPQIOS = 16977 ! Number of XQP operations for this file by RMSW DECLARE LONG CONSTANT RMI$_LCACHEHITPCNT = 16978 ! Local RMS buffer hit percentX DECLARE LONG CONSTANT RMI$_GCACHEHITPCNT = 16979 ! Global RMS buffer hit percentJ DECLARE LONG CONSTANT RMI$_TOTALGET = 16980 ! Total $GET call rateJ DECLARE LONG CONSTANT RMI$_TOTALPUT = 16981 ! Total $PUT call rateL DECLARE LONG CONSTANT RMI$_TOTALFIND = 16982 ! Total $FIND call rateD DECLARE LONG CONSTANT RMI$_BYTESGET = 16983 ! Bytes per $GETD DECLARE LONG CONSTANT RMI$_BYTESPUT = 16984 ! Bytes per $PUTJ DECLARE LONG CONSTANT RMI$_BYTESUPDATE = 16985 ! Bytes per $UPDATEF DECLARE LONG CONSTANT RMI$_BYTESREAD = 16986 ! Bytes per $READH DECLARE LONG CONSTANT RMI$_BYTESWRITE = 16987 ! Bytes per $WRITEO DECLARE LONG CONSTANT RMI$_BLOCKSTRUNCATE = 16988 ! Bytes per $TRUNCATEK DECLARE LONG CONSTANT RMI$_BLOCKSEXTEND = 16989 ! Bytes per $EXTENDS DECLARE LONG CONSTANT RMI$_ACTIVE_STREAMS = 16990 ! Active connects to fileF DE CLARE LONG CONSTANT RMI$_TOTAL_ENQS = 16991 ! Total new ENQsB DECLARE LONG CONSTANT RMI$_TOTAL_DEQS = 16992 ! Total DEQsM DECLARE LONG CONSTANT RMI$_TOTAL_CNVS = 16993 ! Total ENQ conversionsM DECLARE LONG CONSTANT RMI$_TOTAL_BLKAST = 16994 ! Total blocking ASTsA DECLARE LONG CONSTANT RMI$_RMS_ORG = 16995 ! RMS File orgj DECLARE LONG CONSTANT RMI$_INTCOL_HSHTBL = 16996 ! Interlock collision on global buffer hash tablec DECLARE LONG CONSTANT RMI$_INTCO!L_GBH = 16997 ! Interlock Collision on global buffer headerj DECLARE LONG CONSTANT RMI$_INTRES_SETIMR = 16998 ! Interlock Collision resolved by call to $SETIMRj DECLARE LONG CONSTANT RMI$_INTNOTRES = 16999 ! Interlock collision not resolved by call to $SETIMRL DECLARE LONG CONSTANT RMI$_RESERVEDRMS5 = 17000 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS6 = 17001 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS7 = 17002 ! Reserved RMS" itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS8 = 17003 ! Reserved RMS itemsL DECLARE LONG CONSTANT RMI$_RESERVEDRMS9 = 17004 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS10 = 17005 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS11 = 17006 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS12 = 17007 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS13 = 17008 ! Reserved RMS itemsM DECLARE LONG CON#STANT RMI$_RESERVEDRMS14 = 17009 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS15 = 17010 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS16 = 17011 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS17 = 17012 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS18 = 17013 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS19 = 17014 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS20 =$ 17015 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS21 = 17016 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS22 = 17017 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS23 = 17018 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS24 = 17019 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS25 = 17020 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS26 = 17021 ! Reserved RMS it%emsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS27 = 17022 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS28 = 17023 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS29 = 17024 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS30 = 17025 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS31 = 17026 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS32 = 17027 ! Reserved RMS itemsM DECLARE LONG C&ONSTANT RMI$_RESERVEDRMS33 = 17028 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS34 = 17029 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS35 = 17030 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS36 = 17031 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS37 = 17032 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS38 = 17033 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS39' = 17034 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS40 = 17035 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS41 = 17036 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS42 = 17037 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS43 = 17038 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS44 = 17039 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS45 = 17040 ! Reserved RMS (itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS46 = 17041 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS47 = 17042 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS48 = 17043 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS49 = 17044 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS50 = 17045 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS51 = 17046 ! Reserved RMS itemsM DECLARE LONG) CONSTANT RMI$_RESERVEDRMS52 = 17047 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS53 = 17048 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS54 = 17049 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS55 = 17050 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS56 = 17051 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS57 = 17052 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS*58 = 17053 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS59 = 17054 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS60 = 17055 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS61 = 17056 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS62 = 17057 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS63 = 17058 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS64 = 17059 ! Reserved RM+S itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS65 = 17060 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS66 = 17061 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS67 = 17062 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS68 = 17063 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS69 = 17064 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS70 = 17065 ! Reserved RMS itemsM DECLARE LO,NG CONSTANT RMI$_RESERVEDRMS71 = 17066 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS72 = 17067 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS73 = 17068 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS74 = 17069 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS75 = 17070 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS76 = 17071 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDR-MS77 = 17072 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS78 = 17073 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS79 = 17074 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS80 = 17075 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS81 = 17076 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS82 = 17077 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS83 = 17078 ! Reserved .RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS84 = 17079 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS85 = 17080 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS86 = 17081 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS87 = 17082 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS88 = 17083 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS89 = 17084 ! Reserved RMS itemsM DECLARE /LONG CONSTANT RMI$_RESERVEDRMS90 = 17085 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS91 = 17086 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS92 = 17087 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS93 = 17088 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS94 = 17089 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS95 = 17090 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVE0DRMS96 = 17091 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS97 = 17092 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS98 = 17093 ! Reserved RMS itemsM DECLARE LONG CONSTANT RMI$_RESERVEDRMS99 = 17094 ! Reserved RMS itemsN DECLARE LONG CONSTANT RMI$_RESERVEDRMS100 = 17095 ! Reserved RMS items\ DECLARE LONG CONSTANT RMI$_LASTRMS = 17096 ! Last item in the monitor specific table ! P ! Add new data items specific to MONITO 1R (not collected by the RMI on a per$ ! item basis) above this point. ! 0 DECLARE LONG CONSTANT RMI$_tablesize = 712 ! * ! End of MONITOR specific data items. ! 6 DECLARE LONG CONSTANT RMI$s_rmi$scs_offsets = 56D record rmi$scs_offsets ! SCS class information? BASIC$QUADWORD RMI$q_scs_nodename ! System node nameI LONG RMI$l_scs_dgsent ! Application datagrams sentM LONG RMI$l_scs_dgrcvd 2! Application datagrams receivedN LONG RMI$l_scs_dgdiscard ! Application datagrams discardedH LONG RMI$l_scs_msgsent ! Application messages sentL LONG RMI$l_scs_msgrcvd ! Application messages receivedI LONG RMI$l_scs_snddats ! Block send datas initiatedI LONG RMI$l_scs_kbytsent ! Kbytes sent via send datasL LONG RMI$l_scs_reqdats ! Block request datas initiatedP 3 LONG RMI$l_scs_kbytreqd ! Kbytes received via request datasP LONG RMI$l_scs_kbytmapd ! Kbytes mapped for block transfersV LONG RMI$l_scs_qcr_cnt ! Times connection queued for send credit\ LONG RMI$l_scs_qbdt_cnt ! Times connection queued for buffer descriptor end record rmi$scs_offsets a DECLARE LONG CONSTANT RMI$c_scs_minsize = 56 ! Size of one collection block for scs class7 DECLARE LONG CONSTANT 4RMI$s_rmi$disk_offsets = 37I record rmi$disk_offsets ! DISK class information for ! current revision level? WORD RMI$w_disk_alloclass ! Allocation class: LONG RMI$l_disk_devname ! Device name: WORD RMI$w_disk_unitnum ! Unit numberX BYTE RMI$b_disk_flags ! Flags byte (low bit indicates served disk8 BASIC$QUADWORD RMI$q_disk_nodename ! NodenameD BASIC$QUADWORD RMI$q_disk 5_volnamel ! Volume name ( low )D LONG RMI$l_disk_volnameh ! Volume name ( high )> LONG RMI$l_disk_optcnt ! Operation countG LONG RMI$l_disk_qcount ! Queue length accumulator! end record rmi$disk_offsets I DECLARE LONG CONSTANT RMI$c_disk_minsize = 37 ! Size of one block< DECLARE LONG CONSTANT RMI$s_rmi$disk_offsets_rev4 = 36E record rmi$disk_offsets_rev4 ! DISK class information ! for6 "revision level 4"? BYTE RMI$b_disk_alloclass_rev4 ! Allocation class: LONG RMI$l_disk_devname_rev4 ! Device name: WORD RMI$w_disk_unitnum_rev4 ! Unit numberX BYTE RMI$b_disk_flags_rev4 ! Flags byte (low bit indicates served disk= BASIC$QUADWORD RMI$q_disk_nodename_rev4 ! NodenameI BASIC$QUADWORD RMI$q_disk_volnamel_rev4 ! Volume name ( low )D LONG RMI$l_disk_volnameh_rev4 ! Volume name ( high ) 7> LONG RMI$l_disk_optcnt_rev4 ! Operation countG LONG RMI$l_disk_qcount_rev4 ! Queue length accumulator& end record rmi$disk_offsets_rev4 N DECLARE LONG CONSTANT RMI$c_disk_minsize_rev4 = 36 ! Size of one block5 DECLARE LONG CONSTANT RMI$s_rmi$proc_class = 67I record rmi$proc_class ! PROCESSES Class Data Block; LONG RMI$l_proc_ipid ! Internal PIDP LONG RMI$l_proc_uic ! 8 UIC ( Member is low-order word ): WORD RMI$w_proc_state ! State valueK BYTE RMI$b_proc_pri ! Priority ( negative value )O BASIC$OCTAWORD RMI$o_proc_lname ! Process name ( counted string )@ LONG RMI$l_proc_gpgcnt ! Global page countA LONG RMI$l_proc_ppgcnt ! Process page count@ LONG RMI$l_proc_sts ! PCB Status Vector- ! (PCB$V_RES bit clear => swapped out)? 9 LONG RMI$l_proc_diocnt ! Direct I/O count? LONG RMI$l_proc_pageflts ! Page fault countQ LONG RMI$l_proc_cputim ! Accumulated CPU time ( in ticks )A LONG RMI$l_proc_biocnt ! Buffered I/O count; LONG RMI$l_proc_epid ! Extended PIDS LONG RMI$l_proc_efwm ! Event flag wait mask ( for MWAITs )L LONG RMI$l_proc_rbstran ! Real balance slot transitions! ! Size of process data block end record rmi$proc_class 3 DECLARE LONG CONSTANT RMI$c_proc_minsize = 67 ww;`uPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI<NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET= %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  F DECLARE LONG CONSTANT rnhblk$k_LENGTH = 20 ! length of overheadF DECLARE LONG CONSTANT rnhblk$c_LENGTH = 20 ! length of overhead3 DECLARE LONG CONSTANT RNHBLK$S_RNHBLKDEF = 20 reco rd RNHBLKDEF: LONG RNHBLK$L_FLNK ! forward link= LONG RNHBLK$L_HANDLER ! handler address6 LONG RNHBLK$L_FILL_1 ! reserved< LONG RNHBLK$L_ARGCNT ! argument countG LONG RNHBLK$L_EVENT ! address of the event code end record RNHBLKDEF  ww?`]8vPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI@NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETA %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  M DECLARE LONG CONSTANT RSDM$_JOIN_SYSTEM = 1 ! System RD Join functionW DECLARE LONG CONSTANT RSDM$_JOIN_DEFAULT = 2 ! Process default RD Join functionL DECLARE LONG CONSTANT RSDM$_JOIN B_DOMAIN = 3 ! Other RD Join functionA DECLARE LONG CONSTANT RSDM$_LEAVE = 4 ! Leave RD function5 DECLARE LONG CONSTANT RSDM$K_SYSTEM_RSDM_ID = 1 ! System RSDM_ID6 DECLARE LONG CONSTANT RSDM$K_PROCESS_RSDM_ID = 2 ! Process RSDM_ID ! + ! RSDM$ bitfields  ! -5 DECLARE LONG CONSTANT RSDM$M_READ = x'00000001'6 DECLARE LONG CONSTANT RSDM$M_WRITE = x'00000002'5 DECLARE LONG CONSTANT RSDM$M_LOCK = x'00000004'/ DECLARE LONG CONSTCANT RSDM$S_RSDMBITS = 4 record RSDMBITS variant case" group RSDM$r_fill_0 variant case, LONG RSDM$L_MISC_ACCESS case( group RSDM$r_fill_1' ! Read access( ! Write access' ! Lock accessm BYTE READ_bits ! COMMENT ADDED BY SDL - READ_bits contains bits READ through fill_2, end group RSDM$r_fill_1 end variant& end group RSDM$r_fill_0 end variant end record RSDMBITS  wwE"vPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIFNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETG %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! L ! Statistics block. This block is used to report various data regarding. ! an open file to the requesting program. !  ! - ! O ! The first two longwords are preHsented in inverted form for compatibility, ! with the old RSX-11 statistics block. ! - DECLARE LONG CONSTANT SBK$K_LENGTH = 32- DECLARE LONG CONSTANT SBK$C_LENGTH = 32- DECLARE LONG CONSTANT SBK$S_SBKDEF = 32 record SBKDEF" group SBK$R_STLBN_OVERLAY variant caseJ LONG SBK$L_STLBN ! starting LBN if contiguous  case* group SBK$R_STLBN_FIELDS? I WORD SBK$W_STLBNH ! high order word > WORD SBK$W_STLBNL ! low order word . end group SBK$R_STLBN_FIELDS end variant& end group SBK$R_STLBN_OVERLAY% group SBK$R_FILESIZE_OVERLAY variant case9 LONG SBK$L_FILESIZE ! file size  case- group SBK$R_FILESIZE_FIELDS? WORD SBK$W_FILESIZH ! high order word > J WORD SBK$W_FILESIZL ! low order word  ! < ! The following two fields are for RSX-11 compatibility ! 1 end group SBK$R_FILESIZE_FIELDS end variant) end group SBK$R_FILESIZE_OVERLAYH BYTE SBK$B_ACNT ! low byte of access count F BYTE SBK$B_LCNT ! low byte of lock count M LONG SBK$L_FCB ! address of file control block 5 WORD SBKDKEF$$_FILL_1 ! spare < WORD SBK$W_ACNT ! access count O WORD SBK$W_LCNT ! lock count ( against writers ) < WORD SBK$W_WCNT ! writer count C WORD SBK$W_TCNT ! truncate lock count R LONG SBK$L_READS ! count of reads executed on channel S LONG SBK$L_WRITES ! count of writes executed on channel  end record SBKDEF  wwo$TPADEF$TRMDEF$TT2DEF$TT3DEF$TTCDEF$TTDEF $TTYDPORTDEF $UAF070DEF$UAIDEF$UICDEF$UIDDEF $USGDEF$USRIDEF$VAERDEFv$VAXDEF$VPSRDEF $XABALLDEF7  $XABCXFDEF@  $XABCXRDEF $XABDATDEF$XABDEF $XABFHCDEFT  $XABITMDEFK  $XABJNLDEFNNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETO %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! " ! item codes for sd$xxx calls ! X DECLARE LONG CONSTANT SD$_MAJOR_ID = 1 ! longword ( major ODS version number )X DECLARE LONG CONSTANT SD$_MINOR_ID = 2 ! longword ( minoPr ODS version number )S DECLARE LONG CONSTANT SD$_POOL_ID = 3 ! UID ( 16 bytes ) (Pool identifier)d DECLARE LONG CONSTANT SD$_CREATION_DATE = 4 ! Date/time ( 8 bytes ) (Date pool was created)t DECLARE LONG CONSTANT SD$_MODIFIED_DATE = 5 ! Date/time ( 8 bytes ) (Date pool membership was last changed)d DECLARE LONG CONSTANT SD$_SEGMENT_SIZE = 6 ! longword ( Size of segment in pool # blocks )b DECLARE LONG CONSTANT SD$_MAX_UNITS = 7 ! longword ( Maximum # mQembers allowed in pool )e DECLARE LONG CONSTANT SD$_UNIT_COUNT = 8 ! longword ( Number of members currently in pool )N DECLARE LONG CONSTANT SD$_POOL_OPTIONS = 9 ! longword ( Pool flags )_ DECLARE LONG CONSTANT SD$_UNIT_ID = 10 ! UID ( 16 bytes ) (Identifier of storage unit)W DECLARE LONG CONSTANT SD$_UNIT_NUMBER = 11 ! longword ( Storage unit number )W DECLARE LONG CONSTANT SD$_UNIT_OPTIONS = 12 ! longword ( Storage unit flags )a DECLARE LONGR CONSTANT SD$_SEQUENCE_NUMBER = 13 ! longword ( Homeblock sequence number )e DECLARE LONG CONSTANT SD$_HIGHEST_UNIT = 14 ! longword ( Number of highest member in pool )c DECLARE LONG CONSTANT SD$_LOWEST_UNIT = 15 ! longword ( Number of lowest member in pool )a DECLARE LONG CONSTANT SD$_TOTAL_SEGMENTS = 16 ! longword ( Total # of segment in pool )f DECLARE LONG CONSTANT SD$_FREE_SEGMENTS = 17 ! longword ( Total # of free segments in pool )h DECLARE SLONG CONSTANT SD$_MAX_FAMILY = 18 ! longword ( Maximum # of families allowed in pool )^ DECLARE LONG CONSTANT SD$_MAX_DISK = 19 ! longword ( Maximum # members in a family )_ DECLARE LONG CONSTANT SD$_META_LBN = 20 ! longword ( Start of SD metadata on member )_ DECLARE LONG CONSTANT SD$_META_SIZE = 21 ! longword ( Size of SD metadata on member )^ DECLARE LONG CONSTANT SD$_DATA_LBN = 22 ! longword ( Start of pool space on member )^ DECLARE LONG CONSTANTT SD$_DATA_SIZE = 23 ! longword ( Size of pool space on member )^ DECLARE LONG CONSTANT SD$_POOL_DEVICE = 24 ! character string ( Name of pool device )b DECLARE LONG CONSTANT SD$_FAMILY_NUMBER = 25 ! longword ( Familiy number of a SnapDisk )h DECLARE LONG CONSTANT SD$_MEMBER_NUMBER = 26 ! longword ( Number within family of a SnapDisk )] DECLARE LONG CONSTANT SD$_DISK_NAME = 27 ! character string ( Name of SnapDisk )a DECLARE LONG CONSTANT SD$_DISK_CUAPACITY = 28 ! longword ( Size/capacity of a SnapDisk )v DECLARE LONG CONSTANT SD$_DELSPACE = 29 ! longword ( # segments that can be recovered by deleting SnapDisk )q DECLARE LONG CONSTANT SD$_DISK_DEVICE = 30 ! character string ( Name of device as bound to OpenVMS )v DECLARE LONG CONSTANT SD$_BACKUP_DATE = 31 ! Date/time ( 8 bytes ) (Date that recorded snap was last created)_ DECLARE LONG CONSTANT SD$_READS = 32 ! longword ( Number of read received fromV user )b DECLARE LONG CONSTANT SD$_WRITES = 33 ! longword ( Number of writes received from user )i DECLARE LONG CONSTANT SD$_SPLIT_READS = 34 ! longword ( Number of reads that were split by SD )k DECLARE LONG CONSTANT SD$_SPLIT_WRITES = 35 ! longword ( Number of writes that were split by SD )k DECLARE LONG CONSTANT SD$_DISK_READS = 36 ! longword ( Number of reads to underlying pool units )m DECLARE LONG CONSTANT SD$_DISK_WRITES = 37 ! longword ( NuWmber of writes to underlying pool units )d DECLARE LONG CONSTANT SD$_COPY_OUTS = 38 ! longword ( Number of copy-on-write operations )t DECLARE LONG CONSTANT SD$_CONVERT_CANCELS = 39 ! longword ( Number of cancelled lock requests ){ DECLARE LONG CONSTANT SD$_POOL_FULL_STALLS = 40 ! longword ( NUmber of requests stalled by pool full )8 DECLARE LONG CONSTANT SD$_SPARE1 = 41 ! longword8 DECLARE LONG CONSTANT SD$_SPARE2 = 42 ! longword8X DECLARE LONG CONSTANT SD$_SPARE3 = 43 ! longword8 DECLARE LONG CONSTANT SD$_SPARE4 = 44 ! longword8 DECLARE LONG CONSTANT SD$_SPARE5 = 45 ! longword8 DECLARE LONG CONSTANT SD$_SPARE6 = 46 ! longword8 DECLARE LONG CONSTANT SD$_SPARE7 = 47 ! longword8 DECLARE LONG CONSTANT SD$_SPARE8 = 48 ! longwordX DECLARE LONG CONSTANT SD$_COPY_STATS = 49 ! Array of SD$K_COPYCOUNTERS longwordst DECLARE LONG CONSTANT SD$_DEV_LOCKID = 50 ! longword Y ( LockId of device name consistancy lock )q DECLARE LONG CONSTANT SD$_UID_LOCKID = 51 ! longword ( LockId of UID name consistancy lock )2 DECLARE LONG CONSTANT SD$K_COPYCOUNTERS = 24 ! ) ! options and flags for RTL routines ! 3 DECLARE LONG CONSTANT SD$M_CONTAINER_DISK = 13 DECLARE LONG CONSTANT SD$M_CONVERTED_DISK = 2 ! 1 ! Function codes for cluster-server requests ! 2 DECLARE LONG CONSTANT SD$K_CLU_BIND_POOL = 12Z DECLARE LONG CONSTANT SD$K_CLU_BIND_DISK = 2/ DECLARE LONG CONSTANT SD$K_CLU_UNBIND = 3 ! I ! Define structures used by QIO interface to SD management functions ! ! ++ ! Device list ! 9 ! This structure is used to pass information between: ! the runtime library, the FDT routines and the start ! I/O routines ! --/ DECLARE LONG CONSTANT sd$S_SDDEVLIST = 88 record SDDEVLISTI LONG sd$l_start_lbn [! Starting LBN of data spaceA LONG sd$l_lbn_count ! Size of data spaceL LONG sd$l_meta_lbn ! Location of SnapDisk metadataD LONG sd$l_meta_count ! Size of metadata area? LONG sd$ps_ucb ! UCB of pool unitD LONG sd$l_name_length ! Length of device name= STRING sd$t_name ( 1 to 64 ) = 1 ! Device name end record SDDEVLIST  ! A ! SD Parame \ter list - This is used to pass Snapshot Services= ! parameters/characteristics between the runtime library ! and the I/O functions ! 4 DECLARE LONG CONSTANT sd$m_stall = x'00000001'8 DECLARE LONG CONSTANT sd$m_redundant = x'00000002'5 DECLARE LONG CONSTANT sd$m_record = x'00000004'6 DECLARE LONG CONSTANT sd$m_cluster = x'00000008'6 DECLARE LONG CONSTANT sd$m_partial = x'00000010'0 DECLARE LONG CONSTANT sd$S_SDPARAMLIST = 8 record SDPARAMLI]ST group sd$r_size_overlay variant caseM LONG sd$l_segment_size ! Segment size for copy-on-write caseH LONG sd$l_disk_size ! Disk size for create/disk end variant$ end group sd$r_size_overlay! group sd$r_flags_overlay variant caseB LONG sd$l_flags ! Miscellaneous flags case' ^ group sd$r_flags_bits0 ! Stall/Fail on pool full= ! Use redundancy for SnapDisk metadata6 ! Record snapshot creation time2 ! Operation is cluster-wide- ! Partial bind on poolm BYTE stall_bits ! COMMENT ADDED BY SDL - stall_bits contains bits stall through fill_3+ end group sd$r_flags_bits end variant% end group sd$r__flags_overlay end record SDPARAMLIST  ! 5 ! IOCTL function codes - miscellaneous functions ! - DECLARE LONG CONSTANT SD$K_GET_DISK = 1. DECLARE LONG CONSTANT SD$K_GET_STATS = 2- DECLARE LONG CONSTANT SD$K_GET_UNIT = 3. DECLARE LONG CONSTANT SD$K_POOL_DISK = 4. DECLARE LONG CONSTANT SD$K_POOL_INFO = 5. DECLARE LONG CONSTANT SD$K_POOL_UNIT = 6- DECLARE LONG CONSTANT SD$K_CLU_TEST = 72 DECLARE LONG CONSTANT SD$K_STORE_LOCKIDS` = 85 DECLARE LONG CONSTANT SD$K_RETRIEVE_LOCKIDS = 99 DECLARE LONG CONSTANT SD$K_RETRIEVE_MEMBERLIST = 105 DECLARE LONG CONSTANT SD$K_SET_TRACE_LEVEL = 115 DECLARE LONG CONSTANT SD$K_GET_TRACE_LEVEL = 12 ! 9 ! Define Snapshot Services runtime library functions !  !  ! ++ !  ! ROUTINE: ! * ! sd$add_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Add additioanal storage units to an existing pool@ ! This function takes care of all the creation of container4 ! files etc. for the storage units being added. !  ! FORMAL PARAMETERS: ! 7 ! POOL_DEVICE (IN) : Name of device to add members; ! UNIT_LIST (IN) : Item List 3 containing Device listR ! FLAGS (IN) : Indicates temporary or permanent pool member !  !  ! PRE-CONDITIONS: ! = ! The set of devices must be mounted asb Files-11 devices !  ! POST-CONDITIONS: ! B ! The new storage units are added as new members to the pool.I ! All current and new members are stamped with a new membership list !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! , EXTERNAL LONG FUNCTION sd$add_units & ( &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  c! ++ !  ! ROUTINE: ! > ! sd$bind_disk DISK_DEVICE, POOL_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine= ! Export a SnappyDisk from the pool as an OpenVMS device !  ! FORMAL PARAMETERS: ! 7 ! DISK_DEVICE (IN) : Name of disk device to create4 ! POOL_DEVICE (IN) : Name of pool device to use9 ! DISK_NAME (IN) : Name of disk to export from pool0 ! FLAGS (IN) : Optional flags SD$Md_CLUSTER !  ! PRE-CONDITIONS: !  ! The pool must be bound.2 ! The SnappyDisk name must exist in the pool.O ! The SnappyDisk must not be bound to a device on another computer in the  ! cluster.K ! Another SnappyDisk must not be bound to the specified device on any  ! computer in the cluster. !  ! POST-CONDITIONS: ! 5 ! The SnappyDisk is exposed as an OpenVMS device !  ! RETURN VALUE: !  ! Various statusese !  ! -- ! , EXTERNAL LONG FUNCTION sd$bind_disk & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! 1 ! sd$bind_pool POOL_DEVICE, UNIT_LIST, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine9 ! Rebind a pool from a set of devices that hafve been$ ! previously created as a pool.@ ! This function takes care of all the location of container ! files, driver loading. !  ! FORMAL PARAMETERS: ! 2 ! POOL_DEVICE (IN) : Name of device to createC ! UNIT_LIST (IN) : Itemlist3 containing list of storage units0 ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! = ! The storage units must be mounted as Files-11 devices.I ! The storage units must have been gpreviously used to create a pool.J ! The list of storage units must not include storage units in another ! pool.I ! The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONS: ! C ! A pool is rebound and exported as the specified pool_device. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! , EXTERNAL LONG FUNCTION sd$bind_pool & ( &% ShTRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! ; ! sd$create_disk POOL_DEVICE, DISK_NAME, DISK_CAPACITY !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Create a SnappyDisk in a pool !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to use5 ! DISK_NAME (IN) : Name of SnappyDisk to createB ! i DISK_CAPACITY (IN) : Size in blocks of SnappyDisk to create !  ! PRE-CONDITIONS: !  ! The pool must be bound.> ! The SnappyDisk name must not already exist in the pool.N ! The pool must have enough free space to create a SnappyDisk of the size ! specified. !  ! POST-CONDITIONS: ! @ ! A new SnappyDisk, named disk_name, is created in the pool !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! . EXTEjRNAL LONG FUNCTION sd$create_disk & ( &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! 7 ! sd$create_pool UNIT_LIST, SEGMENT_SIZE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  ! 1 ! Create a pool from a set of storage units.@ ! This function takes care of all the creation of containerD ! files and driver loading thkat needs to be done before calling ! the IO$_BIND function. !  ! FORMAL PARAMETERS: ! E ! UNIT_LIST (IN) : Item list 3 containing list of storage units< ! SEGMENT_SIZE (IN) : Size of segments in pool (blocks)9 ! FLAGS (IN) : Optional flags SD$M_STALL, SD$M_FAIL !  ! PRE-CONDITIONS: ! M ! The storage units must be initialised and mounted as Files-11 devices.J ! The list of storage units must not include storage units in another l! pool.I ! The list of storage units must not include a SnappyDisk bound to a ! device. !  ! POST-CONDITIONS: ! 2 ! A new pool is created on the storage units.C ! The storage units are stamped as belonging to the same pool. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! . EXTERNAL LONG FUNCTION sd$create_pool & ( &" LONG BY REF, &$ LONG BY VALUE, &# m LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! @ ! sd$create_snap POOL_DEVICE, DISK_DEVICE, DISK_NAME, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine. ! Create a snap of an existing SnappyDisk !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to useC ! DISK_DEVICE (IN) : Name of SnappyDisk device to use as basis ! for snap5 ! DISK_NAME (INn) : Name of SnappyDisk to create9 ! FLAGS (IN) : Should we record time snap was taken8 ! for incremental backup purposes, SD$M_RECORD !  ! PRE-CONDITIONS: !  ! The pool must be bound; ! The original SnappyDisk must be exported as a device !  ! POST-CONDITIONS: ! N ! A new SnappyDisk is created in the pool. That SnappyDisk will be a snap8 ! of the original SnappyDisk specified in the call. !  ! RETURN VALUE: ! o ! Various statuses !  ! -- ! . EXTERNAL LONG FUNCTION sd$create_snap & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! , ! sd$delete_disk POOL_DEVICE, DISK_NAME !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Delete a SnapDisk from pa pool !  ! FORMAL PARAMETERS: ! 4 ! POOL_DEVICE (IN) : Name of pool device to use5 ! DISK_NAME (IN) : Name of SnappyDisk to delete !  ! PRE-CONDITIONS: !  ! The pool must be bound1 ! The SnappyDisk name must exist in the poolO ! The SnappyDisk named must not be bound to a device on the local computer !  ! POST-CONDITIONS: ! . ! The SnappyDisk is deleted from the pool !  ! RETURN VALUE: !  ! Varqious statuses !  ! -- ! . EXTERNAL LONG FUNCTION sd$delete_disk & ( &% STRING BY DESC, &$ STRING BY DESC & ) !  ! ++ !  ! ROUTINE: ! - ! sd$remove_units POOL_DEVICE, UNIT_LIST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine$ ! Removes members from a pool. F ! If the members are successfully removed, the metadata files are ! r removed from the devices. !  ! FORMAL PARAMETERS: ! : ! POOL_DEVICE (IN) : Name of device to remove membersE ! UNIT_LIST (IN) : Item list 3 containing list of storage units !  ! PRE-CONDITIONS: ! D ! The list of storage units must be part of the specified pool.L ! The pool must contain enough free space to allow data on the outgoingE ! storage units to be copied to other storage units in the pool.I ! The list of storage units must not bes the complete set of units in ! the pool. !  ! POST-CONDITIONS: ! : ! The remaining members are updated with the new pool ! membership list. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! / EXTERNAL LONG FUNCTION sd$remove_units & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! & ! sd$unbind VIRTUtAL_DEVICE, FLAGS !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine! ! Unbind a pool or SnapDisk. !  ! FORMAL PARAMETERS: ! 5 ! VIRTUAL_DEVICE (IN) : Name of device to unbind0 ! FLAGS (IN) : Optional flags SD$M_CLUSTER !  ! PRE-CONDITIONS: ! O ! The pool or SnappyDisk must be bound to the device on the local computer !  ! POST-CONDITIONS: ! 8 ! The pool or SnappyDisk is unbound from the deviceu !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! ) EXTERNAL LONG FUNCTION sd$unbind & ( &% STRING BY DESC, &# LONG BY VALUE & ) !  ! ++ !  ! ROUTINE: ! & ! sd$get_disk DISK_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine. ! Get information about an exported disk.< ! The information is returvned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_BACKUP_DATE ! SD$_CREATION_DATE ! SD$_DELSPACE ! SD$_DISK_CAPACITY ! SD$_DISK_DEVICE ! SD$_DISK_NAME ! SD$_FAMILY_NUMBER ! SD$_MEMBER_NUMBER ! SD$_POOL_DEVICE !  ! FORMAL PARAMETERS: ! 3 ! DISK_DEVICE (IN) : Name of SnappyDisk device. ! ITMLST (IN): Address ofw items to return !  ! PRE-CONDITIONS: ! - ! The device must be a SnappyDisk device !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Member info returned- ! SS$_ACCVIO - Parameters not accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are invalid6 ! SS$_IVDEVNAM - ucb is not that of a pool member9x ! SS$_NOTBOUND - the member is not bound into a pool5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! + EXTERNAL LONG FUNCTION sd$get_disk & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! ' ! sd$get_pool POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine ! Get pool-wide information< y ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_CREATION_DATE ! SD$_FREE_SEGMENTS ! SD$_HIGHEST_UNIT ! SD$_LOWEST_UNIT ! SD$_MAJOR_ID ! SD$_MAX_DISK ! SD$_MAX_FAMILY ! SD$_MAX_UNITS ! SD$_MINOR_ID ! SD$_MODIFIED_DATE ! SD$_POOL_ID ! SD$_POOL_OPTIONS ! SD$_SEGMENT_SIZE ! z SD$_SEQUENCE_NUMBER ! SD$_TOTAL_SEGMENTS ! SD$_UNIT_COUNT !  ! FORMAL PARAMETERS: ! . ! POOL_DEVICE (IN) : Name of storage pool0 ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned8 ! SS$_BADPARA{M - One or more item codes are invalidD ! SS$_IVBUFLEN - One or more buffer lengths are invalid5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! + EXTERNAL LONG FUNCTION sd$get_pool & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! 2 ! sd$get_pool_begin POOL_DEVICE, POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! R|untime library routine5 ! Routine to setup context to read SnapDisk pool% ! parameters from a pool device. !  ! FORMAL PARAMETERS: ! 6 ! POOL_DEVICE (IN) : Name of pool device to query7 ! POOL_CONTEXT (IN) : Address of context to return !  ! PRE-CONDITIONS: ! ! ! The pool device must exist !  ! POST-CONDITIONS: ! D ! A context is setup to allow sd$get_pool and sd$get_pooldevice2 ! to be called to return the pool p}arameters. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! 1 EXTERNAL LONG FUNCTION sd$get_pool_begin & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! - ! sd$get_pool_disk POOL_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineM ! Routine to return the information for the next Sn~appyDisk in the pool. !  ! For example: ! ; ! status = sd$get_pool_begin(raw_device, context) ! while (success(status))5 ! status = sd$get_pool_disk(context, itmlst)- ! status = sd$get_pool_end(context) !  ! Valid item code are: !  ! SD$_BACKUP_DATE ! SD$_CREATION_DATE ! SD$_DELSPACE ! SD$_DISK_CAPACITY ! SD$_DISK_DEVICE ! SD$_DISK_NAME ! SD$_FAMILY_NUMBER ! SD$_MEMBER_NUMBER ! SD$_POOL_DEVICE !  ! FORMAL PARAMETERS: ! 2 ! POOL_CONTEXT (IN) : Address of pool context. ! ITMLST (IN): Address of items to return !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned+ ! SS$_NOMOREDEV - No more diks in pool ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_pool_disk & ( &" LONG BY REF, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! $ ! sd$get_pool_end POOL_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to tidy up the context associated with a ! sd$get_pool_begin. !  ! FORMAL PARAMETERS: ! 7 ! POOL_CONTEXT (IN) : Address of context to delete  !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- ! / EXTERNAL LONG FUNCTION sd$get_pool_end & ( &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! 0 ! sd$get_pool_unit POOL_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineC ! Routine to return the next member device making up the pool.@ ! This routine is designed to be called in a loop to return* ! all the members making up the pool. ! For example: ! ; ! status = sd$get_pool_begin(raw_device, context) ! while (success(status)): ! status = sd$get_pool_unit(context, unit_device)$ ! status = sd$get_pool_end !  ! FORMAL PARAMETERS: ! - ! POOL_CONTEXT (IN) : Address of context: ! NEXT_UNIT (OUT) : Address of descriptor to return !  ! PRE-CONDITIONS: ! > ! A context must have been started with sd$get_pool_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned& ! SS$_NOMOREDEV - No more devices% ! SS$_BADPARAM - Invalid context5 ! SS$_SDDISABLED - Snap-capable disk not loaded !  ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_pool_unit & ( &" LONG BY REF, &$ STRING BY DESC & ) !  ! ++ !  ! ROUTINE: ! 1 ! sd$get_raw_begin UNIT_DEVICE, UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to setup context to read SnappyDisk poolB ! parameters from a raw (mounted but not bound) storage unit. !  ! FORMAL PARAMETERS: ! 7 ! UNIT_DEVICE (IN) : Name of storage unit to query7 ! UNIT_CONTEXT (IN) : Address of context to return !  ! PRE-CONDITIONS: ! 6 ! The member device must be mounted but not bound !  ! POST-CONDITIONS: ! H ! A context is setup to allow sd$get_raw_info and sd$get_unitdeviceC ! to be called to return pool parameters stored on the member. !  ! RETURN VALUE: !  ! Various statuses !  ! -- ! 0 EXTERNAL LONG FUNCTION sd$get_raw_begin & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! # ! sd$get_raw_end UNIT_CONTEXT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine7 ! Routine to tidy up the context associated with a ! sd$get_raw_begin. !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context !  ! PRE-CONDITIONS: ! = ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: !  ! The context is deleted !  ! RETURN VALUE: !  ! SS$_NORMAL !  ! -- ! . EXTERNAL LONG FUNCTION sd$get_raw_end & ( &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! / ! sd$get_raw_next UNIT_CONTEXT, NEXT_UNIT !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routineC ! Routine to return the next member device making up the pool.@ ! This routine is designed to be called in a loop to return8 ! all the members in the pool making up the device. ! For example: ! : ! status = sd$get_raw_begin(raw_device, context) ! while (success(status))9 ! status = sd$get_raw_next(context, unit_device)# ! status = sd$get_raw_end  !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context9 ! NEXT_UNIT(OUT) : Address of descriptor to return !  ! PRE-CONDITIONS: ! = ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: ! " ! The next member is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned& ! SS$_NOMOREDEV - No more devices !  ! -- ! / EXTERNAL LONG FUNCTION sd$get_raw_next & ( &" LONG BY REF, &$ STRING BY DESC & ) !  ! ++ !  ! ROUTINE: ! , ! sd$get_raw_info UNIT_CONTEXT, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine& ! Get information from the member< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_CREATION_DATE ! SD$_HIGHEST_UNIT ! SD$_LOWEST_UNIT ! SD$_MAJOR_ID ! SD$_MAX_DISK ! SD$_MAX_FAMILY ! SD$_MAX_UNITS ! SD$_MINOR_ID ! SD$_MODIFIED_DATE ! SD$_POOL_ID ! SD$_POOL_OPTIONS ! SD$_SEGMENT_SIZE ! SD$_SEQUENCE_NUMBER ! SD$_UNIT_COUNT ! SD$_UNIT_ID ! SD$_UNIT_NUMBER ! SD$_UNIT_OPTIONS !  ! FORMAL PARAMETERS: ! - ! UNIT_CONTEXT (IN) : Address of context/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! = ! A context must have been started with sd$get_raw_begin !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Next member returned8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - One or more buffer lengths are invalid ! -- ! / EXTERNAL LONG FUNCTION sd$get_raw_info & ( &" LONG BY REF, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! ( ! sd$get_stats POOL_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine; ! Get monitor-type runtime statistics on a system-wide ! or per-pool basis. ! @ ! If POOL_DEVICE is NULL, this call returns the system-wide= ! statistics otherwise it returns the statistics for the ! specified pool. ! < ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_COPY_OUTS ! SD$_DISK_READS ! SD$_DISK_WRITES ! SD$_READS ! SD$_SPLIT_READS ! SD$_SPLIT_WRITES ! SD$_WRITES !  ! FORMAL PARAMETERS: ! * ! POOL_DEVICE(IN) : Pool device name/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 8 ! The SnappyDisk driver must be loaded and enabled.J ! For a non NULL pool_device, the pool must be bound to the device on ! the local computer. !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! " ! SS$_NORMAL - Stats returned- ! SS$_ACCVIO - Parameters not accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are invalid1 ! SS$_IVDEVNAM - Device is not a pool device* ! SS$_NOSUCHDEV - No such pool device5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! , EXTERNAL LONG FUNCTION sd$get_stats & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! ++ !  ! ROUTINE: ! & ! sd$get_unit UNIT_DEVICE, ITMLST !  ! FUNCTIONAL DESCRIPTION:  !  ! Runtime library routine* ! Get information about a pool member< ! The information is returned using a standard OpenVMS ! itemlist mechanism.2 ! NOTE: The itemlist must be zero terminated !  ! Valid item codes are: !  ! SD$_DATA_LBN ! SD$_DATA_SIZE ! SD$_FREE_SEGMENTS ! SD$_META_LBN ! SD$_META_SIZE ! SD$_POOL_DEVICE ! SD$_TOTAL_SEGMENTS ! SD$_UNIT_ID ! SD$_UNIT_NUMBER ! SD$_UNIT_OPTIONS !  ! FORMAL PARAMETERS: ! . ! UNIT_DEVICE (IN) : Name of storage unit/ ! ITMLST (IN) : Address of items to return !  ! PRE-CONDITIONS: ! 8 ! The storage unit must exist on the local computer !  ! POST-CONDITIONS: ! , ! The information requested is returned !  ! RETURN VALUE: ! ( ! SS$_NORMAL - Member info returned- ! SS$_ACCVIO - Parameters not accessible8 ! SS$_BADPARAM - One or more item codes are invalidD ! SS$_IVBUFLEN - one or more buffer lengths are invalid6 ! SS$_IVDEVNAM - ucb is not that of a pool member9 ! SS$_NOTBOUND - the member is not bound into a pool5 ! SS$_SDDISABLED - Snap-capable disk not loaded ! -- ! + EXTERNAL LONG FUNCTION sd$get_unit & ( &% STRING BY DESC, &! LONG BY REF & ) wwxPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +, ! PROCESS OR GLOBAL SECTION DEFINITIONS ! - ! M ! ***** L_VBN, L_WINDOW, AND B_PFC MUST BE THE SAME OFFSET VALUES AS THE2 ! ***** EQUIVALENTLY NAMED OFFSETS IN $PFLDEF  ! 3 DECLARE LONG CONSTANT SEC$M_VPX = x'003FFFFF'3 DECLARE LONG CONSTANT SEC$M_PFC = x'FF000000'3 DECLARE LONG CONSTANT SEC$M_GBL = x'00000001'3 DECLARE LONG CONSTANT SEC$M_CRF = x'00000002'4 DECLARE LONG CONSTANT SEC$M_DZRO = x'00000004'3 DECLARE LONG CONSTANT SEC$M_WRT = x'00000008'5 DECLARE LONG CONSTANT SEC$M_SHMGS = x'00000010'6 DECLARE LONG CONSTANT SEC$M_WRTMOD = x'000000C0'4 DECLARE LONG CONSTANT SEC$M_AMOD = x'00000300'8 DECL ARE LONG CONSTANT SEC$M_RESIDENT = x'00002000'4 DECLARE LONG CONSTANT SEC$M_PERM = x'00004000'6 DECLARE LONG CONSTANT SEC$M_SYSGBL = x'00008000'6 DECLARE LONG CONSTANT SEC$M_PFNMAP = x'00010000'6 DECLARE LONG CONSTANT SEC$M_EXPREG = x'00020000'7 DECLARE LONG CONSTANT SEC$M_PROTECT = x'00040000'6 DECLARE LONG CONSTANT SEC$M_PAGFIL = x'00080000'7 DECLARE LONG CONSTANT SEC$M_EXECUTE = x'00100000'9 DECLARE LONG CONSTANT SEC$M_NOPROTCHK = x'00200000':  DECLARE LONG CONSTANT SEC$M_NO_OVERMAP = x'00400000'6 DECLARE LONG CONSTANT SEC$M_INPROG = x'00800000'8 DECLARE LONG CONSTANT SEC$M_PARANOID = x'01000000'8 DECLARE LONG CONSTANT SEC$M_GRANHINT = x'02000000'- DECLARE LONG CONSTANT SEC$S_SECDEF = 24 record SECDEF group SEC$R_GSD_OVERLAY variant caseP LONG SEC$L_GSD ! GLOBAL SECTION DESCRIPTOR ADDRESS  case_ LONG SEC $L_CCB ! CHANNEL CONTROL BLOCK ADDRESS IF PROCESS SECTION  end variant$ end group SEC$R_GSD_OVERLAYI WORD SEC$W_SECXFL ! SECTION INDEX FORWARD LINK J WORD SEC$W_SECXBL ! SECTION INDEX BACKWARD LINK # group SEC$R_VPXPFC_OVERLAY variant caseJ LONG SEC$L_VPXPFC ! START VIRT PAGE INDEX ? PFC  case) group SEC$R_VPXPFC_B ITS5 ! STARTING VIRTUAL PAGE INDEX ! UNUSED , ! PAGE FAULT CLUSTER d LONG VPX_bits ! COMMENT ADDED BY SDL - VPX_bits contains bits VPX through PFC- end group SEC$R_VPXPFC_BITS case+ group SEC$R_VPXPFC_FIELDS4 BYTE SECDEF$$_FILL_5 ( 1 to 3 )A BYTE SEC$B_PFC ! PAGE FAULT CLUSTER / end gr oup SEC$R_VPXPFC_FIELDS end variant' end group SEC$R_VPXPFC_OVERLAYC LONG SEC$L_WINDOW ! WINDOW CONTROL BLOCK H LONG SEC$L_VBN ! BASE VIRTUAL BLOCK NUMBER " group SEC$R_FLAGS_OVERLAY variant caseD WORD SEC$W_FLAGS ! VARIOUS CONTROL FLAGS  case( group SEC$R_FLAGS_BITS( ! GLOBAL SECTION +  ! COPY ON REFERENCE % ! DEMAND ZERO " ! WRITABLE 6 ! SHARED MEMORY GLOBAL SECTION  ! SPARE 7 ! WRITE ACCESS MODE FOR SECTION 0 ! ACCESS MODE OF SECTION  ! SPARE ( ! RESIDENT GLOBAL+ ! PERMANENT SECTION = ! 1 = SYSTEM GLOBAL, 0 = GROUP GLOBAL  ! O ! ***** THE FOLLOWING FLAGS ARE INDICATORS FOR $MGBLSC AND $CRMPSC SYSTEMJ ! ***** SERVICE REQUESTS AND ARE NOT STORED IN THE FLAGS WORD FIELD. ! / ! MAP TO SPECIFIC PFN'S ; ! MAP INTO FIRST FREE ADDRESS SPACE : ! CHECK WRITE ACCESS MODE (WRTMOD) D ! GLOBAL SECTION HAS PAGE FILE BACKING STORE 1 ! CHECK FOR EXECUTE ACCESS1 ! INHIBIT PROTECTION CHECK 5 ! DON'T OVERMAP ADDRESS SPACE 5 ! Section creation in progress. ! Go into paranoia mode5 ! AXP granularity hint supportg LONG GBL_bits ! COMMENT ADDED BY SDL - GBL_bits contains bits GBL through fill_4, end group SEC$R_FLAGS_BITS end variant& end group SEC$R_FLAGS_OVERLAY end record SECDEF C DECLARE LONG CONSTANT SEC$K_LENG TH = 32 ! SIZE OF PSTE/GSTE C DECLARE LONG CONSTANT SEC$C_LENGTH = 32 ! SIZE OF PSTE/GSTE  ! +R DECLARE LONG CONSTANT SEC$K_MATALL = 0 ! MATCH ALWAYS, USE GLOBAL SECTION Q DECLARE LONG CONSTANT SEC$K_MATEQU = 1 ! MATCH IF ISD$L_IDENT EQU GBL ID Q DECLARE LONG CONSTANT SEC$K_MATLEQ = 2 ! MATCH IF ISD$L_IDENT LEQ GBL ID . DECLARE LONG CONSTANT SEC$S_SECDEF1 = 32 record SECDEF1) BYTE SECDEF$$_FILL_6 ( 1 to 21 )E BYTE SEC$B_AMOD  ! ACCESS MODE OF SECTION 4 WORD SECDEF$$_FILL_4 ! SPARE V LONG SEC$L_REFCNT ! COUNT OF PTE'S REFERENCING THIS SECTION J LONG SEC$L_PAGCNT ! NO. OF PAGES IN THE SECTION  ! 8 ! ***** NOTE THAT NUMBER OF LONG WORDS MUST BE EVEN ! ! ! MATCH CONTROL VIELD VALUES ! - ! BASE OF ZERO , INCR 1  end record SECDEF1  ! ' ! Definitions for $GETSECI service ! B  DECLARE LONG CONSTANT SECI$_CHAIN = 1 ! Chained item blockG DECLARE LONG CONSTANT SECI$_GSMODE = 2 ! Access mode of section7 DECLARE LONG CONSTANT SECI$_GSFLAGS = 3 ! FlagsD DECLARE LONG CONSTANT SECI$_GSNAME = 4 ! Global section nameF DECLARE LONG CONSTANT SECI$_GSIDENT = 5 ! Global section identG DECLARE LONG CONSTANT SECI$_GSRELPAG = 6 ! Relative page number ww?yPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! < ! Send to Job Controller Service ($SNDJBC) definitions. ! Y ! NOTE: New items must always be added at the end so users will not have to relink. !  !  ! Function codes ! O DECLARE LONG CONSTANT SJC$_ABORT_JOB = 1 ! Abort current job in a queueK DECLARE LONG CONSTANT SJC$_ADD_FILE = 2 ! Add a file to an open jobL DECLARE LONG CONSTANT SJC$_ALTER_JOB = 3 ! Alter parameters of a jobP DECLARE LONG CONSTANT SJC$_ALTER_QUEUE = 4 ! Alter parameters of a queueb DECLARE LONG CONSTANT SJC$_ASSIGN_QUEUE = 5 ! Assign a logical queue to an execution queue_ DECLARE LONG CONSTANT SJC$_BATCH_CHECKPOINT = 6 ! Establish a checkpoint in a batch jobM DECLARE LONG CONSTANT SJC$_BATCH_SERVICE = 7 ! LOGINOUT communicationR DECLARE LONG CONSTANT SJC$_CLOSE_DELETE = 8 ! Close and delete an open jobP DECLARE LONG CONSTANT SJC$_CLOSE_JOB = 9 ! Close and enqueue an open jobG DECLARE LONG CONSTANT SJC$_CREATE_JOB = 10 ! Create an open jobE DECLARE LONG CONSTANT SJC$_CREATE_QUEUE = 11 ! Create a queueQ DECLARE LONG CONSTANT SJC$_DEASSIGN_QUEUE = 12 ! Deassign a logical queueb DECLARE LONG CONSTANT SJC$_DEFINE_CHARACTERISTIC = 13 ! Create a characteristic definitionN DECLARE LONG CONSTANT SJC$_DEFINE_FORM = 14 ! Create a form definitionb DECLARE LONG CONSTANT SJC$_DELETE_CHARACTERISTIC = 15 ! Delete a characteristic definitionN DECLARE LONG CONSTANT SJC$_DELETE_FORM = 16 ! Delete a form definitionA DECLARE LONG CONSTANT SJC$_DELETE_JOB = 17 ! Delete a jobE DECLARE LONG CONSTANT SJC$_DELETE_QUEUE = 18 ! Delete a queueW DECLARE LONG CONSTANT SJC$_ENTER_FILE = 19 ! Enter a single file job in a queue^ DECLARE LONG CONSTANT SJC$_MERGE_QUEUE = 20 ! Requeue all jobs in one queue to anotherU DECLARE LONG CONSTANT SJC$_PAUSE_QUEUE = 21 ! Suspend processing from a queueC DECLARE LONG CONSTANT SJC$_RESET_QUEUE = 22 ! Reset a queueS DECLARE LONG CONSTANT SJC$_START_ACCOUNTING = 23 ! Start accounting managerT DECLARE LONG CONSTANT SJC$_START_QUEUE = 24 ! Start processing from a queue \  DECLARE LONG CONSTANT SJC$_START_QUEUE_MANAGER = 25 ! Start system job queue managerQ DECLARE LONG CONSTANT SJC$_STOP_ACCOUNTING = 26 ! Stop accounting managerQ DECLARE LONG CONSTANT SJC$_STOP_QUEUE = 27 ! Stop processing from a queueZ DECLARE LONG CONSTANT SJC$_STOP_QUEUE_MANAGER = 28 ! Stop system job queue managerY DECLARE LONG CONSTANT SJC$_SYNCHRONIZE_JOB = 29 ! Synchronize with job completionW DECLARE LONG CONSTANT SJC$_WRITE_ACCOUNTING = 30 ! Write user accounting recordu DECLARE LONG CONSTANT SJC$_CONTROL_DIAGNOSTICS = 31 ! Control diagnostic functions ( for internal use only )] ! (note this function code is intentionally not documented and reserved for Digital use)~ DECLARE LONG CONSTANT SJC$_DELETE_QUEUE_MANAGER = 32 ! Remove all references to specified qmgr from shared master filea DECLARE LONG CONSTANT SJC$_ALTER_FILE = 33 ! Modify the processing of a file within a jobq DECLARE LONG CONSTANT SJC$_STOP_ALL_QUEUES_ON_NODE = 34 ! Stop all batch/print job processing on the nodeb DECLARE LONG CONSTANT SJC$_DISABLE_QUEUE = 35 ! Cause all QSIs on the queue to be inactive[ DECLARE LONG CONSTANT SJC$_ENABLE_QUEUE = 36 ! Allow disabled queue to be restartedV DECLARE LONG CONSTANT SJC$_SYMBIONT_SERVICE = 37 ! Symbiont-Qman communicationR DECLARE LONG CONSTANT SJC$_JOBCTL_SERVICE = 38 ! Jobctl-Qman communication DECLARE LONG CONSTANT SJC$_ENABLE_AUTOSTART = 39 ! Start all AUTOSTART queues on node and allow queues to fail over to & ! nodes DECLARE LONG CONSTANT SJC$_DISABLE_AUTOSTART = 40 ! Prevent AUTOSTART queues from failing over to this nodek DECLARE LONG CONSTANT SJC$_SHUTDOWN_NODE = 41 ! Perform orderly shutdown of queuing system on node.h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_42 = 42 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_43 = 43 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_44 = 44 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_45 = 45 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_46 = 46 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_47 = 47 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_48 = 48 ! Reserve d for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_49 = 49 ! Reserved for Digital use ( name may change )h DECLARE LONG CONSTANT SJC$_RESERVED_FUNC_50 = 50 ! Reserved for Digital use ( name may change )O DECLARE LONG CONSTANT SJC$K_MIN_FUNC = 1 ! Minimum SNDJBC function codeP DECLARE LONG CONSTANT SJC$K_MAX_FUNC = 50 ! Maximum SNDJBC function code !  ! Item codes ! S DECLARE LONG CONSTANT SJC$_ACCOUNTING_MESSAGE = 1 ! User accounting messageY DECLARE LONG CONSTANT SJC$_ACCOUNTING_TYPES = 2 ! Mask of accounting record typesC DECLARE LONG CONSTANT SJC$_AFTER_TIME = 3 ! Hold until time2 DECLARE LONG CONSTANT SJC$_NO_AFTER_TIME = 4K DECLARE LONG CONSTANT SJC$_ALIGNMENT_MASK = 5 ! Mask alignment dataR DECLARE LONG CONSTANT SJC$_ALIGNMENT_PAGES = 6 ! Number of alignment pagesR DECLARE LONG CONSTANT SJC$_BASE_PRIORITY = 7 ! Batch process base priority: DECLARE LONG CONSTANT SJC$_BATCH = 8 ! Batch queue- DECLARE LONG CONSTANT SJC$_NO_BATCH = 9n DECLARE LONG CONSTANT SJC$_BATCH_INPUT = 10 ! LOGINOUT communication ( Retired, see SERVICE_INPUT ) DECLARE LONG CONSTANT SJC$_BATCH_OUTPUT = 11 ! For use by LOGINOUT ( for internal use only ) (Retired, see SERVICE_OUTPUT)Y ! (note this item code is intentionally not documented and reserved for Digital use)T DECLARE LONG CONSTANT SJC$_CHARACTERISTIC_NAME = 12 ! Printer char acteristic; DECLARE LONG CONSTANT SJC$_CHARACTERISTIC_NUMBER = 138 DECLARE LONG CONSTANT SJC$_NO_CHARACTERISTICS = 14Q DECLARE LONG CONSTANT SJC$_CHECKPOINT_DATA = 15 ! Batch checkpoint string8 DECLARE LONG CONSTANT SJC$_NO_CHECKPOINT_DATA = 16@ DECLARE LONG CONSTANT SJC$_CLI = 17 ! Batch process CLI, DECLARE LONG CONSTANT SJC$_NO_CLI = 18L DECLARE LONG CONSTANT SJC$_CPU_DEFAULT = 19 ! Default CPU time limit4 DECLARE LONG CONSTANT SJC$_NO_CPU_DEFAULT = 20J DECLARE LONG CONSTANT SJC$_CPU_LIMIT = 21 ! Maximum CPU time limit2 DECLARE LONG CONSTANT SJC$_NO_CPU_LIMIT = 22Q DECLARE LONG CONSTANT SJC$_CREATE_START = 23 ! Start queue after creationR DECLARE LONG CONSTANT SJC$_DELETE_FILE = 24 ! Delete file after processing4 DECLARE LONG CONSTANT SJC$_NO_DELETE_FILE = 25R DECLARE LONG CONSTANT SJC$_DESTINATION_QUEUE = 26 ! Destination queue nameH DECLARE LONG CONSTANT SJC$_DEVICE_NAME = 27 ! Output  device nameJ DECLARE LONG CONSTANT SJC$_DOUBLE_SPACE = 28 ! Double space output5 DECLARE LONG CONSTANT SJC$_NO_DOUBLE_SPACE = 29G DECLARE LONG CONSTANT SJC$_ENTRY_NUMBER = 30 ! Job entry number9 DECLARE LONG CONSTANT SJC$_ENTRY_NUMBER_OUTPUT = 31J DECLARE LONG CONSTANT SJC$_FILE_BURST = 32 ! Print file burst page4 DECLARE LONG CONSTANT SJC$_FILE_BURST_ONE = 333 DECLARE LONG CONSTANT SJC$_NO_FILE_BURST = 34L DECLARE LONG CONSTANT SJC$_FILE_COPIES = 35 ! Print n copies of fileH DECLARE LONG CONSTANT SJC$_FILE_FLAG = 36 ! Print file flag page3 DECLARE LONG CONSTANT SJC$_FILE_FLAG_ONE = 372 DECLARE LONG CONSTANT SJC$_NO_FILE_FLAG = 38S DECLARE LONG CONSTANT SJC$_FILE_IDENTIFICATION = 39 ! DVI, FID, DID of file\ DECLARE LONG CONSTANT SJC$_FILE_SETUP_MODULES = 40 ! Device control modules for file; DECLARE LONG CONSTANT SJC$_NO_FILE_SETUP_MODULES = 41W DECLARE LONG CONSTANT SJC$_FILE_SPECIFICATION = 42 ! File specification of fileN DECLARE LONG CONSTANT SJC$_FILE_TRAILER = 43 ! Print file trailer page6 DECLARE LONG CONSTANT SJC$_FILE_TRAILER_ONE = 445 DECLARE LONG CONSTANT SJC$_NO_FILE_TRAILER = 45I DECLARE LONG CONSTANT SJC$_FIRST_PAGE = 46 ! Starting page number3 DECLARE LONG CONSTANT SJC$_NO_FIRST_PAGE = 47V DECLARE LONG CONSTANT SJC$_FORM_DESCRIPTION = 48 ! Textual description of formJ DECLARE LONG CONSTANT SJC$_FORM_LENGTH = 49 ! Form length in linesX DECLARE LONG CONSTANT SJC$_FORM_MARGIN_BOTTOM = 50 ! Form bottom margin in linesY DECLARE LONG CONSTANT SJC$_FORM_MARGIN_LEFT = 51 ! Form left margin in characters[ DECLARE LONG CONSTANT SJC$_FORM_MARGIN_RIGHT = 52 ! Form right margin in charactersR DECLARE LONG CONSTANT SJC$_FORM_MARGIN_TOP = 53 ! Form top margin in lines@ DECLARE LONG CONSTANT SJC$_FORM_NAME = 54 ! Printer form1 DECLARE LONG CONSTANT SJC$_FORM_NUMBER = 55\ DECLARE LONG CONSTANT SJC$_FORM_SETUP_MODULES = 56 ! Device control modules for form; DECLARE LONG CONSTANT SJC$_NO_FORM_SETUP_MODULES = 57K DECLARE LONG CONSTANT SJC$_FORM_SHEET_FEED = 58 ! Form is sheet fed8 DECLARE LONG CONSTANT SJC$_NO_FORM_SHEET_FEED = 59H DECLARE LONG CONSTANT SJC$_FORM_STOCK = 60 ! Stock name for formK DECLARE LONG CONSTANT SJC$_FORM_TRUNCATE = 61 ! Truncate long lines6 DECLARE LONG CONSTANT SJC$_NO_FORM_TRUNCATE = 62M DECLARE LONG CONSTANT SJC$_FORM_WIDTH = 63 ! Form width in charactersC DECLARE LONG CONSTANT SJC$_FORM_WRAP = 64 ! Wrap long lines2 DECLARE LONG CONSTANT SJC$_NO_FORM_WRAP = 65P DECLARE LONG CONSTANT SJC$_GENERIC_QUEUE = 66 ! Queue is a generic queue6 DECLARE LONG CONSTANT SJC$_NO_GENERIC_QUEUE = 67b DECLARE LONG CONSTANT SJC$_GENERIC_SELECTION = 68 ! Queue can take work from generic queue: DECLARE LONG CONSTANT SJC$_NO_GENERIC_SELECTION = 69c DECLARE LONG CONSTANT SJC$_GENERIC_TARGET = 70 ! Possible execution queue for generic queue@ DECLARE LONG CONSTANT SJC$_HOLD = 71 ! Place job on hold- DECLARE LONG CONSTANT SJC$_NO_HOLD = 72H DECLARE LONG CONSTANT SJC$_JOB_BURST = 73 ! Print job burst page2 DECLARE LONG CONSTANT SJC$_NO_JOB_BURST = 74Q DECLARE LONG CONSTANT SJC$_JOB_COPIES = 75 ! Print n copies of entire jobF DECLARE LONG CONSTANT SJC$_JOB_FLAG = 76 ! Print job flag page1 DECLARE LONG CONSTANT SJC$_NO_JOB_FLAG = 77M DECLARE LONG CONSTANT SJC$_JOB_LIMIT = 78 ! Number of concurrent jobsJ DECLARE LONG CONSTANT SJC$_JOB_NAME = 79 ! Identifying name of job_ DECLARE LONG CONSTANT SJC$_JOB_RESET_MODULES = 80 ! Device control modules between jobs: DECLARE LONG CONSTANT SJC$_NO_JOB_RESET_MODULES = 81Z DECLARE LONG CONSTANT SJC$_JOB_SIZE_MAXIMUM = 82 ! Largest job accepted by printer9 DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_MAXIMUM = 83[ DECLARE LONG CONSTANT SJC$_JOB_SIZE_MINIMUM = 84 ! Smallest job accepted by printer9 DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_MINIMUM = 85] DECLARE LONG CONSTANT SJC$_JOB_SIZE_SCHEDULING = 86 ! Schedule printer queues by size< DECLARE LONG CONSTANT SJC$_NO_JOB_SIZE_SCHEDULING = 87\ DECLARE LONG CONSTANT SJC$_JOB_STATUS_OUTPUT = 88 ! Status message for submitted jobL DECLARE LONG CONSTANT SJC$_JOB_TRAILER = 89 ! Print job trailer page4 DECLARE LONG CONSTANT SJC$_NO_ JOB_TRAILER = 90F DECLARE LONG CONSTANT SJC$_LAST_PAGE = 91 ! Ending page number2 DECLARE LONG CONSTANT SJC$_NO_LAST_PAGE = 92b DECLARE LONG CONSTANT SJC$_LIBRARY_SPECIFICATION = 93 ! Filename of device control library> DECLARE LONG CONSTANT SJC$_NO_LIBRARY_SPECIFICATION = 94D DECLARE LONG CONSTANT SJC$_LOG_DELETE = 95 ! Delete log file3 DECLARE LONG CONSTANT SJC$_NO_LOG_DELETE = 96J DECLARE LONG CONSTANT SJC$_LOG_QUEUE = 97 ! Log file's print queueZ DECLARE LONG CONSTANT SJC$_LOG_SPECIFICATION = 98 ! File specification of log file: DECLARE LONG CONSTANT SJC$_NO_LOG_SPECIFICATION = 99C DECLARE LONG CONSTANT SJC$_LOG_SPOOL = 100 ! Print log file3 DECLARE LONG CONSTANT SJC$_NO_LOG_SPOOL = 101O DECLARE LONG CONSTANT SJC$_LOWERCASE = 102 ! Print on lowercase printer3 DECLARE LONG CONSTANT SJC$_NO_LOWERCASE = 103Q DECLARE LONG CONSTANT SJC$_NEW_VERSION = 104 ! Create new version of fileF DECLARE LONG CONSTANT SJC$_NEXT_JOB = 105 ! Resume at next jobC DECLARE LONG CONSTANT SJC$_NOTE = 106 ! Flag page note text. DECLARE LONG CONSTANT SJC$_NO_NOTE = 107O DECLARE LONG CONSTANT SJC$_NOTIFY = 108 ! Notify user on job completionb DECLARE LONG CONSTANT SJC$_NO_NOTIFY = 109 ! Don't notify user on completion ( for jobs ); ! Don't notify user on interruption (for print queues)Q DECLARE LONG CONSTANT SJC$_OPERATOR_REQUEST = 110 ! Operator service text: DECLARE LONG CONSTANT SJC$_NO_OPERATOR_REQUEST = 111D DECLARE LONG CONSTANT SJC$_OWNER_UIC = 112 ! Queue owner UICI DECLARE LONG CONSTANT SJC$_PAGE_HEADER = 113 ! Print page headers5 DECLARE LONG CONSTANT SJC$_NO_PAGE_HEADER = 114b DECLARE LONG CONSTANT SJC$_PAGE_SETUP_MODULES = 115 ! Device control modules for form page< DECLARE LONG CONSTANT SJC$_NO_PAGE_SETUP_MODULES = 116X DECLARE LONG CONSTANT SJC$_PAGINATE = 117 ! Paginate output with free fo rm feeds2 DECLARE LONG CONSTANT SJC$_NO_PAGINATE = 118K DECLARE LONG CONSTANT SJC$_PARAMETER_1 = 119 ! Batch job parameters2 DECLARE LONG CONSTANT SJC$_PARAMETER_2 = 1202 DECLARE LONG CONSTANT SJC$_PARAMETER_3 = 1212 DECLARE LONG CONSTANT SJC$_PARAMETER_4 = 1222 DECLARE LONG CONSTANT SJC$_PARAMETER_5 = 1232 DECLARE LONG CONSTANT SJC$_PARAMETER_6 = 1242 DECLARE LONG CONSTANT SJC$_PARAMETER_7 = 1252 DECLARE LONG CONSTANT SJC$_PARAMETER_8 = 1264  DECLARE LONG CONSTANT SJC$_NO_PARAMETERS = 127E DECLARE LONG CONSTANT SJC$_PASSALL = 128 ! Print file passall1 DECLARE LONG CONSTANT SJC$_NO_PASSALL = 129K DECLARE LONG CONSTANT SJC$_PRIORITY = 130 ! Job scheduling priorityO DECLARE LONG CONSTANT SJC$_PROCESSOR = 131 ! Filename of symbiont image3 DECLARE LONG CONSTANT SJC$_NO_PROCESSOR = 132K DECLARE LONG CONSTANT SJC$_PROTECTION = 133 ! Queue protection maskJ DECLARE LONG CONSTANT SJC$_QUEUE = 134 ! Queue on which to operated DECLARE LONG CONSTANT SJC$_QUEUE_FILE_SPECIFICATION = 135 ! File specification of queue file[ DECLARE LONG CONSTANT SJC$_RELATIVE_PAGE = 136 ! Resume after forward or back space> DECLARE LONG CONSTANT SJC$_REQUEUE = 137 ! Requeue jobB DECLARE LONG CONSTANT SJC$_RESTART = 138 ! Job can restart1 DECLARE LONG CONSTANT SJC$_NO_RESTART = 139P DECLARE LONG CONSTANT SJC$_RETAIN_ALL_JOBS = 140 ! Retain completed jobs8 DECLARE LONG CONSTANT SJC$_RETAIN_ERROR_JOBS = 1415 DECLARE LONG CONSTANT SJC$_NO_RETAIN_JOBS = 142S DECLARE LONG CONSTANT SJC$_SCSNODE_NAME = 143 ! Node name of execution nodeT DECLARE LONG CONSTANT SJC$_SEARCH_STRING = 144 ! Resume after finding stringD DECLARE LONG CONSTANT SJC$_SWAP = 145 ! Swap batch processes. DECLARE LONG CONSTANT SJC$_NO_SWAP = 146Z DECLARE LONG CONSTANT SJC$_TERMINAL = 147 ! Queue is a ( generic ) terminal queue2 DECLARE LONG CONSTANT SJC$_NO_TERMINAL = 148L DECLARE LONG CONSTANT SJC$_TOP_OF_FILE = 149 ! Resume at top of file{ DECLARE LONG CONSTANT SJC$_USER_IDENTIFICATION = 150 ! Proxy user identification ( not supported and is obsolete )Y ! (note this item code is intentionally not documented and reserved for Digital use)H DECLARE LONG CONSTANT SJC$_WSDEFAULT = 151 ! Working set default3 DECLARE LONG CONSTANT SJC$_NO_WSDEFAULT = 152F DECLARE LONG CONSTANT SJC$_WSEXTENT = 153 ! Working set extent2 DECLARE LONG CONSTANT SJC$_NO_WSEXTENT = 154D DECLARE LONG CONSTANT SJC$_WSQUOTA = 155 ! Working set quota1 DECLARE LONG CONSTANT SJC$_NO_WSQUOTA = 156i DECLARE LONG CONSTANT SJC$_ACCOUNT_NAME = 157 ! Proxy account name ( requires CMKRNL privilege )W DECLARE LONG CONSTANT SJC$_UIC = 158 ! Proxy UIC ( requires CMKRNL privilege )a DECLARE LONG CONSTANT SJC$_USERNAME = 159 ! Proxy username ( requires CMKRNL privilege )X DECLARE LONG CONSTANT SJC$_BUFFER_COUNT = 160 ! Multibuffer count for queue fileh DECLARE LONG CONSTANT SJC$_EXTEND_QUANTITY = 161 ! Allocation and extend quantity for queue filed DECLARE LONG CONSTANT SJC$_RECORD_BLOCKING = 162 ! Symbiont record blocking of output stream9 DECLARE LONG CONSTANT SJC$_NO_RECORD_BLOCKING = 163 DECLARE LONG CONSTANT SJC$_QUEMAN_RESTART = 164 ! qualifier on SJC$_START_QUEUE_MANAGER, restart queue manager after an & ! abort8 DECLARE LONG CONSTANT SJC$_NO_QUEMAN_RESTART = 165T DECLARE LONG CONSTANT SJC$_DEFAULT_FORM_NAME = 166 ! Default queue form nameX DECLARE LONG CONSTANT SJC$_DEFAULT_FORM_NUMBER = 167 ! Default queue form number~ DECLARE LONG CONSTANT SJC$_SECURITY_CLASSIFICATION = 168 ! Used by SeVMS to specify security classification of the jobY ! (note this item code is intentionally not documented and reserved for Digital use)M DECLARE LONG CONSTANT SJC$_QUEUE_SUPPORT = 169 ! Queue Support Images DECLARE LONG CONSTANT SJC$_JOB_COMPLETION_STATUS = 170 ! Status of completed job - this buffer is used instead of IOSB & ! when specified DECLARE LONG CONSTANT SJC$_DIAGNOSTIC_BUFFER_OUTPUT = 171 ! Job controller's in-memory diagnostic buffer (for internal & ! use only)Y ! (note this item code is intentionally not documented and reserved for Digital use)W DECLARE LONG CONSTANT SJC$_OPEN_QUEUE = 172 ! Open queue - allow job submission` DECLARE LONG CONSTANT SJC$_CLOSE_QUEUE = 173 ! Close queue - do not allow job submission> DECLARE LONG CONSTANT SJC$_SERVER = 174 ! Server queue@ DECLARE LONG CONSTANT SJC$_PRINTER = 175 ! Printer queueu DECLARE LONG CONSTANT SJC$_UPDATE_ORB = 176 ! Update ORB information in queue file ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)] DECLARE LONG CONSTANT SJC$_NO_QUEUE_DESCRIPTION = 177 ! No queue description suppliedE DECLARE LONG CONSTANT SJC$_JOB_RETAIN = 178 ! Retain this jobT DECLARE LONG CONSTANT SJC$_JOB_ERROR_RETAIN = 179 ! Retain this job on error_ DECLARE LONG CONSTANT SJC$_JOB_DEFAULT_RETAIN = 180 ! Use queue's job retention settingo DECLARE LONG CONSTANT SJC$_NOTIFY_ON_INTERRUPT = 181 ! Notify users if their print jobs are interruptedm DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_182 = 182 ! Reserved for Digital use ( name may change )r DECLARE LONG CONSTANT SJC$_ACCEPT_ALL_ATTRIBUTES = 183 ! Inhibits queue manager validation of QSI keywordso DECLARE LONG CONSTANT SJC$_DIAGNOSTIC_FLAGS = 184 ! Diagnostic flags bitmask ( for internal use only )Y ! (note this item code is intentionally not documented and reserved for Digital use)N DECLARE LONG CONSTANT SJC$_QUEUE_DESCRIPTION = 185 ! Queue descriptionz DECLARE LONG CONSTANT SJC$_CHECKPOINT_FREQUENCY = 186 ! Symbiont takes checkpoint at intervals of this many pages ~ DECLARE LONG CONSTANT SJC$_DISPLAY_USERNAME = 187 ! Used by DQS to pass a username to the remote system (symbol not & ! renamed)Y ! (note this item code is intentionally not documented and reserved for Digital use)V DECLARE LONG CONSTANT SJC$_FILE_NUMBER = 188 ! File sequence number within jobw DECLARE LONG CONSTANT SJC$_FILE_ATTRIBUTE = 189 ! "Keyword = ( optional ) value" for extensible attrib on fileu DECLARE LONG CONSTANT SJC$_JOB_ATTRIBUTE = 190 ! "Keyword = ( optional ) value" for extensible attrib on joby DECLARE LONG CONSTANT SJC$_QUEUE_ATTRIBUTE = 191 ! "Keyword = ( optional ) value" for extensible attrib on queuem DECLARE LONG CONSTANT SJC$_REMOVE_ATTRIBUTE = 192 ! Remove extensible attribs for queue, job, or fileS DECLARE LONG CONSTANT SJC$_QUEUE_MANAGER_NAME = 193 ! Queue manager process| DECLARE LONG CONSTANT SJC$_QUEUE_MANAGER_NODES = 194 ! Failover list of nodes on which queue manager process may run DECLARE LONG CONSTANT SJC$_AUTOSTART_ON = 195 ! Node ( s ) (and for print queues, device(s)) on which queue can be auto & ! startedl DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_196 = 196 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_197 = 197 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_198 = 198 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_199 = 199 ! Reserved for Digital use ( name may change )e DECLARE LONG CONSTANT SJC$_SET_CONDITION_VECTOR = 200 ! QSI can alter job's completion statusc DECLARE LONG CONSTANT SJC$_NOTIFY_MESSAGE = 201 ! QSI Check Job can replace job completion  ! message sent to users DECLARE LONG CONSTANT SJC$_DEFINE_FILE_ATTRIBUTES = 202 ! Legal keywds for file submissions or alter_file'sr DECLARE LONG CONSTANT SJC$_DEFINE_JOB_ATTRIBUTES = 203 ! Legal keywds in oper'ns that create or alter jobst DECLARE LONG CONSTANT SJC$_DEFINE_QUEUE_ATTRIBUTES = 204 ! Legal keywords in operations that alter the queueM DECLARE LONG CONSTANT SJC$_AGENT_PROFILE = 205 ! Security information~ DECLARE LONG CONSTANT SJC$_ADD_QUEUE_MANAGER = 206 ! Boolean item code telling sjc_start_queue_manager to add a new & ! database DECLARE LONG CONSTANT SJC$_OUTSTANDING_JOBS = 207 ! Boolean item code telling queue manager to not delete outstanding & ! open jobs DECLARE LONG CONSTANT SJC$_NO_INITIAL_FF = 208 ! To suppress initial form feed when the queue is started with INIT or & ! START cmd7 DECLARE LONG CONSTANT SJC$_NO_NO_INITIAL_FF = 209r DECLARE LONG CONSTANT SJC$_DELETE_FILE_ALWAYS = 210 ! delete file even if the job completes with a failure< DECLARE LONG CONSTANT SJC$_NO_DELETE_FILE_ALWAYS = 211m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_212 = 212 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_213 = 213 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_214 = 214 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_215 = 215 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_216 = 216 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_217 = 217 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_218 = 218 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_219 = 219 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_220 = 220 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_221 = 221 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_222 = 222 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_223 = 223 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_224 = 224 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_225 = 225 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_226 = 226 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_227 = 227 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_228 = 228 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_229 = 229 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_230 = 230 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_231 = 231 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_232 = 232 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_233 = 233 ! Reserved for Digital use ( name may change )m DECLARE LONG CONSTANT SJC$_RESERVED_BOOLEAN_234 = 234 ! Reserved for Digital use ( name may change )u DECLARE LONG CONSTANT SJC$_JOB_RETAIN_TIME = 235 ! The time the job should be retained ( delta or absolute )o DECLARE LONG CONSTANT SJC$_MANAGER_ATTRIBUTE = 236 ! Any application specific queue manager attributes.k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_237 = 237 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_238 = 238 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_239 = 239 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_240 = 240 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_241 = 241 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_242 = 242 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_243 = 243 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_244 = 244 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_245 = 245 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_246 = 246 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_247 = 247 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_248 = 248 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_249 = 249 ! Reserved for Digital use ( name may change )k DECLARE LONG CONSTANT SJC$_RESERVED_INPUT_250 = 250 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_251 = 251 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_252 = 252 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_253 = 253 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_254 = 254 ! Reserved for Digital use ( name may change )l DECLARE LONG CONSTANT SJC$_RESERVED_OUTPUT_255 = 255 ! Reserved for Digital use ( name may change )K DECLARE LONG CONSTANT SJC$K_MIN_ITEM = 1 ! Minimum SNDJBC item codeM DECLARE LONG CONSTANT SJC$K_MAX_ITEM = 255 ! Maximum SNDJBC item codeT DECLARE LONG CONSTANT SJC$_CHARGE_CODE = 157 ! synonym for SJC$_ACCOUNT_NAMEJ DE CLARE LONG CONSTANT SJC$_RESERVED_INPUT_187 = 187 ! for DQS only6 DECLARE LONG CONSTANT SJC$_QUEUE_DIRECTORY = 1359 ! Disk ? directory for non-shared job queue database3 DECLARE LONG CONSTANT SJC$_SERVICE_INPUT = 104 DECLARE LONG CONSTANT SJC$_SERVICE_OUTPUT = 11[ ! SERVICE item codes are used for communications with LOGINOUT, symbionts, and jobctl. ! ^ ! Subfields of ACCOUNTING_TYPES item code. These definitions must track EXE$GL_ACMFLAGS. ! < DE CLARE LONG CONSTANT SJC$M_ACCT_PROCESS = x'00000001': DECLARE LONG CONSTANT SJC$M_ACCT_IMAGE = x'00000002'@ DECLARE LONG CONSTANT SJC$M_ACCT_INTERACTIVE = x'00000004'B DECLARE LONG CONSTANT SJC$M_ACCT_LOGIN_FAILURE = x'00000008'? DECLARE LONG CONSTANT SJC$M_ACCT_SUBPROCESS = x'00000010'= DECLARE LONG CONSTANT SJC$M_ACCT_DETACHED = x'00000020': DECLARE LONG CONSTANT SJC$M_ACCT_BATCH = x'00000040'< DECLARE LONG CONSTANT SJC$M_ACCT_NETWORK = x'00000080': DECLARE LONG CONSTANT SJC$M_ACCT_PRINT = x'00000100'< DECLARE LONG CONSTANT SJC$M_ACCT_MESSAGE = x'00000200'= DECLARE LONG CONSTANT SJC$M_ACCT_ACM_FUNC = x'00000400'< DECLARE LONG CONSTANT SJC$M_ACCT_ACM_SYS = x'00000800'< DECLARE LONG CONSTANT SJC$M_ACCT_CCAENAB = x'00001000'< DECLARE LONG CONSTANT SJC$M_ACCT_CCVENAB = x'00002000'6 DECLARE LONG CONSTANT SJC$S_ACCOUNTING_TYPES = 4 record ACCOUNTING_TYPES ! Process termination ! Image termination" ! Interactive processes ! Login failures ! Subprocesses ! Detached processes ! Batch processes ! Network processes" ! Print job termination ! User messages ! Acm function ! System function# ! Charge code accounting# ! Charge code validation{ LONG ACCT_PROCESS_bits ! COMMENT ADDED BY SDL - ACCT_PROCESS_bits contains bits ACCT_PROCESS through ACCT_UNUSED! end record ACCOUNTING_TYPES  ! / ! Subfields of DIAGNOSTIC_FLAGS item code. ! < DECLARE LONG CONSTANT SJC$M_DIAG_COPY_QF = x'00000001'> DECLARE LONG CONSTANT SJC$M_DIAG_CREATE_MF = x'00000002'= DECLARE LONG CONSTANT SJC$M_DIAG_CLOSE_MF = x'00000004'< DECLARE LONG CONSTANT SJC$M_DIAG_OPEN_MF = x'00000008'@ DECLARE LONG CONSTANT SJC$M_DIAG_CLEAR_FLAGS = x'00000010'B DECLARE LONG CONSTANT SJC$M_DIAG_LOG_ALL_TRANS = x'0 0000020'A DECLARE LONG CONSTANT SJC$M_DIAG_JOURNAL_PUTS = x'00000040'E DECLARE LONG CONSTANT SJC$M_DIAG_DUMP_DIAG_BUFFER = x'00000080'E DECLARE LONG CONSTANT SJC$M_DIAG_INIT_DIAG_BUFFER = x'00000100'6 DECLARE LONG CONSTANT SJC$S_DIAGNOSTIC_FLAGS = 4 record DIAGNOSTIC_FLAGS( ! Make copy of the queue file= ! Create new monitor log file and begin monitoring7 ! Stop monitoring and close monitor log fileA ! Open existing monitor log file and resume monitoring? ! Clear monitoring flags in queue file header recordG ! Log read-only transactions in addition to basic monitoringO ! Journal queue file $PUT operations in addition to basic monitoring; ! Return contents of diagnostic buffer to callerF ! Initialize diagnostic buffer and zero cumulative counters{ LONG DIAG_COPY_QF_bits ! COMMENT ADDED BY SDL - DIAG_COPY_QF_bits contains bits DIAG_COPY_QF through DIAG_UNUSED! end record DIAGNOSTIC_FLAGS  ww yPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! , ! DEFINE SYMBIONT MANAGER REQUEST CODES ! & ! SYMBIONT MANAGER REQUEST CODES E DECLARE LONG CONSTANT SMR$K_INITIAL = 0 ! INITIALIZE A QUEUE B DECLARE LONG CONSTANT SMR$K_DELETE = 1 ! DELETE THE QUEUE L DECLARE LONG CONSTANT SMR$K_START = 2 ! ACTIVATE OR RESUME PRINTING M DECLARE LONG CONSTANT SMR$K_PAUSE = 3 ! SUSPEND PRINTING FOR A WHILE W DECLARE LONG CONSTANT SMR$K_MERGE = 4 ! MOVE FILES FORM ONE QUEUE INTO ANOTHER V DECLARE LONG CONSTANT SMR$K_REDIRECT = 5 ! ASSIGNMENT OF ONE QUEUE TO ANOTHER W DECLARE LONG CONSTANT SMR$K_JUSTIFY = 6 ! JUSTIFY PRINT FORMS ( IE: ISSUE FF ) I DECLARE LONG CONSTANT SMR$K_STOP = 7 !  DISABLE FURTHER DE-QUEING F DECLARE LONG CONSTANT SMR$K_ENTER = 8 ! ADD A FILE TO A QUEUE D DECLARE LONG CONSTANT SMR$K_CREJOB = 9 ! CREATE A PRINT JOB M DECLARE LONG CONSTANT SMR$K_ADDFIL = 10 ! ADD A FILE TO EXISTING JOB A DECLARE LONG CONSTANT SMR$K_CLSJOB = 11 ! CLOSE OPEN JOB H DECLARE LONG CONSTANT SMR$K_RMVJOB = 12 ! REMOVE JOB FROM QUEUE P DECLARE LONG CONSTANT SMR$K_ALTER = 13 ! CHANGE A FILES CHARACTERISTICS O DECLARE LONG CONSTANT SM R$K_ABORT = 14 ! ABORT CURRENT JOB, START NEXT N DECLARE LONG CONSTANT SMR$K_RELEASE = 15 ! RELEASE JOB FROM HOLD LIST N DECLARE LONG CONSTANT SMR$K_DETINIT = 16 ! DETACHED JOB HAS INITIATED O DECLARE LONG CONSTANT SMR$K_SYNCJOB = 17 ! SYNCRONIZE WITH A BATCH JOB R DECLARE LONG CONSTANT SMR$K_ASKQNAM = 18 ! GET NAME OF QUEUE FOR LOG FILE  ! < ! ASSIGN SYMBIONT MANAGER PRINT JOB/RECORD OPTION CODES !  !  ! JOB FILE OPTIONS P DECLARE LONG CONSTANT SMO$K_DELETE = 1 ! DELETE THE FILE AFTER PRINTING F DECLARE LONG CONSTANT SMO$K_BRSTPAG = 2 ! CREATE A BURST PAGE G DECLARE LONG CONSTANT SMO$K_NOBRSTPAG = 3 ! INHIBIT BURST PAGE D DECLARE LONG CONSTANT SMO$K_FLAGPAG = 4 ! PRINT A FLAG PAGE H DECLARE LONG CONSTANT SMO$K_NOFLAGPAG = 5 ! INHIBIT A FLAG PAGE O DECLARE LONG CONSTANT SMO$K_PAGHDR = 6 ! PRINT FILENAME AS PAGE HEADER J DECLARE LONG CONSTANT SMO$K_DOUBLE = 7 ! DOUBLE SPACE THE LI STING N DECLARE LONG CONSTANT SMO$K_NOFEED = 8 ! INHIBIT FORM FEED GENERATION M DECLARE LONG CONSTANT SMO$K_PAGCNT = 9 ! SPECIFY PAGE COUNT TO PRINT L DECLARE LONG CONSTANT SMO$K_COPIES = 10 ! NUMBER OF COPIES TO PRINT = DECLARE LONG CONSTANT SMO$K_FILESIZ = 11 ! FILE SIZE E DECLARE LONG CONSTANT SMO$K_DESTQUE = 12 ! DESTINATION QUEUE  ! OPTIONS FOR CREATE JOB N DECLARE LONG CONSTANT SMO$K_RLSTIM = 32 ! TIME TO HOLD UNTIL QUEUEING = DECLARE LONG CONSTANT SMO$K_HOLD = 33 ! HOLD THE JOB Y DECLARE LONG CONSTANT SMO$K_JOBPRI = 34 ! SPECIFY PRINT JOB/DETACHED JOB PRIOITY R DECLARE LONG CONSTANT SMO$K_JOBCOPY = 35 ! NUMBER OF COPIES OF ENTIRE JOB S DECLARE LONG CONSTANT SMO$K_FORMTYPE = 36 ! FORM TYPE TO USED WHEN PRINTED O DECLARE LONG CONSTANT SMO$K_LOWER = 37 ! UPPER/LOWER CASE PRINTER ONLY H DECLARE LONG CONSTANT SMO$K_PARAMS = 38 ! SUPPLY JOB PARAMETERS L DECLARE LONG CONSTANT SMO$K_JOBNAME = 39 ! SUPPLY A NAME TO THE JOB M DECLARE LONG CONSTANT SMO$K_NOLOWER = 40 ! CLEAR LOWER CASE REQUIRED A DECLARE LONG CONSTANT SMO$K_CPULIM = 41 ! CPU TIME LIMIT E DECLARE LONG CONSTANT SMO$K_NOCPULM = 42 ! NO CPU TIME LIMIT E DECLARE LONG CONSTANT SMO$K_WSQUOTA = 43 ! WORKING SET QUOTA H DECLARE LONG CONSTANT SMO$K_NOWSQUO = 44 ! NO WORKING SET QUOTA G DECLARE LONG CONSTANT SMO$K_WSDEFLT = 45 ! WORKING SET DEFAULT J DECLARE LONG CONSTANT SMO$K_NOWSDFT = 46 ! NO WORKING SET DEFAULT P DECLARE LONG CONSTANT SMO$K_DQCHAR = 47 ! CHAR. TO BE USED WHEN PRINTED B DECLARE LONG CONSTANT SMO$K_LOGFNAM = 48 ! LOG FILE SPEC. K DECLARE LONG CONSTANT SMO$K_LOGQNAM = 49 ! QUEUE NAME FOR LOG FILE A DECLARE LONG CONSTANT SMO$K_KEEPLOG = 50 ! KEEP LOG FILE H DECLARE LONG CONSTANT SMO$K_NOSPOOL = 51 ! DON'T SPOOL LOG FILE E DECLARE LONG CONSTANT SMO$K_NOKEEPLOG = 52 ! DELETE LOG FILE K DECLARE LONG CONSTANT SMO$K_NOLOG = 53 ! CREATE LOG ON NULL DEVICE L DECLARE LONG CONSTANT SMO$K_NOTIFY = 54 ! NOTIFY WHEN JOB COMPLETES = DECLARE LONG CONSTANT SMO$K_NONOTFY = 55 ! NO NOTIFY = DECLARE LONG CONSTANT SMO$K_WSEXTNT = 56 ! WS EXTENT B DECLARE LONG CONSTANT SMO$K_NOWSEXTNT = 57 ! NO WS EXTENT ) ! OPTIONS FOR INIT OR START A QUEUE S DECLARE LONG CONSTANT SMO$K_CURFORM = 64 ! CURRENT FORMS MOUNTED ON DEVICE I DECLARE LONG CONSTANT SMO$K_GENPRT = 65 ! ALLOW GENERIC PRINTING N DECLARE LONG CONSTANT SMO$K_NOGENPRT = 66 ! DISALLOW GENERIC PRINTING T DECLARE LONG CONSTANT SMO$K_DETJOB = 67 ! QUEUE IS FOR DETACHED JOB QUEUING P DECLARE LONG CONSTANT SMO$K_GENDEV = 68 ! QUEUE IS GENERIC DEVICE QUEUE I DECLARE LONG CONSTANT SMO$K_NOGENDEV = 69 ! NOT A GENERIC DEVICE S DECLARE LONG CONSTANT SMO$K_DEFBRST = 70 ! QUEUE HAS BURST PAGE BY DEFAULT K DECLARE LONG CONSTANT SMO$K_NODEFBRST = 71 ! NO DEFAULT BURST PAGE R DECLARE LONG CONSTANT SMO$K_DEFFLAG = 72 ! QUEUE HAS FLAG PAGE BY DEFAULT E DECLARE LONG CONSTANT SMO$K_NODEFFLAG = 73 ! NO DEFAULT FLAG G DECLARE LONG CONSTANT SMO$K_TRMDEV = 74 ! DEVICE IS A TERMINAL M DECLARE LONG CONSTANT SMO$K_NOTRMDEV = 75 ! DEVICE IS NOT A TERMINAL K DECLARE LONG CONSTANT SMO$K_JOBLIM = 76 ! JOB LIMIT FOR BATCH JOBS G DECLARE LONG CONSTANT SMO$K_INIPRI = 77 ! JOB INITIAL PRIORITY B DECLARE LONG CONSTANT SMO$K_DISWAP = 78 ! DISABLE SWAPING E DECLARE LONG CONSTANT SMO$K_MCPULM = 79 ! MAX CPU TIME LIMIT J DECLARE LONG CONSTANT SMO$K_NOMCPULM = 80 ! NO MAX CPU TIME LIMIT I DECLARE LONG CONSTANT SMO$K_DCPULM = 81 ! DEFAULT CPU TIME LIMIT N DECLARE LONG CONSTANT SMO$K_NODCPULM = 82 ! NO DEFAULT CPU TIME LIMIT D DECLARE LONG CONSTANT SMO$K_WSQUTA = 83 ! WORKING SET QUOTA I DECLARE LONG CONSTANT SMO$K_NOWSQUTA = 84 ! NO WORKING SET QUOTA F DECLARE LONG CONSTANT SMO$K_WSDFLT = 85 ! WORKING SET DEFAULT K DECLARE LONG CONSTANT SMO$K_NOWSDFLT = 86 ! NO WORKING SET DEFAULT P DECLARE LONG CONSTANT SMO$K_CURDQCHAR = 87 ! CURRENT CHAR. OF THE QUEUE K DECLARE LONG CONSTANT SMO$K_SMBNAME = 88 ! SYMBIONT NAME FOR QUEUE = DECLARE LONG CONSTANT SMO$K_WSXTANT = 89 ! WS EXTENT A DECLARE LONG CONSTANT SMO$K_NOWSXTNT = 90 ! NO WS EXTENT D DECLARE LONG CONSTANT SMO$K_NODISWAP = 91 ! ENABLE SWAPPING  ! OPTIONS FOR RESTART X DECLARE LONG CONSTANT SMO$K_NEXTJOB = 96 ! RESTART AT END BEGINNING OF NEXT JOB O DECLARE LONG CONSTANT SMO$K_TOPOFILE = 97 ! RESTART JOB AT TOP-OF-FILE N DECLARE LONG CONSTANT SMO$K_SPCCNT = 98 ! SPECIFY PAGES TO SPACE OVER  ! OPTIONS FOR ABORT E DECLARE LONG CONSTANT SMO$K_REQUEUE = 112 ! REQUEUE THE FILE R DECLARE LONG CONSTANT SMO$K_REQDEST = 113 ! SPECIFY NEW QUEUE DESTINATION P DECLARE LONG CONSTANT SMO$K_REQPRIO = 114 ! SPECIFY PRIORITY ON REQUEUE  ww\zPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  = DECLARE LONG CONSTANT SNAPEVT$M_ROLLINOUT = x'00000001'; DECLARE LONG CONSTANT SNAPEVT$M_FILESYS = x'00000002'; DECLARE LONG CONSTANT SNAPEVT$M_CLUSTER = x'00000004'9 DECLARE LONG CONSTANT SNAPEVT$M_DEBUG = x'00000008'> DECLARE LONG CONSTANT SNAPEVT$M_DISCONNECT = x'00000010'; DECLARE LONG CONSTANT SNAPEVT$M_NEW_CPU = x'00000020'; DECLARE LONG CONSTANT SNAPEVT$M_NOQUIET = x'00000040'< DECLARE LONG CONSTANT SNAPEVT$M_NOSECURE = x'00000080'R DECLARE LONG CONSTANT SNAPEVT$_SNAPSHOT = 1 ! a system snapshot is pending7 DECLARE LONG CONSTANT SNAPEVT$C_SNAPSHOT = 1 ! Z DECLARE LONG CONSTANT SNAPEVT$_RESTART = 3 ! the system is booting from a snapshot6 DECLARE LONG CONSTANT SNAPEVT$C_RESTART = 3 ! [ DECLARE LONG CONSTANT SNAPEVT$_ABORT = 5 ! an attempt to take a snapshot as aborted4 DECLARE LONG CONSTANT SNAPEVT$C_ABORT = 5 ! n DECLARE LONG CONSTANT SNAPEVT$_CLUEXIT = 6 ! the system is resynchronizing after loss of communicationR DECLARE LONG CONSTANT SNAPEVT$C_CLUEXIT = 6 ! with the rest of the cluster] ! Bugcheck codes. These appear on the stack whenever a SNAPSHOT bugcheck is executedo DECLARE LONG CONSTANT SNAPBUG$C_CONUTIL_SLOTOCCUP = 1 ! Our desired slot is occupied ( CSID on stack )u DECLARE LONG CONSTANT SNAPBUG$C_CONUTIL_OLDCOORD = 2 ! Old coordinator assigned a bad CSID ( CSID on stack )r DECLARE LONG CONSTANT SNAPBUG$C_CONUTIL_BAD_MAX_NODES = 3 ! INCRNDEF doesn't agree with MAXINDEX ( SPR )e DECLARE LONG CONSTANT SNAPBUG$C_CONUTIL_SAME_CSID = 4 ! Two nodes have the same CSID ( SPR )n DECLARE LONG CONSTANT SNAPBUG$C_MSCP_NOWAIT = 5 ! MSCP server did not complete initialization ( SPR )r DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_BADEVT = 6 ! Shadow driver called with unknown event type ( SPR ) DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_PENDING_PRE = 7 ! Shadow driver called twice for pending snapshot before restart & ! (SPR){ DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_PENDING_POST = 8 ! Shadow driver called twice for pending snapshot after & ! restart(SPR)q DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_UNEXP_PENDING = 9 ! Shadow driver saw an unexpected pending statep DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_SHUTDWN_FAIL = 10 ! Shadow driver shutdown failed ( SPR, POOL )~ DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_NO_MERGE_AST = 11 ! Shadow driver merge assist is unsupported ( UNSUPPORTED ) DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_BAD_RWAITCNT = 12 ! Shadow driver saw an unexpected resource wait count ( SPR )~ DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_NOCANDIDATE = 13 ! Shadow driver could not find shadow set candidates ( SPR )s DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_TOOMANYCAND = 14 ! Shadow driver found too many candidates ( SPR )~ DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_NOMNTVERIP = 15 ! Shadow driver unexpectedly found mount verify clear ( SPR ) DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_BAD_RETURN = 16 ! Shadow driver unexpectedly returned from sh$shadow_processing & ! (SPR) DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_BAD_MASTERUCB = 17 ! Shadow driver could not find the new master's UCB ( BAD FILE ) DECLARE LONG CONSTANT SNAPBUG$C_SHDSNAP_MOUNTEDELSEWH = 18 ! Shadow driver needs a disk mounted in another volume set & ! (BAD FILE)v DECLARE LONG CONSTANT SNAPBUG$C_SNAPSHOT_LOCKPAGE = 19 ! All pages locked in memory were not unlocked ( SPR )e DECLARE LONG CONSTANT SNAPBUG$C_BROADCAST_BADMSG = 20 ! Bad broadcast message format ( SPR )o DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_QF_WIP = 21 ! Unexpected quorum file write in progress ( SPR )d DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_FLAGS = 22 ! Unexpected cluster flags state ( SPR )f DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_LK_FLAGS = 23 ! Unexpected cluster lock flags ( SPR )j DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_FAILOVER = 24 ! Unexpected cluster failover state ( SPR )y DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_NOLONG_BREAK = 25 ! Cluster system block not in long break state ( SPR )y DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_NONMEM_REFC = 26 ! Unexpected cluster non-member reference count ( SPR )u DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_MEMBER_REFC = 27 ! Unexpected cluster member reference count ( SPR )` DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_LOCK_STATE = 28 ! Unexpected lock state ( SPR )o DECLARE LONG CONSTANT SNAPBUG$C_CLUSTER_FKB_BUSY = 29 ! Cluster fork block found on fork queue ( SPR )v DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_INPROG = 30 ! Snapshot event processing already in progress ( SPR )q DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_UNSUPFUNC = 31 ! Unsupported cluster snapshot function ( SPR )q DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_ALRINPROG = 32 ! Snapshot shutdown already in progress ( SPR )o DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_UNSUPRST = 33 ! Unsupported cluster restart function ( SPR )m DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_BADINIT = 34 ! Connection manager restart failure ( POOL )t DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_BADREFCNT = 35 ! Bad Cluster System Block reference count ( SPR )o DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_LOCKDB = 36 ! Unexpected stale lock database entries ( SPR )s DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_MSTCOPY = 37 ! Unexpected lock master copy still present ( SPR )b DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_LOCK_STATE = 38 ! Unexpected lock state ( SPR )i DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_DBSIZE = 39 ! Stale lock database is too small ( SPR )n DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_LKBREFNEG = 40 ! Lock reference count went negative ( SPR )p DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_LOCKMGRERR = 41 ! Unexpected lock context flags state ( SPR )q DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_LOCKLOOP = 42 ! Lock rundown infinite loop in progress ( SPR )^ DECLARE LONG CONSTANT SNAPBUG$C_FILES_NOVOLVCB = 43 ! No volume set VCB found ( SPR )k DECLARE LONG CONSTANT SNAPBUG$C_FILES_NOPROCVCB = 44 ! No VCB found during disk processing ( SPR )| DECLARE LONG CONSTANT SNAPBUG$C_FILES_P1EXPANDED = 45 ! The snapshot process p1 space expanded unexpectedly ( SPR )e DECLARE LONG CONSTANT SNAPBUG$C_FILES_NOAQB = 46 ! No AQB found for a mounted volume ( SPR )p DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADBUFFER = 47 ! Buffer found in the wrong address space ( SPR )t DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_PAGEDEAL = 48 ! Not all pagefile pages correctly deallocated ( SPR )h DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADBITMAP = 49 ! Illegal memory bitmap reference ( SPR )l DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREEBIT = 50 ! Illegal free page bitmap reference ( SPR )m DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREEBIT2 = 51 ! Illegal free page bitmap reference ( SPR )i DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADMODBIT = 52 ! Illegal modify bitmap refereence ( SPR )j DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOSTORETBL = 53 ! No place to store pfn references ( SPR )s DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOTFREELIST = 54 ! Expected free page not on free page list ( SPR )n DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADDALCBAKSTOR = 55 ! Illegal call to mmg$dalcbakstore ( SPR )c DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADRELPFN = 56 ! Illegal call to mmg$relpfn ( SPR )a DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADMFYPAG = 57 !  Unexpected modified page ( SPR )^ DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREEPAG = 58 ! Unexpected free page ( SPR )] DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADCOPYPFN = 59 ! Unexpected copy pfn ( SPR )a DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADCOPYSTATE = 60 ! Unexpected copy state ( SPR )e DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOTFREELST = 61 ! Page isn't on the free list ( SPR )g DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOPIC = 62 ! Bad page lis t could not be located ( SPR )^ DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREELST = 63 ! Free list is corrupt ( SPR )_ DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREELST2 = 64 ! Free list is corrupt ( SPR )f DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOFAULT = 65 ! Failure to fault in system page ( SPR )g DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_NOFAULT2 = 66 ! Failure to fault in system page ( SPR )g DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADWORKPFN = 67 ! Bad  working set PFN reference ( SPR )w DECLARE LONG CONSTANT SNAPBUG$C_FORK_NOTIFY_BADFRKBLK = 68 ! exe$dclrstfork called with bad fork block ( SPR )r DECLARE LONG CONSTANT SNAPBUG$C_FORK_NOTIFY_BADQUEUE = 69 ! corrupted exe$gq_snap_fork_list queue ( SPR )r DECLARE LONG CONSTANT SNAPBUG$C_FORK_NOTIFY_BADQLOCK = 70 ! corrupted exe$gq_snap_fork_list queue ( SPR )f DECLARE LONG CONSTANT SNAPBUG$C_FORK_NOTIFY_BADREFCNT = 71 ! bad fork reference count ( SPR )f DECL ARE LONG CONSTANT SNAPBUG$C_PROC_NOTIFY_UNEXPCALL = 72 ! unexpected call sequence ( SPR )` DECLARE LONG CONSTANT SNAPBUG$C_PROC_NOTIFY_BADMODE = 73 ! unexpected call mode ( SPR )m DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_BADSTUB = 74 ! notification vector is not a stub ( SPR ) DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_NOVECTOR = 75 ! notification AST did not find the notification vector ( SPR )h DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_BADSEQ = 76 ! unkn own notification sequence ( SPR )_ DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_NOMAINWCB = 77 ! No main image wcb ( SPR )j DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_NOACB = 78 ! No valid AST control block found ( SPR ) DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_NOVECTOR2 = 79 ! notification AST did not find the notification vector ( SPR )` DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_INVRPT = 80 ! invalid report format ( SPR ) DECLARE LONG CONSTANT SNAPBUG$C_SYNCHRONIZE_NOVECTOR3 = 81 ! notification code did not find the notification vector ( SPR )k DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_BADPCKLEN = 82 ! bad license packed data length ( SPR )n DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_ERRCNTEXC = 83 ! license error count exceeded ( BAD FILE )m DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_BADLMFNAME = 84 ! illegal lmf logical name format ( SPR )c DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_NOBUFFER = 85 ! no p1 buffers available ( SPR )d DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_NOBUFFER2 = 86 ! no p1 buffers available ( SPR )d DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_NOBUFFER3 = 87 ! no p1 buffers available ( SPR )t DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_UNEXPTRAN = 88 ! unexpected lmf logical name translation ( SPR )m DECLARE LONG CONSTANT SNAPBUG$C_SYSLICENSE_BADLMFNAM2 = 89 ! illegal lmf logical name format ( SPR )} DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_NOTIFYFORK = 90 ! Error ( on stack ) returned from fork notification (SPR)e DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_CLUSTER = 91 ! Cluster verification failed ( SPR )c DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_POOLEXP = 92 ! Unexpected pool expansion ( SPR )~ DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_NOTIFYFORK2 = 93 ! Error ( on stack ) returned from fork notification (SPR)h DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_PAGRESTORE = 94 ! Page file restoration error ( SPR )r DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_BADSTATUS = 95 ! Unexpected erroneous status ( on stack ) (SPR)u DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_NODEBUG = 96 ! System crashed because of previously broadcast errore DECLARE LONG CONSTANT SNAPBUG$C_TAKE_SNAP_NOPIC = 97 ! Failed to locate the PIC code ( SPR )l DECLARE LONG CONSTANT SNAPBUG$C_VALIDATE_VBNPURGE = 98 ! Unexpected VBN cache purge failure ( SPR )i DECLARE LONG CONSTANT SNAPBUG$C_VALIDATE_DISK_DEQ = 99 ! Unexpected lock dequeue failure ( SPR )c DECLARE LONG CONSTANT SNAPBUG$C_FILES_DISKERR = 100 ! Mount verify abort on a disk ( SPR )s DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_BADLCKCNT = 101 ! Bad count of total locks in the system ( SPR )w DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_BADRSBCNT = 102 ! Bad count of total resources in the system ( SPR )[ DECLARE LONG CONSTANT SNAPBUG$C_VCC_BADEVT = 103 ! Bad snapshot event code ( SPR )c DECLARE LONG CONSTANT SNAPBUG$C_VCC_NOTRUNC = 104 ! Cache not in a truncated state ( SPR )Z DECLARE LONG CONSTANT SNAPBUG$C_VCC_LIMBO = 105 ! Limbo files are present ( SPR )[ DECLARE LONG CONSTANT SNAPBUG$C_VCC_LIMBO2 = 106 ! Limbo files are present ( SPR )[ DECLARE LONG CONSTANT SNAPBUG$C_VCC_LIMBO3 = 107 ! Limbo files are present ( SPR )a DECLARE LONG CONSTANT SNAPBUG$C_VCC_WRITER = 108 ! All files should be read-only ( SPR )b DECLARE LONG CONSTANT SNAPBUG$C_VCC_WRITER2 = 109 ! All files should be read-only ( SPR )_ DECLARE LONG CONSTANT SNAPBUG$C_VCC_BADCMLOCK = 110 ! Error on file lock queue ( SPR )z DECLARE LONG CONSTANT SNAPBUG$C_CLUSTRLOA_BADCLUVEC = 111 ! Snapshot event processing already in progress ( SPR )^ DECLARE LONG CONSTANT SNAPBUG$C_MEMORY_BADFREECNT = 112 ! Bad free list count ( SPR )s DECLARE LONG CONSTANT SNAPBUG$C_PAGEFAULT = 113 ! Unexpected Pagefault ( Appears only with test sof tware )b DECLARE LONG CONSTANT SNAPBUG$C_FILES_NOUCBCTX = 114 ! UCB lock context not saved ( SPR )g DECLARE LONG CONSTANT SNAPBUG$C_SNAPSHOT_STALEORB = 115 ! Failure to update volume orb ( SPR ) ! End of bugcheck codes.5 DECLARE LONG CONSTANT SNAPEVT$S_SNAPEVTCODE = 4 record SNAPEVTCODE WORD SNAPEVT$W_EVENT' group SNAPEVT$R_MODIFIER_UNION variant case) WORD SNAPEVT$W_MODIFIER  case/ group SNAPEVT$R_MODIFIER_BITS4 ! Rollinout system checkpoint/ ! File system validation, ! VAXcluster fastboot- ! Debug mode in effect= ! Disconnect all interactive terminals0 ! Boot on a different CPUB ! Broadcast informational messages to opa0:= ! Allow access to interactive sessions{  BYTE ROLLINOUT_bits ! COMMENT ADDED BY SDL - ROLLINOUT_bits contains bits ROLLINOUT through NOSECURE3 end group SNAPEVT$R_MODIFIER_BITS end variant+ end group SNAPEVT$R_MODIFIER_UNION ! Event Codes V ! The following codes indicate special problems: SPR = submit an SPRe ! POOL = Possible resource exhaustionb !  UNSUPPORTED = function is not supported ! BAD FILE = a configuration change has invalidated the snapshot file end record SNAPEVTCODE  ww@gzPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  / DECLARE LONG CONSTANT SECSRV$K_SERVER = 1, DECLARE LONG CONSTANT SECSRV$K_CIA = 2. DECLARE LONG CONSTANT SECSRV$K_PROXY = 30 DECLARE LONG CONSTANT SECSRV$K_MAPPING = 41 DECLARE LONG CONSTANT SECSRV$K_SHUTDOWN = 14 DECLARE LONG CONSTANT SECSRV$K_PERFORMANCE = 29 DECLARE LONG CONSTANT SECSRV$K_ZERO_PERFORMANCE = 30 DECLARE LONG CONSTANT SECSRV$K_RESTART = 42 DECLARE LONG CONSTANT SECSRV$K_ADD_PROXY = 05 DECLARE LONG CONSTANT SECSRV$K_DELETE_PROXY = 13 DECLARE LONG CONSTANT SECSRV$K_SHOW_PROXY = 25 DECLARE LONG CONSTANT SECSRV$K_VERIFY_PROXY = 35 DECLARE LONG CONSTANT SECSRV$K_CREATE_PROXY = 47 DECLARE LONG CONSTANT SE CSRV$K_SCAN_INTRUSION = 59 DECLARE LONG CONSTANT SECSRV$K_DELETE_INTRUSION = 67 DECLARE LONG CONSTANT SECSRV$K_SHOW_INTRUSION = 74 DECLARE LONG CONSTANT SECSRV$K_STOP_SERVER = 87 DECLARE LONG CONSTANT SECSRV$K_RESTART_SERVER = 95 DECLARE LONG CONSTANT SECSRV$K_ADD_MAPPING = 108 DECLARE LONG CONSTANT SECSRV$K_CREATE_MAPPING = 118 DECLARE LONG CONSTANT SECSRV$K_DEFINE_MAPPING = 128 DECLARE LONG CONSTANT SECSRV$K_DELETE_MAPPING = 138 DECLARE LONG  CONSTANT SECSRV$K_MODIFY_MAPPING = 146 DECLARE LONG CONSTANT SECSRV$K_SCAN_MAPPING = 158 DECLARE LONG CONSTANT SECSRV$K_LOOKUP_MAPPING = 165 DECLARE LONG CONSTANT SECSRV$K_MAX_SERVICE = 172 DECLARE LONG CONSTANT SECSRV$K_MAXMSG = 81927 DECLARE LONG CONSTANT SECSRV$K_MAX_MESSAGE = 8192= DECLARE LONG CONSTANT SECSRV$K_REPLY_CONTEXT_LENGTH = 4@ DECLARE LONG CONSTANT SECSRV$M_IGNORE_RETURN = x'00000001'9 DECLARE LONG CONSTANT SECSRV$M_FILL_1 = x'FFFFFFFE'7 DECLARE LONG CONSTANT SECSRV$K_HEADER_LENGTH = 847 DECLARE LONG CONSTANT SECSRV$S_SECSRV$HEADER = 84 record SECSRV$HEADER# LONG SECSRV$L_MESSAGE_TYPE& LONG SECSRV$L_MESSAGE_SUBTYPE" LONG SECSRV$L_CALLERS_PID% LONG SECSRV$L_RETURN_MAILBOX group SECSRV$r_fill_7 variant case% LONG SECSRV$L_FLAGS case' group SECSRV$r_fill_8 LON G IGNORE_RETURN_bits ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through & ! FILL_1+ end group SECSRV$r_fill_8 end variant" end group SECSRV$r_fill_7 group SECSRV$R_USERNAME' WORD SECSRV$W_USERNAME_SIZE WORD SECSRV$W_FILL_20 STRING SECSRV$T_USERNAME_STRING = 32$ end group SECSRV$R_USERNAME group SECSRV$R_TERMINAL' BYTE SECSRV$B_TERMINAL_SIZE- ! STRING SECSRV$T_TERMINAL_NAME = 7$ end group SECSRV$R_TERMINAL$ group SECSRV$R_PROCESS_NAME% BYTE SECSRV$B_PRCNAM_SIZE, STRING SECSRV$T_PRCNAM_NAME = 15( end group SECSRV$R_PROCESS_NAME& LONG SECSRV$L_MESSAGE_CONTEXT end record SECSRV$HEADER 7 DECLARE LONG CONSTANT SECSRV$CLIENT = -17627873277 DECLARE LONG CONSTANT SECSRV$OBJECT = -1762787326> DECLARE LONG CONSTANT SECSRV$COMMUNICATION = -1762787325 ww# 9{PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI$NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET% %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! @ ! MACROS TO DEFINE SYSTEM SERVICE FAILURE AND STATUS CODES. !  !  ! $STRUCT SS ! 5 ! THIS STRUCTURE IS NOW CONTAINED IN 'SSMSG.MDL' ! +6 ! Def &ine 32-bit VAX-11 error code longword fieldsI ! Changed to agree with Handbook - TNH 26-OCT-77 - CHANGE M 1 to P 1F ! Changed to agree with new status value W. H. Brown 18-NOV-1977 ! -8 DECLARE LONG CONSTANT STS$M_SEVERITY = x'00000007'7 DECLARE LONG CONSTANT STS$M_COND_ID = x'0FFFFFF8'7 DECLARE LONG CONSTANT STS$M_CONTROL = x'F0000000'7 DECLARE LONG CONSTANT STS$M_SUCCESS = x'00000001'6 DECLARE LONG CONSTANT STS$M_MSG_NO = x'0000FFF8'4 DECLARE 'LONG CONSTANT STS$M_CODE = x'00007FF8'6 DECLARE LONG CONSTANT STS$M_FAC_SP = x'00008000'8 DECLARE LONG CONSTANT STS$M_CUST_DEF = x'08000000'9 DECLARE LONG CONSTANT STS$M_INHIB_MSG = x'10000000'6 DECLARE LONG CONSTANT STS$M_FAC_NO = x'0FFF0000': DECLARE LONG CONSTANT STS$K_WARNING = 0 ! WARNING H DECLARE LONG CONSTANT STS$K_SUCCESS = 1 ! SUCCESSFUL COMPLETION 6 DECLARE LONG CONSTANT STS$K_ERROR = 2 ! ERROR ; DECLARE LONG CONSTANT STS$K_INFO = 3 ! ( INFORMATION > DECLARE LONG CONSTANT STS$K_SEVERE = 4 ! SEVERE ERROR , DECLARE LONG CONSTANT STS$S_STSDEF = 4 record STSDEF variant case' group STS$R_STSDEF_BITS0$ ! severity code # ! condition id # ! control bits t LONG SEVERITY_bits ! COMMENT ADDED BY SDL - SEVERITY_bits contains bits SEVERITY through CONTROL+ end group STS$R_STSDEF_BITS0 ) case' group STS$R_STSDEF_BITS1 ! Success * ! skip severity field % ! Message number p WORD SUCCESS_bits ! COMMENT ADDED BY SDL - SUCCESS_bits contains bits SUCCESS through MSG_NO+ end group STS$R_STSDEF_BITS1 case' group STS$R_STSDEF_BITS2* ! Skip severity field  ! code - ! 1 if facility sp *ecific C ! 1 if sub-system is customer (or CSS) defined 9 ! 1 if message should not be printed , ! reserved control bits m LONG FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through FILL_4+ end group STS$R_STSDEF_BITS2 case' group STS$R_STSDEF_BITS30 ! Skip message nubmer field * ! Facility is 12 bits # ! Control bits m LONG FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through FILL_6+ end group STS$R_STSDEF_BITS3 ! + ! Define severity codes ! - end variant end record STSDEF  ww SYSTEM $STSDEF |PV SYSTEM $SYIDEF |PV SYSTEM $TEBDEF }PV SYSTEM $TPADEF @i|}PV SYSTEM $TRMDEFk~PV SYSTEM $TTDEF @#X~PV SYSTEM $TT2DEF ~PV SYSTEM $TT3DEF ~PV SYSTEM $TTCDEF%PV SYSTEM $TTYDPORTDEF#sPV SYSTEM $UAF070DEF @-PV SYSTEM $UAIDEF @k@PV SYSTEM $UICDEF /PV SYSTEM $UIDDEF -`|w|PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI.NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET/ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +9 ! Get System Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item listK ! (preceed 0ing the ENDlistname item) so that users will not have ! to relink. ! - ! DEFINE TABLE TYPES A DECLARE LONG CONSTANT SYI$C_EXETYPE = 1 ! Executive cells@ DECLARE LONG CONSTANT SYI$C_FLDTYPE = 2 ! Sub-field dataE DECLARE LONG CONSTANT SYI$C_RSDTYPE = 3 ! Reduced system data= ! The following item-codes are for executive data cells.; ! Processor registers are a special case of this type.; ! Some EXE-type cells have frequently used sub-fi1elds,A ! which have item-codes in the FLD section. (after this one)F DECLARE LONG CONSTANT SYI$_VERSION = 4096 ! VMS version numberB DECLARE LONG CONSTANT SYI$_SID = 4097 ! System ID registerV DECLARE LONG CONSTANT SYI$_PFCDEFAULT = 4098 ! Default page fault cluster size[ DECLARE LONG CONSTANT SYI$_PAGTBLPFC = 4099 ! Default page table page fault clusterW DECLARE LONG CONSTANT SYI$_SYSPFC = 4100 ! Page fault cluster for system pagingf DECLARE LONG2 CONSTANT SYI$_KFILSTCNT = 4101 ! ( Obsolete, to be deleted in a future release )L DECLARE LONG CONSTANT SYI$_GBLSECTIONS = 4102 ! Global section countF DECLARE LONG CONSTANT SYI$_GBLPAGES = 4103 ! Global page countV DECLARE LONG CONSTANT SYI$_GBLPAGFIL = 4104 ! Global page page file page limitO DECLARE LONG CONSTANT SYI$_MAXPROCESSCNT = 4105 ! Maximum process countF DECLARE LONG CONSTANT SYI$_PIXSCAN = 4106 ! Process scan countM DECLARE LONG CONSTANT 3SYI$_PROCSECTCNT = 4107 ! Process section countM DECLARE LONG CONSTANT SYI$_MINWSCNT = 4108 ! Minimum working set sizeL DECLARE LONG CONSTANT SYI$_PAGFILCNT = 4109 ! Number of paging filesJ DECLARE LONG CONSTANT SYI$_SWPFILCNT = 4110 ! Number of swap filesM DECLARE LONG CONSTANT SYI$_SYSMWCNT = 4111 ! System working set countL DECLARE LONG CONSTANT SYI$_INTSTKPAGES = 4112 ! Interrupt stack size^ DECLARE LONG CONSTANT SYI$_DLCKEXTRASTK = 4113 ! Extra4 int stack for deadlock searchesG DECLARE LONG CONSTANT SYI$_BALSETCNT = 4114 ! Balance set countI DECLARE LONG CONSTANT SYI$_IRPCOUNT = 4115 ! Count of I/O packetsT DECLARE LONG CONSTANT SYI$_IRPCOUNTV = 4116 ! Limit of extension of IRP listQ DECLARE LONG CONSTANT SYI$_WSMAX = 4117 ! Max size of process working setK DECLARE LONG CONSTANT SYI$_NPAGEDYN = 4118 ! Non-paged dynamic poolP DECLARE LONG CONSTANT SYI$_NPAGEVIR = 4119 ! Limit of extension of5 aboveF DECLARE LONG CONSTANT SYI$_PAGEDYN = 4120 ! Paged dynamic poolQ DECLARE LONG CONSTANT SYI$_VIRTUALPAGECNT = 4121 ! Max virtual page countJ DECLARE LONG CONSTANT SYI$_SPTREQ = 4122 ! Requested SPT extensionN DECLARE LONG CONSTANT SYI$_EXUSRSTK = 4123 ! Extra user stack providedT DECLARE LONG CONSTANT SYI$_LRPCOUNT = 4124 ! Number of large request packetsT DECLARE LONG CONSTANT SYI$_LRPCOUNTV = 4125 ! Limit of extension of LRP listP DECLARE 6LONG CONSTANT SYI$_LRPSIZE = 4126 ! Size of large request packetM DECLARE LONG CONSTANT SYI$_LRPMIN = 4127 ! Min alloc request for LRPsT DECLARE LONG CONSTANT SYI$_SRPCOUNT = 4128 ! Number of small request packetsT DECLARE LONG CONSTANT SYI$_SRPCOUNTV = 4129 ! Limit of extension of SRP listP DECLARE LONG CONSTANT SYI$_SRPSIZE = 4130 ! Size of small request packetM DECLARE LONG CONSTANT SYI$_SRPMIN = 4131 ! Min alloc request for SRPsW DECLARE LONG CONST7ANT SYI$_CHANNELCNT = 4132 ! Number of permanent I/O channelsF DECLARE LONG CONSTANT SYI$_PIOPAGES = 4133 ! Process I/O pagesP DECLARE LONG CONSTANT SYI$_CTLPAGES = 4134 ! Control region impure pagesW DECLARE LONG CONSTANT SYI$_CTLIMGLIM = 4135 ! Limit on use of proc alloc regionT DECLARE LONG CONSTANT SYI$_IMGIOCNT = 4136 ! Default image I/O address spaceC DECLARE LONG CONSTANT SYI$_QUANTUM = 4137 ! Process quantumT DECLARE LONG CONSTANT SYI$_MPW_WRT8CLUSTER = 4138 ! Page write cluster factorU DECLARE LONG CONSTANT SYI$_MPW_HILIMIT = 4139 ! Modified page list high limitT DECLARE LONG CONSTANT SYI$_MPW_LOLIMIT = 4140 ! Modified page list low limitV DECLARE LONG CONSTANT SYI$_MPW_PRIO = 4141 ! Modified page writer I/O priorityI DECLARE LONG CONSTANT SYI$_SWP_PRIO = 4142 ! Swapper I/O priority[ DECLARE LONG CONSTANT SYI$_MPW_THRESH = 4143 ! Modified page writer lower threshold^ DECLARE LONG CONSTANT 9SYI$_MPW_WAITLIMIT = 4144 ! Modified page writer busy wait limitW DECLARE LONG CONSTANT SYI$_TBSKIPWSL = 4145 ! Max number WSlist entries to skip] DECLARE LONG CONSTANT SYI$_PHYSICALPAGES = 4146 ! Max number of physical pages to useR DECLARE LONG CONSTANT SYI$_PFRATL = 4147 ! Page fault rate lower thresholdQ DECLARE LONG CONSTANT SYI$_PFRATH = 4148 ! Page fault rate high thresholdY DECLARE LONG CONSTANT SYI$_PFRATL_SYS = 4149 ! PFRATL for the system workin:g setG DECLARE LONG CONSTANT SYI$_WSINC = 4150 ! Working set incrementG DECLARE LONG CONSTANT SYI$_WSDEC = 4151 ! Working set decrementF DECLARE LONG CONSTANT SYI$_AWSMIN = 4152 ! Working set minimumT DECLARE LONG CONSTANT SYI$_AWSTIME = 4153 ! Working set measurement intervalN DECLARE LONG CONSTANT SYI$_SWPRATE = 4154 ! Swap rate control ( max )\ DECLARE LONG CONSTANT SYI$_SWPOUTPGCNT = 4155 ! Desired proc page cnt for an outswap\ DECLARE LONG; CONSTANT SYI$_SWPALLOCINC = 4156 ! Swap file allocation increment valueC DECLARE LONG CONSTANT SYI$_IOTA = 4157 ! I/O time allowanceZ DECLARE LONG CONSTANT SYI$_LONGWAIT = 4158 ! When HIB or LEF proc becomes longwaitC DECLARE LONG CONSTANT SYI$_SWPFAIL = 4159 ! Swap fail countZ DECLARE LONG CONSTANT SYI$_VMSD1 = 4160 ! Reserved to VMS development ( DYNAMIC )3 DECLARE LONG CONSTANT SYI$_VMSD2 = 4161 ! "3 DECLARE LONG CONSTANT SYI$_VMSD3 = 4162 ! "<3 DECLARE LONG CONSTANT SYI$_VMSD4 = 4163 ! "X DECLARE LONG CONSTANT SYI$_VMS5 = 4164 ! Reserved to VMS development ( STATIC )2 DECLARE LONG CONSTANT SYI$_VMS6 = 4165 ! "2 DECLARE LONG CONSTANT SYI$_VMS7 = 4166 ! "2 DECLARE LONG CONSTANT SYI$_VMS8 = 4167 ! "R DECLARE LONG CONSTANT SYI$_USERD1 = 4168 ! Reserved for users ( DYNAMIC )4 DECLARE LONG CONSTANT SYI$_USERD2 = 4169 ! "P DECLARE LONG CONSTANT SYI$_USER3 = 4170 ! Reserved for use=rs ( STATIC )3 DECLARE LONG CONSTANT SYI$_USER4 = 4171 ! "Y DECLARE LONG CONSTANT SYI$_EXTRACPU = 4172 ! Extra CPU time allowed on expirationU DECLARE LONG CONSTANT SYI$_MAXSYSGROUP = 4173 ! Max group code for system UICT DECLARE LONG CONSTANT SYI$_MVTIMEOUT = 4174 ! Timeout for mount verificationV DECLARE LONG CONSTANT SYI$_MAXBUF = 4175 ! Maximum allowable buffered I/O size^ DECLARE LONG CONSTANT SYI$_DEFMBXBUFQUO = 4176 ! Def buffer quota for mail>box creation] DECLARE LONG CONSTANT SYI$_DEFMBXMXMSG = 4177 ! Def max msg size for mailbox creationU DECLARE LONG CONSTANT SYI$_DEFMBXNUMMSG = 4178 ! Def number of messages for "L DECLARE LONG CONSTANT SYI$_FREELIM = 4179 ! Desired free list lengthL DECLARE LONG CONSTANT SYI$_FREEGOAL = 4180 ! Target free list lengthY DECLARE LONG CONSTANT SYI$_GROWLIM = 4181 ! Free > growlim to grow proc > wsquotaF DECLARE LONG CONSTANT SYI$_BORROWLIM = 4182 ! Same a?s above???P DECLARE LONG CONSTANT SYI$_LOCKRETRY = 4183 ! Multi-CPU lock retry countH DECLARE LONG CONSTANT SYI$_XFMAXRATE = 4184 ! Max DR32 data rateV DECLARE LONG CONSTANT SYI$_LAMAPREGS = 4185 ! Number of UBA map regs for LPA11] DECLARE LONG CONSTANT SYI$_REALTIME_SPTS = 4186 ! SPT entries for CONINTERR processesZ DECLARE LONG CONSTANT SYI$_CLISYMTBL = 4187 ! Number of pages for CLI symbol tableK DECLARE LONG CONSTANT SYI$_LOCKIDTBL = 4188 ! Size of @lock ID tableR DECLARE LONG CONSTANT SYI$_RESHASHTBL = 4189 ! Size of resource hash table[ DECLARE LONG CONSTANT SYI$_DEADLOCK_WAIT = 4190 ! Deadlock detection timeout periodZ DECLARE LONG CONSTANT SYI$_SCSBUFFCNT = 4191 ! SCS buffer descriptor table entries[ DECLARE LONG CONSTANT SYI$_SCSCONNCNT = 4192 ! SCS connect descriptor table entries\ DECLARE LONG CONSTANT SYI$_SCSRESPCNT = 4193 ! SCS response descriptor table entriesN DECLARE LONG CONSTANT SYI$A_SCSMAXDG = 4194 ! SCS maximum datagram sizeT DECLARE LONG CONSTANT SYI$_SCSMAXMSG = 4195 ! SCS max sequenced message sizeP DECLARE LONG CONSTANT SYI$_SCSFLOWCUSH = 4196 ! SCS flow control cushionR DECLARE LONG CONSTANT SYI$_SCSSYSTEMID = 4197 ! SCS system ID ( 48 bits )K DECLARE LONG CONSTANT SYI$_SCSSYSTEMIDH = 4198 ! High bits of aboveH DECLARE LONG CONSTANT SYI$_SCSNODE = 4199 ! SCS system node name+ ! Used to be SCSNODEH. Unused for now.W DEBCLARE LONG CONSTANT SYI$_PRCPOLINTERVAL = 4201 ! SCA process polling intervalQ DECLARE LONG CONSTANT SYI$_PASTIMOUT = 4202 ! CI port START/STACK timeout\ DECLARE LONG CONSTANT SYI$_PASTDGBUF = 4203 ! CI port DG buffers for START handshakeP DECLARE LONG CONSTANT SYI$_PANUMPOLL = 4204 ! Number of CI ports to pollU DECLARE LONG CONSTANT SYI$_PAPOLLINTERVAL = 4205 ! Time between CI port pollsY DECLARE LONG CONSTANT SYI$_PAPOOLINTERVAL = 4206 ! Time between SYSACPs pool check` DECLARE LONG CONSTANT SYI$_TIMEPROMPTWAIT = 4207 ! Time prompt timeout ( when booting )\ DECLARE LONG CONSTANT SYI$_UDABURSTRATE = 4208 ! Max number of longwords per NPR - 1` DECLARE LONG CONSTANT SYI$_LNMSHASHTBL = 4209 ! Size of system space log name hash tableO DECLARE LONG CONSTANT SYI$_LNMPHASHTBL = 4210 ! Size of process space "Z DECLARE LONG CONSTANT SYI$_TTY_SCANDELTA = 4211 ! Delta time for dialup timer scanN DECLARE LONG CONSTANDT SYI$_TTY_DIALTYPE = 4212 ! Flags for dialup typeM DECLARE LONG CONSTANT SYI$_TTY_SPEED = 4213 ! Terminal default: speedH DECLARE LONG CONSTANT SYI$_TTY_RSPEED = 4214 ! " " receive speedA DECLARE LONG CONSTANT SYI$_TTY_PARITY = 4215 ! " " parityB DECLARE LONG CONSTANT SYI$_TTY_BUF = 4216 ! " " line widthK DECLARE LONG CONSTANT SYI$_TTY_DEFCHAR = 4217 ! " " characteristicsZ DECLARE LONG CONSTANT SYI$_TTY_DEFCHAR2 = 4218 ! " " characteristics, 2nd loEngwordQ DECLARE LONG CONSTANT SYI$_TTY_TYPAHDSZ = 4219 ! Size of typeahead bufferQ DECLARE LONG CONSTANT SYI$_TTY_ALTYPAHD = 4220 ! Alternate typeahead sizeQ DECLARE LONG CONSTANT SYI$_TTY_ALTALARM = 4221 ! Alt typeahead alarm size@ DECLARE LONG CONSTANT SYI$_TTY_DMASIZE = 4222 ! Dma sizeV DECLARE LONG CONSTANT SYI$_TTY_PROT = 4223 ! Default terminal alloc protectionL DECLARE LONG CONSTANT SYI$_TTY_OWNER = 4224 ! Default terminal owner\ DECLARE FLONG CONSTANT SYI$_TTY_CLASSNAME = 4225 ! Default terminal class name prefixW DECLARE LONG CONSTANT SYI$_TTY_SILOTIME = 4226 ! Default silo timeout for DMF32U DECLARE LONG CONSTANT SYI$_TTY_DEFPORT = 4227 ! DEFAULT PORT ACTION PARAMETERT DECLARE LONG CONSTANT SYI$_RMS_DFMBC = 4228 ! RMS default: multi-block counta DECLARE LONG CONSTANT SYI$_RMS_DFMBFSDK = 4229 ! " " multi-buffer count for disk ( SEQ )X DECLARE LONG CONSTANT SYI$_RMS_DFMBFSMT = 4230 ! " " mGulti-buffer count for tape_ DECLARE LONG CONSTANT SYI$_RMS_DFMBFSUR = 4231 ! " " multi-buffer count for unit record] DECLARE LONG CONSTANT SYI$_RMS_DFMBFREL = 4232 ! " " multi-buffer count for REL files^ DECLARE LONG CONSTANT SYI$_RMS_DFMBFIDX = 4233 ! " " multi-buffer count for ISAM files^ DECLARE LONG CONSTANT SYI$_RMS_DFMBFHSH = 4234 ! " " multi-buffer count for HASH filesC DECLARE LONG CONSTANT SYI$_RMS_PROLOGUE = 4235 ! " " prologT DECLARE LONG CONHSTANT SYI$_RMS_EXTEND_SIZE = 4236 ! " " file extend quantityL DECLARE LONG CONSTANT SYI$_RMS_FILEPROT = 4237 ! " " file protectionD DECLARE LONG CONSTANT SYI$_PQL_DASTLM = 4238 ! Def AST limit< DECLARE LONG CONSTANT SYI$_PQL_MASTLM = 4239 ! Min "M DECLARE LONG CONSTANT SYI$_PQL_DBIOLM = 4240 ! Def buffered I/O limit< DECLARE LONG CONSTANT SYI$_PQL_MBIOLM = 4241 ! Min "X DECLARE LONG CONSTANT SYI$_PQL_DBYTLM = 4242 ! Def buffered I/O byte count limit<I DECLARE LONG CONSTANT SYI$_PQL_MBYTLM = 4243 ! Min "I DECLARE LONG CONSTANT SYI$_PQL_DCPULM = 4244 ! Def CPU time limit< DECLARE LONG CONSTANT SYI$_PQL_MCPULM = 4245 ! Min "K DECLARE LONG CONSTANT SYI$_PQL_DDIOLM = 4246 ! Def direct I/O limit< DECLARE LONG CONSTANT SYI$_PQL_MDIOLM = 4247 ! Min "J DECLARE LONG CONSTANT SYI$_PQL_DFILLM = 4248 ! Def open file limit< DECLARE LONG CONSTANT SYI$_PQL_MFILLM = 4249 ! Min "P DECLARE LONG CONSTANT JSYI$_PQL_DPGFLQUOTA = 4250 ! Def paging file quota@ DECLARE LONG CONSTANT SYI$_PQL_MPGFLQUOTA = 4251 ! Min "L DECLARE LONG CONSTANT SYI$_PQL_DPRCLM = 4252 ! Def sub-process limit< DECLARE LONG CONSTANT SYI$_PQL_MPRCLM = 4253 ! Min "R DECLARE LONG CONSTANT SYI$_PQL_DTQELM = 4254 ! Def timer queue entry limit< DECLARE LONG CONSTANT SYI$_PQL_MTQELM = 4255 ! Min "W DECLARE LONG CONSTANT SYI$_PQL_DWSDEFAULT = 4256 ! Def working set default size@ DECLKARE LONG CONSTANT SYI$_PQL_MWSDEFAULT = 4257 ! Min "N DECLARE LONG CONSTANT SYI$_PQL_DWSQUOTA = 4258 ! Def working set quota> DECLARE LONG CONSTANT SYI$_PQL_MWSQUOTA = 4259 ! Min "P DECLARE LONG CONSTANT SYI$_PQL_DWSEXTENT = 4260 ! Def working set extent? DECLARE LONG CONSTANT SYI$_PQL_MWSEXTENT = 4261 ! Min "H DECLARE LONG CONSTANT SYI$_PQL_DENQLM = 4262 ! Def enqueue limit< DECLARE LONG CONSTANT SYI$_PQL_MENQLM = 4263 ! Min "Y DECLARE LONG CONLSTANT SYI$_ACP_MAPCACHE = 4264 ! Number of blocks in bitmap cache^ DECLARE LONG CONSTANT SYI$_ACP_HDRCACHE = 4265 ! Number of blocks in file header cache\ DECLARE LONG CONSTANT SYI$_ACP_DIRCACHE = 4266 ! Number of blocks in directory cacheG DECLARE LONG CONSTANT SYI$_ACP_WORKSET = 4267 ! ACP working setZ DECLARE LONG CONSTANT SYI$_ACP_FIDCACHE = 4268 ! Number of cached index file slotsV DECLARE LONG CONSTANT SYI$_ACP_EXTCACHE = 4269 ! Number of cached disk eMxtentsV DECLARE LONG CONSTANT SYI$_ACP_EXTLIMIT = 4270 ! Max fraction of disk to cache^ DECLARE LONG CONSTANT SYI$_ACP_QUOCACHE = 4271 ! Number of file quota entries to cacheX DECLARE LONG CONSTANT SYI$_ACP_SYSACC = 4272 ! Default access for system volumesY DECLARE LONG CONSTANT SYI$_ACP_MAXREAD = 4273 ! Max number of direct blks to read] DECLARE LONG CONSTANT SYI$_ACP_WINDOW = 4274 ! Default window size for system volumesY DECLARE LONG CONSTANT SYI$_ACPN_WRITEBACK = 4275 ! Deferred cache writeback enableT DECLARE LONG CONSTANT SYI$_ACP_DATACHECK = 4276 ! ACP datacheck enable flagsJ DECLARE LONG CONSTANT SYI$_ACP_BASEPRIO = 4277 ! ACP base priorityG DECLARE LONG CONSTANT SYI$_ACP_SWAPFLGS = 4278 ! ACP swap flagsW DECLARE LONG CONSTANT SYI$_DEFPRI = 4279 ! Default priority for Job InitiationsN DECLARE LONG CONSTANT SYI$_IJOBLIM = 4280 ! Limit for interactive jobsH DECLARE LONG CONSTANT SYI$_BJOBLIM = 4O281 ! Limit for batch jobsJ DECLARE LONG CONSTANT SYI$_NJOBLIM = 4282 ! Limit for network jobsR DECLARE LONG CONSTANT SYI$_RJOBLIM = 4283 ! Limit for remote terminal jobsT DECLARE LONG CONSTANT SYI$_QUORUM = 4284 ! Connection manager cluster QUORUM[ DECLARE LONG CONSTANT SYI$_VOTES = 4285 ! Connection manager VOTES from this system_ DECLARE LONG CONSTANT SYI$_RECNXINTERVAL = 4286 ! Connection manager reconnect interval[ DECLARE LONG CONSTANT SYI$_BOOTTPIME = 4287 ! 64-bit abs. system time at system bootX DECLARE LONG CONSTANT SYI$_LOCKIDTBL_MAX = 4288 ! Maximum size of lock ID table.M DECLARE LONG CONSTANT SYI$_TAILORED = 4289 ! Is this system tailored?Y DECLARE LONG CONSTANT SYI$_STARTUP_P1 = 4290 ! Parameters for passing informationS DECLARE LONG CONSTANT SYI$_STARTUP_P2 = 4291 ! to system startup procedure.2 DECLARE LONG CONSTANT SYI$_STARTUP_P3 = 42922 DECLARE LONG CONSTANT SYI$_STARTUP_P4 = 4293Q2 DECLARE LONG CONSTANT SYI$_STARTUP_P5 = 42942 DECLARE LONG CONSTANT SYI$_STARTUP_P6 = 42952 DECLARE LONG CONSTANT SYI$_STARTUP_P7 = 42962 DECLARE LONG CONSTANT SYI$_STARTUP_P8 = 4297Z DECLARE LONG CONSTANT SYI$_CLUSTER_NODES = 4298 ! total number of nodes in clusterU DECLARE LONG CONSTANT SYI$_CLUSTER_VOTES = 4299 ! " " " votes " "S DECLARE LONG CONSTANT SYI$_CLUSTER_QUORUM = 4300 ! " quorum in clusterL DECLARE LONG CONSTANT SYRI$_CLUSTER_FSYSID = 4301 ! founding systemidK DECLARE LONG CONSTANT SYI$_CLUSTER_FTIME = 4302 ! founding boottimeT DECLARE LONG CONSTANT SYI$_CLUSTER_MEMBER = 4303 ! true if in a live clusterV DECLARE LONG CONSTANT SYI$_NODE_CSID = 4304 ! cluster system id of target nodeK DECLARE LONG CONSTANT SYI$_NODE_VOTES = 4305 ! votes of target nodeJ DECLARE LONG CONSTANT SYI$_NODE_QUORUM = 4306 ! quorum of " "L DECLARE LONG CONSTANT SYI$_NODE_SYSTEMID = 430S7 ! systemid of " "T DECLARE LONG CONSTANT SYI$_NODE_SWINCARN = 4308 ! S/W incarnation of " "L DECLARE LONG CONSTANT SYI$_NODE_SWTYPE = 4309 ! S/W type of " "L DECLARE LONG CONSTANT SYI$_NODE_SWVERS = 4310 ! S/W version of " "L DECLARE LONG CONSTANT SYI$_NODE_HWTYPE = 4311 ! H/W type of " "L DECLARE LONG CONSTANT SYI$_NODE_HWVERS = 4312 ! H/W version of " "K DECLARE LONG CONSTANT SYI$_NODENAME = 4313 ! SCS nodename of " "L T DECLARE LONG CONSTANT SYI$_ARCHFLAG = 4314 ! Flags used by uVAX codeW DECLARE LONG CONSTANT SYI$_SCS_EXISTS = 4315 ! Flag to indicate presence of SCS` DECLARE LONG CONSTANT SYI$_DISK_QUORUM = 4316 ! Cluster quorum device name ( in ASCII )X DECLARE LONG CONSTANT SYI$_XSID = 4317 ! Extended System Identification Register/ ! Used to be DISK_QUORUM3. Unused for now./ ! Used to be DISK_QUORUM4. Unused for now.I DECLARE LONG CONSTANT SYI$_PAMAXPORT = 4320 ! UMax PA port to pollZ DECLARE LONG CONSTANT SYI$_PASANITY = 4321 ! PA sanity timer enable/disable switchJ DECLARE LONG CONSTANT SYI$_DEFQUEPRI = 4322 ! Default Que PriorityF DECLARE LONG CONSTANT SYI$_MAXQUEPRI = 4323 ! Max Que PriorityM DECLARE LONG CONSTANT SYI$_QDSKINTERVAL = 4324 ! Disk Quorum IntervalF DECLARE LONG CONSTANT SYI$_ALLOCLASS = 4325 ! Allocation classK DECLARE LONG CONSTANT SYI$_LGI_RETRY_LIM = 4326 ! Login retry limitM DECLARE VLONG CONSTANT SYI$_LGI_RETRY_TMO = 4327 ! Login retry timeoutK DECLARE LONG CONSTANT SYI$_LGI_BRK_LIM = 4328 ! Login failure limitM DECLARE LONG CONSTANT SYI$_LGI_BRK_TMO = 4329 ! Login suspect timeoutQ DECLARE LONG CONSTANT SYI$_LGI_HID_TIM = 4330 ! Login evasive action timeV DECLARE LONG CONSTANT SYI$_LGI_PWD_TMO = 4331 ! System password drop dead timek DECLARE LONG CONSTANT SYI$_PQL_DJTQUOTA = 4332 ! Default Job-wide Logical Name Table Creation QuotakW DECLARE LONG CONSTANT SYI$_PQL_MJTQUOTA = 4333 ! Minimum Job-wide Logical Name Table Creation QuotaO DECLARE LONG CONSTANT SYI$_VAXCLUSTER = 4334 ! VAXcluster participationZ DECLARE LONG CONSTANT SYI$_LOCKDIRWT = 4335 ! Lock manager directory system weightO DECLARE LONG CONSTANT SYI$_QDSKVOTES = 4336 ! Votes held by quorum disk] DECLARE LONG CONSTANT SYI$_DORMANTWAIT = 4337 ! When low pri COM proc becomes dormantN DECLARE LONG CONSTANT SYI$_PAGEFILE_PAXGE = 4338 ! Total pagefile pagesN DECLARE LONG CONSTANT SYI$_SWAPFILE_PAGE = 4339 ! Total swapfile pagesM DECLARE LONG CONSTANT SYI$_PAGEFILE_FREE = 4340 ! Free pagefile pagesM DECLARE LONG CONSTANT SYI$_SWAPFILE_FREE = 4341 ! Free swapfile pages\ DECLARE LONG CONSTANT SYI$_TTY_TIMEOUT = 4342 ! Seconds for virtual terminal timeoutW DECLARE LONG CONSTANT SYI$_TTY_AUTOCHAR = 4343 ! autobaud recognition characterS DECLARE LONG CONSTANT SYI$_PANOPOLL = 43 Y44 ! Disable/enable CI port pollingQ DECLARE LONG CONSTANT SYI$_PE1 = 4345 ! Reserved TO PEDRIVER ( DYNAMIC )1 DECLARE LONG CONSTANT SYI$_PE2 = 4346 ! "1 DECLARE LONG CONSTANT SYI$_PE3 = 4347 ! "1 DECLARE LONG CONSTANT SYI$_PE4 = 4348 ! "P DECLARE LONG CONSTANT SYI$_PE5 = 4349 ! Reserved TO PEDRIVER ( STATIC )1 DECLARE LONG CONSTANT SYI$_PE6 = 4350 ! "Q DECLARE LONG CONSTANT SYI$_RMS_GBLBUFQUO = 4351 ! RMS global buffer quotaM DEZCLARE LONG CONSTANT SYI$_RMS_DFNBC = 4352 ! " " network block countc DECLARE LONG CONSTANT SYI$_ACP_DINDXCACHE = 4353 ! File system directory index cache blocksl DECLARE LONG CONSTANT SYI$_MAXATTACHPRI = 4354 ! Maximum scheduling prio for ASMP attached processorY DECLARE LONG CONSTANT SYI$_SMP_CPUS = 4355 ! Number of CPUs to boot in SMP system] DECLARE LONG CONSTANT SYI$_SMP_CPUSH = 4356 ! Hi Number of CPUs to boot in SMP systemO DECLARE LONG CONSTANT SYI$_F[ALLBACK_MODE = 4357 ! Cluster fallback modef DECLARE LONG CONSTANT SYI$_MPW_LOWAITLIMIT = 4358 ! Modified page writer lower busy wait limite DECLARE LONG CONSTANT SYI$_MPW_IOLIMIT = 4359 ! Modified page writer max concurrent I/O countO DECLARE LONG CONSTANT SYI$_S0_PAGING = 4360 ! System space paging flags[ DECLARE LONG CONSTANT SYI$_HW_MODEL = 4361 ! VAX model number ( from SB$B_HWVERS )[ DECLARE LONG CONSTANT SYI$_HW_NAME = 4362 ! VAX model name from #/\name trans. tableU DECLARE LONG CONSTANT SYI$_SCH_CTLFLAGS = 4363 ! CPU scheduling control flagsU DECLARE LONG CONSTANT SYI$_NODE_EVOTES = 4364 ! Votes expected by target node^ DECLARE LONG CONSTANT SYI$_CLUSTER_EVOTES = 4365 ! Number of expected votes in clusterX DECLARE LONG CONSTANT SYI$_MULTIPROCESSING = 4366 ! Multiprocessor participationR DECLARE LONG CONSTANT SYI$_FREE_GBLPAGES = 4367 ! Total, free global pagesa DECLARE LONG CONSTANT SYI$_CONTIG_]GBLPAGES = 4368 ! Maximum, contiguous free global pagesU DECLARE LONG CONSTANT SYI$_FREE_GBLSECTS = 4369 ! Total, free global sectionsI DECLARE LONG CONSTANT SYI$_EXPECTED_VOTES = 4370 ! Expected votesS DECLARE LONG CONSTANT SYI$_PU_OPTIONS = 4371 ! Select PUDRIVER load optionsW DECLARE LONG CONSTANT SYI$_WPTTE_SIZE = 4372 ! # Watchpoint Trace Table EntriesT DECLARE LONG CONSTANT SYI$_WPRE_SIZE = 4373 ! Watchpoint Restore Entry size [ DECLARE LONG C^ONSTANT SYI$_SMP_SANITY_CNT = 4374 ! # SMP Sanity events bef. timeoutc DECLARE LONG CONSTANT SYI$_SMP_TICK_CNT = 4375 ! Clock ticks between SMP sanity time cyclesf DECLARE LONG CONSTANT SYI$_QBUS_MULT_INTR = 4376 ! uVAX/QBUS multi-level interrupt enable flagT DECLARE LONG CONSTANT SYI$_SYSTEM_RIGHTS = 4377 ! System rights list segmentT DECLARE LONG CONSTANT SYI$_SMP_SPINWAIT = 4378 ! SMP normal busywait timeoutU DECLARE LONG CONSTANT SYI$_SMP_LNGSPINWAIT = 437_9 ! SMP LONG busywait timeoutW DECLARE LONG CONSTANT SYI$_TIME_CONTROL = 4380 ! Time-related control functionsW DECLARE LONG CONSTANT SYI$_AVAILCPU_CNT = 4381 ! Number of CPUs in this machineW DECLARE LONG CONSTANT SYI$_ACTIVECPU_CNT = 4382 ! Number of CPUs up and running- ! Used to be LAVC_CONV_BOOT. Unused now.- ! Used to be LAVC_LOAD_PEA0. Unused now.- ! Used to be LAVC_PORT_SERV. Unused now.S DECLARE LONG CONSTANT SYI$_MSCP_LOAD = 4386 ! Load` MSCP server at boot timeJ DECLARE LONG CONSTANT SYI$_MSCP_SERVE_ALL = 4387 ! Serve all disksU DECLARE LONG CONSTANT SYI$_POOLCHECK = 4388 ! Pool debugging in MEMORYALC.MARU DECLARE LONG CONSTANT SYI$_TAPE_MVTIMEOUT = 4389 ! Magtape mount verificationX DECLARE LONG CONSTANT SYI$_PSEUDOLOA = 4390 ! Pseudoloa image size for tape boot[ DECLARE LONG CONSTANT SYI$_MINCLASSPRI = 4391 ! Min. priority for class scheduling [ DECLARE LONG CONSTANT SYI$_MAXCLASSPaRI = 4392 ! Max. priority for class scheduling d DECLARE LONG CONSTANT SYI$_MINPRPRI = 4393 ! Min. priority for preemptive-resume scheduling r DECLARE LONG CONSTANT SYI$_AUTOCONFIG_ALGO = 4394 ! Selects which algorithmn SYSGEN uses to autoconfigure._ DECLARE LONG CONSTANT SYI$_ERRORLOGBUFFERS = 4395 ! Number of buffers for error logging DECLARE LONG CONSTANT SYI$_JOBCTLD = 4396 ! Dynamic SYSGEN flag to handle job controller diagnostics and Rolling upgrade.b bDECLARE LONG CONSTANT SYI$_WINDOW_SYSTEM = 4397 ! Default windowing system for workstation\ DECLARE LONG CONSTANT SYI$_MSCP_BUFFER = 4398 ! Pages allocated to server local poolb DECLARE LONG CONSTANT SYI$_MSCP_CREDITS = 4399 ! Number of send credits extended by serveri DECLARE LONG CONSTANT SYI$_BREAKPOINTS = 4400 ! Mask of INI$BRK callers in exec used in this bootu DECLARE LONG CONSTANT SYI$_CLOCK_INTERVAL = 4401 ! Time ( in usec ) between interval timer clock intcerrupts DECLARE LONG CONSTANT SYI$_DUMPSTYLE = 4402 ! Mask specifying desired format of dump file ( full dump or subset dump )N DECLARE LONG CONSTANT SYI$_NISCS_PORT_SERV = 4403 ! Port services flagV DECLARE LONG CONSTANT SYI$_RSRVPAGCNT = 4404 ! No. of pagefile pages to escrowN DECLARE LONG CONSTANT SYI$_VECTOR_PROC = 4405 ! Load vector processingG DECLARE LONG CONSTANT SYI$_VECTOR_MARGIN = 4406 ! Vector marginM DECLARE LONG CONSTANT SYI$_AFFINITY_SKdIP = 4407 ! Affinity skip countM DECLARE LONG CONSTANT SYI$_AFFINITY_TIME = 4408 ! Affinity queue timeX DECLARE LONG CONSTANT SYI$_VECTOR_EMULATOR = 4409 ! Vector emulator present flagM DECLARE LONG CONSTANT SYI$_VP_MASK = 4410 ! Mask of vector processorsQ DECLARE LONG CONSTANT SYI$_VP_NUMBER = 4411 ! Number of vector processors_ DECLARE LONG CONSTANT SYI$_USED_GBLPAGCNT = 4412 ! Current count of global pages in use_ DECLARE LONG CONSTANT SYI$_USED_eGBLPAGMAX = 4413 ! Maximum count of global pages in usec DECLARE LONG CONSTANT SYI$_USED_GBLSECTCNT = 4414 ! Current count of global sections in usec DECLARE LONG CONSTANT SYI$_USED_GBLSECTMAX = 4415 ! Maximum count of global sections in useS DECLARE LONG CONSTANT SYI$_ERLBUFFERPAGES = 4416 ! Pages in each ERL BufferP DECLARE LONG CONSTANT SYI$_TAPE_ALLOCLASS = 4417 ! Tape Allocation classY DECLARE LONG CONSTANT SYI$_PFRATH_SYS = 4418 ! PFRATH for the sysftem working setX DECLARE LONG CONSTANT SYI$_WSINC_SYS = 4419 ! WSINC for the system working setX DECLARE LONG CONSTANT SYI$_WSDEC_SYS = 4420 ! WSDEC for the system working setY DECLARE LONG CONSTANT SYI$_AWSMIN_SYS = 4421 ! AWSMIN for the system working setZ DECLARE LONG CONSTANT SYI$_AWSTIME_SYS = 4422 ! AWSTIME for the system working setA DECLARE LONG CONSTANT SYI$_BOOT_STYLE = 4423 ! Boot StyleP DECLARE LONG CONSTANT SYI$_FT_FLAGS = 4424 ! Fauglt Tolerance Flags fieldD DECLARE LONG CONSTANT SYI$_SHADOWING = 4425 ! Shadowing modeW DECLARE LONG CONSTANT SYI$_SHADOW_SYS_DISK = 4426 ! Volume shadowed system disk\ DECLARE LONG CONSTANT SYI$_SHADOW_SYS_UNIT = 4427 ! Shadowed system disk unit number[ DECLARE LONG CONSTANT SYI$_SHADOW_MAX_COPY = 4428 ! Max shadow copy threads allowedO DECLARE LONG CONSTANT SYI$_TIMVCFAIL = 4429 ! Time to detect VC failureZ DECLARE LONG CONSTANT SYI$_SCSI_NOAUTO = 443h0 ! NOAUTOCONFIGURE for SCSI devices. W DECLARE LONG CONSTANT SYI$_PRIORITY_OFFSET = 4431 ! Priority gap for preemptionU DECLARE LONG CONSTANT SYI$_VBN_CACHE_D = 4432 ! VBN cache flags dynamic part1T DECLARE LONG CONSTANT SYI$_VBN_CACHE_S = 4433 ! VBN cache flags static part1U DECLARE LONG CONSTANT SYI$_VCC_FLAGS_D = 4434 ! VBN cache flags dynamic part2T DECLARE LONG CONSTANT SYI$_VCC_FLAGS_S = 4435 ! VBN cache flags static part2V DECLARE LONG CONSTANiT SYI$_VCC_PTES = 4436 ! VBN cache number of PTE allocatedM DECLARE LONG CONSTANT SYI$_VCC_MAXSIZE = 4437 ! Max size of VBN cacheM DECLARE LONG CONSTANT SYI$_VCC_MINSIZE = 4438 ! Min size of VBN cache\ DECLARE LONG CONSTANT SYI$_VCC_CLMAX = 4439 ! Max number of cache lines in VBN cachel DECLARE LONG CONSTANT SYI$_VCC_EQCLASS = 4440 ! VBN cache aver. number of Eq. classes per cache lineZ DECLARE LONG CONSTANT SYI$_MMG_CTLFLAGS = 4441 ! Bit mask to control A/Tj mem mgmt.X DECLARE LONG CONSTANT SYI$_MAXAUDMSG = 4442 ! Max # of pages in mailbox message.s DECLARE LONG CONSTANT SYI$_NISCS_MAX_PKTSZ = 4443 ! Maximum number of bytes allocated for all NISCS packetsx DECLARE LONG CONSTANT SYI$_NISCS_LAN_OVRHD = 4444 ! Bytes in NISCS packets reserved for other uses ( eg DESNC )Z DECLARE LONG CONSTANT SYI$_DECNET_VERSION = 4445 ! Version of DECnet-VAX installedZ DECLARE LONG CONSTANT SYI$_TMSCP_LOAD = 4446 ! Load TMSCP tape skerver at boot timea DECLARE LONG CONSTANT SYI$_LGI_CALLOUTS = 4447 ! Number of LOGINOUT local policy calloutse DECLARE LONG CONSTANT SYI$_NET_CALLOUTS = 4448 ! Number of DECNET Login local policy calloutsg DECLARE LONG CONSTANT SYI$_IEEE_ADDRESS = 4449 ! 48 bit IEEE unique address - low order 32 bitsi DECLARE LONG CONSTANT SYI$_IEEE_ADDRESSH = 4450 ! 48 bit IEEE unique address - high order 16 bitsb DECLARE LONG CONSTANT SYI$_SHADOW_MBR_TMO = 4451 ! Timeout ilnterval for HBS shadow membersO DECLARE LONG CONSTANT SYI$_PAGE_SIZE = 4452 ! Memory page size in bytesG DECLARE LONG CONSTANT SYI$_ARCH_TYPE = 4453 ! Architecture typeG DECLARE LONG CONSTANT SYI$_ARCH_NAME = 4454 ! Architecture nameQ DECLARE LONG CONSTANT SYI$_CRD_CONTROL = 4455 ! CRD scrub/replace controlY DECLARE LONG CONSTANT SYI$_SECURITY_POLICY = 4456 ! C2/B1 security policy bitmaskF DECLARE LONG CONSTANT SYI$_DNVOSI1 = 4457 ! DECnet/OSI for VmMSP DECLARE LONG CONSTANT SYI$_VBSS_ENABLE = 4458 ! VBSS enable static flagsO DECLARE LONG CONSTANT SYI$_MEMSIZE = 4459 ! System memory size in pagesV DECLARE LONG CONSTANT SYI$_XQPCTLD1 = 4474 ! Reserved for XQP use ( dynamic )H DECLARE LONG CONSTANT SYI$_XQPCTL2 = 4475 ! Reserved for XQP useR DECLARE LONG CONSTANT SYI$_VBSS_ENABLE2 = 4476 ! VBSS enable dynamic flagsq DECLARE LONG CONSTANT SYI$_DECNET_FULLNAME = 4478 ! DECnet/OSI fullname ( or DECnetn Phase IV node name )P DECLARE LONG CONSTANT SYI$_XQPCTLD3 = 4479 ! F11BXQP Specific parameters DECLARE LONG CONSTANT SYI$_SHADOW_SYS_TMO = 4493 ! Timeout interval for HBS system disk- new and after - shadow membersy DECLARE LONG CONSTANT SYI$_SHADOW_SYS_WAIT = 4494 ! Timeout interval for HBS system disk- exists - shadow membersb DECLARE LONG CONSTANT SYI$_SYSTEM_CHECK = 4497 ! load/enable system problem isolation codeK DECLARE LONG CONSTANT SYI$_TMSCP_SERVE_AoLL = 4505 ! Serve all tapesW DECLARE LONG CONSTANT SYI$_MULTITHREAD = 4521 ! per process kernel thread limitn DECLARE LONG CONSTANT SYI$_CWCREPRC_ENABLE = 4522 ! Allow remote process creation by unprivileged userg DECLARE LONG CONSTANT SYI$_DISABLE_UPCALLS = 4537 ! Bitmask to disable specific threads upcallsP DECLARE LONG CONSTANT SYI$_AVAIL_PAGES = 4539 ! Available physical pagesO DECLARE LONG CONSTANT SYI$_PROC_SLOTS = 4540 ! Process slot informationN p DECLARE LONG CONSTANT SYI$_BAL_SLOTS = 4541 ! Balance slot informationQ DECLARE LONG CONSTANT SYI$_NPAGED_POOL = 4542 ! Nonpaged pool informationM DECLARE LONG CONSTANT SYI$_PAGED_POOL = 4543 ! Paged pool informationJ DECLARE LONG CONSTANT SYI$_MAIN_MEMORY = 4544 ! Memory informationT DECLARE LONG CONSTANT SYI$_MSCP_CMD_TMO = 4549 ! VMS-MSCP server timer valueS DECLARE LONG CONSTANT SYI$_RMS_DFLRL = 4551 ! RMS default max record length_ DECLARE LOqNG CONSTANT SYI$_RMS_HEURISTIC = 4552 ! RMS file attribute heuristic ctr flagP DECLARE LONG CONSTANT SYI$_CLUSTER_CREDITS = 4560 ! cluster send creditsZ DECLARE LONG CONSTANT SYI$_GALAXY_ID = 4581 ! 16-byte unique ID of Galaxy platformJ DECLARE LONG CONSTANT SYI$_CLUSTER_NTIME = 4605 ! Cluster New time` DECLARE LONG CONSTANT SYI$_CLUSTER_NTIME_REF = 4606 ! Cluster New time - local referenceW DECLARE LONG CONSTANT SYI$_WBM_MSG_INT = 4618 ! write bitmap msg cherck intervalR DECLARE LONG CONSTANT SYI$_WBM_MSG_UPPER = 4619 ! upper threshold for msgsR DECLARE LONG CONSTANT SYI$_WBM_MSG_LOWER = 4620 ! lower threshold for msgsu DECLARE LONG CONSTANT SYI$_SHADOW_MAX_UNIT = 4625 ! maximum number of dsa devices which can exist on the nodek DECLARE LONG CONSTANT SYI$_WBM_OPCOM_LVL = 4626 ! opcom mode for write bitmap information messages X DECLARE LONG CONSTANT SYI$_POTENTIALCPU_CNT = 4636 ! Count of potential set cpusO s! ADD 'EXE' (LONGWORD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ********O ! DO NOT ADD 'FLD' (FIELD) ITEMS HERE???? ADD THEM BEFORE 'LASTFLD' ******? DECLARE LONG CONSTANT SYI$_LASTEXE = 4637 ! LAST INDEX @ ! ) equals SYI$C_EXETYPE@12 increment 1 prefix SYI tag $;? ! The following item-codes are for 'sub-field data' items.= ! There usually exists another item-code to retrieve the? ! whole parent cell (longword) - in the EXE section above.8 DECLARE LONGt CONSTANT SYI$_CPU = 8192 ! CPU typeL DECLARE LONG CONSTANT SYI$_BUGREBOOT = 8193 ! Bugcheck reboot enableH DECLARE LONG CONSTANT SYI$_DUMPBUG = 8195 ! Bugcheck dump enableT DECLARE LONG CONSTANT SYI$_BUGCHECKFATAL = 8196 ! All bugchecks become fatalT DECLARE LONG CONSTANT SYI$_ACP_MULTIPLE = 8197 ! New ACP for each disk classS DECLARE LONG CONSTANT SYI$_NOAUTOCONFIG = 8198 ! Auto configuration inhibitJ DECLARE LONG CONSTANT SYI$_NOCLOCK = 8199 ! Inteurval timer inhibitR DECLARE LONG CONSTANT SYI$_NOCLUSTER = 8200 ! Page read clustering inhibitR DECLARE LONG CONSTANT SYI$_POOLPAGING = 8201 ! Enable paging of paged poolS DECLARE LONG CONSTANT SYI$_SBIERRENABLE = 8202 ! SBI error detection enableV DECLARE LONG CONSTANT SYI$_SETTIME = 8203 ! Force entry of time at system bootN DECLARE LONG CONSTANT SYI$_ACP_SHARE = 8204 ! Enable sharing of F11ACPR DECLARE LONG CONSTANT SYI$_SYSPAGING = 8205 ! Enable pagving of system code\ DECLARE LONG CONSTANT SYI$_UAFALTERNATE = 8206 ! Select alternate authorization file[ DECLARE LONG CONSTANT SYI$_WRITABLESYS = 8207 ! Leave system writable for debuggingX DECLARE LONG CONSTANT SYI$_RESALLOC = 8208 ! Enable resource allocation checking[ DECLARE LONG CONSTANT SYI$_SSINHIBIT = 8209 ! Inhibit system services for processesT DECLARE LONG CONSTANT SYI$_CONCEAL_DEVICES = 8210 ! Enable concealed devicesS DECLARE LONG CONSTANT wSYI$_SAVEDUMP = 8211 ! Save dump if it's in page file[ DECLARE LONG CONSTANT SYI$_MOUNTMSG = 8212 ! Enable oper notification of vol mountsZ DECLARE LONG CONSTANT SYI$_DISMOUMSG = 8213 ! Enable oper notification of vol dismV DECLARE LONG CONSTANT SYI$_LOADERAPT = 8214 ! Load alt erase pattern generatorX DECLARE LONG CONSTANT SYI$_LOADCHKPRT = 8215 ! Load alt protection check routineS DECLARE LONG CONSTANT SYI$_XCPU = 8216 ! CPU subtype ( Extended SID info )xO DECLARE LONG CONSTANT SYI$_CJFLOAD = 8217 ! Load common journaling codeX DECLARE LONG CONSTANT SYI$_CJFSYSRUJ = 8218 ! Load recovery unit journaling codeI DECLARE LONG CONSTANT SYI$_NODE_AREA = 8219 ! System ID node areaM DECLARE LONG CONSTANT SYI$_NODE_NUMBER = 8220 ! System ID node numberS DECLARE LONG CONSTANT SYI$_CLASS_PROT = 8221 ! Non-discretionary check flage DECLARE LONG CONSTANT SYI$_CHARACTER_EMULATED = 8222 ! Character string instructioyns emulateda DECLARE LONG CONSTANT SYI$_DECIMAL_EMULATED = 8223 ! Decimal string instructions emulated] DECLARE LONG CONSTANT SYI$_D_FLOAT_EMULATED = 8224 ! D floating instructions emulated] DECLARE LONG CONSTANT SYI$_F_FLOAT_EMULATED = 8225 ! F floating instructions emulated] DECLARE LONG CONSTANT SYI$_G_FLOAT_EMULATED = 8226 ! G floating instructions emulated] DECLARE LONG CONSTANT SYI$_H_FLOAT_EMULATED = 8227 ! H floating instructions emulatedb DEzCLARE LONG CONSTANT SYI$_LOADMTACCESS = 8228 ! Load installation specific access routineD DECLARE LONG CONSTANT SYI$_ACP_XQP_RES = 8229 ! Resident XQPj DECLARE LONG CONSTANT SYI$_WRITESYSPARAMS = 8230 ! Write active parameters to the system .PAR file[ DECLARE LONG CONSTANT SYI$_LGI_BRK_TERM = 8231 ! Use term name in breakin detection[ DECLARE LONG CONSTANT SYI$_LGI_BRK_DISUSER = 8232 ! Disable user account on breakin^ DECLARE LONG CONSTANT SYI$_ACP_REBLDSYSD ={ 8233 ! Rebuild system disk when mounting itS DECLARE LONG CONSTANT SYI$_WS_OPA0 = 8234 ! Workstation using QVSS for OPA0U DECLARE LONG CONSTANT SYI$_NOPGFLSWP = 8235 ! Inhibit swapping into pagefiles5 ! Used to be SHADOWING. Became an EXE item-code.c DECLARE LONG CONSTANT SYI$_LOAD_SYS_IMAGES = 8237 ! Control of how system images are loaded\ DECLARE LONG CONSTANT SYI$_NISCS_CONV_BOOT = 8238 ! Allow remote conversational bootW DECLARE LONG CONSTANT SYI$|_NISCS_LOAD_PEA0 = 8239 ! Load NI-SCS driver for PEA0a DECLARE LONG CONSTANT SYI$_SA_APP = 8240 ! Booting stand-alone application ( SA-BACKUP )^ DECLARE LONG CONSTANT SYI$_LOAD_PWD_POLICY = 8241 ! Load site-specific password policyS DECLARE LONG CONSTANT SYI$_FT_ACTIVE = 8242 ! CIRRUS system is fully activeS DECLARE LONG CONSTANT SYI$_CHECK_CLUSTER = 8243 ! VAXCLUSTER=0 sanity check_ DECLARE LONG CONSTANT SYI$_DAY_OVERRIDE = 8246 ! UAF day classifications} are overriddenZ DECLARE LONG CONSTANT SYI$_DAY_SECONDARY = 8247 ! UAF day override is to SecondaryO DECLARE LONG CONSTANT SYI$_CWLOGICALS = 8248 ! State of CAP_CWLOGICALS O ! ADD 'FLD' (FIELD) ITEM-CODES *ONLY* JUST BEFORE THIS COMMENT ***********O ! DO NOT ADD 'EXE' (LONGWORD) ITEMS HERE???? ADD THEM BEFORE 'LASTEXE' ***? DECLARE LONG CONSTANT SYI$_LASTFLD = 8256 ! LAST INDEX @ ! ) equals SYI$C_FLDTYPE@12 increment 1 prefix SYI tag $;R ! ************ ~**************************************************************** ! *F ! * THE FOLLOWING DEFINITIONS EXIST FOR COMPATIBILITY WITH THE 1ST< ! * IMPLEMENTATION OF SYS$GETSYI. DO NOT CHANGE THEM???= ! * ADD NEW GETSYI ITEM-CODES ONLY TO THE PREVIOUS LISTS. ! *R ! ****************************************************************************G DECLARE LONG CONSTANT SYI$C_SFWTYPE = 1 ! SYSTEM SOFTWARE ITEM @ DECLARE LONG CONSTANT SYI$C_HDWTYPE = 2 ! HARDWARE ITEM D DECLARE LONG CONSTANT SYI$C_LISTEND = 0 ! ITMLST TERMINATOR & ! IDENTIFIER FOR SYSTEM SOFTWARE I DECLARE LONG CONSTANT SYI$_OLDVERSION = 256 ! VMS VERSION NUMBER > DECLARE LONG CONSTANT SYI$_LASTSFW = 257 ! LAST INDEX J ! *******************************************************************J ! ********************* BEGIN TEMP FIX ******************************J ! ********************* BEGIN TEMP FIX ******************************J ! *******************************************************************? ! ) equals SYI$C_SFWTYPE@8 increment 1 prefix SYI tag $;J ! *******************************************************************J ! ********************** END TEMP FIX *******************************J ! ********************** END TEMP FIX *******************************J ! *******************************************************************$ ! IDENTIFIER FOR HARDWARE TYPE ; DECLARE LONG CONSTANT SYI$_OLDCPU = 512 ! CPU TYPE E DECLARE LONG CONSTANT SYI$_OLDSID = 513 ! SYSTEM ID REGISTER > DECLARE LONG CONSTANT SYI$_LASTHDW = 514 ! LAST INDEX A ! ) equals SYI$C_HDWTYPE@8 increment 1 prefix SYI tag $; ww@N|PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! Thread Environment Block Definitions ! 6 DECLARE LONG CONSTANT TEB$M_ASTACT = x'00000001'5 DECLARE LONG CONSTANT TEB$M_ASTEN = x'00000002'* DECLARE LONG CONSTANT TEB$S_ TEB = 72 record TEBA LONG TEB$L_FLINK ! Forward queue linkB LONG TEB$L_BLINK ! Backward queue linkD WORD TEB$W_SIZE ! Size of TEB, in bytesJ BYTE TEB$B_TYPE ! Structure type code for TEBE BYTE TEB$b_reserved_1 ! Reserved to DECthreadsH BYTE TEB$b_reserved_2 ( 1 to 4 ) ! Reserved to DECthreadsE LONG TEB$L_SEQUENCE ! Thread sequence numberH LONG TEB$l_reserved_3 ( 1 to 2 ) ! Reserved to DECthreadsP LONG TEB$L_PER_KT_AREA ! Address of per kernel thread areaT LONG TEB$L_STACK_BASE ! Address of first usable byte in stackT LONG TEB$L_STACK_RESERVE ! Address of first byte in reserve areaS LONG TEB$L_STACK_YELLOW ! Address of first byte in yellow areaR LONG TEB$L_STACK_GUARD ! Address of first byte i n guard areac LONG TEB$L_STACK_SIZE ! Total stack allocation ( green+reserve+yellow+red )T LONG TEB$L_TSD_VALUES ! Address of thread-specific data arrayS LONG TEB$L_TSD_COUNT ! Count of thread-specific data values; LONG TEB$L_CANCEL_FLAGS ! cancel flagsL LONG TEB$L_CANCEL_COUNT ! CMA alert scope nesting count group TEB$r_fill_9 variant case;  LONG TEB$L_THREAD_FLAGS ! thread flags case% group TEB$r_fill_107 ! there's a user mode AST active2 ! use mode ASTs are enabledq BYTE ASTACT_bits ! COMMENT ADDED BY SDL - ASTACT_bits contains bits ASTACT through fill_11) end group TEB$r_fill_10 end variant end group TEB$r_fill_9 end record TEB @ DECLARE LONG CONSTANT TEB$K_LENGTH = 72 ! Length of TEB @ DECLARE LONG CONSTANT TEB$C_LENGTH = 72 ! Length of TEB  ww@}PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! T ! TPARSE CONTROL BLOCK. THIS BLOCK IS ONE OF THE ARGUMENTS USED TO CALL TPARSE,8 ! AND BECOMES THE ARGUMENT LIST TO ACTION ROUTINES. ! G DECLARE LONG CONSTANT TPA$K_COUNT0 = 8 !  ZERO LEVEL VALUE IS 8 6 DECLARE LONG CONSTANT TPA$M_BLANKS = x'00000001'6 DECLARE LONG CONSTANT TPA$M_ABBREV = x'00000002'6 DECLARE LONG CONSTANT TPA$M_ABBRFM = x'00000004'5 DECLARE LONG CONSTANT TPA$M_AMBIG = x'00010000'X DECLARE LONG CONSTANT TPA$K_LENGTH0 = 36 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK X DECLARE LONG CONSTANT TPA$C_LENGTH0 = 36 ! LENGTH OF ZERO LEVEL PARAMETER BLOCK - DECLARE LONG CONSTANT TPA$S_TPADEF = 36 record TPADEFW  LONG TPA$L_COUNT ! ARGUMENT COUNT ( NUMBER OF LONGWORDS ) $ group TPA$R_OPTIONS_OVERLAY variant case@ LONG TPA$L_OPTIONS ! OPTIONS LONGWORD  case* group TPA$R_OPTIONS_BITS< ! PROCESS BLANKS AND TABS EXPLICITLY 4 ! ALLOW MINIMAL ABBREVIATION 8 ! ALLOW FIRST MATCH ABBREVIATION 9 ! AMBIGUOUS  KEYWORD AT THIS STATE q LONG BLANKS_bits ! COMMENT ADDED BY SDL - BLANKS_bits contains bits BLANKS through fill_12. end group TPA$R_OPTIONS_BITS case, group TPA$R_OPTIONS_FIELDS4 BYTE TPADEF$$_FILL_2 ( 1 to 3 )P BYTE TPA$B_MCOUNT ! MINIMUM ABBREVIATION ON KEYWORDS 0 end group TPA$R_OPTIONS_FIELDS end variant( end group TPA$R_OPTIONS_OVE RLAYQ LONG TPA$L_STRINGCNT ! BYTE COUNT OF STRING BEING PARSED N LONG TPA$L_STRINGPTR ! ADDRESS OF STRING BEING PARSED T LONG TPA$L_TOKENCNT ! BYTE COUNT OF CURRENT MATCHING TOKEN I LONG TPA$L_TOKENPTR ! ADDRESS OF MATCHING TOKEN ! group TPA$R_CHAR_OVERLAY variant caseT LONG TPA$L_CHAR ! ASCII CODE OF SINGLE CHARACTER TOKEN  caseM BYTE TPA$B_CHAR ! BYTE FORM OF SINGLE CHAR CELL  end variant% end group TPA$R_CHAR_OVERLAYN LONG TPA$L_NUMBER ! NUMERIC VALUE OF NUMERIC TOKEN S LONG TPA$L_PARAM ! PARAMETER LONGWORD FROM STATE TABLE  end record TPADEF  wwz}PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! 2 ! Define symbols for the item list QIO format !  ! Item list type codes. DECLARE LONG CONSTANT TRM$_MODIFIERS = 0- DECLARE LONG CONSTANT TRM$_EDITMODE = 1, DECLARE LONG CONSTANT TRM$_TIMEOUT = 2) DECLARE LONG CONSTANT TRM$_TERM = 3+ DECLARE LONG CONSTANT TRM$_PROMPT = 4- DECLARE LONG CONSTANT TRM$_INISTRNG = 5- DECLARE LONG CONSTANT TRM$_PICSTRNG = 6, DECLARE LONG CONSTANT TRM$_FILLCHR = 7. DECLARE LONG CONSTANT TRM$_INIOFFSET = 8. DECLARE LONG CONSTANT TRM$_ALTECHSTR = 9/ DECLARE LONG CONSTANT TRM$_ESCTRMOVR = 10K DECLARE LONG CONSTANT TRM$_LASTITM = 11 ! must remain the last item/ DECLARE LONG  CONSTANT TRM$_RESERVE12 = 12/ DECLARE LONG CONSTANT TRM$_RESERVE13 = 13/ DECLARE LONG CONSTANT TRM$_RESERVE14 = 14/ DECLARE LONG CONSTANT TRM$_RESERVE15 = 15/ DECLARE LONG CONSTANT TRM$_RESERVE16 = 16/ DECLARE LONG CONSTANT TRM$_RESERVE17 = 17/ DECLARE LONG CONSTANT TRM$_RESERVE18 = 18/ DECLARE LONG CONSTANT TRM$_RESERVE19 = 19/ DECLARE LONG CONSTANT TRM$_RESERVE20 = 20/ DECLARE LONG CONSTANT TRM$_RESERVE21 = 21/ DECLARE LONG CONST ANT TRM$_RESERVE22 = 22/ DECLARE LONG CONSTANT TRM$_RESERVE23 = 23/ DECLARE LONG CONSTANT TRM$_RESERVE24 = 24/ DECLARE LONG CONSTANT TRM$_RESERVE25 = 25/ DECLARE LONG CONSTANT TRM$_RESERVE26 = 26/ DECLARE LONG CONSTANT TRM$_RESERVE27 = 27/ DECLARE LONG CONSTANT TRM$_RESERVE28 = 28/ DECLARE LONG CONSTANT TRM$_RESERVE29 = 29/ DECLARE LONG CONSTANT TRM$_RESERVE30 = 30O DECLARE LONG CONSTANT TRM$_RECLINE = 31 ! Reserved for exclusive use by , ! Japanese input method; this code MUST, ! remain in the invalid item code range !  ! Editmode type codes ! 0 DECLARE LONG CONSTANT TRM$K_EM_DEFAULT = 01 DECLARE LONG CONSTANT TRM$K_EM_RDVERIFY = 19 DECLARE LONG CONSTANT TRM$M_TM_NOECHO = x'00000040'8 DECLARE LONG CONSTANT TRM$M_TM_TIMED = x'00000080'9 DECLARE LONG CONSTANT TRM$M_TM_CVTLOW = x'00000100': DECLARE LONG CONSTANT TRM$M_TM_NOFILTR = x'00000200'; DECLARE LONG CONSTANT TRM$M_TM_DSABLMBX = x'00000400'8 DECLARE LONG CONSTANT TRM$M_TM_PURGE = x'00000800'< DECLARE LONG CONSTANT TRM$M_TM_TRMNOECHO = x'00001000': DECLARE LONG CONSTANT TRM$M_TM_REFRESH = x'00002000'9 DECLARE LONG CONSTANT TRM$M_TM_ESCAPE = x'00004000'9 DECLARE LONG CONSTANT TRM$M_TM_NOEDIT = x'00008000'; DECLARE LONG CONSTANT TRM$M_TM_NORECALL = x'00010000'9 DECLARE LONG CONSTANT TRM$M_TM_R_JUST = x'00020000'; DECLARE LONG CONSTANT TRM$M_TM_AUTO_TAB = x' 00040000'9 DECLARE LONG CONSTANT TRM$M_TM_ARROWS = x'00080000'= DECLARE LONG CONSTANT TRM$M_TM_TERM_ARROW = x'00100000'; DECLARE LONG CONSTANT TRM$M_TM_TERM_DEL = x'00200000'9 DECLARE LONG CONSTANT TRM$M_TM_TOGGLE = x'00400000'; DECLARE LONG CONSTANT TRM$M_TM_OTHERWAY = x'00800000': DECLARE LONG CONSTANT TRM$M_TM_NOCLEAR = x'01000000'8 DECLARE LONG CONSTANT TRM$M_CV_UPPER = x'00000001'8 DECLARE LONG CONSTANT TRM$M_CV_LOWER = x'00000002': DECL ARE LONG CONSTANT TRM$M_CV_NUMERIC = x'00000004': DECLARE LONG CONSTANT TRM$M_CV_NUMPUNC = x'00000008'< DECLARE LONG CONSTANT TRM$M_CV_PRINTABLE = x'00000010'6 DECLARE LONG CONSTANT TRM$M_CV_ANY = x'00000020'= DECLARE LONG CONSTANT TRM$M_ST_FIELD_FULL = x'00000001'; DECLARE LONG CONSTANT TRM$M_ST_OTHERWAY = x'00000002', DECLARE LONG CONSTANT TRM$S_TRMDEF = 4 record TRMDEF variant case' group TRM$R_TRMDEF_BITS0#  ! FUNCTION CODE  ! NOECHO  ! TIMED ( ! CONVERT LOWER CASE  ! NO FILTER % ! DISABLE MAILBOX % ! PURGE TYPEAHEAD 0 ! TERMINATORS ARE NOT ECHOED 1 ! Control-R interrupted read n7 ! TERMINATE READ ON ESCAPE SEQUENCE - ! DISABLE ADVANCED EDITINGC ! Disable the recall feature of  advanced editing( ! Right justification# ! Auto tab field4 ! enable left ? right arrow keys/ ! pass arrows as terminator. ! pass as terminator4 ! allow insert/overstrike toggle> ! overstrike R-justify or insert L-justifyH ! don't replace fill with clear after first non-filln LONG FILL_1_bits ! COMMENT ADDED BY SDL - FILL_1_bits contains bits FILL_1 through fill_13+ end group TRM$R_TRMDEF_BITS0 caseB group TRM$R_TRMDEF_BITS1 ! picture string mask ! upper case ! lower case# ! numeric (0-9)1 ! numeric punctuation (+ - .)) ! printable character# ! any charactert BYTE CV_UPPER_bits ! COMMENT ADDED BY SDL - CV_UPPER_bits contai ns bits CV_UPPER through fill_14+ end group TRM$R_TRMDEF_BITS1 case' group TRM$R_TRMDEF_BITS2J ! field full condition IOSB+7 contains index to cursorE ! left-justify insert OR right-justify overstrike~ BYTE ST_FIELD_FULL_bits ! COMMENT ADDED BY SDL - ST_FIELD_FULL_bits contains bits ST_FIELD_FULL through & ! fill_15+ end group TRM$R_TRMDEF_BITS2 end variant end record TRMDEF  ww^ ~PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! & ! DEFINE TERMINAL SPECIAL SYMBOLS ! , DECLARE LONG CONSTANT TT$C_BAUD_50 = 1, DECLARE LONG CONSTANT TT$C_BAUD_75 = 2- DECLARE LONG CONSTANT TT$C_BAUD_110 = 3- DECLAR E LONG CONSTANT TT$C_BAUD_134 = 4- DECLARE LONG CONSTANT TT$C_BAUD_150 = 5- DECLARE LONG CONSTANT TT$C_BAUD_300 = 6- DECLARE LONG CONSTANT TT$C_BAUD_600 = 7. DECLARE LONG CONSTANT TT$C_BAUD_1200 = 8. DECLARE LONG CONSTANT TT$C_BAUD_1800 = 9/ DECLARE LONG CONSTANT TT$C_BAUD_2000 = 10/ DECLARE LONG CONSTANT TT$C_BAUD_2400 = 11/ DECLARE LONG CONSTANT TT$C_BAUD_3600 = 12/ DECLARE LONG CONSTANT TT$C_BAUD_4800 = 13/ DECLARE LONG CONSTANT TT $C_BAUD_7200 = 14/ DECLARE LONG CONSTANT TT$C_BAUD_9600 = 150 DECLARE LONG CONSTANT TT$C_BAUD_19200 = 160 DECLARE LONG CONSTANT TT$C_BAUD_38400 = 170 DECLARE LONG CONSTANT TT$C_BAUD_57600 = 180 DECLARE LONG CONSTANT TT$C_BAUD_76800 = 191 DECLARE LONG CONSTANT TT$C_BAUD_115200 = 20 ! *** MATCHES DCDEF MACRO + DECLARE LONG CONSTANT TT$_UNKNOWN = 04 DECLARE LONG CONSTANT TT$_VT05 = 1 ! VT05 A DECLARE LONG CONSTANT TT$_VK100 = 2 ! str ange terminals ) DECLARE LONG CONSTANT TT$_VT173 = 3* DECLARE LONG CONSTANT TT$_TQ_BTS = 4, DECLARE LONG CONSTANT TT$_TEK401X = 10F DECLARE LONG CONSTANT TT$_FT1 = 16 ! FOREIGN TERMINAL TYPES H DECLARE LONG CONSTANT TT$_FT2 = 17 ! new support also includesC DECLARE LONG CONSTANT TT$_FT3 = 18 ! the negative numbers( DECLARE LONG CONSTANT TT$_FT4 = 19( DECLARE LONG CONSTANT TT$_FT5 = 20( DECLARE LONG CONSTANT TT$_FT6 = 21( DECLAR E LONG CONSTANT TT$_FT7 = 22D DECLARE LONG CONSTANT TT$_FT8 = 23 ! END OF FOREIGN TYPES + ! RESERVE REST UP TO 32 FOR EXTENSIONS( DECLARE LONG CONSTANT TT$_LAX = 32) DECLARE LONG CONSTANT TT$_LA36 = 32* DECLARE LONG CONSTANT TT$_LA120 = 33) DECLARE LONG CONSTANT TT$_LA34 = 34) DECLARE LONG CONSTANT TT$_LA38 = 35) DECLARE LONG CONSTANT TT$_LA12 = 36* DECLARE LONG CONSTANT TT$_LA100 = 37) DECLARE LONG CONSTANT TT$_LA24 = 37* DECL ARE LONG CONSTANT TT$_LQP02 = 38) DECLARE LONG CONSTANT TT$_LA84 = 39* DECLARE LONG CONSTANT TT$_LA210 = 40) DECLARE LONG CONSTANT TT$_LN03 = 41* DECLARE LONG CONSTANT TT$_LN01K = 42) DECLARE LONG CONSTANT TT$_LA80 = 43) DECLARE LONG CONSTANT TT$_VT5X = 64) DECLARE LONG CONSTANT TT$_VT52 = 64) DECLARE LONG CONSTANT TT$_VT55 = 655 DECLARE LONG CONSTANT TT$_VT100 = 96 ! VT100 * DECLARE LONG CONSTANT TT$_VT101 = 97* DECLARE LONG C ONSTANT TT$_VT102 = 98* DECLARE LONG CONSTANT TT$_VT105 = 99+ DECLARE LONG CONSTANT TT$_VT125 = 100+ DECLARE LONG CONSTANT TT$_VT131 = 101+ DECLARE LONG CONSTANT TT$_VT132 = 102* DECLARE LONG CONSTANT TT$_VT80 = 1032 DECLARE LONG CONSTANT TT$_VT200_Series = 1100 DECLARE LONG CONSTANT TT$_Pro_Series = 1112 DECLARE LONG CONSTANT TT$_VT300_Series = 1122 DECLARE LONG CONSTANT TT$_VT400_Series = 1132 DECLARE LONG CONSTANT TT$_VT500_Series = 114 E ! from 128 on is reserved for foreign terminals and must not be $ ! used for terminal definitions6 DECLARE LONG CONSTANT TT$M_PASSALL = x'00000001'5 DECLARE LONG CONSTANT TT$M_NOECHO = x'00000002'8 DECLARE LONG CONSTANT TT$M_NOTYPEAHD = x'00000004'5 DECLARE LONG CONSTANT TT$M_ESCAPE = x'00000008'7 DECLARE LONG CONSTANT TT$M_HOSTSYNC = x'00000010'5 DECLARE LONG CONSTANT TT$M_TTSYNC = x'00000020'5 DECLARE LONG CONSTANT TT$M_SCRIPT = x'00000040' 4 DECLARE LONG CONSTANT TT$M_LOWER = x'00000080'6 DECLARE LONG CONSTANT TT$M_MECHTAB = x'00000100'3 DECLARE LONG CONSTANT TT$M_WRAP = x'00000200'5 DECLARE LONG CONSTANT TT$M_CRFILL = x'00000400'5 DECLARE LONG CONSTANT TT$M_LFFILL = x'00000800'4 DECLARE LONG CONSTANT TT$M_SCOPE = x'00001000'5 DECLARE LONG CONSTANT TT$M_REMOTE = x'00002000'7 DECLARE LONG CONSTANT TT$M_RESERVED = x'00004000'7 DECLARE LONG CONSTANT TT$M_EIGHTBIT = x'00008000'7  DECLARE LONG CONSTANT TT$M_MBXDSABL = x'00010000'7 DECLARE LONG CONSTANT TT$M_NOBRDCST = x'00020000'7 DECLARE LONG CONSTANT TT$M_READSYNC = x'00040000'7 DECLARE LONG CONSTANT TT$M_MECHFORM = x'00080000'6 DECLARE LONG CONSTANT TT$M_HALFDUP = x'00100000'4 DECLARE LONG CONSTANT TT$M_MODEM = x'00200000'3 DECLARE LONG CONSTANT TT$M_OPER = x'00400000'3 DECLARE LONG CONSTANT TT$M_PAGE = x'FF000000'7 DECLARE LONG CONSTANT TT$M_ALTFRAME = x'00000010'6  DECLARE LONG CONSTANT TT$M_ALTRPAR = x'00000020'5 DECLARE LONG CONSTANT TT$M_PARITY = x'00000040'2 DECLARE LONG CONSTANT TT$M_ODD = x'00000080'6 DECLARE LONG CONSTANT TT$M_TWOSTOP = x'00000100'8 DECLARE LONG CONSTANT TT$M_DISPARERR = x'00000200'8 DECLARE LONG CONSTANT TT$M_ALTDISPAR = x'00000400'4 DECLARE LONG CONSTANT TT$M_BREAK = x'00000800'5 DECLARE LONG CONSTANT TT$M_DS_DTR = x'00000002'7 DECLARE LONG CONSTANT TT$M_DS_SECTX = x'00000008'5  DECLARE LONG CONSTANT TT$M_DS_RTS = x'00000010'8 DECLARE LONG CONSTANT TT$M_DS_SECREC = x'00000008'5 DECLARE LONG CONSTANT TT$M_DS_CTS = x'00000010'9 DECLARE LONG CONSTANT TT$M_DS_CARRIER = x'00000020'6 DECLARE LONG CONSTANT TT$M_DS_RING = x'00000040'5 DECLARE LONG CONSTANT TT$M_DS_DSR = x'00000080'* DECLARE LONG CONSTANT TT$S_TTDEF = 4 record TTDEF variant case% group TT$R_TTDEF_BITS0n LONG PAS SALL_bits ! COMMENT ADDED BY SDL - PASSALL_bits contains bits PASSALL through PAGE) end group TT$R_TTDEF_BITS0 case% group TT$R_TTDEF_BITS1n WORD FILL_2_bits ! COMMENT ADDED BY SDL - FILL_2_bits contains bits FILL_2 through fill_16) end group TT$R_TTDEF_BITS1 case% group TT$R_TTDEF_BITS2* ! OUTPUT MODEM CONTROL n BYTE FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through fill_17) end group TT$R_TTDEF_BITS2 case% group TT$R_TTDEF_BITS3m BYTE FILL_5_bits ! COMMENT ADDED BY SDL - FILL_5_bits contains bits FILL_5 through DS_DSR) end group TT$R_TTDEF_BITS3 end variant end record TTDEF  wwV~PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  9 DECLARE LONG CONSTANT TT2$M_LOCALECHO = x'00000001'8 DECLARE LONG CONSTANT TT2$M_AUTOBAUD = x'00000002'6 DECLARE LONG CONSTANT TT2$M_HANGUP = x'00000004'9 DECLARE LONG CONSTANT TT2$M_ MODHANGUP = x'00000008'9 DECLARE LONG CONSTANT TT2$M_BRDCSTMBX = x'00000010'3 DECLARE LONG CONSTANT TT2$M_XON = x'00000020'3 DECLARE LONG CONSTANT TT2$M_DMA = x'00000040'9 DECLARE LONG CONSTANT TT2$M_ALTYPEAHD = x'00000080'8 DECLARE LONG CONSTANT TT2$M_SETSPEED = x'00000100': DECLARE LONG CONSTANT TT2$M_DCL_MAILBX = x'00000200'7 DECLARE LONG CONSTANT TT2$M_DECCRT4 = x'00000400'8 DECLARE LONG CONSTANT TT2$M_COMMSYNC = x'00000800'7 DECLARE LONG  CONSTANT TT2$M_EDITING = x'00001000'6 DECLARE LONG CONSTANT TT2$M_INSERT = x'00002000'8 DECLARE LONG CONSTANT TT2$M_FALLBACK = x'00004000'6 DECLARE LONG CONSTANT TT2$M_DIALUP = x'00008000'6 DECLARE LONG CONSTANT TT2$M_SECURE = x'00010000': DECLARE LONG CONSTANT TT2$M_DISCONNECT = x'00020000'7 DECLARE LONG CONSTANT TT2$M_PASTHRU = x'00040000'6 DECLARE LONG CONSTANT TT2$M_SYSPWD = x'00080000'5 DECLARE LONG CONSTANT TT2$M_SIXEL = x'00100000'4 DECL ARE LONG CONSTANT TT2$M_DRCS = x'00200000'7 DECLARE LONG CONSTANT TT2$M_PRINTER = x'00400000': DECLARE LONG CONSTANT TT2$M_APP_KEYPAD = x'00800000'7 DECLARE LONG CONSTANT TT2$M_ANSICRT = x'01000000'5 DECLARE LONG CONSTANT TT2$M_REGIS = x'02000000'5 DECLARE LONG CONSTANT TT2$M_BLOCK = x'04000000'3 DECLARE LONG CONSTANT TT2$M_AVO = x'08000000'4 DECLARE LONG CONSTANT TT2$M_EDIT = x'10000000'6 DECLARE LONG CONSTANT TT2$M_DECCRT = x'20000000'7 DECL ARE LONG CONSTANT TT2$M_DECCRT2 = x'40000000'7 DECLARE LONG CONSTANT TT2$M_DECCRT3 = x'80000000', DECLARE LONG CONSTANT TT2$S_TT2DEF = 4 record TT2DEF variant case& group TT2$R_TT2DEF_BITS5 ! TEMP DEFINITIONS FOR DCL SPAWN > ! Level 4 terminals (was OUTBAND-obsolete)/ ! (was DCL_CTRLC-obsolete) - ! enable advanced editing2 ! INPUT EDITING IN STER DEFAULT0 ! USE MULTINATIONAL FALLBACK5 ! TERMINAL IS CONNECTED TO DIALUP- ! RECOGNIZE SECURE SERVER2 ! TERMINAL CAN BE DISCONNECTED. ! passall with flowcontrol. ! System password required% ! SIXEL SUPPORTED, ! PRINTER PORT AVAILABLE2 ! Keypad in applicationis mode1 ! ANSI, REGIS, BLOCK and AVO 5 ! must be contiguous for SCRPKG. $ ! DECCRT level 2$ ! DECCRT level 3w LONG LOCALECHO_bits ! COMMENT ADDED BY SDL - LOCALECHO_bits contains bits LOCALECHO through DECCRT3* end group TT2$R_TT2DEF_BITS end variant end record TT2DEF  wwNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  5 DECLARE LONG CONSTANT TT3$M_POSIX = x'00000001': DECLARE LONG CONSTANT TT3$M_ANSI_COLOR = x'00000002'7 DECLARE LONG CONSTANT TT3$M_DECCRT5 = x'00000004'8 DECLARE LONG CONSTANT TT3$M_ RTS_FLOW = x'00000008', DECLARE LONG CONSTANT TT3$S_TT3DEF = 4 record TT3DEF variant case& group TT3$R_TT3DEF_BITSo LONG POSIX_bits ! COMMENT ADDED BY SDL - POSIX_bits contains bits POSIX through AS_RESERVED* end group TT3$R_TT3DEF_BITS end variant end record TT3DEF  ww ~PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  8 DECLARE LONG CONSTANT TTC$M_RESERVED = x'000000FF'4 DECLARE LONG CONSTANT TTC$M_KANA = x'00000100'5 DECLARE LONG CONSTANT TTC$M_KANJI = x'00000200'5 DECLARE LONG CONSTANT TTC$M_HANZI = x'00000400'6 DECLARE LONG CONSTANT TTC$M_HANGUL = x'00000800'5 DECLARE LONG CONSTANT TTC$M_HANYU = x'00001000'4 DECLARE LONG CONSTANT TTC$M_THAI = x'00002000', DECLARE LONG CONSTANT TTC$S_TTCDEF = 2 record TTCDEF variant case& group TTC$R_TTCDEF_BITS, ! First byte is reserved ! Katakana ! Kanji ! Hanzi ! Hangul ! Hanyu ! Thait WORD RESERVED_bits ! COMMENT ADDED BY SDL - RESERVED_bits contains bits RESERVED through fill_18* end group TTC$R_TTCDEF_BITS end variant end record TTCDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  ; DECLARE LONG CONSTANT TTY$M_NO_AUTO_XON = x'00000001'8 DECLARE LONG CONSTANT TTY$M_RESERVED = x'000000FE'< DECLARE LONG CONSTANT TTY$M_PARITY_ERROR = x'00000100'B DECLARE LONG CONSTAN T TTY$M_USE_WINDOW_CONSOLE = x'00000200'D DECLARE LONG CONSTANT TTY$M_LOAD_INPUT_EXTENSION = x'00000400'1 DECLARE LONG CONSTANT TTY$S_TTYDPORTDEF = 2 record TTYDPORTDEF variant case+ group TTY$R_TTYDPORTDEF_BITS0 ! Disable automatic Xon/Xoff. ! Next 7 bits are reserved- ! Drop parity error chars$ ! Console option$ ! Console option}  WORD NO_AUTO_XON_bits ! COMMENT ADDED BY SDL - NO_AUTO_XON_bits contains bits NO_AUTO_XON through fill_19/ end group TTY$R_TTYDPORTDEF_BITS end variant end record TTYDPORTDEF  ww@pPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++% ! User authorization file formatA ! Note: With the exception of the username and account name,A ! all strings are blank padded counted strings. Username and0 ! account name are uncounted, blank padded. ! --H DECLARE LONG CONSTANT UAF070$C_USER_ID = 1 ! main user ID recordB DECLARE LONG CONSTANT UAF070$C_VERSION1 = 1 ! this versionP DECLARE LONG CONSTANT UAF070$C_KEYED_PART = 52 ! ISAM keys come this far^ DECLARE LONG CONSTANT UAF070$C_MAX_PWD_LENGTH = 32 ! maximum plaintext password length^ DECLARE LONG CONSTANT UAF070$K_MAX_PWD_LENGTH = 32 ! maximum plaintext password lengthM DECLARE LONG CONSTANT UAF070$C_AD_II = 0 ! AUTODIN-II 32 bit crc codeU DECLARE LONG CONSTANT UAF070$C_PURDY = 1 ! Purdy polynomial over salted input` DECLARE LONG CONSTANT UAF070$C_PURDY_V = 2 ! Purdy polynomial + variable length usernameX DECLARE LONG CONSTANT UAF070$C_PURDY_S = 3 ! PURDY_V folded into password length[ DECLARE LONG CONSTANT UAF070$K_CURRENT_ALGORITHM = 3 ! current DEC algorithm number[ DECLARE LONG CONSTANT UAF070$C_CURRENT_ALGORITHM = 3 ! current DEC algorithm number= DECLARE LONG CONSTANT UAF070$C_PREFERED_ALGORITHM = 127= DECLARE LONG CONSTANT UAF070$K_PREFERED_ALGORITHM = 127i DECLARE LONG CONSTANT UAF070$C_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currenti DECLARE LONG CONSTANT UAF070$K_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currentY DECLARE LONG CONSTANT UAF070$C_CUST_ALGORITHM = 128 ! customer algorithm divisionY DECLARE LONG CONSTANT UAF070$K_CUST_ALGORITHM = 128 ! customer algorithm div isionL DECLARE LONG CONSTANT UAF070$K_FIXED = 644 ! length of fixed portionL DECLARE LONG CONSTANT UAF070$C_FIXED = 644 ! length of fixed portion2 DECLARE LONG CONSTANT UAF070$K_LENGTH = 14122 DECLARE LONG CONSTANT UAF070$C_LENGTH = 1412e DECLARE LONG CONSTANT UAF070$S_UAF070DEF = 1412 ! Old size name, synonym for UAF070$S_UAF0702 DECLARE LONG CONSTANT UAF070$S_UAF070 = 1412 record UAF070A BYTE UAF070$B_RTYPE ! UAF070 record  typeD BYTE UAF070$B_VERSION ! UAF070 format versionT WORD UAF070$W_USRDATOFF ! offset of counted string of user data group UAF070$r_fill_20 variant case< STRING UAF070$T_USERNAME = 32 ! username case( group UAF070$r_fill_210 STRING UAF070$T_FILL_0 = 31V STRING UAF070$T_USERNAME_TAG = 1 ! tag to differentiate records,  end group UAF070$r_fill_21 end variant# end group UAF070$r_fill_20 group UAF070$r_fill_22 variant case; LONG UAF070$L_UIC ! user ID code case( group UAF070$r_fill_23> WORD UAF070$W_MEM ! member subfield= WORD UAF070$W_GRP ! group subfield, end group UAF070$r_fill_23 end va riant# end group UAF070$r_fill_22B LONG UAF070$L_SUB_ID ! user sub-identifierR BASIC$QUADWORD UAF070$Q_PARENT_ID ! identifier of owner of this account; STRING UAF070$T_ACCOUNT = 32 ! account name; STRING UAF070$T_OWNER = 32 ! owner's name= STRING UAF070$T_DEFDEV = 32 ! default device@ STRING UAF070$T_DEFDIR = 64 ! default directoryA STRING UAF070$T_LGICMD = 64 ! login c ommand fileJ STRING UAF070$T_DEFCLI = 32 ! default command interpreter> STRING UAF070$T_CLITABLES = 32 ! user CLI tables group UAF070$r_fill_24 variant caseA BASIC$QUADWORD UAF070$Q_PWD ! hashed password case( group UAF070$r_fill_25> LONG UAF070$L_PWD ! 32 bit subfield, end group UAF070$r_fill_25 end variant#  end group UAF070$r_fill_24> BASIC$QUADWORD UAF070$Q_PWD2 ! second passwordF WORD UAF070$W_LOGFAILS ! count of login failuresC WORD UAF070$W_SALT ! random password saltN BYTE UAF070$B_ENCRYPT ! primary password hash algorithm# ! known hash algorithm indicesP BYTE UAF070$B_ENCRYPT2 ! secondary password hash algorithmF BYTE UAF070$B_PWD_LENGTH ! minimum password length) BYTE UAF070$$$_FILL_1 ( 1 to 1 )K BASIC$QUADWORD UAF070$Q_EXPIRATION ! expiration date for accountC BASIC$QUADWORD UAF070$Q_PWD_LIFETIME ! password lifetimeF BASIC$QUADWORD UAF070$Q_PWD_DATE ! date of password changeJ BASIC$QUADWORD UAF070$Q_PWD2_DATE ! date of 2nd password changeO BASIC$QUADWORD UAF070$Q_LASTLOGIN_I ! date of last interactive loginS BASIC$QUADWORD UAF070$Q_LASTLOGIN_N ! date of last non-interactive lo ginG BASIC$QUADWORD UAF070$Q_PRIV ! process privilege vectorI BASIC$QUADWORD UAF070$Q_DEF_PRIV ! default process privilegesE group UAF070$R_MIN_CLASS ! minimum security class, BYTE UAF070$B_FILL_2 ( 1 to 20 )% end group UAF070$R_MIN_CLASSE group UAF070$R_MAX_CLASS ! maximum security class, BYTE UAF070$B_FILL_3 ( 1 to 20 )% end group UAF070$R_MAX_CLASS group UAF070$r_fill_26  variant caseB LONG UAF070$L_FLAGS ! user flags longword case( group UAF070$r_fill_27* ! no user control-y4 ! only allow user default CLI5 ! disable SET PASSWORD command> ! restricted account (pre-V5.2 CAPTIVE)- ! no interactive login- ! skip welcome message.  ! skip new mail message. ! disable mail delivery4 ! passwords must be generated- ! password has expired1 ! 2nd password has expired* ! audit all actions1 ! skip last login messages. ! inhibit reconnections( ! auto-login only7 ! disable forced password change7 ! cap tive account (no overrides); ! disable arbitrary image activation; ! disable password dictionary search8 ! disable password history search8 ! default classification is validt LONG DISCTLY_bits ! COMMENT ADDED BY SDL - DISCTLY_bits contains bits DISCTLY through fill_28, end group UAF070$r_fill_27 end variant# end group UAF070$r_fill_26U  BYTE UAF070$B_NETWORK_ACCESS_P ( 1 to 3 ) ! hourly network access, primaryW BYTE UAF070$B_NETWORK_ACCESS_S ( 1 to 3 ) ! hourly network access, secondaryQ BYTE UAF070$B_BATCH_ACCESS_P ( 1 to 3 ) ! hourly batch access, primaryS BYTE UAF070$B_BATCH_ACCESS_S ( 1 to 3 ) ! hourly batch access, secondaryQ BYTE UAF070$B_LOCAL_ACCESS_P ( 1 to 3 ) ! hourly local access, primaryS BYTE UAF070$B_LOCAL_ACCESS_S ( 1 to 3 ) ! hourly local access, secondar yS BYTE UAF070$B_DIALUP_ACCESS_P ( 1 to 3 ) ! hourly dialup access, primaryU BYTE UAF070$B_DIALUP_ACCESS_S ( 1 to 3 ) ! hourly dialup access, secondaryS BYTE UAF070$B_REMOTE_ACCESS_P ( 1 to 3 ) ! hourly remote access, primaryU BYTE UAF070$B_REMOTE_ACCESS_S ( 1 to 3 ) ! hourly remote access, secondaryO BYTE UAF070$$$_FILL_4 ( 1 to 12 ) ! space for 2 more access types group UAF070$r_fill_29 variant c aseM BYTE UAF070$B_PRIMEDAYS ! bits representing primary days case( group UAF070$r_fill_30> ! bit clear means this is a primary day9 ! bit set means this is an off dayq BYTE MONDAY_bits ! COMMENT ADDED BY SDL - MONDAY_bits contains bits MONDAY through fill_31, end group UAF070$r_fill_30 end variant# end group UAF070$r_fill_29)  BYTE UAF070$$$_FILL_5 ( 1 to 1 )D BYTE UAF070$B_PRI ! base process priorityK BYTE UAF070$B_QUEPRI ! maximum job queuing priorityK WORD UAF070$W_MAXJOBS ! maximum jobs for UIC allowed ! 0 means no limitO WORD UAF070$W_MAXACCTJOBS ! maximum jobs for account allowed ! 0 means no limitQ WORD UAF070$W_MAXDETACH ! maximum detached processes for UIC ! 0 means no limitH WORD UAF070$W_PRCCNT ! subprocess creation limitA WORD UAF070$W_BIOLM ! buffered I/O limit? WORD UAF070$W_DIOLM ! direct I/O limitF WORD UAF070$W_TQCNT ! timer queue entry limit> WORD UAF070$W_ASTLM ! AST queue limit< WORD UAF070$W_ENQLM ! enqueue limit> WORD UAF070$W_FILLM ! open file limit@ WORD UAF070$W_SHRFILLM  ! shared file limitE LONG UAF070$L_WSQUOTA ! working set size quotaG LONG UAF070$L_DFWSCNT ! default working set sizeE LONG UAF070$L_WSEXTENT ! working set size limit> LONG UAF070$L_PGFLQUOTA ! page file quota= LONG UAF070$L_CPUTIM ! CPU time quotaL LONG UAF070$L_BYTLM ! buffered I/O byte count limitP LONG UAF070$L_PBYTLM ! paged buffer I/O byte count limitY LONG UAF070$L_JTQUOTA ! job-wide logical name table creation quotaO WORD UAF070$W_PROXY_LIM ! number of proxies user can grantH WORD UAF070$W_PROXIES ! number of proxies grantedM WORD UAF070$W_ACCOUNT_LIM ! number of sub-accounts allowedL WORD UAF070$W_ACCOUNTS ! number of sub-accounts in useE group UAF070$R_DEF_CLASS ! default security clas s, BYTE UAF070$B_FILL_6 ( 1 to 20 )% end group UAF070$R_DEF_CLASS= BYTE UAF070$$$_FILL_99 ( 1 to 44 ) ! spare spaceF BYTE UAF070$$$_FILL_100 ( 1 to 768 ) ! user-extensible area end record UAF070  ww PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! E ! Get User Authorization Information Data Identifier Definitions !  ! **** NOTE **** ! I ! New items must always be added to the END of each item list4  ! so that users will not have to relink. !  ! -> DECLARE LONG CONSTANT UAI$_RTYPE = 1 ! UAF record typeC DECLARE LONG CONSTANT UAI$_VERSION = 2 ! UAF format versionX DECLARE LONG CONSTANT UAI$_USRDATOFF = 3 ! offset of counted string of user data: DECLARE LONG CONSTANT UAI$_USERNAME = 4 ! usernameR DECLARE LONG CONSTANT UAI$_USERNAME_TAG = 5 ! tag to differentiate records; DECLARE LONG CONSTANT UAI$_UIC = 6 ! user ID code> DECLARE LONG CONSTANT UAI$_MEM = 7 ! member subfield= DECLARE LONG CONSTANT UAI$_GRP = 8 ! group subfieldC DECLARE LONG CONSTANT UAI$_SUB_ID = 9 ! user sub-identifierW DECLARE LONG CONSTANT UAI$_PARENT_ID = 10 ! identifier of owner of this account> DECLARE LONG CONSTANT UAI$_ACCOUNT = 11 ! account name< DECLARE LONG CONSTANT UAI$_OWNER = 12 ! owner's name? DECLARE LONG CONSTANT UAI$_DEFDEV = 13 ! default deviceB DECLARE LONG CONSTANT UAI$_DEFDIR = 14 ! default directoryC DECLARE LONG CONSTANT UAI$_LGICMD = 15 ! login command fileL DECLARE LONG CONSTANT UAI$_DEFCLI = 16 ! default command interpreterC DECLARE LONG CONSTANT UAI$_CLITABLES = 17 ! user CLI tables> DECLARE LONG CONSTANT UAI$_PWD = 18 ! hashed password> DECLARE LONG CONSTANT UAI$_PWD2 = 19 ! second passwordJ DECLARE LONG CONSTANT UAI$_LOGFAILS = 20 ! count of login failuresC DECLARE LONG CONSTANT UAI$_SALT = 21 ! random password saltQ DECLARE LONG CONSTANT UAI$_ENCRYPT = 22 ! primary password hash algorithmT DECLARE LONG CONSTANT UAI$_ENCRYPT2 = 23 ! secondary password hash algorithmL DECLARE LONG CONSTANT UAI$_PWD_LENGTH = 24 ! minimum password lengthP DECLARE LONG CONSTANT UAI$_EXPIRATION = 25 ! expiration date for accountH DECLARE LONG CONSTANT UAI$_PWD_LIFETIME = 26 ! password lifetimeJ DECLARE LONG CONSTANT UAI$_PWD_DATE = 27 ! date of password changeO  DECLARE LONG CONSTANT UAI$_PWD2_DATE = 28 ! date of 2nd password changeT DECLARE LONG CONSTANT UAI$_LASTLOGIN_I = 29 ! date of last interactive loginX DECLARE LONG CONSTANT UAI$_LASTLOGIN_N = 30 ! date of last non-interactive loginG DECLARE LONG CONSTANT UAI$_PRIV = 31 ! process privilege vectorM DECLARE LONG CONSTANT UAI$_DEF_PRIV = 32 ! default process privilegesJ DECLARE LONG CONSTANT UAI$_MIN_CLASS = 33 ! minimum security classJ DECLARE LONG CONSTANT UAI$_MAX_CLASS = 34 ! maximum security classC DECLARE LONG CONSTANT UAI$_FLAGS = 35 ! user flags longwordY DECLARE LONG CONSTANT UAI$_NETWORK_ACCESS_P = 36 ! hourly network access, primary[ DECLARE LONG CONSTANT UAI$_NETWORK_ACCESS_S = 37 ! hourly network access, secondaryU DECLARE LONG CONSTANT UAI$_BATCH_ACCESS_P = 38 ! hourly batch access, primaryW DECLARE LONG CONSTANT UAI$_BATCH_ACCESS_S = 39 ! hourly batch access, secondaryU DECLARE LONG CONSTANT UAI$_LOCAL_ACCESS_P = 40 ! hourly local access, primaryW DECLARE LONG CONSTANT UAI$_LOCAL_ACCESS_S = 41 ! hourly local access, secondaryW DECLARE LONG CONSTANT UAI$_DIALUP_ACCESS_P = 42 ! hourly dialup access, primaryY DECLARE LONG CONSTANT UAI$_DIALUP_ACCESS_S = 43 ! hourly dialup access, secondaryW DECLARE LONG CONSTANT UAI$_REMOTE_ACCESS_P = 44 ! hourly remote access, primaryY DECLARE LONG CONSTANT UAI$_REMOTE_ACCESS_S = 45 ! hourly remote access, secondaryR DECLARE LONG CONSTANT UAI$_PRIMEDAYS = 46 ! bits representing primary daysD DECLARE LONG CONSTANT UAI$_PRI = 47 ! base process priorityM DECLARE LONG CONSTANT UAI$_QUEPRI = 48 ! maximum job queuing priorityN DECLARE LONG CONSTANT UAI$_MAXJOBS = 49 ! maximum jobs for UIC allowedV DECLARE LONG CONSTANT UAI$_MAXACCTJOBS = 50 ! maximum jobs for account allowedV DECLARE LONG CONSTANT UAI$_MAXDETACH = 51 ! maximum detached processes for UICJ DECLARE LONG CONSTANT UAI$_PRCCNT = 52 ! subprocess creation limitB DECLARE LONG CONSTANT UAI$_BIOLM = 53 ! buffered I/O limit@ DECLARE LONG CONSTANT UAI$_DIOLM = 54 ! direct I/O limitG DECLARE LONG CONSTANT UAI$_TQCNT = 55 ! timer queue entry limit? DECLARE LONG CONSTANT UAI$_ASTLM = 56 ! AST queue limit= DECLARE LONG CONSTANT UAI$_ENQLM = 57 ! enqueue limit? DECLARE LONG CONSTANT UAI$_FILLM = 58 ! open file limitD DECLARE LONG CONSTANT UAI$_SHRFILLM = 59 ! shared file limitH DECLARE LONG CONSTANT UAI$_WSQUOTA = 60 ! working set size quotaJ DECLARE LONG CONSTANT UAI$_DFWSCNT = 61 ! default working set sizeI DECLARE LONG CONSTANT UAI$_WSEXTENT = 62 ! working set size limitC DECLARE LONG CONSTANT UAI$_PGFLQUOTA = 63 ! page file quota? DECLARE LONG CONSTANT UAI$_CPUTIM = 64 ! CPU time quotaM DECLARE LONG CONSTANT UAI$_BYTLM = 65 ! buffered I/O byte count limitR DECLARE LONG CONSTANT UAI$_PBYTLM = 66 ! paged buffer I/O byte count limit\ DECLARE LONG CONSTANT UAI$_JTQUOTA = 67 ! job-wide logical name table creation quotaT DECLARE LONG CONSTANT UAI$_PROXY_LIM = 68 ! number of proxies user can grantK DECLARE LONG CONSTANT UAI$_PROXIES = 69 ! number of proxies grantedT DECLARE LONG CONSTANT UAI$_ACCOUNT_LIM = 70 ! number of sub-accounts allowedP DECLARE LONG CONSTANT UAI$_ACCOUNTS = 71 ! number of sub-accounts in useB DECLARE LONG CONSTANT UAI$_USER_DATA = 72 ! user data areaM DECLARE LONG CONSTANT UAI$_PASSWORD = 73 ! plaintext primary passwordP DECLARE LONG CONSTANT UAI$_PASSWORD2 = 74 ! plaintext secondary passwordS DECLARE LONG CONSTANT UAI$_DEF_CLASS = 75 ! default security classification_ DECLARE LONG CONSTANT UAI$_AUDIT_FLAGS = 76 ! passed from $SETUAI to UAF$SECURITY_AUDIT) ! ADD ITEM-CODES BEFORE THIS COMMENTS DECLARE LONG CONSTANT UAI$_MAX_ITEM_CODE = 77 ! maximum legal item code + 1= ! Add UAI$_DEFCHARGE_CODE as an alias for UAI$_ACCOUNT.Z DECLARE LONG CONSTANT UAI$_DEFCHARGE_CODE = 11 ! default charge code ( =account )3 ! Define the various password hash algorithms.J DECLARE LONG CONSTANT UAI$C_AD_II = 0 ! AUTODIN-II 32 bit crc codeR DECLARE LONG CONSTANT UAI$C_PURDY = 1 ! Purdy polynomial over salted input] DECLARE LONG CONSTANT UAI$C_PURDY_V = 2 ! Purdy polynomial + variable length usernameU DECLARE LONG CONSTANT UAI$C_PURDY_S = 3 ! PURDY_V folded into password length: DECLARE LONG CONSTANT UAI$C_PREFERED_ALGORITHM = 127f DECLARE LONG CONSTANT UAI$C_PREFERRED_ALGORITHM = 127 ! preferred hash algorithm - use currentV DECLARE LONG CONSTANT UAI$C_CUST_ALGORITHM = 128 ! customer algorithm divisionT DECLARE LONG CONSTANT UAI$C_MAX_PWD_LENGTH = 32 ! maximum plaintext password4 ! Define the flags for the user flags longword.7 DECLARE LONG CONSTANT UAI$M_DISCTLY = x'00000001'6 DECLARE LONG CONSTANT UAI$M_DEFCLI = x'00000002'7 DECLARE LONG CONSTANT UAI$M_LOCKPWD = x'00000004': DECLARE LONG CONSTANT UAI$M_RESTRICTED = x'00000008'7 DECLARE LONG CONSTANT UAI$M_DISACNT = x'00000010'9 DECLARE LONG CONSTANT UAI$M_DISWELCOM = x'00000020'7 DECLARE LONG CONSTANT UAI$M_DISMAIL = x'00000040'6 DECLARE LONG CONSTANT UAI$M_NOMAIL = x'00000080'6 DECLARE LONG CONSTANT UAI$M_GENPWD = x'00000100'; DECLARE LONG CONSTANT UAI$M_PWD_EXPIRED = x'00000200'< DECLARE LONG CONSTANT UAI$M_PWD2_EXPIRED = x'00000400'5 DECLARE LONG CONSTANT UAI$M_AUDIT = x'00000800'9 DECLARE LONG CONSTANT UAI$M_DISREPORT = x'00001000'< DECLARE LONG CONSTANT UAI$M_DISRECONNECT = x'00002000'9 DECLARE LONG CONSTANT UAI$M_AUTOLOGIN = x'00004000'C DECLARE LONG CONSTANT UAI$M_DISFORCE_PWD_CHANGE = x'00008000'7 DECLARE LONG CONSTANT UAI$M_CAPTIVE = x'00010000'8 DECLARE LONG CONSTANT UAI$M_DISIMAGE =  x'00020000'9 DECLARE LONG CONSTANT UAI$M_DISPWDDIC = x'00040000'9 DECLARE LONG CONSTANT UAI$M_DISPWDHIS = x'00080000'9 DECLARE LONG CONSTANT UAI$M_DEFCLSVAL = x'00100000'7 DECLARE LONG CONSTANT UAI$M_EXTAUTH = x'00200000': DECLARE LONG CONSTANT UAI$M_MIGRATEPWD = x'00400000'7 DECLARE LONG CONSTANT UAI$M_VMSAUTH = x'00800000'; DECLARE LONG CONSTANT UAI$M_DISPWDSYNCH = x'01000000'+ DECLARE LONG CONSTANT UAI$S_FLAGS = 4B record FLAGS  ! user flags longword ! no user control-y( ! only allow user default CLI) ! disable SET PASSWORD command2 ! restricted account (pre-V5.2 CAPTIVE)! ! no interactive login! ! skip welcome message" ! skip new mail message" ! disable mail delivery( ! passwords must be generated! ! password has expired% ! 2nd password has expired ! audit all actions%  ! skip last login messages" ! inhibit reconnections ! auto-login only+ ! disable forced password change+ ! captive account (no overrides)/ ! disable arbitrary image activation/ ! disable password dictionary filter, ! disable password history search, ! default classification is valid, ! external authentication enabled- ! migrate UAF pwd to external auth' ! VMS alterna tive is allowed% ! no ACME password sharingh LONG DISCTLY_bits ! COMMENT ADDED BY SDL - DISCTLY_bits contains bits DISCTLY through fill_32 end record FLAGS 2 ! Define the flags representing primary days./ DECLARE LONG CONSTANT UAI$S_PRIMEDAYS = 1M record PRIMEDAYS ! bits representing primary days2 ! bit clear means this is a primary day- ! bit set means this is an off daye BYTE MONDAY_bits ! COMMENT ADDED BY SDL - MONDAY_bits contains bits MONDAY through fill_33 end record PRIMEDAYS  ww>PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! G ! Format of UIC - user identification code. May be either two partA ! group / member identifier, or a single uniform identifier. ! 7 ! The binary layout of the id space  is as follows: !  ! ---------- Bit --------+ ! 31 30 29 28 27 26 DescriptionH ! === === === === === === ======================================== ! 7 ! 0 0 - - - - UIC form (group/member)& ! 0 1 - - - - Unused/ ! 1 0 - - - - Identifier form6 ! 1 0 0 0 - - System identifiersA ! 1 0 0 1 - - Facility-specific identifiersD ! 1 0 1 0 - - Arbitrary assignment identifiers> ! 1 0 1 0 0 0 SEVMS identifier space. ! 1 0 1 0 0 1 Unused. ! 1 0 1 0 1 0 Unused. ! 1 0 1 0 1 1 Unused* ! 1 0 1 1 - - Unused& ! 1 1 - - - - Unused ! -O DECLARE LONG CONSTANT UIC$K_MAX_UIC = 1073741823 ! Highest possible UICS DECLARE LONG CONSTANT UIC$K_WILD_MEMBER = 65535 ! Code for wild card memberQ DECLARE LONG CONSTANT UIC$K_WILD_GROUP = 16383 ! Code for wild card groupD DECLARE LONG CONSTANT UIC$K_UIC_FORMAT = 0 ! UIC format codeB DECLARE LONG CONSTANT UIC$K_ID_FORMAT = 2 ! ID format codeF DECLARE LONG CONSTANT UIC$K_TYPE_SYSTEM = 8 ! system ID or UICJ DECLARE LONG CONSTANT UIC$K_TYPE_FACILITY = 9 ! facility ID or UICT DECLARE LONG CONSTANT UIC$K_TYPE_ARBITRARY = 10 ! arbitrary assignment spaceU DECLARE LONG CONSTANT UIC$K_FIRST_ID = -2147418112 ! F irst general identifierS DECLARE LONG CONSTANT UIC$K_LAST_ID = -1879048193 ! Last general identifierJ DECLARE LONG CONSTANT UIC$K_MATCH_ALL = -1 ! Match all identifiersV DECLARE LONG CONSTANT UIC$K_ASSIGN_SEVMS = 0 ! SEVMS block of identifier space, DECLARE LONG CONSTANT UIC$S_UICDEF = 4 record UICDEF variant case< LONG UIC$L_UIC ! Full longword caseD group UIC$R_UIC_FORM !  Group / member format# ! Member number" ! Group number! ! Format codem LONG MEMBER_bits ! COMMENT ADDED BY SDL - MEMBER_bits contains bits MEMBER through FORMAT' end group UIC$R_UIC_FORM caseH group UIC$R_ID_FORM ! General identifier format ! ID code ! ID type q LONG ID_CODE_bits ! COMMENT ADDED BY SDL -  ID_CODE_bits contains bits ID_CODE through ID_TYPE& end group UIC$R_ID_FORM caseI group UIC$R_FAC_ID_FORM ! Facility identifier format ! ID code# ! Facility code, ! space for ID type code| LONG FAC_ID_CODE_bits ! COMMENT ADDED BY SDL - FAC_ID_CODE_bits contains bits FAC_ID_CODE through FILL_1* end group UIC$R_FAC_ID_FORM caseL group UIC$R_ARBITRARY_ID_FORM ! Arbitrary assignment format ! ID code% ! Assignment code, ! space for ID type code| LONG ARB_ID_CODE_bits ! COMMENT ADDED BY SDL - ARB_ID_CODE_bits contains bits ARB_ID_CODE through FILL_20 end group UIC$R_ARBITRARY_ID_FORM end variant end record UICDEF  ww@PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  R DECLARE LONG CONSTANT UID$K_ArchVersion = 1 ! Current architecture versionB DECLARE LONG CONSTANT UID$K_Apollo1 = 0 ! UID format types- DECLARE LONG CONSTANT UID$K_Apollo2 = 1- DE CLARE LONG CONSTANT UID$K_Digital = 2/ DECLARE LONG CONSTANT UID$K_Microsoft = 3H DECLARE LONG CONSTANT UID$K_LENGTH = 16 ! Total structure length- DECLARE LONG CONSTANT UID$S_UIDDEF = 16 record UIDDEF group UID$r_fill_34 variant caseJ BASIC$QUADWORD UID$q_timeAndVersion ! Time and version case% group UID$r_fill_35H LONG UID$l_timeLow ! Low order 32 bits of timeK WORD UID$w_timeMid ! Middle order 16 bits of time( group UID$r_fill_36 variant caseY WORD UID$w_timeHiAndVersion ! High order 12 bits of time and case. group UID$r_fill_37 ! 4 bits of version< ! High order 12 bits of time3 ! 4 bits of versio nz WORD timeHi_bits ! COMMENT ADDED BY SDL - timeHi_bits contains bits timeHi through Version2 end group UID$r_fill_37# end variant, end group UID$r_fill_36) end group UID$r_fill_35 end variant end group UID$r_fill_34 group UID$r_fill_38 variant caseP WORD UID$w_clockSeqAndReserved ! Clock seque nce and reserved case% group UID$r_fill_39( group UID$r_fill_40 variant casec BYTE UID$b_clockSeqHiAndReserved ! High order 6 bits of clock sequence case. group UID$r_fill_41 ! and 2 reserved bitsE ! High order 6 bits of clock sequence4 ! 2 bits  of reserved BYTE clockSeqHi_bits ! COMMENT ADDED BY SDL - clockSeqHi_bits contains bits clockSeqHi through & ! Reserved2 end group UID$r_fill_41# end variant, end group UID$r_fill_40R BYTE UID$b_clockSeqLow ! Low order 8 bits of clock sequence) end group UID$r_fill_39 end variant end group UID$r_fill_38 group UID$r_fill_42 variant case, BYTE UID$b_node ( 1 to 6 ) case% group UID$r_fill_43P WORD UID$w_nodeHi ! High order 16 bits of node numberO LONG UID$l_nodeLow ! Low order 32 bits of node number) end group UID$r_fill_43 end variant end group UID$r_fill_42 end record UIDDEF  ww `S΀PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET  %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +M ! Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility. ! -F DECLARE LONG CONSTANT USG$K_IDENT = 1 ! Identification record ; DECLARE LONG CONSTANT USG$K_FI LE = 2 ! File record L DECLARE LONG CONSTANT USG$K_IDENT_LEN = 61 ! Length of IDENT record L DECLARE LONG CONSTANT USG$C_IDENT_LEN = 61 ! Length of IDENT record - DECLARE LONG CONSTANT USG$S_USGDEF = 61 record USGDEF; BYTE USG$B_TYPE ! Record type B LONG USG$L_SERIALNUM ! Pack serial number ? STRING USG$T_STRUCNAME = 12 ! Volume set name ; STRING USG$T_VOLNAME = 12 ! Volume name  A STRING USG$T_OWNERNAME = 12 ! Volume owner name B STRING USG$T_FORMAT = 12 ! Volume format type + ! *** Preceding same as home block ***G BASIC$QUADWORD USG$Q_TIME ! Time usage file created  end record USGDEF T DECLARE LONG CONSTANT USG$K_FILE_LEN = 1039 ! Maximum length of FILE record T DECLARE LONG CONSTANT USG$C_FILE_LEN = 1039 ! Maximum length of FILE record 0 DECLARE LONG CONSTANT USG$S_USGDEF1 = 1039 record USGDEF1 BYTE USGDEF$$_FILL_1& group USG$R_FILEOWNER_OVERLAY variant case> LONG USG$L_FILEOWNER ! File owner UIC  case. group USG$R_FILEOWNER_FIELDSA WORD USG$W_UICMEMBER ! UIC member number @ WORD USG$W_UICGROUP ! UIC group number 2 end group USG$R_FILEOWNER_FIELDS end variant* end g roup USG$R_FILEOWNER_OVERLAYS LONG USG$L_ALLOCATED ! Blocks allocated, including headers ; LONG USG$L_USED ! Blocks used J WORD USG$W_DIR_LEN ! Length of directory string U WORD USG$W_SPEC_LEN ! Length of complete file specification L STRING USG$T_FILESPEC = 1022 ! File spec "[dir]nam.typ;ver"  end record USGDEF1  wwmπPV SYSTEM $USGDEF!`\ PV SYSTEM $USRIDEF!rKPV SYSTEM $VPSRDEF!PV SYSTEM $VAERDEF@ ǁPV SYSTEM $XADEF7GPV SYSTEM $XFDEF"hPV SYSTEM $XKSTSDEF" ˂PV SYSTEM $XKDEVDEF*PV SYSTEM $XMDEF `PV SYSTEM $XRVDEF@PV SYSTEM $XWDEF XPV SYSTEM STARLET%PV SYSTEM STR$ROUTINES \_PV SYSTEM $STRDEF PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ! ! User image bit definitions !  ! ; DECLARE LONG CONSTANT USRI$M_DBG_MAPPED = x'00000001'. DECLARE LONG CONSTANT USRI$S_USRIDEF = 1 record USRIDEF variant  case% group USRI$R_USRI_BITS, ! Debugger is now mappedz BYTE DBG_MAPPED_bits ! COMMENT ADDED BY SDL - DBG_MAPPED_bits contains bits DBG_MAPPED through fill_44) end group USRI$R_USRI_BITS end variant end record USRIDEF  wwIPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +9 ! Vector Processor Status Register field definitions ! -4 DECLARE LONG CONSTANT VPSR$M_VEN = x'00000001'4 DECLARE LONG CONSTANT VPSR$M_RST = x'00000002'4 DECLARE LONG C ONSTANT VPSR$M_STS = x'00000004'4 DECLARE LONG CONSTANT VPSR$M_RLD = x'00000008'3 DECLARE LONG CONSTANT VPSR$M_MF = x'00000020'4 DECLARE LONG CONSTANT VPSR$M_PMF = x'00000040'4 DECLARE LONG CONSTANT VPSR$M_AEX = x'00000080'4 DECLARE LONG CONSTANT VPSR$M_IMP = x'01000000'4 DECLARE LONG CONSTANT VPSR$M_IVO = x'02000000'4 DECLARE LONG CONSTANT VPSR$M_BSY = x'80000000'. DECLARE LONG CONSTANT VPSR$S_VPSRDEF = 4 record VPSRDEF variant  case( group VPSR$R_VPSRDEF_BITS ! Enabled ! Reset ! State store! ! State reload! ! Must be zero! ! Memory fault) ! Pending memory fault) ! Arithmetic exception! ! Must be zero2 ! Implementation-specific error* ! Illegal vector opcode! ! Must be zer o ! Busya LONG VEN_bits ! COMMENT ADDED BY SDL - VEN_bits contains bits VEN through BSY, end group VPSR$R_VPSRDEF_BITS end variant end record VPSRDEF  wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! +K ! Vector Arithmetic Error Register longword mask and field definitions ! -8 DECLARE LONG CONSTANT VAER$M_SUMMARY = x'0000FFFF'7 DECLARE LONG CONSTANT VAER$M_F_UNDF = x'000000 01'7 DECLARE LONG CONSTANT VAER$M_F_DIVZ = x'00000002'7 DECLARE LONG CONSTANT VAER$M_F_ROPR = x'00000004'7 DECLARE LONG CONSTANT VAER$M_F_OVFL = x'00000008'7 DECLARE LONG CONSTANT VAER$M_I_OVFL = x'00000020'> DECLARE LONG CONSTANT VAER$M_REGISTER_MASK = x'FFFF0000'. DECLARE LONG CONSTANT VAER$S_VAERDEF = 4 record VAERDEF group VAER$R_VAER_BITS( group VAER$R_SUMMARY_OVERLAY variant caset ! WORD SUMMARY_bits ! COMMENT ADDED BY SDL - SUMMARY_bits contains bits SUMMARY through SUMMARY caseC group VAER$R_SUMMARY_BITS ! Exception summary- ! Floating underflow2 ! Floating divide by zero4 ! Floating reserved operand, ! Floating overflow' ! Must be zero+ ! Integer overflow' " ! Must be zeros WORD F_UNDF_bits ! COMMENT ADDED BY SDL - F_UNDF_bits contains bits F_UNDF through FILL_22 end group VAER$R_SUMMARY_BITS end variant, end group VAER$R_SUMMARY_OVERLAY( ! Desination register mask x WORD REGISTER_MASK_bits ! COMMENT ADDED BY SDL - REGISTER_MASK_bits contains bits REGISTER_MASK through & ! REGISTER_MASK# end group VAER$R_VAER_BITS end record VAERDEF  ww$@ ǁPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI%NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET& %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! += ! DR11-W DEFINITIONS FOR DEVICE SPECIFIC CHARACTERISTICS% ! - 7 DECLARE LONG CONSTANT XA$M_DATAPATH = x'00000001'3 DECLARE LONG CONSTANT XA$M_LINK = x'00000002'* DECLARE LONG CONSTANT XA$S_XADEF = 1 record XADEF variant case$ group XA$R_XADEF_BITS, ! USE BUFFERED DATAPATH / ! INTERPROCESSOR LINK MODE t BYTE DATAPATH_bits ! COMMENT ADDED BY SDL - DATAPATH_bits contains bits DATAPATH through fill_45( end group XA$R_XADEF_BITS end variant end record XADEF  ww(*DPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI)NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET* %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! + ! G ! DR32 DEFINITIONS FOR COMMAND TABLE, PACKETS, AND CHARACTERISTICS !  ! - ! ! QIO COMMAND TABLE OFFSETS ! 9 DECLARE LONG CONSTANT XF$M_IOS_SUCCES = x' +00000001'9 DECLARE LONG CONSTANT XF$M_IOS_CMDSTD = x'00000002'9 DECLARE LONG CONSTANT XF$M_IOS_INVPTE = x'00000004'9 DECLARE LONG CONSTANT XF$M_IOS_FREQPK = x'00000008'9 DECLARE LONG CONSTANT XF$M_IOS_DDIDIS = x'00000010'9 DECLARE LONG CONSTANT XF$M_IOS_SLFTST = x'00000020'9 DECLARE LONG CONSTANT XF$M_IOS_RNGERR = x'00000040'9 DECLARE LONG CONSTANT XF$M_IOS_UNQERR = x'00000080'9 DECLARE LONG CONSTANT XF$M_IOS_INVPKT = x'00000100'9 DECLARE ,LONG CONSTANT XF$M_IOS_FREQMT = x'00000200'9 DECLARE LONG CONSTANT XF$M_IOS_RNDENB = x'00000400'9 DECLARE LONG CONSTANT XF$M_IOS_INVDDI = x'00000800'9 DECLARE LONG CONSTANT XF$M_IOS_LENERR = x'00001000'9 DECLARE LONG CONSTANT XF$M_IOS_DRVABT = x'00002000'9 DECLARE LONG CONSTANT XF$M_IOS_PARERR = x'00004000'9 DECLARE LONG CONSTANT XF$M_IOS_BUSERR = x'08000000'9 DECLARE LONG CONSTANT XF$M_IOS_RDSERR = x'10000000'8 DECLARE LONG CONSTANT XF$M_IOS_WCS -PE = x'20000000'7 DECLARE LONG CONSTANT XF$M_IOS_CIPE = x'40000000'7 DECLARE LONG CONSTANT XF$M_IOS_DIPE = x'80000000'9 DECLARE LONG CONSTANT XF$M_IOS_NEXREG = x'00000020'6 DECLARE LONG CONSTANT XF$M_IOS_LOG = x'00000040'9 DECLARE LONG CONSTANT XF$M_IOS_DDIERR = x'00000080'* DECLARE LONG CONSTANT XF$S_XFDEF = 4 record XFDEF variant case% group XF$R_XFDEF_BITS0 ! SUCCESS & ! CO.MMAND STARTED " ! INVALID PTE ( ! FREE QUEUE PACKET " ! DDI DISABLE ! SELF TEST " ! RANGE ERROR , ! UNALIGNED QUEUE ERROR - ! INVALID COMMAND PACKET ' ! FREE QUEUE EMPTY $ ! RANDOM ENABLE * ! INVALID DDI COMMAND # ! LENGTH ERROR # ! DRIVER ABORT . / ! PARITY ERROR (CI OR DI)  ! RESERVED ! ! DDI STATUS  ! RESERVED ! BUS ERROR 1 ! READ DATA SUBSTITUTE ERROR ' ! WCS PARITY ERROR 8 ! CONTROL INTERCONNECT PARITY ERROR 5 ! DATA INTERCONNECT PARITY ERROR { LONG IOS_SUCCES_bits ! COMMENT ADDED BY SDL - IOS_SUCCES_bits contains bits IOS_SUCCES through IOS_DIPE 0) end group XF$R_XFDEF_BITS0 case% group XF$R_XFDEF_BITS1' ! SKIP OVER 5 BITS , ! NON-EXISTENT REGISTER  ! LOG . ! ERROR ON FAR-END DEVICE q BYTE FILL_9_bits ! COMMENT ADDED BY SDL - FILL_9_bits contains bits FILL_9 through IOS_DDIERR) end group XF$R_XFDEF_BITS1 end variant end record XFDEF 9 DECLARE LONG CONSTAN 1T XF$M_CMT_SETRTE = x'00000001'9 DECLARE LONG CONSTANT XF$M_CMT_DIPEAB = x'00000002'M DECLARE LONG CONSTANT XF$K_CMT_LENGTH = 32 ! LENGTH OF COMMAND TABLE M DECLARE LONG CONSTANT XF$C_CMT_LENGTH = 32 ! LENGTH OF COMMAND TABLE  ! , DECLARE LONG CONSTANT XF$S_XFDEF1 = 32 record XFDEF1B LONG XF$L_CMT_CBLKSZ ! COMMAND BLOCK SIZE E LONG XF$L_CMT_CBLKAD ! COMMAND BLOCK ADDRESS A LONG XF$L_CMT_BBLKSZ 2 ! BUFFER BLOCK SIZE D LONG XF$L_CMT_BBLKAD ! BUFFER BLOCK ADDRESS B LONG XF$L_CMT_PASTAD ! PACKET AST ADDRESS B LONG XF$L_CMT_PASTPM ! PACKET AST ADDRESS 9 BYTE XF$B_CMT_RATE ! DATA RATE % group XF$R_CMT_FLAGS_OVERLAY variant case5 BYTE XF$B_CMT_FLAGS ! FLAGS  case+ group XF$R_CMT_FLAGS_BITS' 3 ! SET DATA RATE 4 ! DISABLE PARITY ERROR ABORT } BYTE CMT_SETRTE_bits ! COMMENT ADDED BY SDL - CMT_SETRTE_bits contains bits CMT_SETRTE through fill_46/ end group XF$R_CMT_FLAGS_BITS end variant) end group XF$R_CMT_FLAGS_OVERLAY5 WORD XFDEF$$_FILL_1 ! SPARE > LONG XF$L_CMT_GBITAD ! GO BIT ADDRESS  ! COMMAND PACKET OFFSETS !  4 end record XFDEF1 5 DECLARE LONG CONSTANT XF$K_PKT_RD = 0 ! READ @ DECLARE LONG CONSTANT XF$K_PKT_RDCHN = 1 ! READ CHAINED 7 DECLARE LONG CONSTANT XF$K_PKT_WRT = 2 ! WRITE B DECLARE LONG CONSTANT XF$K_PKT_WRTCHN = 3 ! WRITE CHAINED I DECLARE LONG CONSTANT XF$K_PKT_WRTCM = 4 ! WRITE CONTROL MESSAGE  ! VALUE 5 IS RESERVEDB DECLARE LONG CONSTANT XF$K_PKT_SETTST = 6 ! SET SELF TEST D DECLARE LONG CONSTANT XF$K_PKT_CLRTST = 7 ! CL5EAR SELF TEST 5 DECLARE LONG CONSTANT XF$K_PKT_NOP = 8 ! NOP M DECLARE LONG CONSTANT XF$K_PKT_DIAGRI = 9 ! DIAGNOSTIC READ INTERNAL O DECLARE LONG CONSTANT XF$K_PKT_DIAGWI = 10 ! DIAGNOSTIC WRITE INTERNAL I DECLARE LONG CONSTANT XF$K_PKT_DIAGRD = 11 ! DIAGNOSTIC READ DDI K DECLARE LONG CONSTANT XF$K_PKT_DIAGWC = 12 ! WRITE CONTROL MESSAGE G DECLARE LONG CONSTANT XF$K_PKT_SETRND = 13 ! SET RANDOM ENABLE I DECLARE LONG CONSTANT XF$K_PKT_CLRRND 6= 14 ! CLEAR RANDOM ENABLE 8 DECLARE LONG CONSTANT XF$K_PKT_HALT = 15 ! HALT 9 DECLARE LONG CONSTANT XF$M_PKT_SLNERR = x'00000020'D DECLARE LONG CONSTANT XF$K_PKT_NOTRAN = 0 ! NO TRANSMISSION B DECLARE LONG CONSTANT XF$K_PKT_CB = 1 ! COMMAND BYTE ONLY R DECLARE LONG CONSTANT XF$K_PKT_CBDM = 2 ! COMMAND BYTE AND DEVICE MESSAGE X DECLARE LONG CONSTANT XF$K_PKT_CBDMBC = 3 ! CMD. BYTE, DEV. MSG, AND BYTE COUNT # ! VALUES FOR INTERRUPT CONTOL L 7DECLARE LONG CONSTANT XF$K_PKT_UNCOND = 0 ! UNCONDITIONAL INTERRUPT R DECLARE LONG CONSTANT XF$K_PKT_TMQMT = 1 ! INTERRUPT ON TERM. QUEUE EMPTY @ DECLARE LONG CONSTANT XF$K_PKT_NOINT = 2 ! NO INTERRUPT 9 DECLARE LONG CONSTANT XF$M_PKT_SUCCES = x'00000001'9 DECLARE LONG CONSTANT XF$M_PKT_CMDSTD = x'00000002'9 DECLARE LONG CONSTANT XF$M_PKT_INVPTE = x'00000004'9 DECLARE LONG CONSTANT XF$M_PKT_FREQPK = x'00000008'9 DECLARE LONG CONSTANT XF$M_PKT_DDIDIS 8= x'00000010'9 DECLARE LONG CONSTANT XF$M_PKT_SLFTST = x'00000020'9 DECLARE LONG CONSTANT XF$M_PKT_RNGERR = x'00000040'9 DECLARE LONG CONSTANT XF$M_PKT_UNQERR = x'00000080'9 DECLARE LONG CONSTANT XF$M_PKT_INVPKT = x'00000100'9 DECLARE LONG CONSTANT XF$M_PKT_FREQMT = x'00000200'9 DECLARE LONG CONSTANT XF$M_PKT_RNDENB = x'00000400'9 DECLARE LONG CONSTANT XF$M_PKT_INVDDI = x'00000800'9 DECLARE LONG CONSTANT XF$M_PKT_LENERR = x'00001000'9 DECL 9ARE LONG CONSTANT XF$M_PKT_DRVABT = x'00002000'9 DECLARE LONG CONSTANT XF$M_PKT_PARERR = x'00004000'9 DECLARE LONG CONSTANT XF$M_PKT_NEXREG = x'00000020'6 DECLARE LONG CONSTANT XF$M_PKT_LOG = x'00000040'9 DECLARE LONG CONSTANT XF$M_PKT_DDIERR = x'00000080', DECLARE LONG CONSTANT XF$S_XFDEF2 = 33 record XFDEF2< LONG XF$L_PKT_FLINK ! FORWARD LINK = LONG XF$L_PKT_BLINK ! BACKWARD LINK M BYTE XF$B_PKT_MSG :LEN ! LENGTH OF DEVICE MESSAGE AREA B BYTE XF$B_PKT_LOGLEN ! LENGTH OF LOG AREA & group XF$R_PKT_CMDCTL_OVERLAY variant case? BYTE XF$B_PKT_CMDCTL ! COMMAND CONTROL  case, group XF$R_PKT_CMDCTL_BITS' ! FUNCTION CODE & ! MUST BE ZERO v BYTE PKT_FUNC_bits ! COMMENT ADDED BY SDL - PKT_FUNC_bits con;tains bits PKT_FUNC through FILL_20 end group XF$R_PKT_CMDCTL_BITS ! FUNCTION CODE VALUES  end variant* end group XF$R_PKT_CMDCTL_OVERLAY& group XF$R_PKT_PKTCTL_OVERLAY variant case> BYTE XF$B_PKT_PKTCTL ! PACKET CONTROL  case, group XF$R_PKT_PKTCTL_BITS ! UNUSED 5 ! CONTROL INTERCONNECT SELECT / < ! SUPPRESS LENGTH ERROR + ! INTERRUPT CONTROL t BYTE FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through PKT_INTCTL0 end group XF$R_PKT_PKTCTL_BITS. ! VALUES FOR CONTROL INTERCONNECT SELECT  end variant* end group XF$R_PKT_PKTCTL_OVERLAY; LONG XF$L_PKT_BFRSIZ ! BUFFER SIZE > LONG XF$L_PKT_BFRADR ! BUFFER ADDRESS J LON =G XF$L_PKT_RMBCNT ! RESIDUAL MEMORY BYTE COUNT G LONG XF$L_PKT_RDBCNT ! RESIDUAL DDI BYTE COUNT # group XF$R_PKT_DSL_OVERLAY variant caseD LONG XF$L_PKT_DSL ! DR32 STATUS LONGWORD  case* group XF$R_PKT_DSL_BITS0! ! SUCCESS ) ! COMMAND STARTED % ! INVALID PTE + ! FREE >QUEUE PACKET % ! DDI DISABLE # ! SELF TEST % ! RANGE ERROR / ! UNALIGNED QUEUE ERROR 0 ! INVALID COMMAND PACKET * ! FREE QUEUE EMPTY ' ! RANDOM ENABLE - ! INVALID DDI COMMAND & ! LENGTH ERROR & ! DRIVER ABORT & ! PARITY ERROR " ? ! RESERVED $ ! DDI STATUS " ! RESERVED | LONG PKT_SUCCES_bits ! COMMENT ADDED BY SDL - PKT_SUCCES_bits contains bits PKT_SUCCES through FILL_5. end group XF$R_PKT_DSL_BITS0 case* group XF$R_PKT_DSL_BITS1* ! SKIP OVER 5 BITS / ! NON-EXISTENT REGISTER  ! LOG 1 ! ERROR ON FAR-END DEVICE t BYTE FILL_6_bits ! COMMENT ADDED BY SDL - FILL_6_bits contains bits FILL_6 through PKT_DDIERR. end group XF$R_PKT_DSL_BITS1 end variant' end group XF$R_PKT_DSL_OVERLAYG BYTE XF$B_PKT_DEVMSG ! START OF DEVICE MESSAGE  ! 6 ! SECOND LONGWORD OF I/O STATUS BLOCK DEFINITIONS !  end record XFDEF2  wwAhPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIBNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETC %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! G ! DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS) ! R DECLARE LONG CONSTANT XKSTS$K_LSTR = 0 ! OFFSET OF BEGINNING OF DATA AREA R DECLARE LONG CONSTANT XKSTS$ DC_LSTR = 0 ! OFFSET OF BEGINNING OF DATA AREA 5 DECLARE LONG CONSTANT XKSTS$M_ACT = x'00000001'5 DECLARE LONG CONSTANT XKSTS$M_DGN = x'00000002'R DECLARE LONG CONSTANT XKSTS$K_DSTR = 45 ! LENGTH OF THE LINE STATUS BLOCK R DECLARE LONG CONSTANT XKSTS$C_DSTR = 45 ! LENGTH OF THE LINE STATUS BLOCK 1 DECLARE LONG CONSTANT XKSTS$S_XKSTSDEF = 45 record XKSTSDEFT BYTE XKSTS$B_CUAD ! CONTROL UNIT ADDRESS ( HEX EBCDIC ) # group E XKSTS$R_LSTS_OVERLAY variant case; WORD XKSTS$W_LSTS ! LINE STATUS  case) group XKSTS$R_LSTS_BITSD ! IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) D ! IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO h BYTE ACT_bits ! COMMENT ADDED BY SDL - ACT_bits contains bits ACT through fill_47- end group XKSTS$R_LSTS_BITS end Fvariant' end group XKSTS$R_LSTS_OVERLAY9 BYTE XKSTS$B_PLSZ ! POOL SIZE U WORD XKSTS$W_BSIZ ! MAXIMUM BLOCK TO BE RECEIVED FROM IBM = BYTE XKSTS$B_ECNT ! ENQ THRESHOLD J WORD XKSTS$W_TNAK ! NUMBER OF NAKS TRANSMITTED G WORD XKSTS$W_RNAK ! NUMBER OF NAKS RECEIVED C WORD XKSTS$W_TENQ ! NUMBER OF ENQS SENT G WORD XKSTS$W_GRENQ ! NUMBER OF ENQS RECEIVED J WORD XKSTS$W_TRVI ! NUMBER OF RVIS TRANSMITTED G WORD XKSTS$W_RRVI ! NUMBER OF RVIS RECEIVED W WORD XKSTS$W_RCNV ! NUMBER OF CONVERSATIONAL MODE RESPONSES  ! RECEIVEDQ WORD XKSTS$W_CHAI ! NUMBER OF CHAINED WRITES RECEIVED P WORD XKSTS$W_GPOL ! NUMBER OF GENERAL POLLS RECEIVED O WORD XKSTS$W_XACK H ! NUMBER OF INVALID ACKS RECEIVED Q WORD XKSTS$W_HABO ! NUMBER OF HOST ABORTS ENCOUNTERED S WORD XKSTS$W_DABO ! NUMBER OF DRIVER ABORTS ENCOUNTERED O WORD XKSTS$W_RTIM ! NUMBER OF ACK RESPONSE TIMEOUTS Q WORD XKSTS$W_DISC ! NUMBER OF DISCONNECTS ENCOUNTERED V WORD XKSTS$W_HARD ! NUMBER OF HARDWARE FAILURES (INCLUDING ! DISCONNECTS) ENCOUNTER EDL WORD XKSTS$W_TBLK ! NUMBER OF BLOCKS TRANSMITTED I WORD XKSTS$W_RBLK ! NUMBER OF BLOCKS RECEIVED J WORD XKSTS$W_HABX ! NUMBER OF DUBIOUS ACK OUTS K WORD XKSTS$W_IEOT ! NUMBER OF EOTS IMPLYING ACK  end record XKSTSDEF  wwJNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETK %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   !  ! 3271 DEVICE STATUS BLOCK ! P ! THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCKQ ! IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LLINE. ! R DECLARE LONG CONSTANT XKDEV$K_SIZE = 15 ! SIZE OF THE DEVICE STATUS BLOCK R DECLARE LONG CONSTANT XKDEV$C_SIZE = 15 ! SIZE OF THE DEVICE STATUS BLOCK 1 DECLARE LONG CONSTANT XKDEV$S_XKDEVDEF = 15 record XKDEVDEFS BYTE XKDEV$B_DUEB ! DEVICE ADDRESS ( DU - HEX EBCDIC ) T LONG XKDEV$L_DPID ! PROCESS ID OF PROCESS OWNING THIS DU L WORD XKDEV$W_TBLK ! NUMBER OF BLOCKS TRANSMITTE D I WORD XKDEV$W_RBLK ! NUMBER OF BLOCKS RECEIVED Q WORD XKDEV$W_SPOL ! NUMBER OF SPECIFIC POLLS RECEIVED R WORD XKDEV$W_ASEL ! NUMBER OF ADDRESS SELECTS RECEIVED N WORD XKDEV$W_CREJ ! NUMBER OF COMMAND REJECTS SENT  end record XKDEVDEF  wwN@ )PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIONARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETP %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! DEFINITIONS FOR STATUS, CHARACTERISTICS AND ERRORS FOR DMC-11/DMR-11/DMP-11 ! - DECLARE LONG CONSTANT XMDEV$S_XMDEV = 8 record XMDEV; BYTE XMDEV$B_P1_CLASS Q ! Device Class: BYTE XMDEV$B_P1_TYPE ! Device typeC WORD XMDEV$W_P1_MMS ! Maximum message sizeC BYTE XMDEV$B_P1_CHAR ! Unit characteristics: BYTE XMDEV$B_P1_STS ! Unit Status< BYTE XMDEV$B_P1_ESUM ! Error SummaryD BYTE XMDEV$B_P1_TPI ! Transmit Pipeline no. end record XMDEV 6 DECLARE LONG CONSTANT XM$M_CHR_MOP = x'00000001'8 RDECLARE LONG CONSTANT XM$M_CHR_LOOPB = x'00000002'8 DECLARE LONG CONSTANT XM$M_CHR_HDPLX = x'00000004'8 DECLARE LONG CONSTANT XM$M_CHR_SLAVE = x'00000008'6 DECLARE LONG CONSTANT XM$M_CHR_MBX = x'00000010'6 DECLARE LONG CONSTANT XM$M_CHR_DMC = x'00000020'7 DECLARE LONG CONSTANT XM$M_CHR_CTRL = x'00000040'7 DECLARE LONG CONSTANT XM$M_CHR_TRIB = x'00000080'7 DECLARE LONG CONSTANT XM$M_STS_DCHK = x'00000100'7 DECLARE LONG CONSTANT XM$M_STS_TIMO = x'000002 S00'7 DECLARE LONG CONSTANT XM$M_STS_ORUN = x'00000400'9 DECLARE LONG CONSTANT XM$M_STS_ACTIVE = x'00000800': DECLARE LONG CONSTANT XM$M_STS_BUFFAIL = x'00001000': DECLARE LONG CONSTANT XM$M_STS_RUNNING = x'00002000'7 DECLARE LONG CONSTANT XM$M_STS_DISC = x'00004000'8 DECLARE LONG CONSTANT XM$M_ERR_FATAL = x'00010000'8 DECLARE LONG CONSTANT XM$M_ERR_MAINT = x'00080000'7 DECLARE LONG CONSTANT XM$M_ERR_LOST = x'00100000'9 DECLARE LONG CONSTANT XM T$M_ERR_THRESH = x'00200000'7 DECLARE LONG CONSTANT XM$M_ERR_TRIB = x'00400000'8 DECLARE LONG CONSTANT XM$M_ERR_START = x'00800000'9 DECLARE LONG CONSTANT XM$M_MDM_RTSHLD = x'00000001'9 DECLARE LONG CONSTANT XM$M_MDM_STNDBY = x'00000002'9 DECLARE LONG CONSTANT XM$M_MDM_MAINT2 = x'00000004'9 DECLARE LONG CONSTANT XM$M_MDM_MAINT1 = x'00000008'7 DECLARE LONG CONSTANT XM$M_MDM_FREQ = x'00000020'6 DECLARE LONG CONSTANT XM$M_MDM_RDY = x'00000040'7 UDECLARE LONG CONSTANT XM$M_MDM_POLL = x'00000080'7 DECLARE LONG CONSTANT XM$M_MDM_SELM = x'00000100'6 DECLARE LONG CONSTANT XM$M_MDM_INT = x'00000800'6 DECLARE LONG CONSTANT XM$M_MDM_V35 = x'00001000'8 DECLARE LONG CONSTANT XM$M_MDM_RS232 = x'00004000'8 DECLARE LONG CONSTANT XM$M_MDM_RS422 = x'00008000': DECLARE LONG CONSTANT XM$M_MDM_CARRDET = x'00000001': DECLARE LONG CONSTANT XM$M_MDM_MSTNDBY = x'00000002'6 DECLARE LONG CONSTANT XM$M_MDM_CTS = x'000 V00004'6 DECLARE LONG CONSTANT XM$M_MDM_DSR = x'00000008'6 DECLARE LONG CONSTANT XM$M_MDM_HDX = x'00000010'6 DECLARE LONG CONSTANT XM$M_MDM_RTS = x'00000020'6 DECLARE LONG CONSTANT XM$M_MDM_DTR = x'00000040'7 DECLARE LONG CONSTANT XM$M_MDM_RING = x'00000080'9 DECLARE LONG CONSTANT XM$M_MDM_CHRMOD = x'00000100'9 DECLARE LONG CONSTANT XM$M_MDM_MCLOCK = x'00000200': DECLARE LONG CONSTANT XM$M_MDM_MODTEST = x'00000400': DECLARE LONG CONSTANT XM$M_MDMW_SIGQUAL = x'00004000': DECLARE LONG CONSTANT XM$M_MDM_SIGRATE = x'00008000'* DECLARE LONG CONSTANT XM$S_XMDEF = 3 record XMDEF variant case% group XM$R_XMDEF_BITS0 ! MOP MODE ! LOOP BACK " ! HALF DUPLEX 0 ! HALF DUPLEX SLAVE STATION ) ! MAILBOX IS ENABLED 0 ! DMC-11 COMPATABILITY MODE & ! CONTROL STAT XION ( ! TRIBUTARY STATION ) ! DATA CHECK OCCURED & ! TIMEOUT OCCURED , ! DATA OVER RUN OCCURED " ! ACTIVE UNIT 8 ! BUFFER ALLOCATION FAILURE OCCURED ' ! PROTOCOL RUNNING . ! LINE DISCONNECT OCCURED  ! SPARE % ! HARDWARE ERROR 3 ! DDCMP MAINT MESSAGE RECEIVED @ ! Y DATA LOST BECAUSE OF BUFFER SIZE MISMATCH ' ! THRESHOLD ERRORS / ! TRIBUTARY MALFUNCTIONING 3 ! DDCMP START MESSAGE RECEIVED s LONG CHR_MOP_bits ! COMMENT ADDED BY SDL - CHR_MOP_bits contains bits CHR_MOP through ERR_START) end group XM$R_XMDEF_BITS0 case% group XM$R_XMDEF_BITS1 ! RTS HOLD % ! SELECT STANDBY ) !Z MAINTENANCE MODE 2 ) ! MAINTENANCE MODE 1 " ! HALF-DUPLEX ' ! SELECT FREQUENCY * ! DATA TERMINAL READY 0 ! SELECT POLLING MODEM MODE 7 ! MODEM INTERFACE PROGRAM SELECTED  ! UNUSED % ! INTEGRAL MODEM  ! V.35  ! UNUSED ( ! RS-232-C OR RS423  ! RS-422 | [ WORD MDM_RTSHLD_bits ! COMMENT ADDED BY SDL - MDM_RTSHLD_bits contains bits MDM_RTSHLD through MDM_RS422) end group XM$R_XMDEF_BITS1 case% group XM$R_XMDEF_BITS2% ! CARRIER DETECT $ ! MODEM STANDBY $ ! CLEAR TO SEND % ! DATA SET READY " ! HALF-DUPLEX & ! REQUEST TO SEND * ! DATA TERMINAL READY  \ ! RING 5 ! CHARACTER OR BIT PROTOCOL MODE ( ! MAINTENANCE CLOCK & ! MODEM TEST MODE  ! UNUSED % ! SIGNAL QUALITY " ! SIGNAL RATE WORD MDM_CARRDET_bits ! COMMENT ADDED BY SDL - MDM_CARRDET_bits contains bits MDM_CARRDET through MDM_SIGRATE) end group XM$R_XMDEF_BITS2 end variant end record XMDEF  ww^ 糃PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI_NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET` %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  K DECLARE LONG CONSTANT XRV$_PR_VIADR = 157 ! Vector indirect addressL DECLARE LONG CONSTANT XRV$_PR_VIDLO = 158 ! Vector indirect data lowK DECLARE LONG CONSTANT XRV$_PR_VIDHI = 159 ! aVector indirect data hi ! +E DECLARE LONG CONSTANT XRV$_VIR_VREG0 = 0 ! Vector Register 0F DECLARE LONG CONSTANT XRV$_VIR_VREG1 = 64 ! Vector Register 1G DECLARE LONG CONSTANT XRV$_VIR_VREG2 = 128 ! Vector Register 2G DECLARE LONG CONSTANT XRV$_VIR_VREG3 = 192 ! Vector Register 3G DECLARE LONG CONSTANT XRV$_VIR_VREG4 = 256 ! Vector Register 4G DECLARE LONG CONSTANT XRV$_VIR_VREG5 = 320 ! Vector Register 5G DECLARE LONG CONSTANT XRbV$_VIR_VREG6 = 384 ! Vector Register 6G DECLARE LONG CONSTANT XRV$_VIR_VREG7 = 448 ! Vector Register 7G DECLARE LONG CONSTANT XRV$_VIR_VREG8 = 512 ! Vector Register 8G DECLARE LONG CONSTANT XRV$_VIR_VREG9 = 576 ! Vector Register 9H DECLARE LONG CONSTANT XRV$_VIR_VREG10 = 640 ! Vector Register 10H DECLARE LONG CONSTANT XRV$_VIR_VREG11 = 704 ! Vector Register 11H DECLARE LONG CONSTANT XRV$_VIR_VREG12 = 768 ! Vector Register 12H DECLARE LONGc CONSTANT XRV$_VIR_VREG13 = 832 ! Vector Register 13H DECLARE LONG CONSTANT XRV$_VIR_VREG14 = 832 ! Vector Register 14H DECLARE LONG CONSTANT XRV$_VIR_VREG15 = 960 ! Vector Register 15H DECLARE LONG CONSTANT XRV$_VIR_ALU_OP = 1088 ! Arithmetic opcodeM DECLARE LONG CONSTANT XRV$_VIR_ALU_SCOP_LO = 1096 ! Scalar operand LOM DECLARE LONG CONSTANT XRV$_VIR_ALU_SCOP_HI = 1100 ! Scalar operand HIJ DECLARE LONG CONSTANT XRV$_VIR_ALU_MASK_LO = 1100 ! Vector m dask LOJ DECLARE LONG CONSTANT XRV$_VIR_ALU_MASK_HI = 1104 ! Vector mask HIJ DECLARE LONG CONSTANT XRV$_VIR_ALU_EXC = 1108 ! ALU exception reg. ! Location 458 reservedP DECLARE LONG CONSTANT XRV$_VIR_ALU_DIAG_CTRL = 1116 ! Diagnostic controlE DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ISL = x'00000001'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ISH = x'00000002'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_IBL = x'00000004'E DECLARE LONGe CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_IBH = x'00000008'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ICL = x'00000010'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ICH = x'00000020'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ICI = x'00000040'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_ABE = x'00000100'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_CPE = x'00000200'E DECLARE LONG CONSTANT XRV$M_VIR_ALU_DIAG_CTRL_IFO = x'00000400'M DECLARE LONG CfONSTANT XRV$_VIR_VERSE_CHIP0 = 1116 ! Verse Chip 0 reg.M DECLARE LONG CONSTANT XRV$_VIR_VERSE_CHIP1 = 1117 ! Verse Chip 1 reg.M DECLARE LONG CONSTANT XRV$_VIR_VERSE_CHIP2 = 1118 ! Verse Chip 2 reg.M DECLARE LONG CONSTANT XRV$_VIR_VERSE_CHIP3 = 1119 ! Verse Chip 3 reg.L DECLARE LONG CONSTANT XRV$_VIR_VCTL_CALU = 1152 ! Current ALU instr.L DECLARE LONG CONSTANT XRV$_VIR_VCTL_DALU = 1153 ! Defered ALU instr.P DECLARE LONG CONSTANT XRV$_VIR_VCTL_COP_LO =g 1154 ! Current ALU oper. LOP DECLARE LONG CONSTANT XRV$_VIR_VCTL_COP_HI = 1155 ! Current ALU oper. HIP DECLARE LONG CONSTANT XRV$_VIR_VCTL_DOP_LO = 1156 ! Defered ALU oper. LOP DECLARE LONG CONSTANT XRV$_VIR_VCTL_DOP_HI = 1157 ! Defered ALU oper. HII DECLARE LONG CONSTANT XRV$_VIR_VCTL_LS = 1158 ! Load/Store instr.M DECLARE LONG CONSTANT XRV$_VIR_VCTL_STRIDE = 1159 ! Load/Store strideL DECLARE LONG CONSTANT XRV$_VIR_VCTL_ILL = 1160 ! Illegal instruc htionJ DECLARE LONG CONSTANT XRV$_VIR_VCTL_CSR = 1161 ! Controller Status@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_LSS = x'00000001'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_LSH = x'00000002'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_CDS = x'00000004'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_CDH = x'00000008'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_VIS = x'00000010'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_VIH = x'00000020'@ DECLARE LONG CONSTANT iXRV$M_VIR_VCTL_CSR_ISE = x'00000040'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_STF = x'00000200'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_ETF = x'00000400'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_VHE = x'00000800'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_SEE = x'00040000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_HEE = x'00080000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FRL = x'00100000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FRH = x'00200000'@ jDECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FDL = x'00400000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FDH = x'00800000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FSE = x'10000000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_FVP = x'20000000'@ DECLARE LONG CONSTANT XRV$M_VIR_VCTL_CSR_IMP = x'80000000'M DECLARE LONG CONSTANT XRV$_VIR_MOD_REV = 1162 ! Module revision levelD DECLARE LONG CONSTANT XRV$M_VIR_MOD_REV_FIXUP_LS = x'00000080'I DECLARE LONG CONSTANT XRV$k_VIR_LSX_P0BR = 1280 ! P0 base registerK DECLARE LONG CONSTANT XRV$_VIR_LSX_P0LR = 1281 ! P0 length registerI DECLARE LONG CONSTANT XRV$_VIR_LSX_P1BR = 1282 ! P1 base registerK DECLARE LONG CONSTANT XRV$_VIR_LSX_P1LR = 1283 ! P1 length registerL DECLARE LONG CONSTANT XRV$_VIR_LSX_SBR = 1284 ! System base registerL DECLARE LONG CONSTANT XRV$_VIR_LSX_SLR = 1285 ! System len. register ! 506-507 reservedJ DECLARE LONG CONSTANT XRV$_VIR_LSX_EXC = 1l288 ! L/S exception reg.M DECLARE LONG CONSTANT XRV$_VIR_LSX_TBCSR = 1289 ! TB control registerM DECLARE LONG CONSTANT XRV$_VIR_LSX_MAPEN = 1290 ! Map enable registerJ DECLARE LONG CONSTANT XRV$_VIR_LSX_TBIA = 1291 ! TB invalidate allM DECLARE LONG CONSTANT XRV$_VIR_LSX_TBIS = 1292 ! TB invalidate single ! 50D-50F reservedK DECLARE LONG CONSTANT XRV$_VIR_LSX_MASKLO = 1296 ! Mask register LOK DECLARE LONG CONSTANT XRV$_VIR_LSX_MASKHI = 1297 ! m Mask register HIN DECLARE LONG CONSTANT XRV$_VIR_LSX_STRIDE = 1298 ! L/S stride registerH DECLARE LONG CONSTANT XRV$_VIR_LSX_INST = 1299 ! L/S instructionM DECLARE LONG CONSTANT XRV$_VIR_LSX_AGDIAG = 1300 ! AG diagnostic reg. ! 515-517 reservedJ DECLARE LONG CONSTANT XRV$_VIR_LSX_XBE = 1304 ! XMI bus error reg.N DECLARE LONG CONSTANT XRV$_VIR_LSX_XFADR = 1305 ! XMI failed addr reg. ! 51A-51F reservedK DECLARE LONG CONSTANT XRV$_VIR_LSX_CCS nR = 1312 ! Cache control reg. ! 521-527 reserved@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_ACT = x'00000001'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_CPE = x'00000200'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_XSE = x'00000400'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_XHE = x'00000800'6 DECLARE LONG CONSTANT XRV$M_FILL_7 = x'00007000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_CEE = x'00008000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_SEE = x'00010 o000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_ENA = x'00020000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_HIT = x'00040000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_FHT = x'00080000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_FLU = x'00100000'6 DECLARE LONG CONSTANT XRV$M_FILL_8 = x'00600000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_FRL = x'00800000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_FDL = x'01000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_F pDH = x'02000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_IVS = x'04000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_IPS = x'08000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_DXT = x'10000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_IDV = x'20000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_IDP = x'40000000'@ DECLARE LONG CONSTANT XRV$M_VIR_LSX_CCSR_DTC = x'80000000'L DECLARE LONG CONSTANT XRV$_VIR_LSX_WBDIAG = 1320 ! WB diagnostic regM DECLARE qLONG CONSTANT XRV$_VIR_LSX_VMAC1 = 1321 ! Memory active startM DECLARE LONG CONSTANT XRV$_VIR_LSX_VMAC2 = 1322 ! Memory active check ! 52B-51F reservedG DECLARE LONG CONSTANT XRV$_VIR_LSX_TAG = 1328 ! TB tag registerG DECLARE LONG CONSTANT XRV$_VIR_LSX_PTE = 1329 ! TB PTE register ! 532-53F reserved+ DECLARE LONG CONSTANT XRVS_XRVDEF = 4 record XRVDEF variant ! +G ! Internal Processor register definitions for XRV Vector Pr rocessor4 ! - = ! Indirect register definitions for XRV Vector Processor ! - case4 group XRVR_XRV_VIR_ALU_DIAG_CTRL_BITS6 ! Invert scalar operand parity low7 ! Invert scalar operand parity high) ! Invert B parity low* ! Invert B parity high. ! Invert CD bus parity low/ ! Invert CD bus parity hig sh; ! Invert internally generated CP parity% ! AB parity error( ! C bus parity error* ! Illegal FAVOR opcodex LONG VIR_ALU_DIAG_CTRL_ISL_bits ! COMMENT ADDED BY SDL - VIR_ALU_DIAG_CTRL_ISL_bits contains bits &' ! VIR_ALU_DIAG_CTRL_ISL through FILL_28 end group XRVR_XRV_VIR_ALU_DIAG_CTRL_BITS case/ group XRVR_XRV_VIR_VCTL_CSR_BITS0 ! Lo tad store chip soft error0 ! Load store chip hard error4 ! Soft internal bus parity error4 ! Hard internal bus parity error( ! VIB bus soft error) ! VIB* bus hard error, ! Illegal sequence error( ! Machine check code& ! Self test failed* ! Extended test failed& ! Verse hard error' ! So uft error enable' ! Hard error enable. ! Force bad RFA low parity/ ! Force bad RFA high parity6 ! Force bad CD bus low data parity7 ! Force bad CD bus high data parity/ ! Current mode during error& ! Force soft error: ! Force bad VIB bus parity data parity3 ! Implementation specific error LONG VIR_VCT vL_CSR_LSS_bits ! COMMENT ADDED BY SDL - VIR_VCTL_CSR_LSS_bits contains bits VIR_VCTL_CSR_LSS & ! through VIR_VCTL_CSR_IMP3 end group XRVR_XRV_VIR_VCTL_CSR_BITS case. group XRVR_XRV_VIR_MOD_REV_BITS% ! Module revision. ! Load store fixup triggerv LONG VIR_MOD_REV_REVISION_bits ! COMMENT ADDED BY SDL - VIR_MOD_REV_REVISION_bits contains bits && ! VIR_MOD_REV_REVISION through FILL_62 w end group XRVR_XRV_VIR_MOD_REV_BITS case/ group XRVR_XRV_VIR_LSX_CCSR_BITS% ! Memory activity. ! Load store chip revision! ! XMI node id( ! Cache parity error. ! XMI interface soft error. ! XMI interface hard error( ! Cache error enable' ! Soft error enable" ! Cache enable x ! Cache hit% ! Force cache hit& ! Invalidate cache. ! Force bad low RFA parity/ ! Force bad low data parity0 ! Force bad high data parity, ! Invert valid bit sense) ! Invert parity sense. ! Disable XMI transactions6 ! Invert duplicate tag valid sense7 ! Invert duplicate tag parity sense) ! Duplicate tag check LONG VIR_LSX_CCSR_ACT_bits ! COMMENT ADDED BY SDL - VIR_LSX_CCSR_ACT_bits contains bits VIR_LSX_CCSR_ACT & ! through VIR_LSX_CCSR_DTC3 end group XRVR_XRV_VIR_LSX_CCSR_BITS end variant end record XRVDEF  wwz?PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI{NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET| %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! ++ ! 4 ! XWDEF - System definitions for software DDCMP !  ! --6 DECLARE LONG CONSTANT XW$M_CHA_FDX = x'00000001'6 DECLARE LONG CONSTANT XW$M_CHA_XPR = x'00000002'6 }DECLARE LONG CONSTANT XW$M_CHA_DSR = x'00000004'7 DECLARE LONG CONSTANT XW$M_FAT_STAT = x'000003FF'8 DECLARE LONG CONSTANT XW$M_INFO_STAT = x'0000FC00'2 DECLARE LONG CONSTANT XW$M_EOT = x'00000001'5 DECLARE LONG CONSTANT XW$M_DATACK = x'00000002'4 DECLARE LONG CONSTANT XW$M_NODSR = x'00000004'5 DECLARE LONG CONSTANT XW$M_DISCON = x'00000008'8 DECLARE LONG CONSTANT XW$M_TRABINTMO = x'00000010'8 DECLARE LONG CONSTANT XW$M_PIPE_MARK = x'00000020'7 ~DECLARE LONG CONSTANT XW$M_BADCHAIN = x'00000040'5 DECLARE LONG CONSTANT XW$M_ILLMOD = x'00000080'2 DECLARE LONG CONSTANT XW$M_RVI = x'00000400'5 DECLARE LONG CONSTANT XW$M_CONACK = x'00000800'2 DECLARE LONG CONSTANT XW$M_XPR = x'00001000'5 DECLARE LONG CONSTANT XW$M_ETXEND = x'00002000'4 DECLARE LONG CONSTANT XW$M_PUNCH = x'00010000'6 DECLARE LONG CONSTANT XW$M_HOR_FOR = x'00020000'4 DECLARE LONG CONSTANT XW$M_IOMOD = x'0000E000'* DECLARE LONG CONSTANT XW$S_XWDEF = 3 record XWDEF variant case% group XW$R_XWDEF_BITS0' ! Full duplex line # ! Transparency ) ! Data Set Ready set q BYTE CHA_FDX_bits ! COMMENT ADDED BY SDL - CHA_FDX_bits contains bits CHA_FDX through fill_48) end group XW$R_XWDEF_BITS0 !  ! Device dependent status !  case% group XW$R_XWDEF_BI TS14 ! Beginning of fatal stat flags 4 ! Start of informational status v WORD FAT_STAT_bits ! COMMENT ADDED BY SDL - FAT_STAT_bits contains bits FAT_STAT through INFO_STAT) end group XW$R_XWDEF_BITS1 ! @ ! Bit definitions for fatal and informational status fields !  case% group XW$R_XWDEF_BITS2# ! EOT received / ! Retry threshold exceeded )  ! Line not connected 1 ! Disconnect (DLE, EOT) rcvd . ! Binary transmit timeout 3 ! Aborted because of pipe mark & ! Bad record list + ! Illegal QIO modifier , ! Buffer ACKed with RVI 4 ! Buffer ACKed with conver resp 4 ! Buffer rcvd with transparency 0 ! Rcvd block ended with ETX )  ! Punch select found 3 ! Horizontal forms record rcvd e LONG EOT_bits ! COMMENT ADDED BY SDL - EOT_bits contains bits EOT through fill_49) end group XW$R_XWDEF_BITS2 ! . ! Read/Write function modifier definition !  case% group XW$R_XWDEF_BITS3/ ! I/O modifier field start l WORD FILL_3_bits ! COMMENT ADDED BY SDL - FILL_3_bits contains bits FILL_3 through IOMOD) end group XW$R_XWDEF_BITS3 end variant end record XWDEF wwPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! . ! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS !  !  ! $ADD_HOLDER ! 2 ! Add Holder Record To The Rights Database ! ' ! $ADD_HOLDER id, holder, [attrib] ! 0 ! id = identifier longword to associate the ! holder record with9 ! holder = address of the holder identifier quadword: ! attrib = attributes longword to grant to the holder ! . EXTERNAL LONG FUNCTION SYS$ADD_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &# LONG BY VALUE & ) !  ! $ADD_IDENT ! / ! Add Identifier To The Rights Database ! / ! $ADD_IDENT name, [id], [attrib], [resid] ! 6 ! name = address of the identifier name character ! string descriptor8 ! id = identifier longword to associate with 'name'3 ! attrib = attributes longword to grant to the ! identifier; ! resid = address of a longword to return the assigned ! identifier ! - EXTERNAL LONG FUNCTION SYS$ADD_IDENT & ( &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $ADD_MAPPING ! 0 ! Add Mapping record to Mapping database ! ! $ADD_MAPPING initmlst ! N ! initmlst = address of a list of item descriptors for the operation ! / EXTERNAL LONG FUNCTION SYS$ADD_MAPPING & ( & ANY BY REF & ) !  ! $ADD_PROXY !  ! Add proxy record ! ? ! $ADD_PROXY rem_node, rem_user, local_user, [flags] ! ; ! rem_node in address of remote node descriptor; ! rem_user in address of remote user descriptor: ! local_user in address of local user descriptor+ ! flags in proxy service flags ! - EXTERNAL LONG FUNCTION SYS$ADD_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $ADJSTK ! ) ! Adjust Outer Mode Stack Pointer ! . ! $ADJSTK [acmode] ,[adjust] ,newadr ! B ! acmode = access mode for which to adjust stack pointer3 ! adjust = 16-bit signed adjustment value? ! newadr = address of longword to store updated value ! * EXTERNAL LONG FUNCTION SYS$ADJSTK & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &! LONG BY REF & ) !  ! $ADJWSL ! " ! Adjust Working Set Limit ! & ! $ADJWSL [pagcnt] ,[wsetlm] ! J ! pagcnt = number of pages to add to working set (if positive).J ! Number of pages to subtract from working set (if ! negative).J ! wsetlm = address of longword to receive new working set limit,J !  or current working set limit if pagcnt not specified. ! * EXTERNAL LONG FUNCTION SYS$ADJWSL & ( &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $ALLOC !  ! Allocate Device ! @ ! $ALLOC devnam ,[phylen] ,[phybuf] ,[acmode] ,[flags] ! J ! devnam = address of device name or logical name string ! descriptorG ! phylen = address of word to receive length of physical name? ! phybuf = address of physical name buffer descriptorA ! acmode = access mode associated with allocated device& ! flags = options flags longword ! ) EXTERNAL LONG FUNCTION SYS$ALLOC & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) !   ! $ASCEFC ! - ! Associate Common Event Flag Cluster ! . ! $ASCEFC efn ,name ,[prot] ,[perm] ! J ! efn = number of any event flag in the cluster with which to ! associate? ! name = address of the text name string descriptor9 ! prot = protection indicator for the cluster7 ! 0 -> default, any process in group* ! 1 -> only owner's UIC( ! perm = permanent indicator+ ! 0 -> temporary cluster+ ! 1 -> permanent cluster ! * EXTERNAL LONG FUNCTION SYS$ASCEFC & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ BYTE BY VALUE, &# BYTE BY VALUE & ) !  ! $ASCTIM ! - ! Convert Binary Time to ASCII String ! 9 ! $ASCTIM [timlen] ,timbuf ,[timadr] ,[cvtflg] ! J  ! timlen = address of a word to receive the number of characters5 ! inserted into the output buffer.J ! timbuf = address of a character string descriptor describing> ! the buffer to receive the converted time.J ! timadr = address of the quadword containing the 64-bit time toD ! be converted to ASCII. If 0, use current time.) ! cvtflg = conversion indicator3 ! 0 -> return full date and time4 ! 1 -> return converted time only ! * EXTERNAL LONG FUNCTION SYS$ASCTIM & ( &" WORD BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &# BYTE BY VALUE & ) !  ! $ASCTOID ! ( ! Ascii To Identifier Conversion ! $ ! $ASCTOID name, [id], [attrib] ! 6 ! name = address of the identifier name character+ !  string descriptor to be converted5 ! id = address to return the identifier longword9 ! attrib = address to return the attributes longword ! + EXTERNAL LONG FUNCTION SYS$ASCTOID & ( &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) !  ! $ASCUTC ! 8 ! Convert Binary UTC time into ASCII time string ! 3 ! $ASCUTC [timlen], timbuf, [utcadr], [cvtf lg] ! 5 ! timlen = Length (in bytes) of the ASCII string2 ! returned by $ASCUTC. The timelen argument9 ! is the address of a word containing this length.B ! timbuf = Buffer into which $ASCUTC writes the ASCII string.: ! The timbuf argument is the address of a character6 ! string descriptor pointing to the bufer. The8 ! buffer length specified in the timbuf argument,: ! together rwith the cvtflg argument, controls what! ! information i s returned.A ! utcadr = Time value that $ASCUTC is to convert. The utcadr< ! argument is the address of this 128-bit time value.7 ! Relative times are not permitted. If utcadr is< ! not specified ( ie 0 ), $ASCUTC returns the current ! date and time.C ! cvtflg = Conversion indicator specifying which date and time> ! fields $ASCUTC should return. The cvtflg argument is; ! a longword value, which is interpreted as Boolean.= ! The value 1 specifies that ASCUTC should return onlyB ! the hour,minute,second, and hundreths of a second fields.A ! The default value 0 specifies that $ASCUTC should return! ! the full date and time. ! * EXTERNAL LONG FUNCTION SYS$ASCUTC & ( &" WORD BY REF, &% STRING BY DESC, &, BASIC$OCTAWORD BY REF, &# BYTE BY VALUE & ) !  ! $ASSIGN !  !  Assign I/O Channel ! > ! $ASSIGN devnam ,chan ,[acmode] ,[mbxnam], [flags] ! J ! devnam = address of device name or logical name string ! descriptorG ! chan = address of word to receive channel number assigned8 ! acmode = access mode associated with channelJ ! mbxnam = address of mailbox logical name string descriptor, if3 ! mailbox associated with deviceE ! flags = channel flags longword for specifying options for the ! $ASSIGN operation ! * EXTERNAL LONG FUNCTION SYS$ASSIGN & ( &% STRING BY DESC, &" WORD BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $AUDIT_EVENT ! ' ! Audit Security Relevant Event ! P ! $AUDIT_EVENT(W) [efn], [flags], itmlst, [audsts], [astadr], [astprm] ! 6 ! efn = number of event flag to set on completion ! # ! flags = input flags longword ! 3 ! itmlst = address of list of item descriptors ! F ! audsts = address of longword to receive final completion status ! 1 ! astadr = address of AST completion routine ! = ! astprm = unsigned longword to be passed to AST routine ! / EXTERNAL LONG FUNCTION SYS$AUDIT_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$AUDIT_EVENTW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $BINTIM ! - ! Convert ASCII String to Binary Time ! # ! $BINTIM timbuf ,timadr ! G ! timbuf = address of string descriptor for ASCII time stringJ ! timadr = address of quadword to receive 64-bit binary time ! value ! B ! Absolute time strings are specified in the format:, ! dd-mmm-yyyy hh:mm:ss.cc? ! Delta time strings are specified in the format:% ! dddd hh:mm:ss.cc ! * EXTERNAL LONG FUNCTION SYS$BINTIM & ( &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) !  ! $BINUTC ! 3 ! Convert ASCII UTC time to a binary format ! # ! $BINUTC timbuf, utcadr ! A ! timbuf = Buffer that holds the ASCII time to be converted.7 ! The timbuf argument specifies the addre ss of a8 ! character string descriptor pointing to the VMS7 ! time string. The VMS time string specifies the3 ! absolute time to be converted by $BINUTC.; ! utcadr = Time value that $BINUTC has converted. The< ! utcadr argument is the address of the utc_date_time, ! which receives the converted time. ! * EXTERNAL LONG FUNCTION SYS$BINUTC & ( &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) !  ! $BRDCST !  ! Broadcast ! % ! $BRDCST msgbuf ,[devnam] ! B ! msgbuf = address of message buffer string descriptorJ ! devnam = terminal device name string descriptor. If 0, sendJ ! message to all terminals. If first word inJ ! descriptor is 0, send message to all allocated! ! terminals. ! * EXTERNAL LONG FUNCTION SYS$BRDCST & ( &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $BRKTHRU ! % ! Write to terminal breakthru ! B ! $BRKTHRU [efn] ,msgbuf, [sendto], [sndtyp], [iosb],8 ! ($BRKTHRUW) [carcon], [flags], [reqid], [timout], ! [astadr], [astprm] ! 6 ! efn = event flag to be set at completion ! 8 ! msgbuf = address of message buffer descriptor ! 6 ! sendto = address of send address descriptor ! , ! sndtyp = value to describe sendto ! : ! iosb = address of a quadword I/O status block ! $ ! carcon = carriage control ! , ! flags = flags to modify broadcast ! / ! reqid = broadcast class requestor id ! , ! timout = address of timeout value ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument !  ! + EXTERNAL LONG FUNCTION SYS$BRKTHRU & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$  LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ), EXTERNAL LONG FUNCTION SYS$BRKTHRUW & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$  LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $CANCEL !  ! Cancel I/O on Channel !  ! $CANCEL chan ! I ! chan = number of the channel on which I/O is to be canceled ! * EXTERNAL LONG FUNCTION SYS$CANCEL & ( &# WORD BY VALUE & ) !  ! $CANCEL_SELECTIVE ! ) ! Selective Cancel I/O on Channel ! 8 ! $CANCEL_SELECTIVE chan, [iosblst], [lenlst] ! J ! chan = number of the channel on which I/O is to be canceled: ! iosblst = address of a vector of IOSB pointersH ! lenlst = number of entries in the vector pointed by iosblst ! 4 EXTERNAL LONG FUNCTION SYS$CANCEL_SELECTIVE & ( &$ WORD BY VALUE, &! ANY BY REF, &# LONG BY VALUE &  ) ! $CANEVTAST ! % ! Cancel an Event AST Routine ! P ! $CANEVTAST [evtnam], [evtadr], [evtfac], [acmode], [flags], [reqid] ! ,[evtid] ! 7 ! evtnam = address of descriptor of event name ! > ! evtadr = address of entry mask of event AST routine ! 2 ! evtfac = address of event facility code ! 4 ! acmode = access mode of event declaration ! - ! flags = address of optional flags ! @ ! reqid = user provided identification of this request ! 9 ! evtid = unique identification of this request ! - EXTERNAL LONG FUNCTION SYS$CANEVTAST & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CANEXH !  ! Cancel Exit Handler !  ! $CANEXH [desblk] ! J ! desblk = address of exit control block describing exit handler6 ! to be deleted. If 0, delete all. ! * EXTERNAL LONG FUNCTION SYS$CANEXH & ( & ANY BY REF & ) !  ! $CANTIM !  ! Cancel Timer Request ! ' ! $CANTIM [reqidt] ,[acmode] ! J ! reqidt = request identification for request to be canceled.1 ! If 0, all requests canceled.; ! acmode = access mode of requests to be canceled ! * EXTERNAL LONG FUNCTION SYS$CANTIM & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CANWAK !  ! Cancel Wakeup ! ' ! $CANWAK [pidadr] ,[prcnam] ! J ! pidadr = address of process identification of process for5 ! which wakeups are to be canceled> ! prcnam = address of process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$CANWAK & ( &" LONG BY REF, &$ STRING BY DESC & ) ! $CHANGE_ACL ! ' ! Set or modify an object's ACL ! , ! $CHANGE_ACL [chan], objtyp, [objnam]," ! itmlst, [acmode], [iosb],& ! [contxt] , [routin], [orbadr] ! = ! chan = number of a channel assigned to the object or: ! 0 if object is specified by the objnam parameter ! . ! objtyp = address of an object type code ! & ! objnam = address of object name ! 5 ! itmlst = address of a list of item descriptors ! ? ! acmode = address of a byte containing the access mode in. ! which the arguments will be validated ! 6 ! iosb = address of a quadword I/O status block ! B !  contxt = address of a context long word (used for iterative* ! calls or a multi-entry item list) ! @ ! routin = address of routine to be executed in kernel mode ! (obsolete) ! . ! orbadr = address of a user supplied ORB ! . EXTERNAL LONG FUNCTION SYS$CHANGE_ACL & ( &$ WORD BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ). ! $CHANGE_CLASS objtyp, [objnam], itmlst ! [acmode], [orbadr] ! ( ! Modify an objects access class ! 2 ! objtyp = address of an object type code ! 8 ! objnam = address of an object name descriptor ! 9 ! itmlst = address of a list of item descriptors ! C ! acmode = address of a byte containing the access mode in- ! which the arguments will be validated ! D ! orbadr = address of routine to be executed in kernel mode !  ! 0 EXTERNAL LONG FUNCTION SYS$CHANGE_CLASS & ( &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $CHECK_ACCESS ! c ! $CHECK_ACCESS [objtyp], [objnam], [usrnam], itmlst, [contxt], [clsnam], [objpro], [usrpro] ! ( ! Check User Access to an Object ! 2 ! objtyp = address of an object type code ! 8 ! objnam = address of an object name descriptor ! 5 ! usrnam = address of a user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! 7 ! contxt = address of longword for UAI context ! ; ! clsnam = address of object class name descriptor ! M ! objpro = address of object profile descriptor (ORB TLV or channel) ! @ ! usrpro = address of user profile descriptor (ARB TLV) ! 0 EXTERNAL LONG FUNCTION SYS$CHECK_ACCESS & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &%  STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! $CHECK_PRIVILEGE[W] ! A ! Check for process privilege and perform security audit. ! g ! $CHECK_PRIVILEGE[W] [efn] ,prvadr ,[altprv] ,[flags] ,[itmlst] ,[audsts] ,[astadr] ,[astprm] ! J ! efn = event flag to set on asynchronous service completionO ! prvadr = address of quadword privilege mask or longword identifierC  ! altprv = address of quadword privilege mask to check against# ! flags = control flags; ! itmlst = address of a list of item descriptorsA ! audsts = longword to receive final completion statusJ ! astadr = address of AST routine to call on service completion5 ! astprm = longword to pass to AST routine ! 3 EXTERNAL LONG FUNCTION SYS$CHECK_PRIVILEGE & ( &$ LONG BY VALUE, &"  LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )4 EXTERNAL LONG FUNCTION SYS$CHECK_PRIVILEGEW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $CHKPRO ! " ! Check Access Protection ! . ! $CHKPRO itmlst, [objpro], [usrpro] ! 5 ! itmlst = address of a list of item descriptors ! N ! objpro = address of object profile descriptor (ORB TLV or channel) ! A ! usrpro = address of user profile descriptor (ARB TLV) ! * EXTERNAL LONG FUNCTION SYS$CHKPRO & ( &! ANY BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! $CLRCLUEVT ! * ! Clear Cluster Event Notification ! 1 ! $CLRCLUEVT [handle], [acmode], [event] ! % ! handle = address of handle ! & ! acmode = access mode of AST ! 2 ! event = code indicating type of event ! - EXTERNAL LONG FUNCTION SYS$CLRCLUEVT & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $CLREF !  ! Clear Event Flag !  ! $CLREF efn ! 7 ! efn = number of event flag to be cleared ! ) EXTERNAL LONG FUNCTION SYS$CLREF & ( &# LONG BY VALUE & ) !  ! $CLOSE !  ! Close File ! $ ! $CLOSE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$CLOSE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $CMEXEC ! " ! Change to Executive Mode ! % ! $CMEXEC routin ,[arglst] ! J ! routin = address of the routine to be executed in executive ! modeJ ! arglst = address of argument list to be supplied to the ! routine ! * EXTERNAL LONG FUNCTION SYS$CMEXEC & ( &" LONG BY REF, & ANY BY REF & ) ! $CMKRNL !  ! Change to Kernel Mode ! $ ! $CMKRNL routin ,[arglst] ! D ! routin = address of routine to be executed in kernel mode ! F ! arglst = address of argument list to be supplied to routine ! * EXTERNAL LONG FUNCTION SYS$CMKRNL & ( &" LONG BY REF, & ANY BY REF & ) !  ! $CONNECT !  ! Connect File ! & ! $CONNECT rab, [err], [suc] ! ! rab = address of rab ! 5 !  err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$CONNECT & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $CNTREG ! ) ! Contract Program/Control Region ! 8 ! $CNTREG pagcnt ,[retadr] ,[acmode] ,[region] ! D ! pagcnt = number of pages to be deleted from end of region ! I ! retadr = address of 2-longword array to receive virtualA ! addresses of starting and ending page of deleted area ! > ! acmode = access mode for which service is performed ! $ ! region = region indicator? ! 0 -> program (P0) region 1 -> control (P1) region ! * EXTERNAL LONG FUNCTION SYS$CNTREG & ( &$ LONG BY VALUE, &' LONG DIM() BY REF, &$ LONG BY VALUE, &# BYTE BY VALUE & ) !  ! $CREATE !  ! Create File ! % ! $CREATE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$CREATE & ( &! ANY BY REF, &*  OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $CREATE_MAPPING ! ( ! Create Mapping record database !  ! $CREATE_MAPPING ! 0 EXTERNAL LONG FUNCTION SYS$CREATE_MAPPING !  ! $CREATE_PROXY !  ! Create proxy database !  ! $CREATE_PROXY !  ! . EXTERNAL LONG FUNCTION SYS$CREATE_PROXY !  ! $CREATE_UID ! ' ! Create a Universal Identifier !  ! $CREATE_UID UID ! > ! UID = address of the 16 byte buffer to receive the UID. ! . EXTERNAL LONG FUNCTION SYS$CREATE_UID & ( &+ BASIC$OCTAWORD BY REF & ) ! $CREATE_BUFOBJ ! " ! Create I/O Buffer Object ! L ! $CREATE_BUFOBJ inadr ,[retadr] ,[acmode] ,[flags] ,buffer_handle ! P ! inadr = address of 2-longword array containing starting and endingP !  virtual addresses of existing VA to include in buffer object ! I ! retadr = address of 2-longword array to receive addresses: ! actually included in the buffer object ! 9 ! acmode = access mode of owner of buffer object ! ( ! flags = request option flags ! " ! Bit Meaning (if set) ! H ! 0 Return system virtual address of buffer object in RETADR( ! (Caller must be in kernel mode) ! I ! buffer_handle = address of a quadword to receive the buffer handle1 ! that identifies the created buffer object ! 1 EXTERNAL LONG FUNCTION SYS$CREATE_BUFOBJ & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $CREATE_RDB ! $ ! Create The Rights Database !  ! $CREATE_RDB [sysid] ! 8 ! sysid = address of the quadword system identifier, ! to store in the maintenance record ! . EXTERNAL LONG FUNCTION SYS$CREATE_RDB & ( &+ BASIC$QUADWORD BY REF & ) !  ! $CREATE_USER_PROFILE ! ) ! Create a user security profile. ! U ! $CREATE_USER_PROFILE [usrnam], [itmlst], [flags], usrpro, usrprolen, [context] ! O ! usrna m = address of username descriptor (optional with CHP$M_NOACCESS)& ! itmlst = address of item list ! flags = flags longwordP ! usrpro = address of buffer to receive user profile (opaque byte string)G ! usrprolen = address of longword to receive user profile length< ! contxt = address of longword to receive UAI context ! 7 EXTERNAL LONG FUNCTION SYS$CREATE_USER_PROFILE & ( &% STRING BY DESC, &! ANY BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) !  ! $CRELNM !  ! Create Logical Name ! @ ! $CRELNM [attr], tabnam, lognam, [acmode], [itemlist] ! 4 ! attr = address of logical name attributes !  ! Attribute MeaningE ! LNM$M_CONFINE Logical name not to be copied into sub-process6 ! LNM$M_NO_ALIAS Logical name can not be aliased6 ! LNM$M_CRELOG Logical name created using $CRELOG ! C ! tabnam = address of logical name table string descriptor ! = ! lognam = address of logical name string descriptor ! ; ! acmode = address of access mode for logical name ! 9 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$CRELNM & ( &" LONG BY REF, &%  STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, & ANY BY REF & ) ! $CRELNT ! # ! Create Logical Name Table ! 8 ! $CRELNT [attr], [resnam], [reslen], [quota],5 ! [promsk], [tabnam], [acmode], [partab] ! : ! attr = address of logical name table attributes ! D ! resnam = address of descriptor of a buffer to receive the ! created table's name ! H ! reslen = address of word to recieve length of created table's ! name ! F ! quota = address of quota associated with logical name table ! . ! promsk = address of protection mask ! R ! tabnam = address of descriptor of logical name table name to be created ! E ! partab = address of name of table parent string descriptor ! ; ! acmode = address of access mode for logical name ! O !  uic = optional, owner of table created in response to remote request ! * EXTERNAL LONG FUNCTION SYS$CRELNT & ( &" LONG BY REF, &% STRING BY DESC, &" WORD BY REF, &" LONG BY REF, &" WORD BY REF, &% STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, &) OPTIONAL LONG BY REF & ) ! $CRELOG !  ! Create Logical Name ! 6 ! $CRELOG [tblflg] ,lognam ,eqlnam ,[acmode] ! - ! tblflg = logical name table number? ! 0 -> system (default) 1 -> group 2 -> process ! = ! lognam = address of logical name string descriptor ! A ! eqlnam = address of equivalence name string descriptor ! E ! acmode = access mode for logical name (process table only) ! * EXTERNAL LONG FUNCTION SYS$CRELOG & ( &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) ! $CREMBX ! + ! Create Mailbox and Assign Channel ! ] ! $CREMBX [prmflg] ,chan ,[maxmsg] ,[bufquo] ,[promsk] ,[acmode] ,[lognam], [flags] ! " ! prmflg = permanent flag6 ! 0 -> temporary (default) 1 -> permanent ! 6 !  chan = address of word to receive channel ! = ! maxmsg = maximum message size that may be received ! G ! bufquo = number of bytes that can be used to buffer messages ! # ! promsk = protection mask ! 2 ! acmode = access mode of created mailbox ! I ! lognam = address of logical name string descriptor for mailbox ! D ! flags = flags for mailbox creation and channel assignment ! * EXTERNAL LONG FUNCTION SYS$CREMBX & ( &$ BYTE BY VALUE, &" WORD BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) ! $CREPRC !  ! Create Process ! K ! $CREPRC [pidadr] ,[image] ,[input] ,[output] ,[error] ,[prvadr]T !  ,[quota] ,[prcnam] ,[baspri] ,[uic] ,[mbxunt] ,[stsflg] ,[itmlst] ,[node] ! G ! pidadr = address of longword to return id of created process ! ? ! image = address of string descriptor for image name ! > ! input = address of string descriptor for SYS$INPUT ! ? ! output = address of string descriptor for SYS$OUTPUT ! > ! error = address of string descriptor for SYS$ERROR ! 6 ! prvadr = address of quadword privilege list ! ) ! quota = address of quota list ! A ! prcnam = address of string descriptor for process name ! ( ! baspri = base priority (0-31) ! H ! uic = user identification code. If 0, create a subprocess ! 8 ! mbxunt = mailbox unit for termination message ! - ! stsflg = status and mode flag bits !  ! Bit Meaning ! / ! 0 disable resource wait mode< ! 1 enab le system service failure exception mode( ! 2 inhibit process swapping0 ! 3 disable accounting messages" ! 4 batch process7 ! 5 cause created process to hibernateA ! 6 allow login without authorization file check8 ! 7 process is a network connect object ! 9 ! itmlst = address of a list of item descriptors ! @ ! node = address of string descriptor for SCS node name ! *  EXTERNAL LONG FUNCTION SYS$CREPRC & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &! ANY BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ WORD BY VALUE, &$  LONG BY VALUE, &! ANY BY REF, &$ STRING BY DESC & ) ! $CRETVA ! & ! Create Virtual Address Space ! - ! $CRETVA inadr ,[retadr] ,[acmode] ! I ! inadr = address of 2-longword array containing starting andA ! ending virtual address of pages to be created ! I ! retadr = address of a 2-longword array to receive starting andD ! ending virtual address of pages actually created ! I ! acmode = access mode for the new pages (protection isD ! read/write for acmode and more privileged modes) ! * EXTERNAL LONG FUNCTION SYS$CRETVA & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $CRMPSC ! ! Create and Map Section ! K ! $CRMPSC [inadr] ,[re tadr] ,[acmode] ,[flags] ,[gsdnam] ,[ident]E ! ,[relpag] ,[chan] ,[pagcnt] ,[vbn] ,[prot] ,[pfc] ! I ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of space to map section ! I ! retadr = address of 2-longword array to receive addresses# ! actually mapped ! 1 ! acmode = access mode of owner of pages ! + ! flags = section characteristics  ! ! ! Flag Meaning ! ( ! SEC$M_GBL Global section1 ! SEC$M_CRF Copy-on-reference pages+ ! SEC$M_DZRO Demand zero pages4 ! SEC$M_EXPREG Find first available space+ ! SEC$M_PERM Permanent section5 ! SEC$M_PFNMAP Physical page frame section/ ! SEC$M_SYSGBL System global section, ! SEC$M_WRT Read/write section ! D ! gsdnam = address of global section name string descriptor ! O ! ident = address of quadword containing version id and match control ! 7 ! relpag = relative page number within section ! ? ! chan = number of channel on which file is accessed ! . ! pagcnt = number of pages in section ! I ! vbn = virtual block number of beginning of section orF ! physical page frame number of beginning of section ! # ! prot = protection mask ! + ! pfc = page fault cluster size ! * EXTERNAL LONG FUNCTION SYS$CRMPSC & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DACEFC ! 0 ! Disassociate Common Event Flag Cluster !  ! $DACEFC efn ! ; ! efn = number of any event flag in the cluster ! * EXTERNAL LONG FUNCTION SYS$DACEFC & ( &# LONG BY VALUE & ) ! $DALLOC !  ! Deallocate Device ! & ! $DALLOC [devnam] ,[acmode] ! L ! devnam = address of device name descriptor. If 0, deallocate all ! 6 ! acmode = access mode associated with device ! * EXTERNAL LONG FUNCTION SYS$DALLOC & ( &% STRING BY DESC, &# LONG BY VALUE & ) ! $DASSGN !  ! Deassign I/O Channel !  ! $DASSGN chan ! 6 ! chan = number of channel to be deassigned ! * EXTERNAL LONG FUNCTION SYS$DASSGN & ( &# WORD BY VALUE & ) ! $DCLAST !  ! Declare AST ! . ! $DCLAST astadr ,[astprm] ,[acmode] ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! C ! acmode = access mode for which the AST is to be declared ! * EXTERNAL LONG FUNCTION SYS$DCLAST & ( &"  LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DCLCMH ! ; ! Declare Change Mode or Compatibility Mode Handler ! , ! $DCLCMH addres ,[prvhnd] ,[type] ! & ! addres = address of handler ! K ! prvhnd = address of longword to receive previous handler address ! * ! type = handler type indicatorN ! 0 -> change mode (current mode)  1 -> compatibility mode ! * EXTERNAL LONG FUNCTION SYS$DCLCMH & ( &" LONG BY REF, &" LONG BY REF, &# BYTE BY VALUE & ) ! $DCLEVT !  ! Declare an Event ! @ ! $DCLEVT evtnam, [rcvacl], [evtfac], [acmode], [flags]> ! ,[evtdata], [nullarg], [nullarg], [nullarg], [nullarg] ! 8 ! evtnam = address of descriptor of event name ! 1 ! rcvacl = address of descriptor of ACL ! 3 ! evtfac = address of event facility code ! 5 ! acmode = access mode of event declaration ! # ! flags = optional flags ! A ! evtdata = address of descriptor of optional event data ! * EXTERNAL LONG FUNCTION SYS$DCLEVT & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DCLEXH !  ! Declare Exit Handler !  ! $DCLEXH desblk ! = ! desblk = address of exit control block containing: ! - ! +-------------------------------+- ! | forward link |- ! +-------------------------------+- ! | exit handler address |- ! +-------------------------------+- ! | argument count |- ! +-------------------------------+- ! | address to store reason |- ! +-------------------------------+- ! | additional arguments |- ! +-- for exit handler, --+- ! | if any |- !  +-------------------------------+ ! * EXTERNAL LONG FUNCTION SYS$DCLEXH & ( & ANY BY REF & ) !  ! $DEFINE_MAPPING ! = ! Define Mapping record types in the Mapping database ! 0 ! $DEFINE_MAPPING initmlst [,outitmlst] ! N ! initmlst = address of a list of item descriptors for the operationL ! outitmlst = address of a list of item descriptors for information ! from the operation ! 2 EXTERNAL LONG FUNCTION SYS$DEFINE_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) !  ! $DELETE !  ! Delete Record ! % ! $DELETE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$DELETE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $DELETE_INTRUSION ! ! ! Delete intrusion record ! 6 ! $DELETE_INTRUSION user_criteria, [flags] ! ? ! user_criteria in address of user criteria descriptor- ! flags in intrusion service flags ! 4 EXTERNAL LONG FUNCTION SYS$DELETE_INTRUSION &  ( &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $DELETE_MAPPING ! 5 ! Delete Mapping record from Mapping database ! # ! $DELETE_MAPPING initmlst ! N ! initmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$DELETE_MAPPING & ( & ANY BY REF & ) !  ! $DELETE_PROXY !  ! Delete proxy record ! B ! $DELETE_PROXY rem_node, rem_user, local_user, [flags] ! ; ! rem_node in address of remote node descriptor; ! rem_user in address of remote user descriptor: ! local_user in address of local user descriptor+ ! flags in proxy service flags ! 0 EXTERNAL LONG FUNCTION SYS$DELETE_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &# LONG BY VALUE & ) ! $DELLNM ! * ! Delete Logical Name and/or Table ! 0 ! $DELLNM [tabnam], [lognam], [acmode] ! K ! tabnam = address of descriptor of logical name table name string ! @ ! lognam = address of descriptor of logical name string ! ; ! acmode = address of access mode for logical name ! * EXTERNAL LONG FUNCTION SYS$DELLNM & ( &% STRING BY DESC, &% STRING BY DESC, &! BYTE BY REF & ) ! $DELLOG !  ! Delete Logical Name ! 0 ! $DELLOG [tblflg] ,[lognam] ,[acmode] ! - ! tblflg = logical name table number= ! 0 -> system 1 -> group 2 -> process ! E ! lognam = address of logical name string descriptor. If 0,$ ! delete all names ! D ! acmode = access mode of logical name (process table only) ! * EXTERNAL LONG FUNCTION SYS$DELLOG & ( &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) ! $DELMBX !  ! Delete Mailbox !  ! $DELMBX chan ! : ! chan = channel number assigned to the mailbox ! * EXTERNAL LONG FUNCTION SYS$DELMBX &  ( &# WORD BY VALUE & ) ! $DELPRC !  ! Delete Process ! & ! $DELPRC [pidadr] ,[prcnam] ! N ! pidadr = address of longword containing id of process to be deleted ! O ! prcnam = address of string descriptor for process name to be deleted ! * EXTERNAL LONG FUNCTION SYS$DELPRC & ( &" LONG BY REF, &$ STRING BY DESC & ) ! $DELTVA ! & ! Delete Virtual Address Space ! - ! $DELTVA inadr ,[retadr] ,[acmode] ! I ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to delete ! I ! retadr = address of 2-longword array to receive starting and> ! ending addresses of pages actually deleted ! > ! acmode = access mode for which service is performed ! * EXTERNAL LONG FUNCTION SYS$DELTVA & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $DELETE_BUFOBJ ! " ! Delete I/O Buffer Object ! ( ! $DELETE_BUFOBJ buffer_handle ! L ! buffer_handle = address of a quadword that contains the buffer handle3 ! identifying the buffer object to be deleted ! 1 EXTERNAL LONG FUNCTION SYS$DELETE_BUFOBJ & ( &+ BASIC$QUADWORD BY REF & ) ! $DEQ !  ! Dequeue Lock ! 4 ! $DEQ [lkid] ,[valblk] ,[acmode] ,[flags] ! 6 ! lkid = lock ID of the lock to be dequeued ! 3 ! valblk = address of the lock value block ! ; ! acmode = access mode of the locks to be dequeued ! # ! flags = optional flags. ! % ! LCK$M_DEQALL ! ' EXTERNAL LONG FUNCTION SYS$DEQ & ( &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $DEVICE_SCAN !  ! Wildcard device scan ! S ! $DEVICE_SCAN return_devnam, retlen, [search_devnam], [itmlst], [contxt] ! O ! return_devnam = address of descriptor of returned device name buffer ! J ! retlen = address to store length of device name returned ! F ! search_devnam = address of descriptor of search device name ! @ ! itmlst = address of a list of item descriptors ! A ! contxt = address of quadword context structures !  ! / EXTERNAL LONG FUNCTION SYS$DEVICE_SCAN & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &! ANY BY REF, &+ BASIC$QUADWORD BY REF & ) ! $DGBLSC !  ! Delete Global Section ! , ! $DGBLSC [flags] ,gsdnam ,[ident] ! # ! flags = type of sectionI ! 0 -> group section SEC$M_SYSGBL -> system section ! D ! gsdnam = address of global section name string descriptor ! O ! ident = address of quadword containing version id and match control ! * EXTERNAL LONG FUNCTION SYS$DGBLSC & ( &$ LONG BY VALUE, &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) ! $DIAGNOSE3 ! System Service for Diagnostics Programmers ! 0 ! $DIAGNOSE function, P2, [cpu_id, [flags]] ! / ! function = DIAG$SETAFF or DIAG$_ACTVCPUS ! 6 ! P2 = enable flag if function is DIAG$SETAFF, or5 ! address to return actvcpus in if function !  is DIAG$_ACTVCPUS ! - ! cpu_id = CPU number to set affinity to ! : ! flags = masks governing the checking to do, whether= ! affinity is set for image or process duration,/ ! whether to set affinity to primary cpu. ! , EXTERNAL LONG FUNCTION SYS$DIAGNOSE & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & )  !  ! $DISABLE_VP_USE ! - ! Disable Use of the Vector Processor ! 0 ! $DISABLE_VP_USE flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 2 EXTERNAL LONG FUNCTION SYS$DISABLE_VP_USE & ( &$ LONG BY VALUE, &"  LONG BY REF, &! LONG BY REF & ) !  ! $DISABLE_VP_USE_INT ! < ! Disable Use of the Vector Processor, internal form ! 4 ! $DISABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 6 EXTERNAL LONG FUNCTION SYS$DISABLE_VP_USE_INT & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! $DISCONNECT ! " ! Disconnect Record Stream ! ) ! $DISCONNECT rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! . EXTERNAL LONG FUNCTION SYS$DISCONNECT & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $DISMOU !  ! Dismount Volume ! " ! $DISMOU devnam ,[flags] ! < ! devnam = address of device name string descriptor ! L ! flags = 32-bit status mask selecting options for the dismountL ! The symbols for the flags are defined by the $DMTDEF ! macro. ! & ! Flag Meaning ! ; ! DMT$M_NOUNLOAD Do not unload the volume. ! G ! DMT$M_UNIT Dismount the specified device, rather= ! than the entire volume set. ! * EXTERNAL LONG FUNCTION SYS$DISMOU & ( &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $DISPLAY !  ! Display File ! & ! $DISPLAY fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$DISPLAY & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $DLCEFC ! * ! Delete Common Event Flag Cluster !  ! $DLCEFC name ! = ! name = address of cluster name string descriptor ! * EXTERNAL LONG FUNCTION SYS$DLCEFC & ( &$ STRING BY DESC & ) ! $DNS ! " ! DNS Clerk system service ! D ! $DNS [efn], func , itmlst, [dnsb] ,[astadr] ,[astprm] ! ($DNSW) ! = ! efn = number of event flag to set on completion ! C ! func = function code specifying action to be performed ! 9 ! itmlst = address of a list of item descriptors ! I ! dnsb = address of quadword I/O status block to receive final% ! completion status ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! ' EXTERNAL LONG FUNCTION SYS$DNS & ( &$ LONG BY VALUE, &$  LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$DNSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE &  ) ! ! $EMAA ! - ! Call Entity Management Assist Agent ! ! $EMAA ! ( EXTERNAL LONG FUNCTION SYS$EMAA & ( &% STRING BY DESC, &! LONG BY REF & ) !  ! $ENABLE_VP_USE ! , ! Enable Use of the Vector Processor ! / ! $ENABLE_VP_USE flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A !  curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 1 EXTERNAL LONG FUNCTION SYS$ENABLE_VP_USE & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! $ENABLE_VP_USE_INT ! ; ! Enable Use of the Vector Processor, internal form ! 3 ! $ENABLE_VP_USE_INT flags ,[curflg] ,[prvflg] ! C ! flags = mask of facility(ies) that disabled vector use ! A ! curflg = address of longword to receive current flags ! B ! prvflg = address of longword to receive previous flags ! 5 EXTERNAL LONG FUNCTION SYS$ENABLE_VP_USE_INT & ( &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) ! $ENQ !  ! Enqueue Lock Request  ! C ! $ENQ [efn] ,lkmode ,lksb ,[flags] ,[resnam] ,[parid]F ! ($ENQW) ,[astadr] ,[astprm] ,[blkast] ,[acmode], [rsdm_id]6 ! efn = event flag to be set at completion ! < ! lkmode = type of lock mode requested. Modes are: ! + ! LCK$K_NLMODE null lock1 ! LCK$K_CRMODE concurrent read2 ! LCK$K_CWMODE concurrent write0 ! LCK$K_PRMODE protected read1 ! LCK$K_PWMODE protected write0 ! LCK$K_EXMODE exclusive lock ! 3 ! lksb = address of the lock status block ! N ! flags = flags defining the characteristics of the lock. These are: ! " ! LCK$M_NOQUEUE" ! LCK$M_SYNCSTS! ! LCK$M_SYSTEM! ! LCK$M_VALBLK" ! LCK$M_CONVERT ! E ! resnam = address of string descriptor of the resource name ! .  ! parid = lock ID of the parent lock ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! A ! blkast = address of entry mask of blocking AST routine ! > ! acmode = Access mode to be associated with the lock ! ' ! rsdm_id = Resource Domain Id ! ? ! range = optional range to be locked within resource ! 2 ! priority = optional priority of request !  ! ' EXTERNAL LONG FUNCTION SYS$ENQ & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &"  LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$ENQW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ENTER !  ! Enter File ! $ ! $ENTER fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$ENTER & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $ERAPAT ! , ! Generate a security erase pattern. ! $ ! $ERAPAT type, [count], patadr ! $ ! type = type of security erase ! 7 ! count = iteration count (seed for erase pattern) ! < ! patadr = address of longword to receive erase pattern ! * EXTERNAL LONG FUNCTION SYS$ERAPAT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! $ERASE !  ! Erase File ! $ ! $ERASE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$ERASE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $EVDPOSTEVENT !  ! Post Event to EVD !  ! $EVDPOSTEVENT EVENT ! 0 EXTERNAL LONG FUNCTION SYS$EVDPOSTEVENT & ( &$ STRING BY DESC & ) ! $EXIT !  ! Exit image !  ! $EXIT [code] ! . ! code = longword completion status ! ( EXTERNAL LONG FUNCTION SYS$EXIT &  ( &# LONG BY VALUE & ) ! $EXPREG ! ' ! Expand Program/Control Region ! 8 ! $EXPREG pagcnt ,[retadr] ,[acmode] ,[region] ! E ! pagcnt = number of pages to add to end of specified region ! I ! retadr = address of 2-longword array to receive virtual: ! addresses of starting and ending pages ! 0 ! acmode = access mode of the new pages ! $ !  region = region indicatorH ! 0 -> program (P0) region 1 -> control (P1) region ! * EXTERNAL LONG FUNCTION SYS$EXPREG & ( &$ LONG BY VALUE, &' LONG DIM() BY REF, &$ LONG BY VALUE, &# BYTE BY VALUE & ) !  ! $EXTEND !  ! Extend File ! % ! $EXTEND fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$EXTEND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $FAO ! ! Formatted ASCII Output ! ? ! $FAO ctrstr ,[outlen] ,outbuf ,[p1] ,[p2]...[pn] ! C ! ctrstr = address of string descriptor for control string ! C ! outlen = address of word in which to store output length ! > ! outbuf = address of output buffer string descriptor ! 7 ! p1... = variable number of arguments to FAO ! ' EXTERNAL LONG FUNCTION SYS$FAO & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $FAOL  ! 4 ! Formatted ASCII Output With List Parameter ! 4 ! $FAOL ctrstr ,[outlen] ,outbuf ,prmlst ! C ! ctrstr = address of string descriptor for control string ! C ! outlen = address of word to receive output string length ! > ! outbuf = address of output buffer string descriptor ! < ! prmlst = address of a list of longword parameters ! ( EXTERNAL LONG FUNCTION SYS$FAOL & ( &%  STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, & ANY BY REF & ) ! $FILESCAN ! 9 ! Scan a string and identify a file specification ! J ! $FILESCAN srcstr, [valuelst], [fldflags], [auxout], [retlen] ! B ! srcstr = address of string descriptor for source string ! ; ! valuelst = address of a list of item descriptors ! < ! fldflags = addres s of a longword to receive flags ! B ! auxout = address of string descriptor for output string ! I ! retlen = address to store length of the output string returned ! , EXTERNAL LONG FUNCTION SYS$FILESCAN & ( &% STRING BY DESC, &! ANY BY REF, &" LONG BY REF, &% STRING BY DESC, &! WORD BY REF & ) ! ! $FIND !   ! Find Record in File ! # ! $FIND rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$FIND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $FIND_HELD ! ) ! Find I dentifiers Held By Holder ! 2 ! $FIND_HELD holder, [id], [attrib], [contxt] ! @ ! holder = address of a quadword which specifies the holder# ! id of the records to find5 ! id = address to return the identifier longword@ ! attrib = address to return the holder attributes longwordB ! contxt = address of a longword containing the record stream9 ! context. initially should be zero, value output9 ! on first call, value input on subsequent calls . ! - EXTERNAL LONG FUNCTION SYS$FIND_HELD & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) !  ! $FIND_HOLDER ! # ! Find Holder Of Identifier ! 4 ! $FIND_HOLDER id, [holder], [attrib], [contxt] ! 4 ! id = identifier longword whose holder records ! are to be found8 ! holder = address to  return the holder id quadword9 ! attrib = address to return the attributes longwordB ! contxt = address of a longword containing the record stream9 ! context. initially should be zero, value output9 ! on first call, value input on subsequent calls. ! / EXTERNAL LONG FUNCTION SYS$FIND_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &! LONG BY REF & ) !  ! $FINISH_RDB !  ! Clean up RMS Stream !  ! $FINISH_RDB contxt ! B ! contxt = address of a longword containing the record stream ! context. ! . EXTERNAL LONG FUNCTION SYS$FINISH_RDB & ( &! LONG BY REF & ) ! $FORCEX !  ! Force Exit ! . ! $FORCEX [pidadr] ,[prcnam] ,[code] ! I ! pidadr = address of process id of process to be forced to exit ! I ! prcnam = address of process name descriptor for forced process ! ? ! code = longword completion status for exit service ! * EXTERNAL LONG FUNCTION SYS$FORCEX & ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) !  ! $FORGE_WORD !  ! Forge random word. ! T ! $FORGE_WORD [minlen],  [maxlen], [mindata], [flags], [retdata], outlen, outstr ! - ! minlen minimum word length to return- ! maxlen maximum word length to return? ! mindata minimum amount of data to return (in decibits)" ! flags miscellaneous flagsI ! retdata longword to receive actual amount of information in word7 ! outlen word to receive length of returned word1 ! outstr address of buffer to receive word ! . EXTERNAL LONG FUNCTION SYS$FORGE_WORD & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &" WORD BY REF, &$ STRING BY DESC & ) !  ! $FORGET_RM ! A ! Forget a resource manager previously declared to DECdtm ! A ! $FORGET_RM [efn], [flags], iosb, [astadr], [astprm], rm_id ! ($FORGET_RMW)  ! . ! efn = event flag to set upon completion ! flags = operation flags) ! iosb = address of I/O status block4 ! astadr = address of entry mask of AST routine1 ! astprm = value to be passed to AST routine( ! rm_id = resource manager id value ! - EXTERNAL LONG FUNCTION SYS$FORGET_RM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$FORGET_RMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $FORMAT_ACL ! - ! Format an Access Control list Entry ! 7 ! $FORMAT_ACL acl-entry, [acl-length], acl-string,5 ! [line-width], [term-desc], [line-indent],! ! [bit-names], [routin] ! < ! acl-entry = address of a descriptor of a buffer which ! contains the ACE ! > ! acl-length = address of a word to receive the length of ! the output string ! < ! acl-string = address of a descriptor of a buffer into2 ! which the output string is to be stored ! 5 ! line-widt h = address of the maximum line width ! (0 = infinite) ! ? ! term_desc = address of a character descriptor containing5 ! a character string to be inserted whenever9 ! the line segment length exceeds the line-width ! ? ! line-indent = address of the number of columns to indent" ! the output line segment ! B ! bit-names = address of a access bit name table (32 entries) ! A ! routin = address of routine to be executed in kernel mode ! . EXTERNAL LONG FUNCTION SYS$FORMAT_ACL & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &! ANY BY REF, &! LONG BY REF & ) ! 7 ! $FORMAT_AUDIT fmttyp, audmsg, [outlen], outbuf,. ! [width], [trmdsc], [routin], [fmtflg] ! 0 ! Format security auditing event message !  ! fmttyp = format type ! 1 ! audmsg = address of the message to format ! E ! outlen = address of a word to receive length of output string ! ? ! outbuf = Address of a descriptor of a buffer to receive& ! the formatted event message ! > ! width = address of a word containing the display width ! < ! trmdsc = address of a descriptor containing the line" ! terminator character(s) ! - ! routin = address of an output routine ! % ! fmtflg = format control flags0 EXTERNAL LONG FUNCTION SYS$FORMAT_AUDIT & ( &$ LONG BY VALUE, &! ANY BY REF, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & )& ! $FORMAT_CLASS itmlst, [routin] ! % ! Format access class strings ! 9 ! itmlst = address of a list of item descriptors ! D ! routin = address of routine to be executed in kernel mode !  ! 0 EXTERNAL LONG FUNCTION SYS$FORMAT_CLASS & ( &! ANY BY REF, &! LONG BY REF & ) ! ! $FREE !  ! Free Record ! # !  $FREE rab, [err], [suc] ! ! rab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$FREE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $FLUSH !  ! Flush Record ! $ ! $FLUSH rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$FLUSH & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $GET_SECURITY ! $ ! Get Object Securty Profile ! ] ! $GET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] ! 0 EXTERNAL LONG FUNCTION SYS$GET_SECURITY & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) ! ! $GET !  ! Get Record from File ! " ! $GET rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ' EXTERNAL LONG FUNCTION SYS$GET & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $GETCHN ! % ! Get I/O Channel Information ! @ ! $GETCHN chan ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! > ! chan = number of a channel assigned to the device ! G ! prilen = address of word to receive length of primary buffer ! 8 ! pribuf = address of primary buffer descriptor ! I ! scdlen = address of word to receive length of secondary buffer ! : ! scdbuf = address of secondary buffer descriptor ! * EXTERNAL LONG FUNCTION SYS$GETCHN & ( &$ WORD BY VALUE, &"  WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &$ STRING BY DESC & ) ! $GETDEV ! $ ! Get I/O Device Information ! C ! $GETDEV devnam ,[prilen] ,[pribuf] ,[scdlen] ,[scdbuf] ! E ! devnam = address of device name or logical name descriptor ! G ! prilen = address of word to receive length of primary buffer ! 8 ! pribuf = address of pri mary buffer descriptor ! I ! scdlen = address of word to receive length of secondary buffer ! : ! scdbuf = address of secondary buffer descriptor ! * EXTERNAL LONG FUNCTION SYS$GETDEV & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" WORD BY REF, &$ STRING BY DESC & ) !  ! $GETDTI ! 1 ! Get Di !stributed Transaction Information ! K ! $GETDTI [efn], [flags], iosb, [astadr], [astprm], [log_id], context,# ! ($GETDTIW) search, itmlst ! , ! efn = event flag to set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block; ! astadr = address of the entry mask of an AST routine1 ! astprm = value to be passed to AST routine, ! log_id = address of log id for TM log3 ! context = address of longword search co"ntext: ! search = address of a list of search criteria items5 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$GETDTI & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &! ANY BY REF, #& ANY BY REF & )+ EXTERNAL LONG FUNCTION SYS$GETDTIW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! $GETDVI$ ! ' ! Get Device/Volume Information ! E ! $GETDVI [efn] ,[chan] ,[devnam] ,itmlst ,[iosb] ,[astadr]2 ! ($GETDVIW) ,[astprm] ,[nullarg] ! 6 ! efn = event flag to be set at completion ! A ! chan = number of a channel assigned to the device orD ! 0 if device is specified by the devnam parameter ! E ! devnam = address of device name or logical name descriptor ! 9 ! itmlst = addres%s of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine ! & ! nullarg = reserved argument !  ! * EXTERNAL LONG FUNCTION SYS$GETDVI & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF&, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & )+ EXTERNAL LONG FUNCTION SYS$GETDVIW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ ' LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $GETEVI !  ! Get Event Information ! % ! $GETEVI itmlst ,[nullarg] ! 9 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$GETEVI & ( &! ANY BY REF, &# LONG BY VALUE & ) ! $GETJPI ! % ! Get Job/Process Information ! H ! ( $GETJPI [efn] ,[pidadr] ,[prcnam] ,itmlst ,[iosb], [astadr], ! ($GETJPIW) [astprm] ! 6 ! efn = event flag to be set at completion ! 5 ! pidadr = address of process identification ! = ! prcnam = address of process name string descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ) ! D ! astprm = value to be passed to AST routine as an argument !  ! * EXTERNAL LONG FUNCTION SYS$GETJPI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETJPIW & (* &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETLKI !  ! Get Lock Information ! G ! $GETLKI [efn] ,lkidadr ,itmlst ,[iosb], [astadr], [astprm]," ! ($GETLKIW) [reserved] ! 6 ! efn = event flag+ to be set at completion ! 3 ! lkidadr = address of lock identification ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument ! ( ! reserved = reserved parameter !  ! * EXTERNAL LONG FUNCTION SYS$GETLKI & ( &$ , LONG BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETLKIW & ( &$ LONG BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" - LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $GETMSG !  ! Get Message ! < ! $GETMSG msgid ,msglen ,bufadr ,[flags] ,[outadr] ! = ! msgid = identification of message to be retrieved ! I ! msglen = address of a word to receive length of string ! returned ! I ! bufadr = address of buffer descriptor of buffer to receive. ! string ! F ! flags = flag bits for message content (macro default = 15) ! # ! Bit Value/Meaning ! # ! 0 1 Include text* ! 0 Do not include text) ! 1 1 Include identifier0 ! 0 Do not include identifier' ! 2 1 Include severity. ! 0 Do not include severity( ! 3 1 Include component/ ! 0 Do not include co/mponent ! L ! outadr = address of 4-byte array to receive the following values: ! ! Byte Contents !  ! 0 Reserved' ! 1 Count of FAO arguments ! 2 User value ! 3 Reserved ! * EXTERNAL LONG FUNCTION SYS$GETMSG & ( &$ LONG BY VALUE, &" WORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, && 0 BYTE DIM() BY REF & ) ! $GETPTI ! $ ! Get Page Table Information ! = ! $GETPTI [inadr],[retadr],[acmode],[mask],[pagcnt] ! ? ! inadr = address of two longwords containing starting/ ! and ending virtual address to operate on ! @ ! retadr = address of two longwords into which starting: ! and ending address of pages operated on is returned ! D ! acmode = access mode against which owners1hip is checked ! = ! mask = mask of page table information control bits ! & ! pagcnt = minimum page count !  ! * EXTERNAL LONG FUNCTION SYS$GETPTI & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $GETQUI !  ! Get Queue Information ! 6 ! 2 $GETQUI [efn], func, [nullarg], [itmlst],/ ! ($GETQUIW) [iosb], [astadr], [astprm] ! @ ! efn = event flag to be set when request completes= ! func = code specifying function to be performedF ! context = address of a longword containing a context numberL ! itmlst = address of a list of item descriptors for the operationS ! iosb = address of a quadword status block to receive the final statusR ! astadr = address of 3an ast routine to be called when request completes) ! astprm = 32-bit ast parameter ! * EXTERNAL LONG FUNCTION SYS$GETQUI & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETQUIW & 4 ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETSYI ! % ! Get System-Wide Information ! I ! $GETSYI [efn] ,[csidadr],[nodename],itmlst ,[iosb] ,[astadr], ! ($GETSYIW) [astprm] ! 6 ! efn 5 = event flag to be set at completion ! = ! csidadr = address of cluster system identification ! < ! nodename = address of node name string descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! J ! The second and third arguments 6in the $GETSYI argument list are6 ! not used; they are reserved for future use. ! * EXTERNAL LONG FUNCTION SYS$GETSYI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$GETSYIW & 7 ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $GETTIM !  ! Get Time !  ! $GETTIM timadr ! N ! timadr = address of a quadword to receive 64-bit current time value ! * EXTERNAL LONG FUNCTION 8SYS$GETTIM & ( &+ BASIC$QUADWORD BY REF & ) ! $GETUTC !  ! Get UTC Time !  ! $GETUTC utcadr ! R ! utcadr = address of a utc_date_time to receive 128-bit current UTC time ! value ! * EXTERNAL LONG FUNCTION SYS$GETUTC & ( &+ BASIC$OCTAWORD BY REF & ) ! $GETUAI ! , ! Get User Authorization Information ! 9E ! $GETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! ,[astprm] ! 6 ! efn = event flag to be set at completion ! A ! contxt = address of a context longword (UAF IFI ? ISI) ! 3 ! usrnam = address of user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine :! 5 ! astprm = value to be passed to AST routine !  ! * EXTERNAL LONG FUNCTION SYS$GETUAI & ( &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $GRANTID ! % ! Grant Identifier to Process ;! E ! $GRANTID [pidadr], [prcnam], [id], [name], [prvatr] [,segment] ! 3 ! pidadr = address of PID of affected process= ! prcnam = address of string descriptor of process name> ! id = address of quadword identifier and attributes@ ! name = address of string descriptor of identifier name= ! prvatr = address to store attributes of superseded id2 ! segment = optional segment index (by value) ! + EXTERNAL LONG FUNCTION SYS$GRANTID & < ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $GRANT_LICENSE ! A ! Grant authorization to execute licensed software product. ! : ! $GRANT_LICENSE prdnam ,prducer [,contxt] [,itmlst] ! ? ! prdnam = address of descriptor for software p=roduct nameA ! prducer = address of descriptor for software producer name8 ! contxt = address of context buffer (4 longwords)5 ! itmlst = address of a list of item descriptors ! 1 EXTERNAL LONG FUNCTION SYS$GRANT_LICENSE & ( &% STRING BY DESC, &% STRING BY DESC, &' LONG DIM() BY REF, & ANY BY REF & ) ! $HASH_PASSWORD ! A ! Encrypt a user p>assword to produce a quadword hash value. ! 4 ! $HASH_PASSWORD pwd, alg, [salt], usrnam, hash ! 9 ! pwd = address of descriptor for plaintext password& ! alg = algorithm to use for hash2 ! salt = salt value for use by hash algorithm1 ! usrnam = address of descriptor of username4 ! hash = address of output quadword hash buffer ! 1 EXTERNAL LONG FUNCTION SYS$HASH_PASSWORD & ( &% STRING BY DESC, &$ ? BYTE BY VALUE, &$ WORD BY VALUE, &% STRING BY DESC, &+ BASIC$QUADWORD BY REF & ) ! $HIBER !  ! Hibernate !  ! $HIBER_S ! ' EXTERNAL LONG FUNCTION SYS$HIBER !  ! $IDTOASC ! ( ! Identifier To Ascii Conversion ! C ! $IDTOASC id, [namlen], [nambuf], [resid], [attrib], [contxt] ! 6 ! id = identifier longword to convert, or zero @to, ! find all identifiers (wildcarding)< ! namlen = address of a word to store the length of the ! identifier name= ! nambuf = address of a character string descriptor that< ! describes the buffer to return the identifier name; ! resid = address of a longword to return the id found ! while wildcarding9 ! attrib = address to return the attributes longwordB ! contxt = address of a longword containing the record stream9 ! context. iAnitially should be zero, value output9 ! on first call, value input on subsequent calls. ! + EXTERNAL LONG FUNCTION SYS$IDTOASC & ( &$ LONG BY VALUE, &" WORD BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &! LONG BY REF & ) ! $IMGACT !  ! Image Activation ! 9 ! $IMGACT name,[dflnaBm],hdrbuf,[imgctl],[inadr],# ! [retadr], [ident], [acmode] !  ! < ! name = address of descriptor for file name string ! 3 ! dflnam = descriptor for file name string ! : ! hdrbuf = address of 512 byte buffer to write in ! 2 ! imgctl = image activation control flags ! A ! inadr = address of quadword specifying virtual address ! range to be mapped ! B ! retadr = address of quadword specifying virtuCal address ! range actually mapped ! B ! ident = address of quadword holding image section match ! control and identifier ! D ! acmode = access mode to be the owner of the created pages ! * EXTERNAL LONG FUNCTION SYS$IMGACT & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &' LONG DIM() BY REF, &' D LONG DIM() BY REF, &, BASIC$QUADWORD BY REF, &# LONG BY VALUE & ) ! $IMGFIX ! % ! Image Address Fixup Service !  ! $IMGFIX ! ( EXTERNAL LONG FUNCTION SYS$IMGFIX ! $INIT_VOL !  ! Initialize Volume ! - ! $INIT_VOL devnam, volnam, [itmlst] ! ? ! devnam = device name containing volume to initialize ! 6 ! volnam = name tEo initialize the volume with ! H ! itmlst = address of item code list for initialization options ! , EXTERNAL LONG FUNCTION SYS$INIT_VOL & ( &% STRING BY DESC, &% STRING BY DESC, & ANY BY REF & ) ! $IPC ! , ! Interprocess Communication Request ! 9 ! $IPC [efn] ,func ,ipcb ,[astadr] ,[astprm] ! ($IPCW) ! = ! efn = numbFer of event flag to set on completion ! C ! func = function code specifying action to be performed ! ? ! ipcb = address of Interprocess Communication Block ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument !  ! ' EXTERNAL LONG FUNCTION SYS$IPC & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" G LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$IPCW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) ! $LCKPAG !  ! Lock Pages in Memory ! - ! $LCKPAG inadr ,[retadr] ,[acmode] ! G ! H inadr = address of 2-longword array containing starting and: ! ending addresses of pages to be locked ! G ! retadr = address of 2-longword array to receive addresses of) ! pages actually locked ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$LCKPAG & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# I LONG BY VALUE & ) ! $LKWSET ! # ! Lock Pages in Working Set ! - ! $LKWSET inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting andB ! ending virtual addresses of pages to be locked ! I ! retadr = address of a 2-longword array to receive starting andE ! ending virtual addresses of pages actually locked ! D ! acmode = access mode Jto be checked against the page owner ! * EXTERNAL LONG FUNCTION SYS$LKWSET & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) !  ! $LOOKUP_MAPPING ! 8 ! Find single Mapping record in Mapping database ! 0 ! $LOOKUP_MAPPING initmlst ,[outitmlst] ! O ! initmlst = address of a list of item descriptors for the operationO ! K outitmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$LOOKUP_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) ! $MGBLSC !  ! Map Global Section ! Q ! $MGBLSC inadr ,[retadr] ,[acmode] ,[flags] ,gsdnam ,[ident] ,[relpag] ! G ! inadr = address of 2-longword array containing starting and: ! ending addressLes of pages to be mapped ! B ! retadr = address of 2-longword array to receive virtual- ! addresses of pages mapped ! 8 ! acmode = access mode of owner of mapped pages ! D ! flags = flags overriding default section characteristics ! " ! Flag Meaning ! . ! SEC$M_WRT Read/write section1 ! SEC$M_SYSGBL System global section6 ! SEC$M_EXPREG Find first available space M! = ! gsdnam = address of global section name descriptor ! O ! ident = address of quadword containing version id and match control ! > ! relpag = relative page number within global section ! * EXTERNAL LONG FUNCTION SYS$MGBLSC & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &% STRING BY DESC, &, N BASIC$QUADWORD BY REF, &# LONG BY VALUE & ) !  ! $MODIFY !  ! Modify File ! % ! $MODIFY fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$MODIFY & ( &! ANY BY REF, &* OPTIOONAL LONG BY REF, &! LONG BY REF & ) !  ! $MOD_HOLDER ! 1 ! Modify Holder Record In Rights Database ! 9 ! $MOD_HOLDER id, holder, [set_attrib], [clr_attrib] ! " ! id = identifier longword< ! holder = address of the holder identifier quadword= ! set_attrib = longword containing the attributes to set# ! into the holder record? ! clr_attrib = longword containing the attributes to clearP! ! in the holder record ! . EXTERNAL LONG FUNCTION SYS$MOD_HOLDER & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $MODIFY_MAPPING ! 3 ! Modify Mapping record in Mapping database ! . ! $MODIFY_MAPPING initmlst, moditmlst ! O ! initmlst = address of a list of item descQriptors for the operationO ! moditmlst = address of a list of item descriptors for the operation ! 2 EXTERNAL LONG FUNCTION SYS$MODIFY_MAPPING & ( &! ANY BY REF, & ANY BY REF & ) !  ! $MOD_IDENT ! 5 ! Modify Identifier Record In Rights Database ! I ! $MOD_IDENT id, [set_attrib], [clr_attrib], [new_name], [new_value] ! " ! id = identifier longword6 ! s Ret_attrib = longword containing the attributes. ! to set into the identifier record6 ! clr_attrib = longword containing the attributes. ! to clear in the identifier record@ ! new_name = address of the new identifier name character* ! string descriptor1 ! new_value = new identifier value longword ! - EXTERNAL LONG FUNCTION SYS$MOD_IDENT & ( &$ LONG BY VALUE, &$ LONG BY VASLUE, &$ LONG BY VALUE, &% STRING BY DESC, &# LONG BY VALUE & ) ! $MOUNT !  ! Mount Volume !  ! $MOUNT itmlst ! 9 ! itmlst = Address of a list of item identifiers ! ) EXTERNAL LONG FUNCTION SYS$MOUNT & ( & ANY BY REF & ) ! $MTACCESS ! 5 ! Installation specific accessibility routine T! > ! $MTACCESS lblnam, [uic], [std_version], [access_char], ! [access_spec],type ! ? ! lblnam = On input this field is the address of the; ! VOL1 or HDR1 label read off the magnetic tape. On7 ! output of labels this field is zero. The type3 ! of label is determined by the TYPE field.F ! uic = This field contains the longword volme UIC passed ! by value.@ ! std_version = This field contains a byte value of t Uhe5 ! decimal equivalent of the version number9 ! gotten from the VOL1 label, passed by value.A ! access_char = This field contins the byte value of the; ! accessibility character specified by the user,8 ! passed by value. For output of labels only.F ! access_spec = This field determines if the character passed: ! in ACCESS_CHAR was specified by user, passed< ! by value. It must contain one of the following V! values: ! MTA$K_CHARVALID = YES ! MTA$K_NOCHAR = NO( ! For output of labels only.J ! type = This field contains the type of accessibility to process,A ! passed by value. It must contain one of the following ! values:* ! MTA$K_INVOL1 = Input a VOL1 label* ! MTA$K_INHDR1 = Input a HDR1 label, ! MTA$K_OUTVOL1 = Output a VOL1 label, ! MTA$K_OUTHDR1 = Output a HDR1 label ! , EXTERNAL LONG FUNCTION SYWS$MTACCESS & ( &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $NUMTIM ! - ! Convert Binary Time to Numeric Time ! $ ! $NUMTIM timbuf ,[timadr] ! F ! timbuf = address of a 7-word buffer to receive numeric time ! informatXion ! I ! timadr = address of a quadword containing the 64-bit time. If' ! 0, use current time ! * EXTERNAL LONG FUNCTION SYS$NUMTIM & ( &' WORD DIM() BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $NUMUTC ! 1 ! Convert UTC Binary Time to Numeric Time ! $ ! $NUMUTC timbuf ,[utcadr] ! G ! timbuf = address of a 11-word buffer to recei Yve numeric time ! information !  ! 31 0, ! +---------------+---------------+E ! | month of year | year since 0 | 7 word Date (ala NUMTIM)) ! +---------------+---------------+) ! | hour of day | day of month |) ! +---------------+---------------+) ! | sec. of min. | min. of hour |) ! +---------------+---------------+% ! | iDays | hund of Sec |. ! +---------------+--------------Z-+D ! | imins | ihours | 6 word Inaccuracy. ! +---------------+---------------+. ! | ihund of sec | isecs |. ! +---------------+---------------+ ! | TDF in Min | ! +---------------+ ! : ! utcadr = address of a utc_date_time to convert.' ! 0, use current time ! * EXTERNAL LONG FUNCTION SYS$NUMUTC & ( &' WORD DIM() BY REF, &+ [ BASIC$OCTAWORD BY REF & ) !  ! $NXTVOL !  ! Go to Next Volume ! % ! $NXTVOL rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$NXTVOL & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! \ LONG BY REF & ) ! ! $OPEN !  ! Open File ! # ! $OPEN fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$OPEN & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ] ) !  ! $PARSE !  ! Parse File Name ! $ ! $PARSE fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$PARSE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! ^ ! $PARSE_ACL ! , ! Parse an Access Control list Entry ! : ! $PARSE_ACL acl-string ,acl-entry ,[error-position], ! [bit-names], [routin] ! = ! acl-string = address of a descriptor of a buffer which) ! contains the text to be parsed ! ; ! acl-entry = address of a descriptor of a buffer into3 ! which the converted ACE is to be written ! B ! error-position = address of a word to receive the number of8 ! cha_racters actually processed by the service.5 ! If the service fails, this count points to1 ! the failing point in the input string. ! B ! bit-names = address of a access bit name table (32 entries) ! A ! routin = address of routine to be executed in kernel mode ! - EXTERNAL LONG FUNCTION SYS$PARSE_ACL & ( &% STRING BY DESC, &% STRING BY DESC, &" WORD BY REF, &! ` ANY BY REF, &! LONG BY REF & )% ! $PARSE_CLASS itmlst, [routin] ! $ ! Parse access class strings ! 9 ! itmlst = address of a list of item descriptors ! D ! routin = address of routine to be executed in kernel mode !  ! / EXTERNAL LONG FUNCTION SYS$PARSE_CLASS & ( &! ANY BY REF, &! LONG BY REF & ) ! $PERSONA_aCREATE !  ! Create Persona ! 3 ! $PERSONA_CREATE persona, usrnam, flags ! E ! persona = address of longword holding persona identifier ! 6 ! usrnam = address of user name descriptor ! & ! flags = bitvector value !  ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_CREATE & ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & b ) ! $PERSONA_ASSUME !  ! Assume Persona ! + ! $PERSONA_ASSUME persona, flags ! E ! persona = address of longword holding persona identifier ! % ! flags = longword value !  ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_ASSUME & ( &" LONG BY REF, &# LONG BY VALUE & ) ! $PERSONA_DELETE !  ! Delete Persona ! $c ! $PERSONA_DELETE persona ! E ! persona = address of longword holding persona identifier ! 2 EXTERNAL LONG FUNCTION SYS$PERSONA_DELETE & ( &! LONG BY REF & ) ! $PROCESS_SCAN ! ) ! Initialize Process_scan context ! , ! $Process_scan pidctx , [itmlst ] ! - ! pidctx = address of process ctx id ! 9 ! itmlst = address of a list of item descriptorsd !  ! 0 EXTERNAL LONG FUNCTION SYS$PROCESS_SCAN & ( &" LONG BY REF, & ANY BY REF & ) ! $PURGWS !  ! Purge Working Set !  ! $PURGWS inadr ! G ! inadr = address of 2-longword array containing starting and; ! ending addresses of pages to be removed ! * EXTERNAL LONG FUNCTION SYS$PURGWS & ( && LONG eDIM() BY REF & ) ! ! $PUT !  ! Put Record to File ! " ! $PUT rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ' EXTERNAL LONG FUNCTION SYS$PUT & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & f ) ! $PUTMSG !  ! Put Message ! 8 ! $PUTMSG msgvec ,[actrtn] ,[facnam], [actprm] ! 6 ! msgvec = address of message argument vector ! ; ! actrtn = address of entry mask of action routine ! > ! facnam = address of facility name string descriptor ! 7 ! actprm = parameter to pass to action routine ! * EXTERNAL LONG FUNCTION SYS$PUTMSG & ( &! ANY BY REF, &" g LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $QIO !  ! Queue I/O Request ! A ! $QIO [efn] ,chan ,func ,[iosb] ,[astadr] ,[astprm]7 ! ($QIOW) ,[p1] ,[p2] ,[p3] ,[p4] ,[p5] ,[p6] ! = ! efn = number of event flag to set on completion ! > ! chan = number of channel on which I/O is directed ! C ! func = function code spechifying action to be performed ! I ! iosb = address of quadword I/O status block to receive final% ! completion status ! 8 ! astadr = address of entry mask of AST routine ! A ! astprm = value to be passed to AST routine as argument ! E ! p1... = optional device- and function-specific parameters ! ' EXTERNAL LONG FUNCTION SYS$QIO & ( &$ LONG BY VALUE, &$ WiORD BY VALUE, &$ WORD BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & )( EXTERNAL LONG FUNCTION SYS$QIOW & ( &$ LONG j BY VALUE, &$ WORD BY VALUE, &$ WORD BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! ! $READ !  ! Read Blockk from File ! # ! $READ rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ( EXTERNAL LONG FUNCTION SYS$READ & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $READEF !  ! Read Event Flag !  ! l $READEF efn ,state ! @ ! efn = event flag number of any flag in the cluster ! I ! state = address of a longword to receive current state of all( ! flags in the cluster ! * EXTERNAL LONG FUNCTION SYS$READEF & ( &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $REGISTRY ! , ! Interface to the Registry Database ! L ! $REGISTRY [efn], func, m[nullarg], itmlst, [regsb], [astadr], [astprm] ! ($REGISTRYW) ! / ! efn = event flag to be set at completion ! = ! func = function code specifying action to be performed ! " ! nullarg = reserved argument ! 5 ! itmlst = address of a list of item descriptors ! 1 ! regsb = address of a quadword status block ! 4 ! astadr = address of entry mask of AST routine ! 1 ! astprm = value to be passed to AST routine ! , EXnTERNAL LONG FUNCTION SYS$REGISTRY & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & )- EXTERNAL LONG FUNCTION SYS$REGISTRYW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BoY VALUE, &! ANY BY REF, &" LONG BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $RELEASE !  ! Release Record ! & ! $RELEASE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! + EXTERNAL LONG FUNCTION SYS$RELEASE p& ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $RELEASE_LICENSE ! C ! Release authorization to execute licensed software product. ! ! $RELEASE_LICENSE context ! 7 ! contxt = address of context buffer returned by& ! $grant_license (4 longwords) ! 3 EXTERNAL LONG FUNCTION SYS$RELEASE_LICENSE & ( & q ANY BY REF & ) !  ! $RELEASE_VP ! & ! Release the Vector Processor !  ! $RELEASE_VP ! , EXTERNAL LONG FUNCTION SYS$RELEASE_VP !  ! $RELEASE_VP_INT ! 5 ! Release the Vector Processor, internal form !  ! $RELEASE_VP_INT ! 0 EXTERNAL LONG FUNCTION SYS$RELEASE_VP_INT !  ! $REMOVE !  ! Remove File ! % ! $REMOVE fab, [err], [suc] ! r ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$REMOVE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) !  ! $REM_HOLDER ! 3 ! Remove Holder Record From Rights Database !  ! $REM_HOLDER id, holder s !  ! id = identifier longword9 ! holder = address of the holder identifier quadword ! . EXTERNAL LONG FUNCTION SYS$REM_HOLDER & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $REM_IDENT ! 0 ! Remove Identifier From Rights Database !  ! $REM_IDENT id !  ! id = identifier longword ! - EXTERNAL LONG FUNCTION SYS$REM_IDENT & t ( &# LONG BY VALUE & ) !  ! $RENAME !  ! Rename File ! 0 ! $RENAME oldfab, [err], [suc], newfab ! & ! oldfab = address of oldfab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! " ! newfab = address of new fab* EXTERNAL LONG FUNCTION SYS$RENAME & ( &! ANY BY REF, &" u LONG BY REF, &" LONG BY REF, & ANY BY REF & ) !  ! $RESTORE_VP_EXCEPTION ! 2 ! Restore Vector Processor Exception State ! " ! $RESTORE_VP_EXCEPTION excid ! - ! excid = address of a context longword ! 8 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_EXCEPTION & ( &! LONG BY REF & ) !  ! $RESTORE_VP_EXC_INT ! 2 v ! Restore Vector Processor Exception State ! ! $RESTORE_VP_EXC_INT excid ! - ! excid = address of a context longword ! 6 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_EXC_INT & ( &! LONG BY REF & ) !  ! $RESTORE_VP_STATE ! ' ! Restore Mainline Vector State !  ! $RESTORE_VP_STATE ! 2 EXTERNAL LONG FUNCTION SYS$RESTORE_VP_STATE ! $RESUME ! " ! Resuwme Suspended Process ! & ! $RESUME [pidadr] ,[prcnam] ! B ! pidadr = address of process id of process to be resumed ! = ! prcnam = address of process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$RESUME & ( &" LONG BY REF, &$ STRING BY DESC & ) !  ! $REVOKID ! ( ! Revoke Identifier from Process ! E ! $REVOKID [pidadr], [prcnam], [id] x, [name], [prvatr] [,segment] ! 3 ! pidadr = address of PID of affected process= ! prcnam = address of string descriptor of process name> ! id = address of quadword identifier and attributes@ ! name = address of string descriptor of identifier name= ! prvatr = address to store attributes of superseded id2 ! segment = optional segment index (by value) ! + EXTERNAL LONG FUNCTION SYS$REVOKID & ( &" LONG BY yREF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $REWIND !  ! Rewind File ! % ! $REWIND rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine z ! * EXTERNAL LONG FUNCTION SYS$REWIND & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $RMSRUNDWN ! @ ! RMS rundown (close all files opened by OpenVMS RMS for6 ! the image or process and halts I/O activity. ! + ! $RMSRUNDWN buf-addr, type-value ! ? ! buf-addr = a descriptor pointing to a 22-byte bufferB ! th {at is to receive the device identificationF ! (16 bytes) and the file identification (6 bytes)A ! bytes) of an improperly closed output file.E ! type-value = a single byte code that specifies the type of4 ! I/O rundown to be performed.- EXTERNAL LONG FUNCTION SYS$RMSRUNDWN & ( &% STRING BY DESC, &# BYTE BY VALUE & ) ! $RUNDWN !  ! | Rundown Process !  ! $RUNDWN [acmode] ! = ! acmode = access mode to rundown; this and all less+ ! privileged access modes are rundown ! * EXTERNAL LONG FUNCTION SYS$RUNDWN & ( &# LONG BY VALUE & ) !  ! $SAVE_VP_EXCEPTION ! / ! Save Vector Processor Exception State ! ( ! $SAVE_VP_EXCEPTION excid ,[flags] ! - ! excid = address of a context longword} ! ! ! flags = noallocation flag2 ! 0 -> allocate 1 -> don't allocate ! 5 EXTERNAL LONG FUNCTION SYS$SAVE_VP_EXCEPTION & ( &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SAVE_VP_EXC_INT ! > ! Save Vector Processor Exception State, internal form ! & ! $SAVE_VP_EXC_INT excid ,[flags] ! - ! excid = address of a context longword ! ! ! flags = ~noallocation flag2 ! 0 -> allocate 1 -> don't allocate ! 3 EXTERNAL LONG FUNCTION SYS$SAVE_VP_EXC_INT & ( &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SCAN_INTRUSION ! ! ! Scan intrusion database ! F ! $SCAN_INTRUSION logfail_status, failed_user, job_type,L ! [source_terminal], [source_node], [source_user], [source_addr],C ! [failed_pas sword], [parent_user], [parent_id], [flags] ! 2 ! logfail_status in login failure status@ ! failed_user in address of failed username descriptor& ! job_type in job type indexD ! source_terminal in address of source terminal descriptor@ ! source_node in address of source nodename descriptor@ ! source_user in address of source username descriptor> ! source_address in address of source DECnet addressQ ! failed_password in  address of failed password (breakin attempts only)5 ! parent_user in address of parent username# ! parent_id in parent PID- ! flags in intrusion service flags ! 2 EXTERNAL LONG FUNCTION SYS$SCAN_INTRUSION & ( &$ LONG BY VALUE, &% STRING BY DESC, &$ LONG BY VALUE, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $SCAN_MAPPING ! 4 ! Locate Mapping records in Mapping database ! 6 ! $SCAN_MAPPING initmlst, outitmlst [,contxt] ! N ! initmlst = address of a list of item descriptors for the operationN ! outitmlst = address of a list of item descriptors for the operation5 ! contxt = address of a context long word ! 0 EXTERNAL LONG FUNCTION SYS$SCAN_MAPPING & ( &! ANY BY REF, &! ANY BY REF, &! LONG BY REF & ) ! $SCHDWK !  ! Schedule Wakeup ! 8 ! $SCHDWK [pidadr] ,[prcnam] ,daytim ,[reptim] ! C ! pidadr = address of process id of process to be awakened ! = ! prcnam = address of process name string descriptor ! ? ! daytim = address of quadword containing time to wake ! G ! reptim = address of quadword containing repeat time interval ! * EXTERNAL LONG FUNCTION SYS$SCHDWK & ( &" LONG BY REF, &% STRING BY DESC, &, BASIC$QUADWORD BY REF, &+ BASIC$QUADWORD BY REF & ) ! . ! SYSTEM SERVICE ENTRY POINT DESCRIPTIONS !  !  ! $SCHED ! ! ! Control class scheduler !  ! $SCHED func, P1, P2, P3 ! 4 ! func = function code (see CSHDEFS in STARLET) ! 9 ! P1 = buffer address, AST entry point address, or 0 ! ; ! P2 = buffer length address or AST acmode or PID or 0 ! 6 ! P3 = entry size of a single buffer element or 0) EXTERNAL LONG FUNCTION SYS$SCHED & ( &$ LONG BY VALUE, &! ANY BY REF, &! ANY BY REF, & ANY BY REF & ) !  ! $SEARCH !  ! Search for File Name ! % ! $SEARCH fab, [err], [suc] ! ! fab = address of fab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$SEARCH & ( &!  ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $SETCLUEVT ! ( ! Set Cluster Event Notification ! A ! $SETCLUEVT event, astadr, [astprm], [acmode], [handle] ! 2 ! event = code indicating type of event ! 8 ! astadr = address of entry mask of AST routine ! D ! astprm = value to be passed to AST routine as an argument ! & ! acmode = access mode of AST ! % ! handle = address of handle ! - EXTERNAL LONG FUNCTION SYS$SETCLUEVT & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SETDDIR ! D ! Read and set the default directory string for the process. ! B ! $SETDDIR [new-dir-addr] ,[length-addr] ,[cur-dir-addr]  ! D ! new-dir-addr = a descriptor of the new default directory. ! D ! length-addr = a word that is to receive the length of the3 ! current default directory. ! C ! cur-dir-addr = descriptor of a buffer that is to receive8 ! the current default directory.+ EXTERNAL LONG FUNCTION SYS$SETDDIR & ( &% STRING BY DESC, &" WORD BY REF, &$  STRING BY DESC & ) ! $SETDFPROT ! E ! Read and write the default file protection for the process. ! ? ! $SETDFPROT [new-def-prot-addr] ,[cur-def-prot-addr] ! I ! new-def-prot-addr = a word that specifies the new default file8 ! protection specification. ! Q ! cur-def-prot-addr = a word that is to receive the current default file8 ! protection specification.- EXTERNAL LONG FUNCTION SYS$SETDFPROT & ( &" WORD BY REF, &! WORD BY REF & ) ! $SET_RESOURCE_DOMAIN !  ! Set Resource Domain ! W ! $SET_RESOURCE_DOMAIN func ,rsdm_id ,uic_group ,[nullarg] ,[access] ,[acmode] ! 4 ! func = join or leave function to be performed+ ! 1 - Join the System Resource Domain+ ! 2 - Join the Process Default Domain> ! 3 - Join a new Resource Domain (not System or Process) ! 2 ! rsdm_id = address of the Resource Domain Id ! @ ! domain_number = number identifying target Resource Domain ! 0 ! nullarg = Placeholder reserved to Digital ! 7 ! access = Access desired (defined by RSDM$M macro ! % ! acmode = requested access mode !  ! 7 EXTERNAL LONG FUNCTION SYS$SET_RESOURCE_DOMAIN & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SET_SECURITY ! % ! Set Object Security Profile ! ] ! $SET_SECURITY [clsnam], [objnam], [objhan], [flags], [itmlst], [context], [acmode] ! 0 EXTERNAL LONG FUNCTION SYS$SET_SECURITY & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &" LONG BY REF, &! LONG BY REF & ) ! $SETAST !  ! Set AST Enable !  ! $SETAST enbflg ! @ ! enbflg = AST enable indicator for current access mode1 ! 0 -> disable 1 -> enable ! * EXTERNAL LONG FUNCTION SYS$SETAST & ( &#  BYTE BY VALUE & ) ! $SETEF !  ! Set Event Flag !  ! $SETEF efn ! 4 ! efn = event flag number of flag to set ! ) EXTERNAL LONG FUNCTION SYS$SETEF & ( &# LONG BY VALUE & ) ! $SETEVTAST ! ( ! Establish an Event AST Routine ! L ! $SETEVTAST evtnam, evtadr, [evtfac], [acmode], [flags], [reqid]C ! (SETEVTASTW) ,[evtid], [evtcrd], [efn], [iosb], [astadr] ! ,[astprm], [nullarg] ! 7 ! evtnam = address of descriptor of event name ! > ! evtadr = address of entry mask of event AST routine ! 2 ! evtfac = address of event facility code ! 4 ! acmode = access mode of event declaration ! " ! flags = optional flags ! @ ! reqid = user provided identification of this request ! L ! evtid = address to receive unique identification of this request ! ? ! evtcrd = amount of AST credit to reserve for request ! ? ! efn = event flag to set when $SETEVTAST completes ! : ! iosb = address of a quadword I/O status block ! C ! astadr = address of entry mask of completion AST routine ! @ ! astprm = value to be passed to completion AST routine ! - EXTERNAL LONG FUNCTION SYS$SETEVTAST & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$SETEVTASTW & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &#  LONG BY VALUE & ) ! $SETEXV !  ! Set Exception Vector ! : ! $SETEXV [vector] ,[addres] ,[acmode] ,[prvhnd] ! ! ! vector = vector numberN ! 0 -> primary vector 1 -> secondary 2 -> last chance ! K ! addres = exception handler address (0 indicates deassign vector) ! 7 ! acmode = access mode for which vector is set ! K ! prvhnd = address of longword to receive previous handler address ! * EXTERNAL LONG FUNCTION SYS$SETEXV & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SETIME !  ! Set System Time !  ! $SETIME [timadr] ! I ! timadr = address of quadword containing new system time inI ! 64-bit format. If 0, recalibrate system time using0 ! hardware time-of-year clock. ! * EXTERNAL LONG FUNCTION SYS$SETIME & ( &+ BASIC$QUADWORD BY REF & ) ! $SETIMR !  ! Set Timer ! > ! $SETIMR [efn] ,daytim ,[astadr] ,[reqidt] ,[flags] ! 8 ! efn = event flag to set when timer expires ! D ! daytim = address of quadword containing 64-bit time value ! 8 ! astadr = address of entry mask of AST routine ! @ ! reqidt = request identification of this timer request ! ; ! flags = only bit 0 used right now. If bit 0 is set,9 ! then this timer request is in terms of CPU time. ! * EXTERNAL LONG FUNCTION SYS$SETIMR & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE &  ) ! $SETPFM ! # ! Set Page Fault Monitoring ! : ! $SETPFM [pfmflg] ,[astadr] ,[astprm] ,[acmode] ! ) ! pfmflg = function/subfunction bits ! 4 ! astadr = address of entry mask of AST routine ! 1 ! astprm = value to be passed to AST routine ! ? ! acmode = access mode for which the AST is to be declared ! > ! bufcntadr = address of longword for which the number ofE ! page fault monitoring buffers allocated is stored. ! * EXTERNAL LONG FUNCTION SYS$SETPFM & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $SETPRA ! ! Set Power Recovery AST ! $ ! $SETPRA astadr ,[acmode] ! 9 ! astadr = address of power recovery AST routine ! & ! acmode = access mode of AST ! * EXTERNAL LONG FUNCTION SYS$SETPRA & ( &" LONG BY REF, &# LONG BY VALUE & ) ! $SETPRI !  ! Set Priority ! 5 ! $SETPRI [pidadr] ,[prcnam] ,pri ,[prvpri] ! > ! pidadr = address of process id of process to be set ! = ! prcnam = address of process name string descriptor ! 5 ! pri = new base priority for the process  ! I ! prvpri = address of longword to receive previous base priority ! * EXTERNAL LONG FUNCTION SYS$SETPRI & ( &" LONG BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SETPRN !  ! Set Process Name !  ! $SETPRN [prcnam] ! A ! prcnam = address of the process name string descriptor ! * EXTERNAL LONG FUNCTION SYS$SETPRN & ( &$ STRING BY DESC & ) ! $SETPRT ! ! ! Set Protection on Pages ! = ! $SETPRT inadr ,[retadr] ,[acmode] ,prot ,[prvprt] ! G ! inadr = address of 2-longword array containing starting and? ! ending virtual addresses of pages to change ! G ! retadr = address of 2-longword array containing starting and@ ! ending addresses of pages which were changed ! * ! acmode = access mode of request ! " ! prot = new protection ! E ! prvprt = address of byte to receive previous protection of% ! last page changed ! * EXTERNAL LONG FUNCTION SYS$SETPRT & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &! BYTE BY REF & ) ! $SETPRV !  ! Set privileges.9 ! $SETPRV [enbflg] ,[prvadr] ,[prmflg] ,[prvprv] ! $ ! enbflg = enable indicator0 ! 0 -> disable 1 -> enable ! H ! prvadr = 64-bit mask defining the privileges to be enabled or ! disabled ! ' ! prmflg = permanent indicatorE ! 0 -> temporary (for this image) 1 -> permanent ! M ! prvprv = address of quadword buffer to receive previous privileges ! * EXTERNAL LONG FUNCTION SYS$SETPRV & ( &$ BYTE BY VALUE, &, BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &+ BASIC$QUADWORD BY REF & ) ! $SETRWM ! ! Set Resource Wait Mode !  ! $SETRWM [watflg] ! " ! watflg = wait indicatorH ! 0 -> wait for resources 1 -> return failure immediately? ! (type is NUMBER rather than BOOLEAN since WATFLG=TRUEC ! means don't wait, which is the opposite of what is seems) ! * EXTERNAL LONG FUNCTION SYS$SETRWM & ( &# BYTE BY VALUE & ) ! $SETSFM ! ) ! Set System Service Failure Mode !  ! $SETSFM [enbflg] ! $ ! enbflg = enable indicatorO ! 0 -> disable generation of exceptions on service failuresJ ! 1 -> generate exceptions for system service failures ! * EXTERNAL LONG FUNCTION SYS$SETSFM & ( &# BYTE BY VALUE & ) ! $SETSHLV ! 2 ! Modify process default unshelving action ! 2 ! $SETSHLV [pidadr] ,[prcnam], [shlvflg] ! 4 ! pidadr = address of process id of process ! @ ! prcnam = address of name string descriptor of process ! C  ! shlvflg = longword containing the desired shelving modeB ! in the bottom bit. If the bottom bit is set,G ! then the default is not to automatically unshelveE ! shelved files. If the bottom bit is clear, thenF ! the default is to automatically unshelve shelved ! files. ! + EXTERNAL LONG FUNCTION SYS$SETSHLV & ( &" LONG BY REF, &%  STRING BY DESC, &# LONG BY VALUE & ) ! $SETSSF ! # ! Set System Service Filter !  ! $SETSSF [mask] ! / ! mask = flags for services to inhibit ! * EXTERNAL LONG FUNCTION SYS$SETSSF & ( &# LONG BY VALUE & ) ! $SETSTK ! " ! SET VIRTUAL STACK LIMITS ! , ! $SETSTK inadr ,[retadr] ,[acmode] ! I !  inadr = address of 2-longword array containing starting andA ! ending virtual address of stack limits to set ! I ! retadr = address of a 2-longword array to receive starting andA ! ending virtual address of stack limits to set ! ; ! acmode = access mode for the stack to change ! * EXTERNAL LONG FUNCTION SYS$SETSTK & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $SETSWM !  ! Set Process Swap Mode !  ! $SETSWM [swpflg] ! " ! swpflg = swap indicatorB ! 0 -> enable swapping 1 -> disable swapping ! * EXTERNAL LONG FUNCTION SYS$SETSWM & ( &# BYTE BY VALUE & ) !  ! $SETDTI ! 1 ! Set Distributed Transaction Information ! A ! $SETD TI [efn], [flags], iosb, [astadr], [astprm], context,! ! ($SETDTIW) func, itmlst ! , ! efn = event flag to set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block; ! astadr = address of the entry mask of an AST routine1 ! astprm = value to be passed to AST routine3 ! context = address of longword search context+ ! func = function code to be performed5 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$SETDTI & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ WORD BY VALUE, & ANY BY REF & )+ EXTERNAL LONG FUNCTION SYS$SETDTIW & ( &$ LONG BY VALUE, &$  LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ WORD BY VALUE, & ANY BY REF & ) ! $SETUAI ! / ! Modify User Authorization Information ! E ! $SETUAI [efn] ,[contxt] ,usrnam ,itmlst ,[iosb] ,[astadr] ! ,[astprm] ! 6 ! efn = event flag to be set at completion ! A ! contxt = address of a context longword (UAF IFI ? ISI) ! 3 ! usrnam = address of user name descriptor ! 9 ! itmlst = address of a list of item descriptors ! : ! iosb = address of a quadword I/O status block ! 8 ! astadr = address of entry mask of AST routine ! 5 ! astprm = value to be passed to AST routine !  ! * EXTERNAL LONG FUNCTION SYS$SETUAI & ( &$  LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SHOW_INTRUSION !  ! Show intrusion record ! h ! $SHOW_INTRUSION user_criteria, intruder, intruder_len, breakin_block, [flags], [context] ! @ ! user_criteria in add ress of user criteria descriptor6 ! intruder in out address of intruder descriptorM ! intruder_len out address of word to receive intruder string length9 ! breakin_block out address of intrusion block- ! flags in intrusion service flags< ! context in out address of optional longword context ! 2 EXTERNAL LONG FUNCTION SYS$SHOW_INTRUSION & ( &% STRING BY DESC, &% STRING BY DESC, &"  WORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) !  ! $DISPLAY_PROXY !  ! Display proxy record ! U ! $DISPLAY_PROXY rem_node, rem_user, buffer_sizes, proxy_node, proxy_user,= ! default_user, local_users, [flags], [context] ! 4 ! rem_node in address of remote node descriptor4 ! rem_user in address of remote user descriptorY ! buffer_sizes out address of array of words to receive output string lengthsN ! proxy_node out address of descriptor to receive matching proxy nodeN ! proxy_user out address of descriptor to receive matching proxy userL ! default_user out address of descriptor to receive default userL ! local_users out address of array of blocks to receive local users$ ! flags in proxy service flags< ! context in out address of optional longword context ! 1 EXTERNAL LONG FUNCTION SYS$DISPLAY_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &' WORD DIM() BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &$ LONG BY VALUE, &! LONG BY REF & ) ! $SNDACC ! , ! Send Message to Accounting Manager ! " ! $SNDACC msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDACC & ( &% STRING BY DESC, &# WORD BY VALUE & ) ! $SNDERR ! & ! Send Message to Error Logger !  ! $SNDERR msgbuf ! ? !  msgbuf = address of message buffer string descriptor ! * EXTERNAL LONG FUNCTION SYS$SNDERR & ( &$ STRING BY DESC & ) ! $SNDOPR ! " ! Send Message to Operator ! " ! $SNDOPR msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDOPR &  ( &% STRING BY DESC, &# WORD BY VALUE & ) ! $SNDSMB ! * ! Send Message to Symbiont Manager ! " ! $SNDSMB msgbuf ,[chan] ! ? ! msgbuf = address of message buffer string descriptor ! J ! chan = number of channel assigned to mailbox to receive reply ! * EXTERNAL LONG FUNCTION SYS$SNDSMB & ( &% STRING BY DESC, &#  WORD BY VALUE & ) ! $SNDJBC ! ( ! Send Message to Job Controller ! 6 ! $SNDJBC [efn], func, [nullarg], [itmlst],/ ! ($SNDJBCW) [iosb], [astadr], [astprm] ! @ ! efn = event flag to be set when request completes= ! func = code specifying function to be performedK ! nullarg = reserved argument for similarity with $getxxx servicesL ! itmlst = address of a list of item descriptors for  the operationS ! iosb = address of a quadword status block to receive the final statusR ! astadr = address of an ast routine to be called when request completes) ! astprm = 32-bit ast parameter ! * EXTERNAL LONG FUNCTION SYS$SNDJBC & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &"  LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$SNDJBCW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &$ LONG BY VALUE, &! ANY BY REF, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $SPACE ! ! ! Space to Record in File ! $ ! $SPACE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$SPACE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $SUSPND !  ! Suspend Process ! / ! $SUSPND [pidadr] ,[prcnam], [flags] ! D ! pidadr = address of process id of process to be suspended ! @ ! prcnam = address of name string descriptor of process ! A ! flags = longword of bit flags, of which only bit 0 is5 ! currently used. If bit 0 is set, then this5 ! is a hard suspend request; if clear this is! ! a soft suspend request. ! * EXTERNAL LONG FUNCTION SYS$SUSPND & ( &" LONG BY REF, &% STRING BY DESC, &# LONG BY VALUE & ) ! $SYNCH ! & ! Synchronize Event Completion !  ! $SYNCH [iosb] ,[efn] ! 6 ! efn = event flag to be set at completion ! : ! iosb = address of a quadword I/O status block ! ) EXTERNAL LONG FUNCTION SYS$SYNCH & ( &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF &  ) ! $SUBSYSTEM ! / ! Modify Protected Subsystem Attributes !  ! $SUBSYSTEM enbflg ! $ ! enbflg = enable indicator2 ! 0 => disable image identifiers& ! 1 => restore image identifiers ! - EXTERNAL LONG FUNCTION SYS$SUBSYSTEM & ( &# LONG BY VALUE & ) !  ! $TIMCON ! : ! Convert between binary UTC and Smithsonian times ! ) !  $TIMCON smntim, utctim, cvtflg ! 2 ! For cvtflg = 0 (Convert UTC to Smithsonian)< ! smnadr = Address of the output quadword to be written1 ! with the UTC time converted to date_timeB ! utcadr = Address of the input 128 bit utc_date_time time to ! be converted ! cvtflg = 0 ! 2 ! For cvtflg = 1 (Convert Smithsonian to UTC)> ! smnadr = Address of input Smithsonian binary time to be% ! converted (VMS Binabs time).< ! utcadr = Address of the output 128 bit binary time to+ ! be written with the converted time ! cvtflg = 1 ! * EXTERNAL LONG FUNCTION SYS$TIMCON & ( &, BASIC$QUADWORD BY REF, &, BASIC$OCTAWORD BY REF, &# BYTE BY VALUE & ) ! $TRNLNM ! ! Translate Logical Name ! B ! $TRNLNM [attr], tabnam, [lognam], [acmode], [itemlist] ! @ ! attr = address of logical name translation attributes !  ! Attribute Meaning< ! LNM$M_CASE_BLIND Search of string is case insensitive ! H ! tabnam = address of logical name table name string descriptor ! = ! lognam = address of logical name string descriptor ! ; ! acmode = address of access mode for logical name ! 9 ! itmlst = address of a list of item descriptors ! * EXTERNAL LONG FUNCTION SYS$TRNLNM & ( &"  LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &" BYTE BY REF, & ANY BY REF & ) ! $TRNLOG ! ! Translate Logical Name ! I ! $TRNLOG lognam ,[rsllen] ,rslbuf ,[table] ,[acmode] ,[dsbmsk] ! = ! lognam = address of logical name string descriptor ! G ! rsllen = address of word to receive length of resultant name ! I !  rslbuf = address of descriptor for buffer to receive resultant ! string ! H ! table = address of byte to receive logical name table number ! C ! acmode = address of byte to receive access mode of entry( ! (process table only) ! - ! dsbmsk = table search disable mask !  ! Bit Set Meaning ! 2 ! 0 Do not search system table1 ! 1 Do not search group table3 ! 2 Do not search process table ! * EXTERNAL LONG FUNCTION SYS$TRNLOG & ( &% STRING BY DESC, &" WORD BY REF, &% STRING BY DESC, &" BYTE BY REF, &" BYTE BY REF, &# LONG BY VALUE & ) !  ! $TRUNCATE !  ! Truncate Record ! ' ! $TRUNCATE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! , EXTERNAL LONG FUNCTION SYS$TRUNCATE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $ULKPAG ! " ! Unlock Pages From Memory ! - ! $ULKPAG inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of pages to be unlocked ! I ! retadr = address of a 2-longword array to receive starting andG ! ending virtual addresses of pages actually unlocked ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$ULKPAG & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $ULWSET ! ' ! Unlock Pages From Working Set ! - ! $ULWSET inadr ,[retadr] ,[acmode] ! G ! inadr = address of 2-longword array containing starting andD ! ending virtual addresses of pages to be unlocked ! I ! retadr = address of a 2-longword array to receive starting andG ! ending virtual addresses of pages actually unlocked  ! G ! acmode = access mode to check against the owner of the pages ! * EXTERNAL LONG FUNCTION SYS$ULWSET & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &# LONG BY VALUE & ) ! $UNWIND !  ! Unwind Call Stack ! % ! $UNWIND [depadr] ,[newpc] ! K ! depadr = address of longword containing number of logical frames0 ! (depth) to unwind call stack ! K ! newpc = address to be given control when the unwind is complete ! * EXTERNAL LONG FUNCTION SYS$UNWIND & ( &" LONG BY REF, &! LONG BY REF & ) !  ! $UPDATE !  ! Update Record ! % ! $UPDATE fab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! * EXTERNAL LONG FUNCTION SYS$UPDATE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $UPDSEC ! % ! Update Section File on Disk ! F ! $UPDSEC inadr ,[retadr] ,[acmode] ,[updflg] ,[efn] ,[iosb]* ! ($UPDSECW) ,[astadr] ,[astprm] ! G ! inadr = address of 2-longword array contai ning starting andI ! ending addresses of the pages to be potentially ! written ! I ! retadr = address of 2-longword array to receive addresses ofI ! the first and last page queued in the first I/O ! request ! I ! acmode = access mode on behalf of which the service is ! performed ! C ! updflg = update indicator for read/write global sectionsD ! 0 -> write all read/write pages in the sectionA ! 1 -> write all pages modified by the caller ! I ! efn = number of event flag to set when the section file is ! updated ! 8 ! iosb = address of quadword I/O status block ! C ! astadr = address of entry mask of an AST service routine ! I ! astprm = AST parameter to be passed to the AST service routine ! * EXTERNAL LONG FUNCTION SYS$UPDSEC & ( &' LONG DIM() BY REF, &' LONG DIM() BY REF, &$ LONG BY VALUE, &$ BYTE BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & )+ EXTERNAL LONG FUNCTION SYS$UPDSECW & ( &' LONG DIM() BY REF, &'  LONG DIM() BY REF, &$ LONG BY VALUE, &$ BYTE BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $VERIFY_PROXY !  ! Verify proxy record ! ` ! $VERIFY_PROXY rem_node, rem_user, [proposed_user], local_user, local_user_len, flags ! 4 ! rem_node in address of remote n ode descriptor4 ! rem_user in address of remote user descriptorF ! proposed_user in address of optional proposed user descriptorE ! local_user out address of descriptor to receive local userK ! local_user_len out address of word to receive local user length+ ! flags in proxy service flags ! 0 EXTERNAL LONG FUNCTION SYS$VERIFY_PROXY & ( &% STRING BY DESC, &% STRING BY DESC, &%  STRING BY DESC, &% STRING BY DESC, &" WORD BY REF, &# LONG BY VALUE & ) ! ! $WAIT !  ! Wait on File !  ! $WAIT rab ! ! rab = address of rab !  ! ( EXTERNAL LONG FUNCTION SYS$WAIT & ( & ANY BY REF & ) ! $WAITFR ! $ ! Wait for Single Event Flag !  ! $WAITFR efn ! 1 ! efn = event flag number to wait for ! * EXTERNAL LONG FUNCTION SYS$WAITFR & ( &# LONG BY VALUE & ) ! $WAKE !  ! Wake ! $ ! $WAKE [pidadr] ,[prcnam] ! D ! pidadr = address of process id of process to be awakened ! F ! prcnam = address of name string descriptor of process to be ! awakened ! ( EXTERNAL LONG FUNCTION SYS$WAKE & ( &" LONG BY REF, &$ STRING BY DESC & ) ! $WFLAND ! - ! Wait for Logical AND of Event Flags !  ! $WFLAND efn ,mask ! D ! efn = event flag number of any flag within the cluster ! 9 ! mask = 32-bit mask of flags that must be set ! * EXTERNAL LONG FUNCTION SYS$WFLAND & ( &$ LONG BY VALUE, &#  LONG BY VALUE & ) ! $WFLOR ! , ! Wait for Logical OR of Event Flags !  ! $WFLOR efn ,mask ! D ! efn = event flag number of any flag within the cluster ! B ! mask = 32-bit mask of flags, any of which must be set ! ) EXTERNAL LONG FUNCTION SYS$WFLOR & ( &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $WRITE  !  ! Write Block to File ! $ ! $WRITE rab, [err], [suc] ! ! rab = address of rab ! 5 ! err = address of user error completion routine ! 7 ! suc = address of user success completion routine ! ) EXTERNAL LONG FUNCTION SYS$WRITE & ( &! ANY BY REF, &* OPTIONAL LONG BY REF, &! LONG BY REF & ) ! $DCLRNH ! ! ! Declare Restart Handler !  ! $DCLRNH desblk ! @ ! desblk = address of handler control block containing: ! - ! +-------------------------------+- ! | forward link |- ! +-------------------------------+- ! | restart handler address |- ! +-------------------------------+- ! | argument count |- ! +-------------------------------+- ! | reserved, must be zero |- ! +-------------------------------+- ! | address to store event code |- ! +-------------------------------+- ! | additional arguments |- ! +-- for restart handler, --+- ! | if any |- ! +-------------------------------+ ! * EXTERNAL LONG FUNCTION SYS$DCLRNH & ( & ANY BY REF & ) ! $CANRNH ! !  Cancel Restart Handler !  ! $CANRNH [desblk] ! ? ! desblk = address of handler control block describing0 ! handler to be deleted. If 0, delete all ! * EXTERNAL LONG FUNCTION SYS$CANRNH & ( & ANY BY REF & ) !  ! $ABORT_TRANS !  ! Abort a transaction ! @ ! $ABORT_TRANS [efn], [flags], iosb [, [astadr], [astprm],/ ! ($ABORT_TRANSW) [tid], [reason], [bid]]  ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument4 ! tid = identifier of transaction to be aborted4 ! reason = optional extended abort reason code; ! bid = identifier of transaction branch to be aborted ! / EXTERNAL LONG FUNCTION SYS$ABORT_TRANS &  ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & )0 EXTERNAL LONG FUNCTION SYS$ABORT_TRANSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ) !  ! $ACK_EVENT ! : ! Acknowledge a resource manager transaction event ! D ! $ACK_EVENT [flags], report_id, report_reply, [, [reason],= ! [beftime], [afttime], [part_name], [rm_ context], ! [timout]] !  ! flags = operation flags' ! report_id = participant id value0 ! report_reply = value of completion status; ! reason = extended abort reason code (for veto vote)0 ! beftim = lower bound of commit timestamp5 ! afttim = upper bound of commit timestamp9 ! part_name = address of participant name descriptor< ! rm_context = RM private value to be passed to evt_rtn5 ! timout = transaction execution time-out value ! - EXTERNAL LONG FUNCTION SYS$ACK_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &" LONG BY REF, &+ BASIC$QUADWORD BY REF & ) !  ! $ADD_BRANCH  ! " ! Add a transaction branch ! < ! $ADD_BRANCH [efn], [flags], iosb, [astadr], [astprm],( ! ($ADD_BRANCHW) tid, tm_name, bid ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument+ ! tid = transaction id for this branch? ! tm_name = address of transaction manager name descriptor5 ! bid = address to receive new branch identifier ! . EXTERNAL LONG FUNCTION SYS$ADD_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & )/ EXTERNAL LONG FUNCTION SYS$ADD_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &+ BASIC$OCTAWORD BY REF & ) !  ! $CREATE_BRANCH ! % ! Create a transaction branch ! D  ! $CREATE_BRANCH = [efn], [flags], iosb, [astadr], [astprm],E ! ($CREATE_BRANCHW) tid, bid [,[timout], [acmode], [tx_class]] ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument+ ! tid = transaction id for this branch9 ! bid = address to receive new branch identifier4 ! timout = transaction execution time-out value3 ! acmode = access mode for $CREATE_BRANCH call, ! tx_class= user transaction class name ! 1 EXTERNAL LONG FUNCTION SYS$CREATE_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & )2 EXTERNAL LONG FUNCTION SYS$CREATE_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &,  BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & ) ! > ! $DECLARE_RM [efn], [flags], iosb, [astadr], [astprm],= ! ($DECLARE_RMW) rm_id, event_handler [, [part_name],; ! [rm_context], [acmode], [tm_log_id], [event_mask]] ! * ! Declare Resource Manager to DDTM ! 2 ! efn = event flag to set upon completion" ! flags = o peration flags- ! iosb = address of I/O status block8 ! astadr = address of entry mask of AST routine5 ! astprm = value to be passed to AST routineE ! rm_id = address of longword to receive resource manager idG ! event_rtn = address of entry mask of transaction event routine@ ! part_name = address of resource manager name descriptor= ! rm_context = RM private value to be passed to evt_rtnC ! acmode = value of access mode in which to invoke evt_rtnE ! tm_log_id = transaction manager log id for validation checksE ! event_mask = mask of events required by this resource manager ! . EXTERNAL LONG FUNCTION SYS$DECLARE_RM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &, BASIC$OCTAWORD BY REF, &# LONG BY VALUE & )/ EXTERNAL LONG FUNCTION SYS$DECLARE_RMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &"  LONG BY REF, &" LONG BY REF, &- OPTIONAL STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &, BASIC$OCTAWORD BY REF, &# LONG BY VALUE & ) !  ! $END_BRANCH ! / ! End an active branch of a transaction ! < ! $END_BRANCH [efn], [flags], iosb, [astadr], [astprm], ! ($END_BRANCHW) tid, bid ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block> ! astadr = address of a completion AST routine entry mask< ! astprm = value to be passed to completion AST routine. ! tid = address of transaction identifier5 ! bid = address of transaction branch identifier ! . EXTERNAL LONG FUNCTION SYS$END_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &,  BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )/ EXTERNAL LONG FUNCTION SYS$END_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! $END_TRANS !  ! Commit a transaction ! E ! $END_TRANS [efn], [flags], iosb [, [astadr], [astprm], [tid] ] ! ($END_TRANSW) ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument6 ! tid = identifier of transaction to be committed ! - EXTERNAL LONG FUNCTION SYS$END_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ). EXTERNAL LONG FUNCTION SYS$END_TRANSW & ( &$  LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &+ BASIC$OCTAWORD BY REF & ) !  ! $FINISH_RMOP ! = ! Finish resource manager transaction event operation ! = ! $FINISH_RMOP [efn], [flags], iosb, [astadr], [astprm],B ! ($FINISH_RMOPW) part_id, retsts [, [reason], ! [beftime], [afttime] ! . ! efn = event flag to set upon completion ! flags = operation flags) ! iosb = address of I/O status block4 ! astadr = address of entry mask of AST routine1 ! astprm = value to be passed to AST routine% ! part_id = participant id value* ! retsts = value of completion status; ! reason = extended abort reason code (for veto vote)0 ! beftim = lower bound of commit timestamp5 ! afttim = upper bound of commit timestamp ! / EXTERNAL LONG FUNCTION SYS$FINISH_RMOP & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF &  )0 EXTERNAL LONG FUNCTION SYS$FINISH_RMOPW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &$ LONG BY VALUE, &, OPTIONAL LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )  !  ! $GET_DEFAULT_TRANS ! 5 ! Get the current process default transaction !  ! $GET_DEFAULT_TRANS tid ! : ! tid = identifier of the process default transaction ! 5 EXTERNAL LONG FUNCTION SYS$GET_DEFAULT_TRANS & ( &+ BASIC$OCTAWORD BY REF & ) !  ! $JOIN_RM ! @ ! Join a resource manager previously started transaction ! 9 ! $JOIN_RM [efn], [flags], iosb, [astad r], [astprm],K ! ($JOIN_RMW) rm_id [, [tid], [part_name], [rm_context], [timout]] ! 2 ! efn = event flag to set upon completion" ! flags = operation flags- ! iosb = address of I/O status block8 ! astadr = address of entry mask of AST routine5 ! astprm = value to be passed to AST routine, ! rm_id = resource manager id value* ! tid = address of transaction id, ! part_name = participant name string> ! rm_context  = RM private value to pass to event routine8 ! timout = transaction execution time-out value ! + EXTERNAL LONG FUNCTION SYS$JOIN_RM & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ), EXTERNAL LONG FUNCTION SYS$JOIN_RMW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$  LONG BY VALUE, &+ BASIC$QUADWORD BY REF & ) !  ! $RECOVER ! & ! Recover transaction state. ! 9 ! $RECOVER [efn], [flags], iosb, [astadr], [astprm],H ! ($RECOVERW) recovery_prefix, event_handler, tm_log_id [,= ! [tid], [node], [rm_context], [acmode], [max_events]] ! 6 ! efn = event flag to set upon completion& ! flags = operation flags1 ! iosb = address of I/O status block< ! astadr = address of entry mask of AST routine9 ! astprm = value to be passed to AST routine? ! recovery_prefix = address of search name descriptorM ! event_handler = address of entry mask of recovery event routine7 ! tm_log_id = address TM log identifier? ! tid = address of transaction identifier= ! node = address of node name descriptorQ ! rm_context = value to be passed via event block to event_handlerZ ! acmode = value of access mode in which event ASTs should be deliveredY ! max_events = value of maximum number of events to be queued concurrently ! + EXTERNAL LONG FUNCTION SYS$RECOVER & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &" LONG BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &# WORD BY VALUE & ), EXTERNAL LONG FUNCTION SYS$RECOVERW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &,  BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &% STRING BY DESC, &" LONG BY REF, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$OCTAWORD BY REF, &% STRING BY DESC, &$ LONG BY VALUE, &$ BYTE BY VALUE, &# WORD BY VALUE & ) !  ! $SET_DEFAULT_TRANS ! 0 !  Set up the process default transaction ! E ! $SET_DEFAULT_TRANS [efn], [flags], iosb [, [astadr], [astprm],3 ! ($SET_DEFAULT_TRANSW) [new_tid], [old_tid]] ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument> ! new_tid = identifier of new process default transactionE ! old_tid = identifier of superceded process default transaction ! 5 EXTERNAL LONG FUNCTION SYS$SET_DEFAULT_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )6 EXTERNAL LONG FUNCTION SYS$SET_DEFAULT_TRANSW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) !  ! $START_BRANCH ! $ ! Start a transaction branch ! B ! $START_BRANCH [efn], [flags], iosb, [astadr], [astprm ],P ! ($START_BRANCHW) tid, tm_name, bid, [, [timout], [acmode], [tx_class]] ! / ! efn = event flag to be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument+ ! tid = transaction id for this branchF ! tm_name = address of parent transaction manager name descriptor, ! bid = address of branch identifier4 ! timout = transaction execution time-out value0 ! acmode = access mode for $END_BRANCH call, ! tx_class= user transaction class name ! 0 EXTERNAL LONG FUNCTION SYS$START_BRANCH & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & )1 EXTERNAL LONG FUNCTION SYS$START_BRANCHW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &% STRING BY DESC, &, BASIC$OCTAWORD BY REF, &4 OPTIONAL BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & ) !  ! $START_TRANS ! ! ! Start a new transaction ! C ! $START_TRANS [efn], [flags], iosb [, [astadr], [astprm],A ! ($START_TRANSW) [tid], [timout], [acmode], [tx_class]] ! / ! efn = event flag to  be set at completion ! flags = operation flags4 ! iosb = address of a quadword I/O status block7 ! astadr = address of an entry mask of AST routine@ ! astprm = value to be passed to AST routine as an argument3 ! tid = identifier of transaction just started4 ! timout = transaction execution time-out valueD ! acmode = outermost access mode allowed to end the transaction, ! tx_class= user transaction class name ! / EXTERNAL LONG FUNCTION SYS$START_TRANS & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & )0 EXTERNAL LONG FUNCTION SYS$START_TRANSW & ( &$  LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &* OPTIONAL LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &, BASIC$QUADWORD BY REF, &$ BYTE BY VALUE, &$ STRING BY DESC & ) !  ! $TRANS_EVENT ! ! ! Start a new transaction ! ? ! $TRANS_EVENT [efn], [flags], iosb, [astad r], [astprm],J ! ($TRANS_EVENTW) tid, tx_event [, [cmttime], [beftime], [afttime]] ! 3 ! efn = event flag to be set at completion" ! flags = operation flags8 ! iosb = address of a quadword I/O status block; ! astadr = address of an entry mask of AST routineD ! astprm = value to be passed to AST routine as an argument7 ! tid = identifier of transaction just started1 ! tx_event = transaction transition event* ! cmttime = commit timestamp4 ! beftime = lower bound of commit timestamp9 ! afttime = upper bound of commit timestamp ! / EXTERNAL LONG FUNCTION SYS$TRANS_EVENT & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &4  OPTIONAL BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & )0 EXTERNAL LONG FUNCTION SYS$TRANS_EVENTW & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &4  OPTIONAL BASIC$OCTAWORD BY REF, &, BASIC$OCTAWORD BY REF, &+ BASIC$OCTAWORD BY REF & ) ! $TSTCLUEVT ! ) ! Test Cluster Event Notification ! 1 ! $TSTCLUEVT [handle], [acmode], [event] ! % ! handle = address of handle ! & ! acmode = access mode of AST ! 2 ! event = code indicating type of event ! - EXTERNAL LONG FUNCTION SYS$TSTCLUEVT & ( &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! PTD$CREATE !  ! Create a pseudo terminal ! E ! PTD$CREATE CHAN, [ACMODE], [CHARBUFF], [BUFLEN], [HANGUP_AST],- ! [HANGUP_ASTPRM], [AST_ACMODE], INADR ! F ! CHAN = Address of word to receive channel number assigned9 ! ACMODE = Access mode associated with channelI ! CHARBUFF = Add ress ofa 3 - 5 longword array containing device ! characteristics.F ! BUFLEN = Length of characteristics buffer in bytes either ! 12, 16, or 20: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineL ! AST_ACMODE = Access mode for whjich the AST is to be deliveredH ! INADR = Address of 2-longword array containing starting and6 ! ending virtual address of pages to be used as ! I/O buffers* EXTERNAL LONG FUNCTION PTD$CREATE & ( &" WORD BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, && LONG DIM() BY REF & ) ! PTD$READ ! ) ! Read data from the pseudo terminal ! H ! PTD$READ(W) [EFN], CH AN, [ASTADR], [ASTPRM], READBUF, READBUF_LEN< ! EFN = Number of event flag to set on completionU ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineG ! READBUF = Address character string to hold characters readJ ! READBUF_LEN = Number of character to be read from pseudo terminal( EXTERNAL LONG FUNCTION PTD$READ & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &# LONG BY VALUE & )) EXTERNAL LONG FUNCTION PTD$READW & ( &$ LONG BY VALUE, &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF , &# LONG BY VALUE & ) ! PTD$WRITE ! ( ! Write data to the pseudo terminal ! > ! PTD$WRITE CHAN, [ASTADR], [ASTPRM], WRTBUF, WRTBUF_LEN, ! [ECHOBUF], ECHOBUF_LEN]U ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineR ! WRTBUF = Address of character string containing cha racter to write to ! pseudo terminalG ! WRTBUF_LEN = Number of characters to write to pseudo terminalG ! ECHOBUF = Address character string to hold characters readJ ! ECHOBUF_LEN = Number of character to be read from pseudo terminal) EXTERNAL LONG FUNCTION PTD$WRITE & ( &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &! ANY BY REF, &$ LONG  BY VALUE, &! ANY BY REF, &# LONG BY VALUE & )! ! PTD$SET_EVENT_NOTIFICATION ! 9 ! Enable or disable terminal event notification ASTs ! C ! PTD$SET_EVENT_NOTIFICATION CHAN, ASTADR, [ASTPRM], [ACMODE], ! TYPEU ! CHAN = Word containing number of channel on which I/O is to be performed: ! ASTADR = Address of entry mask of AST routine7 ! ASTPRM = Value to be passed to AST routineK ! ACMODE = Access mode for whjich the AST is to be delivered' ! TYPE = Longword containing: EXTERNAL LONG FUNCTION PTD$SET_EVENT_NOTIFICATION & ( &$ WORD BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! PTD$CANCEL ! 7 ! Cancel queued control connection read request(s) !   ! PTD$CANCEL CHAN ! U ! CHAN = Word containing number of channel on which I/O is to be performed* EXTERNAL LONG FUNCTION PTD$CANCEL & ( &# WORD BY VALUE & ) ! PTD$DELETE !  ! Delete a pseudo terminal !  ! PTD$DELETE CHAN ! U ! CHAN = Word containing number of channel on which I/O is to be performed* EXTERNAL LONG FUNCTION PTD$DELETE & ( &#  WORD BY VALUE & ) ! PTD$DECTERM_SET_PAGE_SIZE ! , ! Change terminal page length and width ! ; ! PTD$DECTERM_SET_PAGE_SIZE CHAN, PAGE_LEN, PAGE_WIDTH ! U ! CHAN = Word containing number of channel on which I/O is to be performedF ! PAGE_LEN = Longword containing new page length of terminalE ! PAGE_WIDTH = Longword containing new page width of terminal9 EXTERNAL LONG FUNCTION PTD$DECTERM_SET_PAGE_SIZE &   ( &$ WORD BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) ! $POSIX_FORK_CONTROL ! ' ! Control POSIX fork() operations ! P ! $POSIX_FORK_CONTROL cntrl , [when] , [handler] , [arg] , [acmode] ! C ! cntrl = constant defining what control routine is to do ! = ! when = bit array of when handler is to be called ! # ! handler= handler ad dress ! @ ! arg = arg value that is passed back to the handler ! G ! acmode = access mode at which to make the specified callback6 EXTERNAL LONG FUNCTION SYS$POSIX_FORK_CONTROL & ( &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_ACCEPT ! " ! Accept an IC C connection ! > ! $ICC_ACCEPT Conn_Handle ,[Accept_Buf] ,[Accept_Len]! ! ,[User_Context] ,[Flags] ! D ! Conn_Handle = Handle value associated with the Connection< ! Accept_Buf = Address of optional user Accept data1 ! Accept_Len = Length of the accept data6 ! User_Context = Optional user context value+ ! Flags = Optional flags argument ! . EXTERNAL LONG FUNCTION SYS$ICC_ACCEPT & ( &$  LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_CLOSE_ASSOC ! " ! Close an ICC association ! ( ! $ICC_CLOSE_ASSOC Assoc_Handle ! F ! Assoc_Handle = Handle representing the Association to close ! 3 EXTERNAL LONG FUNCTION SYS$ICC_CLOSE_ASSOC & ( &# LONG  BY VALUE & ) !  ! $ICC_CONNECT[W] ! , ! Initiate an ICC Connection attempt ! D ! $ICC_CONNECT[W] IOS_ICC ,[astadr] ,[astprm] ,assoc_handle2 ! ,conn_hndl_A ,remote_assoc ,[remote_node]4 ! ,[user_context] ,[conn_buf] ,[conn_buf_len]7 ! ,[return_buf] ,[return_buf_len] ,[retlen_addr] ! ,[flags] ! A ! ios_icc = address of a quadword I/O status blockI ! astadr = address of entry mask  of users' completion AST ! routineF ! astprm = value to be passed to the AST routine as an ! argumentH ! Assoc_Handle = Handle representing the Association to closeE ! Conn_Hndl_A = Address to return the handle value of the ! opened ConnectionI ! Remote_Assoc = Pointer to a descriptor describing the remote ! association name stringI ! Remote_Node = Pointer to a descriptor describing the remote  ! node name string7 ! User_Context = Optional user context valueG ! Conn_Buf = Address of a buffer containing Connect dataB ! Conn_Buf_Len = Length of the connect data in Conn_Buf? ! Return_Buf = Address of a buffer for return dataJ ! Return_Buf_Len = Length of the buffer available for return dataG ! Retlen_Addr = Address to receive the actual length of any ! return data0 ! Flags = Optional flags argument ! / EXTERNAL LONG FUNCTION SYS$ICC_CONNECT & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$ICC_CONNECTW & ( &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &$ LONG BY VALUE, &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_DISCONNECT[W] ! ' ! Initiate an ICC Disconnection ! C ! $ICC_DISCONNECT[W] conn_handle ,IOSB ,[astadr] ,[astprm]% ! ,[disc_buf] ,[disc_buf_len] ! K ! Conn_Handle = Handle represent ing the Connection to terminateA ! iosb = Address of a quadword I/O status blockI ! astadr = Address of entry mask of users' completion AST ! routineF ! astprm = Value to be passed to the AST routine as an ! argumentD ! Disc_Buf = Address of an optional buffer containing ! Disconnect dataE ! Disc_Buf_Len = Length of the disconnect data in Disc_Buf ! 2 EXTERNAL LONG FUNCTION SYS$ICC_DISCONNECT & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )3 EXTERNAL LONG FUNCTION SYS$ICC_DISCONNECTW & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG  BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_REJECT ! " ! Reject an ICC connection ! B ! $ICC_REJECT Conn_Handle ,[Reject_Buf] ,[Reject_Buf_Len] ! ,[Reason] ! D ! Conn_Handle = Handle value associated with the Connection< ! Reject_Buf = Address of optional user Reject data5 ! Reject_Buf_Len = Length of the reject data- ! Reason = Reason for the rejection ! . EXTERNAL LONG FUNCTION SYS$ICC_REJECT & ( &$ LONG BY VALUE, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_OPEN_ASSOC ! ! ! Open an ICC association ! E ! $ICC_OPEN_ASSOC assoc_handle ,[assoc_name] ,[logical_name]1 ! ,[logical_table] ,[conn_rtn] ,[disc_rtn]- ! ,[recv_rtn] ,[maxflowbufcnt] ,[prot] ! C ! Assoc_Handle = Address to return the handle value of the ! opened AssociationC ! Assoc_Name = Pointer to a descriptor describing the" ! association name stringI ! Logical_Name = Pointer to a descriptor describing a logical ! nameJ ! Logical_Table = Pointer to a descriptor describing a logical ! name table@ ! Conn_Rtn = Address of the User's Connect AST routineC ! Disc_Rtn  = Address of the User's Disconnect AST routine@ ! Recv_Rtn = Address of the User's receive AST routineF ! Maxflowbufcnt = Maximum number of pending inbound message ! buffers; ! Prot = Default protection for this association. ! 2 EXTERNAL LONG FUNCTION SYS$ICC_OPEN_ASSOC & ( &" LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &# LONG BY VALUE & ) !  ! $ICC_RECEIVE[W] ! - ! Receive data over an ICC connection ! C ! $ICC_RECEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,recv_buf ,recv_buf_len ! G ! conn_handle = Handle representing the Connection the data" ! is being tr ansferred overF ! ios_icc = Address of an I/O status block (16-byte ICC" ! RECEIVE layout)I ! astadr = Address of entry mask of users' completion AST ! routineF ! astprm = Value to be passed to the AST routine as an ! argumentC ! recv_buf = Address of a buffer to receive the dataC ! recv_buf_len = Length of the buffer receiving the data ! / EXTERNAL LONG FUNCTION SYS$ICC_RECEIVE & ( &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )0 EXTERNAL LONG FUNCTION SYS$ICC_RECEIVEW & ( &$ LONG BY VALUE, &, BASIC$OCTAWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_REPLY[W] ! - ! Send a reply over an ICC connection ! A ! $ICC_REPLY[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,reply_buf ,reply_len ! G ! conn_handle = Handle representing the Connection the data is# ! being transferred overC ! ios_icc = Address of an I/O status block (8-byte ICC ! REPLY layout)F ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argument@ ! reply_buf = Address of a buffer containing the data8 ! reply_len = Length of the data in reply_buf ! - EXTERNAL LONG FUNCTION SYS$ICC_REPLY & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$  LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ). EXTERNAL LONG FUNCTION SYS$ICC_REPLYW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_TRANSCEIVE[W] ! " ! ICC transceive ! operation ! G ! $ICC_TRANSCEIVE[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! G ! conn_handle = Handle representing the Connection the data is# ! being transferred overD ! ios_icc = Address of an I/O status block (20-byte ICC$ ! TRANSCEIVE layout)F ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST ro"utine as an ! argument@ ! send_buf = Address of a buffer containing the data7 ! send_len = Length of the data in send_buf ! 2 EXTERNAL LONG FUNCTION SYS$ICC_TRANSCEIVE & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )3 EXTERNAL LONG FUNC#TION SYS$ICC_TRANSCEIVEW & ( &$ LONG BY VALUE, &" LONG BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & ) !  ! $ICC_TRANSMIT[W] ! . ! Transmit data over an ICC connection ! D ! $ICC_TRANSMIT[W] conn_handle ,ios_icc ,[astadr] ,[astprm] ! ,send_buf ,send_len ! G ! $ conn_handle = Handle representing the Connection the data is# ! being transferred over? ! ios_icc = Address of a quadword I/O status blockF ! astadr = Address of entry mask of users' completion AST ! routineC ! astprm = Value to be passed to the AST routine as an ! argument@ ! send_buf = Address of a buffer containing the data7 ! send_len = Length of the data in send_buf ! 0 EXTERNAL LON%G FUNCTION SYS$ICC_TRANSMIT & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$ LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )1 EXTERNAL LONG FUNCTION SYS$ICC_TRANSMITW & ( &$ LONG BY VALUE, &, BASIC$QUADWORD BY REF, &" LONG BY REF, &$  LONG BY VALUE, &" LONG BY REF, &# LONG BY VALUE & )ww'PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI(NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET) %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *5 ! COPYRIGHT (c) 1988 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD*, MASSACHUSETTS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY + * ' ! TRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! ,*************************************************************************** ! STR$ADD ! ! ! Add Two Decimal Strings ! - ! The Add Two Decimal Strings routine- ! adds two decimal strings of digits. ! ' EXTERNAL LONG FUNCTION str$add & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY RE-F, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$ANALYZE_SDESC ! # ! Analyze String Descriptor ! < ! The Analyze String Descriptor routine extracts the1 ! length and starting address of the data5 ! for a variety of string descriptor classes. ! 1 EXTERNAL WORD FUNCTION str$analyze_sdesc & . ( &% STRING BY DESC, &" WORD BY REF, &! LONG BY REF & ) ! STR$APPEND !  ! Append String ! _ ! The Append String routine appends a source string to the end of a destination string.L ! The destination string must be a dynamic or varying-length string. ! * EXTERNAL LONG FUNCTION str$append & ( &% STRING BY DESC, &/$ STRING BY DESC & ) ! STR$CASE_BLIND_COMPARE ! 1 ! Compare Strings Without Regard to Case ! O ! The Compare Strings Without Regard to Case routine compares two input( ! strings of any supported classY ! and data type without regard to whether the alphabetic characters are uppercase ! or lowercase. ! 6 EXTERNAL LONG FUNCTION str$case_blind_compare & ( &% 0 STRING BY DESC, &$ STRING BY DESC & ) ! STR$COMPARE !  ! Compare Two Strings ! 6 ! The Compare Two Strings routine compares the$ ! contents of two strings. ! + EXTERNAL LONG FUNCTION str$compare & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$CONCAT ! ) ! Concatenate Two or More St 1rings ! P ! The Concatenate Two or More Strings routine concatenates all specified; ! source strings into a single destination string. ! * EXTERNAL LONG FUNCTION str$concat & ( &% STRING BY DESC, & STRING BY DESC, OPTIONAL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! STR$COPY_DX ! L ! Copy a Source String Passed by Descriptor to a Destination String ! : ! The Copy a Source String Passed by Descriptor to@ ! a Destination String routine copies a source string to0 ! a destination string. Both strings are ! passed by descriptor. ! + EXTERNAL LONG FUNCTION str$copy_dx & 3 ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COPY_R ! K ! Copy a Source String Passed by Reference to a Destination String ! 9 ! The Copy a Source String Passed by Reference tob ! a Destination String routine copies a source string passed by reference to a destination ! string. ! * EXTERNAL LONG FUNCTION str$copy_r & ( &% 4 STRING BY DESC, &" WORD BY REF, &# STRING BY REF & ) ! STR$DIVIDE ! $ ! Divide Two Decimal Strings ! M ! The Divide Two Decimal Strings routine divides two decimal strings. ! * EXTERNAL LONG FUNCTION str$divide & ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" 5 LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$DUPL_CHAR ! ) ! Duplicate Character Empty Times ! 5 ! The Duplicate Character empty Times routineE ! generates a string containing empty duplicates of the inputU ! 6character. If the destination string is an empty dynamic string descriptor,= ! STR$DUPL_CHAR allocates and initializes the string. ! - EXTERNAL LONG FUNCTION str$dupl_char & ( &% STRING BY DESC, &* OPTIONAL LONG BY REF, &# STRING BY REF & ) ! STR$ELEMENT ! - ! Extract Delimited Element Substring ! M ! The Extract Delimited Element Substrin7g routine extracts an elementJ ! from a string in which the elements are separated by a specified ! delimiter. ! + EXTERNAL LONG FUNCTION str$element & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$COMPARE_EQL ! * ! Compare Two Strings for Equality ! C ! The Compare Two St8rings for Equality routine compares two5 ! strings to see if they have the same lengthT ! and contents. Uppercase and lowercase characters are not considered equal. ! / EXTERNAL LONG FUNCTION str$compare_eql & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$FIND_FIRST_IN_SET ! 5 ! Find First Character in a Set of Characters ! . ! The Find First Chara9cter in a Set of ! Characters routine9 ! searches a string one character at a time, fromU ! left to right, comparing each character in the string to every character inC ! a specified set of characters for which it is searching. ! 5 EXTERNAL LONG FUNCTION str$find_first_in_set & ( &% STRING BY DESC, &$ STRING BY DESC & )# ! STR$FIND_FIRST_NOT_IN_SET ! / ! : Find First That Does Not Occur in Set ! 0 ! The Find First Character That Does Not ! Occur in Set routine< ! searches a string, comparing each character to theX ! characters in a specified set of characters. The string is searched characterR ! by character, from left to right. STR$FIND_FIRST_NOT_IN_SET returns theV ! position of the first character in the string that does not match any of the7 ! characters in the selected set of ;characters. ! 9 EXTERNAL LONG FUNCTION str$find_first_not_in_set & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$FREE1_DX ! ! ! Free One Dynamic String ! - ! The Free One Dynamic String routine) ! deallocates one dynamic string. ! , EXTERNAL LONG FUNCTION str$free1_dx & ( &$ STRING BY DESC & < )" ! STR$FIND_FIRST_SUBSTRING ! . ! Find First Substring in Input String ! : ! The Find First Substring in Input String routine: ! finds the first substring (in a provided list of2 ! substrings) occurring in a given string. ! 8 EXTERNAL LONG FUNCTION str$find_first_substring & ( &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, & =OPTIONAL STRING BY DESC,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, &) ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, & ) ! STR$GET1_DX ! % ! Allocate One Dynamic String ! 1 ! The Allocate One Dynamic String routineI ! allocates a specified number of bytes of dyn>amic virtual memory3 ! to a specified dynamic string descriptor. ! + EXTERNAL LONG FUNCTION str$get1_dx & ( &" WORD BY REF, &$ STRING BY DESC & ) ! STR$LEFT ! ) ! Extract a Substring of a String ! M ! The Extract a Substring of a String routine copies a substring of a ! source string into aK ! destination string. The relative starting position? in the source  ! string is 1. ! ( EXTERNAL LONG FUNCTION str$left & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! STR$LEN_EXTR ! ) ! Extract a Substring of a String ! > ! The Extract a Substring of a String routine copies a- ! substring of a source string into a ! destination string. ! , EX@TERNAL LONG FUNCTION str$len_extr & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! STR$MATCH_WILD ! & ! Match Wildcard Specification ! G ! The Match Wildcard Specification routine is used to compare a/ ! pattern string that includes wildcardY ! characters with a candidate string. It returns a condAition value of STR$_MATCHF ! if the strings match and STR$_NOMATCH if they do not match. ! . EXTERNAL LONG FUNCTION str$match_wild & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$MUL ! & ! Multiply Two Decimal Strings ! R ! The Multiply Two Decimal Strings routine multiplies two decimal strings. ! ' EXTERNAL LONG FUNCTION str$mul & B ( &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$COMPARE_MULTI ! E ! Compare Two for Equality Using Multinational Character Set ! 4 ! The CoCmpare Two Strings for Equality UsingD ! Multinational Character Set routine compares two character( ! strings for equality using the* ! DEC Multinational Character Set. ! 1 EXTERNAL LONG FUNCTION str$compare_multi & ( &% STRING BY DESC, &% STRING BY DESC, &, OPTIONAL LONG BY VALUE, &# LONG BY VALUE & ) ! STR$POS_EXTR ! ) ! DExtract a Substring of a String ! 5 ! The Extract a Substring of a String routine6 ! copies a substring of a source string into a ! destination string. ! , EXTERNAL LONG FUNCTION str$pos_extr & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &! LONG BY REF & ) ! STR$POSITION ! / ! Return Relative Positi Eon of Substring ! ; ! The Return Relative Position of Substring routine0 ! searches for the first occurrence of aX ! single substring within a source string. If STR$POSITION finds the substring,= ! it returns the relative position of that substring.E ! If the substring is not found, STR$POSITION returns a zero. ! , EXTERNAL LONG FUNCTION str$position & ( &% STRING BY DESC, &% SFTRING BY DESC, &) OPTIONAL LONG BY REF & ) ! STR$PREFIX !  ! Prefix a String ! % ! The Prefix a String routineC ! inserts a source string at the beginning of a destinationK ! string. The destination string must be dynamic or varying length. ! * EXTERNAL LONG FUNCTION str$prefix & ( &% STRING BY DESC, &$ STRING BY DESC & G ) ! STR$RECIP ! ( ! Reciprocal of a Decimal String ! 4 ! The Reciprocal of a Decimal String routineK ! takes the reciprocal of the first decimal string to the precisionR ! limit specified by the second decimal string and returns the result as a ! decimal string. ! ) EXTERNAL LONG FUNCTION str$recip & ( &" LONG BY REF, &" LONG BY REF, &% H STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$REPLACE !  ! Replace a Substring ! ) ! The Replace a Substring routineH ! copies a source string to a destination string, replacing partM ! of the string with another string.I The substring to be replaced is9 ! specified by its starting and ending positions. ! + EXTERNAL LONG FUNCTION str$replace & ( &% STRING BY DESC, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) ! STR$RIGHT ! ) ! Extract a Substring of a String ! 5 ! The Extract a Substring Jof a String routine6 ! copies a substring of a source string into a ! destination string. ! ) EXTERNAL LONG FUNCTION str$right & ( &% STRING BY DESC, &% STRING BY DESC, &! LONG BY REF & ) ! STR$ROUND ! , ! Round or Truncate a Decimal String ! 8 ! The Round or Truncate a Decimal String routineG ! rounds or truncates a deciKmal string to a specified number ofM ! significant digits and places the result in another decimal string. ! ) EXTERNAL LONG FUNCTION str$round & ( &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &" LONG BY REF, &% STRING BY DESC, &" LONG BY REF, &" LONG BY REF, &$ STRING BY DESC & ) L ! STR$TRANSLATE ! & ! Translate Matched Characters ! j ! The Translate Matched Characters routine successively compares each character in a source stringR ! to all characters in a match string. If a source character has a match,S ! the destination character is taken from the translate string. Otherwise,M ! STR$TRANSLATE moves the source character to the destination string. ! - EXTERNAL LONG FUNCTION str$translate &M ( &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ STRING BY DESC & ) ! STR$TRIM ! ' ! Trim Trailing Blanks and Tabs ! 3 ! The Trim Trailing Blanks and Tabs routineH ! copies a source string to a destination string and deletes the, ! trailing blank and tab characters. ! ( EXTERNAL LONG FUNCTION str$trNim & ( &% STRING BY DESC, &% STRING BY DESC, &) OPTIONAL WORD BY REF & ) ! STR$UPCASE ! 4 ! Convert String to All Uppercase Characters ! @ ! The Convert String to All Uppercase Characters routine0 ! converts a source string to uppercase. ! * EXTERNAL LONG FUNCTION str$upcase & ( &% STRING BY DESC, &$  STRING BY DESC & )wwP]PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIQNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETR %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! R ! This SDL File Generated by VAX-11 Message V04-00 on 20-MAR-2001 19:37:29.37 ! & ! FILE: STRMSG.MSG EDIT: JWN2008 ! R ! ****************************************************** S********************** ! * *9 ! * COPYRIGHT (C) 1978, 1980, 1982, 1984 BY *F ! * DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. *( ! * ALL RIGHTS RESERVED. * ! * *R ! * THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *R ! * ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *R ! * INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *R ! * T COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! * OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY *! ! * TRANSFERRED. * ! * *R ! * THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *R ! * AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT *! ! * CORPORATION. * ! * *R ! * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR U RELIABILITY OF ITS *G ! * SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * * ! * *R ! **************************************************************************** !  ! Q ! 2-001 - CONVERT TO MESSAGE UTILITY SOURCE FORMAT. ADAPTED FROM STRMSG.MSG( ! VERSION 1-004. SBL 22-APR-19816 ! 2-005 - ADD .TITLE AND .IDENT. SBL 28-AUG-1982V ! 2-002 - DON'T DEFINE STR$_NORMAL HERE, DO IT IN STRMSGDEF.MAR. SBL 2 V7-APR-1981? ! 2-003 - ADD STR$_MATCH AND STR$_NOMATCH. RKR 2-JUL-1982< ! 2-004 - NOW DEFINE STR$_NORMAL HERE. SBL 24-AUG-1982I ! 2-006 - ADD DEFINITIONS FOR STR$_INVDELIM (INVALID DELIMITER) AND D ! STR$_NOELEM (NO ELEMENT FOUND), TWO NEW STATUS VALUES TO BE4 ! USED BY STR$ELEMENT. ROW 03-NOV-1986J ! 2-007 - ADD STR$_ERRFREDYN, USED WHEN LIB$FREE_VM BARFS ON A STRINGI ! WE ARE TRYING TO FREE. IE. THE USER HAS A CLASS_D DESCR POINTING" ! AT SOWME ARBITRARY MEMORY.H ! 2-008 - REMOVE FIRST LETTER CAPITALIZATION FROM ERROR MESSAGES.  ! JWN 26-APR-1987 ! +C ! SYMBOLS ARE DEFINED FOLLOWING THE STANDARD FOR GLOBAL NAMES: !  ! STR$_ABCMNOXYZ ! P ! IN ADDITION, THE LIBRARY STANDARDS SPECIFY THAT THE LETTERS "abc", "mno",R ! AND "xyz" ARE THE FIRST THREE LETTERS OF THE FIRST THREE WORDS OF THE ERROR7 ! MESSAGE, NOT COUNTING ARTICLES AND PREPOSITIONS. !  !  ! MACRO-32 PROGXRAMMING: !  ! THE MACRO CALL: !  ! $STRDEF ! A ! WILL CAUSE ALL SYMBOLS TO BE MADE AVAILABLE TO THE MODULE.? ! THE RUN-TIME LIBRARY DECLARES THESE SYMBOLS AS EXTERNAL;D ! THE MACROS ARE PROVIDED ONLY FOR THE CONVENIENCE OF THE USER. ! - ! 8 ! THE FOLLOWING SEVERE ERRORS ARE ALWAYS SIGNALLED. ! = ! ; NOTE: ERROR CODES MUST NOT OVERLAP SUCESS CODES???. DECLARE LONG CONSTANT STR$_FACILITY = 364 DECLARE LONG CONSTANT STR$ Y_FATINTERR = 23921324 DECLARE LONG CONSTANT STR$_DIVBY_ZER = 23921404 DECLARE LONG CONSTANT STR$_ILLSTRCLA = 23921484 DECLARE LONG CONSTANT STR$_STRIS_INT = 23921564 DECLARE LONG CONSTANT STR$_WRONUMARG = 23921644 DECLARE LONG CONSTANT STR$_INSVIRMEM = 23921724 DECLARE LONG CONSTANT STR$_STRTOOLON = 23921804 DECLARE LONG CONSTANT STR$_ERRFREDYN = 2392188 ! ( ! THE FOLLOWING ARE WARNING ERRORS. !  ! ; GO IN STEPS OF 8.. DECLARE LONG Z CONSTANT STR$_TRU = 23925762 DECLARE LONG CONSTANT STR$_NOMATCH = 23925843 DECLARE LONG CONSTANT STR$_INVDELIM = 23925921 DECLARE LONG CONSTANT STR$_NOELEM = 2392600 ! 3 ! THE FOLLOWING ARE QUALIFIED SUCCESS MESSAGES !  ! ; GO IN STEPS OF 8.4 DECLARE LONG CONSTANT STR$_NEGSTRLEN = 23930894 DECLARE LONG CONSTANT STR$_ILLSTRPOS = 23930974 DECLARE LONG CONSTANT STR$_ILLSTRSPE = 23931050 DECLARE LONG CONSTANT STR$_MATCH = 2393113 ! 7 ! DEFINE STR$_NORMAL TO BE THE SAME AS SS$_NORMAL. ! + DECLARE LONG CONSTANT STR$_NORMAL = 1 ! ww$SMRDEF $SNAPEVTDEF$SORDEF$SRFDEFb $SRMDEFt $SSDEFO$STRDEF"$STSDEF,$SYIDEF$TEBDEF8$TIRDEF]@PV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGI^NARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LET_ %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF   ! - ! Text Processing Utility (TPU) Routines !  ! B ! TPU$CLEANUP - Free System Resources Used During TPU Session ! # ! status = TPU$CLEANUP (flags) !  ! flags `- Cleanup options ! + EXTERNAL LONG FUNCTION TPU$CLEANUP & ( &! LONG BY REF & ) ! * ! TPU$CLIPARSE - Parse a command line ! 8 ! status = TPU$CLIPARSE (string, fileio, call_user) ! , ! string - Command line to be parsed= ! fileio - Bound Procedure Value for File I/O routine? ! call_user - Bound Procedure Value for call-user routine ! , EXTERNAL LONG FUNCTION TPU$CLIPARSE & a ( &% STRING BY DESC, &! ANY BY REF, & ANY BY REF & ) ! 5 ! TPU$CLOSE_TERMINAL - Close Channel to Terminal ! % ! status = TPU$CLOSE_TERMINAL () ! 0 EXTERNAL LONG FUNCTION TPU$CLOSE_TERMINAL ! ( ! TPU$CONTROL - Pass Control to TPU !  ! status = TPU$CONTROL () ! ) EXTERNAL LONG FUNCTION TPU$CONTROL !  ! TPU$EDIT - Edit a file ! (b ! status = TPU$EDIT (input, output) ! ! input - Input file name! ! output - Output file name ! ( EXTERNAL LONG FUNCTION TPU$EDIT & ( &% STRING BY DESC, &$ STRING BY DESC & ) ! ? ! TPU$EXECUTE_COMMAND - Execute One or More TPU Statements ! , ! status = TPU$EXECUTE_COMMAND (string) ! , ! string - TPU statement(s) to execute ! 3 EXTERNAL LONG FUNCTION cTPU$EXECUTE_COMMAND & ( &$ STRING BY DESC & ) ! 9 ! TPU$EXECUTE_INIFILE - Execute Initialization Files ! & ! status = TPU$EXECUTE_INIFILE () ! 1 EXTERNAL LONG FUNCTION TPU$EXECUTE_INIFILE ! + ! TPU$FILEIO - Perform File Operations ! / ! status = TPU$FILEIO (code, stream, data) ! 4 ! code - Item code specifying a TPU function! ! stream - File description ! data - Strdeam data ! * EXTERNAL LONG FUNCTION TPU$FILEIO & ( &" LONG BY REF, &! ANY BY REF, & ANY BY REF & ) ! 2 ! TPU$FILE_PARSE - Parse a File Specification ! ? ! status = TPU$FILE_PARSE (result_string, flags, filespec,? ! [default_spec], [related_spec]) ! 4 ! result_string - Resultant file specification; ! flags - Specifies compeonents to be returned3 ! filespec - File specification to parse2 ! default_spec - Default file specification2 ! related_spec - Related file specification ! . EXTERNAL LONG FUNCTION TPU$FILE_PARSE & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! 8 ! TPU$FILE_SEAR fCH - Search for a File Specification ! @ ! status = TPU$FILE_SEARCH (result_string, flags, filespec,? ! [default_spec], [related_spec]) ! 4 ! result_string - Resultant file specification; ! flags - Specifies components to be returned3 ! filespec - File specification to parse2 ! default_spec - Default file specification2 ! related_spec - Related file specification ! / EXTERNAL LONG FUNCTION TPU$FILEg_SEARCH & ( &% STRING BY DESC, &" LONG BY REF, &% STRING BY DESC, &- OPTIONAL STRING BY DESC, &$ STRING BY DESC & ) ! * ! TPU$HANDLER - TPU Condition Handler ! = ! status = TPU$HANDLER (signal_vector, mechanism_vector) ! ( ! signal_vector - Signal vector+ ! mechanism_vector - Mechanism vector ! + EXTERNAL LONG FUNCTIhON TPU$HANDLER & ( &' LONG DIM() BY REF, && LONG DIM() BY REF & ) ! 2 ! TPU$INITIALIZE - Initialize TPU for Editing ! 5 ! status = TPU$INITIALIZE (callback [, user_arg) ! 9 ! callback - Callback routine bound procedure value ! user_arg - User argument ! . EXTERNAL LONG FUNCTION TPU$INITIALIZE & ( &! ANY BY REF, &) OPTIONAL LiONG BY REF & ) ! ) ! TPU$MESSAGE - Write Message String ! $ ! status = TPU$MESSAGE (string) ! " ! string - Formatted message ! + EXTERNAL LONG FUNCTION TPU$MESSAGE & ( &$ STRING BY DESC & ) ! = ! TPU$PARSEINFO - Parse Command Line and Build Item List ! 1 ! status = TPU$PARSEINFO (fileio, call_user) ! 9 ! fileio - Bound Procedure Value File I/O routine?j ! call_user - Bound Procedure Value for call-user routine ! - EXTERNAL LONG FUNCTION TPU$PARSEINFO & ( &! ANY BY REF, & ANY BY REF & ) ! ' ! TPU$SIGNAL - Signal a TPU Status ! + ! status = TPU$SIGNAL (condition_code) ! 1 ! condition_code - Condition code to signal ! * EXTERNAL LONG FUNCTION TPU$SIGNAL & ( &# LONG BY VALUE & k ) ! A ! TPU$SPECIFY_ASYNC_ACTION - Register an Asynchronous Action ! K ! status = TPU$SPECIFY_ASYNC_ACTION (facility_index [, tpu_statement]) ! 4 ! facility_index - Index number of this action< ! tpu_statement - TPU statement to execute for action ! 8 EXTERNAL LONG FUNCTION TPU$SPECIFY_ASYNC_ACTION & ( &" LONG BY REF, &, OPTIONAL STRING BY DESC & ) !  ! TPUl$TPU - Invoke TPU ! ! ! status = TPU$TPU (command) ! ! command - Command string ! ' EXTERNAL LONG FUNCTION TPU$TPU & ( &$ STRING BY DESC & ) ! @ ! TPU$TRIGGER_ASYNC_ACTION - Trigger an Asynchronous Action ! 9 ! status = TPU$TRIGGER_ASYNC_ACTION (facility_index) ! 4 ! facility_index - Index number of this action ! 8 EXTERNAL LONG FUNCTION TPU$TRIGGER_ASYNC_ACTION &  ( &! LONG BY REF & )ww%PV SYSTEM TPU$ROUTINES&@5PV SYSTEM UTIL$ROUTINES @l׍PV SYSTEM $VAXDEFoPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIpNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETq %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  Q ! *************************************************************************** ! *( ! COPYRIGHT (c) 1998 BY *E ! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETT rS. *' ! ALL RIGHTS RESERVED. * ! *Q ! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *Q ! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE *Q ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER *Q ! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *R ! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ' ! sTRANSFERRED. * ! *Q ! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE *Q ! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ! CORPORATION. * ! *Q ! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS *F ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ! * ! *Q ! **************t************************************************************* !  ! UTIL$CQUAL_FILE_PARSE ! 5 EXTERNAL LONG FUNCTION util$cqual_file_parse & ( &" LONG BY REF, &" LONG BY REF, &) OPTIONAL LONG BY REF & ) !  ! UTIL$CQUAL_FILE_MATCH ! 5 EXTERNAL LONG FUNCTION util$cqual_file_match & ( &" LONG BY REF, &* u OPTIONAL LONG BY REF, &% STRING BY DESC, &% STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &" LONG BY REF, &! LONG BY REF & ) !  ! UTIL$CQUAL_FILE_END ! 3 EXTERNAL LONG FUNCTION util$cqual_file_end & ( &! LONG BY REF & ) ! ! UTIL$CQUAL_C ONFIRM_ACT ! 6 EXTERNAL LONG FUNCTION util$cqual_confirm_act & ( &- OPTIONAL STRING BY DESC, &% STRING BY DESC, &$ LONG BY VALUE, &! LONG BY REF & )www@7ˍPV8 %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD% %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF8 %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD% %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF> %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGIxNARY_PART END RECORD+ %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD+ %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD+ %LETy %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF> %IF %DECLARED ( %BASIC$H_FLOATING_COMPLEX_DECL ) = 0 %THEN$ RECORD BASIC$H_FLOATING_COMPLEX HFLOAT REAL_PART HFLOAT IMAGINARY_PART END RECORD+ %LET %BASIC$H_FLOATING_COMPLEX_DECL = 1 %END %IF  * DECLARE LONG CONSTANT VAX$C_V780 = 1* DECLARE LONG CONSTANT VAX$K_V780 = 1* DECLARE LONG CONSTANT VAX$C_V782 = 2* DECLARE LONG CONSTANT VAX$K_V782 = 2* DECLARE LONG CONSTANT VAX$ zC_V750 = 3* DECLARE LONG CONSTANT VAX$K_V750 = 3* DECLARE LONG CONSTANT VAX$C_V730 = 4* DECLARE LONG CONSTANT VAX$K_V730 = 4* DECLARE LONG CONSTANT VAX$C_V785 = 5* DECLARE LONG CONSTANT VAX$K_V785 = 5* DECLARE LONG CONSTANT VAX$C_VUV1 = 6* DECLARE LONG CONSTANT VAX$K_VUV1 = 6* DECLARE LONG CONSTANT VAX$C_VWS1 = 7* DECLARE LONG CONSTANT VAX$K_VWS1 = 7* DECLARE LONG CONSTANT VAX$C_VUV2 = 8* DECLARE LONG CONSTANT VAX$K_VUV2 = 8* DECL {ARE LONG CONSTANT VAX$C_VWS2 = 9* DECLARE LONG CONSTANT VAX$K_VWS2 = 9+ DECLARE LONG CONSTANT VAX$C_VWSD = 10+ DECLARE LONG CONSTANT VAX$K_VWSD = 10, DECLARE LONG CONSTANT VAX$C_V8600 = 11, DECLARE LONG CONSTANT VAX$K_V8600 = 11, DECLARE LONG CONSTANT VAX$C_V8650 = 12, DECLARE LONG CONSTANT VAX$K_V8650 = 12, DECLARE LONG CONSTANT VAX$C_V8200 = 13, DECLARE LONG CONSTANT VAX$K_V8200 = 13, DECLARE LONG CONSTANT VAX$C_V8300 = 14, DECLARE |LONG CONSTANT VAX$K_V8300 = 14, DECLARE LONG CONSTANT VAX$C_V8530 = 15, DECLARE LONG CONSTANT VAX$K_V8530 = 15, DECLARE LONG CONSTANT VAX$C_V8550 = 16, DECLARE LONG CONSTANT VAX$K_V8550 = 16, DECLARE LONG CONSTANT VAX$C_V8700 = 17, DECLARE LONG CONSTANT VAX$K_V8700 = 17, DECLARE LONG CONSTANT VAX$C_V8800 = 18, DECLARE LONG CONSTANT VAX$K_V8800 = 18. DECLARE LONG CONSTANT VAX$C_VWS2000 = 19. DECLARE LONG CONSTANT VAX$K_VWS2000 = 19. DECL }ARE LONG CONSTANT VAX$C_VUV2000 = 20. DECLARE LONG CONSTANT VAX$K_VUV2000 = 20/ DECLARE LONG CONSTANT VAX$C_VWSD2000 = 21/ DECLARE LONG CONSTANT VAX$K_VWSD2000 = 21+ DECLARE LONG CONSTANT VAX$C_V009 = 22+ DECLARE LONG CONSTANT VAX$K_V009 = 22, DECLARE LONG CONSTANT VAX$C_V8250 = 23, DECLARE LONG CONSTANT VAX$K_V8250 = 23, DECLARE LONG CONSTANT VAX$C_V8350 = 24, DECLARE LONG CONSTANT VAX$K_V8350 = 24, DECLARE LONG CONSTANT VAX$C_V3600 = 25 ~, DECLARE LONG CONSTANT VAX$K_V3600 = 25- DECLARE LONG CONSTANT VAX$C_V3600W = 26- DECLARE LONG CONSTANT VAX$K_V3600W = 26- DECLARE LONG CONSTANT VAX$C_V3600D = 27- DECLARE LONG CONSTANT VAX$K_V3600D = 27+ DECLARE LONG CONSTANT VAX$K_V9CC = 28+ DECLARE LONG CONSTANT VAX$C_V9CC = 28. DECLARE LONG CONSTANT VAX$K_V6210_T = 28. DECLARE LONG CONSTANT VAX$C_V6210_T = 28, DECLARE LONG CONSTANT VAX$K_V6210 = 28, DECLARE LONG CONSTANT VAX$ C_V6210 = 28, DECLARE LONG CONSTANT VAX$C_V3520 = 29, DECLARE LONG CONSTANT VAX$K_V3520 = 29- DECLARE LONG CONSTANT VAX$C_V3520L = 30- DECLARE LONG CONSTANT VAX$K_V3520L = 30+ DECLARE LONG CONSTANT VAX$K_V8PS = 31+ DECLARE LONG CONSTANT VAX$C_V8PS = 31, DECLARE LONG CONSTANT VAX$K_V8840 = 31, DECLARE LONG CONSTANT VAX$C_V8840 = 31+ DECLARE LONG CONSTANT VAX$K_V9RR = 32+ DECLARE LONG CONSTANT VAX$C_V9RR = 32- DECLARE LONG CONSTANT VAX$K_VUV2_S = 33- DECLARE LONG CONSTANT VAX$C_VUV2_S = 33- DECLARE LONG CONSTANT VAX$K_VUV2_J = 34- DECLARE LONG CONSTANT VAX$C_VUV2_J = 34- DECLARE LONG CONSTANT VAX$K_VWS2_T = 35- DECLARE LONG CONSTANT VAX$C_VWS2_T = 35- DECLARE LONG CONSTANT VAX$K_VWS2_J = 36- DECLARE LONG CONSTANT VAX$C_VWS2_J = 36- DECLARE LONG CONSTANT VAX$K_VWSD_T = 37- DECLARE LONG CONSTANT VAX$C_VWSD_T = 37- DECLARE LONG CONSTANT VAX$K_VWSD_J = 38- DECLARE LONG CONSTANT VAX$C_VWSD_J = 380 DECLARE LONG CONSTANT VAX$K_VUV2000_S = 390 DECLARE LONG CONSTANT VAX$C_VUV2000_S = 390 DECLARE LONG CONSTANT VAX$K_VUV2000_J = 400 DECLARE LONG CONSTANT VAX$C_VUV2000_J = 400 DECLARE LONG CONSTANT VAX$K_VWS2000_T = 410 DECLARE LONG CONSTANT VAX$C_VWS2000_T = 410 DECLARE LONG CONSTANT VAX$K_VWS2000_J = 420 DECLARE LONG CONSTANT VAX$C_VWS2000_J = 421 DECLARE LONG CONSTANT VAX$K_VWSD2000_T = 431 DECLAR E LONG CONSTANT VAX$C_VWSD2000_T = 431 DECLARE LONG CONSTANT VAX$K_VWSD2000_J = 441 DECLARE LONG CONSTANT VAX$C_VWSD2000_J = 44. DECLARE LONG CONSTANT VAX$K_V3600_S = 45. DECLARE LONG CONSTANT VAX$C_V3600_S = 45. DECLARE LONG CONSTANT VAX$K_V3600_J = 46. DECLARE LONG CONSTANT VAX$C_V3600_J = 46/ DECLARE LONG CONSTANT VAX$K_V3600W_T = 47/ DECLARE LONG CONSTANT VAX$C_V3600W_T = 47/ DECLARE LONG CONSTANT VAX$K_V3600W_J = 48/ DECLARE LONG C ONSTANT VAX$C_V3600W_J = 48/ DECLARE LONG CONSTANT VAX$K_V3600D_T = 49/ DECLARE LONG CONSTANT VAX$C_V3600D_T = 49/ DECLARE LONG CONSTANT VAX$K_V3600D_J = 50/ DECLARE LONG CONSTANT VAX$C_V3600D_J = 50. DECLARE LONG CONSTANT VAX$K_V3520_S = 51. DECLARE LONG CONSTANT VAX$C_V3520_S = 51. DECLARE LONG CONSTANT VAX$K_V3520_J = 52. DECLARE LONG CONSTANT VAX$C_V3520_J = 52/ DECLARE LONG CONSTANT VAX$K_V3520L_T = 53/ DECLARE LONG CONSTANT VAX$C_ V3520L_T = 53/ DECLARE LONG CONSTANT VAX$K_V3520L_J = 54/ DECLARE LONG CONSTANT VAX$C_V3520L_J = 54- DECLARE LONG CONSTANT VAX$K_V8250L = 55- DECLARE LONG CONSTANT VAX$C_V8250L = 55/ DECLARE LONG CONSTANT VAX$K_V8250L_J = 56/ DECLARE LONG CONSTANT VAX$C_V8250L_J = 56* DECLARE LONG CONSTANT VAX$K_VCV = 57* DECLARE LONG CONSTANT VAX$C_VCV = 57, DECLARE LONG CONSTANT VAX$K_VCVWS = 58, DECLARE LONG CONSTANT VAX$C_VCVWS = 58- DECLARE LONG CONSTANT VAX$K_VCVWSD = 59- DECLARE LONG CONSTANT VAX$C_VCVWSD = 59, DECLARE LONG CONSTANT VAX$K_VCV_S = 60, DECLARE LONG CONSTANT VAX$C_VCV_S = 60, DECLARE LONG CONSTANT VAX$K_VCV_J = 61, DECLARE LONG CONSTANT VAX$C_VCV_J = 61. DECLARE LONG CONSTANT VAX$K_VCVWS_T = 62. DECLARE LONG CONSTANT VAX$C_VCVWS_T = 62. DECLARE LONG CONSTANT VAX$K_VCVWS_J = 63. DECLARE LONG CONSTANT VAX$C_VCVWS_J = 63/ DECLARE LONG CONSTANT VAX$K_VCVWSD_T = 64 / DECLARE LONG CONSTANT VAX$C_VCVWSD_T = 64/ DECLARE LONG CONSTANT VAX$K_VCVWSD_J = 65/ DECLARE LONG CONSTANT VAX$C_VCVWSD_J = 65, DECLARE LONG CONSTANT VAX$C_V8500 = 66, DECLARE LONG CONSTANT VAX$K_V8500 = 66, DECLARE LONG CONSTANT VAX$K_V8370 = 67, DECLARE LONG CONSTANT VAX$C_V8370 = 67- DECLARE LONG CONSTANT VAX$K_V8650P = 68- DECLARE LONG CONSTANT VAX$C_V8650P = 68. DECLARE LONG CONSTANT VAX$K_V6220_T = 69. DECLARE LONG CONSTAN T VAX$C_V6220_T = 69, DECLARE LONG CONSTANT VAX$K_V6220 = 69, DECLARE LONG CONSTANT VAX$C_V6220 = 69. DECLARE LONG CONSTANT VAX$K_V6230_T = 70. DECLARE LONG CONSTANT VAX$C_V6230_T = 70, DECLARE LONG CONSTANT VAX$K_V6230 = 70, DECLARE LONG CONSTANT VAX$C_V6230 = 70. DECLARE LONG CONSTANT VAX$K_V6240_T = 71. DECLARE LONG CONSTANT VAX$C_V6240_T = 71, DECLARE LONG CONSTANT VAX$K_V6240 = 71, DECLARE LONG CONSTANT VAX$C_V6240 = 71. DECLARE LO NG CONSTANT VAX$K_V6250_T = 72. DECLARE LONG CONSTANT VAX$C_V6250_T = 72, DECLARE LONG CONSTANT VAX$K_V6250 = 72, DECLARE LONG CONSTANT VAX$C_V6250 = 72. DECLARE LONG CONSTANT VAX$K_V6260_T = 73. DECLARE LONG CONSTANT VAX$C_V6260_T = 73, DECLARE LONG CONSTANT VAX$K_V6260 = 73, DECLARE LONG CONSTANT VAX$C_V6260 = 73. DECLARE LONG CONSTANT VAX$K_V6270_T = 74. DECLARE LONG CONSTANT VAX$C_V6270_T = 74, DECLARE LONG CONSTANT VAX$K_V6270 = 74,  DECLARE LONG CONSTANT VAX$C_V6270 = 74. DECLARE LONG CONSTANT VAX$K_V6280_T = 75. DECLARE LONG CONSTANT VAX$C_V6280_T = 75, DECLARE LONG CONSTANT VAX$K_V6280 = 75, DECLARE LONG CONSTANT VAX$C_V6280 = 75. DECLARE LONG CONSTANT VAX$K_V6310_T = 76. DECLARE LONG CONSTANT VAX$C_V6310_T = 76, DECLARE LONG CONSTANT VAX$K_V6215 = 76, DECLARE LONG CONSTANT VAX$C_V6215 = 76. DECLARE LONG CONSTANT VAX$K_V6320_T = 77. DECLARE LONG CONSTANT VAX$C_V6320_ T = 77, DECLARE LONG CONSTANT VAX$K_V6225 = 77, DECLARE LONG CONSTANT VAX$C_V6225 = 77. DECLARE LONG CONSTANT VAX$K_V6330_T = 78. DECLARE LONG CONSTANT VAX$C_V6330_T = 78, DECLARE LONG CONSTANT VAX$K_V6235 = 78, DECLARE LONG CONSTANT VAX$C_V6235 = 78. DECLARE LONG CONSTANT VAX$K_V6340_T = 79. DECLARE LONG CONSTANT VAX$C_V6340_T = 79, DECLARE LONG CONSTANT VAX$K_V6245 = 79, DECLARE LONG CONSTANT VAX$C_V6245 = 79. DECLARE LONG CONSTANT VA X$K_V6350_T = 80. DECLARE LONG CONSTANT VAX$C_V6350_T = 80, DECLARE LONG CONSTANT VAX$K_V6255 = 80, DECLARE LONG CONSTANT VAX$C_V6255 = 80. DECLARE LONG CONSTANT VAX$K_V6360_T = 81. DECLARE LONG CONSTANT VAX$C_V6360_T = 81, DECLARE LONG CONSTANT VAX$K_V6265 = 81, DECLARE LONG CONSTANT VAX$C_V6265 = 81. DECLARE LONG CONSTANT VAX$K_V6370_T = 82. DECLARE LONG CONSTANT VAX$C_V6370_T = 82, DECLARE LONG CONSTANT VAX$K_V6275 = 82, DECLARE LONG  CONSTANT VAX$C_V6275 = 82. DECLARE LONG CONSTANT VAX$K_V6380_T = 83. DECLARE LONG CONSTANT VAX$C_V6380_T = 83, DECLARE LONG CONSTANT VAX$K_V6285 = 83, DECLARE LONG CONSTANT VAX$C_V6285 = 83, DECLARE LONG CONSTANT VAX$K_V8810 = 84, DECLARE LONG CONSTANT VAX$C_V8810 = 84, DECLARE LONG CONSTANT VAX$K_V8820 = 85, DECLARE LONG CONSTANT VAX$C_V8820 = 85, DECLARE LONG CONSTANT VAX$K_V8830 = 86, DECLARE LONG CONSTANT VAX$C_V8830 = 86, DECLARE LONG CONSTANT VAX$C_V3400 = 87, DECLARE LONG CONSTANT VAX$K_V3400 = 87- DECLARE LONG CONSTANT VAX$C_V3400W = 88- DECLARE LONG CONSTANT VAX$K_V3400W = 88- DECLARE LONG CONSTANT VAX$C_V3400D = 89- DECLARE LONG CONSTANT VAX$K_V3400D = 89. DECLARE LONG CONSTANT VAX$K_V3400_S = 90. DECLARE LONG CONSTANT VAX$C_V3400_S = 90. DECLARE LONG CONSTANT VAX$K_V3400_J = 91. DECLARE LONG CONSTANT VAX$C_V3400_J = 91/ DECLARE LONG CONSTANT VAX$K_V3400W_T =  92/ DECLARE LONG CONSTANT VAX$C_V3400W_T = 92/ DECLARE LONG CONSTANT VAX$K_V3400W_J = 93/ DECLARE LONG CONSTANT VAX$C_V3400W_J = 93/ DECLARE LONG CONSTANT VAX$K_V3400D_T = 94/ DECLARE LONG CONSTANT VAX$C_V3400D_T = 94/ DECLARE LONG CONSTANT VAX$K_V3400D_J = 95/ DECLARE LONG CONSTANT VAX$C_V3400D_J = 950 DECLARE LONG CONSTANT VAX$K_VUV2000_O = 960 DECLARE LONG CONSTANT VAX$C_VUV2000_O = 960 DECLARE LONG CONSTANT VAX$K_VWS2000_O = 970  DECLARE LONG CONSTANT VAX$C_VWS2000_O = 971 DECLARE LONG CONSTANT VAX$K_VWSD2000_O = 981 DECLARE LONG CONSTANT VAX$C_VWSD2000_O = 98/ DECLARE LONG CONSTANT VAX$C_VWSK2000 = 99/ DECLARE LONG CONSTANT VAX$K_VWSK2000 = 99/ DECLARE LONG CONSTANT VAX$K_V6210_S = 100/ DECLARE LONG CONSTANT VAX$C_V6210_S = 100/ DECLARE LONG CONSTANT VAX$K_V6220_S = 101/ DECLARE LONG CONSTANT VAX$C_V6220_S = 101/ DECLARE LONG CONSTANT VAX$K_V6230_S = 102/  DECLARE LONG CONSTANT VAX$C_V6230_S = 102/ DECLARE LONG CONSTANT VAX$K_V6240_S = 103/ DECLARE LONG CONSTANT VAX$C_V6240_S = 103/ DECLARE LONG CONSTANT VAX$K_V6250_S = 104/ DECLARE LONG CONSTANT VAX$C_V6250_S = 104/ DECLARE LONG CONSTANT VAX$K_V6260_S = 105/ DECLARE LONG CONSTANT VAX$C_V6260_S = 105/ DECLARE LONG CONSTANT VAX$K_V6270_S = 106/ DECLARE LONG CONSTANT VAX$C_V6270_S = 106/ DECLARE LONG CONSTANT VAX$K_V6280_S = 107/ DE CLARE LONG CONSTANT VAX$C_V6280_S = 107/ DECLARE LONG CONSTANT VAX$K_V6310_S = 108/ DECLARE LONG CONSTANT VAX$C_V6310_S = 108/ DECLARE LONG CONSTANT VAX$K_V6215_S = 108/ DECLARE LONG CONSTANT VAX$C_V6215_S = 108/ DECLARE LONG CONSTANT VAX$K_V6320_S = 109/ DECLARE LONG CONSTANT VAX$C_V6320_S = 109/ DECLARE LONG CONSTANT VAX$K_V6225_S = 109/ DECLARE LONG CONSTANT VAX$C_V6225_S = 109/ DECLARE LONG CONSTANT VAX$K_V6330_S = 110/ DECLARE LONG CONSTANT VAX$C_V6330_S = 110/ DECLARE LONG CONSTANT VAX$K_V6235_S = 110/ DECLARE LONG CONSTANT VAX$C_V6235_S = 110/ DECLARE LONG CONSTANT VAX$K_V6340_S = 111/ DECLARE LONG CONSTANT VAX$C_V6340_S = 111/ DECLARE LONG CONSTANT VAX$K_V6245_S = 111/ DECLARE LONG CONSTANT VAX$C_V6245_S = 111/ DECLARE LONG CONSTANT VAX$K_V6350_S = 112/ DECLARE LONG CONSTANT VAX$C_V6350_S = 112/ DECLARE LONG CONSTANT VAX$K_V6255_S = 112/ DECLARE LONG C ONSTANT VAX$C_V6255_S = 112/ DECLARE LONG CONSTANT VAX$K_V6360_S = 113/ DECLARE LONG CONSTANT VAX$C_V6360_S = 113/ DECLARE LONG CONSTANT VAX$K_V6265_S = 113/ DECLARE LONG CONSTANT VAX$C_V6265_S = 113/ DECLARE LONG CONSTANT VAX$K_V6370_S = 114/ DECLARE LONG CONSTANT VAX$C_V6370_S = 114/ DECLARE LONG CONSTANT VAX$K_V6275_S = 114/ DECLARE LONG CONSTANT VAX$C_V6275_S = 114/ DECLARE LONG CONSTANT VAX$K_V6380_S = 115/ DECLARE LONG CONSTAN T VAX$C_V6380_S = 115/ DECLARE LONG CONSTANT VAX$K_V6285_S = 115/ DECLARE LONG CONSTANT VAX$C_V6285_S = 115/ DECLARE LONG CONSTANT VAX$K_V6200_J = 116/ DECLARE LONG CONSTANT VAX$C_V6200_J = 116/ DECLARE LONG CONSTANT VAX$K_V6300_J = 117/ DECLARE LONG CONSTANT VAX$C_V6300_J = 117/ DECLARE LONG CONSTANT VAX$K_V6205_J = 117/ DECLARE LONG CONSTANT VAX$C_V6205_J = 117- DECLARE LONG CONSTANT VAX$C_V3900 = 118- DECLARE LONG CONSTANT VAX$K_ V3900 = 118/ DECLARE LONG CONSTANT VAX$K_V3900_S = 119/ DECLARE LONG CONSTANT VAX$C_V3900_S = 119. DECLARE LONG CONSTANT VAX$C_V3900D = 120. DECLARE LONG CONSTANT VAX$K_V3900D = 1200 DECLARE LONG CONSTANT VAX$K_V3900D_T = 1210 DECLARE LONG CONSTANT VAX$C_V3900D_T = 121/ DECLARE LONG CONSTANT VAX$K_V3900_J = 122/ DECLARE LONG CONSTANT VAX$C_V3900_J = 1220 DECLARE LONG CONSTANT VAX$K_V3900D_J = 1230 DECLARE LONG CONSTANT VAX$C_V3900D_J = 1 23. DECLARE LONG CONSTANT VAX$C_V2000A = 124. DECLARE LONG CONSTANT VAX$K_V2000A = 1240 DECLARE LONG CONSTANT VAX$K_V2000A_S = 1250 DECLARE LONG CONSTANT VAX$C_V2000A_S = 125/ DECLARE LONG CONSTANT VAX$C_V2000AW = 126/ DECLARE LONG CONSTANT VAX$K_V2000AW = 126/ DECLARE LONG CONSTANT VAX$C_V2000AD = 127/ DECLARE LONG CONSTANT VAX$K_V2000AD = 1271 DECLARE LONG CONSTANT VAX$K_V2000AW_T = 1281 DECLARE LONG CONSTANT VAX$C_V2000AW_T = 1281  DECLARE LONG CONSTANT VAX$K_V2000AD_T = 1291 DECLARE LONG CONSTANT VAX$C_V2000AD_T = 1290 DECLARE LONG CONSTANT VAX$K_V2000A_J = 1300 DECLARE LONG CONSTANT VAX$C_V2000A_J = 1301 DECLARE LONG CONSTANT VAX$K_V2000AW_J = 1311 DECLARE LONG CONSTANT VAX$C_V2000AW_J = 1311 DECLARE LONG CONSTANT VAX$K_V2000AD_J = 1321 DECLARE LONG CONSTANT VAX$C_V2000AD_J = 132- DECLARE LONG CONSTANT VAX$C_V3540 = 133- DECLARE LONG CONSTANT VAX$K_V3540 = 133/  DECLARE LONG CONSTANT VAX$K_V3540_S = 134/ DECLARE LONG CONSTANT VAX$C_V3540_S = 134. DECLARE LONG CONSTANT VAX$C_V3540L = 135. DECLARE LONG CONSTANT VAX$K_V3540L = 1350 DECLARE LONG CONSTANT VAX$K_V3540L_T = 1360 DECLARE LONG CONSTANT VAX$C_V3540L_T = 136- DECLARE LONG CONSTANT VAX$C_V3560 = 137- DECLARE LONG CONSTANT VAX$K_V3560 = 137/ DECLARE LONG CONSTANT VAX$K_V3560_S = 138/ DECLARE LONG CONSTANT VAX$C_V3560_S = 138. DECLARE LONG CONSTANT VAX$C_V3560L = 139. DECLARE LONG CONSTANT VAX$K_V3560L = 1390 DECLARE LONG CONSTANT VAX$K_V3560L_T = 1400 DECLARE LONG CONSTANT VAX$C_V3560L_T = 140- DECLARE LONG CONSTANT VAX$C_V3580 = 141- DECLARE LONG CONSTANT VAX$K_V3580 = 141/ DECLARE LONG CONSTANT VAX$K_V3580_S = 142/ DECLARE LONG CONSTANT VAX$C_V3580_S = 142. DECLARE LONG CONSTANT VAX$C_V3580L = 143. DECLARE LONG CONSTANT VAX$K_V3580L = 1430 DECLARE LONG CONSTANT VAX$ K_V3580L_T = 1440 DECLARE LONG CONSTANT VAX$C_V3580L_T = 144- DECLARE LONG CONSTANT VAX$C_V35A0 = 145- DECLARE LONG CONSTANT VAX$K_V35A0 = 145/ DECLARE LONG CONSTANT VAX$K_V35A0_S = 146/ DECLARE LONG CONSTANT VAX$C_V35A0_S = 146+ DECLARE LONG CONSTANT VAX$K_VPV = 147+ DECLARE LONG CONSTANT VAX$C_VPV = 147- DECLARE LONG CONSTANT VAX$K_VPVWS = 148- DECLARE LONG CONSTANT VAX$C_VPVWS = 148. DECLARE LONG CONSTANT VAX$K_VPVWSD = 149. DECLARE LONG CONSTANT VAX$C_VPVWSD = 149- DECLARE LONG CONSTANT VAX$K_VPV_S = 150- DECLARE LONG CONSTANT VAX$C_VPV_S = 150- DECLARE LONG CONSTANT VAX$K_VPV_J = 151- DECLARE LONG CONSTANT VAX$C_VPV_J = 151/ DECLARE LONG CONSTANT VAX$K_VPVWS_T = 152/ DECLARE LONG CONSTANT VAX$C_VPVWS_T = 152/ DECLARE LONG CONSTANT VAX$K_VPVWS_J = 153/ DECLARE LONG CONSTANT VAX$C_VPVWS_J = 1530 DECLARE LONG CONSTANT VAX$K_VPVWSD_T = 1540 DECLARE LONG CON STANT VAX$C_VPVWSD_T = 1540 DECLARE LONG CONSTANT VAX$K_VPVWSD_J = 1550 DECLARE LONG CONSTANT VAX$C_VPVWSD_J = 155+ DECLARE LONG CONSTANT VAX$K_VTM = 156+ DECLARE LONG CONSTANT VAX$C_VTM = 156- DECLARE LONG CONSTANT VAX$K_VTM_S = 157- DECLARE LONG CONSTANT VAX$C_VTM_S = 157- DECLARE LONG CONSTANT VAX$K_VTM_J = 158- DECLARE LONG CONSTANT VAX$C_VTM_J = 1580 DECLARE LONG CONSTANT VAX$K_V9RR10_T = 1590 DECLARE LONG CONSTANT VAX$C_V9RR10_T =  1590 DECLARE LONG CONSTANT VAX$K_V9RR20_T = 1600 DECLARE LONG CONSTANT VAX$C_V9RR20_T = 1600 DECLARE LONG CONSTANT VAX$K_V9RR30_T = 1610 DECLARE LONG CONSTANT VAX$C_V9RR30_T = 1610 DECLARE LONG CONSTANT VAX$K_V9RR40_T = 1620 DECLARE LONG CONSTANT VAX$C_V9RR40_T = 1620 DECLARE LONG CONSTANT VAX$K_V9RR50_T = 1630 DECLARE LONG CONSTANT VAX$C_V9RR50_T = 1630 DECLARE LONG CONSTANT VAX$K_V9RR60_T = 1640 DECLARE LONG CONSTANT VAX$C_V9RR60_T = 1640  DECLARE LONG CONSTANT VAX$K_V9RR70_T = 1650 DECLARE LONG CONSTANT VAX$C_V9RR70_T = 1650 DECLARE LONG CONSTANT VAX$K_V9RR80_T = 1660 DECLARE LONG CONSTANT VAX$C_V9RR80_T = 1660 DECLARE LONG CONSTANT VAX$K_V9RR10_S = 1670 DECLARE LONG CONSTANT VAX$C_V9RR10_S = 1670 DECLARE LONG CONSTANT VAX$K_V9RR20_S = 1680 DECLARE LONG CONSTANT VAX$C_V9RR20_S = 1680 DECLARE LONG CONSTANT VAX$K_V9RR30_S = 1690 DECLARE LONG CONSTANT VAX$C_V9RR30_S = 1690 DECLARE LONG CONSTANT VAX$K_V9RR40_S = 1700 DECLARE LONG CONSTANT VAX$C_V9RR40_S = 1700 DECLARE LONG CONSTANT VAX$K_V9RR50_S = 1710 DECLARE LONG CONSTANT VAX$C_V9RR50_S = 1710 DECLARE LONG CONSTANT VAX$K_V9RR60_S = 1720 DECLARE LONG CONSTANT VAX$C_V9RR60_S = 1720 DECLARE LONG CONSTANT VAX$K_V9RR70_S = 1730 DECLARE LONG CONSTANT VAX$C_V9RR70_S = 1730 DECLARE LONG CONSTANT VAX$K_V9RR80_S = 1740 DECLARE LONG CONSTANT VAX$C_V9RR80_S = 1740 DECLAR E LONG CONSTANT VAX$K_V9RR10_J = 1750 DECLARE LONG CONSTANT VAX$C_V9RR10_J = 175. DECLARE LONG CONSTANT VAX$K_V9AR10 = 176. DECLARE LONG CONSTANT VAX$C_V9AR10 = 176. DECLARE LONG CONSTANT VAX$K_V9AR20 = 177. DECLARE LONG CONSTANT VAX$C_V9AR20 = 177. DECLARE LONG CONSTANT VAX$K_V9AQ10 = 178. DECLARE LONG CONSTANT VAX$C_V9AQ10 = 178. DECLARE LONG CONSTANT VAX$K_V9AQ20 = 179. DECLARE LONG CONSTANT VAX$C_V9AQ20 = 179. DECLARE LONG CONSTANT VAX$K_ V9AQ30 = 180. DECLARE LONG CONSTANT VAX$C_V9AQ30 = 180. DECLARE LONG CONSTANT VAX$K_V9AQ40 = 181. DECLARE LONG CONSTANT VAX$C_V9AQ40 = 1810 DECLARE LONG CONSTANT VAX$K_V6305E_T = 1820 DECLARE LONG CONSTANT VAX$C_V6305E_T = 1820 DECLARE LONG CONSTANT VAX$K_V6305E_S = 1830 DECLARE LONG CONSTANT VAX$C_V6305E_S = 1830 DECLARE LONG CONSTANT VAX$K_V6305E_J = 1840 DECLARE LONG CONSTANT VAX$C_V6305E_J = 1840 DECLARE LONG CONSTANT VAX$K_V1202_1T = 185 0 DECLARE LONG CONSTANT VAX$C_V1202_1T = 1850 DECLARE LONG CONSTANT VAX$K_V1202_2T = 1860 DECLARE LONG CONSTANT VAX$C_V1202_2T = 1860 DECLARE LONG CONSTANT VAX$K_V1202_3T = 1870 DECLARE LONG CONSTANT VAX$C_V1202_3T = 1870 DECLARE LONG CONSTANT VAX$K_V1202_4T = 1880 DECLARE LONG CONSTANT VAX$C_V1202_4T = 1880 DECLARE LONG CONSTANT VAX$K_V1202_5T = 1890 DECLARE LONG CONSTANT VAX$C_V1202_5T = 1890 DECLARE LONG CONSTANT VAX$K_V1202_6T = 1900  DECLARE LONG CONSTANT VAX$C_V1202_6T = 1900 DECLARE LONG CONSTANT VAX$K_V1202_7T = 1910 DECLARE LONG CONSTANT VAX$C_V1202_7T = 1910 DECLARE LONG CONSTANT VAX$K_V1202_8T = 1920 DECLARE LONG CONSTANT VAX$C_V1202_8T = 1920 DECLARE LONG CONSTANT VAX$K_V1202_1S = 1930 DECLARE LONG CONSTANT VAX$C_V1202_1S = 1930 DECLARE LONG CONSTANT VAX$K_V1202_2S = 1940 DECLARE LONG CONSTANT VAX$C_V1202_2S = 1940 DECLARE LONG CONSTANT VAX$K_V1202_3S = 1950 DECL ARE LONG CONSTANT VAX$C_V1202_3S = 1950 DECLARE LONG CONSTANT VAX$K_V1202_4S = 1960 DECLARE LONG CONSTANT VAX$C_V1202_4S = 1960 DECLARE LONG CONSTANT VAX$K_V1202_5S = 1970 DECLARE LONG CONSTANT VAX$C_V1202_5S = 1970 DECLARE LONG CONSTANT VAX$K_V1202_6S = 1980 DECLARE LONG CONSTANT VAX$C_V1202_6S = 1980 DECLARE LONG CONSTANT VAX$K_V1202_7S = 1990 DECLARE LONG CONSTANT VAX$C_V1202_7S = 1990 DECLARE LONG CONSTANT VAX$K_V1202_8S = 2000 DECLARE LO NG CONSTANT VAX$C_V1202_8S = 2000 DECLARE LONG CONSTANT VAX$K_V1202_1J = 2010 DECLARE LONG CONSTANT VAX$C_V1202_1J = 201/ DECLARE LONG CONSTANT VAX$K_VPV2M_S = 202/ DECLARE LONG CONSTANT VAX$C_VPV2M_S = 202/ DECLARE LONG CONSTANT VAX$K_VPV2M_T = 203/ DECLARE LONG CONSTANT VAX$C_VPV2M_T = 203/ DECLARE LONG CONSTANT VAX$K_VPV2M_J = 204/ DECLARE LONG CONSTANT VAX$C_VPV2M_J = 204/ DECLARE LONG CONSTANT VAX$K_VPV2C_S = 205/ DECLARE LONG CON STANT VAX$C_VPV2C_S = 205/ DECLARE LONG CONSTANT VAX$K_VPV2C_T = 206/ DECLARE LONG CONSTANT VAX$C_VPV2C_T = 206/ DECLARE LONG CONSTANT VAX$K_VPV2C_J = 207/ DECLARE LONG CONSTANT VAX$C_VPV2C_J = 207. DECLARE LONG CONSTANT VAX$K_VPV2_S = 208. DECLARE LONG CONSTANT VAX$C_VPV2_S = 208. DECLARE LONG CONSTANT VAX$K_VPV2_T = 209. DECLARE LONG CONSTANT VAX$C_VPV2_T = 209. DECLARE LONG CONSTANT VAX$K_VPV2_J = 210. DECLARE LONG CONSTANT VAX$C_VPV2 _J = 210- DECLARE LONG CONSTANT VAX$K_V4500 = 211- DECLARE LONG CONSTANT VAX$C_V4500 = 211, DECLARE LONG CONSTANT VAX$C_V670 = 211, DECLARE LONG CONSTANT VAX$K_V670 = 211/ DECLARE LONG CONSTANT VAX$K_V4500_S = 212/ DECLARE LONG CONSTANT VAX$C_V4500_S = 212. DECLARE LONG CONSTANT VAX$K_V670_S = 212. DECLARE LONG CONSTANT VAX$C_V670_S = 212/ DECLARE LONG CONSTANT VAX$K_V4500_J = 213/ DECLARE LONG CONSTANT VAX$C_V4500_J = 213. DECLAR E LONG CONSTANT VAX$K_V670_J = 213. DECLARE LONG CONSTANT VAX$C_V670_J = 213. DECLARE LONG CONSTANT VAX$K_V520FT = 214. DECLARE LONG CONSTANT VAX$C_V520FT = 2140 DECLARE LONG CONSTANT VAX$K_VRMAXM_S = 2150 DECLARE LONG CONSTANT VAX$C_VRMAXM_S = 2150 DECLARE LONG CONSTANT VAX$K_VRMAXM_T = 2160 DECLARE LONG CONSTANT VAX$C_VRMAXM_T = 2160 DECLARE LONG CONSTANT VAX$K_VRMAXM_J = 2170 DECLARE LONG CONSTANT VAX$C_VRMAXM_J = 2170 DECLARE LONG CONSTAN T VAX$K_VRMAXS_S = 2180 DECLARE LONG CONSTANT VAX$C_VRMAXS_S = 2180 DECLARE LONG CONSTANT VAX$K_VRMAXS_T = 2190 DECLARE LONG CONSTANT VAX$C_VRMAXS_T = 2190 DECLARE LONG CONSTANT VAX$K_VRMAXS_J = 2200 DECLARE LONG CONSTANT VAX$C_VRMAXS_J = 220/ DECLARE LONG CONSTANT VAX$K_VRMAX_S = 221/ DECLARE LONG CONSTANT VAX$C_VRMAX_S = 221/ DECLARE LONG CONSTANT VAX$K_VRMAX_T = 222/ DECLARE LONG CONSTANT VAX$C_VRMAX_T = 222/ DECLARE LONG CONSTANT VAX$ K_VRMAX_J = 223/ DECLARE LONG CONSTANT VAX$C_VRMAX_J = 2230 DECLARE LONG CONSTANT VAX$K_VRMAXD_S = 2240 DECLARE LONG CONSTANT VAX$C_VRMAXD_S = 2240 DECLARE LONG CONSTANT VAX$K_VRMAXD_T = 2250 DECLARE LONG CONSTANT VAX$C_VRMAXD_T = 2250 DECLARE LONG CONSTANT VAX$K_VRMAXD_J = 2260 DECLARE LONG CONSTANT VAX$C_VRMAXD_J = 226/ DECLARE LONG CONSTANT VAX$K_VPV0S_S = 227/ DECLARE LONG CONSTANT VAX$C_VPV0S_S = 227/ DECLARE LONG CONSTANT VAX$K_VPV0 S_T = 228/ DECLARE LONG CONSTANT VAX$C_VPV0S_T = 228/ DECLARE LONG CONSTANT VAX$K_VPV0S_J = 229/ DECLARE LONG CONSTANT VAX$C_VPV0S_J = 229/ DECLARE LONG CONSTANT VAX$K_VPV1S_S = 230/ DECLARE LONG CONSTANT VAX$C_VPV1S_S = 230/ DECLARE LONG CONSTANT VAX$K_VPV1S_T = 231/ DECLARE LONG CONSTANT VAX$C_VPV1S_T = 231/ DECLARE LONG CONSTANT VAX$K_VPV1S_J = 232/ DECLARE LONG CONSTANT VAX$C_VPV1S_J = 232/ DECLARE LONG CONSTANT VAX$K_VPV2S_S = 233/ DECLARE LONG CONSTANT VAX$C_VPV2S_S = 233/ DECLARE LONG CONSTANT VAX$K_VPV2S_T = 234/ DECLARE LONG CONSTANT VAX$C_VPV2S_T = 234/ DECLARE LONG CONSTANT VAX$K_VPV2S_J = 235/ DECLARE LONG CONSTANT VAX$C_VPV2S_J = 2350 DECLARE LONG CONSTANT VAX$K_VKA46M_S = 2360 DECLARE LONG CONSTANT VAX$C_VKA46M_S = 2360 DECLARE LONG CONSTANT VAX$K_VKA46M_T = 2370 DECLARE LONG CONSTANT VAX$C_VKA46M_T = 2370 DECLARE LONG CONSTANT VAX$K_VKA46M_J = 2380  DECLARE LONG CONSTANT VAX$C_VKA46M_J = 2380 DECLARE LONG CONSTANT VAX$K_VKA46C_S = 2390 DECLARE LONG CONSTANT VAX$C_VKA46C_S = 2390 DECLARE LONG CONSTANT VAX$K_VKA46C_T = 2400 DECLARE LONG CONSTANT VAX$C_VKA46C_T = 2400 DECLARE LONG CONSTANT VAX$K_VKA46C_J = 2410 DECLARE LONG CONSTANT VAX$C_VKA46C_J = 2410 DECLARE LONG CONSTANT VAX$K_VKA46S_S = 2420 DECLARE LONG CONSTANT VAX$C_VKA46S_S = 2420 DECLARE LONG CONSTANT VAX$K_VKA46S_T = 2430 DECLARE LONG CONSTANT VAX$C_VKA46S_T = 2430 DECLARE LONG CONSTANT VAX$K_VKA46S_J = 2440 DECLARE LONG CONSTANT VAX$C_VKA46S_J = 244/ DECLARE LONG CONSTANT VAX$K_VKA46_S = 245/ DECLARE LONG CONSTANT VAX$C_VKA46_S = 245/ DECLARE LONG CONSTANT VAX$K_VKA46_T = 246/ DECLARE LONG CONSTANT VAX$C_VKA46_T = 246/ DECLARE LONG CONSTANT VAX$K_VKA46_J = 247/ DECLARE LONG CONSTANT VAX$C_VKA46_J = 247, DECLARE LONG CONSTANT VAX$C_V660 = 248, DECLARE LO NG CONSTANT VAX$K_V660 = 248. DECLARE LONG CONSTANT VAX$K_V660_S = 249. DECLARE LONG CONSTANT VAX$C_V660_S = 249. DECLARE LONG CONSTANT VAX$K_V660_J = 250. DECLARE LONG CONSTANT VAX$C_V660_J = 250- DECLARE LONG CONSTANT VAX$C_V3820 = 251- DECLARE LONG CONSTANT VAX$K_V3820 = 251. DECLARE LONG CONSTANT VAX$C_V3820L = 252. DECLARE LONG CONSTANT VAX$K_V3820L = 252/ DECLARE LONG CONSTANT VAX$K_V3820_S = 253/ DECLARE LONG CONSTANT VAX$C_V3820_S = 253/ DECLARE LONG CONSTANT VAX$K_V3820_J = 254/ DECLARE LONG CONSTANT VAX$C_V3820_J = 2540 DECLARE LONG CONSTANT VAX$K_V3820L_T = 2550 DECLARE LONG CONSTANT VAX$C_V3820L_T = 2550 DECLARE LONG CONSTANT VAX$K_V3820L_J = 2560 DECLARE LONG CONSTANT VAX$C_V3820L_J = 256- DECLARE LONG CONSTANT VAX$C_V3840 = 257- DECLARE LONG CONSTANT VAX$K_V3840 = 257/ DECLARE LONG CONSTANT VAX$K_V3840_S = 258/ DECLARE LONG CONSTANT VAX$C_V3840_S = 258.  DECLARE LONG CONSTANT VAX$C_V3840L = 259. DECLARE LONG CONSTANT VAX$K_V3840L = 2590 DECLARE LONG CONSTANT VAX$K_V3840L_T = 2600 DECLARE LONG CONSTANT VAX$C_V3840L_T = 260- DECLARE LONG CONSTANT VAX$C_V3860 = 261- DECLARE LONG CONSTANT VAX$K_V3860 = 261/ DECLARE LONG CONSTANT VAX$K_V3860_S = 262/ DECLARE LONG CONSTANT VAX$C_V3860_S = 262. DECLARE LONG CONSTANT VAX$C_V3860L = 263. DECLARE LONG CONSTANT VAX$K_V3860L = 2630 DECLARE LONG C ONSTANT VAX$K_V3860L_T = 2640 DECLARE LONG CONSTANT VAX$C_V3860L_T = 264- DECLARE LONG CONSTANT VAX$C_V3880 = 265- DECLARE LONG CONSTANT VAX$K_V3880 = 265/ DECLARE LONG CONSTANT VAX$K_V3880_S = 266/ DECLARE LONG CONSTANT VAX$C_V3880_S = 266. DECLARE LONG CONSTANT VAX$C_V3880L = 267. DECLARE LONG CONSTANT VAX$K_V3880L = 2670 DECLARE LONG CONSTANT VAX$K_V3880L_T = 2680 DECLARE LONG CONSTANT VAX$C_V3880L_T = 268- DECLARE LONG CONSTANT VAX$C_ V38A0 = 269- DECLARE LONG CONSTANT VAX$K_V38A0 = 269/ DECLARE LONG CONSTANT VAX$K_V38A0_S = 270/ DECLARE LONG CONSTANT VAX$C_V38A0_S = 270- DECLARE LONG CONSTANT VAX$C_VPV1A = 271- DECLARE LONG CONSTANT VAX$K_VPV1A = 271. DECLARE LONG CONSTANT VAX$C_VPV1AW = 272. DECLARE LONG CONSTANT VAX$K_VPV1AW = 272. DECLARE LONG CONSTANT VAX$C_VPV1AD = 273. DECLARE LONG CONSTANT VAX$K_VPV1AD = 273/ DECLARE LONG CONSTANT VAX$C_VPV1A_S = 274/ DECLARE LONG CONSTANT VAX$K_VPV1A_S = 274/ DECLARE LONG CONSTANT VAX$K_VPV1A_J = 275/ DECLARE LONG CONSTANT VAX$C_VPV1A_J = 2750 DECLARE LONG CONSTANT VAX$K_VPV1AW_T = 2760 DECLARE LONG CONSTANT VAX$C_VPV1AW_T = 2760 DECLARE LONG CONSTANT VAX$K_VPV1AW_J = 2770 DECLARE LONG CONSTANT VAX$C_VPV1AW_J = 2770 DECLARE LONG CONSTANT VAX$K_VPV1AD_T = 2780 DECLARE LONG CONSTANT VAX$C_VPV1AD_T = 2780 DECLARE LONG CONSTANT VAX$K_VPV1AD_J = 2790 DECLAR E LONG CONSTANT VAX$C_VPV1AD_J = 279. DECLARE LONG CONSTANT VAX$K_VPV1AS = 280. DECLARE LONG CONSTANT VAX$C_VPV1AS = 2800 DECLARE LONG CONSTANT VAX$K_VPV1AS_T = 2810 DECLARE LONG CONSTANT VAX$C_VPV1AS_T = 2810 DECLARE LONG CONSTANT VAX$K_VPV1AS_J = 2820 DECLARE LONG CONSTANT VAX$C_VPV1AS_J = 282, DECLARE LONG CONSTANT VAX$C_V690 = 283, DECLARE LONG CONSTANT VAX$K_V690 = 283. DECLARE LONG CONSTANT VAX$K_V690_S = 284. DECLARE LONG CONSTANT VAX$ C_V690_S = 284. DECLARE LONG CONSTANT VAX$K_V690_J = 285. DECLARE LONG CONSTANT VAX$C_V690_J = 285, DECLARE LONG CONSTANT VAX$C_V680 = 286, DECLARE LONG CONSTANT VAX$K_V680 = 286. DECLARE LONG CONSTANT VAX$K_V680_S = 287. DECLARE LONG CONSTANT VAX$C_V680_S = 287. DECLARE LONG CONSTANT VAX$K_V680_J = 288. DECLARE LONG CONSTANT VAX$C_V680_J = 2880 DECLARE LONG CONSTANT VAX$K_V520FT_S = 2890 DECLARE LONG CONSTANT VAX$C_V520FT_S = 2890 DECL ARE LONG CONSTANT VAX$K_VFT110_T = 2900 DECLARE LONG CONSTANT VAX$C_VFT110_T = 2900 DECLARE LONG CONSTANT VAX$K_VFT110_S = 2910 DECLARE LONG CONSTANT VAX$C_VFT110_S = 2910 DECLARE LONG CONSTANT VAX$K_VFT210_T = 2920 DECLARE LONG CONSTANT VAX$C_VFT210_T = 2920 DECLARE LONG CONSTANT VAX$K_VFT210_S = 2930 DECLARE LONG CONSTANT VAX$C_VFT210_S = 2930 DECLARE LONG CONSTANT VAX$K_V1302_1T = 2940 DECLARE LONG CONSTANT VAX$C_V1302_1T = 2940 DECLARE LO NG CONSTANT VAX$K_V1302_2T = 2950 DECLARE LONG CONSTANT VAX$C_V1302_2T = 2950 DECLARE LONG CONSTANT VAX$K_V1302_3T = 2960 DECLARE LONG CONSTANT VAX$C_V1302_3T = 2960 DECLARE LONG CONSTANT VAX$K_V1302_4T = 2970 DECLARE LONG CONSTANT VAX$C_V1302_4T = 2970 DECLARE LONG CONSTANT VAX$K_V1302_5T = 2980 DECLARE LONG CONSTANT VAX$C_V1302_5T = 2980 DECLARE LONG CONSTANT VAX$K_V1302_6T = 2990 DECLARE LONG CONSTANT VAX$C_V1302_6T = 2990 DECLARE LONG CON STANT VAX$K_V1302_7T = 3000 DECLARE LONG CONSTANT VAX$C_V1302_7T = 3000 DECLARE LONG CONSTANT VAX$K_V1302_8T = 3010 DECLARE LONG CONSTANT VAX$C_V1302_8T = 3010 DECLARE LONG CONSTANT VAX$K_V1302_1S = 3020 DECLARE LONG CONSTANT VAX$C_V1302_1S = 3020 DECLARE LONG CONSTANT VAX$K_V1302_2S = 3030 DECLARE LONG CONSTANT VAX$C_V1302_2S = 3030 DECLARE LONG CONSTANT VAX$K_V1302_3S = 3040 DECLARE LONG CONSTANT VAX$C_V1302_3S = 3040 DECLARE LONG CONSTANT VAX$K_V1302_4S = 3050 DECLARE LONG CONSTANT VAX$C_V1302_4S = 3050 DECLARE LONG CONSTANT VAX$K_V1302_5S = 3060 DECLARE LONG CONSTANT VAX$C_V1302_5S = 3060 DECLARE LONG CONSTANT VAX$K_V1302_6S = 3070 DECLARE LONG CONSTANT VAX$C_V1302_6S = 3070 DECLARE LONG CONSTANT VAX$K_V1302_7S = 3080 DECLARE LONG CONSTANT VAX$C_V1302_7S = 3080 DECLARE LONG CONSTANT VAX$K_V1302_8S = 3090 DECLARE LONG CONSTANT VAX$C_V1302_8S = 3090 DECLARE LONG CONSTANT VAX$K_ V1302_1J = 3100 DECLARE LONG CONSTANT VAX$C_V1302_1J = 3100 DECLARE LONG CONSTANT VAX$K_V9AQII10 = 3110 DECLARE LONG CONSTANT VAX$C_V9AQII10 = 3110 DECLARE LONG CONSTANT VAX$K_V9AQII20 = 3120 DECLARE LONG CONSTANT VAX$C_V9AQII20 = 3120 DECLARE LONG CONSTANT VAX$K_V9AQII30 = 3130 DECLARE LONG CONSTANT VAX$C_V9AQII30 = 3130 DECLARE LONG CONSTANT VAX$K_V9AQII40 = 3140 DECLARE LONG CONSTANT VAX$C_V9AQII40 = 3140 DECLARE LONG CONSTANT VAX$K_V9ARII 10 = 3150 DECLARE LONG CONSTANT VAX$C_V9ARII10 = 3150 DECLARE LONG CONSTANT VAX$K_V9ARII20 = 3160 DECLARE LONG CONSTANT VAX$C_V9ARII20 = 3161 DECLARE LONG CONSTANT VAX$K_V9AQIII10 = 3171 DECLARE LONG CONSTANT VAX$C_V9AQIII10 = 3171 DECLARE LONG CONSTANT VAX$K_V9AQIII20 = 3181 DECLARE LONG CONSTANT VAX$C_V9AQIII20 = 3181 DECLARE LONG CONSTANT VAX$K_V9AQIII30 = 3191 DECLARE LONG CONSTANT VAX$C_V9AQIII30 = 3191 DECLARE LONG CONSTANT VAX$K_ V9AQIII40 = 3201 DECLARE LONG CONSTANT VAX$C_V9AQIII40 = 3201 DECLARE LONG CONSTANT VAX$K_V9ARIII10 = 3211 DECLARE LONG CONSTANT VAX$C_V9ARIII10 = 3211 DECLARE LONG CONSTANT VAX$K_V9ARIII20 = 3221 DECLARE LONG CONSTANT VAX$C_V9ARIII20 = 3220 DECLARE LONG CONSTANT VAX$K_VFT410_T = 3230 DECLARE LONG CONSTANT VAX$C_VFT410_T = 3230 DECLARE LONG CONSTANT VAX$K_VFT410_S = 3240 DECLARE LONG CONSTANT VAX$C_VFT410_S = 3240 DECLARE LONG CONSTANT VAX$K_VFT510_T = 3250 DECLARE LONG CONSTANT VAX$C_VFT510_T = 3250 DECLARE LONG CONSTANT VAX$K_VFT510_S = 3260 DECLARE LONG CONSTANT VAX$C_VFT510_S = 3260 DECLARE LONG CONSTANT VAX$K_VFT610_T = 3270 DECLARE LONG CONSTANT VAX$C_VFT610_T = 3270 DECLARE LONG CONSTANT VAX$K_VFT610_S = 3280 DECLARE LONG CONSTANT VAX$C_VFT610_S = 3280 DECLARE LONG CONSTANT VAX$K_VFT612_T = 3290 DECLARE LONG CONSTANT VAX$C_VFT612_T = 3290 DECLARE LONG CONSTANT VAX$K_ VFT612_S = 3300 DECLARE LONG CONSTANT VAX$C_VFT612_S = 3300 DECLARE LONG CONSTANT VAX$K_VFT710_T = 3310 DECLARE LONG CONSTANT VAX$C_VFT710_T = 3310 DECLARE LONG CONSTANT VAX$K_VFT710_S = 3320 DECLARE LONG CONSTANT VAX$C_VFT710_S = 3320 DECLARE LONG CONSTANT VAX$K_VFT712_T = 3330 DECLARE LONG CONSTANT VAX$C_VFT712_T = 3330 DECLARE LONG CONSTANT VAX$K_VFT712_S = 3340 DECLARE LONG CONSTANT VAX$C_VFT712_S = 334/ DECLARE LONG CONSTANT VAX$K_VKA48_ T = 335/ DECLARE LONG CONSTANT VAX$C_VKA48_T = 335/ DECLARE LONG CONSTANT VAX$K_VKA48_S = 336/ DECLARE LONG CONSTANT VAX$C_VKA48_S = 336/ DECLARE LONG CONSTANT VAX$K_VKA48_J = 337/ DECLARE LONG CONSTANT VAX$C_VKA48_J = 3370 DECLARE LONG CONSTANT VAX$K_VKA48W_T = 3380 DECLARE LONG CONSTANT VAX$C_VKA48W_T = 3380 DECLARE LONG CONSTANT VAX$K_VKA48W_S = 3390 DECLARE LONG CONSTANT VAX$C_VKA48W_S = 3390 DECLARE LONG CONSTANT VAX$K_VKA48W_J = 3 400 DECLARE LONG CONSTANT VAX$C_VKA48W_J = 3400 DECLARE LONG CONSTANT VAX$K_V9AR10_S = 3410 DECLARE LONG CONSTANT VAX$C_V9AR10_S = 3410 DECLARE LONG CONSTANT VAX$K_V9AR20_S = 3420 DECLARE LONG CONSTANT VAX$C_V9AR20_S = 3420 DECLARE LONG CONSTANT VAX$K_V9AQ10_S = 3430 DECLARE LONG CONSTANT VAX$C_V9AQ10_S = 3430 DECLARE LONG CONSTANT VAX$K_V9AQ20_S = 3440 DECLARE LONG CONSTANT VAX$C_V9AQ20_S = 3440 DECLARE LONG CONSTANT VAX$K_V9AQ30_S = 3450  DECLARE LONG CONSTANT VAX$C_V9AQ30_S = 3450 DECLARE LONG CONSTANT VAX$K_V9AQ40_S = 3460 DECLARE LONG CONSTANT VAX$C_V9AQ40_S = 3462 DECLARE LONG CONSTANT VAX$K_V9ARII10_S = 3472 DECLARE LONG CONSTANT VAX$C_V9ARII10_S = 3472 DECLARE LONG CONSTANT VAX$K_V9ARII20_S = 3482 DECLARE LONG CONSTANT VAX$C_V9ARII20_S = 3482 DECLARE LONG CONSTANT VAX$K_V9AQII10_S = 3492 DECLARE LONG CONSTANT VAX$C_V9AQII10_S = 3492 DECLARE LONG CONSTANT VAX$K_V9AQII20_S =  3502 DECLARE LONG CONSTANT VAX$C_V9AQII20_S = 3502 DECLARE LONG CONSTANT VAX$K_V9AQII30_S = 3512 DECLARE LONG CONSTANT VAX$C_V9AQII30_S = 3512 DECLARE LONG CONSTANT VAX$K_V9AQII40_S = 3522 DECLARE LONG CONSTANT VAX$C_V9AQII40_S = 3523 DECLARE LONG CONSTANT VAX$K_V9ARIII10_S = 3533 DECLARE LONG CONSTANT VAX$C_V9ARIII10_S = 3533 DECLARE LONG CONSTANT VAX$K_V9ARIII20_S = 3543 DECLARE LONG CONSTANT VAX$C_V9ARIII20_S = 3543 DECLARE LONG CONST ANT VAX$K_V9AQIII10_S = 3553 DECLARE LONG CONSTANT VAX$C_V9AQIII10_S = 3553 DECLARE LONG CONSTANT VAX$K_V9AQIII20_S = 3563 DECLARE LONG CONSTANT VAX$C_V9AQIII20_S = 3563 DECLARE LONG CONSTANT VAX$K_V9AQIII30_S = 3573 DECLARE LONG CONSTANT VAX$C_V9AQIII30_S = 3573 DECLARE LONG CONSTANT VAX$K_V9AQIII40_S = 3583 DECLARE LONG CONSTANT VAX$C_V9AQIII40_S = 3580 DECLARE LONG CONSTANT VAX$K_V1701_1T = 3590 DECLARE LONG CONSTANT VAX$C_V1701_1T = 359 0 DECLARE LONG CONSTANT VAX$K_V1701_2T = 3600 DECLARE LONG CONSTANT VAX$C_V1701_2T = 3600 DECLARE LONG CONSTANT VAX$K_V1701_3T = 3610 DECLARE LONG CONSTANT VAX$C_V1701_3T = 3610 DECLARE LONG CONSTANT VAX$K_V1701_4T = 3620 DECLARE LONG CONSTANT VAX$C_V1701_4T = 3620 DECLARE LONG CONSTANT VAX$K_V1701_5T = 3630 DECLARE LONG CONSTANT VAX$C_V1701_5T = 3630 DECLARE LONG CONSTANT VAX$K_V1701_6T = 3640 DECLARE LONG CONSTANT VAX$C_V1701_6T = 3640  DECLARE LONG CONSTANT VAX$K_V1701_7T = 3650 DECLARE LONG CONSTANT VAX$C_V1701_7T = 3650 DECLARE LONG CONSTANT VAX$K_V1701_8T = 3660 DECLARE LONG CONSTANT VAX$C_V1701_8T = 3660 DECLARE LONG CONSTANT VAX$K_V1701_1S = 3670 DECLARE LONG CONSTANT VAX$C_V1701_1S = 3670 DECLARE LONG CONSTANT VAX$K_V1701_2S = 3680 DECLARE LONG CONSTANT VAX$C_V1701_2S = 3680 DECLARE LONG CONSTANT VAX$K_V1701_3S = 3690 DECLARE LONG CONSTANT VAX$C_V1701_3S = 3690 DECL ARE LONG CONSTANT VAX$K_V1701_4S = 3700 DECLARE LONG CONSTANT VAX$C_V1701_4S = 3700 DECLARE LONG CONSTANT VAX$K_V1701_5S = 3710 DECLARE LONG CONSTANT VAX$C_V1701_5S = 3710 DECLARE LONG CONSTANT VAX$K_V1701_6S = 3720 DECLARE LONG CONSTANT VAX$C_V1701_6S = 3720 DECLARE LONG CONSTANT VAX$K_V1701_7S = 3730 DECLARE LONG CONSTANT VAX$C_V1701_7S = 3730 DECLARE LONG CONSTANT VAX$K_V1701_8S = 3740 DECLARE LONG CONSTANT VAX$C_V1701_8S = 3740 DECLARE LO NG CONSTANT VAX$K_V1701_1J = 3750 DECLARE LONG CONSTANT VAX$C_V1701_1J = 3750 DECLARE LONG CONSTANT VAX$K_VKA49C_S = 3760 DECLARE LONG CONSTANT VAX$C_VKA49C_S = 3760 DECLARE LONG CONSTANT VAX$K_VKA49C_T = 3770 DECLARE LONG CONSTANT VAX$C_VKA49C_T = 3770 DECLARE LONG CONSTANT VAX$K_VKA49C_J = 3780 DECLARE LONG CONSTANT VAX$C_VKA49C_J = 3780 DECLARE LONG CONSTANT VAX$K_VKA49S_S = 3790 DECLARE LONG CONSTANT VAX$C_VKA49S_S = 3790 DECLARE LONG CON STANT VAX$K_VKA49S_T = 3800 DECLARE LONG CONSTANT VAX$C_VKA49S_T = 3800 DECLARE LONG CONSTANT VAX$K_VKA49S_J = 3810 DECLARE LONG CONSTANT VAX$C_VKA49S_J = 381- DECLARE LONG CONSTANT VAX$C_VKA50 = 382- DECLARE LONG CONSTANT VAX$K_VKA50 = 382/ DECLARE LONG CONSTANT VAX$K_VKA50_S = 383/ DECLARE LONG CONSTANT VAX$C_VKA50_S = 383/ DECLARE LONG CONSTANT VAX$K_VKA50_J = 384/ DECLARE LONG CONSTANT VAX$C_VKA50_J = 384- DECLARE LONG CONSTANT VAX$ C_VKA51 = 385- DECLARE LONG CONSTANT VAX$K_VKA51 = 385/ DECLARE LONG CONSTANT VAX$K_VKA51_S = 386/ DECLARE LONG CONSTANT VAX$C_VKA51_S = 386/ DECLARE LONG CONSTANT VAX$K_VKA51_J = 387/ DECLARE LONG CONSTANT VAX$C_VKA51_J = 387- DECLARE LONG CONSTANT VAX$C_VKA52 = 388- DECLARE LONG CONSTANT VAX$K_VKA52 = 388/ DECLARE LONG CONSTANT VAX$K_VKA52_S = 389/ DECLARE LONG CONSTANT VAX$C_VKA52_S = 389/ DECLARE LONG CONSTANT VAX$K_VKA52_J = 39 0/ DECLARE LONG CONSTANT VAX$C_VKA52_J = 390- DECLARE LONG CONSTANT VAX$C_VKA53 = 391- DECLARE LONG CONSTANT VAX$K_VKA53 = 391/ DECLARE LONG CONSTANT VAX$K_VKA53_S = 392/ DECLARE LONG CONSTANT VAX$C_VKA53_S = 392/ DECLARE LONG CONSTANT VAX$K_VKA53_J = 393/ DECLARE LONG CONSTANT VAX$C_VKA53_J = 393. DECLARE LONG CONSTANT VAX$C_VKA675 = 394. DECLARE LONG CONSTANT VAX$K_VKA675 = 3940 DECLARE LONG CONSTANT VAX$K_VKA675_S = 3950 DECL ARE LONG CONSTANT VAX$C_VKA675_S = 3950 DECLARE LONG CONSTANT VAX$K_VKA675_J = 3960 DECLARE LONG CONSTANT VAX$C_VKA675_J = 3960 DECLARE LONG CONSTANT VAX$K_V1703_1T = 3970 DECLARE LONG CONSTANT VAX$C_V1703_1T = 3970 DECLARE LONG CONSTANT VAX$K_V1703_2T = 3980 DECLARE LONG CONSTANT VAX$C_V1703_2T = 3980 DECLARE LONG CONSTANT VAX$K_V1703_3T = 3990 DECLARE LONG CONSTANT VAX$C_V1703_3T = 3990 DECLARE LONG CONSTANT VAX$K_V1703_4T = 4000 DECLARE LO NG CONSTANT VAX$C_V1703_4T = 4000 DECLARE LONG CONSTANT VAX$K_V1703_5T = 4010 DECLARE LONG CONSTANT VAX$C_V1703_5T = 4010 DECLARE LONG CONSTANT VAX$K_V1703_6T = 4020 DECLARE LONG CONSTANT VAX$C_V1703_6T = 4020 DECLARE LONG CONSTANT VAX$K_V1703_7T = 4030 DECLARE LONG CONSTANT VAX$C_V1703_7T = 4030 DECLARE LONG CONSTANT VAX$K_V1703_8T = 4040 DECLARE LONG CONSTANT VAX$C_V1703_8T = 4040 DECLARE LONG CONSTANT VAX$K_V1703_1S = 4050 DECLARE LONG CON STANT VAX$C_V1703_1S = 4050 DECLARE LONG CONSTANT VAX$K_V1703_2S = 4060 DECLARE LONG CONSTANT VAX$C_V1703_2S = 4060 DECLARE LONG CONSTANT VAX$K_V1703_3S = 4070 DECLARE LONG CONSTANT VAX$C_V1703_3S = 4070 DECLARE LONG CONSTANT VAX$K_V1703_4S = 4080 DECLARE LONG CONSTANT VAX$C_V1703_4S = 4080 DECLARE LONG CONSTANT VAX$K_V1703_5S = 4090 DECLARE LONG CONSTANT VAX$C_V1703_5S = 4090 DECLARE LONG CONSTANT VAX$K_V1703_6S = 4100 DECLARE LONG CONSTANT VAX$C_V1703_6S = 4100 DECLARE LONG CONSTANT VAX$K_V1703_7S = 4110 DECLARE LONG CONSTANT VAX$C_V1703_7S = 4110 DECLARE LONG CONSTANT VAX$K_V1703_8S = 4120 DECLARE LONG CONSTANT VAX$C_V1703_8S = 4120 DECLARE LONG CONSTANT VAX$K_V1703_1J = 4130 DECLARE LONG CONSTANT VAX$C_V1703_1J = 4130 DECLARE LONG CONSTANT VAX$K_VPCVAX_T = 4140 DECLARE LONG CONSTANT VAX$C_VPCVAX_T = 4140 DECLARE LONG CONSTANT VAX$K_VPCVAX_J = 4150 DECLARE LONG CONSTANT VAX$C_ VPCVAX_J = 4150 DECLARE LONG CONSTANT VAX$K_V1704_1T = 4160 DECLARE LONG CONSTANT VAX$C_V1704_1T = 4160 DECLARE LONG CONSTANT VAX$K_V1704_2T = 4170 DECLARE LONG CONSTANT VAX$C_V1704_2T = 4170 DECLARE LONG CONSTANT VAX$K_V1704_3T = 4180 DECLARE LONG CONSTANT VAX$C_V1704_3T = 4180 DECLARE LONG CONSTANT VAX$K_V1704_4T = 4190 DECLARE LONG CONSTANT VAX$C_V1704_4T = 4190 DECLARE LONG CONSTANT VAX$K_V1704_5T = 4200 DECLARE LONG CONSTANT VAX$C_V1704_ 5T = 4200 DECLARE LONG CONSTANT VAX$K_V1704_6T = 4210 DECLARE LONG CONSTANT VAX$C_V1704_6T = 4210 DECLARE LONG CONSTANT VAX$K_V1704_7T = 4220 DECLARE LONG CONSTANT VAX$C_V1704_7T = 4220 DECLARE LONG CONSTANT VAX$K_V1704_8T = 4230 DECLARE LONG CONSTANT VAX$C_V1704_8T = 4230 DECLARE LONG CONSTANT VAX$K_V1704_1S = 4240 DECLARE LONG CONSTANT VAX$C_V1704_1S = 4240 DECLARE LONG CONSTANT VAX$K_V1704_2S = 4250 DECLARE LONG CONSTANT VAX$C_V1704_2S = 4 250 DECLARE LONG CONSTANT VAX$K_V1704_3S = 4260 DECLARE LONG CONSTANT VAX$C_V1704_3S = 4260 DECLARE LONG CONSTANT VAX$K_V1704_4S = 4270 DECLARE LONG CONSTANT VAX$C_V1704_4S = 4270 DECLARE LONG CONSTANT VAX$K_V1704_5S = 4280 DECLARE LONG CONSTANT VAX$C_V1704_5S = 4280 DECLARE LONG CONSTANT VAX$K_V1704_6S = 4290 DECLARE LONG CONSTANT VAX$C_V1704_6S = 4290 DECLARE LONG CONSTANT VAX$K_V1704_7S = 4300 DECLARE LONG CONSTANT VAX$C_V1704_7S = 4300  DECLARE LONG CONSTANT VAX$K_V1704_8S = 4310 DECLARE LONG CONSTANT VAX$C_V1704_8S = 4310 DECLARE LONG CONSTANT VAX$K_V1704_1J = 4320 DECLARE LONG CONSTANT VAX$C_V1704_1J = 4320 DECLARE LONG CONSTANT VAX$K_V1705_1T = 4330 DECLARE LONG CONSTANT VAX$C_V1705_1T = 4330 DECLARE LONG CONSTANT VAX$K_V1705_2T = 4340 DECLARE LONG CONSTANT VAX$C_V1705_2T = 4340 DECLARE LONG CONSTANT VAX$K_V1705_3T = 4350 DECLARE LONG CONSTANT VAX$C_V1705_3T = 4350 DE CLARE LONG CONSTANT VAX$K_V1705_4T = 4360 DECLARE LONG CONSTANT VAX$C_V1705_4T = 4360 DECLARE LONG CONSTANT VAX$K_V1705_5T = 4370 DECLARE LONG CONSTANT VAX$C_V1705_5T = 4370 DECLARE LONG CONSTANT VAX$K_V1705_6T = 4380 DECLARE LONG CONSTANT VAX$C_V1705_6T = 4380 DECLARE LONG CONSTANT VAX$K_V1705_7T = 4390 DECLARE LONG CONSTANT VAX$C_V1705_7T = 4390 DECLARE LONG CONSTANT VAX$K_V1705_8T = 4400 DECLARE LONG CONSTANT VAX$C_V1705_8T = 4400 DECLARE LONG CONSTANT VAX$K_V1705_1S = 4410 DECLARE LONG CONSTANT VAX$C_V1705_1S = 4410 DECLARE LONG CONSTANT VAX$K_V1705_2S = 4420 DECLARE LONG CONSTANT VAX$C_V1705_2S = 4420 DECLARE LONG CONSTANT VAX$K_V1705_3S = 4430 DECLARE LONG CONSTANT VAX$C_V1705_3S = 4430 DECLARE LONG CONSTANT VAX$K_V1705_4S = 4440 DECLARE LONG CONSTANT VAX$C_V1705_4S = 4440 DECLARE LONG CONSTANT VAX$K_V1705_5S = 4450 DECLARE LONG CONSTANT VAX$C_V1705_5S = 4450 DECLARE LONG C ONSTANT VAX$K_V1705_6S = 4460 DECLARE LONG CONSTANT VAX$C_V1705_6S = 4460 DECLARE LONG CONSTANT VAX$K_V1705_7S = 4470 DECLARE LONG CONSTANT VAX$C_V1705_7S = 4470 DECLARE LONG CONSTANT VAX$K_V1705_8S = 4480 DECLARE LONG CONSTANT VAX$C_V1705_8S = 4480 DECLARE LONG CONSTANT VAX$K_V1705_1J = 4490 DECLARE LONG CONSTANT VAX$C_V1705_1J = 449. DECLARE LONG CONSTANT VAX$C_VKA676 = 450. DECLARE LONG CONSTANT VAX$K_VKA676 = 4500 DECLARE LONG CONSTANT VA X$K_VKA676_S = 4510 DECLARE LONG CONSTANT VAX$C_VKA676_S = 4510 DECLARE LONG CONSTANT VAX$K_VKA676_J = 4520 DECLARE LONG CONSTANT VAX$C_VKA676_J = 452. DECLARE LONG CONSTANT VAX$C_VKA681 = 453. DECLARE LONG CONSTANT VAX$K_VKA681 = 4530 DECLARE LONG CONSTANT VAX$K_VKA681_S = 4540 DECLARE LONG CONSTANT VAX$C_VKA681_S = 4540 DECLARE LONG CONSTANT VAX$K_VKA681_J = 4550 DECLARE LONG CONSTANT VAX$C_VKA681_J = 455. DECLARE LONG CONSTANT VAX$C_VKA691  = 456. DECLARE LONG CONSTANT VAX$K_VKA691 = 4560 DECLARE LONG CONSTANT VAX$K_VKA691_S = 4570 DECLARE LONG CONSTANT VAX$C_VKA691_S = 4570 DECLARE LONG CONSTANT VAX$K_VKA691_J = 4580 DECLARE LONG CONSTANT VAX$C_VKA691_J = 458. DECLARE LONG CONSTANT VAX$C_VKA692 = 459. DECLARE LONG CONSTANT VAX$K_VKA692 = 4590 DECLARE LONG CONSTANT VAX$K_VKA692_S = 4600 DECLARE LONG CONSTANT VAX$C_VKA692_S = 4600 DECLARE LONG CONSTANT VAX$K_VKA692_J = 4610  DECLARE LONG CONSTANT VAX$C_VKA692_J = 461. DECLARE LONG CONSTANT VAX$C_VKA600 = 462. DECLARE LONG CONSTANT VAX$K_VKA600 = 4620 DECLARE LONG CONSTANT VAX$K_VKA600_S = 4630 DECLARE LONG CONSTANT VAX$C_VKA600_S = 4630 DECLARE LONG CONSTANT VAX$K_VKA600_J = 4640 DECLARE LONG CONSTANT VAX$C_VKA600_J = 464. DECLARE LONG CONSTANT VAX$C_VKA605 = 465. DECLARE LONG CONSTANT VAX$K_VKA605 = 4650 DECLARE LONG CONSTANT VAX$K_VKA605_S = 4660 DECLARE LONG  CONSTANT VAX$C_VKA605_S = 4660 DECLARE LONG CONSTANT VAX$K_VKA605_J = 4670 DECLARE LONG CONSTANT VAX$C_VKA605_J = 467. DECLARE LONG CONSTANT VAX$C_VKA52A = 468. DECLARE LONG CONSTANT VAX$K_VKA52A = 4680 DECLARE LONG CONSTANT VAX$K_VKA52A_S = 4690 DECLARE LONG CONSTANT VAX$C_VKA52A_S = 4690 DECLARE LONG CONSTANT VAX$K_VKA52A_J = 4700 DECLARE LONG CONSTANT VAX$C_VKA52A_J = 4700 DECLARE LONG CONSTANT VAX$K_VFT810_T = 4710 DECLARE LONG CONSTANT VAX$C_VFT810_T = 4710 DECLARE LONG CONSTANT VAX$K_VFT810_S = 4720 DECLARE LONG CONSTANT VAX$C_VFT810_S = 4720 DECLARE LONG CONSTANT VAX$K_VFT812_T = 4730 DECLARE LONG CONSTANT VAX$C_VFT812_T = 4730 DECLARE LONG CONSTANT VAX$K_VFT812_S = 4740 DECLARE LONG CONSTANT VAX$C_VFT812_S = 4741 DECLARE LONG CONSTANT VAX$K_VKA49AC_S = 4751 DECLARE LONG CONSTANT VAX$C_VKA49AC_S = 4751 DECLARE LONG CONSTANT VAX$K_VKA49AC_T = 4761 DECLARE LONG CONSTANT VAX$C_VKA49AC_T = 4761 DECLARE LONG CONSTANT VAX$K_VKA49AC_J = 4771 DECLARE LONG CONSTANT VAX$C_VKA49AC_J = 4771 DECLARE LONG CONSTANT VAX$K_VKA49AS_S = 4781 DECLARE LONG CONSTANT VAX$C_VKA49AS_S = 4781 DECLARE LONG CONSTANT VAX$K_VKA49AS_T = 4791 DECLARE LONG CONSTANT VAX$C_VKA49AS_T = 4791 DECLARE LONG CONSTANT VAX$K_VKA49AS_J = 4801 DECLARE LONG CONSTANT VAX$C_VKA49AS_J = 4801 DECLARE LONG CONSTANT VAX$K_VKA49BC_S = 4811 DECLARE LONG CONSTANT VAX$C_VKA49BC_S = 4811 DECLARE LONG CONSTANT VAX$K_VKA49BC_T = 4821 DECLARE LONG CONSTANT VAX$C_VKA49BC_T = 4821 DECLARE LONG CONSTANT VAX$K_VKA49BC_J = 4831 DECLARE LONG CONSTANT VAX$C_VKA49BC_J = 4831 DECLARE LONG CONSTANT VAX$K_VKA49BS_S = 4841 DECLARE LONG CONSTANT VAX$C_VKA49BS_S = 4841 DECLARE LONG CONSTANT VAX$K_VKA49BS_T = 4851 DECLARE LONG CONSTANT VAX$C_VKA49BS_T = 4851 DECLARE LONG CONSTANT VAX$K_VKA49BS_J = 4861  DECLARE LONG CONSTANT VAX$C_VKA49BS_J = 486- DECLARE LONG CONSTANT VAX$C_VKA54 = 487- DECLARE LONG CONSTANT VAX$K_VKA54 = 487/ DECLARE LONG CONSTANT VAX$K_VKA54_S = 488/ DECLARE LONG CONSTANT VAX$C_VKA54_S = 488/ DECLARE LONG CONSTANT VAX$K_VKA54_J = 489/ DECLARE LONG CONSTANT VAX$C_VKA54_J = 489- DECLARE LONG CONSTANT VAX$C_VKA55 = 490- DECLARE LONG CONSTANT VAX$K_VKA55 = 490/ DECLARE LONG CONSTANT VAX$K_VKA55_S = 491/ DECLAR E LONG CONSTANT VAX$C_VKA55_S = 491/ DECLARE LONG CONSTANT VAX$K_VKA55_J = 492/ DECLARE LONG CONSTANT VAX$C_VKA55_J = 492- DECLARE LONG CONSTANT VAX$C_VKA56 = 493- DECLARE LONG CONSTANT VAX$K_VKA56 = 493/ DECLARE LONG CONSTANT VAX$K_VKA56_S = 494/ DECLARE LONG CONSTANT VAX$C_VKA56_S = 494/ DECLARE LONG CONSTANT VAX$K_VKA56_J = 495/ DECLARE LONG CONSTANT VAX$C_VKA56_J = 495. DECLARE LONG CONSTANT VAX$C_VKA694 = 496. DECLARE LONG CONST ANT VAX$K_VKA694 = 4960 DECLARE LONG CONSTANT VAX$K_VKA694_S = 4970 DECLARE LONG CONSTANT VAX$C_VKA694_S = 4970 DECLARE LONG CONSTANT VAX$K_VKA694_J = 4980 DECLARE LONG CONSTANT VAX$C_VKA694_J = 4980 DECLARE LONG CONSTANT VAX$K_V1706_1T = 4990 DECLARE LONG CONSTANT VAX$C_V1706_1T = 4990 DECLARE LONG CONSTANT VAX$K_V1706_2T = 5000 DECLARE LONG CONSTANT VAX$C_V1706_2T = 5000 DECLARE LONG CONSTANT VAX$K_V1706_3T = 5010 DECLARE LONG CONSTANT VAX$ C_V1706_3T = 5010 DECLARE LONG CONSTANT VAX$K_V1706_4T = 5020 DECLARE LONG CONSTANT VAX$C_V1706_4T = 5020 DECLARE LONG CONSTANT VAX$K_V1706_5T = 5030 DECLARE LONG CONSTANT VAX$C_V1706_5T = 5030 DECLARE LONG CONSTANT VAX$K_V1706_6T = 5040 DECLARE LONG CONSTANT VAX$C_V1706_6T = 5040 DECLARE LONG CONSTANT VAX$K_V1706_7T = 5050 DECLARE LONG CONSTANT VAX$C_V1706_7T = 5050 DECLARE LONG CONSTANT VAX$K_V1706_8T = 5060 DECLARE LONG CONSTANT VAX$C_V170 6_8T = 5060 DECLARE LONG CONSTANT VAX$K_V1706_1S = 5070 DECLARE LONG CONSTANT VAX$C_V1706_1S = 5070 DECLARE LONG CONSTANT VAX$K_V1706_2S = 5080 DECLARE LONG CONSTANT VAX$C_V1706_2S = 5080 DECLARE LONG CONSTANT VAX$K_V1706_3S = 5090 DECLARE LONG CONSTANT VAX$C_V1706_3S = 5090 DECLARE LONG CONSTANT VAX$K_V1706_4S = 5100 DECLARE LONG CONSTANT VAX$C_V1706_4S = 5100 DECLARE LONG CONSTANT VAX$K_V1706_5S = 5110 DECLARE LONG CONSTANT VAX$C_V1706_5S =  5110 DECLARE LONG CONSTANT VAX$K_V1706_6S = 5120 DECLARE LONG CONSTANT VAX$C_V1706_6S = 5120 DECLARE LONG CONSTANT VAX$K_V1706_7S = 5130 DECLARE LONG CONSTANT VAX$C_V1706_7S = 5130 DECLARE LONG CONSTANT VAX$K_V1706_8S = 5140 DECLARE LONG CONSTANT VAX$C_V1706_8S = 5140 DECLARE LONG CONSTANT VAX$K_V1706_1J = 5150 DECLARE LONG CONSTANT VAX$C_V1706_1J = 5150 DECLARE LONG CONSTANT VAX$K_V1707_1T = 5160 DECLARE LONG CONSTANT VAX$C_V1707_1T = 5160  DECLARE LONG CONSTANT VAX$K_V1707_2T = 5170 DECLARE LONG CONSTANT VAX$C_V1707_2T = 5170 DECLARE LONG CONSTANT VAX$K_V1707_3T = 5180 DECLARE LONG CONSTANT VAX$C_V1707_3T = 5180 DECLARE LONG CONSTANT VAX$K_V1707_4T = 5190 DECLARE LONG CONSTANT VAX$C_V1707_4T = 5190 DECLARE LONG CONSTANT VAX$K_V1707_5T = 5200 DECLARE LONG CONSTANT VAX$C_V1707_5T = 5200 DECLARE LONG CONSTANT VAX$K_V1707_6T = 5210 DECLARE LONG CONSTANT VAX$C_V1707_6T = 5210 DECLARE LONG CONSTANT VAX$K_V1707_7T = 5220 DECLARE LONG CONSTANT VAX$C_V1707_7T = 5220 DECLARE LONG CONSTANT VAX$K_V1707_8T = 5230 DECLARE LONG CONSTANT VAX$C_V1707_8T = 5230 DECLARE LONG CONSTANT VAX$K_V1707_1S = 5240 DECLARE LONG CONSTANT VAX$C_V1707_1S = 5240 DECLARE LONG CONSTANT VAX$K_V1707_2S = 5250 DECLARE LONG CONSTANT VAX$C_V1707_2S = 5250 DECLARE LONG CONSTANT VAX$K_V1707_3S = 5260 DECLARE LONG CONSTANT VAX$C_V1707_3S = 5260 DECLAR E LONG CONSTANT VAX$K_V1707_4S = 5270 DECLARE LONG CONSTANT VAX$C_V1707_4S = 5270 DECLARE LONG CONSTANT VAX$K_V1707_5S = 5280 DECLARE LONG CONSTANT VAX$C_V1707_5S = 5280 DECLARE LONG CONSTANT VAX$K_V1707_6S = 5290 DECLARE LONG CONSTANT VAX$C_V1707_6S = 5290 DECLARE LONG CONSTANT VAX$K_V1707_7S = 5300 DECLARE LONG CONSTANT VAX$C_V1707_7S = 5300 DECLARE LONG CONSTANT VAX$K_V1707_8S = 5310 DECLARE LONG CONSTANT VAX$C_V1707_8S = 5310 DECLARE LONG  CONSTANT VAX$K_V1707_1J = 5320 DECLARE LONG CONSTANT VAX$C_V1707_1J = 532- DECLARE LONG CONSTANT VAX$C_VKA57 = 533- DECLARE LONG CONSTANT VAX$K_VKA57 = 533/ DECLARE LONG CONSTANT VAX$K_VKA57_S = 534/ DECLARE LONG CONSTANT VAX$C_VKA57_S = 534/ DECLARE LONG CONSTANT VAX$K_VKA57_J = 535/ DECLARE LONG CONSTANT VAX$C_VKA57_J = 535- DECLARE LONG CONSTANT VAX$C_VKA58 = 536- DECLARE LONG CONSTANT VAX$K_VKA58 = 536/ DECLARE LONG CONSTANT VAX$ K_VKA58_S = 537/ DECLARE LONG CONSTANT VAX$C_VKA58_S = 537/ DECLARE LONG CONSTANT VAX$K_VKA58_J = 538/ DECLARE LONG CONSTANT VAX$C_VKA58_J = 538- DECLARE LONG CONSTANT VAX$C_VKA59 = 539- DECLARE LONG CONSTANT VAX$K_VKA59 = 539/ DECLARE LONG CONSTANT VAX$K_VKA59_S = 540/ DECLARE LONG CONSTANT VAX$C_VKA59_S = 540/ DECLARE LONG CONSTANT VAX$K_VKA59_J = 541/ DECLARE LONG CONSTANT VAX$C_VKA59_J = 5411 DECLARE LONG CONSTANT VAX$C_MAX_MODEL = 5411 DECLARE LONG CONSTANT VAX$K_MAX_MODEL = 541ww