q[VAX-11 Librarian V02.00~f`NT!^#<+B*)@@'  ADDQUADETBACKFILET BACKSPACEBSTAPEINT{BUFFERINTw BUFFEROUTKCDCDEC_CFIRSTDCLOWERF CRELOG_SUPCREPRCG CRE_LOG_EXECC|CUPPER{BUFFERINTw BUFFEROUTKCDCDEC_CFIRSTDCLOWERF CRELOG_SUPCREPRCG CRE_LOG_EXECC|CUPPERoDIBDEFbDISKIO*ENDPRCeERRMES|bD_LENKbD_MARKbD_NAMEbD_OPENbD_PMTKbD_PTAKbD_PUTKbD_RNAMbD_RNEKbD_SBMTFD_SPOOLFD_TRUNCCNBLANKCUPPER# DIB$L_OPCNT$D_CLOSD_ERAS D_JUMPD_SBMTGBITSRC(GCMLPRCTACTGKILPRCTACTIOCLOSSTACT JPI$C_PHDTYPE JPI$_CPUTIM JPI$_EXCVECbD_SPOOLbD_TRUNCbD_UNITEDIVILEEMULILEENDFILE*ENDPRCXERRMESN FIND_OPTIONGBITNKUGBITSKUGBYTESfGCMLNKIFERRSuIOCLOSpIOPENKIOWAITFYJPIDEFFKILPRCFLCMEMMFLCMREQF~LENGTHFLOGTRANS]MEMORY_TO_FILECNBLANKPEEVEEVDISKIOM*ERRMESMCEGETPNAMCEI1MACHACEPEEVEEACE SKIPSPACET_WEOF!UNLCCKWRTAPEpIOPENKIOWAITFH JOB_ENLUNTYPEH JOB_ENTERTYPEH JOB_RELEASEPEH JOB_REMOVEYPEY JPI$C_ADRTYPEY JPI$C_CTLTYPEY JPI$C_LISTENDY JPI$C_PCBTYPEY JPI$C_PHDTYPE JPI$_APTCNT JPI$_ASTACTrbD_FIDKbD_GETKbD_JUMP SKIPSPACESUBQUADRS_BYTESUS_BYTESTLIMITTLM_ASTTLM_SETT_ASSGT_CHECK<T_READT_RWNDT_SKPFT_SKPRLOGTRANS]MEMORY_TO_NEW_FILE]MEMORY_TO_OLD_FILECNBLANKPEEAPE PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_CPULM PQL$_DIOLM PQL$_FILLM PQL$_LENGTH"RDTAPE)Y JPI$_ASTCNTY JPI$_ASTENY JPI$_ASTLMY JPI$_AUTHPRIVY JPI$_BIOCNTY JPI$_BIOLMY JPI$_BUFIOY JPI$_BYTCNTY JPI$_BYTLMY JPI$_CPULIMY JPI$_CPUTIM JPI$_DFPFCLENGTHF|)Y JPI$_CURPRIVY JPI$_DFPFCY JPI$_DFWSCNTY JPI$_DIOCNTY JPI$_DIOLMY JPI$_DIRIOY JPI$_EFCSY JPI$_EFCUY JPI$_EFWMY JPI$_EXCVEC JPI$_FILCNT JPI$_FILLMLENGTHFY JPI$_FILCNTY JPI$_FILLMY JPI$_FINALEXCY JPI$_FREP0VAY JPI$_FREP1VAY JPI$_GPGCNTYJPI$_GRPY JPI$_IMAGNAMEY JPI$_IMAGPRIVY JPI$_LASTADRY JPI$_LASTCTLY JPI$_LASTPCBLENGTHF|Y JPI$_LASTPHDY JPI$_LOGINTIMYJPI$_MEMY JPI$_OWNERY JPI$_PAGEFLTSYJPI$_PGFLQUOTAYJPI$_PIDY JPI$_PPGCNTY JPI$_PRCCNTY JPI$_PRCLM JPI$_PRCNAMJPI$_PRILENGTHFY JPI$_PRCNAMYJPI$_PRIY JPI$_PRIBY JPI$_PROCPRIVY JPI$_STATEYJPI$_STSY JPI$_TERMINALY JPI$_TMBUY JPI$_TQCNTY JPI$_TQLMYJPI$_UIC JPI$_VIRTPEAKLENGTHFY JPI$_USERNAMEY JPI$_VIRTPEAKY JPI$_VOLUMESY JPI$_WSAUTHY JPI$_WSPEAKY JPI$_WSQUOTAY JPI$_WSSIZEKILPRCFLCMRDQFLCMREQFLCMWTHF~LENGTHFHSYMJOBTLIMITTLM_ASTTLM_SETT_ASSGT_CHECK<T_READT_RWNDT_SKPFT_SKPR\T_WAITT_WEOFhUNLCCKrbD_CVTKbD_DELTbD_ERASVLENGTHFE PQL$_LENGTH'RDTAPELE&SBITSILE%SKIPFILE T_SKPR"T_WRIT UNLCRDWRTAPE JPI$C_PHDTYPE) JPI$_EXCVECJPI$_UICWRTAPEGET_JPIHGKILPRCRG_BYTErI1MACH]IFERRKVPQLDEFTHmQDIVMATHQUADMATHR1MACH}RDTAPE2RD_PRCLESGBITILESKIPFILE SKIPSPACERG_BYTESUG_BYTESrI1MACHIFERRSuIOCLOSrGETPNAMGET_JPIHGKILPRCN FIND_OPTIONUGBITSKOGBYTEKMGCMLNKGETPNAMr)Y JPI$_ACCOUNTY JPI$_APTCNTY JPI$_ASTACTr JPI$_LASTPCB JPI$_PRCLMJPI$_UICUNLCWTVEEAPEWAITPEyWRTAPEBUNLCRDUNLCWTWAITPEyWRTAPErUNITPEhUNLCCKBUNLCRDrNT_WRITUNITPEhUNLCCKr\T_WAITT_WEOFNT_WRIT|oDIB$B_DEVCLASSo DIB$B_DEVTYPEo DIB$B_SECTORSo DIB$B_TRACKSo DIB$C_LENGTHo DIB$K_LENGTHo DIB$L_DEVCHARoDIB$L_DEVDEPENDoDIB$L_MAXBLOCKo DIB$L_OPCNT DIB$L_OWNUICFD_CCOKFD_CLOSo DIB$L_OWNUICo DIB$L_PIDo DIB$T_DEVNAMEoDIB$W_CYLINDERSoDIB$W_DEVBUFSIZoDIB$W_DEVNAMOFFo DIB$W_ERRCNTo DIB$W_RECSIZo DIB$W_UNIToDIB$W_VOLNAMOFFo DIB$W_VPROTbD_CCOKbD_CLOSrOSBYTESLEUSBYTESLESKIPFILEr2RD_PRCLESBITFILEUSBITSILE PQL$_LISTENDPQL$_PGFLQUOTA PQL$_PRCLM PQL$_TQELMPQL$_WSDEFAULT PQL$_WSQUOTAmQDIVCHQMULCH QUOTA_ERRR1MACH}RDTAPErOGBYTESUGBYTESMGCMLNKr JPI$_ASTACT JPI$_CPUTIM JPI$_EXCVECrENDFILE*ENDPRCXERRMES,-./0123456789:;<=>?@ABD1f011NBLANK01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS V1.3-27  NBLANK NBLANKP;PH[}PQP<kkkP@ ЫPkP HNBLANK-5$CODE$PDATA$LOCAL(P 5ww1f011CUPPER01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS VE1.3-27  CUPPER CUPPERPTPN[}PQP< kkYIaIzIPPZ ZZ~ZI k NCUPPER-N$CODE$PDATA$LOCAL (P0P Nww1f011CLOWER01 8-Jul-1980 11:07 8-Jul-1980 11:07!VAX-11 FORTRAN IV-PLUS V1.3-27  CLOWER CLOWERPTPN[}PQP< kkYIAIZIPPZ ZZ~ZI k NCLOWER-N$CODE$PDATA$LOCAL (P0P Nww 1@n015 CRELOG_SUP0128-Jan-1981 13:5128-Jan-1981 13:51AVAX-11 FORTRAN V2.1-12' CRELOG_SUP CRELOG_SUP P CRE_LOG_EXECPH [}PQPk}PQ PPVX`PX`PQQPPZ`PQ QPPPZ~^lh^ PQQPPPZXZZZ@ZZZX2ZPaPPZ~^lh^ PQQPPW~^lh^ PQQPPWXWWUPWZ@~^lh^PQ QP2PPʏPPY~^lh^ PQQPPPY~^lh^ PQQPPYXYYUPY@fU1X~^lhπ^PX~^lh^PQ QPPZ~^lh^ PQQPPPZXZZZ@ZZZX2ZPPPZ ~^lh^PWXWWUPWZ@ ~^lh^PQQP2PPʏPPY ~^lh^PPYXYYUPY@TUUWXk1 *0R.GCML023-MAR-1981 17:06 VAX-11 Macro V02.45RGCML  GCMLO . ABS .AJ . BLANK .P$ABS$IPPQQQ<][YXZY[ZЪ [ШX޼[,ſ k} GCML, . BLANK .J$ABS$wwYYZЫP@ ZYë <$P P P<$`kЫVѫ Vм WXVP׀PXPZ4Y<$PīP P P-ZH V@ikd1@݉+016 FIND_OPTION0124-Mar-1981 10:4324-Mar-1981 10:43VAX-11 FORTRAN V2.1-12) FIND_OPTION FIND_OPTION_P PHPPO[}PQPм @}PQ(P$ޫ$PFOR$INI_DES1_R2P@ ֫<PP1<YYZЫP@ ZYЫYY YZ<PZPPDJHT LIB$INDEXPYPPP@ ּ<PPԼ<$P<$`P1R010GBYTE01 9-Jan-1981 08:24 9-Jan-1981 08:24VAX-11 FORTRAN V2.0-2 GBYTE GBYTE4PILLEGAL VALUE FOR NBITS IN S/GBYTE(S) CALL(P * SS$_ABORT  $$PO[Ь,8ԼO[Ь,8 WWPP  PPPPVѼ ~ FOR$WRITE_SL< FOR$IO_T_DS FOR$IO_ENDDSYS$EQXITԫVZ8XLPYTP Z\PYZV PP~^hd^P ë YPP$ѫZWP@hplGBIT޼˄ˀSBIT޼˄ˀGBITZWP@hplSBIT$Z1bVWYZ@zP{PPPPP OGBYTE SS$_ABORT OSBYTESYS$EXITGBITSBITG$CODE2$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLHPXP#PPP PPPvP"P -!GAww$LOCALFOR$INI_DES1_R2 P PPdP{!P'PP2Pg5Px;P<FPSIPdOP(ZP?]PPcPnP+qP<wPP P0PTPwPPPPPi'PFJP#mPP;/wwQQQQQQ QQQQQQQ&QpQQS1`|R011G_BYTE01 9-Jan-1981 08:24 9-Jan-1981 08:24VAX-11 FORTRAN V2.0-2 G_BYTE G_BYTE^PILLEGAL VALUE FOR NBITS IN S/G_BYTE(S) CALL4P + SS$_ABORT ,00PO[Ь8DԼO[Ь8D SSPP  PPPPTѼ ~ FOR$WRITE_SLH FOR$IO_T_DS FOR$IO_ENDPTSYS$EXITԫTZDWZSPPVVUUPPzVQ{QQQQPPYXPX`P,ZhPXZT PP~^tp^P,ë,XPP0ѫIg|xGBIT޼ːˌSBIT޼ːˌGBITIg|xSBIT0Z1FSTU VX(Y$Z@zP{PPPPP OG_BYTE SS$_ABORT OS_BYTESYS$EXITGBITSBITo$CODE3$PDATA$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLHPXP#PPP PPPzPP0$oww(QQQQ ePIOP0011.DATPQeQ QDQBQQQQQQQQQQQQ QQQQ QQ8Q6Q`QQ QQQ$QQQQQQQQQ,P,P,P(,P`,P` V1IR010GBITS01 9-Jan-1981 08:24 9-Jan-1981 08:24VAX-11 FORTRAN V2.0-2- GBITS GBITSBfPPL[00kL[00kL[00kL[00kL[00kL[00kм мt kЫP@(dЫ P@Ph޼p`GBIT1ЫP@(dЫ P@Ph޼p`SBIT1WЫP@(dЫ P@Ph޼p`GBYTEЫP@(dЫ P@Ph޼p`SBYTEЫP@(dЫ P@Ph޼p`G_BYTEЫP@(dЫ P@Ph޼p`S_BYTEЫZZPPZ ZPPzZP{ PPZZt м4ЬޫPFOR$INI_DES1_R2м\ЬDޫ@PFOR$INI_DES1_R2= LGBITS LSBITS (LGBYTES <LSBYTES PLG_BYTES dLS_BYTESGBITSBITGBYTESBYTEG_BYTES_BYTE$CODE$PDATAx$LOCALFOR$INI_DES1_R24 P PPdP{!P'PP2Pg5Px;P<FPSIPdOP(ZP?]PPcPnP+qP<wPP P0PTPwPPPPPi'PFJP#mP;/wwQQQQQQQQQQQ (&QQQQ 1z[+00ERRMES024-MAR-1981 14:50 VAX-11 Macro V02.45 /LIS ERRMES ; ERRMES SS$_ABORTSYS$EXIT SYS$PUTMSGD . ABS . 3 . BLANK .RP~lQAlRbQlnRb SYS$PUTMSGP SS$_ABORTSYS$EXIT ERRMES . BLANK .3wwD_RNAM | D_RNE D_SBMT " D_SPOOL N D_TRUNC D_UNITERRMES LIB$FREE_VZ1FUi000JPIDEF030-MAR-1981 15:18 VAX-11 Macro V02.45C /LIS JPIDEF  JPI$C_ADRTYPE JPI$C_CTLTYPE JPI$C_LISTEND JPI$C_PCBTYPE JPI$C_PHDTYPE JPI$_ACCOUNT  JPI$_APTCNT JPI$_ASTACT JPI$_ASTCNT JPI$_ASTEN  JPI$_ASTLM JPI$_AUTHPRIV JPI$_BIOCNT JPI$_BIOLM  JPI$_BUFIO JPI$_BYTCNT [JPI$_BYTLM  JPI$_CPULIM JPI$_CPUTIM JPI$_CURPRIV JPI$_DFPFC JPI$_DFWSCNT JPI$_DIOCNT JPI$_DIOLM  JPI$_DIRIO JPI$_EFCS JPI$_EFCU JPI$_EFWM JPI$_EXCVEC JPI$_FILCNT JPI$_FILLM JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VA  JPI$_GPGCNTJPI$_GRP JPI$_IMAGNAME JPI$_IMAGPRIV JPI$_LASTADR JPI$_LASTCTL J\PI$_LASTPCB JPI$_LASTPHD JPI$_LOGINTIMJPI$_MEM JPI$_OWNER  JPI$_PAGEFLTSJPI$_PGFLQUOTAJPI$_PID  JPI$_PPGCNT JPI$_PRCCNT JPI$_PRCLM JPI$_PRCNAMJPI$_PRI  JPI$_PRIB JPI$_PROCPRIV JPI$_STATEJPI$_STS JPI$_TERMINAL  JPI$_TMBU JPI$_TQCNT JPI$_TQLMJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOL UMES JPI$_WSAUTH JPI$_WSPEAK, JPI$_WSQUOTA JPI$_WSSIZE . ABS . . BLANK .GP$ABS$P PPQ JPIDEF, . BLANK .$ABS$wwGσVFf SYS$CLOSE9RMS$_ACCRMS$_ATRRMS$_ATWRMS$_CDARMS$_CHNRMS$_CRERMS$_DACRMS$_DNFRMS$_DPERMS$_ENTRMS$_EXTRMS$_FNDRMS$_IFARMS$_IRCRMS$_MKDRMS$_NETRMS$_RERRMS$_R e1\c?20S8MEMORY_TO_FILE0 2-APR-1981 12:18 VAX-11 Macro V02.45R MEMTOFILE  ERRMES ]MEMORY_TO_NEW_FILE PMEMORY_TO_OLD_FILE SEC$M_DZRO SEC$M_WRT SYS$CREATE SYS$CRMPSCSYS$OPEN . ABS . . BLANK .P$ABS$APPPQNQQQQQQQQQQ"QQQQQt1ۚG0/IFERR029-APR-1981 08:27 VAX-11 Macro V02.45o /LIS IFERRS  [ IFERRLIB$STOP  QUOTA_ERRSYS$FAOL SYS$GETJPI SYS$PUTMSGB . ABS . . BLANK .BP$ABS$ PPPPѼݼLIB$STOP|~L SYS$GETJPIP^ЎPD?SYS$FAOLP^ЎP<`1 bL011CFIRST01 5-May-1981 10:43 5-May-1981 10:43VAX-11 FORTRAN V2.2-40 CFIRST CFIRSTEPBAD TRANSLATION IN IOPACKMT:WIOPACK UNABLE TO OPEN DISK FILERlP()tXlT SS$_ABORT)  D_OPEN@ ?,? lD_OPEN@PQPQ`P0102030405060708091011121314151617181920POT[ P@PP P(P^(@nݏIOP0,n (Q^kԫЫ XW ( SYS$TRNLOGPk SS$_NOTRANQPQzPQ{QQPPDERRMES~ FOR$WRITE_SLL FOR$IO_T_DS FOR$IO_ENDTSYS$EXITXWWիXPXPYXZZP,PJ YY1qWX իWݏ.DAT^(n d W^hl SYS$CRELOGW^P^˄ˀIFERR^1ˈ˘ LIB$INDEXPˈYZмP@(P$[ CDCDEC$CODE$PDATAx$LOCALFOR$INI_DES1_R2KP}SP[PmnPZP:PPP PPP2PZPn}PKPP PPPP PP(P APNPlP]P8P=1wwSYS$GETQʏIO_ERR P=PRxRR5lhc1iW+00DISKIO024-MAR-1981 15:00 VAX-11 Macro V02.45N /LIS DISKIO  D_CCO ZD_CLOS 3 D_CVT RD_DELT D_ERAS 7D_FID D_GET D_JUMP 4D_LEN hD_MARK D_NAME D_OPEN  D_PMT ` D_PTA D_PUT qD_RNAM  D_RNE D_SBMT D_SPOOL  D_TRUNC aD_UNITERRMES LIB$FREE_VfM LIB$GET_VMMTH$_WRONUMARGRMS$_EOFRMS$_FNFRMS$_NMF RMS$_NORMALRMS$_RTB SS$_FILALRACC SS$_FILNOTACC SYS$CLOSE SYS$CONNECT SYS$CREATE SYS$ERASESYS$FAOSYS$FINDSYS$GETSYS$OPEN SYS$PARSESYS$PUT SYS$RENAME SYS$SEARCH SYS$TRUNCATESYS$WAIT . ABS . . BLANK .1PQIOPQQ.DATQQ$ABS$PPPPPPPPPPPPPPNkЫVѫ Vм WXVPPXPZ4Y<$PīP-ZH V@ikkЫWk`ԫЫPԫЫPԫЫPPr O FIND_OPTION LIB$INDEXR$CODE$PDATAh$LOCALFOR$INI_DES1_R2L?PNPiP P$PPX P PP!P,#PF:RwwQQ&QQQQQQ4 SEC$M_WRTRS SEC$M_WRT SEC$M_DZRO8RSxPxQPQQޯPQ޼ Qa4ޱ,S jSYS$OPEN ] SYS$CREATEP&ެQ|~|~ƾ ƔP`PGϲ LIB$FREE_VMG PЎPPϰϬERRMESϡPWϡlhll4լмƠլռަPP7fPfPм޼ P޼PRW*w#Aa6ަPPЏfP(fPf SYS$CREATEPOfPfSYS$OPENP.ߦP SYS$CONNECTPERRMESPMTH$_WRONUMARGPSPQQPQfPc,Q4cQУPPQP` QPQfP޳,Q4WGϛLERRMESAPGσV)Jf SYS$CLOSE9iRТWGMVТ>Т Bӏ>RMS$_NMF >RMS$_FNF RMS$_NORMAL>(J RMS$_EOF RMS$_RTBERRMESJߦPSYS$WAITWGrERRMESgPGϩVFPWGϔEERRMES:PG|V>PPRMS$_EOFP RMS$_RTBP PPPPPPWG?ERRMESPG'VKlަPP޼$ JϥϡߦPSYS$GETʏTgIO_ERRjPPWGϐERRMESυPGVlϱަPP޼( "KGߦPSYS$PUTWGύ>ERRMES3PGuVϙ>PЦ`dWGX ERRMESPG@VdަPP>PЀ`dߦPSYS$FINDPަPPЎPWGϭERRMESϢPGVƧR֨Q޼PPHD[ѼѼмP@PkULIBERFOR$STOP$ HI1MACHULIBERJ-$CODE+$PDATAT$LOCAL OTS$LINKAGEFOR$STOP PP  -wwD^P` SYS$PUTMSGP^]}DPQ3Current quotas still available:!/AST (asynch. traps) !SL!/BIO (buffered I/Os) !SL!/BYT (buffered I/O bytes) !SL!/DIO (direct I/Os) !SL!/FIL (open files) !SL!/PRC (subprocesses) !SL!/TQE (timer queue entries) !v1'cL011IOCLOS01 5-May-1981 10:43 5-May-1981 10:43VAX-11 FORTRAN V2.2-40 IOCLOS IOCLOSPPPL[Z P@ PP@ʜ޼ D_CLOS1 P@ P@ʜT_WAIT P@ PP@L P@ʜ T_WEOF P@L P@ʜT_WAIT P@L P@ʜ T_WEOF P@L P@ʜT_WAIT P@L P@ʜ$ T_SKPF P@L P@ʜT_WAIT P@ PP@CFIRST LIOCLOSD_CLOST_WAITT_WEOFT_SKPFCFIRSTf$CODE$PDATA,$LOCAL@IOPACK(IOPAKCJP+P:P IPyPPPP P-P]P fwwYPYPXYZYƫ ZP,PJ XX1kիXݏ.DAT^(n d X^hl SYS$CRELOGX^PkzPQ{QQPPx1 K2cL01D4 BUFFEROUT01 5-May-1981 10:43 5-May-1981 10:43VAX-11 FORTRAN V2.2-40% BUFFEROUT BUFFEROUT PPL[Z P@L޼ CFIRST޼P޼ QQPPk P@ʜ޼޼ D_PUT P@ P@ʜ($T_WAIT P@ʜ޼ T_WRIT P@W L BUFFEROUTCFIRSTD_PUTT_WAITT_WRIT$CODE$PDATA4$LOCAL@IOPACK(IOPAKCOGP[POiPTww$CODE$PDATA4$LOCAL@IOPACK(IOPAKCIP P/P:P[PwPPPPPP ww0IOPEN01 3-Mar-1980 16:24 3-Mar-1980 16:24!VAX-11 FORTRAN IV-PLUS V1.3-27  IOPEN IOPENPILLEGAL ATTEMPT TO IOPEN AN OPEN LUNUNABLE Tz1PESP0YP*rPPgP%P P#P :.wwNTRMS$_EOFRMS$_EXTRMS$_FNDRMS$_FNFRMS$_IFARMS$_IRCRMS$_MKDRMS$_NETRMS$_NMF RMS$_NORMALRMS$_RERRMS$_RMVRMS$_RPLRMS$_RTBRMS$_SUPRMS$_SYSRMS$_WBERMS$_WERRMS$_WPL SYS$CLOSE SYS$CONNECT SYS$CREATE SYS$ERASESYS$FAOSRELOGV^PkzPQ{QQPP8ERRMES~ FOR$WRITE_SL@ FOR$IO_T_DS FOR$IO_ENDSYS$EXIT$ |HIOPEN SYS$CRELOG SS$_ABORTSYS$EXITCFIRSTERRMES$CODEJ$PDATAH$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL$P*P+wwJf WSYS$FAOPP߯ERRMESЯPfP`P4$LOCAL@IOPACK(IOPAKC;POPO]PD wwVAX-11 Macro V02.30JPIDEF  JPI$C_ADRTYPE JPI$C_CTLTYPE JPI$C_LISTEND JPI$C_PCBTYPE JPI$C_PHDTYPE JPI$_ACCOUNT  JPI$_APTCNT JPI$_ASTACT JPI$_ASTCNT JPI$_ASTEN  JPI$_ASTLM JPI$_BIOCNT JPI$_BIOLM  JPI$_BUFIO JPI$_BYTCNT JPI$_BYTLM  JPI$_CPULENGTHFD_LEN SS$_ABORTSYS$EXITCFIRSTT_WAIT$CODE'$PDATA4$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLMP*SPjP2Pww JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VA  JPI$_GPGCNTJPI$_GRP JPI$_LASTADR JPI$_LASTCTL JPI$_LASTPCB JPI$_LASTPHD JPI$_LOGINTIMJPI$_MEMABORTSYS$EXITCFIRSTD_UNITT_WAIT$CODE$$PDATA4$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP*SPfP0$wwJPI$_STS  JPI$_TMBU JPI$_TQCNT JPI$_TQLMJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOLUMES JPI$_WSAUTH JPI$_WSPEAK JPI$_WSQUOTA JPI$_WSSIZE LSKIPFILE SS$_ABORT LBACKFILECFIRSTSYS$EXITT_WAITT_SKPF$CODE$PDATA@$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL P HP#yPww1jf011LCMREQ0128-May-1980 15:1828-May-1980 15:18!VAX-11 FORTRAN IV-PLUS V1.3-27  LCMREQ LCMREQpPERROR IN LCMREQBAD ADDR IN LCMREQ - SEE RAYP IFERR@iPH[~^k LIB$GET_VM^P^ IFERR^zP{PPPP߫FOR$STOPЫP2 HLCMREQ LIB$GET_VMIFERRJO$CODE,$PDATA,$LOCAL OTS$LINKAGEFOR$STOP;P Oww1ZмP@޼@޼ D8RD_PRCP FOR$WRITE_SLL FOR$IO_T_DS߼ FOR$IO_L_RT FOR$IO_T_DS FOR$IO_END SS$_ABORTPмP>@~d\ SYS$CREMBXP  FOR$WRITE_SL| FOR$IO_T_DS FOR$IO_END ˄ERRMES˄PЫPмP@~ːˌ SYS$GETCHNP DIB$W_UNITPP@  FOR$WRITE_SLˤ FOR$IO_T_DS FOR$IO_END ˄ERRMES˄PЫPռ1޼ ˬGET_JPI-04 nмP@ЫЫ м SYS$CREPRCPмP@ЫЫ м $ SYS$CREPRCP޼ @,GET_JPI-04 nмP@HЫ`Ы hpD SYS$CREPRCPмP@|Ы˔Ы ˜ˤx SYS$CREPRCP  FOR$WRITE_SLˬ FOR$IO_T_DS FOR$IO_END ˄ERRMESЫP@zP{PPPPQPQP LCREPRC  DIB$W_UNIT SS$_ABORTRD_PRC SYS$CREMBXERRMES SYS$GETCHNGET_JPI SYS$CREPRC$CODE$PDATA$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRIT E_SL_PKtP6PP PP&PEP TP-XPdP}~P2P0PoP,'P*UPtP 5)ww1f011KILPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  KILPRC KILPRC@P process already endedP  PH[мP@ FOR$WRITE_SLk FOR$IO _T_DS߼ FOR$IO_L_R FOR$IO_T_DS FOR$IO_END޼޼ENDPRCЫP& HKILPRCENDPRC^$CODE$PDATA $LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL P1P- ^ww1f012GKILPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27 !GKILPRCGKILPRC\P process already endedP   SS$_CONTROLYPH[мP@ FOR$WRITE_SL FOR$IO_T_DS߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_ENDмP@ SYS$FORCEXPk޼(޼,$ENDPRCЫPG HGKILPRC SS$_CONTROLY SYS$FORCEXENDPRCw$CODE$PDATA4$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL P2P . www1@f011ENDPRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  ENDPRC ENDPRCP process already endedinternal error in endprcbad termination mailbox readon process P  3 O SS$_ABORTPH[мP@ FOR$WRITE_SL FOR$IO_T_DS߼ FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END SS$_ABORTP޼޼ RD_PRCP~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL8 FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_END@SYS$EXITkPA HENDPRCRD_PRC SS$_ABORTSYS$EXIT$CODEZ$PDATAL$LOCALPROCSUB OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SLP:P.dPc  ww1@&f011RD_PRC0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  RD_PRC RD_PRCPRD_PRC UNABLE TO GET AN EFRD_PRC UANBLE TO FREE EFXP    &H ZPxTH& IFERR@ IFERR@4P status =  , pid =   end time was ) account =  , username =   cpu time =  , pagefaults =   , peak =   working set =  , bio =  , dio J=   volumes mounted =   start time = ) owner process id =  PLH[@ LIB$GET_EFP^IFERR^ IO$_READVBLKZIO$M_NOWPPZkTмP@~XZ\ZPSYS$QIOW2P SS$_NORMALQԫPQ׫@ LIB$FREE_EFP^IFERR^Z1ˌ SYS$ASCTIMˠ SYS$ASCTIM ˴ERRMES 14 FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_R˼˼ FOR$IO_T_DS FOR$IO_X_DA  FOR$IO_X_DAN,PGCP~ FOR$IO_F_Vߪ0 FOR$IO_L_Rߪ4 FOR$IO_L_Rߪ8 FOR$IO_L_Rߪ< FOR$IO_L_Rߪ@ FOR$IO_L_RߪD FOR$IO_L_R  FOR$IO_T_DSߪP FOR$IO_L_R FOR$IO_ENDмP@мP@~ SYS$DASSGNЪЫP LRD_PRC IO$_READVBLKIO$M_NOW SS$_NORMALIFERR LIB$GET_EFSYS$QIOW LIB$FREE_EF SYS$ASCTIMERRMES SYS$DASSGN$CODE'$PDATA4$LOCALPROCSUBPR_MAIL OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_F_V FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF.P PP P$ww1nn~702QUADMATH0 4-OCT-1980 11:57 VAX-11 Macro V02.45/LIS QUADMATH  . ABS . . BLANK .P SUBQUAD&}P~R‚PbQ}P  ADDQUAD&}P~RPbQ}P @ *@EDIV}&}PмR{RPPQP @ >@EMULz&~Pz `<@ M<@QMUL&2~R~SzbcTŢcPbQQPbcPcbPPU}T hQUADMATHADDQUAD *EDIV >EMUL MQMULSUBQUAD . BLANK .wwww 1f011R1MACH0125-Sep-1979 10:1825-Sep-1979 10:18!VAX-11 FORTRAN IV-PLUS V1.2-13  R1MACH R1MACH`P ERROR IN R1MACH - I OUT OF BOUNDS"P#'Q455 1PH[ѼѼkULIBERмP@P$ HR1MACHULIBER-&$CODE+$PDATA,$LOCAL PP&ww 1f0/SGBIT014-AUG-1979 11:38 VAX-11 Macro V02.30SGBIT  GBIT  SBIT . ABS . . BLANK .P   SGBIT . BLANK .ww VNAMOFF DIB$W_ERRCNT" DIB$W_RECSIZ DIB$W_UNIT DIB$W_VOLNAMOFF DIB$W_VPROT . ABS . . BLANK .P$ABS$ PP DIBDEF, . BLANK .$ABS$twwPL[00kL[00kL[00kL[00kм мt kЫP@(dЫ P@Ph޼p`GBITЫP@(dЫ P@Ph޼p`SBITЫP@(dЫ P@Ph޼p`GBYT1@a5012GETPNAM0121-Oct-1980 14:4121-Oct-1980 14:41VAX-11 FORTRAN V2.0-2!GETPNAMGETPNAM %PUNABLE TO GET EF IN GETPNAMUNABLE TO DETERMINE PROCESS NAMEUNABLE TO FREE EF IN GETPNAMP $ IFERR@  SS$_ABORT<p< IFERR@PN[Ь ޻YˏPZPj JPI$_PRCNAMPP޼Ԫ  LIB$GET_EFP^0,IFERR^k<8 SYS$GETJPIPzPY{YYPPXERRMES~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDhSYS$EXIT LIB$FREE_EFP^|xIFERRS NGETPNAM JPI$_PRCNAM SS$_ABORTIFERR LIB$GET_EF SYS$GETJPIERRMESSYS$EXIT LIB$FREE_EF$CODEY$PDATA$LOCALGET_NAM OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLyP+wwVV~ FOR$WRITE_SL< FOR$IO_T_DS FOR$IO_ENDDSYS$EXITԫVZ8XLPYTP Z\PYZV PP~^hd^P ë YPP$ѫ~ZWP@hplGBIT޼˄ˀSBIT޼˄ˀGBITZWP@hplSBIT$Z1aVWYZ@zP{PPPPP* OGBYTE SS$_ABORT; OSBYTESYS$EXITGBITSBITmD$CODE0$PDATA$LOCAL OTS$LINKAGE FOR$IO_ENDT_SKPR P@ L SKIPSPACE SS$_ABORT L BACKSPACE LBSTAPECFIRSTSYS$EXITT_WAITT_SKPR$CODE$PDATA@$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL PP SP#PwwLOG SS$_NOTRAN SS$_ABORTERRMESSYS$EXIT LIB$INDEX$CODEk$PDATAD$LOCAL@IOPACK(&Q IFERR, . BLANK .$ABS$ww21 VAX-11 Macro V02.30SYMJOB D_CLOSD_FIDD_NAMED_OPEN IO$_READVBLK  JOB_ENLUN  JOB_ENTER p JOB_RELEASE  JOB_REMOVE LIB$FREE_EF LIB$GET_EF SYS$CREMBX SYS$DASSGNSYS$EXITSYS$QIOW SYS$SNDSMB . ABS .u . BLANK .P$ABS$PPPPQdPQQPR|~|~? SYS$CREMBXPs<~` SYS$SNDSMBPa߯ LIB$GET_EFP PSYS$EXIT|~|~\|~< IO$_READVBLK&~SS$_DATAOVERUNkERRMESмPѼ @0@0 p LT_WAIT SS$_ENDOFFILESS$_DATAOVERUNT _CHECKIFERR SYS$WAITFRERRMESJ$CODE$PDATA($LOCAL8T_COMIO_ERR*pP)PPP0P(P% ww10f011T_WEOF01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_WEOF T_WEOFPT_WEOF COULDN'T SET EFP IO$_WRITEOF H IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@j SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@m LT_WEOF IO$_WRITEOFT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P kP ww13f011T_RWND01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_RWND T_RWNDPT_RWND COULDN'T SET EFP IO$_REWINDH IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@j SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@l LT_RWN D IO$_REWINDT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P kP ww1C?f011T_SKPF01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_SKPF T_SKPFPT_SKPF COULDN'T SET EFP IO$_SKIPFILE H IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@jм( SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@p LT_SKPF IO$_SKIPFILET_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P pP ww1Cf011T_SKPR01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27  T_SKPR T_SKPRPT_SKPR COULDN'T SET EFP IO$_SKIPRECORDH IFERR@PL[޼T_CHECKZмP@޼T_ASSGмP@0мP@(@ PP@jм( SYS$QIOPkzPQ{QQPP@ERRMESмP@( SYS$SETEFP^TPIFERR^мP@r LT_SKPRIO$_SKIPRECORDT_CHECKT_ASSGSYS$QIOERRMESIFERR SYS$SETEF;$CODE$PDATA\$LOCAL8T_COM %P pP ww1 If012T_CHECK01 8-Feb-1980 11:06 8-Feb-1980 11:06!VAX-11 FORTRAN IV-PLUS V1.3-27 !T_CHECKT_CHECK4PILLEGAL VALUE OF LDRV IN TAPEIO :P!sPH[ռѼ~ FOR$WRITE_SLk FOR$IO_T_DS߼ FOR$IO_L_R FOR$IO_ENDFOR$STOP HT_CHECK@$CODE!$PDATA$LOCAL OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$WRITE_SL  PP@ww1f011TLIMIT0120-Aug-1980 13:2020-Aug-1980 13:20!VAX-11 FORTRAN IV-PLUS V1.3-27  TLIMIT TLIMITP0 :01:.BAD DELTA TIME IN TLIMITTLIMIT UANBLE TO GET EFILLEGAL ATTEMPT TO CALL TLIMIT TWICE.P  %8 SYS$BINTIM@( IFERR@QPH[kм8 SYS$BINTIMPPERRMES߫FOR$STOP LIB$GET_EF P^HDIFERR^TLM_ASTk~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_END@zP{PPPPQPQPV HTLIMIT SYS$BINTIMERRMESIFERR LIB$GET_EFTLM_AST$CODE]$PDATAP$LOCALT_LIMIT OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL PS$PU(P^Pww1if012TLM_SET0120-Aug-1980 13 :2120-Aug-1980 13:21!VAX-11 FORTRAN IV-PLUS V1.3-27 !TLM_SETTLM_SETUPERROR IN TLIMIT CALL TO SETIMRPTLM_ASTmPH[  SYS$SETIMRPkPERRMES߫ FOR$STOP@zP{PPPPQPQP< HTLM_SETTLM_AST SYS$SETIMRERRMESZR$CODE$PDATA($LOCALT_LIMIT OTS$LINKAGEFOR$STOP P$P Rww1 f012TLM_AST0120-Aug-1980 13:2120-Aug-1980 13:21!VAX-11 FORTRAN IV-PLUS V1.3-27 !TLM_ASTTLM_ASTPBAD GETJPI CALL FROM TLIMITCPU TIME LIMIT EXPIREDP SS$_ABORTPQPPH[ JPI$_CPUTIMPPޫ SYS$GETJPIP0P0ERRMES߫8FOR$STOPkЫ k« Əpѫ~ FOR$WRITE_SL@ FOR$IO_T_DS FOR$IO_ENDHSYS$EXITTLM_SET@zP{PPPPQPQPg HTLM_AST JPI$_CPUTIM SS$_ABORT SYS$GETJPIERRMESSYS$EXITTLM_SET$CODE1$PDATAP$LOCALT_LIMITTLM_JPI OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL/Pa3PHPfP#! ww1 ϒf01/WAIT0121-Dec-1979 11:2121-Dec-1979 11:21!VAX-11 FORTRAN IV-PLUS V1.3-27  WAIT WAITPERROR IN OBTAINING EVENT FLAG IN WAITERROR IN SETTING TIMER IN WAITERROR IN WAITING FOR FLAG IN WAITERROR FREEING EVENT FLAG IN WAITP % SS$_ABORT)!G hPL[ELZE0ZPJPNPDPPBPZҫSZZEZPZkJPݫ^ MTH$JISHFT^PΫ LIB$GET_EFP P ERRMES~ FOR$WRITE_SL( FOR$IO_T_DS FOR$IO_END0SYS$EXITЫ<8 SYS$SETIMRP P ERRMES~ FOR$WRITE_SLL FOR$IO_T_DS FOR$IO_END0SYS$EXITЫXT SYS$WAITFRP P ERRMES~ FOR$WRITE_SL\ FOR$IO_T_DS FOR$IO_END0SYS$EXIT LIB$FREE_EFP P nERRMES~ FOR$WRITE_SLd FOR$IO_T_DS FOR$IO_END0SYS$EXIT@zP{PPPPQPQP LWAIT SS$_ABORT MTH$JISHFT LIB$GET_EFERRMESSYS$EXIT SYS$SETIMR SYS$WAITFR LIB$FREE_EFm$CODE$PDATAt$LOCAL OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL;mPqP+PP+PoP+7P/;P+3'wwIOPAKC OTS$LINKAGEFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLgPbPspP+PPfP,]P:rP%xPPP\P%P P#P E?3Tww DIB$K_LENGTH DIB$L_DEVCHARDIB$L_DEVDEPENDpDIB$L_MAXBLOCK DIB$L_OPCNT DIB$L_OWNUIC DIB$L_PID$ DIB$T_DEVNAME DIB$W_CYLINDERSDIB$W_DEVBUFSIZDIB$W_DE$PDATAD$LOCAL@IOPACK(IOPAKC>PRP?\PwwPROT . ABS . . BLANK .P$ABS$ PP DIBDEF, . BLANK .$ABS$tww 1 h00PQLDEF028-SEP-1980 09:02 VAX-11 Macro V02.45PQLDEF  PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_CPULM PQL$_DIOLM PQL$_FILLM PQL$_LENGTH PQL$_LISTENDPQL$_PGFLQUOTA PQL$_PRCLM PQL$_TQELM PQL$_WSDEFAULT PQL$_WSQUOTA . ABS . . BLANK .P$ABS$ PP PQLDEF, . BLANK .$ABS$ww1i0012GET_JPI0130-Sep-1980 15:2830-Sep-1980 15:28VAX-11 FORTRAN V2.0-2!GET_JPIGET_JPIP NO EVENT FLAGS AVAIL FOR GETJPICREPRC ERROR IN GETJPIERROR RETURNING EF IN GETJPIRESULTS FROM GETJPI :priv(1), priv(2), & base prioastval, bioval, BYTVAL, CPUVAL, jcpuval,& diovalFILVAL, PGFVAL, PRCVAL, TQVAL, wsdval, & wsqvalFINAL RESULTSP  IFERR@% % IFERR@< < IFERR@Yn0/ PL[Ь  PQL$_ASTLMPZPj PQL$_BIOLMPP PQL$_BYTLMPP PQL$_CPULMPP PQL$_DIOLMPP PQL$_FILLMPPPQL$_PGFLQUOTAPP PQL$_PRCLMPP# PQL$_TQELMPP(PQL$_WSDEFAULTk PQL$_WSQUOTA PQL$_LISTENDPP7T JPI$_CURPRIVPPV޼ X\` JPI$_PRIBPPb޼dhl JPI$_ASTLMPPnުptx JPI$_BIOLMPPzު|ԫ JPI$_BYTLMPPު ԫ JPI$_CPULIMPPުԫ JPI$_CPUTIMPPޫԫ JPI$_DIOLMPPުԫ JPI$_FILLMPPުԫJPI$_PGFLQUOTAPPުԫȰ JPI$_PRCLMPPު$ԫ԰ JPI$_TQLMPPު)ԫ JPI$_WSQUOTAPPު.ԫ JPI$_WSAUTHPPު3ԫԫ$ LIB$GET_EFP^84IFERR^Ы D@ SYS$GETJPIP^lhIFERR^$ LIB$FREE_EFP^ˀ|IFERR^~ FOR$WRITE_SLˈ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLː FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF߫ FOR$IO_X_DA߼ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL˘ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ  FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_Rߪ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˠ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ$ FOR$IO_L_Rߪ) FOR$IO_L_Rߪ. FOR$IO_L_Rߪ3 FOR$IO_L_R FOR$IO_ENDժëPP~ FOR$WRITE_SL˨ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLː FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SF߫ FOR$IO_X_DA߼ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL˘ FOR$IO_T_DS FOR$IO_ENDZ~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ  FOR$IO_L_Rߪ FOR$IO_L_R߫ FOR$IO_L_Rߪ FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˠ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SFߪ FOR$IO_L_Rߪ FOR$IO_L_Rߪ$ FOR$IO_L_Rߪ) FOR$IO_L_Rߪ. FOR$IO_L_Rߪ3 FOR$IO_L_R FOR$IO_ENDj LGET_JPI PQL$_ASTLM PQL$_BIOLM PQL$_BYTLM PQL$_FILLMPQL$_PGFLQUOTA PQL$_CPULM PQL$_DIOLM PQL$_PRCLM PQL$_TQELM PQL$_LISTENDPQL$_WSDEFAULT PQL$_WSQUOTA JPI$_CURPRIV JPI$_PRIB JPI$_ASTLM JPI$_BIOLM JPI$_BYTLM JPI$_CPULIM JPI$_CPUTIM JPI$_DIOLM JPI$_FILLMJPI$_PGFLQUOTA JPI$_PRCLM JPI$_TQLM JPI$_WSQUOTA JPI$_WSAUTHIFERR LIB$GET_EF SYS$GETJPI LIB$FREE_EF$CODE$PDATA\$LOCAL8QUOTA OTS$LINKAGE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_X_DA FOR$WRITE_SF FOR$WRITE_SLq?P_PP+PPS%PEPSPP PPP+PFPSPPSmawwOCAL@IOPACK(IOPAKC3PGP?QPww1dՈ012LENGTHF01 5-Dec-1980 11:26 5-Dec-1980 11:26VAX-11 FORTRAN V2.0-2!LENGTHFLENGTHF1PCALL TO LENGTHF PRECEDES FIRST TRANSFER P' SS$_ABORTPH[мP@~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDSYS$EXITCFIRSTмP@޼D_LENTD_LEN SS$_ABORTSYS$EXITCFIRSTD_UNITT_WAIT$CODE&$PDATA($LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLP)JP'qP*ww1dՈ012ENDFILE01 5-Dec-1980 11:26 5-Dec-1980 11:26VAX-11 FORTRAN V2.0-2!ENDFILEENDFILE.PPH[޼kIOCLOSO E SS$_ABORT LBACKFILECFIRSTSYS$EXITT_WAITT_SKPF$CODE$PDATA@$LOCAL@IOPACK(IOPAKC OTS$LINKAGE FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL P @P#mPww1`dՈ014 SKIPSPACE01 5-Dec-1980 11:26 5-Dec-1980 11:26VAX-11 FORTRAN V2.0-2% SKIPSPACE SKIPSPACELPCAN'T SKIP DISK RECORDS FOR NOW0 5Џ Ɣ$Ƥ(WަPP`Dfƾ ƔP`PG? LIB$FREE_VMPЎPPERRMESPWlll4լмƠլռަPP7fPfPм޼ P޼PRW*w#Aa6ަPPЏfP(fPf SYS$CREATEP7fPfSYS$OPENPߦP SYS$CONNECTERRMESPMTH$_WRONUMARGPSPQQPQfPc,Q4cQУPPQP` QPQfP޳,Q4WGVa>BFf SYS$CLOSEURMS$_ACCRMS$_ATRRMS$_ATWRMS$_CDARMS$_CHNRMS$_CRERMS$_DACRMS$_DNFRMS$_DPERMS$_ENTRMS$_EXTRMS$_FNDRMS$_IFARMS$_IRCRMS$_MKDRMS$_NETRMS$_RERRMS$_RMVRMS$_RPLRMS$_SUPRMS$_SYSRMS$_WBERMS$_WERRMS$_WPL޼RТWG+VТ>ӏ>RMS$_NMF >RMS$_FNF RMS$_NORMAL>HF RMS$_EOF8 RMS$_RTB'ERRMES&QѢ Q ߢ ERRMESFߦPSYS$WAITWGωVBPWGtV>PPRMS$_EOFP RMS$_RTBP PPPPPPWG7VlަPP޼$ FߦPSYS$GETʏTIO_ERRPPWGVLlϰަPP޼( "ϖϒߦPSYS$PUTWG϶V>PЦ`dWGϙVަPP>PЀ`dB>ߦPSYS$FINDަPPWGZVƧR֨Q޼P FAB$B_BKS FAB$B_BLN5 FAB$B_DNS FAB$B_FAC4 FAB$B_FNS? FAB$B_FSZ FAB$B_ORG FAB$B_RAT FAB$B_RFM FAB$B_RTV FAB$B_SHR FAB$C_BIDP FAB$C_BLN FAB$C_FIX0 FAB$C_HSH  FAB$C_IDX FAB$C_MAXRFM FAB$C_RELFAB$C_RFM_DFLT FAB$C_SEQ FAB$C_UDF FAB$C_VAR FAB$C_VFCP FAB$K_BLN FAB$L_ALQ FAB$L_CTX@ FAB$L_DEV0 FAB$L_DNA, FAB$L_FNA FAB$L_FOP  FAB$L_JNL8 FAB$L_MRN( FAB$L_NAMD FAB$L_SDC FAB$L_STS  FAB$L_STV$ FAB$L_XAB  FAB$M_BIO FAB$M_BLK@ FAB$M_BRO  FAB$M_CBT FAB$M_CIFFAB$M_CR FAB$M_CTG FAB$M_DEL  FAB$M_DFW FAB$M_DLT FAB$M_DMO FAB$M_ESC FAB$M_EXE FAB$M_FTN FAB$M_GET FAB$M_INP@ FAB$M_JNL@ FAB$M_KFO FAB$M_MSE FAB$M_MXV FAB$M_NAM FAB$M_NEF FAB$M_NFS  FAB$M_NIL  FAB$M_OFP FAB$M_POS FAB$M_PPF@ FAB$M_PPF_IND? FAB$M_PPF_RAT FAB$M_PRN FAB$M_PUT FAB$M_RCK FAB$M_RWC FAB$M_RWO@ FAB$M_SCF FAB$M_SHRDEL FAB$M_SHRGET FAB$M_SHRPUT FAB$M_SHRUPD  FAB$M_SPL@ FAB$M_SQO FAB$M_SUP FAB$M_TEF FAB$M_TMD FAB$M_TMP FAB$M_TRN FAB$M_UFM FAB$M_UFO FAB$M_UPD@ FAB$M_UPI FAB$M_WCK FAB$S_ORG FAB$S_PPF_RAT FAB$V_BIO FAB$V_BLK FAB$V_BRO FAB$V_CBT FAB$V_CIFFAB$V_CR FAB$V_CTG FAB$V_DEL FAB$V_DFW FAB$V_DLT  FAB$V_DMO FAB$V_ESC FAB$V_EXE FAB$V_FTN FAB$V_GET FAB$V_INP FAB$V_JNL FAB$V_KFO FAB$V_MSE FAB$V_MXV FAB$V_NAM  FAB$V_NEF FAB$V_NFS FAB$V_NIL FAB$V_OFP FAB$V_ORG FAB$V_POS FAB$V_PPF FAB$V_PPF_IND FAB$V_PPF_RAT FAB$V_PRN FAB$V_PUT FAB$V_RCK  FAB$V_RWC FAB$V_RWO FAB$V_SCF FAB$V_SHRDEL FAB$V_SHRGET FAB$V_SHRPUT FAB$V_SHRUPD  FAB$V_SPL FAB$V_SQO FAB$V_SUP FAB$V_TEF FAB$V_TMD FAB$V_TMP FAB$V_TRN FAB$V_UFM FAB$V_UFO FAB$V_UPD FAB$V_UPI  FAB$V_WCK< FAB$W_BLS FAB$W_DEQ FAB$W_IFI6 FAB$W_MRSFAB_OFFFILENAME GBL... GOIN GOOUT INVARGBLEN_OFF LUN_TABLEdMAX_LUNS MBCJMEMORY_SIZE_PER_UNIT MEMSIZ MINUS NAM$B_BID NAM$B_BLN8 NAM$B_CURLVL  NAM$B_ESL  NAM$B_ESS NAM$B_RSL NAM$B_RSS NAM$C_BID8 NAM$C_BLNPNAM$C_BLN_DIRWC NAM$C_DVI NAM$C_MAXRSS`NAM$C_MAXRSSLCL8 NAM$K_BLNPNAM$K_BLN_DIRWC@ NAM$L_DIRWCC1D NAM$L_DIRWCC2H NAM$L_DIRWCC3L NAM$L_DIRWCC48 NAM$L_DWC  NAM$L_ESA4 NAM$L_FNB NAM$L_RLF NAM$L_RSA0 NAM$L_WCCNAM$M_DIR_LVLS NAM$M_EXP_DEV@ NAM$M_EXP_DIRNAM$M_EXP_NAMENAM$M_EXP_TYPE NAM$M_EXP_VER NAM$M_GRP_MBR NAM$M_HIGHVER@ NAM$M_LOWVER NAM$M_NODE NAM$M_PPF NAM$M_QUOTED NAM$M_SVCTXNAM$M_WILDCARDNAM$M_WILD_DIRNAM$M_WILD_GRPNAM$M_WILD_MBR NAM$M_WILD_NAMENAM$M_WILD_SFD1NAM$M_WILD_SFD2NAM$M_WILD_SFD3NAM$M_WILD_SFD4 NAM$M_WILD_SFD5@NAM$M_WILD_SFD6NAM$M_WILD_SFD7NAM$M_WILD_TYPENAM$M_WILD_UFDNAM$M_WILD_VERNAM$S_DIR_LVLS NAM$T_DVINAM$V_DIR_LVLS NAM$V_EXP_DEV NAM$V_EXP_DIRNAM$V_EXP_NAMENAM$V_EXP_TYPE NAM$V_EXP_VER NAM$V_GRP_MBR NAM$V_HIGHVER NAM$V_LOWVER NAM$V_NODE NAM$V_PPF NAM$V_QUOTED NAM$V_SVCTXNAM$V_WILDCARDNAM$V_WILD_DIRNAM$V_WILD_GRPNAM$V_WILD_MBRNAM$V_WILD_NAMENAM$V_WILD_SFD1NAM$V_WILD_SFD2NAM$V_WILD_SFD3NAM$V_WILD_SFD4NAM$V_WILD_SFD5NAM$V_WILD_SFD6NAM$V_WILD_SFD7NAM$V_WILD_TYPENAM$V_WILD_UFDNAM$V_WILD_VER* NAM$W_DID* NAM$W_DID_NUM. NAM$W_DID_RVN, NAM$W_DID_SEQ$ NAM$W_FID$ NAM$W_FID_NUM( NAM$W_FID_RVN& NAM$W_FID_SEQ: NAM$W_PRV_DID 6NAMENAM_OFF NOPOP \OKAY 0OKFAOOKGETVM OPNRET OWNER PLUSP PRM_C_BLNPRM_OFF RAB$B_BID RAB$B_BLN5 RAB$B_KRF4 RAB$B_KSZ7 RAB$B_MBC6 RAB$B_MBF4 RAB$B_PSZ RAB$B_RAC RAB$B_ROP1 RAB$B_ROP2 RAB$B_ROP3 RAB$B_TMO RAB$C_BIDD RAB$C_BLN RAB$C_KEY RAB$C_RFA RAB$C_SEQD RAB$K_BLN8 RAB$L_BKT RAB$L_CTX8 RAB$L_DCT< RAB$L_FAB0 RAB$L_KBF0 RAB$L_PBF( RAB$L_RBF RAB$L_RFA0, RAB$L_RHB RAB$L_ROP RAB$L_STS  RAB$L_STV$ RAB$L_UBF RAB$M_ASY RAB$M_BIO RAB$M_CCO RAB$M_CVT RAB$M_EOF@ RAB$M_FDL RAB$M_HSH  RAB$M_KGE@ RAB$M_KGT@ RAB$M_LIM  RAB$M_LOA RAB$M_LOC  RAB$M_MAS RAB$M_NLK RAB$M_NXR@ RAB$M_PMT@ RAB$M_PPF_IND? RAB$M_PPF_RAT  RAB$M_PTA RAB$M_RAH RAB$M_RLK RAB$M_RNE RAB$M_RNF RAB$M_TMO RAB$M_TPT RAB$M_UIF RAB$M_ULK RAB$M_WAT RAB$M_WBH RAB$S_PPF_RAT RAB$V_ASY  RAB$V_BIO RAB$V_CCO RAB$V_CVT RAB$V_EOF RAB$V_FDL RAB$V_HSH RAB$V_KGE RAB$V_KGT RAB$V_LIM  RAB$V_LOA RAB$V_LOC RAB$V_MAS RAB$V_NLK RAB$V_NXR RAB$V_PMT RAB$V_PPF_IND RAB$V_PPF_RAT RAB$V_PTA  RAB$V_RAH RAB$V_RLK RAB$V_RNE RAB$V_RNF RAB$V_TMO RAB$V_TPT RAB$V_UIF RAB$V_ULK RAB$V_WAT  RAB$V_WBH RAB$W_ISI RAB$W_RFA RAB$W_RFA4" RAB$W_RSZ  RAB$W_STV0 RAB$W_STV2  RAB$W_USZPRAB_OFF RDAPP READ>RSS_OFF SETUP_LUN>STS_OFF aWAIT wWRITE WRTMES XAB$B_BKZ XAB$B_BLN XAB$B_COD XAB$C_PRO XAB$C_PROLEN XAB$K_PROLEN XAB$L_NXT  XAB$L_RDT0 XAB$L_RDT4  XAB$L_UIC XAB$M_NODEL XAB$M_NOEXE XAB$M_NOREAD XAB$M_NOWRITE  XAB$Q_RDT XAB$S_GRP XAB$S_OWN XAB$S_SYS XAB$S_WLD XAB$V_GRP XAB$V_NODEL XAB$V_NOEXE XAB$V_NOREAD XAB$V_NOWRITE XAB$V_OWN XAB$V_SYS  XAB$V_WLD XAB$W_GRP  XAB$W_MBM XAB$W_PRO XAB$W_RVNXAB_OFF ZERO? . BLANK .$ABS$PIO_ERRww