% VAX-11 Librarian V04-00*Ӎ`+Ӎ!:L;I   cARGPROCS \AZ_IO  CONTROL_Y rCONTROL_Y_EXIT.DECLARE_EXIT_HANDLERDEFAULT_DIRECTORY FILE_BUSYv FILE_ERROR FILE_ERROR_1GETJPIL GO_HIBERNATEGO_WAIT INPUT_ALARM ITEM_LISTz LOGICAL_NAMEMAILBOX&MAILBOX_NOTIFY_READ  MAILBOX_READ" MAILBOX_WRITE#SD_'SD_EXIST* SD_LASTDOT+SD_NEW_DIRECTORY-SD_SPLIT. SD_TRANSLATE0 SEND_MESSAGE2SET_INPUT_ALARMf ARG_ADDRESS ARG_EXIST \AZ_CLOSE \AZ_OPEN \AZ_READ.CANCEL_EXIT_HANDLER  CONTROL_Y rCONTROL_Y_EXIT.DECLARE_EXIT_HANDLER DEFAULT_ARGDEFAULT_DIRECTORY FILE_BUSYv FILE_ERROR FILE_ERROR_1GETJPIL GO_HIBERNATEGO_WAITL GO_WAKE_UP INPUT_ALARM ITEM_LISTz LOGICAL_NAMEMAILBOX&MAILBOX_NOTIFY_READ&MAILBOX_NOTIFY_WRITE  MAILBOX_READ" MAILBOX_WRITENARGSz LOGICAL_NAMEMAILBOX&MAILBOX_NOTIFY_READ&MAILBOX_NOTIFY_WRITE  MAILBOX_READ" MAILBOX_WRITENARGS3RESET_KEYPAD_MODE#SD_'SD_EXIST* SD_LASTDOT+SD_NEW_DIRECTORY-SD_SPLIT. SD_TRANSLATE0 SEND_MESSAGE2SET_INPUT_ALARM3SET_KEYPAD_MODE5vSMGL_GET_TERMNL_CHARACTERISTICS6pSTR_LEN7SUBINDEX8 USER_HAS_PRIV$ ITEM_LIST USER_HAS_PRIVNL_CHARACTERISTICS'SD_EXIST* SD_LASTDOT+SD_NEW_DIRECTORY-SD_SPLIT. SD_TRANSLATE0 SEND_MESSAGE2SET_INPUT_ALARM3SET_KEYPAD_MODE5vSMGL_GET_TERMNL_CHARACTERISTICS6pSTR_LEN7SUBINDEX8 USER_HAS_PRIVSD_ USER_HAS_PRIVNL_CHARACTERISTICS 1Ӎ02ARGPROCS019-MAY-1985 16:34 VAX/VMS Macro V04-00 MACRO LIB3$ROUTINES TO EXAMINE ARGUMENT LISTS . ABS .PW$CODEP NARGS& P  ARG_EXIST&皼PP @PP " ARG_ADDRESS&뚼P P@PP 9 DEFAULT_ARG&䚼PЭQPa @aP`PмPfARGPROCS" ARG_ADDRESS  ARG_EXIST9 DEFAULT_ARG NARGS$CODEWww1Ӎ0/AZ_IO019-MAY-1985 16:34 VAX/VMS Macro V04-00 MACRO LIB4 ERMS$_RTB SYS$CLOSE SYS$CONNECTSYS$GETSYS$OPEN . ABS .P$LOCALP$ABS$PPQNQ@QQQPPDQBQQQP Qg$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_Pww1@  014 CONTROL_Y0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45 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 D8(ww1Ӎ019CONTROL_Y_EXIT0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45CONTROL_Y_EXIT PCONTROL_Y_EXITQPPH[kLIB$ENABLE_CTRLPP LIB$STOPh HCONTROL_Y_EXITLIB$ENABLE_CTRLLIB$STOP $CODE$PDATA$LOCAL P   ww1OӍ01?DECLARE_EXIT_HANDLER0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45DECLARE_EXIT_HANDLERDECLARE_EXIT_HANDLERgPQPS5cSޑR- SRԄPbSТޑPdݏ LIB$SIGNAL( ITEM_LIST ITEM_LIST$CODE[ww10Ӎ017 LOGICAL_NAME0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45  LOGICAL_NAMEPLNM$DCL_LOGICAL LOGICAL_NAMEP  SYS$TRNLNM@PH[}PQPk SYS$TRNLNMPP SS$_NOLOGNAMQPQP,(LIB$STOPЫPv H LOGICAL_NAME SS$_NOLOGNAM SYS$TRNLNMLIB$STOP@$CODE$PDATA4$LOCAL "P.P !@ww1`Ӎ012MAILBOX0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45MAILBOXPMAILBOX'(P T(TTT PMAILBOX_NOTIFY_READ0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45MAILBOX_NOTIFY_READMAILBOX_NOTIFY_READ3P  PH[Ь޻QС<# С0޼4SYS$QIOWPPLHLIB$STOP2LHLIB$STOPH[Ь޻QС С 0޼4SYS$QIOWPPL !HLIB$STOP2LHLIB$STOP HMAILBOX_NOTIFY_READSYS$QIOWLIB$STOP WHMAILBOX_NOTIFY_WRITE$CODE$PDATAX$LOCAL7P HP P P ',(ww12Ӎ017 MAILBOX_READ0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45 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$QIOWLIB$STOPMAILBOX_NOTIFY_READ$CODE$PDATA`$LOCAL,+PHP YP&iPoP ~PP <0) #ww1gӍ018 MAILBOX_WRITE0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45 MAILBOX_WRITE MAILBOX_WRITEP  PH[Ь}PQP<P0Q޻SգpQУ$Q(8P<SYS$QIOWPPTPLIB$STOP2TPLIB$STOPգ ޼TPMAILBOX_NOTIFY_WRITE H MAILBOX_WRITE $SYS$QIOWLIB$STOPMAILBOX_NOTIFY_WRITE$CODE$PDATA`$LOCAL/PPP aP sP '#ww1lӍ01.SD_0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45  SD_P .SYS$LOGINSD_SP SD_P4 SUBINDEX@ L LIB$SYS_TRNLOG@%dld LIB$GET_SYMBOL@ddPPO[^}PQP Џ̄DEFAULT_DIRECTORYSD_SPLIT< kѫk SD_TRANSLATE(SD_EXISTP18SUBINDEXЫYPkѫYYVYíVЭP-@ .PLIB$SYS_TRNLOGSD_SPLIT1ZЭP@.]~ЭP( SD_LASTDOTP]~YVP SYS$ASSIGNPP LIB$STOP2,$SYS$QIOWPP LIB$STOP2 LIB$STOP HSET_KEYPAD_MODE SYS$ASSIGNLIB$STOPSYS$QIOW HRESET_KEYPAD_MODEm$CODE$PDATAd$L 6OCAL TT_CHAN_TTP #P.P MP ^P * "mww1@wӍ01JSMGL_GET_TERMNL_CHARACTERISTICS0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45)&SMGL_GET_TERMNL_CHARACTERISTICSPSYS$OUTPUT*&SMGL_GET_TERMNL_CHARACTERISTICSP  SYS$ASSIGN@  ' PP 7H[  SYS$ASSIGNPP LIB$STOP2 ,$SYS$QIOWPP LIB$STOP2 LIB$STOP HSMGL_GET_TERMNL_CHARACTERISTICS SYS$ASSIGNLIB$STOPSYS$QIOW`$CODE $PDATAX$LOCAL SMGL_CHARPP :P NP'`ww1gӍ012STR_LEN0119-May-1985 16:3319-May-1985 16:33VAX FORTRAN V4.1-45STR_8LENSTR_LENXPPH[}PQPk8T|PT  PyTPPPPPkPTPTTPPP