% VAX-11 Librarian V04-00>ZRz R!O P b**"  [ ARGPROCS AZ_IO :CLUSTER_MEMBER: CLUSTER_NODEt CONTROL_YCONTROL_Y_EXITDECLARE_EXIT_HANDLERBDEFAULT_DIRECTORY* FILE_BUSY FILE_ERROR FILE_ERROR_1FILE_NAME_INFO.FPRINTNFPRINT_2 GO_HIBERNATEDGO_WAITR INPUT_ALARM INTERACTIVE_INPUT" ITEM_LIST# LOGICAL_NAME%MAILBOX'MAILBOX_NOTIFY_READ( MAILBOX_READ* MAILBOX_WRITE+bQSHIFT,SD_1SD_EXIST3 SD_LASTDOTd  ARG_ADDRESS  ARG_EXIST AZ_CLOSE AZ_OPEN AZ_READ  BATCH_MODECANCEL_EXIT_HANDLER :CLUSTER_MEMBER: CLUSTER_NODEt CONTROL_YCONTROL_Y_EXITDECLARE_EXIT_HANDLER  DEFAULT_ARGBDEFAULT_DIRECTORY  DESCRIPTOR* FILE_BUSY FILE_ERROR FILE_ERROR_1FILE_NAME_INFO.FPRINTNFPRINT_2 GO_HIBERNATEDGO_WAIT GO_WAKE_UPR INPUT_ALARM INTERACTIVE_INPUT NARGS|.FPRINTNFPRINT_2 GO_HIBERNATEDGO_WAIT GO_WAKE_UPR INPUT_ALARM INTERACTIVE_INPUT INTERACTIVE_MODE INTERACTIVE_OUTPUT" ITEM_LIST+bLBYTE# LOGICAL_NAME%MAILBOX'MAILBOX_NOTIFY_READ'MAILBOX_NOTIFY_WRITE( MAILBOX_READ* MAILBOX_WRITE NARGS+bQSHIFTERESET_KEYPAD_MODE,SD__LASTDOT5SD_NEW_DIRECTORY82 SD_PARENT:FSD_SPLIT; SD_TRANSLATE=N SD_TRAVERSE@b SD_WILDCARD3FILE_NAME_INFOSD_ USER_HAS_PRIVTUTE_SETTINGS# LOGICAL_NAME%MAILBOX'MAILBOX_NOTIFY_READ( MAILBOX_READ* MAILBOX_WRITE+bQSHIFT,SD_1SD_EXIST3 SD_LASTDOT5SD_NEW_DIRECTORY82 SD_PARENT:FSD_SPLIT; SD_TRANSLATE=N SD_TRAVERSE@b SD_WILDCARDBf SEND_MESSAGED SET_INPUT_ALARMESET_KEYPAD_MODEGSMGL_GET_TERMINAL_SETTINGSHSTR_LENISUBINDEXJJSYMBOL_SUBSTITUTELh USER_HAS_PRIV$ ITEM_LIST USER_HAS_PRIVTUTE_SETTINGS61SD_EXIST3 SD_LASTDOT5SD_NEW_DIRECTORY82 SD_PARENT:FSD_SPLIT; SD_TRANSLATE=N SD_TRAVERSE@b SD_WILDCARDBf SEND_MESSAGED SET_INPUT_ALARMESET_KEYPAD_MODEGSMGL_GET_TERMINAL_SETTINGSHSTR_LENISUBINDEXJJSYMBOL_SUBSTITUTELh USER_HAS_PRIV 1R02ARGPROCS018-SEP-1986 18:47 VAX/VMS Macro V04-00 MACRO LIB2$ROUTINES TO EXAMINE ARGUMENT LISTS . ABS .Pb$CODEP NARGS& P  ARG_EXIST&皼PP @PP " ARG_ADDRESS&뚼P P@PP 9 DEFAULT_ARG& 䚼PЭQPa @aP`PмP W DESCRIPTOR& ЬP}`| ARGPROCS" ARG_ADDRESS ARG_EXIST9 DEFAULT_ARGW DESCRIPTOR NARGS$CODEbww1@&R0/AZ_IO018-SEP-1986 18:47 VAX/VMS Macro V04-00 MACRO LIB3 ERMS$_RTB SYS$CLOSE SYS$CONNECTSYS$GETSYS$OPEN . ABS .P$LOCALP$ABS$PPQNQ@Q QQPPDQBQQQPQg$CODEP AZ_OPEN&XмPP43ЬPР,3SYS$OPENP P SYS$CONNECT 7AZ_READ&1PSYS$GETP PRMS$_RTBP UAZ_CLOSE& SYS$CLOSEPPREAD_ PQPI AZ_IOUAZ_CLOSEAZ_OPEN7AZ_READ;$LOCAL $CODEgREAD_Pww1kR019CLUSTER_MEMBER0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219CLUSTER_MEMBER PCLUSTER_MEMBER%0P80,8PH,[}PQP<RR  STR$UPCASE ITEM_LISTR 0 SYS$GETSYIWSS$_NOSUCHNODERPRѫRԫPPTPLIB$STOP ЫTPLIB$STOPkЫP HCLUSTER_MEMBERSS$_NOSUCHNODE STR$UPCASE ITEM_LIST SYS$GETSYIWLIB$STOP$CODE$PDATA$LOCAL,NPTPYP.^PlPsPP3' ww1`^R017 CLUSTER_NODE0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 CLUSTER_NODE P CLUSTER_NODE PPH[}PQPk޼ ITEM_LIST SYS$GETSYIWPP@<LIB$STOPЫ@<LIB$STOPv H CLUSTER_NODE ITEM_LIST SYS$GETSYIWLIB$STOPJ$CODE$PDATA\$LOCAL +P ;P Jww1LR014 CONTROL_Y0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 CONTROL_Y PTT CONTROL_Y/P SYS$ASSIGN@  #CONTROL_Y_EXITPPH[ SYS$ASSIGNPP LIB$STOP2,޼@$SYS$QIOWPP LIB$STOP2 LIB$STOP2`޼tXSYS$QIOWPP LIB$STOP2 LIB$STOP޼PˌDECLARE_EXIT_HANDLER˔LIB$DISABLE_CTRLPRˌCANCEL_EXIT_HANDLER˔LIB$ENABLE_CTRLPRRR LIB$STOP H CONTROL_YCONTROL_Y_EXIT SYS$ASSIGNLIB$STOPSYS$QIOWDECLARE_EXIT_HANDLERLIB$DISABLE_CTRLCANCEL_EXIT_HANDLERLIB$ENABLE_CTRL$CODE$PDATA$LOCAL TT_CHAN_TT;PP ?P PP uP P PPP ;/(ww1R019CONTROL_Y_EXIT0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219CONTROL_Y_EXIT PCONTROL_Y_EXITQPPH[kLIB$ENABLE_CTRLPP LIB$STOPh HCONTROL_Y_EXITLIB$ENABLE_CTRLLIB$STOP $CODE$PDATA$LOCALP   ww1ץR01?DECLARE_EXIT_HANDLER0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219DECLARE_EXIT_HANDLERDECLARE_EXIT_HANDLERgPQPS>cSޑRSRԄS|PbSТޑPdݏ LIB$SIGNAL( ITEM_LIST ITEM_LIST$CODEdww1XR017 LOGICAL_NAME%0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 LOGICAL_NAME"PLNM$DCL_LOGICAL LOGICAL_NAMEP 0 SYS$TRNLNM@PH[}PQP ITEM_LIST$ SYS$TRNLNMPP SS$_NOLOGNAMQPQP@<LIB$STOPD ARG_EXISTPPkPPЫP H LOGICAL_NAME ARG_EXIST SS$_NOLOGNAM ITEM_LIST SYS$TRNLNMLIB$STOP &e$CODE$PDATA`$LOCAL+P7P EPRP '&eww1R012MAILBOX0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219MAILBOXPMAILBOX'(P T(TTT PMAILBOX_NOTIFY_READ0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219MAILBOX_NOTIFY_READMAILBOX_NOTIFY_READ3P  )PH[Ь޻PР<# Р0޼4SYS$QIOWPPLHLIB$STOP2LHLIB$STOPH[Ь޻PР Р 0޼4SYS$QIOWPPLHLIB$STOP2LHLIB$STOP HMAILBOX_NOTIFY_READSYS$QIOWLIB$STOP WHMAILBOX_NOTIFY_WRITE$CODE$PDATAX$LOCAL7P HP P P ',(ww1R017* MAILBOX_READ0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 MAILBOX_READ MAILBOX_READ/P  PH[Ь}PQP1P޻RբqPТ$P(8SYS$QIOWPPTPLIB$STOP2P SS$_ENDOFFILEQPQ 2TPLIB$STOP2 բ޼TPMAILBOX_NOTIFY_READ H MAILBOX_READ SS$_ENDOFFILESYS$QIOWL +IB$STOPMAILBOX_NOTIFY_READ$CODE$PDATA`$LOCAL,+PHP YP&iPoP ~PP 3')ww1rR018 MAILBOX_WRITE0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 MAILBOX_WRITE MAILBOX_WRITEP  PH[Ь}PQP ,<P0Q޻RբpQТ$Q(8P<SYS$QIOWPPTPLIB$STOP2TPLIB$STOPբ ޼TPMAILBOX_NOTIFY_WRITE H MAILBOX_WRITESYS$QIOWLIB$STOPMAILBOX_NOTIFY_WRITE$CODE$PDATA`$LOCAL/PPP aP sP '#ww1@92R00QSHIFT018-SEP-1986 18:47 VAX/VMS Macro V04-00 MACRO LIB4Quadword Shift- . ABS .P$CODEP QSHIFT& y  LBYTE&P3 QSHIFT  LBYTE QSHIFT$CODEww1R01.SD_0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219  SD_#P .SYS$LOGIN:SD_SP SD_P @ SD_SPLIT@.P @ SUBINDEX@  x SD_SPLIT@x SD_SPLIT@ PP LIB$GET_SYMBOL@$P$PPPO[}PQPЏ̄k4 ARG_EXISTPмkVզDSD_SPLITL PTSD_SPLITԦ<ѫ SD_TRANSLATE\SD_EXISTP1dSUBINDEXЫYPZZZYYYZ/ ~ZPYYP- \ ˰˴ SD_TRAVERSEP<0 P1 >1\ SD_LASTDOTP]~PP^(P n^SYYWfP,Wn @PQ^f]~PP^(P n^SYYW[~WY,Wn YPQ^Y1 <1ѦfPPL PTP1fYLIB$GET_SYMBOLP1 LƌPTP1YfYʏYYfY0fPP~^(#nLY^PLIB$GET_SYMBOLY^P LƌPTSD_SPLITѦ ˰PY0fPP~ݏSD__L1Y^PLIB$GET_SYMBOLY^P1L PTSD_NEW_DIRECTORYPZ1ԦЫP@޼,( OTS$CVT_TI_LP..[.^^SD_SLOT3 OSD_ OTS$CVT_TI_LLIB$GET_SYMBOL SD_LASTDOT ARG_EXISTSD_SPLIT SD_TRANSLATESD_EXISTSUBINDEX LIB$INDEX SD_PARENT SD_TRAVERSESD_NEW_DIRECTORY$CODE*$PDATA$LOCAL SD_WORKSD_LOC FILE_NAME_INFO_])P9P CPjPPPP P2P P~PUQPYPFPP5PP: P$PJ2Py5PRPPPP PPPPP8*P:fPoPvP{PPPPPPPP{P^P>%PZ(P/QP&nP ww13R013SD_EXIST0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219SD_EXISTSD_EXISTPPI[\V¬^(̈nЬWl^(lnlXXWWkWV^ SD_PARENTV^P SD_WILDCARDPѫJ112PPkAZ_OPENPAZ_CLOSE)̈PP^(P̐n^SV[~V,Vn ̈PQ^ѫ$ѫѫDЏJ-l 4-l l(ެ1ѫĄ< ЫPЫPPSYS$SYSROOT:SYS$COMMON:SYS$SYSDEVICE:Q[000000. ISD_EXIST SD_WILDCARD SD_PARENTAZ_OPENAZ_CLOSEU$CODE-$PDATA$LOCAL SD_WORKSD_LOC FILE_NAME_INFO_hTP cPoPrPPFP,PvPPdP PPP !P(PAPE9&  0Uww1`ȿR 5015 SD_LASTDOT0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 SD_LASTDOTP. SD_LASTDOTP PH[ԫk LIB$INDEXPP\TT\TP@.T\TPp H SD_LASTDOT LIB$INDEXa$CODE$PDATA $LOCALSD_WORKSD_LOC+PCPQP$aww61 R01;SD_NEW_DIRECTORY0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219SD_NEW_DIRECTORYP:].]SD_NEW_DIRECTORYP  8@888p88PO[}PQ P<k, kVWk8WYYX,Xn PQ^\kk1( K SD_TRANSLATELIB$SYS_TRNLOGSUBINDEX$CODE $PDATA\$LOCAL SD_WORKSD_LOC FILE_NAME_INFO_/P$PIPtP~PPP8?3!ww1vR016 SD_TRAVERSE0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 SD_TRAVERSEP[].DIR;1? SD_TRAVERSEPL`tPO[}PQPVW- >ˏfP PPf P- \kX^(n§^(LjnЧZZYg^(gngZZYYYX^ LIB$FIND_FILEX^P1, SD_LASTDOTP1X§^(LjnЧYg^(gngZZYYYX^4 SD_PARENTX^PЫPkX^(n2P@P^(Pn^SZZYYYX^ LIB$FIND_FILEX^P12P- PX^(n2PP^(Pn^SZZYYYX^ LIB$FIND_FILEX^P- >1X§^(LjnЧYg^(gngZZYYYX^< SD_PARENTX^-Lj 1P LIB$INDEXPVVP)@Vd LIB$INDEXPXx LIB$INDEXPYX.HVYPP]~VVYY^(YFnYZZX[~X,Xn LjPQ^˄LIB$FIND_FILE_ENDЫPP*.DIR;1[000000]000000 O SD_TRAVERSE LIB$FIND_FILE SD_ ALASTDOT SD_PARENT LIB$INDEXLIB$FIND_FILE_ENDs$CODE$$PDATA$LOCALSD_LOC FILE_NAME_INFO_a-P&1P"@PIPQPl^P_P@PPEPPWPPz P_S*sww1?R016 SD_WILDCARD0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 SD_WILDCARDBP[].DIR;1 SD_WILDCARDEP(<PP|H[k  LIB$FIND_FILEP, LIB$INDEXP\@ LIB$INDEXPRT LIB$INDEXPV\VPPR.BVP]@\\V,VL `LIB$FIND_FILE_ENDЫP |H SD_WILDCARD LIB$FIND_FILE LIB$INDEXLIB$FIND_FILE_END$CODE $PDATAl$LOCALSD_ CLOC FILE_NAME_INFO_*PV-!ww1R017 SEND_MESSAGE0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 SEND_MESSAGE P: SEND_MESSAGEn,P,H( l,QdPK([}PQP}PQP  DEFAULT_ARGPV< PDPW< XX^(Xn ~X,Xn WPQ^V(GWV^( nWPP^(Pn^SYYX^( nX ~X WY,Xn YPQ^YWY( LIB$INDEXPX- nXV<YXV<Y4 LIB$GET_EFPP@<LIB$STOPkPWDHX\YhL SYS$BRKTHRUW2PP@<LIB$STOP2PSS$_DEVOFFLINEYPYЫP2@<LIB$STOPЫP PQQ K SEND_MESSAGESS$_DEVOFFLINE DEFAULT_ARG LIB$INDEX LIB$G EET_EFLIB$STOP SYS$BRKTHRUWq$CODE$PDATA$LOCALZUPhPFPP+PPPPPP 4P QP]PL@fqww1R01:SET_INPUT_ALARM0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219SET_INPUT_ALARM PTTSET_INPUT_ALARMP SYS$ASSIGNF@ qB INPUT_ALARMQPPPH[ SYS$ASSIGNPP LIB$STOPޫ2,$SYS$QIOPP LIB$STOP HSET_INPUT_ALARM INPUT_ALARM SYS$ASSIGNLIB$STOPSYS$QIOS$CODE$PDATAp$LOCALTTIN_ TT_CHAN_TT ALARM_IOSBP!P EP #MSww1RG01:SET_KEYPAD_MODE0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219SET_KEYPAD_MODE PTTSET_KEYPAD_MODE P  SYS$ASSIGN@ 0QPH [=H [> SYS$ASSIGNPP LIB$STOP2,$SYS$QIOWPP LIB$STOP2 LIB$STOP HSET_KEYPAD_MODE SYS$A HSSIGNLIB$STOPSYS$QIOW HRESET_KEYPAD_MODEm$CODE$PDATAd$LOCAL TT_CHAN_TTP #P.P MP ^P ,  "mww1 R01ESMGL_GET_TERMINAL_SETTINGS0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219$!SMGL_GET_TERMINAL_SETTINGSPSYS$OUTPUT%!SMGL_GET_TERMINAL_SETTINGS5P  SYS$ASSIGN@I ' PQ QQ QQ PPYPvPPPP PNB>ww16R018 USER_HAS_PRIV0118-Sep-1986 18:4618-Sep-1986 18:46VAX FORTRAN V4.5-219 USER_HNAS_PRIV"P USER_HAS_PRIVP  $0 24PPQECMKRNLCMEXECSYSNAMGRPNAMALLSPODETACHDIAGNOLOG_IOGROUP ACNT PRMCEBPRMMBXPSWAPMALTPRISETPRVTMPMBXWORLD MOUNT OPER EXQUOTNETMBXVOLPROPHY_IOBUGCHKPRMGBLSYSGBLPFNMAPSHMEM SYSPRVBYPASSSYSLCKP8T|PT  PyTPPPPPkPTPTTPPP PP:P+<0[ww