% VAX-11 Librarian V04-00ol@ol!J*  5ARGPROCS DAY_OF_WEEK FILE_BUSYl FILE_ERROR FILE_ERROR_1 ~ GO_HIBERNATE GO_WAIT PINTERACTIVE_INPUT ITEM_LIST LOGICAL_NAMEMAILBOXMAILBOX_NOTIFY_READ MAILBOX_READ MAILBOX_WRITE SEND_MESSAGE6STR_LEN USER_HAS_PRIV ARG_ADDRESS ARG_EXIST P BATCH_MODE DAY_OF_WEEK DEFAULT_ARG DESCRIPTOR FILE_BUSYl FILE_ERROR FILE_ERROR_1 ~ GO_HIBERNATE GO_WAIT ~ GO_WAKE_UP PINTERACTIVE_INPUT PINTERACTIVE_OUTPUT ITEM_LIST LOGICAL_NAMEMAILBOXMAILBOX_NOTIFY_READMAILBOX_NOTIFY_WRITE MAILBOX_READ MAILBOX_WRITENARGS SEND_MESSAGE6STR_LEN USER_HAS_PRIV1rml02ARGPROCS029-NOV-1985 11:15 VAX/VMS Macro V04-00 MACRO LIB3$ROUTINES TO EXAMINE ARGUMENT LISTS . ABS .P^$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$CODE^ww1@ml016 DAY_OF_WEEK0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 DAY_OF_WEEKP  DAY_OF_WEEK~LP HH QXWEDNESDAY 'THURSDAY 'FRIDAY 'SATURDAY 'SUNDAY 'MONDAY 'TUESDAY 'P|HH[}PQPЬ   ARG_EXISTP޼ 0(LIB$DAY4LIB$DAYzkP{Pkk kV, F < ARG_EXISTPFHT LIB$INDEXP<VVQQPPQQt |H DAY_OF_WEEK ARG_EXISTLIB$DAY LIB$INDEX$CODE $PDATA$LOCAL*P9P fP#*!ww1ml014 FILE_BUSY0129-Nov-1985 11 :1529-Nov-1985 11:15VAX FORTRAN V4.3-145 FILE_BUSY P FILE_BUSYnPPH[ FOR$ERRSNSPkPPGO_WAITЫP] H FILE_BUSY FOR$ERRSNSGO_WAIT3$CODE$PDATA($LOCAL%P!3ww1ml015 FILE_ERROR0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 FILE _ERRORP  FILE_ERRORzP  FILE_ERROR_1QPH[k FOR$ERRSNS ARG_EXISTPݼ FOR$WRITE_SF FOR$IO_END޼, SYS$PUTMSGݼ FOR$WRITE_SF FOR$IO_END~ FOR$WRITE_SF FOR$IO_END0 SYS$PUTMSG~ FOR$WRITE_SF FOR$IO_END H FILE_ERROR ARG_EXIST FILE_ERROR_1 FOR$ERRSNS SYS$PUTMSG$CODE$PDATAT$LOCAL FOR$IO_END FOR$WRITE_SF P=WP60$0ww1ӭml017 FILE_ERROR_10129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 FILE_ERROR_1 P) FILE_ERROR_1iPPH[}PQPkݼ FOR$WRITE_SFk FOR$IO_T_DS FOR$IO_ENDP{ H FILE_ERROR_17 $CODE$PDATA $LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF 7ww1ml017 GO_HIBERNATE0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 GO_HIBERNATE GO_HIBERNATEPPPH[k SYS$HIBERPP LIB$STOPH[SYS$WAKEPP LIB$STOP H GO_HIBERNATE SYS$HIBER LIB$STOP -H GO_WAKE_UPSYS$WAKEN$CODE$PDATA$LOCALHIBER_ P @P '%Nww1 ml012GO_WAIT0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145GO_WAITPGO_WAITP QPH[kk LIB$GET_EFPPLIB$STOPμ~^LI B$EMUL^Ы0, SYS$SETIMRPPLIB$STOPЫ SYS$WAITFRPPLIB$STOP HGO_WAIT LIB$GET_EFLIB$STOPLIB$EMUL SYS$SETIMR SYS$WAITFRq$CODE$PDATAH$LOCAL PP GP cP 0$qww1@ml01<INTERACTIVE_INPUT0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145INTERACTIVE_INPUT P INTERACTIVE_INPUTv$P , USER_HAS_PRIV@ $PS5cSޑR- SRԄPbSТޑPdݏ LIB$SIGNAL( ITEM_LIST ITEM_LIST$CODE[ww1ml017 LOGICAL_NAME0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 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$STOPe$CODE$PDATA`$LOCAL+P7P EPRP *&eww1kxml012MAILBOX0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145MAILBOXPMAILBOX'(P T(TTT PMAILBOX_NOTIFY_READ0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145MAILBOX_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 ',(ww1|ml017 MAILBOX_READ0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 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)ww1 ml018 MAILBOX_WRITE0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 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 %ml017 SEND_MESSAGE0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145 SEND_MESSAGE P: SEND_MESSAGEn,P,H( l,QdPK([}PQP}PQP  DEFAULT_ARGPV< PPW< 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 D EFAULT_ARG LIB$INDEX LIB$GET_EFLIB$STOP SYS$BRKTHRUWq$CODE$PDATA$LOCALZUPhPFPP+PPPPPP 4P QP]PUIeqww1Oml012STR_LEN0129-Nov-1985 11:1529-Nov-1985 11:15VAX FORTRAN V4.3-145STR_LENSTR_LENXPPH[}P QPk8T|PT  PyTPPPPPkPTPTTPPP